Routine: PSJHL3

Package	Total	Call Graph
Inpatient Medications	5	EN^PSGS0 $$CODES^PSIVUTL DISPLAY^PSJHL2 ($$IVTYPE,CALL,INIT,SEGMENT,SEGMENT2,SET,ZRX)^PSJHLU $$LASTREN^PSJLMPRI
Kernel	2	$$FMTHL7^XLFDT $$TRIM^XLFSTR
National Drug File	1	(,$$DFSU,$$PROD0)^PSNAPIS
Order Entry Results Reporting	1	$$ESC^ORHLESC
Pharmacy Data Management	1	$$EN^PSSUTIL1

Entry Points

Name	Comments	DBIA/ICR reference
CNT	;Count dispense drugs for an order
RXO	; pharmacy prescription order segment (used to send Orderable Item to OE/RR)
RXC	;component segments
RXE	; pharmacy encoded order segment
EN1(PSJHLDFN,PSOC,PSJORDER)	; start here ; passed in are PSJHLDFN (patient ien) ; PSJORDER (file root of order) ; OC (order control code - NW for new order, OK for finished order, OC for order canceled)
ZRX	; pharmacy Z-segment
INIT	; initialize HL7 variables
IVRXE	; RXE segment for IV orders ; If an Inpatient Med IV order, send RXE w/dispense drug info. ; If an IV FLUID order, send start/stop date and duration in the RXE ; and send an RXC for each additive and solution.
RXR	; med route segment

External References

