- AZXRBUG4 ;BUGDRUG2 Verfication PROGRAM [ 09/23/94 9:52 AM ]
- ;Version 1
- ;08/04/92 JOHN H. LYNCH
- ;
- ;ALLOWS THE DATA ENTRY PERSON TO VERIFY DATA INPUT
- ;FOR A PARTICULAR FACILITY AND FOR A PARTICULAR DATE.
- ;ALL DATA WILL BE DISPLAYED IN THE ORDER IT WAS
- ;ENTERED INTO THE BUGDRUG2 DATABASE.
-
- ;THE ROUTINES THAT CALL AZXRBUG4:
- ;AZXRBUG3, Reports Menu
-
- ;THE ROUTINES THAT AZXRBUG4 CALLS:
- ;DIC (FILEMAN LOOKUP ROUTINE)
- ;%DT (FILEMAN DATE CONVERSION ROUTINE)
- ;%ZIS (KERNAL DEVICE HANDLER)
-
- ;Variable List
- ;PG= Current page count.
- ;LN= Current line count.
- ;DIC= Global root of file for lookup.
- ;DIC(0)= Parameters for lookup.
- ;DIC("A")= Default prompt for lookup.
- ;FAC= External form for facility.
- ;FCLTY= Internal number for facility.
- ;BACKUP= Flag used for user wanting to back up a prompt.
- ;%DT= Parameters for date conversion.
- ;%DT("A")= Default prompt for date input.
- ;DATE= Fileman converted date to external form.
- ;LDATE= Starting point date for print loop (REPORT
- ; SUB-ROUTINE).
- ;%ZIS("B")= Don't use HOME as default device.
- ;BORDER= Special border for printout.
- ;BORDER2= Special border for printout.
- ;BORDER3= Special border for printout.
- ;BORDER4= Special border for printout.
- ;HEADER= Special header for printout.
- ;HEADER1= Special header for printout.
- ;Y= Date value used for conversion.
- ;DA= Internal entry number used in print loop (REPORT
- ; SUB-ROUTINE).
- ;NODE= Current entry to be printed.
- ;ORG= Current Organism_Code.
- ;SPEC= Current Specimen_Code.
- ;X= Current lookup value.
- ;YN= User input on whether to print another report.
-
- MAIN ;AZXRBUG4 PROGRAM CONTROL
- ;SET LOCAL VARIABLES
- S PG=0 ;INITIALIZE PAGE NUMBER
- S LN=0 ;INITIALIZE LINE COUNTER
-
- D INPUT
- D KILL
-
- Q
-
- INPUT ;ASK USER FOR THE FACILITY TO USE FOR VERIFICATION
- ;THEN CALL ROUTINE, DATE.
- ;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
- W !!!,"BugDrug2 Verification...",!!
- FACILITY ;CALL FILEMAN LOOKUP FOR FACILITY
- D ^DIC
-
- I (X="^")!(X="") Q ;X= USER INPUT VALUE FROM ^DIC
-
- S FAC=Y(0,0) ;FAC= FACILITY IN EXTERNAL FORM
- S FCLTY=$P(Y,U,1) ;FCLTY= INTERNAL NUMBER OF SITE
-
- D DATE
- I BACKUP="Y" G FACILITY
- Q
-
- DATE ;ASK USER FOR THE DATE TO USE FOR VERIFICATION
- ;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")="Enter Date: " ;%DT= DEFAULT PROMPT FOR DATE
-
- D ^%DT ;CALL FILEMAN DATE CONVERSION
-
- I X="^" S BACKUP="Y" Q ;USER WANTS TO BACK UP
- I X?1.3"?" G DATE ;INQUIRY TO HELP; GOTO DATE
- I Y=-1 W !!,*7,"Invalid Date: Press a '?' for help." G DATE
- ;INVALID ENTRY; GOTO DATE
-
- S DATE=Y ;DATE= FILEMAN DATE RETURNED
- ; IN Y
-
- D REPORT ;PRINT VERIFICATION REPORT
- Q
-
- REPORT ;OPEN DEVICE AND PRINT OUT VERIFICATION REPORT
- ;SET LOCAL VARIABLES
- S LDATE=DATE-1 ;STARTING POINT FOR PRINT
- ;LOOP
-
- S %ZIS("B")="" ;DON'T USE HOME AS DEFAULT
- ;DEVICE
-
- S BORDER="____________________________________________________________________________________________________________________________"
-
- S BORDER2="___________________________________|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|"
-
- S BORDER3="| | | | | | | | | | | | | | | | | | | | | | |"
- S BORDER4="|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|"
-
- S HEADER=" Organism_Name"
-
- S HEADER1="Rec_# Specimen_Name |CC |E |DP |P |AM |CF |C |FM |GM |SxT|TE |CB |NA |CP |CAX|VA |AUG|CRM|TI |PI |AK |CFX|"
- ;VERIFICATION HEADER LINE2
-
- W !
-
- D ^%ZIS U IO ;OPEN DEVICE
-
- I IO="" Q ;USER WANTS OUT
- I IO(0)=IO W !,*7,"The Verification must be printed.",! X ^%ZIS("C") G REPORT
-
- S Y=DATE ;CONVERT TO EXTERNAL DATE
- D DD^%DT ;VALUE RETURNED IN Y
- S RDATE=Y ;DATE= REPORT DATE
-
- F S LDATE=$O(^DIZ(1991020,"DF",LDATE)) Q:LDATE>DATE Q:'LDATE S DA=0 F S DA=$O(^DIZ(1991020,"DF",LDATE,FCLTY,DA)) Q:'DA D:(LN>(IOSL-2)) HEADING D PRTINFO
-
- X ^%ZIS("C") ;CLOSE DEVICE
- D CONT
- Q
-
- PRTINFO ;PRINT THE INFORMATION LINE OUT TO PRINTER
- ;SET LOCAL VARIABLES
- S DIC(0)="NXZ" ;N= INTERNAL NUMBER LOOKUP
- ;X= EXACT MATCH REQUIRED
- ;Z= VALUES RETURNED IN Y=N^S
- ; N= INTERNAL ENTRY NUMBER
- ; S= VALUE OF .01 FIELD
-
- I PG=0 D HEADING ;PRINT FIRST HEADING
-
- S LN=LN+3 ;ADD 3 TO LINE COUNTER
-
- I LN=13 W !
- I LN>13 W !,?35,BORDER4,!
-
- S NODE=^DIZ(1991020,DA,0) ;NODE= CURRENT ENTRY
-
- S ORG=$P(NODE,U,4) ;SET Organism_Code
- S DIC="^DIZ(1991018," ;DIC= ORGANISM FILE
- S X=ORG ;X= LOOKUP VALUE (ORG)
- D ^DIC ;DO FILEMAN LOOKUP
- S ORG=$P(^DIZ(1991018,$P(Y,U,1),0),U,1)
- ;ORG= Organism_Name
- W ?7,$E(ORG,1,27) ;PRINT Organism_Name
-
- W ?35,BORDER3
-
- W !,$J($P(NODE,U,1),5) ;PRINT Record Number
-
- S SPEC=$P(NODE,U,5) ;SET Specimen_Code
- S DIC="^DIZ(1991019," ;DIC= SPECIMEN FILE
- S X=SPEC ;X= LOOKUP VALUE (SPEC)
- D ^DIC ;DO FILEMAN LOOKUP
- S SPEC=$P(^DIZ(1991019,$P(Y,U,1),0),U,1)
- ;SPEC= Specimen_Name
- W ?7,$E(SPEC,1,27) ;PRINT Specimen_Name
-
- W ?35,"|"
- W ?36,$P(NODE,U,16) ;PRINT CC
- W ?39,"|"
- W ?40,$P(NODE,U,17) ;PRINT E
- W ?43,"|"
- W ?44,$P(NODE,U,19) ;PRINT DP
- W ?47,"|"
- W ?48,$P(NODE,U,22) ;PRINT P
- W ?51,"|"
- W ?52,$P(NODE,U,8) ;PRINT AM
- W ?55,"|"
- W ?56,$P(NODE,U,13) ;PRINT CF
- W ?59,"|"
- W ?60,$P(NODE,U,14) ;PRINT C
- W ?63,"|"
- W ?64,$P(NODE,U,21) ;PRINT FM
- W ?67,"|"
- W ?68,$P(NODE,U,18) ;PRINT GM
- W ?71,"|"
- W ?72,$P(NODE,U,24) ;PRINT SxT
- W ?75,"|"
- W ?76,$P(NODE,U,25) ;PRINT TE
- W ?79,"|"
- W ?80,$P(NODE,U,9) ;PRINT CB
- W ?83,"|"
- W ?84,$P(NODE,U,20) ;PRINT NA
- W ?87,"|"
- W ?88,$P(NODE,U,15) ;PRINT CP
- W ?91,"|"
- W ?92,$P(NODE,U,11) ;PRINT CAX
- W ?95,"|"
- W ?96,$P(NODE,U,27) ;PRINT VA
- W ?99,"|"
- W ?100,$P(NODE,U,7) ;PRINT AUG
- W ?103,"|"
- W ?104,$P(NODE,U,12) ;PRINT CRM
- W ?107,"|"
- W ?108,$P(NODE,U,26) ;PRINT TI
- W ?111,"|"
- W ?112,$P(NODE,U,23) ;PRINT PI
- W ?115,"|"
- W ?116,$P(NODE,U,6) ;PRINT AK
- W ?119,"|"
- W ?120,$P(NODE,U,10) ;PRINT CFX
- W ?123,"|"
- Q
-
- HEADING ;HEADING TO EACH PAGE OF THE VERIFICATION
-
- I PG>0 W # ;SEND FORMFEED
- S PG=PG+1 ;INCREMENT PAGE NUMBER
-
- W !,BORDER,!
- W !,"BugDrug2 Verification Report",?106,"Date: ",RDATE
- W !!,"Facility: ",FAC,?106,"Page: ",PG
- W !,BORDER
- W !!,HEADER
- W !,HEADER1
- W !,BORDER2
- S LN=10 ;INITIALIZE LINE COUNTER
- ;HEADER USES 10 LINES
- Q
-
- CONT ;ASK USER WHETHER TO CONTINUE WITH VERIFICATION PRINT
- ;SET LOCAL VARIABLES
- S PG=0 ;INITIALIZE PAGE COUNTER
- S LN=0 ;INITIALIZE LINE COUNTER
-
- R !!!!!!!,"Do you want to print another Verification? N//",YN
- ;ASK USER WHETHER TO CONTINUE?
-
- I YN?1.3"?" W !!,"Answer with: Y= Yes, N= No" G CONT
- ;USER WANTS HELP
-
- I (YN?1"Y")!(YN?1"y")!(YN?1"YES")!(YN?1"yes") D INPUT
- Q
-
- KILL ;KILL LOCAL VARIABLES AND EXIT ROUTINE AZXRBUG4
- K PG,LN,DIC,FAC,FCLTY,BACKUP,%DT,DATE
- K LDATE,%ZIS,BORDER,BORDER2,BORDER3,BORDER4
- K HEADER,HEADER1,Y,RDATE,DA,NODE,ORG,DIC
- K SPEC,X,YN
- Q
- AZXRBUG4 ;BUGDRUG2 Verfication PROGRAM [ 09/23/94 9:52 AM ]
- +1 ;Version 1
- +2 ;08/04/92 JOHN H. LYNCH
- +3 ;
- +4 ;ALLOWS THE DATA ENTRY PERSON TO VERIFY DATA INPUT
- +5 ;FOR A PARTICULAR FACILITY AND FOR A PARTICULAR DATE.
- +6 ;ALL DATA WILL BE DISPLAYED IN THE ORDER IT WAS
- +7 ;ENTERED INTO THE BUGDRUG2 DATABASE.
- +8 +9 ;THE ROUTINES THAT CALL AZXRBUG4:
- +10 ;AZXRBUG3, Reports Menu
- +11 +12 ;THE ROUTINES THAT AZXRBUG4 CALLS:
- +13 ;DIC (FILEMAN LOOKUP ROUTINE)
- +14 ;%DT (FILEMAN DATE CONVERSION ROUTINE)
- +15 ;%ZIS (KERNAL DEVICE HANDLER)
- +16 +17 ;Variable List
- +18 ;PG= Current page count.
- +19 ;LN= Current line count.
- +20 ;DIC= Global root of file for lookup.
- +21 ;DIC(0)= Parameters for lookup.
- +22 ;DIC("A")= Default prompt for lookup.
- +23 ;FAC= External form for facility.
- +24 ;FCLTY= Internal number for facility.
- +25 ;BACKUP= Flag used for user wanting to back up a prompt.
- +26 ;%DT= Parameters for date conversion.
- +27 ;%DT("A")= Default prompt for date input.
- +28 ;DATE= Fileman converted date to external form.
- +29 ;LDATE= Starting point date for print loop (REPORT
- +30 ; SUB-ROUTINE).
- +31 ;%ZIS("B")= Don't use HOME as default device.
- +32 ;BORDER= Special border for printout.
- +33 ;BORDER2= Special border for printout.
- +34 ;BORDER3= Special border for printout.
- +35 ;BORDER4= Special border for printout.
- +36 ;HEADER= Special header for printout.
- +37 ;HEADER1= Special header for printout.
- +38 ;Y= Date value used for conversion.
- +39 ;DA= Internal entry number used in print loop (REPORT
- +40 ; SUB-ROUTINE).
- +41 ;NODE= Current entry to be printed.
- +42 ;ORG= Current Organism_Code.
- +43 ;SPEC= Current Specimen_Code.
- +44 ;X= Current lookup value.
- +45 ;YN= User input on whether to print another report.
- +46 MAIN ;AZXRBUG4 PROGRAM CONTROL
- +1 ;SET LOCAL VARIABLES
- +2 ;INITIALIZE PAGE NUMBER
- SET PG=0
- +3 ;INITIALIZE LINE COUNTER
- SET LN=0
- +4 +5 DO INPUT
- +6 DO KILL
- +7 +8 QUIT
- +9 INPUT ;ASK USER FOR THE FACILITY TO USE FOR VERIFICATION
- +1 ;THEN CALL ROUTINE, DATE.
- +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 WRITE !!!,"BugDrug2 Verification...",!!
- FACILITY ;CALL FILEMAN LOOKUP FOR FACILITY
- +1 DO ^DIC
- +2 +3 ;X= USER INPUT VALUE FROM ^DIC
- IF (X="^")!(X="")
- QUIT
- +4 +5 ;FAC= FACILITY IN EXTERNAL FORM
- SET FAC=Y(0,0)
- +6 ;FCLTY= INTERNAL NUMBER OF SITE
- SET FCLTY=$PIECE(Y,U,1)
- +7 +8 DO DATE
- +9 IF BACKUP="Y"
- GOTO FACILITY
- +10 QUIT
- +11 DATE ;ASK USER FOR THE DATE TO USE FOR VERIFICATION
- +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= DEFAULT PROMPT FOR DATE
- SET %DT("A")="Enter Date: "
- +13 +14 ;CALL FILEMAN DATE CONVERSION
- DO ^%DT
- +15 +16 ;USER WANTS TO BACK UP
- IF X="^"
- SET BACKUP="Y"
- QUIT
- +17 ;INQUIRY TO HELP; GOTO DATE
- IF X?1.3"?"
- GOTO DATE
- +18 IF Y=-1
- WRITE !!,*7,"Invalid Date: Press a '?' for help."
- GOTO DATE
- +19 ;INVALID ENTRY; GOTO DATE
- +20 +21 ;DATE= FILEMAN DATE RETURNED
- SET DATE=Y
- +22 ; IN Y
- +23 +24 ;PRINT VERIFICATION REPORT
- DO REPORT
- +25 QUIT
- +26 REPORT ;OPEN DEVICE AND PRINT OUT VERIFICATION REPORT
- +1 ;SET LOCAL VARIABLES
- +2 ;STARTING POINT FOR PRINT
- SET LDATE=DATE-1
- +3 ;LOOP
- +4 +5 ;DON'T USE HOME AS DEFAULT
- SET %ZIS("B")=""
- +6 ;DEVICE
- +7 +8 SET BORDER="____________________________________________________________________________________________________________________________"
- +9 +10 SET BORDER2="___________________________________|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|"
- +11 +12 SET BORDER3="| | | | | | | | | | | | | | | | | | | | | | |"
- +13 SET BORDER4="|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|"
- +14 +15 SET HEADER=" Organism_Name"
- +16 +17 SET HEADER1="Rec_# Specimen_Name |CC |E |DP |P |AM |CF |C |FM |GM |SxT|TE |CB |NA |CP |CAX|VA |AUG|CRM|TI |PI |AK |CFX|"
- +18 ;VERIFICATION HEADER LINE2
- +19 +20 WRITE !
- +21 +22 ;OPEN DEVICE
- DO ^%ZIS
- USE IO
- +23 +24 ;USER WANTS OUT
- IF IO=""
- QUIT
- +25 IF IO(0)=IO
- WRITE !,*7,"The Verification must be printed.",!
- XECUTE ^%ZIS("C")
- GOTO REPORT
- +26 +27 ;CONVERT TO EXTERNAL DATE
- SET Y=DATE
- +28 ;VALUE RETURNED IN Y
- DO DD^%DT
- +29 ;DATE= REPORT DATE
- SET RDATE=Y
- +30 +31 FOR
- SET LDATE=$ORDER(^DIZ(1991020,"DF",LDATE))
- IF LDATE>DATE
- QUIT
- IF 'LDATE
- QUIT
- SET DA=0
- FOR
- SET DA=$ORDER(^DIZ(1991020,"DF",LDATE,FCLTY,DA))
- IF 'DA
- QUIT
- IF (LN>(IOSL-2))
- DO HEADING
- DO PRTINFO
- +32 +33 ;CLOSE DEVICE
- XECUTE ^%ZIS("C")
- +34 DO CONT
- +35 QUIT
- +36 PRTINFO ;PRINT THE INFORMATION LINE OUT TO PRINTER
- +1 ;SET LOCAL VARIABLES
- +2 ;N= INTERNAL NUMBER LOOKUP
- SET DIC(0)="NXZ"
- +3 ;X= EXACT MATCH REQUIRED
- +4 ;Z= VALUES RETURNED IN Y=N^S
- +5 ; N= INTERNAL ENTRY NUMBER
- +6 ; S= VALUE OF .01 FIELD
- +7 +8 ;PRINT FIRST HEADING
- IF PG=0
- DO HEADING
- +9 +10 ;ADD 3 TO LINE COUNTER
- SET LN=LN+3
- +11 +12 IF LN=13
- WRITE !
- +13 IF LN>13
- WRITE !,?35,BORDER4,!
- +14 +15 ;NODE= CURRENT ENTRY
- SET NODE=^DIZ(1991020,DA,0)
- +16 +17 ;SET Organism_Code
- SET ORG=$PIECE(NODE,U,4)
- +18 ;DIC= ORGANISM FILE
- SET DIC="^DIZ(1991018,"
- +19 ;X= LOOKUP VALUE (ORG)
- SET X=ORG
- +20 ;DO FILEMAN LOOKUP
- DO ^DIC
- +21 SET ORG=$PIECE(^DIZ(1991018,$PIECE(Y,U,1),0),U,1)
- +22 ;ORG= Organism_Name
- +23 ;PRINT Organism_Name
- WRITE ?7,$EXTRACT(ORG,1,27)
- +24 +25 WRITE ?35,BORDER3
- +26 +27 ;PRINT Record Number
- WRITE !,$JUSTIFY($PIECE(NODE,U,1),5)
- +28 +29 ;SET Specimen_Code
- SET SPEC=$PIECE(NODE,U,5)
- +30 ;DIC= SPECIMEN FILE
- SET DIC="^DIZ(1991019,"
- +31 ;X= LOOKUP VALUE (SPEC)
- SET X=SPEC
- +32 ;DO FILEMAN LOOKUP
- DO ^DIC
- +33 SET SPEC=$PIECE(^DIZ(1991019,$PIECE(Y,U,1),0),U,1)
- +34 ;SPEC= Specimen_Name
- +35 ;PRINT Specimen_Name
- WRITE ?7,$EXTRACT(SPEC,1,27)
- +36 +37 WRITE ?35,"|"
- +38 ;PRINT CC
- WRITE ?36,$PIECE(NODE,U,16)
- +39 WRITE ?39,"|"
- +40 ;PRINT E
- WRITE ?40,$PIECE(NODE,U,17)
- +41 WRITE ?43,"|"
- +42 ;PRINT DP
- WRITE ?44,$PIECE(NODE,U,19)
- +43 WRITE ?47,"|"
- +44 ;PRINT P
- WRITE ?48,$PIECE(NODE,U,22)
- +45 WRITE ?51,"|"
- +46 ;PRINT AM
- WRITE ?52,$PIECE(NODE,U,8)
- +47 WRITE ?55,"|"
- +48 ;PRINT CF
- WRITE ?56,$PIECE(NODE,U,13)
- +49 WRITE ?59,"|"
- +50 ;PRINT C
- WRITE ?60,$PIECE(NODE,U,14)
- +51 WRITE ?63,"|"
- +52 ;PRINT FM
- WRITE ?64,$PIECE(NODE,U,21)
- +53 WRITE ?67,"|"
- +54 ;PRINT GM
- WRITE ?68,$PIECE(NODE,U,18)
- +55 WRITE ?71,"|"
- +56 ;PRINT SxT
- WRITE ?72,$PIECE(NODE,U,24)
- +57 WRITE ?75,"|"
- +58 ;PRINT TE
- WRITE ?76,$PIECE(NODE,U,25)
- +59 WRITE ?79,"|"
- +60 ;PRINT CB
- WRITE ?80,$PIECE(NODE,U,9)
- +61 WRITE ?83,"|"
- +62 ;PRINT NA
- WRITE ?84,$PIECE(NODE,U,20)
- +63 WRITE ?87,"|"
- +64 ;PRINT CP
- WRITE ?88,$PIECE(NODE,U,15)
- +65 WRITE ?91,"|"
- +66 ;PRINT CAX
- WRITE ?92,$PIECE(NODE,U,11)
- +67 WRITE ?95,"|"
- +68 ;PRINT VA
- WRITE ?96,$PIECE(NODE,U,27)
- +69 WRITE ?99,"|"
- +70 ;PRINT AUG
- WRITE ?100,$PIECE(NODE,U,7)
- +71 WRITE ?103,"|"
- +72 ;PRINT CRM
- WRITE ?104,$PIECE(NODE,U,12)
- +73 WRITE ?107,"|"
- +74 ;PRINT TI
- WRITE ?108,$PIECE(NODE,U,26)
- +75 WRITE ?111,"|"
- +76 ;PRINT PI
- WRITE ?112,$PIECE(NODE,U,23)
- +77 WRITE ?115,"|"
- +78 ;PRINT AK
- WRITE ?116,$PIECE(NODE,U,6)
- +79 WRITE ?119,"|"
- +80 ;PRINT CFX
- WRITE ?120,$PIECE(NODE,U,10)
- +81 WRITE ?123,"|"
- +82 QUIT
- +83 HEADING ;HEADING TO EACH PAGE OF THE VERIFICATION
- +1 +2 ;SEND FORMFEED
- IF PG>0
- WRITE #
- +3 ;INCREMENT PAGE NUMBER
- SET PG=PG+1
- +4 +5 WRITE !,BORDER,!
- +6 WRITE !,"BugDrug2 Verification Report",?106,"Date: ",RDATE
- +7 WRITE !!,"Facility: ",FAC,?106,"Page: ",PG
- +8 WRITE !,BORDER
- +9 WRITE !!,HEADER
- +10 WRITE !,HEADER1
- +11 WRITE !,BORDER2
- +12 ;INITIALIZE LINE COUNTER
- SET LN=10
- +13 ;HEADER USES 10 LINES
- +14 QUIT
- +15 CONT ;ASK USER WHETHER TO CONTINUE WITH VERIFICATION PRINT
- +1 ;SET LOCAL VARIABLES
- +2 ;INITIALIZE PAGE COUNTER
- SET PG=0
- +3 ;INITIALIZE LINE COUNTER
- SET LN=0
- +4 +5 READ !!!!!!!,"Do you want to print another Verification? N//",YN
- +6 ;ASK USER WHETHER TO CONTINUE?
- +7 +8 IF YN?1.3"?"
- WRITE !!,"Answer with: Y= Yes, N= No"
- GOTO CONT
- +9 ;USER WANTS HELP
- +10 +11 IF (YN?1"Y")!(YN?1"y")!(YN?1"YES")!(YN?1"yes")
- DO INPUT
- +12 QUIT
- +13 KILL ;KILL LOCAL VARIABLES AND EXIT ROUTINE AZXRBUG4
- +1 KILL PG,LN,DIC,FAC,FCLTY,BACKUP,%DT,DATE
- +2 KILL LDATE,%ZIS,BORDER,BORDER2,BORDER3,BORDER4
- +3 KILL HEADER,HEADER1,Y,RDATE,DA,NODE,ORG,DIC
- +4 KILL SPEC,X,YN
- +5 QUIT