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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: RAUTL6

Package: Radiology Nuclear Medicine

Routine: RAUTL6


Information

RAUTL6 ;HISC/GJC-Utility Routine ;2/19/98 10:52

Source Information

Source file <RAUTL6.m>

Entry Points

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 ; 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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,"Access to Radiology/Nuclear Medicine Divisional data is not "
  • Line Location: DSPDIV+3
Function Call: WRITE
  • Prompt: "authorized.",$C(7)
  • Line Location: DSPDIV+4
Function Call: WRITE
  • Prompt: !?5,Y1
  • Line Location: DSPDIV+6
Function Call: WRITE
  • Prompt: !
  • Line Location: DSPDIV+12
Function Call: WRITE
  • Prompt: !?5,"Access to Imaging Type data is not authorized."
  • Line Location: DSPIMG+3
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: DSPIMG+4
Function Call: WRITE
  • Prompt: !?5,Y1
  • Line Location: DSPIMG+6
Function Call: WRITE
  • Prompt: !
  • Line Location: DSPIMG+14
Function Call: WRITE
  • Prompt: !?5,"Access to Imaging Location data is not authorized.",$C(7)
  • Line Location: DSPLOC+3
Function Call: WRITE
  • Prompt: !?5,Y1
  • Line Location: DSPLOC+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DSPLOC+10
Function Call: WRITE
  • Prompt: !?5,Y2
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: ?45,Y2
  • Line Location: PRINT+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SC - [#44] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call