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

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Registration	1	DG BED AVAILABILITY

Entry Points

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

External References

Name	Field # of Occurrence
NOW^%DTC	ABB+3
IN^DGHELP	OPT+3, WS+1
ABB^DGPMRBA1	ABB+4
PR^DGPMRBA1	CONT
CLOSE^DGUTQ	Q
ZIS^DGUTQ	CONT
^DIC	ABB+1
YN^DICN	SAD, LDG, DESC+1
^DIR	WS+10, ASK
ASK2^SDDIV	OPT+5
WARD^VAUTOMA	WS+4

Interaction Calls

Name	Line Occurrences
Function Call: READ	Variable: X Timeout: DTIME 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	Variable: X Timeout: DTIME 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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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

Label References

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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!

Customize PDF page

Package: Registration

Routine: DGPMRBA

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: