Routine: PSJHL2

Package	Total	Call Graph
Inpatient Medications	3	(INIT,SEGMENT)^PSJHLU ($$LASTREN,$$LASTRNBY)^PSJLMPRI ENBKOUT^PSJOREN
Order Entry Results Reporting	2	EN^ORERR $$ESC^ORHLESC
Kernel	1	$$FMTHL7^XLFDT
Registration	1	(DEM,INP)^VADPT

Package	Total	Caller Graph
Inpatient Medications	52	PSGOECS PSGOEE PSGOEF1 PSGOEH0 PSGOEH1 PSGOER PSGOERI PSGOETO1 PSGOEV PSGOU PSGPO PSGVBWU PSIVOE PSIVOPT PSIVOPT1 PSIVOPT2 PSIVORA PSIVORC2 PSIVORE PSIVORE2 PSIVOREN PSIVORFB PSJ005 PSJ0077 PSJ0078 PSJ089B PSJ200 PSJ5P340 PSJADT0 PSJBCBU PSJBCMA4 PSJCLOR2 PSJCLOR3 PSJCOM1 PSJCOMR PSJHL10 PSJHL3 PSJHL4 PSJHL5 PSJHL6 PSJHL7 PSJHLU PSJHLV PSJLIACT PSJO1 PSJOEA PSJOEA1 PSJOEA2 PSJOERI PSJOREN PSJPATMR PSJUTL1

Entry Points

Name	Comments	DBIA/ICR reference
EN1(PSJHLDFN,PSOC,PSJORDER,PSREASON)	; start here ; passed in are PSJHLDFN (patient ien) ; PSJORDER* (order_file (N,P,V, etc)) ; PSOC* (order control code - NW for new order, OK to return filler number to OE/RR, OC for order canceled, SC for status change) ; PSREASON* (text reason) ; *=optional, only required if an order segment is also to be generated
START	;
INIT	; initialize HL7 variables, set master file identification segment ; PSJHLMTN = message type - ORR for messages sent as a response to an OE/RR event; ORM for "unsolicited" messages.
PID	; get patient data, format PID SEGMENT
PV1	; get patient visit information, format PV1 segment
ORC	; order control segment
DISPLAY	; just for testing
UNDO	;Undo Renew if Pending Renewal is dc'd
A
D
I
N
U
P
DE
E
H
R
RE
DR
O

External References

