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

Package: Inpatient Medications

Routine: PSJHLU


Information

PSJHLU ;BIR/RLW - UTILITIES USED IN BUILDING HL7 SEGMENTS ;4/24/12 2:52pm

Source Information

Source file <PSJHLU.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Inpatient Medications 6 $$ENLU^PSGMI  GETSIOPI^PSJBCMA5  DISPLAY^PSJHL2  EXPIR^PSJHL6  ($$IVCAT,SEGMENT,SET)^PSJHLU  PDORD^PSJPDCLU  
Kernel 1 MSG^XQOR  
Order Entry Results Reporting 1 $$ESC^ORHLESC  
Pharmacy Data Management 1 $$HAZ^PSSUTIL  
Registration 1 $$SITE^VASITE  
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: 7

Package Total Caller Graph
Inpatient Medications 7 PSIVORFA  PSJHL2  PSJHL3  PSJHL4A  PSJHLERR  PSJHLU  PSJPDCLV  

Entry Points

Name Comments DBIA/ICR reference
INIT ; set up HL7 application variables
SEGMENT(LIMIT) ;
SET
SEGMENT2 ; Retrieve text fields
CALL(HLEVN) ; call DHCP HL7 package -or- protocol, to pass Orders
; HLEVN = number of segments in message
IVTYPE(PSJORDER) ; check whether a back-door order is Inpatient IV or IV fluid
ENI ;Calculate Frequency for IV orders
  • ICR #7345
    • Status: Withdrawn
    • Usage: Controlled Subscription
    SPSOL
    INTRMT(X) ;
    IVCAT(DFN,PSJORD,PARRAY) ; This returns the IV CATEGORY based on the IV TYPE and CHEMO TYPE (not what is already in the IV CATEGORY field)
    ; Passed in: PSJORDER (file root of order)
    ZRX ; Perform outbound processing
    ZZZ ; BCBU ZZZ Seg, Hazardous drug flags ZZZ.4 & ZZZ.5 *364
    HAZDRUG(FILE) ;Get Hazardous to Handle and Hazardous to Dispose fields per this order (if any component is Haz then order is) *364
    ; FILE = file root + Order Num from inpatient variables during workflow; Example VAR contains: "^PS(55,DFN,5,ON," or "(PS(53.1,ON," or "^PS(55,DFN,"IV",ON,"
    ; (build ROOT to the multiple level to find all Disp Drugs or Additives or Solution and check for any HAZ components.)

    External References

    Name Field # of Occurrence
    NOW^%DTC CALL+18
    $$ESC^ORHLESC SEGMENT2+2, SEGMENT2+14, SEGMENT2+16, ZRX+14
    $$ENLU^PSGMI ENI+2
    GETSIOPI^PSJBCMA5 SEGMENT2+6, SEGMENT2+8
    DISPLAY^PSJHL2 ZRX+15, ZZZ+13
    EXPIR^PSJHL6 CALL+18
    $$IVCAT^PSJHLU ZRX+12
    SEGMENT^PSJHLU ZRX+15, ZZZ+13
    SET^PSJHLU SEGMENT2+3, SEGMENT2+18
    PDORD^PSJPDCLU CALL+15
    $$HAZ^PSSUTIL HAZDRUG+8, HAZDRUG+9, HAZDRUG+14, HAZDRUG+15, HAZDRUG+19, HAZDRUG+20
    $$SITE^VASITE INIT+1
    MSG^XQOR CALL+14

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^PS(52.6 - [#52.6] IVTYPE+7, HAZDRUG+13
    ^PS(52.7 - [#52.7] IVTYPE+9, HAZDRUG+18
    ^PS(53.1 - [#53.1] SEGMENT2+7, IVCAT+6, ZRX+8
    ^PS(55 - [#55] CALL+16, CALL+17, IVCAT+5, ZRX+8
    ^TMP("PSJBCMA5" SEGMENT2+5!, SEGMENT2+9, SEGMENT2+11!*, SEGMENT2+12, SEGMENT2+14, SEGMENT2+16, SEGMENT2+18!
    ^TMP("PSJHLS" SET*, SET+1*, CALL+11, CALL+13
    ^VA(200 - [#200] ZRX+13

    Label References

    Name Line Occurrences
    $$HAZDRUG ZZZ+9
    $$INTRMT ENI+4
    SPSOL ENI+28, ENI+29

    Naked Globals

    Name Field # of Occurrence
    ^( IVTYPE+5

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % CALL+10!, CALL+18
    AD IVTYPE+3~
    >> CAT IVCAT+9*, IVCAT+10
    CHEMTYP IVCAT+2~, IVCAT+3*, IVCAT+4*, IVCAT+5*, IVCAT+6*, IVCAT+7*, IVCAT+9
    CLERK CALL+10!
    DDIEN CALL+10!
    DDNUM CALL+10!
    DFN IVCAT~, IVCAT+5
    DOSEFORM CALL+10!
    DOSEOR CALL+10!
    DUZ ZRX+13, ZRX+14
    FIELD CALL+10!
    FIELD( SEGMENT+3, SEGMENT+4
    FIELD(0 ZRX+4*, ZZZ+4*
    FIELD(1 ZRX+8*, ZZZ+6*
    FIELD(2 ZRX+9*, ZZZ+7*
    FIELD(3 ZRX+10*, ZRX+11*, ZZZ+8*
    FIELD(4 ZZZ+10*
    FIELD(5 ZRX+14*, ZZZ+11*
    FIELD(6 ZRX+12*
    FILE HAZDRUG~, HAZDRUG+6, HAZDRUG+7, HAZDRUG+11, HAZDRUG+12, HAZDRUG+16, HAZDRUG+17
    >> FREQ ENI+28*, ENI+29*, ENI+30*
    GL HAZDRUG+3~, HAZDRUG+7*, HAZDRUG+12*, HAZDRUG+17*
    HAZ ZZZ+1~, ZZZ+9*, ZZZ+10, ZZZ+11
    HAZD HAZDRUG+3~, HAZDRUG+4*, HAZDRUG+9*, HAZDRUG+15*, HAZDRUG+20*, HAZDRUG+21
    HAZH HAZDRUG+3~, HAZDRUG+4*, HAZDRUG+8*, HAZDRUG+14*, HAZDRUG+19*, HAZDRUG+21
    HLEVN CALL~
    HZIFN HAZDRUG+3~, HAZDRUG+4*, HAZDRUG+8*, HAZDRUG+9*, HAZDRUG+14*, HAZDRUG+15*, HAZDRUG+19*, HAZDRUG+20*, HAZDRUG+21
    IFN HAZDRUG+3~, HAZDRUG+7*, HAZDRUG+8, HAZDRUG+9, HAZDRUG+12*, HAZDRUG+13*, HAZDRUG+14, HAZDRUG+15, HAZDRUG+17*, HAZDRUG+18*
    , HAZDRUG+19, HAZDRUG+20
    INFUSE ENI+1~, ENI+2*
    INTSYR IVCAT+2~, IVCAT+3*, IVCAT+4*, IVCAT+5*, IVCAT+6*, IVCAT+7*, IVCAT+9
    IVTYPE CALL+10!, IVTYPE+2*, IVTYPE+3~*, IVTYPE+5, IVTYPE+7*, IVTYPE+9*, IVTYPE+10
    >> J SEGMENT+2*, SEGMENT+3, SEGMENT+4, SET+1*
    JJ SEGMENT2+1*, SEGMENT2+3!
    LIMIT SEGMENT~, SEGMENT+2, CALL+10!, ZRX+3*, ZRX+15, ZZZ+3*, ZZZ+13
    LINES SEGMENT2+9~*, SEGMENT2+10
    NAME CALL+10!, ZRX+13*, ZRX+14
    ND2P5 IVCAT+2~
    NDNODE CALL+10!
    NODE IVCAT+2~, IVCAT+5*, IVCAT+6*
    NODE1 CALL+10!, IVTYPE+3~, IVTYPE+5*, IVTYPE+7, IVTYPE+9, ZRX+1~, ZRX+2*, ZRX+5, ZRX+7, ZRX+10
    ZZZ+1~, ZZZ+2*
    NODE2 CALL+10!, ZRX+6, ZRX+7, ZRX+10
    NXT HAZDRUG+3~, HAZDRUG+7*, HAZDRUG+12*, HAZDRUG+17*
    NXTROOT HAZDRUG+3~, HAZDRUG+7*, HAZDRUG+12*, HAZDRUG+17*
    >> P ZRX+12
    >> P("NAT" ZRX+9
    >> P(23 IVCAT+4
    >> P(4 IVCAT+4
    >> P(5 IVCAT+4
    PADE CALL+3~*, CALL+5*, CALL+9*, CALL+13, CALL+15
    PARRAY IVCAT~
    PARRAY(23 IVCAT+7
    PARRAY(4 IVCAT+7
    PARRAY(5 IVCAT+7
    PD0 CALL+7~*, CALL+8
    PD1 CALL+7~, CALL+8*, CALL+9
    PDMSG CALL+13~*
    PDTYP CALL+3~*, CALL+5*, CALL+9*
    PREON ZRX+5~, ZRX+7*, ZRX+8
    PRODNAME CALL+10!
    PROVIDER CALL+10!
    PSGS0Y CALL+10!
    >> PSJBCBU SEGMENT2+2, SEGMENT2+15, SEGMENT2+17, CALL+11, ZRX+14
    >> PSJCLEAR INIT+2*, ZRX+3, ZZZ+3
    PSJHINST INIT+1*, CALL+10!
    >> PSJHLDFN SEGMENT2+6, SEGMENT2+8, SEGMENT2+9, SEGMENT2+11, SEGMENT2+12, SEGMENT2+14, SEGMENT2+16, CALL+16, CALL+17, ZRX+8
    ZRX+12
    PSJHLSDT INIT+1*, SETSET+1, CALL+10!
    PSJI SET*, SET+1, CALL+10!
    >> PSJMSG CALL+12*, CALL+14
    >> PSJNAME CALL+11*
    >> PSJNOO ZRX+9
    PSJORD SEGMENT2+7, SEGMENT2+8, SEGMENT2+9, SEGMENT2+11, IVCAT~, IVCAT+5, IVCAT+6, ZRX+5, ZRX+6, ZRX+7
    PSJORDER SEGMENT2+1, CALL+4, CALL+7, CALL+19!, IVTYPE~, IVTYPE+1, IVTYPE+2, IVTYPE+5, ZRX+2, ZRX+7
    ZRX+9, ZRX+10, ZZZ+2, ZZZ+9
    PSJREN ZRX+5~*, ZRX+6*, ZRX+7, ZRX+10
    PSJSTATU CALL+17~*, CALL+18
    PSJSTOP CALL+16~*, CALL+18
    PSOC CALL+5, CALL+9, CALL+10!, ZRX+11
    PSREASON CALL+10!
    QQ SEGMENT2+5~, SEGMENT2+12*, SEGMENT2+13, SEGMENT2+14, SEGMENT2+16, SEGMENT2+17, HAZDRUG+3~, HAZDRUG+6*, HAZDRUG+7, HAZDRUG+11*
    , HAZDRUG+12, HAZDRUG+16*, HAZDRUG+17
    ROOMBED CALL+10!
    ROOT HAZDRUG+3~, HAZDRUG+6*, HAZDRUG+7, HAZDRUG+11*, HAZDRUG+12, HAZDRUG+16*, HAZDRUG+17
    RXO CALL+13~*
    RXON CALL+18~*
    >> RXORDER SEGMENT2+6, SEGMENT2+7, SEGMENT2+11, SEGMENT2+12, SEGMENT2+14, SEGMENT2+16, CALL+8, CALL+13, CALL+16, CALL+17
    , CALL+18, IVTYPE+1, IVTYPE+2, ZRX+12
    SEGLENGT SEGMENT+2~, SEGMENT+5*, SEGMENT+6, SEGMENT+7, SEGMENT+8
    SEGMENT SEGMENT+1!, SEGMENT+2*, SEGMENT+3*, SEGMENT+4*, SEGMENT+5, SEGMENT+6, SEGMENT+7, SEGMENT+8*, SEGMENT2+1!, SEGMENT2+3!
    SEGMENT2+18!, CALL+10!
    SEGMENT( SEGMENT+6*, SEGMENT+7*, SEGMENT+8*, SET+1, SEGMENT2+1*, SEGMENT2+16*, SEGMENT2+17*
    SEGMENT(0 SETSEGMENT2+2*, SEGMENT2+14*, SEGMENT2+15*, SEGMENT2+18
    SOL IVTYPE+3~
    SPDIEN CALL+10!
    SPSOL ENI+28!, ENI+29!, ENI+30*!, SPSOL*
    SUB IVTYPE+3~*, IVTYPE+5*
    SUBSEG SEGMENT+2~*, SEGMENT+6, SEGMENT+7*, SEGMENT+8
    TEXT1 SEGMENT2+9~*, SEGMENT2+10
    >> TVOLUME SPSOL
    TYP IVCAT+2~, IVCAT+4*, IVCAT+5*, IVCAT+6*, IVCAT+7*, IVCAT+8, IVCAT+9
    >> TYPE IVTYPE+5*, IVTYPE+6, IVTYPE+8
    U ZZZ+10, ZZZ+11, HAZDRUG+8, HAZDRUG+9, HAZDRUG+13, HAZDRUG+14, HAZDRUG+15, HAZDRUG+18, HAZDRUG+19, HAZDRUG+20
    , HAZDRUG+21
    X ENI+2, ENI+3, ENI+4, ENI+5!, ENI+6, ENI+7, ENI+21!, ENI+25*, ENI+27!, ENI+28*
    ENI+29, ENI+30*, INTRMT~, INTRMT+1, INTRMT+2, INTRMT+3
    X1 ENI+7~*, ENI+8, ENI+9*, ENI+12, ENI+13*, ENI+16, ENI+17*, ENI+22*, ENI+25
    X2 ENI+7~*, ENI+10, ENI+11*, ENI+14, ENI+15*, ENI+18, ENI+19*, ENI+20, ENI+21, ENI+23*
    ENI+24*, ENI+25
    >> XQORMSG(0 CALL+5, CALL+6
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All