Routine: RAEDCN

Package	Total	Call Graph
Radiology Nuclear Medicine	15	^RACNLU $$PRCCPT^RADD1 ($$CKREASON,$$PSET,$$STUB,CANCEL)^RAEDCN1 Q^RAFLH CANCEL^RAHLRPC (TRK70CMA,TRK70CMB)^RAMAINU XCMINTEG^RAMAINU1 SVBEFOR^RAO7XX EXMCAN^RAORDC (KILL,SET,SETVARS)^RAPSET1 WHYMSG2^RASTED UP1^RAUTL1 $$GETTCOM^RAUTL11 ($$LOCK,UNLOCK)^RAUTL12 (DELPNT,EN2)^RAUTL20
VA FileMan	3	^DIE $$GET1^DIQ ^DIR

Package	Total	Caller Graph
Radiology Nuclear Medicine	6	RA CANCEL RA DIAGCN RA EDITCN RA FLASH RA NOPURGE RAEDCN1

Name	Comments	DBIA/ICR reference
START
START1	;
EXIT	;clean up symbol table and exit
DIAG
SAVE
EDIT	; Case No. Exam Edit
CANCEL	;new w/RA5p124
ASKIMG
ASKCAN	;interact with the user use DIR RA5p124
PACS	;call all RA CANCEL* event drivers only if the order status
DUP	; Option: RA FLASH
DUP1
FLH	; Flash Cards
EXM	; Exam Labels
SETVARS	; Setup key Rad/Nuc Med variables
WARN1

Name	Field # of Occurrence
^DIE	START1+36
$$GET1^DIQ	DUP1+22
^DIR	ASKCAN+5, ASKCAN+23, ASKCAN+30, DUP1+11
^RACNLU	START1+2, CANCEL+8, DUP1
$$PRCCPT^RADD1	START1+27
$$CKREASON^RAEDCN1	CANCEL+5
$$PSET^RAEDCN1	ASKIMG
$$STUB^RAEDCN1	START1+12, ASKIMG
CANCEL^RAEDCN1	ASKCAN+54
Q^RAFLH	EXM+3
CANCEL^RAHLRPC	PACS+2
TRK70CMA^RAMAINU	START1+47
TRK70CMB^RAMAINU	START1+32
XCMINTEG^RAMAINU1	START1+46
SVBEFOR^RAO7XX	START1+35
EXMCAN^RAORDC	ASKCAN+47
KILL^RAPSET1	DUP1+14
SET^RAPSET1	START, CANCEL+1, DUP+1, DUP1+14
SETVARS^RAPSET1	SETVARS+1, SETVARS+3
WHYMSG2^RASTED	START1+8
UP1^RAUTL1	START1+37
$$GETTCOM^RAUTL11	ASKCAN+22
$$LOCK^RAUTL12	START1+22
UNLOCK^RAUTL12	START1+50
DELPNT^RAUTL20	ASKCAN+18
EN2^RAUTL20	START1+5

Interaction Calls

Name	Line Occurrences
Function Call: READ	Prompt: !?5 Variable: "Press RETURN to exit Timeout: ",RAXIT:DTIME Line Location: START1+3
Function Call: WRITE	Prompt: ! Line Location: START1+8
Function Call: WRITE	Prompt: !?3,$C(7),"No report has been entered yet for this exam, therefore it cannot be edited.",! Line Location: START1+12
Function Call: WRITE	Prompt: !!?3,$C(7),"You do not have the appropriate access privileges to edit completed exams." Line Location: START1+16
Function Call: WRITE	Prompt: !!?3,$C(7),"Exam has been 'cancelled' therefore it cannot be edited." Line Location: START1+17
Function Call: WRITE	Prompt: !!?3,$C(7),"A report has been verified for this exam, therefore it cannot be edited.",! Line Location: START1+18
Function Call: WRITE	Prompt: !,?24,RADISPLY Line Location: START1+28
Function Call: WRITE	Prompt: !?3,$C(7),"This exam has already been cancelled!" Line Location: CANCEL+8
Function Call: WRITE	Prompt: !?3,$C(7),"This exam is in the '",$P(^(0),"^"),"' status and cannot be 'CANCELLED'." Line Location: CANCEL+9
Function Call: WRITE	Prompt: !!?3,"Enter 'YES' to cancel a descendent exam with images, or 'NO' not to." Line Location: ASKIMG+0
Function Call: WRITE	Prompt: !!?10,"----------------------------------",$C(7) Line Location: ASKIMG+2
Function Call: WRITE	Prompt: !?10,X Line Location: ASKIMG+3
Function Call: WRITE	Prompt: !?10,"This descendent exam has associated images.",$C(7) Line Location: ASKIMG+4
Function Call: WRITE	Prompt: !?10,"----------------------------------",$C(7) Line Location: ASKIMG+5
Function Call: WRITE	Prompt: !!?3," You do not have the RA MGR key to cancel an exam with images. ",$C(7) Line Location: ASKIMG+7
Function Call: READ	Formatting: !! Prompt: "Do you really want to cancel this exam with images? NO//" Variable: X Timeout: DTIME Line Location: ASKIMG+10
Function Call: WRITE	Prompt: !?3,$C(7),"A report has been filed for this case. Therefore cancellation is not allowed!" Line Location: ASKIMG+13
Function Call: WRITE	Prompt: !,$C(7),"Someone else is editing the patient you selected",!,"Please try later" Line Location: ASKIMG+16
Function Call: WRITE	Prompt: !!?3,"Your sign-on location is: " Line Location: DUP1+5
Function Call: WRITE	Prompt: $P($G(^SC(+$G(^RA(79.1,+$G(RAMLC),0)),0)),"^")_". The location" Line Location: DUP1+6
Function Call: WRITE	Prompt: !?3,"of case ",RACN," is " Line Location: DUP1+7
Function Call: WRITE	Prompt: $P($G(^SC(+$G(^RA(79.1,RAREGX(4),0)),0)),"^"),".",! Line Location: DUP1+8
Function Call: READ	Formatting: ! Prompt: "How many flash cards? 1// " Variable: X Timeout: DTIME Line Location: FLH+1
Function Call: WRITE	Prompt: !?3,$C(7),"Must be a whole number less than 21!" Line Location: FLH+1
Function Call: READ	Formatting: ! Prompt: "How many exam labels? 1// " Variable: X Timeout: DTIME Line Location: EXM+1
Function Call: WRITE	Prompt: !?3,$C(7),"Must be a whole number less than 21!" Line Location: EXM+1
Function Call: WRITE	Prompt: !?3,"An electronically filed report has already been entered for this case.",!?3,"Please use the 'Outside Report Entry/Edit' option to change or enter",!?3,"diagnostic code for this case.",!! Line Location: WARN1+0
Routine Call	DIE Line Location: START1+36
Routine Call	DIR Line Location: ASKCAN+5 ASKCAN+23 ASKCAN+30 DUP1+11

FileNo	Call Tags
^%ZIS(1 - [#3.5]	GET1^DIQ
^RADPT - [#70]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	DUP1+21
^RA(72 - [#72]	START1+16, START1+17, CANCEL+8, CANCEL+9
^RA(75.2 - [#75.2]	ASKCAN+34
^RA(79.1 - [#79.1]	DUP1+6, DUP1+8
^RADPT - [#70]	START1+9, START1+26, ASKIMG+16, ASKCAN+9, ASKCAN+24, ASKCAN+31, ASKCAN+39, ASKCAN+40, ASKCAN+51, ASKCAN+56 , DUP1+1, DUP1+2, DUP1+18
^RAMIS(71 - [#71]	START1+26, DUP1+18
^RARPT - [#74]	START1+14, START1+18
^SC - [#44]	DUP1+6, DUP1+8
^TMP($J	EXIT+2!
^XUSEC("RA MGR"	START1+16, ASKIMG+6

Name	Line Occurrences
ASKCAN	ASKIMG
ASKIMG	ASKIMG
DUP1	FLH+1, EXM+1, EXM+3
EXIT	START1+2, START1+3, CANCEL+8, CANCEL+9, ASKIMG, ASKIMG+13, ASKIMG+16, ASKCAN+10, ASKCAN+24, ASKCAN+31 , PACS+3, DUP1, DUP1+1, DUP1+4, DUP1+18, EXM+3
EXM	EXM+1
FLH	FLH+1
START	START1+18, DIAG+1, SAVE, EDIT+3
START1	START1+16, START1+17, START1+20, START1+51
WARN1	START1+14

Name	Field # of Occurrence
^(0	START1+18, CANCEL+9, DUP1+18

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EXIT+1!, ASKCAN+1~
%DT	EXIT+1!
%H	EXIT+3!
%I	EXIT+3!
%W	EXIT+1!
%X	EXIT+1!
%Y	EXIT+1!
%Y1	EXIT+1!
A	EXIT+1!
C	EXIT+1!
D	EXIT+3!
D0	EXIT+1!
D1	EXIT+1!
D2	EXIT+1!
D3	EXIT+3!
DA	START1+19*, EXIT+1!
DDER	EXIT+3!
DDH	EXIT+7!
DE	START1+36!
DFN	EXIT+6!
DI	EXIT+3!
DIC	EXIT+1!
DIE	START1+19*, START1+36!, EXIT+1!
DIE("NO^"	START1+19*, START1+36!
DIPGM	EXIT+6!
DIR	ASKCAN+1~, ASKCAN+21!, ASKCAN+28!, DUP1+9!, DUP1+13!
DIR("?"	ASKCAN+3, DUP1+10
DIR("A"	ASKCAN+4, ASKCAN+23, ASKCAN+30, DUP1+11
DIR("B"	ASKCAN+2, DUP1+9
DIR(0	ASKCAN+2, ASKCAN+23, ASKCAN+29, DUP1+9
DIROUT	ASKCAN+1~, ASKCAN+21!, ASKCAN+28!, DUP1+9!, DUP1+13!
DIRUT	ASKCAN+1~, ASKCAN+8, ASKCAN+21!, ASKCAN+28!, DUP1+9!, DUP1+12, DUP1+13!
DISYS	EXIT+6!
DIV	EXIT+1!
DIW	EXIT+3!
DIWF	EXIT+3!
DIWI	EXIT+3!
DIWL	EXIT+3!
DIWR	EXIT+3!
DIWT	EXIT+3!
DIWTC	EXIT+3!
DIWX	EXIT+3!
DK	EXIT+1!
DLAYGO	EXIT+7!
DN	EXIT+3!
DQ	START1+36!, EXIT+6!
DR	START1+19*, START1+36!, EXIT+6!
DTIME	START1+3, ASKIMG+8, ASKIMG+10, FLH+1, EXM+1
DTOUT	ASKCAN+1~, ASKCAN+21!, ASKCAN+24, ASKCAN+28!, ASKCAN+31, DUP1+9!, DUP1+13!
DUOUT	ASKCAN+1~, ASKCAN+21!, ASKCAN+24, ASKCAN+28!, ASKCAN+31, DUP1+9!, DUP1+13!
DUZ	START1+16, ASKIMG+6, SETVARS+1, SETVARS+2
GMRAL	EXIT+3!
HLN	EXIT+6!
HLRESLT	EXIT+6!
HLSAN	EXIT+6!
I	EXIT+1!
ION	DUP1+17, DUP1+23, EXM+2
>> IOP	EXM+2*
J	EXIT+4!
ORIFN	EXIT+1!
ORVP	EXIT+1!
POP	START!, EXIT+1!, DUP+1!
R1	EXIT+4!
RA	EXIT+4!
RA00	EDIT+2~
RA17	START1+4~, START1+10*, START1+12, START1+14
RA3	START1+4~, START1+6*
RA7003	START1+4~, START1+9*, START1+10
RAAFTER	EXIT+6!
RAASK	EDIT+2~
RABEFORE	EXIT+6!
RACANC	EXIT+4!
>> RACCESS(	SETVARS+1, SETVARS+2
RACMDA	START1+45*, START1+46, START1+48!
RACMDA(1	START1+45*
RACMDA(2	START1+45*
RACN	EXIT+1!, ASKIMG+1, ASKIMG+16!, DUP1+7
RACN0	EXIT+4!
RACNI	START1+9, START1+26, START1+32, START1+35, START1+45, START1+47, EXIT+1!, ASKIMG, ASKCAN+18, ASKCAN+22 , ASKCAN+40, DUP1+18, DUP1+28
RACPT	EXIT+4!
RACPTNDE	EXIT+4!
RACS	EXIT+1!
RACT	EXIT+1!
RADA	EXIT+4!
RADADA	START1+21*, START1+22, START1+50, EXIT+1!
RADATE	EXIT+1!
RADFLTP	EXIT+7!, EXM+2*
RADFN	START1+9, START1+19, START1+21, START1+26, START1+32, START1+35, START1+45, START1+47, EXIT+1!, ASKIMG , ASKIMG+16, ASKCAN+9, ASKCAN+18, ASKCAN+22, ASKCAN+24, ASKCAN+31, ASKCAN+39, ASKCAN+40, ASKCAN+51, ASKCAN+56 , DUP1+1, DUP1+2, DUP1+18
RADIAG	DIAG~
RADIE	START1+21*, START1+22, START1+50, EXIT+1!
RADIOPH	EDIT+2~
RADISPLY	START1+25~, START1+26, START1+27, START1+28
RADIV	EXIT+1!
RADOSE	EDIT+2~
RADR	START!, START1+3, START1+18, START1+19, START1+24, START1+35, START1+37, START1+44, EXIT+1!, DIAG+1* , SAVE, EDIT+3
RADRAWN	EDIT+2~
RADTE	EXIT+1!, ASKIMG+1, ASKIMG+16!
RADTI	START1+9, START1+21, START1+26, START1+32, START1+35, START1+45, START1+47, EXIT+1!, ASKIMG, ASKCAN+18 , ASKCAN+22, ASKCAN+39, ASKCAN+40, DUP1+1, DUP1+2, DUP1+18
RADUZ	START1+51!, ASKIMG+16!
RAEDIT	EDIT+1~
RAEND	EXIT+4!
RAERR	START1+1~, START1+2, START1+3, START1+8, START1+12, START1+14
RAEXFM	EXIT+1!, DUP1+28*
RAEXLBLS	EXIT+1!, EXM+1*
RAEXOR	EXIT+3!, ASKCAN+47*
RAFELIG	EXIT+4!
RAFIN	EXIT+1!
RAFL	EXIT+1!, EXM+3!
RAFLG	START!, EXIT+1!
RAFLG("DIAG"	START1+20, START1+50, DIAG+1*
RAFLG("EDIT"	START1+20, START1+50, EDIT+3*
RAFLH	EXIT+1!, DUP1+28*
RAFLHFL	EXIT+1!, DUP1+28*
RAFST	EXIT+4!
RAHEAD	EXIT+1!
RAHI	EDIT+2~
RAI	EXIT+1!
>> RAIMGTY	START1+16, START1+17, CANCEL+8, SETVARS+3
RAIX	EXIT+5!
RAJ	EXIT+1!
RALOW	EDIT+2~
RAMEMARR	START1+4~, START1+5
RAMES	EXIT+2!, DUP1+28*
>> RAMLC	DUP1+4, DUP1+6, DUP1+17, DUP1+23, DUP1+28
RAN	EXIT+5!
RANME	EXIT+2!, ASKIMG+1
RANUM	EXIT+2!, FLH+1*
RANUZD1	EDIT+2~
RAOBR4	EXIT+5!
RAOIFN	EXIT+2!, ASKCAN+41*
RAOR	EXIT+2!
RAORDIFN	EXIT+2!
RAOREA	EXIT+2!
RAORIFN	EXIT+2!
RAOSEL	EXIT+2!
RAOSTS	EXIT+2!, ASKCAN+47*, ASKCAN+51
RAPOP	EXIT+2!, ASKIMG+16!
RAPRC	EXIT+2!
RAPRCNDE	EXIT+5!
RAPRI	EXIT+2!
RAPRIT	EXIT+2!
RAPROC	EXIT+5!
RAPROCIT	EXIT+5!
RAPRTSET	START1+4~, START1+8
RAPRV	EXIT+5!
RAPSDRUG	EDIT+2~
RAQUICK	START!, EXIT+2!, EDIT+3*
>> RAREASON	ASKCAN+34*
RAREGX	DUP+1~
RAREGX(0	DUP1+2*, DUP1+3
RAREGX(4	DUP1+3*, DUP1+4, DUP1+8
RAREM	EDIT+2~
RARPT	START1+18, EXIT+2!, ASKIMG, ASKIMG+13
RARPTZ	EXIT+2!
RASKMEDS	EDIT+2~
RASN	EXIT+2!
RASSN	EXIT+2!
RAST	START1+16, START1+17, EXIT+2!, CANCEL+8, CANCEL+9
RASTI	EXIT+2!
>> RATCOM	ASKCAN+22, ASKCAN+23, ASKCAN+25
RATRKCMB	START1+32, START1+47, START1+51!
RAVW	EXIT+2!
RAWHICH	EDIT+2~
RAXIT	START1+3, START1+20, START1+22, START1+51, EXIT+5!, DIAG~, DIAG+1, EDIT+1~, EDIT+3
RAY2	ASKCAN+1~, ASKCAN+39*
RAY3	ASKCAN+1~, ASKCAN+40*, ASKCAN+41
RAYN	DUP+1~, DUP1+4, DUP1+12, DUP1+13, DUP1+15
RAZCM	START1+36!
RAZZ	START1+51!
SDCLST	EXIT+4!
U	START1+10, START1+14, START1+26, ASKCAN+25, ASKCAN+41
VA	EXIT+5!
VADM	EXIT+5!
VADMVT	EXIT+2!
VAERR	EXIT+5!
VAINDT	EXIT+2!
X	START1+2, EXIT+2!, CANCEL+8, ASKIMG, ASKIMG+1, ASKIMG+3, ASKIMG+6, ASKIMG+8, ASKIMG+10, ASKCAN+1~ , DUP1, FLH+1, EXM+1
X0	EXIT+6!
XQUIT	START!, EXIT+2!, CANCEL+2!, DUP+1!, DUP1+15!, SETVARS+3!
Y	EXIT+2!, ASKCAN+1~, ASKCAN+8, ASKCAN+25, ASKCAN+34, DUP1+12, DUP1+18*, DUP1+21, DUP1+22
Y(0	DUP1+22*, DUP1+23!
Z	EXIT+5!

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAEDCN

Information

Source Information

Call Graph

Call Graph Total: 18

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: