Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Registration 1 ($$PRIM,$$SITE)^VASITE  
VA Fileman 1 $$GET1^DIQ  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Radiology Nuclear Medicine 5 RACTRG2  RAPRI  RAPSET  RARTST  RAUTL8  

Entry Points

Name Comments DBIA/ICR reference
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
DSPLOC ; Display 'Imaging Location' data
DSPDIV ; Display 'Divisional Access' data
DSPIMG ; Display 'Imaging Type' data
PRINT ; Print out data
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.

External References

Name Field # of Occurrence
$$GET1^DIQ DIVSION+10
$$PRIM^VASITE DIVSION+13
$$SITE^VASITE DIVSION+10, DIVSION+13

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] VARACC+51
^RA(79 - [#79] VARACC+50
^RA(79.1 - [#79.1] VARACC+17, VARACC+18, VARACC+33, VARACC+49, VARACC+65
^RA(79.2 - [#79.2] VARACC+66
^SC - [#44] VARACC+19, VARACC+34
^VA(200 - [#200] VARACC+29, VARACC+31, VARACC+32
^XUSEC("RA ALLOC" VARACC+15

Label References

Name Line Occurrences
PRINT DSPDIV+10, DSPIMG+11, DSPLOC+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DT DIVSION+8
DUZ VARACC~, VARACC+8, VARACC+15, VARACC+20, VARACC+29, VARACC+31, VARACC+32, VARACC+34, VARACC+46, VARACC+48
, VARACC+51, VARACC+62, VARACC+64, VARACC+67
RA1DIV DIVSION+8~, DIVSION+10*, DIVSION+13*, DIVSION+14
>> RACCESS( VARACC+20*, VARACC+34*, VARACC+46, VARACC+48, VARACC+51*, VARACC+62, VARACC+64, VARACC+67*, DSPDIV+2, DSPDIV+7
, DSPDIV+8, DSPDIV+9, DSPIMG+2, DSPIMG+7, DSPIMG+9, DSPIMG+10, DSPLOC+2, DSPLOC+6, DSPLOC+7
RADATE DIVSION~, DIVSION+8*, DIVSION+10, DIVSION+13
RADIV VARACC+8~
RADIV(0 VARACC+49*
RADIV(1 VARACC+49*, VARACC+50, VARACC+51
RADIV(2 VARACC+50*, VARACC+51
>> RADUZ DSPDIV+2, DSPDIV+7, DSPDIV+8, DSPDIV+9, DSPIMG+2, DSPIMG+7, DSPIMG+9, DSPIMG+10, DSPLOC+2, DSPLOC+6
, DSPLOC+7
RAIMG VARACC+8~
RAIMG(0 VARACC+65*
RAIMG(1 VARACC+65*, VARACC+66, VARACC+67
RAIMG(2 VARACC+66*, VARACC+67
RAINDX VARACC+8~, VARACC+16*, VARACC+17*, VARACC+18, VARACC+20, VARACC+30*, VARACC+31*, VARACC+32, VARACC+47*, VARACC+48*
, VARACC+49, VARACC+51, VARACC+63*, VARACC+64*, VARACC+65, VARACC+67
RAKEY VARACC+8~
RALIFN DIVSION~, DIVSION+10
RALOC VARACC+8~, VARACC+22!
RALOC(0 VARACC+18*, VARACC+32*
RALOC(1 VARACC+18*, VARACC+19, VARACC+20, VARACC+32*, VARACC+33, VARACC+34
RALOC(44 VARACC+19*, VARACC+20, VARACC+33*, VARACC+34
RAMGRKEY VARACC+8~, VARACC+9*, VARACC+15*, VARACC+29
U VARACC+18, VARACC+19, VARACC+32, VARACC+33, VARACC+34, VARACC+49, VARACC+50, VARACC+51, VARACC+65, VARACC+66
, DSPDIV+10, DSPIMG+11, DSPLOC+8
X0 DSPDIV+1~*, DSPDIV+7*, DSPDIV+8, DSPDIV+9, DSPIMG+1~*, DSPIMG+7*, DSPIMG+9, DSPIMG+10, DSPLOC+1~*, DSPLOC+6*
, DSPLOC+7
X1 DSPDIV+1~, DSPDIV+8*, DSPDIV+9, DSPIMG+1~, DSPIMG+8*, DSPIMG+9*, DSPIMG+10
Y0 DSPDIV+1~, DSPDIV+9*, DSPDIV+10, DSPIMG+1~, DSPIMG+10*, DSPIMG+11, DSPLOC+1~, DSPLOC+7*, DSPLOC+8
Y1 DSPDIV+1~, DSPDIV+5*, DSPDIV+6, DSPIMG+1~, DSPIMG+5*, DSPIMG+6, DSPLOC+1~, DSPLOC+4*, DSPLOC+5
Y2 DSPDIV+1~, DSPDIV+10*, DSPIMG+1~, DSPIMG+11*, DSPLOC+1~, DSPLOC+8*, PRINT+2, PRINT+3
Y3 DSPDIV+1~*, DSPIMG+1~*, DSPLOC+1~*, PRINT+1*, PRINT+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All