Routine: PSJHL3

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

Name	Comments	DBIA/ICR reference
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)
INIT	; initialize HL7 variables
RXO	; pharmacy prescription order segment (used to send Orderable Item to OE/RR)
RXE	; pharmacy encoded order segment
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.
RXC	;component segments
RXR	; med route segment
ZRX	; pharmacy Z-segment
CNT	;Count dispense drugs for an order
FINDDOSE(PSJDD,PSJF1P1,PSJDO)	;

Name	Field # of Occurrence
$$ESC^ORHLESC	RXO+4, RXO+6, RXO+8, RXE+39, RXE+47, RXE+52, RXE+54, RXE+55, RXE+57, RXE+59 , RXE+60, IVRXE+7, IVRXE+9, IVRXE+17, IVRXE+35, IVRXE+36, RXR+4, RXR+8, RXR+11
EN^PSGS0	RXE+7
$$CODES^PSIVUTL	RXR+6, RXR+10
GETSIOPI^PSJBCMA5	IVRXE+23, IVRXE+25, IVRXE+30
DISPLAY^PSJHL2	RXO+13, RXE+61, IVRXE+16, RXC+19, RXR+12
$$IVTYPE^PSJHLU	EN1+7
CALL^PSJHLU	EN1+10
INIT^PSJHLU	INIT+1
SEGMENT^PSJHLU	RXO+13, RXE+61, IVRXE+16, RXC+19, RXR+12
SEGMENT2^PSJHLU	RXE+62
SET^PSJHLU	IVRXE+20, IVRXE+39
ZRX^PSJHLU	ZRX+1
ZZZ^PSJHLU	EN1+9
$$LASTREN^PSJLMPRI	RXE+12, IVRXE+4
$$DOSE1^PSJOCDS	FINDDOSE+9
^PSNAPIS	RXE+50, RXE+53
$$DFSU^PSNAPIS	RXE+53
$$PROD0^PSNAPIS	RXE+50
$$EN^PSSUTIL1	RXE+56
$$FMADD^XLFDT	RXE+34
$$FMTHL7^XLFDT	RXE+39, IVRXE+7
$$TRIM^XLFSTR	IVRXE+14
$$UP^XLFSTR	RXO+4

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

