Routine: RARTR

Package	Total	Call Graph
Radiology Nuclear Medicine	14	PRT^RAFLH Q^RAFLH1 CHKDUPHX^RART1 ($$TITLE,EN1)^RARTR0 (PRTDX,WARNING)^RARTR1 ($$AMENRPT,FOOT,HANG,SET,SETDIV,WRITE)^RARTR2 (MEMS1,OUT1)^RARTR3 (PHARM,RDIO)^RARTUTL ZIS^RAUTL MODS^RAUTL2 $$INCR^RAUTL4 $$XTERNAL^RAUTL5 $$PTSEX^RAUTL8 OUTTEXT^RAUTL9
VA Fileman	2	^%DT $$GET1^DIQ
Kernel	1	$$FMTE^XLFDT

Package	Total	Caller Graph
Radiology Nuclear Medicine	19	RABTCH RAO7PC3 RAORDQ RART RART2 RART3 RARTE1 RARTE4 RARTE5 RARTR0 RARTR1 RARTR2 RARTRPV RARTRPV1 RARTST RARTST2 RARTUTL RARTVER2 RAUTL3
Tracking Procedure Workflow	1	BTPWRRAD

Entry Points

Name	Comments	DBIA/ICR reference
PRT1
END
HD1
Q	; Queue the report
PRT	; Begin print/build of e-mail message
INIT	; initialize exam/report variables ; main variables set: ; RAY0: zero node data from the Patient File (2) ; RAY1: zero node data from the Rad/Nuc Med Patient File (70) ; RAY2: Registered Exams (70.02) zero node data ; RAY3: Examinations (70.03) zero node data
PEND
HD
DQ

External References

