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: 10

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  

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