AZXRBUG3.m

AZXRBUG3 ;BUGDRUG2 Reports PROGRAM [ 06/08/93  7:53 AM ]

 ;Version 1

 ;08/04/92   JOHN H. LYNCH

 ;

 ;ALLOWS THE DATA ENTRY PERSON TO CHOOSE WHICH

 ;REPORT TO PRINT FROM THE BUGDRUG2 DATABASE.

 ;THE ROUTINE THAT CALLS AZXRBUG3:

 ;AZXRBUG, Main

 ;THE ROUTINES THAT AZXRBUG3 CALLS:

 ;AZXRBUG4, Verification

 ;AZXRBUG5, Antibiotic Sensitivities

 ;AZXRBUG6, Cultured Organisms by Source

 ;AZXRBUG8, Code Print Report (Specimen or Organism)

 ;Variable List

 ;OPTION=           Users input on which report to run.

MAIN ;AZXRBUG3 PROGRAM CONTROL    

 ;SET LOCAL VARIABLES

 D MAINMENU

 K OPTION

 Q

MAINMENU ;MAIN MENU OF OPTIONS

 ;CLEAR SCREEN

 W @IOF

 W !!!!!!,?29,"BugDrug2 Database"

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

 W !,?34,"REPORTS"

 W !!,?21,"Verification...................[1]"

 W !,?21,"Antibiotic Sensitivity.........[2]"

 W !,?21,"Cultured Organisms by Source...[3]"

 W !,?21,"Organism/Specimen Code Print...[4]"

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

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

 I OPTION=1 D ^AZXRBUG4 G MAINMENU

 I OPTION=2 D ^AZXRBUG5 G MAINMENU

 I OPTION=3 D ^AZXRBUG6 G MAINMENU

 I OPTION=4 D ^AZXRBUG8 G MAINMENU

 I (OPTION=5)!(OPTION="")!(OPTION="^") Q

 G MAINMENU

 Q

AZXRBUG3  ;BUGDRUG2 Reports PROGRAM [ 06/08/93  7:53 AM ]

 +1       ;Version 1

 +2       ;08/04/92   JOHN H. LYNCH

 +3       ;

 +4       ;ALLOWS THE DATA ENTRY PERSON TO CHOOSE WHICH

 +5       ;REPORT TO PRINT FROM THE BUGDRUG2 DATABASE.

 +6  +7   ;THE ROUTINE THAT CALLS AZXRBUG3:

 +8       ;AZXRBUG, Main

 +9  +10  ;THE ROUTINES THAT AZXRBUG3 CALLS:

 +11      ;AZXRBUG4, Verification

 +12      ;AZXRBUG5, Antibiotic Sensitivities

 +13      ;AZXRBUG6, Cultured Organisms by Source

 +14      ;AZXRBUG8, Code Print Report (Specimen or Organism)

 +15  +16 ;Variable List

 +17      ;OPTION=           Users input on which report to run.

 +18 MAIN ;AZXRBUG3 PROGRAM CONTROL    

 +1       ;SET LOCAL VARIABLES

 +2  +3    DO MAINMENU

 +4        KILL OPTION

 +5        QUIT 

 +6 MAINMENU ;MAIN MENU OF OPTIONS

 +1       ;CLEAR SCREEN

 +2        WRITE @IOF

 +3  +4    WRITE !!!!!!,?29,"BugDrug2 Database"

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

 +6        WRITE !,?34,"REPORTS"

 +7        WRITE !!,?21,"Verification...................[1]"

 +8        WRITE !,?21,"Antibiotic Sensitivity.........[2]"

 +9        WRITE !,?21,"Cultured Organisms by Source...[3]"

 +10       WRITE !,?21,"Organism/Specimen Code Print...[4]"

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

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

           READ OPTION

 +13  +14  IF OPTION=1

               DO ^AZXRBUG4

               GOTO MAINMENU

 +15       IF OPTION=2

               DO ^AZXRBUG5

               GOTO MAINMENU

 +16       IF OPTION=3

               DO ^AZXRBUG6

               GOTO MAINMENU

 +17       IF OPTION=4

               DO ^AZXRBUG8

               GOTO MAINMENU

 +18       IF (OPTION=5)!(OPTION="")!(OPTION="^")

               QUIT 

 +19       GOTO MAINMENU

 +20       QUIT