| 1 | ENXGNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;MAR 12, 1996@09:45:44
|
|---|
| 2 | ;;7.0;ENGINEERING;**25**;AUG 17, 1993
|
|---|
| 3 | ;;7.2;MAR 12, 1996@09:45:44
|
|---|
| 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 | ENEQ1 ;;15954192
|
|---|
| 13 | ENEQ2 ;;3682101
|
|---|
| 14 | ENEQ3 ;;9467888
|
|---|
| 15 | ENFAR1 ;;5222396
|
|---|
| 16 | ENFAR2 ;;5549493
|
|---|
| 17 | ENFAR3 ;;3893341
|
|---|
| 18 | ENFAR4 ;;6028891
|
|---|
| 19 | ENFAUTL ;;5498296
|
|---|
| 20 | ENFAVAL ;;4144643
|
|---|
| 21 | ENFAXMTM ;;8209636
|
|---|
| 22 | ENLIB3 ;;4928359
|
|---|
| 23 | ENWONEW2 ;;5433422
|
|---|
| 24 | ENXGI001 ;;10198513
|
|---|
| 25 | ENXGI002 ;;9493143
|
|---|
| 26 | ENXGI003 ;;9608485
|
|---|
| 27 | ENXGI004 ;;3037114
|
|---|
| 28 | ENXGI005 ;;10404246
|
|---|
| 29 | ENXGI006 ;;9877951
|
|---|
| 30 | ENXGI007 ;;4827334
|
|---|
| 31 | ENXGI008 ;;12348941
|
|---|
| 32 | ENXGI009 ;;16087423
|
|---|
| 33 | ENXGI00A ;;9474280
|
|---|
| 34 | ENXGI00B ;;8440948
|
|---|
| 35 | ENXGI00C ;;10610250
|
|---|
| 36 | ENXGI00D ;;13600195
|
|---|
| 37 | ENXGI00E ;;11198556
|
|---|
| 38 | ENXGI00F ;;3577969
|
|---|
| 39 | ENXGI00G ;;7777594
|
|---|
| 40 | ENXGI00H ;;8169994
|
|---|
| 41 | ENXGI00I ;;9448447
|
|---|
| 42 | ENXGI00J ;;11900556
|
|---|
| 43 | ENXGI00K ;;9111764
|
|---|
| 44 | ENXGI00L ;;9898253
|
|---|
| 45 | ENXGI00M ;;9754996
|
|---|
| 46 | ENXGI00N ;;8123484
|
|---|
| 47 | ENXGI00O ;;10165041
|
|---|
| 48 | ENXGI00P ;;9347851
|
|---|
| 49 | ENXGI00Q ;;9344585
|
|---|
| 50 | ENXGI00R ;;9889475
|
|---|
| 51 | ENXGI00S ;;2577721
|
|---|
| 52 | ENXGI00T ;;6884962
|
|---|
| 53 | ENXGI00U ;;3161118
|
|---|
| 54 | ENXGI00V ;;3088329
|
|---|
| 55 | ENXGI00W ;;1463718
|
|---|
| 56 | ENXGI00X ;;3572593
|
|---|
| 57 | ENXGI00Y ;;2055436
|
|---|
| 58 | ENXGI00Z ;;2776083
|
|---|
| 59 | ENXGI010 ;;1733251
|
|---|
| 60 | ENXGI011 ;;2577002
|
|---|
| 61 | ENXGI012 ;;1493113
|
|---|
| 62 | ENXGI013 ;;2605764
|
|---|
| 63 | ENXGI014 ;;1547356
|
|---|
| 64 | ENXGI015 ;;1399745
|
|---|
| 65 | ENXGI016 ;;9817966
|
|---|
| 66 | ENXGI017 ;;7429103
|
|---|
| 67 | ENXGI018 ;;1830276
|
|---|
| 68 | ENXGIEN ;;1762119
|
|---|
| 69 | ENXGINI1 ;;4919111
|
|---|
| 70 | ENXGINI2 ;;5232604
|
|---|
| 71 | ENXGINI3 ;;16807278
|
|---|
| 72 | ENXGINI4 ;;3357776
|
|---|
| 73 | ENXGINI5 ;;1160518
|
|---|
| 74 | ENXGINIT ;;10509737
|
|---|
| 75 | ENXGIPR ;;3413934
|
|---|
| 76 | ENXGIPS ;;7758629
|
|---|
| 77 | ENXGIPS1 ;;3267905
|
|---|
