AZXRBUG7 ;BUGDRUG2 Report Input PROGRAM [ 06/29/93 9:42 AM ]
;Version 1
;09/04/92 JOHN H. LYNCH
;
;ALLOWS THE USER TO INPUT THE FACILITY AND THE
;DATE RANGES FOR THE BUGDRUG2 REPORTS, 'Cultured
;Organisms by Source' AND 'Antibiotic Sensitivity'.
;THE ROUTINES THAT CALL AZXRBUG7:
;AZXRBUG5, Sensitivity Report.
;AZXRBUG6, Organisms by Source Report.
;THE ROUTINES THAT AZXRBUG7 CALLS:
;^DIC, Fileman Lookup.
;^%DT, Fileman Date Conversion.
;Variable List
;DIC= Global root of file for Fileman Lookup.
;DIC(0)= Fileman Lookup parameters.
;DIC("A")= Fileman Lookup default prompt.
;OPTION= Sent from AZXRBUG5 or AZXRBUG6 (specifies report type).
;BACKUP= Flags whether user wants to back up one prompt.
;%DT= Fileman Date Conversion parameters.
;%DT("A")= Fileman Date Conversion default prompt.
;Variables which are sent to either, AZXRBUG5 or AZXRBUG6:
;FACBKUP= Flag returned to AZXRBUG5 or AZXRBUG6 with data on
; whether user wants to quit.
;FAC= Facility in external form.
;FCLTY= Internal Number of site from SITES file.
;FDATE= Fileman From Date is returned in FDATE.
;TDATE= Fileman To Date is return in TDATE.
MAIN ;AZXRBUG7 PROGRAM CONTROL
D INPUT
D KILL
Q
INPUT ;ASK USER FOR THE FACILITY TO USE FOR REPORT
;THEN CALL FDATE ROUTINE
;SET LOCAL VARIABLES
S DIC="^DIZ(1991010," ;GLOBAL ROOT OF SITES FILE
;USED FOR LOOKUP
S DIC(0)="AEQZ" ;DIC(0)= LOOKUP VALUES
; A= ASK USER FOR INPUT
; E= ECHO ANSWER
; Q= QUESTION ERRONEOUS INPUT
; Z= ZERO NODE RETURNED IN
; Y(0) AND EXTERNAL FORM
; IN Y(0,0)
S DIC("A")="Enter Facility: " ;DIC("A")= DEFAULT PROMPT FOR
; LOOKUP
W @IOF ;CLEAR SCREEN
I OPTION=2 W !!!,"BugDrug2 'Antibiotic Sensitivity Report'...",!!
I OPTION=3 W !!!,"BugDrug2 'Cultured Organisms by Source Report'...",!!
FACILITY ;CALL FILEMAN LOOKUP FOR FACILITY
D ^DIC
I (X="^")!(X="") S FACBKUP="Y" Q ;X= USER INPUT VALUE FROM ^DIC
;FACBKUP= RETURNED VARIABLE
; WHICH TELLS WHETHER
; USER WANTS TO BACKUP
; A PROMPT
S FACBKUP="N" ;--USER DOESN'T WANT TO BACKOR
S FAC=Y(0,0) ;FAC= FACILITY IN EXTERNAL FROM
S FCLTY=$P(Y,U,1) ;FCLTY= INTERNAL NUMBER OF SITE
D FDATE
I BACKUP="Y" G FACILITY
Q
FDATE ;ASK USER FOR THE FROM DATE TO USE FOR REPORT
;SET LOCAL VARIABLES
S BACKUP="N" ;BACKUP= VARIABLE USED FOR
; CHECKING WHETHER USER
; WANTS TO BACK UP "^"
S %DT="AEX" ;VALIDATES DATE INPUT AND
;CONVERTS IT FOR STORAGE
; A= ASK FOR DATE INPUT
; E= ECHO ANSWER
; X= EXACT DATE REQUIRED
S %DT("A")="From Date: " ;%DT("A")= DEFAULT PROMPT;FDATE
D ^%DT ;CALL FILEMAN DATE CONVERSION
I (X="^")!(X="") S BACKUP="Y" Q ;USER WANTS TO BACK UP
I X?1.3"?" G FDATE ;INQUIRY TO HELP; GOTO FDATE
I Y=-1 W !!,*7,"Invalid Date: Press a '?' for help." G FDATE
;INVALID ENTRY; GOTO FDATE
S FDATE=Y ;FDATE= FILEMAN DATE RETURNED
; IN Y
D TDATE ;SET TO DATE
I BACKUP="Y" G FDATE ;USER WANTS TO BACK UP "^"
Q
TDATE ;ASK USER FOR THE TO DATE TO USE FOR REPORT
;SET LOCAL VARIABLE
S BACKUP="N" ;BACKUP= VARIABLE USED FOR
; CHECKING WHETHER USER
; WANTS TO BACK UP "^"
S %DT="AEX" ;VALIDATES DATE INPUT AND
;CONVERTS IT FOR STORAGE
; A= ASK FOR DATE INPUT
; E= ECHO ANSWER
; X= EXACT DATE REQUIRED
S %DT("A")="To Date: " ;%DT("A")= DEFAULT PROMPT;TDATE
D ^%DT ;CALL FILEMAN
I (X="^")!(X="") S BACKUP="Y" Q ;USER WANTS TO BACK UP
I X?1.3"?" G TDATE ;INQUIRY TO HELP; GOTO TDATE
I Y=-1 W !!,*7,"Invalid Date: Press a '?' for help." G TDATE
;INVALID ENTRY; GOTO TDATE
S TDATE=Y ;TDATE= FILEMAN DATE RETURNED
; IN Y
I TDATE<FDATE W !!,"'To Date' must be greater than or equal to 'From Date'",! G TDATE
Q
KILL ;KILL LOCAL VARIABLES AND EXIT ROUTINE AZXRBUG7
K DIC,BACKUP,%DT
Q
AZXRBUG7 ;BUGDRUG2 Report Input PROGRAM [ 06/29/93 9:42 AM ]
+1 ;Version 1
+2 ;09/04/92 JOHN H. LYNCH
+3 ;
+4 ;ALLOWS THE USER TO INPUT THE FACILITY AND THE
+5 ;DATE RANGES FOR THE BUGDRUG2 REPORTS, 'Cultured
+6 ;Organisms by Source' AND 'Antibiotic Sensitivity'.
+7 +8 ;THE ROUTINES THAT CALL AZXRBUG7:
+9 ;AZXRBUG5, Sensitivity Report.
+10 ;AZXRBUG6, Organisms by Source Report.
+11 +12 ;THE ROUTINES THAT AZXRBUG7 CALLS:
+13 ;^DIC, Fileman Lookup.
+14 ;^%DT, Fileman Date Conversion.
+15 +16 ;Variable List
+17 ;DIC= Global root of file for Fileman Lookup.
+18 ;DIC(0)= Fileman Lookup parameters.
+19 ;DIC("A")= Fileman Lookup default prompt.
+20 ;OPTION= Sent from AZXRBUG5 or AZXRBUG6 (specifies report type).
+21 ;BACKUP= Flags whether user wants to back up one prompt.
+22 ;%DT= Fileman Date Conversion parameters.
+23 ;%DT("A")= Fileman Date Conversion default prompt.
+24 +25 ;Variables which are sent to either, AZXRBUG5 or AZXRBUG6:
+26 ;FACBKUP= Flag returned to AZXRBUG5 or AZXRBUG6 with data on
+27 ; whether user wants to quit.
+28 ;FAC= Facility in external form.
+29 ;FCLTY= Internal Number of site from SITES file.
+30 ;FDATE= Fileman From Date is returned in FDATE.
+31 ;TDATE= Fileman To Date is return in TDATE.
+32 +33 MAIN ;AZXRBUG7 PROGRAM CONTROL
+1 +2 DO INPUT
+3 DO KILL
+4 QUIT
+5 INPUT ;ASK USER FOR THE FACILITY TO USE FOR REPORT
+1 ;THEN CALL FDATE ROUTINE
+2 ;SET LOCAL VARIABLES
+3 ;GLOBAL ROOT OF SITES FILE
SET DIC="^DIZ(1991010,"
+4 ;USED FOR LOOKUP
+5 +6 ;DIC(0)= LOOKUP VALUES
SET DIC(0)="AEQZ"
+7 ; A= ASK USER FOR INPUT
+8 ; E= ECHO ANSWER
+9 ; Q= QUESTION ERRONEOUS INPUT
+10 ; Z= ZERO NODE RETURNED IN
+11 ; Y(0) AND EXTERNAL FORM
+12 ; IN Y(0,0)
+13 +14 ;DIC("A")= DEFAULT PROMPT FOR
SET DIC("A")="Enter Facility: "
+15 ; LOOKUP
+16 +17 ;CLEAR SCREEN
WRITE @IOF
+18 +19 IF OPTION=2
WRITE !!!,"BugDrug2 'Antibiotic Sensitivity Report'...",!!
+20 IF OPTION=3
WRITE !!!,"BugDrug2 'Cultured Organisms by Source Report'...",!!
+21 FACILITY ;CALL FILEMAN LOOKUP FOR FACILITY
+1 DO ^DIC
+2 +3 ;X= USER INPUT VALUE FROM ^DIC
IF (X="^")!(X="")
SET FACBKUP="Y"
QUIT
+4 ;FACBKUP= RETURNED VARIABLE
+5 ; WHICH TELLS WHETHER
+6 ; USER WANTS TO BACKUP
+7 ; A PROMPT
+8 ;--USER DOESN'T WANT TO BACKOR
SET FACBKUP="N"
+9 +10 ;FAC= FACILITY IN EXTERNAL FROM
SET FAC=Y(0,0)
+11 +12 ;FCLTY= INTERNAL NUMBER OF SITE
SET FCLTY=$PIECE(Y,U,1)
+13 +14 DO FDATE
+15 +16 IF BACKUP="Y"
GOTO FACILITY
+17 QUIT
+18 FDATE ;ASK USER FOR THE FROM DATE TO USE FOR REPORT
+1 ;SET LOCAL VARIABLES
+2 ;BACKUP= VARIABLE USED FOR
SET BACKUP="N"
+3 ; CHECKING WHETHER USER
+4 ; WANTS TO BACK UP "^"
+5 +6 ;VALIDATES DATE INPUT AND
SET %DT="AEX"
+7 ;CONVERTS IT FOR STORAGE
+8 ; A= ASK FOR DATE INPUT
+9 ; E= ECHO ANSWER
+10 ; X= EXACT DATE REQUIRED
+11 +12 ;%DT("A")= DEFAULT PROMPT;FDATE
SET %DT("A")="From Date: "
+13 +14 ;CALL FILEMAN DATE CONVERSION
DO ^%DT
+15 +16 ;USER WANTS TO BACK UP
IF (X="^")!(X="")
SET BACKUP="Y"
QUIT
+17 ;INQUIRY TO HELP; GOTO FDATE
IF X?1.3"?"
GOTO FDATE
+18 IF Y=-1
WRITE !!,*7,"Invalid Date: Press a '?' for help."
GOTO FDATE
+19 ;INVALID ENTRY; GOTO FDATE
+20 +21 ;FDATE= FILEMAN DATE RETURNED
SET FDATE=Y
+22 ; IN Y
+23 +24 ;SET TO DATE
DO TDATE
+25 ;USER WANTS TO BACK UP "^"
IF BACKUP="Y"
GOTO FDATE
+26 QUIT
+27 TDATE ;ASK USER FOR THE TO DATE TO USE FOR REPORT
+1 ;SET LOCAL VARIABLE
+2 ;BACKUP= VARIABLE USED FOR
SET BACKUP="N"
+3 ; CHECKING WHETHER USER
+4 ; WANTS TO BACK UP "^"
+5 +6 ;VALIDATES DATE INPUT AND
SET %DT="AEX"
+7 ;CONVERTS IT FOR STORAGE
+8 ; A= ASK FOR DATE INPUT
+9 ; E= ECHO ANSWER
+10 ; X= EXACT DATE REQUIRED
+11 +12 ;%DT("A")= DEFAULT PROMPT;TDATE
SET %DT("A")="To Date: "
+13 +14 ;CALL FILEMAN
DO ^%DT
+15 +16 ;USER WANTS TO BACK UP
IF (X="^")!(X="")
SET BACKUP="Y"
QUIT
+17 ;INQUIRY TO HELP; GOTO TDATE
IF X?1.3"?"
GOTO TDATE
+18 IF Y=-1
WRITE !!,*7,"Invalid Date: Press a '?' for help."
GOTO TDATE
+19 ;INVALID ENTRY; GOTO TDATE
+20 +21 ;TDATE= FILEMAN DATE RETURNED
SET TDATE=Y
+22 ; IN Y
+23 IF TDATE<FDATE
WRITE !!,"'To Date' must be greater than or equal to 'From Date'",!
GOTO TDATE
+24 QUIT
+25 KILL ;KILL LOCAL VARIABLES AND EXIT ROUTINE AZXRBUG7
+1 KILL DIC,BACKUP,%DT
+2 QUIT
