Routine: MAGDHW0

Package	Total	Call Graph
VA FileMan	2	FILE^DICN ^DIE

Entry Points

Name	Comments	DBIA/ICR reference
INIT	; ; simulate call to INT^HLFNC2
FINDSEG(ARRAY,SEGMENT,I,X)	; find a specific HL7 segment in an array ; input -- ARRAY ---- an HL7 array ; input -- SEGMENT -- three-letter HL7 segment identifier ; input -- I -------- index of the found segment (or null) ; output - I -------- index of the found segment (or null) ; output - X -------- string of fields sans segment identifier ; return - HIT ------ flag indicating segment found
SAVESEG(I,X)	; save updated segment
ADDSEG(X)	; add a new segment to the end if the message
OUTPUT	; output the message to ^MAGDHL7

Name	Field # of Occurrence
FILE^DICN	OUTPUT+2
^DIE	OUTPUT+3

FileNo	Call Tags
^MAGDHL7(2006.5 - [#2006.5]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD("SITE"	INIT+10
^MAGDHL7(2006.5 - [#2006.5]	OUTPUT+4, OUTPUT+11, OUTPUT+15, OUTPUT+19

Name	Field # of Occurrence
ARRAY	FINDSEG~
ARRAY(	FINDSEG+10, FINDSEG+11
D0	OUTPUT+1~, OUTPUT+2*, OUTPUT+3, OUTPUT+4, OUTPUT+11, OUTPUT+15, OUTPUT+19
DA	OUTPUT+1~, OUTPUT+3*
>> DEL	INIT+13*, FINDSEG+10, FINDSEG+11, SAVESEG+1, OUTPUT+6, OUTPUT+7, OUTPUT+8, OUTPUT+13
DIC	OUTPUT+1~, OUTPUT+2*, OUTPUT+3
DIC(0	OUTPUT+2*
DIE	OUTPUT+1~, OUTPUT+3*
DR	OUTPUT+1~, OUTPUT+3*
>> FMDATE	OUTPUT+2
>> FMDATETM	OUTPUT+19
HIT	FINDSEG+8~, FINDSEG+9, FINDSEG+12, FINDSEG+14
>> HL("CC"	INIT+3*
>> HL("ECH"	INIT+4*, INIT+14
>> HL("ETN"	INIT+5*
>> HL("FS"	INIT+6*, INIT+13
>> HL("MTN"	INIT+7*
>> HL("PID"	INIT+8*
>> HL("Q"	INIT+9*
>> HL("SAF"	INIT+10*
>> HL("SAN"	INIT+11*
>> HL("VER"	INIT+12*
>> HL7(	SAVESEG+1, ADDSEG+1
>> HL7(""	ADDSEG+1
I	INIT+2~, INIT+14, FINDSEG~, FINDSEG+10, FINDSEG+11, SAVESEG~, SAVESEG+1, OUTPUT+1~, OUTPUT+5*, OUTPUT+6
J	OUTPUT+1~, OUTPUT+5, OUTPUT+11, OUTPUT+15*, OUTPUT+19
K	OUTPUT+1~, OUTPUT+7*, OUTPUT+8, OUTPUT+13
SEGMENT	FINDSEG~, FINDSEG+10
U	INIT+15*
X	FINDSEG~, FINDSEG+11, SAVESEG~, SAVESEG+1, ADDSEG~, ADDSEG+1, OUTPUT+1~, OUTPUT+2, OUTPUT+6*, OUTPUT+7 , OUTPUT+8, OUTPUT+13
Y	OUTPUT+1~, OUTPUT+2, OUTPUT+6, OUTPUT+9, OUTPUT+11, OUTPUT+13*, OUTPUT+15
Z	OUTPUT+1~, OUTPUT+8*, OUTPUT+9