RAUTL7 ;HISC/CAH,FPT,GJC-Utility for RACCESS array ;5/8/97 14:55
Source file <RAUTL7.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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 |
|
| 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! |
| >> | 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 |
