Routine: XUMF333

Package	Total	Call Graph
Kernel	3	($$IEN,$$NS,$$STA)^XUAF4 LOAD^XUMF ($$INST,IFF)^XUMF333
VA Fileman	2	$$FIND1^DIC (FILE,UPDATE)^DIE

Package	Total	Caller Graph
Kernel	2	XUMF333 XUMFEIMF

Entry Points

Name	Comments	DBIA/ICR reference
HCS	;
INST(IEN,ERR)	; -- validate Institution entry FALSE=valid
RIP	; -- remove from all inactive and local the associations visn & parent
ADD1(IEN,ERR,CNT)	; -- address node
GET	; -- get Institution Master File (IMF) and Facility Types
ZERO(IEN,ERR,CNT)	; -- zero node
CHK	; -- check site updating required
ND99(IEN,ERR,CNT)	; -- 99 node
KM	; -- add XUMF IMF EDIT STATUS to XUKERNEL
STUFF	;
KM3	; -- remove XUMF333 clean 4.1 and 4 if present
KM2	; -- add XUMF IMF EDIT STATUS to XUKERNEL
KM1	; -- add XUMF IMF EDIT STATUS to XUKERNEL
SCN(IEN,XUMF)	; screen out HCS entries
POST	; -- post installation XU8333
FTYP(IEN,ERR,CNT)	; -- facility type node
CFTYP	; - clean 4.1
IFF(IEN)	; -- inactive facility remove VISN and parent association
ADD2(IEN,ERR,CNT)	; -- mailing address node
C4	; -- clean up Institution file

External References

