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

Package: Inpatient Medications

Routine: PSJBCMA


Information

PSJBCMA ;BIR/MV-RETURN INPATIENT ACTIVE MEDS (CONDENSED) ;16 Mar 99 / 10:13 AM

Source Information

Source file <PSJBCMA.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Inpatient Medications 3 $$OTPRN^PSJBCMA3  $$SNDTSTA^PSJHL4A  $$OIDF^PSJLMUT1  
VA Fileman 2 (C,NOW)^%DTC  $$GET1^DIQ  

Caller Graph

Caller Graph Total: 38

Package Total Caller Graph
Inpatient Medications 24 PSGAPIV  PSGCAPIV  PSGDL  PSGMIV  PSGMMIV  PSGMMIVC  PSGPL0  PSGS0  
PSIVCAL  PSIVLBL1  PSIVUDL  PSIVUTL  PSIVUTL1  PSIVWL  PSJADT0  PSJBCMA1  
PSJBCMA4  PSJCOM1  PSJH1  PSJLMPRI  PSJLMUT1  PSJMIV  PSJO1  PSJORMA2  
Barcode Medication Administration 14 PSBCSUTL  PSBML  PSBMLEN  PSBMLTS  PSBO  PSBODL  PSBOIV  PSBOMH  
PSBOMM  PSBOMT  PSBOWA  PSBVDLIV  PSBVDLTB  PSBVDLU3  

Entry Points

