Routine: RARTST3

Information

RARTST3 ;HISC/CAH,FPT,GJC AISC/RMO-Distribution Reports ;11/24/97 12:16

Package	Total	Call Graph
Radiology Nuclear Medicine	3	SET^RARD EN1^RASELCT DATE^RAUTL
VA Fileman	1	EN1^DIP

Package	Total	Caller Graph
Radiology Nuclear Medicine	2	RARTST1 RARTST2A

Name	Comments	DBIA/ICR reference
Q
IMG()	; Allows the user to select one-many-all i-types. Builds the ; local 'RAIMG(' array for all user selected imaging types. ; RAIMAG=$S(If 'RAIMAG' array properly defined:1,Else:0)
DIP
DATX(X)	;external output function for date format
SELECT	; Called from 6^RARTST1 (Clinic Dist. List) & 7^RARTST1 (Ward Dist List) ; variables passed in: DIC, RAB & RAWC.

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Printed/Unprinted Report Selection",!,"----------------------------------",! Line Location: SELECT+11
Function Call: WRITE	Prompt: ! Line Location: DIP+0
Function Call: WRITE	Prompt: !! Line Location: IMG+5

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

Name	Line Occurrences (* Changed, ! Killed)
^TMP($J	SELECT+4!, SELECT+7, SELECT+9!, IMG+6!

Name	Line Occurrences
Q	SELECT+6, SELECT+11, SELECT+13

Name	Field # of Occurrence
B	DATX+5~, DATX+7
BEGDATE	SELECT+13, Q!
BY	SELECT+2!, SELECT+12*, DIP!, Q+2!
C	SELECT+10!
D	SELECT+10!
D0	SELECT+10!
DA	SELECT+10!
DDH	Q+2!
DHD	SELECT+10!, SELECT+12*, DIP!, Q+2!
DHIT	SELECT+10!
DIC	SELECT+3, SELECT+10!, DIP*!, Q!
DIE	SELECT+10!
DIK	SELECT+10!
DIR	SELECT+10!
DIS	SELECT+10!
DIS(0	SELECT+14*, DIP!
DISH	Q+1!
DISYS	Q+2!
DIU	SELECT+10!
DIWL	SELECT+10!
DO	SELECT+10!
DR	SELECT+10!
E	DATX+5~, DATX+7
ENDDATE	SELECT+13, Q!
F	Q+1!
FLDS	SELECT+12*, DIP!, Q+2!
FR	SELECT+2!, SELECT+7, SELECT+13, DIP!, Q+2!
I	Q+2!
IOP	DIP!
J	Q+2!
L	SELECT+10!, DIP*!
O	Q+1!
POP	Q+2!
RAB	Q!
RABTY	DIP!
RACN	DIP!
RACNI	DIP!
RADATE	DIP!
RADFN	DIP!
RADIC	SELECT+2!, SELECT+3, SELECT+5, SELECT+6!, SELECT+9!, IMG+3~, IMG+4, IMG+6
RADIC("A"	SELECT+3, IMG+4
RADIC("B"	IMG+5*
RADIC(0	SELECT+3, IMG+4
RADTE	DIP!
RADTI	DIP!
RAIMAG	IMG+3!
RAIMAG(	IMG+8*
RAIMAG(0	IMG+9
RAINPUT	SELECT+2!, SELECT+4*, SELECT+5, SELECT+6!, SELECT+9!
RAPOP	SELECT+13, Q!
RAPRTOK	DIP!
RAQUIT	SELECT+2!, SELECT+6!, SELECT+9!
RARD	SELECT+11!
RARD("A"	SELECT+11*
RARD("B"	SELECT+11*
RARD(1	SELECT+11*
RARD(2	SELECT+11*
RARDIFN	Q!
RARPT	DIP!
>> RARPTFLG	DATX+8
RAUTIL	SELECT+2!, SELECT+4, SELECT+5, SELECT+6!, SELECT+7, SELECT+9!, IMG+3~, IMG+5, IMG+6
RAWC	SELECT+3, SELECT+4, SELECT+12, Q!
RAX	IMG+3~, IMG+8
RAY	IMG+3~, IMG+7
RAY(	IMG+8
RAY3	DIP!
TO	SELECT+2!, SELECT+7, SELECT+13, DIP!, Q+2!
W	Q+1!
X	SELECT+11, SELECT+12, SELECT+13*, Q!, DATX~, DATX+5, DATX+8
X1	Q+1!
Y	Q!, DATX+5~, DATX+6, DATX+7, DATX+8
YY	DATX+5~, DATX+7, DATX+8