Name	Field # of Occurrence
EN^ORERR	START+5
$$ESC^ORHLESC	PID+5, PV1+12, ORC+25, ORC+26
INIT^PSJHLU	INIT+3
SEGMENT^PSJHLU	INIT+6, PID+6, PV1+16, ORC+44
$$LASTREN^PSJLMPRI	ORC+33
$$LASTRNBY^PSJLMPRI	ORC+33
ENBKOUT^PSJOREN	UNDO+1
DEM^VADPT	PID+4
INP^VADPT	PV1+15
$$FMTHL7^XLFDT	PV1+13, ORC+22, ORC+26, ORC+30, ORC+33

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: DISPLAY+1
Function Call: WRITE	Prompt: FIELD(NEXT)_"\|" Line Location: DISPLAY+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	START+5
^DPT - [#2]	PV1+6, PV1+12
^PS(53.1 - [#53.1]	PV1+9
^PS(55 - [#55]	PV1+10, PV1+11
^SC - [#44]	ORC+40, ORC+42
^SC("B"	PV1+6
^TMP("PSJHLS"	START+1!, START+10!
^VA(200 - [#200]	ORC+24, ORC+26, ORC+28

Label References

Name	Line Occurrences
@(	START+8, ORC+18, ORC+19
DISPLAY	INIT+6, PID+6, PV1+16, ORC+44
INIT	START+7
ORC	START+7
PID	START+7
PV1	START+7
UNDO	START+9

Naked Globals

Name	Field # of Occurrence
^("DSS"	PV1+9, PV1+10
^(0	ORC+40, ORC+42
^(8	PV1+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	PV1+8~, PV1+9, PV1+10, PV1+11*
>> CLASS	PV1+14
CLERK	START+2~, ORC+23*, ORC+24, ORC+25
DFN	PID+4~, PV1+15~
DUR	START+2~
FIELD	START+10!
FIELD(	DISPLAY+1
FIELD(0	INIT+5, PID+2, PV1+3, ORC+11
FIELD(1	INIT+5, ORC+12
FIELD(10	ORC+25, ORC+33
FIELD(11	ORC+26*
FIELD(12	ORC+29*
FIELD(15	ORC+30, ORC+33
FIELD(16	ORC+37*
FIELD(19	PV1+15*
FIELD(2	INIT+5, PV1+14, PV1+15, ORC+13*
FIELD(21	ORC+40, ORC+42
FIELD(3	INIT+5, PID+3, PV1+4, PV1+13, ORC+14, ORC+20
FIELD(44	PV1+13*
FIELD(5	PID+4, PID+5, A, D, I, N, U, P, DE, E , H, R, RE, DR, O*
FIELD(7	ORC+21*
FIELD(8	INIT+5*
FIELD(9	ORC+22, ORC+26, ORC+33*
FIELD9	ORC+33~*
J	START+2~
LIMIT	START+2~, INIT+4, INIT+6, PID+1, PID+6, PV1+2, PV1+16, ORC+1, ORC+44, DISPLAY+1
>> LOC	PV1+4, PV1+6, PV1+9, PV1+10, PV1+11, PV1+12*, PV1+13
>> MSGTEST	DISPLAY+1
NAME	START+2~, ORC+24, ORC+25, ORC+28, ORC+29
NEXT	START+2~, DISPLAY+1*
NODE1	START+2~, ORC+3*, ORC+10, ORC+13, ORC+16, ORC+21, ORC+22, ORC+27, ORC+30, ORC+31 , ORC+35, UNDO+1
NODE2	START+2~, ORC+3*, ORC+21, ORC+22, ORC+23, ORC+30, ORC+31
NODE4	START+2~, ORC+4*, ORC+23, ORC+26
NODE8	START+3~, ORC+6*, ORC+39, ORC+40
NODEDSS	START+3~, ORC+7*, ORC+41, ORC+42
NOO	START+2~, ORC+35, ORC+36, ORC+37
>> ORDCON	START+5*
>> P("NAT"	ORC+35, ORC+36
PROVIDER	START+2~, ORC+27*, ORC+28, ORC+29
PSGST	START+2~, ORC+9~, ORC+10*, ORC+21
>> PSIVCOPY	ORC+16
PSJAPPT	PV1+1~, PV1+9, PV1+10, PV1+11*, PV1+13
>> PSJBCBU	PID+5, PV1+12, ORC+25, ORC+26
PSJCLEAR	START+2~, INIT+4, PID+1, PV1+2, ORC+1
PSJDCPRV	ORC+27!
>> PSJEXPOE	ORC+16
PSJHINST	START+2~, INIT+5
PSJHLDFN	EN1~, START+4, START+5, PID+3, PID+4, PV1+6, PV1+10, PV1+11, PV1+12, PV1+15 , ORC+33, UNDO+1
>> PSJHLMTN	INIT+2*, INIT+5, PV1+4, PV1+5
PSJHLSDT	START+2~
PSJI	START+2~, INIT+2*
>> PSJNOO	ORC+35, ORC+36, UNDO+1
PSJORDER	EN1~, START+4*, START+5, ORC+2, ORC+3, ORC+4, ORC+6, ORC+7, ORC+36
PSOC	EN1~, START+6, START+8, ORC+2, ORC+12, ORC+13, ORC+26
PSREASON	EN1~, ORC+35, ORC+36, ORC+37
ROOMBED	START+2~, PV1+12*
RXORDER	START+2~, START+4*, START+5, PV1+9, PV1+10, PV1+11, ORC+6, ORC+7, ORC+14, ORC+16 , ORC+18, ORC+20, ORC+21, ORC+22, ORC+23, ORC+27, ORC+30, ORC+31, ORC+33, ORC+35 , UNDO+1
STATUS	START+2~, ORC+16, ORC+18, ORC+19, ORC+20, UNDO+1
U	START+5, ORC+35, ORC+37, ORC+39, ORC+40, ORC+41, ORC+42, UNDO+1
UNDO	START+2~, START+6*, START+9
>> VADM(1	PID+4
>> VAIN(1	PV1+15
VERIFY	START+2~, ORC+26*
WARD	START+2~, PV1+6*
>> X	START+5*

Customize PDF page

Package: Inpatient Medications

Routine: PSJHL2

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 52

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: