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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: XDRMERGB

Package: Toolkit

Routine: XDRMERGB


Information

XDRMERGB ;SF-IRMFO.SEA/JLI - TENATIVE UPDATE POINTER NODES ;5/14/98 10:30

Source Information

Source file <XDRMERGB.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA Fileman 5 $$FIND1^DIC  (,FILE,UPDATE)^DIE  ^DIK  $$GET1^DIQ  ^DIR  
Kernel 2 ^%ZTLOAD  $$NOW^XLFDT  
Toolkit 2 $$FILE^XDRDPICK  (DODIS,DOSUBS)^XDRMERGA  
MailMan 1 ^XMD  

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Toolkit 3 XDRMERG0  XDRMERG1  XDRMERG2  
Barcode Medication Administration 1 PSBXMRG  
IHS Patient Merge 1 BPMXDRV  
Lab Service 1 LRXDRPT  

Entry Points

Name Comments DBIA/ICR reference
SNDMSG(XDRFDA) ;Sends msg when merge process has completed.
NAME
MERGEIT ; MERGE TWO ENTRIES IN FILE
SAVEPNTR(IENFROM,IENTO,FILE,IENS,FIELD,VALUE) ;
QUE ; (Moved from XDRMERG0)
SAVEMERG(FILE,IENFROM,IENTO) ;
  • ICR #2338
    • Status: Active
    • Usage: Controlled Subscription
  • ICR #2917
    • Status: Retired
    • Usage: Private
    STORMERG ;

    External References

    Name Field # of Occurrence
    ^%ZTLOAD NAME+42
    $$FIND1^DIC SAVEMERG+4, SAVEMERG+14, SAVEMERG+25, SAVEPNTR+3, NAME+6
    ^DIE NAME+37, NAME+44
    FILE^DIE MERGEIT+26, MERGEIT+45, NAME+30
    UPDATE^DIE SAVEMERG+11, SAVEMERG+20, SAVEMERG+31, STORMERG+8, SAVEPNTR+7, NAME+13, NAME+25, NAME+55
    ^DIK MERGEIT+57, NAME+58
    $$GET1^DIQ SNDMSG+2, SNDMSG+4, SNDMSG+5, QUE+10
    ^DIR QUE+36, NAME+4
    $$FILE^XDRDPICK QUE+6
    DODIS^XDRMERGA MERGEIT+53
    DOSUBS^XDRMERGA MERGEIT+55
    $$NOW^XLFDT MERGEIT+27, MERGEIT+46
    ^XMD SNDMSG+10

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,"You should hold the 'DG ELIGIBILITY' key to run a patient file merge."
    • Line Location: QUE+12
    Function Call: WRITE
    • Prompt: !!,XNCNT," Entries Ready to be included in merge"
    • Line Location: QUE+28
    Function Call: WRITE
    • Prompt: !!?15,$C(7),"No Verified Duplicates included in merge",$C(7),!!
    • Line Location: QUE+30
    Function Call: WRITE
    • Prompt: !!
    • Line Location: NAME+0
    Function Call: WRITE
    • Prompt: !!,$C(7),"The name entered has already been used. The name must be unique.",!!
    • Line Location: NAME+7
    Function Call: WRITE
    • Prompt: !!,"Merge process '",$P(^VA(15.2,XDRFDA,0),U),"' for Verified Duplicates in File ",XDRFIL," scheduled",!,"as task ",ZTSK,".",!
    • Line Location: NAME+45
    Function Call: WRITE
    • Prompt: !!,$C(7),"The Merge Process has been aborted, no changes made."
    • Line Location: NAME+59
    Routine Call
    • DIE
    • Line Location:
      • SAVEMERG+11
      • SAVEMERG+20
      • SAVEMERG+31
      • STORMERG+8
      • SAVEPNTR+7
      • NAME+13
      • NAME+25
      • NAME+55
    Routine Call
    • DIE
    • Line Location:
      • NAME+37
      • NAME+44
    Routine Call
    • DIC
    • Line Location:
      • SAVEMERG+4
      • SAVEMERG+14
      • SAVEMERG+25
      • SAVEPNTR+3
      • NAME+6
    Routine Call
    • DIE
    • Line Location:
      • MERGEIT+26
      • MERGEIT+45
      • NAME+30
    Routine Call
    • DIR
    • Line Location:
      • QUE+36
      • NAME+4

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^VA(15.1 - [#15.1] GET1^DIQ
    ^VA(15.2 - [#15.2] Classic Fileman Calls,  FIND1^DIC,  GET1^DIQ
    ^XDRM - [#15.4] FIND1^DIC
    15.41 FIND1^DIC
    15.42 FIND1^DIC
    ^DIC(19.1 - [#19.1] GET1^DIQ
    ^XMB(3.8 - [#3.8] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD( MERGEIT+20, MERGEIT+21, MERGEIT+37, MERGEIT+40
    ^DIC - [#1] SAVEMERG+13, STORMERG+3, QUE+14
    ^VA(15 - [#15] QUE+18, QUE+19, NAME+32
    ^VA(15.2 - [#15.2] NAME+38, NAME+45
    ^VA(15.4 STORMERG+1!
    ^VA(200 - [#200] QUE+9
    ^XDRM - [#15.4] SAVEMERG+5
    ^XTMP("XDRTESTK" MERGEIT+27*, MERGEIT+46*

    Label References

    Name Line Occurrences
    NAME NAME+6
    STORMERG SAVEMERG+23, SAVEMERG+34

    Naked Globals

    Name Field # of Occurrence
    ^( MERGEIT+20, MERGEIT+21, QUE+18
    ^("ZZ" MERGEIT+27*, MERGEIT+46*
    ^(0 NAME+32*

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    DA MERGEIT+1~, MERGEIT+57!*, QUE+4~, NAME+36*, NAME+44*, NAME+56*
    DFN MERGEIT+1~, MERGEIT+6*, MERGEIT+57*
    DIC QUE+2~
    DIE QUE+2~, NAME+35*, NAME+44*
    DIK MERGEIT+1~, MERGEIT+57*, QUE+4~, NAME+57*
    DIR QUE+2~, QUE+32!, QUE+36!, NAME+5!
    DIR("?" NAME+2*, NAME+3*
    DIR("A" QUE+33*, QUE+34*, QUE+35*, NAME+1*
    DIR(0 QUE+32*, NAME*
    DIU MERGEIT+57~
    DIU(0 MERGEIT+57*
    DR QUE+2~, NAME+34!*, NAME+44!*
    DT SAVEMERG+10
    DUZ QUE+9
    FIELD SAVEPNTR~, SAVEPNTR+4
    FILE SAVEMERG~, SAVEMERG+13, STORMERG+3, SAVEPNTR~, SAVEPNTR+4
    FLD MERGEIT+19~, MERGEIT+20*, MERGEIT+21, MERGEIT+23, MERGEIT+30~, MERGEIT+37*, MERGEIT+38, MERGEIT+39, MERGEIT+40
    >> FROM SAVEMERG+2, SAVEMERG+3, SAVEPNTR+2
    FROMARG SAVEMERG+1~, SAVEMERG+2*, SAVEMERG+3, SAVEMERG+4, SAVEMERG+5, SAVEMERG+8, SAVEPNTR+1~, SAVEPNTR+2*, SAVEPNTR+3
    I MERGEIT+1~, MERGEIT+33*, MERGEIT+34, MERGEIT+37, MERGEIT+38
    IENFROM MERGEIT+12, MERGEIT+17, MERGEIT+23, MERGEIT+28, MERGEIT+31, MERGEIT+51, MERGEIT+56, MERGEIT+57, MERGEIT+58, SAVEMERG~
    , SAVEMERG+2, SAVEMERG+3, SAVEMERG+18, SAVEMERG+21, SAVEMERG+22, SAVEPNTR~, SAVEPNTR+2
    IENS SAVEMERG+1~, SAVEMERG+11*, SAVEMERG+14*, SAVEMERG+15, SAVEMERG+16*, SAVEMERG+17, SAVEMERG+18, SAVEMERG+20*, SAVEMERG+25*, SAVEMERG+26
    , SAVEMERG+27*, SAVEMERG+28, SAVEMERG+29, SAVEMERG+31*, STORMERG+1, STORMERG+2*, STORMERG+6, STORMERG+7, SAVEPNTR~, SAVEPNTR+4
    IENTO MERGEIT+5, MERGEIT+6, MERGEIT+14, MERGEIT+28, MERGEIT+29, MERGEIT+32, MERGEIT+47, MERGEIT+52, MERGEIT+54, MERGEIT+55
    , SAVEMERG~, SAVEMERG+2, SAVEMERG+3, SAVEMERG+29, SAVEMERG+32, SAVEMERG+33, SAVEPNTR~, SAVEPNTR+2
    IENTOSTR MERGEIT+1~, MERGEIT+5*, MERGEIT+23, MERGEIT+40, MERGEIT+54*, MERGEIT+55
    IENVAL SAVEMERG+1~, SAVEMERG+22*, SAVEMERG+33*, STORMERG+3
    J MERGEIT+19~, MERGEIT+21*
    >> JXFLD MERGEIT+37*
    N MERGEIT+19~, MERGEIT+20*, MERGEIT+23
    NODE MERGEIT+1~, MERGEIT+10*, MERGEIT+11, MERGEIT+12, MERGEIT+13*, MERGEIT+14, MERGEIT+15*, MERGEIT+16*, MERGEIT+17, MERGEIT+20
    , MERGEIT+23, MERGEIT+28, MERGEIT+29, MERGEIT+31, MERGEIT+32, MERGEIT+37, MERGEIT+47, MERGEIT+51, MERGEIT+52, MERGEIT+53
    NODE1 MERGEIT+1~, MERGEIT+12*, MERGEIT+13, MERGEIT+15, MERGEIT+16, MERGEIT+18
    NODE2 MERGEIT+1~, MERGEIT+14*, MERGEIT+15, MERGEIT+18
    NODEA MERGEIT+1~
    NODEB MERGEIT+1~
    Q SAVEMERG+1~, STORMERG+3*, STORMERG+4*, STORMERG+6, STORMERG+7
    Q1 SAVEMERG+1~, STORMERG+3*, STORMERG+4
    >> R(1 SNDMSG+3*
    SFILE MERGEIT+1~
    TOARG SAVEMERG+1~, SAVEMERG+3*, SAVEMERG+9
    U MERGEIT+4, MERGEIT+23, MERGEIT+33, MERGEIT+34, MERGEIT+38, MERGEIT+56, SAVEMERG+5, SAVEMERG+13, QUE+20, QUE+21
    , QUE+22, QUE+23, QUE+24, QUE+25, QUE+26, NAME+5, NAME+32, NAME+38, NAME+45
    VALUE MERGEIT+1~, SAVEPNTR~, SAVEPNTR+6
    VREF MERGEIT+1~
    X MERGEIT+21*, MERGEIT+22, MERGEIT+33*, MERGEIT+38, MERGEIT+40, SAVEPNTR+4*, SAVEPNTR+5, QUE+3~, QUE+8~, QUE+9*
    , QUE+10, QUE+16*, QUE+18*
    >> X1 MERGEIT+31*, MERGEIT+33*
    X2 MERGEIT+32*, MERGEIT+34, MERGEIT+38*, MERGEIT+41, MERGEIT+45~, MERGEIT+47
    >> X3 MERGEIT+32*, MERGEIT+41
    XDRAA MERGEIT+2~, MERGEIT+24!*, MERGEIT+27, MERGEIT+43!*, MERGEIT+46
    XDRDA SAVEMERG+1~, SAVEMERG+4*, SAVEMERG+5*, SAVEMERG+6, SAVEMERG+12*, SAVEMERG+14, SAVEMERG+16, SAVEMERG+25, SAVEMERG+27, STORMERG+1
    , STORMERG+2, SAVEPNTR+1~, SAVEPNTR+3*, SAVEPNTR+5, SAVEPNTR+6
    >> XDRDIC MERGEIT+4, MERGEIT+12, MERGEIT+14, MERGEIT+17, MERGEIT+23, MERGEIT+28, MERGEIT+29, MERGEIT+31, MERGEIT+32, MERGEIT+47
    , MERGEIT+51, MERGEIT+52, MERGEIT+56, MERGEIT+57, MERGEIT+58, QUE+14*, QUE+15, QUE+24
    XDRFDA SAVEMERG+1~, SAVEMERG+7~, SAVEMERG+24!, STORMERG+5!, SAVEPNTR+1~, SNDMSG~, SNDMSG+2, QUE+4~, NAME+14*, NAME+17
    , NAME+29, NAME+36, NAME+38, NAME+44, NAME+45, NAME+56
    XDRFDA( SAVEMERG+8*, SAVEMERG+9*, SAVEMERG+10*, SAVEMERG+17*, SAVEMERG+18*, SAVEMERG+28*, SAVEMERG+29*, STORMERG+6*, STORMERG+7*, SAVEPNTR+5*
    , SAVEPNTR+6*
    XDRFIL QUE+3~, QUE+6*, QUE+7, QUE+14, NAME+12, NAME+45
    XDRFILE SAVEMERG+1~, SAVEMERG+13*, SAVEMERG+14, SAVEMERG+17, SAVEMERG+25, SAVEMERG+28
    XDRFROM MERGEIT+1~, MERGEIT+51*, MERGEIT+55
    XDRGLOB QUE+3~, QUE+15*, QUE+18
    XDRGRP SNDMSG+1~, SNDMSG+4*, SNDMSG+5, SNDMSG+6*, SNDMSG+7, SNDMSG+8
    >> XDRGRPN SNDMSG+5*, SNDMSG+6
    XDRI QUE+4~, NAME+18*, NAME+19, NAME+20, NAME+22, NAME+49*, NAME+50, NAME+51
    XDRIENS MERGEIT+5, MERGEIT+54, QUE+4~, NAME+17*, NAME+22, NAME+23, NAME+24
    XDRJ QUE+4~, NAME+19*, NAME+20, NAME+23, NAME+50*, NAME+51
    XDRK QUE+4~, NAME+20*, NAME+24, NAME+28, NAME+29, NAME+32, NAME+51*, NAME+53, NAME+54
    XDRKEY QUE+8~, QUE+9*, QUE+10*, QUE+12
    XDRMA QUE+2~, NAME+26!
    XDRNAME SNDMSG+1~, SNDMSG+2*, SNDMSG+3, SNDMSG+9, QUE+3~, NAME+5*, NAME+6, NAME+11, NAME+40
    XDRSUB SAVEMERG+1~, SAVEMERG+22*, SAVEMERG+33*, STORMERG+1, STORMERG+6, STORMERG+7
    >> XDRTESTK MERGEIT+24, MERGEIT+27*, MERGEIT+43, MERGEIT+46*
    XDRTO MERGEIT+1~, MERGEIT+52*, MERGEIT+55
    XDRX QUE+3~
    XDRX( QUE+25*, QUE+26*, NAME+18, NAME+19, NAME+20, NAME+49, NAME+50, NAME+51
    XDRX(0 QUE+29
    XDRXX MERGEIT+1~, MERGEIT+19~, MERGEIT+24, MERGEIT+26, MERGEIT+30~, MERGEIT+42, MERGEIT+43, MERGEIT+56*, MERGEIT+58, QUE+2~
    , NAME+21!, NAME+26!, NAME+52!
    XDRXX( MERGEIT+23*, MERGEIT+40*, NAME+11*, NAME+12*, NAME+22*, NAME+23*, NAME+24*
    XDRXX(15 NAME+28*, NAME+29*, NAME+53*, NAME+54*
    XDRY QUE+3~
    XDRYY QUE+2~, NAME+21!, NAME+26!, NAME+52!
    XDRYY(1 NAME+14
    XDRZZ MERGEIT+1~, MERGEIT+25!, MERGEIT+27, MERGEIT+44!, MERGEIT+46
    XFILNO MERGEIT+1~, MERGEIT+4*, MERGEIT+20, MERGEIT+21, MERGEIT+23, MERGEIT+37, MERGEIT+38, MERGEIT+39, MERGEIT+40, MERGEIT+53
    >> XMCHAN SNDMSG+9*
    XMDUZ SNDMSG+1~, SNDMSG+9*
    XMSUB SNDMSG+1~, SNDMSG+9*
    XMTEXT SNDMSG+1~, SNDMSG+9*
    >> XMY( SNDMSG+7*, SNDMSG+8*
    >> XNCNT QUE+17*, QUE+27*, QUE+28
    >> XNCNT0 QUE+17*
    XNN MERGEIT+1~
    XVALUE MERGEIT+1~
    Y MERGEIT+1~, MERGEIT+34*, MERGEIT+35, QUE+3~, QUE+7, QUE+12*, QUE+18*, QUE+19, QUE+25, QUE+26
    , QUE+36, NAME+5
    YVAL QUE+19~*, QUE+20, QUE+21, QUE+22, QUE+23, QUE+24, QUE+25, QUE+26
    YYY SAVEMERG+1~, SAVEMERG+19!, SAVEMERG+30!
    YYY(1 SAVEMERG+11, SAVEMERG+12, SAVEMERG+20, SAVEMERG+31
    >> ZTDESC NAME+40*
    ZTDTH QUE+2~, NAME+38*, NAME+39
    >> ZTIO NAME+41*
    >> ZTRTN NAME+40*
    >> ZTSAVE("XDRFDA" NAME+41*
    ZTSK QUE+2~, NAME+39, NAME+43, NAME+44, NAME+45
    ZZZ SAVEMERG+1~, SAVEMERG+30!
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All