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 |  Marked Items  | All
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>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Radiology Nuclear Medicine 8 ($$SSANVAL,$$USESSAN)^RAHLRU1  CMEDIA^RARTE  Q1^RARTE5  DICW^RARTST1  ($$SSN,D)^RAUTL  $$PUTTCOM2^RAUTL11  EN2^RAUTL20  ($$CMEDIA,$$PTSEX)^RAUTL8  
VA FileMan 6 ^DIC  $$GET1^DID  (FILE,UPDATE)^DIE  $$ROOT^DILFD  ($$GET1,GETS)^DIQ  ^DIR  
Kernel 1 $$NOW^XLFDT  

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

Package Total Caller Graph
Radiology Nuclear Medicine 2 RA RESTORE REPORT  RARTE5  

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 ;

External References

Name Field # of Occurrence
^DIC RSTR+9
$$GET1^DID SET70+17, SET70+33, SET70+34, SET70+44, SET70+45, PSET+5, PSET+7, PSET+15, PSET+17, ERR2+1
FILE^DIE SET70+32, PSET+4, SETFF+8, SETFF+9
UPDATE^DIE SET70+43, PSET+14, SETALOG+10
$$ROOT^DILFD CHECK+30, CHECK+36, SET70+22
$$GET1^DIQ CHECK+6, ASK1+12, RESTORE+2, SET70+33, SET70+34, SET70+44, SET70+45, PSET+5, PSET+7, PSET+15
, PSET+17
GETS^DIQ DISPLAY+45, DISPLAY+52
^DIR ASK1+13, ASSOC+10
$$SSANVAL^RAHLRU1 DISPLAY+3
$$USESSAN^RAHLRU1 DISPLAY+7, DISPLAY+8, DISPLAY+15, DISPLAY+16, DISPLAY+29, DISPLAY+30, DISPLAY+31, DISPLAY+32
CMEDIA^RARTE DISPLAY+19, DISPLAY+35
Q1^RARTE5 DISPLAY+6
DICW^RARTST1 RSTR+9
$$SSN^RAUTL CHECK+8
D^RAUTL ASSOC+3
$$PUTTCOM2^RAUTL11 DISPLAY+21, DISPLAY+37, DISPLAY+38
EN2^RAUTL20 CHECK+11, DISPLAY+24
$$CMEDIA^RAUTL8 DISPLAY+18, DISPLAY+34
$$PTSEX^RAUTL8 DISPLAY+51
$$NOW^XLFDT SETALOG+6

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
Routine Call
  • DIC
  • Line Location:
    • RSTR+9
Routine Call
  • DIE
  • Line Location:
    • SET70+32
    • PSET+4
    • SETFF+8
    • SETFF+9
Routine Call
  • DIE
  • Line Location:
    • SET70+43
    • PSET+14
    • SETALOG+10
