AZXRBUG.m

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