source: BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXNTEG.m@ 1261

Last change on this file since 1261 was 1209, checked in by Sam Habiel, 13 years ago

BMXMON fix; updated all routines to v 2.31

File size: 2.1 KB
Line 
1BMXNTEG ;INTEGRITY CHECKER;FEB 26, 2007
2 ;;2.31;BMX;;Jul 25, 2011
3 ;
4START ;
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 ;
12LINE1 ;;X XBSUMBLD(2),XBSUMBLD(6)
13LINE2 ;;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)
14LINE3 ;;F I=2:1 S X=$T(+I) Q:X="" X XBSUMBLD(4)
15LINE4 ;;F J=1:1 S Y=$E(X,J) Q:Y="" S BYTE=BYTE+1,COUNT=COUNT+$A(Y)
16LINE5 ;;S B=$P(^UTILITY($J,RTN),"^",1),C=$P(^(RTN),"^",2) I B'=BYTE!(C'=COUNT) W " has been modified"
17LINE6 ;;K XBSUMBLD,B,C,I,J,R,X,Y
18 ;
19LIST ;
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
Note: See TracBrowser for help on using the repository browser.