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