Name Comments DBIA/ICR reference
TMP ;Setup ^TMP that have common fields between IV and U/D
IVVAR ;Set variables for IV and pending orders
SIOPI ; Use provider comments if order is pending and there is no SI
ONE(DFN,ORD,SCH,START,STOP) ;Is order a one-time
; Input: DFN - patient's IEN
; ORD - order number
; SCH - schedule text (required)
; START - order start date (optional)
; STOP - order stop date (optional)
ENSET(X) ; expands SPECIAL INSTRUCTIONS field contained in X into Y
UDVAR ;Set ^TMP for Unit dose & Pending orders
CLINIC(CL) ;
UDPEND ;
CLINICS(CL) ;
EN(DFN,BDT,OTDATE)
  • ICR #2828
    • Status: Active
    • Usage: Private
    ORDER ;Loop thru orders.

    External References

    Name Field # of Occurrence
    C^%DTC ORDER+19
    NOW^%DTC ORDER+1, ORDER+19, UDVAR+4
    $$GET1^DIQ TMP+4
    $$OTPRN^PSJBCMA3 ONE+12
    $$SNDTSTA^PSJHL4A TMP+13
    $$OIDF^PSJLMUT1 TMP+3

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PS(50.7 - [#50.7] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^PS(51 - [#51] ENSET+2
    ^PS(51.1 - [#51.1] ONE+15
    ^PS(51.2 - [#51.2] TMP+6
    ^PS(52.6 - [#52.6] IVVAR+30, IVVAR+41
    ^PS(52.7 - [#52.7] IVVAR+34, IVVAR+44
    ^PS(53.1 - [#53.1] ORDER+14, ORDER+16, IVVAR+2, SIOPI+2, SIOPI+3
    ^PS(53.46 - [#53.46] CLINICS+2, CLINICS+4, CLINICS+5
    ^PS(55 - [#55] ORDER+6, ORDER+7, ORDER+10, ORDER+11, ORDER+23, ORDER+24, ORDER+27, ORDER+28, ORDER+29, IVVAR+4
    , IVVAR+10, IVVAR+14, IVVAR+19, IVVAR+22, IVVAR+39, IVVAR+40, IVVAR+41, IVVAR+44, UDPEND+11, ONE+10
    , ONE+11, ONE+13
    ^PSDRUG - [#50] UDVAR+8
    ^TMP("PSJ" EN+3, UDVAR+8*, UDVAR+9*, IVVAR+31*, IVVAR+32*, IVVAR+35*, IVVAR+36*, IVVAR+41*, IVVAR+42*, IVVAR+44*
    , IVVAR+45*, TMP+7*, TMP+8*, TMP+9*, TMP+10*, TMP+11*, TMP+12*, TMP+14*

    Label References

    Name Line Occurrences
    $$CLINIC CLINICS+1
    $$CLINICS UDVAR+1, IVVAR+2, IVVAR+3, IVVAR+4, UDPEND+1, UDPEND+2
    $$ENSET UDPEND+22
    $$ONE ORDER+30, IVVAR+24, UDPEND+25
    @( ORDER+16
    IVVAR ORDER+11, ORDER+31
    ORDER EN+2
    SIOPI UDPEND+23
    TMP UDVAR+2, IVVAR+27
    UDPEND UDVAR+1, IVVAR+2
    UDVAR ORDER+7, ORDER+25

    Naked Globals

    Name Field # of Occurrence
    ^( IVVAR+14, IVVAR+41, IVVAR+44, UDPEND+11, SIOPI+3, ONE+15
    ^("DSS" IVVAR+4
    ^(0 EN+3*, IVVAR+41, IVVAR+44, ENSET+2
    ^(3 IVVAR+22
    ^(6 UDPEND+22

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % EN+1~, ORDER+1, ORDER+19, UDVAR+6
    A IVVAR+13~, IVVAR+14*, IVVAR+15, UDPEND+10~, UDPEND+11*, UDPEND+12, UDPEND+13, TMP+1~, TMP+6*, TMP+9
    , TMP+13*, TMP+14, CLINICS+3~, CLINICS+4*, CLINICS+5
    B IVVAR+13~, IVVAR+14*, IVVAR+16, IVVAR+17, UDPEND+10~, UDPEND+11*
    BDT EN~, ORDER+1*, ORDER+2*, ORDER+5, ORDER+9, ORDER+21
    C IVVAR+13~, IVVAR+14*, UDPEND+10~, UDPEND+11*
    CL CLINIC~, CLINIC+1, CLINICS~, CLINICS+1, CLINICS+2, CLINICS+4
    >> CLINIC UDVAR+1, IVVAR+2, IVVAR+3, IVVAR+4*, UDPEND+1*, UDPEND+2*
    CNT EN+1~, UDVAR+4*, UDVAR+7*, UDVAR+8, UDVAR+9, IVVAR+28*, IVVAR+31*, IVVAR+32*, IVVAR+35*, IVVAR+36
    DFN EN~, EN+2, ORDER+6, ORDER+7, ORDER+10, ORDER+11, ORDER+14, ORDER+23, ORDER+24, ORDER+27
    , ORDER+28, ORDER+29, ORDER+30, IVVAR+4, IVVAR+10, IVVAR+14, IVVAR+19, IVVAR+22, IVVAR+24, IVVAR+39
    , IVVAR+40, IVVAR+41, IVVAR+44, UDPEND+11, UDPEND+25, TMP+7, ONE~, ONE+9, ONE+10, ONE+11
    , ONE+13
    DN EN+1~, IVVAR+30*, IVVAR+31, IVVAR+34*, IVVAR+35
    F EN+1~, ORDER+5*, ORDER+9*, ORDER+13*, ORDER+22*, ORDER+26*, UDVAR+5, UDVAR+6, IVVAR+29, IVVAR+30
    , IVVAR+33, IVVAR+34, UDPEND+1, UDPEND+2, UDPEND+7, UDPEND+14, UDPEND+16, UDPEND+19, UDPEND+22
    FON EN+1~, ORDER+7*, ORDER+11*, ORDER+15*, ORDER+25*, ORDER+31*, UDVAR+8, IVVAR+2, IVVAR+3, UDPEND+6
    , UDPEND+25, TMP+7, SIOPI+2
    >> I IVVAR+41*, IVVAR+42, IVVAR+44*, IVVAR+45
    ND IVVAR+1~, IVVAR+30*, IVVAR+31, IVVAR+34*, IVVAR+35
    ON EN+1~, ORDER+7*, ORDER+11*, ORDER+14*, ORDER+15, ORDER+16, ORDER+24*, ORDER+25, ORDER+28*, ORDER+29
    , ORDER+30, ORDER+31, UDVAR+5, UDVAR+6, IVVAR+2, IVVAR+4, IVVAR+10, IVVAR+14, IVVAR+19, IVVAR+20
    , IVVAR+21, IVVAR+22, IVVAR+24, IVVAR+29, IVVAR+30, IVVAR+33, IVVAR+34, IVVAR+40, UDPEND+1, UDPEND+2
    , UDPEND+7, UDPEND+11, UDPEND+14, UDPEND+16, UDPEND+19, UDPEND+22, TMP+7, SIOPI+2, SIOPI+3
    ONEFRQ ONE+6~
    ORD ONE~, ONE+9, ONE+10, ONE+11, ONE+13
    OTDATE EN~, ORDER+19*, ORDER+20*, ORDER+21, ORDER+22, ORDER+26
    PSJ UDVAR+10!, IVVAR+37!
    PSJ("ADM" IVVAR+7*, UDPEND+18*, TMP+8
    PSJ("AUTO" IVVAR+7*, UDPEND+20*, TMP+8
    PSJ("CHEMO" IVVAR+9*, TMP+7
    PSJ("COM" IVVAR+11*, IVVAR+17*, UDPEND+8*, UDPEND+14*, TMP+14
    PSJ("CPRS" IVVAR+9*, UDPEND+5*, TMP+7
    PSJ("DO" IVVAR+11*, UDPEND+8*, TMP+10
    PSJ("FLG" IVVAR+11*, IVVAR+12, UDPEND+8*, UDPEND+9, TMP+14
    PSJ("FOLLOW" IVVAR+21*, UDPEND+5*, TMP+7, ONE+7*
    PSJ("HSM" UDPEND+3*, TMP+10
    PSJ("INFRATE" IVVAR+2*, IVVAR+6*, TMP+10
    PSJ("INSYR" IVVAR+8*, TMP+7
    PSJ("IVTYPE" IVVAR+8*, TMP+7
    PSJ("MR" IVVAR+11*, UDPEND+3*, TMP+6
    PSJ("MRABB" TMP+6*, TMP+8
    PSJ("MRNM" TMP+6*, TMP+9
    PSJ("NGIVEN" UDPEND+6*, TMP+8
    PSJ("OI" IVVAR+18*, UDPEND+15*, TMP+3, TMP+4, TMP+11
    PSJ("OIDF" TMP+4*, TMP+5*, TMP+11
    PSJ("OINAME" TMP+3*, TMP+5, TMP+11
    PSJ("PREV" IVVAR+20*, UDPEND+5*, TMP+7, ONE+7*
    PSJ("PRI" IVVAR+11*, UDPEND+8*, TMP+13
    PSJ("RFO" IVVAR+21*, UDPEND+5*, TMP+7
    PSJ("SCHD" IVVAR+6*, IVVAR+23, UDPEND+17*, UDPEND+25, TMP+8, TMP+13
    PSJ("SIOPI" IVVAR+22*, UDPEND+22*, TMP+12, SIOPI+2, SIOPI+4, SIOPI+5*, SIOPI+6*
    PSJ("SM" UDPEND+3*, TMP+10
    PSJ("SRC" IVVAR+11*, IVVAR+14, IVVAR+16*, UDPEND+8*, UDPEND+11, UDPEND+13*, TMP+14
    PSJ("ST" UDPEND+4*, UDPEND+24, UDPEND+25, TMP+8
    PSJ("STARTDT" IVVAR+5*, IVVAR+24, UDPEND+17*, TMP+8
    PSJ("STATUS" IVVAR+7*, UDPEND+4*, TMP+8
    PSJ("STC" IVVAR+24*, IVVAR+25*, IVVAR+26*, UDPEND+24*, UDPEND+25*, TMP+8
    PSJ("STOPDT" IVVAR+5*, IVVAR+24, UDPEND+18*, TMP+8
    >> PSJBCID IVVAR+40*, IVVAR+41, IVVAR+42, IVVAR+44, IVVAR+45
    PSJDD UDVAR+6*, UDVAR+8, UDVAR+10!
    PSJINX EN+4!, ORDER+3*, UDVAR+8, UDVAR+9, IVVAR+31, IVVAR+32, IVVAR+35, IVVAR+36, IVVAR+41, IVVAR+42
    , IVVAR+44, IVVAR+45, TMP+2*, TMP+7, TMP+8, TMP+9, TMP+10, TMP+11, TMP+12, TMP+14
    PSJON ORDER+32!
    PSJON( ORDER+7*, ORDER+11*, ORDER+25, ORDER+31
    PST EN+1~, ORDER+14*
    S1 IVVAR+13~, IVVAR+14*, UDPEND+10~, UDPEND+11*
    SCH ONE~, ONE+9, ONE+10*, ONE+11*, ONE+12, ONE+14, ONE+15
    SCHD IVVAR+23~*, IVVAR+24, IVVAR+25, IVVAR+26
    START ONE~, ONE+16
    STOP ONE~, ONE+16
    T ONE+6~
    TYP ONE+6~
    U ORDER+16, ORDER+29, UDVAR+8, IVVAR+2, IVVAR+5, IVVAR+6, IVVAR+7, IVVAR+8, IVVAR+9, IVVAR+11
    , IVVAR+14, IVVAR+20, IVVAR+21, IVVAR+31, IVVAR+35, UDPEND+3, UDPEND+4, UDPEND+5, UDPEND+6, UDPEND+8
    , UDPEND+11, UDPEND+17, UDPEND+18, UDPEND+20, TMP+6, TMP+7, TMP+8, TMP+9, TMP+10, TMP+11
    , TMP+14
    WBDT EN+1~, ORDER+5*, ORDER+6*, ORDER+7, ORDER+9*, ORDER+10*, ORDER+11, ORDER+22*, ORDER+23*, ORDER+24
    , ORDER+26*, ORDER+27*, ORDER+28
    X EN+1~, ORDER+16*, ORDER+19, ORDER+29*, ORDER+30, UDVAR+5*, UDVAR+6, IVVAR+1~, IVVAR+4*, IVVAR+5
    , IVVAR+6, IVVAR+7, IVVAR+8, IVVAR+9, IVVAR+10*, IVVAR+11, IVVAR+18, IVVAR+19*, IVVAR+20, IVVAR+21
    , IVVAR+29*, IVVAR+30, IVVAR+33*, IVVAR+34, IVVAR+41*, IVVAR+44*, UDPEND+1*, UDPEND+3, UDPEND+4, UDPEND+5
    , UDPEND+6, UDPEND+7*, UDPEND+8, UDPEND+15, UDPEND+16*, UDPEND+17, UDPEND+18, UDPEND+19*, UDPEND+20, SIOPI+1~
    , SIOPI+3*, ENSET~, ENSET+2, ONE+6~, ONE+15*
    X1 EN+1~, ORDER+19*, IVVAR+38*, IVVAR+39*, IVVAR+40, IVVAR+41, IVVAR+44, ENSET+1~, ENSET+2*
    X2 EN+1~, ORDER+19*, IVVAR+40*, IVVAR+41*, IVVAR+43*, IVVAR+44*, ENSET+1~, ENSET+2*
    >> XX IVVAR+40*
    Y EN+1~, IVVAR+1~, SIOPI+1~, SIOPI+4*, SIOPI+5, SIOPI+6, ENSET+1~*, ENSET+2*, ENSET+3*, ENSET+4
    Z SIOPI+1~, SIOPI+3*, SIOPI+5, SIOPI+6
    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