Routine: LRUPACA

Information

LRUPACA ;IHS/DIR/FJE - LAB ACC COUNTS BY LOC 2/18/93 13:09 ;JUL 06, 2010 3:14 PM

Source Information

Source file <LRUPACA.m>

Call Graph

Call Graph Total: 4

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

Caller Graph

Caller Graph Total: 3

Package	Total	Caller Graph
Lab Service	3	LR COUNT ACC TESTS LR IHS COUNT ACC TESTS LRBLRTC

Entry Points

Name	Field # of Occurrence
^%DT	H+1
^DIC	EP+4
B^LRU	EP+6
D^LRU	QUE+1, H+1
L^LRU	QUE
M^LRU	H
S^LRU	QUE
V^LRU	END+1
WAIT^LRU	QUE
BEG^LRUTL	DEV
END^LRUTL	OUT

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?20,LRAA(1)," ACCESSION COUNTS" Line Location: EP+6
Function Call: WRITE	Prompt: !,S,?30,$J(^TMP($J,"B",S),5) Line Location: QUE+2
Function Call: WRITE	Prompt: !?30,"-----",!,"Total Accessions: ",?30,$J(Q(2),5),?41,"Total tests: ",?70,$J(T(2),9) Line Location: QUE+3
Function Call: WRITE	Prompt: !?30,"-----",?70,"_________",!,"Total Accessions: ",?30,$J(Q(2),5),?41,"Total tests: ",?70,$J(T(2),9) Line Location: QUE+4
Function Call: WRITE	Prompt: !?30,"-----",?70,"---------",!,"Total Accessions: ",?30,$J(Q(2),5),?41,"Total tests: ",?70,$J(T(2),9) Line Location: QUE+5
Function Call: WRITE	Prompt: !,$S($D(^LAB(60,T,0)):$P(^(0),"^"),1:T) Line Location: QUE+7
Function Call: WRITE	Prompt: ! Line Location: QUE+9
Function Call: WRITE	Prompt: ?56,"---------" Line Location: QUE+10
Function Call: WRITE	Prompt: ! Line Location: QUE+11
Function Call: WRITE	Prompt: ?36,"Total tests:" Line Location: QUE+12
Function Call: WRITE	Prompt: ?56,$J(TESTCNT,9) Line Location: QUE+13
Function Call: WRITE	Prompt: ! Line Location: QUE+14
Function Call: WRITE	Prompt: !,?56,"---------",! Line Location: QUE+18
Function Call: WRITE	Prompt: ?36,"Total tests:",?56,$J(TESTCNT,9),! Line Location: QUE+19
Function Call: WRITE	Prompt: !?41,$S($D(^LAB(60,T,0)):$P(^(0),"^"),1:T),?70,$J(T(1),9) Line Location: T+0
Function Call: WRITE	Prompt: !?30,S,?55,$J(Z,9) Line Location: B+0
Function Call: WRITE	Prompt: ?70,$J(V,9) Line Location: B+0
Function Call: WRITE	Prompt: ?35,S Line Location: B+10
Function Call: WRITE	Prompt: ?56,$J(Z,9) Line Location: B+11
Function Call: WRITE	Prompt: ?70,$J(V,9) Line Location: B+13
Function Call: WRITE	Prompt: !,$S($D(^LAB(60,T,0)):$P(^(0),"^"),1:T) Line Location: TESTHEAD+1
Function Call: WRITE	Prompt: @IOF,!,Y,?22,LRQ(1),?(IOM-10),"Pg: ",LRQ Line Location: H+1
Function Call: WRITE	Prompt: !,"LABORATORY SERVICE ",LRAA(1)," COUNTS (",LRSTR,"-",LRLST,")",!,"INCLUSIVE DATES WITH DATA: ",LRB Line Location: H+2
Function Call: WRITE	Prompt: " TO ",LRE Condition for execution: LRE]"" Line Location: H+2
Function Call: WRITE	Prompt: !,"Location",?26,"# Accessions",?69,"Test count",!,LR("%") Line Location: H1+0
Function Call: WRITE	Prompt: !,S Line Location: H2+0
Function Call: WRITE	Prompt: !,"Test",?35,"Location",?55,"Test count",?70,"Cum count",!,LR("%") Line Location: H3+0
Routine Call	DIC Line Location: EP+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	QUE+7, T, TESTHEAD+1
^LAB(62.3 - [#62.3]	AC1+1
^LR - [#63]	AC1+1
^LRO(68 - [#68]	EP+7, ACY, ACY1, AC1+1, AC1+5, AC1+6, ACD
^TMP("LRUPACA"	AC1+10, AC1+13*, END+1!
^TMP($J	QUE!, QUE+1, QUE+2, QUE+7, T, B+5, B+8, ACY, ACY1+1, AC1+2 , AC1+21, AC1+22, ACD, ACD+1

Name	Line Occurrences
@(	QUE
AC1	ACY1, ACD
ACY1	ACY
B	QUE+7
END	EP+4, EP+6, DEV, OUT
H	H1, H2, H3
H1	QUE+2, T
H3	QUE+5, QUE+7, B+7
OUT	QUE+5
T	QUE+2
TESTHEAD	B+7

Name	Field # of Occurrence
^(	QUE+2, AC1+2*
^("E"	QUE+1
^("S"	QUE+1
^(0	QUE+7, T, TESTHEAD+1, AC1+1

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	H+1*
>> A	QUE+2*
>> B	ACY1*
CUMCNT	QUE+6~, B+15*
DIC	EP+4*!
DIC("S"	EP+4*
DIC(0	EP+4*
HEDIT	B+3~, B+6, B+9, TESTHEAD+2
>> I	ACY, ACY1, AC1+1, AC1+5, AC1+6, AC1+10, AC1+13, ACD
IO	QUE
IOF	H+1
IOM	H+1
IOSL	QUE+2, QUE+7, T, B+7
IOST	QUE, H
>> LR("%"	H1, H3
>> LR("F"	QUE+2*, H
>> LR("Q"	QUE+2, QUE+5, QUE+7, T, B+5, B+7, H, H1, H2, H3
>> LRAA	EP+4*, EP+7, ACY, ACY1, AC1+1, AC1+5, AC1+6, AC1+10, AC1+13, ACD
>> LRAA(1	EP+4*, EP+6, H+2
>> LRAN	ACY1, AC1+1, AC1+5, AC1+6, AC1+10, AC1+13, ACD
LRAS	EP+1~
>> LRB	QUE+1, ACY, H+2
>> LRE	QUE+1, ACY1, ACY1+1, ACD*, ACD+1, H+2
>> LRLDT	EP+7*, ACY1
>> LRLLOC	AC1+1*, AC1+2, AC1+21, AC1+22
>> LRLST	H+2
>> LRQ	H+1*
>> LRQ(1	H+1
>> LRSA	ACY*, ACY1
>> LRSDT	EP+7, ACY
>> LRSS	EP+4*
>> LRSTR	H+2
>> POP	DEV
>> Q(2	QUE+2*, QUE+5
>> S	QUE+2, T, B+4, B+5*, B+8, B+10, H2
T	EP+5!, QUE+7, T, B+5, B+8, TESTHEAD+1, AC1+5*, AC1+6, AC1+10, AC1+13 , AC1+21, AC1+22
T(1	T*
T(2	EP+5, QUE+5, T
T(3	EP+7, QUE, ACY, ACD*
T(4	EP+7*, ACY, ACD
TESTCNT	QUE+6~, QUE+17, QUE+19, B+14*
U	EP+4, EP+7, AC1+1
>> V	B+4, B+12, B+13, B+15
>> X	AC1+1, H+1
>> Y	EP+4, EP+6, QUE+1*, H+1
>> Y(0	EP+4
>> Z	B+8*, B+11, B+12, B+14
>> Z(4	EP+5*
>> ZTRTN	DEV*
>> ZTSK	DEV

Customize PDF page

Package: Lab Service

Routine: LRUPACA

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
B	; S V=0,S=0 F A=0:1 S S=$O(^TMP($J,T,S)) Q:S=""!(LR("Q")) D:$Y>(IOSL-6) H3 Q:LR("Q") S Z=^TMP($J,T,S) W !?30,S,?55,$J(Z,9) S V=V+Z W ?70,$J(V,9) ; Q ; ------ BEGIN IHS/OIT/MKK PATCH 1027 MODIFICATIONS
END	; D V^LRU Q
ACD
H2
H
ACY
H1
DEV
AC1	;Q:'$D(^LRO(68,LRAA,1,I,1,LRAN,0)) Q:I'=$P(^(0),U,3) S X=^(0),LRLLOC=$S($L($P(X,U,7)):$P(X,U,7),$P(X,U,2)=62.3:"QC--"_$P(^LAB(62.3,$P(^LR($P(X,"^"),0),U,3),0),"^"),1:"???")
QUE
T
H3
TESTHEAD	; EP
EP	; Begin -- IHS/OIT/MKK - Patch 1022
ACY1
OUT