Routine Call
  • DIR
  • Line Location:
    • ASK1+13
    • ASSOC+10

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RA(72 - [#72] DISPLAY+15, DISPLAY+16, DISPLAY+31, DISPLAY+32
^RADPT - [#70] CHECK+3, CHECK+4, CHECK+9, CHECK+15, CHECK+27, RESTORE+11*, RESTORE+13*, DISPLAY+6
^RAMIS(71 - [#71] CHECK+7, DISPLAY+31, DISPLAY+32
^RARPT - [#74] CHECK+1, ASK1+4, ASK1+6
^XUSEC("RA RPTMGR" RSTR+5

Label References

Name Line Occurrences
ASK1 RSTR+13
ASSOC RSTR+14
CHECK RSTR+12
DISPLAY ASSOC+4
ERR0 CHECK+5
ERR1 ASK1+5, ASK1+7
ERR2 CHECK+27, CHECK+30, CHECK+34, CHECK+36
ERR3 CHECK+15, CHECK+18
ERR4 SET70+33, SET70+44, PSET+5, PSET+15
FINISH RSTR+9, RSTR+16
MSG1 RESTORE+11, RESTORE+13
MSG2 SET70+34, SET70+45, PSET+7, PSET+17
NOTDONE RSTR+12, RSTR+13, RSTR+14
PSET SET70+26
RESTORE RSTR+15
SET70 RESTORE+17
SETALOG RESTORE+6
SETFF RESTORE+1

Naked Globals

Name Field # of Occurrence
^(0 CHECK+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIC RSTR+8*, RSTR+9!
DIC("A" RSTR+7*
DIC("S" RSTR+6*
DIC(0 RSTR+8*
>> DILOCKTM LOCK+8
DIR ASK1+9!, ASK1+13!, ASSOC+6!, ASSOC+10!
DIR("?" ASK1+12*, ASSOC+9*
DIR("A" ASK1+11*, ASSOC+8*
DIR("B" ASK1+10*, ASSOC+7*
DIR(0 ASK1+10*, ASSOC+7*
DIRUT ASK1+14, ASSOC+11, FINISH+2!
DTIME FINISH+1
DUZ RSTR+5, SETALOG+8
I RSTR+1*, FINISH+2!
RA1 CHECK+13*, CHECK+14*, CHECK+15, CHECK+24*, CHECK+25*, CHECK+27, CHECK+29, CHECK+30, RESTORE+10*, RESTORE+11*
, SET70+3~, SET70+40*, SET70+41*, PSET+1*, PSET+2*, PSET+3, PSET+5, PSET+7, PSET+13, PSET+15
, PSET+17, SETFF~, SETFF+7, SETALOG~, SETALOG+6, SETALOG+7, SETALOG+8, SETALOG+9, FINISH+3!, DISPLAY+27*
, DISPLAY+28*, DISPLAY+29, DISPLAY+30, DISPLAY+31, DISPLAY+32, DISPLAY+34, DISPLAY+37, DISPLAY+38
RA18EX FINISH+3!, DISPLAY+5*, DISPLAY+21*, DISPLAY+22, DISPLAY+28, DISPLAY+37*, DISPLAY+38*, DISPLAY+42
RA2 CHECK+27*, CHECK+30*, CHECK+34*, CHECK+36*, PSET+11*, PSET+12*, SETFF~, SETFF+7, SETALOG~, SETALOG+7
, FINISH+3!
RA3 SETFF~, SETFF+7, SETALOG~, SETALOG+9, FINISH+3!, DISPLAY+53~*, DISPLAY+54, DISPLAY+55
RA4 SETFF~, SETFF+7, FINISH+3!
RA5 SETFF~, SETFF+8, FINISH+3!
RA70 CHECK+4*, CHECK+5, CHECK+6, CHECK+7, CHECK+8, CHECK+18, CHECK+34, FINISH+3!
RA74 CHECK+1*, CHECK+2, CHECK+18, CHECK+34, CHECK+36, RESTORE+2, RESTORE+13, SET70+33, SET70+34, SET70+44
, SET70+45, FINISH+3!
RAA SET70+2!, SET70+24*, FINISH+3!
RAA( SET70+41, PSET+12
RAA(0 SET70+37, PSET+9
RACMDATA FINISH+3!, DISPLAY+18*, DISPLAY+19, DISPLAY+20!, DISPLAY+34*, DISPLAY+35, DISPLAY+36!
RACN CHECK+2*, CHECK+3, FINISH+4!, DISPLAY+4, DISPLAY+8, DISPLAY+16, DISPLAY+21
RACNDSP DISPLAY+3~, DISPLAY+4*, DISPLAY+7, DISPLAY+15
RACNI CHECK+3*, CHECK+4, CHECK+5, CHECK+35, RESTORE+13, SET70+31, SET70+42, FINISH+4!, DISPLAY+3, DISPLAY+6
, DISPLAY+18, DISPLAY+28, DISPLAY+44
RADATE ASSOC+3*, FINISH+4!, DISPLAY+46
RADFN CHECK+2*, CHECK+3, CHECK+4, CHECK+5, CHECK+6, CHECK+9, CHECK+15, CHECK+27, CHECK+29, CHECK+35
, RESTORE+11, RESTORE+13, SET70+31, SET70+42, PSET+3, PSET+13, FINISH+4!, DISPLAY+3, DISPLAY+6, DISPLAY+18
, DISPLAY+21, DISPLAY+34, DISPLAY+37, DISPLAY+38, DISPLAY+44, DISPLAY+51
RADTE ASSOC+2*, FINISH+4!
RADTI CHECK+2*, CHECK+3, CHECK+4, CHECK+5, CHECK+9, CHECK+15, CHECK+27, CHECK+29, CHECK+35, RESTORE+11
, RESTORE+13, SET70+31, SET70+42, PSET+3, PSET+13, FINISH+4!, DISPLAY+3, DISPLAY+6, DISPLAY+18, DISPLAY+21
, DISPLAY+34, DISPLAY+37, DISPLAY+38, DISPLAY+44
RADUZ FINISH+4!
RAF1 SET70+15*, SET70+22, FINISH+4!
RAF2 SET70+16*, SET70+17, SET70+42, SET70+44, SET70+45, PSET+13, PSET+15, PSET+17, FINISH+4!
RAF3 SET70+17*, SET70+19*, SET70+33, SET70+34, SET70+44, SET70+45, PSET+5, PSET+7, PSET+15, PSET+17
, FINISH+4!
RAFDA SET70+2!, SET70+35!, SET70+46!, PSET+8!, PSET+18!, SETFF+6~, SETALOG+5~, FINISH+4!
RAFDA( SET70+31*, SET70+42*, PSET+3*, PSET+13*, SETFF+7*, SETALOG+6*, SETALOG+7*, SETALOG+8*, SETALOG+9*
>> RAFLD RESTORE+17*
RAI FINISH+5!, DISPLAY+13*, DISPLAY+57
RAIENL RESTORE+5*, RESTORE+6, FINISH+5!
RAIENS CHECK+29*, CHECK+30, CHECK+35*, CHECK+36, SET70+4*, SET70+22, FINISH+5!, DISPLAY+44*, DISPLAY+45, DISPLAY+50
, DISPLAY+52, DISPLAY+53, DISPLAY+55
RAIENSUB FINISH+5!, DISPLAY+47*, DISPLAY+48
RALAST ASK1+6*, ASK1+7, ASK1+8, RESTORE+17, FINISH+5!
RALCKFLG FINISH+5!, LOCK+5~, LOCK+7*, LOCK+9*, LOCK+16
RAMEMARR CHECK+11, FINISH+5!, DISPLAY+24!
RAMEMARR( CHECK+14, CHECK+15, CHECK+25, CHECK+27, CHECK+30, RESTORE+11, PSET+2, PSET+5, PSET+7, PSET+15
, PSET+17, DISPLAY+28, DISPLAY+29, DISPLAY+30, DISPLAY+31, DISPLAY+32, DISPLAY+37, DISPLAY+38
RAMSG SET70+35!, SET70+46!, PSET+8!, PSET+18!
RAMSG("DIERR" SET70+33, SET70+44, PSET+5, PSET+15
RANME CHECK+6*, FINISH+5!, DISPLAY+7, DISPLAY+8, DISPLAY+14
RANODE CHECK+9*, ASSOC+2, FINISH+5!
RAOUT FINISH+6!, DISPLAY+3~
RAOUT( DISPLAY+47, DISPLAY+48, DISPLAY+50, DISPLAY+53, DISPLAY+55
RAPIECE SET70+21*, SET70+31, SET70+33, SET70+34, PSET+3, PSET+5, PSET+7, FINISH+6!
RAPRC CHECK+7*, FINISH+6!, DISPLAY+9, DISPLAY+15, DISPLAY+16
RAPREV RESTORE+17*, SET70+31, SET70+33, SET70+34, PSET+3, PSET+5, PSET+7, FINISH+6!
RAPRTSET CHECK+12, CHECK+23, ASSOC+8, RESTORE+9, RESTORE+18, SET70+26, FINISH+6!, DISPLAY+26
RAPRVIEN ASK1+4*, ASK1+5, ASK1+6, ASK1+12, SET70+4, FINISH+6!
RAPRVST ASK1+8*, RESTORE+1, FINISH+6!
RAROOT CHECK+30*, CHECK+36*, SET70+22*, SET70+24, FINISH+6!
RARPT RSTR+10*, CHECK+1, ASK1+4, ASK1+6, ASK1+12, RESTORE+1, RESTORE+2, RESTORE+5, RESTORE+11, RESTORE+13
, SET70+4, FINISH+6!
RASSAN DISPLAY+3~*, DISPLAY+4
RASSN CHECK+8*, FINISH+7!, DISPLAY+14
RAST CHECK+6*, FINISH+7!, DISPLAY+15, DISPLAY+16
RASUB70 FINISH+7!
RASUBY0 CHECK+8*, FINISH+7!, DISPLAY+43
RAX SET70+41*, SET70+42, SET70+44, SET70+45, PSET+12*, PSET+13, PSET+15, PSET+17, FINISH+7!
RAXIT RSTR+3*, RSTR+12, RSTR+13, RSTR+14, ASK1+14*, ASK1+15*, ASSOC+11*, ASSOC+12*, ERR0+2*, ERR1+1*
, ERR2+2*, ERR3+2*, FINISH+7!, DISPLAY+7*, DISPLAY+8*
U CHECK+2, CHECK+6, CHECK+7, CHECK+15, CHECK+18, CHECK+27, CHECK+34, CHECK+36, ASK1+8, ASSOC+2
, RESTORE+2, RESTORE+11, RESTORE+13, RESTORE+17, SET70+33, SET70+34, SET70+44, SET70+45, DISPLAY+29
X SET70~, SET70+15, SET70+16, SET70+21, MSG1~, MSG1+1, MSG2~, MSG2+1, ERR2~, ERR2+1
, ERR3~, ERR3+1, ERR4~, ERR4+1, FINISH+1*, FINISH+7!, LOCK~, LOCK+7
XY FINISH+7!, LOCK+5~, LOCK+7*, LOCK+8
Y RSTR+9, RSTR+10, ASK1+15, ASSOC+2*, ASSOC+3, ASSOC+12, MSG2~, MSG2+1, ERR2~, ERR2+1
, ERR4~, ERR4+1, FINISH+7!, LOCK~, LOCK+7
Y(0 DISPLAY+43*
Z MSG2~, MSG2+1, ERR2~, ERR2+1, ERR4~, ERR4+1, FINISH+7!

Marked Items

Name Field # of Occurrence
$T(INTRO+I RSTR+1
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 |  Marked Items  | All