Routine: RARTE6

Information

RARTE6 ;HISC/SM Restore deleted report ; 06 Oct 2013 11:05 AM

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

Caller Graph Total: 2

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

Entry Points

Name	Comments	DBIA/ICR reference
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
RESTORE	; set Report Status to "before delete" value, link to case(s)
ERR4(X,Y,Z)	;
FINISH	; clean up and exit
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
RSTR	;restore deleted report
ERR2(X,Y,Z)	;X=External short case No, Y=File no., Z=Field no.
ERR3(X)	;
SETALOG(RA1,RA2,RA3)	;set new record in Activity log 74.01
MSG1(X)	;
DISPLAY	; Display exam specific info, edit/enter the report ; adapted from routine RARTE
ERR1
INTRO	;
ASSOC	; ; list case(s) for this report
SET70(X)	; put back previous DX codes, Staff, Residents into case record ; assumes if no primary then no secondaries
NOTDONE	;
PSET	; copy Primary into cases of a printset
MSG2(X,Y,Z)	;
ERR0	;
CHECK	; check if associated case(s) has rpt and DX codes
SETFF(RA1,RA2,RA3,RA4,RA5)	;reset file's field value

External References

Name	Field # of Occurrence
^DIC	RSTR+8
$$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+44, DISPLAY+55
^DIR	ASK1+13, ASSOC+10
$$SSANVAL^RAHLRU1	DISPLAY+2
$$USESSAN^RAHLRU1	DISPLAY+6, DISPLAY+7, DISPLAY+14, DISPLAY+15, DISPLAY+28, DISPLAY+29, DISPLAY+30, DISPLAY+31
CMEDIA^RARTE	DISPLAY+18, DISPLAY+34
Q1^RARTE5	DISPLAY+5
DICW^RARTST1	RSTR+8
$$SSN^RAUTL	CHECK+8
D^RAUTL	ASSOC+3
$$PUTTCOM2^RAUTL11	DISPLAY+20, DISPLAY+36, DISPLAY+37
EN2^RAUTL20	CHECK+11, DISPLAY+23
$$CMEDIA^RAUTL8	DISPLAY+17, DISPLAY+33
$$PTSEX^RAUTL8	DISPLAY+53
$$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: !!,"Supervisory key RA MGR is needed for this option." Line Location: RSTR+4
Function Call: WRITE	Prompt: ! Line Location: RSTR+10
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+6
Function Call: WRITE	Prompt: !!?2,"Case #: ",RACN," for ",RANME Line Location: DISPLAY+7
Function Call: WRITE	Prompt: !?2,"Procedure: '",$E(RAPRC,1,45),"' has been deleted" Line Location: DISPLAY+8
Function Call: WRITE	Prompt: !?2,"by another user!",$C(7) Line Location: DISPLAY+9
Function Call: WRITE	Prompt: !,RAI Line Location: DISPLAY+12
Function Call: WRITE	Prompt: !?1,"Name : ",$E(RANME,1,25),?40,"Pt ID : ",RASSN Line Location: DISPLAY+13
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+14
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+15
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: DISPLAY+45
Function Call: WRITE	Prompt: !?1,"Req Phys : ",$E($G(RAOUT(70.03,RAIENS,14,"E")),1,25) Line Location: DISPLAY+49
Function Call: WRITE	Prompt: !,RAI Line Location: DISPLAY+60
Function Call: WRITE	Prompt: !?5,"This record is being edited by another user." Line Location: LOCK+13
Function Call: WRITE	Prompt: !?5,"Try again later!",$C(7) Line Location: LOCK+14
Function Call: WRITE	Prompt: !?5,"This record is being edited by another user." Line Location: INTRO+3
Function Call: WRITE	Prompt: !?5,"Try again later!",$C(7) Line Location: INTRO+4
Routine Call	DIE Line Location: SET70+43 PSET+14 SETALOG+10
Routine Call	DIE Line Location: SET70+32 PSET+4 SETFF+8 SETFF+9
Routine Call	DIR Line Location: ASK1+13 ASSOC+10
Routine Call	DIC Line Location: RSTR+8

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+14, DISPLAY+15, DISPLAY+30, DISPLAY+31
^RADPT - [#70]	CHECK+3, CHECK+4, CHECK+9, CHECK+15, CHECK+27, RESTORE+11, RESTORE+13, DISPLAY+5
^RAMIS(71 - [#71]	CHECK+7, DISPLAY+30, DISPLAY+31
^RARPT - [#74]	CHECK+1, ASK1+4, ASK1+6
^TMP("RAD LOCKS"	LOCK+17, INTRO+7
^XUSEC("RA MGR"	RSTR+4

Label References

Name	Line Occurrences
ASK1	RSTR+12
ASSOC	RSTR+13
CHECK	RSTR+11
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+8, RSTR+15
MSG1	RESTORE+11, RESTORE+13
MSG2	SET70+34, SET70+45, PSET+7, PSET+17
NOTDONE	RSTR+11, RSTR+12, RSTR+13
PSET	SET70+26
RESTORE	RSTR+14
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+7*, RSTR+8!
DIC("A"	RSTR+6*
DIC("S"	RSTR+5*
DIC(0	RSTR+7*
>> DILOCKTM	LOCK+9
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+4, SETALOG+8, LOCK+5
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+26* , DISPLAY+27*, DISPLAY+28, DISPLAY+29, DISPLAY+30, DISPLAY+31, DISPLAY+33, DISPLAY+36, DISPLAY+37
RA18EX	FINISH+3!, DISPLAY+4, DISPLAY+20, DISPLAY+21, DISPLAY+27, DISPLAY+36, DISPLAY+37, DISPLAY+41
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+56~*, DISPLAY+57, DISPLAY+58
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+17, DISPLAY+18, DISPLAY+19!, DISPLAY+33, DISPLAY+34, DISPLAY+35!
RACN	CHECK+2*, CHECK+3, FINISH+4!, DISPLAY+3, DISPLAY+7, DISPLAY+15, DISPLAY+20
RACNDSP	DISPLAY+2~, DISPLAY+3*, DISPLAY+6, DISPLAY+14
RACNI	CHECK+3*, CHECK+4, CHECK+5, CHECK+35, RESTORE+13, SET70+31, SET70+42, FINISH+4!, DISPLAY+2, DISPLAY+5 , DISPLAY+17, DISPLAY+27, DISPLAY+43
RADATE	ASSOC+3*, FINISH+4!, DISPLAY+45
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+2, DISPLAY+5, DISPLAY+17 , DISPLAY+20, DISPLAY+33, DISPLAY+36, DISPLAY+37, DISPLAY+43, DISPLAY+53
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+2, DISPLAY+5, DISPLAY+17, DISPLAY+20 , DISPLAY+33, DISPLAY+36, DISPLAY+37, DISPLAY+43
RADUZ	FINISH+4!, LOCK+5*, LOCK+17, INTRO+7
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+12*, DISPLAY+60
RAIENL	RESTORE+5*, RESTORE+6, FINISH+5!
RAIENS	CHECK+29, CHECK+30, CHECK+35, CHECK+36, SET70+4, SET70+22, FINISH+5!, DISPLAY+43, DISPLAY+44, DISPLAY+49 , DISPLAY+55, DISPLAY+56, DISPLAY+58
RAIENSUB	FINISH+5!, DISPLAY+46*, DISPLAY+47
RALAST	ASK1+6*, ASK1+7, ASK1+8, RESTORE+17, FINISH+5!
RALCKFLG	FINISH+5!, LOCK+4~, LOCK+5, LOCK+12, LOCK+19, INTRO+2*, INTRO+9
RAMEMARR	CHECK+11, FINISH+5!, DISPLAY+23!
RAMEMARR(	CHECK+14, CHECK+15, CHECK+25, CHECK+27, CHECK+30, RESTORE+11, PSET+2, PSET+5, PSET+7, PSET+15 , PSET+17, DISPLAY+27, DISPLAY+28, DISPLAY+29, DISPLAY+30, DISPLAY+31, DISPLAY+36, DISPLAY+37
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+6, DISPLAY+7, DISPLAY+13
RANODE	CHECK+9*, ASSOC+2, FINISH+5!
RAOUT	FINISH+6!
RAOUT(	DISPLAY+46, DISPLAY+47, DISPLAY+49, DISPLAY+56, DISPLAY+58
RAPIECE	SET70+21*, SET70+31, SET70+33, SET70+34, PSET+3, PSET+5, PSET+7, FINISH+6!
RAPRC	CHECK+7*, FINISH+6!, DISPLAY+8, DISPLAY+14, DISPLAY+15
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+25
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+9*, CHECK+1, ASK1+4, ASK1+6, ASK1+12, RESTORE+1, RESTORE+2, RESTORE+5, RESTORE+11, RESTORE+13 , SET70+4, FINISH+6!
RASSAN	DISPLAY+2~*, DISPLAY+3
RASSN	CHECK+8*, FINISH+7!, DISPLAY+13
RAST	CHECK+6*, FINISH+7!, DISPLAY+14, DISPLAY+15
RASUB70	FINISH+7!
RASUBY0	CHECK+8*, FINISH+7!, DISPLAY+42
RAX	SET70+41, SET70+42, SET70+44, SET70+45, PSET+12, PSET+13, PSET+15, PSET+17, FINISH+7!
RAXIT	RSTR+3, RSTR+11, RSTR+12, RSTR+13, ASK1+14, ASK1+15, ASSOC+11, ASSOC+12, ERR0+2, ERR1+1* , ERR2+2, ERR3+2, FINISH+7!, DISPLAY+6, DISPLAY+7
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+28
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+5, LOCK+17, INTRO+7
XY	FINISH+7!, LOCK+4~, LOCK+5*, LOCK+9
Y	RSTR+8, RSTR+9, ASK1+15, ASSOC+2*, ASSOC+3, ASSOC+12, MSG2~, MSG2+1, ERR2~, ERR2+1 , ERR4~, ERR4+1, FINISH+7!, LOCK~, LOCK+5, LOCK+17, INTRO+7
Y(0	DISPLAY+42*
Z	MSG2~, MSG2+1, ERR2~, ERR2+1, ERR4~, ERR4+1, FINISH+7!

Marked Items

Name	Field # of Occurrence
$T(INTRO+I	RSTR+1

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RARTE6

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items