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

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)

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