- 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
