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 |  All
Print Page as PDF
Routine: XUMF4

Package: Kernel

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!

Label References

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All