[613] | 1 | ZINTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;MAR 08, 1996@16:15:32
|
---|
| 2 | ;;0.0;
|
---|
| 3 | ;;7.2;MAR 08, 1996@16:15:32
|
---|
| 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 | %ZIS ;;9225804
|
---|
| 13 | %ZIS1 ;;9986473
|
---|
| 14 | %ZIS2 ;;10804239
|
---|
| 15 | %ZIS3 ;;6432307
|
---|
| 16 | %ZIS5 ;;7807527
|
---|
| 17 | %ZIS6 ;;10361073
|
---|
| 18 | %ZIS7 ;;3002967
|
---|
| 19 | %ZISC ;;8464347
|
---|
| 20 | %ZISP ;;1595683
|
---|
| 21 | %ZISS ;;8559518
|
---|
| 22 | %ZISS1 ;;7994076
|
---|
| 23 | %ZISS2 ;;845268
|
---|
| 24 | %ZISUTL ;;2297285
|
---|
| 25 | %ZTER ;;18033524
|
---|
| 26 | %ZTER1 ;;5362718
|
---|
| 27 | %ZTLOAD ;;893618
|
---|
| 28 | %ZTLOAD1 ;;6267103
|
---|
| 29 | %ZTLOAD2 ;;3203201
|
---|
| 30 | %ZTLOAD3 ;;3739552
|
---|
| 31 | %ZTLOAD4 ;;6817565
|
---|
| 32 | %ZTLOAD5 ;;5571101
|
---|
| 33 | %ZTLOAD6 ;;3749408
|
---|
| 34 | %ZTLOAD7 ;;3885066
|
---|
| 35 | %ZTM ;;7555965
|
---|
| 36 | %ZTM0 ;;5244015
|
---|
| 37 | %ZTM1 ;;5569955
|
---|
| 38 | %ZTM2 ;;3666292
|
---|
| 39 | %ZTM3 ;;3114917
|
---|
| 40 | %ZTM4 ;;2450447
|
---|
| 41 | %ZTM5 ;;3124619
|
---|
| 42 | %ZTM6 ;;1889159
|
---|
| 43 | %ZTMOVE ;;13338135
|
---|
| 44 | %ZTMS ;;5438606
|
---|
| 45 | %ZTMS0 ;;3247481
|
---|
| 46 | %ZTMS1 ;;5241448
|
---|
| 47 | %ZTMS2 ;;5278281
|
---|
| 48 | %ZTMS3 ;;8981036
|
---|
| 49 | %ZTMS4 ;;4980927
|
---|
| 50 | %ZTMS7 ;;1507577
|
---|
| 51 | %ZTMSH ;;767986
|
---|
| 52 | XUCIDTM ;;2563316
|
---|
| 53 | XUCIIS2 ;;2286635
|
---|
| 54 | XUCIMSM ;;2996249
|
---|
| 55 | XUCIMSQ ;;2286635
|
---|
| 56 | XUCIVXD ;;2941248
|
---|
| 57 | ZIS4DTM ;;7025909
|
---|
| 58 | ZIS4IS2 ;;8958189
|
---|
| 59 | ZIS4MSM ;;6576195
|
---|
| 60 | ZIS4MSQ ;;8966654
|
---|
| 61 | ZIS4VXD ;;8256988
|
---|
| 62 | ZISETDTM ;;3961597
|
---|
| 63 | ZISETIS2 ;;7320641
|
---|
| 64 | ZISETMSM ;;6833482
|
---|
| 65 | ZISETMSQ ;;7320641
|
---|
| 66 | ZISETVXD ;;7650903
|
---|
| 67 | ZISFDTM ;;4678949
|
---|
| 68 | ZISFIS2 ;;3751438
|
---|
| 69 | ZISFMSM ;;4351577
|
---|
| 70 | ZISFMSQ ;;3751438
|
---|
| 71 | ZISFVXD ;;3545479
|
---|
| 72 | ZISHDTM ;;7331941
|
---|
| 73 | ZISHIS2 ;;2223
|
---|
| 74 | ZISHMSM ;;8010464
|
---|
| 75 | ZISHMSQ ;;2223
|
---|
| 76 | ZISHMSU ;;8698384
|
---|
| 77 | ZISHUNT ;;4004736
|
---|
| 78 | ZISHVXD ;;3250686
|
---|
| 79 | ZISX ;;139567
|
---|
| 80 | ZOSFDTM ;;7872696
|
---|
| 81 | ZOSFIS2 ;;6896814
|
---|
| 82 | ZOSFMSM ;;6800771
|
---|
| 83 | ZOSFMSQ ;;8645275
|
---|
| 84 | ZOSFVXD ;;7621590
|
---|
| 85 | ZOSV1DTM ;;1336349
|
---|
| 86 | ZOSV1VXD ;;2355871
|
---|
| 87 | ZOSV2MSM ;;8368187
|
---|
| 88 | ZOSV2VXD ;;8388457
|
---|
| 89 | ZOSVDTM ;;5567795
|
---|
| 90 | ZOSVIS2 ;;5052338
|
---|
| 91 | ZOSVMSM ;;11540039
|
---|
| 92 | ZOSVMSQ ;;4730703
|
---|
| 93 | ZOSVVXD ;;7409621
|
---|
| 94 | ZTBKCDTM ;;7843194
|
---|
| 95 | ZTBKCMSM ;;5947897
|
---|
| 96 | ZTBKCMSQ ;;5096303
|
---|
| 97 | ZTBKCVXD ;;5319791
|
---|
| 98 | ZTMB ;;10291516
|
---|
| 99 | ZTMCHK ;;2933470
|
---|
| 100 | ZTMCHK1 ;;6522196
|
---|
| 101 | ZTMDCL ;;534689
|
---|
| 102 | ZTMGRSET ;;11092996
|
---|
| 103 | ZTMKU ;;8211227
|
---|
| 104 | ZTMON ;;3969317
|
---|
| 105 | ZTMON1 ;;7308728
|
---|
| 106 | ZUA ;;2658964
|
---|