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

Package: Radiology Nuclear Medicine

Routine: RARTE6


Information

RARTE6 ;HISC/SM - Restore deleted report ; Nov 29, 2023@09:14:58

Source Information

Source file <RARTE6.m>

Entry Points

Name Comments DBIA/ICR reference
RSTR ;restore deleted report
CHECK ; check if associated case(s) has rpt and DX codes
ASK1 ; ask if want to restore report
; RAPRVIEN last Activity Log rec in subfile 74.01
; RAPRVST previous report status logged in latest activity log rec
; RALAST last activity log record
ASSOC ;
; list case(s) for this report
RESTORE ; set Report Status to "before delete" value, link to case(s)
SET70(X) ; put back previous DX codes, Staff, Residents into case record
; assumes if no primary then no secondaries
PSET ; copy Primary into cases of a printset
SETFF(RA1,RA2,RA3,RA4,RA5) ;reset file's field value
SETALOG(RA1,RA2,RA3) ;set new record in Activity log 74.01
MSG1(X) ;
MSG2(X,Y,Z) ;
ERR0 ;
ERR1
ERR2(X,Y,Z) ;X=External short case No, Y=File no., Z=Field no.
ERR3(X) ;
ERR4(X,Y,Z) ;
NOTDONE ;
FINISH ; clean up and exit
DISPLAY ; Display exam specific info, edit/enter the report
; adapted from routine RARTE
LOCK(X,Y) ; Lock the data global
; uses var DILOCKTM, code taken from rtn RAUTL12
; 'X' is the global root
; 'Y' is the record number
; KLM/163 - remove setting of RADUZ and ^TMP("RAD LOCKS"
INTRO ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?4,$P($T(INTRO+I),";;",2)
  • Line Location: RSTR+1
Function Call: WRITE
  • Prompt: !
  • Line Location: RSTR+2
Function Call: WRITE
  • Prompt: !!,"Report Manager key RA RPTMGR is needed for this option."
  • Line Location: RSTR+5
Function Call: WRITE
  • Prompt: !
  • Line Location: RSTR+11
Function Call: WRITE
  • Prompt: !
  • Line Location: ASSOC+5
Function Call: WRITE
  • Prompt: !!?3,"... Restored ",$P(RA74,U,1),"'s report status to: ",$$GET1^DIQ(74,+RARPT,5),"."
  • Line Location: RESTORE+2
Function Call: WRITE
  • Prompt: !!!?3,"** You need to edit the case"_$S(RAPRTSET:"s",1:"")_" to update the exam status. **"
  • Line Location: RESTORE+18
Function Call: WRITE
  • Prompt: !?3,"... Linked restored report to case no. ",X
  • Line Location: MSG1+1
Function Call: WRITE
  • Prompt: !?3,"... Restored case ",X,"'s ",Y," to: ",Z
  • Line Location: MSG2+1
Function Call: WRITE
  • Prompt: !,"Unable to determine case previously associated with this report."
  • Line Location: ERR0+1
Function Call: WRITE
  • Prompt: !!,"Cannot determine previous report status.",!
  • Line Location: ERR1+0
Function Call: WRITE
  • Prompt: !,"Case #",X," already has ",$$GET1^DID(Y,Z,"","LABEL")
  • Line Location: ERR2+1
Function Call: WRITE
  • Prompt: !,"Case #",X," is already associated with a report!"
  • Line Location: ERR3+1
Function Call: WRITE
  • Prompt: !!?3,"Cannot restore case ",X,"'s ",Y," to: ",Z
  • Line Location: ERR4+1
Function Call: WRITE
  • Prompt: !!?3,"Restoration was not done."
  • Line Location: NOTDONE+1
Function Call: WRITE
  • Prompt: !!?2,"Case #: ",RACNDSP," for ",RANME
  • Line Location: DISPLAY+7
Function Call: WRITE
  • Prompt: !!?2,"Case #: ",RACN," for ",RANME
  • Line Location: DISPLAY+8
Function Call: WRITE
  • Prompt: !?2,"Procedure: '",$E(RAPRC,1,45),"' has been deleted"
  • Line Location: DISPLAY+9
Function Call: WRITE
  • Prompt: !?2,"by another user!",$C(7)
  • Line Location: DISPLAY+10
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+29
Function Call: WRITE
  • Prompt: !,?1,"Case No. : ",+RAMEMARR(RA1)
  • Line Location: DISPLAY+30
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+31
Function Call: WRITE
  • Prompt: !?1,"Procedure: ",$E($P($G(^RAMIS(71,+$P(RAMEMARR(RA1),"^",2),0)),"^"),1,45)
  • Line Location: DISPLAY+31
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+32
Function Call: WRITE
  • Prompt: ?40,"Procedure : ",$E($P($G(^RAMIS(71,+$P(RAMEMARR(RA1),"^",2),0)),"^"),1,26)
  • Line Location: DISPLAY+32
Function Call: WRITE
  • Prompt: !?1,"Exam Date: ",RADATE,?40,"Technologist: "
  • Line Location: DISPLAY+46
Function Call: WRITE
  • Prompt: !?1,"Req Phys : ",$E($G(RAOUT(70.03,RAIENS,14,"E")),1,25)
  • Line Location: DISPLAY+50
Function Call: WRITE
  • Prompt: !,RAI
  • Line Location: DISPLAY+57
Function Call: WRITE
  • Prompt: !?5,"This record is being edited by another user."
  • Line Location: LOCK+10
Function Call: WRITE
  • Prompt: !?5,"Try again later!",$C(7)
  • Line Location: LOCK+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
70.03 GET1^DID,  GETS^DIQ
^RARPT - [#74] Classic Fileman Calls,  GET1^DIQ
74.01 GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call