Routine: XUMF333

Information

XUMF333 ;OIFO-OAK/RAM - Add HCS data types ;02/21/02

Source file <XUMF333.m>

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

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