(4) Navigation block continued
•
•
•IF Header THEN
•
•  IF FirstCommands() THEN
•    ‘ for administrators only:
•    IF cGroup="SYSTEM" OR cGroup="DBMS" THEN
•      DrillDown "Applications","Applications","",""
•      IF cGroup="DBMS" THEN
•        NewLine
•        Command "Utilities" 'restrict access – has general query capability
•      END IF
•      IF Toggle("Lists") THEN
•        SubCommand "Payment Types"
•        SubCommand "Status"
•      END IF
•    ELSE
•      Command cEditApplication
•      IF cStatus="New Application" THEN
•        Command "Submit Application"
•      END IF
•  END IF