Name	Line Occurrences (* Changed, ! Killed)
^PS(50.606 - [#50.606]	RXO+6, RXE+55
^PS(50.607 - [#50.607]	RXE+54
^PS(50.7 - [#50.7]	RXO+6, RXC+10
^PS(51.2 - [#51.2]	RXR+4, RXR+8, RXR+11
^PS(52.6 - [#52.6]	RXC+9, RXC+10
^PS(52.7 - [#52.7]	RXC+9, RXC+10
^PS(53.1 - [#53.1]	IVRXE+29
^PS(55 - [#55]	RXE+28, IVRXE+24, IVRXE+25, IVRXE+38
^PSDRUG - [#50]	RXE+48, RXE+52
^PSNDF(	RXE+50, RXE+53
^TMP("PSJBCMA5"	IVRXE+22!, IVRXE+23, IVRXE+26, IVRXE+28!, IVRXE+31, IVRXE+33!, IVRXE+34, IVRXE+35, IVRXE+36, IVRXE+39!
^VA(200 - [#200]	RXE+60, IVRXE+9

Name	Line Occurrences
$$FINDDOSE	RXE+45
INIT	EN1+6
IVRXE	RXE+9, RXE+10, RXE+11
RXE	EN1+8
RXO	EN1+8
RXR	EN1+8
ZRX	EN1+8

Name	Field # of Occurrence
^(	RXC+6
^(0	RXE+50, RXC+10

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+2, RXE+42, RXE+58, CNT+1
COMMENTS	EN1+5~
DDIEA	EN1+5~
DDIEN	EN1+5~, RXE+2, RXE+42, RXE+45, RXE+48, RXE+52, RXE+56
DDNUM	EN1+5~, RXE+2, RXE+42, RXE+43, CNT+1*
>> DFN	RXE+28
DOA	RXE+17~, RXE+22, RXE+24, RXE+31, RXE+34, RXE+36
DOSE	EN1+5~, RXO+4*, RXE+44, RXE+45
DOSEFORM	EN1+5~, RXO+6*, RXE+55
DOSEOR	EN1+5~, RXO+4*, RXE+41, RXE+45, RXE+46, RXE+59
DT	RXE+33
DURATION	EN1+5~
DUZ	RXE+60, IVRXE+9, IVRXE+10
>> FIELD(0	RXO+2, RXE+3, RXC+3, RXR+2
>> FIELD(1	RXO+5, RXO+6, RXO+7, RXO+12, RXE+39, RXE+44, RXE+45, RXE+46, RXE+47, RXE+59 , IVRXE+7, RXC+7, RXC+8, RXR+3, RXR+4, RXR+5, RXR+7, RXR+8, RXR+9, RXR+11*
>> FIELD(14	RXE+60, IVRXE+10
>> FIELD(2	RXE+52, RXC+10, RXC+11, RXC+12
>> FIELD(20	RXO+9*
>> FIELD(21	RXE+40, IVRXE+8
>> FIELD(23	IVRXE+14, IVRXE+15
>> FIELD(24	IVRXE+14*, IVRXE+15
>> FIELD(25	RXE+56, RXE+57
>> FIELD(26	RXE+56*
>> FIELD(3	RXC+13*
>> FIELD(4	RXC+14, RXC+17, RXC+18, RXR+6, RXR+10
>> FIELD(5	RXE+54, RXC+15
>> FIELD(6	RXE+55*
FREQ	RXE+17~, RXE+23*, RXE+24, RXE+26, RXE+31
IND	RXO+8~*, RXO+9
>> INFUSE	IVRXE+12, IVRXE+13, IVRXE+14, IVRXE+15
>> IVLIM	RXO+11*, RXO+12
IVLNOD	RXO+10~*, RXO+11
IVTYPE	EN1+5~, EN1+7*, RXE+10
JJ	IVRXE+17, IVRXE+18, IVRXE+20!
JORD	RXE+17~, RXE+27*, RXE+28
>> LIMIT	RXO+1, RXO+13, RXE+2, RXE+61, IVRXE+16, RXC+2, RXC+19, RXR+1, RXR+12
LINES	IVRXE+26~, IVRXE+27, IVRXE+31~, IVRXE+32
LYN	RXE+7~
MRR	RXE+17~, RXE+19*, RXE+20
NAME	EN1+5~, RXO+6, RXE+60, IVRXE+9*, IVRXE+10
NDNODE	EN1+5~, RXE+2, RXE+48, RXE+50, RXE+52, RXE+53
NODE1	EN1+5~, RXE+4, RXE+8, RXE+11, IVRXE+5, IVRXE+7, IVRXE+8, IVRXE+12, RXC+6, RXC+8* , RXC+9, RXC+10, RXC+11, RXC+13, RXC+14, RXC+15, RXR+11
NODE2	EN1+5~, RXE+4*, RXE+13, RXE+14, RXE+21, RXE+23, RXE+39, RXE+40, IVRXE+6, IVRXE+7 , IVRXE+8
NODE2P2	RXE+1~, RXE+5*, RXE+19, RXE+22
>> NODEPT2	RXE+4*, RXE+39
NUM	RXC+1~, RXC+17*, RXC+18
NUMADM	RXE+17~, RXE+21*, RXE+32
OINODE	EN1+5~, RXO+3*, RXO+4
>> ON	RXE+27
OPIAL	IVRXE+24~*
OPIALFLG	IVRXE+24~*, IVRXE+25
OPIHDR	IVRXE+38~*
>> P("PRY"	IVRXE+7
>> P(9	RXE+7
>> PREVSTOP	RXE+27, RXE+28, RXE+29
PRODNAME	EN1+5~, RXE+2, RXE+50, RXE+51*, RXE+52, RXE+53
PSGOES	RXE+7~*
>> PSGORD	RXE+27
PSGPLF	EN1+5~, RXE+14, RXE+29, RXE+39, IVRXE+5, IVRXE+6*, IVRXE+7
PSGPLS	EN1+5~, RXE+13, RXE+39, IVRXE+5, IVRXE+6*, IVRXE+7
PSGS0XT	RXE+7~
PSGS0Y	RXE+7~
PSGST	EN1+5~, RXE+6~, RXE+7, RXE+8, RXE+39
>> PSJBCBU	EN1+9, RXO+4, RXO+6, RXE+18, RXE+39, RXE+52, RXE+60, IVRXE+9, IVRXE+17, IVRXE+18 , IVRXE+35, IVRXE+37, RXC+10, RXC+11, RXR+4, RXR+6, RXR+8, RXR+10, RXR+11
>> PSJCLEAR	RXO+1, RXE+2, RXC+2, RXR+1
PSJDD	FINDDOSE~, FINDDOSE+7
PSJDO	FINDDOSE~, FINDDOSE+7, FINDDOSE+11, FINDDOSE+13
PSJDO1	FINDDOSE+6~
PSJDO2	FINDDOSE+6~
PSJDOSE	FINDDOSE+6~, FINDDOSE+9*, FINDDOSE+10, FINDDOSE+11, FINDDOSE+12, FINDDOSE+13
>> PSJEXPOE	RXE+13, RXE+14, IVRXE+5
PSJF1P1	RXE+1~, RXE+43*, RXE+44, RXE+45, FINDDOSE~, FINDDOSE+7, FINDDOSE+9, FINDDOSE+11, FINDDOSE+13
PSJHLDFN	EN1~, EN1+4, RXE+12, IVRXE+4, IVRXE+23, IVRXE+24, IVRXE+25, IVRXE+26, IVRXE+28, IVRXE+30 , IVRXE+31, IVRXE+33, IVRXE+34, IVRXE+35, IVRXE+36, IVRXE+38
>> PSJI	EN1+10
>> PSJORD	IVRXE+23, IVRXE+25, IVRXE+26, IVRXE+28, IVRXE+29, IVRXE+30, IVRXE+31, IVRXE+33
PSJORDER	EN1~, EN1+4, EN1+7, RXO+3, RXO+8, RXO+10, RXE+4, RXE+5, RXE+41, RXE+42 , RXE+43, RXE+47, IVRXE+7, IVRXE+8, IVRXE+13, IVRXE+17, IVRXE+18, RXC+6, RXR+3, RXR+6 , RXR+7, RXR+10, CNT+1
PSJOUT	FINDDOSE+6~, FINDDOSE+8, FINDDOSE+11, FINDDOSE+12, FINDDOSE+13, FINDDOSE+14
PSJRENEW	IVRXE+4~*, IVRXE+5
PSJUNITS	RXR+4~, RXR+5, RXR+8~, RXR+9
PSOC	EN1~, EN1+4
PTR	RXC+1~, RXC+9*, RXC+10
QADM	RXE+17~, RXE+21*, RXE+31, RXE+33
QDT	RXE+17~, RXE+33, RXE+34, RXE+35
QQ	RXE+17~, RXE+32, RXE+33, RXE+35, IVRXE+22~, IVRXE+34, IVRXE+35, IVRXE+36, IVRXE+37
RENEW	RXE+12~*, RXE+13
RMSTR	RXE+17~, RXE+36*, RXE+39
RMTM	RXE+17~, RXE+22, RXE+29, RXE+31, RXE+35*, RXE+36
>> RXORDER	EN1+7, RXE+7, RXE+9, RXE+10, RXE+11, RXE+12, IVRXE+4, IVRXE+5, IVRXE+12, IVRXE+17 , IVRXE+23, IVRXE+24, IVRXE+25, IVRXE+28, IVRXE+29, IVRXE+33, IVRXE+34, IVRXE+35, IVRXE+36, IVRXE+38
SCHEDULE	EN1+5~
SEGMENT	IVRXE+17!, IVRXE+20!, IVRXE+39!
SEGMENT(	IVRXE+17, IVRXE+18, IVRXE+36, IVRXE+37
SEGMENT(0	IVRXE+19, IVRXE+35, IVRXE+38*, IVRXE+39
SOL	RXC+1~, RXC+6*
SOLUTION	RXC+1~
SPDIEN	EN1+5~, RXO+4, RXO+5, RXO+6, RXE+2
SUB	RXC+1~, RXC+6*
TEXT1	IVRXE+26~, IVRXE+27, IVRXE+31~, IVRXE+32
TYPE	RXC+1~, RXC+6*, RXC+7, RXC+9, RXC+10, RXC+11
U	RXE+19, RXE+22, RXE+23, RXE+28, RXC+8, RXC+10, RXR+3, RXR+7, FINDDOSE+11, FINDDOSE+12 , FINDDOSE+13
UNIT	EN1+5~, RXO+4*, RXE+44
UNITS	EN1+5~, RXE+2, RXE+53, RXE+54
UTMP	RXC+1~
UTMP(	RXC+16*, RXC+17
X	RXE+7~*, IVRXE+11~
XTMP	RXC+1~, RXC+16*
Y	IVRXE+11~, IVRXE+14*
ZZND	RXE+7~

Customize PDF page

Package: Inpatient Medications

Routine: PSJHL3

Information

Source Information

Call Graph

Call Graph Total: 12

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items