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

Package: Inpatient Medications

Routine: PSJORUT2


Information

PSJORUT2 ;BIR/MLM-MISC. PROCEDURE CALLS FOR OE/RR 3.0 (CONT.) ;03 Aug 98 / 8:42 AM

Source Information

Source file <PSJORUT2.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Inpatient Medications 1 ENDDIV^PSJORUTL  
National Drug File 1 ($$DCLASS,$$VAGN)^PSNAPIS  
VA FileMan 1 NOW^%DTC  

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

Package Total Caller Graph
Order Entry Results Reporting 6 OCXOZ0A  OCXOZ0C  ORBCMA32  ORCACT03  ORCDPSIV  ORWDPS33  
Outpatient Pharmacy 3 PSODDPR4  PSODDPR8  PSOORDRG  
Inpatient Medications 1 PSJOEEW  

Entry Points

Name Comments DBIA/ICR reference
ENVAC(PN) ; Find VA CLASS of VA Product Name
ENVAGN(PN) ; Return VA Generic Name for specified VA Product Name.
ENVOL(PN,ARRAY) ;
  • ICR #2402
    • Status: Active
    • Usage: Private
    ENVOL2(PN,ARRAY) ;Only for Med Button IV orders.
  • ICR #4074
    • Status: Active
    • Usage: Private
    SENVOL(PN,PSJ) ;Return array listing volume (base only) and volume units for the specified additive or solution.
    ENREF(PRX) ; Return number of refills remaining.
    ENCHK(DFN,PSJINX)
  • ICR #2376
    • Status: Active
    • Usage: Private
    UD ;*** Get the dispense drugs for the Unit Dose orders.
    PIV ;*** Get the dispense drugs for the Pending IV orders.
    IV ;*** Get the dispense drugs for the IV orders.
    NEWIV ;*** Get the dispense drugs for the newly entered IV order.
    DDRUG ;*** Set PSJ(DDRUG NAME) arrays.
  • ICR #2376
    • Status: Active
    • Usage: Private
    PRCHK(PSJ) ; Check if authorized to write med orders.
    ENNG(PSJDPT,PSJNUM)
  • ICR #2402
    • Status: Active
    • Usage: Private

    External References

    Name Field # of Occurrence
    NOW^%DTC ENCHK+10, PRCHK+2
    ENDDIV^PSJORUTL UD+4
    $$DCLASS^PSNAPIS ENVAC+5
    $$VAGN^PSNAPIS ENVAGN+5

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZOSF("TEST" ENVAC+5, ENVAGN+5
    ^PS(50.605 - [#50.605] ENVAC+8
    ^PS(52.6 - [#52.6] ENVOL+4, ENVOL+5, ENVOL2+4, ENVOL2+5, SENVOL+9, UD+4, PIV+2, IV+2, NEWIV+3
    ^PS(52.7 - [#52.7] ENVOL+6, ENVOL+7, ENVOL2+6, ENVOL2+7, SENVOL+10, PIV+3, IV+3, NEWIV+4
    ^PS(53.1 - [#53.1] ENCHK+12, ENCHK+13, UD+4, PIV+1, PIV+2, PIV+3
    ^PS(53.45 - [#53.45] UD+6
    ^PS(55 - [#55] ENCHK+11, ENCHK+15, IV+1, IV+2, IV+3, ENNG+2, ENNG+3
    ^PSDRUG - [#50] DDRUG+1
    ^PSDRUG("ASP" UD+8
    ^PSNDF( ENVAC+8, ENVAGN+8
    ^PSRX - [#52] ENREF+4, ENREF+5, ENREF+6
    ^TMP($J DDRUG+6*, DDRUG+7*
    ^VA(200 - [#200] PRCHK+2

    Label References

    Name Line Occurrences
    DDRUG UD+4, UD+5, UD+6, UD+9, PIV+2, PIV+3, IV+2, IV+3, NEWIV+3, NEWIV+4
    IV ENCHK+15
    NEWIV ENCHK+16
    PIV ENCHK+13
    UD ENCHK+11, ENCHK+14

    Naked Globals

    Name Field # of Occurrence
    ^(0 ENVOL+5, ENVOL+7

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % ENCHK+10, PRCHK+1~, PRCHK+2
    ADD ENVOL+4~*, ENVOL+5, ENVOL2+4~*, ENVOL2+5
    ARRAY ENVOL~, ENVOL+1*, ENVOL+8*, ENVOL2~, ENVOL2+1*, ENVOL2+8*
    ARRAY( ENVOL+5*, ENVOL+7*, ENVOL2+5*, ENVOL2+7*
    BDT ENCHK+9~, ENCHK+10*, ENCHK+15, UD+5, UD+6, UD+9
    CNT ENREF+4~, ENREF+6*
    >> COD UD+3*, UD+5*, UD+6*, UD+9*, PIV+2*, PIV+3*, IV+2*, IV+3*, NEWIV+3*, NEWIV+4*
    , DDRUG+6, DDRUG+7
    COUNT ENREF+4~*, ENREF+6*, ENREF+7
    DDRUG ENCHK+9~, UD+1*, UD+4*, UD+5*, UD+6*, UD+8*, UD+9, PIV+2*, PIV+3*, IV+2*
    , IV+3*, NEWIV+3*, NEWIV+4*, DDRUG+1, DDRUG+3, DDRUG+4, DDRUG+6
    DDRUG( DDRUG+6
    DDRUG0 ENCHK+9~, DDRUG+1*, DDRUG+6, DDRUG+7
    DDRUGND ENCHK+9~, DDRUG+1*, DDRUG+6, DDRUG+7
    DFN ENCHK~, ENCHK+11, ENCHK+12, ENCHK+15, IV+1, IV+2, IV+3
    >> DRGOC( NEWIV+3, NEWIV+4
    >> DRGOC(0 NEWIV+2
    DT ENVOL+5, ENVOL+7, ENVOL2+5, ENVOL2+7
    EDT ENCHK+9~, ENCHK+10*
    F ENVOL+2~, ENVOL2+2~, ENCHK+9~, ENCHK+11*, ENCHK+12*, UD+1, UD+2, UD+5, UD+7, UD+9
    GDP ENVAC+7~*, ENVAC+8, ENVAGN+5~*, ENVAGN+7~*, ENVAGN+8, ENVAGN+9
    INACT ENVOL+2~, ENVOL+5*, ENVOL+7*, ENVOL2+2~, ENVOL2+5*, ENVOL2+7*
    IPOROP DDRUG+4~*, DDRUG+5*, DDRUG+6
    IVFL ENVOL+2~, ENVOL+5*, ENVOL+7*
    OI UD+7~*, UD+8
    ON ENCHK+9~, ENCHK+11*, ENCHK+12*, ENCHK+13, ENCHK+15*, UD+1, UD+2, UD+3, UD+4, UD+5
    , UD+7, UD+9, PIV+1, PIV+2, PIV+3, IV+1, IV+2, IV+3, NEWIV+1~, NEWIV+2*
    , NEWIV+3, NEWIV+4
    ON1 ENCHK+9~, UD+5*, UD+6*, PIV+2*, PIV+3*, IV+2*, IV+3*
    >> ON55 NEWIV+3
    PN ENVAC~, ENVAC+5, ENVAC+7, ENVAGN~, ENVAGN+5, ENVAGN+7, ENVOL~, ENVOL+1, ENVOL+4, ENVOL+6
    , ENVOL2~, ENVOL2+1, ENVOL2+4, ENVOL2+6, SENVOL~, SENVOL+7, SENVOL+9, SENVOL+10
    PNP ENVAC+7~*, ENVAC+8, ENVAGN+7~*
    PRX ENREF~, ENREF+4*, ENREF+5, ENREF+6
    >> PSGOCHK UD+6
    >> PSIVOCON ENCHK+16
    PSIVX NEWIV+1~, NEWIV+3*, NEWIV+4*
    PSJ SENVOL~, SENVOL+5*, SENVOL+7*, SENVOL+8*, PRCHK~, PRCHK+2, PRCHK+3
    PSJ( SENVOL+9*, SENVOL+10*
    PSJC ENVAC+5~*, ENVAC+8*, ENVAC+9
    PSJDPT ENNG~, ENNG+2, ENNG+3
    PSJINX ENCHK~, DDRUG+2*, DDRUG+6, DDRUG+7
    PSJNUM ENNG~, ENNG+2, ENNG+3
    PSJORIEN ENCHK+9~, UD+1*, UD+6*, PIV+1*, IV+1*, NEWIV+2*, DDRUG+6, DDRUG+7
    PSJPD UD+3~, UD+4*
    >> PSJSYSP UD+6
    PST ENCHK+9~, ENCHK+12*
    SOL ENVOL+6~*, ENVOL+7, ENVOL2+6~*, ENVOL2+7
    U ENVAC+8, ENVAC+9, ENVAGN+5, ENVAGN+8, ENVAGN+9, ENVOL+5, ENVOL2+5, SENVOL+9, SENVOL+10, UD+1
    , UD+2, UD+5, UD+6, UD+9, PIV+1, PIV+2, PIV+3, IV+1, IV+2, IV+3
    , NEWIV+3, NEWIV+4, DDRUG+6, DDRUG+7
    WBDT ENCHK+9~, ENCHK+10*, ENCHK+11*, ENCHK+15*
    X ENVAC+5~*, ENVAC+8*, ENVAC+9, ENVAGN+5~*, ENVAGN+8*, ENVAGN+9, ENVOL+2~, ENVOL+4*, ENVOL2+2~, ENVOL2+4*
    , SENVOL+5~, ENREF+4~*, ENREF+7*, ENREF+8, ENCHK+9~, PIV+1*, PIV+2*, PIV+3*, IV+1~*, IV+2*
    , IV+3*, PRCHK+1~, PRCHK+2*
    X( ENVOL+5, ENVOL2+5, SENVOL+9
    X(1 ENVOL+3*, ENVOL2+3*, SENVOL+6*, SENVOL+10
    X(10 ENVOL+3*, ENVOL2+3*, SENVOL+6*
    X(11 ENVOL+3*, ENVOL2+3*, SENVOL+6*
    X(12 ENVOL+3*, ENVOL2+3*, SENVOL+6*
    X(13 ENVOL+3*, ENVOL2+3*, SENVOL+6*
    X(14 ENVOL+3*, ENVOL2+3*, SENVOL+6*
    X(2 ENVOL+3*, ENVOL2+3*, SENVOL+6*
    X(3 ENVOL+3*, ENVOL2+3*, SENVOL+6*
    X(4 ENVOL+3*, ENVOL2+3*, SENVOL+6*
    X(5 ENVOL+3*, ENVOL2+3*, SENVOL+6*
    X(6 ENVOL+3*, ENVOL2+3*, SENVOL+6*
    X(7 ENVOL+3*, ENVOL2+3*, SENVOL+6*
    X(8 ENVOL+3*, ENVOL2+3*, SENVOL+6*
    X(9 ENVOL+3*, ENVOL2+3*, SENVOL+6*
    X1 ENVAC+5~*, ENVAGN+5~*
    X2 ENVAC+5~*, ENVAGN+5~*
    XX ENVOL+2~, ENVOL+4*, ENVOL+5*, ENVOL+6*, ENVOL+7*, ENVOL+8, ENVOL2+2~, ENVOL2+4*, ENVOL2+5*, ENVOL2+6*
    , ENVOL2+7*, ENVOL2+8
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All