Routine: LRINTEG

Information

LRINTEG ;SLC/FHS - INTEGRITY CHECKER FOR LAB SERVICE PACKAGE ;8/3/89 17:52 ;

Source file <LRINTEG.m>

Package	Total	Call Graph
VA Fileman	2	^%DT ^DIC

Package	Total	Caller Graph
Lab Service	1	LRINTEGL

Name	Comments	DBIA/ICR reference
EN	;set %zosf variables ; This routine stores routines (variable X) in ^UTILITY("LRINTEG" returns ; XBIT which is = $A(X) and SIZE which is the $L(X)
VER	; Select or add version #
LOOK	; Entry point to look thru the whole selected version routine, checking for mis-matches Prints the DA every tenth time
ER2	; Error msg when the version being loaded does not match the version selected for auto loading
STOP	; clean-up
ASK1
SING1	; Loop point
SING	; Entry point for a single routine data look-up
ASK
NEW	;
BIT	;
ER	; Error msg for when attempt to use a routine that doen't exist
LOOP	; Loop thru intire file checking for mis-match between file directory
SIZE	; Test for existence of X, load routine into ^UTILITY("LRINTEG" AND COUNT $L(X)

Name	Line Occurrences
Function Call: WRITE	Prompt: !,Y Line Location: LOOP+1
Function Call: READ	Prompt: " Enter Routine to start checking from " Formatting: ! Timeout: DTIME Variable: X Line Location: ASK+0
Function Call: WRITE	Prompt: *7,!!?7,"ENTER RETURN OR ROUTINE BEGINNING WITH 'L' " Line Location: ASK+1
Function Call: READ	Prompt: " Enter EXACT routine to stop checking : ALL// " Formatting: !! Timeout: DTIME Variable: X Line Location: ASK1+0
Function Call: WRITE	Prompt: *7,!!?7,"ROUTINE MUST START WITH 'L' " Line Location: ASK1+1
Function Call: WRITE	Prompt: !!?7,"Enter '^' to stop ",!! Line Location: ASK1+3
Function Call: READ	Timeout: .1 Variable: X Line Location: ASK1+4
Function Call: WRITE	Prompt: !,"EDIT/CHANGE IN ",X,!,*7 Line Location: ASK1+4
Function Call: WRITE	Prompt: !,"There is not a routine called '",X,"' in this directory ",*7,! Line Location: ER+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	DIC Line Location: VER+1 SING1+1

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("LOAD"	NEW+2
^LAB(69.91 - [#69.91]	ASK1+4, SING1+1
^UTILITY("LRINTEG"	NEW+2!, SIZE+2!, BIT+1, ER2+1, STOP+1!

Name	Field # of Occurrence
%	NEW+1~
%DT	LOOP+1!*
A	NEW+1~, ASK1+4*, STOP+1!
BIT	STOP+1!
CNT	STOP+1!
DIC	NEW+1~, VER+1!, SING+1!
DIC("A"	VER+1*
DIC(0	VER+1, SING+1
DIF	NEW+1~, NEW+2, SIZE+2~, STOP+1!
DTIME	ASK, ASK1
ER	ASK1+4, ER+1, STOP+1!, SING1+1*
I	NEW+1~, BIT+1*, STOP+1!
II	NEW+1~, LOOP+2, ASK, ASK+2, ASK1+4, STOP+1!
IX	ASK1+4*, STOP+1!
L	BIT+1*, STOP+1!
LN	BIT+1*, STOP+1!
LOAD	VER+1, STOP+1!
>> LRST	LOOP+2, ASK1, ASK1+2*, ASK1+4
NT	BIT+1*, STOP+1!
ROU	ER2+1, STOP+1!
SIZE	ASK1+4*, STOP+1!, SING1+2
U	VER+1*, ASK, ASK1, ASK1+4, SING1+1
VER	VER+1*, STOP+1!
VERDDT	VER+1*, STOP+1!
VNODE	VER+1*, ASK1+4, STOP+1!, SING+1, SING1+1
X	NEW+1~, LOOP+1, ASK, ASK+1, ASK+2, ASK1, ASK1+1, ASK1+2, ASK1+4, ER+1! , SING1+1*, SING1+2
XBIT	ASK1+4, BIT+1*, STOP+1!, SING1+2
XCM	NEW+1~, STOP+1!
XCMP	STOP+1!
XCN	NEW+1~, STOP+1!
XCNP	NEW+1~, SIZE+2~*, STOP+1!
XCS	NEW+1~, STOP+1!
XLOAD	NEW+2*, SIZE+2, STOP+1!
XSIZE	NEW+3*, SIZE+2, STOP+1!
XTEST	NEW+2*, SIZE+2, STOP+1!
Y	NEW+1~, VER+1, LOOP+1, LOOP+2, LOOK+1, SING+1, SING1+1
Y(0	VER+1
YBIT	ASK1+4, STOP+1!, SING1+1, SING1+2