Routine: XUMFH4

Package	Total	Call Graph
Kernel	5	^%ZTLOAD $$NOW^XLFDT $$VALUE^XUMFH MAIN^XUMFI ($$DTYP,$$MFI,MAIN)^XUMFP
VA FileMan	3	MSG^DIALOG $$FIND1^DIC (FILE,UPDATE)^DIE
MailMan	1	^XMD

Package	Total	Caller Graph
Kernel	3	XUMF IMF MFK XUMF IMF MFN ^ORD(101

Name	Comments	DBIA/ICR reference
MAIN	; -- entry point
INIT	; -- initialize
PROCESS	; -- pull message text
MSH	; -- MSH segment
MSA	; -- MSA segment
MFI	; -- MFI segment
MFE	; -- MFE segment
ZIN	; -- VHA Institution segment
ZFT	; -- VHA Facility Type
ZZZ	; -- get [Z...] segment(s)
SUBFILE	; -- process subfile record
SUBCOMP	; -- subcomponents
BG	; -- background job
BRDCST	; -- broadcast update
REPLY	; -- master file response
EXIT	; -- cleanup, and quit
EM(ERROR,ERR)	; -- error message

Name	Field # of Occurrence
^%ZTLOAD	BG+13
MSG^DIALOG	EM+6
$$FIND1^DIC	MFE+12
FILE^DIE	ZZZ+41
UPDATE^DIE	ZZZ+26, SUBFILE+16, SUBFILE+24
$$NOW^XLFDT	BG+9
^XMD	EM+20
$$VALUE^XUMFH	ZZZ+22, ZZZ+33, SUBFILE+7, SUBCOMP+6
MAIN^XUMFI	BRDCST+9, REPLY+9
$$DTYP^XUMFP	ZZZ+24, ZZZ+35, SUBFILE+9, SUBCOMP+9
$$MFI^XUMFP	MFI+9
MAIN^XUMFP	MFE+18, BRDCST+8, REPLY+8

HL7 Protocol Name	Call Tags
XUMF IMF MFN	MAIN
XUMF IMF MFK	MAIN

Name	Line Occurrences (* Changed, ! Killed)
^ORD(101 - [#101]	BRDCST+6
^TMP("DIERR"	INIT+2!, EXIT+2!
^TMP("DILIST"	INIT+2!, EXIT+2!
^TMP("HLA"	INIT+3!, BRDCST+4!, EXIT+2!
^TMP("HLS"	INIT+3!, BRDCST+4!, EXIT+2!
^TMP("XUMF MFS"	ZZZ+6, ZZZ+14, ZZZ+16, ZZZ+18, ZZZ+21, ZZZ+32, ZZZ+46, SUBFILE+4, SUBFILE+5, SUBFILE+6 , SUBFILE+11, SUBFILE+12, SUBCOMP+3, SUBCOMP+4, SUBCOMP+5, BRDCST+4!

Name	Line Occurrences
@(	PROCESS+4, ZZZ+7, ZZZ+47
BG	MAIN+6
EM	MSA+8, MFI+7, MFI+12, MFE+9, MFE+16, ZZZ+28, ZZZ+43, SUBFILE+18, SUBFILE+26
EXIT	MAIN+6
INIT	MAIN+6
PROCESS	MAIN+6
REPLY	MAIN+6
SUBCOMP	ZZZ+17
SUBFILE	ZZZ+31

Name	Field # of Occurrence
CNT	MAIN+2~, INIT+5*
CODE	MSA+2~, MSA+4*, MSA+6
ERR	MAIN+2~, MSA+7, MFI+7, MFI+8, MFI+12, MFI+13, MFE+13, MFE+16, MFE+17!, ZZZ+4~ , ZZZ+27, ZZZ+28, ZZZ+29!, ZZZ+42, ZZZ+43, ZZZ+44!, SUBFILE+2~, SUBFILE+17, SUBFILE+18, SUBFILE+19! , SUBFILE+25, SUBFILE+26, SUBFILE+27!, EM~
ERROR	MAIN+2~, INIT+5, MSA+7, MFI+2, MFI+6, MFI+7, MFI+8, MFI+11, MFI+12, MFI+13 , MFE+2, MFE+8, MFE+9, MFE+15, MFE+16, MFE+18, ZZZ+2, BG+2, BRDCST+8, BRDCST+9 , REPLY+8, REPLY+9, EM~, EM+9
FDA	ZZZ+4~, ZZZ+20~, ZZZ+38*, SUBFILE+14~, SUBFILE+22~
FDA(	ZZZ+25, ZZZ+36, SUBFILE+15, SUBFILE+23, SUBCOMP+10*
FDA1	ZZZ+4~, ZZZ+38, ZZZ+39!
FDA1(	SUBFILE+29, SUBFILE+31
FIELD	ZZZ+4~, ZZZ+18, ZZZ+19, ZZZ+21, ZZZ+25, ZZZ+31, ZZZ+32, ZZZ+36, SUBFILE+2~, SUBFILE+5 , SUBFILE+31, SUBCOMP+4*, SUBCOMP+5, SUBCOMP+10
FLG	EM+2~, EM+4, EM+16, EM+18
HDT	MAIN+3~
>> HL("ECH"	INIT+6
>> HL("FS"	INIT+6
>> HL("MID"	EM+8
>> HL("MTN"	BG+3, REPLY+2
HLCS	MAIN+2~, INIT+6*, MFE+11, MFE+12, ZZZ+23, ZZZ+24, ZZZ+34, ZZZ+35, SUBFILE+8, SUBFILE+9 , SUBCOMP+7
HLFS	MAIN+2~, INIT+6*, PROCESS+3, PROCESS+4, MSH+2, MSA+4, MSA+7, MFI+5, MFI+9, MFE+5 , ZZZ+11
>> HLNEXT	PROCESS+2
>> HLNODE	PROCESS+3, PROCESS+4, MSH+2, MSA+4, MSA+7, MFI+5, MFI+9, MFE+5, ZZZ+11, ZZZ+22 , ZZZ+33, SUBFILE+7, SUBCOMP+6
>> HLQUIT	PROCESS+2
HLRESLTA	MAIN+2~
HLSCS	MAIN+4~, INIT+6*, ZZZ+24, ZZZ+35, SUBFILE+9, SUBCOMP+8, SUBCOMP+9
I	MAIN+2~
IEN	MAIN+2~, MFE+3, MFE+12, MFE+13, MFE+14, MFE+18, ZZZ+12, SUBFILE+14~, SUBFILE+22~, BRDCST+8 , BRDCST+9, REPLY+6*, REPLY+8, REPLY+9
IEN(1	SUBFILE+20, SUBFILE+28
IEN1	ZZZ+20~, ZZZ+30
IEN1(1	ZZZ+30
IENS	ZZZ+4~, ZZZ+12, ZZZ+25, ZZZ+30, ZZZ+36, SUBFILE+15, SUBFILE+20, SUBFILE+23, SUBFILE+28, SUBCOMP+10
IENS1	SUBFILE+2~, SUBFILE+20, SUBFILE+28, SUBFILE+29, SUBFILE+30*, SUBFILE+31
IFN	MAIN+2~, MFI+3, MFI+9, MFI+10, MFE+12, MFE+18, ZZZ+25, ZZZ+36, SUBFILE+2~, SUBFILE+4 , SUBFILE+15, SUBFILE+23, SUBFILE+29, SUBFILE+31, SUBCOMP+10, REPLY+6*, REPLY+8, REPLY+9
KEY	MAIN+3~, MFE+5*, MFE+7, MFE+11, MFE+12
KEY1	SUBFILE+2~
MID	MAIN+3~
MKEY	SUBFILE+2~, SUBFILE+12*, SUBFILE+23, SUBFILE+29
MTPE	MAIN+2~
MULT	ZZZ+4~, SUBFILE+11*, SUBFILE+13, SUBFILE+21, SUBFILE+30
MULT(	SUBFILE+20, SUBFILE+28, SUBFILE+30
PARAM	MAIN+3~, MFE+18, BRDCST+2~, BRDCST+4!, BRDCST+8, BRDCST+9, REPLY+8, REPLY+9
PARAM("BROADCAST"	BRDCST+7*
PARAM("PROTOCOL"	BRDCST+6*
POST	ZZZ+4~, ZZZ+46*, ZZZ+47
PRE	ZZZ+4~, ZZZ+6*, ZZZ+7
ROOT	MAIN+3~
SEG	MAIN+3~, ZZZ+11*, ZZZ+14, ZZZ+16, ZZZ+18, ZZZ+21, ZZZ+32, SUBFILE+4, SUBFILE+5, SUBFILE+6 , SUBCOMP+3, SUBCOMP+4, SUBCOMP+5
SEQ	ZZZ+4~, ZZZ+13, ZZZ+14, ZZZ+15, ZZZ+16, ZZZ+18, ZZZ+21, ZZZ+22, ZZZ+32, ZZZ+33 , SUBFILE+4, SUBFILE+5, SUBFILE+6, SUBFILE+7, SUBFILE+11, SUBFILE+12, SUBFILE+13, SUBFILE+20, SUBFILE+28, SUBFILE+30 , SUBCOMP+3, SUBCOMP+4, SUBCOMP+5, SUBCOMP+6
SEQ1	ZZZ+4~, ZZZ+15*
SEQ2	ZZZ+4~, ZZZ+15*, ZZZ+23, ZZZ+24, ZZZ+34, ZZZ+35, SUBFILE+8, SUBFILE+9, SUBCOMP+7
SEQ3	ZZZ+4~, ZZZ+16, ZZZ+17, SUBCOMP+2, SUBCOMP+3*, SUBCOMP+4, SUBCOMP+5, SUBCOMP+8
SFAC	MAIN+4~, MSH+2*, MFE+7
TYP	ZZZ+21, ZZZ+24, ZZZ+32, ZZZ+35, SUBFILE+2~, SUBFILE+6, SUBFILE+9, SUBCOMP+5, SUBCOMP+9
TYPE	MAIN+2~, INIT+5, MFE+18, REPLY+4, REPLY+8, REPLY+9
U	MSA+7, MFI+8, MFI+13
VALUE	MAIN+3~, ZZZ+22, ZZZ+23, ZZZ+24, ZZZ+25, ZZZ+33, ZZZ+34, ZZZ+35, ZZZ+36, SUBFILE+7* , SUBFILE+8, SUBFILE+9, SUBFILE+13, SUBFILE+15, SUBFILE+31, SUBCOMP+6, SUBCOMP+7, SUBCOMP+8, SUBCOMP+9, SUBCOMP+10
X	MAIN+2~, EM+2~, EM+6, EM+14*, EM+15, EM+16
X(	EM+8, EM+9, EM+14, EM+15!, EM+16!, EM+18
XMSUB	EM+2~, EM+10*
XMTEXT	EM+2~, EM+12*
XMY	EM+2~, EM+11*
XREF	MAIN+3~, MFE+11*, MFE+12
XUMF	ZZZ+4~, ZZZ+9*
ZTDESC	BG+5~, BG+8*
ZTDTH	BG+5~, BG+9*
ZTIO	BG+5~, BG+11*
>> ZTREQ	BRDCST+11*
ZTRTN	BG+5~, BG+7*
ZTSAVE	BG+5~
ZTSAVE("IEN"	BG+10*

Name

Field # of Occurrence

CNT

CODE

MSA+2~, MSA+4*, MSA+6

ERR

MAIN+2~, MSA+7, MFI+7, MFI+8, MFI+12, MFI+13, MFE+13, MFE+16, MFE+17!, ZZZ+4~
, ZZZ+27, ZZZ+28, ZZZ+29!, ZZZ+42, ZZZ+43, ZZZ+44!, SUBFILE+2~, SUBFILE+17, SUBFILE+18, SUBFILE+19!
, SUBFILE+25, SUBFILE+26, SUBFILE+27!, EM~

ERROR

MAIN+2~, INIT+5*, MSA+7*, MFI+2, MFI+6*, MFI+7, MFI+8*, MFI+11*, MFI+12, MFI+13*
, MFE+2, MFE+8*, MFE+9, MFE+15*, MFE+16, MFE+18, ZZZ+2, BG+2, BRDCST+8, BRDCST+9
, REPLY+8, REPLY+9, EM~, EM+9

FDA

ZZZ+4~, ZZZ+20~, ZZZ+38*, SUBFILE+14~, SUBFILE+22~

FDA(

ZZZ+25*, ZZZ+36*, SUBFILE+15*, SUBFILE+23*, SUBCOMP+10*

FDA1

ZZZ+4~, ZZZ+38, ZZZ+39!

FDA1(

SUBFILE+29*, SUBFILE+31*

FIELD