Routine: PSJHL2

Call Graph

Call Graph Total: 7

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	49	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 PSJADT0 PSJBCBU PSJBCMA4 PSJCOM1 PSJCOMR PSJHL10 PSJHL3 PSJHL4 PSJHL5 PSJHL6 PSJHL7 PSJHLU PSJHLV PSJLIACT PSJO1 PSJOEA PSJOEA1 PSJOEA2 PSJOERI PSJOREN PSJPATMR PSJUTL1

Package

Total

Caller Graph

Inpatient Medications

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  PSJADT0  PSJBCBU  PSJBCMA4  PSJCOM1  PSJCOMR
PSJHL10  PSJHL3  PSJHL4  PSJHL5  PSJHL6  PSJHL7  PSJHLU  PSJHLV
PSJLIACT  PSJO1  PSJOEA  PSJOEA1  PSJOEA2  PSJOERI  PSJOREN  PSJPATMR
PSJUTL1

Entry Points

External References

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

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

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

Name	Line Occurrences
@(	START+7, ORC+14, ORC+15
DISPLAY	INIT+6, PID+6, PV1+16, ORC+32
INIT	START+6
ORC	START+6
PID	START+6
PV1	START+6
UNDO	START+8

Name	Field # of Occurrence
^("DSS"	PV1+9, PV1+10
^(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+19*, ORC+20, ORC+21
DFN	PID+4~, PV1+15~
DUR	START+2~
FIELD	START+9!
FIELD(	DISPLAY+1
FIELD(0	INIT+5, PID+2, PV1+3, ORC+7
FIELD(1	INIT+5, ORC+8
FIELD(10	ORC+21, ORC+29
FIELD(11	ORC+22*
FIELD(12	ORC+25*
FIELD(15	ORC+26, ORC+29
FIELD(16	ORC+31*
FIELD(19	PV1+15*
FIELD(2	INIT+5, PV1+14, PV1+15, ORC+9*
FIELD(3	INIT+5, PID+3, PV1+4, PV1+13, ORC+10, ORC+16
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+17*
FIELD(8	INIT+5*
FIELD(9	ORC+18, ORC+22, ORC+29*
FIELD9	ORC+29~*
J	START+2~
LIMIT	START+2~, INIT+4, INIT+6, PID+1, PID+6, PV1+2, PV1+16, ORC+1, ORC+32, DISPLAY+1
>> LOC	PV1+4, PV1+6, PV1+7, PV1+9, PV1+10, PV1+11, PV1+12*, PV1+13
>> MSGTEST	DISPLAY+1
NAME	START+2~, ORC+20, ORC+21, ORC+24, ORC+25
NEXT	START+2~, DISPLAY+1*
NODE1	START+2~, ORC+3*, ORC+6, ORC+9, ORC+12, ORC+17, ORC+18, ORC+23, ORC+26, ORC+27 , UNDO+1
NODE2	START+2~, ORC+3*, ORC+17, ORC+18, ORC+19, ORC+26, ORC+27
NODE4	START+2~, ORC+4*, ORC+19, ORC+22
NOO	START+2~, ORC+30*, ORC+31
>> ORDCON	START+4*
>> P("NAT"	ORC+30
PROVIDER	START+2~, ORC+23*, ORC+24, ORC+25
PSGST	START+2~, ORC+5~, ORC+6*, ORC+17
>> PSIVCOPY	ORC+12
PSJAPPT	PV1+1~, PV1+9, PV1+10, PV1+11*, PV1+13
>> PSJBCBU	PID+5, PV1+12, ORC+21, ORC+22
PSJCLEAR	START+2~, INIT+4, PID+1, PV1+2, ORC+1
PSJDCPRV	ORC+23!
>> PSJEXPOE	ORC+12
PSJHINST	START+2~, INIT+5
PSJHLDFN	EN1~, START+3, START+4, PID+3, PID+4, PV1+6, PV1+10, PV1+11, PV1+12, PV1+15 , ORC+29, UNDO+1
>> PSJHLMTN	INIT+2*, INIT+5, PV1+4, PV1+5
PSJHLSDT	START+2~
PSJI	START+2~, INIT+2*
>> PSJNOO	ORC+30, UNDO+1
PSJORDER	EN1~, START+3*, START+4, ORC+2, ORC+3, ORC+4, ORC+30
PSOC	EN1~, START+5, START+7, ORC+2, ORC+8, ORC+9, ORC+22
PSREASON	EN1~, ORC+30*, ORC+31
ROOMBED	START+2~, PV1+12*
RXORDER	START+2~, START+3*, START+4, PV1+9, PV1+10, PV1+11, ORC+10, ORC+12, ORC+14, ORC+16 , ORC+17, ORC+18, ORC+19, ORC+23, ORC+26, ORC+27, ORC+29, UNDO+1
STATUS	START+2~, ORC+12, ORC+14, ORC+15, ORC+16, UNDO+1
U	START+4, ORC+31, UNDO+1
UNDO	START+2~, START+5*, START+8
>> VADM(1	PID+4
>> VAIN(1	PV1+15
VERIFY	START+2~, ORC+22*
WARD	START+2~, PV1+6*
>> X	START+4*

Customize PDF page

Package: Inpatient Medications

Routine: PSJHL2

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 49

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
PV1	; get patient visit information, format PV1 segment
A
E
D
P
I
H
DE
PID	; get patient data, format PID SEGMENT
UNDO	;Undo Renew if Pending Renewal is dc'd
DISPLAY	; just for testing
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.
R
U
RE
O
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
N
DR
ORC	; order control segment