| [645] | 1 | BMXNTEG ;INTEGRITY CHECKER;FEB 26, 2007
|
|---|
| [1209] | 2 | ;;2.31;BMX;;Jul 25, 2011
|
|---|
| [645] | 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^202865
|
|---|
| 21 | ;;BMXADE2^3250^215372
|
|---|
| 22 | ;;BMXADO^6547^418026
|
|---|
| 23 | ;;BMXADO2^3489^255546
|
|---|
| 24 | ;;BMXADOF^11562^731974
|
|---|
| 25 | ;;BMXADOF1^3281^207224
|
|---|
| 26 | ;;BMXADOF2^2138^139496
|
|---|
| 27 | ;;BMXADOFD^2831^178610
|
|---|
| 28 | ;;BMXADOFS^6515^393782
|
|---|
| 29 | ;;BMXADOI^2215^134605
|
|---|
| 30 | ;;BMXADOS^9145^575000
|
|---|
| 31 | ;;BMXADOS1^2590^161592
|
|---|
| 32 | ;;BMXADOV^5739^373823
|
|---|
| 33 | ;;BMXADOV1^9072^554887
|
|---|
| 34 | ;;BMXADOV2^4690^289898
|
|---|
| 35 | ;;BMXADOVJ^3530^225534
|
|---|
| 36 | ;;BMXADOX^13904^870277
|
|---|
| 37 | ;;BMXADOX1^11753^751110
|
|---|
| 38 | ;;BMXADOX2^3126^199406
|
|---|
| 39 | ;;BMXADOXX^12226^762799
|
|---|
| 40 | ;;BMXADOXY^11992^769511
|
|---|
| 41 | ;;BMXE01^2111^148783
|
|---|
| 42 | ;;BMXFIND^7919^562996
|
|---|
| 43 | ;;BMXG^1970^120467
|
|---|
| 44 | ;;BMXGETS^4309^308726
|
|---|
| 45 | ;;BMXMBRK^5919^389568
|
|---|
| 46 | ;;BMXMBRK2^3621^233089
|
|---|
| 47 | ;;BMXMEVN^6627^468908
|
|---|
| 48 | ;;BMXMON^9356^664477
|
|---|
| 49 | ;;BMXMSEC^2302^160584
|
|---|
| 50 | ;;BMXNTEG^2045^127438
|
|---|
| 51 | ;;BMXPO^1522^101987
|
|---|
| 52 | ;;BMXPRS^2153^134429
|
|---|
| 53 | ;;BMXRPC^5716^425699
|
|---|
| 54 | ;;BMXRPC1^7622^559198
|
|---|
| 55 | ;;BMXRPC2^3531^243875
|
|---|
| 56 | ;;BMXRPC3^6466^450166
|
|---|
| 57 | ;;BMXRPC4^4967^312485
|
|---|
| 58 | ;;BMXRPC5^3896^288926
|
|---|
| 59 | ;;BMXRPC6^3757^270667
|
|---|
| 60 | ;;BMXRPC7^5687^404431
|
|---|
| 61 | ;;BMXRPC8^2236^165523
|
|---|
| 62 | ;;BMXRPC9^6408^421855
|
|---|
| 63 | ;;BMXSQL^10869^727499
|
|---|
| 64 | ;;BMXSQL1^9921^616204
|
|---|
| 65 | ;;BMXSQL2^2748^183754
|
|---|
| 66 | ;;BMXSQL3^13516^868578
|
|---|
| 67 | ;;BMXSQL4^1313^88477
|
|---|
| 68 | ;;BMXSQL5^6648^433290
|
|---|
| 69 | ;;BMXSQL6^10606^683062
|
|---|
| 70 | ;;BMXSQL7^8102^528283
|
|---|
| 71 | ;;BMXSQL91^4328^281351
|
|---|
| 72 | ;;BMXTABLE^159^9961
|
|---|
| 73 | ;;BMXTRS^1300^81264
|
|---|
| 74 | ;;BMXUTL1^7818^520369
|
|---|
| 75 | ;;BMXUTL2^900^60457
|
|---|
| 76 | ;;BMXUTL5^5330^358866
|
|---|
| 77 | ;;BMXUTL6^942^62126
|
|---|
| 78 | ;;BMXUTL7^163^10646
|
|---|
