| 1 | BMXNTEG ;INTEGRITY CHECKER;JUN 28, 2010
|
|---|
| 2 | ;;4.1000;BMX;;Apr 17, 2011
|
|---|
| 3 | ;
|
|---|
| 4 | START ;
|
|---|
| 5 | NEW BYTE,COUNT,RTN
|
|---|
| 6 | K ^UTILITY($J)
|
|---|
| 7 | 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
|
|---|
| 8 | F I=1:1:6 S X=$P($T(@("LINE"_I)),";;",2,99),@("XBSUMBLD("_I_")=X")
|
|---|
| 9 | X XBSUMBLD(1)
|
|---|
| 10 | Q
|
|---|
| 11 | ;
|
|---|
| 12 | LINE1 ;;X XBSUMBLD(2),XBSUMBLD(6)
|
|---|
| 13 | 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)
|
|---|
| 14 | LINE3 ;;F I=2:1 S X=$T(+I) Q:X="" X XBSUMBLD(4)
|
|---|
| 15 | LINE4 ;;F J=1:1 S Y=$E(X,J) Q:Y="" S BYTE=BYTE+1,COUNT=COUNT+$A(Y)
|
|---|
| 16 | LINE5 ;;S B=$P(^UTILITY($J,RTN),"^",1),C=$P(^(RTN),"^",2) I B'=BYTE!(C'=COUNT) W " has been modified"
|
|---|
| 17 | LINE6 ;;K XBSUMBLD,B,C,I,J,R,X,Y
|
|---|
| 18 | ;
|
|---|
| 19 | LIST ;
|
|---|
| 20 | ;;BMXADE1^3028^202895
|
|---|
| 21 | ;;BMXADE2^3250^215402
|
|---|
| 22 | ;;BMXADO^6549^418183
|
|---|
| 23 | ;;BMXADO2^3489^255576
|
|---|
| 24 | ;;BMXADOF^11452^725170
|
|---|
| 25 | ;;BMXADOF1^3281^207254
|
|---|
| 26 | ;;BMXADOF2^2138^139526
|
|---|
| 27 | ;;BMXADOFD^2927^184329
|
|---|
| 28 | ;;BMXADOFS^6736^406496
|
|---|
| 29 | ;;BMXADOI^2215^134635
|
|---|
| 30 | ;;BMXADOS^9227^581516
|
|---|
| 31 | ;;BMXADOS1^2790^177677
|
|---|
| 32 | ;;BMXADOV^5739^373853
|
|---|
| 33 | ;;BMXADOV1^9072^554917
|
|---|
| 34 | ;;BMXADOV2^4690^289928
|
|---|
| 35 | ;;BMXADOVJ^3534^225846
|
|---|
| 36 | ;;BMXADOX^13904^870307
|
|---|
| 37 | ;;BMXADOX1^11753^751140
|
|---|
| 38 | ;;BMXADOX2^3126^199436
|
|---|
| 39 | ;;BMXADOXX^12226^762829
|
|---|
| 40 | ;;BMXADOXY^11992^769541
|
|---|
| 41 | ;;BMXE01^2610^185734
|
|---|
| 42 | ;;BMXEHR^7337^475235
|
|---|
| 43 | ;;BMXFIND^7919^563026
|
|---|
| 44 | ;;BMXG^1970^120497
|
|---|
| 45 | ;;BMXGETS^4309^308756
|
|---|
| 46 | ;;BMXMBRK^6045^399724
|
|---|
| 47 | ;;BMXMBRK2^3621^233173
|
|---|
| 48 | ;;BMXMEVN^7145^502429
|
|---|
| 49 | ;;BMXMON^10184^719138
|
|---|
| 50 | ;;BMXMSEC^3155^217778
|
|---|
| 51 | ;;BMXNTEG^1953^121515
|
|---|
| 52 | ;;BMXPO^1522^102017
|
|---|
| 53 | ;;BMXPRS^2153^134459
|
|---|
| 54 | ;;BMXRPC^5755^428908
|
|---|
| 55 | ;;BMXRPC1^7622^559228
|
|---|
| 56 | ;;BMXRPC10^9682^623943
|
|---|
| 57 | ;;BMXRPC2^3531^243905
|
|---|
| 58 | ;;BMXRPC3^6387^443331
|
|---|
| 59 | ;;BMXRPC4^4941^310665
|
|---|
| 60 | ;;BMXRPC5^3896^288956
|
|---|
| 61 | ;;BMXRPC6^3759^270824
|
|---|
| 62 | ;;BMXRPC7^5776^411297
|
|---|
| 63 | ;;BMXRPC8^2240^165807
|
|---|
| 64 | ;;BMXRPC9^7123^467733
|
|---|
| 65 | ;;BMXSQL^10871^727603
|
|---|
| 66 | ;;BMXSQL1^9912^615416
|
|---|
| 67 | ;;BMXSQL2^2748^183784
|
|---|
| 68 | ;;BMXSQL3^13511^868130
|
|---|
| 69 | ;;BMXSQL4^1313^88507
|
|---|
| 70 | ;;BMXSQL5^6648^433320
|
|---|
| 71 | ;;BMXSQL6^10606^683092
|
|---|
| 72 | ;;BMXSQL7^8098^527973
|
|---|
| 73 | ;;BMXSQL91^4332^281563
|
|---|
| 74 | ;;BMXTABLE^159^9991
|
|---|
| 75 | ;;BMXTRS^1300^81294
|
|---|
| 76 | ;;BMXUTL1^7818^520399
|
|---|
| 77 | ;;BMXUTL2^900^60487
|
|---|
| 78 | ;;BMXUTL5^5330^358896
|
|---|
| 79 | ;;BMXUTL6^1141^75004
|
|---|
| 80 | ;;BMXUTL7^766^54422
|
|---|
