- 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 Jan 18, 2025@03:43:49 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