Routine: DG53729R

Package	Total	Call Graph
VA Fileman	4	DELIX^DDMOD ^DIC FILE^DICN ^DIE
Kernel	1	(BMES,MES)^XPDUTL

Package	Total	Caller Graph
Registration	1	DG53729P

Entry Points

Name	Comments	DBIA/ICR reference
EDIT	;Edit surgical specialties
PTFCAT	;Place inactive date in PTF EXPANDED CODE CATEGORY (#.03) field
ESURGSP	;;Code^Specialty
PTFCAT1	;- PTF EXPANDED CODE CATEGORY items to inactivate

Name	Field # of Occurrence
DELIX^DDMOD	PTFCAT+50
^DIC	PTFCAT+17, PTFCAT+30
FILE^DICN	PTFCAT+36
^DIE	EDIT+9, PTFCAT+22
BMES^XPDUTL	EDIT+10, EDIT+11, EDIT+12, PTFCAT+24, PTFCAT+26, PTFCAT+49
MES^XPDUTL	PTFCAT+27, PTFCAT+33, PTFCAT+38, PTFCAT+39, PTFCAT+40

Name	Line Occurrences (* Changed, ! Killed)
^DD(45.05	PTFCAT+48
^DD(45.88	PTFCAT+3, PTFCAT+5, PTFCAT+9, PTFCAT+10, PTFCAT+42, PTFCAT+43
^DD(45.89	PTFCAT+7, PTFCAT+11, PTFCAT+44
^DIC(45.3 - [#45.3]	EDIT+7
^DIC(45.89 - [#45.89]	PTFCAT+32

Name	Field # of Occurrence
CAT	PTFCAT+12~, PTFCAT+13*, PTFCAT+15, PTFCAT+16, PTFCAT+20, PTFCAT+21, PTFCAT+23, PTFCAT+24, PTFCAT+26
D0	PTFCAT+36!
DA	EDIT+8, PTFCAT+19, PTFCAT+45!
DGCD	EDIT+1~, EDIT+6*, EDIT+7
>> DGERR	EDIT+5*
DGI	EDIT+1~, EDIT+4*
>> DGII	EDIT+7*
DGPCD	PTFCAT+12~, PTFCAT+29*, PTFCAT+30, PTFCAT+35
>> DGSPEC	EDIT+4*, EDIT+6, EDIT+8, EDIT+12
>> DGSPEC1	EDIT+7*, EDIT+8
DIC	PTFCAT+12~, PTFCAT+14, PTFCAT+19, PTFCAT+30, PTFCAT+34*, PTFCAT+45!
DIC("DR"	PTFCAT+35*
DIC(0	EDIT+3, PTFCAT+14, PTFCAT+16, PTFCAT+30, PTFCAT+34*
DIE	EDIT+1~, EDIT+2, PTFCAT+12~, PTFCAT+19, PTFCAT+45!
DR	EDIT+1~, EDIT+8, PTFCAT+12~, PTFCAT+20, PTFCAT+21*, PTFCAT+45!
DS	EDIT+1~
I	PTFCAT+12~, PTFCAT+13*
SAVXC	PTFCAT+2~, PTFCAT+7*, PTFCAT+8, PTFCAT+44
SAVXF	PTFCAT+2~, PTFCAT+3*, PTFCAT+4, PTFCAT+42
SAVXI	PTFCAT+2~, PTFCAT+5*, PTFCAT+6, PTFCAT+43
U	EDIT+6, EDIT+8, EDIT+12, PTFCAT+3, PTFCAT+5, PTFCAT+7, PTFCAT+9, PTFCAT+10, PTFCAT+11, PTFCAT+33 , PTFCAT+40, PTFCAT+42, PTFCAT+43, PTFCAT+44
X	PTFCAT+12~, PTFCAT+15, PTFCAT+30, PTFCAT+35*, PTFCAT+45!
XC	PTFCAT+2~, PTFCAT+8*, PTFCAT+11
XF	PTFCAT+2~, PTFCAT+4*, PTFCAT+9
XI	PTFCAT+2~, PTFCAT+6*, PTFCAT+10
Y	PTFCAT+12~, PTFCAT+18, PTFCAT+19, PTFCAT+31, PTFCAT+32, PTFCAT+33, PTFCAT+37, PTFCAT+40, PTFCAT+45!

Name	Field # of Occurrence
$T(ESURGSP+DGI	EDIT+4
$T(PTFCAT1+I	PTFCAT+13