Routine: DGPMBSR1

Information

DGPMBSR1 ;ALB/LM - BED STATUS REPORT RECALCULATION CONT.; 16 JAN 91

Source file <DGPMBSR1.m>

Package	Total	Call Graph
Registration	1	^DGPMGLG
VA Fileman	1	^DIE

Name	Comments	DBIA/ICR reference
A
TCEN
SET
TSET
CEN
UTIL	; Utility Nodes ; DGD=Monthly Planned Dom. (yesterday) ; ; DGDN=Monthly Planned Dom. (new) ; ; DGC=Zero Node Census file (yesterday) ; ; DGCN=Zero Node Census file (new) ; ; DGR=One Node Census file (yesterday) ; ; DGRN=One Node Census file (new) ; ; DGS=Treating Specialty (yesterday) ; ; DGSN=Treating Specialty (new) ; ; DGS1=Treating Specialty One Node (yesterday) ; ; DGSN1=Treating Specialty One Node (new) ;
VAR	; RC=ReCalc from date ; YD=YesterDay ; RD=Report Date ; ; BS=Bed Status ; GL=G&L ; REM=Recalc patient days ; ; PD=Previous Day ; W=Ward ; D=Division ; T=Treating Specialty

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	A+2, TSET+1, TSET+2, TSET+7, TCEN, TCEN+1, TCEN+2*
^DG(41.9 - [#41.9]	SET, SET+5, CEN, CEN+1, CEN+2
^DIC(42 - [#42]	A+1
^UTILITY("DG6"	SET+9*
^UTILITY("DGAA"	SET+12*
^UTILITY("DGAS"	SET+14*
^UTILITY("DGC"	SET+2*, CEN
^UTILITY("DGCN"	SET+3*
^UTILITY("DGD"	A+2*
^UTILITY("DGDN"	A+2*
^UTILITY("DGFR"	SET+8*
^UTILITY("DGIP"	SET+15*
^UTILITY("DGOD"	SET+4*
^UTILITY("DGPS"	SET+11*
^UTILITY("DGR"	SET+6*
^UTILITY("DGRN"	SET+7*
^UTILITY("DGS"	TSET+4*, TCEN
^UTILITY("DGS1"	TSET+8*
^UTILITY("DGSN"	TSET+5*
^UTILITY("DGSN1"	TSET+9*
^UTILITY("DGT6"	TSET+11*
^UTILITY("DGTA"	TSET+14*
^UTILITY("DGTAS"	TSET+16*
^UTILITY("DGTF"	TSET+10*
^UTILITY("DGTI"	TSET+17*
^UTILITY("DGTOD"	TSET+6*
^UTILITY("DGTP"	TSET+13*
^UTILITY("DGTU"	TSET+15*
^UTILITY("DGTV"	TSET+12*
^UTILITY("DGUA"	SET+13*
^UTILITY("DGVN"	SET+10*

Name	Line Occurrences
SET	A+1
TSET	A+2

Name	Field # of Occurrence
^(0	A+2, SET, CEN+1, CEN+2, TSET+1, TCEN+1, TCEN+2
^(1	SET+5, TSET+7

Name	Field # of Occurrence
D	A+2*, A+3!, TSET+1, TSET+2, TSET+4, TSET+5, TSET+6, TSET+7, TSET+8, TSET+9 , TSET+10, TSET+11, TSET+12, TSET+13, TSET+14, TSET+15, TSET+16, TSET+17, TCEN, TCEN+1 , TCEN+2
DA	A*!
DIE	A*!
DR	A*!
I	A+1, A+2, A+3!
I1	A+2*, A+3!
>> PD	A+2, SET, SET+1, SET+5, TSET+1, TSET+3, TSET+7
>> RD	A, SET, CEN, CEN+1, TSET, TSET+1, TSET+2, TCEN
>> REM	SET+11, SET+12, SET+13, SET+14, SET+15, TSET+13, TSET+14, TSET+15, TSET+16, TSET+17
T	A+2*, A+3!, TSET+1, TSET+2, TSET+4, TSET+5, TSET+6, TSET+7, TSET+8, TSET+9 , TSET+10, TSET+11, TSET+12, TSET+13, TSET+14, TSET+15, TSET+16, TSET+17, TCEN, TCEN+1 , TCEN+2
>> TSRI	TSET, TSET+2
U	TSET+2
W	A+1*, A+3!, SET, SET+2, SET+3, SET+4, SET+5, SET+6, SET+7, SET+8 , SET+9, SET+10, SET+11, SET+12, SET+13, SET+14, SET+15, CEN, CEN+1, CEN+2
>> X	SET, SET+1, SET+2, TSET+1, TSET+2, TSET+3*, TSET+4
>> X1	SET+5, SET+6, SET+11, SET+12, SET+13, SET+14, TSET+7, TSET+8, TSET+13, TSET+14 , TSET+15, TSET+16