Routine: RAHLBMS

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Entry Points
External References
Global Variables Directly Accessed
Label References
Naked Globals
Local Variables

Information

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

Source Information

Source file <RAHLBMS.m>

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.

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

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

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

Call Graph Total: 5