Routine: DG53446P

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

Entry Points

Name	Comments	DBIA/ICR reference
TSPEC	;Add treating specialty to SPECIALTY File (#42.4)
FAC	;Add treating specialty to Facility Treating Specialty file (#45.7)
EN	;Add Observation Treating Specialties to the SPECIALITY file (#42.4)
MULT	;Add Effective Date
TRSP	;PTF code^Speciality^Print Name^Service^Ask Psych^Billing Bedsection^CDR^^Ques#

Name	Field # of Occurrence
^DIC	TSPEC+9, FAC+19, MULT+6
^DIE	TSPEC+25, FAC+32, MULT+12
BMES^XPDUTL	TSPEC+1, FAC+2, FAC+6, FAC+10, FAC+21, FAC+23, FAC+27
MES^XPDUTL	TSPEC+12, TSPEC+13, TSPEC+16, TSPEC+17, TSPEC+20, TSPEC+21, FAC+3, FAC+7, FAC+11, FAC+12 , FAC+24, FAC+25, FAC+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	TSPEC+2~, TSPEC+24, FAC+14~, FAC+30, MULT+1~, MULT+7*
DA(1	MULT+2*
DGDA1	TSPEC+2~, TSPEC+10, FAC+20, FAC+21, FAC+22, FAC+27, FAC+30, FAC+35, MULT+2
DGERR	EN+1~, TSPEC+3, TSPEC+18, FAC+9
DGFILE	TSPEC+2~, TSPEC+26, FAC+14~, FAC+33, MULT+4
DGI	EN+1~, EN+3*
DGIFN	EN+1~, EN+2, TSPEC+10, TSPEC+11, TSPEC+15, TSPEC+20, TSPEC+24, TSPEC+28, FAC+5
DGMULT	TSPEC+2~, TSPEC+27, FAC+14~, FAC+34, MULT+4
DGQUES	EN+1~, EN+5*, FAC+1
DGSPEC	EN+1~, EN+3*, EN+5, TSPEC+1, TSPEC+6, TSPEC+7, TSPEC+15, TSPEC+23, FAC+18, FAC+22 , FAC+31
DIC	TSPEC+2~, TSPEC+4, TSPEC+22, TSPEC+28, FAC+14~, FAC+15, FAC+29, FAC+35, MULT+10
DIC("P"	MULT+4*
DIC(0	TSPEC+5, FAC+16, MULT+3*
DIE	TSPEC+2~, TSPEC+22, FAC+14~, FAC+29, MULT+1~, MULT+10*
DINUM	TSPEC+2~, TSPEC+6*
DLAYGO	TSPEC+2~, TSPEC+8, FAC+14~, FAC+17
DR	TSPEC+2~, TSPEC+23, FAC+14~, FAC+31, MULT+1~, MULT+11*
U	EN+5, TSPEC+1, TSPEC+6, TSPEC+7, TSPEC+15, TSPEC+20, TSPEC+23, FAC+18, FAC+22, FAC+27 , FAC+31
X	TSPEC+2~, TSPEC+7, FAC+14~, FAC+18, MULT+5*
>> XPDQUES(	FAC+1
Y	TSPEC+2~, TSPEC+10, FAC+14~, FAC+20, MULT+7, MULT+8
Y(0	FAC+22

Name	Field # of Occurrence
$T(TRSP+DGI	EN+3