Routine: LRAPCUM

Package	Total	Call Graph
Lab Service	6	^LRAPCUM1 ^LRDPA SUPA^LRSPRPT ^LRSPRPTM (D,L,YN)^LRU (D,SET)^LRUA
VA Fileman	2	^DIWP ^DIWW
Kernel	1	^%ZIS

Package

Total

Call Graph

Lab Service

^LRAPCUM1 ^LRDPA SUPA^LRSPRPT ^LRSPRPTM (D,L,YN)^LRU (D,SET)^LRUA

VA Fileman

^DIWP ^DIWW

Kernel

^%ZIS

Package	Total	Caller Graph
Lab Service	3	LRAPCUM1 LRAPDS LRAPPA
IHS View Patient Record	1	BVPRP

Package

Total

Caller Graph

Lab Service

LRAPCUM1 LRAPDS LRAPPA

IHS View Patient Record

BVPRP

Name	Field # of Occurrence
^%ZIS	LRAPCUM+8
^DIWP	F+5, U+6, WP+6
^DIWW	F+6, U+7, WP+7
^LRAPCUM1	W+33
^LRDPA	P
SUPA^LRSPRPT	W+26
^LRSPRPTM	W+11, W+13, W+15, W+16
D^LRU	W, W+21, SP
L^LRU	LRAPCUM+8
YN^LRU	R
D^LRUA	W, W+1
SET^LRUA	W+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?15,LRAA(1)," PATIENT REPORT(S) DISPLAY" Line Location: LRAPCUM+9
Function Call: WRITE	Prompt: ! Line Location: P+0
Function Call: WRITE	Prompt: $C(7),!!,"No ",LRAA(1)," reports on file",! Line Location: R+1
Function Call: WRITE	Prompt: Q:LRA(2)?1P Line Location: R+2
Function Call: WRITE	Prompt: !?2,$P(^LR(LRDFN,LRSS,LRI,LRV,C,0),U) Line Location: C+0
Function Call: WRITE	Prompt: !,"Date Spec taken: ",LRW(1),?38,"Pathologist:",LRW(2),!,"Date Spec rec'd: ",LRW(10),?38,$S(LRSS="SP":"Resident: ",1:"Tech: "),LRW(4) Line Location: W+2
Function Call: WRITE	Prompt: !,$S($L(LRW(3)):"Date completed: ",1:"REPORT INCOMPLETE"),LRW(3),?38,"Accession #: ",$P(B,"^",6),!,"Submitted by: ",$P(B,"^",5),?38,"Practitioner:",LRW(7),!,LR("%") Line Location: W+3
Function Call: WRITE	Prompt: !,$C(7),"Report not verified",! Line Location: W+4
Function Call: WRITE	Prompt: !,"Specimen: " Line Location: W+5
Function Call: WRITE	Prompt: !,"Brief Clinical History:" Line Location: W+6
Function Call: WRITE	Prompt: !,"Preoperative Diagnosis:" Line Location: W+7
Function Call: WRITE	Prompt: !,"Operative Findings:" Line Location: W+8
Function Call: WRITE	Prompt: !,"Postoperative Diagnosis:" Line Location: W+9
Function Call: WRITE	Prompt: !,LR(69.2,.13) Line Location: W+11
Function Call: WRITE	Prompt: !,LR(69.2,.03) Line Location: W+13
Function Call: WRITE	Prompt: !,LR(69.2,.04)," (Date Spec taken: ",LRW(1),")" Line Location: W+15
Function Call: WRITE	Prompt: !,LR(69.2,.14) Line Location: W+16
Function Call: READ	Prompt: "'^' TO STOP: " Formatting: ! Timeout: DTIME Variable: LRA(2) Line Location: MORE+0
Function Call: WRITE	Prompt: $C(7) Line Location: MORE+0
Function Call: WRITE	Prompt: $C(13),$J("",15),$C(13) Line Location: MORE+3
Function Call: WRITE	Prompt: !,E(1)," ",E," Date: ",T(2)," ",! Line Location: WP+0
Function Call: WRITE	Prompt: !,^(A,0) Line Location: A+0
Routine Call	%ZIS Line Location: LRAPCUM+8

Name	Line Occurrences (* Changed, ! Killed)
^LR - [#63]	R+1, R+2, C, F+2, F+4, W+5, W+6, W+7, W+8, W+9 , W+11, W+13, W+15, W+16, W+18, W+20, W+24, W+31, U+3, U+5 , B, SP, WP+4, WP+6, A
^TMP($J	E!
^UTILITY($J	F+1!, U+1!, WP+2!
^XUSEC("LRLAB"	W+33

Name	Line Occurrences
A	W+4
B	W+32
C	W+5
E	F, U, WP+1
F	W+6, W+7, W+8, W+9, W+12, W+14, W+16, W+17
MORE	C, F+3, W+4, W+11, W+13, W+15, W+16, W+23, W+34, MORE , U+4, SP, WP+5
P	P
R	P
S	R+2
SP	B
U	W+28
W	R+2
WP	SP

Name	Field # of Occurrence
^(	R+2, W+21, SP, A

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	R*
>> A	MORE+1, S, A*
>> B	R+2*, W, W+1, W+3
>> C	C, F+2, F+4, W+20, W+21, W+24, W+25, U+3, U+5, B , SP, WP+4, WP+6
DIC	P!
>> DIWF	E*
>> DIWL	E*
>> DIWR	E*
DTIME	MORE
DUZ	W+33
>> E	U+2, U+3, U+5, SP*, WP
>> E(1	SP*, WP
>> F	WP+3, WP+4, WP+6
>> G	SP*, WP+4, WP+6
IOF	R+2
IOM	E
>> IOP	LRAPCUM+8*
>> LR(	W+11, W+13, W+15, W+16, SP
>> LR("%"	W+3
>> LR("Q"	P, W+25, W+27
>> LR(0	W+11, W+13, W+15, W+16
>> LRA(1	R+2, C, F+3, W+11, W+13, W+15, W+16, W+23, MORE+2, U+4 , SP, WP+5
>> LRA(2	R+2, C, F+2, F+3, F+6, W+5, W+6, W+7, W+8, W+9 , W+11, W+12, W+13, W+14, W+15, W+16, W+17, W+20, W+23, W+25 , W+27, W+28, W+29, W+34, MORE, MORE+1, S*, U+3, U+4, U+7 , B, SP, WP+4, WP+5, WP+7
>> LRAA(1	LRAPCUM+9, R+1
>> LRDFN	P, R+1, R+2, C, F+2, F+4, W+5, W+6, W+7, W+8 , W+9, W+11, W+13, W+15, W+16, W+18, W+20, W+24, W+31, U+3 , U+5, B, SP, WP+4, WP+6, A
>> LRI	R+2*, C, F+2, F+4, W+5, W+6, W+7, W+8, W+9, W+11 , W+13, W+15, W+16, W+18, W+20, W+24, W+31, U+3, U+5, B , SP, WP+4, WP+6, A
>> LRSS	R+1, R+2, C, F+2, F+4, W+2, W+5, W+6, W+7, W+8 , W+9, W+11, W+13, W+15, W+16, W+18, W+20, W+24, W+31, U+3 , U+5, B, SP, WP+4, WP+6, A
>> LRV	C, F+2, F+4, W+5, W+6, W+7, W+8, W+9, W+12, W+14* , W+16, W+17, W+25*
>> LRW(1	W*, W+2, W+15
>> LRW(10	W*, W+2
>> LRW(11	W*, W+4
>> LRW(2	W*, W+2
>> LRW(3	W*, W+3
>> LRW(4	W+1*, W+2
>> LRW(7	W+1*, W+3
>> LRZ	C, F+2, F+6, U+3, U+7, WP+4, WP+7
>> T(2	SP*, WP
U	C, F+4, W+11, W+13, W+15, W+16, W+21, W+24
>> X	F+4, W, W+1, W+21, W+22, W+24, W+28, U+5, SP, WP+6*
>> Y	W, W+21, W+22, SP*

Customize PDF page

Package: Lab Service

Routine: LRAPCUM

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 4

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
E
F
SP
P
S
R
U
W
WP
MORE