Routine: RAUTL20

Package	Total	Call Graph
Kernel	1	$$UP^XLFSTR
Radiology Nuclear Medicine	1	($$SSANVAL,$$USESSAN)^RAHLRU1
VA Fileman	1	FILE^DIE

Package

Total

Call Graph

Kernel

$$UP^XLFSTR

Radiology Nuclear Medicine

($$SSANVAL,$$USESSAN)^RAHLRU1

VA Fileman

FILE^DIE

Package	Total	Caller Graph
Radiology Nuclear Medicine	25	RADD1 RADEM1 RAEDCN RAFLH RAHLO1 RAHLQ1 RAHLTCPB RAHLTCPX RAPROS RAPTLU RARIC RART RART3 RARTE RARTE2 RARTE6 RARTE7 RARTR3 RARTRPV1 RARTUVR3 RARTVER1 RASTED RAUTL1 RAUTL11 RAUTL2

Package

Total

Caller Graph

Radiology Nuclear Medicine

RADD1  RADEM1  RAEDCN  RAFLH  RAHLO1  RAHLQ1  RAHLTCPB  RAHLTCPX
RAPROS  RAPTLU  RARIC  RART  RART3  RARTE  RARTE2  RARTE6
RARTE7  RARTR3  RARTRPV1  RARTUVR3  RARTVER1  RASTED  RAUTL1  RAUTL11
RAUTL2

Entry Points

Name	Comments	DBIA/ICR reference
XPRI1
XPRI	;loop thru sub-file #74.05 to set/kill prim. xref for other prt members
EN2(RA4)	; display all print members' procs during report editing/printg
XSEC1
EN3(RA4)	; for print set, AFTER record is created in rarpt()
EN1	; for displaying + and . during case lookup
DELPNT(RADFN,RADTI,RACNI)	; When an exam is cancelled & it is associated ; with data in the Nuc Med Exam Data file (70.2) ask the user if this ; pointer to 70.2 is to be deleted. Also delete the flag which ; indicates that the dosage ticket had printed for this exam. ; Called from CANCEL^RAEDCN ; Input: RADFN - Internal Entry Number (IEN) of the Patient. ; RADTI - Date/Time of the examination (inverse format) ; RACNI - IEN of the exam for this date/time
LOOP1	; RA1= : for-loop var which happens to be the CASE NUMBER (70.03; .01) ; RA2= : (1) ien for 70.03 (2) also, pointer value to file #74 ; RA3= : holds earliest case with pointer value to file #74 ; RA4= : (ienof #70.03)=case number^procedure pointers^ptr #74 ; RA5=0 : all cases in set point to same non-null rarpt() or all null ; regardless of cancelled status ; RA5<>0: one or more cases in set point to different rarpt() ; RA6= : pointer to file #72 examination status ; RA7=1 : denote call of LOOP1 came from EN2 and not from EN1
XSEC	;loop thru sub-file #74.05 to set/kill sec. xref for other print members
XSEC2
FLAGMEM()	;in distr list, print + if case is part of a print set ; called from File #74's print templates

Name	Field # of Occurrence
FILE^DIE	DELPNT+11, DELPNT+22
$$SSANVAL^RAHLRU1	LOOP1+12
$$USESSAN^RAHLRU1	LOOP1+15, LOOP1+16
$$UP^XLFSTR	DELPNT+19

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?3,"Enter 'Yes' to delete the radiopharmaceutical data associated with this exam.",!?3,"Enter 'No' to preserve the radiopharmaceutical data associated with this",!?3,"exam. " Line Location: DELPNT+30
Function Call: WRITE	Prompt: "Enter '^' to exit without deleting the radiopharmaceutical data",!?3,"associated with this exam.",$C(7) Line Location: DELPNT+31
Routine Call	DIE Line Location: DELPNT+11 DELPNT+22

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RA(72 - [#72]	LOOP1+19
^RABTCH(74.4 - [#74.4]	FLAGMEM+4
^RADPT - [#70]	EN1+7, EN1+9, EN1+12, EN1+14, LOOP1+9, LOOP1+11, LOOP1+17, EN2+9, EN2+11, EN3+11 , XPRI1+2, XPRI1+3, XSEC1+2, XSEC1+3, XSEC2, DELPNT+13
^RARPT - [#74]	EN3+11, XPRI+2, XPRI1, XPRI1+5, XPRI1+6!, XSEC+2, XSEC1, XSEC2+2, XSEC2+3!, FLAGMEM+5

Name	Line Occurrences
LOOP1	EN1+14, EN2+11
XPRI1	XPRI1+3, XPRI1+4, XPRI1+7
XSEC1	XSEC1+3, XSEC2
XSEC2	XSEC2+1, XSEC2+4

Name	Field # of Occurrence
^(	EN1+12, XSEC1+3, XSEC2
^(0	LOOP1+17, XPRI1+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> D0	FLAGMEM+3, FLAGMEM+4
>> DA	XPRI+1, XPRI+2, XPRI1, XPRI1+5, XPRI1+6, XSEC+1, XSEC+2, XSEC1, XSEC2+2, XSEC2+3
DTIME	DELPNT+16
RA1	EN1+6~, EN1+12, EN1+13, EN1+14, LOOP1+9, LOOP1+13, LOOP1+16, EN2+7~, EN2+8, EN2+11 , EN3+4~, EN3+5, EN3+11, XPRI+3~, XPRI1, XPRI1+2, XSEC+3~, XSEC1, XSEC1+2, FLAGMEM+2~ , FLAGMEM+3, FLAGMEM+4, FLAGMEM+5, FLAGMEM+6
RA2	EN1+6~, LOOP1+9, LOOP1+11, LOOP1+12, LOOP1+15, LOOP1+16, LOOP1+17, LOOP1+19, LOOP1+20, LOOP1+21 , EN2+7~, EN3+4~, EN3+11, XSEC+3~, XSEC1+4, XSEC2*
RA200	XPRI+3~, XPRI1+3, XPRI1+4, XPRI1+5, XPRI1+6, XSEC+3~, XSEC2, XSEC2+1, XSEC2+2, XSEC2+3
RA3	EN1+6~, LOOP1+20, LOOP1+21, EN2+7~, EN3+4~, EN3+11*
RA4	EN1+6~, LOOP1+15, LOOP1+16, LOOP1+17, EN2~, EN3~
RA4(	LOOP1+15, LOOP1+16, LOOP1+17, EN2+8!, EN3+5!, EN3+11
RA5	EN1+6~, EN1+15, LOOP1+21, EN2+7~, EN2+12, EN3+4~, EN3+6, EN3+11
RA6	EN1+6~, LOOP1+17*, LOOP1+19, EN2+7~
RA7	EN1+6~, LOOP1+15, LOOP1+16, LOOP1+17, EN2+7~*
RACN	EN1+6~, EN1+7*
RACNDSP	LOOP1+12~, LOOP1+13*, LOOP1+15
RACNI	EN1+2, EN1+3, EN1+7, EN1+9, EN1+13, EN2+2, EN2+3, EN2+9, DELPNT~, DELPNT+10 , DELPNT+13, DELPNT+21
>> RACNIZ	XPRI1+2, XPRI1+3, XSEC1+2, XSEC1+3, XSEC2
RADFN	EN1+2, EN1+3, EN1+7, EN1+9, EN1+12, EN1+14, LOOP1+9, LOOP1+11, LOOP1+12, LOOP1+17 , EN2+2, EN2+3, EN2+9, EN2+11, EN3+1, EN3+2, EN3+11, DELPNT~, DELPNT+10, DELPNT+13 , DELPNT+21
>> RADFNZ	XPRI+1, XPRI1+2, XPRI1+3, XSEC+1, XSEC1+2, XSEC1+3, XSEC2
RADTI	EN1+2, EN1+3, EN1+7, EN1+9, EN1+12, EN1+14, LOOP1+9, LOOP1+11, LOOP1+12, LOOP1+17 , EN2+2, EN2+3, EN2+9, EN2+11, EN3+1, EN3+2, EN3+11, DELPNT~, DELPNT+10, DELPNT+13 , DELPNT+21
>> RADTIZ	XPRI+1, XPRI1+2, XPRI1+3, XSEC+1, XSEC1+2, XSEC1+3, XSEC2
RAFDA	DELPNT+10~, DELPNT+14!, DELPNT+21~
RAFDA(	DELPNT+10, DELPNT+21
>> RAIEN	EN3+6
>> RAKILL	XPRI1+6, XSEC2+3
>> RAMEMLOW	EN1+8, EN1+13, EN1+15*
>> RAPRTSET	EN1+1, EN1+9, EN1+10, EN1+15, EN2+1, EN2+9, EN2+10, EN2+12
>> RARAD	XPRI+1
>> RARADOLD	XPRI1+3
>> RARPT	EN3+6
>> RASECOND	XSEC+1, XSEC1+3, XSEC2
>> RASET	XPRI1+5, XSEC2+2
RASSAN	LOOP1+12~*, LOOP1+13
>> RAXREF	XPRI+1, XPRI1+5, XPRI1+6, XSEC+1, XSEC2+2, XSEC2+3
RAYN	DELPNT+14~, DELPNT+15, DELPNT+16, DELPNT+17, DELPNT+18, DELPNT+19, DELPNT+20, DELPNT+32*
U	EN1+12, FLAGMEM+4

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAUTL20

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 25

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: