| [613] | 1 | LRNTEG ;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^LRNTEG0
|
|---|
| 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 | LR52CNV ;;9175510
|
|---|
| 13 | LR52CNV0 ;;3475444
|
|---|
| 14 | LR52CNV1 ;;8155874
|
|---|
| 15 | LR52CNV3 ;;7949281
|
|---|
| 16 | LR52CNV4 ;;8091914
|
|---|
| 17 | LR52CNV5 ;;7090305
|
|---|
| 18 | LR52CNV7 ;;6270377
|
|---|
| 19 | LR52CNV8 ;;6913340
|
|---|
| 20 | LR52CNV9 ;;5903059
|
|---|
| 21 | LR52CNVA ;;3635478
|
|---|
| 22 | LR52CNVP ;;8781945
|
|---|
| 23 | LR52CNVU ;;2239335
|
|---|
| 24 | LR52CNVX ;;8110085
|
|---|
| 25 | LR52TIM2 ;;3950513
|
|---|
| 26 | LR52TIME ;;3676943
|
|---|
| 27 | LRABG ;;1851372
|
|---|
| 28 | LRABG1 ;;7566954
|
|---|
| 29 | LRAC ;;6243657
|
|---|
| 30 | LRAC1 ;;11261717
|
|---|
| 31 | LRAC2 ;;11706705
|
|---|
| 32 | LRAC2A ;;5935060
|
|---|
| 33 | LRAC3 ;;10227958
|
|---|
| 34 | LRAC4 ;;11230513
|
|---|
| 35 | LRAC5 ;;7561182
|
|---|
| 36 | LRAC6 ;;9135745
|
|---|
| 37 | LRAC7 ;;2987131
|
|---|
| 38 | LRAC8 ;;896828
|
|---|
| 39 | LRAC9 ;;9098921
|
|---|
| 40 | LRACC ;;4244367
|
|---|
| 41 | LRACDIAG ;;16331067
|
|---|
| 42 | LRACF ;;11037128
|
|---|
| 43 | LRACFILE ;;884607
|
|---|
| 44 | LRACFIX ;;1870623
|
|---|
| 45 | LRACFR ;;9983668
|
|---|
| 46 | LRACK ;;3045817
|
|---|
| 47 | LRACKL ;;13626594
|
|---|
| 48 | LRACKL1 ;;2455270
|
|---|
| 49 | LRACM ;;12299888
|
|---|
| 50 | LRACM1 ;;11850917
|
|---|
| 51 | LRACM2 ;;9886073
|
|---|
| 52 | LRACM2F ;;5537651
|
|---|
| 53 | LRACM3 ;;7658633
|
|---|
| 54 | LRACM4 ;;8356385
|
|---|
| 55 | LRACP ;;2963963
|
|---|
| 56 | LRACPG ;;844852
|
|---|
| 57 | LRACS ;;10982120
|
|---|
| 58 | LRACS1 ;;10583337
|
|---|
| 59 | LRACS2 ;;5996122
|
|---|
| 60 | LRACS3 ;;8023824
|
|---|
| 61 | LRACSUM ;;9656858
|
|---|
| 62 | LRACSUM1 ;;10133720
|
|---|
| 63 | LRACSUM3 ;;7335590
|
|---|
| 64 | LRACSUM4 ;;9181678
|
|---|
| 65 | LRACSUM5 ;;13575770
|
|---|
| 66 | LRACSUM6 ;;8083056
|
|---|
| 67 | LRAD2ORD ;;7379677
|
|---|
| 68 | LRAFUNC ;;5202410
|
|---|
| 69 | LRAFUNC1 ;;8930233
|
|---|
| 70 | LRAFUNC5 ;;4235238
|
|---|
| 71 | LRAFUNC6 ;;4239245
|
|---|
| 72 | LRAFUNC7 ;;7323033
|
|---|
| 73 | LRAIPRIV ;;116977
|
|---|
| 74 | LRAIRNUM ;;853891
|
|---|
| 75 | LRAP ;;10403072
|
|---|
| 76 | LRAPA ;;4656450
|
|---|
| 77 | LRAPAP ;;1248151
|
|---|
| 78 | LRAPAUA ;;4555449
|
|---|
| 79 | LRAPAUL ;;14417566
|
|---|
| 80 | LRAPAULC ;;5589732
|
|---|
| 81 | LRAPAUPT ;;343483
|
|---|
| 82 | LRAPAUSR ;;13851004
|
|---|
| 83 | LRAPBK ;;12786562
|
|---|
| 84 | LRAPBK1 ;;12514060
|
|---|
| 85 | LRAPBS ;;9530725
|
|---|
| 86 | LRAPBS1 ;;10479431
|
|---|
| 87 | LRAPBS2 ;;2393780
|
|---|
| 88 | LRAPC ;;5340982
|
|---|
| 89 | LRAPCUM ;;13268233
|
|---|
| 90 | LRAPCUM1 ;;6307179
|
|---|
| 91 | LRAPCWK ;;9695591
|
|---|
| 92 | LRAPD ;;4542710
|
|---|
| 93 | LRAPD1 ;;12376303
|
|---|
| 94 | LRAPDA ;;14820288
|
|---|
| 95 | LRAPDAC ;;3206399
|
|---|
| 96 | LRAPDEL ;;6301858
|
|---|
| 97 | LRAPDPT ;;6823526
|
|---|
| 98 | LRAPDS ;;413044
|
|---|
| 99 | LRAPED ;;11456664
|
|---|
| 100 | LRAPEDC ;;4899381
|
|---|
| 101 | LRAPF ;;2304308
|
|---|
| 102 | LRAPFICH ;;3383986
|
|---|
| 103 | LRAPFTS ;;23050
|
|---|
| 104 | LRAPH ;;4909603
|
|---|
| 105 | LRAPHDR ;;1559144
|
|---|
| 106 | LRAPJNC ;;5838353
|
|---|
| 107 | LRAPL ;;6656073
|
|---|
| 108 | LRAPLG ;;7333835
|
|---|
| 109 | LRAPLG1 ;;6952457
|
|---|
| 110 | LRAPLG2 ;;5232187
|
|---|
| 111 | LRAPM ;;14128148
|
|---|
| 112 | LRAPMOD ;;1763077
|
|---|
| 113 | LRAPMV ;;7473442
|
|---|
| 114 | LRAPOLD ;;10216449
|
|---|
| 115 | LRAPONC ;;4385791
|
|---|
| 116 | LRAPP ;;5467205
|
|---|
| 117 | LRAPPA ;;4168936
|
|---|
| 118 | LRAPPF ;;2917679
|
|---|
| 119 | LRAPPF1 ;;11687405
|
|---|
| 120 | LRAPPF2 ;;1703493
|
|---|
| 121 | LRAPPOW ;;6667789
|
|---|
| 122 | LRAPPRE ;;752949
|
|---|
| 123 | LRAPQ ;;5576437
|
|---|
| 124 | LRAPQAC ;;8427071
|
|---|
| 125 | LRAPQACD ;;1805048
|
|---|
| 126 | LRAPQACN ;;7551560
|
|---|
| 127 | LRAPQAFS ;;6062556
|
|---|
| 128 | LRAPQAM ;;2742545
|
|---|
| 129 | LRAPQAMR ;;8517573
|
|---|
| 130 | LRAPQAR ;;11772281
|
|---|
| 131 | LRAPQAT ;;12217676
|
|---|
| 132 | LRAPQAT1 ;;5893900
|
|---|
| 133 | LRAPQOR ;;5274969
|
|---|
| 134 | LRAPQOR1 ;;10672669
|
|---|
| 135 | LRAPQOR2 ;;5647114
|
|---|
| 136 | LRAPQOR3 ;;6098335
|
|---|
| 137 | LRAPR ;;10366720
|
|---|
| 138 | LRAPREF ;;381960
|
|---|
| 139 | LRAPS ;;1983043
|
|---|
| 140 | LRAPS1 ;;8521516
|
|---|
| 141 | LRAPS2 ;;11905503
|
|---|
| 142 | LRAPS3 ;;2265857
|
|---|
| 143 | LRAPSA ;;8361677
|
|---|
| 144 | LRAPSE ;;1707913
|
|---|
| 145 | LRAPSEM ;;14699799
|
|---|
| 146 | LRAPSEM1 ;;10343109
|
|---|
| 147 | LRAPSEM2 ;;12254703
|
|---|
| 148 | LRAPSL ;;10783558
|
|---|
| 149 | LRAPSL1 ;;11000394
|
|---|
| 150 | LRAPSM ;;9196990
|
|---|
| 151 | LRAPSM1 ;;11824486
|
|---|
| 152 | LRAPST ;;8820669
|
|---|
| 153 | LRAPST1 ;;3180798
|
|---|
| 154 | LRAPSWK ;;13317104
|
|---|
| 155 | LRAPT ;;7684657
|
|---|
| 156 | LRAPT1 ;;1555945
|
|---|
| 157 | LRAPT2 ;;13252231
|
|---|
| 158 | LRAPT3 ;;3593015
|
|---|
| 159 | LRAPTT ;;12355400
|
|---|
| 160 | LRAPTT1 ;;5291896
|
|---|
| 161 | LRAPV ;;6254696
|
|---|
| 162 | LRAPWA ;;2145601
|
|---|
| 163 | LRAPWE ;;10582558
|
|---|
| 164 | LRAPWE1 ;;5467253
|
|---|
| 165 | LRAPWEA ;;10035536
|
|---|
| 166 | LRAPWKA ;;10993774
|
|---|
| 167 | LRAPWKA1 ;;2854955
|
|---|
| 168 | LRAPWR ;;13705370
|
|---|
| 169 | LRAPWR1 ;;10850851
|
|---|
| 170 | LRAPWSPG ;;6741045
|
|---|
| 171 | LRAPWU ;;9771464
|
|---|
| 172 | LRAPX ;;5707403
|
|---|
| 173 | LRAUAW ;;4434676
|
|---|
