Routine: PSJHLERR

Information

PSJHLERR ;BIR/LDT-PATIENT ID AND VISIT SEGMENTS FOR ERRORS ; 20 Apr 98 / 9:58 AM

Source file <PSJHLERR.m>

Package	Total	Caller Graph
Inpatient Medications	4	PSJHL10 PSJHL5 PSJHL6 PSJHL9

Name	Comments	DBIA/ICR reference
PV1	; get patient visit information, format PV1 segment
PID	; get patient data, format PID SEGMENT
EN1(PSJHLDFN,PSOC,RXORDER,PSREASON)	; start here ; passed in are PSJHLDFN (patient ien) ; RXORDER (order number from OE/RR) ; PSOC (order control code) ; PSREASON (text reason)
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.
ORC	; order control segment - modified for use with error messages.

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

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	PV1+5, PV1+6
^SC("B"	PV1+5
^TMP("PSJHLS"	START+1!
^VA(200 - [#200]	ORC+7

Name	Field # of Occurrence
>> %	INIT+7
>> CLASS	PV1+8
CLERK	START+2~, ORC+7*, ORC+8
DFN	PID+4~, PV1+9~
DUZ	ORC+7, ORC+8
FIELD	START+2~
FIELD(0	INIT+6, PID+2, PV1+2, ORC+3
FIELD(1	INIT+6, ORC+4
FIELD(10	ORC+8*
FIELD(16	ORC+11*
FIELD(19	PV1+9*
FIELD(2	INIT+6, PV1+8, PV1+9, ORC+5*
FIELD(3	INIT+6, INIT+7, PID+3, PV1+3, PV1+7, ORC+6*
FIELD(4	INIT+7*
FIELD(5	INIT+7, PID+4
FIELD(6	INIT+7*
FIELD(8	INIT+6*
J	START+5!
LIMIT	START+2~, INIT+5, INIT+8, PID+1, PID+5, PV1+1, PV1+10, ORC+1, ORC+12
>> LOC	PV1+3, PV1+5, PV1+6, PV1+7
NEXT	START+5!
PSJCLEAR	START+5!, INIT+5, PID+1, PV1+1, ORC+1
PSJHINST	START+2~, INIT+6
PSJHLDFN	EN1~, PID+3, PID+4, PV1+5, PV1+6, PV1+9
PSJHLMTN	START+2~, INIT+3*, INIT+6, PV1+3, PV1+4
PSJHLSDT	START+2~
PSJI	START+2~, START+4, START+5!, INIT+3*
PSOC	EN1~, START+5!, ORC+2, ORC+4, ORC+6, ORC+11
PSREASON	EN1~, START+5!, ORC+11
ROOMBED	START+2~, PV1+6*
>> RXON	ORC+6
RXORDER	EN1~, START+5!, ORC+2, ORC+5
U	ORC+11
>> VADM(1	PID+4
>> VAIN(1	PV1+9
WARD	START+2~, PV1+5*