Routine: DGPTAE04

Package	Total	Call Graph
DRG Grouper	1	$$ICDOP^ICDCODE
Registration	1	WRTERR^DGPTAE

Package	Total	Caller Graph
Registration	1	DGPT401

Entry Points

Name	Comments	DBIA/ICR reference
CURR	;
ERR	;
TRAN	;-- verify transplant status
FAST	;
ANES	;
CHIEF	;
EXIT	;
ARRAY	;
CHKOPC	;
SAVE	;
GEN	;
LOOP	;
FIRST	;-- Edit surgeries - present in ICD0 OPERATIONS, current, gender ok

Name	Field # of Occurrence
WRTERR^DGPTAE	ERR+1
$$ICDOP^ICDCODE	GEN+2, GEN+5, CURR+1

Name	Line Occurrences (* Changed, ! Killed)
^DGPT - [#45]	GEN+5
^ICD0("AB"	CHKOPC+4, GEN+1

Name	Field # of Occurrence
>> DGPT40PT	TRAN+1
DGPTDAT	GEN+5~*
>> DGPTEDFL	FIRST+2, LOOP+1
>> DGPTERC	TRAN+1, CHIEF+3, CHIEF+5, FAST+5, ANES+5, ANES+6, FIRST+2, LOOP+1, CHKOPC+2, CHKOPC+4 , GEN+1, GEN+5, GEN+6, GEN+7, CURR+2, ERR+1
>> DGPTGEN	GEN+7
DGPTL3	LOOP+1*, CHKOPC+1, CHKOPC+2, CURR+2, SAVE+1, EXIT+1!
DGPTOC	CHKOPC+1, CHKOPC+3, CHKOPC+4, GEN+1, SAVE+1, EXIT+1!
DGPTOC1	EXIT+1!
>> DGPTOPAR(	ARRAY+1*
DGPTOPP	GEN+1*, GEN+2, GEN+5, CURR+1, ARRAY+1, EXIT+1!
>> DGPTSAT	ANES+2, ANES+3*, ANES+5
>> DGPTSCS	CHIEF+2, CHIEF+3
>> DGPTSDD	GEN+2, CURR+1, CURR+2, ARRAY+1
>> DGPTSFA	FAST+2, FAST+3*, FAST+5
>> DGPTSO1	FIRST+2
>> DGPTSTTY	CHIEF+4, FAST+3, ANES+3, ANES+6
>> DGPTTMP	GEN+2, GEN+5, GEN+7, CURR+1*, CURR+2
DT	GEN+2, CURR+1
FLAG	CHIEF+1~, CHIEF+4, CHIEF+5, FAST+1~, FAST+3, FAST+4, ANES+1~, ANES+3*, ANES+4
I	CHIEF+1~, CHIEF+4, FAST+1~, FAST+3, ANES+1~, ANES+3, ANES+6
>> NODE	ERR+1
>> PTF	GEN+5
>> SEQ	ERR+1
U	GEN+5, GEN+7, CURR+2, ARRAY+1