- 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
