Routine: XUMF4

Information

XUMF4 ;OIFO-OAK/RAM - Institution File Clean Up; 06/28/00

Source Information

Source file <XUMF4.m>

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
Kernel	4	(FACTYP,FTCLEAN,STATE)^XUMF4A (EM,MAIN)^XUMFH MAIN^XUMFI MAIN^XUMFP
Registration	4	EN^VALM ($$SETFLD,CLEAR)^VALM1 SET^VALM10 EN^VALM2
VA Fileman	3	^DIE ENALL^DIK ^DIR
Health Level Seven	1	$$PARAM^HLCS2

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Kernel	2	XUMF INSTITUTION XUMF4A

Entry Points

Name	Comments	DBIA/ICR reference
EN	; -- entry point
MFS0	; -- get national facility type file from Master File Server
RDSN	; - resolve duplicate station number
DXRF	; -- re-index "D" cross-reference
MFS1	; -- get national facility type file from Master File Server
EXIT1	;
EOP	; -- End-of-Page
EXIT	; -- cleanup and quit
NATL	; -- national data to merge
LLCL	; -- local data
LOCAL	; -- auto-delete local/duplicate station numbers
DSTA	; -- duplicate station #s
NAME	; -- compare INSTITUTION name vs national name

External References

Name	Field # of Occurrence
^DIE	RDSN+17, LOCAL+24, LOCAL+35
ENALL^DIK	DXRF+6
^DIR	LOCAL+5, EOP+3
$$PARAM^HLCS2	EN+8
EN^VALM	EN+37
$$SETFLD^VALM1	DSTA+18, DSTA+19, DSTA+20, DSTA+21, DSTA+26, LLCL+13, LLCL+14, LLCL+15, LLCL+16, LLCL+21 , NATL+13, NATL+14, NATL+15, NATL+16, NATL+20, NAME+26, NAME+27, NAME+28, NAME+32
CLEAR^VALM1	EOP+3
SET^VALM10	DSTA+22, DSTA+28, LLCL+17, LLCL+22, NATL+17, NATL+21, NAME+29, NAME+33
EN^VALM2	RDSN+8
FACTYP^XUMF4A	MFS0+2
FTCLEAN^XUMF4A	EN+24
STATE^XUMF4A	MFS0+3
EM^XUMFH	EXIT1+9
MAIN^XUMFH	MFS0+11, MFS1+9
MAIN^XUMFI	MFS0+10, MFS1+8
MAIN^XUMFP	MFS0+9, MFS1+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"...connecting with master file server..." Line Location: EN+28
Function Call: WRITE	Prompt: !!,"This action will auto-delete local/duplicate station numbers." Line Location: LOCAL+2
Function Call: WRITE	Prompt: ! Line Location: LOCAL+3
Function Call: WRITE	Prompt: !!,"...getting FACILITY TYPE file..." Line Location: MFS0+8
Function Call: WRITE	Prompt: !!,"...getting INSTITUTION file..." Line Location: MFS1+5
Function Call: WRITE	Prompt: !,"...please wait...(approx. 5 minutes)..." Line Location: MFS1+6
Routine Call	VALM Line Location: EN+37
Routine Call	DIE Line Location: RDSN+17 LOCAL+24 LOCAL+35
Routine Call	DIR Line Location: LOCAL+5 EOP+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	DSTA+7, DSTA+8, DSTA+10, LOCAL+13, LOCAL+14, LOCAL+16, LOCAL+19, LOCAL+28, LOCAL+31, DXRF+4! , LLCL+7, LLCL+8, LLCL+9, LLCL+12, NATL+8, NAME+9, NAME+10, NAME+12
^DIC(4.1 - [#4.1]	LLCL+9
^HLCS(870 - [#870]	RDSN+14, LOCAL+17, LOCAL+20
^ORD(101 - [#101]	MFS0+6, MFS1+3
^TMP("DIERR"	EXIT1+3!
^TMP("XUMF ARRAY"	EN+2!, EN+10, EN+15, EN+21, EN+26!, EN+33, DSTA+9, LOCAL+29, LOCAL+30, LLCL+10 , NATL+7, NATL+10, NATL+11, NATL+12, NAME+11, NAME+15, NAME+17, EXIT1+2!, EXIT1+5
^TMP("XUMF DSTA"	DSTA+2!
^TMP("XUMF LLCL"	LLCL+2!
^TMP("XUMF MFS"	EN+26!, EXIT1+2!
^TMP("XUMF NAME"	NAME+2!
^TMP("XUMF NATL"	NATL+2!
^TMP("XUMF TABLE"	NAME+2!, NAME+13, NAME+16, NAME+18, NAME+21, NAME+22, NAME+23, NAME+24, NAME+35!
^TMP("XUMF TMP"	DSTA+2!, DSTA+10*, DSTA+13, DSTA+14, DSTA+15, DSTA+17, DSTA+30!

Name	Line Occurrences
@(	RDSN+19
DXRF	LOCAL+8, NAME+6
EOP	LOCAL+25, LOCAL+36
EXIT1	EN+13, EN+19, EN+21, EN+24, EN+31, EN+35, EN+39
LOCAL	DSTA+4
MFS0	EN+17
MFS1	EN+29

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ARRAY	NAME+4~
CNT	LOCAL+10~, LOCAL+12, LOCAL+23, LOCAL+25, LOCAL+32, LOCAL+36*
DA	RDSN+6~, RDSN+11, RDSN+13, RDSN+14, LOCAL+23, LOCAL+32*
DIE	RDSN+6~, RDSN+12, LOCAL+23, LOCAL+32*
DIK	DXRF+2~, DXRF+6*
DIK(1	DXRF+6*
DIR	LOCAL+5!
DIR("A"	LOCAL+4*
DIR("B"	LOCAL+3*
DIR(0	LOCAL+3, EOP+2
DR	RDSN+6~, RDSN+12, LOCAL+23, LOCAL+32*
ENTRY	RDSN+6~
ERR	EN+4~, EXIT1+9, EXIT1+10
ERROR	EN+4~, EN+6, EN+11, EN+13, EN+19, EN+22, EN+24, EN+31, EN+34, MFS0+9 , MFS0+10, MFS1+7, MFS1+8, EXIT1+7, EXIT1+9, EXIT1+10
FLAG	LOCAL+10~, LOCAL+15, LOCAL+17, LOCAL+18, LOCAL+24~
FROM	RDSN+6~
FTYP	LLCL+4~, LLCL+9*, LLCL+16
GOLD	NAME+4~, NAME+11, NAME+13, NAME+23, NAME+28
IEN	DSTA+6, DSTA+8, DSTA+10, DSTA+12, DSTA+15, DSTA+17, DSTA+21, DSTA+23, LOCAL+10~, LOCAL+12* , LOCAL+16, LOCAL+17, LOCAL+19, LOCAL+20, LOCAL+21, LOCAL+23, LOCAL+24~, LOCAL+27, LOCAL+31, LOCAL+32 , LOCAL+33, LOCAL+35~, LLCL+4~, LLCL+8, LLCL+9, LLCL+12, LLCL+15, LLCL+18, NAME+4~, NAME+8 , NAME+10, NAME+12, NAME+13, NAME+20, NAME+22*, NAME+23, NAME+24
MERGED	RDSN+6~
NAME	DSTA+17, DSTA+20, LOCAL+10~, LLCL+4~, LLCL+12, LLCL+14, NATL+4~, NATL+10, NATL+14, NAME+4~ , NAME+12, NAME+13, NAME+17, NAME+18, NAME+24, NAME+27
PARAM	EN+4~, MFS0+9, MFS0+10, MFS1+7, MFS1+8
PARAM("LLNK"	MFS0+5, MFS1+2
PARAM("PROTOCOL"	MFS0+6, MFS1+3
STA	RDSN+6~, DSTA+6, DSTA+7, DSTA+8, DSTA+9, DSTA+10, DSTA+12, DSTA+13, DSTA+14, DSTA+15 , DSTA+17, DSTA+19, LOCAL+10~, LOCAL+12, LOCAL+13, LOCAL+14, LOCAL+16, LOCAL+19, LOCAL+21, LOCAL+24~ , LOCAL+27, LOCAL+28, LOCAL+29, LOCAL+31, LOCAL+33, LOCAL+35~, LLCL+4~, LLCL+6, LLCL+7, LLCL+8 , LLCL+10, LLCL+13, NATL+4~, NATL+6, NATL+7, NATL+8, NATL+10, NATL+11, NATL+12, NATL+13 , NAME+4~, NAME+8, NAME+9, NAME+10, NAME+11, NAME+13, NAME+15, NAME+16, NAME+17, NAME+18 , NAME+21, NAME+22, NAME+23, NAME+24, NAME+26
STANUM	LOCAL+10~, LLCL+4~
STATE	NATL+4~, NATL+12*, NATL+15
TEST	EN+4~, EN+6, EN+8, MFS0+5, MFS1+2
TYPE	NATL+4~, NATL+11*, NATL+16
U	EN+8, DSTA+10, DSTA+17, LLCL+9, LLCL+12, NATL+10, NATL+11, NATL+12, NAME+11, NAME+12 , NAME+13, NAME+17, NAME+23, NAME+24
>> VALMAR	RDSN+2, RDSN+9, RDSN+11, RDSN+19, DSTA+23, LLCL+18, EXIT+2
>> VALMBCK	RDSN+4, RDSN+20, EOP+4*
>> VALMCNT	DSTA+12, DSTA+16, DSTA+18, DSTA+22, DSTA+23, DSTA+25, DSTA+27, DSTA+28, LLCL+6, LLCL+11* , LLCL+17, LLCL+18, LLCL+20, NATL+6, NATL+9, NATL+17, NATL+19, NAME+8, NAME+20, NAME+25* , NAME+29, NAME+31
VALMY	RDSN+6~, RDSN+9
VALMY(0	RDSN+11
VAR	DSTA+17, DSTA+18, DSTA+19, DSTA+20, DSTA+21, DSTA+22, DSTA+26, DSTA+28, LOCAL+10~, LLCL+4~ , LLCL+12, LLCL+13, LLCL+14, LLCL+15, LLCL+16, LLCL+17, LLCL+21, LLCL+22, NATL+4~, NATL+10* , NATL+13, NATL+14, NATL+15, NATL+16, NATL+17, NATL+20, NATL+21, NAME+4~, NAME+25, NAME+26* , NAME+27, NAME+28, NAME+29, NAME+32*, NAME+33
XMY	EXIT1+8~, EXIT1+9
XMY("G.XUMF I	NSTITUTION" , EXIT1+8*
>> XQORNOD(0	RDSN+8
XUMFLAG	EN+4~, EN+6, DSTA+4, LOCAL+7
Y	LOCAL+3~, LOCAL+5

Customize PDF page

Package: Kernel

Routine: XUMF4

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: