Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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)=""
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.
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.
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)
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.
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.
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

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
Info |  Source |  Entry Points |  Interaction Calls