source: WorldVistAEHR/trunk/r/OCCURRENCE_SCREEN-QAO/QAOSPSS.m@ 623

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

initial load of WorldVistAEHR

File size: 1.7 KB
Line 
1QAOSPSS ;HISC/DAD-OCCURRENCE SERVICE STATISTICS DRIVER ;6/11/93 15:41
2 ;;3.0;Occurrence Screen;;09/14/1993
3ASK ;
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
16ZIS 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
18ENTSK D ^QAOSPSS0 U IO D ^QAOSPSS1:QAOSSORT="S",^QAOSPSS2:QAOSSORT="C"
19EXIT ;
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
Note: See TracBrowser for help on using the repository browser.