Routine: DGENL1

Information

DGENL1 ;ALB/RMO,KWP,EZ,BRM,LBD,ERC,EG,CKN,BAJ,JLS,HM,RN,ARF - Patient Enrollment - Build List Area ;5/12/11 3:53pm

Package	Total	Call Graph
Registration	4	($$GET,$$STATUS)^DGENA $$CATEGORY^DGENA4 ($$PHEART,HIS,SET)^DGENL2 $$EXT^DGENU
Kernel	1	$$FMTE^XLFDT
VA FileMan	1	$$EXTERNAL^DILFD

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

Package	Total	Caller Graph
Registration	4	DGENL DGENLCD1 DGENLEH DGMTHL1

Entry Points

Name	Comments	DBIA/ICR reference
EN(DGARY,DFN,DGENRIEN,DGCNT)	;Entry point to build list area ; for patient enrollment and patient enrollment history ; Input -- DGARY Global array subscript ; DFN Patient IEN ; DGENRIEN Enrollment IEN ; Output -- DGCNT Number of lines in the list
ENR(DGARY,DFN,DGENR,DGLINE,DGCNT)	;Enrollment ; Input -- DGARY Global array subscript ; DFN Patient IEN ; DGENR Enrollment array ; DGLINE Line number ; Output -- DGCNT Number of lines in the list
PF(DGARY,DFN,DGENR,DGLINE,DGCNT)	;Priority factors ; Input -- DGARY Global array subscript ; DFN Patient IEN ; DGENR Enrollment array ; DGLINE Line number ; Output -- DGCNT Number of lines in the list
SET(DGARY,DGLINE,DGTEXT,DGCOL,DGON,DGOFF,DGSUB,DGNUM,DGDATA,DGCNT)	; moved to
PHEART(DFN,DGENRIEN,PHENRDT)	;move to DGENL2

External References

Name	Field # of Occurrence
$$GET^DGENA	EN+7
$$STATUS^DGENA	ENR+8
$$CATEGORY^DGENA4	EN+8
$$PHEART^DGENL2	PHEART+2
HIS^DGENL2	EN+13
SET^DGENL2	SET+8
$$EXT^DGENU	ENR+17, ENR+23, ENR+28, ENR+32, ENR+40, ENR+44, ENR+48, ENR+53, ENR+59, ENR+63 , ENR+69, ENR+73, PF+13, PF+29, PF+30, PF+34, PF+38, PF+42, PF+46, PF+52 , PF+56, PF+60, PF+66, PF+67, PF+71, PF+72, PF+77, PF+78, PF+82, PF+86 , PF+90, PF+94, PF+98
$$EXTERNAL^DILFD	EN+9
$$FMTE^XLFDT	PF+108, PF+110, PF+112

