Routine: LRAPSA

Package	Total	Call Graph
Lab Service	4	^LRAP S^LRAPST (D,DT,F,L,M,S,SSN,V,XR,YN)^LRU (BEG,END)^LRUTL
VA Fileman	1	^%DT

Package

Total

Call Graph

Lab Service

^LRAP S^LRAPST (D,DT,F,L,M,S,SSN,V,XR,YN)^LRU (BEG,END)^LRUTL

VA Fileman

^%DT

Package	Total	Caller Graph
Lab Service	1	LRAPSA

Package

Total

Caller Graph

Lab Service

LRAPSA

Entry Points

Name	Field # of Occurrence
^%DT	LRAPSA+4, A
^LRAP	LRAPSA+3
S^LRAPST	QUE
D^LRU	LRAPSA+4, A, W+2
DT^LRU	C
F^LRU	H+1
L^LRU	QUE
M^LRU	H
S^LRU	QUE
SSN^LRU	W+1
V^LRU	END
XR^LRU	QUE
YN^LRU	LRAPSA+5
BEG^LRUTL	N2+1
END^LRUTL	QUE+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?20,LRO(68)," STAIN LIST" Line Location: LRAPSA+4
Function Call: WRITE	Prompt: !!,"Stain list date: ",LRD," OK " Line Location: LRAPSA+5
Function Call: WRITE	Prompt: ! Line Location: A+0
Function Call: READ	Prompt: "Start with Acc #: " Formatting: ! Timeout: DTIME Variable: N(1) Line Location: N1+0
Function Call: WRITE	Prompt: $C(7),!!,"NUMBERS ONLY !!" Line Location: N1+0
Function Call: READ	Prompt: "Go to Acc #: LAST // " Formatting: ! Timeout: DTIME Variable: N(2) Line Location: N2+0
Function Call: WRITE	Prompt: $C(7),!!,"NUMBERS ONLY !!",!! Line Location: N2+0
Function Call: WRITE	Prompt: !,$P(LRA,"^") Line Location: W+5
Function Call: WRITE	Prompt: !,LRA Line Location: AU+0
Function Call: WRITE	Prompt: !,LRSS(LRSS,E),!?3,LRA(1),?16,"Stain/Procedure" Line Location: B+0
Function Call: WRITE	Prompt: !?16,$P(^LAB(60,C,0),U),?47 Line Location: C+0
Function Call: WRITE	Prompt: $J(X,5) Condition for execution: X Line Location: C+0
Function Call: WRITE	Prompt: ?52,"/",Z Condition for execution: Z Line Location: C+0
Function Call: WRITE	Prompt: ?59,Y Line Location: C+0
Function Call: WRITE	Prompt: !,LRO(68)," (",LRABV,")",$S(LRSS="SP":" BLOCKS",LRSS="CY":" PROCEDURES",1:""),"/STAINS",!,LR("%") Line Location: H+1
Function Call: WRITE	Prompt: !!,LRAN,?16,LRA(6)," ",LRP," ",SSN Line Location: H1+0
Function Call: WRITE	Prompt: !!,LRAN,?16,LRA(6)," ",LRP," ",HRCN Line Location: H1+1
Function Call: WRITE	Prompt: !,LRA Line Location: H2+0
Function Call: WRITE	Prompt: !!?3,LRA(1),?16,"Stain/Procedure" Line Location: H3+0

Name	Line Occurrences (* Changed, ! Killed)
^DIC - [#1]	W+1
^LAB(60 - [#60]	C
^LR - [#63]	QUE+1, W+1, W+5, S, T, AU, AUS, AUT

Name	Line Occurrences
AU	W+4
AUS	AU
AUT	AUS
B	S, AUS
C	T, AUT
END	LRAPSA+3, LRAPSA+5, A, N1, N2, N2+1, QUE+2
H	QUE, W+4, H1+1
H1	W+5, AU, H2
H2	S, AUS, H3
H3	T, AUT
N1	N1
N2	N2
S	W+5
T	S
W	QUE+1

Name	Field # of Occurrence
^(	QUE+1, W+1, W+5, S, T, AU, AUS, AUT
^("AU"	W+1

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	LRAPSA+5*, A
%DT	LRAPSA+4, A!
%DT("A"	A*
>> A	W+5, S, T, AU, AUS, AUT
>> B	S, T, AUS, AUT
>> C	T, AUT, C
>> DFN	W+1*
DTIME	N1, N2
>> E	S, T, AUS, AUT, B
>> F	S, AUS
>> HRCN	W+4, H1+1
IO	QUE
IOSL	W+4, W+5, S, T, AU, AUS, AUT
IOST	H
>> LR("%"	H+1
>> LR("F"	QUE*, H
>> LR("Q"	QUE+1, W+4, W+5, S, T, AU, AUS, AUT, H, H1+1 , H2, H3
>> LRA	W+5, AU, H2
>> LRA(1	S, AUS, B, H3
>> LRA(6	W+2*, W+4, H1+1
>> LRA(8	QUE+1*
>> LRA(9	W+1*, W+2
>> LRABV	QUE+1, H+1
LRAN	W+2!*, W+4, H1+1
>> LRD	LRAPSA+4, LRAPSA+5, A
>> LRDFN	QUE+1*, W+1, W+5, S, T, AU, AUS, AUT
>> LRDPF	W+1*
>> LRI	QUE+1*, W+1, W+5, S, T
>> LRO(68	LRAPSA+4, H+1
>> LRP	W+1*, W+4, H1+1
>> LRSS	W+1, W+4, W+5, S, T, B, H+1
>> LRSS(	B
>> LRTK	W+1*
>> LRW	W+4*
>> LRX	T, AUT, C
>> LRXREF	QUE+1
>> LRY	A+1*, QUE+1
>> N(1	N1, QUE, QUE+1
>> N(2	N2*, QUE+1
>> POP	N2+1
>> SSN	W+1*
U	N1, N2, W+2, S, AU, AUS, C
>> X	LRAPSA+4, A, W+1, C
>> Y	LRAPSA+3, LRAPSA+4, A, A+1, W+1, W+2, C*
>> Z	C*
>> ZTRTN	N2+1*
>> ZTSK	N2+1

Customize PDF page

Package: Lab Service

Routine: LRAPSA

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
A
C
B
END
H2
H
H1	;D H Q:LR("Q") W !!,LRAN,?16,LRA(6)," ",LRP," ",SSN Q
AUS
S
QUE
T
W	;S X=^LR(LRDFN,0),LRA(9)=$S(LRSS'="AU":^(LRSS,LRI,0),1:^("AU")),LRTK=+LRA(9),Y=$P(X,"^",3),(LRDPF,X)=$P(X,"^",2),X=^DIC(X,0,"GL"),X=@(X_Y_",0)"),LRP=$P(X,"^"),SSN=$P(X,"^",9) D SSN^LRU
H3
N1
N2
AU
AUT