Routine: RAEDCN1

Information

RAEDCN1 ;HISC/GJC-Utility routine for RAEDCN ; 20 Apr 2011 7:26 PM

Source Information

Source file <RAEDCN1.m>

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
Radiology Nuclear Medicine	6	^RACNLU (Q,SETVARS)^RAEDCN $$CKREASON^RAEDCN1 CANCEL^RAHLRPC ^RAORDC ^RAPROD
VA Fileman	3	FILE^DIE ^DIK ^DIR

Caller Graph

Caller Graph Total: 14

Package	Total	Caller Graph
Radiology Nuclear Medicine	14	RA DELETEXAM RA VIEWCN RAEDCN RAEDCN1 RAHLO1 RAPM RAREG RARTE5 RARTRPV RARTVER RARTVER2 RASTREQ RASTREQ1 RAUTL3

Entry Points

Name	Comments	DBIA/ICR reference
DEL1
PSET(RADFN,RADTI,RACNI)	; Determine if this exam is part of a printset. ; Input: RADFN-patient dfn <-> RADTI-exam timestamp <-> RACNI-exam ien ; Output: 1 if part of a printset, else 0
UNDEF	; Message for undefined imaging types
ASKDEL
STUB(RARPT)	; Determine if this is an imaging stub report. ; Input: RARPT-ien of the report record ; Output: 1 if an imaging stub rpt, else 0
CKREASON(X)	;check file 75.2 ; P18 moved it from RAEDCN because the routine's length exceeded limit ; 0=OKAY, 1=BAD ; don't check for var RAOREA, because it's not set this early
DEL	; 'Exam Deletion' option (RA DELETEXAM)
VIEW	; 'View Exam by Case No.' option (RA VIEWCN)

External References

Name	Field # of Occurrence
FILE^DIE	ASKDEL+8
^DIK	ASKDEL+15, ASKDEL+23
^DIR	CKREASON+8
^RACNLU	DEL1, VIEW+2
Q^RAEDCN	DEL1, VIEW+2
SETVARS^RAEDCN	DEL+1, VIEW+1
$$CKREASON^RAEDCN1	DEL+2
CANCEL^RAHLRPC	ASKDEL+8
^RAORDC	ASKDEL+2
^RAPROD	VIEW+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,"Imaging Location data is not defined, " Line Location: UNDEF+2
Function Call: WRITE	Prompt: "contact IRM.",$C(7) Line Location: UNDEF+3
Function Call: WRITE	Prompt: !?5,"An Imaging Type was not defined for the following Imaging" Line Location: UNDEF+5
Function Call: WRITE	Prompt: !?5,"Location: "_$P(^SC($P($G(^RA(79.1,+RAMLC,0)),U),0),U)_"." Line Location: UNDEF+6
Function Call: WRITE	Prompt: !!?5,$S(X="C":"Cancellation",1:"Deletion")," cannot be done, because your file #75.2," Line Location: CKREASON+5
Function Call: WRITE	Prompt: !?5,"RAD/NUC MED REASON, does not have ""EXAM ",$S(X="C":"CANCELLED",1:"DELETED"),"""","." Line Location: CKREASON+6
Function Call: WRITE	Prompt: !!?5,"Please notify your ADPAC.",! Line Location: CKREASON+7
Function Call: WRITE	Prompt: !?3,$C(7),"A report has been filed for this case. Therefore deletion is not allowed!" Line Location: DEL1+1
Function Call: READ	Prompt: "Do you wish to delete this exam? NO// " Formatting: !! Timeout: DTIME Variable: X Line Location: ASKDEL+0
Function Call: WRITE	Prompt: !!,"Enter 'YES' to delete this exam, or 'NO' not to." Line Location: ASKDEL+0
Function Call: WRITE	Prompt: !,$C(7),"Someone else is editing an exam for this patient on the date/time",!,"you selected. Please try Later" Line Location: ASKDEL+1
Function Call: WRITE	Prompt: !,"Beginning deletion - please wait " Line Location: ASKDEL+11
Function Call: WRITE	Prompt: !?10,"...deletion of exam complete." Line Location: ASKDEL+16
Routine Call	DIE Line Location: ASKDEL+8
Routine Call	DIR Line Location: CKREASON+8

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RA(72 - [#72]	ASKDEL+7
^RA(75.2 - [#75.2]	CKREASON+3, CKREASON+4
^RA(79.1 - [#79.1]	UNDEF+6
^RADPT - [#70]	PSET+3, ASKDEL+1, ASKDEL+4, ASKDEL+20, ASKDEL+25
^RARPT - [#74]	STUB+3, STUB+4
^SC - [#44]	UNDEF+6

Label References

Name	Line Occurrences
ASKDEL	ASKDEL
DEL1	DEL1+1, ASKDEL, ASKDEL+1, ASKDEL+26
VIEW	VIEW+2

Naked Globals

Name	Field # of Occurrence
^("P"	STUB+4
^("R"	STUB+4

Local Variables

Name	Field # of Occurrence
%	ASKDEL+17!
D	ASKDEL+17!
D0	ASKDEL+17!
D1	ASKDEL+17!
D2	ASKDEL+17!
DA	ASKDEL+13, ASKDEL+17!, ASKDEL+21!, ASKDEL+24!
DA(1	ASKDEL+13, ASKDEL+15, ASKDEL+21, ASKDEL+23
DA(2	ASKDEL+13*, ASKDEL+15
DIC	ASKDEL+17!
DIK	ASKDEL+15, ASKDEL+17!, ASKDEL+21!, ASKDEL+23, ASKDEL+24!
DIR	CKREASON+8!
DIR("A"	CKREASON+8*
DIR(0	CKREASON+8*
DIROUT	CKREASON+8!
DIRUT	CKREASON+8!
DTIME	ASKDEL
DTOUT	CKREASON+8!
DUOUT	CKREASON+8!
DUZ	DEL+1, VIEW+1
RA0	STUB+3~*, STUB+4
RA7003	ASKDEL+4*, ASKDEL+13!
RAAFTER	ASKDEL+17!
RABEFORE	ASKDEL+17!
RABULL	ASKDEL+13*, ASKDEL+17!
>> RACCESS(	DEL+1, VIEW+1
RACNI	PSET~, PSET+3, ASKDEL+4, ASKDEL+8, ASKDEL+13
RADELFLG	ASKDEL+2*, ASKDEL+17!
RADFN	PSET~, PSET+3, ASKDEL+1, ASKDEL+4, ASKDEL+8, ASKDEL+13, ASKDEL+20, ASKDEL+21, ASKDEL+25
RADTI	PSET~, PSET+3, ASKDEL+1, ASKDEL+4, ASKDEL+8, ASKDEL+13, ASKDEL+20, ASKDEL+21, ASKDEL+25
RAERR	ASKDEL+8!
RAFDA	ASKDEL+8!
RAFDA(	ASKDEL+8*
RAFL	VIEW+2!
RAIENS	ASKDEL+8!*
>> RAIMGTY	DEL+1, VIEW+1
>> RAMLC	UNDEF+1, UNDEF+6
RAPRTZ	ASKDEL+17!
RARPT	STUB~, STUB+3, STUB+4, DEL1+1
>> RAVW	VIEW+2*
RAXIT	DEL+2*!
U	UNDEF+6, STUB+4, ASKDEL+7
X	CKREASON~, CKREASON+3, CKREASON+4, CKREASON+5, CKREASON+6, DEL1, ASKDEL, ASKDEL+4, ASKDEL+7, VIEW+2

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAEDCN1

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 14

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed