RAUTL6 ;HISC/GJC-Utility Routine ;2/19/98 10:52
Source file <RAUTL6.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
VARACC(DUZ) | ; This subroutine will determine the Imaging Location,
; Imaging Type, and the Divisional access for a specific individual. ; Divisional Access as well as Imaging Type Access is derived from ; the Imaging Locs assigned to each Rad/Nuc Med user. If the user ; holds the RA ALLOC key, that user has access to all Imaging Locs. ; This in turn implies that the user has all Divisional and Imaging ; Type access related to each specific Imaging Location. |
|
DSPDIV | ; Display 'Divisional Access' data
|
|
DSPIMG | ; Display 'Imaging Type' data
|
|
DSPLOC | ; Display 'Imaging Location' data
|
|
; Print out data
|
||
DIVSION(RADATE,RALIFN) | ; Determine the division associated with the Requesting
; Location on a Rad/Nuc Med Order. Use the PIMS utilities in VASITE. ; Returns an institution file ptr value or -1 if the division ; could not be determined. ; Input - RADATE=a valid FileMan date (internal format) ; defaults to DT if passed in null ; RALIFN=Req. Location from Rad/Nuc Med Order. ; Output - RA1DIV=valid pointer the the Institution File, else -1 |
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 |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^SC - [#44] | GET1^DIQ |