Routine: LRAPWE

Package	Total	Call Graph
Lab Service	7	^LRAP S^LRAPST (,EM)^LRAPWE1 ^LRAPWEA (,W)^LRAPWU (CK,D,FRE,V,YN)^LRU ^LRUP
Kernel	2	^%ZIS $$FMTE^XLFDT
VA Fileman	1	^%DT

Package

Total

Call Graph

Lab Service

^LRAP S^LRAPST (,EM)^LRAPWE1 ^LRAPWEA (,W)^LRAPWU (CK,D,FRE,V,YN)^LRU ^LRUP

Kernel

^%ZIS $$FMTE^XLFDT

VA Fileman

^%DT

Package	Total	Caller Graph
Lab Service	1	LRAPWE

Package

Total

Caller Graph

Lab Service

LRAPWE

External References

Name	Field # of Occurrence
^%DT	ASK, ASK+1
^%ZIS	B
^LRAP	LRAPWE+4
S^LRAPST	LRAPWE+4
^LRAPWE1	B+3
EM^LRAPWE1	LRAPWE+4
^LRAPWEA	B+4
^LRAPWU	REST+4
W^LRAPWU	REST+2, REST+3
CK^LRU	B+4
D^LRU	B+1
FRE^LRU	B+4
V^LRU	END
YN^LRU	LRAPWE+5, B+3
^LRUP	REST+1
$$FMTE^XLFDT	T+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Ask 'Date/time grids scanned:' prompt for each accession " Line Location: LRAPWE+5
Function Call: READ	Timeout: DTIME Variable: X Line Location: ASK+0
Function Call: WRITE	Prompt: " ",LRH(0) Line Location: ASK+1
Function Call: WRITE	Prompt: $C(7),!!,"NO ",LRO(68)," ACCESSIONS IN FILE FOR ",LRH(0),!! Line Location: ASK+3
Function Call: READ	Timeout: DTIME Variable: LRAN Line Location: W+0
Function Call: WRITE	Prompt: K Line Location: W+0
Function Call: WRITE	Prompt: !!,"Select ",LRO(68)," Accession Number: ",LRN,$S(LRN:"//",1:"") Line Location: W+0
Function Call: WRITE	Prompt: !!,"Select ",LRO(68)," Accession Number: ",LRN,$S(LRN:"//",1:"") 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: $C(7),!!,"Use 'Blocks, Stains, Procedures, anat path' option to enter date",!,"grids (thin sections) processed. This must be done before entering date",!,"grids scanned, photos taken and prints made." Line Location: REST+5
Function Call: WRITE	Prompt: !,$P(LRB,U) Line Location: B+2
Function Call: WRITE	Prompt: !!,"Data displayed ok " Line Location: B+3
Function Call: WRITE	Prompt: ! Line Location: B+4
Function Call: WRITE	Prompt: !,"*",$J(LR,2),") ",$P(LRB(1),U),?15,$J(+LRZ(6),3),?24,$J(+LRZ(8),3),?33,$J(+LRZ(10),3),?40,$$FMTE^XLFDT(LRZ(5)),?60,$$FMTE^XLFDT(LRZ(11)) Line Location: T+2
Function Call: READ	Prompt: "'^' TO STOP: " Formatting: ! Timeout: DTIME Variable: LRM Line Location: M+0
Function Call: WRITE	Prompt: @IOF,LRP," ",HRCN," Acc #: ",LRAC," Date: ",LRE,!,?15,"GRIDS",?24,"GRIDS",?32,"PRINTS",?40,"LAST DATE/TIME",?60,"LAST DATE/TIME" Line Location: H+1
Function Call: WRITE	Prompt: !?5,"BLOCK ID",?14,"PREPARED",?23,"SCANNED",?33,"MADE",?44,"SCANNED",?62,"PRINTS MADE" Line Location: H+2
Routine Call	%ZIS Line Location: B

FileNo	Call Tags
^LR - [#63]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^LR - [#63]	REST+1, B+1, B+2, S, T
^LRO(68 - [#68]	ASK+3, W+1, REST, REST+1

Name	Line Occurrences
ASK	ASK+1
B	B+5
END	LRAPWE+4, ASK, W
H	B+2, M
M	B+2, S
REST	W+1
S	B+2
T	S
W	W, W+1

Name	Field # of Occurrence
^(	REST+1, B+2, S
^(0	REST+1
^(3	REST+1

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	LRAPWE+5, B+3
>> %DT	ASK, ASK+1
>> %DT("A"	REST+2, REST+3
>> A	B+2*, S, T, T+1
>> B	S*, T, T+1
>> DA	B+4*
>> DIE	B+4*
DTIME	ASK, W, M
>> E	S*, T, T+1
>> F	REST+5
>> HRCN	H+1
IOF	B, H+1
>> IOP	B*
IOSL	B+2, S
>> J	LRAPWE+4
LR	B!, B+4, T+1, T+2
LR(	T+1*
LR("CK"	W!, B, B+4
>> LRA	B+1*
>> LRAA	ASK+3, W+1, REST, REST+1
>> LRAC	REST+1*, H+1
>> LRAD	ASK+2*, ASK+3, W+1, REST, REST+1
>> LRAN	W*, W+1, REST, REST+1
>> LRB	B+2*
>> LRB(1	S*, T+2
>> LRDFN	REST+1*, B+1, B+2, S, T
>> LRDICS	LRAPWE+4*
>> LRE	B+1*, H+1
>> LRH(0	ASK+1*, ASK+3, REST
>> LRI	REST+1*, B+1, B+2, B+4, S, T
>> LRK	REST+2, REST+3, REST+4
>> LRK(1	REST+2*, REST+4
>> LRM	B+2, S, M
>> LRN	ASK+2, W, W+1*
>> LRO(68	ASK+3, W
>> LRP	H+1
>> LRSS	B+1, B+2, S, T
>> LRV	LRAPWE+5*, REST+2
>> LRW	T
>> LRY	ASK, ASK+1, ASK+2
>> LRZ(10	T*, T+1, T+2
>> LRZ(11	T*, T+1, T+2
>> LRZ(5	T*, T+1, T+2
>> LRZ(6	T*, T+1, T+2
>> LRZ(8	T*, T+1, T+2
U	ASK, W, REST+1, B+2, S, T, T+1, T+2, M
>> V	T*, T+1
>> X	ASK, REST+1, T*
Y	LRAPWE+4!, ASK, ASK+1, B+1, T, T+1
>> Z	T*

Customize PDF page

Package: Lab Service

Routine: LRAPWE

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
B
END
H	;W @IOF,LRP," ",SSN(1)," Acc #: ",LRAC," Date: ",LRE,!,?15,"GRIDS",?24,"GRIDS",?32,"PRINTS",?40,"LAST DATE/TIME",?60,"LAST DATE/TIME"
M
REST
S
T
W
ASK