| [613] | 1 | NLTNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;NOV 06, 1995@10:04:37
|
|---|
| 2 | ;;5.254;NATIONAL LABORATORY TESTS;;SEP 21, 1995
|
|---|
| 3 | ;;7.1;SEP 21, 1995@20:43:41
|
|---|
| 4 | S XT4="I 1",X=$T(+3) W !!,"Checksum routine created on ",$P(X,";",4)," by KERNEL V",$P(X,";",3),!
|
|---|
| 5 | CONT F XT1=1:1 S XT2=$T(ROU+XT1) Q:XT2="" S X=$P(XT2," ",1),XT3=$P(XT2,";",3) X XT4 I $T W !,X X ^%ZOSF("TEST") S:'$T XT3=0 X:XT3 ^%ZOSF("RSUM") W ?10,$S('XT3:"Routine not in UCI",XT3'=Y:"Calculated "_$C(7)_Y_", off by "_(Y-XT3),1:"ok")
|
|---|
| 6 | ;
|
|---|
| 7 | K %1,%2,%3,X,Y,XT1,XT2,XT3,XT4 Q
|
|---|
| 8 | ONE S XT4="I $D(^UTILITY($J,X))",X=$T(+3) W !!,"Checksum routine created on ",$P(X,";",4)," by KERNEL V",$P(X,";",3),!
|
|---|
| 9 | W !,"Check a subset of routines:" K ^UTILITY($J) X ^%ZOSF("RSEL")
|
|---|
| 10 | W ! G CONT
|
|---|
| 11 | ROU ;;
|
|---|
| 12 | NLTIN001 ;;7199567
|
|---|
| 13 | NLTIN002 ;;6802735
|
|---|
| 14 | NLTIN003 ;;6950315
|
|---|
| 15 | NLTIN004 ;;6327361
|
|---|
| 16 | NLTIN005 ;;7930344
|
|---|
| 17 | NLTIN006 ;;2727958
|
|---|
| 18 | NLTIN007 ;;5295184
|
|---|
| 19 | NLTIN008 ;;5395137
|
|---|
| 20 | NLTIN009 ;;5700942
|
|---|
| 21 | NLTIN00A ;;4880479
|
|---|
| 22 | NLTIN00B ;;5130498
|
|---|
| 23 | NLTIN00C ;;4802826
|
|---|
| 24 | NLTIN00D ;;4732279
|
|---|
| 25 | NLTIN00E ;;4636288
|
|---|
| 26 | NLTIN00F ;;4666860
|
|---|
| 27 | NLTIN00G ;;4795753
|
|---|
| 28 | NLTIN00H ;;5089813
|
|---|
| 29 | NLTIN00I ;;5298959
|
|---|
| 30 | NLTIN00J ;;2442058
|
|---|
| 31 | NLTIN00K ;;7250934
|
|---|
| 32 | NLTIN00L ;;6595364
|
|---|
| 33 | NLTIN00M ;;5070112
|
|---|
| 34 | NLTIN00N ;;5016758
|
|---|
| 35 | NLTIN00O ;;5140468
|
|---|
| 36 | NLTIN00P ;;4865357
|
|---|
| 37 | NLTIN00Q ;;5060353
|
|---|
| 38 | NLTIN00R ;;5419480
|
|---|
| 39 | NLTIN00S ;;5086217
|
|---|
| 40 | NLTIN00T ;;5484253
|
|---|
| 41 | NLTIN00U ;;4597266
|
|---|
| 42 | NLTIN00V ;;4995572
|
|---|
| 43 | NLTIN00W ;;5252609
|
|---|
| 44 | NLTIN00X ;;5077820
|
|---|
| 45 | NLTIN00Y ;;5425288
|
|---|
| 46 | NLTIN00Z ;;5418057
|
|---|
| 47 | NLTIN010 ;;5645811
|
|---|
| 48 | NLTIN011 ;;5624653
|
|---|
| 49 | NLTIN012 ;;5038323
|
|---|
| 50 | NLTIN013 ;;4110639
|
|---|
| 51 | NLTIN014 ;;4581948
|
|---|
| 52 | NLTIN015 ;;5085797
|
|---|
| 53 | NLTIN016 ;;4795464
|
|---|
| 54 | NLTIN017 ;;5724636
|
|---|
| 55 | NLTIN018 ;;5604990
|
|---|
| 56 | NLTIN019 ;;5328600
|
|---|
| 57 | NLTIN01A ;;5189908
|
|---|
| 58 | NLTIN01B ;;4836654
|
|---|
| 59 | NLTIN01C ;;4808386
|
|---|
| 60 | NLTIN01D ;;5135851
|
|---|
| 61 | NLTIN01E ;;5088295
|
|---|
| 62 | NLTIN01F ;;5556649
|
|---|
| 63 | NLTIN01G ;;5321983
|
|---|
| 64 | NLTIN01H ;;4712751
|
|---|
| 65 | NLTIN01I ;;4355981
|
|---|
| 66 | NLTIN01J ;;4204086
|
|---|
| 67 | NLTIN01K ;;4203827
|
|---|
| 68 | NLTIN01L ;;4372039
|
|---|
| 69 | NLTIN01M ;;5054404
|
|---|
| 70 | NLTIN01N ;;4912417
|
|---|
| 71 | NLTIN01O ;;5378899
|
|---|
| 72 | NLTIN01P ;;5118668
|
|---|
| 73 | NLTIN01Q ;;4833166
|
|---|
| 74 | NLTIN01R ;;4490087
|
|---|
| 75 | NLTIN01S ;;4252231
|
|---|
| 76 | NLTIN01T ;;4388264
|
|---|
| 77 | NLTIN01U ;;4205403
|
|---|
| 78 | NLTIN01V ;;2882309
|
|---|
| 79 | NLTIN01W ;;5213695
|
|---|
| 80 | NLTIN01X ;;1564470
|
|---|
| 81 | NLTIN01Y ;;3787496
|
|---|
| 82 | NLTIN01Z ;;2729984
|
|---|
| 83 | NLTIN020 ;;2980010
|
|---|
| 84 | NLTIN021 ;;3391421
|
|---|
| 85 | NLTIN022 ;;3437419
|
|---|
| 86 | NLTIN023 ;;3468910
|
|---|
| 87 | NLTIN024 ;;1431872
|
|---|
| 88 | NLTIN025 ;;5761009
|
|---|
| 89 | NLTIN026 ;;1752486
|
|---|
| 90 | NLTINIS ;;2173278
|
|---|
| 91 | NLTINIT ;;10615768
|
|---|
| 92 | NLTINIT1 ;;4888898
|
|---|
| 93 | NLTINIT2 ;;5232677
|
|---|
| 94 | NLTINIT3 ;;16808288
|
|---|
| 95 | NLTINIT4 ;;3357849
|
|---|
| 96 | NLTINIT5 ;;1083023
|
|---|
| 97 | NLTIPCK ;;2620689
|
|---|
| 98 | NLTIPOST ;;2219364
|
|---|
| 99 | NLTIPRE ;;1588563
|
|---|