Name	Field # of Occurrence
^%DT	DQ
$$GET1^DIQ	PRT+31, PRT+33
PRT^RAFLH	HD1+2
Q^RAFLH1	PEND
CHKDUPHX^RART1	PRT1+28
$$TITLE^RARTR0	PRT1+69
EN1^RARTR0	PRT1+62
PRTDX^RARTR1	PRT1+61
WARNING^RARTR1	PRT1+84
$$AMENRPT^RARTR2	PRT1+8, PRT1+11, HD1+3
FOOT^RARTR2	PEND, HD
HANG^RARTR2	PRT1+64, PRT1+79, PRT1+83, PEND
SET^RARTR2	PRT1+50
SETDIV^RARTR2	PRT1+84
WRITE^RARTR2	PRT1+51
MEMS1^RARTR3	PRT1+22
OUT1^RARTR3	PRT1+15
PHARM^RARTUTL	PRT1+17
RDIO^RARTUTL	PRT1+16
ZIS^RAUTL	Q+2
MODS^RAUTL2	PRT1+15
$$INCR^RAUTL4	PRT1+1, PRT1+3, PRT1+10, PRT1+11, PRT1+19, PRT1+24, PRT1+39, PRT1+40, PRT1+41, PRT1+42 , PRT1+44, PRT1+57, PRT1+58, PRT1+59, PRT1+73, PRT1+74, PRT1+75, PRT1+81, PRT1+82, PRT1+93 , PRT1+94, PRT1+95
$$XTERNAL^RAUTL5	PRT1+45, PRT1+48
$$PTSEX^RAUTL8	PRT+29
OUTTEXT^RAUTL9	PRT+34
$$FMTE^XLFDT	PRT1+58

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$E(RASTRSK,1,22)," P R O B L E M S T A T E M E N T ",$E(RASTRSK,1,22) Line Location: PRT1+89
Function Call: WRITE	Prompt: !!,$S($D(^RARPT(RARPT,"P")):^("P"),1:"None entered.") Line Location: PRT1+90
Function Call: WRITE	Prompt: !!,RASTRSK Line Location: PRT1+90
Function Call: WRITE	Prompt: @RAFFLF Condition for execution: $Y>0 Line Location: HD1+0
Function Call: WRITE	Prompt: !,?((80-$L(RARTMES))/2),RARTMES,! Line Location: HD1+0

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
70.03	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(74	PRT1+45, PRT1+48
^DPT - [#2]	INIT+11
^RA(78.2 - [#78.2]	INIT+17
^RA(79.1 - [#79.1]	PRT1+61, INIT+17
^RABTCH(74.2 - [#74.2]	PRT1+80, PRT1+81
^RADPT - [#70]	PRT1+17, INIT+10, INIT+12, INIT+13, INIT+14
^RARPT - [#74]	PRT+13, PRT+21, PRT1+6, PRT1+54, PRT1+56, PRT1+80, PRT1+81, PRT1+90, PRT1+94
^TMP($J	PRT1+1, PRT1+3, PRT1+10, PRT1+11, PRT1+19, PRT1+24, PRT1+39, PRT1+40, PRT1+41, PRT1+42 , PRT1+44, PRT1+47, PRT1+48, PRT1+57, PRT1+58, PRT1+59, PRT1+73, PRT1+74, PRT1+75, PRT1+81* , PRT1+82, PRT1+93, PRT1+94, PRT1+95
^UTILITY($J	PRT1+29!, PRT1+52!
^VA(200 - [#200]	PRT1+3, PRT1+66, PRT1+67, PRT1+68, PRT1+80, PRT1+81

Label References

Name	Line Occurrences
@(	INIT+19
END	PRT1+14, PRT1+26, PRT1+29, PRT1+61, PRT1+62, PRT1+63, PRT1+79, PRT1+83
HD	PRT1+64, PRT1+79, PRT1+88
INIT	PRT+24
PEND	PRT1+85
PRT	DQ

Naked Globals

Name	Field # of Occurrence
^(	PRT1+48
^("P"	PRT1+90, PRT1+94
^(0	PRT1+80, PRT1+81, INIT+10, INIT+11, INIT+12, INIT+14, INIT+17
^(1	PRT1+29!

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	END+11!
%DT	DQ*!
%I	END+1!
%W	END+1!
%Y1	END+1!
C	END+1!
DFN	END+8!
DIW	END+11!
DIWF	END+11!, INIT+9, INIT+17, INIT+18*
DIWI	END+11!
DIWL	END+11!, INIT+9, INIT+17, INIT+18*
DIWT	END+11!
DIWTC	END+11!
DIWX	END+11!
DN	END+1!
DT	DQ*
DUZ	PRT1+3
I	END+1!
IO	PRT+16
IOF	PRT+17
IOSL	PRT1+64, PRT1+79, PRT1+88
IOST	HD
RA700332	PRT+31~*, PRT+32, PRT+34
RA700380	PRT+31~, PRT+33, PRT+34
>> RA74B4	PRT1+65
RAACNT	PRT1+1, PRT1+3, PRT1+10, PRT1+11, PRT1+19, PRT1+24, PRT1+39, PRT1+40, PRT1+41, PRT1+42 , PRT1+44, PRT1+47, PRT1+48, PRT1+57, PRT1+58, PRT1+59, PRT1+73, PRT1+74, PRT1+75, PRT1+81 , PRT1+82, PRT1+93, PRT1+94, PRT1+95, END+11!
RABAN1	PRT1+36~, PRT1+37*, PRT1+40
RABAN2	PRT1+36~, PRT1+38*, PRT1+41
RABTCH	PRT1+80, PRT1+81, END+4!, INIT+9*
RACN	END+3!, INIT+8*, INIT+13
>> RACNI	PRT+31, PRT+33, PRT1+17, INIT+13*, INIT+14
>> RADDEN	PRT1+2, PRT1+35, PRT1+48, PRT1+54, PRT1+65
RADFN	PRT+29, PRT+31, PRT+33, PRT1+17, END+3!, INIT+7*, INIT+10, INIT+11, INIT+12, INIT+13 , INIT+14
RADFTSBN	PRT1+65~, PRT1+66, PRT1+67, PRT1+70, PRT1+74
RADFTSBT	PRT1+65~, PRT1+68, PRT1+69, PRT1+71, PRT1+74
RADTE	END+3!, INIT+7*
RADTI	PRT+31, PRT+33, PRT1+17, END+3!, INIT+7*, INIT+12, INIT+13, INIT+14
RADUPHX	PRT1+33, END+11!
>> RADUZ	PRT1+3
RADXCODE	END+1!
RAERRFLG	PRT1+7*, END+8!, HD1+3
RAFFLF	PRT+17, PRT+18, PRT+20, PRT+37!, END+8!, HD1, HD1+1, HD1+2*
RAFMT	END+2!, HD1*
RAFOOT	PRT1+64, PRT1+79, PRT1+88, END+2!, INIT+17*
RAFTFM	END+4!, INIT+17*
RAHDFM	END+4!, INIT+17*, HD1
RAIOF	END+4!, HD1*, HD1+2
RALB	END+2!, INIT+14*
RALBR	END+2!
RALBRT	END+3!
RALBS	END+3!
RALBST	END+3!
RALOC	END+2!
>> RAMDV	PRT1+84
>> RAMIE	PEND, END+8
RAMOD	END+2!
RANUM	END+11!, INIT+10*
RAOOUT	PRT1+14, PRT1+16, PRT1+26, PRT1+29, PRT1+51, PRT1+61, PRT1+62, PRT1+63, PRT1+64, PRT1+79 , PRT1+83, END, END+4!
RAORIOF	PRT+18*, END+8!
RAP	PRT1+29*, PRT1+30, PRT1+33, PRT1+35, PRT1+45, PRT1+46, END+3!
RAP("P"	PRT1+30*, PRT1+34, PRT1+44
RAP("S"	PRT1+47*, PRT1+48
RAPIR	END+4!
RAPIS	END+4!
>> RAPOP	Q+2
RAPRGE	PRT1+56~*, PRT1+58
RAPVERF	END+1!
RAREZON	END+11!
RARPT	PRT+13, PRT+21, PRT1+6, PRT1+54, PRT1+56, PRT1+80, PRT1+81, PRT1+90, PRT1+94, END+4!
RARTMES	END+1!, Q+1, HD1, HD1+1, HD1+2
RASBPN	PRT1+78!
RASBT	PRT1+78!
RASECIEN	PRT1+78!
RASECOND	PRT1+78!
RASECSS	PRT1+78!
RASPCE	PRT1+36~*, PRT1+40, PRT1+41
RAST	PRT1+45, PRT1+48, PRT1+84, PRT1+85, END+11!, INIT+8*
RASTFL	PRT1+45, END+2!
RASTRSK	PRT1+86*, PRT1+89, PRT1+90, PRT1+93, END+8!
RATAB	PRT1+34, END+3!, INIT+8*
>> RAUTOE	PRT+15, PRT+20, PRT+29, PRT1, PRT1+8, PRT1+9, PRT1+19, PRT1+23, PRT1+24, PRT1+34 , PRT1+35, PRT1+44, PRT1+45, PRT1+46, PRT1+50, PRT1+51, PRT1+64, PRT1+70, PRT1+71, PRT1+72 , PRT1+79, PRT1+80, PRT1+81, PRT1+82, PRT1+87, PEND, INIT+19
RAV	END+3!, END+4!
RAVERF	PRT1+65*, PRT1+66, PRT1+67, PRT1+68, PRT1+69, END+1!
RAVERFND	PRT1+63, END+1!
RAVERS	END+2!
RAXX	END+3!
RAY0	PRT+37, END+2!, INIT+6, INIT+11
RAY1	PRT+37, END+2!, INIT+6, INIT+10
RAY2	PRT+37, PRT1+61, END+2!, INIT+6, INIT+12, INIT+17
RAY3	PRT+37, PRT1+14, PRT1+16, PRT1+21, END+2!, INIT+6, INIT+14, INIT+15
U	PRT1+61, PRT1+84, DQ*
VAERR	END+4!
VAL	END+3!
VAR	END+3!
>> X	PRT+21, DQ, INIT+7, INIT+8
XQAID	END!
XQAKILL	END!
>> Y	DQ
Z	END+4!
>> ZTDTH	Q+1*
>> ZTRTN	Q+1*
>> ZTSAVE("RARPT"	Q+1*
>> ZTSAVE("RARTMES"	Q+1*

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RARTR

Information

Source Information

Call Graph

Call Graph Total: 17

Caller Graph

Caller Graph Total: 20

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: