Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: BLRNTEG

Package: IHS Changes To Lab

Routine: BLRNTEG


Information

BLRNTEG ; IHS/DIR/FJE - INTEGRITY CHECKER JUL 31, 1997 ;

Source Information

Source file <BLRNTEG.m>

Entry Points

Name Comments DBIA/ICR reference
LIST ;
LINE6 ;;K XBSUMBLD,B,C,I,J,R,X,Y
LINE5 ;;S B=$P(^UTILITY($J,RTN),"^",1),C=$P(^(RTN),"^",2) I B'=BYTE!(C'=COUNT) W " has been modified"
LINE4 ;;F J=1:1 S Y=$E(X,J) Q:Y="" S BYTE=BYTE+1,COUNT=COUNT+$A(Y)
LINE3 ;;F I=2:1 S X=$T(+I) Q:X="" X XBSUMBLD(4)
LINE2 ;;S RTN="" F S RTN=$O(^UTILITY($J,RTN)) Q:RTN="" W !,RTN ZL @RTN S (BYTE,COUNT)=0 S X=$T(+1),X=$P(X," [ ",1) X XBSUMBLD(4),XBSUMBLD(3),XBSUMBLD(5)
LINE1 ;;X XBSUMBLD(2),XBSUMBLD(6)
START ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,RTN
  • Line Location: LINE2+0
Function Call: WRITE
  • Prompt: " has been modified"
  • Line Location: LINE5+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^UTILITY($J START+2!, START+3*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> B START+3*
BYTE START+1~
>> C START+3*
COUNT START+1~
>> I START+3*, START+4*
>> R START+3*
RTN START+1~
>> X START+3*, START+4*
>> XBSUMBLD(1 START+5

Marked Items

Name Field # of Occurrence
$T(@(3) START+4
$T(LIST+I START+3
Info |  Source |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Local Variables |  Marked Items |  All