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 ;20 Apr 98 / 9:58 AM

Source Information

Source file <PSJHLU.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Inpatient Medications 3 $$ENLU^PSGMI  DISPLAY^PSJHL2  ($$IVCAT,SEGMENT,SET)^PSJHLU  
Kernel 1 MSG^XQOR  
Order Entry Results Reporting 1 $$ESC^ORHLESC  
Registration 1 $$SITE^VASITE  

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
SET
CALL(HLEVN) ; call DHCP HL7 package -or- protocol, to pass Orders
; HLEVN = number of segments in message
ENI ;Calculate Frequency for IV orders
IVTYPE(PSJORDER) ; check whether a back-door order is Inpatient IV or IV fluid
SPSOL
ZRX ; Perform outbound processing
SEGMENT(LIMIT) ;
INIT ; set up HL7 application variables
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)
SEGMENT2 ; Retrieve text fields

External References

Name Field # of Occurrence
$$ESC^ORHLESC SEGMENT2+2, SEGMENT2+4, SEGMENT2+6, ZRX+12
$$ENLU^PSGMI ENI+2
DISPLAY^PSJHL2 ZRX+13
$$IVCAT^PSJHLU ZRX+10
SEGMENT^PSJHLU ZRX+13
SET^PSJHLU SEGMENT2+3, SEGMENT2+5, SEGMENT2+7
$$SITE^VASITE INIT+1
MSG^XQOR CALL+5

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] IVCAT+6, ZRX+6
^PS(55 - [#55] IVCAT+5, ZRX+6
^TMP("PSJHLS" SET*, SET+1*, CALL+3
^VA(200 - [#200] ZRX+11

Label References

Name Line Occurrences
$$INTRMT ENI+4
SPSOL ENI+27, ENI+28

Naked Globals

Name Field # of Occurrence
^( IVTYPE+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
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+2!
DDIEN CALL+2!
DDNUM CALL+2!
DFN IVCAT~, IVCAT+5
DOSEFORM CALL+2!
DOSEOR CALL+2!
DUZ ZRX+11, ZRX+12
FIELD CALL+2!
FIELD( SEGMENT+3, SEGMENT+4
FIELD(0 ZRX+2*
FIELD(1 ZRX+6*
FIELD(2 ZRX+7*
FIELD(3 ZRX+8*, ZRX+9*
FIELD(5 ZRX+12*
FIELD(6 ZRX+10*
>> FREQ ENI+27*, ENI+28*, ENI+29*
HLEVN CALL~
INFUSE ENI+1~, ENI+2*
INTSYR IVCAT+2~, IVCAT+3*, IVCAT+4*, IVCAT+5*, IVCAT+6*, IVCAT+7*, IVCAT+9
IVTYPE CALL+2!, 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+2!, ZRX+1*, ZRX+13
NAME CALL+2!, ZRX+11*, ZRX+12
ND2P5 IVCAT+2~
NDNODE CALL+2!
NODE IVCAT+2~, IVCAT+5*, IVCAT+6*
NODE1 CALL+2!, IVTYPE+3~, IVTYPE+5*, IVTYPE+7, IVTYPE+9, ZRX+3, ZRX+5, ZRX+8
NODE2 CALL+2!, ZRX+4, ZRX+5, ZRX+8
>> P ZRX+10
>> P("NAT" ZRX+7
>> P(23 IVCAT+4
>> P(4 IVCAT+4
>> P(5 IVCAT+4
PARRAY IVCAT~
PARRAY(23 IVCAT+7
PARRAY(4 IVCAT+7
PARRAY(5 IVCAT+7
PREON ZRX+3~, ZRX+5*, ZRX+6
PRODNAME CALL+2!
PROVIDER CALL+2!
PSGS0Y CALL+2!
>> PSJBCBU SEGMENT2+2, SEGMENT2+4, SEGMENT2+6, CALL+3, ZRX+12
>> PSJCLEAR INIT+2*, ZRX+1
PSJHINST INIT+1*, CALL+2!
>> PSJHLDFN ZRX+6, ZRX+10
PSJHLSDT INIT+1*, SET, SET+1, CALL+2!
PSJI SET*, SET+1, CALL+2!
>> PSJMSG CALL+4*, CALL+5
>> PSJNAME CALL+3*
>> PSJNOO ZRX+7
PSJORD IVCAT~, IVCAT+5, IVCAT+6, ZRX+3, ZRX+4, ZRX+5
PSJORDER SEGMENT2+1, SEGMENT2+4, SEGMENT2+6, CALL+2!, IVTYPE~, IVTYPE+1, IVTYPE+2, IVTYPE+5, ZRX+5, ZRX+7
, ZRX+8
PSJREN ZRX+3~*, ZRX+4*, ZRX+5, ZRX+8
PSOC CALL+2!, ZRX+9
PSREASON CALL+2!
ROOMBED CALL+2!
>> RXORDER IVTYPE+1, IVTYPE+2, ZRX+10
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+4!, SEGMENT2+5!, SEGMENT2+6!, SEGMENT2+7!, CALL+2!
SEGMENT( SEGMENT+6*, SEGMENT+7*, SEGMENT+8*, SET+1, SEGMENT2+1*
SEGMENT(0 SET, SEGMENT2+2*, SEGMENT2+4*, SEGMENT2+6*
SOL IVTYPE+3~
SPDIEN CALL+2!
SPSOL ENI+27!, ENI+28!, ENI+29*!, SPSOL*
SUB IVTYPE+3~*, IVTYPE+5*
SUBSEG SEGMENT+2~*, SEGMENT+6, SEGMENT+7*, SEGMENT+8
>> 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+26!, ENI+27*
, ENI+28, ENI+29*, 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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All