Routine: BDGIPL31

Package

Total

Call Graph

$$ACTWD^BDGPAR

ENP^XBDIQ1

$$GET1^DIQ

Package	Total	Caller Graph
IHS Changes To ADT	1	BDGIPL3

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
OOSB(Y)	; -- bed out of service
MULTUSE(W,R)	; -- don't print if room-bed used by other wards
PAT	; set inpatients into array by ward/room
OWD	; -- one ward
ROOMS(WD)	; loop thru rooms in a ward
INACT(Y)	; -- ward inactive?
PEND	;EP; -- pending SDA/DSO/DSU patients for ward
AWD	; -- all wards

Name	Field # of Occurrence
$$ACTWD^BDGPAR	AWD+4, INACT+1
$$GET1^DIQ	OWD+3, ROOMS+3, ROOMS+4, PEND+7, PEND+8, PEND+10, PEND+13, PEND+14, PEND+15, PEND+17
ENP^XBDIQ1	PEND+19

Name	Line Occurrences (* Changed, ! Killed)
^DG(405.4 - [#405.4]	AWD+3, ROOMS+2, OOSB+1, OOSB+2, MULTUSE+3, MULTUSE+9
^DGPM("ARM"	MULTUSE+6
^DPT - [#2]	PAT+2
^DPT("CN"	AWD+7, AWD+8, OWD+4, MULTUSE+12
^DPT("RM"	MULTUSE+9
^SRF("AC"	BDGIPL31+11, PEND+3, PEND+4
^TMP("BDGIPL1"	BDGIPL31+4!, ROOMS+6, PAT+6, PAT+9, PEND+21

Name	Field # of Occurrence
^(	OOSB+2
^("AINV"	OOSB+2

Name	Field # of Occurrence
AGE	PEND+1~, PEND+13*, PEND+15, PEND+17
>> BDGSRT	BDGIPL31+5
DFN	AWD+1~, AWD+8, OWD+1~, OWD+4, PAT+2, PAT+6, PAT+9, PEND+1~, PEND+13*, PEND+20 , PEND+21
DGRR	PEND+19~
DGRR(	PEND+21
DGRR(10	PEND+20, PEND+21
DGRR(26	PEND+21
DGWST	BDGIPL31+3~, BDGIPL31+5*, BDGIPL31+8, OWD+2, PEND+16
DT	BDGIPL31+11, OOSB+3, PEND+2
END	PEND+1~, PEND+2*, PEND+3
IEN	PEND+1~, PEND+4*, PEND+7, PEND+8, PEND+10, PEND+13, PEND+14, PEND+19
ORDER	ROOMS+1~, ROOMS+3*, ROOMS+6
R	MULTUSE~, MULTUSE+3, MULTUSE+6, MULTUSE+9
RB	ROOMS+1~, ROOMS+2*, ROOMS+4, ROOMS+5
RM	PAT+1~, PAT+2*, PAT+5, PAT+6, PAT+9
RMBD	ROOMS+1~, ROOMS+4*, ROOMS+6
SDT	PEND+1~, PEND+2, PEND+3, PEND+4
SRV	PEND+1~, PEND+14*, PEND+15, PEND+16, PEND+17
STAT	PEND+1~, PEND+8*, PEND+9, PEND+21
U	BDGIPL31+5, OOSB+3, MULTUSE+9, PEND+21
W	MULTUSE~, MULTUSE+12
WARD	AWD+1~, AWD+7, AWD+8, OWD+1~, OWD+3, OWD+4, ROOMS+1~, ROOMS+3, ROOMS+5, ROOMS+6 , PEND+1~, PEND+15, PEND+16, PEND+17*, PEND+21
WD	AWD+1~, AWD+3, AWD+4, OWD+1~, OWD+2, OWD+3, ROOMS~, ROOMS+2, ROOMS+3
X	OOSB+2~, OOSB+3, MULTUSE+6~, MULTUSE+9~, MULTUSE+12, PEND+1~, PEND+10, PEND+20*, PEND+21
Y	OOSB~, OOSB+1, OOSB+2, INACT~, INACT+1

Information