Routine: DGYMTRT

Package	Total	Call Graph
VA FileMan	5	^DIC FILE^DICN ^DIE ^DIK ^DIR
Registration	1	EN^DGYMTRT1

Entry Points

Name	Comments	DBIA/ICR reference
EN	;
ADD	; Add new treating specialty to Specialty file (#42.4).
TRTS	; Specialties

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,">>>Starting update of Specialty (#42.4) and Facility Treating Specialty (#45.7)",!?3,"files...",! Line Location: ADD+2
Function Call: WRITE	Prompt: ! Line Location: ADD+18
Function Call: WRITE	Prompt: ! Line Location: ADD+20
Function Call: WRITE	Prompt: !!,"...Service ",$P(DGXX,U,8)," was not found in the SERVICE/SECTION",!?3,"file (#49). File #45.7 not updated.",! Line Location: ADD+24
Routine Call	DIC Line Location: ADD+23
Routine Call	DIE Line Location: ADD+10 ADD+25
Routine Call	DIR Line Location: ADD+18 ADD+22

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42.4 - [#42.4]	ADD+6, ADD+9
^DIC(45.7 - [#45.7]	ADD+15, ADD+16, ADD+21, ADD+26
^DIC(49 - [#49]	ADD+25

Name	Line Occurrences
ADD	EN+1

Name	Field # of Occurrence
DA	ADD+7, ADD+9, ADD+10!, ADD+24!, ADD+25*!
DD	ADD+5!, ADD+19!
DGNOFAC	ADD+14!, ADD+17, ADD+18*, ADD+28!
DGNUM	ADD+4*, ADD+6, ADD+7, ADD+9, ADD+11!, ADD+27!, ADD+28!
DGSER	ADD+23*, ADD+24!, ADD+25, ADD+27!
DGTRIEN	ADD+14!, ADD+15, ADD+16, ADD+19, ADD+21, ADD+24, ADD+25, ADD+26, ADD+28!
DGTRNAM	ADD+9*, ADD+11!, ADD+12
DGTRNODE	ADD+14!, ADD+16*, ADD+17, ADD+20, ADD+28!
DGTRW	ADD+22*, ADD+26, ADD+27!, ADD+28!
DGX	ADD+1~, ADD+3*
DGXX	ADD+1~, ADD+3*, ADD+4, ADD+6, ADD+8, ADD+9, ADD+12, ADD+15, ADD+19, ADD+23 , ADD+24, ADD+25
DIC	ADD+4, ADD+5!, ADD+19!, ADD+23*!
DIC(0	ADD+4, ADD+19, ADD+23*
DIE	ADD+7, ADD+10!, ADD+25!
DIK	ADD+24*!
DINUM	ADD+4*, ADD+5!
DIR	ADD+18!, ADD+22!
DIR("A"	ADD+18, ADD+22
DIR("B"	ADD+18, ADD+22
DIR(0	ADD+18, ADD+22
DIRUT	ADD+18, ADD+20!, ADD+22
DLAYGO	ADD+4, ADD+5!, ADD+19!
DO	ADD+5!, ADD+19!
DR	ADD+8, ADD+9, ADD+10!, ADD+25*!
DTOUT	ADD+3, ADD+18, ADD+20, ADD+22, ADD+28!
DUOUT	ADD+3, ADD+18, ADD+20, ADD+22, ADD+28!
U	ADD+4, ADD+6, ADD+8, ADD+9, ADD+12, ADD+15, ADD+19, ADD+21, ADD+23, ADD+24 , ADD+25, ADD+26
X	ADD+4, ADD+5!, ADD+19!, ADD+23*!
Y	ADD+6, ADD+18, ADD+19!, ADD+20!, ADD+22, ADD+23, ADD+27!

Name	Field # of Occurrence
$T(TRTS+DGX	ADD+3