QANQSDT.m

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 ---QANQSDT   1350     printed  Apr 09, 2024@21:01:52                                                                                                                                                                                                     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