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