| 1 | FHNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;OCT 11, 1995@10:01:46
|
---|
| 2 | ;;0.0;
|
---|
| 3 | ;;7.1;OCT 11, 1995@10:01:46
|
---|
| 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^FHNTEG0
|
---|
| 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 | FH ;;1933177
|
---|
| 13 | FHADM2 ;;2855586
|
---|
| 14 | FHADM21 ;;7966786
|
---|
| 15 | FHADM2A ;;2375833
|
---|
| 16 | FHADM3 ;;5810121
|
---|
| 17 | FHADM4 ;;9500389
|
---|
| 18 | FHADM5 ;;323152
|
---|
| 19 | FHADR1 ;;6236966
|
---|
| 20 | FHADR10 ;;2472024
|
---|
| 21 | FHADR1A ;;6939546
|
---|
| 22 | FHADR2 ;;3823209
|
---|
| 23 | FHADR3 ;;1811235
|
---|
| 24 | FHADR3A ;;6395711
|
---|
| 25 | FHADR4 ;;3651849
|
---|
| 26 | FHADR5 ;;3779837
|
---|
| 27 | FHADR6 ;;10058150
|
---|
| 28 | FHADR61 ;;2724873
|
---|
| 29 | FHADR7 ;;6397935
|
---|
| 30 | FHADR8 ;;3103134
|
---|
| 31 | FHADR81 ;;5662701
|
---|
| 32 | FHADR9 ;;7544892
|
---|
| 33 | FHADR9A ;;4060734
|
---|
| 34 | FHADRPT ;;2949179
|
---|
| 35 | FHADRSY ;;1383849
|
---|
| 36 | FHASC ;;1661812
|
---|
| 37 | FHASE ;;12352922
|
---|
| 38 | FHASE1 ;;4636527
|
---|
| 39 | FHASE1A ;;10368196
|
---|
| 40 | FHASE2 ;;4358156
|
---|
| 41 | FHASE3 ;;1455346
|
---|
| 42 | FHASM1 ;;8647619
|
---|
| 43 | FHASM2 ;;8399539
|
---|
| 44 | FHASM2A ;;2430817
|
---|
| 45 | FHASM2B ;;3386101
|
---|
| 46 | FHASM2C ;;3102927
|
---|
| 47 | FHASM2D ;;2275862
|
---|
| 48 | FHASM3 ;;5096802
|
---|
| 49 | FHASM3A ;;9169407
|
---|
| 50 | FHASM4 ;;6344698
|
---|
| 51 | FHASM5 ;;8945494
|
---|
| 52 | FHASM6 ;;7486877
|
---|
| 53 | FHASM7 ;;9593313
|
---|
| 54 | FHASMR ;;2727928
|
---|
| 55 | FHASMR1 ;;9517687
|
---|
| 56 | FHASN ;;3149876
|
---|
| 57 | FHASN1 ;;3511694
|
---|
| 58 | FHASN3 ;;6030523
|
---|
| 59 | FHASN4 ;;9774004
|
---|
| 60 | FHASN5 ;;8678046
|
---|
| 61 | FHASN6 ;;7635637
|
---|
| 62 | FHASN7 ;;2602313
|
---|
| 63 | FHASN71 ;;9171190
|
---|
| 64 | FHASP ;;7858984
|
---|
| 65 | FHASP1 ;;5062129
|
---|
| 66 | FHASP2 ;;3530400
|
---|
| 67 | FHASXR ;;6537891
|
---|
| 68 | FHASXR1 ;;8965616
|
---|
| 69 | FHBIR ;;4059872
|
---|
| 70 | FHCLN ;;740822
|
---|
| 71 | FHCMS1 ;;778447
|
---|
| 72 | FHCMSR ;;4571401
|
---|
| 73 | FHCMSR1 ;;6665228
|
---|
| 74 | FHCTF ;;681451
|
---|
| 75 | FHCTF1 ;;6124347
|
---|
| 76 | FHCTF2 ;;397188
|
---|
| 77 | FHCTF3 ;;13151878
|
---|
| 78 | FHCTF4 ;;6160915
|
---|
| 79 | FHDCR1 ;;8507036
|
---|
| 80 | FHDCR11 ;;4507014
|
---|
| 81 | FHDCR1A ;;6164513
|
---|
| 82 | FHDCR1B ;;9131155
|
---|
| 83 | FHDCR1C ;;2162795
|
---|
| 84 | FHDCR1D ;;6930746
|
---|
| 85 | FHDCR2 ;;872781
|
---|
| 86 | FHDEV ;;1319169
|
---|
| 87 | FHDMP ;;7066349
|
---|
| 88 | FHDMP1 ;;3150137
|
---|
| 89 | FHDMP2 ;;5848038
|
---|
| 90 | FHDMP3 ;;4936568
|
---|
| 91 | FHDMP4 ;;7823399
|
---|
| 92 | FHDMP5 ;;5203454
|
---|
| 93 | FHDPA ;;2974151
|
---|
| 94 | FHIPST ;;5821572
|
---|
| 95 | FHIPST1 ;;2376175
|
---|
| 96 | FHIPST10 ;;5608317
|
---|
| 97 | FHIPST11 ;;5908172
|
---|
| 98 | FHIPST12 ;;5840142
|
---|
| 99 | FHIPST13 ;;5669546
|
---|
| 100 | FHIPST14 ;;6093522
|
---|
| 101 | FHIPST15 ;;4681408
|
---|
| 102 | FHIPST16 ;;5603245
|
---|
| 103 | FHIPST17 ;;1797845
|
---|
| 104 | FHIPST18 ;;1252543
|
---|
| 105 | FHIPST19 ;;811740
|
---|
| 106 | FHIPST2 ;;1871064
|
---|
| 107 | FHIPST20 ;;3761391
|
---|
| 108 | FHIPST3 ;;5363809
|
---|
| 109 | FHIPST4 ;;1980574
|
---|
| 110 | FHIPST5 ;;1154415
|
---|
| 111 | FHIPST6 ;;700221
|
---|
| 112 | FHIPST7 ;;1254271
|
---|
| 113 | FHIPST8 ;;1109712
|
---|
| 114 | FHIPST9 ;;6158714
|
---|
| 115 | FHMTK ;;8334209
|
---|
| 116 | FHMTK1 ;;9736775
|
---|
| 117 | FHMTK11 ;;9501249
|
---|
| 118 | FHMTK1A ;;5652773
|
---|
| 119 | FHMTK1B ;;9506136
|
---|
| 120 | FHMTK1C ;;7533994
|
---|
| 121 | FHMTK2 ;;4933044
|
---|
| 122 | FHMTK21 ;;5663649
|
---|
| 123 | FHMTK3 ;;7247098
|
---|
| 124 | FHMTK4 ;;6393503
|
---|
| 125 | FHMTK5 ;;7788180
|
---|
| 126 | FHMTK6 ;;6997795
|
---|
| 127 | FHMTK7 ;;4842201
|
---|
| 128 | FHNO1 ;;2554062
|
---|
| 129 | FHNO2 ;;10768538
|
---|
| 130 | FHNO21 ;;3984168
|
---|
| 131 | FHNO3 ;;3504490
|
---|
| 132 | FHNO31 ;;7450905
|
---|
| 133 | FHNO4 ;;1121656
|
---|
| 134 | FHNO41 ;;7922111
|
---|
| 135 | FHNO5 ;;5224038
|
---|
| 136 | FHNO6 ;;9801097
|
---|
| 137 | FHNO7 ;;2361316
|
---|
| 138 | FHNO8 ;;2731298
|
---|
| 139 | FHNU ;;1616737
|
---|
| 140 | FHNU1 ;;4573798
|
---|
| 141 | FHNU10 ;;5583463
|
---|
| 142 | FHNU11 ;;10048442
|
---|
| 143 | FHNU12 ;;5447130
|
---|
| 144 | FHNU2 ;;12335468
|
---|
| 145 | FHNU3 ;;6834955
|
---|
| 146 | FHNU4 ;;11724524
|
---|
| 147 | FHNU5 ;;10454629
|
---|
| 148 | FHNU6 ;;4729171
|
---|
| 149 | FHNU7 ;;5806572
|
---|
| 150 | FHNU8 ;;7815140
|
---|
| 151 | FHNU9 ;;4484537
|
---|
| 152 | FHNUT ;;4362721
|
---|
| 153 | FHORC ;;4988961
|
---|
| 154 | FHORC1 ;;3376539
|
---|
| 155 | FHORC2 ;;10784717
|
---|
| 156 | FHORC3 ;;7547945
|
---|
| 157 | FHORC4 ;;2770986
|
---|
| 158 | FHORC5 ;;2011042
|
---|
| 159 | FHORCW ;;6949788
|
---|
| 160 | FHORD ;;1618989
|
---|
| 161 | FHORD1 ;;12718924
|
---|
| 162 | FHORD10 ;;6881787
|
---|
| 163 | FHORD11 ;;10078328
|
---|
| 164 | FHORD13 ;;7875615
|
---|
| 165 | FHORD1A ;;3630323
|
---|
| 166 | FHORD2 ;;6094066
|
---|
| 167 | FHORD3 ;;6474710
|
---|
| 168 | FHORD4 ;;5320132
|
---|
| 169 | FHORD41 ;;4108718
|
---|
| 170 | FHORD5 ;;5286069
|
---|
| 171 | FHORD6 ;;9749127
|
---|
| 172 | FHORD61 ;;7575939
|
---|
| 173 | FHORD7 ;;5790814
|
---|
| 174 | FHORD71 ;;7838090
|
---|
| 175 | FHORD72 ;;7184640
|
---|
| 176 | FHORD8 ;;6489332
|
---|
| 177 | FHORD81 ;;5717162
|
---|
| 178 | FHORD82 ;;7938833
|
---|