ENXJNTE1 ;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")
 ;
 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 ;;
ENXJI08H ;;7927825
ENXJI08I ;;7808269
ENXJI08J ;;8143994
ENXJI08K ;;8456727
ENXJI08L ;;8286886
ENXJI08M ;;8672171
ENXJI08N ;;8588618
ENXJI08O ;;8146992
ENXJI08P ;;8287852
ENXJI08Q ;;8576089
ENXJI08R ;;8085921
ENXJI08S ;;7762769
ENXJI08T ;;7810068
ENXJI08U ;;7829251
ENXJI08V ;;8364309
ENXJI08W ;;8278178
ENXJI08X ;;7575724
ENXJI08Y ;;8022682
ENXJI08Z ;;8039831
ENXJI090 ;;8066683
ENXJI091 ;;8084874
ENXJI092 ;;7798399
ENXJI093 ;;7848813
ENXJI094 ;;7535336
ENXJI095 ;;8093660
ENXJI096 ;;7885012
ENXJI097 ;;7811180
ENXJI098 ;;8146940
ENXJI099 ;;7650286
ENXJI09A ;;7947828
ENXJI09B ;;7364596
ENXJI09C ;;8294421
ENXJI09D ;;8507585
ENXJI09E ;;8166604
ENXJI09F ;;7827176
ENXJI09G ;;7753594
ENXJI09H ;;7474515
ENXJI09I ;;7739401
ENXJI09J ;;7908222
ENXJI09K ;;8114534
ENXJI09L ;;8117661
ENXJI09M ;;8149708
ENXJI09N ;;7483379
ENXJI09O ;;7784832
ENXJI09P ;;7710177
ENXJI09Q ;;7840164
ENXJI09R ;;7704308
ENXJI09S ;;8011880
ENXJI09T ;;7771562
ENXJI09U ;;7694141
ENXJI09V ;;8119736
ENXJI09W ;;7951875
ENXJI09X ;;7633808
ENXJI09Y ;;7368209
ENXJI09Z ;;8033896
ENXJI0A0 ;;8292377
ENXJI0A1 ;;8103310
ENXJI0A2 ;;8194825
ENXJI0A3 ;;8155045
ENXJI0A4 ;;8421130
ENXJI0A5 ;;8529120
ENXJI0A6 ;;8302221
ENXJI0A7 ;;7891030
ENXJI0A8 ;;8193676
ENXJI0A9 ;;8190722
ENXJI0AA ;;8064996
ENXJI0AB ;;8152576
ENXJI0AC ;;8228550
ENXJI0AD ;;8462392
ENXJI0AE ;;8513547
ENXJI0AF ;;8197303
ENXJI0AG ;;8314183
ENXJI0AH ;;8221350
ENXJI0AI ;;8454943
ENXJI0AJ ;;7969663
ENXJI0AK ;;8571856
ENXJI0AL ;;8168697
ENXJI0AM ;;7881636
ENXJI0AN ;;2872208
ENXJI0AO ;;2412902
ENXJIEN ;;1666996
ENXJINI1 ;;4911521
ENXJINI2 ;;5232616
ENXJINI3 ;;16807464
ENXJINI4 ;;3357788
ENXJINI5 ;;493182
ENXJINIT ;;10491430
ENXJIPR ;;2866513
ENXJIPR1 ;;8203579
ENXJIPR2 ;;8172226
ENXJIPR3 ;;8249441
ENXJIPR4 ;;8198488
ENXJIPR5 ;;8187647
ENXJIPR6 ;;8211398
ENXJIPR7 ;;7136897
ENXJIPS ;;5487287
ENXJIPS1 ;;8189316
ENXJIPS2 ;;7302530