BLRNTEG ; IHS/DIR/FJE - INTEGRITY CHECKER JUL 31, 1997 ;
;;5.2;BLR;;NOV 01, 1997
;
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="" 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 ;
;;BLR2SORD^3561^231033
;;BLRBLTL^4273^284707
;;BLRCI001^4688^320324
;;BLRCI002^4688^299256
;;BLRCI003^1502^92768
;;BLRCI004^4695^274405
;;BLRCI005^4721^274317
;;BLRCI006^4705^274171
;;BLRCI007^4680^272461
;;BLRCI008^4721^275721
;;BLRCI009^4680^273342
;;BLRCI00A^4723^273467
;;BLRCI00B^4717^276108
;;BLRCI00C^4686^270897
;;BLRCI00D^4693^274381
;;BLRCI00E^4707^276015
;;BLRCI00F^4735^273970
;;BLRCI00G^4762^276639
;;BLRCI00H^4716^271997
;;BLRCI00I^4685^271655
;;BLRCI00J^4705^271798
;;BLRCI00K^4711^271461
;;BLRCI00L^4737^274195
;;BLRCI00M^4721^272517
;;BLRCI00N^4686^272212
;;BLRCI00O^4692^268991
;;BLRCI00P^4679^273768
;;BLRCI00Q^4729^276235
;;BLRCI00R^4720^272498
;;BLRCI00S^4690^272080
;;BLRCI00T^4693^271084
;;BLRCI00U^4695^271228
;;BLRCI00V^4680^270646
;;BLRCI00W^4692^270162
;;BLRCI00X^4686^269891
;;BLRCI00Y^4684^271305
;;BLRCI00Z^4701^271663
;;BLRCI010^3986^230170
;;BLRCI011^406^22664
;;BLRCI012^1203^72538
;;BLRCINI1^1789^111217
;;BLRCINI2^1582^96949
;;BLRCINI3^4797^281964
;;BLRCINI4^1227^69079
;;BLRCINI5^252^16001
;;BLRCINIS^1629^113073
;;BLRCINIT^3152^196396
;;BLRDBG^763^49478
;;BLRDPT^2473^167182
;;BLRDPT0^2851^183880
;;BLRDPT1^4053^243413
;;BLRDPT2^2797^179860
;;BLRDPT3^3446^225008
;;BLRDPT30^3140^204726
;;BLRDPT31^3568^222547
;;BLRDPT32^979^63940
;;BLRDPT4^3918^230221
;;BLRDPT5^3562^201998
;;BLRDPT6^2730^179895
;;BLRDPT60^3634^246950
;;BLRDPT61^2129^147878
;;BLRDPT62^2935^195654
;;BLRFCLEN^2347^151102
;;BLRFLTL^4863^315166
;;BLRIN001^2435^137576
;;BLRIN002^4686^320313
;;BLRIN003^4686^299245
;;BLRIN004^1500^92757
;;BLRIN005^3596^243568
;;BLRIN006^4350^298163
;;BLRIN007^4741^293239
;;BLRIN008^4742^309074
;;BLRIN009^4731^297113
;;BLRIN00A^4715^287128
;;BLRIN00B^1650^97338
;;BLRIN00C^1180^73061
;;BLRIN00D^1124^67634
;;BLRIN00E^4680^309295
;;BLRIN00F^1606^97864
;;BLRIN00G^1559^86243
;;BLRIN00H^4685^310902
;;BLRIN00I^4746^302731
;;BLRIN00J^4711^299102
;;BLRIN00K^4739^318163
;;BLRIN00L^4676^320502
;;BLRIN00M^4259^255329
;;BLRINIS^1615^112246
;;BLRINIT^3146^196259
;;BLRINIT1^1843^114373
;;BLRINIT2^1580^96943
;;BLRINIT3^4795^281975
;;BLRINIT4^1225^69073
;;BLRINIT5^654^42494
;;BLRLABEL^2252^129843
;;BLRLABL7^2291^133950
;;BLRLINK^4862^340926
;;BLRLINK1^5689^419589
;;BLRLINK2^1526^99981
;;BLRLINK3^2874^196499
;;BLRLINKP^4264^320259
;;BLRLTLX^845^53795
;;BLRMLTL^5815^380510
;;BLRMLTL1^3630^243896
;;BLRPARAM^733^46438
;;BLRPST^1564^104167
;;BLRQUE^389^26291
;;BLRRFILE^2606^170970
;;BLRSLTL^1590^104266
;;BLRSLTL1^5016^332710
;;BLRSLTLD^1709^111203
;;BLRSLTLR^2214^144783
;;BLRSPRSE^875^67159
;;BLRSQUE^375^24544
;;BLRVLABC^5525^381700
;;BLRVLABP^1528^104289
BLRNTEG ; IHS/DIR/FJE - INTEGRITY CHECKER JUL 31, 1997 ;
+1 ;;5.2;BLR;;NOV 01, 1997
+2 ;
START ;
+1 NEW BYTE,COUNT,RTN
+2 KILL ^UTILITY($JOB)
+3 FOR I=1:1
SET X=$TEXT(LIST+I)
IF X=""
QUIT
SET X=$PIECE(X,";;",2)
SET R=$PIECE(X,"^",1)
SET B=$PIECE(X,"^",2)
SET C=$PIECE(X,"^",3)
SET ^UTILITY($JOB,R)=B_"^"_C
+4 FOR I=1:1:6
SET X=$PIECE($TEXT(@("LINE"_I)),";;",2,99)
SET @("XBSUMBLD("_I_")=X")
+5 XECUTE XBSUMBLD(1)
+6 QUIT
+7 ;
LINE1 ;;X XBSUMBLD(2),XBSUMBLD(6)
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 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
+1 ;
LIST ;
+1 ;;BLR2SORD^3561^231033
+2 ;;BLRBLTL^4273^284707
+3 ;;BLRCI001^4688^320324
+4 ;;BLRCI002^4688^299256
+5 ;;BLRCI003^1502^92768
+6 ;;BLRCI004^4695^274405
+7 ;;BLRCI005^4721^274317
+8 ;;BLRCI006^4705^274171
+9 ;;BLRCI007^4680^272461
+10 ;;BLRCI008^4721^275721
+11 ;;BLRCI009^4680^273342
+12 ;;BLRCI00A^4723^273467
+13 ;;BLRCI00B^4717^276108
+14 ;;BLRCI00C^4686^270897
+15 ;;BLRCI00D^4693^274381
+16 ;;BLRCI00E^4707^276015
+17 ;;BLRCI00F^4735^273970
+18 ;;BLRCI00G^4762^276639
+19 ;;BLRCI00H^4716^271997
+20 ;;BLRCI00I^4685^271655
+21 ;;BLRCI00J^4705^271798
+22 ;;BLRCI00K^4711^271461
+23 ;;BLRCI00L^4737^274195
+24 ;;BLRCI00M^4721^272517
+25 ;;BLRCI00N^4686^272212
+26 ;;BLRCI00O^4692^268991
+27 ;;BLRCI00P^4679^273768
+28 ;;BLRCI00Q^4729^276235
+29 ;;BLRCI00R^4720^272498
+30 ;;BLRCI00S^4690^272080
+31 ;;BLRCI00T^4693^271084
+32 ;;BLRCI00U^4695^271228
+33 ;;BLRCI00V^4680^270646
+34 ;;BLRCI00W^4692^270162
+35 ;;BLRCI00X^4686^269891
+36 ;;BLRCI00Y^4684^271305
+37 ;;BLRCI00Z^4701^271663
+38 ;;BLRCI010^3986^230170
+39 ;;BLRCI011^406^22664
+40 ;;BLRCI012^1203^72538
+41 ;;BLRCINI1^1789^111217
+42 ;;BLRCINI2^1582^96949
+43 ;;BLRCINI3^4797^281964
+44 ;;BLRCINI4^1227^69079
+45 ;;BLRCINI5^252^16001
+46 ;;BLRCINIS^1629^113073
+47 ;;BLRCINIT^3152^196396
+48 ;;BLRDBG^763^49478
+49 ;;BLRDPT^2473^167182
+50 ;;BLRDPT0^2851^183880
+51 ;;BLRDPT1^4053^243413
+52 ;;BLRDPT2^2797^179860
+53 ;;BLRDPT3^3446^225008
+54 ;;BLRDPT30^3140^204726
+55 ;;BLRDPT31^3568^222547
+56 ;;BLRDPT32^979^63940
+57 ;;BLRDPT4^3918^230221
+58 ;;BLRDPT5^3562^201998
+59 ;;BLRDPT6^2730^179895
+60 ;;BLRDPT60^3634^246950
+61 ;;BLRDPT61^2129^147878
+62 ;;BLRDPT62^2935^195654
+63 ;;BLRFCLEN^2347^151102
+64 ;;BLRFLTL^4863^315166
+65 ;;BLRIN001^2435^137576
+66 ;;BLRIN002^4686^320313
+67 ;;BLRIN003^4686^299245
+68 ;;BLRIN004^1500^92757
+69 ;;BLRIN005^3596^243568
+70 ;;BLRIN006^4350^298163
+71 ;;BLRIN007^4741^293239
+72 ;;BLRIN008^4742^309074
+73 ;;BLRIN009^4731^297113
+74 ;;BLRIN00A^4715^287128
+75 ;;BLRIN00B^1650^97338
+76 ;;BLRIN00C^1180^73061
+77 ;;BLRIN00D^1124^67634
+78 ;;BLRIN00E^4680^309295
+79 ;;BLRIN00F^1606^97864
+80 ;;BLRIN00G^1559^86243
+81 ;;BLRIN00H^4685^310902
+82 ;;BLRIN00I^4746^302731
+83 ;;BLRIN00J^4711^299102
+84 ;;BLRIN00K^4739^318163
+85 ;;BLRIN00L^4676^320502
+86 ;;BLRIN00M^4259^255329
+87 ;;BLRINIS^1615^112246
+88 ;;BLRINIT^3146^196259
+89 ;;BLRINIT1^1843^114373
+90 ;;BLRINIT2^1580^96943
+91 ;;BLRINIT3^4795^281975
+92 ;;BLRINIT4^1225^69073
+93 ;;BLRINIT5^654^42494
+94 ;;BLRLABEL^2252^129843
+95 ;;BLRLABL7^2291^133950
+96 ;;BLRLINK^4862^340926
+97 ;;BLRLINK1^5689^419589
+98 ;;BLRLINK2^1526^99981
+99 ;;BLRLINK3^2874^196499
+100 ;;BLRLINKP^4264^320259
+101 ;;BLRLTLX^845^53795
+102 ;;BLRMLTL^5815^380510
+103 ;;BLRMLTL1^3630^243896
+104 ;;BLRPARAM^733^46438
+105 ;;BLRPST^1564^104167
+106 ;;BLRQUE^389^26291
+107 ;;BLRRFILE^2606^170970
+108 ;;BLRSLTL^1590^104266
+109 ;;BLRSLTL1^5016^332710
+110 ;;BLRSLTLD^1709^111203
+111 ;;BLRSLTLR^2214^144783
+112 ;;BLRSPRSE^875^67159
+113 ;;BLRSQUE^375^24544
+114 ;;BLRVLABC^5525^381700
+115 ;;BLRVLABP^1528^104289
