- AZXRBUG ;BUGDRUG2 DATABASE PROGRAM [ 02/24/94 10:47 AM ]
- ;Version 1
- ;08/04/92 JOHN H. LYNCH
- ;
- ;BUGDRUG2 was created for facilities wanting to
- ;collect and analyze data for reporting capabilities
- ;on drug sensitivities. Three reports are provided
- ;with BUGDRUG2: A data input "Verification",
- ;"Cultured Organisms by Source" and "Antibiotic
- ;Sensitivity."
-
- ;THE ROUTINES THAT AZXRBUG CALLS:
- ;AZXRBUG1, Entry/Edit
- ;AZXRBUG2, Purge
- ;AZXRBUG3, Reports
-
- ;THE ROUTINES THAT AZXRBUG3 (Reports) CALLS:
- ;AZXRBUG4, Verification
- ;AZXRBUG5, Antibiotic Sensitivities
- ;AZXRBUG6, Cultured Organisms by Source
-
- ;AZXRBUG5 AND AZXRBUG6 CALL:
- ;AZXRBUG7, Reports Input
-
- ;Variable List
- ;OPTION= Users input on which option they chose.
-
- MAIN ;AZXRBUG 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 !!!!!!,?29,"BugDrug2 Database"
- W !,?21,"Phoenix Area Indian Health Service"
- W !,?32,"MAIN MENU"
- W !!!,?21,"Entry/Edit.....................[1]"
- W !,?21,"Purge..........................[2]"
- W !,?21,"Reports........................[3]"
- W !,?21,"Quit...........................[4]"
- W !!,?33,"Option: " R OPTION
-
- I OPTION=1 D ^AZXRBUG1 G MAINMENU
- I OPTION=2 D ^AZXRBUG2 G MAINMENU
- I OPTION=3 D ^AZXRBUG3 G MAINMENU
- I (OPTION=4)!(OPTION="")!(OPTION="^") Q
- G MAINMENU
- Q
- AZXRBUG ;BUGDRUG2 DATABASE PROGRAM [ 02/24/94 10:47 AM ]
- +1 ;Version 1
- +2 ;08/04/92 JOHN H. LYNCH
- +3 ;
- +4 ;BUGDRUG2 was created for facilities wanting to
- +5 ;collect and analyze data for reporting capabilities
- +6 ;on drug sensitivities. Three reports are provided
- +7 ;with BUGDRUG2: A data input "Verification",
- +8 ;"Cultured Organisms by Source" and "Antibiotic
- +9 ;Sensitivity."
- +10 +11 ;THE ROUTINES THAT AZXRBUG CALLS:
- +12 ;AZXRBUG1, Entry/Edit
- +13 ;AZXRBUG2, Purge
- +14 ;AZXRBUG3, Reports
- +15 +16 ;THE ROUTINES THAT AZXRBUG3 (Reports) CALLS:
- +17 ;AZXRBUG4, Verification
- +18 ;AZXRBUG5, Antibiotic Sensitivities
- +19 ;AZXRBUG6, Cultured Organisms by Source
- +20 +21 ;AZXRBUG5 AND AZXRBUG6 CALL:
- +22 ;AZXRBUG7, Reports Input
- +23 +24 ;Variable List
- +25 ;OPTION= Users input on which option they chose.
- +26 MAIN ;AZXRBUG 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 OPTION
- +7 QUIT
- +8 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 !,?32,"MAIN MENU"
- +7 WRITE !!!,?21,"Entry/Edit.....................[1]"
- +8 WRITE !,?21,"Purge..........................[2]"
- +9 WRITE !,?21,"Reports........................[3]"
- +10 WRITE !,?21,"Quit...........................[4]"
- +11 WRITE !!,?33,"Option: "
- READ OPTION
- +12 +13 IF OPTION=1
- DO ^AZXRBUG1
- GOTO MAINMENU
- +14 IF OPTION=2
- DO ^AZXRBUG2
- GOTO MAINMENU
- +15 IF OPTION=3
- DO ^AZXRBUG3
- GOTO MAINMENU
- +16 IF (OPTION=4)!(OPTION="")!(OPTION="^")
- QUIT
- +17 GOTO MAINMENU
- +18 QUIT
