Routine: LRAPSM1

Package	Total	Call Graph
Lab Service	1	(F,M)^LRU

Package	Total	Caller Graph
Lab Service	5	LRAPQACN LRAPQAFS LRAPQAMR LRAPSM LRAUSM

Entry Points

External References

Name	Field # of Occurrence
F^LRU	H+1
M^LRU	H

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?21,"RESULT OF ",LRO(68)," SEARCH: " Line Location: LRAPSM1+6
Function Call: WRITE	Prompt: !!,$J(A,5)," OF ",$J(LR(2),5)," PATIENTS(",$J(A*100/LR(2),5,2),"%)" Line Location: LRAPSM1+8
Function Call: WRITE	Prompt: !,$J(LR(13),5)," OF ",$J(LR(1),5)," SNOMED CODE ",S(2)," SPECIMENS(",$J(LR(13)*100/LR(1),5,2),"%)" Line Location: LRAPSM1+9
Function Call: WRITE	Prompt: !,$J(LR,14)," ORGAN/TISSUE SPECIMENS WITHIN PERIOD SEARCHED",!?15,"(SNOMED TOPOGRAPHY CODE ",S(2)," IS ",$J(LR(1)*100/LR,5,2),"%)" Line Location: LRAPSM1+10
Function Call: WRITE	Prompt: ! Line Location: Y+0
Function Call: WRITE	Prompt: Condition for execution: $P(LR(11),"^",7)'=2 "#" W $E(N,1,17),?19,$P(LR(11),"^",5),?25,$P(LR(11),"^",3) S H(2)=0 F B=0:1 S H(2)=$O(^TMP($J,"B",N,H(2))) Q:'H(2)!(LR("Q")) Line Location: Y+0
Function Call: WRITE	Prompt: ! Condition for execution: B Line Location: Y+0
Function Call: WRITE	Prompt: ! Condition for execution: C>0 Line Location: PRT+0
Function Call: WRITE	Prompt: ?27,$P(LR(11),"^",2) Line Location: PRT+0
Function Call: WRITE	Prompt: ?31,$J($P(LR(11),"^"),7) Line Location: PRT+0
Function Call: WRITE	Prompt: ! Condition for execution: E>1 Line Location: PRT+1
Function Call: WRITE	Prompt: ?46,$E(LR(5),1,15) Line Location: PRT+1
Function Call: WRITE	Prompt: ! Condition for execution: Z>1 Line Location: M1+0
Function Call: WRITE	Prompt: ?62,$E($P(LR(6),"^"),1,Y) Line Location: M1+0
Function Call: WRITE	Prompt: ?80,$S(X=0:"Neg",X=1:"Pos",1:"?") Condition for execution: X]"" Line Location: M1+0
Function Call: WRITE	Prompt: $E($P(LR(11),"^",4),1,15),?33,$P(LR(11),"^",5),?38,$P(LR(11),"^",3),?41,$J($P(LR(11),"^",2),3),?45,$J($P(LR(11),"^",6),5) Line Location: PT+1
Function Call: WRITE	Prompt: ! Condition for execution: E>1 Line Location: PT+2
Function Call: WRITE	Prompt: ?52,$E(LR(5),1,15) Line Location: PT+2
Function Call: WRITE	Prompt: ! Condition for execution: Z>1 Line Location: M+0
Function Call: WRITE	Prompt: ?69,$E($P(LR(6),"^"),1,Y) Line Location: M+0
Function Call: WRITE	Prompt: ?86,$S(X=0:"Neg",X=1:"Pos",1:"?") Condition for execution: Y=11 Line Location: M+0
Function Call: WRITE	Prompt: !,LRO(68)," (",LRABV,") SEARCH(",LRSTR,"=>",LRLST,")" Line Location: H+1
Function Call: WRITE	Prompt: !,"# = Not VA patient",!,"SNOMED TOPOGRAPHY CODE: ",S(2)_$E("-----",1,5-$L(S(2))),?46,"SNOMED ",S(7)," CODE: ",LRN_$E("-----",1,5-$L(LRN)) Line Location: H+2
Function Call: WRITE	Prompt: !,LR("%") Line Location: H+3
Function Call: WRITE	Prompt: !!,?8,"NAME",?19,"ID",?23,"SEX",?27,"AGE",?32,"ACC #",?43,"ORGAN/TISSUE",?62,S(7) Line Location: H1+0
Function Call: WRITE	Prompt: !! Line Location: H1+0
Function Call: WRITE	Prompt: !!,"ACC #",?16,"NAME",?33,"ID",?37,"SEX",?41,"AGE",?45,"MO/DA",?52,"ORGAN/TISSUE",?69,S(7) Line Location: H2+0
Function Call: WRITE	Prompt: !,$E(N,1,18),?19,$P(LR(11),"^",5),?25,$P(LR(11),"^",3),?27,$P(LR(11),"^",2),?31,$J($P(LR(11),"^"),7) Line Location: H3+0
Function Call: WRITE	Prompt: !,$P(LR(11),"^"),?16,$E($P(LR(11),"^",4),1,15),?33,$P(LR(11),"^",5),?38,$P(LR(11),"^",3),?41,$J($P(LR(11),"^",2),3),?45,$J($P(LR(11),"^",6),5) Line Location: H4+0
Function Call: WRITE	Prompt: ?43,$E(LR(5),1,15) Line Location: H5+0
Function Call: WRITE	Prompt: ?55,$E(LR(5),1,15) Line Location: H6+0

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> A	LRAPSM1+4*, LRAPSM1+8
>> B	Y, L
>> C	ABC, PRT, W
>> E	PRT+1, PT+2
>> H(2	LRAPSM1+5, Y, ABC, PRT, PRT+1, M1, L*, W, PT+1, PT+2 , M
IOSL	LRAPSM1+4, PRT+1, M1, PT, PT+2, M
IOST	H
>> LR	LRAPSM1+10
>> LR("%"	H+3
>> LR("F"	LRAPSM1+3*, H
>> LR("Q"	LRAPSM1+4, LRAPSM1+5, LRAPSM1+6, Y, ABC, PRT+1, M1, L, W, PT , PT+2, M, H, H1, H2, H3, H4, H5, H6
>> LR(1	LRAPSM1+9, LRAPSM1+10
>> LR(11	LRAPSM1+4, Y, PRT, PT+1*, H3, H4
>> LR(13	LRAPSM1+3, LRAPSM1+9, PRT+1
>> LR(2	LRAPSM1+7, LRAPSM1+8
>> LR(3	LRAPSM1+7
>> LR(5	PRT+1, PT+2, H5, H6
>> LR(6	M1, M
>> LR(7	PRT+1, M1, PT+2, M
>> LRAA(1	LRAPSM1+7
>> LRABV	H+1
>> LRAN	ABC, PRT, PRT+1, M1, W, PT+1, PT+2, M
>> LRAX	LRAPSM1+4*
>> LRLST	H+1
>> LRN	LRAPSM1+3*, H+2
>> LRO(68	LRAPSM1+6, LRAPSM1+7, H+1
>> LRSS	LRAPSM1+7
>> LRSTR	H+1
>> LRYA	LRAPSM1+4*
>> M	M1, M
>> N	LRAPSM1+3, LRAPSM1+4, Y, ABC, H3
>> S(2	LRAPSM1+9, LRAPSM1+10, H+2
>> S(7	H+2, H1, H2
>> T	LRAPSM1+3*
>> X	M1, M
>> Y	M1, M
>> Z	M1, M

Customize PDF page

Package: Lab Service

Routine: LRAPSM1

Information

Source Information

Call Graph

Call Graph Total: 1

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Line Occurrences
ABC	Y
H	LRAPSM1+3, LRAPSM1+4, LRAPSM1+5, LRAPSM1+6, PT, H3, H4
H1	LRAPSM1+3, LRAPSM1+4, H3
H2	LRAPSM1+5, PT, H4
H3	PRT+1, H5
H4	PT+2, H6
H5	M1
H6	M
L	LRAPSM1+5
M	PT+2
M1	PRT+1
PRT	ABC
PT	W
W	L
Y	LRAPSM1+4

Name	Comments	DBIA/ICR reference
ABC
H6
PT
H2
H
H1
M
L
H4
H5
PRT
M1
W
H3
Y