BMXNTEG ;INTEGRITY CHECKER;JUN 28, 2010 ;;4.1000;BMX;;Apr 17, 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 ; ;;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