| 1 | XBDHNTEG ;INTEGRITY CHECKER;JUN 12, 1991
|
|---|
| 2 | ;;4.0;XB;;Jul 20, 2009;Build 2
|
|---|
| 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),@("XBINTEG("_I_")=X")
|
|---|
| 9 | X XBINTEG(1)
|
|---|
| 10 | Q
|
|---|
| 11 | ;
|
|---|
| 12 | LINE1 ;;X XBINTEG(2),XBINTEG(6)
|
|---|
| 13 | LINE2 ;;S RTN="" 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 XBINTEG(4),XBINTEG(3),XBINTEG(5)
|
|---|
| 14 | LINE3 ;;F I=2:1 S X=$T(+I) Q:X="" X XBINTEG(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(^(RTN),"^",1),C=$P(^(RTN),"^",2) I B'=BYTE!(C'=COUNT) W " has been modified"
|
|---|
| 17 | LINE6 ;;K XBINTEG,B,C,I,J,R,X,Y
|
|---|
| 18 | ;
|
|---|
| 19 | LIST ;
|
|---|
| 20 | ;;XBDH^1015^66897
|
|---|
| 21 | ;;XBDHD^3059^203397
|
|---|
| 22 | ;;XBDHD1^1477^95266
|
|---|
| 23 | ;;XBDHD2^4434^278456
|
|---|
| 24 | ;;XBDHDF^3469^221710
|
|---|
| 25 | ;;XBDHDF1^991^59705
|
|---|
| 26 | ;;XBDHDIP^550^35291
|
|---|
| 27 | ;;XBDHDSP^2728^178325
|
|---|
| 28 | ;;XBDHDSV^2938^188450
|
|---|
