Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: XUMF333

Package: Kernel

Routine: XUMF333


Information

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

Source Information

Source file <XUMF333.m>

Call Graph

Call Graph

Call Graph Total: 5

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

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Kernel 2 XUMF333  XUMFEIMF  

Entry Points

Name Comments DBIA/ICR reference
POST ; -- post installation XU*8*333
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

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
  • DIC
  • Line Location:
    • KM+4
    • KM1+4
    • KM2+4
    • KM3+4
Routine Call
  • DIE
  • Line Location:
    • IFF+10
    • CFTYP+13
    • CFTYP+20
Routine Call
  • DIE
  • Line Location:
    • KM+10
    • KM1+10
    • KM2+10
    • KM3+10
    • STUFF+8
    • STUFF+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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All