Routine: LR7OSUM

Information

LR7OSUM ;slc/dcm - Silent Patient cum ;8/11/97

Source Information

Source file <LR7OSUM.m>

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Lab Service	8	($$LRDFN,DTRNG)^LR7OR1 EN^LR7OSAP EN^LR7OSBR (LRIDT,MICRO)^LR7OSUM1 ^LR7OSUM3 END^LRACM ^LRDPA PT^LRX

Caller Graph

Caller Graph Total: 6

Package	Total	Caller Graph
Order Entry Results Reporting	6	ORCHTAB4 ORCXPND3 ORWGAPIC ORWLR ORWRP1 ORWRP1A

Entry Points

Name	Comments	DBIA/ICR reference
GET64(Y)	;Get minor headers from file 64.5	ICR #1958 Status: Active Usage: Supported ICR #2766 Status: Active Usage: Supported
END
PT	;Test with a loop thru multiple patients
EN(Y,DFN,SDATE,EDATE,COUNT,GIOM,SUBHEAD)	;Enter here to get silent lab results	ICR #1958 Status: Active Usage: Supported ICR #2766 Status: Active Usage: Supported
LRLLOC	;
DFN
CLEAN	;Clean up TMP globals
TEST	;Test the output
AP(DFN)	;Get just the AP results	ICR #2766 Status: Active Usage: Supported

Name	Field # of Occurrence
$$LRDFN^LR7OR1	EN+12
DTRNG^LR7OR1	EN+19
EN^LR7OSAP	LRLLOC+9
EN^LR7OSBR	LRLLOC+8
LRIDT^LR7OSUM1	LRLLOC+5
MICRO^LR7OSUM1	LRLLOC+7
^LR7OSUM3	LRLLOC+6
END^LRACM	END
^LRDPA	DFN+2
PT^LRX	EN+16

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,^(IFN,0) Line Location: TEST+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: PT+2
Function Call: WRITE	Prompt: !!,"How many patients: " Line Location: PT+2
Function Call: WRITE	Prompt: !!,"Enter a number" Line Location: PT+3
Function Call: WRITE	Prompt: !!!!,"////////////////////"_$P(^DPT(DFN,0),"^")_" LRDFN:"_+^DPT(DFN,"LR")_"////////////////////",!! Line Location: PT+5

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	PT+5
^LAB(64.5 - [#64.5]	GET64+2
^LR - [#63]	LRLLOC+2
^TMP("LRC"	EN+24, TEST+2, PT+5!, CLEAN+1!, AP+3!
^TMP("LRH"	PT+5!, CLEAN+1!
^TMP("LRT"	PT+5!, CLEAN+1!
^TMP($J	LRLLOC+3, LRLLOC+4, EN+14!

Name	Line Occurrences
EN	PT+5, AP+8
END	DFN+4, EN+23
LRLLOC	DFN+4, EN+23
PT	PT+3
TEST	PT+5

Name	Field # of Occurrence
^(	LRLLOC+2, TEST+2, GET64+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%I	AP+2~
A	EN+15~
AGE	LRLLOC+3, EN+15~
B	LRLLOC+1~
C	LRLLOC+1~
CCNT	LRLLOC+1~, LRLLOC+2*
COUNT	EN~, EN+20*
CT1	EN+15~, EN+17*
DFN	LRLLOC+3, EN~, EN+11, EN+12, PT+1~, PT+4, PT+5, AP~, AP+1, AP+8
DIC	DFN+1!, EN+15~
DOB	EN+15~
DTIME	PT+2
E	AP+2~
EDATE	EN~, EN+22
F	EN+15~
G	EN+15~
GCNT	LRLLOC+1~, LRLLOC+2*
GIOM	EN~, EN+20, EN+21
GIOSL	LRLLOC+1~, LRLLOC+2*
H	EN+15~
I	EN+15~, GET64+1~, GET64+2*
IFN	EN+15~, TEST+1~, TEST+2*
INC	EN+15~
IO	DFN+3
J	EN+15~, GET64+1~, GET64+2*
K	EN+15~
LR	EN+15~
LRA	EN+15~
LRAA	EN+15~
LRABV	EN+15~
LRACT	EN+15~
LRADM	EN+15~, EN+17*
LRADX	EN+15~, EN+17*
LRAU	AP+2~
LRCNT	EN+15~
LRCTN	EN+15~
>> LRDFN	LRLLOC+2, LRLLOC+3, LRLLOC+4, EN+12*, EN+13
LRDP	EN+15~
>> LRDPF	LRLLOC+3
LREND	DFN, EN+15~, EN+22
>> LRIDT	DFN, EN+22
>> LRIN	DFN, EN+22
LRJ02	EN+15~
>> LRLLOC	LRLLOC+2*
LRMD	EN+15~
LRMIT	EN+15~
LRN	EN+15~
LRNAME	EN+15~
>> LROUT	DFN, EN+22
LRPRAC	EN+15~
LRQ	EN+15~
LRRB	EN+15~
LRSAV	EN+15~
LRSB	LRLLOC+1~
LRSPE	EN+15~
LRSPEM	EN+15~
LRTEST	EN+15~
LRTOP	EN+15~
LRTREA	EN+15~
LRUNKNOW	EN+15~
LRUNT	EN+15~
LRV	AP+2~
LRVAL	EN+15~
LRW	EN+15~
>> LRWRD	LRLLOC+2
LRZ	AP+2~
M	EN+15~
N	EN+15~
P	EN+15~
P7	EN+15~
>> PNM	LRLLOC+3
PTN	PT+1~, PT+5*
PTNX	PT+1~, PT+4*, PT+5
S1	EN+15~
SDATE	EN~, EN+22
SP	EN+15~
>> SSN	LRLLOC+2*, LRLLOC+3
SUBHEAD	LRLLOC+4, LRLLOC+7, LRLLOC+8, EN~, AP+2~, AP+8
SUBHEAD("AUTOPSY"	AP+7*
SUBHEAD("BLOO	D BANK" , LRLLOC+8
SUBHEAD("CYTOPATHOLOGY"	AP+4*
SUBHEAD("EM"	AP+6*
SUBHEAD("MICROBIOLOGY"	LRLLOC+7
SUBHEAD("MISC	ELLANEOUS TESTS" , LRLLOC+4
SUBHEAD("SURG	ICAL PATHOLOGY" , AP+5*
T	EN+15~
U	LRLLOC+3
VA	LRLLOC+1~, EN+18!
VA200	LRLLOC+1~
VADM	EN+18!
VAERR	LRLLOC+1~, EN+18!
VAIN	EN+18!
VAIN(7	EN+17
VAIN(9	EN+17
W	LRLLOC+1~
X	EN+15~, GET64+2, PT+1~, PT+2, PT+3, PT+4
X1	EN+15~
X2	DFN+1!
XZ	EN+15~
Y	DFN+2, EN~, EN+15~, EN+24, GET64~, GET64+10, PT+5
Y(	GET64+2*
Y("AUTOPSY"	GET64+9*
Y("BLOOD BANK	" , GET64+5*
Y("CYTOPATHOLOGY"	GET64+6*
Y("EM"	GET64+8*
Y("MICROBIOLOGY"	GET64+4*
Y("MISCELLANE	OUS TESTS" , GET64+3*
Y("SURGICAL P	ATHOLOGY" , GET64+7*
Y1	EN+15~
>> ZIP	AP+8
ZTRTN	DFN+1!

Customize PDF page

Package: Lab Service

Routine: LR7OSUM

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: