Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: LRNITEG

Package: Lab Service

Routine: LRNITEG


Information

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

Source Information

Source file <LRNITEG.m>

Call Graph

Call Graph

Call Graph Total: 5

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

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

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
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

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
  • 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
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!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All