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

Package: Radiology Nuclear Medicine

Routine: RARTE


Information

RARTE ;HISC/FPT,GJC AISC/MJK,RMO-Edit/Delete Reports ;26 Oct 2018 12:43 PM

Source Information

Source file <RARTE.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Radiology Nuclear Medicine 13 1^RABTCH  ^RACNLU  ($$SSANVAL,$$USESSAN)^RAHLRU1  SET^RAPSET1  ASKBTCH^RARTE1  INSERT^RARTE2  (IN,INCRPT,LOCK,Q,Q1)^RARTE4  ES^RASIGU  
$$PUTTCOM2^RAUTL11  ($$LOCK,UNLOCK)^RAUTL12  EN2^RAUTL20  $$DIVLOC^RAUTL7  ($$CMEDIA,$$PTSEX)^RAUTL8  
VA FileMan 2 YN^DICN  $$GET1^DIQ  

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 RPTENTRY  RARTE4  RARTE6  

Entry Points

Name Comments DBIA/ICR reference
START
DISPLAY ; Display exam specific info, edit/enter the report
SS1
P124 ;RA5P124 update: don't add an accession to OTHER CASE#
NEW
NEW1 ;
CMEDIA(X) ;check if contrast media is associated with the report (exam)

External References

Name Field # of Occurrence
YN^DICN SS1+22
$$GET1^DIQ RARTE+18
1^RABTCH RARTE+22
^RACNLU START
$$SSANVAL^RAHLRU1 DISPLAY+2
$$USESSAN^RAHLRU1 DISPLAY+5, DISPLAY+6, DISPLAY+15, DISPLAY+16, DISPLAY+28, DISPLAY+29, DISPLAY+30, DISPLAY+31
SET^RAPSET1 RARTE+8
ASKBTCH^RARTE1 RARTE+22
INSERT^RARTE2 P124+4
IN^RARTE4 SS1+14
INCRPT^RARTE4 START+5, DISPLAY+12, SS1+12, P124+7, NEW+4
LOCK^RARTE4 NEW1+5
Q^RARTE4 RARTE+11, START, DISPLAY+4
Q1^RARTE4 RARTE+22
ES^RASIGU RARTE+19
$$PUTTCOM2^RAUTL11 DISPLAY+21, DISPLAY+36, DISPLAY+37
$$LOCK^RAUTL12 DISPLAY+12
UNLOCK^RAUTL12 SS1+12, P124+7, NEW+4
EN2^RAUTL20 DISPLAY+24
$$DIVLOC^RAUTL7 RARTE+11
$$CMEDIA^RAUTL8 DISPLAY+18, DISPLAY+33
$$PTSEX^RAUTL8 SS1+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?3,"Note: To enter receipt of OUTSIDE INTERPRETED REPORTS,",!?3,"please use the 'Outside Report/Entry Edit' option.",!
  • Line Location: RARTE+9
Function Call: WRITE
  • Prompt: !
  • Line Location: RARTE+19
Function Call: WRITE
  • Prompt: " ...no batch selected",!
  • Line Location: RARTE+22
Function Call: WRITE
  • Prompt: $C(7),!!,"The STATUS for this case is CANCELLED. You may not enter a report.",!!
  • Line Location: START+5
Function Call: WRITE
  • Prompt: !!?2,"Case #: ",RACNDSP," for ",RANME
  • Line Location: DISPLAY+5
Function Call: WRITE
  • Prompt: !!?2,"Case #: ",RACN," for ",RANME
  • Line Location: DISPLAY+6
Function Call: WRITE
  • Prompt: !?2,"Procedure: '",$E(RAPRC,1,45),"' has been deleted"
  • Line Location: DISPLAY+7
Function Call: WRITE
  • Prompt: !?2,"by another user!",$C(7)
  • Line Location: DISPLAY+8
Function Call: WRITE
  • Prompt: !,RAI
  • Line Location: DISPLAY+13
Function Call: WRITE
  • Prompt: !?1,"Name : ",$E(RANME,1,25),?40,"Pt ID : ",RASSN
  • Line Location: DISPLAY+14
Function Call: WRITE
  • Prompt: !?1,"Case No. : ",RACNDSP,?40,"Exm. St : ",$E($P($G(^RA(72,+RAST,0)),"^"),1,22),!?1,"Procedure: ",$E(RAPRC,1,45)
  • Line Location: DISPLAY+15
Function Call: WRITE
  • Prompt: !?1,"Case No. : ",RACN,?18,"Exm. St: ",$E($P($G(^RA(72,+RAST,0)),"^"),1,12),?40,"Procedure : ",$E(RAPRC,1,25)
  • Line Location: DISPLAY+16
Function Call: WRITE
  • Prompt: !,?1,"Case No. : ",$P(RAMEMARR(RA1),U)
  • Line Location: DISPLAY+28
Function Call: WRITE
  • Prompt: !,?1,"Case No. : ",+RAMEMARR(RA1)
  • Line Location: DISPLAY+29
Function Call: WRITE
  • Prompt: ?40,"Exm. St : ",$E($P($G(^RA(72,$P(RAMEMARR(RA1),"^",4),0)),"^"),1,22)
  • Condition for execution: $P(RAMEMARR(RA1),"^",4)]""
  • Line Location: DISPLAY+30
Function Call: WRITE
  • Prompt: !?1,"Procedure: ",$E($P($G(^RAMIS(71,+$P(RAMEMARR(RA1),"^",2),0)),"^"),1,45)
  • Line Location: DISPLAY+30
Function Call: WRITE
  • Prompt: ?18,"Exm. St: ",$E($P($G(^RA(72,$P(RAMEMARR(RA1),"^",4),0)),"^"),1,12)
  • Condition for execution: $P(RAMEMARR(RA1),"^",4)]""
  • Line Location: DISPLAY+31
Function Call: WRITE
  • Prompt: ?40,"Procedure : ",$E($P($G(^RAMIS(71,+$P(RAMEMARR(RA1),"^",2),0)),"^"),1,26)
  • Line Location: DISPLAY+31
Function Call: WRITE
  • Prompt: !?1,"Exam Date: ",RADATE,?40,"Technologist: "
  • Line Location: SS1+1
Function Call: WRITE
  • Prompt: $E($P(^(0),"^"),1,25)
  • Line Location: SS1+1
Function Call: WRITE
  • Prompt: !?1,"Req Phys : ",$E($S($D(^VA(200,+$P(Y(0),"^",14),0)):$P(^(0),"^"),1:""),1,25)
  • Line Location: SS1+2
Function Call: WRITE
  • Prompt: !,RAI
  • Line Location: SS1+10
Function Call: WRITE
  • Prompt: !?3,$C(7),"Report has already been ",$S(RA1="V":"verified",1:"electronically filed"),!
  • Line Location: SS1+12
Function Call: WRITE
  • Prompt: !!,$C(7),"Other cases of this cancelled case ",RACNDSP,"'s print set are entered in a report already",!!,"You may NOT create a new report for this cancelled case,",!,"but you may include this cancelled case in the existing report."
  • Line Location: SS1+20
Function Call: WRITE
  • Prompt: !!,"Do you want to include this cancelled case in the same report",!,"as the others in the print set ?"
  • Line Location: SS1+21
Function Call: WRITE
  • Prompt: !!?10,$C(7),"** This case belongs to a printset,",?68,"**",!?10,"** and someone else is currently doing REPORT ENTRY/EDIT",?68,"**"
  • Line Location: NEW+2
Function Call: WRITE
  • Prompt: !?10,"** on another case for this same printset,",?68,"**",!?10,"** so you may not enter a new report.",?68,"**"
  • Line Location: NEW+3
Function Call: WRITE
  • Prompt: !?3,"...report not entered for this exam...",!?10,"...will now initialize report entry..."
  • Line Location: NEW1+3
