Routine: RART

Call Graph Total: 15

Package	Total	Call Graph
Radiology Nuclear Medicine	12	^RACNLU TASK^RAHLO4 SET^RAPSET1 (OERR1,WAIT)^RART1 COPY^RARTE2 Q^RARTR (RESTORE,RETURN,SAVE)^RARTVER2 UPSTAT^RAUTL0 $$VERONLY^RAUTL11 ($$LOCK,UNLOCK)^RAUTL12 EN2^RAUTL20 $$DIVLOC^RAUTL7
VA Fileman	2	^DIE $$GET1^DIQ
Uncategorized	1	CREATE^WVRALINK

Package

Total

Call Graph

^RACNLU TASK^RAHLO4 SET^RAPSET1 (OERR1,WAIT)^RART1 COPY^RARTE2 Q^RARTR (RESTORE,RETURN,SAVE)^RARTVER2 UPSTAT^RAUTL0
$$VERONLY^RAUTL11 ($$LOCK,UNLOCK)^RAUTL12 EN2^RAUTL20 $$DIVLOC^RAUTL7

VA Fileman

^DIE $$GET1^DIQ

Uncategorized

CREATE^WVRALINK

Package	Total	Caller Graph
Radiology Nuclear Medicine	5	RA RPTVERIFY RABTCH1 RART1 RART3 RARTVER

Package

Total

Caller Graph

Radiology Nuclear Medicine

RA RPTVERIFY RABTCH1 RART1 RART3 RARTVER

Entry Points

External References

Name	Field # of Occurrence
^DIE	31+12, 31+17, 31+24
$$GET1^DIQ	PRTDX+6, PRTDX+14
^RACNLU	30
TASK^RAHLO4	PACS
SET^RAPSET1	3+2
OERR1^RART1	OERR1+2
WAIT^RART1	PRTDX+2, PRTDX+8, PRTDX+12
COPY^RARTE2	UNL31+3
Q^RARTR	TIME+9
RESTORE^RARTVER2	TIME+9
RETURN^RARTVER2	32+1
SAVE^RARTVER2	TIME+3
UPSTAT^RAUTL0	TIME+1
$$VERONLY^RAUTL11	SS1
$$LOCK^RAUTL12	31+5, 31+10
UNLOCK^RAUTL12	31+12, UNL31+4
EN2^RAUTL20	UNL31+2
$$DIVLOC^RAUTL7	3+3
CREATE^WVRALINK	PACS+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$C(7),"Interpreting Residents are not allowed to verify reports." Line Location: 3+7
Function Call: WRITE	Prompt: !!?2,$C(7),"No report available!" Line Location: 30+0
Function Call: WRITE	Prompt: !!?2,$C(7),"Report already ",$S(I5="V":"verified",1:"electronically filed") Line Location: 30+1
Function Call: WRITE	Prompt: !,"Error: Cannot determine imaging type of exam.",! Line Location: 31+2
Function Call: WRITE	Prompt: !?3,"Primary Diagnostic Code: ",!?2,$S($D(^RA(78.3,+RADXCODE,0)):$P(^(0),U,1),1:"") Line Location: PRTDX+5
Function Call: WRITE	Prompt: ! Line Location: PRTDX+9
Function Call: WRITE	Prompt: !!?3,"Secondary Diagnostic Codes: " Line Location: PRTDX+10
Function Call: WRITE	Prompt: !?2,$P(^RA(78.3,RADXCODE,0),U,1) Line Location: PRTDX+13
Function Call: WRITE	Prompt: ! Line Location: PRTDX+16
Routine Call	DIE Line Location: 31+12 31+17 31+24

