Routine: RAHLRPT

Package	Total	Call Graph
Radiology Nuclear Medicine	4	(,EN)^RAHLRPT1 (INIT,PID,RESEND,SETUP)^RAHLRPTT GETHLP^RAHLRS1 (INIT,OBX11,OBXMOD,OBXPRC,OBXTCM)^RAHLRU
Health Level Seven	2	($$HLDATE,$$HLNAME)^HLFNC GENERATE^HLMA
Kernel	2	$$FMTHL7^XLFDT ($$PATCH,$$VERSION)^XPDUTL
VA Fileman	2	$$GET1^DIQ ^DIWP
Registration	1	DEM^VADPT

Package	Total	Caller Graph
Radiology Nuclear Medicine	1	RAHLRPC

Entry Points

Name	Comments	DBIA/ICR reference
EN	; Called from RA RPT and RA RPT 2.3 protocol entry action ; Input variables: ; RADFN=file 2 IEN (DFN) ; RADTI=file 70 Exam subrecord IEN (reverse date/time) ; RACNI=file 70 Case subrecord IEN ; RARPT=file 74 Report IEN ; RASSS=List of Subscribers passed into GENERATE^HLMA will be set into HLP array. ; Output variables: ; HLA("HLS", array containing HL7 msg ; RATELREL = 1 Indicates that the text: 'Released for local dictation by National Teleradiology' ; has been included in Impression or Report section ; RATELX = Text used as indication of Release for local dictation... if not set use defauld above... ; RATELE = 1 If RANOSEND is Teleradiology type vendor
OBXMOD	;Compile 'OBX' Segment for Modifiers
OBXTCM	;Compile 'OBX' Segment for Tech Comments
OBXDIA2
OBXDIA	;Compile 'OBX' Segment for Diagnostic Code
RATELREL	;Release the study for local reading
EXIT	; set HL7 message type & return to RA RPT protocol
OBXRPT	;Compile 'OBX' Segment for Radiology Report Text
OBXPRC	;Compile 'OBX' Segment for Procedure
NEW	; new variables
OBXIMP	;Compile 'OBX' segment for Impression
OBR	;Compile 'OBR' Segment

External References

Name	Field # of Occurrence
$$GET1^DIQ	OBR+7, OBR+25, OBR+30, OBR+34, OBR+41, OBR+46
^DIWP	OBXIMP+3, OBXRPT+3
$$HLDATE^HLFNC	OBR+6, OBR+21
$$HLNAME^HLFNC	OBR+8, OBR+26, OBR+31, OBR+35, OBR+42, OBR+47
GENERATE^HLMA	EXIT+8
^RAHLRPT1	NEW+9
EN^RAHLRPT1	NEW+9
INIT^RAHLRPTT	EN+21
PID^RAHLRPTT	NEW+18
RESEND^RAHLRPTT	EXIT+2
SETUP^RAHLRPTT	NEW+18
GETHLP^RAHLRS1	EXIT+7
INIT^RAHLRU	NEW+4
OBX11^RAHLRU	OBXDIA+9, OBXDIA2+10, OBXIMP+1, OBXIMP+4, OBXRPT+1, OBXRPT+4
OBXMOD^RAHLRU	OBXMOD+1
OBXPRC^RAHLRU	OBXPRC+1
OBXTCM^RAHLRU	OBXTCM+1
DEM^VADPT	NEW+12
$$FMTHL7^XLFDT	OBR+19
$$PATCH^XPDUTL	OBXDIA+3, OBXDIA2+4
$$VERSION^XPDUTL	OBXDIA+3, OBXDIA2+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	OBR+13
^DIC(42 - [#42]	OBR+9
^RA(78.3 - [#78.3]	OBXDIA+1, OBXDIA2+1
^RA(79.1 - [#79.1]	OBR+12
^RADPT - [#70]	EN+26, EN+27, OBR+11, OBR+38, OBR+39, OBR+40, OBXDIA+10, OBXDIA2
^RARPT - [#74]	OBR+45, OBR+46, OBR+48, OBXIMP+1, OBXIMP+3, OBXRPT+1, OBXRPT+3
^SC - [#44]	OBR+9, OBR+13
^UTILITY($J	OBXIMP+2!, OBXIMP+4, OBXRPT+2!, OBXRPT+4

Label References

Name	Line Occurrences
EXIT	NEW+9, NEW+13
NEW	EN+29
OBR	NEW+18
OBXDIA	NEW+18
OBXDIA2	OBXDIA2+11
OBXIMP	NEW+18
OBXMOD	NEW+18
OBXPRC	NEW+18
OBXRPT	NEW+18
OBXTCM	NEW+18
RATELREL	OBXIMP+3, OBXRPT+3

Naked Globals

Name	Field # of Occurrence
^(	OBXDIA2+1, OBXIMP+3, OBXIMP+4, OBXRPT+3, OBXRPT+4
^(0	OBR+9, OBXIMP+3, OBXIMP+4, OBXRPT+3, OBXRPT+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DFN	NEW+2~, NEW+12*
DIWF	NEW+2~, OBXIMP+2, OBXRPT+2
DIWL	NEW+2~, OBXIMP+2, OBXIMP+4, OBXRPT+2, OBXRPT+4
DIWR	NEW+2~, OBXIMP+2, OBXRPT+2
EID	NEW+3~
HL	NEW+3~, NEW+5
HL(""	NEW+6
HL("MTN"	EXIT+3*
HL("VER"	NEW+9
HLA	NEW+3~
HLA("HLS"	OBR+54, OBR+55, OBXDIA+4, OBXDIA+8, OBXDIA2+5, OBXDIA2+9, OBXIMP+1, OBXIMP+4, OBXRPT+1, OBXRPT+4
HLARYTYP	EXIT+4~, EXIT+5*, EXIT+8
>> HLDT1	OBR+21
HLECH	NEW+3~, OBR+1, OBR+5, OBR+6, OBR+8, OBR+13, OBR+27, OBR+32, OBR+36, OBR+43 , OBR+48, OBXDIA+4, OBXDIA+8, OBXDIA2+5, OBXDIA2+9, OBXIMP+1, OBXIMP+4, OBXRPT+1, OBXRPT+4
HLEID	EXIT+4~, EXIT+5*, EXIT+7, EXIT+8
HLFORMAT	EXIT+4~, EXIT+5*, EXIT+8
HLFS	NEW+3~, OBR+6, OBR+9, OBR+13, OBR+14, OBR+19, OBR+22, OBR+24, OBR+27, OBR+29 , OBR+32, OBR+36, OBR+38, OBR+43, OBR+45, OBR+48, OBR+51, OBR+54, OBXDIA+4, OBXDIA+8 , OBXDIA2+5, OBXDIA2+9, OBXIMP+1, OBXIMP+4, OBXRPT+1, OBXRPT+4
HLMTIEN	EXIT+4~, EXIT+5*, EXIT+8
HLP	EXIT+4~, EXIT+6*, EXIT+7, EXIT+8
HLP("ERRTEXT"	NEW+13*
HLP("PRIORITY"	EXIT+5*
HLQ	NEW+3~, OBR+6
>> HLRESLT	EXIT+8
INT	NEW+3~
OBR36	NEW+3~, OBR+18*, OBR+19
RA20	OBR+11~, OBR+12*, OBR+13
RACN0	EN+20~, EN+22, OBR+7, OBR+8, OBR+9, OBR+29, OBR+30, OBR+32, OBR+33, OBR+34 , OBR+36, OBXDIA+1, OBXDIA+4
RACN00	OBR+11~*, OBR+12, OBR+13
RACNI	EN+25~, EN+28*, NEW+9, EXIT+2, OBR+6, OBR+38, OBR+39, OBR+40, OBXDIA+10, OBXDIA2
RACPT	NEW+2~
RACPTNDE	NEW+2~, OBR+1
>> RADFN	EN+26, EN+27, NEW+9, NEW+12, EXIT+2, OBR+11, OBR+38, OBR+39, OBR+40, OBXDIA+10 , OBXDIA2
RADTE0	NEW+2~, OBR+6
RADTECN	NEW+2~, OBR+6
>> RADTI	EN+26, EN+27, NEW+9, EXIT+2, OBR+6, OBR+11, OBR+18, OBR+38, OBR+39, OBR+40 , OBXDIA+10, OBXDIA2
RADTV	NEW+2~, OBR+21*!, OBR+22
>> RAEID	NEW+9, EXIT+5
RAI	NEW+2~, OBXDIA+1, OBXDIA+4, OBXDIA+8, OBXIMP+3, OBXIMP+4, OBXRPT+3, OBXRPT+4*
RAII	EN+25~, EN+26, EN+27, EN+28
RAN	NEW+2~, NEW+3~, NEW+14, OBR+53, OBR+54, OBR+55, OBXDIA+2, OBXDIA+4, OBXDIA+8, OBXDIA2+3 , OBXDIA2+5, OBXDIA2+9, OBXIMP+1, OBXIMP+4, OBXMOD+1, OBXPRC+1, OBXRPT+1, OBXRPT+4
RAOBR4	NEW+2~, OBR+1, OBR+5, OBR+6
RAPART	OBR+51~*, OBR+52!, OBR+54!
RAPART(1	OBR+51*, OBR+54
RAPART(2	OBR+51*, OBR+54
RAPRCNDE	NEW+2~, OBR+1
RAPROC	NEW+2~, OBR+1
RAPROCIT	NEW+2~
RAPRV	NEW+2~, OBR+7*, OBR+8
>> RARPT	OBR+45, OBR+46, OBR+48, OBXIMP+1, OBXIMP+3, OBXRPT+1, OBXRPT+3
RARPT0	NEW+2~, OBR+6, OBR+21, OBR+22, OBR+24, OBR+25, OBR+27
RASET	EN+20~, EN+24*
>> RASSS	EXIT+6
>> RASSSX(	EXIT+7
RATELE	EN+20~, RATELREL+1
RATELREL	EN+20~, EXIT+2, RATELREL+1*
RATELX	EN+20~, RATELREL+1
RAVADM	NEW+3!, EXIT+9!
RAVADM(3	NEW+15*
U	EN+22, EN+27, OBR+1, OBR+12, OBR+13, OBXDIA2+1
VADM	NEW+3~
VADM(1	NEW+13
VADM(3	NEW+15
VAERR	NEW+3~
X	NEW+3~, OBXDIA2+1, OBXDIA2+2, OBXDIA2+5, OBXDIA2+9, OBXIMP+3, OBXRPT+3*, RATELREL+1
X0	NEW+3~
X1	NEW+3~, OBR+6, OBR+8, OBR+9, OBR+13, OBR+14, OBR+19, OBR+22, OBR+24, OBR+27* , OBR+29, OBR+32, OBR+36, OBR+38, OBR+43, OBR+45, OBR+48*, OBR+51, OBR+55
X2	NEW+3~, OBR+25, OBR+26, OBR+30, OBR+31, OBR+34, OBR+35, OBR+39, OBR+40, OBR+41 , OBR+43, OBR+46, OBR+47, OBXDIA+11, OBXDIA2, OBXDIA2+1
XX2	NEW+3~, OBR+41*, OBR+42
Y	NEW+3~, OBR+6, OBR+8, OBR+26, OBR+27, OBR+31, OBR+32, OBR+35, OBR+36, OBR+42 , OBR+43, OBR+47, OBR+48, OBXDIA2+1, OBXDIA2+5
>> ZTQUEUED	NEW+1
>> ZTREQ	NEW+1*

Marked Items

Name	Field # of Occurrence
$T(^RAHLRPT1	NEW+9

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAHLRPT

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 1

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items