AZXZMGT.m

AZXZMGT ;SUPPORT DATABASE MANAGEMENT REPORTS [ 04/30/92  8:04 AM ]

 ;04/01/92   JOHN H. LYNCH

 ;

 ;A TOOL USED FOR CREATING REPORTS FROM

 ;THE SUPPORT LOG DATABASE ON SERVICE UNITS

 ;UNDER THE PHOENIX AREA INDIAN HEALTH SERVICE.

MAIN ;AZXZMGT PROGRAM CONTROL

 ;SET LOCAL VARIABLES

 D ^XBKSET  ;THIS LINE SHOULD BE UNCOMMENTED IF RUNNING IN

            ;PROGRAMMERS' MODE ONLY!

 D MAINMENU

 K OPTION

 Q

MAINMENU ;MAIN MENU OF OPTIONS

 ;CLEAR SCREEN

 W @IOF

 W !!!,?27,"RPMS Support Database"

 W !,?21,"Phoenix Area Indian Health Service"

 W !,?26,"Management Reports Menu"

 W !!!,?21,"Management Time Report.........[1]"

 W !,?21,"For Future Use.................[2]"

 W !,?21,"For Future Use.................[3]"

 W !,?21,"For Future Use.................[4]"

 W !,?21,"Quit...........................[5]"

 W !!,?33,"Option: " R OPTION

 I OPTION'?1N G MAINMENU         ;ILLEGAL OPTION

 I OPTION=1 D ^AZXZMGT1 G MAINMENU  

 I OPTION=2 G MAINMENU

 I OPTION=3 G MAINMENU

 I OPTION=4 G MAINMENU

 I OPTION=5 Q  

 G MAINMENU

 Q

AZXZMGT   ;SUPPORT DATABASE MANAGEMENT REPORTS [ 04/30/92  8:04 AM ]

 +1       ;04/01/92   JOHN H. LYNCH

 +2       ;

 +3       ;A TOOL USED FOR CREATING REPORTS FROM

 +4       ;THE SUPPORT LOG DATABASE ON SERVICE UNITS

 +5       ;UNDER THE PHOENIX AREA INDIAN HEALTH SERVICE.

 +6 MAIN  ;AZXZMGT PROGRAM CONTROL

 +1       ;SET LOCAL VARIABLES

 +2       ;THIS LINE SHOULD BE UNCOMMENTED IF RUNNING IN

           DO ^XBKSET

 +3       ;PROGRAMMERS' MODE ONLY!

 +4  +5    DO MAINMENU

 +6        KILL OPTION

 +7        QUIT 

 +8 MAINMENU ;MAIN MENU OF OPTIONS

 +1       ;CLEAR SCREEN

 +2        WRITE @IOF

 +3  +4    WRITE !!!,?27,"RPMS Support Database"

 +5        WRITE !,?21,"Phoenix Area Indian Health Service"

 +6        WRITE !,?26,"Management Reports Menu"

 +7        WRITE !!!,?21,"Management Time Report.........[1]"

 +8        WRITE !,?21,"For Future Use.................[2]"

 +9        WRITE !,?21,"For Future Use.................[3]"

 +10       WRITE !,?21,"For Future Use.................[4]"

 +11       WRITE !,?21,"Quit...........................[5]"

 +12       WRITE !!,?33,"Option: "

           READ OPTION

 +13      ;ILLEGAL OPTION

           IF OPTION'?1N

               GOTO MAINMENU

 +14       IF OPTION=1

               DO ^AZXZMGT1

               GOTO MAINMENU

 +15       IF OPTION=2

               GOTO MAINMENU

 +16       IF OPTION=3

               GOTO MAINMENU

 +17       IF OPTION=4

               GOTO MAINMENU

 +18       IF OPTION=5

               QUIT 

 +19       GOTO MAINMENU

 +20       QUIT