Routine: RASYS

Package	Total	Call Graph
VA Fileman	5	^DIC FIELD^DID ^DIE EN1^DIP ^DIR
Radiology Nuclear Medicine	4	KILL^RASYS EN1^RASYS1 $$LOC^RAUTL12 $$XTERNAL^RAUTL5
Kernel	2	(,HOME)^%ZIS ^%ZTLOAD

Package	Total	Caller Graph
Radiology Nuclear Medicine	9	RA RESOURCE DEVICE RA SITEACCNUM RA SYSDIV RA SYSDIVLIST RA SYSEXLIST RA SYSEXROOM RA SYSLOC RA SYSLOCLIST RASYS

Entry Points

Name	Comments	DBIA/ICR reference
Q1
KILL5
NOLOC	;print camera/equip/rm's not assigned to any imaging loc
END	;
KILL3
QRDEV
INA(RAD0)	; Determine if an Imaging Location is inactive. ; Input : 'RAD0' ien of file 79.1 ; Output: '1' if the location is valid, '0' if invalid
1	;;Division Parameter Set-up
ZIS(RA)	; Select a device. ; 'RAPOP'=device selection successful (1:no) ^ '^%ZTLOAD' called (1:yes)
3	;;Location Parameter Set-up
2	;;Print Division Parameter List
5	;;Camera/Equip/Room Entry/Edit
4	;;Imaging Location Parameter List
RDEV	; Select a Resource Device for a division. This subroutine is linked ; directly to the option: RA RESOURCE DEVICE. This option is a menu ; item under the RA SITEMANAGER menu option.
6	;;List of Camera/Equip/Rooms
ENTASK	; Entry point for the tasked job.
KILL	; Kill and quit
INACT	; write inactive flag, called by 'List of Camera/Equip/Rms' option
SACNPAR	; Site (long) Accession Number Parameter Entry/Edit
RDEVHLP	; Display the Description Text for the Resource Device (#100) field ; on the Rad/Nuc Med Division file.
ZTSAVE	; Save off variables for the tasked job.

External References

Name	Field # of Occurrence
^%ZIS	ZIS+3
HOME^%ZIS	1+5, 3+6, 4+14, ZIS+9
^%ZTLOAD	ZIS+7
^DIC	1+2, 3+2, 5+1, RDEV+4
FIELD^DID	RDEVHLP+2
^DIE	1+3, 3+5, 5+2, RDEV+5, SACNPAR+19
EN1^DIP	2+1, 6+2, ENTASK+3
^DIR	4+6, SACNPAR+13
KILL^RASYS	ENTASK+4
EN1^RASYS1	1+7, 3+6
$$LOC^RAUTL12	4+9
$$XTERNAL^RAUTL5	INA+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: 1+5
Function Call: WRITE	Prompt: ! Line Location: 1+10
Function Call: WRITE	Prompt: !!," * Since you have added a new Imaging Location, remember to assign * ",!," * it to a Rad/Nuc Med division through Division Parameter Set-up. * ",! Line Location: 3+3
Function Call: WRITE	Prompt: !,"Imaging Location: ",Y(0,0) Line Location: 3+4
Function Call: WRITE	Prompt: @IOF Line Location: 3+6
Function Call: WRITE	Prompt: ! Line Location: 3+6
Function Call: WRITE	Prompt: ! Line Location: 5+2
Function Call: WRITE	Prompt: ! Condition for execution: R4 Line Location: NOLOC+8
Function Call: WRITE	Prompt: ?3,$E($P(^RA(78.6,R1,0),U),1,15),?20,"UNASSIGNED",?45,"UNASSIGNED" Line Location: NOLOC+8
Function Call: WRITE	Prompt: ?0,$S(RA2:"(*)",1:" "),$E(DDDD0,1,15) Line Location: INACT+4
Function Call: WRITE	Prompt: ! Line Location: ZIS+3
Function Call: WRITE	Prompt: !?3,"Request Queued, Task #: ",$G(ZTSK) Line Location: ZIS+8
Function Call: WRITE	Prompt: ! Line Location: RDEVHLP+3
Function Call: WRITE	Prompt: !,$G(RA100DES("DESCRIPTION",Z)) Line Location: RDEVHLP+5
Function Call: WRITE	Prompt: ! Line Location: RDEVHLP+7
Function Call: WRITE	Prompt: !!?3,"Warning: Turning on the Site Specific Accession Number should only" Line Location: SACNPAR+4
Function Call: WRITE	Prompt: !?3,"be done in conjunction with using the RA v2.4 messaging protocols." Line Location: SACNPAR+5
Function Call: WRITE	Prompt: !!?3,"NOTE: Changing the Site Specific Accession Number parameter at a" Line Location: SACNPAR+6
Function Call: WRITE	Prompt: !?3,"multidivisional site will change the parameter for ALL divisions." Line Location: SACNPAR+7
Function Call: WRITE	Prompt: !!,"Current value of Site Specific Accession Number parameter: ",$S(RAVAL="Y":"YES",1:"NO") Line Location: SACNPAR+12
Routine Call	%ZIS Line Location: 1+5 3+6 4+14 ZIS+9
Routine Call	DIE Line Location: 1+3 3+5 5+2 RDEV+5 SACNPAR+19
Routine Call	DIC Line Location: 1+2 3+2 5+1 RDEV+4
Routine Call	DIR Line Location: 4+6 SACNPAR+13
Routine Call	%ZIS Line Location: ZIS+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^RA(78.6 - [#78.6]	Classic Fileman Calls
^RA(79 - [#79]	Classic Fileman Calls, FIELD^DID
^RA(79.1 - [#79.1]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(79.1	INA+4
^RA(78.6 - [#78.6]	NOLOC+3, NOLOC+8, INACT+2, INACT+3
^RA(79 - [#79]	1+4, 1+6, 1+7, SACNPAR+11, SACNPAR+17
^RA(79.1 - [#79.1]	INA+3, NOLOC+4, NOLOC+5
^TMP($J	INA+5, KILL+1!, ZTSAVE+4

Label References

Name	Line Occurrences
$$ZIS	4+13
1	1+10
3	3+6
5	5+2
ENTASK	4+16
KILL	4+7, 4+9, 4+14, 4+15
KILL3	3+2, 3+6
KILL5	5+1, 5+2
Q1	1+2, 1+10
QRDEV	RDEV+5
ZTSAVE	ZIS+7

Naked Globals

Name	Field # of Occurrence
^(0	INACT+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	1+10!, KILL3!, 5+2!, RDEV+3~
%W	KILL3!
%X	1+10!, KILL3!, KILL+1!, RDEV+3~
%XX	KILL+1!
%Y	1+10!, KILL3!, KILL+1!, RDEV+3~
%YY	KILL+1!
%ZIS	KILL+2!, ZIS+2!*
%ZIS("A"	ZIS+3*
%ZIS("HFSMODE"	ENTASK+2*
%ZIS("HFSNAME"	ENTASK+2*
BY	2+1!, 4+11, 6+1*, 6+3!, KILL+2!
C	1+10!, KILL3+1!, RDEV+3~
D	Q1!, KILL3!, KILL5!, RDEV+3~
D0	1+10!, KILL3!, 5+2!, INA+3, INA+5, RDEV+3~
DA	1+3, 1+4, 1+6, 1+7, 1+10!, 3+5, 3+6, KILL3!, 5+2!, RDEV+3~ , RDEV+5, SACNPAR+18*, END+1!
DDC	Q1!
>> DDDD0	INACT+1, INACT+2, INACT+4
DDER	RDEV+3~
DDH	KILL3+1!, RDEV+3~
DE	1+10!, KILL3!, 5+2!
DG	Q1!, KILL5!
DHD	2+1!, 6+3!, KILL+2!, ZTSAVE+3
DI	Q1!, KILL3+1!, KILL5!, RDEV+3~
DIC	1+1, 1+2!, 2+1, 3+1, 3+2!, 4+11, 5+1!, 6+1, KILL+2!, RDEV+3~* , END+1!
DIC("A"	1+1, 3+1, 5+1, RDEV+4
DIC(0	1+1, 3+1, 5+1, RDEV+4
DIE	1+3, 1+10!, 3+5, KILL3!, 5+2!, RDEV+3~, SACNPAR+18*, END+1!
DIG	Q1!, KILL3+1!
DIH	Q1!, KILL3+1!
DIOEND	6+2*, 6+3!
DIR	4+1!, 4+7!
DIR("?"	4+4, 4+5, SACNPAR+14*
DIR("A"	4+3, SACNPAR+13
DIR("B"	4+2*
DIR(0	4+2, SACNPAR+13
DIROUT	4+1!, 4+7!
DIRUT	4+1!, 4+6, 4+7!, SACNPAR+15
DIS	KILL+2!, ZTSAVE+2
DIS(0	4+12*
DISYS	Q1!, KILL3+1!, KILL5!, QRDEV!
DIU	Q1!, KILL3+1!
DIV	Q1!, KILL3!
DIW	Q1!, KILL3+1!
DIWI	KILL3+1!
DLAYGO	1+1, 1+2!, 3+1, 3+2!, 5+1*!
DQ	1+10!, KILL3!, 5+2!, RDEV+3~
DR	1+3, 1+10!, 3+5, KILL3!, 5+2!, RDEV+3~, RDEV+5, SACNPAR+18*, END+1!
DST	Q1!, QRDEV!
DTOUT	4+1!, 4+7!, KILL+2!, END+1!
DUOUT	Q1!, 4+1!, 4+7!, KILL+2!, END+1!
E	KILL3!
FLDS	2+1*!, 6+3!, KILL+2!
FR	2+1*!, 6+3!, KILL+2!
I	Q1!, KILL3+1!, KILL5!, KILL+3!, ZTSAVE+1~*, QRDEV!
IO	ENTASK+2
IO("Q"	ZIS+5, ZIS+6!
IOF	1+5, 3+6
IOM	ENTASK+1
ION	ENTASK+1
IOP	ENTASK+1*, ENTASK+2, ZIS+2!
IOSL	ENTASK+1
IOST	ENTASK+1
J	Q1!
L	2+1, 4+11, 6+1*, KILL+2!
POP	Q1!, KILL3+1!, KILL5!, 6+3!, KILL+2!, KILL+3!, ZIS+4, QRDEV!
R1	NOLOC+2~, NOLOC+3, NOLOC+5, NOLOC+6, NOLOC+7*, NOLOC+8
R2	NOLOC+2~, NOLOC+4*, NOLOC+5
R3	NOLOC+2~, NOLOC+4*, NOLOC+5
R4	NOLOC+2~, NOLOC+8
RA	ZIS~, ZIS+6
RA1	INACT+2~*, INACT+3
RA100DES	RDEVHLP+2~
RA100DES("DESCRIPTION"	RDEVHLP+3, RDEVHLP+4, RDEVHLP+5
RA2	INACT+2~, INACT+3, INACT+4
RA791	INA+3~*, INA+4
RA791(1	INA+4*, INA+5
RACAM	NOLOC+2~
RACAM(	NOLOC+3*, NOLOC+6!, NOLOC+7
RAD0	INA~
RADA	SACNPAR+18*, END+1!
RAFLH	KILL3!
RAINA	4+1~, 4+6, 4+7, 4+8*, 4+9, KILL+2!
RAINC	1+5, 1+6, 1+7, 1+10!
RAIOP	ENTASK+1*, KILL+2!
RAJAC	KILL3!
RALERT	KILL3+1!
RALINE	KILL3+1!
RANOLOC	6+3!, NOLOC+1, NOLOC+9*
RAPOP	4+13, 4+14, 4+15, KILL+2!, ZIS+4, ZIS+5, ZIS+7*, ZIS+11
RAREQPRT	KILL3!
RARPT	KILL3!
RAVAL	SACNPAR+11~*, SACNPAR+12
RAX	4+9~*
RAXIT	1+3, 1+6, 1+10!, 3+5, KILL3!
RAY	4+9~, 4+10*, 4+13
RAZVAL	SACNPAR+16~*
>> RAZZDIV	SACNPAR+17*, SACNPAR+18
TO	2+1*!, 6+3!, KILL+2!
U	3+3, 3+4, NOLOC+8, INACT+3
X	1+2!, KILL3!, 5+1!, 5+2!, KILL+3!, RDEV+3~, END+1!
Y	1+2!, 1+3, 3+2, 3+3, 3+4, 3+5, KILL3!, 4+8, 5+1!, 5+2! , KILL+3!, RDEV+3~, RDEV+5, SACNPAR+16, END+1!
Y(0	3+4
Z	RDEVHLP+2~, RDEVHLP+4, RDEVHLP+5
ZTDESC	KILL+3!, ZIS+6*
ZTRTN	KILL+3!, ZIS+6*
ZTSAVE	KILL+3!
ZTSAVE(	ZTSAVE+1*
ZTSAVE("DHD"	ZTSAVE+3*
ZTSAVE("DIS("	ZTSAVE+2*
ZTSAVE("^TMP(	$J, ""RA L-TYPE"", " , ZTSAVE+4*
>> ZTSK	ZIS+8

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RASYS

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: