source: BMXNET_RPMS_dotNET_UTILITIES-BMX/branch/BMX41000/routines/BMXNTEG.m@ 1745

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