164 lines
3.5 KiB
Mathematica
164 lines
3.5 KiB
Mathematica
ENXJNTE0 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;FEB 26, 1996@14:03:14
|
|
;;7.0;ENGINEERING;**30**;AUG 17, 1993
|
|
;;7.2;FEB 26, 1996@14:03:14
|
|
S XT4="I 1",X=$T(+3) W !!,"Checksum routine created on ",$P(X,";",4)," by KERNEL V",$P(X,";",3),!
|
|
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")
|
|
G CONT^ENXJNTE1
|
|
K %1,%2,%3,X,Y,XT1,XT2,XT3,XT4 Q
|
|
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),!
|
|
W !,"Check a subset of routines:" K ^UTILITY($J) X ^%ZOSF("RSEL")
|
|
W ! G CONT
|
|
ROU ;;
|
|
ENXJI049 ;;8264747
|
|
ENXJI04A ;;8001102
|
|
ENXJI04B ;;8400014
|
|
ENXJI04C ;;8581691
|
|
ENXJI04D ;;8544541
|
|
ENXJI04E ;;8310060
|
|
ENXJI04F ;;8354584
|
|
ENXJI04G ;;8242171
|
|
ENXJI04H ;;8587769
|
|
ENXJI04I ;;8273839
|
|
ENXJI04J ;;8315561
|
|
ENXJI04K ;;8241985
|
|
ENXJI04L ;;8307131
|
|
ENXJI04M ;;8082469
|
|
ENXJI04N ;;8137613
|
|
ENXJI04O ;;7784268
|
|
ENXJI04P ;;7808977
|
|
ENXJI04Q ;;7830561
|
|
ENXJI04R ;;7924352
|
|
ENXJI04S ;;8192158
|
|
ENXJI04T ;;8142844
|
|
ENXJI04U ;;7530541
|
|
ENXJI04V ;;8135322
|
|
ENXJI04W ;;8293126
|
|
ENXJI04X ;;8323471
|
|
ENXJI04Y ;;8127927
|
|
ENXJI04Z ;;8013872
|
|
ENXJI050 ;;8044242
|
|
ENXJI051 ;;8067917
|
|
ENXJI052 ;;8252661
|
|
ENXJI053 ;;8436275
|
|
ENXJI054 ;;8480402
|
|
ENXJI055 ;;7820141
|
|
ENXJI056 ;;8336113
|
|
ENXJI057 ;;8324407
|
|
ENXJI058 ;;8056120
|
|
ENXJI059 ;;7986057
|
|
ENXJI05A ;;8069862
|
|
ENXJI05B ;;8309037
|
|
ENXJI05C ;;7942234
|
|
ENXJI05D ;;8124629
|
|
ENXJI05E ;;8177665
|
|
ENXJI05F ;;8132590
|
|
ENXJI05G ;;8223409
|
|
ENXJI05H ;;8081761
|
|
ENXJI05I ;;7941126
|
|
ENXJI05J ;;7966102
|
|
ENXJI05K ;;7961404
|
|
ENXJI05L ;;8209134
|
|
ENXJI05M ;;7929905
|
|
ENXJI05N ;;8002631
|
|
ENXJI05O ;;7666586
|
|
ENXJI05P ;;8026898
|
|
ENXJI05Q ;;7948970
|
|
ENXJI05R ;;8493105
|
|
ENXJI05S ;;8000200
|
|
ENXJI05T ;;8069269
|
|
ENXJI05U ;;8320150
|
|
ENXJI05V ;;8224719
|
|
ENXJI05W ;;8143147
|
|
ENXJI05X ;;8308780
|
|
ENXJI05Y ;;7884639
|
|
ENXJI05Z ;;8093854
|
|
ENXJI060 ;;7858871
|
|
ENXJI061 ;;7828218
|
|
ENXJI062 ;;7738161
|
|
ENXJI063 ;;7859140
|
|
ENXJI064 ;;8121038
|
|
ENXJI065 ;;8049423
|
|
ENXJI066 ;;7768324
|
|
ENXJI067 ;;8250939
|
|
ENXJI068 ;;8386029
|
|
ENXJI069 ;;7961723
|
|
ENXJI06A ;;8115637
|
|
ENXJI06B ;;7915710
|
|
ENXJI06C ;;7850339
|
|
ENXJI06D ;;7960402
|
|
ENXJI06E ;;8191709
|
|
ENXJI06F ;;8320568
|
|
ENXJI06G ;;7935616
|
|
ENXJI06H ;;8085329
|
|
ENXJI06I ;;8231153
|
|
ENXJI06J ;;8000896
|
|
ENXJI06K ;;7672720
|
|
ENXJI06L ;;7740908
|
|
ENXJI06M ;;7618423
|
|
ENXJI06N ;;7871641
|
|
ENXJI06O ;;7960497
|
|
ENXJI06P ;;8031710
|
|
ENXJI06Q ;;7828718
|
|
ENXJI06R ;;7888606
|
|
ENXJI06S ;;7895114
|
|
ENXJI06T ;;7873419
|
|
ENXJI06U ;;8211953
|
|
ENXJI06V ;;8157359
|
|
ENXJI06W ;;8436956
|
|
ENXJI06X ;;8129748
|
|
ENXJI06Y ;;7907023
|
|
ENXJI06Z ;;8268738
|
|
ENXJI070 ;;8205358
|
|
ENXJI071 ;;7849490
|
|
ENXJI072 ;;8030699
|
|
ENXJI073 ;;8259313
|
|
ENXJI074 ;;7923401
|
|
ENXJI075 ;;8286824
|
|
ENXJI076 ;;8347915
|
|
ENXJI077 ;;8280411
|
|
ENXJI078 ;;7764205
|
|
ENXJI079 ;;8170669
|
|
ENXJI07A ;;8219047
|
|
ENXJI07B ;;7729426
|
|
ENXJI07C ;;8224802
|
|
ENXJI07D ;;7900372
|
|
ENXJI07E ;;8266506
|
|
ENXJI07F ;;7941687
|
|
ENXJI07G ;;7952774
|
|
ENXJI07H ;;8201043
|
|
ENXJI07I ;;8102402
|
|
ENXJI07J ;;7875388
|
|
ENXJI07K ;;7996056
|
|
ENXJI07L ;;7732505
|
|
ENXJI07M ;;8131868
|
|
ENXJI07N ;;7919125
|
|
ENXJI07O ;;7936409
|
|
ENXJI07P ;;7967820
|
|
ENXJI07Q ;;8020266
|
|
ENXJI07R ;;7930200
|
|
ENXJI07S ;;7743453
|
|
ENXJI07T ;;7873024
|
|
ENXJI07U ;;7850759
|
|
ENXJI07V ;;7909400
|
|
ENXJI07W ;;8037277
|
|
ENXJI07X ;;8114530
|
|
ENXJI07Y ;;7985936
|
|
ENXJI07Z ;;8279181
|
|
ENXJI080 ;;7953353
|
|
ENXJI081 ;;8289046
|
|
ENXJI082 ;;8392467
|
|
ENXJI083 ;;8312372
|
|
ENXJI084 ;;8320277
|
|
ENXJI085 ;;7849251
|
|
ENXJI086 ;;7909072
|
|
ENXJI087 ;;7916533
|
|
ENXJI088 ;;8096453
|
|
ENXJI089 ;;8017810
|
|
ENXJI08A ;;8188906
|
|
ENXJI08B ;;8096381
|
|
ENXJI08C ;;8292208
|
|
ENXJI08D ;;8131652
|
|
ENXJI08E ;;7912632
|
|
ENXJI08F ;;8468905
|
|
ENXJI08G ;;8232994
|