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	5	$$ELIG^DGCOMPACTELIG ($$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
$$ELIG^DGCOMPACTELIG	PF+50
$$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+56 , PF+60, PF+64, PF+70, PF+71, PF+75, PF+76, PF+81, PF+82, PF+86, PF+90 , PF+94, PF+98, PF+102
$$EXTERNAL^DILFD	EN+9
$$FMTE^XLFDT	PF+112, PF+114, PF+116

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+50, PF+55, PF+56 , PF+60, PF+64, PF+68, PF+70, PF+71, PF+75, PF+76, PF+81, PF+82, PF+86 , PF+90, PF+94, PF+98, PF+102, PF+111, PF+112, PF+114, PF+116, PF+120

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, PF+50, 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+50, PF+55, PF+56, PF+60, PF+64, PF+68, PF+70 , PF+71, PF+75, PF+76, PF+81, PF+82, PF+86, PF+90, PF+94, PF+98, PF+102 , PF+111, PF+112, PF+114, PF+116, PF+120, 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+50, PF+55, PF+56, PF+60, PF+64, PF+68 , PF+70, PF+71, PF+75, PF+76, PF+81, PF+82, PF+86, PF+90, PF+94, PF+98 , PF+102, PF+111, PF+112, PF+114, PF+116, PF+120, 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+54, PF+56, PF+60 , PF+64, PF+70, PF+71, PF+75, PF+76, PF+81, PF+82, PF+86, PF+89, PF+90 , PF+94, PF+98, PF+102, PF+108
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+50, PF+53* , PF+55, PF+56, PF+59, PF+60, PF+63, PF+64, PF+67, PF+68, PF+69, PF+70 , PF+71, PF+74, PF+75, PF+76, PF+80, PF+81, PF+82, PF+85, PF+86, PF+90 , PF+93, PF+94, PF+97, PF+98, PF+101, PF+102, PF+105, PF+111, PF+112, PF+113 , PF+114, PF+115, PF+116, PF+117, PF+120*, SET~, SET+8
DGMOHADT	PF+107~, PF+108, PF+109, PF+112
DGMOHEDT	PF+107~, PF+108, PF+109, PF+116
DGMOHIND	PF+107~, PF+108, PF+109, PF+110, PF+111
DGMOHSDT	PF+107~, PF+108*, PF+114
DGNUM	SET~, SET+6*, SET+8
DGOFF	SET~, SET+4*, SET+8
DGON	SET~, SET+3*, SET+8
>> DGRET	PF+54*, PF+55
DGSTART	ENR+6~, ENR+11, ENR+76, PF+6~, PF+8, PF+120
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+120

Customize PDF page

Package: Registration