| 1 | DGPMBSP6 ;ALB/LM - BSR PRINT, CONT.; 13 JUNE 90
|
|---|
| 2 | ;;5.3;Registration;**170**;Aug 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | A Q:'CT
|
|---|
| 5 | N FY0
|
|---|
| 6 | ;
|
|---|
| 7 | S X="C U M U L A T I V E T O T A L S"
|
|---|
| 8 | ;
|
|---|
| 9 | W ! W:$Y<131 ?131,"" W $C(13) W:UL["-" ! F L=1:1:131 W UL
|
|---|
| 10 | S X1=RM-$L(X)\2
|
|---|
| 11 | W !?0,"|",?X1,X,?130,"|"
|
|---|
| 12 | W:$Y<131 ?131,"" W $C(13) W:UL["-" ! F L=1:1:131 W UL
|
|---|
| 13 | W !?0,"|",?26,"|",?40,"| Interward",?54,"|Interservice",?68,"|",?82,"| Interward",?96,"|Interservice",?110,"|",?117,"Patient",?130,"|"
|
|---|
| 14 | W !?0,"|",?26,"| Admissions",?40,"| Gains",?54,"| Gains",?68,"| Discharges",?82,"| Losses",?96,"| Losses",?110,"| Days",?130,"|"
|
|---|
| 15 | W:$Y<131 ?131,"" W $C(13) W:UL["-" ! F L=1:1:131 W UL
|
|---|
| 16 | W !?0,"|",?26,"|"
|
|---|
| 17 | S FY0=FY("Y")-1 S:FY0=-1 FY0="99" S:$L(FY0)=1 FY0="0"_FY0
|
|---|
| 18 | F C=1:1:14 W $S(C<13:"",1:" ")," FY-",$S('(C#2):FY("Y"),1:FY0)_"|"
|
|---|
| 19 | W:$Y<131 ?131,"" W $C(13) W:UL["-" ! F L=1:1:131 W UL
|
|---|
| 20 | S I=0
|
|---|
| 21 | 1 F I1=0:0 S I=$O(CUM(I)),J=0 Q:I'>0 F J1=0:0 S J=$O(CUM(I,J)) Q:J'>0 D 2
|
|---|
| 22 | W:$Y<131 ?131,"" W $C(13) W:UL["-" ! F L=1:1:131 W UL
|
|---|
| 23 | ;
|
|---|
| 24 | Q Q
|
|---|
| 25 | ;
|
|---|
| 26 | 2 S X=CUM(I,J),Z=+$O(^DIC(42,"AGL",I,0)),Z=$S('$D(^DIC(42,+Z,1,J,0)):$P(X,"^"),$P(^DIC(42,+Z,1,J,0),"^",5)]"":$P(^DIC(42,+Z,1,J,0),"^",5),1:$P(X,"^"))
|
|---|
| 27 | W !?0,"|",$E(Z,1,23),?26,"|" F K=2:1:15 S X1=$S(K<14:6,1:9) W $J(+$P(X,"^",K),X1),"|"
|
|---|
| 28 | Q
|
|---|
