| 1 | QAOSPSS ;HISC/DAD-OCCURRENCE SERVICE STATISTICS DRIVER ;6/11/93 15:41
|
|---|
| 2 | ;;3.0;Occurrence Screen;;09/14/1993
|
|---|
| 3 | ASK ;
|
|---|
| 4 | 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")
|
|---|
| 5 | I $F("^CRITERIA^SERVICE","^"_X)'>0 W:$E(X)'="?" " ??",*7 D G ASK
|
|---|
| 6 | . W !!?5,"Enter SERVICE to produce a report sorted by Service."
|
|---|
| 7 | . W !?7,"(This option produces a 'table-like' report.)"
|
|---|
| 8 | . W !?5,"Enter CRITERIA to produce a report sorted by Screen Criteria."
|
|---|
| 9 | . W !?7,"(This option produces a 'spreadsheet-like' report.)"
|
|---|
| 10 | . Q
|
|---|
| 11 | W $P($P("^CRITERIA^SERVICE","^"_X,2),"^"),!
|
|---|
| 12 | K DIR S DIR(0)="LO^1:3^K:X[""."" X",DIR("A")="Select screen criteria to include",DIR("B")=1
|
|---|
| 13 | 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"
|
|---|
| 14 | D ^DIR G:$D(DIRUT) EXIT S QAOSLIST(0)=Y
|
|---|
| 15 | W !!,"Select the reporting period:" D ^QAQDATE G:QAQQUIT EXIT
|
|---|
| 16 | ZIS K %ZIS S %ZIS="QM" D ^%ZIS G:POP EXIT
|
|---|
| 17 | I $D(IO("Q")) S ZTRTN="ENTSK^QAOSPSS",ZTDESC="Occurrence Screen Service Statistics Report",ZTSAVE("QAQ*")="",ZTSAVE("QAO*")="" D ^%ZTLOAD G EXIT
|
|---|
| 18 | ENTSK D ^QAOSPSS0 U IO D ^QAOSPSS1:QAOSSORT="S",^QAOSPSS2:QAOSSORT="C"
|
|---|
| 19 | EXIT ;
|
|---|
| 20 | W ! D ^%ZISC
|
|---|
| 21 | 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
|
|---|
| 22 | K ^UTILITY($J,"QAOSPSS"),^UTILITY($J,"QAOSXREF"),^UTILITY($J,"QAOQIP")
|
|---|
| 23 | K QAOSD1,QAOSCLIN,QAOSFIND,QAOSEXCP,FLG,COLTOT,ROWTOT,QAOSCRN
|
|---|
| 24 | D K^QAQDATE S:$D(ZTQUEUED) ZTREQ="@"
|
|---|
| 25 | Q
|
|---|
