BADENTEG.m

BADENTEG ;INTEGRITY CHECKER;AUG 22, 2011

 ;;1.0;BADE;**1**;AUG 22, 2011

 ;

START ;

 NEW BYTE,COUNT,RTN

 K ^UTILITY($J)

 F I=1:1 S X=$T(LIST+I) Q:X=""  S X=$P(X,";;",2),R=$P(X,"^",1),B=$P(X,"^",2),C=$P(X,"^",3),^UTILITY($J,R)=B_"^"_C

 F I=1:1:6 S X=$P($T(@("LINE"_I)),";;",2,99),@("XBSUMBLD("_I_")=X")

 X XBSUMBLD(1)

 Q

 ;

LINE1 ;;X XBSUMBLD(2),XBSUMBLD(6)

LINE2 ;;S RTN=0 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)

LINE3 ;;F I=2:1 S X=$T(+I) Q:X=""  X XBSUMBLD(4)

LINE4 ;;F J=1:1 S Y=$E(X,J) Q:Y=""  S BYTE=BYTE+1,COUNT=COUNT+$A(Y)

LINE5 ;;S B=$P(^UTILITY($J,RTN),"^",1),C=$P(^(RTN),"^",2) I B'=BYTE!(C'=COUNT) W "  has been modified"

LINE6 ;;K XBSUMBLD,B,C,I,J,R,X,Y

 ;

LIST ;

 ;;BADEASU^3744^249947

 ;;BADEASUF^2031^125282

 ;;BADEASUS^3742^249909

 ;;BADECTRL^5300^348022

 ;;BADEECP1^3316^230351

 ;;BADEEVNT^6385^453638

 ;;BADEFJE^5755^372891

 ;;BADEHL1^11233^740880

 ;;BADEHL2^6407^423668

 ;;BADEHL3^12165^855440

 ;;BADEHL4^10063^720065

 ;;BADEHLI^13140^884542

 ;;BADEHLZ^5153^349293

 ;;BADEMRG^5615^399375

 ;;BADEMRG1^3697^254752

 ;;BADENTEG^1228^75439

 ;;BADEPROV^6763^444852

 ;;BADEPRV1^4410^303067

 ;;BADESND^1328^89941

 ;;BADEUTIL^1149^80018

 ;;BADEVNT1^8516^608422

BADENTEG  ;INTEGRITY CHECKER;AUG 22, 2011

 +1       ;;1.0;BADE;**1**;AUG 22, 2011

 +2       ;

START     ;

 +1        NEW BYTE,COUNT,RTN

 +2        KILL ^UTILITY($JOB)

 +3        FOR I=1:1

               SET X=$TEXT(LIST+I)

               IF X=""

                   QUIT 

               SET X=$PIECE(X,";;",2)

               SET R=$PIECE(X,"^",1)

               SET B=$PIECE(X,"^",2)

               SET C=$PIECE(X,"^",3)

               SET ^UTILITY($JOB,R)=B_"^"_C

 +4        FOR I=1:1:6

               SET X=$PIECE($TEXT(@("LINE"_I)),";;",2,99)

               SET @("XBSUMBLD("_I_")=X")

 +5        XECUTE XBSUMBLD(1)

 +6        QUIT 

 +7       ;

LINE1     ;;X XBSUMBLD(2),XBSUMBLD(6)

LINE2     ;;S RTN=0 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)

LINE3     ;;F I=2:1 S X=$T(+I) Q:X=""  X XBSUMBLD(4)

LINE4     ;;F J=1:1 S Y=$E(X,J) Q:Y=""  S BYTE=BYTE+1,COUNT=COUNT+$A(Y)

LINE5     ;;S B=$P(^UTILITY($J,RTN),"^",1),C=$P(^(RTN),"^",2) I B'=BYTE!(C'=COUNT) W "  has been modified"

LINE6     ;;K XBSUMBLD,B,C,I,J,R,X,Y

 +1       ;

LIST      ;

 +1       ;;BADEASU^3744^249947

 +2       ;;BADEASUF^2031^125282

 +3       ;;BADEASUS^3742^249909

 +4       ;;BADECTRL^5300^348022

 +5       ;;BADEECP1^3316^230351

 +6       ;;BADEEVNT^6385^453638

 +7       ;;BADEFJE^5755^372891

 +8       ;;BADEHL1^11233^740880

 +9       ;;BADEHL2^6407^423668

 +10      ;;BADEHL3^12165^855440

 +11      ;;BADEHL4^10063^720065

 +12      ;;BADEHLI^13140^884542

 +13      ;;BADEHLZ^5153^349293

 +14      ;;BADEMRG^5615^399375

 +15      ;;BADEMRG1^3697^254752

 +16      ;;BADENTEG^1228^75439

 +17      ;;BADEPROV^6763^444852

 +18      ;;BADEPRV1^4410^303067

 +19      ;;BADESND^1328^89941

 +20      ;;BADEUTIL^1149^80018

 +21      ;;BADEVNT1^8516^608422