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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: RASTEXT

Package: Radiology Nuclear Medicine

Routine: RASTEXT


Information

RASTEXT ;HISC/CAH,FPT,GJC AISC/TMP,TAC,RMO-Called by Status Tracking display,edit. Allow selection/edit of case if called from edit option ;18 Dec 2017 12:39 PM

Source Information

Source file <RASTEXT.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Radiology Nuclear Medicine 7 ($$SSANVAL,$$USESSAN)^RAHLRU1  SET^RAPSET1  EN1^RASELCT  SELECT^RASTEXT1  (NOW,TIME)^RAUTL1  KMV^RAUTL15  KILLVAR^RAUTL2  
Kernel 1 HOME^%ZIS  
VA FileMan 1 ^DIR  

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

Package Total Caller Graph
Radiology Nuclear Medicine 3 RA STATLOOK  RA STATRACK  RASTEXT1  

Entry Points

Name Comments DBIA/ICR reference
EN1
START
GETCN
EXT ;p137/KLM - updated for printset SSAN display - use RACNI.
SCRN
WRT
HD
Q ; Kill and quit
LMAX() ;

External References

Name Field # of Occurrence
HOME^%ZIS EN1+1
^DIR EN1+16
$$SSANVAL^RAHLRU1 WRT+5
$$USESSAN^RAHLRU1 WRT+7, WRT+9, HD+9, HD+12
SET^RAPSET1 EN1
EN1^RASELCT EN1+28
SELECT^RASTEXT1 SCRN, SCRN+2
NOW^RAUTL1 HD+1
TIME^RAUTL1 WRT
KMV^RAUTL15 Q+4
KILLVAR^RAUTL2 Q+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,"Your access to Imaging Locations is nonexistent."
  • Line Location: EN1+10
Function Call: WRITE
  • Prompt: !?5,"Contact your ADPAC for further assistance."
  • Line Location: EN1+11
Function Call: WRITE
  • Prompt: !!?5,"Current Division: ",$P(^DIC(4,+RAMDIV,0),U,1)
  • Line Location: EN1+13
Function Call: WRITE
  • Prompt: !?5,"Current Imaging Type: ",RAIMGTY,!
  • Line Location: EN1+14
Function Call: WRITE
  • Prompt: *7,!,"No incomplete statuses on file"
  • Line Location: EN1+42
Function Call: WRITE
  • Prompt: @IOF,!?1,RAGENTXT,?39,RADIVHD
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: !?1,"Date : ",$E(DT,4,5),"/",$E(DT,6,7),"/",$E(DT,2,3)," ",RATIME,?39,"Status : ",RASTOUT
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: !?1,"Locations: "
  • Line Location: HD+8
Routine Call
  • %ZIS
  • Line Location:
    • EN1+1
