AZXRVP.m

AZXRVP ;PAO/IHS/JHL;VISITS BY PROVIDERS[ 08/30/93  12:33 PM ]

 ;Version 1;VISITS BY PROVIDERS;;****;DATE OF RELEASE HERE

 ;JOHN H. LYNCH

 ;

 ;THE ROUTINES THAT AZXRVP CALLS:

 ;AZXRVP1A, Report Input

 ;AZXRVP4, Report re-print

 ;THE ROUTINES THAT CALL AZXRVP:

 ;NONE 

 ;Variable List

 ;AZXROPT=       Users input on which option they chose.

MAIN ;AZXRVP PROGRAM CONTROL    

 ;SET LOCAL VARIABLES

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

             ;IN PROGRAMMERS' MODE ONLY!

 D MAINMENU

 K AZXROPT 

 Q

MAINMENU ;MAIN MENU OF OPTIONS

 ;CLEAR SCREEN

 W @IOF

 W !!!!!!,?28,"Visits by Providers"

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

 W !,?32,"REPORT MENU"

 W !!!,?21,"Visits by Providers report.....[1]"

 W !,?21,"Visits by Providers re-print...[2]"

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

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

 I AZXROPT=1 D ^AZXRVP1A G MAINMENU

 I AZXROPT=2 D ^AZXRVP4 G MAINMENU

 I (AZXROPT=0)!(AZXROPT="")!(AZXROPT="^") Q

 G MAINMENU

 Q

AZXRVP    ;PAO/IHS/JHL;VISITS BY PROVIDERS[ 08/30/93  12:33 PM ]

 +1       ;Version 1;VISITS BY PROVIDERS;;****;DATE OF RELEASE HERE

 +2       ;JOHN H. LYNCH

 +3       ;

 +4  +5   ;THE ROUTINES THAT AZXRVP CALLS:

 +6       ;AZXRVP1A, Report Input

 +7       ;AZXRVP4, Report re-print

 +8  +9   ;THE ROUTINES THAT CALL AZXRVP:

 +10      ;NONE 

 +11  +12 ;Variable List

 +13      ;AZXROPT=       Users input on which option they chose.

 +14 MAIN ;AZXRVP PROGRAM CONTROL    

 +1       ;SET LOCAL VARIABLES

 +2       ;D ^XBKSET  ;THIS LINE SHOULD BE UNCOMMENTED IF RUNNING

 +3       ;IN PROGRAMMERS' MODE ONLY!

 +4  +5    DO MAINMENU

 +6        KILL AZXROPT

 +7        QUIT 

 +8 MAINMENU ;MAIN MENU OF OPTIONS

 +1       ;CLEAR SCREEN

 +2        WRITE @IOF

 +3  +4    WRITE !!!!!!,?28,"Visits by Providers"

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

 +6        WRITE !,?32,"REPORT MENU"

 +7        WRITE !!!,?21,"Visits by Providers report.....[1]"

 +8        WRITE !,?21,"Visits by Providers re-print...[2]"

 +9        WRITE !,?21,"Quit...........................[0]"

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

           READ AZXROPT

 +11  +12  IF AZXROPT=1

               DO ^AZXRVP1A

               GOTO MAINMENU

 +13       IF AZXROPT=2

               DO ^AZXRVP4

               GOTO MAINMENU

 +14       IF (AZXROPT=0)!(AZXROPT="")!(AZXROPT="^")

               QUIT 

 +15       GOTO MAINMENU

 +16       QUIT