BMXNTEG.m

BMXNTEG ;INTEGRITY CHECKER;JUN 28, 2010

 ;;4.0;BMX;;JUN 28, 2010

 ;

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 ;

 ;;BMXADE1^3028^202895

 ;;BMXADE2^3250^215402

 ;;BMXADO^6549^418183

 ;;BMXADO2^3489^255576

 ;;BMXADOF^11452^725170

 ;;BMXADOF1^3281^207254

 ;;BMXADOF2^2138^139526

 ;;BMXADOFD^2927^184329

 ;;BMXADOFS^6736^406496

 ;;BMXADOI^2215^134635

 ;;BMXADOS^9227^581516

 ;;BMXADOS1^2790^177677

 ;;BMXADOV^5739^373853

 ;;BMXADOV1^9072^554917

 ;;BMXADOV2^4690^289928

 ;;BMXADOVJ^3534^225846

 ;;BMXADOX^13904^870307

 ;;BMXADOX1^11753^751140

 ;;BMXADOX2^3126^199436

 ;;BMXADOXX^12226^762829

 ;;BMXADOXY^11992^769541

 ;;BMXE01^2610^185734

 ;;BMXEHR^7337^475235

 ;;BMXFIND^7919^563026

 ;;BMXG^1970^120497

 ;;BMXGETS^4309^308756

 ;;BMXMBRK^6045^399724

 ;;BMXMBRK2^3621^233173

 ;;BMXMEVN^7145^502429

 ;;BMXMON^10184^719138

 ;;BMXMSEC^3155^217778

 ;;BMXNTEG^1953^121515

 ;;BMXPO^1522^102017

 ;;BMXPRS^2153^134459

 ;;BMXRPC^5755^428908

 ;;BMXRPC1^7622^559228

 ;;BMXRPC10^9682^623943

 ;;BMXRPC2^3531^243905

 ;;BMXRPC3^6387^443331

 ;;BMXRPC4^4941^310665

 ;;BMXRPC5^3896^288956

 ;;BMXRPC6^3759^270824

 ;;BMXRPC7^5776^411297

 ;;BMXRPC8^2240^165807

 ;;BMXRPC9^7123^467733

 ;;BMXSQL^10871^727603

 ;;BMXSQL1^9912^615416

 ;;BMXSQL2^2748^183784

 ;;BMXSQL3^13511^868130

 ;;BMXSQL4^1313^88507

 ;;BMXSQL5^6648^433320

 ;;BMXSQL6^10606^683092

 ;;BMXSQL7^8098^527973

 ;;BMXSQL91^4332^281563

 ;;BMXTABLE^159^9991

 ;;BMXTRS^1300^81294

 ;;BMXUTL1^7818^520399

 ;;BMXUTL2^900^60487

 ;;BMXUTL5^5330^358896

 ;;BMXUTL6^1141^75004

 ;;BMXUTL7^766^54422

BMXNTEG   ;INTEGRITY CHECKER;JUN 28, 2010

 +1       ;;4.0;BMX;;JUN 28, 2010

 +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       ;;BMXADE1^3028^202895

 +2       ;;BMXADE2^3250^215402

 +3       ;;BMXADO^6549^418183

 +4       ;;BMXADO2^3489^255576

 +5       ;;BMXADOF^11452^725170

 +6       ;;BMXADOF1^3281^207254

 +7       ;;BMXADOF2^2138^139526

 +8       ;;BMXADOFD^2927^184329

 +9       ;;BMXADOFS^6736^406496

 +10      ;;BMXADOI^2215^134635

 +11      ;;BMXADOS^9227^581516

 +12      ;;BMXADOS1^2790^177677

 +13      ;;BMXADOV^5739^373853

 +14      ;;BMXADOV1^9072^554917

 +15      ;;BMXADOV2^4690^289928

 +16      ;;BMXADOVJ^3534^225846

 +17      ;;BMXADOX^13904^870307

 +18      ;;BMXADOX1^11753^751140

 +19      ;;BMXADOX2^3126^199436

 +20      ;;BMXADOXX^12226^762829

 +21      ;;BMXADOXY^11992^769541

 +22      ;;BMXE01^2610^185734

 +23      ;;BMXEHR^7337^475235

 +24      ;;BMXFIND^7919^563026

 +25      ;;BMXG^1970^120497

 +26      ;;BMXGETS^4309^308756

 +27      ;;BMXMBRK^6045^399724

 +28      ;;BMXMBRK2^3621^233173

 +29      ;;BMXMEVN^7145^502429

 +30      ;;BMXMON^10184^719138

 +31      ;;BMXMSEC^3155^217778

 +32      ;;BMXNTEG^1953^121515

 +33      ;;BMXPO^1522^102017

 +34      ;;BMXPRS^2153^134459

 +35      ;;BMXRPC^5755^428908

 +36      ;;BMXRPC1^7622^559228

 +37      ;;BMXRPC10^9682^623943

 +38      ;;BMXRPC2^3531^243905

 +39      ;;BMXRPC3^6387^443331

 +40      ;;BMXRPC4^4941^310665

 +41      ;;BMXRPC5^3896^288956

 +42      ;;BMXRPC6^3759^270824

 +43      ;;BMXRPC7^5776^411297

 +44      ;;BMXRPC8^2240^165807

 +45      ;;BMXRPC9^7123^467733

 +46      ;;BMXSQL^10871^727603

 +47      ;;BMXSQL1^9912^615416

 +48      ;;BMXSQL2^2748^183784

 +49      ;;BMXSQL3^13511^868130

 +50      ;;BMXSQL4^1313^88507

 +51      ;;BMXSQL5^6648^433320

 +52      ;;BMXSQL6^10606^683092

 +53      ;;BMXSQL7^8098^527973

 +54      ;;BMXSQL91^4332^281563

 +55      ;;BMXTABLE^159^9991

 +56      ;;BMXTRS^1300^81294

 +57      ;;BMXUTL1^7818^520399

 +58      ;;BMXUTL2^900^60487

 +59      ;;BMXUTL5^5330^358896

 +60      ;;BMXUTL6^1141^75004

 +61      ;;BMXUTL7^766^54422