Routine: LRAPST

Package	Total	Call Graph
Lab Service	4	^LRAP (,AU)^LRAPST1 ^LRDPA (D,V,YN)^LRU
Kernel	1	^%ZIS
VA Fileman	1	DD^%DT

Package	Total	Caller Graph
Lab Service	9	LRAPBS LRAPBS1 LRAPCWK LRAPSA LRAPSL LRAPST LRAPST1 LRAPWE LRAPWR

Entry Points

External References

Name	Field # of Occurrence
DD^%DT	SP
^%ZIS	EN
^LRAP	LRAPST+3
^LRAPST1	EN+2
AU^LRAPST1	I
^LRDPA	GETP
D^LRU	I+2, EN+1, T, W
V^LRU	END
YN^LRU	WT, SEL+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: GETP+0
Function Call: WRITE	Prompt: !,"No ",LRO(68)," specimens entered" Line Location: I+3
Function Call: READ	Timeout: DTIME Variable: X Line Location: ACC+0
Function Call: WRITE	Prompt: !?11,"Choose Count #(1-",C,"): " Line Location: ACC+0
Function Call: WRITE	Prompt: $C(7),!!,"Enter numbers only",!! Line Location: ACC+1
Function Call: WRITE	Prompt: " Doesn't exist for ",LRP Line Location: OK+0
Function Call: WRITE	Prompt: !,$P(LRB,U) Line Location: EN+3
Function Call: WRITE	Prompt: ! Line Location: EN+4
Function Call: WRITE	Prompt: ! Condition for execution: $L($P(LRB,U))>29 Line Location: SP+0
Function Call: WRITE	Prompt: ?30,Y,?50,$P($P(LR(1),Z,2),";") Line Location: SP+0
Function Call: WRITE	Prompt: !,LRSS(LRSS,E) Condition for execution: F=1 Line Location: T+0
Function Call: WRITE	Prompt: !?3,$P(LRB(1),U),?21,"Stain/Procedure" Line Location: T+0
Function Call: WRITE	Prompt: ?59,Y Condition for execution: Y]"" Line Location: T+0
Function Call: WRITE	Prompt: W Line Location: W+0
Function Call: WRITE	Prompt: !?16,$S($D(^LAB(60,C,0)):$P(^(0),U),1:C),?47 Line Location: W+0
Function Call: WRITE	Prompt: $J(X,5) Condition for execution: X Line Location: W+0
Function Call: WRITE	Prompt: ?52,"/",Z Condition for execution: Z Line Location: W+0
Function Call: WRITE	Prompt: ?59,Y Line Location: W+0
Function Call: WRITE	Prompt: !!,"Specimen(s)",?30,"Count #",?40,"Accession #",?55,"Date" Line Location: P+0
Function Call: WRITE	Prompt: !,"More accessions " Line Location: WT+0
Function Call: WRITE	Prompt: $C(13),$J("",30),$C(13) Line Location: WT+0
Function Call: WRITE	Prompt: !?30,"(",$J(C,2),")",?40,$J(LREP,7),?55,Y Line Location: SEL+0
Function Call: WRITE	Prompt: !?34,"Date Gross Description/Cutting Type" Line Location: H+0
Function Call: WRITE	Prompt: @IOF,LRP," ",HRCN," Acc #: ",LREP," Date: ",LRY Line Location: H+1
Function Call: WRITE	Prompt: !?34,"Date Gross Description/Cutting Type" Line Location: H+1
Function Call: WRITE	Prompt: !?46,$S("AUSPCY"[LRSS:"Slide/Ctrl",1:"Count"),?57,"Last " Line Location: H+2
Function Call: WRITE	Prompt: $S(LRSS="EM":"section",1:"stain") Line Location: H+2
Function Call: WRITE	Prompt: "/block" Condition for execution: "AUSPEM"[LRSS Line Location: H+2
Function Call: WRITE	Prompt: " date" Line Location: H+2
Function Call: READ	Prompt: "'^' TO STOP: " Formatting: ! Timeout: DTIME Variable: LRM Line Location: M+0
Routine Call	%ZIS Line Location: EN

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	W
^LR - [#63]	I+2, GOT, EN+3, SP+1, T+1, SEL+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	WT, SEL+1
>> A	I, EN+3, SP+1, T+1, SEL+1*
>> B	SP+1*, T+1
>> C	I+2, I+3, ACC, T+1, W, WT, SEL
DTIME	ACC, M
>> E	I+1, I+2, SP+1, T, T+1, WT*
>> F	SP+1*, T
>> HRCN	H+1
IOF	EN, H+1
>> IOP	EN*
IOSL	EN+3, SP+1, T+1
>> LR(1	SP
>> LRA	GOT*, EN+1
>> LRABV	I+2
>> LRB	EN+3*, SP
>> LRB(1	SP+1*, T
>> LRDFN	GETP, I+2, GOT, EN+3, SP+1, T+1, SEL+1
LREP	I+2, EN+1!, SEL, H+1
LREP(	I+2*, OK, GOT
>> LRF	SP, H+1
>> LRI	I+1, I+2, GOT*, EN+3, SP+1, T+1, SEL+1
>> LRM	EN+2, EN+3, SP+1, T+1, M
>> LRO(68	I+3
>> LRP	OK, H+1
>> LRSS	I, I+2, GOT, EN+2, EN+3, SP+1, T, T+1, SEL+1, H+2 , S+1
>> LRSS(	T
>> LRSS("AU"	AU1*
>> LRSS("CY"	CY1*
>> LRSS("EM"	EM1*
>> LRSS("SP"	SP1*
>> LRST	I+2, SEL+1
>> LRTK	GOT*
>> LRW	EN+1*
>> LRY	EN+1*, H+1
U	I+2, ACC, EN+1, EN+3, SP, SP+1, T, T+1, W, SEL+1 , M
>> X	I+2, ACC, ACC+1, OK, GOT, T+1*, W
>> Y	LRAPST+3, I+2, EN+1, SP, T, T+1, W, SEL
>> Z	SP, T+1, W

Customize PDF page

Package: Lab Service

Routine: LRAPST

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 9

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
ACC
CY1
EN
OK
I
H	;W @IOF,LRP," ",SSN(1)," Acc #: ",LREP," Date: ",LRY I $D(LRF) W !?34,"Date Gross Description/Cutting Type" Q
SP
M
AU1
P
S	;called by LRAPBS,LRAPSA,LRAPSL,LRAPWR
WT
EM1
T
W
SP1
GETP
GOT
SEL
END

Name	Line Occurrences
@(	S+1
ACC	ACC+1, OK
EN	I
END	LRAPST+3, GETP
GETP	GETP
H	EN+2, M
I	GETP
M	EN+3, SP+1, T+1
P	I+2
S	LRAPST+3
SEL	I+2
SP	EN+3
T	SP+1
W	T+1
WT	I+2