QAOSPSS.m

QAOSPSS ;HISC/DAD-OCCURRENCE SERVICE STATISTICS DRIVER ;6/11/93  15:41

 ;;3.0;Occurrence Screen;;09/14/1993

ASK ;

 R !!,"Do you want the report sorted by CRITERIA or SERVICE: CRITERIA// ",X:DTIME S:'$T X="^" G:$E(X)="^" EXIT X ^%ZOSF("UPPERCASE") S X=Y,QAOSSORT=$S(X]"":$E(X),1:"C")

 I $F("^CRITERIA^SERVICE","^"_X)'>0 W:$E(X)'="?" " ??",*7 D  G ASK

 . W !!?5,"Enter SERVICE to produce a report sorted by Service."

 . W !?7,"(This option produces a 'table-like' report.)"

 . W !?5,"Enter CRITERIA to produce a report sorted by Screen Criteria."

 . W !?7,"(This option produces a 'spreadsheet-like' report.)"

 . Q

 W $P($P("^CRITERIA^SERVICE","^"_X,2),"^"),!

 K DIR S DIR(0)="LO^1:3^K:X[""."" X",DIR("A")="Select screen criteria to include",DIR("B")=1

 S DIR("?",1)="Choose from:",DIR("?",2)="  1   National",DIR("?",3)="  2   Local",DIR("?",4)="  3   Inactive",DIR("?")="Select any combination of the codes listed above, e.g. 1-3, 1,2"

 D ^DIR G:$D(DIRUT) EXIT S QAOSLIST(0)=Y

 W !!,"Select the reporting period:" D ^QAQDATE G:QAQQUIT EXIT

ZIS K %ZIS S %ZIS="QM" D ^%ZIS G:POP EXIT

 I $D(IO("Q")) S ZTRTN="ENTSK^QAOSPSS",ZTDESC="Occurrence Screen Service Statistics Report",ZTSAVE("QAQ*")="",ZTSAVE("QAO*")="" D ^%ZTLOAD G EXIT

ENTSK D ^QAOSPSS0 U IO D ^QAOSPSS1:QAOSSORT="S",^QAOSPSS2:QAOSSORT="C"

EXIT ;

 W ! D ^%ZISC

 K %DT,%ZIS,DIR,DIRUT,POP,QA,QAO,QAOPIECE,QAOS,QAOSD0,QAOSDATE,QAOSHIEN,QAOSLIST,QAOSPAGE,QAOSQUIT,QAOSRVT,QAOSSCRN,QAOSSEQ,QAOSSERV,QAOSSORT,QAOSTEMP,QAOSTYPE,QAOSWIEN,QAOSZERO,TAB,TODAY,UNDL,X,Y,ZTRTN,ZTSAVE,ZTDESC

 K ^UTILITY($J,"QAOSPSS"),^UTILITY($J,"QAOSXREF"),^UTILITY($J,"QAOQIP")

 K QAOSD1,QAOSCLIN,QAOSFIND,QAOSEXCP,FLG,COLTOT,ROWTOT,QAOSCRN

 D K^QAQDATE S:$D(ZTQUEUED) ZTREQ="@"

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---QAOSPSS   1738     printed  Mar 13, 2025@21:26:57                                                                                                                                                                                                     Page 2

QAOSPSS   ;HISC/DAD-OCCURRENCE SERVICE STATISTICS DRIVER ;6/11/93  15:41

 +1       ;;3.0;Occurrence Screen;;09/14/1993

ASK       ;

 +1        READ !!,"Do you want the report sorted by CRITERIA or SERVICE: CRITERIA// ",X:DTIME

           if '$TEST

               SET X="^"

           if $EXTRACT(X)="^"

               GOTO EXIT

           XECUTE ^%ZOSF("UPPERCASE")

           SET X=Y

           SET QAOSSORT=$SELECT(X]"":$EXTRACT(X),1:"C")

 +2        IF $FIND("^CRITERIA^SERVICE","^"_X)'>0

               if $EXTRACT(X)'="?"

                   WRITE " ??",*7

               Begin DoDot:1

 +3                WRITE !!?5,"Enter SERVICE to produce a report sorted by Service."

 +4                WRITE !?7,"(This option produces a 'table-like' report.)"

 +5                WRITE !?5,"Enter CRITERIA to produce a report sorted by Screen Criteria."

 +6                WRITE !?7,"(This option produces a 'spreadsheet-like' report.)"

 +7                QUIT 

               End DoDot:1

               GOTO ASK

 +8        WRITE $PIECE($PIECE("^CRITERIA^SERVICE","^"_X,2),"^"),!

 +9        KILL DIR

           SET DIR(0)="LO^1:3^K:X[""."" X"

           SET DIR("A")="Select screen criteria to include"

           SET DIR("B")=1

 +10       SET DIR("?",1)="Choose from:"

           SET DIR("?",2)="  1   National"

           SET DIR("?",3)="  2   Local"

           SET DIR("?",4)="  3   Inactive"

           SET DIR("?")="Select any combination of the codes listed above, e.g. 1-3, 1,2"

 +11       DO ^DIR

           if $DATA(DIRUT)

               GOTO EXIT

           SET QAOSLIST(0)=Y

 +12       WRITE !!,"Select the reporting period:"

           DO ^QAQDATE

           if QAQQUIT

               GOTO EXIT

ZIS        KILL %ZIS

           SET %ZIS="QM"

           DO ^%ZIS

           if POP

               GOTO EXIT

 +1        IF $DATA(IO("Q"))

               SET ZTRTN="ENTSK^QAOSPSS"

               SET ZTDESC="Occurrence Screen Service Statistics Report"

               SET ZTSAVE("QAQ*")=""

               SET ZTSAVE("QAO*")=""

               DO ^%ZTLOAD

               GOTO EXIT

ENTSK      DO ^QAOSPSS0

           USE IO

           if QAOSSORT="S"

               DO ^QAOSPSS1

           if QAOSSORT="C"

               DO ^QAOSPSS2

EXIT      ;

 +1        WRITE !

           DO ^%ZISC

 +2        KILL %DT,%ZIS,DIR,DIRUT,POP,QA,QAO,QAOPIECE,QAOS,QAOSD0,QAOSDATE,QAOSHIEN,QAOSLIST,QAOSPAGE,QAOSQUIT,QAOSRVT,QAOSSCRN,QAOSSEQ,QAOSSERV,QAOSSORT,QAOSTEMP,QAOSTYPE,QAOSWIEN,QAOSZERO,TAB,TODAY,UNDL,X,Y,ZTRTN,ZTSAVE,ZTDESC

 +3        KILL ^UTILITY($JOB,"QAOSPSS"),^UTILITY($JOB,"QAOSXREF"),^UTILITY($JOB,"QAOQIP")

 +4        KILL QAOSD1,QAOSCLIN,QAOSFIND,QAOSEXCP,FLG,COLTOT,ROWTOT,QAOSCRN

 +5        DO K^QAQDATE

           if $DATA(ZTQUEUED)

               SET ZTREQ="@"

 +6        QUIT