Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: RAUTL7

Package: Radiology Nuclear Medicine

Routine: RAUTL7


Information

RAUTL7 ;HISC/CAH,FPT,GJC-Utility for RACCESS array ;5/8/97 14:55

Source Information

Source file <RAUTL7.m>

Call Graph

Call Graph Total: 3

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

Caller Graph

Caller Graph Total: 26

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All