Routine: XUMF4L0

Package	Total	Call Graph
Kernel	8	^%ZTLOAD $$NOW^XLFDT FTCLEAN^XUMF4A EN^XUMF4L1 (LOCAL,NVS)^XUMF4L2 MAIN^XUMFH ($$SERVER,MAIN)^XUMFI MAIN^XUMFP
Health Level Seven	1	$$PARAM^HLCS2
MailMan	1	^XMD
VA FileMan	1	UPDATE^DIE

Entry Points

Name	Comments	DBIA/ICR reference
MAIN	; -- main
BG	; -- background job
EN	; -- entry point
UPDATE	; -- get FACILITY TYPE, update, get INSTITUTION, update
MFS0	; -- get national facility type file from Master File Server
MFS1	; -- get national facility type file from Master File Server
CNT()	; -- count station numbers in Institution file
EXIT	; -- cleanup and quit
V23	; -- stuff VISN 23
NEVER	; -- cleanup never performed - notify site and NVS
SITE()	; -- facility name and sta # string

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	CNT+4, V23+15, SITE+2
^DIC(4.1 - [#4.1]	V23+6
^ORD(101 - [#101]	MFS0+3, MFS1+3
^TMP("DIERR"	EXIT+3!
^TMP("XUMF ADD"	EXIT+2!
^TMP("XUMF ARRAY"	UPDATE+3!, UPDATE+11, UPDATE+20, UPDATE+27!, UPDATE+33, EXIT+3!, EXIT+5
^TMP("XUMF DEL"	EXIT+2!
^TMP("XUMF MFS"	UPDATE+27!, EXIT+3!
^TMP("XUMF MOD"	EXIT+2!

Name	Line Occurrences
$$CNT	MAIN+6
$$SITE	NEVER+22
BG	MAIN+8
EXIT	EN+2, UPDATE+14, UPDATE+18, UPDATE+20, UPDATE+24, UPDATE+31, UPDATE+35, UPDATE+40
MFS0	UPDATE+16
MFS1	UPDATE+29
NEVER	MAIN+6
UPDATE	EN+2
V23	MAIN+4

Name	Field # of Occurrence
CNT	CNT+2~, CNT+4*, CNT+6
DUZ	NEVER+23
DUZ(2	SITE+2
ERROR	UPDATE+5~, UPDATE+7, UPDATE+12, UPDATE+14, UPDATE+18, UPDATE+21, UPDATE+24, UPDATE+31, UPDATE+34, MFS0+5 , MFS0+6, MFS1+5, MFS1+6
FDA	V23+9!, V23+18!
FDA(	V23+10, V23+11, V23+12*
FDA(4	V23+19, V23+20, V23+21*
IEN	V23+2~, V23+6, V23+7, V23+15, V23+16
IENS	V23+2~, V23+7, V23+10, V23+11, V23+12, V23+16, V23+19, V23+20, V23+21
PARAM	UPDATE+5~, MFS0+5, MFS0+6, MFS1+5, MFS1+6
PARAM("LLNK"	MFS0+2, MFS1+2
PARAM("PROTOCOL"	MFS0+3, MFS1+3
STA	CNT+2~, CNT+4*
TEST	UPDATE+5~, UPDATE+7, UPDATE+9, MFS0+2, MFS1+2
TEXT	NEVER+2~
TEXT(1	NEVER+4*
TEXT(10	NEVER+13*
TEXT(11	NEVER+14*
TEXT(12	NEVER+15*
TEXT(13	NEVER+16*
TEXT(14	NEVER+17*
TEXT(15	NEVER+18*
TEXT(16	NEVER+19*
TEXT(17	NEVER+20*
TEXT(2	NEVER+5*
TEXT(3	NEVER+6*
TEXT(4	NEVER+7*
TEXT(5	NEVER+8*
TEXT(6	NEVER+9*
TEXT(7	NEVER+10*
TEXT(8	NEVER+11*
TEXT(9	NEVER+12*
U	UPDATE+9, NEVER+26, SITE+2
XMDUZ	NEVER+2~, NEVER+23*
XMSUB	NEVER+2~, NEVER+22*
XMTEXT	NEVER+2~, NEVER+24*
XMY	NEVER+2~
XMY(	NEVER+23*
XMY("G.XUMF I	NSTITUTION" , NEVER+25, NSTITUTION@FORUM" , NEVER+26
XUMF	V23+2~, V23+4*
XUMFLAG	UPDATE+5~, UPDATE+7*
ZTDESC	BG+2~, BG+5*
ZTDTH	BG+2~, BG+6*
ZTIO	BG+2~, BG+7*
>> ZTREQ	EXIT+7*
ZTRTN	BG+2~, BG+4*