Routine: DGOREL1

Package	Total	Call Graph
Registration	2	CLOSE^DGUTQ PID^VADPT6
Kernel	1	$$FMTE^XLFDT
VA Fileman	1	NOW^%DTC

Package	Total	Caller Graph
Registration	1	DGOREL

Entry Points

External References

Name	Field # of Occurrence
NOW^%DTC	START
CLOSE^DGUTQ	QUIT
PID^VADPT6	SET+1
$$FMTE^XLFDT	START, HEAD+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"=====>NO PATIENTS FOUND" Line Location: PR+1
Function Call: WRITE	Prompt: ! Line Location: CONT+0
Function Call: WRITE	Prompt: ! Line Location: RET+0
Function Call: READ	Prompt: "Enter <RET> to continue or ^ to QUIT " Formatting: ?22 Timeout: DTIME Variable: X Line Location: RET+1
Function Call: WRITE	Prompt: ?3,$P(DGUT,"^",4),?15,$P(DGUT,"^",1),?40,$P(DGUT,"^",2),?58 Line Location: DGPR+0
Function Call: WRITE	Prompt: Y Line Location: DGPR+0
Function Call: WRITE	Prompt: @IOF,!?3,"DIVISION: ",$S(DGD="ZNOT SPECIFIED":"NOT SPECIFIED",1:DGD),?50,DGDT,?63," PAGE ",DGPG,!?24,"INPATIENT RELIGIOUS AFFILIATIONS",! Line Location: HEAD+0
Function Call: WRITE	Prompt: ?DGSP1,DGSP,! Line Location: HEAD+1
Function Call: WRITE	Prompt: ?DGY,DGT,!!?4,"ROOM",?20,"PATIENT",?43,"PT ID",?60,"ADMISSION DATE",!,DGCL Line Location: HEAD+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	DGPR
^DG(40.8 - [#40.8]	DIV
^DGPM - [#405]	START+1, DGSET, SET1, SET1+1
^DGPM("AMV1"	START+1
^DIC(13 - [#13]	SET
^DIC(42 - [#42]	DIV
^DPT - [#2]	SET1+1, SET, SET+1
^DPT("CN"	START+3, DGSET
^UTILITY($J	PR, PR+1, DGUTIL+1, DGUTIL+2, CONT, SET+1, SET+2, QUIT1+1!

Label References

Name	Line Occurrences
CONT	DGUTIL+2
DGPR	CONT
DGSET	START+3
DGUTIL	PR
DIV	START+3, SET1+1
HEAD	DGUTIL+2, RELP
PR	START+2
QUIT	PR+2
RELP	DGUTIL+2, DGPR
RET	PR, DGUTIL+2, RELP
SET	DGSET
SET1	START+1

Naked Globals

Name	Field # of Occurrence
^(	CONT, DGSET, SET1+1, SET+1
^(0	DGSET, SET

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	START, QUIT1!
D1	DGUTIL+2, CONT, QUIT1!
DFN	START, START+1, CONT, DGSET, SET1+1, SET, SET+1, SET+2, QUIT1!
DGAD	DGSET, SET1+1, SET+1, SET+2, QUIT1!
DGBEG	START+1, QUIT1!
DGBEG1	HEAD+2, QUIT1!
DGCA	START+1, DGSET, SET1, SET1+1, QUIT1!
DGCL	START*, HEAD+4, QUIT1!
DGCL1	START*, RELP+1, QUIT1!
DGD	DIV, DGUTIL, DGUTIL+1*, DGUTIL+2, CONT, SET+1, SET+2, HEAD, QUIT1!
DGDA	START+1*, QUIT1+1!
DGDAT	SET*, SET+1, SET+2, QUIT1!
DGDD	SET1*, QUIT1+1!
DGDN	DIV*, QUIT1!
DGDT	START*, HEAD, HEAD+3, QUIT1!
DGDV	QUIT1!
DGEND	START+1, SET1, QUIT1!
DGEND1	HEAD+2, QUIT1!
DGF	START, START+3, DIV, SET1+1, QUIT1!
DGFL	PR, RELP+1, HEAD+1*, QUIT1!
DGFLAG	START, PR, RET+1, QUIT1!
DGHOW	SET+1, RELP+1, HEAD+1, QUIT1!
DGJ	START, DGUTIL+2, CONT, RELP+1, QUIT1!
DGJJ	START*, QUIT1!
DGL	START+1, START+2, HEAD+2, HEAD+3, QUIT1!
DGN	QUIT1!
DGNON	SET, QUIT1!
DGP	START, CONT, QUIT1!
DGPG	PR, DGUTIL+2, HEAD*, QUIT1!
DGPGM	QUIT1!
DGR	SET, QUIT1!
DGREL	SET*, SET+1, SET+2, QUIT1!
DGRM	START, SET+1, SET+2, QUIT1!
DGSP	HEAD+1*, QUIT1+1!
DGSP1	HEAD+1*, QUIT1+1!
DGT	HEAD+2, HEAD+3, HEAD+4, QUIT1+1!
DGU	START, START+3, PR, DGUTIL+1, DGUTIL+2, CONT, RET+1, RELP, DGPR, QUIT1+1!
DGUT	CONT*, DGPR, QUIT1+1!
DGVAR	QUIT1+1!
DGW	START, START+3, DIV, DGUTIL, DGUTIL+2, CONT, DGSET, SET1+1*, SET+1, SET+2 , HEAD+1, QUIT1+1!
DGWN	QUIT1+1!
DGY	HEAD+4*, QUIT1+1!
DIC	QUIT1!
DTIME	RET+1
I	QUIT1+1!
IOF	HEAD
IOSL	RET, RELP, DGPR
IOST	PR, RET, RELP
J1	DGUTIL+1*, QUIT1+1!
P1	DGUTIL+2*, QUIT1+1!
POP	QUIT1+1!
>> VA("BID"	QUIT1+1!
>> VA("PID"	SET+1, SET+2, QUIT1+1!
VADAT	QUIT1+1!
VADATE	QUIT1+1!
VAUTD	DIV, QUIT1+1!
VAUTD(	DIV
VAUTNI	QUIT1+1!
VAUTW	START+3, SET1+1, QUIT1+1!
VAUTW(	START+3, SET1+1
X	RET, RET+1, QUIT1+1!
X1	START+3*, QUIT1+1!
Y	START, DGPR, QUIT1+1!
Z	QUIT1+1!

Customize PDF page

Package: Registration

Routine: DGOREL1

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: