Routine: LRNITEG

Information

LRNITEG ; IHS/DIR/FJE - INTEGRITY CHECKER FOR LAB SERVICE PACKAGE 8/3/89 17:52 ;

Source Information

Source file <LRNITEG.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
VA Fileman	3	^%DT ^DIC ^DIM
Kernel	2	^%ZIS ^%ZTLOAD

Caller Graph

Caller Graph Total: 4

Package	Total	Caller Graph
Lab Service	4	LR INTEGRITY LOOP LR INTEGRITY SINGLE LRNITEGL Routine

Entry Points

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

External References

Name	Field # of Occurrence
^%DT	LOOP+1
^%ZIS	ASK1+2
^%ZTLOAD	QUE+2
^DIC	VER+4, SING1+1
^DIM	SUM+8

Interaction Calls

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: $C(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: $C(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: DQ+2
Function Call: WRITE	Prompt: !,"EDIT/CHANGE IN ",X,!,$C(7) Line Location: LOG+0
Function Call: WRITE	Prompt: !,"There is not a routine called '",X,"' in this directory ",$C(7),! Line Location: ER+1
Function Call: WRITE	Prompt: !?10,ROU," is version ",$S($L($P(^TMP("LRNITEG",$J,2,0),";",3)):$P(^(0),";",3),1:"Unknown ")," NOT LOADED",$C(7),! Line Location: ER2+1
Function Call: WRITE	Prompt: !?10,"Check Sum = ",XSUM,! Line Location: SING1+3
Function Call: WRITE	Prompt: !!?10,"Queued to device "_ION,!!,$C(7) Line Location: QUE+2
Routine Call	DIC Line Location: VER+4 SING1+1
Routine Call	%ZIS Line Location: ASK1+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^LAB(69.91 - [#69.91]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("LOAD"	NEW+2, SCREEN+1
^%ZOSF("RSUM"	CKSUM+1, CKSUM+2
^LAB(69.91 - [#69.91]	DQ+2, SING1+1, SCREEN+1
^TMP("LRNITEG"	NEW+2!, SIZE+2!, BIT+1, ER2+1, STOP+1!
^TMP("LRNITEGL"	DQ+1, LOG*

Label References

Name	Line Occurrences
ASK	ASK, ASK+1
ASK1	ASK1, ASK1+1
EN	LOOP+2, SING+1
ER	SIZE+2
LOG	DQ+2
LOOP	LOOK+1
QUE	ASK1+2
SING1	SING1+1, SING1+3
SIZE	DQ+2, SING1+1
STOP	VER+4, ASK1+2, SING+1, SING1+1, QUE+2
VER	LOOP+2, SING+1

Naked Globals

Name	Field # of Occurrence
^(	DQ+2
^("LRNITEGL"	DQ+1, LOG*
^("TEST"	NEW+2
^(0	DQ+2, BIT+1, ER2+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	NEW+1~, SCREEN+1~
%DT	LOOP+1!*
%ZIS	ASK1+2!*
A	NEW+1~, DQ+2*, STOP+1!
BIT	STOP+1!
CNT	STOP+1!
>> DA(1	SING+1*, SCREEN+1
DIC	NEW+1~, VER+1!, VER+2, SING+1!
DIC("A"	VER+1*
DIC(0	VER+2, VER+3, SING+1*
DIF	NEW+1~, NEW+2, SIZE+2~, STOP+1!, SCREEN+1~*
DLAYGO	VER+3, STOP+1!, SING+1
DT	LOG
DTIME	ASK, ASK1
ER	DQ+2, ER+1, STOP+1!, SING1+1*
I	NEW+1~, BIT+1, STOP+1!, QUE+1
II	NEW+1~, LOOP+2, ASK, ASK+2, DQ+2, STOP+1!
IO	ASK1+2
IO("Q"	ASK1+2!
IO(0	ASK1+2
ION	QUE+1, QUE+2
IX	DQ+2*, STOP+1!
L	BIT+1*, STOP+1!
LN	BIT+1*, STOP+1!
LOAD	VER+3, STOP+1!
LRASC	SUM+1~, SUM+15*, SUM+16
LRDATA	SUM+1~, SUM+13*, SUM+14, SUM+15
LRPOS	SUM+1~, SUM+14*, SUM+15, SUM+16
LRREF	SUM+1~, SUM+8*, SUM+10
>> LRST	LOOP+2, ASK1, ASK1+2*, DQ+2
LRTOT	SUM+1~, SUM+13, SUM+16, SUM+18
NT	BIT+1*, STOP+1!
>> PN	DQ+1, LOG
>> POP	ASK1+2
REF	SUM~, SUM+4, SUM+5, SUM+8, SUM+13
ROU	ER2+1, STOP+1!
SIZE	DQ+2*, STOP+1!, SING1+2
U	VER+1*, VER+4, ASK, ASK1, DQ+2, SING1+1, SCREEN+1
VER	VER+4, STOP+1!, SCREEN+1
VERDDT	VER+4*, STOP+1!
VNODE	VER+4*, DQ+2, STOP+1!, SING+1, SING1+1
X	NEW+1~, LOOP+1, ASK, ASK+1, ASK+2, ASK1, ASK1+1, ASK1+2, DQ+2, LOG , ER+1!, SING1+1, SING1+2, SCREEN+1!, SUM+1~, SUM+8!, SUM+9, SUM+10
XBIT	DQ+2, 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!, SCREEN+1~
XCS	NEW+1~, STOP+1!
XLOAD	NEW+2*, SIZE+2, STOP+1!
XSIZE	NEW+3*, SIZE+2, STOP+1!
XSUM	CKSUM+1, CKSUM+2, STOP+1!, SING1+3
XTEST	NEW+2*, SIZE+2, STOP+1!
Y	NEW+1~, VER+4, LOOP+1, LOOP+2, CKSUM+2, SING+1, SING1+1
Y(0	VER+4
YBIT	DQ+2, STOP+1!, SING1+1, SING1+2
>> ZTDESC	QUE+1*
>> ZTIO	QUE+1*
>> ZTRTN	QUE+1*
>> ZTSAVE(	QUE+1*
ZTSK	ASK1+2!

Customize PDF page

Package: Lab Service

Routine: LRNITEG

Call Graph Total: 5

Caller Graph Total: 4