ENXJNTEG ;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^ENXJNTE0
 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 ;;
ENXJI001 ;;7396841
ENXJI002 ;;8054337
ENXJI003 ;;7748082
ENXJI004 ;;8245669
ENXJI005 ;;7991510
ENXJI006 ;;8343436
ENXJI007 ;;7971802
ENXJI008 ;;7943723
ENXJI009 ;;8035135
ENXJI00A ;;8060167
ENXJI00B ;;7819708
ENXJI00C ;;7972050
ENXJI00D ;;7867699
ENXJI00E ;;8003844
ENXJI00F ;;8355389
ENXJI00G ;;8490006
ENXJI00H ;;7526714
ENXJI00I ;;7885709
ENXJI00J ;;7965158
ENXJI00K ;;8547932
ENXJI00L ;;8164818
ENXJI00M ;;7980845
ENXJI00N ;;8151309
ENXJI00O ;;7803413
ENXJI00P ;;7823211
ENXJI00Q ;;7843016
ENXJI00R ;;8199590
ENXJI00S ;;8232428
ENXJI00T ;;8068739
ENXJI00U ;;8131257
ENXJI00V ;;8072719
ENXJI00W ;;7829847
ENXJI00X ;;8126532
ENXJI00Y ;;7789520
ENXJI00Z ;;8048776
ENXJI010 ;;8307699
ENXJI011 ;;7980293
ENXJI012 ;;8570462
ENXJI013 ;;7932208
ENXJI014 ;;8078990
ENXJI015 ;;8066315
ENXJI016 ;;7835738
ENXJI017 ;;8541178
ENXJI018 ;;7989580
ENXJI019 ;;8060414
ENXJI01A ;;7848248
ENXJI01B ;;8067832
ENXJI01C ;;7982313
ENXJI01D ;;8056481
ENXJI01E ;;7970124
ENXJI01F ;;8312556
ENXJI01G ;;8179010
ENXJI01H ;;8269429
ENXJI01I ;;8052155
ENXJI01J ;;8390051
ENXJI01K ;;8457906
ENXJI01L ;;7943054
ENXJI01M ;;8187617
ENXJI01N ;;8363958
ENXJI01O ;;8436550
ENXJI01P ;;8021669
ENXJI01Q ;;7711492
ENXJI01R ;;8396776
ENXJI01S ;;8323150
ENXJI01T ;;8036951
ENXJI01U ;;8128276
ENXJI01V ;;8275726
ENXJI01W ;;8129400
ENXJI01X ;;7913518
ENXJI01Y ;;8203144
ENXJI01Z ;;7870180
ENXJI020 ;;8307528
ENXJI021 ;;8069974
ENXJI022 ;;7477285
ENXJI023 ;;8007370
ENXJI024 ;;7941676
ENXJI025 ;;7896308
ENXJI026 ;;7480678
ENXJI027 ;;7731745
ENXJI028 ;;8299463
ENXJI029 ;;8108638
ENXJI02A ;;8286303
ENXJI02B ;;8546701
ENXJI02C ;;8215908
ENXJI02D ;;8075159
ENXJI02E ;;8335781
ENXJI02F ;;8349849
ENXJI02G ;;7945444
ENXJI02H ;;7427646
ENXJI02I ;;8225123
ENXJI02J ;;8138227
ENXJI02K ;;7939930
ENXJI02L ;;7997012
ENXJI02M ;;7935136
ENXJI02N ;;8307865
ENXJI02O ;;8226616
ENXJI02P ;;7979997
ENXJI02Q ;;8488542
ENXJI02R ;;8452020
ENXJI02S ;;8201242
ENXJI02T ;;8498821
ENXJI02U ;;7926197
ENXJI02V ;;8692377
ENXJI02W ;;7916520
ENXJI02X ;;7969373
ENXJI02Y ;;8183535
ENXJI02Z ;;7730032
ENXJI030 ;;8250404
ENXJI031 ;;8116848
ENXJI032 ;;8230104
ENXJI033 ;;8295878
ENXJI034 ;;8322190
ENXJI035 ;;8359227
ENXJI036 ;;8400957
ENXJI037 ;;8019033
ENXJI038 ;;8084287
ENXJI039 ;;7953462
ENXJI03A ;;7945310
ENXJI03B ;;8265465
ENXJI03C ;;8253118
ENXJI03D ;;8303903
ENXJI03E ;;8126451
ENXJI03F ;;8607341
ENXJI03G ;;8840183
ENXJI03H ;;8398680
ENXJI03I ;;8377427
ENXJI03J ;;8338952
ENXJI03K ;;8501069
ENXJI03L ;;8198715
ENXJI03M ;;8107718
ENXJI03N ;;8201029
ENXJI03O ;;8534990
ENXJI03P ;;8304605
ENXJI03Q ;;8567177
ENXJI03R ;;8238542
ENXJI03S ;;8256490
ENXJI03T ;;8169961
ENXJI03U ;;8342040
ENXJI03V ;;8266794
ENXJI03W ;;8390358
ENXJI03X ;;8041067
ENXJI03Y ;;8225473
ENXJI03Z ;;8076503
ENXJI040 ;;8050820
ENXJI041 ;;8289879
ENXJI042 ;;8187421
ENXJI043 ;;8132901
ENXJI044 ;;8403796
ENXJI045 ;;8360546
ENXJI046 ;;8274746
ENXJI047 ;;8033399
ENXJI048 ;;8506728