Routine: LRNITEG

Information

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

Source file <LRNITEG.m>

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

Name	Line Occurrences
Function Call: WRITE	Prompt: !,Y Line Location: LOOP+1
Function Call: READ	Formatting: ! Prompt: " Enter Routine to start checking from " Variable: X Timeout: DTIME 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	Formatting: !! Prompt: " Enter EXACT routine to stop checking : ALL// " Variable: X Timeout: DTIME 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	Variable: X Timeout: .1 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

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