Routine: RAHLR

Package	Total	Call Graph
Radiology Nuclear Medicine	5	$$NAMCODE^RACPTMSC ALLERGY^RADEM (,EN)^RAHLR1 GETHLP^RAHLRS1 ($$ESCAPE,OBX11,OBXMOD,OBXPRC,OBXTCM)^RAHLRU
Health Level Seven	3	($$HLDATE,$$HLNAME,$$M11)^HLFNC INIT^HLFNC2 GENERATE^HLMA
VA FileMan	3	NOW^%DTC $$GET1^DIQ ^DIWP
Kernel	2	^%ZTLOAD $$FMTHL7^XLFDT
Registration	2	DEM^VADPT $$EN^VAFHLPID

Package	Total	Caller Graph
Radiology Nuclear Medicine	1	RAHLRPC

Entry Points

Name	Comments	DBIA/ICR reference
EN	; Called from the RA REG & RA CANCEL & RA EXAMINED protocols ; Input Variables: ; RADFN=file 2 IEN (DFN) ; RADTI=file 70 Exam subrec IEN (reverse date/time of exam) ; RACNI=file 70 Case subrecord IEN ; RAEID=ien of the event driver protocol (defined in RAHLRPC) ; Output Variables: ; HLA("HLS") array containing HL7 msg
OBXPRC	;Compile 'OBX' Segment for Procedure
OBXMOD	;Compile 'OBX' Segment for two types of Modifiers
OBXHIST	;Compile 'OBX' Segment for Clinical History and Reason for Study (added as prefix).
ALLER	;Compile 'OBX' Segment for Allergies
OBXTCM	;Compile 'OBX' Segment for Tech Comment
EXIT	; set HL7 message type & return to protocol
Q	;Entry Point to Process an ORR Message (Just a Quit Since No Processing is Required)
INIT	; initialize HL7 variables

External References

