Routine: RARTST1

Package	Total	Call Graph
Radiology Nuclear Medicine	5	(DIV,RPTST)^RARTST2A (DIP,SELECT)^RARTST3 EN1^RASELCT (CLOSE,D,ZIS)^RAUTL UPDLOC^RAUTL10
VA Fileman	4	^%DT ^DIC DO^DIC1 $$GET1^DIQ

Package

Total

Call Graph

Radiology Nuclear Medicine

(DIV,RPTST)^RARTST2A (DIP,SELECT)^RARTST3 EN1^RASELCT (CLOSE,D,ZIS)^RAUTL UPDLOC^RAUTL10

VA Fileman

^%DT ^DIC DO^DIC1 $$GET1^DIQ

Package	Total	Caller Graph
Radiology Nuclear Medicine	9	RA RPTDISTACTIVITY RA RPTDISTLISTCLINIC RA RPTDISTLISTUNPRINTED RA RPTDISTLISTWARD RA RPTDISTPRINTSTATUS RA RPTDISTQUE RA RPTDISTSINGLECLINIC RA RPTDISTSINGLEWARD RARTE6

Package

Total

Caller Graph

Radiology Nuclear Medicine

RA RPTDISTACTIVITY RA RPTDISTLISTCLINIC RA RPTDISTLISTUNPRINTED RA RPTDISTLISTWARD RA RPTDISTPRINTSTATUS RA RPTDISTQUE RA RPTDISTSINGLECLINIC RA RPTDISTSINGLEWARD
RARTE6

Entry Points

Name	Comments	DBIA/ICR reference
Q
HD4
Q4
P4
Q41
DICW	; Build DIC("W") string
S4
1	;;Routing Queue
3	;;Single Clinic Distribution
2	;;Individual Ward Distribution
5	;;Unprinted Reports List
4	;;Distribution File Activity
7	;;Ward Distribution List
6	;;Clinic Distribution List
8	;;Report's Print Status
81
DIP	;RANGE defined only if prt'g via 'Individual Ward' or 'Single Clinic'

External References

Name	Field # of Occurrence
^%DT	HD4+2
^DIC	1+4, 4+1, 8+3
DO^DIC1	DICW+1
$$GET1^DIQ	P4+1
DIV^RARTST2A	1+6, 2+3, 3+3
RPTST^RARTST2A	8+7
DIP^RARTST3	5+2
SELECT^RARTST3	6+1, 7+2
EN1^RASELCT	2+6, 3+6
CLOSE^RAUTL	Q4, Q+1
D^RAUTL	P4+1, HD4+2
ZIS^RAUTL	4+2, DIP+9
UPDLOC^RAUTL10	8+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,RADATE,?20,RACT,?30,$E(RADUZ,1,15),?50,$E(RARTMES,1,20),?72,RARTCNT Line Location: P4+2
Function Call: READ	Prompt: "Press RETURN to continue or '^' to stop" Formatting: !! Timeout: DTIME Variable: X Line Location: HD4+1
Function Call: WRITE	Prompt: @IOF,!,RABN_" Distribution Activity Log",?70,"Page: ",RAPAGE,!,"Run Date: " Line Location: HD4+2
Function Call: WRITE	Prompt: Y Line Location: HD4+2
Function Call: WRITE	Prompt: !!,"Log Date",?20,"Activity",?30,"User",?50,"Comment",?72,"Qty",!,"--------",?20,"--------",?30,"----",?50,"-------",?72,"---" Line Location: HD4+3
Function Call: WRITE	Prompt: !!,$C(7),"Report has not been 'verified'." Line Location: 8+4
Function Call: WRITE	Prompt: ! Line Location: 8+4
Function Call: WRITE	Prompt: !!,$C(7),"Report is not in any distribution queue." Line Location: 8+5
Function Call: WRITE	Prompt: ! Line Location: 8+5
Function Call: WRITE	Prompt: ! Line Location: DIP+5
Routine Call	DIC Line Location: 1+4 4+1 8+3

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^DIC(42 - [#42]	Classic Fileman Calls
^SC - [#44]	Classic Fileman Calls
^RARPT - [#74]	Classic Fileman Calls
^RABTCH(74.3 - [#74.3]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^RABTCH(74.3 - [#74.3]	2+2, 3+2, S4, 6+1, 7+1
^RABTCH(74.4 - [#74.4]	8+5, 8+6
^TMP($J	Q!

Name	Line Occurrences
8	8+4, 8+5
81	8+3, 8+4, 8+5
DICW	8+3
DIP	1+7, 2+7, 3+7
HD4	S4, P4+2
P4	S4
Q	1+4, 1+6, 2+3, 2+6, 3+3, 3+6
Q4	4+2
Q41	4+1

Name	Field # of Occurrence
^(	S4
^(0	S4, 8+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	81!, 81+1!, Q!
%DT	HD4+2*!, Q!
>> BY	5+1*
C	81!
D	81!, Q!
D0	8+6*, 81!, Q!
D1	Q!
DA	Q!
DDH	81!, Q!
>> DHD	5+1*
DIC	1+4!, 4+1!, Q4!, 6+1, 7+1, 8+1*, 8+3!, Q!
DIC("A"	1+2, 4+1, 8+1*
DIC("B"	1+2, 4+1
DIC("S"	1+3, 8+2
DIC("W"	DICW+2*
DIC(0	1+1, 4+1, 8+1*
DIE	Q!
DIERR	P4~
DILCT	81!
DIPGM	81!
DIR	Q!
DIRUT	Q!
>> DIS(0	5+2*
DISH	5+3!
DISTP	81!
DISYS	81!, Q+1!
DIXX	81+1!, Q!
DN	81!
DO	DICW+1~
DTIME	HD4+1
DUOUT	Q41!, Q+1!
DXS	8+7!, 81+1!
F	5+3!
>> FLDS	5+1*
I	Q41!, 5+3!, 7+1!, 81+1!, Q+1!
IO	S4
IOF	HD4+2
IOP	DIP+5*, DIP+9!
IOSL	P4+2
J	Q!
O	5+3!
POP	Q41!, 5+3!, 7+1!, 81!, Q!, Q+1!
RA4	1+7!, 2+7!, 3+7!, DIP+7, Q+1!
RAB	1+5, 2+2, 3+2, 4+1, S4, Q4!, 6+1, 7+2, 8+6*, 81+1! , Q!
RABEG	DIP+6, Q!
RABN	4+1*, Q4!, HD4+2
RABTY	81+1!
RACN	81+1!, Q!
RACT	S4, Q4!, P4+1, P4+2
RAD0	8+6*, 81+1!
RADATE	Q4!, P4+1*, P4+2
RADFN	8+6*, 81+1!
RADIC	2+4, 2+6!, 3+4, 3+6!
RADIC("A"	2+4, 3+4
RADIC("S"	2+5, 3+5
RADIC(0	2+4, 3+4
RADIV	1+6, 2+3, 3+3, Q!
RADTE	S4*, Q4!, P4+1
RADTI	S4*, Q4!
RADUZ	S4, Q4!, P4+1, P4+2
RAEND	Q!
RAF408	1+7!, 2+7!, 3+7!, DIP+7, Q+1!
RAIMAG	1+6, 2+3, 3+3, Q!
RAIOM	Q4!
RAIOSL	Q4!
RALOCSRT	Q!
RAMES	Q41!, Q+1!
RANGE	2+7, 3+7, DIP+2*, DIP+8, Q!
RAOMA	1+1~, 2+1~, 3+1~*
RAPAGE	Q4!, HD4*, HD4+1, HD4+2
RAPOP	4+2, Q4!, Q!
RAPRT	1+6, 2+3, 3+3, Q!
RAPRTOK	81+1!
RAQUIT	2+6, 2+7!, 3+6, 3+7!, Q!
RARD	Q!
RARDIFN	8+6*, 81+1!
RARPT	8+6*, 8+7, 81+1!
RARPTFLG	5+1*, 5+3!
RARTCNT	S4*, Q4!, P4+2
RARTMES	S4*, Q4!, P4+2
RARTST1	1+5*, Q!
RASRT	1+6, 2+3, 3+3, Q!
RASSN	81!
>> RAWC	6+1, 7+1
RAY3	8+6*, 81!
U	8+6
W	5+3!
X	S4, Q4!, P4+2, HD4+1, HD4+2*, 81+1!, Q!
X1	81+1!, Q!
Y	1+4, 1+5, 2+2, 3+2, 4+1, Q4!, P4+1, HD4+2, 6+1, 7+1* , 7+2, 8+3, 8+5, 8+6, 81+1!, Q!
Y(0	1+5, 8+4, 8+6
ZTDESC	Q41!, Q+1!
ZTRTN	4+2, Q41!, DIP+5, Q+1!
ZTSAVE	Q41!, Q+1!
ZTSAVE("RA4("	DIP+7*
ZTSAVE("RAB"	4+2, DIP+5
ZTSAVE("RABEG"	DIP+6*
ZTSAVE("RABN"	4+2*
ZTSAVE("RADIV"	DIP+5*
ZTSAVE("RAEND"	DIP+6*
ZTSAVE("RAF408("	DIP+7*
ZTSAVE("RAIMAG("	DIP+5*
ZTSAVE("RALOCSRT"	DIP+5*
ZTSAVE("RANGE"	DIP+8*
ZTSAVE("RASRT"	DIP+5*
ZTSAVE("^TMP($J,""WARD/CLIN"","	DIP+8*

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RARTST1

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: