| [613] | 1 | FHNTEG0 ;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 | ;
|
|---|
| 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 | FHORD83 ;;1799300
|
|---|
| 13 | FHORD9 ;;5847432
|
|---|
| 14 | FHORD91 ;;3834038
|
|---|
| 15 | FHORD92 ;;7559275
|
|---|
| 16 | FHORD93 ;;8620031
|
|---|
| 17 | FHORDR ;;2998872
|
|---|
| 18 | FHORDW ;;6878589
|
|---|
| 19 | FHORDW1 ;;5597195
|
|---|
| 20 | FHORDW2 ;;4056534
|
|---|
| 21 | FHORDW3 ;;6541293
|
|---|
| 22 | FHORE1 ;;11602421
|
|---|
| 23 | FHORE1A ;;2003255
|
|---|
| 24 | FHORE2 ;;4556343
|
|---|
| 25 | FHORE21 ;;7400532
|
|---|
| 26 | FHORE3 ;;3649653
|
|---|
| 27 | FHOREW ;;7916080
|
|---|
| 28 | FHORO ;;4704498
|
|---|
| 29 | FHOROW ;;4629985
|
|---|
| 30 | FHORT1 ;;10129017
|
|---|
| 31 | FHORT10 ;;13332346
|
|---|
| 32 | FHORT11 ;;2453906
|
|---|
| 33 | FHORT2 ;;5921412
|
|---|
| 34 | FHORT3 ;;2509939
|
|---|
| 35 | FHORT5 ;;4446291
|
|---|
| 36 | FHORT5A ;;6669315
|
|---|
| 37 | FHORT5B ;;2194934
|
|---|
| 38 | FHORT5C ;;3301928
|
|---|
| 39 | FHORT5D ;;5290071
|
|---|
| 40 | FHORTW ;;7141005
|
|---|
| 41 | FHORX ;;564826
|
|---|
| 42 | FHORX1 ;;5217469
|
|---|
| 43 | FHORX1A ;;3214593
|
|---|
| 44 | FHORX1B ;;3634063
|
|---|
| 45 | FHORX1C ;;6936807
|
|---|
| 46 | FHORX2 ;;2683671
|
|---|
| 47 | FHORX3 ;;8023019
|
|---|
| 48 | FHPATM ;;6006350
|
|---|
| 49 | FHPRC ;;5655183
|
|---|
| 50 | FHPRC1 ;;5569532
|
|---|
| 51 | FHPRC10 ;;12077237
|
|---|
| 52 | FHPRC11 ;;14257467
|
|---|
| 53 | FHPRC12 ;;7937756
|
|---|
| 54 | FHPRC13 ;;12025361
|
|---|
| 55 | FHPRC14 ;;9606339
|
|---|
| 56 | FHPRC2 ;;5268120
|
|---|
| 57 | FHPRC3 ;;4313560
|
|---|
| 58 | FHPRC4 ;;2168815
|
|---|
| 59 | FHPRC5 ;;1913669
|
|---|
| 60 | FHPRC6 ;;4475322
|
|---|
| 61 | FHPRC7 ;;3360749
|
|---|
| 62 | FHPRC8 ;;9271546
|
|---|
| 63 | FHPRC9 ;;7757957
|
|---|
| 64 | FHPRF ;;1601618
|
|---|
| 65 | FHPRF1 ;;6509145
|
|---|
| 66 | FHPRF1A ;;3914573
|
|---|
| 67 | FHPRF2 ;;2915934
|
|---|
| 68 | FHPRF4 ;;1629107
|
|---|
| 69 | FHPRI ;;3919334
|
|---|
| 70 | FHPRI1 ;;4796204
|
|---|
| 71 | FHPRI2 ;;8125121
|
|---|
| 72 | FHPRI3 ;;1952818
|
|---|
| 73 | FHPRO ;;4733042
|
|---|
| 74 | FHPRO1 ;;10716446
|
|---|
| 75 | FHPRO2 ;;12102730
|
|---|
| 76 | FHPRO3 ;;2512818
|
|---|
| 77 | FHPRO4 ;;5871635
|
|---|
| 78 | FHPRO4A ;;3732530
|
|---|
| 79 | FHPRO5 ;;4997921
|
|---|
| 80 | FHPRO6 ;;2943379
|
|---|
| 81 | FHPRO7 ;;1769356
|
|---|
| 82 | FHPRR1 ;;4210131
|
|---|
| 83 | FHPRR2 ;;6726603
|
|---|
| 84 | FHPRW ;;10160467
|
|---|
| 85 | FHPRW1 ;;4038651
|
|---|
| 86 | FHPRW2 ;;3657285
|
|---|
| 87 | FHPRW3 ;;4037054
|
|---|
| 88 | FHPRW4 ;;1975449
|
|---|
| 89 | FHREC ;;3913108
|
|---|
| 90 | FHREC1 ;;4357665
|
|---|
| 91 | FHREC2 ;;5088857
|
|---|
| 92 | FHREC3 ;;1924284
|
|---|
| 93 | FHREC4 ;;3456680
|
|---|
| 94 | FHREC5 ;;2832308
|
|---|
| 95 | FHREC6 ;;8800982
|
|---|
| 96 | FHREC7 ;;1770111
|
|---|
| 97 | FHREP ;;4497192
|
|---|
| 98 | FHREP1 ;;11157584
|
|---|
| 99 | FHSEL1 ;;7821155
|
|---|
| 100 | FHSEL2 ;;9245176
|
|---|
| 101 | FHSEL3 ;;6646024
|
|---|
| 102 | FHSEL4 ;;6487559
|
|---|
| 103 | FHSP ;;962380
|
|---|
| 104 | FHSP1 ;;12519643
|
|---|
| 105 | FHSP11 ;;2598854
|
|---|
| 106 | FHSPED ;;11321876
|
|---|
| 107 | FHSPTAB ;;6298568
|
|---|
| 108 | FHSYSF ;;798296
|
|---|
| 109 | FHSYSK ;;3838891
|
|---|
| 110 | FHSYSP ;;1520196
|
|---|
| 111 | FHVER ;;1524619
|
|---|
| 112 | FHWADM ;;5975597
|
|---|
| 113 | FHWDIS ;;5304192
|
|---|
| 114 | FHWDISD ;;3992628
|
|---|
| 115 | FHWHEA ;;11863618
|
|---|
| 116 | FHWMAS ;;1763412
|
|---|
| 117 | FHWTRN ;;2567274
|
|---|
| 118 | FHXCNV ;;3360157
|
|---|
| 119 | FHXDB ;;12710968
|
|---|
| 120 | FHXDB1 ;;14538448
|
|---|
| 121 | FHXDB2 ;;8339509
|
|---|
| 122 | FHXIN ;;2450638
|
|---|
| 123 | FHXMOV ;;8770539
|
|---|
| 124 | FHXWRD ;;3711181
|
|---|
