| 1 | DGPMBSP ;ALB/LM - BSR PRINT; 12 JUNE 90
|
|---|
| 2 | ;;5.3;Registration;**12,134**;Aug 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | A D TAB
|
|---|
| 5 | D ^DGPMBSP1
|
|---|
| 6 | ; D ^DGPMBSP2 ; called in ^DGPMBSP1
|
|---|
| 7 | D HEAD,HEAD2
|
|---|
| 8 | D ^DGPMBSP3
|
|---|
| 9 | D HEAD
|
|---|
| 10 | D ^DGPMBSP4
|
|---|
| 11 | D ^DGPMBSP5
|
|---|
| 12 | D ^DGPMBSP6
|
|---|
| 13 | ;
|
|---|
| 14 | W !,"TOTAL ELAPSED FISCAL DAYS: ",$J(FY("D"),3)
|
|---|
| 15 | W !,"TOTAL ELAPSED MONTH DAYS : ",$J(FY("DIM"),3),!
|
|---|
| 16 | S X=$S($D(IOSL):IOSL,1:60),X=$Y-X
|
|---|
| 17 | F I=1:1:4 Q:I=2&(X<3) W !
|
|---|
| 18 | W ?98 F I=1:1:33 W UL
|
|---|
| 19 | W !?84,"Prepared by: ADMINISTRATIVE OFFICER OF THE DAY",!
|
|---|
| 20 | ;
|
|---|
| 21 | K ADC,AT,C,CT,CUM,D,D1,I,I1,J,J1,K,L,X,X1,X2
|
|---|
| 22 | Q Q
|
|---|
| 23 | ;
|
|---|
| 24 | HEAD I $D(FF) W @IOF
|
|---|
| 25 | S FF=2
|
|---|
| 26 | W !?94,"Date/Time Printed: ",DGNOW
|
|---|
| 27 | W !?RM-22\2,"BED STATUS REPORT"
|
|---|
| 28 | S X=$$NAME^VASITE(RD)
|
|---|
| 29 | I X']"" D
|
|---|
| 30 | .S X="VA MEDICAL CENTER"
|
|---|
| 31 | .S:$D(^DG(40.8,+$P(DGPM("GL"),"^",3),0)) X=X_", "_$P(^(0),"^")
|
|---|
| 32 | W !?RM-$L(X)\2,X
|
|---|
| 33 | S X=RD
|
|---|
| 34 | D DW^%DTC
|
|---|
| 35 | S X1=X,X="PERIOD ENDING MIDNIGHT "_X1_", "
|
|---|
| 36 | S Y=RD X ^DD("DD") S X=X_Y
|
|---|
| 37 | W !?RM-$L(X)\2,X,!
|
|---|
| 38 | K X,X1,Y
|
|---|
| 39 | Q
|
|---|
| 40 | ;
|
|---|
| 41 | HEAD2 W !,?71,"Va-",?92,"Over",?116,"Cum",?127,"Cum"
|
|---|
| 42 | W !?10,"Bed",?21,"Prev",?39,"Pt's",?71,"cant",?78,"Beds",?85,"Oper",?92,"Cap.",?100,"Auth",?108,"Cum",?116,"Occ.",?123,"Patient"
|
|---|
| 43 | W !?2,"Ward",?10,"Section",?21,"Rem.",?27,"Gain",?33,"Loss",?39,"Rem.",?45,"Pass",?53,"AA",?59,"UA",?64,"ASIH",?71,"Beds",?79,"OOS",?85,"Beds",?92,"Beds",?100,"Beds",?108,"ADC",?116,"Rate",?126,"Days"
|
|---|
| 44 | W:$Y<131 ?131,"" W $C(13) W:UL["-" ! F L=1:1:131 W UL
|
|---|
| 45 | K L
|
|---|
| 46 | Q
|
|---|
| 47 | ;
|
|---|
| 48 | TAB S TAB="1^10^21^27^33^39^45^52^58^64^71^78^85^92^100^105^113^123"
|
|---|
| 49 | S JUS="0^0^4^4^4^4^4^3^3^4^4^4^4^4^4^6^7^7"
|
|---|
| 50 | Q
|
|---|
