Routine: RARTST

Package	Total	Call Graph
Radiology Nuclear Medicine	6	PRT^RARTR (CLOSE,D,ZIS)^RAUTL UPDLOC^RAUTL10 RASET^RAUTL2 ($$ENV,EMAIL)^RAUTL4 $$DIVSION^RAUTL6
VA Fileman	3	^%DT C^%DTC ^DIK
Kernel	2	^%ZTLOAD $$UP^XLFSTR
MailMan	2	KILL^XM ^XMD

Package	Total	Caller Graph
Radiology Nuclear Medicine	4	RA RPTDISTAUTOPURGE RA RPTDISTPURGE RA RPTDISTREBUILD RAUTL0

Entry Points

Name	Comments	DBIA/ICR reference
RESET	;; ** Radiology Report Distribution File Rebuild Routine **
PURGE	;; ** Routine to Purge Reports Distribution File **
PURGE1
LOCK
CHK
S
Q
START
INIT	; initialize variables
STUFF
EXIT
DUPCHK	;Check if this report (RARPT) is already in this queue (RAB)
MAIL	; Mail to Req. Physician if applicable
LOOP

External References

Name	Field # of Occurrence
^%DT	RESET+1, START, START+6, PURGE+1, PURGE1+5, PURGE1+13
C^%DTC	PURGE1+1
^%ZTLOAD	PURGE+4
^DIK	PURGE1+7, PURGE1+10, PURGE1+11
PRT^RARTR	MAIL+12
CLOSE^RAUTL	Q
D^RAUTL	START, START+6, PURGE1+2, PURGE1+5, PURGE1+13
ZIS^RAUTL	RESET+2
UPDLOC^RAUTL10	CHK
RASET^RAUTL2	INIT+1
$$ENV^RAUTL4	MAIL+9
EMAIL^RAUTL4	MAIL+12
$$DIVSION^RAUTL6	MAIL+8
$$UP^XLFSTR	MAIL+7
KILL^XM	PURGE1, PURGE1+17
^XMD	PURGE1+17

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$P($T(RESET),";;",2),! Line Location: RESET+1
Function Call: WRITE	Prompt: ! Line Location: RESET+2
Function Call: WRITE	Prompt: !!,"Distribution files rebuilding process beginning at ",Y Line Location: START+0
Function Call: WRITE	Prompt: !,"All Distribution Queues have been inactivated. Aborting Distribution File",!,"rebuild." Line Location: START+2
Function Call: WRITE	Prompt: "." Line Location: START+4
Function Call: WRITE	Prompt: !!?3,"Total reports used to rebuild files: ",C1 Line Location: START+5
Function Call: WRITE	Prompt: !!,*7,"Distribution files rebuilding process completed at ",Y,"." Line Location: START+6
Function Call: WRITE	Prompt: !!,$P($T(PURGE),";;",2),! Line Location: PURGE+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^RABTCH(74.4 - [#74.4]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DISV(	LOCK+3*
^DPT - [#2]	MAIL+3
^RA(79 - [#79]	MAIL+9
^RABTCH(74.3 - [#74.3]	STUFF+1, START+1, PURGE1+8, PURGE1+9, PURGE1+11
^RABTCH(74.4 - [#74.4]	S+1, LOCK, LOCK+1, LOCK+2, LOCK+3, DUPCHK+1, START+1!, PURGE1+7, PURGE1+10
^RADPT - [#70]	CHK+4, MAIL+4, MAIL+5
^RAO(75.1 - [#75.1]	MAIL+8
^RARPT - [#74]	START+4, MAIL+6
^RARPT("AA"	START+4
^XMB(3.7 - [#3.7]	MAIL+9

Label References

Name	Line Occurrences
CHK	STUFF+1, LOOP
DUPCHK	S
EXIT	PURGE+1, PURGE+6
INIT	STUFF, START+4
LOCK	LOCK
LOOP	START+4
MAIL	INIT+2
PURGE	PURGE+1
Q	STUFF, RESET+1, RESET+2, START+2
RESET	RESET+1
S	CHK+1, CHK+2, CHK+3, CHK+4

Naked Globals

Name	Field # of Occurrence
^(	STUFF+1, START+1
^("I"	STUFF+1, START+1
^(0	STUFF+1, LOCK+3, START+1, START+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	RESET+1!, START, START+6, PURGE+1!, PURGE1+5, PURGE1+13, EXIT!
%DT("A"	RESET+1, PURGE+1
%X	Q!, EXIT!
%XX	Q!
%Y	Q!, EXIT!
%YY	Q!
A1	EXIT+1!
C0	Q!
C1	START+3, START+4, START+5, Q!
D	EXIT!
DA	PURGE1+7, PURGE1+10, PURGE1+11*, EXIT!
DA(1	PURGE1+11*
DDH	EXIT+1!
DIC	EXIT!
DIK	PURGE1+7, PURGE1+10, PURGE1+11*, EXIT!
DT	STUFF+1, LOCK+1, START+1, PURGE1+1, MAIL+8
DUOUT	Q+1!
DUZ	LOCK+3, PURGE1+15
I	S+1, LOCK, LOCK+1, LOCK+2, LOCK+3, LOCK+4, Q+1!, EXIT+1!
INACTDT	PURGE1+9*, PURGE1+10, EXIT!
IO	START
IOP	RESET+2*!
MSGTXT	PURGE1!, EXIT!
MSGTXT(1	PURGE1+3*
MSGTXT(2	PURGE1+4*
MSGTXT(3	PURGE1+6*
MSGTXT(4	PURGE1+14*
POP	Q+1!, EXIT!, EXIT+1!
RA	START+1!, START+2, Q!
RA(	START+1*, LOOP
RA1	START+4, Q!, MAIL+1~, MAIL+2, MAIL+3, MAIL+4, MAIL+5, MAIL+14
RA2	MAIL+1~, MAIL+2*, MAIL+4, MAIL+5, MAIL+14
RA3	MAIL+1~, MAIL+2*, MAIL+5, MAIL+14
RA74	MAIL+1~
RA74(0	MAIL+6*, MAIL+7
RA744	PURGE1+10*, EXIT!
RA74IEN	MAIL+1~, MAIL+6*, MAIL+14
RAACNT	MAIL+10~, MAIL+11*
RAB	STUFF+1, STUFF+2!, S, LOCK+1, LOCK+2, DUPCHK+1, START+1, Q!, LOOP, PURGE1+8 , PURGE1+9, PURGE1+10, PURGE1+11, EXIT!
RACAT	STUFF+1, STUFF+2!, CHK+1, CHK+2, CHK+3, CHK+4, Q!, LOOP
RACN	Q!
RACNI	CHK+4, Q!, MAIL+2, MAIL+14*
RADATE	Q!
RADFN	CHK+4, Q!, MAIL+2, MAIL+14*
RADIVISN	MAIL+1~, MAIL+8*, MAIL+9
RADT	RESET+1, START+4, Q!, PURGE+1, PURGE1+1*, PURGE1+2, PURGE1+7, PURGE1+10, PURGE1+11, EXIT!
RADTE	Q!, PURGE1+7*, EXIT!
RADTI	CHK+4, Q!, PURGE1+11, EXIT!, MAIL+2, MAIL+14
RADUP744	S!, DUPCHK+1!*
RAFL	STUFF+2!, CHK, CHK+1, CHK+2, CHK+3, CHK+4*, CHK+5
RAMES	Q+1!
RAPOP	Q!
RARDIFN	STUFF+2!, LOCK+4, Q!, PURGE1+7, EXIT!
RARPHYS	MAIL+10~, MAIL+11*
RARPT	INIT+1, LOCK+1, LOCK+2, DUPCHK+1, START+4, Q!, EXIT!, MAIL+6, MAIL+14
RASTAT	MAIL+1~, MAIL+7*, MAIL+9
RAUTOE	MAIL+10~, MAIL+11*
RAY0	MAIL+1~, MAIL+3*
RAY2	MAIL+1~, MAIL+4*
RAY3	STUFF+2!, INIT+2, CHK+2, CHK+3, CHK+4, LOCK+1, Q!, MAIL+1~, MAIL+5, MAIL+8 , MAIL+9, MAIL+11
U	LOCK+1, DUPCHK+1
X	START, START+1, START+6, Q!, PURGE1+1, PURGE1+5, PURGE1+13*, EXIT!, MAIL+1~
>> X1	PURGE1+1*
>> X2	PURGE1+1*
X744	S+1!, DUPCHK+1*, DUPCHK+2!
>> XMDUZ	PURGE1+16*
>> XMSUB	PURGE1+15*
>> XMTEXT	PURGE1+15*
>> XMY(	PURGE1+15*
Y	STUFF, INIT+1, INIT+2, RESET+1, START, START+4, START+6, Q!, PURGE+1, PURGE1+2 , PURGE1+3, PURGE1+6, PURGE1+14, EXIT!, MAIL+1~
ZTDESC	Q+1!, PURGE+3*
>> ZTDTH	PURGE+3*
>> ZTIO	PURGE+2*
>> ZTQUEUED	EXIT+2
>> ZTREQ	EXIT+2*
ZTRTN	RESET+2, Q+1!, PURGE+2
ZTSAVE	Q+1!
ZTSAVE("RADT"	RESET+2, PURGE+2
ZTSK	PURGE+5, EXIT!

Marked Items

Name	Field # of Occurrence
$T(PURGE	PURGE+1
$T(RESET	RESET+1

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RARTST

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 4

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