Routine: RASYS

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

Package	Total	Caller Graph
Radiology Nuclear Medicine	10	RA RESOURCE DEVICE RA SITEACCNUM RA SYSDIV RA SYSDIVLIST RA SYSEXLIST RA SYSEXROOM RA SYSLOC RA SYSLOCLIST RA SYSUPLOC RASYS
Kernel	1	^DIC(19

Entry Points

Name	Comments	DBIA/ICR reference
1	;;Division Parameter Set-up
Q1
2	;;Print Division Parameter List
3	;;Location Parameter Set-up
KILL3
4	;;Imaging Location Parameter List
5	;;Camera/Equip/Room Entry/Edit
KILL5
6	;;List of Camera/Equip/Rooms
ENTASK	; Entry point for the tasked job.
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
KILL	; Kill and quit
NOLOC	;print camera/equip/rm's not assigned to any imaging loc
INACT	; write inactive flag, called by 'List of Camera/Equip/Rms' option
7	;;RA SYSUPLOC /RA178;KLM - Menu to automatically set outside locations 'Suppress Ordering?' prompt to YES.
ZIS(RA)	; Select a device. ; 'RAPOP'=device selection successful (1:no) ^ '^%ZTLOAD' called (1:yes)
ZTSAVE	; Save off variables for the tasked job.
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.
QRDEV
RDEVHLP	; Display the Description Text for the Resource Device (#100) field ; on the Rad/Nuc Med Division file.
SACNPAR	; Site (long) Accession Number Parameter Entry/Edit
END	;

External References

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

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: 1+15
Function Call: WRITE	Prompt: ! Line Location: 1+20
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: !!,?5,"This option will set the selected outside imaging locations to" Line Location: 7+3
Function Call: WRITE	Prompt: !,?5,"'Suppress Ordering'. Doing this will prevent the location from" Line Location: 7+4
Function Call: WRITE	Prompt: !,?5,"showing up in CPRS as a 'Submit To' location for a radiology" Line Location: 7+5
Function Call: WRITE	Prompt: !,?5,"request." Line Location: 7+6
Function Call: WRITE	Prompt: !!,?3,"Note that your selection is limited to outside (no credit) locations." Line Location: 7+7
Function Call: WRITE	Prompt: !,?3,"If you select 'ALL', all of your outside locations will be updated." Line Location: 7+8
Function Call: WRITE	Prompt: !! Line Location: 7+11
Function Call: WRITE	Prompt: !!?3,$C(7),"No location selected." Line Location: 7+12
Function Call: WRITE	Prompt: !!?2,"Location(s) updated...",! Line Location: 7+18
Function Call: WRITE	Prompt: !,?2,"Your outside location order suppression status:" Line Location: 7+19
Function Call: WRITE	Prompt: ! Line Location: 7+23
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: ZIS+3
Routine Call	%ZIS Line Location: 1+15 3+6 4+14 ZIS+9
Routine Call	DIC Line Location: 1+2 3+2 5+1 RDEV+4
Routine Call	DIE Line Location: 1+9 1+13 3+5 5+2 RDEV+5 SACNPAR+19
Routine Call	DIE Line Location: 7+18
Routine Call	DIR Line Location: 1+7 4+6 7+23 SACNPAR+13

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, GET1^DIQ

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+14, 1+16, 1+17, SACNPAR+11, SACNPAR+17
^RA(79.1 - [#79.1]	INA+3, NOLOC+4, NOLOC+5, 7+20, 7+21
^TMP($J	INA+5, KILL+1!, 7+2!, 7+12, 7+13, 7+14, 7+24!, ZTSAVE+4

Label References

Name	Line Occurrences
$$ZIS	4+13
1	1+20
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+7, 1+8, 1+20
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+20!, KILL3!, 5+2!, RDEV+3~
%W	KILL3!
%X	1+20!, KILL3!, KILL+1!, RDEV+3~
%XX	KILL+1!
%Y	1+20!, 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+20!, KILL3+1!, RDEV+3~
D	Q1!, KILL3!, KILL5!, RDEV+3~
D0	1+20!, KILL3!, 5+2!, INA+3, INA+5, RDEV+3~
DA	1+9, 1+13, 1+14, 1+16, 1+17, 1+20!, 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+20!, 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+9, 1+13, 1+20!, 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	1+4!, 1+8!, 1+11!, 4+1!, 4+7!, 7+24!
DIR("?"	1+6, 4+4, 4+5, SACNPAR+14
DIR("A"	1+5, 4+3, 7+23, SACNPAR+13
DIR("B"	1+6, 4+2
DIR(0	1+6, 4+2, 7+23, SACNPAR+13
DIROUT	4+1!, 4+7!
DIRUT	1+7, 4+1!, 4+6, 4+7!, 7+24!, 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+20!, KILL3!, 5+2!, RDEV+3~
DR	1+9, 1+13, 1+20!, 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!, 7+24!, 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+15, 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
RACM	7+1~*, 7+20
RAD0	INA~
RADA	SACNPAR+18*, END+1!
RADIC	7+1~, 7+9*, 7+11
RADIC("A"	7+10*
RADIC("S"	7+9*
RADIC(0	7+9*
RAFDA	7+1~
RAFDA(	7+15*
RAFLH	KILL3!
RAI	7+20~*, 7+21
RAIL	7+1~, 7+14*, 7+15
RAILOC	7+1~, 7+13*, 7+14
RAINA	4+1~, 4+6, 4+7, 4+8*, 4+9, KILL+2!
RAINC	1+15, 1+16, 1+17, 1+20!
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!
RAT	Q1!
RAUTIL	7+1~, 7+10*, 7+11
RAVAL	SACNPAR+11~*, SACNPAR+12
RAX	4+9~*
RAXIT	1+13, 1+16, 1+20!, 3+5, KILL3!
RAY	1+4, 1+9, 1+13, Q1!, 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+4!, 1+8!, 1+11!, 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: 13

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 11

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: