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

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

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

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

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
EXPIR^PSJHL6 CALL+18
$$IVCAT^PSJHLU ZRX+12
SEGMENT^PSJHLU ZRX+15
SET^PSJHLU SEGMENT2+3, SEGMENT2+18
PDORD^PSJPDCLU CALL+15
$$SITE^VASITE INIT+1
MSG^XQOR CALL+14

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(52.6 - [#52.6] IVTYPE+7
^PS(52.7 - [#52.7] IVTYPE+9
^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
$$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*
FIELD(1 ZRX+8*
FIELD(2 ZRX+9*
FIELD(3 ZRX+10*, ZRX+11*
FIELD(5 ZRX+14*
FIELD(6 ZRX+12*
>> FREQ ENI+28*, ENI+29*, ENI+30*
HLEVN CALL~
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
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
NODE2 CALL+10!, ZRX+6, ZRX+7, ZRX+10
>> 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
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*, SET, SET+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+10!, IVTYPE~, IVTYPE+1, IVTYPE+2, IVTYPE+5, ZRX+2, ZRX+7
, ZRX+9, ZRX+10
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
ROOMBED CALL+10!
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 SET, SEGMENT2+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
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