Routine: RAEDCN

Call Graph Total: 17

Package	Total	Call Graph
Radiology Nuclear Medicine	14	^RACNLU $$PRCCPT^RADD1 ($$CKREASON,$$PSET,$$STUB)^RAEDCN1 Q^RAFLH CANCEL^RAHLRPC (TRK70CMA,TRK70CMB)^RAMAINU XCMINTEG^RAMAINU1 SVBEFOR^RAO7XX ^RAORDC (KILL,SET,SETVARS)^RAPSET1 WHYMSG2^RASTED UP1^RAUTL1 ($$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

Package

Total

Caller Graph

Radiology Nuclear Medicine

RA CANCEL RA DIAGCN RA EDITCN RA FLASH RA NOPURGE RAEDCN1

External References

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

Interaction Calls

Name	Line Occurrences
Function Call: READ	Prompt: !?5 Timeout: ",RAXIT:DTIME Variable: "Press RETURN to exit 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+2
Function Call: WRITE	Prompt: !?3,$C(7),"This exam is in the '",$P(^(0),"^"),"' status and cannot be 'CANCELLED'." Line Location: CANCEL+3
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	Prompt: "Do you really want to cancel this exam with images? NO//" Formatting: !! Timeout: DTIME Variable: X 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+12
Function Call: READ	Prompt: "Do you wish to cancel this exam now? NO// " Formatting: !! Timeout: DTIME Variable: X Line Location: ASKCAN+0
Function Call: WRITE	Prompt: !!?3,"Enter 'YES' to cancel this exam, or 'NO' not to." Line Location: ASKCAN+0
Function Call: WRITE	Prompt: !,$C(7),"Someone else is editing the patient you selected",!,"Please try later" Line Location: ASKCAN+2
Function Call: WRITE	Prompt: !?10,"...cancellation complete." Line Location: PACS+0
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	Prompt: "How many flash cards? 1// " Formatting: ! Timeout: DTIME Variable: X 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	Prompt: "How many exam labels? 1// " Formatting: ! Timeout: DTIME Variable: X 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 ASKCAN+3
Routine Call	DIR Line Location: DUP1+11

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	DUP1+21
^RA(72 - [#72]	START1+16, START1+17, CANCEL+2, CANCEL+3
^RA(79.1 - [#79.1]	DUP1+6, DUP1+8
^RADPT - [#70]	START1+9, START1+26, ASKCAN+2, PACS+1, 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	Q+1!
^XUSEC("RA MGR"	START1+16, ASKIMG+6

Label References

Name	Line Occurrences
ASKCAN	ASKIMG, ASKCAN
ASKIMG	ASKIMG
DUP1	FLH+1, EXM+1, EXM+3
EXM	EXM+1
FLH	FLH+1
Q	START1+2, START1+3, CANCEL+2, CANCEL+3, ASKIMG, ASKIMG+12, ASKCAN, ASKCAN+2, PACS+2, DUP1 , DUP1+1, DUP1+4, DUP1+18, EXM+3
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+3, DUP1+18

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAEDCN

Information

Source Information

Call Graph

Call Graph Total: 17

Caller Graph

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:

Name	Comments	DBIA/ICR reference
EXM	; Exam Labels
DUP1
SETVARS	; Setup key Rad/Nuc Med variables
PACS
EDIT	; Case No. Exam Edit
DIAG
START1	;
ASKCAN
ASKIMG
WARN1
Q
START
CANCEL
SAVE
FLH	; Flash Cards
DUP	; Option: RA FLASH