Routine: RAHLBKVR

Entry Points

Name	Comments	DBIA/ICR reference
EN1	; Build the ^TMP("RARPT-REC" global when we ; receive the message from HL7. ; HLDA-ien of the record in ^HL(772, should be defined.
PID	; Pick data off the 'PID' segment.
OBR	; Pick data off the 'OBR' segment.
OBX	; Pick data off the 'OBX' segments
XIT	; Clean up environment, quit
DIAG	; Save off Diagnostic Code data.
IMP	; Save off Impression Text data.
RPT	; Save off Report Text data.

Name	Line Occurrences (* Changed, ! Killed)
^HL(772 - [#772]	EN1+9, OBR+1, OBX+1
^TMP("RARPT-REC"	EN1+3!, EN1+5, EN1+6, PID+4, PID+7, PID+12, OBR+6, OBR+7, OBR+8, OBR+11* , OBR+13, OBR+14, OBR+15, OBR+16, OBR+17, XIT+1, XIT+2!, DIAG+6, IMP+2, RPT+2

Name	Field # of Occurrence
^(	OBR+1, OBX+1

Name	Field # of Occurrence
CNT	EN1+9, OBR+1, OBX+1*, XIT+6!
DXSTR	DIAG+3~, DIAG+4, DIAG+5, DIAG+6
>> HLDA	EN1+3
>> HLDUZ	EN1+4, OBR+13, OBR+14, OBR+15, OBR+17
>> HLECH	PID+3, PID+4, OBR+6, OBR+7, OBR+8, OBX+4
>> HLERR	XIT+4*, XIT+5
>> HLESIG	PID+12, OBR+11, OBR+13
>> HLFS	PID+1, PID+2, PID+3, PID+4, PID+6, PID+7, OBR+1, OBR+2, OBR+3, OBR+4 , OBR+5, OBR+12, OBR+15, OBR+16, OBX+1, OBX+2, OBX+3, OBX+4, XIT+5, DIAG+2 , DIAG+4, IMP+2, RPT+2
>> HLMID	XIT+5
>> HLMTN	XIT+5*
HLSDATA	XIT+4!
HLSDATA(1	XIT+4*
HLSDATA(2	XIT+5*
>> HLTRANS	XIT+6
>> OBXTYP	OBX+4*, OBX+5, OBX+6
OBXTYPE	XIT+6!
RADATE	XIT+7!
RADCNT	XIT+7!, DIAG+1*, DIAG+6
RADTCN	OBR+5~*, OBR+6, OBR+7, OBR+8, XIT+7!
RAERR	EN1+4, PID+10, OBR+2, OBR+12, OBX+1, OBX+3, OBX+5, XIT+1, XIT+4, XIT+7!
RAESIG	XIT+7!
RAICNT	XIT+7!, IMP+1*, IMP+2
RAPRIMAR	XIT+8!
RARCNT	XIT+7!, RPT+1*, RPT+2
RASUB	EN1+3*, EN1+5, EN1+6, EN1+9, PID+4, PID+7, PID+12, OBR+1, OBR+6, OBR+7 , OBR+8, OBR+11, OBR+13, OBR+14, OBR+15, OBR+16, OBR+17, OBX+1, XIT+1, XIT+2 , XIT+7!, DIAG+6, IMP+2, RPT+2
RATRANSC	XIT+8!
RAVERF	XIT+7!
SEGMNT	EN1+9, PID+1, PID+2, PID+3, PID+4, PID+6, PID+7, OBR+1!, OBR+2, OBR+3 , OBR+4, OBR+5, OBR+12, OBR+15, OBR+16, OBX+1!, OBX+2, OBX+3, OBX+4, XIT+7! , DIAG+2, DIAG+4, IMP+2, RPT+2
X	DIAG+3~, DIAG+5*
>> X1	XIT+4*