Routine: DGPMRBA

Package	Total	Call Graph
Registration	4	IN^DGHELP (ABB,PR)^DGPMRBA1 (CLOSE,ZIS)^DGUTQ WARD^VAUTOMA
VA Fileman	4	NOW^%DTC ^DIC YN^DICN ^DIR
Scheduling	1	ASK2^SDDIV

Package	Total	Caller Graph
Registration	1	DG BED AVAILABILITY

Entry Points

Name	Comments	DBIA/ICR reference
OPT	;called from BED AVAILABILITY OPTION
ABB	;abbreviated bed availability (single ward only)
LDG
SAD
Q
WS
ASK
CONT
DESC	;ask to show room-bed descriptions

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: X Line Location: OPT+2
Function Call: WRITE	Prompt: X Line Location: OPT+2
Function Call: WRITE	Prompt: !!,"ENTER:",!?5,"'A' to see bed availability for a single ward, or",!?5,"'E' for bed availability for multiple wards, by service or",!?9,"a list of all available beds" Line Location: OPT+3
Function Call: READ	Timeout: DTIME Variable: X Line Location: WS+0
Function Call: WRITE	Prompt: X Line Location: WS+0
Function Call: WRITE	Prompt: !?5,"Respond 'Y'es to display scheduled admissions to the ward.",!?8,"Otherwise, respond 'N'o." Line Location: SAD+0
Function Call: WRITE	Prompt: !?5,"Respond 'Y'es to display lodgers to the ward.",!?8,"Otherwise, respond 'N'o." Line Location: LDG+0
Function Call: WRITE	Prompt: ! Line Location: Q+0
Function Call: WRITE	Prompt: !,"Do you want to display room-bed descriptions" Line Location: DESC+1
Function Call: WRITE	Prompt: !?5,"Enter 'Yes' to display the description for vacant beds, otherwise 'No'" Line Location: DESC+2
Routine Call	DIC Line Location: ABB+1
Routine Call	DIR Line Location: WS+10 ASK

FileNo	Call Tags
^DIC(42 - [#42]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^TMP("DGPMBD"	Q!
^UTILITY("DGPMLD"	Q!

Name	Line Occurrences
ABB	OPT+4, ABB+5
ASK	ASK+1
DESC	LDG+2, ABB+2, DESC+2
LDG	WS+5, LDG
OPT	OPT+3
Q	OPT+2, OPT+4, OPT+5, WS, WS+4, WS+11, ASK, SAD, LDG, LDG+2 , ABB+2
SAD	WS+5, WS+12, SAD
WS	WS+1

Name	Field # of Occurrence
%	OPT+3, WS+1, SAD, SAD+1, LDG, LDG+1, LDG+2, Q!, ABB+2, ABB+3 , DESC+1*, DESC+2, DESC+3
DFN	Q!
DGA	Q!, ABB+4*
DGDESC	Q!, DESC+3*
DGDT	Q!, ABB+3*
DGFL	Q!, ABB+4*
DGHOW	Q!
DGI	Q!
DGJ	Q!
DGL	Q!, ABB+4*
DGLD	LDG+1, Q!, ABB+4
DGND	Q!
DGNM	Q!, ABB+4*
DGNOW	Q!
DGONE	Q!
DGOPT	OPT+4, WS+3, WS+4, WS+5, Q!
DGPG	Q!
DGPGM	CONT*, Q!
DGR	Q!
DGSA	SAD+1, Q!, ABB+4
DGSTR	WS+6*, Q!
DGSV	WS+12, WS+13, Q!
DGSV(	WS+13, ASK+1
DGU	Q!
DGVARS	CONT*, Q!
DIC	Q!, ABB+1*
DIC(0	ABB+1*
DIR	Q!
DIR("?"	WS+7, WS+8, WS+9, WS+10, WS+14*, WS+15!
DIR("A"	WS+6, WS+15
DIR("B"	WS+6*, WS+13!
DIR(0	WS+6, WS+13
DTIME	OPT+2, WS
DTOUT	WS+11!, ASK!
DUOUT	WS+11!, ASK!
I	WS+14*, Q!
I1	Q!
J	Q!
J1	Q!
M	Q!
POP	CONT, Q!
VA	Q!
VAUTD	Q!
>> VAUTNI	WS+4*
VAUTW	Q!
W	Q!, ABB+4*
X	OPT+2, OPT+4, WS, WS+3, ASK+1, Q!
Y	OPT+5, WS+4, WS+12, WS+13, ASK+1, Q!, ABB+1, ABB+4
Y(0	ABB+4
Z	OPT+3, WS+1, Q!