FileNo	Call Tags
^DGEN(27.15 - [#27.15]	EXTERNAL^DILFD

Label References

Name	Line Occurrences
$$PHEART	PF+22
ENR	EN+11
PF	EN+12
SET	ENR+12, ENR+17, ENR+23, ENR+28, ENR+32, ENR+36, ENR+40, ENR+44, ENR+48, ENR+53 , ENR+59, ENR+63, ENR+67, ENR+69, ENR+73, ENR+76, PF+9, PF+13, PF+23, PF+24 , PF+25, PF+29, PF+30, PF+34, PF+38, PF+42, PF+46, PF+51, PF+52, PF+56 , PF+60, PF+64, PF+66, PF+67, PF+71, PF+72, PF+77, PF+78, PF+82, PF+86 , PF+90, PF+94, PF+98, PF+107, PF+108, PF+110, PF+112, PF+116

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DFN	EN~, EN+11, EN+12, EN+13, ENR~, ENR+8, PF~, PF+22, PHEART~, PHEART+2
DGARY	EN~, EN+11, EN+12, EN+13, ENR~, ENR+12, ENR+17, ENR+23, ENR+28, ENR+32 , ENR+36, ENR+40, ENR+44, ENR+48, ENR+53, ENR+59, ENR+63, ENR+67, ENR+69, ENR+73 , ENR+76, PF~, PF+9, PF+13, PF+23, PF+24, PF+25, PF+29, PF+30, PF+34 , PF+38, PF+42, PF+46, PF+51, PF+52, PF+56, PF+60, PF+64, PF+66, PF+67 , PF+71, PF+72, PF+77, PF+78, PF+82, PF+86, PF+90, PF+94, PF+98, PF+107 , PF+108, PF+110, PF+112, PF+116, SET~, SET+8
DGCHK	ENR+6~, ENR+7, ENR+8, ENR+9*, ENR+17, ENR+23
DGCNT	EN~, EN+10*, EN+11, EN+12, EN+13, ENR~, ENR+12, ENR+17, ENR+23, ENR+28 , ENR+32, ENR+36, ENR+40, ENR+44, ENR+48, ENR+53, ENR+59, ENR+63, ENR+67, ENR+69 , ENR+73, ENR+76, PF~, PF+9, PF+13, PF+23, PF+24, PF+25, PF+29, PF+30 , PF+34, PF+38, PF+42, PF+46, PF+51, PF+52, PF+56, PF+60, PF+64, PF+66 , PF+67, PF+71, PF+72, PF+77, PF+78, PF+82, PF+86, PF+90, PF+94, PF+98 , PF+107, PF+108, PF+110, PF+112, PF+116, SET~, SET+8
DGCOL	SET~, SET+2*, SET+8
DGDATA	SET~, SET+7*, SET+8
DGENCAT	EN+6~, EN+8, EN+9, ENR+36
DGENR	EN+6~, EN+7, EN+11, EN+12, ENR~, PF~
DGENR("APP"	ENR+28
DGENR("DATE"	ENR+17
DGENR("DATETIME"	ENR+73, PF+22, PHEART+2
DGENR("EFFDATE"	ENR+53
DGENR("ELIG"	PF+13, PF+29, PF+30, PF+34, PF+38, PF+42, PF+46, PF+50, PF+52, PF+56 , PF+60, PF+66, PF+67, PF+71, PF+72, PF+77, PF+78, PF+82, PF+85, PF+86 , PF+90, PF+94, PF+98, PF+104
DGENR("END"	ENR+23
DGENR("PRIORITY"	ENR+48
DGENR("RCODE"	ENR+44
DGENR("REASON"	ENR+59, ENR+63
DGENR("REMARKS"	ENR+63
DGENR("SOURCE"	ENR+32
DGENR("STATUS"	EN+8, ENR+9, ENR+40
DGENR("SUBGRP"	ENR+48
DGENR("USER"	ENR+69
DGENRIEN	EN~, EN+7, EN+13, PF+22, PHEART~, PHEART+2
DGLINE	EN+6~, EN+10, EN+11, EN+12, EN+13, ENR~, ENR+11, ENR+12, ENR+15, ENR+17 , ENR+21, ENR+23, ENR+27, ENR+28, ENR+31, ENR+32, ENR+35, ENR+36, ENR+39, ENR+40 , ENR+43, ENR+44, ENR+47, ENR+48, ENR+52, ENR+53, ENR+58, ENR+59, ENR+62, ENR+63 , ENR+66, ENR+67, ENR+68, ENR+69, ENR+72, ENR+73, ENR+76, PF~, PF+8, PF+9 , PF+12, PF+13, PF+21, PF+23, PF+24, PF+25, PF+28, PF+29, PF+30, PF+33 , PF+34, PF+37, PF+38, PF+41, PF+42, PF+45, PF+46, PF+49, PF+51, PF+52 , PF+55, PF+56, PF+59, PF+60, PF+63, PF+64, PF+65, PF+66, PF+67, PF+70* , PF+71, PF+72, PF+76, PF+77, PF+78, PF+81, PF+82, PF+86, PF+89, PF+90 , PF+93, PF+94, PF+97, PF+98, PF+101, PF+107, PF+108, PF+109, PF+110, PF+111 , PF+112, PF+113, PF+116, SET~, SET+8
DGMOHADT	PF+103~, PF+104, PF+105, PF+108
DGMOHEDT	PF+103~, PF+104, PF+105, PF+112
DGMOHIND	PF+103~, PF+104, PF+105, PF+106, PF+107
DGMOHSDT	PF+103~, PF+104*, PF+110
DGNUM	SET~, SET+6*, SET+8
DGOFF	SET~, SET+4*, SET+8
DGON	SET~, SET+3*, SET+8
>> DGRET	PF+50*, PF+51
DGSTART	ENR+6~, ENR+11, ENR+76, PF+6~, PF+8, PF+116
DGSTUS	ENR+6~, ENR+8*
DGSUB	SET~, SET+5*, SET+8
DGTEXT	SET~, SET+8
>> IORVOFF	ENR+12, ENR+36, PF+9
>> IORVON	ENR+12, ENR+36, PF+9
PHDAT	PF+20~, PF+22, PF+23, PF+24, PF+25, PHEART+1~, PHEART+2, PHEART+3
PHENRDT	PHEART~
PHI	PHEART+1~, PHEART+3*, PHEART+4
PHRR	PHEART+1~, PHEART+3*, PHEART+4
PHST	PHEART+1~, PHEART+3*, PHEART+4
U	PF+23, PF+24, PF+25, PHEART+3
>> VALM("LINES"	ENR+76, PF+116

Customize PDF page

Package: Registration