| 1 | ENXFNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;AUG 17, 1995@14:48:05
|
|---|
| 2 | ;;7.0;ENGINEERING;**23**;Aug 17,1993
|
|---|
| 3 | ;;7.2;AUG 17, 1995@14:48:05
|
|---|
| 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 | ENPL1 ;;3419953
|
|---|
| 13 | ENPL2 ;;2422528
|
|---|
| 14 | ENPL3 ;;5725054
|
|---|
| 15 | ENPL4 ;;2080627
|
|---|
| 16 | ENPL5 ;;9810373
|
|---|
| 17 | ENPL5A ;;5759972
|
|---|
| 18 | ENPL5B ;;9642514
|
|---|
| 19 | ENPL5C ;;2994588
|
|---|
| 20 | ENPL5D ;;9573416
|
|---|
| 21 | ENPL9 ;;5189520
|
|---|
| 22 | ENPLS ;;7524511
|
|---|
| 23 | ENPLS1 ;;3119737
|
|---|
| 24 | ENPLS2 ;;4399304
|
|---|
| 25 | ENPLSV ;;2812262
|
|---|
| 26 | ENPLSV3 ;;5770343
|
|---|
| 27 | ENPLSV4 ;;5602170
|
|---|
| 28 | ENPLV ;;2837375
|
|---|
| 29 | ENPLV1 ;;3979141
|
|---|
| 30 | ENPLV2 ;;10005494
|
|---|
| 31 | ENPLV3 ;;13597515
|
|---|
| 32 | ENPLV4 ;;12731658
|
|---|
| 33 | ENPLV5 ;;9123987
|
|---|
| 34 | ENPLX ;;7945101
|
|---|
| 35 | ENPLX1 ;;5931911
|
|---|
| 36 | ENPLX2 ;;4653467
|
|---|
| 37 | ENPLX3 ;;6182708
|
|---|
| 38 | ENPROJ ;;10713877
|
|---|
| 39 | ENXFI001 ;;3204022
|
|---|
| 40 | ENXFI002 ;;1688433
|
|---|
| 41 | ENXFI003 ;;9764230
|
|---|
| 42 | ENXFI004 ;;10889989
|
|---|
| 43 | ENXFI005 ;;14153846
|
|---|
| 44 | ENXFI006 ;;11847645
|
|---|
| 45 | ENXFI007 ;;13881157
|
|---|
| 46 | ENXFI008 ;;11591503
|
|---|
| 47 | ENXFI009 ;;9659156
|
|---|
| 48 | ENXFI00A ;;1800676
|
|---|
| 49 | ENXFI00B ;;5602356
|
|---|
| 50 | ENXFI00C ;;2055390
|
|---|
| 51 | ENXFI00D ;;5214219
|
|---|
| 52 | ENXFI00E ;;5824882
|
|---|
| 53 | ENXFI00F ;;5740193
|
|---|
| 54 | ENXFI00G ;;6315745
|
|---|
| 55 | ENXFI00H ;;3102004
|
|---|
| 56 | ENXFI00I ;;8541955
|
|---|
| 57 | ENXFI00J ;;10446268
|
|---|
| 58 | ENXFI00K ;;1640367
|
|---|
| 59 | ENXFI00L ;;6844970
|
|---|
| 60 | ENXFI00M ;;5522279
|
|---|
| 61 | ENXFI00N ;;4775990
|
|---|
| 62 | ENXFI00O ;;3060970
|
|---|
| 63 | ENXFI00P ;;1413058
|
|---|
| 64 | ENXFI00Q ;;19669986
|
|---|
| 65 | ENXFI00R ;;22560000
|
|---|
| 66 | ENXFI00S ;;24103132
|
|---|
| 67 | ENXFI00T ;;18735013
|
|---|
| 68 | ENXFI00U ;;16253215
|
|---|
| 69 | ENXFI00V ;;13513843
|
|---|
| 70 | ENXFI00W ;;14356706
|
|---|
| 71 | ENXFI00X ;;15220848
|
|---|
| 72 | ENXFI00Y ;;15501842
|
|---|
| 73 | ENXFI00Z ;;15504185
|
|---|
| 74 | ENXFI010 ;;15763581
|
|---|
| 75 | ENXFI011 ;;8145704
|
|---|
| 76 | ENXFI012 ;;8716591
|
|---|
| 77 | ENXFI013 ;;9058087
|
|---|
| 78 | ENXFI014 ;;6873795
|
|---|
| 79 | ENXFI015 ;;6668679
|
|---|
| 80 | ENXFI016 ;;2268540
|
|---|
| 81 | ENXFIENV ;;338456
|
|---|
| 82 | ENXFINI1 ;;4933766
|
|---|
| 83 | ENXFINI2 ;;5232600
|
|---|
| 84 | ENXFINI3 ;;16807216
|
|---|
| 85 | ENXFINI4 ;;3357772
|
|---|
| 86 | ENXFINI5 ;;1240418
|
|---|
| 87 | ENXFINIS ;;2212631
|
|---|
| 88 | ENXFINIT ;;10521321
|
|---|
| 89 | ENXFIPRE ;;6886769
|
|---|
| 90 | ENXFIPST ;;7114250
|
|---|
