source: FOIAVistA/tag/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGPMBSP.m@ 1569

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

initial load of FOIAVistA 6/30/08 version

File size: 1.4 KB
Line 
1DGPMBSP ;ALB/LM - BSR PRINT; 12 JUNE 90
2 ;;5.3;Registration;**12,134**;Aug 13, 1993
3 ;
4A 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
22Q Q
23 ;
24HEAD 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 ;
41HEAD2 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 ;
48TAB 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
Note: See TracBrowser for help on using the repository browser.