Routine Call
  • DIR
  • Line Location:
    • EN1+16

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] EN1+13, HD+3
^DPT - [#2] WRT+8, WRT+10
^RA(72 - [#72] EN1+36, EN1+41, HD+1
^RA(78.6 - [#78.6] WRT+11
^RA(79.1 - [#79.1] EN1+3, EN1+4, GETCN, GETCN+1, HD+2
^RA(79.2 - [#79.2] EN1+5, EN1+32
^RADPT - [#70] START, GETCN+2
^RADPT("AS" EN1+36, START, GETCN+2
^RAMIS(71 - [#71] WRT+8, WRT+10
^SC - [#44] EN1+6, GETCN+1, HD+3
^TMP($J EN1+18*, EN1+31!, EN1+41!, EXT+2*, SCRN, WRT+4, WRT+6, WRT+8, WRT+10, WRT+11
, Q+3!
^XUSEC("RA MGR" EXT+2

Label References

Name Line Occurrences
$$LMAX SCRN, SCRN+1
EXT GETCN+2
GETCN START
HD SCRN, SCRN+1
Q EN1+9, EN1+21, EN1+30, EN1+32, EN1+43
SCRN EN1+41, SCRN+3
START EN1+41
WRT SCRN

Naked Globals

Name Field # of Occurrence
^(0 EN1+36, EN1+41, START, GETCN+2, WRT+8, WRT+10, WRT+11, HD+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% Q+1!
%H Q+1!
%W Q+1!
%Y Q+1!
%Y1 Q+1!
A Q+1!
C Q+1!
DIC Q+1!
DIOV Q+5!
DIR EN1+16~
DIR(0 EN1+16*
DIROUT EN1+16~
DIRUT EN1+16~
DT WRT, WRT+1, HD+7
DTOUT EN1+16~
DUOUT EN1+16~
DUZ EN1+5, EXT+2
I Q+1!
I1 SCRN*, WRT+4, WRT+5, WRT+6, WRT+8, WRT+10, WRT+11, Q+1!
IOF HD+6
IOM HD+8
IOSL LMAX+1
ORX Q+1!
POP Q+1!
RAARRY EN1+23~, EN1+24*, EN1+28
>> RACCESS( EN1+5
RACNDSP WRT+3~, WRT+6*, WRT+8
RACNI GETCN+2*, EXT+2, Q+1!
RACNIXX WRT+3~, WRT+5*
RACNT Q+1!
RACONTIN Q+1!
RACS Q+1!
RACTR EN1+1*, EN1+41*, EN1+42, START*, EXT+2*, WRT+2*, Q+1!
RADA Q+1!
RADATE Q+1!
RADFN START*, GETCN+2, EXT+2, Q+1!
RADFNXX WRT+3~, WRT+4*, WRT+5
RADIC EN1+23~, EN1+24*, EN1+28
RADIC("A" EN1+25*
RADIC("B" EN1+26*
RADIC("S" EN1+27*
RADIC(0 EN1+24*
RADIV HD+3*, HD+4, Q+1!
RADIVHD HD~, HD+4*, HD+6
RADLOCS EN1+2~
RADLOCS( EN1+19*, GETCN+1, HD+8
RADTI EN1+1!, EN1+42, START*, GETCN+2, SCRN*, SCRN+3, WRT, WRT+1, WRT+4, WRT+6
, WRT+8, WRT+10, WRT+11, Q+1!
RADTIXX WRT+3~, WRT+4*, WRT+5
RAED RASTEXT+2*, EN1!, EN1+1*, Q+1!
RAGENTXT HD~, HD+5*, HD+6
RAI Q+1!
RAIMAGE Q+1!
>> RAIMGTY EN1+5, EN1+14, EN1+32
>> RAIMGTYI EN1+32*, EN1+36
RAJ1 Q+1!
RALOC HD+3*, Q+1!
RALOC(0 HD+2*
RALOC(1 HD+2*, HD+3
>> RAMDIV EN1+5, EN1+13, EXT+2, HD+3
RAMIS Q+1!
>> RAMLC HD+2
RANODE Q+1!
RAOR Q+5!
RAORD EN1+1*, EN1+40*, EN1+41*, Q+1!
RAPRIT Q+1!
RAQ EN1+41, START*, SCRN, SCRN+1, SCRN+2, Q+1!
RAQUIT EN1+2~, EN1+19*, EN1+30
RASEQARR Q+2!
RASEQARR( EN1+36*, EN1+41
RASEQARR("" EN1+37
RASSAN WRT+3~, WRT+5*, WRT+6
RASTAT EN1+1!, EN1+41*, START, GETCN+2, HD+1, Q+1!
RASTOUT HD+1*, HD+7, Q+1!
RATEMP EN1+2~, EN1+6*, EN1+18, EN1+19
RATI WRT*, WRT+1*, WRT+8, WRT+10, Q+1!
RATICTR Q+1!
RATIME HD+1*, HD+7, Q+1!
RATOTAL EN1+2~*, EN1+6*, EN1+9, EN1+15, EN1+22
RATXTLP Q+1!
RAUTIL EN1+23~, EN1+24*, EN1+28
RAX EN1+36*, EN1+37*, EN1+38*, EN1+39*, Q+1!
RAXIT EN1+1*, EN1+17*, EN1+21, SCRN, SCRN+1, SCRN+2, Q+1!
RAY EXT+2*, Q+2!
SDCLST Q+1!
U EN1+4, EN1+13, EN1+36
X EN1+2*, EN1+3*, EN1+4, EN1+5, EN1+6, EN1+22!, EN1+36*, WRT*, HD+1*, HD+8*
, Q+1!
X1 Q+5!
XQUIT EN1!, Q+1!
Y EN1+4*, EN1+6, EN1+17, EN1+22!, START*, GETCN, GETCN+1, EXT+2, Q+1!
Y(0 GETCN+2*, EXT+2
Y(6 EN1+4*, EN1+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All