QANQSDT ;HISC/GJC-FM report for quarterly data rolled to region ;9/3/93 12:19
;;2.0;Incident Reporting;**21**;08/07/1992
;
;-----------------------------------------------------------------------
EN1 ;Enter at this point (1) |
;-----------------------------------------------------------------------
D KILL W @IOF ;Ensure a clean partition for EN1^DIP, clear screen.
K DIR S DIR(0)="Y",DIR("B")="Yes"
S DIR("A",1)="Do you wish generate a report which compiles"
S DIR("A")="Incident Event Data for a given quarter"
S DIR("?")="Enter 'Y' to create a report, 'N' to exit without a report."
D ^DIR K DIR
I +Y=0 D Q
. W !!?5,$C(7),"Incident Event Data Compilation Report will not be"
. W !?5,"generated, exiting."
. D KILL
S QAQDATE="'Q" D ^QAQDATE
I QAQQUIT D KILL Q
S BY=".02",DIC="^QA(742.6,",FLDS="[CAPTIONED]",FR=QAQNBEG
S DIASKHD="",TO=QAQNEND
S DHD="Incident Event Data Compilation For: "_$G(QAQ2HED)
D EN1^DIP
;-----------------------------------------------------------------------
KILL ;Kill and exit the option |
;-----------------------------------------------------------------------
K %,B,BY,DA,DCC,DG,DHD,DIASKHD,DIC,DIE,DIJ,DINS,DIPT,DK,DP,DR
K FLDS,FR,TO D K^QAQDATE,KILL^QAQDATE,HOME^%ZIS
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HQANQSDT 1350 printed Dec 13, 2024@02:00:02 Page 2
QANQSDT ;HISC/GJC-FM report for quarterly data rolled to region ;9/3/93 12:19
+1 ;;2.0;Incident Reporting;**21**;08/07/1992
+2 ;
+3 ;-----------------------------------------------------------------------
EN1 ;Enter at this point (1) |
+1 ;-----------------------------------------------------------------------
+2 ;Ensure a clean partition for EN1^DIP, clear screen.
DO KILL
WRITE @IOF
+3 KILL DIR
SET DIR(0)="Y"
SET DIR("B")="Yes"
+4 SET DIR("A",1)="Do you wish generate a report which compiles"
+5 SET DIR("A")="Incident Event Data for a given quarter"
+6 SET DIR("?")="Enter 'Y' to create a report, 'N' to exit without a report."
+7 DO ^DIR
KILL DIR
+8 IF +Y=0
Begin DoDot:1
+9 WRITE !!?5,$CHAR(7),"Incident Event Data Compilation Report will not be"
+10 WRITE !?5,"generated, exiting."
+11 DO KILL
End DoDot:1
QUIT
+12 SET QAQDATE="'Q"
DO ^QAQDATE
+13 IF QAQQUIT
DO KILL
QUIT
+14 SET BY=".02"
SET DIC="^QA(742.6,"
SET FLDS="[CAPTIONED]"
SET FR=QAQNBEG
+15 SET DIASKHD=""
SET TO=QAQNEND
+16 SET DHD="Incident Event Data Compilation For: "_$GET(QAQ2HED)
+17 DO EN1^DIP
+18 ;-----------------------------------------------------------------------
KILL ;Kill and exit the option |
+1 ;-----------------------------------------------------------------------
+2 KILL %,B,BY,DA,DCC,DG,DHD,DIASKHD,DIC,DIE,DIJ,DINS,DIPT,DK,DP,DR
+3 KILL FLDS,FR,TO
DO K^QAQDATE
DO KILL^QAQDATE
DO HOME^%ZIS
+4 QUIT
