Routine: XUMF390

Package	Total	Call Graph
Kernel	6	^%ZTLOAD $$NOW^XLFDT ($$IEN,LOAD)^XUMF MAIN^XUMFH MAIN^XUMFI MAIN^XUMFP
VA FileMan	2	$$FIND1^DIC UPDATE^DIE
Health Level Seven	1	$$PARAM^HLCS2

Entry Points

Name	Comments	DBIA/ICR reference
MAIN	; -- main
BG	; -- background job
EN	; -- entry point
MFS0	; -- get CLIA from Institution Master File
MFS1	; -- get ACR# from Institution Master File
EXIT	; -- cleanup and quit
CLIA	; -- add CLIA ID to Institution file
MAMMO	; -- add MAMMO ID to Institution file
LINK	;

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	CLIA+11, MAMMO+11
^ORD(101 - [#101]	MFS0+4, MFS1+4
^TMP("DIERR"	EXIT+2!
^TMP("XUMF ARRAY"	EN+4!, EN+12, EN+21, EN+32!, EN+38, EXIT+2!, EXIT+4, CLIA+7, CLIA+8, MAMMO+7 , MAMMO+8
^TMP("XUMF MFS"	EN+32!, EXIT+2!

Name	Field # of Occurrence
AGENCY	CLIA+2~
ERROR	EN+6~, EN+8, EN+13, EN+15, EN+19, EN+22, EN+24, EN+28, EN+36, EN+39 , EN+41, MFS0+6, MFS0+7, MFS1+6, MFS1+7, CLIA+2~, MAMMO+2~
FDA	CLIA+2~, CLIA+14!, MAMMO+2~, MAMMO+14!, LINK+2~, LINK+7!, LINK+14!
FDA(	CLIA+15, CLIA+16, MAMMO+15, MAMMO+16
FDA(870	LINK+8, LINK+15
ID	CLIA+2~, CLIA+6, CLIA+7, CLIA+8, CLIA+10, CLIA+16, MAMMO+2~, MAMMO+6, MAMMO+7, MAMMO+8 , MAMMO+10, MAMMO+16
IEN	CLIA+2~, CLIA+10, CLIA+11, CLIA+12, CLIA+13, MAMMO+2~, MAMMO+10, MAMMO+11, MAMMO+12, MAMMO+13 , LINK+2~, LINK+4, LINK+5, LINK+11, LINK+12
IENS	CLIA+2~, CLIA+13, CLIA+15, CLIA+16, MAMMO+2~, MAMMO+13, MAMMO+15, MAMMO+16, LINK+2~, LINK+5* , LINK+8, LINK+12*, LINK+15
NAME	CLIA+2~, MAMMO+2~
OFNME	CLIA+2~
PARAM	EN+6~, MFS0+6, MFS0+7, MFS1+6, MFS1+7
PARAM("CDSYS"	MFS0+2, MFS1+2
PARAM("LLNK"	MFS0+3, MFS1+3
PARAM("PROTOCOL"	MFS0+4, MFS1+4
STANUM	CLIA+2~, CLIA+9, CLIA+11, MAMMO+2~, MAMMO+9, MAMMO+11
TEST	EN+6~, EN+8, EN+10, MFS0+3, MFS1+3
U	EN+10, CLIA+9, MAMMO+9
X	CLIA+2~, CLIA+8, CLIA+9, MAMMO+2~, MAMMO+8, MAMMO+9
XUMF	CLIA+2~, CLIA+4, MAMMO+2~, MAMMO+4
XUMFLAG	EN+6~, EN+8*
ZTDESC	BG+2~, BG+5*
ZTDTH	BG+2~, BG+6*
>> ZTIO	BG+7*
>> ZTREQ	EXIT+6*
ZTRTN	BG+2~, BG+4*