Routine: LRACSUM

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: LRX Line Location: MANUAL+0
Function Call: WRITE	Prompt: !!,"No In-patient stays for this patient" Line Location: LIST+0
Function Call: WRITE	Prompt: !!?10,"ADMISSION DATE",?35,"DISCHARGE DATE" Line Location: LIST+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: LIST+4
Function Call: WRITE	Prompt: !?4,LRI,". ",?10,Y Line Location: A+0
Function Call: WRITE	Prompt: ?35,Y Line Location: A+1
Routine Call	%ZIS Line Location: QUE+1

Name	Line Occurrences (* Changed, ! Killed)
^DGPM - [#405]	WORK, A, A+1
^DGPM("AMV3"	DIS, FN
^DGPM("ATID1"	LIST+3, A
^DGPM("C"	LIST
^DPT - [#2]	WORK+1
^LAB(64.5 - [#64.5]	SET
^LR - [#63]	LRLLOC+1, SET+2
^TMP($J	LRLLOC+5, LRLLOC+6, SET+1!

Name	Line Occurrences
A	LIST+3
DIS	DQ+1, OUT+1
END	DFN, DFN+1, MANUAL+2, MANUAL+3, MANUAL+4, DQ+1, OUT+1
FN	DIS
LIST	MANUAL+1, LIST+4
LRLLOC	DFN+1, WORK+1, MANUAL+4
MANUAL	MANUAL
OUT	MANUAL+2
QUE	DFN, MANUAL+2, MANUAL+3
SET	LRLLOC+1
WORK	FN

Name	Field # of Occurrence
>> %DT	DQ*
>> %ZIS	QUE+1*
>> DFN	LRLLOC+5, WORK+1*, LIST, LIST+3, A
DIC	DFN!, SET+1!, MANUAL!
>> DOB	LRLLOC+5
DTIME	MANUAL, LIST+4
HRCN	QUE+2!, LRLLOC+3*, LRLLOC+5
>> I	QUE+1*
>> II	DIS*
IO	DFN+1, DIS, MANUAL+4
IO("Q"	QUE+1!
IOM	LIST+1*
>> JJ	FN*
>> K	FN*
>> L	LIST+2, LIST+3, A
LRBOT	QUE+2!, SET*
LRCDT	QUE+2!, SET+1*
LRDFN	QUE+2!, LRLLOC+1, LRLLOC+5, LRLLOC+6, SET+2, WORK+1*, MANUAL+1
LRDIS	DFN, QUE+2!, MANUAL, DQ*
>> LRDPF	LRLLOC+5, SET+2*
>> LRDT0	SET+1
LREDT	MANUAL+1, MANUAL+2!, MANUAL+3!, LIST+4!*
>> LREND	DFN, MANUAL, MANUAL+1, MANUAL+2
>> LRF	DIS, MANUAL+2, DQ
>> LRFD	DIS*, FN
>> LRFN	DIS, FN, WORK+1
>> LRI	LIST+2, A, A+1
>> LRI(	LIST+4, A, A+1
LRIDT	DFN, QUE+2!, WORK, MANUAL+1*
>> LRIN	DFN, WORK, MANUAL+1*
>> LRINN	FN*, WORK
>> LRL	DIS, MANUAL+2, DQ
>> LRLLOC	LRLLOC+1*
>> LRLTR	DIS*
LRNM	QUE+2!, SET*
LROUT	DFN, QUE+2!, WORK, MANUAL+1*
LRSDT	MANUAL+1, MANUAL+2!, MANUAL+3!, LIST+4*
>> LRTD	SET*
LRTNN	QUE+2!, SET+2*
>> LRWRD	LRLLOC+1
>> LRX	MANUAL*, MANUAL+1, MANUAL+2
>> M	LIST+3*
>> PNM	LRLLOC+5
>> POP	DFN, QUE+1, QUE+2*, MANUAL+2, MANUAL+3
U	LRLLOC+5, SET, SET+2, LIST+4, A+1
>> X	WORK, MANUAL+1, DQ, LIST+4, A
X2	DFN!
>> Y	DFN, DQ, A, A+1
>> Z	A*, A+1
ZTDESC	QUE+1*, QUE+2!
ZTIO	QUE+2!
>> ZTQUEUED	LRLLOC
>> ZTREQ	LRLLOC*
ZTRTN	DFN!, QUE+1, QUE+2!, MANUAL+2!
ZTSAVE	QUE+2!
ZTSAVE(	QUE+1*
ZTSK	DFN!, QUE+2, MANUAL+3!, OUT!

Information

Name	Comments	DBIA/ICR reference
A
SET
END
LIST
WORK
MANUAL
OUT
LRLLOC
DFN
QUE	;S %ZIS="QM" D ^%ZIS Q:POP I $D(IO("Q")) K IO("Q") S:'$D(ZTRTN) ZTRTN="LRLLOC^LRACSUM" S ZTDESC="Patient lab summary" F I="%","AGE","D","LR*","PNM","SEX","SSN","U" S ZTSAVE(I)=""
DQ
FN
DIS