Name	Field # of Occurrence
$$FIND1^DIC	KM+4, KM1+4, KM2+4, KM3+4
FILE^DIE	IFF+10, CFTYP+13, CFTYP+20
UPDATE^DIE	KM+10, KM1+10, KM2+10, KM3+10, STUFF+8, STUFF+20
$$IEN^XUAF4	CHK+20
$$NS^XUAF4	CHK+8, CHK+22, ND99+9
$$STA^XUAF4	CHK+4, CHK+19
LOAD^XUMF	GET+3, GET+5
$$INST^XUMF333	CHK+10, CHK+21
IFF^XUMF333	RIP+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"DUZ not defined. Please log on." Line Location: CHK+6
Function Call: WRITE	Prompt: @IOF,!,STA," ",$P($$NS^XUAF4(+DUZ(2)),U) Line Location: CHK+8
Function Call: WRITE	Prompt: " is okay" Line Location: CHK+15
Function Call: WRITE	Prompt: " is okay" Line Location: CHK+23
Function Call: WRITE	Prompt: !!,"...getting Facility Types - wait please 5 min..." Line Location: GET+2
Function Call: WRITE	Prompt: !!,"...getting Institutions - wait please 10 min..." Line Location: GET+4
Routine Call	DIE Line Location: KM+10 KM1+10 KM2+10 KM3+10 STUFF+8 STUFF+20
Routine Call	DIC Line Location: KM+4 KM1+4 KM2+4 KM3+4
Routine Call	DIE Line Location: IFF+10 CFTYP+13 CFTYP+20

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	STUFF+13, CHK+18, ZERO+6, ADD1+6, ADD2+6, FTYP+6, ND99+6, RIP+5, RIP+6, CFTYP+16 , SCN+6
^DIC(4.1 - [#4.1]	STUFF+2, FTYP+9, CFTYP+4, CFTYP+9, SCN+6
^TMP("XUMF 4.1"	CFTYP+4*

Label References

Name	Line Occurrences
ADD1	INST+7
ADD2	INST+8
CFTYP	C4+2
FTYP	INST+9
GET	C4+2
KM	POST+6
KM1	POST+6
KM2	POST+6
KM3	POST+6
ND99	INST+10
RIP	C4+2
STUFF	POST+6
ZERO	INST+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CHK	CHK+2~, CHK+10, CHK+11, CHK+15, CHK+21, CHK+23, CHK+24
CNT	INST+4, INST+6, INST+7, INST+8, INST+9, INST+10, ZERO~, ZERO+4, ZERO+8, ADD1~ , ADD1+4, ADD1+8, ADD1+9, ADD1+11, ADD1+12, ADD1+14, ADD1+15, ADD1+17, ADD1+18, ADD2~ , ADD2+4, ADD2+8, ADD2+9, ADD2+11, ADD2+12, ADD2+14, ADD2+15, ADD2+17, ADD2+18, ADD2+20 , ADD2+21, FTYP~, FTYP+4, FTYP+8, FTYP+10, ND99~, ND99+4, ND99+8, ND99+10
DUZ(2	CHK+4, CHK+8, CHK+10, CHK+19
ERR	CHK+10, CHK+21, CHK+28!, INST~, INST+6, INST+7, INST+8, INST+9, INST+10, ZERO~ , ADD1~, ADD2~, FTYP~, ND99~
ERR("FATAL"	CHK+13, CHK+14, CHK+26, CHK+27, INST+12, ZERO+8, ADD1+8, ADD1+11, ADD1+14, ADD2+8* , ADD2+11, ADD2+14, ADD2+17, FTYP+8, FTYP+10, ND99+8, ND99+10*
ERR("WARNING"	INST+12, ADD1+17, ADD2+20
FDA	POST+2~, KM3+2~, STUFF+4!, STUFF+16!, IFF+2~, CFTYP+2~, CFTYP+11!, CFTYP+18!
FDA(	KM+9, KM1+9, KM2+9, STUFF+5, STUFF+6, STUFF+7, IFF+7, IFF+9, CFTYP+12*
FDA(19	KM+8, KM1+8, KM2+8, KM3+9
FDA(4	STUFF+17, STUFF+18, STUFF+19, CFTYP+19
FLAG	CHK+2~, CHK+18, CHK+19*
HCS	POST+2~, STUFF+10, STUFF+11, STUFF+12, STUFF+13, STUFF+17
I	POST+2~, CHK+13, CHK+14, CHK+26, CHK+27, ADD1+2~, ADD2+2~
IEN	POST+2~, STUFF+2, STUFF+3, STUFF+13, STUFF+14, CHK+2~, CHK+20, CHK+21, CHK+22, INST~ , INST+2, INST+6, INST+7, INST+8, INST+9, INST+10, ZERO~, ZERO+6, ADD1~, ADD1+6 , ADD2~, ADD2+6, FTYP~, FTYP+6, ND99~, ND99+6, ND99+9, RIP+2~, RIP+4, RIP+5* , RIP+6, RIP+7, IFF~, IFF+6, IFF+8, CFTYP+2~, CFTYP+8, CFTYP+9, CFTYP+10, CFTYP+15* , CFTYP+16*, CFTYP+17, SCN~, SCN+6
IENS	POST+2~, KM+7, KM1+7, KM2+7, KM3+2~, KM3+8, KM3+9, STUFF+3, STUFF+5, STUFF+6 , STUFF+7, STUFF+14, STUFF+17, STUFF+18, STUFF+19, IFF+2~, IFF+6, IFF+7, IFF+8, IFF+9 , CFTYP+2~, CFTYP+10, CFTYP+12, CFTYP+17, CFTYP+19
IOF	CHK+8
STA	CHK+2~, CHK+4, CHK+6, CHK+8, CHK+17, CHK+18*, CHK+19, CHK+20, CHK+22
U	CHK+8, CHK+22, ZERO+7, ADD1+7, ADD1+10, ADD1+13, ADD1+16, ADD2+7, ADD2+10, ADD2+13 , ADD2+16, ADD2+19, FTYP+9, ND99+7, ND99+9, RIP+6
X	KM+2~, KM+4, KM+7, KM1+2~, KM1+4, KM1+7, KM2+2~, KM2+4, KM2+7, KM3+2~ , KM3+4, KM3+6, KM3+8, ZERO+2~, ZERO+6, ZERO+7, ADD1+2~, ADD1+6, ADD1+7, ADD1+10 , ADD1+13, ADD1+16, ADD2+2~, ADD2+6, ADD2+7, ADD2+10, ADD2+13, ADD2+16, ADD2+19, FTYP+2~ , FTYP+6, FTYP+7, FTYP+9, ND99+2~, ND99+6*, ND99+7, ND99+9
XUMF	POST+2~, POST+4, IFF+2~, IFF+4, CFTYP+2~, CFTYP+6, SCN~, SCN+4
XXX	POST+2~, STUFF+11*
Y	KM+2~, KM+5, KM+7, KM1+2~, KM1+5, KM1+7, KM2+2~, KM2+5*, KM2+7

Marked Items

Name	Field # of Occurrence
$T(HCS+XXX	STUFF+12

Customize PDF page

Package: Kernel

Routine: XUMF333

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items