| 1 | LRNTEG02 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;OCT 25, 1994@16:14:26
|
|---|
| 2 | ;;5.2;LAB SERVICE;;Sep 27, 1994
|
|---|
| 3 | ;;7.2;OCT 25, 1994@16:14:26
|
|---|
| 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 | G CONT^LRNTEG03
|
|---|
| 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 | LRMIPSZ ;;8712841
|
|---|
| 13 | LRMIPSZ1 ;;12406819
|
|---|
| 14 | LRMIPSZ2 ;;11226062
|
|---|
| 15 | LRMIPSZ3 ;;8318897
|
|---|
| 16 | LRMIPSZ4 ;;11912188
|
|---|
| 17 | LRMIPSZ5 ;;12221036
|
|---|
| 18 | LRMIS ;;100097
|
|---|
| 19 | LRMISEZ ;;10610238
|
|---|
| 20 | LRMISEZ1 ;;9213100
|
|---|
| 21 | LRMISEZ2 ;;11072948
|
|---|
| 22 | LRMISEZ3 ;;9782087
|
|---|
| 23 | LRMISEZ4 ;;4421803
|
|---|
| 24 | LRMISEZA ;;16855476
|
|---|
| 25 | LRMISEZB ;;9566752
|
|---|
| 26 | LRMISR ;;7163511
|
|---|
| 27 | LRMISR1 ;;3355654
|
|---|
| 28 | LRMISTF ;;10468714
|
|---|
| 29 | LRMISTF1 ;;14032069
|
|---|
| 30 | LRMITS ;;2538407
|
|---|
| 31 | LRMITSE ;;3156077
|
|---|
| 32 | LRMITSEC ;;11973690
|
|---|
| 33 | LRMITSES ;;7783131
|
|---|
| 34 | LRMITSP ;;2844397
|
|---|
| 35 | LRMITSPC ;;5437371
|
|---|
| 36 | LRMITSPE ;;6010630
|
|---|
| 37 | LRMITSPO ;;5286842
|
|---|
| 38 | LRMITSPS ;;3052409
|
|---|
| 39 | LRMITSR ;;10903814
|
|---|
| 40 | LRMITSRH ;;2059425
|
|---|
| 41 | LRMITSRS ;;9988179
|
|---|
| 42 | LRMIU4 ;;5614178
|
|---|
| 43 | LRMIUT ;;3226335
|
|---|
| 44 | LRMIUT1 ;;5126116
|
|---|
| 45 | LRMIV ;;5001526
|
|---|
| 46 | LRMIV1 ;;12023776
|
|---|
| 47 | LRMIV2 ;;15350039
|
|---|
| 48 | LRMIV3 ;;7301635
|
|---|
| 49 | LRMIV4 ;;8957717
|
|---|
| 50 | LRMIVER ;;8247730
|
|---|
| 51 | LRMIVER1 ;;9809595
|
|---|
| 52 | LRMIXALL ;;2510057
|
|---|
| 53 | LRMIXPD ;;2621751
|
|---|
| 54 | LRMIXR1 ;;1499994
|
|---|
| 55 | LRMIXR2 ;;4935912
|
|---|
| 56 | LRMIXR3 ;;7444890
|
|---|
| 57 | LRMIZAP ;;15214782
|
|---|
| 58 | LRMIZAP1 ;;5599755
|
|---|
| 59 | LRMRSHRT ;;12006164
|
|---|
| 60 | LRNDLST ;;6518918
|
|---|
| 61 | LRNIGHT ;;3012542
|
|---|
| 62 | LRNIGHT1 ;;3577041
|
|---|
| 63 | LRNIGHT2 ;;8145950
|
|---|
| 64 | LRNITEG ;;10629315
|
|---|
| 65 | LRNITEGL ;;5620432
|
|---|
| 66 | LRNODRAW ;;6441287
|
|---|
| 67 | LRNORMAL ;;2729775
|
|---|
| 68 | LRNPXA ;;3121059
|
|---|
| 69 | LRNPXA0 ;;2098459
|
|---|
| 70 | LRNPXA1 ;;7927108
|
|---|
| 71 | LRNUM ;;6084836
|
|---|
| 72 | LRO ;;137704
|
|---|
| 73 | LRO1 ;;80835
|
|---|
| 74 | LRO2 ;;492098
|
|---|
| 75 | LRO3 ;;83879
|
|---|
| 76 | LRO4 ;;1104
|
|---|
| 77 | LRO5 ;;55717
|
|---|
| 78 | LRO6 ;;58416
|
|---|
| 79 | LRO7 ;;58696
|
|---|
| 80 | LRO8 ;;55867
|
|---|
| 81 | LROC ;;9962104
|
|---|
| 82 | LROC1 ;;513736
|
|---|
| 83 | LROCM ;;902146
|
|---|
| 84 | LROE ;;14124488
|
|---|
| 85 | LROE1 ;;7441789
|
|---|
| 86 | LROE2 ;;8671366
|
|---|
| 87 | LROI ;;1171816
|
|---|
| 88 | LROLOVER ;;11243389
|
|---|
| 89 | LROPT ;;13626902
|
|---|
| 90 | LROPTLST ;;6823560
|
|---|
| 91 | LROR ;;11488574
|
|---|
| 92 | LROR1 ;;9367723
|
|---|
| 93 | LROR2 ;;7864169
|
|---|
| 94 | LROR3 ;;8668640
|
|---|
| 95 | LROR4 ;;12426203
|
|---|
| 96 | LROR4A ;;11272423
|
|---|
| 97 | LROR4B ;;11230240
|
|---|
| 98 | LROR5 ;;126397
|
|---|
| 99 | LROR6 ;;2546332
|
|---|
| 100 | LROR6A ;;10885921
|
|---|
| 101 | LROR6B ;;7065648
|
|---|
| 102 | LROR7 ;;91305
|
|---|
| 103 | LROR8 ;;10413551
|
|---|
| 104 | LROR9 ;;14142736
|
|---|
| 105 | LRORD ;;12460893
|
|---|
| 106 | LRORD1 ;;12374911
|
|---|
| 107 | LRORD2 ;;17233514
|
|---|
| 108 | LRORD2A ;;4265341
|
|---|
| 109 | LRORD3 ;;7325550
|
|---|
| 110 | LRORDD ;;13714315
|
|---|
| 111 | LRORDERN ;;138962
|
|---|
| 112 | LRORDIM ;;4446478
|
|---|
| 113 | LRORDK ;;13547846
|
|---|
| 114 | LRORDST ;;14794328
|
|---|
| 115 | LRORDST1 ;;2848
|
|---|
| 116 | LROS ;;13339397
|
|---|
| 117 | LROSX0 ;;17415
|
|---|
| 118 | LROSX1 ;;7539
|
|---|
| 119 | LROW ;;7529828
|
|---|
| 120 | LROW1 ;;13614464
|
|---|
| 121 | LROW1A ;;3246964
|
|---|
| 122 | LROW2 ;;8567142
|
|---|
| 123 | LROW2A ;;6321320
|
|---|
| 124 | LROW2P ;;7207400
|
|---|
| 125 | LROW2RP ;;6049085
|
|---|
| 126 | LROW3 ;;6949223
|
|---|
| 127 | LROW4 ;;4523889
|
|---|
| 128 | LROW5 ;;12012801
|
|---|
| 129 | LRPARAM ;;7507286
|
|---|
| 130 | LRPHEXPT ;;9195190
|
|---|
| 131 | LRPHITE1 ;;11966791
|
|---|
| 132 | LRPHITE2 ;;3592550
|
|---|
| 133 | LRPHITE3 ;;2570033
|
|---|
| 134 | LRPHITEM ;;14241855
|
|---|
| 135 | LRPHLIS1 ;;14180980
|
|---|
| 136 | LRPHLIST ;;13349268
|
|---|
| 137 | LRPHSET ;;17207396
|
|---|
| 138 | LRPHSET1 ;;7020946
|
|---|
| 139 | LRPHSET2 ;;16068862
|
|---|
| 140 | LRQC ;;681009
|
|---|
| 141 | LRQCC ;;11068638
|
|---|
| 142 | LRQCLOG ;;9698504
|
|---|
| 143 | LRRD ;;8518062
|
|---|
| 144 | LRRK ;;5712336
|
|---|
| 145 | LRRP ;;10136813
|
|---|
| 146 | LRRP1 ;;6740104
|
|---|
| 147 | LRRP2 ;;12419851
|
|---|
| 148 | LRRP3 ;;8171424
|
|---|
| 149 | LRRP4 ;;3196176
|
|---|
| 150 | LRRP5 ;;5807146
|
|---|
| 151 | LRRP5A ;;4696626
|
|---|
| 152 | LRRP6 ;;4486928
|
|---|
| 153 | LRRP6A1 ;;5209716
|
|---|
| 154 | LRRP6A2 ;;2681809
|
|---|
| 155 | LRRP6A3 ;;2318940
|
|---|
| 156 | LRRP6B1 ;;3787926
|
|---|
| 157 | LRRP6B2 ;;2864954
|
|---|
| 158 | LRRP6B3 ;;2072606
|
|---|
| 159 | LRRP7 ;;3106946
|
|---|
| 160 | LRRP8 ;;1356290
|
|---|
| 161 | LRRP8A ;;4325958
|
|---|
| 162 | LRRP8B ;;2256698
|
|---|
| 163 | LRRP8C ;;5002891
|
|---|
| 164 | LRRS ;;8707990
|
|---|
| 165 | LRRS12 ;;3900411
|
|---|
| 166 | LRRS13 ;;3057556
|
|---|
| 167 | LRRSP ;;3891776
|
|---|
| 168 | LRSETUP ;;9966224
|
|---|
| 169 | LRSLOW ;;18541286
|
|---|
| 170 | LRSMAC ;;5282435
|
|---|
| 171 | LRSOR ;;7195489
|
|---|
| 172 | LRSOR1 ;;1558609
|
|---|
| 173 | LRSORA ;;7657175
|
|---|
| 174 | LRSORA0 ;;2281955
|
|---|
| 175 | LRSORA1 ;;6300770
|
|---|
| 176 | LRSORA2 ;;3292731
|
|---|
| 177 | LRSORA3 ;;6360636
|
|---|