FileNo	Call Tags
^RARPT - [#74]	Classic Fileman Calls
^LEX(757.01 - [#757.01]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RA(72 - [#72]	31+14, 31+15, 31+16
^RA(78.3 - [#78.3]	PRTDX+5, PRTDX+6, PRTDX+12, PRTDX+13, PRTDX+14
^RA(79.2 - [#79.2]	31+1
^RADPT - [#70]	31+1, 31+19, PRTDX+4, PRTDX+9, PRTDX+12
^RARPT - [#74]	30, 30+1, 32+1
^TMP($J	Q!
^VA(200 - [#200]	3+4, 3+6
^XUSEC("RA VERIFY"	3+4

Name	Line Occurrences
30	3+4, 3+5, 3+6, 30, 30+1
@(	31+2, 31+6, 31+11, PACS+3, TIME+12
Q	3+3, 3+7, 30
UNL31	31+19

Name	Field # of Occurrence
^(	31+15
^(0	PRTDX+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	Q!
%DT	Q!
%W	Q+1!
%X	Q!, EXIT+2!
%XX	EXIT+2!
%Y	Q+1!, EXIT+2!
%Y1	Q+1!
%YY	EXIT+2!
>> %ZIS("B"	TIME+7*!, TIME+10!
A	EXIT+2!
C	Q!
D	Q!
D0	Q!
D1	Q!
DA	31, 31+5, 31+12, 31+14, 31+18!, 31+23*, UNL31+6!, Q!
DA(1	31+14, 31+23
DA(2	31+14*
DDER	Q+1!, EXIT+2!
DDH	Q+1!
DE	31+12!, 31+18!, UNL31+6!
DFN	EXIT+2!
DI	Q+1!, EXIT+2!
DIC	Q!
DIE	31, 31+5, 31+12, 31+13!, 31+14, 31+18!, 31+23*, UNL31+6!
DIE("NO^"	31, 31+16
DIR	EXIT+2!
DIROUT	Q+1!
DIRUT	Q+1!
DIW	EXIT+2!
DIWI	EXIT+2!
DIWT	EXIT+2!
DIWTC	EXIT+2!
DIWX	EXIT+2!
DLAYGO	Q+1!, EXIT+2!
DN	EXIT+3!
DQ	31+12!, 31+18!, UNL31+6!
DR	31, 31+12!, 31+15, 31+18!, 31+20*, UNL31+6!
DR(2	31+21*
DR(3	31+22*
DTOUT	Q+1!
DUOUT	Q+1!
DUZ	3+4, 3+6
I5	3+1~, 30+1*
IOSL	PRTDX+2, PRTDX+8, PRTDX+12
POP	Q+1!
RAAB	TIME+1!
RACI	Q+1!, EXIT+3!
RACN	31+20, Q!
RACN0	EXIT+3!
RACNI	31+7, 31+14, 31+19, PACS+1, Q!, PRTDX+4, PRTDX+9, PRTDX+12
RACPT	EXIT+3!
RACPTNDE	EXIT+3!
RACT	31+15, 31+16, 32+1, PACS, PACS+1, TIME, Q!
RADATE	Q!
RADFN	31+1, 31+7, 31+14, 31+19, 31+23, PACS+1, Q!, PRTDX+4, PRTDX+9, PRTDX+12
>> RADRS	UNL31+3*
RADTE	Q!
RADTE0	EXIT+3!
RADTI	31+1, 31+7, 31+14, 31+19, 31+23, PACS+1, Q!, PRTDX+4, PRTDX+9, PRTDX+12
RADTV	EXIT+3!
RADUZ	Q!
>> RADXCODE	PRTDX+4, PRTDX+5, PRTDX+6, PRTDX+11, PRTDX+12*, PRTDX+13, PRTDX+14
RAFLG	PRTDX+2!, PRTDX+5!, PRTDX+12!
RAHEAD	Q!
RAHLTCPB	TIME+1~*
RAI	Q!
RAIMGTYI	31+1*, 31+2!, Q!
RAIMGTYJ	31+1*, 31+2!, 31+14, Q!
>> RAMDV	3+5, 3+7
RAMEMARR	UNL31+1~, UNL31+2
>> RAMLC	TIME+7
RAN	EXIT+3!
RANME	Q!
>> RANOSCRN	3+3
RANUM	Q!
RAOBR4	EXIT+3!
>> RAOOUT	PRTDX+12
RAOR	Q!
RAPGM	30*, 31+2, 31+6, 31+11, 32+1, PACS+3, TIME+4, TIME+12, Q!
RAPRC	Q!
RAPRCNDE	EXIT+3!
RAPROC	EXIT+4!
RAPROCIT	EXIT+4!
RAPRTSET	UNL31+1~, UNL31+3
RAPRV	EXIT+4!
RAQUIT	Q!
>> RARDX	TIME+2
RAREPORT	30*, Q!
RARPT	30, 30+1, 31, 32+1, Q!
RARPT0	EXIT+4!
>> RARTVERF	PRTDX+2, PRTDX+8, PRTDX+12
RASAVDA	31+7*, 31+10, UNL31+4, UNL31+5!
RASAVDA(1	31+7*
RASAVDA(2	31+7*
RASAVDIE	31+7*, 31+10, UNL31+4, UNL31+5!
RASET	Q!
RASN	Q!
RASSN	Q!
RAST	Q!
RASTI	Q!
RATMP	PRTDX+1~, PRTDX+6, PRTDX+7, PRTDX+14, PRTDX+15
RAUP	30!, Q!
RAVER	Q!
RAXIT	31+5, 31+6!, 31+10, 31+11!, 31+13!, UNL31+3*, 32!
U	31+1, 31+19, 32+1, PRTDX+4, PRTDX+5, PRTDX+6, PRTDX+13, PRTDX+14
VA	EXIT+4!
VADM	EXIT+4!
VAERR	EXIT+4!
X	3+3, 30, 31+14, 31+15, 31+16, Q!, PRTDX+3, PRTDX+8, PRTDX+12
X2	EXIT+4!
XQUIT	3+2!
Y	Q!
ZTSK	Q+1!, EXIT+4!

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RART

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 5

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

Name	Comments	DBIA/ICR reference
OERR1	; Jump to 'OERR1^RART1' This is necessary to support the reference to ; this line label in the OE/RR Notifications file.
PRTDX	; print dx codes on report display (called from RART1)
PACS
32
31
30
SS1
Q
3	;;Verify a Report
EXIT	; Kill variables created when user prints 'Abnormal Rad/Nuc Med Report ; Alert'. Variables are created when 'PRT^RARTR' is called.
TIME
UNL31	; copy then unlock