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

Package: Inpatient Medications

Routine: PSJPATMR


Information

PSJPATMR ;BIR/RSB - UTILITY FOR PATIENT MERGE ;Apr 19, 2022@14:12

Source Information

Source file <PSJPATMR.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 3 NOW^%DTC  ^DIE  EN^DIK  
Inpatient Medications 1 EN1^PSJHL2  

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: 1

Package Total Caller Graph
Toolkit 1 XDRDVAL1  

Entry Points

Name Comments DBIA/ICR reference
EN(DFN1,DFN2)
  • ICR #2987
    • Status: Withdrawn
    • Usage: Private
    MOVEUD(DFN1,DFN2)
    MOVEIV(DFN1,DFN2)
    CHKIVACT(PSJDFN1)
    CHKUDACT(PSJDFN1)
    CHKPL(PSJDFN1)
    CNVUD(DFN,ON)
    CNVIV(DFN,ON)
    UPDBML(FROMDFN,FROMORD,TODFN,TOORD) ; Update the ORDER REFERENCE NUMBER field (#.11) on the BCMA MED LOG file (#53.79)
    ; Input: FROMDFN - From Patient IEN - Pointer to the PATIENT file (#2)
    ; FROMORD - Original Order Number Pointer and Type of order being moved (e.g., "24U", "55V", etc.)
    ; TODFN - To Patient IEN - Pointer to the PATIENT file (#2)
    ; TOORD - New Order Number Pointer and Type of order being moved (e.g., "48U", "105V", etc.)

    External References

    Name Field # of Occurrence
    NOW^%DTC CHKIVACT+3, CHKUDACT+3
    ^DIE UPDBML+10
    EN^DIK MOVEUD+26, MOVEIV+23
    EN1^PSJHL2 MOVEUD+28, MOVEUD+29, MOVEIV+25, MOVEIV+26

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PSB(53.79 - [#53.79] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^PS(52.6 - [#52.6] CNVIV+4
    ^PS(52.7 - [#52.7] CNVIV+4
    ^PS(53.1 - [#53.1] MOVEUD+43*, MOVEIV+40*
    ^PS(53.5 - [#53.5] CHKPL+3, CHKPL+5
    ^PS(55 - [#55] MOVEUD+2, MOVEUD+3, MOVEUD+6, MOVEUD+7*, MOVEUD+10*, MOVEUD+11*, MOVEUD+14!, MOVEUD+15!, MOVEUD+16!, MOVEUD+17!
    , MOVEUD+18!, MOVEUD+19!, MOVEUD+20!, MOVEUD+21!, MOVEUD+23, MOVEUD+31!, MOVEUD+34!, MOVEUD+44, MOVEUD+45, MOVEUD+47*
    , MOVEUD+49*, MOVEUD+51*, MOVEUD+52*, MOVEUD+54*, MOVEUD+55!, MOVEIV+2, MOVEIV+3, MOVEIV+6, MOVEIV+7*, MOVEIV+10*
    , MOVEIV+13!, MOVEIV+14!, MOVEIV+15!, MOVEIV+16!, MOVEIV+17!, MOVEIV+18!, MOVEIV+19!, MOVEIV+20, MOVEIV+28!, MOVEIV+31!
    , MOVEIV+41, MOVEIV+42, MOVEIV+44*, MOVEIV+46*, MOVEIV+48*, MOVEIV+49*, MOVEIV+51*, CHKIVACT+5, CHKUDACT+5, CNVUD+2
    , CNVUD+3, CNVUD+5*, CNVIV+2, CNVIV+3, CNVIV+4*
    ^PSB(53.79 - [#53.79] UPDBML+8, UPDBML+9, UPDBML+12*, UPDBML+13*, UPDBML+14*, UPDBML+15!, UPDBML+16!, UPDBML+17!
    ^PSDRUG - [#50] CNVUD+3, CNVUD+4
    ^PSDRUG("AP" CNVUD+4
    ^TMP("PSJMERGE_IV" EN+3!, EN+6!, MOVEIV+20*, MOVEIV+35, MOVEIV+37, MOVEIV+38, MOVEIV+39, MOVEIV+43, MOVEIV+44, MOVEIV+45
    , MOVEIV+46
    ^TMP("PSJMERGE_UD" EN+3!, EN+6!, MOVEUD+23*, MOVEUD+38, MOVEUD+40, MOVEUD+41, MOVEUD+42, MOVEUD+46, MOVEUD+47, MOVEUD+48
    , MOVEUD+49

    Label References

    Name Line Occurrences
    $$CHKIVACT EN+2
    $$CHKPL EN+2
    $$CHKUDACT EN+2
    CNVIV MOVEIV+24
    CNVUD MOVEUD+27
    MOVEIV EN+5
    MOVEUD EN+4
    UPDBML MOVEUD+8, MOVEIV+8

    Naked Globals

    Name Field # of Occurrence
    ^(0 MOVEIV+16
    ^(2 MOVEUD+14

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> % CHKIVACT+3, CHKUDACT+3
    ADS CNVIV+1~, CNVIV+3*, CNVIV+4
    BMLIEN UPDBML+6~, UPDBML+7*, UPDBML+9*, UPDBML+10
    DA MOVEUD+13!*, MOVEUD+14, MOVEUD+15, MOVEUD+16, MOVEUD+17, MOVEUD+18, MOVEUD+19, MOVEUD+20, MOVEUD+21, MOVEUD+25!*
    , MOVEIV+12!*, MOVEIV+13, MOVEIV+14, MOVEIV+15, MOVEIV+16, MOVEIV+17, MOVEIV+18, MOVEIV+19, MOVEIV+22!*, UPDBML+6~
    , UPDBML+10*
    DA(1 MOVEUD+13*, MOVEUD+14, MOVEUD+15, MOVEUD+16, MOVEUD+17, MOVEUD+18, MOVEUD+19, MOVEUD+20, MOVEUD+21, MOVEUD+25*
    , MOVEIV+12*, MOVEIV+13, MOVEIV+14, MOVEIV+15, MOVEIV+16, MOVEIV+17, MOVEIV+18, MOVEIV+19, MOVEIV+22*
    DATE1 CHKIVACT+2~, CHKIVACT+5*, CHKIVACT+6, CHKUDACT+2~, CHKUDACT+5*, CHKUDACT+6
    DDRG CNVUD+1~, CNVUD+3*, CNVUD+4*
    DFN CNVUD~, CNVUD+2, CNVUD+3, CNVUD+5, CNVIV~, CNVIV+2, CNVIV+3, CNVIV+4
    DFN1 EN~, EN+2, EN+4, EN+5, MOVEUD~, MOVEUD+2, MOVEUD+6, MOVEUD+7, MOVEUD+8, MOVEUD+10
    , MOVEUD+13, MOVEUD+23, MOVEUD+28, MOVEUD+31, MOVEUD+34, MOVEUD+51, MOVEUD+55, MOVEIV~, MOVEIV+2, MOVEIV+6
    , MOVEIV+7, MOVEIV+8, MOVEIV+10, MOVEIV+12, MOVEIV+13, MOVEIV+15, MOVEIV+18, MOVEIV+19, MOVEIV+20, MOVEIV+25
    , MOVEIV+28, MOVEIV+31, MOVEIV+48
    DFN2 EN~, EN+4, EN+5, MOVEUD~, MOVEUD+3, MOVEUD+7, MOVEUD+8, MOVEUD+10, MOVEUD+11, MOVEUD+25
    , MOVEUD+27, MOVEUD+29, MOVEUD+44, MOVEUD+45, MOVEUD+47, MOVEUD+49, MOVEUD+52, MOVEUD+54, MOVEIV~, MOVEIV+3
    , MOVEIV+7, MOVEIV+8, MOVEIV+10, MOVEIV+22, MOVEIV+24, MOVEIV+26, MOVEIV+41, MOVEIV+42, MOVEIV+44, MOVEIV+46
    , MOVEIV+49, MOVEIV+51
    DIE UPDBML+6~, UPDBML+10*
    DIK MOVEUD+25!*, MOVEIV+22!*
    DIK(1 MOVEUD+26*, MOVEIV+23*
    DR UPDBML+6~, UPDBML+10*
    DTTM UPDBML+6~, UPDBML+7*, UPDBML+8*, UPDBML+9
    FOLL MOVEUD+37~, MOVEUD+39*, MOVEUD+45*, MOVEUD+48, MOVEUD+49, MOVEIV+34~, MOVEIV+36*, MOVEIV+42*, MOVEIV+45, MOVEIV+46
    FROMDFN UPDBML~, UPDBML+8, UPDBML+9, UPDBML+12, UPDBML+13, UPDBML+14, UPDBML+15, UPDBML+16, UPDBML+17
    FROMORD UPDBML~, UPDBML+8, UPDBML+9
    HIGHEST MOVEUD+1~, MOVEUD+4*, MOVEUD+5, MOVEIV+1~, MOVEIV+4*, MOVEIV+5
    INITIAL MOVEUD+1~, MOVEUD+5*, MOVEUD+44, MOVEIV+1~, MOVEIV+5*, MOVEIV+41
    LASTDFN1 MOVEUD+1~, MOVEUD+2*, MOVEUD+4, MOVEIV+1~, MOVEIV+2*, MOVEIV+4
    LASTDFN2 MOVEUD+1~, MOVEUD+3*, MOVEUD+4, MOVEIV+1~, MOVEIV+3*, MOVEIV+4
    ND CNVUD+1~, CNVUD+3*, CNVUD+4, CNVUD+5, CNVIV+1~, CNVIV+3*, CNVIV+4
    NEW MOVEUD+37~, MOVEUD+39*, MOVEUD+40*, MOVEUD+43, MOVEIV+34~, MOVEIV+36*, MOVEIV+37*, MOVEIV+40
    NEXT MOVEUD+1~, MOVEUD+5*, MOVEUD+7, MOVEUD+8, MOVEUD+10, MOVEUD+11, MOVEUD+23, MOVEUD+25, MOVEUD+27, MOVEUD+29
    , MOVEUD+32*, MOVEUD+52, MOVEIV+1~, MOVEIV+5*, MOVEIV+7, MOVEIV+8, MOVEIV+10, MOVEIV+20, MOVEIV+22, MOVEIV+24
    , MOVEIV+26, MOVEIV+29*, MOVEIV+49
    OLD MOVEUD+37~
    ON CNVUD~, CNVUD+2, CNVUD+3, CNVUD+5, CNVIV~, CNVIV+2, CNVIV+3, CNVIV+4
    ON1 CNVIV+1~, CNVIV+3*
    ORDER MOVEUD+37~, MOVEUD+44*, MOVEUD+45, MOVEUD+47, MOVEUD+49, MOVEIV+41*, MOVEIV+42, MOVEIV+44, MOVEIV+46
    ORDERS MOVEUD+1~, MOVEUD+6*, MOVEUD+7, MOVEUD+8, MOVEUD+10, MOVEUD+13, MOVEUD+23, MOVEUD+28, MOVEUD+31, MOVEUD+38*
    , MOVEUD+40, MOVEUD+41, MOVEIV+1~, MOVEIV+6*, MOVEIV+7, MOVEIV+8, MOVEIV+10, MOVEIV+12, MOVEIV+13, MOVEIV+15
    , MOVEIV+18, MOVEIV+19, MOVEIV+20, MOVEIV+25, MOVEIV+28, MOVEIV+35*, MOVEIV+37, MOVEIV+38
    PLNUM CHKPL+1~, CHKPL+3*, CHKPL+5
    PREV MOVEUD+37~, MOVEUD+39*, MOVEUD+41*, MOVEUD+42, MOVEUD+43, MOVEUD+45*, MOVEUD+46, MOVEUD+47, MOVEIV+34~, MOVEIV+36*
    , MOVEIV+38*, MOVEIV+39, MOVEIV+40, MOVEIV+42*, MOVEIV+43, MOVEIV+44
    PREVIEN MOVEUD+37~, MOVEUD+39*, MOVEUD+42*, MOVEUD+43, MOVEIV+34~, MOVEIV+36*, MOVEIV+39*, MOVEIV+40
    PSJDFN1 CHKIVACT~, CHKIVACT+5, CHKUDACT~, CHKUDACT+5, CHKPL~, CHKPL+5
    PSJDT CHKIVACT+2~, CHKIVACT+3*, CHKIVACT+6, CHKUDACT+2~, CHKUDACT+3*, CHKUDACT+6
    PSJFLAG CHKIVACT+2~, CHKIVACT+4*, CHKIVACT+6*, CHKIVACT+7, CHKUDACT+2~, CHKUDACT+4*, CHKUDACT+6*, CHKUDACT+7, CHKPL+1~, CHKPL+2*
    , CHKPL+5*, CHKPL+6
    PSJOI CNVUD+1~, CNVUD+3*, CNVUD+4*, CNVUD+5, CNVIV+1~, CNVIV+3*, CNVIV+4*
    TODFN UPDBML~, UPDBML+12, UPDBML+13, UPDBML+14
    TOORD UPDBML~, UPDBML+10
    U MOVEIV+16, CNVUD+5, CNVIV+4
    X MOVEUD+1~, MOVEUD+14*, MOVEUD+18*, MOVEUD+19*, MOVEUD+20, MOVEUD+21*, MOVEIV+1~, MOVEIV+13*, MOVEIV+14, MOVEIV+15*
    , MOVEIV+16, MOVEIV+17, MOVEIV+18*, MOVEIV+19*
    XREF MOVEUD+1~, MOVEUD+26*, MOVEUD+34*, MOVEIV+1~, MOVEIV+23*
    XX CNVUD+1~, CNVUD+3*, CNVIV+1~, CNVIV+3*, CNVIV+4
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All