Routine: SRHLVORU

Name	Comments	DBIA/ICR reference
REPORT(HLMID)	;creates discrepancy report to be mailed to SR HL7 mailgroup
SET(ECODE,OBR,OBX,SRHLX)	;sets up discrepancy global
OBR	;OBR segment processing
PICK	;check routine for segment entry point
PID	;process PID segment
EXIT	;
OBX	;OBX segments processing
MSH	;process the MSH segment
REC
NTE	;NTE segment processing
DSC
CHECK(IEN)	;check for valid receivable segments in file 133.2 (Surgery Interface)

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"DR ",DR Line Location: OBX+1
Function Call: WRITE	Prompt: !,"OBR DR",DR Line Location: OBR+1
Routine Call	DIE Line Location: REC+6 OBX+1 NTE+1 OBR+1
Routine Call	DIC Line Location: EXIT+7

FileNo	Call Tags
^XMB(3.8 - [#3.8]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DPT("B"	PID+3
^DPT("SSN"	PID+4
^HL(772 - [#772]	REC+5
^SRF - [#130]	OBR+8, OBR+9
^SRO(133.2 - [#133.2]	OBR+6, OBR+12, CHECK+2
^TMP("SRHL"	REC+3!, EXIT+7, PID+6, SET+1

Name	Field # of Occurrence
^(0	REC+5

Name	Field # of Occurrence
CASE	OBR+2~, OBR+7*, OBR+8, OBR+9, OBR+12
CDFN	OBR+2~, OBR+9*
>> DA	OBR+12*
DFN	REC~, PID+3*, PID+5, PID+6, OBR+9
DFN1	REC~, PID+4*, PID+5, PID+6, OBR+9
DIC	EXIT+7!*
DIE	REC+6!, OBR+1!, OBR+12*
DO	REC+6!, OBX+1!, NTE+1!, OBR+1!
DR	REC+6!, OBX+1!, NTE+1!, OBR+1!
ECODE	SET~, SET+1
HLCOMP	REC~, MSH+2*, OBR+5
>> HLDA	REC+5
>> HLECH	MSH+1*, MSH+2
>> HLERR	REC+5, REC+6, EXIT+2, EXIT+3, EXIT+4, EXIT+5, PICK+2, PID+5, OBX+1, NTE+1 , NTE+2, OBR+1, OBR+5, OBR+7, OBR+8, OBR+9, OBR+14
>> HLFS	MSH+1*, MSH+3, PID+2, OBR+5, OBR+7, SET+1
HLMID	EXIT+7, REPORT~, REPORT+1
>> HLMTN	EXIT+1*
HLREP	REC~, MSH+2*
>> HLSDT	EXIT+1*
HLSUB	REC~, MSH+2*
I	PID+1~, PID+3*
ID	OBR+2~, OBR+5*, OBR+6
IEN	OBR+2~, OBR+6*, OBR+11, OBR+12, OBR+14, CHECK~, CHECK+1, CHECK+2
II	REC~, REC+5*
>> MSG	REC+5*, MSH+1, MSH+3, PID+2, OBX+1, NTE+2, OBR+5, OBR+7, OBR+14
OBR	OBX+1, NTE+2, OBR+6, OBR+14*, SET~, SET+1
OBX	SET~, SET+1
PAT	PID+1~, PID+2*, PID+3, PID+6
QOBR	REC~, REC+1, REC+6, OBX+1, NTE+1, NTE+2, OBR+1, OBR+3, OBR+11*
SG	REC~, REC+5*, PICK+1, PICK+2
SRERR	REC~, EXIT+3
SRHLX	REC~, REC+3, PID+6, OBR+6, SET~, SET+1*
SRI	REC~, EXIT+1*, EXIT+2, EXIT+3
>> SRNOCON	REC+4*
>> SRTN	OBR+12*
SSN	REC~, PID+1~, PID+2*, PID+4, PID+6
TYPE	REC~, PICK+2, MSH+3*
U	OBR+9, OBR+12, CHECK+2
>> UPDATE	REC+2, OBX+1
>> X	EXIT+7*
>> XMSUB	REPORT+1*
>> XMTEXT	REPORT+3*
>> XMY("G.SRHL D	ISCREPANCY" , REPORT+2*
>> Y	EXIT+7

Information