Routine: SRHLORU

Package	Total	Call Graph
Surgery	3	(DSCPANCY,SETDSC)^SRHLU ($$OBR,NTE,OBX)^SRHLUI MSA^SRHLUO
Health Level Seven	2	$$FMNAME^HLFNC GENACK^HLMA1
VA Fileman	1	$$GET1^DIQ

Package

Total

Call Graph

(DSCPANCY,SETDSC)^SRHLU ($$OBR,NTE,OBX)^SRHLUI MSA^SRHLUO

$$FMNAME^HLFNC GENACK^HLMA1

$$GET1^DIQ

Name	Comments	DBIA/ICR reference
OBR	;;OBR
PICK	;check routine for segment entry point
PID	;;PID
EXIT	;
OBX	;;OBX
MSH	;;MSH
REC
NTE	;;NTE
GEN	;generate the message
CHECK(IEN)	;check for valid receivable segments in file 133.2 (Surgery Interface)

HL7 Protocol Name	Call Tags
SR Receiver of Unsolicited Requested Observation

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	PID+4, OBR+8
^DPT("B"	PID+4
^SRF - [#130]	REC+2, OBR+5, OBR+8
^SRO(133.2 - [#133.2]	OBR+7, CHECK+2
^TMP("HLA"	EXIT+1!

Name	Field # of Occurrence
>> CASE	REC+2, OBX+3, NTE+3, OBR+4*, OBR+5, OBR+6, OBR+7, OBR+8, OBR+9, OBR+12
DFN	OBR+2~, OBR+8*, OBR+9, OBR+12
>> HL	REC+5, OBR+4, OBR+5, OBR+6, OBR+7, OBR+10
>> HL("ECH"	MSH+2*, MSH+3
>> HL("EID"	GEN+12
>> HL("EIDS"	GEN+12
>> HL("FS"	MSH+2*, MSH+4, PID+3, OBR+4, OBR+5, OBR+6
>> HLARYTYP	GEN+12*, GEN+13
HLCOMP	REC~, MSH+3*, OBR+6
HLECH	REC~, MSH+2*
>> HLEID	GEN+12*, GEN+13
>> HLEIDS	GEN+12*, GEN+13
>> HLFORMAT	GEN+12*, GEN+13
HLFS	REC~, MSH+2*
HLMID	REC+1!
>> HLMTIENA	GEN+12*, GEN+13
>> HLMTIENS	GEN+13
>> HLNEXT	REC+3
>> HLNODE	REC+3
>> HLNODE(	REC+4
>> HLP	GEN+12*, GEN+13
>> HLP("ERRTEXT"	GEN+1
>> HLQUIT	REC+3
HLREP	REC~, MSH+3*
>> HLRESLTA	GEN+12*, GEN+13
HLSUB	REC~, MSH+3*
I	REC+3, REC+4, PID+2~, PID+4
ID	OBR+2~, OBR+6*, OBR+7
IEN	OBR+2~, OBR+7*, OBR+12, CHECK~, CHECK+1, CHECK+2
II	REC~
>> J	REC+3, REC+4
>> MSG	REC+3*, MSH+2, MSH+4, PID+3, OBX+3, NTE+3, OBR+4, OBR+5, OBR+6, OBR+12
>> OBR	OBX+2, OBX+3, NTE+2, NTE+3, OBR+12*
PAT	PID+2~, PID+3*, PID+4
PID	REC+1!
PID("DFN"	PID+4*
PID("SSN"	PID+3*, PID+4, OBR+8, OBR+9
SG	REC~, REC+3*, PICK+1
>> SRDISC	OBR+4, OBR+5, OBR+6, OBR+7, OBR+9*, OBR+10
SRERR	REC~
SRES	REC~
SRESAR	REC~, REC+1, REC+2
SRESCNT	REC~, REC+1*
SRESNR	REC~, REC+1, REC+2
SRHL	REC~, REC+1!, EXIT+1!, OBR+4, OBR+5, OBR+6, OBR+7, OBR+10
SRHL("E"	REC+1*, REC+5
SRI	REC~
SRII	OBR+2~
SRNEXT	OBR+2~
SRNON	REC~
SROP	REC~
SSN	REC~
TYPE	REC~, MSH+4*
U	PID+4, OBR+8, CHECK+2
>> X(	REC+3, REC+4
Z	REC~, REC+2*

Information