Routine: RAHLR

Information

RAHLR ;HISC/CAH/BNT - Generate Common Order (ORM) Message ; 06 Oct 2013 11:08 AM

Call Graph

Call Graph Total: 15

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

Caller Graph

Caller Graph Total: 1

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
ALLER	;Compile 'OBX' Segment for Allergies
OBXMOD	;Compile 'OBX' Segment for two types of Modifiers
OBXTCM	;Compile 'OBX' Segment for Tech Comment
Q	;Entry Point to Process an ORR Message (Just a Quit Since No Processing is Required)
INIT	; initialize HL7 variables
EXIT	; set HL7 message type & return to protocol
OBXHIST	;Compile 'OBX' Segment for Clinical History and Reason for Study (added as prefix).
OBXPRC	;Compile 'OBX' Segment for Procedure

External References

Name	Field # of Occurrence
NOW^%DTC	INIT+1
^%ZTLOAD	RAHLR+21
$$GET1^DIQ	EN+65
^DIWP	OBXHIST+4
$$HLDATE^HLFNC	EN+36, EN+62, INIT+1
$$HLNAME^HLFNC	EN+36, EN+66
$$M11^HLFNC	EN+36
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+85, 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+39
$$FMTHL7^XLFDT	EN+88

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	EN+71
^DIC(42 - [#42]	EN+82
^RA(72 - [#72]	EN+23
^RA(79.1 - [#79.1]	EN+70
^RA(79.2 - [#79.2]	EN+22, EN+76
^RADPT - [#70]	EN+19, EN+68, OBXHIST+3, OBXHIST+4
^RAMIS(71 - [#71]	EN+22, EN+24, EN+43
^RAO(75.1 - [#75.1]	EN+43, EN+85, EN+90, OBXHIST+1, OBXHIST+2
^SC - [#44]	EN+71, EN+82
^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+82, 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+39, 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+39
HLA	EN+9~
HLA("HLS"	EN+36, EN+38, EN+39, EN+49, EN+62, EN+64, EN+66, EN+71, EN+72, EN+77 , EN+78, EN+82, EN+85, EN+88, EN+90, EN+92, EN+94, 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+49, EN+82, INIT+1*
HLECH	EN+9~, EN+52, EN+55, EN+62, EN+66, EN+71, EN+77, EN+85, EN+90, 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+36, EN+38, EN+49, EN+62, EN+64, EN+71, EN+72, EN+77, EN+78 , EN+82, EN+85, EN+88, EN+90, EN+92, EN+94, 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+64, 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+88
PI	EN+10~
PI(	ALLER+1
RA1	EN+92~*, EN+94!
RA20	EN+68~, EN+70, EN+71, EN+76, EN+77
RACANC	EN+10~, EN+23*, EN+49, EN+90
RACN0	EN+10~, EN+19*, EN+21, EN+23, EN+43, EN+46, EN+65, EN+66, EN+82, EN+85 , EN+90, OBXHIST+1, OBXHIST+2
RACN00	EN+68~*, EN+70, EN+71, EN+76
>> RACNI	EN+17, EN+19, EN+62, OBXHIST+3, OBXHIST+4
RACPT	EN+10~, EN+24*
RACPTNDE	EN+10~, EN+24*, EN+52, EN+55
>> RADFN	EN+17, EN+19, EN+28, EN+36, EN+68, OBXHIST+3, OBXHIST+4, ALLER+1
RADTE	EN+10~, EN+23*, EN+62
>> RADTI	EN+17, EN+19, EN+23, EN+48, EN+62, EN+68, OBXHIST+3, OBXHIST+4
>> RAEID	EN+17, INIT+3
>> RAEXEDT	RAHLR+20
>> RAEXMDUN	RAHLR+19, EN+49
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+52, EN+55, EN+62
RAORC4	EN+46, EN+47, EN+48*, EN+49, EN+50!
RAPART	EN+92~*, EN+93!, EN+94!
RAPART(1	EN+92*, EN+94
RAPART(2	EN+92*, EN+94
RAPRCNDE	EN+10~, EN+24*, EN+52
RAPROC	EN+10~, EN+21*, EN+22, EN+24, EN+52
RAPROCIT	EN+10~, EN+22*, EN+23
RAPRV	EN+10~, EN+65*, EN+66
>> RASSSX(	EXIT+5
>> RASSSX1(	EXIT+6
RAVADM	EN+28!, EN+40!
RAVADM(3	EN+29*, EN+36
RAX0	EN+10~
U	EN+21, EN+22, EN+24, EN+43, EN+46, EN+52, EN+55, EN+70, EN+71, EN+76 , EN+77, EN+85, OBXHIST+2
VA	EN+10~, EN+28!
VA("PID"	EN+36
VADM	EN+10~, EN+28!
VADM(1	EN+28, EN+36
VADM(2	EN+38, EN+47
VADM(3	EN+29
VADM(5	EN+36
VAERR	EN+10~, EN+28!
X	EN+10~, EN+90, OBXHIST+4, ALLER+1*, ALLER+2
X0	EN+10~, EN+42, EN+43, EN+49, 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

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