Routine: RAHLRPT1

Package	Total	Call Graph
Radiology Nuclear Medicine	6	$$NAMCODE^RACPTMSC INIT^RAHLR1 ZDS^RAHLR1A ($$OBX11,OBXCPTM,OBXRPT,OBXTCOM)^RAHLRPT2 ($$ESCAPE,$$OBR21,GENERATE,OBR16)^RAHLRU ($$REPEAT,$$SPECSRC,BLSEG,PID)^RAHLRU1
Kernel	2	$$FMTHL7^XLFDT $$HLNAME^XLFNAME
VA FileMan	2	$$GET1^DIQ ^DIWP
Imaging	1	NPFON^MAG7UFO

Package	Total	Caller Graph
Radiology Nuclear Medicine	1	RAHLRPT

Entry Points

Name	Comments	DBIA/ICR reference
EN(RADFN,RADTI,RACNI,RAEID)	;Called from all RA RPT* event driver protocols whose
PID	;Compile the 'PID' segment
OBR	;Compile 'OBR' Segment
OBXPRC	;Compile 'OBX' Segment for Procedure
OBXIMP	;Compile the 'OBX' segment for Impression Text
OBXDX	;Compile the 'OBX' segment for Diagnostic Code
OBXPMOD	;Compile 'OBX' segment for procedure modifiers
OBXTCOM	;Compile 'OBX' segment for tech comments
OBXCPTM	;Compile 'OBX' segment for CPT modifiers
OBXRPT	;Compile 'OBX' segment for Report Text
INTNAM(Y)	;return the name of the intepreter(s) ; input: Y=IEN of the record in the New Person (#200) file ; CNT=second level subscript is newed,initialized and checked above

External References

Name	Field # of Occurrence
$$GET1^DIQ	OBR+30, OBR+78, OBR+86, OBR+96
^DIWP	OBXIMP+7
NPFON^MAG7UFO	OBR+35
$$NAMCODE^RACPTMSC	OBR+11
INIT^RAHLR1	EN+17
ZDS^RAHLR1A	OBR+105
$$OBX11^RAHLRPT2	OBXPRC+5, OBXIMP+4, OBXDX+6, OBXPMOD+3
OBXCPTM^RAHLRPT2	OBXCPTM+1
OBXRPT^RAHLRPT2	OBXRPT+1
OBXTCOM^RAHLRPT2	OBXTCOM+1
$$ESCAPE^RAHLRU	OBR+17, OBR+18, OBR+36, OBXPRC+4, OBXIMP+11, OBXDX+5, OBXDX+15, OBXPMOD+7
$$OBR21^RAHLRU	OBR+56
GENERATE^RAHLRU	OBXRPT+4
OBR16^RAHLRU	OBR+30
$$REPEAT^RAHLRU1	OBR+24
$$SPECSRC^RAHLRU1	OBR+23
BLSEG^RAHLRU1	OBR+102, OBXPRC+6, OBXIMP+12, OBXDX+7, OBXDX+16, OBXPMOD+8
PID^RAHLRU1	PID+1
$$FMTHL7^XLFDT	OBR+20, OBR+67
$$HLNAME^XLFNAME	OBR+82, OBR+98, INTNAM+5

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RA(78.3 - [#78.3]	OBXDX+5, OBXDX+14
^RADPT - [#70]	OBR+91, OBXDX+10, OBXDX+12, OBXDX+13, OBXPMOD+4, OBXPMOD+5
^RAMIS(71 - [#71]	OBR+75, OBXPRC+4
^RAMIS(71.2 - [#71.2]	OBXPMOD+7
^RARPT - [#74]	OBR+5, OBXIMP+2, OBXIMP+6, OBXIMP+7
^UTILITY($J	OBXIMP+5!, OBXIMP+9, OBXIMP+11, OBXIMP+16!

Label References

Name	Line Occurrences
INTNAM	OBR+87, OBR+92

Naked Globals

Name	Field # of Occurrence
^(	OBR+91

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EN+15~
CNT	OBR+85~, OBR+89, OBR+91, INTNAM+4, INTNAM+5
DIW	OBXIMP+16!
DIWF	OBXIMP+5*, OBXIMP+16!
DIWI	OBXIMP+16!
DIWL	OBXIMP+5*, OBXIMP+16!
DIWR	OBXIMP+5*, OBXIMP+16!
DIWT	OBXIMP+16!
DIWTC	OBXIMP+16!
DIWX	OBXIMP+16!
DN	EN+15~
DT	OBR+11
FT	EN+15~
>> HLDT1	OBR+67
>> HLECH	OBR+17, OBR+18, OBR+24, OBR+36, OBR+56, OBR+82, OBR+98, OBXPRC+3, OBXPRC+4, OBXIMP+3 , OBXDX+4, OBXDX+5, OBXDX+15, OBXPMOD+2, INTNAM+5
I	EN+15~, OBR+34~, OBR+36
J	EN+15~
M	OBR+34~, OBR+36, OBR+37
PTR	EN+15~
RACNI	EN~, OBR+91, OBR+105, OBXDX+10, OBXDX+12, OBXDX+13, OBXPMOD+4, OBXPMOD+5
RADFN	EN~, PID+1, OBR+91, OBXDX+10, OBXDX+12, OBXDX+13, OBXPMOD+4, OBXPMOD+5
RADIWL	OBXIMP+5*, OBXIMP+9, OBXIMP+11, OBXIMP+16!
RADTI	EN~, OBR+91, OBR+105, OBXDX+10, OBXDX+12, OBXDX+13, OBXPMOD+4, OBXPMOD+5
RAEID	EN~
RAFT	OBXDX+14*, OBXDX+15, OBXDX+20!
RAI	OBR+85~, OBR+89, OBR+91, OBXIMP+6, OBXIMP+7, OBXIMP+9, OBXIMP+11, OBXDX+11, OBXDX+12, OBXDX+13 , OBXPMOD+3, OBXPMOD+4*, OBXPMOD+5
RAJ	OBR+85~, OBR+90, OBR+91, OBXIMP+9, OBXIMP+10, OBXDX+11, OBXDX+15, OBXPMOD+1, OBXPMOD+3, OBXPMOD+5* , OBXPMOD+6
RAJ(0	OBR+91*, OBR+92
>> RAOBR	OBR+102
>> RAOBR(16	OBR+24*
>> RAOBR(18	OBR+37*
>> RAOBR(19	OBR+40*
>> RAOBR(2	OBR+7*
>> RAOBR(20	OBR+47*
>> RAOBR(21	OBR+52*
>> RAOBR(22	OBR+56*
>> RAOBR(23	OBR+67*
>> RAOBR(26	OBR+72*
>> RAOBR(3	OBR+10*
>> RAOBR(30	OBR+75*
>> RAOBR(33	OBR+82*
>> RAOBR(34	INTNAM+5*
>> RAOBR(36	OBR+98*
>> RAOBR(4	OBR+10*
>> RAOBR(5	OBR+17, OBR+18
>> RAOBR(8	OBR+20*
RAOBX	OBXPRC+6!, OBXIMP+12, OBXIMP+16!, OBXDX+7, OBXDX+16, OBXDX+20!, OBXPMOD+8, OBXPMOD+11!
RAOBX(12	OBXPRC+5, OBXIMP+4, OBXDX+6, OBXPMOD+3
RAOBX(2	OBXPRC+2, OBXIMP+1, OBXIMP+10, OBXIMP+14, OBXDX+1, OBXDX+3, OBXDX+8, OBXDX+15, OBXDX+18, OBXPMOD+1* , OBXPMOD+6*, OBXPMOD+10
RAOBX(3	OBXPRC+3, OBXIMP+3, OBXDX+3, OBXPMOD+2
RAOBX(4	OBXPRC+3, OBXIMP+3, OBXDX+4, OBXPMOD+2
RAOBX(6	OBXPRC+4, OBXIMP+11, OBXDX+5, OBXDX+15, OBXPMOD+7*
RAPTR	OBXDX+13, OBXDX+14, OBXDX+15, OBXDX+20!, OBXPMOD+5, OBXPMOD+7, OBXPMOD+11!
>> RARPT	OBR+3
>> RAVAQ	OBR+3
RAX	OBR+34~
RAX(	OBR+36
>> RAXX	OBXPRC+2, OBXIMP+1, OBXIMP+10, OBXIMP+14, OBXDX+1, OBXDX+3, OBXDX+8, OBXDX+15, OBXDX+18, OBXPMOD+1 , OBXPMOD+6, OBXPMOD+10*
>> RAZCPT	OBR+11*
>> RAZCPT(0	OBR+11*, OBR+17
>> RAZDAYCS	OBR+10, OBR+40, OBR+47, OBR+52, OBR+105
RAZNME	OBR+79!, OBR+82, OBR+87!, OBR+89!, OBR+98!, INTNAM+5!
RAZNME("FIELD"	OBR+80, OBR+97, INTNAM+3*
RAZNME("FILE"	OBR+79, OBR+97, INTNAM+3*
RAZNME("IENS"	OBR+79, OBR+97, INTNAM+3*
>> RAZORD	OBR+35, OBR+75
>> RAZPMOD	OBR+23*, OBR+24
>> RAZPROC	OBR+11, OBR+18
>> RAZRPT	OBR+2, OBR+3, OBR+5*, OBR+20, OBR+67, OBR+72
>> RAZRXAM	OBR+56
>> RAZTRANS	OBR+5*, OBR+96, OBR+97, OBR+98
>> RAZXAM	OBR+2, OBR+5, OBR+18, OBR+23, OBR+30, OBR+74, OBR+75, OBR+78, OBR+79, OBR+82 , OBR+86, OBR+87, OBXPRC+4, OBXPRC+5, OBXIMP+2, OBXIMP+4, OBXIMP+6, OBXIMP+7, OBXDX+2, OBXDX+5 , OBXDX+6, OBXPMOD+3
U	OBR+2, OBR+5, OBR+11, OBR+17, OBR+18, OBR+20, OBR+23, OBR+30, OBR+35, OBR+67 , OBR+72, OBR+74, OBR+75, OBR+78, OBR+79, OBR+82, OBR+86, OBR+87, OBXPRC+4, OBXPRC+5 , OBXIMP+2, OBXIMP+4, OBXIMP+6, OBXIMP+7, OBXDX+2, OBXDX+5, OBXDX+6, OBXDX+14, OBXPMOD+3, OBXPMOD+7
X	EN+15~, OBXIMP+7*
Y	EN+15~, INTNAM~, INTNAM+3, INTNAM+5

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAHLRPT1

Information

Source Information

Call Graph

Call Graph Total: 11

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: