Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: RASYS

Package: Radiology Nuclear Medicine

Routine: RASYS


Information

RASYS ;HISC/CAH AISC/TMP - System Definition Menu ; Feb 07, 2024@06:40:30

Source Information

Source file <RASYS.m>

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 ;

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call