Routine: RAHLR1

Package	Total	Call Graph
Radiology Nuclear Medicine	3	EN^RAHLR1A ($$ESCAPE,GENERATE,INIT)^RAHLRU ($$REPEAT,BLSEG,PID,PV1)^RAHLRU1
Kernel	2	$$FMTHL7^XLFDT $$HLNAME^XLFNAME
Uncategorized	1	NPFON^MAG7UFO
VA Fileman	1	$$GET1^DIQ

Package

Total

Call Graph

Radiology Nuclear Medicine

EN^RAHLR1A ($$ESCAPE,GENERATE,INIT)^RAHLRU ($$REPEAT,BLSEG,PID,PV1)^RAHLRU1

Kernel

$$FMTHL7^XLFDT $$HLNAME^XLFNAME

Uncategorized

NPFON^MAG7UFO

VA Fileman

$$GET1^DIQ

Package	Total	Caller Graph
Radiology Nuclear Medicine	2	RAHLR RAHLRPT1

Package

Total

Caller Graph

Radiology Nuclear Medicine

RAHLR RAHLRPT1

Entry Points

Name	Comments	DBIA/ICR reference
PV1	;compile the PV1 segment determine if the patient is
EN(RADFN,RADTI,RACNI,RAEID)	;Called from RA REG, RA EXAMINED, & RA CANCEL*
PID	;compile the PID segment
INIT	;initialize some basic package specific variables
ORC	;build the 'common order segment (ORC) segment
PARENT(PRGE,PRNT)	;Define fields ORC-8 & OBR-29 known as PARENT ; input: PRGE=purge date of the exam (if applicable) ; PRNT=parent/descendant if yes, specify if exam or printset

External References

Name	Field # of Occurrence
$$GET1^DIQ	ORC+37, ORC+43, ORC+49, ORC+60, ORC+61
NPFON^MAG7UFO	ORC+55
EN^RAHLR1A	ORC+67
$$ESCAPE^RAHLRU	ORC+49, ORC+56
GENERATE^RAHLRU	ORC+70
INIT^RAHLRU	EN+14
$$REPEAT^RAHLRU1	ORC+28
BLSEG^RAHLRU1	ORC+64
PID^RAHLRU1	PID+1
PV1^RAHLRU1	PV1+2
$$FMTHL7^XLFDT	ORC+28, ORC+34
$$HLNAME^XLFNAME	ORC+40, ORC+46

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

Name	Line Occurrences (* Changed, ! Killed)
^RA(72 - [#72]	ORC+4
^RADPT - [#70]	INIT+2, INIT+3, INIT+4
^RAMIS(71 - [#71]	INIT+18, PARENT+6
^RAO(75.1 - [#75.1]	INIT+16, INIT+17

Name	Line Occurrences
$$PARENT	ORC+30
INIT	EN+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DT	PARENT+5
>> HL	EN+14
>> HLECH	ORC+28, ORC+40, ORC+46, ORC+56, ORC+62
>> HLFS	EN+14
I	EN+12~, ORC+54~, ORC+56
I1	EN+12~
I2	EN+12~
I3	EN+12~
II	EN+12~
M	ORC+54~, ORC+56, ORC+57
PRGE	PARENT~, PARENT+5
PRNT	PARENT~, PARENT+6
>> RA101Z	ORC+21
RACANC	ORC+5*, ORC+6, ORC+11, ORC+65!
RACNI	EN~, INIT+3, INIT+4
RACOMP	ORC+5*, ORC+11, ORC+65!
RADFN	EN~, PID+1, PV1+2, INIT+2, INIT+3, INIT+4
RADTI	EN~, INIT+2, INIT+3, INIT+4, INIT+5
RAEID	EN~
>> RAEXEDT	EN+17
>> RAEXMDUN	EN+17, ORC+6
RAOBR	EN+12~
RAOBX	EN+12~
>> RAOPT(""	ORC+21
RAORC	EN+12~, ORC+64
RAORC(10	ORC+34*
RAORC(11	ORC+40*
RAORC(13	ORC+46*
RAORC(14	ORC+50*
RAORC(15	ORC+57*
RAORC(18	ORC+62*
RAORC(2	ORC+6*
RAORC(3	ORC+10*
RAORC(4	ORC+10*
RAORC(6	ORC+11, ORC+21
RAORC(8	ORC+28*
RAORC(9	ORC+30*
RAPID	EN+12~
>> RAPURGE	ORC+30, INIT+4*
RAPV1	EN+12~
RASERSEC	ORC+49*, ORC+50, ORC+62, ORC+65!
RASERSEC(0	ORC+60*, ORC+61
RASERSEC(1	ORC+61*, ORC+62
RAX	EN+12~, ORC+54~
RAX(	ORC+56
RAXAMSTS	ORC+4*, ORC+5, ORC+65!
>> RAZDAYCS	ORC+10, INIT+13, INIT+14
>> RAZDTE	INIT+5*, INIT+13
RAZNME	ORC+40, ORC+44!, ORC+46, ORC+65!
RAZNME("FIELD"	ORC+39, ORC+45
RAZNME("FILE"	ORC+38, ORC+44
RAZNME("IENS"	ORC+38, ORC+44
>> RAZORD	ORC+28, ORC+37, ORC+38, ORC+40, ORC+43, ORC+44, ORC+46, ORC+49, ORC+55, ORC+60 , INIT+16*, PARENT+6
>> RAZORD1	INIT+17*
RAZPHONE	ORC+65!
>> RAZPROC	INIT+18*
>> RAZRXAM	ORC+34, INIT+2*
>> RAZXAM	EN+17, ORC+4, ORC+30, INIT+3*, INIT+13, INIT+14, INIT+16, INIT+17, INIT+18
U	EN+17, ORC+4, ORC+28, ORC+30, ORC+34, ORC+37, ORC+38, ORC+40, ORC+43, ORC+44 , ORC+46, ORC+49, ORC+55, ORC+60, INIT+1*, INIT+16, INIT+17, INIT+18, PARENT+6
>> VALUE	PARENT+5, PARENT+6, PARENT+7
X	EN+12~
XX	EN+12~

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAHLR1

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 2

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items