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

Package: Inpatient Medications

Routine: PSJBCMA1


Information

PSJBCMA1 ;BIR/MV-RETURN INFORMATION FOR AN ORDER ; 5/4/16 1:09pm

Source Information

Source file <PSJBCMA1.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Inpatient Medications 4 NAME^PSGSICH  ($$CLINIC,$$CLINICS,$$ENSET,$$HRFLG,$$ONCALL,$$ONE,SIOPI)^PSJBCMA  $$SNDTSTA^PSJHL4A  $$OIDF^PSJLMUT1  
VA FileMan 3 NOW^%DTC  ^DIC  $$GET1^DIQ  
List Manager 1 PAUSE^VALM1  
Pharmacy Data Management 1 $$HAZ^PSSUTIL  

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

Package Total Caller Graph
Barcode Medication Administration 14 ALPBINP  PSBCHKIV  PSBCSUTY  PSBINJEC  PSBMLLKU  PSBMLTS  PSBO1  PSBOPM  
PSBUTL  PSBVDLIV  PSBVDLU1  PSBVDLU2  PSBVDLU3  PSBVT  
Inpatient Medications 6 PSIVVW1  PSJBCMA2  PSJBCMA5  PSJLIACT  PSJOEA2  PSJUTL3  
DSS Extracts 1 ECXUTL  

Entry Points

