Routine: LRAPQAC

Package	Total	Call Graph
Lab Service	7	^LRAP ^LRAPT1 ^LRAPT2 CK^LRAUSM (B,D,L,S,SSN,V,XR,YN)^LRU EN^LRUA (BEG,END)^LRUTL
Kernel	1	^%ZIS
VA Fileman	1	^%DT

Package	Total	Caller Graph
Lab Service	1	LRAPQAC

Name	Comments	DBIA/ICR reference
A
END
F
L	;S LRQ=0,LRP=$P(LRPPT,"^"),SEX=$P(LRPPT,"^",2),Y=$P(LRPPT,"^",3),SSN=$P(LRPPT,"^",9) D D^LRU,SSN^LRU S DOB=$S(Y[1700:"",1:Y)
O
TP
S
AU
T
Y1
QUE

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!?20,"Quality assurance cum path data summaries",!?21,"for accessions from one date to another",! Line Location: LRAPQAC+4
Function Call: WRITE	Prompt: !,"Do you want to specify a site/specimen (Topography) " Line Location: LRAPQAC+5
Function Call: WRITE	Prompt: @IOF Line Location: QUE+4
Function Call: READ	Prompt: "For all sites type 'ALL' : " Timeout: DTIME Variable: X Line Location: TP+0
Function Call: WRITE	Prompt: !!,"TOPOGRAPHY (Organ/Tissue)",!?5,"Select 1 or more characters of the code",!?5 Line Location: TP+0
Routine Call	%ZIS Line Location: LRAPQAC+3

Name	Line Occurrences (* Changed, ! Killed)
^DIC - [#1]	QUE+2
^LAB(61 - [#61]	T
^LR - [#63]	QUE+1, QUE+2, L+1, L+2, AU, S, T
^TMP("LRAP"	QUE!, QUE+2, QUE+3, QUE+4!, O
^TMP($J	QUE!

Name	Field # of Occurrence
^(	QUE+3, T
^(0	T

Name	Field # of Occurrence
>> %	LRAPQAC+5*
>> %DT	LRAPQAC+3*
>> A("B"	TP!, TP+1
>> DFN	L+1*
>> DOB	L+1*
DTIME	TP
>> I	F, Y1*
>> I(1	Y1*
>> I(2	Y1*
IO	QUE
IOF	LRAPQAC+4, QUE+4
>> IOP	LRAPQAC+3*
>> LR("Q"	QUE+3, L+3
>> LR("W"	QUE*
>> LRA	QUE+1, QUE+3, S, T
>> LRABV	AU, S, T
LRAU	QUE+4!
>> LRB	QUE+3*
>> LRDFN	QUE+1, QUE+2, QUE+3*, L+1, L+2, AU, O, S, T
>> LRDPF	QUE+2*
>> LRI	S, T
>> LRLDT	QUE*, QUE+1
>> LRP	L+1*
>> LRPPT	QUE+3*, L+1
>> LRQ	L+1*
>> LRQ(3	QUE*
>> LRQ(9	QUE*
>> LRS(5	QUE*
>> LRSDT	QUE*, QUE+1
>> LRSS	S, T
>> LRT	LRAPQAC+3*
>> LRTOD	LRAPQAC+3*
>> LRXR	QUE+1, S, T
>> POP	LRAPQAC+6
>> S(1	F, TP+1*
>> S(2	QUE+1, F, TP!, TP+1*
>> SEX	L+1*
>> SSN	L+1*
>> T	T*
>> T(1	T*
>> T(2	T*, F
U	AU, S, T, TP
>> X	LRAPQAC+3, QUE+2, F, TP, TP+1, Y1
>> Y	LRAPQAC+3, LRAPQAC+5, LRAPQAC+6, QUE+2, L+1, A
>> Y(1	F*, Y1
>> Y(2	F*, Y1
>> ZTRTN	LRAPQAC+6*
>> ZTSK	LRAPQAC+6

Information