Routine: LRAPSL1

Package	Total	Call Graph
Lab Service	2	(D,K)^LRU ^LRUP
Kernel	1	^%ZIS

Package	Total	Caller Graph
Lab Service	1	LRAPSL

Entry Points

External References

Name	Field # of Occurrence
^%ZIS	REST+2
D^LRU	REST+3
K^LRU	OUT+1
^LRUP	REST+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,"NO ",LRAA(1)," ACCESSIONS IN FILE FOR ",LRH(0),!! Line Location: LRAPSL1+5
Function Call: READ	Prompt: "Select Accession Number: " Formatting: !! Timeout: DTIME Variable: LRAN Line Location: W+0
Function Call: WRITE	Prompt: W Line Location: W+0
Function Call: WRITE	Prompt: $C(7),!!,"Enter a number." Line Location: W+0
Function Call: WRITE	Prompt: $C(7),!!,"Accession # ",LRAN," for ",LRH(0)," not in ACCESSION file",!! Line Location: REST+0
Function Call: WRITE	Prompt: ! Line Location: REST+3
Function Call: WRITE	Prompt: !,$P(LRB,U) Line Location: REST+4
Function Call: WRITE	Prompt: ! Line Location: REST+5
Function Call: WRITE	Prompt: !,LRSS(LRSS,E) Condition for execution: F=1 Line Location: S+0
Function Call: WRITE	Prompt: !?3,$P(LRB(1),U),?16,"Stain/Procedure" Line Location: S+0
Function Call: WRITE	Prompt: !,?15,"*",$J(LR,2),")",?20,$E($P(^LAB(60,C,0),U),1,25),?47 Line Location: A+0
Function Call: WRITE	Prompt: $J(X,5) Condition for execution: X Line Location: A+0
Function Call: WRITE	Prompt: ?52,"/",Z Condition for execution: Z Line Location: A+0
Function Call: WRITE	Prompt: ?66,$J(Y,3) Line Location: A+0
Function Call: READ	Prompt: "Select *Stain #: " Formatting: ! Timeout: DTIME Variable: X Line Location: E+0
Function Call: WRITE	Prompt: $C(7)," Select a number from 1 to ",LR Line Location: E+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: N+0
Function Call: WRITE	Prompt: !,"Number of labels: ",$S(LRSS'="AU":$P(^LR(LRDFN,LRSS,LRI,.1,A,E,B,1,C,0),U,7),1:$P(^LR(LRDFN,33,A,E,B,1,C,0),U,7)),"// " R X:DTIME Q:'$T!(X[U) Line Location: N+0
Function Call: WRITE	Prompt: $C(7),!,"Enter a number from 0 to 99." Line Location: N+1
Function Call: WRITE	Prompt: !,$P(LRB,U) Line Location: AU+0
Function Call: WRITE	Prompt: !,LRSS(LRSS,E) Condition for execution: F=1 Line Location: AUS+0
Function Call: WRITE	Prompt: !?3,$P(LRB(1),U),?16,"Stain/Procedure" Line Location: AUS+0
Function Call: READ	Prompt: "'^' TO STOP: " Formatting: ! Timeout: DTIME Variable: LRM Line Location: M+0
Function Call: WRITE	Prompt: @IOF,LRP," ",HRCN," Acc #: ",LRAN," Date: ",LRE,!?47,"Slide/Ctrl",?60,"Labels to Print" Line Location: H+1
Routine Call	%ZIS Line Location: REST+2

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	A, E+1
^LR - [#63]	REST+1, REST+2, REST+4, S, T, E+1, N, AU, AUS, AUT
^LRO(68 - [#68]	LRAPSL1+5, REST, REST+1, REST+2

Name	Field # of Occurrence
^(	REST+4, S, T, AU, AUS, AUT
^(0	REST+1, N*

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> A	REST+4, S, T, A, E+1, N, AU*, AUS, AUT
>> B	S, T, A, E+1, N, AUS*, AUT
>> C	T, A, E+1, N, AUT*
DOB	OUT+1!
DTIME	W, E, N, M
>> E	S, T, A, E+1, N, AUS*, AUT
>> F	S, AUS
HRCN	H+1, OUT+1!
IOF	REST+2, H+1
>> IOP	REST+2*
IOSL	REST+4, S, T, AU, AUS, AUT
LR	W!, REST+3, REST+5, A, E, OUT+1!
LR(	A*, E, E+1
LRA	REST+2*, REST+3, OUT+1!
>> LRAA	LRAPSL1+5, REST, REST+1, REST+2
>> LRAA(1	LRAPSL1+5
LRAD	LRAPSL1+4*, LRAPSL1+5, REST, REST+1, REST+2, OUT+1!
LRAN	W*, REST, REST+1, REST+2, H+1, OUT+1!
LRAX	OUT+1!
LRB	REST+4, AU, OUT+1!
LRB(1	S, AUS
LRD	OUT+1!
LRDFN	REST+1*, REST+2, REST+4, S, T, E+1, N, AU, AUS, AUT , OUT+1!
LRDPAF	OUT+1!
LRE	REST+3*, H+1, OUT+1!
>> LRH(0	LRAPSL1+5, REST
LRI	REST+2*, REST+4, S, T, E+1, N, OUT+1!
LRM	REST+3, REST+4, S, T, AU, AUS, AUT, M, OUT+1!
LRP	H+1, OUT+1!
LRPARAM	OUT+1!
LRSF	OUT+1!
>> LRSS	REST+2, REST+3, REST+4, S, T, E+1, N, AUS, OUT+1
>> LRSS(	S, AUS, OUT+1!
LRU	OUT+1!
LRWHO	OUT+1!
>> LRY	LRAPSL1+4
SEX	OUT+1!
SSN	OUT+1!
U	W, REST+4, S, T, A, E, E+1, N, AU, AUS , AUT, M
>> X	REST+1, T, A, E, E+1, N, AUT
>> Y	REST+3, T, A, AUT
>> Z	T, A, AUT

Customize PDF page

Package: Lab Service

Routine: LRAPSL1

Information

Source Information

Call Graph

Call Graph Total: 3

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
E
H	;W @IOF,LRP," ",SSN(1)," Acc #: ",LRAN," Date: ",LRE,!?47,"Slide/Ctrl",?60,"Labels to Print" Q
M
AUS
REST
N
S
AU
T
W
OUT	;D K^LRU K LR,LRAX,LRDFN,LRDPAF,LRPARAM,LRSF,LRWHO,LRA,LRB,LRD,LRE,LRI,LRP,LRM,LRU,DOB,SEX,SSN,LRAD,LRAN,LRSS(LRSS) Q
AUT

Name	Line Occurrences
A	T, AUT
AU	REST+3
AUS	AU
AUT	AUS
E	REST+3, REST+5, E, N
H	REST+3, M
M	REST+4, S, T, AU, AUS, AUT
N	N+1
OUT	W
REST	W+1
S	REST+4
T	S
W	W, W+1