Routine: DGYLPOST

Package	Total	Call Graph
VA FileMan	3	FILE^DICN ^DIE ENALL^DIK

Entry Points

Name	Comments	DBIA/ICR reference
EN	;
ENQ
INIT	;Place active codes in an array
NMCHG	;Change the name of codes
CLEAN	;Clean up existing entries; add new if doesn't exit
INACT	;Inactivate entry
NEW	;Add new entry
MESA	;Message to add new entry
ADM	;List of active VA ADMITTING REGULATIONS
HL7	; Update HL7 version and segment files
HL7713
INDEX	; Reindex VA ADMITTING REGULATION file

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Adding entries to the VA ADMITTING REGULATION (43.4) file." Line Location: NEW+4
Function Call: WRITE	Prompt: !?8,"...adding "_$P(ADM(DGI),U)_" to file..." Line Location: MESA+1
Routine Call	DIE Line Location: NMCHG+4 NMCHG+6 CLEAN+8 HL7+6 HL7713+3

Name	Line Occurrences (* Changed, ! Killed)
^DIC(43.4 - [#43.4]	NMCHG+3, NMCHG+5, CLEAN+4, CLEAN+6, CLEAN+9, INACT+3, INACT+4, INACT+5
^HL(770 - [#770]	HL7+5
^HL(771.3 - [#771.3]	HL7713
^HL(771.5 - [#771.5]	HL7+3

Name	Field # of Occurrence
ADM	ENQ!
ADM(	INIT+2*, CLEAN+5, CLEAN+7, CLEAN+10!, NEW+5, NEW+7, NEW+8, MESA+1
DA	NMCHG+2~, NMCHG+4, NMCHG+6, CLEAN+2~, CLEAN+7, HL7+2~, HL7+5, HL7+6, HL7713+1, HL7713+2
DD	HL7+4!, HL7713+1!
DGA	CLEAN+2~, CLEAN+3, CLEAN+6, CLEAN+7, CLEAN+9*, INACT+2, INACT+3
DGA1	CLEAN+2~, INACT+2, INACT+3, INACT+4, INACT+5*
DGC	INIT+1~, INIT+2*
DGI	INIT+1~, INIT+2, NMCHG+2~, NMCHG+3, NMCHG+4, NMCHG+5, NMCHG+6, CLEAN+2~, CLEAN+3, CLEAN+4* , CLEAN+5, CLEAN+6, CLEAN+7, CLEAN+9, CLEAN+10, INACT+3, INACT+5, NEW+2~, NEW+3, NEW+5 , NEW+7, NEW+8, MESA+1
DIC	NEW+2~, NEW+6, HL7+2~, HL7+4, HL7713+1*, HL7713+2
DIC("DR"	NEW+8*
DIC(0	NEW+6, HL7+4, HL7713+1*
DIE	NMCHG+2~, NMCHG+4, NMCHG+6, CLEAN+2~, CLEAN+7, HL7+2~, HL7+6, HL7713+2*
DIK	INDEX+1~, INDEX+2*
DIK(1	INDEX+2*
DLAYGO	NEW+2~, NEW+6, HL7+2~, HL7+4, HL7713+1*
DO	HL7+4!, HL7713+1!
DR	NMCHG+2~, NMCHG+4, NMCHG+6, CLEAN+2~, CLEAN+7, HL7+6, HL7713+2*
HLVER	HL7+2~, HL7+3, HL7+5
U	INIT+2, CLEAN+7, INACT+4, INACT+5, NEW+7, NEW+8, MESA+1
X	NEW+2~, NEW+7, HL7+2~, HL7+4, HL7713+1*
Y	NEW+2~, HL7+2~, HL7+5, HL7+6, HL7713+1, HL7713+2

Name	Field # of Occurrence
$T(ADM+DGI	INIT+2