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

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

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

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

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

Customize PDF page

Package: Inpatient Medications

Routine: PSJHLU

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: