Routine: RAUTL7

Package	Total	Call Graph
Radiology Nuclear Medicine	3	EN1^RASELCT ($$SETUPDI,DIVIACC,SELDIV,SELIMG)^RAUTL7 ($$IMGNUM,$$LOCNUM,SETUP,SETUPL)^RAUTL7A

Package	Total	Caller Graph
Radiology Nuclear Medicine	26	RACDR RACMP RACPT1 RADLQ1 RADLY RAESR RAFLM RALIST RALWKL RAMAIN RAMIS2 RANMUSE1 RANMUTL1 RAPM RAPMW RAPRC RAPRINT RART RARTE RARTE5 RARTUVR RASTAT RATRAN RAUTL7 RAWFR1 RAWKL

Entry Points

Name	Comments	DBIA/ICR reference
DIVIACC	; Sets up division and imaging access based on location. ; Requires RACCESS array. Creates 'DIV-IMG' elements of ; array: RACCESS(DUZ,"DIV-IMG",Division name,Imaging type name)=""
LOC1()	; Check if the user has access to more than one location ; Returns Rad/Nuc Med Location if one only. ; Returns Null if more than one Rad/Nuc Med Location, or no access
DIVLOC()	; Entry point to setup division/img-typ/img-loc access
SELIMG	; Select Imaging Type, if exists ; Prompts user to select Imaging Type(s). ; Creates ^TMP($J,"RA I-TYPE",Imaging Type name,Imaging Type IEN)=""
SELLOC	; Select Imaging Location ; Prompts user to select Imaging Location(s) ; Creates ^TMP($J,"RA LOC-TYPE",img-loc name,img-loc ien)
SELDIV	; Select Division, if exists ; Requires RACCESS "DIV" elements. Prompts user to select division(s). ; Creates ^TMP($J,"RA D-TYPE",Division name,Division IEN)="" which ; contains all divisions selected.
IMG1()	; Check if the user has access to more than one i-type ; Returns Imaging type name AND Imaging Type IEN if one only. ; Returns Null if more than one imaging type.
SETUPDI()	; Set up Division/Imaging Type access ; Requires RACCESS(DUZ,"IMG"). Passes back to calling routine ; a 1 if failure because user has no imaging type access based on ; location access (probably no location access in File 200) . ; Passes back 0 if success. Does a call to ; above routine to set up "DIV-IMG" elements of RACCESS array. ; If "DIV-IMG" elements do not exist, displays error message ; to user.
DIV1()	; Check if the user has access to more than one division ; Returns Division name AND Division IEN if one only. ; Returns Null if more than one division.

External References

Name	Field # of Occurrence
EN1^RASELCT	SELDIV+11, SELIMG+26, SELLOC+25
$$SETUPDI^RAUTL7	DIVLOC+1
DIVIACC^RAUTL7	SETUPDI+13
SELDIV^RAUTL7	DIVLOC+2
SELIMG^RAUTL7	DIVLOC+6
$$IMGNUM^RAUTL7A	SELIMG+11
$$LOCNUM^RAUTL7A	SELLOC+10
SETUP^RAUTL7A	SELIMG+11
SETUPL^RAUTL7A	SELLOC+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,"Please contact your ADPAC regarding access to" Line Location: DIVIACC+4
Function Call: WRITE	Prompt: !?5,"Imaging Locations.",$C(7) Line Location: DIVIACC+5
Function Call: WRITE	Prompt: !?5,"You do not have access to any Imaging Locations." Line Location: SETUPDI+10
Function Call: WRITE	Prompt: !?5,"Contact your ADPAC.",$C(7) Line Location: SETUPDI+11
Function Call: WRITE	Prompt: !?5,"You have no Imaging Location Access Privileges." Line Location: SETUPDI+15
Function Call: WRITE	Prompt: !?5,"Contact your ADPAC.",$C(7) Line Location: SETUPDI+16
Function Call: WRITE	Prompt: !! Line Location: SELIMG+26
Function Call: WRITE	Prompt: !! Line Location: SELLOC+25

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	DIVIACC+11, DIV1+4
^RA(79 - [#79]	DIVIACC+10
^RA(79.1 - [#79.1]	DIVIACC+9, SELLOC+14, LOC1+4
^RA(79.2 - [#79.2]	DIVIACC+12, SELIMG+15, IMG1+4
^SC - [#44]	SELLOC+6, SELLOC+15
^TMP($J	SELDIV+6, SELIMG+5, SELIMG+6, SELIMG+10, SELIMG+13, SELIMG+15, SELIMG+16, SELIMG+20, SELLOC+5, SELLOC+6 , SELLOC+9, SELLOC+12, SELLOC+14, SELLOC+16*, SELLOC+20, DIVLOC+3, DIVLOC+4!, DIVLOC+7, DIVLOC+8!, DIVLOC+10!

Label References

Name	Line Occurrences
$$DIV1	SELDIV+4
$$IMG1	SELIMG+3
$$LOC1	SELLOC+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%W	SELDIV+11!, SELIMG+26!, SELLOC+25!
%Y1	SELDIV+11!, SELIMG+26!, SELLOC+25!
DIC	SELDIV+11!, SELIMG+26!, SELLOC+25!
DUZ	DIVIACC+3, DIVIACC+8, DIVIACC+14, SETUPDI+9, SETUPDI+14, DIV1+3, DIV1+4, IMG1+3, IMG1+4, LOC1+3 , LOC1+4, DIVLOC+4, DIVLOC+8
RA	SELIMG+3~*
RA0	SELIMG+14~, SELIMG+15, SELIMG+16, SELLOC+13~, SELLOC+14, SELLOC+15*, SELLOC+16
RA1	SELIMG+14~, SELIMG+15, SELIMG+16, SELLOC+13~, SELLOC+14, SELLOC+16
>> RACCESS(	DIVIACC+3, DIVIACC+8, DIVIACC+14*, SETUPDI+9, SETUPDI+14, DIV1+3, DIV1+4, IMG1+3, IMG1+4, LOC1+3 , LOC1+4, DIVLOC+4!, DIVLOC+8!
RADIC	SELDIV+8, SELDIV+11!, SELIMG+18, SELIMG+26!, SELLOC+18*, SELLOC+25!
RADIC("A"	SELDIV+9, SELIMG+19, SELLOC+19*
RADIC("B"	SELDIV+9, SELIMG+19, SELLOC+19*
RADIC("S"	SELDIV+10, SELIMG+21, SELIMG+25, SELLOC+21, SELLOC+24*
RADIC(0	SELDIV+8, SELIMG+18, SELLOC+18*
RAIMGNUM	SELIMG+3~, SELIMG+11*, SELIMG+13
RALOCNUM	SELLOC+3~, SELLOC+10*, SELLOC+12
RAONE	SELDIV+4~, SELDIV+5, SELDIV+6, SELIMG+3~, SELIMG+5, SELIMG+6, SELLOC+3~*, SELLOC+5, SELLOC+6
>> RAQUIT	SELDIV+5, SELIMG+5, SELIMG+13, SELLOC+5, SELLOC+12*, DIVLOC+3, DIVLOC+7
RASUB	DIVLOC+6~*
RAUTIL	SELDIV+10, SELDIV+11!, SELIMG+18, SELIMG+26!, SELLOC+18*, SELLOC+25!
U	SELLOC+6, SELLOC+15
X	DIVIACC+7~, DIVIACC+8, DIVIACC+9, SELDIV+11!, SELIMG+26!, SELLOC+25!, DIV1+3~, DIV1+4, IMG1+3~, IMG1+4 , LOC1+3~, LOC1+4, DIVLOC+1~
X("DIV"	DIVIACC+9, DIVIACC+10, DIVIACC+11
X("IMG"	DIVIACC+10*, DIVIACC+12
X(0	DIVIACC+9*, DIVIACC+10
Y	DIVIACC+7~, SETUPDI+8~, SETUPDI+9, SETUPDI+14, SETUPDI+18, SELDIV+11!, SELIMG+26!, SELLOC+25!, DIV1+3~, DIV1+4 , IMG1+3~, IMG1+4, LOC1+3~, LOC1+4
Y("DIV"	DIVIACC+11*, DIVIACC+13, DIVIACC+14
Y("IMG"	DIVIACC+12*, DIVIACC+13, DIVIACC+14

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAUTL7

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 26

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: