source: FOIAVistA/trunk/r/INCIDENT_REPORTING-QAN/QANQSDT.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.3 KB
Line 
1QANQSDT ;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 ;-----------------------------------------------------------------------
5EN1 ;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 ;-----------------------------------------------------------------------
24KILL ;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
Note: See TracBrowser for help on using the repository browser.