Name	Field # of Occurrence
$$ESC^ORHLESC	RXO+4, RXO+6, RXE+13, RXE+19, RXE+24, RXE+26, RXE+27, RXE+29, RXE+31, RXE+32 , IVRXE+9, IVRXE+17, IVRXE+22, IVRXE+25, RXR+4, RXR+8, RXR+11
EN^PSGS0	RXE+5
$$CODES^PSIVUTL	RXR+6, RXR+10
DISPLAY^PSJHL2	RXO+11, RXE+33, IVRXE+16, RXC+17, RXR+12
$$IVTYPE^PSJHLU	EN1+7
CALL^PSJHLU	EN1+9
INIT^PSJHLU	INIT+1
SEGMENT^PSJHLU	RXO+11, RXE+33, IVRXE+16, RXC+17, RXR+12
SEGMENT2^PSJHLU	RXE+34
SET^PSJHLU	IVRXE+20, IVRXE+23, IVRXE+26
ZRX^PSJHLU	ZRX+1
$$LASTREN^PSJLMPRI	RXE+10
^PSNAPIS	RXE+22, RXE+25
$$DFSU^PSNAPIS	RXE+25
$$PROD0^PSNAPIS	RXE+22
$$EN^PSSUTIL1	RXE+28
$$FMTHL7^XLFDT	RXE+13, IVRXE+7
$$TRIM^XLFSTR	IVRXE+14

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"INSUFFICIENT DATA FOR ^PSJHL3" Line Location: EN1+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(50.606 - [#50.606]	RXO+6, RXE+27
^PS(50.607 - [#50.607]	RXE+26
^PS(50.7 - [#50.7]	RXO+6, RXC+9
^PS(51.2 - [#51.2]	RXR+4, RXR+8, RXR+11
^PS(52.6 - [#52.6]	RXC+8, RXC+9
^PS(52.7 - [#52.7]	RXC+8, RXC+9
^PSDRUG - [#50]	RXE+20, RXE+24
^PSNDF(	RXE+22, RXE+25
^VA(200 - [#200]	RXE+32, IVRXE+9

Label References

Name	Line Occurrences
INIT	EN1+6
IVRXE	RXE+7, RXE+8, RXE+9
RXE	EN1+8
RXO	EN1+8
RXR	EN1+8
ZRX	EN1+8

Naked Globals

Name	Field # of Occurrence
^(	RXC+6
^(0	RXE+22, RXC+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AD	RXC+1~, RXC+6*
ADDITIVE	RXC+1~
ADSNODE	IVRXE+4~
CNT	EN1+5~, RXE+1, RXE+16, RXE+30, CNT+1
COMMENTS	EN1+5~
DDIEA	EN1+5~
DDIEN	EN1+5~, RXE+1, RXE+16, RXE+20, RXE+24, RXE+28
DDNUM	EN1+5~, RXE+1, RXE+16, RXE+17, CNT+1*
DOSE	EN1+5~, RXO+4*, RXE+18
DOSEFORM	EN1+5~, RXO+6*, RXE+27
DOSEOR	EN1+5~, RXO+4*, RXE+15, RXE+18, RXE+31
DURATION	EN1+5~
DUZ	RXE+32, IVRXE+9, IVRXE+10
>> FIELD(0	RXO+2, RXE+2, RXC+3, RXR+2
>> FIELD(1	RXO+5, RXO+6, RXO+7, RXO+10, RXE+13, RXE+17, RXE+18, RXE+19, RXE+31, IVRXE+7 , RXC+7, RXR+3, RXR+4, RXR+5, RXR+7, RXR+8, RXR+9, RXR+11
>> FIELD(14	RXE+32, IVRXE+10
>> FIELD(2	RXE+24, RXC+9, RXC+10, RXC+11
>> FIELD(21	RXE+14, IVRXE+8
>> FIELD(23	IVRXE+14, IVRXE+15
>> FIELD(24	IVRXE+14*, IVRXE+15
>> FIELD(25	RXE+28, RXE+29
>> FIELD(26	RXE+28*
>> FIELD(3	RXC+12*
>> FIELD(4	RXC+13, RXC+15, RXC+16, RXR+6, RXR+10
>> FIELD(5	RXE+26*
>> FIELD(6	RXE+27*
>> INFUSE	IVRXE+12, IVRXE+13, IVRXE+14, IVRXE+15
>> IVLIM	RXO+9*, RXO+10
IVLNOD	RXO+8~*, RXO+9
IVTYPE	EN1+5~, EN1+7*, RXE+8
JJ	IVRXE+17, IVRXE+18, IVRXE+20!
>> LIMIT	RXO+1, RXO+11, RXE+1, RXE+33, IVRXE+16, RXC+2, RXC+17, RXR+1, RXR+12
LYN	RXE+5~
NAME	EN1+5~, RXO+6, RXE+32, IVRXE+9*, IVRXE+10
NDNODE	EN1+5~, RXE+1, RXE+20, RXE+22, RXE+24, RXE+25
NODE1	EN1+5~, RXE+3, RXE+6, RXE+9, IVRXE+5, IVRXE+7, IVRXE+8, IVRXE+12, RXC+6, RXC+8 , RXC+9, RXC+10, RXC+12, RXC+13, RXR+11
NODE2	EN1+5~, RXE+3*, RXE+11, RXE+12, RXE+13, RXE+14, IVRXE+6, IVRXE+7, IVRXE+8
>> NODEPT2	RXE+3*, RXE+13
NUM	RXC+1~, RXC+15*, RXC+16
OINODE	EN1+5~, RXO+3*, RXO+4
>> P("PRY"	IVRXE+7
>> P(9	RXE+5
PRODNAME	EN1+5~, RXE+1, RXE+22, RXE+23*, RXE+24, RXE+25
PSGOES	RXE+5~*
PSGPLF	EN1+5~, RXE+12, RXE+13, IVRXE+5, IVRXE+6*, IVRXE+7
PSGPLS	EN1+5~, RXE+11, RXE+13, IVRXE+5, IVRXE+6*, IVRXE+7
PSGS0XT	RXE+5~
PSGS0Y	RXE+5~
PSGST	EN1+5~, RXE+4~, RXE+5, RXE+6, RXE+13
>> PSJBCBU	RXO+4, RXO+6, RXE+13, RXE+24, RXE+32, IVRXE+9, IVRXE+17, IVRXE+18, RXC+9, RXC+10 , RXR+4, RXR+6, RXR+8, RXR+10, RXR+11
>> PSJCLEAR	RXO+1, RXE+1, RXC+2, RXR+1
>> PSJEXPOE	RXE+11, RXE+12
PSJHLDFN	EN1~, EN1+4, RXE+10
>> PSJI	EN1+9
PSJORDER	EN1~, EN1+4, EN1+7, RXO+3, RXO+8, RXE+3, RXE+15, RXE+16, RXE+17, RXE+19 , IVRXE+7, IVRXE+8, IVRXE+13, IVRXE+17, IVRXE+18, IVRXE+21, IVRXE+22, IVRXE+24, IVRXE+25, RXC+6 , RXR+3, RXR+6, RXR+7, RXR+10, CNT+1
>> PSJSBCBU	IVRXE+22, IVRXE+25
PSJUNITS	RXR+4~, RXR+5, RXR+8~, RXR+9
PSOC	EN1~, EN1+4
PTR	RXC+1~, RXC+8*, RXC+9
RENEW	RXE+10~*, RXE+11
>> RXORDER	EN1+7, RXE+5, RXE+7, RXE+8, RXE+9, RXE+10, IVRXE+5, IVRXE+12, IVRXE+17, IVRXE+21 , IVRXE+24
SCHEDULE	EN1+5~
SEGMENT	IVRXE+17!, IVRXE+20!, IVRXE+21!, IVRXE+23!, IVRXE+24!, IVRXE+26!
SEGMENT(	IVRXE+17, IVRXE+18
SEGMENT(0	IVRXE+19, IVRXE+22, IVRXE+25*
SOL	RXC+1~, RXC+6*
SOLUTION	RXC+1~
SPDIEN	EN1+5~, RXO+4, RXO+5, RXO+6, RXE+1
SUB	RXC+1~, RXC+6*
TYPE	RXC+1~, RXC+6*, RXC+7, RXC+8, RXC+9, RXC+10
U	IVRXE+24, IVRXE+25, RXC+9, RXR+3, RXR+7
UNIT	EN1+5~, RXO+4*, RXE+18
UNITS	EN1+5~, RXE+1, RXE+25, RXE+26
UTMP	RXC+1~
UTMP(	RXC+14*, RXC+15
X	RXE+5~*, IVRXE+11~
XTMP	RXC+1~, RXC+14*
Y	IVRXE+11~, IVRXE+14*
ZZND	RXE+5~

Marked Items

Name	Field # of Occurrence
$T(^PSNAPIS	RXE+22, RXE+25

Customize PDF page

Package: Inpatient Medications

Routine: PSJHL3

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items