Name Comments DBIA/ICR reference
EN(DFN,ON,PSJTMP,PSJIGS2B,PSJEXIST)
  • ICR #2829
    • Status: Active
    • Usage: Controlled Subscription
    UDVAR ;* Set ^TMP for Unit dose & Pending orders
    IVVAR ;* Set variables for IV and pending orders
    UDPEND ;
    TMP ;* Setup ^TMP that have common fields between IV and U/D
    NAME(X,NAME,INIT,IEN)
    DATE(Y) ; FM internal date/time to user readable, 4 digit year
    ; Y - date in FileMan internal format
    STATUS(ON,X)
    ADMIN(X) ; N
    MVOPIAL(DFN,PSJI1,PSJI2) ; Move Other Print Info Activity log entries from NV order to Active order, during Verification
    OPIWARN(AFTER) ; Warn user about OPI not printing on IV labels

    External References

    Name Field # of Occurrence
    NOW^%DTC UDVAR+5
    ^DIC NAME+6
    $$GET1^DIQ UDVAR+11, TMP+11, TMP+13, TMP+26
    NAME^PSGSICH MVOPIAL+4
    $$CLINIC^PSJBCMA TMP+24
    $$CLINICS^PSJBCMA UDVAR+2, IVVAR+5, IVVAR+9
    $$ENSET^PSJBCMA UDPEND+41
    $$HRFLG^PSJBCMA IVVAR+48, IVVAR+58, IVVAR+70, IVVAR+76
    $$ONCALL^PSJBCMA IVVAR+37, UDPEND+26
    $$ONE^PSJBCMA IVVAR+35, UDPEND+26
    SIOPI^PSJBCMA UDPEND+42
    $$SNDTSTA^PSJHL4A TMP+42
    $$OIDF^PSJLMUT1 TMP+12
    $$HAZ^PSSUTIL UDVAR+15, IVVAR+51, IVVAR+61
    PAUSE^VALM1 OPIWARN+6

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!?5,$E(PSJSTARZ,1,29)," WARNING ",$E(PSJSTARZ,1,31)
    • Line Location: OPIWARN+2
    Function Call: WRITE
    • Prompt: !?5,"**",$S(AFTER:" ",1:" If "),"OTHER PRINT INFO exceeds 60 characters"_$S(AFTER:"! **",1:", **")
    • Line Location: OPIWARN+3
    Function Call: WRITE
    • Prompt: !?5,"** 'Instructions too long. See Order View or BCMA for full text.' **"
    • Line Location: OPIWARN+4
    Function Call: WRITE
    • Prompt: !?5,"** will print on the IV label instead of the full text. **",!?5,PSJSTARZ
    • Line Location: OPIWARN+5
    Function Call: WRITE
    • Prompt: !!
    • Line Location: OPIWARN+6
    Routine Call
    • DIC
    • Line Location:
      • NAME+6

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^VA(200 - [#200] Classic Fileman Calls
    ^PS(50.7 - [#50.7] GET1^DIQ
    ^PS(51.2 - [#51.2] GET1^DIQ
    ^PS(53.46 - [#53.46] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^PS(51.2 - [#51.2] TMP+10
    ^PS(52.6 - [#52.6] IVVAR+45, IVVAR+50, IVVAR+68
    ^PS(52.7 - [#52.7] IVVAR+55, IVVAR+60, IVVAR+74
    ^PS(53.1 - [#53.1] EN+5, IVVAR+7, MVOPIAL+2, MVOPIAL+3, MVOPIAL+4, MVOPIAL+5, MVOPIAL+8, MVOPIAL+9, MVOPIAL+10
    ^PS(53.46 - [#53.46] TMP+25
    ^PS(55 - [#55] IVVAR+10, IVVAR+18, IVVAR+22, IVVAR+27, IVVAR+30, IVVAR+33, IVVAR+38, IVVAR+39, IVVAR+42, IVVAR+65
    , IVVAR+66, IVVAR+67, IVVAR+73, UDPEND+19, MVOPIAL+1, MVOPIAL+5, MVOPIAL+6*, MVOPIAL+7*, MVOPIAL+9*, MVOPIAL+10*
    , MVOPIAL+11*
    ^PSDRUG - [#50] UDVAR+9
    ^TMP( EN+6, UDVAR+9*, UDVAR+11*, UDVAR+13*, UDVAR+15*, UDVAR+16*, IVVAR+42*, IVVAR+46*, IVVAR+48*, IVVAR+51*
    , IVVAR+53*, IVVAR+56*, IVVAR+58*, IVVAR+61*, IVVAR+62*, IVVAR+68*, IVVAR+70*, IVVAR+71*, IVVAR+74*, IVVAR+76*
    , IVVAR+77*, IVVAR+78*, TMP+21*, TMP+27*, TMP+28*, TMP+30*, TMP+31*, TMP+32*, TMP+33*, TMP+34*
    , TMP+35*, TMP+37*, TMP+38*, TMP+39*, TMP+40*, TMP+41*, TMP+43*

    Label References

    Name Line Occurrences
    $$ADMIN TMP+35
    $$DATE TMP+15, TMP+16, TMP+17
    $$STATUS TMP+31
    @( EN+5
    IVVAR EN+4
    NAME TMP+2, TMP+5, TMP+8
    TMP UDVAR+3, IVVAR+41
    UDPEND UDVAR+2, IVVAR+6
    UDVAR EN+3

    Naked Globals

    Name Field # of Occurrence
    ^( IVVAR+22, IVVAR+68, IVVAR+74, UDPEND+19, MVOPIAL+2
    ^(0 EN+6*, IVVAR+68, IVVAR+74
    ^(3 IVVAR+33
    ^(6 UDPEND+41

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> % UDVAR+7
    A EN+1~, IVVAR+21~, IVVAR+22*, IVVAR+23, UDPEND+18~, UDPEND+19*, UDPEND+20, UDPEND+21, TMP+10*, TMP+42*
    , TMP+43
    AFTER OPIWARN~, OPIWARN+3
    AL MVOPIAL+2~*, MVOPIAL+3, MVOPIAL+4, MVOPIAL+5, MVOPIAL+6, MVOPIAL+8, MVOPIAL+9, MVOPIAL+10
    AL2 MVOPIAL+5~*, MVOPIAL+6, MVOPIAL+7, MVOPIAL+9, MVOPIAL+10, MVOPIAL+11
    ALND MVOPIAL+2~*
    B IVVAR+21~, IVVAR+22*, IVVAR+24, IVVAR+25, UDPEND+18~, UDPEND+19*
    C IVVAR+21~, IVVAR+22*, UDPEND+18~, UDPEND+19*
    CLINIC UDVAR+1~, UDVAR+2, IVVAR+1~, IVVAR+5, IVVAR+9, IVVAR+39*, UDPEND+3*, UDPEND+4*, TMP+24, TMP+25
    , TMP+28
    CLNAME TMP+1~, TMP+26*, TMP+27
    CLNAMPTR TMP+1~, TMP+25*, TMP+26
    CNT UDVAR+1~, UDVAR+5*, UDVAR+8*, UDVAR+9, UDVAR+11, UDVAR+13, UDVAR+15, UDVAR+16, IVVAR+1~, IVVAR+43*
    , IVVAR+46*, IVVAR+48, IVVAR+51, IVVAR+53*, IVVAR+56*, IVVAR+58, IVVAR+61, IVVAR+62
    DDIEN IVVAR+2~, IVVAR+50*, IVVAR+51, IVVAR+60*, IVVAR+61
    DFN EN~, IVVAR+10, IVVAR+18, IVVAR+22, IVVAR+27, IVVAR+30, IVVAR+33, IVVAR+35, IVVAR+38, IVVAR+39
    , IVVAR+42, IVVAR+65, IVVAR+66, IVVAR+67, IVVAR+73, UDPEND+19, UDPEND+26, TMP+21, MVOPIAL~, MVOPIAL+1
    , MVOPIAL+5, MVOPIAL+6, MVOPIAL+7, MVOPIAL+9, MVOPIAL+10, MVOPIAL+11
    DIC NAME+5~, NAME+6*
    DIC(0 NAME+6*
    DIR OPIWARN+1~*
    DN IVVAR+1~, IVVAR+45*, IVVAR+46, IVVAR+55*, IVVAR+56
    F EN+1~, EN+3*, EN+4*, EN+5*, UDVAR+6, UDVAR+7, IVVAR+44, IVVAR+45, IVVAR+54, IVVAR+55
    , UDPEND+1, UDPEND+3, UDPEND+4, UDPEND+15, UDPEND+22, UDPEND+23, UDPEND+32, UDPEND+37, UDPEND+41
    FON UDPEND+42~*
    >> I IVVAR+67*, IVVAR+68, IVVAR+70, IVVAR+71, IVVAR+73*, IVVAR+74, IVVAR+76, IVVAR+77
    IEN NAME~, NAME+7*
    INIT NAME~, NAME+9*
    NAME NAME~, NAME+8*, MVOPIAL+4~, MVOPIAL+6
    ND IVVAR+1~, IVVAR+45*, IVVAR+46, IVVAR+48, IVVAR+50, IVVAR+55*, IVVAR+56, IVVAR+58, IVVAR+60
    OIIEN IVVAR+1~
    ON EN~, EN+3, EN+4, EN+5, UDVAR+9, IVVAR+5, IVVAR+7, IVVAR+9, IVVAR+10, IVVAR+18
    , IVVAR+22, IVVAR+27, IVVAR+30, IVVAR+33, IVVAR+35, IVVAR+38, IVVAR+39, IVVAR+42, IVVAR+66, UDPEND+11
    , UDPEND+19, UDPEND+26, UDPEND+39, UDPEND+42, TMP+18, TMP+21, TMP+31, STATUS~, STATUS+3
    OPILIN MVOPIAL+5~*
    PNDND0 MVOPIAL+2~, MVOPIAL+4*, MVOPIAL+6
    PSJ UDVAR+17!, IVVAR+63!
    PSJ("ADM" IVVAR+15*, UDPEND+29*, TMP+35
    PSJ("AUTO" IVVAR+15*, UDPEND+38*, TMP+31
    PSJ("CHEMO" IVVAR+17*, TMP+21
    PSJ("COM" IVVAR+19*, IVVAR+25*, UDPEND+16*, UDPEND+22*, TMP+43
    PSJ("CPRS" IVVAR+17*, UDPEND+14*, TMP+21
    PSJ("DO" IVVAR+19*, UDPEND+16*, TMP+33
    PSJ("DOA" UDPEND+32*, UDPEND+33, UDPEND+35*, TMP+37
    PSJ("FLG" IVVAR+19*, IVVAR+20, UDPEND+16*, UDPEND+17, TMP+43
    PSJ("FOLLOW" IVVAR+32*, UDPEND+14*, TMP+21
    PSJ("FREQ" IVVAR+16*, UDPEND+30*, UDPEND+35, TMP+35
    PSJ("HSM" UDPEND+8*, UDPEND+13, TMP+30
    PSJ("HSMYN" UDPEND+13*, TMP+30
    PSJ("INFRATE" IVVAR+7*, IVVAR+14*, TMP+33
    PSJ("INSYR" IVVAR+17*, TMP+21
    PSJ("IVTYPE" IVVAR+16*, TMP+21
    PSJ("LDT" IVVAR+31*, UDPEND+10*, TMP+15, TMP+35
    PSJ("LDTN" TMP+15*, TMP+35
    PSJ("MR" IVVAR+26*, UDPEND+8*, TMP+10, TMP+11, TMP+30
    PSJ("MRABB" TMP+10*, TMP+30
    PSJ("MRIVP" TMP+10*, TMP+32
    PSJ("MRNM" TMP+10*, TMP+31
    PSJ("MRPIJ" TMP+10*, TMP+32
    PSJ("MRRFL" UDVAR+13, UDPEND+32*, UDPEND+33*, TMP+39
    PSJ("MRSTDRNM" TMP+11*, TMP+31
    PSJ("NGIVEN" UDPEND+11*, TMP+30
    PSJ("NINIT" TMP+9*, TMP+41
    PSJ("NNAME" TMP+9*, TMP+41
    PSJ("NURSE" IVVAR+28*, IVVAR+38*, UDPEND+38*, TMP+7, TMP+8, TMP+41
    PSJ("OI" UDVAR+11, IVVAR+19*, UDPEND+16*, TMP+12, TMP+13, TMP+33
    PSJ("OIDF" TMP+13*, TMP+14*, TMP+33
    PSJ("OINAME" TMP+12*, TMP+14, TMP+33
    PSJ("PHARM" IVVAR+29*, UDPEND+39*, TMP+4, TMP+5, TMP+6*, TMP+41
    PSJ("PINIT" TMP+6*, TMP+41
    PSJ("PNAME" TMP+6*, TMP+41
    PSJ("PREV" IVVAR+32*, UDPEND+14*, TMP+21
    PSJ("PRI" IVVAR+19*, UDPEND+16*, TMP+42
    PSJ("PRONAME" TMP+3*, TMP+30
    PSJ("PROVIDER" IVVAR+12*, IVVAR+13, UDPEND+6*, UDPEND+7, TMP+2, TMP+30
    PSJ("PRSTOPDT" UDPEND+28*, TMP+40
    PSJ("RMTM" UDPEND+32*, TMP+38
    PSJ("SCHD" IVVAR+14*, IVVAR+34, IVVAR+37, UDPEND+24*, UDPEND+26, TMP+33, TMP+42
    PSJ("SIOPI" IVVAR+33*, UDPEND+41*, TMP+34
    PSJ("SM" UDPEND+8*, UDPEND+12, TMP+30
    PSJ("SMYN" UDPEND+12*, TMP+30
    PSJ("SRC" IVVAR+19*, IVVAR+22, IVVAR+24*, UDPEND+16*, UDPEND+19, UDPEND+21*, TMP+43
    PSJ("ST" UDPEND+9*, UDPEND+25, UDPEND+26, UDPEND+27*, TMP+18, TMP+35
    PSJ("STARTDT" IVVAR+11*, IVVAR+35, UDPEND+24*, TMP+16, TMP+35
    PSJ("STARTDTN" TMP+16*, TMP+35
    PSJ("STATUS" IVVAR+15*, UDPEND+9*, TMP+30, TMP+31
    PSJ("STC" IVVAR+35*, IVVAR+36*, IVVAR+37*, UDPEND+25*, UDPEND+26*, UDPEND+27, TMP+18, TMP+35
    PSJ("STNAME" TMP+19*, TMP+35
    PSJ("STOPDT" IVVAR+11*, IVVAR+35, UDPEND+29*, TMP+17, TMP+35
    PSJ("STOPDTN" TMP+17*, TMP+35
    PSJADM ADMIN+1~*, ADMIN+4*, ADMIN+5
    >> PSJBCID IVVAR+66*, IVVAR+68, IVVAR+70, IVVAR+71, IVVAR+74, IVVAR+76, IVVAR+77, IVVAR+78
    PSJDD UDVAR+7*, UDVAR+9, UDVAR+15, UDVAR+17!
    PSJDN UDVAR+17!
    PSJEXIST EN~, IVVAR+13*, UDPEND+7*
    PSJI1 MVOPIAL~, MVOPIAL+1, MVOPIAL+2, MVOPIAL+3, MVOPIAL+4, MVOPIAL+5, MVOPIAL+8, MVOPIAL+9, MVOPIAL+10
    PSJI2 MVOPIAL~, MVOPIAL+1, MVOPIAL+2, MVOPIAL+5, MVOPIAL+6, MVOPIAL+7, MVOPIAL+9, MVOPIAL+10, MVOPIAL+11
    PSJIGS2B EN~, UDVAR+2, IVVAR+5, IVVAR+9
    PSJINIT TMP+5, TMP+6!, TMP+8, TMP+9!
    PSJNAME TMP+2, TMP+3!, TMP+5, TMP+6!, TMP+8, TMP+9!
    PSJPIEN TMP+5, TMP+6!
    PSJSTARZ OPIWARN+2~*, OPIWARN+5
    PSJTMP EN~, EN+2*, EN+6, UDVAR+9, UDVAR+11, UDVAR+13, UDVAR+15, UDVAR+16, IVVAR+42, IVVAR+46
    , IVVAR+48, IVVAR+51, IVVAR+53, IVVAR+56, IVVAR+58, IVVAR+61, IVVAR+62, IVVAR+68, IVVAR+70, IVVAR+71
    , IVVAR+74, IVVAR+76, IVVAR+77, IVVAR+78, TMP+21, TMP+27, TMP+28, TMP+30, TMP+31, TMP+32
    , TMP+33, TMP+34, TMP+35, TMP+37, TMP+38, TMP+39, TMP+40, TMP+41, TMP+43
    PSJX ADMIN+1~, ADMIN+3*, ADMIN+4
    S1 IVVAR+21~, IVVAR+22*, UDPEND+18~, UDPEND+19*
    SCHD IVVAR+34~*, IVVAR+35, IVVAR+36
    TXTCNT MVOPIAL+2~, MVOPIAL+8*, MVOPIAL+10
    TXTLN MVOPIAL+2~, MVOPIAL+8*, MVOPIAL+9
    U EN+5, UDVAR+9, UDVAR+11, UDVAR+13, UDVAR+15, IVVAR+7, IVVAR+11, IVVAR+12, IVVAR+14, IVVAR+15
    , IVVAR+16, IVVAR+17, IVVAR+19, IVVAR+22, IVVAR+26, IVVAR+28, IVVAR+29, IVVAR+31, IVVAR+32, IVVAR+38
    , IVVAR+42, IVVAR+46, IVVAR+48, IVVAR+50, IVVAR+51, IVVAR+56, IVVAR+58, IVVAR+60, IVVAR+61, IVVAR+70
    , IVVAR+76, UDPEND+6, UDPEND+8, UDPEND+9, UDPEND+10, UDPEND+11, UDPEND+14, UDPEND+16, UDPEND+19, UDPEND+24
    , UDPEND+28, UDPEND+29, UDPEND+30, UDPEND+32, UDPEND+38, UDPEND+39, TMP+10, TMP+21, TMP+27, TMP+28
    , TMP+30, TMP+31, TMP+32, TMP+33, TMP+35, TMP+37, TMP+38, TMP+39, TMP+40, TMP+41
    , TMP+43, NAME+9
    USER MVOPIAL+4~*, MVOPIAL+6
    X EN+5*, UDVAR+6*, UDVAR+7, IVVAR+1~, IVVAR+10*, IVVAR+11, IVVAR+12, IVVAR+14, IVVAR+15, IVVAR+16
    , IVVAR+17, IVVAR+18*, IVVAR+19, IVVAR+26, IVVAR+27*, IVVAR+28, IVVAR+29, IVVAR+30*, IVVAR+31, IVVAR+32
    , IVVAR+42*, IVVAR+44*, IVVAR+45, IVVAR+54*, IVVAR+55, IVVAR+68*, IVVAR+70, IVVAR+74*, IVVAR+76, UDPEND+1*
    , UDPEND+6, UDPEND+8, UDPEND+9, UDPEND+10, UDPEND+11, UDPEND+14, UDPEND+15*, UDPEND+16, UDPEND+23*, UDPEND+24
    , UDPEND+28, UDPEND+29, UDPEND+30, UDPEND+32*, UDPEND+37*, UDPEND+38, UDPEND+39, TMP+18*, TMP+19, NAME~
    , STATUS~, STATUS+3, STATUS+4, ADMIN~, ADMIN+2, ADMIN+3
    >> X1 IVVAR+64*, IVVAR+65*, IVVAR+66, IVVAR+67, IVVAR+73
    >> X2 IVVAR+66*, IVVAR+67*, IVVAR+68, IVVAR+72*, IVVAR+73*, IVVAR+74
    >> XX IVVAR+66*, IVVAR+78
    Y IVVAR+1~, NAME+5~, NAME+7, DATE~, DATE+2*, ADMIN+1~, ADMIN+3*
    Y(0 NAME+8, NAME+9
    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