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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: RASYS

Package: Radiology Nuclear Medicine

Routine: RASYS


Information

RASYS ;HISC/CAH AISC/TMP-System Definition Menu ; Jan 29, 2021@08:58:56

Source Information

Source file <RASYS.m>

Call Graph

Call Graph

Call Graph Total: 13

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  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 11

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+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
FILE^DIE 7+18
EN1^DIP 2+1, 6+2, ENTASK+3
$$GET1^DIQ 7+15, 7+21
^DIR 4+6, 7+23, SACNPAR+13
EN1^RASELCT 7+11
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: !!,?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+5
    • 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+3
    • 3+5
    • 5+2
    • RDEV+5
    • SACNPAR+19
Routine Call
  • DIE
  • Line Location:
    • 7+18
Routine Call
  • DIR
  • Line Location:
    • 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+4, 1+6, 1+7, 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+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!, 7+24!
DIR("?" 4+4*, 4+5*, SACNPAR+14*
DIR("A" 4+3*, 7+23*, SACNPAR+13*
DIR("B" 4+2*
DIR(0 4+2*, 7+23*, SACNPAR+13*
DIROUT 4+1!, 4+7!
DIRUT 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+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!, 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+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
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+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!
RAUTIL 7+1~, 7+10*, 7+11
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
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 |  Naked Globals |  Local Variables  | All