Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Source | Call Graph | Caller Graph | Entry Points | External References | Interaction Calls | Global Variables Directly Accessed | Label References | Naked Globals | Local Variables | All

Print Page as PDF

Routine: LRUPACT

Package: Lab Service

Routine: LRUPACT

Information

LRUPACT ; IHS/DIR/FJE - LAB ACC COUNTS BY TREATING SPECIALTY 9/30/93 11:57 ;

Source Information

Source file <LRUPACT.m>

Call Graph

Call Graph Total: 3

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

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Lab Service	1	LRUPACT

Entry Points

Name	Comments	DBIA/ICR reference
H4
H1
END
F
H2
H
ACD
DEV
AC1
QUE
T
ACY
OUT

External References

Name	Field # of Occurrence
^DIC	LRUPACT+4
B^LRU	LRUPACT+5
F^LRU	H+1
L^LRU	QUE
M^LRU	H
S^LRU	QUE
V^LRU	END
BEG^LRUTL	DEV
END^LRUTL	OUT

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?10,LRAA(1)," ACCESSION COUNTS BY TREATING SPECIALTY" Line Location: LRUPACT+5
Function Call: WRITE	Prompt: !,T(6),?30,$J(^TMP($J,"B",S),5) Line Location: QUE+4
Function Call: WRITE	Prompt: !?30,"-----",!,"Total Accessions: ",?30,$J(Q(2),5),?41,"Total tests: ",?70,$J(LRT,9) Line Location: QUE+5
Function Call: WRITE	Prompt: !,N Line Location: QUE+6
Function Call: WRITE	Prompt: !?30,M,?55,$J(Z,9) Line Location: F+0
Function Call: WRITE	Prompt: ?70,$J(V,9) Line Location: F+0
Function Call: WRITE	Prompt: !,LR("%") Line Location: F+1
Function Call: WRITE	Prompt: !?41,N,?70,$J(T(1),9) Line Location: T+0
Function Call: WRITE	Prompt: !?70,"---------",!?25,"Sub-total for ",T(6),":",?70,$J(T(5),9),!,LR("%") Line Location: T+1
Function Call: WRITE	Prompt: !,"LABORATORY SERVICE ",LRAA(1)," COUNTS(",LRSTR,"-",LRLST,")" Line Location: H+1
Function Call: WRITE	Prompt: !,"Specialty",?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,"Specialty",?55,"Test count",?70,"Cum count",!,LR("%") Line Location: H4+0
Routine Call	DIC Line Location: LRUPACT+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(45.7 - [#45.7]	QUE+1
^LAB(60 - [#60]	QUE+2, AC1+1
^LRO(68 - [#68]	ACY, AC1, AC1+1, ACD
^TMP($J	QUE!, QUE+1, QUE+2, QUE+4, QUE+6, F, T, AC1, AC1+1

Label References

Name	Line Occurrences
@(	QUE
AC1	ACY, ACD
END	LRUPACT+4, LRUPACT+5, DEV, OUT
F	QUE+6
H	H1, H2, H4
H1	QUE+3, QUE+4, T, T+1
H4	QUE+5, QUE+6, F
OUT	QUE+5, QUE+6
T	QUE+4

Naked Globals

Name	Field # of Occurrence
^(	QUE+4, F, T, AC1, AC1+1
^(0	AC1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> A	QUE+1, QUE+4, QUE+6*
>> B	QUE+1, F, T, ACY
>> C	F*
DIC	LRUPACT+4*!
DIC(0	LRUPACT+4*
>> I	ACY, AC1, AC1+1, ACD
IO	QUE
IOF	OUT
IOSL	QUE+4, QUE+6, F, T, T+1
IOST	OUT, H
>> LR("%"	F+1, T+1, H1, H4
>> LR("F"	QUE+3*, H
>> LR("Q"	QUE+4, QUE+5, QUE+6, F, F+1, T, T+1, H, H1, H2 , H4
>> LRAA	LRUPACT+4*, ACY, AC1, AC1+1, ACD
>> LRAA(1	LRUPACT+4*, LRUPACT+5, H+1
>> LRAN	ACY, AC1, AC1+1, ACD
>> LRLDT	LRUPACT+6*, ACY
>> LRLST	H+1
>> LRSA	ACY*
>> LRSDT	LRUPACT+6, ACY
>> LRSS	LRUPACT+4*, AC1
>> LRSTR	H+1
>> LRT	QUE, QUE+5, T
>> M	QUE+3, QUE+4, F*
>> N	QUE+4, QUE+6, T*
>> P(9	AC1*, AC1+1
>> POP	DEV
>> Q(2	QUE+3, QUE+4, QUE+5
>> S	QUE+1, QUE+4, QUE+6, F, T, H2
>> T	QUE+2, QUE+6, F, T, AC1+1
>> T(1	T*
>> T(3	LRUPACT+6, QUE, ACY, ACD*
>> T(4	LRUPACT+6*, ACY, ACD
>> T(5	QUE+4, T, T+1
>> T(6	QUE+4*, T+1
U	LRUPACT+4, LRUPACT+6, AC1+1
>> V	QUE+6, F
>> X	AC1*
>> Y	LRUPACT+4, LRUPACT+5
>> Y(0	LRUPACT+4, LRUPACT+6
>> Z	F*
>> ZTRTN	DEV*
>> ZTSK	DEV

Info | Source | Call Graph | Caller Graph | Entry Points | External References | Interaction Calls | Global Variables Directly Accessed | Label References | Naked Globals | Local Variables | All