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

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  

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+4, IVVAR+8
    $$ENSET^PSJBCMA UDPEND+41
    $$HRFLG^PSJBCMA IVVAR+47, IVVAR+54, IVVAR+63, IVVAR+69
    $$ONCALL^PSJBCMA IVVAR+36, UDPEND+26
    $$ONE^PSJBCMA IVVAR+34, UDPEND+26
    SIOPI^PSJBCMA UDPEND+42
    $$SNDTSTA^PSJHL4A TMP+42
    $$OIDF^PSJLMUT1 TMP+12
    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+44, IVVAR+61
    ^PS(52.7 - [#52.7] IVVAR+51, IVVAR+67
    ^PS(53.1 - [#53.1] EN+5, IVVAR+6, 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+9, IVVAR+17, IVVAR+21, IVVAR+26, IVVAR+29, IVVAR+32, IVVAR+37, IVVAR+38, IVVAR+41, IVVAR+58
    , IVVAR+59, IVVAR+60, IVVAR+66, 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+14*, IVVAR+41*, IVVAR+45*, IVVAR+47*, IVVAR+49*, IVVAR+52*
    , IVVAR+54*, IVVAR+55*, IVVAR+61*, IVVAR+63*, IVVAR+64*, IVVAR+67*, IVVAR+69*, IVVAR+70*, IVVAR+71*, 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+40
    UDPEND UDVAR+2, IVVAR+5
    UDVAR EN+3

    Naked Globals

    Name Field # of Occurrence
    ^( IVVAR+21, IVVAR+61, IVVAR+67, UDPEND+19, MVOPIAL+2
    ^(0 EN+6*, IVVAR+61, IVVAR+67
    ^(3 IVVAR+32
    ^(6 UDPEND+41

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> % UDVAR+7
    A EN+1~, IVVAR+20~, IVVAR+21*, IVVAR+22, 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+20~, IVVAR+21*, IVVAR+23, IVVAR+24, UDPEND+18~, UDPEND+19*
    C IVVAR+20~, IVVAR+21*, UDPEND+18~, UDPEND+19*
    CLINIC UDVAR+1~, UDVAR+2, IVVAR+1~, IVVAR+4, IVVAR+8, IVVAR+38*, 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+14, IVVAR+1~, IVVAR+42*, IVVAR+45*
    , IVVAR+47, IVVAR+49*, IVVAR+52*, IVVAR+54, IVVAR+55
    DFN EN~, IVVAR+9, IVVAR+17, IVVAR+21, IVVAR+26, IVVAR+29, IVVAR+32, IVVAR+34, IVVAR+37, IVVAR+38
    , IVVAR+41, IVVAR+58, IVVAR+59, IVVAR+60, IVVAR+66, 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+44*, IVVAR+45, IVVAR+51*, IVVAR+52
    F EN+1~, EN+3*, EN+4*, EN+5*, UDVAR+6, UDVAR+7, IVVAR+43, IVVAR+44, IVVAR+50, IVVAR+51
    , UDPEND+1, UDPEND+3, UDPEND+4, UDPEND+15, UDPEND+22, UDPEND+23, UDPEND+32, UDPEND+37, UDPEND+41
    FON UDPEND+42~*
    >> I IVVAR+60*, IVVAR+61, IVVAR+63, IVVAR+64, IVVAR+66*, IVVAR+67, IVVAR+69, IVVAR+70
    IEN NAME~, NAME+7*
    INIT NAME~, NAME+9*
    NAME NAME~, NAME+8*, MVOPIAL+4~, MVOPIAL+6
    ND IVVAR+1~, IVVAR+44*, IVVAR+45, IVVAR+47, IVVAR+51*, IVVAR+52, IVVAR+54
    OIIEN IVVAR+1~
    ON EN~, EN+3, EN+4, EN+5, UDVAR+9, IVVAR+4, IVVAR+6, IVVAR+8, IVVAR+9, IVVAR+17
    , IVVAR+21, IVVAR+26, IVVAR+29, IVVAR+32, IVVAR+34, IVVAR+37, IVVAR+38, IVVAR+41, IVVAR+59, 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+15!, IVVAR+56!
    PSJ("ADM" IVVAR+14*, UDPEND+29*, TMP+35
    PSJ("AUTO" IVVAR+14*, UDPEND+38*, TMP+31
    PSJ("CHEMO" IVVAR+16*, TMP+21
    PSJ("COM" IVVAR+18*, IVVAR+24*, UDPEND+16*, UDPEND+22*, TMP+43
    PSJ("CPRS" IVVAR+16*, UDPEND+14*, TMP+21
    PSJ("DO" IVVAR+18*, UDPEND+16*, TMP+33
    PSJ("DOA" UDPEND+32*, UDPEND+33, UDPEND+35*, TMP+37
    PSJ("FLG" IVVAR+18*, IVVAR+19, UDPEND+16*, UDPEND+17, TMP+43
    PSJ("FOLLOW" IVVAR+31*, UDPEND+14*, TMP+21
    PSJ("FREQ" IVVAR+15*, UDPEND+30*, UDPEND+35, TMP+35
    PSJ("HSM" UDPEND+8*, UDPEND+13, TMP+30
    PSJ("HSMYN" UDPEND+13*, TMP+30
    PSJ("INFRATE" IVVAR+6*, IVVAR+13*, TMP+33
    PSJ("INSYR" IVVAR+16*, TMP+21
    PSJ("IVTYPE" IVVAR+15*, TMP+21
    PSJ("LDT" IVVAR+30*, UDPEND+10*, TMP+15, TMP+35
    PSJ("LDTN" TMP+15*, TMP+35
    PSJ("MR" IVVAR+25*, 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+27*, IVVAR+37*, UDPEND+38*, TMP+7, TMP+8, TMP+41
    PSJ("OI" UDVAR+11, IVVAR+18*, 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+28*, 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+31*, UDPEND+14*, TMP+21
    PSJ("PRI" IVVAR+18*, UDPEND+16*, TMP+42
    PSJ("PRONAME" TMP+3*, TMP+30
    PSJ("PROVIDER" IVVAR+11*, IVVAR+12, UDPEND+6*, UDPEND+7, TMP+2, TMP+30
    PSJ("PRSTOPDT" UDPEND+28*, TMP+40
    PSJ("RMTM" UDPEND+32*, TMP+38
    PSJ("SCHD" IVVAR+13*, IVVAR+33, IVVAR+36, UDPEND+24*, UDPEND+26, TMP+33, TMP+42
    PSJ("SIOPI" IVVAR+32*, UDPEND+41*, TMP+34
    PSJ("SM" UDPEND+8*, UDPEND+12, TMP+30
    PSJ("SMYN" UDPEND+12*, TMP+30
    PSJ("SRC" IVVAR+18*, IVVAR+21, IVVAR+23*, 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+10*, IVVAR+34, UDPEND+24*, TMP+16, TMP+35
    PSJ("STARTDTN" TMP+16*, TMP+35
    PSJ("STATUS" IVVAR+14*, UDPEND+9*, TMP+30, TMP+31
    PSJ("STC" IVVAR+34*, IVVAR+35*, IVVAR+36*, UDPEND+25*, UDPEND+26*, UDPEND+27, TMP+18, TMP+35
    PSJ("STNAME" TMP+19*, TMP+35
    PSJ("STOPDT" IVVAR+10*, IVVAR+34, UDPEND+29*, TMP+17, TMP+35
    PSJ("STOPDTN" TMP+17*, TMP+35
    PSJADM ADMIN+1~*, ADMIN+4*, ADMIN+5
    >> PSJBCID IVVAR+59*, IVVAR+61, IVVAR+63, IVVAR+64, IVVAR+67, IVVAR+69, IVVAR+70, IVVAR+71
    PSJDD UDVAR+7*, UDVAR+9, UDVAR+15!
    PSJDN UDVAR+15!
    PSJEXIST EN~, IVVAR+12*, 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+4, IVVAR+8
    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+14, IVVAR+41, IVVAR+45, IVVAR+47
    , IVVAR+49, IVVAR+52, IVVAR+54, IVVAR+55, IVVAR+61, IVVAR+63, IVVAR+64, IVVAR+67, IVVAR+69, IVVAR+70
    , IVVAR+71, 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+20~, IVVAR+21*, UDPEND+18~, UDPEND+19*
    SCHD IVVAR+33~*, IVVAR+34, IVVAR+35
    TXTCNT MVOPIAL+2~, MVOPIAL+8*, MVOPIAL+10
    TXTLN MVOPIAL+2~, MVOPIAL+8*, MVOPIAL+9
    U EN+5, UDVAR+9, UDVAR+11, UDVAR+13, IVVAR+6, IVVAR+10, IVVAR+11, IVVAR+13, IVVAR+14, IVVAR+15
    , IVVAR+16, IVVAR+18, IVVAR+21, IVVAR+25, IVVAR+27, IVVAR+28, IVVAR+30, IVVAR+31, IVVAR+37, IVVAR+41
    , IVVAR+45, IVVAR+47, IVVAR+52, IVVAR+54, IVVAR+63, IVVAR+69, 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+9*, IVVAR+10, IVVAR+11, IVVAR+13, IVVAR+14, IVVAR+15
    , IVVAR+16, IVVAR+17*, IVVAR+18, IVVAR+25, IVVAR+26*, IVVAR+27, IVVAR+28, IVVAR+29*, IVVAR+30, IVVAR+31
    , IVVAR+41*, IVVAR+43*, IVVAR+44, IVVAR+50*, IVVAR+51, IVVAR+61*, IVVAR+63, IVVAR+67*, IVVAR+69, 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+57*, IVVAR+58*, IVVAR+59, IVVAR+60, IVVAR+66
    >> X2 IVVAR+59*, IVVAR+60*, IVVAR+61, IVVAR+65*, IVVAR+66*, IVVAR+67
    >> XX IVVAR+59*, IVVAR+71
    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