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) ; 5/4/16 10:51am

Source Information

Source file <PSJBCMA.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Inpatient Medications 3 $$OTPRN^PSJBCMA3  $$SNDTSTA^PSJHL4A  $$OIDF^PSJLMUT1  
VA FileMan 2 (C,NOW)^%DTC  $$GET1^DIQ  
Kernel 1 $$FMADD^XLFDT  
Registration 1 (IN5,INP)^VADPT  

Caller Graph

Caller Graph Total: 41

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

Entry Points

Name Comments DBIA/ICR reference
EN(DFN,BDT,OTDATE)
  • ICR #2828
    • Status: Active
    • Usage: Private
    ORDER ;Loop thru orders.
    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
    SIOPI ; Use provider comments if order is pending and there is no SI
    ENSET(X) ; expands SPECIAL INSTRUCTIONS field contained in X into Y
    ONE(DFN,ORD,SCH,START,STOP) ;Determine if order is one-time, and return schedule type
    ; Input: DFN - patient's IEN
    ; ORD - order number
    ; SCH - schedule text (required)
    ; START - order start date (optional)
    ; STOP - order stop date (optional)
    CLINIC(CL) ; is a valid appointment date present? 1=yes 0 =no
    CLINICS(CL,IGNOSND) ;IM & CO order tests *70
    ; Send IM orders always. Send Clinic orders as CO order, if it
    ; meets below conditions, else send the order over as a IM order.
    DAY(SCH) ;determine if this is a 'day of the week' schedule
    ONCALL(SCHD) ; Check if a schedule is type On Call (all "APPSJ" schedules with a given name must have the same schedule type)
    HRFLG(IEN,ADDSOL) ;Get High Risk flag for this Orderable Item

    External References

    Name Field # of Occurrence
    C^%DTC ORDER+19
    NOW^%DTC ORDER+1, ORDER+19, UDVAR+5
    $$GET1^DIQ UDVAR+13, TMP+4, TMP+12, HRFLG+2, HRFLG+3, HRFLG+4
    $$OTPRN^PSJBCMA3 ONE+12
    $$SNDTSTA^PSJHL4A TMP+27
    $$OIDF^PSJLMUT1 TMP+3
    IN5^VADPT CLINICS+17, CLINICS+18, CLINICS+19, CLINICS+20
    INP^VADPT CLINICS+15
    $$FMADD^XLFDT CLINICS+17

    FileMan Files Accessed Via FileMan Db Call

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

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^PS(51 - [#51] ENSET+2
    ^PS(51.1 - [#51.1] ONE+16, ONCALL+4, ONCALL+5
    ^PS(51.2 - [#51.2] TMP+6
    ^PS(52.6 - [#52.6] IVVAR+30, IVVAR+46
    ^PS(52.7 - [#52.7] IVVAR+36, IVVAR+52
    ^PS(53.1 - [#53.1] ORDER+14, ORDER+16, IVVAR+2, SIOPI+2, SIOPI+3
    ^PS(53.46 - [#53.46] TMP+11, CLINICS+23, CLINICS+24, CLINICS+25
    ^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+43, IVVAR+44, IVVAR+45, IVVAR+51, UDPEND+11, ONE+10
    , ONE+11, ONE+13
    ^PSDRUG - [#50] UDVAR+11
    ^TMP("PSJ" EN+3, UDVAR+11*, UDVAR+13*, UDVAR+15*, UDVAR+16*, IVVAR+31*, IVVAR+33*, IVVAR+34*, IVVAR+37*, IVVAR+39*
    , IVVAR+40*, IVVAR+46*, IVVAR+48*, IVVAR+49*, IVVAR+52*, IVVAR+54*, IVVAR+55*, TMP+7*, TMP+13*, TMP+14*
    , TMP+16*, TMP+18*, TMP+19*, TMP+20*, TMP+21*, TMP+23*, TMP+24*, TMP+25*, TMP+26*, TMP+28*

    Label References

    Name Line Occurrences
    $$CLINIC TMP+10, CLINICS+21
    $$CLINICS UDVAR+2, IVVAR+2, IVVAR+3, IVVAR+4, UDPEND+1, UDPEND+2
    $$DAY ONE+18
    $$ENSET UDPEND+31
    $$HRFLG IVVAR+33, IVVAR+39, IVVAR+48, IVVAR+54
    $$ONCALL IVVAR+26, UDPEND+34
    $$ONE ORDER+30, IVVAR+24, UDPEND+34
    @( ORDER+16
    IVVAR ORDER+11, ORDER+31
    ORDER EN+2
    SIOPI UDPEND+32
    TMP UDVAR+3, IVVAR+27
    UDPEND UDVAR+2, IVVAR+2
    UDVAR ORDER+7, ORDER+25

    Naked Globals

    Name Field # of Occurrence
    ^( IVVAR+14, IVVAR+46, IVVAR+52, UDPEND+11, SIOPI+3, ONE+16
    ^("DSS" IVVAR+4
    ^(0 EN+3*, IVVAR+46, IVVAR+52, ENSET+2
    ^(3 IVVAR+22
    ^(6 UDPEND+31

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % EN+1~, ORDER+1, ORDER+19, UDVAR+7
    A IVVAR+13~, IVVAR+14*, IVVAR+15, UDPEND+10~, UDPEND+11*, UDPEND+12, UDPEND+13, TMP+1~, TMP+6*, TMP+23
    , TMP+27*, TMP+28, CLINICS+22~, CLINICS+23*, CLINICS+25
    ADDSOL HRFLG~, HRFLG+2, HRFLG+3
    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+13, CLINICS+21, CLINICS+23, CLINICS+24
    CLINIC UDVAR+1~, UDVAR+2, IVVAR+1~, IVVAR+2, IVVAR+3, IVVAR+4*, UDPEND+1*, UDPEND+2*, TMP+10, TMP+11
    , TMP+14
    CLNAME TMP+1~, TMP+12*, TMP+13
    CLNAMPTR TMP+1~, TMP+11*, TMP+12
    CNT EN+1~, UDVAR+5*, UDVAR+10*, UDVAR+11, UDVAR+13, UDVAR+15, UDVAR+16, IVVAR+28*, IVVAR+31*, IVVAR+33
    , IVVAR+34*, IVVAR+37*, IVVAR+39, IVVAR+40
    D DAY+2~, DAY+4*, DAY+6
    DAY DAY+2~, DAY+5*, DAY+6
    DAYS DAY+2~, DAY+3*, DAY+5
    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+43
    , IVVAR+44, IVVAR+45, IVVAR+51, UDPEND+11, UDPEND+34, TMP+7, ONE~, ONE+9, ONE+10, ONE+11
    , ONE+13, CLINICS+14, CLINICS+15
    DN EN+1~, IVVAR+30*, IVVAR+31, IVVAR+36*, IVVAR+37
    F EN+1~, ORDER+5*, ORDER+9*, ORDER+13*, ORDER+22*, ORDER+26*, UDVAR+6, UDVAR+7, IVVAR+29, IVVAR+30
    , IVVAR+35, IVVAR+36, UDPEND+1, UDPEND+2, UDPEND+7, UDPEND+14, UDPEND+16, UDPEND+22, UDPEND+28, UDPEND+31
    FON EN+1~, ORDER+7*, ORDER+11*, ORDER+15*, ORDER+25*, ORDER+31*, UDVAR+11, IVVAR+2, IVVAR+3, UDPEND+6
    , UDPEND+34, TMP+7, SIOPI+2
    I IVVAR+45*, IVVAR+46, IVVAR+48, IVVAR+49, IVVAR+51*, IVVAR+52, IVVAR+54, IVVAR+55, DAY+2~, DAY+4*
    IEN HRFLG~, HRFLG+2, HRFLG+3
    IGNOSND CLINICS~, CLINICS+13
    >> J DAY+5*
    ND IVVAR+1~, IVVAR+30*, IVVAR+31, IVVAR+33, IVVAR+36*, IVVAR+37, IVVAR+39, IVVAR+48
    NXT ONCALL+1~, ONCALL+5*
    OCCHK ONCALL+1~, ONCALL+2*, ONCALL+3, ONCALL+4, ONCALL+6*, ONCALL+7*, ONCALL+8*, ONCALL+9
    OIIEN HRFLG+1~, HRFLG+2*, HRFLG+3*, HRFLG+4
    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+6, UDVAR+7, IVVAR+2, IVVAR+4, IVVAR+10, IVVAR+14, IVVAR+19, IVVAR+20
    , IVVAR+21, IVVAR+22, IVVAR+24, IVVAR+29, IVVAR+30, IVVAR+35, IVVAR+36, IVVAR+44, UDPEND+1, UDPEND+2
    , UDPEND+7, UDPEND+11, UDPEND+14, UDPEND+16, UDPEND+22, UDPEND+28, UDPEND+31, 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
    >> PSBPRNDT CLINICS+19
    >> PSBREC(0 CLINICS+18
    >> PSBREC(2 CLINICS+18
    >> PSBRPT(".1" CLINICS+15, CLINICS+16
    >> PSBSTRT CLINICS+19
    >> PSBTYPE CLINICS+20
    PSGP CLINICS+15~*
    PSJ UDVAR+17!, IVVAR+41!
    PSJ("ADM" IVVAR+7*, UDPEND+19*, TMP+16
    PSJ("AUTO" IVVAR+7*, UDPEND+29*, TMP+16
    PSJ("CHEMO" IVVAR+9*, TMP+7
    PSJ("COM" IVVAR+11*, IVVAR+17*, UDPEND+8*, UDPEND+14*, TMP+28
    PSJ("CPRS" IVVAR+9*, UDPEND+5*, TMP+7
    PSJ("DO" IVVAR+11*, UDPEND+8*, TMP+24
    PSJ("DOA" UDPEND+23*, UDPEND+24, UDPEND+26*, TMP+18
    PSJ("FLG" IVVAR+11*, IVVAR+12, UDPEND+8*, UDPEND+9, TMP+28
    PSJ("FOLLOW" IVVAR+21*, UDPEND+5*, TMP+7, ONE+7*
    PSJ("FREQ" UDPEND+20*, UDPEND+26
    PSJ("HSM" UDPEND+3*, TMP+24
    PSJ("INFRATE" IVVAR+2*, IVVAR+6*, TMP+24
    PSJ("INSYR" IVVAR+8*, TMP+7
    PSJ("IVTYPE" IVVAR+8*, TMP+7
    PSJ("MR" IVVAR+11*, UDPEND+3*, TMP+6, TMP+23
    PSJ("MRABB" TMP+6*, TMP+16
    PSJ("MRNM" TMP+6*, TMP+23
    PSJ("MRRFL" UDVAR+15, UDPEND+23*, UDPEND+24*, TMP+20
    PSJ("NGIVEN" UDPEND+6*, TMP+16
    PSJ("OI" UDVAR+13, IVVAR+18*, UDPEND+15*, TMP+3, TMP+4, TMP+25
    PSJ("OIDF" TMP+4*, TMP+5*, TMP+25
    PSJ("OINAME" TMP+3*, TMP+5, TMP+25
    PSJ("PREV" IVVAR+20*, UDPEND+5*, TMP+7, ONE+7*
    PSJ("PRI" IVVAR+11*, UDPEND+8*, TMP+27
    PSJ("PRSTOPDT" UDPEND+18*, TMP+21
    PSJ("RFO" IVVAR+21*, UDPEND+5*, TMP+7
    PSJ("RMTM" UDPEND+23*, TMP+19
    PSJ("SCHD" IVVAR+6*, IVVAR+23, UDPEND+17*, UDPEND+34, TMP+16, TMP+27
    PSJ("SIOPI" IVVAR+22*, UDPEND+31*, TMP+26, SIOPI+2, SIOPI+4, SIOPI+5*, SIOPI+6*
    PSJ("SM" UDPEND+3*, TMP+24
    PSJ("SRC" IVVAR+11*, IVVAR+14, IVVAR+16*, UDPEND+8*, UDPEND+11, UDPEND+13*, TMP+28
    PSJ("ST" UDPEND+4*, UDPEND+33, UDPEND+34, TMP+16
    PSJ("STARTDT" IVVAR+5*, IVVAR+24, UDPEND+17*, TMP+16, CLINICS+20
    PSJ("STATUS" IVVAR+7*, UDPEND+4*, TMP+16
    PSJ("STC" IVVAR+24*, IVVAR+25*, IVVAR+26*, UDPEND+33*, UDPEND+34*, TMP+16
    PSJ("STOPDT" IVVAR+5*, IVVAR+24, UDPEND+19*, TMP+16
    PSJBCID ORDER+32!, IVVAR+44*, IVVAR+46, IVVAR+48, IVVAR+49, IVVAR+52, IVVAR+54, IVVAR+55
    PSJCNT CLINICS+14~, CLINICS+17*
    PSJDD UDVAR+7*, UDVAR+9*, UDVAR+11, UDVAR+17!
    PSJINX EN+4!, ORDER+3*, UDVAR+11, UDVAR+13, UDVAR+15, UDVAR+16, IVVAR+31, IVVAR+33, IVVAR+34, IVVAR+37
    , IVVAR+39, IVVAR+40, IVVAR+46, IVVAR+48, IVVAR+49, IVVAR+52, IVVAR+54, IVVAR+55, TMP+2*, TMP+7
    , TMP+13, TMP+14, TMP+16, TMP+18, TMP+19, TMP+20, TMP+21, TMP+23, TMP+24, TMP+25
    , TMP+26, TMP+28
    PSJON ORDER+32!
    PSJON( ORDER+7*, ORDER+11*, ORDER+25, ORDER+31
    PSJSTOP CLINICS+14~, CLINICS+16*, CLINICS+17
    PSJSTRT CLINICS+14~, CLINICS+16*, CLINICS+17
    PSJVAIN4 CLINICS+14~*, CLINICS+15*, CLINICS+17*, CLINICS+18*, CLINICS+19*, CLINICS+20*, CLINICS+21
    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+16, ONE+18, DAY~, DAY+1
    , DAY+4
    SCHARR ONCALL+1~
    SCHARR( ONCALL+5*
    SCHARR("OC" ONCALL+6, ONCALL+7, ONCALL+8
    SCHD IVVAR+23~*, IVVAR+24, IVVAR+25, IVVAR+26, ONCALL~, ONCALL+3, ONCALL+4, ONCALL+5
    START ONE~, ONE+17
    STOP ONE~, ONE+17
    T ONE+6~
    TYP ONE+6~, ONCALL+5*
    U ORDER+16, ORDER+29, UDVAR+11, UDVAR+13, UDVAR+15, IVVAR+2, IVVAR+5, IVVAR+6, IVVAR+7, IVVAR+8
    , IVVAR+9, IVVAR+11, IVVAR+14, IVVAR+20, IVVAR+21, IVVAR+31, IVVAR+33, IVVAR+37, IVVAR+39, IVVAR+48
    , IVVAR+54, UDPEND+3, UDPEND+4, UDPEND+5, UDPEND+6, UDPEND+8, UDPEND+11, UDPEND+17, UDPEND+18, UDPEND+19
    , UDPEND+20, UDPEND+23, UDPEND+29, TMP+6, TMP+7, TMP+13, TMP+14, TMP+16, TMP+18, TMP+19
    , TMP+20, TMP+21, TMP+23, TMP+24, TMP+25, TMP+28, CLINICS+16
    VAIN CLINICS+15~
    VAIN(4 CLINICS+15
    VAIP CLINICS+14~
    VAIP("3" CLINICS+17, CLINICS+18, CLINICS+19, CLINICS+20
    VAIP("D" CLINICS+17*, CLINICS+18*, CLINICS+19*, CLINICS+20*
    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+6*, UDVAR+7, 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+35*, IVVAR+36, IVVAR+46*, IVVAR+52*, IVVAR+54, 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
    , UDPEND+22*, UDPEND+23, UDPEND+28*, UDPEND+29, SIOPI+1~, SIOPI+3*, ENSET~, ENSET+2, ONE+6~, ONE+16*
    , CLINICS+14~, DAY+2~, DAY+4, DAY+5*, DAY+6*, DAY+7
    X1 EN+1~, ORDER+19*, IVVAR+42*, IVVAR+43*, IVVAR+44, IVVAR+45, IVVAR+51, ENSET+1~, ENSET+2*
    X2 EN+1~, ORDER+19*, IVVAR+44*, IVVAR+45*, IVVAR+46, IVVAR+50*, IVVAR+51*, IVVAR+52, ENSET+1~, ENSET+2*
    >> XX IVVAR+44*
    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