source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGPMBSP6.m@ 724

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

initial load of WorldVistAEHR

File size: 1.2 KB
Line 
1DGPMBSP6 ;ALB/LM - BSR PRINT, CONT.; 13 JUNE 90
2 ;;5.3;Registration;**170**;Aug 13, 1993
3 ;
4A 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
211 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 ;
24Q Q
25 ;
262 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
Note: See TracBrowser for help on using the repository browser.