Routine: DGENLCD1

Information

DGENLCD1 ;ALB/CJM,Zoltan,JAN - Enrollment Catastrophic Disability- Build List Area;13 JUN 1997 08:00 am,NOV 14 2001

Package	Total	Call Graph
Registration	4	$$RANGEMET^DGENA5 ($$GET,$$HASCAT)^DGENCDA $$EXT^DGENCDU SET^DGENL1

Package	Total	Caller Graph
Registration	1	DGENLCD

Name	Comments	DBIA/ICR reference
EN(DGARY,DFN,DGCNT)	;Entry point to build list area ; Input -- DGARY Global array subscript ; DFN Patient IEN ; Output -- DGCNT Number of lines in the list
CD(DGARY,DFN,DGCDIS,DGLINE,DGCNT)	;

Name	Field # of Occurrence
$$RANGEMET^DGENA5	CD+47
$$GET^DGENCDA	EN+5
$$HASCAT^DGENCDA	CD+12
$$EXT^DGENCDU	CD+16, CD+18, CD+20, CD+22, CD+24, CD+34, CD+38, CD+40, CD+43, CD+45 , CD+48
SET^DGENL1	CD+10, CD+13, CD+16, CD+18, CD+20, CD+22, CD+24, CD+29, CD+34, CD+38 , CD+40, CD+43, CD+45, CD+49

Name	Line Occurrences
CD	EN+7

Name	Field # of Occurrence
DFN	EN~, EN+5, EN+7, CD~, CD+12
DGARY	EN~, EN+7, CD~, CD+10, CD+13, CD+16, CD+18, CD+20, CD+22, CD+24 , CD+29, CD+34, CD+38, CD+40, CD+43, CD+45, CD+49
DGCDIS	EN+4~, EN+5, EN+7, CD~
DGCDIS("BY"	CD+18
DGCDIS("COND"	CD+27, CD+41, CD+43, CD+47
DGCDIS("DATE"	CD+16
DGCDIS("DIAG"	CD+27, CD+32, CD+34
DGCDIS("EXT"	CD+36, CD+40
DGCDIS("FACDET"	CD+20
DGCDIS("METDET"	CD+24
DGCDIS("PERM"	CD+48
DGCDIS("PROC"	CD+27, CD+35, CD+38
DGCDIS("REVDTE"	CD+22
DGCDIS("SCORE"	CD+45, CD+47
DGCNT	EN~, EN+6*, EN+7, CD~, CD+10, CD+13, CD+16, CD+18, CD+20, CD+22 , CD+24, CD+29, CD+34, CD+38, CD+40, CD+43, CD+45, CD+49
DGLINE	EN+4~, EN+6, EN+7, CD~, CD+9, CD+10, CD+11, CD+13, CD+15, CD+16 , CD+17, CD+18, CD+19, CD+20, CD+21, CD+22, CD+23, CD+24, CD+28, CD+29 , CD+30, CD+33, CD+34, CD+37, CD+38, CD+39, CD+40, CD+42, CD+43, CD+44 , CD+45, CD+46*, CD+49
DGSTART	CD+7~, CD+9*
HASCAT	CD+7~, CD+12*, CD+13
>> IORVOFF	CD+10, CD+29
>> IORVON	CD+10, CD+29
>> ITEM	CD+31, CD+32, CD+34, CD+35, CD+36, CD+38, CD+40, CD+41, CD+43, CD+45 , CD+47, CD+48
PERM	CD+7~, CD+47, CD+48, CD+49
>> SUBITEM	CD+31, CD+36, CD+40