Routine: RAPSET

Package	Total	Call Graph
Radiology Nuclear Medicine	4	(,KILL,Q)^RAPSET1 $$IMGTY^RAUTL12 CHKSP^RAUTL2 VARACC^RAUTL6
Kernel	1	(,HOME)^%ZIS
VA Fileman	1	^DIC

Package

Total

Call Graph

(,KILL,Q)^RAPSET1 $$IMGTY^RAUTL12 CHKSP^RAUTL2 VARACC^RAUTL6

(,HOME)^%ZIS

^DIC

Package	Total	Caller Graph
Radiology Nuclear Medicine	2	RAPSET1 RAREG

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,*7,"You must initialize at least one Radiology/Nuclear Medicine Division",!,"and one Imaging Location to proceed.",!,"Refer to the Radiology/Nuclear Medicine ADPAC Guide.",!! Line Location: RAPSET+3
Function Call: WRITE	Prompt: !,*7,"Your user code 'DUZ' must be defined to continue." Line Location: LOC+0
Function Call: WRITE	Prompt: !?3,*7,"You must choose an Imaging 'Location' to continue...",!?3,"or enter '^' to stop.",! Line Location: LOC1+12
Function Call: WRITE	Prompt: !,*7,"Radiology/Nuclear Medicine Division definition error. Call your site manager." Line Location: LOC1+14
Function Call: WRITE	Prompt: !!,*7,"Imaging Location definition error. Call your site manager." Line Location: LOC1+16
Function Call: WRITE	Prompt: !?5,"Imaging Location data is not defined, " Line Location: UNDEF+3
Function Call: WRITE	Prompt: "contact IRM.",$C(7) Line Location: UNDEF+4
Function Call: WRITE	Prompt: !?5,"An Imaging Type was not defined for the following Imaging" Line Location: UNDEF+7
Function Call: WRITE	Prompt: $C(7),!,"No up-arrow allowed. Default printer will be your terminal." Line Location: NOESC+2
Routine Call	%ZIS Line Location: RAPSET+5 PAR+15
Routine Call	DIC Line Location: LOC1+10
Routine Call	%ZIS Line Location: PAR+5 PAR+8 PAR+11

FileNo	Call Tags
^RA(79.1 - [#79.1]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	PAR+4, PAR+5, PAR+7, PAR+8, PAR+10, PAR+11
^DISV(	LOC+2, LOC+3
^RA(79 - [#79]	LOC1+13, LOC1+14, LOC1+15, PAR
^RA(79.1 - [#79.1]	LOC+2, LOC+3, LOC+10, LOC+11, LOC+13, LOC1+6, LOC1+7, LOC1+15, UNDEF+6
^RA(79.2 - [#79.2]	RAPSET+4, LOC+1, PAR+5, PAR+8, PAR+11
^SC - [#44]	LOC+2, LOC1+6, UNDEF+6
^SC("B"	LOC+10
^XUSEC("RA ALLOC"	LOC1+3

Name	Field # of Occurrence
^(	PAR
^(0	LOC+2, LOC1+15, PAR+4, PAR+7, PAR+10

Name	Field # of Occurrence
>> %ZIS	PAR+5, PAR+8, PAR+11*
>> %ZIS("A"	PAR+5, PAR+8, PAR+11*
>> DEV	RAPSET+4, LOC+1, PAR+1
>> DIC	LOC1+10*
>> DIC("A"	LOC1+1*, LOC1+11!
>> DIC("B"	LOC+2!, LOC+3!, LOC+8, LOC+10, LOC+12!, LOC+13!, LOC1+6, LOC1+7!
>> DIC("S"	LOC1+2, LOC1+4, LOC1+8*, LOC1+11!
>> DIC(0	LOC1+10*
>> DIV	RAPSET+4, LOC1+13, LOC1+14, LOC1+15, PAR
DT	LOC1+7
>> DTOUT	LOC1+11
>> DUOUT	LOC1+11
DUZ	LOC, LOC+2, LOC+3, LOC1, LOC1+3
>> I	PAR*
IO	PAR+5, PAR+8, PAR+11
IO(0	PAR+5, PAR+8, PAR+11
ION	PAR+5, PAR+8, PAR+11
>> LINE	PAR+12*
>> LOC	RAPSET+4, LOC1+13, LOC1+15, PAR+3
>> POP	PAR+5, PAR+8, PAR+11
RA1	LOC+7~, LOC+9, LOC+10
RA2	LOC+7~, LOC+9, LOC+10, LOC+11, LOC+13
RA3	LOC+7~, LOC+11*, LOC+12
>> RACCESS(	LOC1
>> RADEV	RAPSET+4*, PAR+1
>> RADIV	RAPSET+4, LOC1+15
>> RADUPSCN	LOC1+5
RADV	RAPSET+3!, RAPSET+4!
>> RAFLH	PAR+4, PAR+5, PAR+6*
>> RAI	PAR+4, PAR+5, PAR+6, PAR+7, PAR+8, PAR+9, PAR+10, PAR+11, PAR+12
>> RAIMGTY	PAR+13*, PAR+14
>> RAITN	LOC+6, LOC+12
>> RAJAC	PAR+7, PAR+8, PAR+9*
RALC	RAPSET+3!, RAPSET+4!
>> RALOC	RAPSET+4, LOC1+15, LOC1+16, PAR+3, PAR+4, PAR+6, PAR+7, PAR+9, PAR+10, PAR+12
>> RAMDIV	PAR*
>> RAMDV	PAR, PAR+1, PAR+3, PAR+6
>> RAMLC	PAR+3, PAR+6, PAR+9, PAR+12, PAR+13, UNDEF+2, UNDEF+6
>> RAOPT("REG"	LOC1+3
>> RAREGX(4	LOC1+5, LOC1+6, LOC1+7
>> RARPT	PAR+10, PAR+11, PAR+12*
RAVAPOR	UNDEF+1~, UNDEF+6*, UNDEF+8
>> RAYN	LOC1+5
U	LOC+3, LOC1+6, LOC1+7, UNDEF+6
X	LOC1+7~*
>> XQUIT	RAPSET+3, LOC, LOC1+11, LOC1+14, LOC1+16*
>> Y	LOC1+12, LOC1+13, PAR*

Information

Name	Comments	DBIA/ICR reference
LOC
PAR
LOC1
UNDEF	; Message for undefined imaging types
NOESC	; No up-arrow allowed at Flash Card, Jacket Label, or Report ; printer device prompts after selecting sign-on imaging location.