RAUTL7 ;HISC/CAH,FPT,GJC-Utility for RACCESS array ;5/8/97 14:55
Source file <RAUTL7.m>
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
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|