| [613] | 1 | SCRPW52 ;RENO/KEITH - Encounters by DSS Identifier/DSS ID by Frequency (OP0, OP1, OP2) (cont.) ; 15 Jul 98 02:38PM
|
|---|
| 2 | ;;5.3;Scheduling;**144,466**;AUG 13, 1993;Build 2
|
|---|
| 3 | S SDTIT(1)="<*> DSS ID BY FREQUENCY "_$S(SDSTA=8:"(IP2)",1:"(OP2)")_" <*>" F SDI=0:1:7 S SDRTOT(SDI)=0
|
|---|
| 4 | S SDPAGE=1 D HDR,HD1 Q:SDOUT S SDSC=0 F S SDSC=$O(^TMP("SCRPW",$J,SDIV,SDSC)) Q:'SDSC!SDOUT D PLINE
|
|---|
| 5 | Q:SDOUT W !?14 F SDI=1:1:103 W "="
|
|---|
| 6 | S SDRTOT(3)=+$G(^TMP("SCRPW",$J,SDIV,"M","UNI")),SDRTOT(5)=+$G(^TMP("SCRPW",$J,SDIV,"F","UNI")),SDRTOT(7)=SDRTOT(3)+SDRTOT(5),SDRTOT(6)=SDRTOT(0)
|
|---|
| 7 | S SDRTOT(2)=+$G(^TMP("SCRPW",$J,SDIV,"M","ENC")),SDRTOT(4)=+$G(^TMP("SCRPW",$J,SDIV,"F","ENC"))
|
|---|
| 8 | W !?14,"TOTAL:" F SDI=0:1:7 W ?(23+(12*SDI)),$J(SDRTOT(SDI),10,0)
|
|---|
| 9 | Q
|
|---|
| 10 | ;
|
|---|
| 11 | PLINE ;Print output line
|
|---|
| 12 | K SDCT S SDCT(0)=+$G(^TMP("SCRPW",$J,SDIV,SDSC,"P","ENC"))
|
|---|
| 13 | S SDCT(1)=+$G(^TMP("SCRPW",$J,SDIV,SDSC,"S","ENC"))
|
|---|
| 14 | S SDCT(2)=+$G(^TMP("SCRPW",$J,SDIV,SDSC,"SEX","M"))
|
|---|
| 15 | S SDCT(3)=+$G(^TMP("SCRPW",$J,SDIV,SDSC,"SEX","M","UNI"))
|
|---|
| 16 | S SDCT(4)=+$G(^TMP("SCRPW",$J,SDIV,SDSC,"SEX","F"))
|
|---|
| 17 | S SDCT(5)=+$G(^TMP("SCRPW",$J,SDIV,SDSC,"SEX","F","UNI"))
|
|---|
| 18 | S SDCT(6)=SDCT(0)+SDCT(1),SDCT(7)=SDCT(3)+SDCT(5)
|
|---|
| 19 | F SDI=0,1 S SDRTOT(SDI)=SDRTOT(SDI)+SDCT(SDI)
|
|---|
| 20 | D:$Y>(IOSL-4) HDR,HD1 Q:SDOUT
|
|---|
| 21 | W !?16,SDSC F SDI=0:1:7 W ?(23+(12*SDI)),$J(SDCT(SDI),10,0)
|
|---|
| 22 | Q
|
|---|
| 23 | ;
|
|---|
| 24 | HDR D HDR^SCRPW51 Q
|
|---|
| 25 | ;
|
|---|
| 26 | HD1 ;Print subheader
|
|---|
| 27 | Q:SDOUT W !?24,"FREQUENCY",?36,"FREQUENCY",?51,"# MALE",?63,"# MALE",?73,"# FEMALE",?85,"# FEMALE",?100,"TOTAL",?112,"TOTAL"
|
|---|
| 28 | W !?14,"DSS ID",?23,"AS PRIMARY",?36,"AS CREDIT",?47,"ENCOUNTERS",?62,"UNIQUES",?71,"ENCOUNTERS",?86,"UNIQUES",?95,"ENCOUNTERS",?110,"UNIQUES"
|
|---|
| 29 | W !?14,"-------" F SDI=0:1:7 W ?(23+(12*SDI)),$E(SDLINE,1,10)
|
|---|
| 30 | Q
|
|---|
| 31 | ;
|
|---|
| 32 | EXIT I $E(IOST)="C",'SDOUT N DIR S DIR(0)="E" D ^DIR
|
|---|
| 33 | K ^TMP("SCRPW",$J),%,%I,%H,DFN,DIR,SD,SDC,SDCT,SDDIV,SDFY,SDGTOT,SDI,SDIV,SDIVN,SDLINE,SDM1,SDMD,SDMF,SDMO,SDOE,SDOE0,SDOUT,SDPAGE,SDPG
|
|---|
| 34 | K SDPNOW,SDPS,SDPSC,SDRTOT,SDSC,SDSCN,SDSSC,SDSTOP,SDT,SDTCT,SDTIT,SDUNI,SDIV,SDVCT,SDX,SDYMO,X,Y,SDSTA Q
|
|---|
