| 1 | LANTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;OCT 25, 1994@16:19:45
|
|---|
| 2 | ;;5.2;AUTOMATED LAB INSTRUMENTS;;Sep 27, 1994
|
|---|
| 3 | ;;7.2;OCT 25, 1994@16:19:45
|
|---|
| 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^LANTEG0
|
|---|
| 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 | LA1103 ;;2783225
|
|---|
| 13 | LAABL3 ;;2008068
|
|---|
| 14 | LAABL500 ;;2175200
|
|---|
| 15 | LAACA ;;2620189
|
|---|
| 16 | LAACA4 ;;2267008
|
|---|
| 17 | LAAIMX ;;2663037
|
|---|
| 18 | LAALTA ;;2228642
|
|---|
| 19 | LAASTRA ;;2584890
|
|---|
| 20 | LAB ;;4398199
|
|---|
| 21 | LABALARM ;;1650198
|
|---|
| 22 | LABCX4B ;;4898600
|
|---|
| 23 | LABCX4D ;;13092397
|
|---|
| 24 | LABCX4H ;;2806099
|
|---|
| 25 | LABCX4I ;;1686962
|
|---|
| 26 | LABCX4XX ;;9649352
|
|---|
| 27 | LABERR ;;6644019
|
|---|
| 28 | LABERRP ;;8870102
|
|---|
| 29 | LABINIT ;;1234544
|
|---|
| 30 | LABIOH ;;3367777
|
|---|
| 31 | LABIOU ;;2914334
|
|---|
| 32 | LABITKU ;;2821318
|
|---|
| 33 | LABL330 ;;1722719
|
|---|
| 34 | LABMD87P ;;2175579
|
|---|
| 35 | LABTEST ;;5613373
|
|---|
| 36 | LAC178 ;;1540695
|
|---|
| 37 | LAC178HP ;;1853069
|
|---|
| 38 | LACBIO ;;2148068
|
|---|
| 39 | LACCHEM6 ;;2097015
|
|---|
| 40 | LACEL8E ;;2264233
|
|---|
| 41 | LACFARA ;;2918540
|
|---|
| 42 | LACHEM1 ;;2717606
|
|---|
| 43 | LACL5500 ;;1539985
|
|---|
| 44 | LACLNTE ;;1552893
|
|---|
| 45 | LACLNTEK ;;1673253
|
|---|
| 46 | LACLT200 ;;1551991
|
|---|
| 47 | LACLT20P ;;1474233
|
|---|
| 48 | LACMIRA ;;3311054
|
|---|
| 49 | LACMIRAS ;;3312103
|
|---|
| 50 | LACOAGX2 ;;5672263
|
|---|
| 51 | LACOARA4 ;;1951210
|
|---|
| 52 | LACOLT ;;2545954
|
|---|
| 53 | LACOLT1 ;;2654404
|
|---|
| 54 | LACOLT2 ;;2836496
|
|---|
| 55 | LACOLT24 ;;1802705
|
|---|
| 56 | LACOLT3 ;;2164064
|
|---|
| 57 | LACOLT5 ;;2323809
|
|---|
| 58 | LACOLT6 ;;2256792
|
|---|
| 59 | LACOLTSE ;;2430777
|
|---|
| 60 | LACOLTSS ;;2715542
|
|---|
| 61 | LACRIT ;;1736540
|
|---|
| 62 | LACTDMS ;;1465520
|
|---|
| 63 | LADACOS ;;2166624
|
|---|
| 64 | LADEKT7B ;;4967221
|
|---|
| 65 | LADIMD ;;6103418
|
|---|
| 66 | LADIMPI ;;1405264
|
|---|
| 67 | LADIMPXX ;;8026120
|
|---|
| 68 | LADJOB ;;8760268
|
|---|
| 69 | LADKERM2 ;;1726176
|
|---|
| 70 | LADKERM3 ;;2978971
|
|---|
| 71 | LADKERMI ;;6011628
|
|---|
| 72 | LADMND ;;3072669
|
|---|
| 73 | LADOWN ;;9920580
|
|---|
| 74 | LADOWN1 ;;1202585
|
|---|
| 75 | LAE4A ;;2248577
|
|---|
| 76 | LAEKT4 ;;2208086
|
|---|
| 77 | LAEKT7 ;;3350851
|
|---|
| 78 | LAEKT7B ;;4892440
|
|---|
| 79 | LAEKT7D ;;4868873
|
|---|
| 80 | LAEKT7P ;;1708897
|
|---|
| 81 | LAELT ;;1407224
|
|---|
| 82 | LAELT8D ;;1959164
|
|---|
| 83 | LAEPXD ;;6684633
|
|---|
| 84 | LAEPXPXX ;;2943031
|
|---|
| 85 | LAERA ;;2063732
|
|---|
| 86 | LAEXEC ;;2382145
|
|---|
| 87 | LAFARA2 ;;1982181
|
|---|
| 88 | LAFUNC ;;8102106
|
|---|
| 89 | LAGEN ;;8938687
|
|---|
| 90 | LAH1 ;;1891499
|
|---|
| 91 | LAH480 ;;1867912
|
|---|
| 92 | LAH6K ;;1615361
|
|---|
| 93 | LAH705 ;;2274079
|
|---|
| 94 | LAH717D ;;3491011
|
|---|
| 95 | LAH717H ;;1408129
|
|---|
| 96 | LAH717U ;;3049965
|
|---|
| 97 | LAH737 ;;2103160
|
|---|
| 98 | LAH747 ;;4392886
|
|---|
| 99 | LAHLOG ;;2059494
|
|---|
| 100 | LAHT1K ;;3366699
|
|---|
| 101 | LAHT1KD ;;4182105
|
|---|
| 102 | LAHTCCA ;;3313807
|
|---|
| 103 | LAHTCCAD ;;7101782
|
|---|
| 104 | LAHTCCAH ;;1445957
|
|---|
| 105 | LAHTRK ;;4972157
|
|---|
| 106 | LAHWATCH ;;9397067
|
|---|
| 107 | LAJOB ;;9221165
|
|---|
| 108 | LAJOB1 ;;1554580
|
|---|
| 109 | LAKDA ;;1509851
|
|---|
| 110 | LAKDIFF ;;9316350
|
|---|
| 111 | LAKDIFF1 ;;8917764
|
|---|
| 112 | LAKDIFF2 ;;9640378
|
|---|
| 113 | LAKDIFF3 ;;2515859
|
|---|
| 114 | LAKERM2 ;;1880826
|
|---|
| 115 | LAKERM3 ;;2978413
|
|---|
| 116 | LAKERMIT ;;6324167
|
|---|
| 117 | LAKOAG40 ;;2868887
|
|---|
| 118 | LAKUR ;;9165972
|
|---|
| 119 | LAKUR1 ;;9779892
|
|---|
| 120 | LAL13 ;;1439802
|
|---|
| 121 | LAL1306 ;;1467621
|
|---|
| 122 | LAL1312 ;;3502635
|
|---|
| 123 | LAL508 ;;2285737
|
|---|
| 124 | LAL943 ;;2023211
|
|---|
| 125 | LALBG3 ;;2249849
|
|---|
| 126 | LAMIAUT0 ;;16381256
|
|---|
| 127 | LAMIAUT1 ;;10322419
|
|---|
| 128 | LAMIAUT2 ;;8411115
|
|---|
| 129 | LAMIAUT3 ;;10479359
|
|---|
| 130 | LAMIAUT4 ;;12090481
|
|---|
| 131 | LAMIAUT5 ;;3703164
|
|---|
| 132 | LAMIAUT6 ;;10716148
|
|---|
| 133 | LAMIAUT7 ;;13571379
|
|---|
| 134 | LAMIAUT8 ;;10268917
|
|---|
| 135 | LAMICRA ;;6240705
|
|---|
| 136 | LAMILL ;;8873545
|
|---|
| 137 | LAMIV00 ;;5791650
|
|---|
| 138 | LAMIV10 ;;3260019
|
|---|
| 139 | LAMIV11 ;;4758588
|
|---|
| 140 | LAMIV12 ;;3536770
|
|---|
| 141 | LAMIVT5 ;;6911163
|
|---|
| 142 | LAMIVT6 ;;6905221
|
|---|
| 143 | LAMIVTE6 ;;6926973
|
|---|
| 144 | LAMIVTK ;;6713826
|
|---|
| 145 | LAMIVTK6 ;;7014176
|
|---|
| 146 | LAMIVTKC ;;3923165
|
|---|
| 147 | LAMIVTKD ;;13170264
|
|---|
| 148 | LAMIVTKU ;;6973867
|
|---|
| 149 | LAMLA1KC ;;3053010
|
|---|
| 150 | LAMLA7 ;;1570534
|
|---|
| 151 | LAMODH ;;3388022
|
|---|
| 152 | LAMODU ;;3723782
|
|---|
| 153 | LAMODUT ;;2139931
|
|---|
| 154 | LAMONARK ;;2238324
|
|---|
| 155 | LAMSA ;;6011981
|
|---|
| 156 | LAMSA1 ;;3554365
|
|---|
| 157 | LAMSBLD ;;3663195
|
|---|
| 158 | LAMSD ;;7874896
|
|---|
| 159 | LAMSP ;;621129
|
|---|
| 160 | LAMSPAN ;;1767497
|
|---|
| 161 | LAMSTAT ;;2048832
|
|---|
| 162 | LANOVA ;;1641181
|
|---|
| 163 | LANOVST ;;1777132
|
|---|
| 164 | LAPARA ;;1995628
|
|---|
| 165 | LAPARAP ;;2803252
|
|---|
| 166 | LAPER ;;2505784
|
|---|
| 167 | LAPERD ;;3756688
|
|---|
| 168 | LAPFICH ;;4040500
|
|---|
| 169 | LAPMAX ;;2197178
|
|---|
| 170 | LAPMAXD ;;6347878
|
|---|
| 171 | LAPORTXX ;;4413930
|
|---|
| 172 | LAPX ;;1763878
|
|---|
| 173 | LARA1K ;;1874527
|
|---|
