| 1 | QAOSPSS2 ;HISC/DAD-OCCURRENCE SERVICE STATISTICS BY CRITERIA ;9/14/92 10:58
|
|---|
| 2 | ;;3.0;Occurrence Screen;;09/14/1993
|
|---|
| 3 | S QAOSQUIT=0,QAOSPAGE=1,X="T",%DT="" D ^%DT X ^DD("DD") S TODAY=Y K UNDL S $P(UNDL,"-",81)=""
|
|---|
| 4 | F QAOSTYPE="N","L","1" Q:QAOSQUIT I $O(^UTILITY($J,"QAOSPSS",QAOSTYPE,0)) S COLTOT="0^0^0^0^0^0^0^0^0^0^0^0^0" D HEAD F QAOSSEQ=0:0 S QAOSSEQ=$O(^UTILITY($J,"QAOSPSS",QAOSTYPE,QAOSSEQ)) Q:QAOSSEQ'>0!QAOSQUIT D LOOP1
|
|---|
| 5 | Q
|
|---|
| 6 | LOOP1 ;
|
|---|
| 7 | S TAB=15,ROWTOT=0,QAOSTEMP=^UTILITY($J,"QAOSPSS",QAOSTYPE,QAOSSEQ) W !!,$J(QAOSSEQ,3),?6,$P(QAOSTEMP,"^")
|
|---|
| 8 | F QA=2:1:$L(QAOSTEMP,"^") S X=$P(QAOSTEMP,"^",QA),ROWTOT=ROWTOT+X W ?TAB,$J(X,3) S TAB=TAB+5,$P(COLTOT,"^",QA-1)=$P(COLTOT,"^",QA-1)+X
|
|---|
| 9 | W ?TAB,$J(ROWTOT,5) S $P(COLTOT,"^",13)=$P(COLTOT,"^",13)+ROWTOT
|
|---|
| 10 | S FLG=$O(^UTILITY($J,"QAOSPSS",QAOSTYPE,QAOSSEQ))
|
|---|
| 11 | I FLG'>0 D COLTOT,PAUSE:$E(IOST)="C" Q
|
|---|
| 12 | I $Y>(IOSL-6) D:$E(IOST)="C" PAUSE Q:QAOSQUIT D:FLG HEAD
|
|---|
| 13 | Q
|
|---|
| 14 | COLTOT ;
|
|---|
| 15 | W !!,UNDL,!,"TOTAL" S TAB=14 F QA=1:1:$L(COLTOT,"^")-1 S X=$P(COLTOT,"^",QA) W ?TAB,$J(X,4) S TAB=TAB+5
|
|---|
| 16 | W ?75,$J($P(COLTOT,"^",13),5)
|
|---|
| 17 | Q
|
|---|
| 18 | PAUSE ;
|
|---|
| 19 | K DIR S DIR(0)="E" D ^DIR S QAOSQUIT=$S(Y'>0:1,1:0)
|
|---|
| 20 | Q
|
|---|
| 21 | HEAD ;
|
|---|
| 22 | W:(QAOSPAGE>1)!($E(IOST)="C") @IOF
|
|---|
| 23 | W !!?22,"OCCURRENCE SCREEN SERVICE STATISTICS",?68,TODAY
|
|---|
| 24 | W !?QAQTART,QAQ2HED,?68,"PAGE: ",QAOSPAGE S QAOSPAGE=QAOSPAGE+1
|
|---|
| 25 | W !!,"CRITERIA",?14,"BLIND",?21,"DOM",?28,"MEDICINE",?40,"NHCU",?45,"NON",?50,"PSYCH",?61,"SCI",?69,"UNKNOWN"
|
|---|
| 26 | W !?3,"SCREEN",?14,"REHAB",?23,"INTERMED",?33,"NEUROLOGY",?45,"COUNT",?53,"REHAB-MED",?64,"SURGERY",?75,"TOTAL",!,UNDL
|
|---|
| 27 | Q
|
|---|
