Routine: RAHLRPT1

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

Package	Total	Caller Graph
Radiology Nuclear Medicine	1	RAHLRPT

Entry Points

Name	Comments	DBIA/ICR reference
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
OBXCPTM	;Compile 'OBX' segment for CPT modifiers
EN(RADFN,RADTI,RACNI,RAEID)	;Called from all RA RPT* event driver protocols whose
PID	;Compile the 'PID' segment
OBXPMOD	;Compile 'OBX' segment for procedure modifiers
OBXTCOM	;Compile 'OBX' segment for tech comments
OBXRPT	;Compile 'OBX' segment for Report Text
OBXPRC	;Compile 'OBX' Segment for Procedure
OBXDX	;Compile the 'OBX' segment for Diagnostic Code
OBXIMP	;Compile the 'OBX' segment for Impression Text
OBR	;Compile 'OBR' Segment

External References

Name	Field # of Occurrence
$$GET1^DIQ	OBR+26, OBR+71, OBR+79, OBR+89
^DIWP	OBXIMP+7
NPFON^MAG7UFO	OBR+35
$$NAMCODE^RACPTMSC	OBR+10
INIT^RAHLR1	EN+17
ZDS^RAHLR1A	OBR+98
$$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+16, OBR+17, OBR+36, OBXPRC+4, OBXIMP+11, OBXDX+5, OBXDX+15, OBXPMOD+7
$$OBR21^RAHLRU	OBR+56
GENERATE^RAHLRU	OBXRPT+4
$$REPEAT^RAHLRU1	OBR+23
$$SPECSRC^RAHLRU1	OBR+22
BLSEG^RAHLRU1	OBR+95, OBXPRC+6, OBXIMP+12, OBXDX+7, OBXDX+16, OBXPMOD+8
PID^RAHLRU1	PID+1
$$FMTHL7^XLFDT	OBR+19, OBR+61, OBR+62
$$HLNAME^XLFNAME	OBR+29, OBR+75, OBR+91, 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+84, OBXDX+10, OBXDX+12, OBXDX+13, OBXPMOD+4, OBXPMOD+5
^RAMIS(71 - [#71]	OBR+68, OBXPRC+4
^RAMIS(71.2 - [#71.2]	OBXPMOD+7
^RARPT - [#74]	OBR+4, OBXIMP+2, OBXIMP+6, OBXIMP+7
^UTILITY($J	OBXIMP+5!, OBXIMP+9, OBXIMP+11, OBXIMP+16!

Label References

Name	Line Occurrences
INTNAM	OBR+80, OBR+85

Naked Globals

Name	Field # of Occurrence
^(	OBR+84

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EN+15~
CNT	OBR+78~, OBR+82, OBR+84, 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+10
FT	EN+15~
>> HLECH	OBR+16, OBR+17, OBR+23, OBR+29, OBR+36, OBR+56, OBR+75, OBR+91, 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+84, OBR+98, OBXDX+10, OBXDX+12, OBXDX+13, OBXPMOD+4, OBXPMOD+5
RADFN	EN~, PID+1, OBR+84, OBXDX+10, OBXDX+12, OBXDX+13, OBXPMOD+4, OBXPMOD+5
RADIWL	OBXIMP+5*, OBXIMP+9, OBXIMP+11, OBXIMP+16!
RADTI	EN~, OBR+84, OBR+98, OBXDX+10, OBXDX+12, OBXDX+13, OBXPMOD+4, OBXPMOD+5
RAEID	EN~
RAFT	OBXDX+14*, OBXDX+15, OBXDX+20!
RAI	OBR+78~, OBR+82, OBR+84, OBXIMP+6, OBXIMP+7, OBXIMP+9, OBXIMP+11, OBXDX+11, OBXDX+12, OBXDX+13 , OBXPMOD+3, OBXPMOD+4*, OBXPMOD+5
RAJ	OBR+78~, OBR+83, OBR+84, OBXIMP+9, OBXIMP+10, OBXDX+11, OBXDX+15, OBXPMOD+1, OBXPMOD+3, OBXPMOD+5* , OBXPMOD+6
RAJ(0	OBR+84*, OBR+85
>> RAOBR	OBR+95
>> RAOBR(16	OBR+23*
>> RAOBR(17	OBR+29*
>> RAOBR(18	OBR+37*
>> RAOBR(19	OBR+40*
>> RAOBR(2	OBR+6*
>> RAOBR(20	OBR+47*
>> RAOBR(21	OBR+52*
>> RAOBR(22	OBR+56*
>> RAOBR(23	OBR+61, OBR+62
>> RAOBR(26	OBR+65*
>> RAOBR(3	OBR+9*
>> RAOBR(30	OBR+68*
>> RAOBR(33	OBR+75*
>> RAOBR(34	INTNAM+5*
>> RAOBR(36	OBR+91*
>> RAOBR(4	OBR+9*
>> RAOBR(5	OBR+16, OBR+17
>> RAOBR(8	OBR+19*
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!
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+10*
>> RAZCPT(0	OBR+10*, OBR+16
>> RAZDAYCS	OBR+9, OBR+40, OBR+47, OBR+52, OBR+98
RAZNME	OBR+27!, OBR+29, OBR+72!, OBR+75, OBR+80!, OBR+82!, OBR+91!, INTNAM+5!
RAZNME("FIELD"	OBR+28, OBR+73, OBR+90, INTNAM+3
RAZNME("FILE"	OBR+27, OBR+72, OBR+90, INTNAM+3
RAZNME("IENS"	OBR+27, OBR+72, OBR+90, INTNAM+3
>> RAZORD	OBR+26, OBR+27, OBR+29, OBR+35, OBR+68
>> RAZPMOD	OBR+22*, OBR+23
>> RAZPROC	OBR+10, OBR+17
>> RAZRPT	OBR+2, OBR+4, OBR+19, OBR+61, OBR+62, OBR+65
>> RAZRXAM	OBR+56
>> RAZTRANS	OBR+4*, OBR+89, OBR+90, OBR+91
>> RAZXAM	OBR+2, OBR+4, OBR+17, OBR+22, OBR+67, OBR+68, OBR+71, OBR+72, OBR+75, OBR+79 , OBR+80, OBXPRC+4, OBXPRC+5, OBXIMP+2, OBXIMP+4, OBXIMP+6, OBXIMP+7, OBXDX+2, OBXDX+5, OBXDX+6 , OBXPMOD+3
U	OBR+2, OBR+4, OBR+10, OBR+16, OBR+17, OBR+19, OBR+22, OBR+26, OBR+27, OBR+29 , OBR+35, OBR+61, OBR+62, OBR+65, OBR+67, OBR+68, OBR+71, OBR+72, OBR+75, OBR+79 , OBR+80, 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

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: