Routine: RARTE1

Package	Total	Call Graph
Radiology Nuclear Medicine	10	RPT^RAHLRPC SET^RAPSET1 (COPY,DEL17)^RARTE2 (CHK17,EN1)^RARTE3 MARKDEL^RARTE7 ^RARTR UP1^RAUTL1 ($$LOCK,UNLOCK)^RAUTL12 UPDTPNT^RAUTL9 ENKILL^RAXREF
VA Fileman	5	^DIC DO^DIC1 ^DIE ^DIK ^DIR
Uncategorized	1	(CREATE,DELETE)^WVRALINK

Package	Total	Caller Graph
Radiology Nuclear Medicine	7	RA DELETERPT RA UNVERIFY RAHLO1 RARTE RARTE4 RARTE5 RARTVER

Entry Points

Name	Comments	DBIA/ICR reference
STD
ASKPRT
UNVER(RAXRPT)	; unverify a report ; Input: if RAXRPT>0 then we know the report we wish to delete ; this requires no user interaction. ; RAXRPT=0 user is prompted for the report they wish to ; delete (interactive)
ASKDEL	; ask if deletion is appropriate
PACS
DXULOC	;unlock the correct RAD/NUC MED PATIENT sub-file
ASKBTCH
EDTRPT	; Called from 'RARTE4' and 'RARTVER'.
DICW	; Build DIC("W") string
Q	; Kill and quit
ASKSEL
DEL
COPYDX	;if we have a printset copy over the Dx code data (both primary & secondary)
AD2
END
DXLOC	;lock the correct RAD/NUC MED PATIENT sub-file
STD1
IMPRPT(Y)	; Does the report we are currently editing have either Report ; or Impression Text? ; Input : 'Y' - the ien of the report being edited ; Output: '1' - either impression or report text exists, '0' - neither ; report or impression text exists.
ASKADD

External References

Name	Field # of Occurrence
^DIC	DEL+5, UNVER+10, STD1
DO^DIC1	DICW+1
^DIE	UNVER+20, EDTRPT+3, EDTRPT+4, EDTRPT+19, EDTRPT+26
^DIK	UNVER+32
^DIR	DEL+11
RPT^RAHLRPC	PACS
SET^RAPSET1	DEL, UNVER+6
COPY^RARTE2	COPYDX+2
DEL17^RARTE2	ASKDEL+12
CHK17^RARTE3	DEL+13
EN1^RARTE3	UNVER+27
MARKDEL^RARTE7	AD2+1
^RARTR	UNVER+27
UP1^RAUTL1	AD2+3, UNVER+30
$$LOCK^RAUTL12	DEL+15, UNVER+18, DXLOC+1, DXLOC+2
UNLOCK^RAUTL12	ASKDEL+3, AD2+5, UNVER+20, DXULOC+1, DXULOC+2
UPDTPNT^RAUTL9	AD2+4
ENKILL^RAXREF	ASKDEL+16, UNVER+25, UNVER+26
CREATE^WVRALINK	PACS+1
DELETE^WVRALINK	AD2+6, UNVER+35

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,"Cannot delete a report that is associated with an image." Line Location: DEL+8
Function Call: WRITE	Prompt: !?5,"Contact your Imaging Coordinator for further assistance.",! Line Location: DEL+9
Function Call: WRITE	Prompt: !!?3,"Enter 'YES' to delete this report, or 'NO' not to." Line Location: ASKDEL+6
Function Call: WRITE	Prompt: !?10,"...report deletion complete." Line Location: AD2+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: ASKSEL+1
Function Call: WRITE	Prompt: !!?3,"Enter 'YES' to select the '",$P(Y,"^",2),"' standard report, or 'NO' not to." Line Location: ASKSEL+2
Function Call: READ	Prompt: "Do you want to add another standard to this report? No// " Formatting: !! Timeout: DTIME Variable: X Line Location: ASKADD+0
Function Call: WRITE	Prompt: !!?3,"Enter 'YES' to add another standard to this report, or 'NO' not to." Line Location: ASKADD+0
Function Call: WRITE	Prompt: ! Line Location: ASKADD+1
Function Call: WRITE	Prompt: !,$C(7),"You must enter a verifying Interpreting Physician to 'VERIFY' a report.",!?3,"...report status will now be changed to 'DRAFT'." Line Location: EDTRPT+4
Function Call: READ	Prompt: "Do you want to batch print reports? Yes// " Formatting: !! Timeout: DTIME Variable: X Line Location: ASKBTCH+0
Function Call: WRITE	Prompt: !!?3,"Enter 'YES' to batch print reports, or 'NO' not to." Line Location: ASKBTCH+0
Function Call: READ	Prompt: "Do you want to print batch now? No// " Formatting: !! Timeout: DTIME Variable: X Line Location: ASKPRT+0
Function Call: WRITE	Prompt: !!?3,"Enter 'YES' to print this batch, or 'NO' not to." Line Location: ASKPRT+0
Routine Call	DIE Line Location: UNVER+20 EDTRPT+3 EDTRPT+4 EDTRPT+19 EDTRPT+26
Routine Call	DIC Line Location: DEL+5 UNVER+10 STD1
Routine Call	DIR Line Location: DEL+11

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^RARPT - [#74]	Classic Fileman Calls
^RA(74.1 - [#74.1]	Classic Fileman Calls
^RABTCH(74.4 - [#74.4]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RA(72 - [#72]	EDTRPT+12, EDTRPT+13, EDTRPT+18
^RA(74.1 - [#74.1]	ASKSEL+4, ASKSEL+5
^RA(79.2 - [#79.2]	EDTRPT+11
^RABTCH(74.4 - [#74.4]	UNVER+30, UNVER+31
^RADPT - [#70]	ASKDEL+13, ASKDEL+14, ASKDEL+18*, UNVER+30, EDTRPT+11, EDTRPT+20
^RARPT - [#74]	DEL+7, UNVER+22, UNVER+23, UNVER+25, UNVER+26, UNVER+35, ASKSEL+3!, ASKSEL+4, ASKSEL+5, ASKADD+1* , EDTRPT+1, EDTRPT+2, EDTRPT+4, PACS, PACS+1, IMPRPT+5
^TMP("RARPT-REC"	UNVER+17

Label References

Name	Line Occurrences
$$IMPRPT	ASKSEL
AD2	ASKDEL+10, ASKDEL+14
ASKADD	ASKADD
ASKBTCH	ASKBTCH
ASKDEL	ASKDEL+4
ASKPRT	ASKPRT
ASKSEL	ASKSEL+2
DEL	ASKDEL+3
DICW	UNVER+10
DXLOC	EDTRPT+16
DXULOC	EDTRPT+20, COPYDX+4
END	DEL+5, DEL+7, DEL+14, DEL+16
PACS	EDTRPT+8, EDTRPT+20
Q	UNVER+6, UNVER+10, UNVER+19
STD1	ASKSEL+1, ASKADD+1

Naked Globals

Name	Field # of Occurrence
^(	EDTRPT+13
^("I"	ASKSEL+3!
^("T"	EDTRPT+2*
^(0	ASKSEL+4, ASKSEL+5, PACS

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	END!, Q+2!
%DT	Q+2!
%W	Q+2!
%Y	END!, Q+2!
%Y1	Q+2!
C	END+4!, Q+2!
D	END+4!, Q+2!
D0	END!, Q+2!
D1	END+4!, Q+2!
DA	DEL+6, ASKDEL+16, END!, UNVER+12, UNVER+31, Q+2!, EDTRPT+3, EDTRPT+4, EDTRPT+12, EDTRPT+19! , EDTRPT+24, EDTRPT+26!
DA(1	ASKDEL+16, EDTRPT+12, EDTRPT+24*
DA(2	ASKDEL+16, EDTRPT+12
DDER	END+4!
DDH	END+4!, Q+4!
DE	UNVER+20!, EDTRPT+3!, EDTRPT+4!, EDTRPT+19!, EDTRPT+26!
DFN	END+4!, Q+1!
DI	END+4!, Q+1!
DIC	DEL+5!, END!, UNVER+8, UNVER+10!, Q+2!, STD1*
DIC("A"	DEL+2, STD1!
DIC("S"	DEL+4, UNVER+8
DIC("W"	DEL+3, DICW+2
DIC(0	DEL+5, UNVER+9, STD1*
DIE	END!, UNVER+17, UNVER+20!, Q+2!, EDTRPT+3, EDTRPT+12, EDTRPT+19!, EDTRPT+24, EDTRPT+26!
DIE("NO^"	EDTRPT+18*
DIK	END!, UNVER+32*, Q+2!
DIPGM	Q+4!
DIR	DEL+11!
DIR("A"	DEL+10*
DIR(0	DEL+10*
DIRUT	DEL+11!
DISYS	END+4!, Q+4!
DIW	Q+1!
DIWF	END+4!, Q+1!
DIWI	Q+1!
DIWL	END+4!, Q+1!
DIWR	END+4!
DIWT	Q+1!
DIWTC	Q+1!
DIWX	Q+1!
DO	DICW+1~
DQ	END+4!, UNVER+20!, EDTRPT+3!, EDTRPT+4!, EDTRPT+19!, EDTRPT+26!
DR	END+4!, UNVER+14, UNVER+15, UNVER+20!, Q+2!, EDTRPT+3, EDTRPT+4, EDTRPT+13, EDTRPT+19!, EDTRPT+21 , EDTRPT+26!
DR(2	UNVER+17, EDTRPT+22
DR(3	EDTRPT+23*
DTIME	ASKDEL+1, ASKSEL+1, ASKADD, ASKBTCH, ASKPRT
DUOUT	DEL+11!
DUZ	UNVER+17
GMRAL	END+4!
HLN	END+4!
HLRESLT	END+4!
HLSAN	END+4!
I	END+4!, Q+4!, ASKSEL+4, ASKSEL+5
RA	Q+2!
RA(0	UNVER+22*
RA(10	UNVER+23*, UNVER+26
RA(5	UNVER+22*, UNVER+24
RA(7	UNVER+23*, UNVER+25
RA0	DEL+6*, END!
RA1	UNVER+21~*, UNVER+29
RA2	UNVER+21~*, UNVER+29
RA3	UNVER+21~*, UNVER+29
RA4	UNVER+21~*, UNVER+27, UNVER+29
RA74B4	UNVER+11*, Q+4!
RA791	END+3!
RAACNT	Q+1!
RACANC	END+3!
RACN	ASKDEL+13, END!, UNVER+13, UNVER+21, UNVER+29, UNVER+30, Q+2!, EDTRPT+21
RACN0	END+3!
RACNI	ASKDEL+13, ASKDEL+14, ASKDEL+16, ASKDEL+18, AD2+6, END!, UNVER+30, UNVER+35, Q+2!, EDTRPT+12 , EDTRPT+20, PACS+1, DXLOC+1, DXULOC+1
RACPT	END+3!
RACPTNDE	END+3!
>> RACT	EDTRPT+1*, EDTRPT+4, EDTRPT+13, EDTRPT+18
RADATE	END+2!, Q+2!
RADDEN	UNVER+27~*
RADFN	ASKDEL+13, ASKDEL+14, ASKDEL+16, ASKDEL+18, AD2+6, END!, UNVER+12, UNVER+21, UNVER+29, UNVER+30 , UNVER+35, Q+3!, EDTRPT+11, EDTRPT+12, EDTRPT+20, EDTRPT+24, PACS+1, DXLOC+1, DXLOC+2, DXULOC+1 , DXULOC+2
RADIV	Q+3!
>> RADRS	COPYDX+2*
RADTE	END+2!, Q+3!
RADTI	ASKDEL+13, ASKDEL+14, ASKDEL+16, ASKDEL+18, AD2+6, END!, UNVER+13, UNVER+21, UNVER+29, UNVER+30 , UNVER+35, Q+3!, EDTRPT+11, EDTRPT+12, EDTRPT+20, EDTRPT+24, PACS+1, DXLOC+1, DXLOC+2, DXULOC+1 , DXULOC+2
RADUZ	END+1!, Q+4!
RAI	END+3!
RAIEN	DEL+6*, DEL+7, DEL+15, ASKDEL+3, ASKDEL+12, ASKDEL+16, AD2+4, AD2+5, END!
RAIMGTYI	EDTRPT+11*, EDTRPT+12!
RAIMGTYJ	EDTRPT+11*, EDTRPT+12!
RAJ	Q+3!
RAJ1	END!
>> RALI	STD, ASKSEL+3, ASKSEL+5, ASKADD+1*
>> RALR	STD, ASKSEL+3, ASKSEL+4, ASKADD+1*
RAN	END+3!
RANUM	Q+1!
RAOBR4	END+3!
>> RAOK	DEL+14, ASKDEL+10, AD2+3, AD2+6
>> RAONLINE	EDTRPT+5
RAOR	END!, Q+3!
RAORDIFN	END+1!, Q+3!
RAPKG	END+3!
RAPRCNDE	END+3!
RAPRG74	DEL+1, AD2, END+1!
RAPROC	END+3!
RAPROCIT	END+3!
>> RAPRTSET	COPYDX+2, DXLOC+1, DXLOC+2, DXULOC+1, DXULOC+2
RAPRV	END+3!
>> RAQUIET	UNVER+17
>> RARDX	EDTRPT+5
RARPT	UNVER+12, UNVER+18, UNVER+20, UNVER+21, UNVER+22, UNVER+23, UNVER+25, UNVER+26, UNVER+29, UNVER+30 , UNVER+31, UNVER+35, Q+3!, ASKSEL, ASKSEL+3, ASKSEL+4, ASKSEL+5, ASKADD+1, EDTRPT+1, EDTRPT+2 , EDTRPT+3, EDTRPT+4, PACS, PACS+1
RASET	Q+3!
RASN	END+1!, Q+3!
RAST	Q+1!
RASTATX	Q+3!
RASTI	END+1!, Q+4!
>> RASUB	UNVER+17
RASULT	END+3!
RAUTOE	UNVER+27~*
RAWHOVER	Q+1!
RAXIT	DEL+1, DEL+15, DEL+16!, AD2!, END+3!, UNVER+8, UNVER+18, UNVER+19, Q+4!, EDTRPT+1~ , EDTRPT+19, EDTRPT+20, EDTRPT+26, COPYDX+2, DXLOC+1, DXLOC+2*
RAXRPT	UNVER~, UNVER+6, UNVER+7, UNVER+9, UNVER+14, UNVER+15
U	UNVER+12, EDTRPT+11, EDTRPT+20, PACS, PACS+1
VA	END+4!
VADM	END+4!
VAERR	END+4!
X	ASKDEL+1, ASKDEL+2, ASKDEL+3, ASKDEL+4, ASKDEL+5, END+2!, UNVER+7~, Q+4!, ASKSEL+1, ASKSEL+2 , ASKADD, EDTRPT+12, EDTRPT+13, EDTRPT+18, ASKBTCH, ASKPRT
X0	END+4!
XQUIT	DEL!, UNVER+6, Q+4!
Y	DEL+5, DEL+6, END+1!, UNVER+10, UNVER+12, Q+4!, STD1, ASKSEL+1, ASKSEL+2, ASKSEL+4 , ASKSEL+5, EDTRPT+4, EDTRPT+8, EDTRPT+20, IMPRPT~, IMPRPT+5
Y(0	DEL+6, UNVER+11, UNVER+12, UNVER+13

Marked Items

Name	Field # of Occurrence
$T(CREATE^WVRALINK	PACS+1
$T(DELETE^WVRALINK	AD2+6, UNVER+35

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RARTE1

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Caller Graph Total: 7

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