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