Name	Field # of Occurrence
NOW^%DTC	INIT+1
^%ZTLOAD	RAHLR+21
$$GET1^DIQ	EN+61
^DIWP	OBXHIST+4
$$HLDATE^HLFNC	EN+33, EN+58, INIT+1
$$HLNAME^HLFNC	EN+33, EN+62
$$M11^HLFNC	EN+33
INIT^HLFNC2	INIT+5
GENERATE^HLMA	EXIT+7
$$NAMCODE^RACPTMSC	EN+24
ALLERGY^RADEM	ALLER+1
^RAHLR1	EN+17
EN^RAHLR1	EN+17
GETHLP^RAHLRS1	EXIT+5, EXIT+6
$$ESCAPE^RAHLRU	EN+81, OBXHIST+2
OBX11^RAHLRU	OBXHIST+2, OBXHIST+3, OBXHIST+5, ALLER+2
OBXMOD^RAHLRU	OBXMOD+1
OBXPRC^RAHLRU	OBXPRC+1
OBXTCM^RAHLRU	OBXTCM+1
DEM^VADPT	EN+28
$$EN^VAFHLPID	EN+35
$$FMTHL7^XLFDT	EN+84

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]	EN+67
^DIC(42 - [#42]	EN+78
^RA(72 - [#72]	EN+23
^RA(79.1 - [#79.1]	EN+66
^RA(79.2 - [#79.2]	EN+22, EN+72
^RADPT - [#70]	EN+19, EN+64, OBXHIST+3, OBXHIST+4
^RAMIS(71 - [#71]	EN+22, EN+24, EN+39
^RAO(75.1 - [#75.1]	EN+39, EN+81, EN+86, OBXHIST+1, OBXHIST+2
^SC - [#44]	EN+67, EN+78
^UTILITY($J	OBXHIST+4!, OBXHIST+5, EXIT+1!

Label References

Name	Line Occurrences
EXIT	EN+28
INIT	EN+12

Naked Globals

Name	Field # of Occurrence
^(	OBXHIST+4, OBXHIST+5
^(0	EN+19, EN+78, OBXHIST+4, OBXHIST+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	INIT+1
DFN	EN+10~, EN+28, EN+35, ALLER+1
DIWF	EN+10~, OBXHIST+4*
DIWL	EN+10~, OBXHIST+4*, OBXHIST+5
DIWR	EN+10~, OBXHIST+4*
DT	EN+24
EID	EN+9~, EXIT+4, INIT+3*, INIT+5
GMRAL	EN+10~, ALLER+1
HL	EN+9~, EN+14, INIT+4*, INIT+5
HL(""	EN+15
HL("ECH"	INIT+8, INIT+10, INIT+11, INIT+12
HL("FS"	INIT+9
HL("MTN"	EXIT+2*
HL("Q"	INIT+6, INIT+7
HL("VER"	EN+17, EN+32, EN+35
HLA	EN+9~
HLA("HLS"	EN+33, EN+34, EN+35, EN+45, EN+58, EN+60, EN+62, EN+67, EN+68, EN+73 , EN+74, EN+78, EN+81, EN+84, EN+86, EN+88, EN+90, OBXHIST+2, OBXHIST+3, OBXHIST+5* , ALLER+2*
HLARYTYP	EXIT+3~, EXIT+4*, EXIT+7
HLCS	EN+9~, INIT+10*
>> HLDAP	RAHLR+19
>> HLDT	INIT+1*
>> HLDT1	EN+45, EN+78, INIT+1*
HLECH	EN+9~, EN+48, EN+51, EN+58, EN+62, EN+67, EN+73, EN+81, EN+86, OBXHIST+2 , OBXHIST+3, OBXHIST+5, ALLER+2, INIT+8*
HLEID	EXIT+3~, EXIT+4*, EXIT+5, EXIT+6, EXIT+7
HLFORMAT	EXIT+3~, EXIT+4*, EXIT+7
HLFS	EN+9~, EN+33, EN+34, EN+45, EN+58, EN+60, EN+67, EN+68, EN+73, EN+74 , EN+78, EN+81, EN+84, EN+86, EN+88, EN+90, OBXHIST+2, OBXHIST+3, OBXHIST+5, ALLER+2 , INIT+9*
HLMTIEN	EXIT+3~, EXIT+4*, EXIT+7
>> HLNDAP	RAHLR+19
HLP	EXIT+3~, EXIT+5, EXIT+6, EXIT+7
HLP("ERRTEXT"	EN+28*
HLP("PRIORITY"	EXIT+4*
HLQ	EN+9~, EN+60, INIT+7*
HLREP	EN+9~, INIT+12*
>> HLRESLT	EXIT+7
HLSCS	EN+9~, INIT+11*
INT	EN+9~, INIT+4*, INIT+5
OBR36	EN+10~, EN+23*, EN+84
PI	EN+10~
PI(	ALLER+1
RA1	EN+88~*, EN+90!
RA20	EN+64~, EN+66, EN+67, EN+72, EN+73
RACANC	EN+10~, EN+23*, EN+45, EN+86
RACN0	EN+10~, EN+19*, EN+21, EN+23, EN+39, EN+42, EN+61, EN+62, EN+78, EN+81 , EN+86, OBXHIST+1, OBXHIST+2
RACN00	EN+64~*, EN+66, EN+67, EN+72
>> RACNI	EN+17, EN+19, EN+58, OBXHIST+3, OBXHIST+4
RACPT	EN+10~, EN+24*
RACPTNDE	EN+10~, EN+24*, EN+48, EN+51
>> RADFN	EN+17, EN+19, EN+28, EN+33, EN+64, OBXHIST+3, OBXHIST+4, ALLER+1
RADTE	EN+10~, EN+23*, EN+58
>> RADTI	EN+17, EN+19, EN+23, EN+44, EN+58, EN+64, OBXHIST+3, OBXHIST+4
>> RAEID	EN+17, INIT+3
>> RAEXEDT	RAHLR+20
>> RAEXMDUN	RAHLR+19, EN+45
RAI	EN+10~, OBXHIST+4, OBXHIST+5, ALLER+1*
RAN	EN+10~, OBXPRC+1, OBXMOD+1, OBXHIST+2, OBXHIST+3, OBXHIST+5, ALLER+2
RAOBR4	EN+10~, EN+48, EN+51, EN+58
RAORC4	EN+42, EN+43, EN+44*, EN+45, EN+46!
RAPART	EN+88~*, EN+89!, EN+90!
RAPART(1	EN+88*, EN+90
RAPART(2	EN+88*, EN+90
RAPRCNDE	EN+10~, EN+24*, EN+48
RAPROC	EN+10~, EN+21*, EN+22, EN+24, EN+48
RAPROCIT	EN+10~, EN+22*, EN+23
RAPRV	EN+10~, EN+61*, EN+62
>> RASSSX(	EXIT+5
>> RASSSX1(	EXIT+6
RAVADM	EN+28!, EN+36!
RAVADM(3	EN+29*, EN+33
RAX0	EN+10~
U	EN+21, EN+22, EN+24, EN+39, EN+42, EN+48, EN+51, EN+66, EN+67, EN+72 , EN+73, EN+81, OBXHIST+2
VA	EN+10~, EN+28!
VA("PID"	EN+33
VADM	EN+10~, EN+28!
VADM(1	EN+28, EN+33
VADM(2	EN+34, EN+43
VADM(3	EN+29
VADM(5	EN+33
VAERR	EN+10~, EN+28!
X	EN+10~, EN+86, OBXHIST+4, ALLER+1*, ALLER+2
X0	EN+10~, EN+38, EN+39, EN+45, ALLER+1*
X1	EN+10~
Y	EN+10~
ZTDESC	RAHLR+21*, RAHLR+22!
ZTDTH	RAHLR+21*, RAHLR+22!
ZTIO	RAHLR+21*, RAHLR+22!
ZTRTN	RAHLR+21*, RAHLR+22!
ZTSAVE	RAHLR+22!
ZTSAVE("HLDAP"	RAHLR+19*
ZTSAVE("HLNDAP"	RAHLR+19*
ZTSAVE("RACNI"	RAHLR+21*
ZTSAVE("RADFN"	RAHLR+21*
ZTSAVE("RADTI"	RAHLR+21*
ZTSAVE("RAEXEDT"	RAHLR+20*
ZTSAVE("RAEXMDUN"	RAHLR+19*

Marked Items

Name	Field # of Occurrence
$T(^RAHLR1	EN+17

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAHLR

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Legends:

Package Component Superscript legend

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