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

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAUTL6

Call Graph Total: 2

Caller Graph Total: 5