Routine: RAHLBMS

Information

RAHLBMS ;HIRMFO/REL,GJC-Bridge, MedSpeak compatible to HL7 v1.6 ;11/18/97 12:12

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Health Level Seven	2	INIT^HLFNC2 GENACK^HLMA1
Radiology Nuclear Medicine	2	EN1^RAHLO $$PCEXTR^RAHLO4
Kernel	1	$$DT^XLFDT

Entry Points

Name	Comments	DBIA/ICR reference
P2	; Set node
PAR	; Build text paragraph
P1
RPT	; Save off Report Text data.
VFIER	; Check if the RAVERF string is a partial match to an entry in file ; 200. If if is, check to see that is a partial match to only ONE ; active provider entry in file 200.
PID	; Pick data off the 'PID' segment.
XIT1
EN1	; Build the ^TMP("RARPT-REC" global when we receive the ; message from HL7.
XIT	; Clean up environment, quit
OBX	; Pick data off the 'OBX' segments
GENACK	; Compile the 'ACK' segment, generate the 'ACK' message.
OBR	; Pick data off the 'OBR' segment.

External References

Name	Field # of Occurrence
INIT^HLFNC2	XIT+1
GENACK^HLMA1	GENACK+3
EN1^RAHLO	XIT+3
$$PCEXTR^RAHLO4	OBR+10, OBR+14
$$DT^XLFDT	EN1+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP("RARPT-HL7"	EN1+3!, EN1+7*, EN1+8, OBR+1, OBX+1, XIT1+1!, RPT+3
^TMP("RARPT-REC"	EN1+4!, EN1+5, EN1+6, PID+4, PID+7, PID+12, OBR+6, OBR+7, OBR+8, OBR+13* , OBR+27, XIT+3, XIT1!, P2+2
^VA(200 - [#200]	OBR+18, OBR+22, VFIER+7, VFIER+11, VFIER+12

Label References

Name	Line Occurrences
GENACK	XIT+2, XIT+3
P1	P1+2
P2	RPT+4, P1+2
PAR	RPT+2, RPT+3
RPT	OBX+6
VFIER	OBR+19
XIT	PID+10, OBR+2, OBR+11, OBR+12, OBR+15, OBR+25
XIT1	XIT+2

Naked Globals

Name	Field # of Occurrence
^(	OBR+1, OBX+1, RPT+3
^("RASTAFF"	OBR+27*
^("RATRANSCRIPT"	OBR+27*
^("RAWHOCHANGE"	OBR+27*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CNT	EN1+8, OBR+1, OBR+10, OBR+14, OBX+1*, XIT1+2!, RPT+3
DT	VFIER+13
>> HL	XIT+1
>> HL("ECH"	PID+3, PID+4, OBR+6, OBR+7, OBR+8
>> HL("EID"	GENACK+2
>> HL("EIDS"	GENACK+2
>> HL("ESIG"	PID+12
>> HL("FS"	PID+1, PID+2, PID+3, PID+4, PID+6, PID+7, OBR+1, OBR+2, OBR+3, OBR+4 , OBR+5, OBR+10, OBR+14, OBX+1, OBX+2, OBX+3, OBX+4, RPT+2, GENACK+1
>> HL("MID"	EN1+2, GENACK+1, GENACK+2
>> HLA("HLA"	GENACK+1*
>> HLARYTYP	GENACK+2*, GENACK+3
>> HLEID	GENACK+2*, GENACK+3
>> HLEIDS	GENACK+2*, GENACK+3
>> HLFORMAT	GENACK+2*, GENACK+3
>> HLMTIENS	GENACK+3
>> HLNEXT	EN1+7
>> HLNODE	EN1+7
>> HLNODE(	EN1+7
>> HLQUIT	EN1+7
>> HLRESLTA	GENACK+2*
>> HLRESTLA	GENACK+3
>> I	EN1+7*
>> J	EN1+7, RPT+3
>> L	RPT+4, P1+1, P1+2, P2+2
LIN	XIT1+2!, RPT+1, RPT+4, PAR+1, P1, P1+1, P1+2*, P2+2
>> OBXTYP	OBX+4*, OBX+5, RPT+1, P2+1, P2+2
OBXTYPE	XIT1+2!
RADATE	XIT1+2!
RADTCN	OBR+5~*, OBR+6, OBR+7, OBR+8, XIT1+2!
RAERR	EN1+2!, PID+10, OBR+2, OBR+11, OBR+12, OBR+15, OBR+23, OBR+25, OBX+1, OBX+3* , OBX+5, XIT+2, XIT+3, XIT1+2!, GENACK+1, VFIER+3, VFIER+19, VFIER+20, VFIER+21*
RAESIG	XIT1+2!
RAHL70	OBR+10!, OBR+14!
RAHLD	OBR+10, OBR+11, OBR+12, OBR+13, OBR+14, OBR+15, OBR+16, XIT1+2!
RANODE	XIT1+2!, RPT+1*, P2+2
RARCNT	XIT1+2!
RARCNT(	P2+1*, P2+2
RASUB	EN1+2*, EN1+4, EN1+5, EN1+6, PID+4, PID+7, PID+12, OBR+6, OBR+7, OBR+8 , OBR+13, OBR+27, XIT1+3!, P2+2
RAVCNT	VFIER+4!, VFIER+6, VFIER+7, VFIER+11, VFIER+13, VFIER+14, VFIER+19, VFIER+20, VFIER+22!
RAVERF	OBR+16, OBR+18, OBR+22, OBR+23, OBR+27, XIT1+3!, VFIER+3, VFIER+5, VFIER+6, VFIER+7 , VFIER+21*
RAVIEN	VFIER+4!, VFIER+10, VFIER+11, VFIER+12, VFIER+14, VFIER+22!
RAVIEN(	VFIER+14*
RAVIEN(1	VFIER+21
RAVLGTH	VFIER+4!, VFIER+5*, VFIER+7, VFIER+22!
RAVPS	VFIER+4!, VFIER+12*, VFIER+13, VFIER+22!
>> RAVS1	VFIER+6, VFIER+7, VFIER+11
SEGMNT	EN1+8, PID+1, PID+2, PID+3, PID+4, PID+6, PID+7, OBR+1!, OBR+2, OBR+3 , OBR+4, OBR+5, OBR+10, OBR+14, OBX+1!, OBX+2, OBX+3, OBX+4, XIT1+3!, RPT+2
>> X	RPT+2, RPT+3, RPT+4, PAR+1
X1	XIT1+2!, RPT+3*

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAHLBMS

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: