Routine: LRUPA2

Information

LRUPA2 ;AVAMC/REG/WTY - LAB ACCESSION LIST BY PAT ;MAY 06, 2009 9:58 AM

Source Information

Source file <LRUPA2.m>

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
Lab Service	2	(D,DT,F,L,M,S,SSN,V)^LRU (BEG,END)^LRUTL
VA Fileman	1	^DIC

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Lab Service	1	LRUPA

Entry Points

External References

Name	Field # of Occurrence
^DIC	PRT+6, PRT+10
D^LRU	PRT+20
DT^LRU	D
F^LRU	H+1
L^LRU	QUE+2
M^LRU	H
S^LRU	QUE+2
SSN^LRU	PRT+13
V^LRU	END
BEG^LRUTL	LRUPA2+8
END^LRUTL	QUE+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: S Line Location: W+0
Function Call: WRITE	Prompt: ?50,"Not in lab results file" Line Location: W+0
Function Call: WRITE	Prompt: ?40,"Entry not in lab result file #63." Line Location: O+0
Function Call: WRITE	Prompt: ! Condition for execution: E>0 Line Location: O+1
Function Call: WRITE	Prompt: ?43,$S($D(^LAB(61,C(3),0)):$E($P(^(0),"^"),1,35),1:"") Line Location: O+1
Function Call: WRITE	Prompt: !,$J(B,3),")",?6,$P(M,"-",3),?12,V Line Location: A+0
Function Call: WRITE	Prompt: !?12,M," " Line Location: A+0
Function Call: WRITE	Prompt: !?12,M," " Line Location: A+0
Function Call: WRITE	Prompt: !,$J(B,3),")",?5,M,?12,V Line Location: A+2
Function Call: WRITE	Prompt: !?12,M," " Line Location: A+2
Function Call: WRITE	Prompt: !?12,M," " Line Location: A+2
Function Call: WRITE	Prompt: ?33,$J(N,4),?38,$E(B(4),1,17) Line Location: C+5
Function Call: WRITE	Prompt: !,LRO(68)," ACCESSIONS for ",Z(1)," BY PATIENT" Line Location: H+1
Function Call: WRITE	Prompt: !,"# =Not VA patient",?36,$S("AUBBCYEMSP"[LRSS:"% =Incomplete",1:"") Line Location: H+2
Function Call: WRITE	Prompt: !,"# =Not IHS patient",?36,$S("AUBBCYEMSP"[LRSS:"% =Incomplete",1:"") Line Location: H+4
Function Call: WRITE	Prompt: !,"Count",?7,"ID",?12,"Patient",?35,"ACC#" Line Location: H+6
Function Call: WRITE	Prompt: ?36 Line Location: H+6
Function Call: WRITE	Prompt: ?50,"Test",?76,"Tech" Condition for execution: "AUBBCYEMSP"'[LRSS "Specimen" W:LRSS="BB" "Specimen date" W:"AUCYEMSP"'[LRSS Line Location: H+6
Function Call: WRITE	Prompt: ?43,"Organ/tissue" Condition for execution: "CYEMSP"[LRSS Line Location: H+6
Function Call: WRITE	Prompt: ?40,"Date/time of Autopsy" Condition for execution: LRSS="AU" Line Location: H+6
Function Call: WRITE	Prompt: !,LR("%") Line Location: H+7
Function Call: WRITE	Prompt: !,$J(B,3),")",?6,$P(M,"-",3),?12,V Line Location: H1+0
Function Call: WRITE	Prompt: !,$J(B,3),")",?5,M,?12,V Line Location: H1+2
Function Call: WRITE	Prompt: !,$J(B,3),")",?6,$P(M,"-",3),?12,V,?33,$J(N,4) Line Location: H2+0
Function Call: WRITE	Prompt: !,$J(B,3),")",?5,M,?12,V,?33,$J(N,4) Line Location: H2+2
Routine Call	DIC Line Location: PRT+6 PRT+10

Name	Line Occurrences (* Changed, ! Killed)
^DIC - [#1]	PRT+10
^LAB(60 - [#60]	L, L+1
^LAB(61 - [#61]	O+1, PRT+3
^LAB(62 - [#62]	PRT+3
^LR - [#63]	W, O, O+1, A+2, PRT+5, PRT+20, PRT+23, D
^LRO(68 - [#68]	QUE+1, W+1, PRT, PRT+1
^TMP($J	QUE!, QUE+2, QUE+4!, XT, A+2, A+4, PRT+30*
^VA(200 - [#200]	L+1

Name	Line Occurrences
A	XT
B	C+6
C	A+4
D	C+4
END	LRUPA2+8, QUE+4
H	QUE+2, A+2, H1, H1+2, H2+2
H1	C+2
H2	O+1
L	W+1
O	B+1
PRT	QUE+1
W	C+7
XT	QUE+2

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> A	W+1*, L+1
>> A(3	PRT, PRT+2
>> B	QUE+1, QUE+2, A+2, H1, H1+2, H2+2
>> B(2	A+4, C+3, H1, H1+2*
>> B(3	A+4*, B, D
>> B(4	A+4, C+5, D
>> B(5	QUE, QUE+1, PRT+3, PRT+4, PRT+20, PRT+22, PRT+23, PRT+30, PRT+31
>> C(1	QUE, QUE+1, PRT+3, PRT+4
>> C(3	O+1*
>> C(4	O, O+1
DA	PRT+5*, PRT+10, PRT+12!
>> DFN	PRT+31*
DIC	PRT+6, PRT+7!, PRT+10, PRT+12!
DIC(0	PRT+6, PRT+10
>> E	O+1, O+2, H2+2
>> HRCN	PRT+30, PRT+31*
IO	QUE
IOF	QUE+3
IOSL	O+1, A+2, C+2
IOST	QUE+3, H
>> LR("%"	H+7
>> LR("F"	QUE+2*, H
>> LR("FORM"	QUE+3
>> LR("Q"	QUE+2, W+1, O+1, O+2, L, XT, A+2, A+4, C+2, B+2 , H, H1, H1+2, H2+2
>> LRAA	QUE+1, W+1, PRT, PRT+1
>> LRAD	QUE+1, W+1, PRT, PRT+1
>> LRDFN	W, O, O+1, A+4, B, PRT+1, PRT+5, PRT+20, PRT+23, PRT+30 , PRT+31
>> LRDPF	PRT+5*
>> LRI	W, O, O+1, A+4, B, B+2, PRT+1, PRT+20, PRT+23, PRT+30 , PRT+31*
>> LRO(68	H+1
>> LRP	PRT+12, PRT+20, PRT+30
>> LRSS	W, W+1, O, O+1, L+1, A+2, C+4, C+6, C+7, B+1 , B+2, PRT+20, PRT+22, PRT+23, H+4, H+6
>> M	XT*, A+2, A+4, H1, H1+2, H2+2
>> N	QUE, QUE+1, W+1, A+4*, C+5, PRT, PRT+1, PRT+30, H2+2
>> N(1	QUE
>> N(2	QUE+1
>> P(0	PRT+7*, PRT+20
>> POP	LRUPA2+8
>> SSN	PRT+12*
>> V	QUE+2*, XT, A+2, A+4, H1, H1+2, H2+2
>> X	QUE+1, W, W+1, L+1, A+2, PRT, PRT+1, PRT+2, PRT+5, PRT+10 , PRT+20*
Y	XT, PRT+6, PRT+7!, PRT+10, PRT+12!, PRT+20, D*
Y(0	PRT+7, PRT+12
>> Z	W+1*, L, L+1
>> Z(1	H+1
>> Z(2	W+1*, L+1
>> Z(3	W+1*, L+1
>> ZTRTN	LRUPA2+8*
>> ZTSK	LRUPA2+8

Customize PDF page

Package: Lab Service

Routine: LRUPA2

Information

Source Information

Call Graph

Call Graph Total: 3

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
A	;D:$Y>(IOSL-8) H Q:LR("Q") W !,$J(B,3),")",?6,$P(M,"-",3),?12,V I LRSS="BB" W !?12,M," " S X=$O(^TMP($J,V,M,0)) S:X X=^(X),X=$P(X,"^",2),X=^LR(X,0) W " ",$P(X,"^",5)," ",$P(X,"^",6)
C	; D:$Y>(IOSL-8) H1 Q:LR("Q") W:B(2)>0 ! D:LRSS="BB" D W ?33,$J(N,4),?38,$E(B(4),1,17) D:"AUEMSPCY"[LRSS B I "SPCYEMAU"'[LRSS D W ; ----- BEGIN IHS/OIT/MKK MODIFICATION LR5.21026
B
END
D
H2	;D H Q:LR("Q") W !,$J(B,3),")",?6,$P(M,"-",3),?12,V,?33,$J(N,4) S E=0 Q
H
H1
L
O
PRT
QUE
W
XT

Name	Field # of Occurrence
^(	W+1, O+1, A+2, A+4
^("AU"	PRT+20
^(0	QUE+1, W, O+1, PRT+5, PRT+23
^(3	PRT