TIUNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2970620.123138
;;1.0;TEXT INTEGRATION UTILITIES;;Jun 20, 1997
;;7.3;2970620.123138
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^TIUNTEG0
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 ;;
TIUADD ;;7939178
TIUALRT ;;7724825
TIUAPIOK ;;3873064
TIUAUDIT ;;1559021
TIUBPEDT ;;508305
TIUBR ;;16765412
TIUBRWS ;;1237447
TIUCHLP ;;5315023
TIUCNSLT ;;3238172
TIUDD ;;6376918
TIUDD0 ;;21480632
TIUDD01 ;;20076138
TIUDD8 ;;2520260
TIUDD98 ;;3931207
TIUDEV ;;663743
TIUDIRH ;;6774537
TIUDIRT ;;4819153
TIUDPEDT ;;536132
TIUDSCNV ;;16495251
TIUEDI1 ;;12991861
TIUEDI2 ;;2954081
TIUEDIH ;;2975
TIUEDIM ;;4154959
TIUEDIT ;;15928365
TIUEDITR ;;3870968
TIUELST ;;6772054
TIUENV ;;2421536
TIUEPRNT ;;2624119
TIUFA ;;7724519
TIUFA1 ;;8087670
TIUFC ;;16465224
TIUFC1 ;;19039288
TIUFD ;;13475272
TIUFD1 ;;7389491
TIUFD2 ;;9547245
TIUFD3 ;;14786473
TIUFD4 ;;10720702
TIUFH ;;4847823
TIUFH1 ;;8382917
TIUFHA ;;11209902
TIUFHA1 ;;16234597
TIUFHA2 ;;20808986
TIUFHA3 ;;15228639
TIUFHA4 ;;12217790
TIUFHA5 ;;12641740
TIUFHA6 ;;12852158
TIUFHLP ;;18092533
TIUFHLP1 ;;7453350
TIUFJ ;;1653738
TIUFL ;;8221970
TIUFL1 ;;9625979
TIUFLA ;;6405212
TIUFLA1 ;;2988344
TIUFLD ;;11125322
TIUFLD1 ;;4692678
TIUFLF ;;4692333
TIUFLF1 ;;16152310
TIUFLF2 ;;6745681
TIUFLF3 ;;15793790
TIUFLF4 ;;5459448
TIUFLF5 ;;11369224
TIUFLF6 ;;8814847
TIUFLF7 ;;9734560
TIUFLF8 ;;9404495
TIUFLJ ;;12909079
TIUFLJ1 ;;3627713
TIUFLLM ;;2495187
TIUFLLM1 ;;6144428
TIUFLLM2 ;;12502975
TIUFLLM3 ;;2548
TIUFLT ;;3650017
TIUFLX ;;12531676
TIUFPR ;;9166442
TIUFT ;;14588286
TIUFT1 ;;10470637
TIUFX ;;3844855
TIUFXHL1 ;;9104209
TIUFXHLX ;;18092984
TIUHELP ;;4390368
TIUIL ;;10707933
TIUIL1 ;;10268200
TIUIL10 ;;7628768
TIUIL2 ;;11877224
TIUIL3 ;;10819358
TIUIL4 ;;9431475
TIUIL5 ;;11262828
TIUIL6 ;;9326742
TIUIL7 ;;9797774
TIUIL8 ;;11200556
TIUIL9 ;;9274343
TIULA ;;9753874
TIULA1 ;;6870970
TIULA2 ;;11422552
TIULA3 ;;3916214
TIULA4 ;;4078327
TIULAB ;;2641708
TIULADR ;;929390
TIULAPI ;;2326288
TIULAPIC ;;1609587
TIULAPIS ;;2575326
TIULC ;;8062118
TIULC1 ;;5470005
TIULD ;;4208524
TIULE ;;1891756
TIULEXP ;;835975
TIULF ;;2643087
TIULG ;;2290558
TIULIP ;;1481077
TIULM ;;1683142
TIULMED ;;1603954
TIULO ;;10506939
TIULO1 ;;1280434
TIULP ;;5129626
TIULP1 ;;9230018
TIULQ ;;4047639
TIULQ2 ;;2252073
TIULS ;;6580172
TIULS1 ;;1692
TIULV ;;8064646
TIULX ;;3630728
TIUMOVE ;;6394806
TIUPD ;;7130073
TIUPEDSP ;;452634
TIUPEFIX ;;8681313
TIUPEVN1 ;;629456
TIUPEVNT ;;12440029
TIUPL ;;1185
TIUPLST ;;6597575
TIUPNAPI ;;2629902
TIUPNCV ;;11015132
TIUPNCV1 ;;4045073
TIUPNCV2 ;;9243409
TIUPNCV3 ;;6588806
TIUPNCV4 ;;7285743
TIUPNCV5 ;;6195313
TIUPNCV6 ;;4479485
TIUPNCV7 ;;5344754
TIUPNCV8 ;;6071067
TIUPNCVX ;;6339101
TIUPOST ;;1636376
TIUPRD ;;3348806
TIUPRDS ;;2346057
TIUPRDS1 ;;16479696
TIUPRDS2 ;;4555312
TIUPREF ;;449069
TIUPRPN ;;1209356
TIUPRPN1 ;;14535169
TIUPRPN2 ;;3472106
TIUPRPN3 ;;6243546
TIUPRPN4 ;;3435921
TIUPRPN5 ;;8277668
TIUPRPN6 ;;4171463
TIUPRPN7 ;;9719095
TIUPUTC ;;11775034
TIUPUTD ;;6772714
TIUPUTPN ;;6063243
TIUPUTU ;;5268373
TIUPXAP1 ;;5360722
TIUPXAP2 ;;2016671
TIUPXAPC ;;6952381
TIUPXAPI ;;11865817
TIUPXAPS ;;2373559
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIUNTEG 3797 printed Dec 13, 2024@02:42:40 Page 2
TIUNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2970620.123138
+1 ;;1.0;TEXT INTEGRATION UTILITIES;;Jun 20, 1997
+2 ;;7.3;2970620.123138
+3 SET XT4="I 1"
SET X=$TEXT(+3)
WRITE !!,"Checksum routine created on ",$PIECE(X,";",4)," by KERNEL V",$PIECE(X,";",3),!
CONT FOR XT1=1:1
SET XT2=$TEXT(ROU+XT1)
if XT2=""
QUIT
SET X=$PIECE(XT2," ",1)
SET XT3=$PIECE(XT2,";",3)
XECUTE XT4
IF $TEST
WRITE !,X
XECUTE ^%ZOSF("TEST")
if '$TEST
SET XT3=0
if XT3
XECUTE ^%ZOSF("RSUM")
WRITE ?10,$SELECT('XT3:"Routine not in UCI",XT3'=Y:"Calculated "_$CHAR(7)_Y_", off by "_(Y-XT3),1:"ok")
+1 GOTO CONT^TIUNTEG0
+2 KILL %1,%2,%3,X,Y,XT1,XT2,XT3,XT4
QUIT
ONE SET XT4="I $D(^UTILITY($J,X))"
SET X=$TEXT(+3)
WRITE !!,"Checksum routine created on ",$PIECE(X,";",4)," by KERNEL V",$PIECE(X,";",3),!
+1 WRITE !,"Check a subset of routines:"
KILL ^UTILITY($JOB)
XECUTE ^%ZOSF("RSEL")
+2 WRITE !
GOTO CONT
ROU ;;
TIUADD ;;7939178
TIUALRT ;;7724825
TIUAPIOK ;;3873064
TIUAUDIT ;;1559021
TIUBPEDT ;;508305
TIUBR ;;16765412
TIUBRWS ;;1237447
TIUCHLP ;;5315023
TIUCNSLT ;;3238172
TIUDD ;;6376918
TIUDD0 ;;21480632
TIUDD01 ;;20076138
TIUDD8 ;;2520260
TIUDD98 ;;3931207
TIUDEV ;;663743
TIUDIRH ;;6774537
TIUDIRT ;;4819153
TIUDPEDT ;;536132
TIUDSCNV ;;16495251
TIUEDI1 ;;12991861
TIUEDI2 ;;2954081
TIUEDIH ;;2975
TIUEDIM ;;4154959
TIUEDIT ;;15928365
TIUEDITR ;;3870968
TIUELST ;;6772054
TIUENV ;;2421536
TIUEPRNT ;;2624119
TIUFA ;;7724519
TIUFA1 ;;8087670
TIUFC ;;16465224
TIUFC1 ;;19039288
TIUFD ;;13475272
TIUFD1 ;;7389491
TIUFD2 ;;9547245
TIUFD3 ;;14786473
TIUFD4 ;;10720702
TIUFH ;;4847823
TIUFH1 ;;8382917
TIUFHA ;;11209902
TIUFHA1 ;;16234597
TIUFHA2 ;;20808986
TIUFHA3 ;;15228639
TIUFHA4 ;;12217790
TIUFHA5 ;;12641740
TIUFHA6 ;;12852158
TIUFHLP ;;18092533
TIUFHLP1 ;;7453350
TIUFJ ;;1653738
TIUFL ;;8221970
TIUFL1 ;;9625979
TIUFLA ;;6405212
TIUFLA1 ;;2988344
TIUFLD ;;11125322
TIUFLD1 ;;4692678
TIUFLF ;;4692333
TIUFLF1 ;;16152310
TIUFLF2 ;;6745681
TIUFLF3 ;;15793790
TIUFLF4 ;;5459448
TIUFLF5 ;;11369224
TIUFLF6 ;;8814847
TIUFLF7 ;;9734560
TIUFLF8 ;;9404495
TIUFLJ ;;12909079
TIUFLJ1 ;;3627713
TIUFLLM ;;2495187
TIUFLLM1 ;;6144428
TIUFLLM2 ;;12502975
TIUFLLM3 ;;2548
TIUFLT ;;3650017
TIUFLX ;;12531676
TIUFPR ;;9166442
TIUFT ;;14588286
TIUFT1 ;;10470637
TIUFX ;;3844855
TIUFXHL1 ;;9104209
TIUFXHLX ;;18092984
TIUHELP ;;4390368
TIUIL ;;10707933
TIUIL1 ;;10268200
TIUIL10 ;;7628768
TIUIL2 ;;11877224
TIUIL3 ;;10819358
TIUIL4 ;;9431475
TIUIL5 ;;11262828
TIUIL6 ;;9326742
TIUIL7 ;;9797774
TIUIL8 ;;11200556
TIUIL9 ;;9274343
TIULA ;;9753874
TIULA1 ;;6870970
TIULA2 ;;11422552
TIULA3 ;;3916214
TIULA4 ;;4078327
TIULAB ;;2641708
TIULADR ;;929390
TIULAPI ;;2326288
TIULAPIC ;;1609587
TIULAPIS ;;2575326
TIULC ;;8062118
TIULC1 ;;5470005
TIULD ;;4208524
TIULE ;;1891756
TIULEXP ;;835975
TIULF ;;2643087
TIULG ;;2290558
TIULIP ;;1481077
TIULM ;;1683142
TIULMED ;;1603954
TIULO ;;10506939
TIULO1 ;;1280434
TIULP ;;5129626
TIULP1 ;;9230018
TIULQ ;;4047639
TIULQ2 ;;2252073
TIULS ;;6580172
TIULS1 ;;1692
TIULV ;;8064646
TIULX ;;3630728
TIUMOVE ;;6394806
TIUPD ;;7130073
TIUPEDSP ;;452634
TIUPEFIX ;;8681313
TIUPEVN1 ;;629456
TIUPEVNT ;;12440029
TIUPL ;;1185
TIUPLST ;;6597575
TIUPNAPI ;;2629902
TIUPNCV ;;11015132
TIUPNCV1 ;;4045073
TIUPNCV2 ;;9243409
TIUPNCV3 ;;6588806
TIUPNCV4 ;;7285743
TIUPNCV5 ;;6195313
TIUPNCV6 ;;4479485
TIUPNCV7 ;;5344754
TIUPNCV8 ;;6071067
TIUPNCVX ;;6339101
TIUPOST ;;1636376
TIUPRD ;;3348806
TIUPRDS ;;2346057
TIUPRDS1 ;;16479696
TIUPRDS2 ;;4555312
TIUPREF ;;449069
TIUPRPN ;;1209356
TIUPRPN1 ;;14535169
TIUPRPN2 ;;3472106
TIUPRPN3 ;;6243546
TIUPRPN4 ;;3435921
TIUPRPN5 ;;8277668
TIUPRPN6 ;;4171463
TIUPRPN7 ;;9719095
TIUPUTC ;;11775034
TIUPUTD ;;6772714
TIUPUTPN ;;6063243
TIUPUTU ;;5268373
TIUPXAP1 ;;5360722
TIUPXAP2 ;;2016671
TIUPXAPC ;;6952381
TIUPXAPI ;;11865817
TIUPXAPS ;;2373559
