Routine: DGENL

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Information

DGENL ;ALB/RMO,LBD - Patient Enrollment - List Manager Screen;12 JUN 1997 10:00 am ; 1/27/11 2:51pm

Source Information

Source file <DGENL.m>

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
Registration	5	$$FINDCUR^DGENA EN^DGENL1 $$PREF^DGENPTA ($$FINDLAST,$$GET)^DGENQRY PID^VADPT
List Manager	3	EN^VALM ($$SETSTR,CLEAR)^VALM1 CLEAN^VALM10
VA FileMan	3	WAIT^DICD $$EXTERNAL^DILFD $$GET1^DIQ
Kernel	1	DISP^XQORM1

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: 5

Package	Total	Caller Graph
Registration	5	DGEN DGEN PATIENT ENROLLMENT DGEN1 DGENCD1 DGENPT

Entry Points

Name	Comments	DBIA/ICR reference
EN(DFN)	;Main entry point to invoke the DGEN PATIENT ENROLLMENT protocol ; Input -- DFN Patient IEN ; Output -- None
HDR	;Header code
INIT	;Init variables and list array
BLD	;Build patient enrollment screen
HELP	;Help code
EXIT	;Exit code
EXPND	;Expand code
MESSAGE(DFN)	;

External References

Name	Field # of Occurrence
$$FINDCUR^DGENA	BLD+9
EN^DGENL1	BLD+9
$$PREF^DGENPTA	HDR+6
$$FINDLAST^DGENQRY	MESSAGE+5
$$GET^DGENQRY	MESSAGE+6
WAIT^DICD	EN+3
$$EXTERNAL^DILFD	MESSAGE+7, MESSAGE+8
$$GET1^DIQ	HDR+9
PID^VADPT	HDR+2
EN^VALM	EN+4
$$SETSTR^VALM1	HDR+5, HDR+8
CLEAR^VALM1	EXIT+2
CLEAN^VALM10	BLD+1, EXIT+1
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Routine Call	VALM Line Location: EN+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^DGEN(27.12 - [#27.12]	EXTERNAL^DILFD

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(391 - [#391]	HDR+4
^DPT - [#2]	HDR+3, HDR+4
^TMP("DGENIDX"	BLD+2!, EXIT+3!

Label References

Name	Line Occurrences
BLD	INIT+1
HDR	BLD+6
MESSAGE	BLD+10

Naked Globals

Name	Field # of Occurrence
^("TYPE"	HDR+4
^(0	HDR+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DFN	EN~, HDR+3, HDR+4, HDR+6, HDR+9, BLD+9, BLD+10, MESSAGE~, MESSAGE+5
DGPREFNM	HDR+1~, HDR+6, HDR+7
DGQRY	MESSAGE+4~, MESSAGE+5*, MESSAGE+6
DGQRY("NOTIFY"	MESSAGE+8
DGQRY("STATUS"	MESSAGE+7
NOTIFY	MESSAGE+4~, MESSAGE+8*, MESSAGE+10
STATUS	MESSAGE+4~, MESSAGE+7*, MESSAGE+9
U	HDR+3, HDR+4
VA	HDR+1~
VA("BID"	HDR+3
VAERR	HDR+1~
>> VALMBG	BLD+3*
>> VALMCNT	BLD+3*, BLD+9
VALMHDR	BLD+2!
VALMHDR(1	HDR+3, HDR+5
VALMHDR(2	HDR+7, HDR+8
VALMHDR(3	HDR+9*
>> VALMSG	MESSAGE+9, MESSAGE+10
X	HDR+1~, HDR+4, HDR+5, HELP+1