Routine: LRAPWU

Information

LRAPWU ; IHS/DIR/AAB - AP WORKLOAD UTILITY 19:30 ; [ 8/12/95 ]

Package	Total	Call Graph
Lab Service	1	YN^LRU
VA Fileman	1	(,DD)^%DT

Package	Total	Caller Graph
Lab Service	6	LRAPBS LRAPBS1 LRAPCWK LRAPLG LRAPWE LRAPWR

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!?20,"* No specimen entered *" Line Location: LRAPWU+3
Function Call: WRITE	Prompt: $C(7),!!,"* No blocks or preps entered for ",$P(^(0),U)," *" Line Location: F+0
Function Call: WRITE	Prompt: $C(7),!!,"No blocks or preps for ",$P(^LR(LRDFN,LRSS,LRI,.1,A,0),U) Line Location: E+0
Function Call: WRITE	Prompt: $C(7),!!,"No stains for ",$P(^LR(LRDFN,LRSS,LRI,.1,A,0),U)," ",$P(^(E,B,0),U) Line Location: X+0
Function Call: WRITE	Prompt: !?3,"Date/time prints made (" Line Location: EM+1
Function Call: WRITE	Prompt: S Line Location: W+0
Function Call: WRITE	Prompt: !?3,"Date/time ",$S(LRSS="EM":"grids scanned ",1:"slides examined")," (" Line Location: CK+0
Function Call: WRITE	Prompt: Y,") cannot be before",!?3,"Date/time ",$S(LRSS="EM":"grids prepared",1:"slides stained")," (" Line Location: CK1+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: CK1+1
Function Call: WRITE	Prompt: Y,")",$C(7),!!,"Press Return or Enter key: " Line Location: CK1+1
Function Call: WRITE	Prompt: !!,$P(^LR(LRDFN,LRSS,LRI,.1,A,0),U)," ",$P(^LR(LRDFN,LRSS,LRI,.1,A,E,B,0),U)," ",$P(^LAB(60,C,0),U) Line Location: C+0

Name	Line Occurrences (* Changed, ! Killed)
^DD(	A+1
^LAB(60 - [#60]	C
^LR - [#63]	LRAPWU+3, LRAPWU+4, F, F+1, E, E+1, X, X+2, EM, C
^LRO(69.2 - [#69.2]	A+2

Name	Field # of Occurrence
^(	X, X+2, A+1
^(0	F, E, X+2, EM, EM+1*

Name	Field # of Occurrence
>> %	W*
%DT	W*, W+1!
%DT("A"	W*
%DT("B"	W*
%DT(0	W*
A	LRAPWU+4, F, F+1, E, E+1, X, X+2, EM, A+1, A+2* , A+3!, C
>> B	E+1*, X, X+2, EM, C
>> C	X+2, EM, EM+1*, C
DTIME	CK1+1
>> E	F+1*, E, E+1, X, X+2, EM, C
>> F	LRAPWU+3, LRAPWU+4, F, F+1, E, E+1, X, X+2, EM*
>> G	X+2, EM
>> G(11	EM*, EM+1
>> G(4	X+2, EM, EM+1, CK1+1
>> G(5	X+2, EM
>> LRAA	A+2
>> LRDFN	LRAPWU+3, LRAPWU+4, F, F+1, E, E+1, X, X+2, EM, C
>> LRI	LRAPWU+3, LRAPWU+4, F, F+1, E, E+1, X, X+2, EM, C
>> LRK	X+2, EM+1, W*
>> LRK(1	EM
>> LRSS	LRAPWU+3, LRAPWU+4, F, F+1, E, E+1, X, X+1, X+2, EM , A+1, CK, CK1, C
>> LRW	EM, EM+1
>> LRZ(	A+1, A+2
>> T	X+2, EM, CK
U	F, E, X, C
>> X	EM, A+1, A+2, CK1+1*
Y	EM+1, A+1, A+2, A+3!, W, CK, CK1, CK1+1*