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