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 |  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,LDT-UTILITY FOR PATIENT MERGE ;28 Oct 99 / 12:53 PM

Source Information

Source file <PSJPATMR.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA Fileman 2 NOW^%DTC  EN^DIK  
Inpatient Medications 1 EN1^PSJHL2  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Toolkit 1 XDRDVAL1  

Entry Points

Name Comments DBIA/ICR reference
MOVEIV(DFN1,COUNT)
CHKIVACT(PSJDFN1)
CHKUDACT(PSJDFN1)
CNVUD(DFN,ON)
CHKPL(PSJDFN1)
CNVIV(DFN,ON)
CHKUDDUP(PSJDFN1,PSJDFN2)
CHKIVDUP(PSJDFN1,PSJDFN2)
EN(DFN1,DFN2)
  • ICR #2987
    • Status: Withdrawn
    • Usage: Private
    MOVEUD(DFN1,COUNT)

    External References

    Name Field # of Occurrence
    NOW^%DTC CHKIVACT+3, CHKUDACT+3
    EN^DIK MOVEUD+24, MOVEIV+20
    EN1^PSJHL2 MOVEUD+26, MOVEIV+22

    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+37*, MOVEIV+33*
    ^PS(53.5 - [#53.5] CHKPL+4, CHKPL+5
    ^PS(55 - [#55] CHKUDDUP+4, CHKUDDUP+5, CHKUDDUP+7, CHKUDDUP+8, MOVEUD+2, MOVEUD+3*, MOVEUD+5*, MOVEUD+8!, MOVEUD+9!, MOVEUD+10!
    , MOVEUD+11!, MOVEUD+12!, MOVEUD+13!, MOVEUD+14!, MOVEUD+15!, MOVEUD+16!, MOVEUD+17!, MOVEUD+19, MOVEUD+21!, MOVEUD+38*
    , MOVEUD+41*, MOVEUD+42*, CHKIVDUP+4, CHKIVDUP+5, CHKIVDUP+7, CHKIVDUP+8, MOVEIV+2, MOVEIV+3*, MOVEIV+5*, MOVEIV+8!
    , MOVEIV+9!, MOVEIV+10!, MOVEIV+11!, MOVEIV+12!, MOVEIV+13!, MOVEIV+14!, MOVEIV+15, MOVEIV+17!, MOVEIV+34*, MOVEIV+36*
    , MOVEIV+37*, MOVEIV+38*, CHKIVACT+5, CHKUDACT+5, CNVUD+2, CNVUD+3, CNVUD+5*, CNVIV+2, CNVIV+3, CNVIV+4*
    ^PSDRUG - [#50] CNVUD+3, CNVUD+4
    ^PSDRUG("AP" CNVUD+4
    ^TMP( MOVEUD+30, MOVEUD+32, MOVEUD+33, MOVEUD+34, MOVEUD+35, MOVEUD+36, MOVEUD+39, MOVEIV+26, MOVEIV+28, MOVEIV+29
    , MOVEIV+30, MOVEIV+31, MOVEIV+32, MOVEIV+35
    ^TMP("PSJMERGE_IV" EN+3!, EN+9!, MOVEIV+15*
    ^TMP("PSJMERGE_UD" EN+3!, EN+9!, MOVEUD+19*

    Label References

    Name Line Occurrences
    $$CHKIVACT EN+2
    $$CHKIVDUP EN+4
    $$CHKPL EN+2
    $$CHKUDACT EN+2
    $$CHKUDDUP EN+4
    CNVIV MOVEIV+21
    CNVUD MOVEUD+25
    MOVEIV EN+8
    MOVEUD EN+6

    Naked Globals

    Name Field # of Occurrence
    ^(0 MOVEUD+14, MOVEIV+11
    ^(2 MOVEUD+8

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> % CHKIVACT+3, CHKUDACT+3
    ADS CNVIV+1~, CNVIV+3*, CNVIV+4
    COUNT MOVEUD~, MOVEUD+1, MOVEUD+3, MOVEUD+5, MOVEUD+19, MOVEUD+23, MOVEUD+25, MOVEUD+26, MOVEUD+27*, MOVEUD+41
    , MOVEUD+42, MOVEIV~, MOVEIV+1, MOVEIV+3, MOVEIV+5, MOVEIV+15, MOVEIV+19, MOVEIV+21, MOVEIV+22, MOVEIV+23*
    , MOVEIV+37, MOVEIV+38
    DA MOVEUD+7!*, MOVEUD+8, MOVEUD+9, MOVEUD+10, MOVEUD+11, MOVEUD+12, MOVEUD+13, MOVEUD+14, MOVEUD+15, MOVEUD+16
    , MOVEUD+17, MOVEUD+23!*, MOVEIV+7!*, MOVEIV+8, MOVEIV+9, MOVEIV+10, MOVEIV+11, MOVEIV+12, MOVEIV+13, MOVEIV+14
    , MOVEIV+19!*
    DA(1 MOVEUD+7*, MOVEUD+8, MOVEUD+9, MOVEUD+10, MOVEUD+11, MOVEUD+12, MOVEUD+13, MOVEUD+14, MOVEUD+15, MOVEUD+16
    , MOVEUD+17, MOVEUD+23*, MOVEIV+7*, MOVEIV+8, MOVEIV+9, MOVEIV+10, MOVEIV+11, MOVEIV+12, MOVEIV+13, MOVEIV+14
    , MOVEIV+19*
    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+6, EN+8, MOVEUD~, MOVEUD+2, MOVEUD+3, MOVEUD+5, MOVEUD+7
    , MOVEUD+19, MOVEUD+21, MOVEUD+23, MOVEUD+25, MOVEUD+26, MOVEUD+38, MOVEUD+40*, MOVEUD+41, MOVEIV~, MOVEIV+2
    , MOVEIV+3, MOVEIV+5, MOVEIV+7, MOVEIV+8, MOVEIV+10, MOVEIV+13, MOVEIV+14, MOVEIV+15, MOVEIV+17, MOVEIV+19
    , MOVEIV+21, MOVEIV+22, MOVEIV+34, MOVEIV+36, MOVEIV+37
    DFN2 EN~, EN+4, MOVEUD+42, MOVEIV+38
    DIK MOVEUD+23!*, MOVEIV+19!*
    DIK(1 MOVEUD+24*, MOVEIV+20*
    DUP CHKUDDUP+2~, CHKUDDUP+10*, CHKUDDUP+11, CHKIVDUP+2~, CHKIVDUP+10*, CHKIVDUP+11
    DUP1 CHKUDDUP+2~, CHKIVDUP+2~
    DUP1( CHKUDDUP+6*, CHKUDDUP+10, CHKIVDUP+6*, CHKIVDUP+10
    DUP2 CHKUDDUP+2~, CHKIVDUP+2~
    DUP2( CHKUDDUP+9*, CHKUDDUP+11, CHKIVDUP+9*, CHKIVDUP+11
    DUPIV EN+3~, EN+4*, EN+7, EN+8*
    DUPUD EN+3~, EN+4*, EN+5, EN+6*
    FOLL MOVEUD+29~, MOVEUD+31*, MOVEUD+35*, MOVEUD+39, MOVEIV+25~, MOVEIV+27*, MOVEIV+31*, MOVEIV+35
    FOLLIEN MOVEUD+29~, MOVEUD+31*, MOVEUD+39*, MOVEUD+40, MOVEIV+25~, MOVEIV+27*, MOVEIV+35*, MOVEIV+36
    HIGHEST CHKUDDUP+2~, CHKUDDUP+3*, CHKUDDUP+6*, CHKUDDUP+9*, CHKUDDUP+12, CHKIVDUP+2~, CHKIVDUP+3*, CHKIVDUP+6*, CHKIVDUP+9*, CHKIVDUP+12
    ND CNVUD+1~, CNVUD+3*, CNVUD+4, CNVUD+5, CNVIV+1~, CNVIV+3*, CNVIV+4
    NEW MOVEUD+29~, MOVEUD+31*, MOVEUD+32*, MOVEUD+37, MOVEUD+38, MOVEUD+40, MOVEIV+25~, MOVEIV+27*, MOVEIV+28*, MOVEIV+33
    , MOVEIV+34, MOVEIV+36
    O1 CHKUDDUP+2~, CHKUDDUP+5*, CHKUDDUP+6, CHKIVDUP+2~, CHKIVDUP+5*, CHKIVDUP+6
    O2 CHKUDDUP+2~, CHKUDDUP+8*, CHKUDDUP+9, CHKIVDUP+2~, CHKIVDUP+8*, CHKIVDUP+9
    OLD MOVEUD+29~, MOVEUD+31*, MOVEUD+33*, MOVEIV+25~, MOVEIV+27*, MOVEIV+29*
    ON CNVUD~, CNVUD+2, CNVUD+3, CNVUD+5, CNVIV~, CNVIV+2, CNVIV+3, CNVIV+4
    ON1 CNVIV+1~, CNVIV+3*
    ORD1 CHKUDDUP+2~, CHKUDDUP+4*, CHKUDDUP+5, CHKIVDUP+2~, CHKIVDUP+4*, CHKIVDUP+5
    ORD2 CHKUDDUP+2~, CHKUDDUP+7*, CHKUDDUP+8, CHKIVDUP+2~, CHKIVDUP+7*, CHKIVDUP+8
    ORDERS MOVEUD+1~, MOVEUD+2*, MOVEUD+3, MOVEUD+5, MOVEUD+7, MOVEUD+19, MOVEUD+21, MOVEUD+30*, MOVEUD+32, MOVEUD+33
    , MOVEUD+34, MOVEUD+35, MOVEIV+1~, MOVEIV+2*, MOVEIV+3, MOVEIV+5, MOVEIV+7, MOVEIV+8, MOVEIV+10, MOVEIV+13
    , MOVEIV+14, MOVEIV+15, MOVEIV+17, MOVEIV+26*, MOVEIV+28, MOVEIV+29, MOVEIV+30, MOVEIV+31
    PLNUM CHKPL+2~, CHKPL+4*, CHKPL+5
    PREV MOVEUD+29~, MOVEUD+31*, MOVEUD+34*, MOVEUD+36, MOVEUD+37, MOVEUD+38, MOVEIV+25~, MOVEIV+27*, MOVEIV+30*, MOVEIV+32
    , MOVEIV+33, MOVEIV+34
    PREVIEN MOVEUD+29~, MOVEUD+31*, MOVEUD+36*, MOVEUD+37, MOVEUD+38, MOVEIV+25~, MOVEIV+27*, MOVEIV+32*, MOVEIV+33, MOVEIV+34
    PSJDFN1 CHKUDDUP~, CHKUDDUP+4, CHKUDDUP+5, CHKIVDUP~, CHKIVDUP+4, CHKIVDUP+5, CHKIVACT~, CHKIVACT+5, CHKUDACT~, CHKUDACT+5
    , CHKPL~, CHKPL+5
    PSJDFN2 CHKUDDUP~, CHKUDDUP+7, CHKUDDUP+8, CHKIVDUP~, CHKIVDUP+7, CHKIVDUP+8
    PSJDT CHKIVACT+2~, CHKIVACT+3*, CHKIVACT+6, CHKUDACT+2~, CHKUDACT+3*, CHKUDACT+6
    PSJFLAG CHKUDDUP+2~, CHKUDDUP+3*, CHKUDDUP+10, CHKUDDUP+11*, CHKUDDUP+12, CHKIVDUP+2~, CHKIVDUP+3*, CHKIVDUP+10, CHKIVDUP+11*, CHKIVDUP+12
    , CHKIVACT+2~, CHKIVACT+4*, CHKIVACT+6*, CHKIVACT+7, CHKUDACT+2~, CHKUDACT+4*, CHKUDACT+6*, CHKUDACT+7, CHKPL+2~, CHKPL+3*
    , CHKPL+5*, CHKPL+6
    PSJOI CNVUD+1~, CNVUD+3*, CNVUD+4*, CNVUD+5, CNVIV+1~, CNVIV+3*, CNVIV+4*
    STOP MOVEUD+1~*, MOVEUD+2, MOVEIV+1~*, MOVEIV+2
    SUB MOVEUD+29~*, MOVEUD+30, MOVEUD+32, MOVEUD+33, MOVEUD+34, MOVEUD+35, MOVEUD+36, MOVEUD+39, MOVEIV+25~*, MOVEIV+26
    , MOVEIV+28, MOVEIV+29, MOVEIV+30, MOVEIV+31, MOVEIV+32, MOVEIV+35
    U MOVEIV+11, CNVUD+5, CNVIV+4
    X MOVEUD+1~, MOVEUD+8*, MOVEUD+13*, MOVEUD+14, MOVEUD+15*, MOVEUD+16, MOVEUD+17*, MOVEIV+1~, MOVEIV+8*, MOVEIV+9
    , MOVEIV+10*, MOVEIV+11, MOVEIV+12, MOVEIV+13*, MOVEIV+14*
    XREF MOVEUD+1~, MOVEUD+24*, MOVEIV+20*
    XX CNVUD+1~, CNVUD+3*, CNVIV+1~, CNVIV+3*, CNVIV+4
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All