Function Call: WRITE
  • Prompt: !," Contrast :"
  • Line Location: CMEDIA+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RA(72 - [#72] START+2, DISPLAY+15, DISPLAY+16, DISPLAY+30, DISPLAY+31, SS1+15
^RADPT - [#70] DISPLAY+4, SS1+1, SS1+5, SS1+6, P124+2*, NEW+1
^RAMIS(71 - [#71] DISPLAY+30, DISPLAY+31
^RARPT - [#74] SS1+12, SS1+14, P124+2
^RARPT("B" P124+4
^RARPT(0 NEW1+4
^VA(200 - [#200] RARTE+18, SS1+1, SS1+2
^XUSEC("RA MGR" START+3
^XUSEC("RA VERIFY" RARTE+18

Label References

Name Line Occurrences
CMEDIA DISPLAY+19, DISPLAY+34
DISPLAY START+2, START+3, START+4
NEW SS1+15, SS1+19
NEW1 NEW, NEW+1
START START+5, DISPLAY+12, SS1+12, P124+7, NEW+4

Naked Globals

Name Field # of Occurrence
^( SS1+1
^(0 SS1+1, SS1+2, SS1+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% RARTE+19, RARTE+20!, SS1+22*, SS1+23, P124+2
%W RARTE+20!
%Y RARTE+20!
%Y1 RARTE+20!
C RARTE+20!
DUZ RARTE+18, START+3
>> I NEW1+4*
RA1 DISPLAY+23~, DISPLAY+26*, DISPLAY+27*, DISPLAY+28, DISPLAY+29, DISPLAY+30, DISPLAY+31, DISPLAY+33, DISPLAY+36, DISPLAY+37
, SS1+12*, SS1+17*, SS1+18*, P124+2*
RA18EX DISPLAY+1~*, DISPLAY+21*, DISPLAY+22, DISPLAY+27, DISPLAY+36*, DISPLAY+37*, SS1
RA2 SS1+17~*, SS1+18*, SS1+19, P124+2
RA3 SS1+5~*, SS1+7, SS1+8
RABTCH RARTE+22!
RACCSTR P124+3~*, P124+4
RACMDATA DISPLAY+18*, DISPLAY+19, DISPLAY+20!, DISPLAY+33*, DISPLAY+34, DISPLAY+35!
>> RACN DISPLAY+3, DISPLAY+6, DISPLAY+16, DISPLAY+21, P124+2, P124+3, NEW1+2
RACNDSP DISPLAY+2~, DISPLAY+3*, DISPLAY+5, DISPLAY+15, SS1+20, NEW1+1, NEW1+2
>> RACNI DISPLAY+2, DISPLAY+4, DISPLAY+12, DISPLAY+18, DISPLAY+27, SS1+1, SS1+5, SS1+6, SS1+12, P124+2
, P124+7, NEW+4
>> RADATE SS1+1
>> RADFN DISPLAY+2, DISPLAY+4, DISPLAY+11, DISPLAY+18, DISPLAY+21, DISPLAY+33, DISPLAY+36, DISPLAY+37, SS1+1, SS1+4
, SS1+5, SS1+6, P124+2, NEW+1
RADRS RARTE+10~
>> RADTE NEW1+2
>> RADTI DISPLAY+2, DISPLAY+4, DISPLAY+11, DISPLAY+18, DISPLAY+21, DISPLAY+33, DISPLAY+36, DISPLAY+37, SS1+1, SS1+5
, SS1+6, P124+2, NEW+1
>> RAELESIG RARTE+18, RARTE+19*, RARTE+20
>> RAI DISPLAY+13*, SS1+10
>> RAMDV RARTE+22, START+4
RAMEMARR DISPLAY+23~, DISPLAY+24
RAMEMARR( DISPLAY+27, DISPLAY+28, DISPLAY+29, DISPLAY+30, DISPLAY+31, DISPLAY+36, DISPLAY+37, SS1+18
>> RANME DISPLAY+5, DISPLAY+6, DISPLAY+14
>> RANOSCRN RARTE+11
RAPCOMM SS1+5~, SS1+6*, SS1+8
>> RAPNODE DISPLAY+11*, DISPLAY+12, SS1+12, P124+7, NEW+4
>> RAPRC DISPLAY+7, DISPLAY+15, DISPLAY+16
RAPRTSET DISPLAY+23~, DISPLAY+25, SS1+15, NEW
>> RAREPORT START*
>> RARPT SS1+12, SS1+14, P124+2*, P124+4
>> RARPTN P124+2*, P124+3, NEW1+1*, NEW1+2*
RASSAN DISPLAY+2~*, DISPLAY+3
>> RASSN DISPLAY+14
>> RAST START+2, DISPLAY+15, DISPLAY+16, SS1+15
RASUBY0 RARTE+10~, START+1*, SS1+9
RAVER START!
>> RAVW START*
RAXIT RARTE+10~*, DISPLAY+5*, DISPLAY+6*, DISPLAY+12*
U DISPLAY+28, SS1+7, SS1+8
X RARTE+11*, RARTE+20!, RARTE+22, START, CMEDIA~, CMEDIA+4
X1 RARTE+20!
X2 RARTE+20!
XQUIT RARTE+8!
Y CMEDIA+3~, CMEDIA+4*
Y(0 START+1, SS1+2, SS1+9*
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