Routine: LRUPACS

Information

LRUPACS ; IHS/DIR/FJE - LAB ACCESSION COUNTS BY SHIFT 2/18/93 13:09 ;

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

Package	Total	Caller Graph
Lab Service	1	LRUPACS

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?20,W(1)," ACCESSION & TEST COUNTS BY SHIFT" Line Location: LRUPACS+5
Function Call: WRITE	Prompt: !,$E($P(^LAB(61,S,0),"^"),1,19) Line Location: QUE+3
Function Call: WRITE	Prompt: !,?20,"-----",?35,"-----",?50,"-----",?65,"-------",!,"Total",$S($D(S):" Accessions",1:" Tests"),?20,$J(A(7),5),?35,$J(A(5),5),?50,$J(A(6),5),?65,$J(A(8),7) Line Location: TOT+0
Function Call: WRITE	Prompt: ?20,$J(A(3),5),?35,$J(A(1),5),?50,$J(A(2),5),?65,$J(A(4),7) Line Location: SUM+1
Function Call: WRITE	Prompt: !! Line Location: TST+0
Function Call: WRITE	Prompt: !,$E($P(^LAB(60,T,0),"^"),1,19) Line Location: TST+1
Function Call: WRITE	Prompt: !,"LABORATORY SERVICE ",W(1)," COUNTS",!?21,"From:",LRSTR," To:",LRLST Line Location: H+1
Function Call: WRITE	Prompt: !,?20,"12am-8am",?35,"8am-4pm",?50,"4pm-midnight",?65,"Total count",!,LR("%") Line Location: H+2
Function Call: WRITE	Prompt: Y Line Location: B+0
Function Call: WRITE	Prompt: Y Line Location: B+2
Function Call: WRITE	Prompt: $C(7),!?3,"Date cannot be TODAY." Line Location: N+0
Routine Call	DIC Line Location: LRUPACS+4

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	TST+1
^LAB(61 - [#61]	QUE+3
^LRO(68 - [#68]	QUE+1, Z+1, AC1, AC1+1

Name	Field # of Occurrence
^(0	AC1

Name	Field # of Occurrence
%DT	B!, B+2!
%DT("A"	B, B+2
%DT(0	B*
A	QUE+4!
A(	QUE+2, TST
A(1	QUE+3, SUM, SUM+1, TST+1
A(2	QUE+3, SUM, SUM+1, TST+1
A(3	QUE+3, SUM, SUM+1, TST+1
A(4	SUM*, SUM+1
A(5	TOT, TOT+1, SUM*
A(6	TOT, TOT+1, SUM*
A(7	TOT, TOT+1, SUM*
A(8	TOT, TOT+1, SUM*
>> B	Z+1*
DIC	LRUPACS+4*!
DIC("S"	LRUPACS+4*
DIC(0	LRUPACS+4*
DT	B+1, B+3
>> I	Z+1*, AC1, AC1+1
IO	QUE
IOF	OUT
IOSL	QUE+3, TOT, TST, TST+1
IOST	OUT, H
>> LR("%"	H+2
>> LR("F"	QUE+2*, H
>> LR("Q"	QUE+3, QUE+4, TOT, TST, TST+1, H
>> LRLDT	QUE+1, Z+1, B+3, B+4*, B+5
>> LRLST	H+1, B+5*
>> LRSDT	QUE+1, Z+1, B+1, B+4, B+5
>> LRSTR	H+1, B+5*
>> LRU	AC1
>> POP	LRUPACS+6
S	QUE+2, QUE+3, QUE+4!, TOT, AC1*
S(	QUE+3, AC1*
>> T	TST, TST+1, AC1+1*
>> T(	TST+1, AC1+1*
U	LRUPACS+4, QUE+1
>> W	LRUPACS+4*, QUE+1, Z+1, AC1, AC1+1
>> W(1	LRUPACS+4*, LRUPACS+5, H+1
>> W(6	Z+1*, AC1, AC1+1
X	LRUPACS+6!, B, B+2, B+4*
XY	LRUPACS+6!
Y	LRUPACS+4, LRUPACS+5, LRUPACS+6!, Z+1, AC1, AC1+1, B, B+1, B+2, B+3 , B+5
>> Z	QUE+1, Z, Z+1
>> Z(1	QUE+1*, Z+1
>> Z(3	Z+1*
>> ZTRTN	LRUPACS+6*
>> ZTSK	LRUPACS+6