Routine: LRINTEGL

Entry Points

Name	Comments	DBIA/ICR reference
LOAD	;load routines into ^LAB(69.91,VNODE
ER2	; Error msg when the version being loaded do not match the version selected for auto loading
GLB	; Stuff new routine in to global using auto load [if it doesn,t already exist] in global
STOP	; clean-up
GLB1
QUE	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,ROU Line Location: QUE+3
Function Call: WRITE	Prompt: !!,"TOTAL = ",CNT,@IOF Line Location: QUE+4
Function Call: WRITE	Prompt: !?10,"ONLY ONE LINE IN ROUTINE ",! Line Location: GLB+1
Function Call: WRITE	Prompt: !?10,ROU," is version ",$S($L($P(^UTILITY("LRINTEG",$J,2,0),"~",2)):$P(^(0),"~",2),1:"Unknown ")," NOT LOADED",*7,! Line Location: ER2+1
Routine Call	DIE Line Location: GLB1+1
Routine Call	%ZIS Line Location: LOAD+2

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS("C"	STOP+1
^%ZOSF("LOAD"	QUE+1
^%ZOSF("OS"	QUE+1
^%ZSTK(	QUE+4!
^UTILITY("LRINTEG"	GLB+1!, GLB+2, GLB+3, GLB1+1!, STOP+2!, ER2+1

Name	Field # of Occurrence
^(0	QUE+2, QUE+4, GLB1+2, ER2+1

Name	Field # of Occurrence
%ZIS	LOAD+2*, STOP+1!
A	STOP+2!
BIT	STOP+2!
CNT	QUE+2, QUE+3, QUE+4, GLB+1, GLB+2, GLB+3, GLB+4*, GLB1+2, STOP+2!
>> DA	QUE+2, QUE+4, GLB1, GLB1+2
>> DA(1	QUE+2*
DIC	STOP+1!
DIC(0	QUE+2, QUE+3
DIE	QUE+2, QUE+4, GLB+4, GLB1, GLB1+2*, STOP+1!
DIF	QUE+1*, STOP+2!
>> DR	GLB1+1*
ER	STOP+2!
I	LOAD+2*, STOP+2!
II	STOP+2!
IO	LOAD+4
IO("Q"	LOAD+2, LOAD+3
IOF	QUE+4
ION	LOAD+2
IX	STOP+2!
L	STOP+2!
LN	STOP+2!
LOAD	LOAD+1*, STOP+2!
LROSYS	QUE+1*, QUE+3, STOP+2!
NT	STOP+2!
>> POP	LOAD+2
ROU	QUE+3*, GLB+1, GLB+4, GLB1+1, STOP+2!, ER2+1
SIZE	STOP+2!
U	QUE+1*, QUE+2, QUE+4, GLB1+2
VER	GLB+3, STOP+2!
VERDDT	STOP+2!
VNODE	QUE+2, STOP+2!
>> X	GLB+1*
XBIT	STOP+2!
XCMP	STOP+2!
XCNP	GLB+1*, STOP+2!
XLOAD	QUE+1*, GLB+1, STOP+2!
XSIZE	STOP+2!
XTEST	STOP+2!
>> Y	LOAD+1
YBIT	STOP+2!
>> ZTDESC	LOAD+2*
>> ZTIO	LOAD+2*
>> ZTRTN	LOAD+2*
>> ZTSAVE(	LOAD+2*
ZTSK	QUE+4!