Routine: DG53270P

Package	Total	Call Graph
VA FileMan	2	^DIC ^DIE
Kernel	1	(BMES,MES)^XPDUTL

Entry Points

Name	Comments	DBIA/ICR reference
EN	;Add Domiciliary Treating Specialty to the SPECIALITY file (#42.4)
TSNATL	;Add treating specialty "Domiciliary Care for Homeless Veterans" to
TSLOCAL	;Add treating specialty to local Facility Treating Specialty file (#45.7)
MULT	;Add Effective Date
TSINFO	;PTF code^Speciality^Print Name^Service^Ask Psych^Billing Bedsection^CDR^^Ques#

Name	Field # of Occurrence
^DIC	TSNATL+10, TSLOCAL+19, MULT+6
^DIE	TSNATL+26, TSLOCAL+32, MULT+12
BMES^XPDUTL	TSNATL+2, TSLOCAL+2, TSLOCAL+6, TSLOCAL+10, TSLOCAL+21, TSLOCAL+23, TSLOCAL+27
MES^XPDUTL	TSNATL+13, TSNATL+14, TSNATL+17, TSNATL+18, TSNATL+21, TSNATL+22, TSLOCAL+3, TSLOCAL+7, TSLOCAL+11, TSLOCAL+12 , TSLOCAL+24, TSLOCAL+25, TSLOCAL+28, MULT+8, MULT+9

FileNo	Call Tags
^DIC(42.4 - [#42.4]	Classic Fileman Calls
^DIC(45.7 - [#45.7]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD(	MULT+4

Name	Field # of Occurrence
DA	TSNATL+3~, TSNATL+25, TSLOCAL+14~, TSLOCAL+30, MULT+1~, MULT+7*
DA(1	MULT+2*
DGDA1	TSNATL+3~, TSNATL+11, TSLOCAL+20, TSLOCAL+21, TSLOCAL+22, TSLOCAL+27, TSLOCAL+30, TSLOCAL+35, MULT+2
DGERR	EN+2~, TSNATL+4, TSNATL+19, TSLOCAL+9
DGFILE	TSNATL+3~, TSNATL+27, TSLOCAL+14~, TSLOCAL+33, MULT+4
DGIFN	EN+2~, EN+3, TSNATL+11, TSNATL+12, TSNATL+16, TSNATL+21, TSNATL+25, TSNATL+29, TSLOCAL+5
DGMULT	TSNATL+3~, TSNATL+28, TSLOCAL+14~, TSLOCAL+34, MULT+4
DGQUES	EN+2~, EN+6*, TSLOCAL+1
DGSPEC	EN+2~, EN+4*, EN+6, TSNATL+2, TSNATL+7, TSNATL+8, TSNATL+16, TSNATL+24, TSLOCAL+18, TSLOCAL+22 , TSLOCAL+31
DIC	TSNATL+3~, TSNATL+5, TSNATL+23, TSNATL+29, TSLOCAL+14~, TSLOCAL+15, TSLOCAL+29, TSLOCAL+35, MULT+10
DIC("P"	MULT+4*
DIC(0	TSNATL+6, TSLOCAL+16, MULT+3*
DIE	TSNATL+3~, TSNATL+23, TSLOCAL+14~, TSLOCAL+29, MULT+1~, MULT+10*
DINUM	TSNATL+3~, TSNATL+7*
DLAYGO	TSNATL+3~, TSNATL+9, TSLOCAL+14~, TSLOCAL+17
DR	TSNATL+3~, TSNATL+24, TSLOCAL+14~, TSLOCAL+31, MULT+1~, MULT+11*
U	EN+6, TSNATL+2, TSNATL+7, TSNATL+8, TSNATL+16, TSNATL+21, TSNATL+24, TSLOCAL+18, TSLOCAL+22, TSLOCAL+27 , TSLOCAL+31
X	TSNATL+3~, TSNATL+8, TSLOCAL+14~, TSLOCAL+18, MULT+5*
>> XPDQUES(	TSLOCAL+1
Y	TSNATL+3~, TSNATL+11, TSLOCAL+14~, TSLOCAL+20, MULT+7, MULT+8
Y(0	TSLOCAL+22

Name	Field # of Occurrence
$T(TSINFO+1	EN+4