DGNTEG02 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;AUG 13, 1993@12:48:50
;;5.3;Registration;;Aug 13, 1993
;;7.0;AUG 13, 1993@12:48:50
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^DGNTEG03
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 ;;
DGRP11 ;;8294458
DGRP12 ;;3878224
DGRP13 ;;4042382
DGRP14 ;;3414357
DGRP2 ;;5687059
DGRP3 ;;6045190
DGRP4 ;;6006447
DGRP5 ;;3651248
DGRP6 ;;12769961
DGRP7 ;;10164416
DGRP8 ;;9786787
DGRP9 ;;8611620
DGRPC ;;9490160
DGRPC1 ;;7285440
DGRPC2 ;;6788636
DGRPCB ;;10032754
DGRPCE ;;11950905
DGRPCE1 ;;2359715
DGRPCF ;;13054956
DGRPCF1 ;;5322740
DGRPCK ;;6781893
DGRPCP ;;6629895
DGRPCP1 ;;14708629
DGRPCR ;;13370363
DGRPCS ;;2207234
DGRPCU ;;7025466
DGRPD ;;18487072
DGRPDB ;;9197926
DGRPDD ;;180582
DGRPDD1 ;;18478647
DGRPE ;;17383383
DGRPE1 ;;3344769
DGRPEIS ;;8191344
DGRPEIS1 ;;13556361
DGRPEIS2 ;;11893137
DGRPH ;;19829950
DGRPP ;;9535796
DGRPP1 ;;3192660
DGRPU ;;5377007
DGRPU1 ;;1362026
DGRPV ;;8485976
DGRUG ;;9023592
DGRUG1 ;;16045481
DGRUG16 ;;10306836
DGRUGBGJ ;;11326839
DGRUGC ;;17107357
DGRUGC1 ;;9117879
DGRUGDR ;;12152536
DGRUGFY ;;5460196
DGRUGGR ;;4446753
DGRUGIX ;;19393192
DGRUGIX1 ;;12080525
DGRUGPI ;;8857351
DGRUGPP ;;8636321
DGRUGPP1 ;;16241252
DGRUGS ;;16239323
DGRUGSA ;;13168278
DGRUGTG ;;12003480
DGRUGV ;;16831058
DGRUGV16 ;;11568959
DGSCHAD ;;11855593
DGSCHAD1 ;;5279203
DGSCHAD2 ;;16582459
DGSCHAD3 ;;12873967
DGSEC ;;12027536
DGSEC1 ;;12952990
DGSEC2 ;;13301504
DGSEC3 ;;10468567
DGSILL ;;1170342
DGSTAT ;;13540071
DGSWITCH ;;4801176
DGTEMP ;;5715204
DGTSSET ;;5722826
DGUTL ;;10278535
DGUTL1 ;;4788876
DGUTL2 ;;2435936
DGUTQ ;;4355162
DGV53PP ;;937945
DGV53PP1 ;;10021088
DGV53PR ;;1184081
DGV53PT ;;7270084
DGV53PT1 ;;6052658
DGV53PT2 ;;4926374
DGV53PT3 ;;5358303
DGV53PT4 ;;7241372
DGV53PT5 ;;5954146
DGV53PT6 ;;5375205
DGV53PTA ;;6451369
DGV53PTB ;;12079323
DGV53PTC ;;9394754
DGV53PTE ;;3383899
DGV53PTI ;;15424312
DGV53PTS ;;7259153
DGVLT ;;9312675
DGVLT1 ;;9579567
DGVLT2 ;;10096823
DGVLT3 ;;18442
DGVPP ;;10598050
DGVPR ;;507647
DGVPR1 ;;4783856
DGVPT ;;7923401
DGVPT1 ;;10229318
DGVPT2 ;;5499296
DGVPT3 ;;4699681
DGVPTDV1 ;;5481697
DGVPTDV2 ;;1601036
DGVPTDV3 ;;4930494
DGVPTDV4 ;;2618970
DGVPTIB1 ;;7617714
DGVPTIB2 ;;12087500
DGVPTIB3 ;;2151696
DGVPTIB4 ;;994872
DGVPTIB5 ;;10220216
DGVPTIB6 ;;3753373
DGVREL ;;14267717
DGVREL1 ;;7176319
DGVREL2 ;;2872002
DGVREL3 ;;12383165
DGVREL4 ;;3695405
DGWAIT ;;10508645
DGWIN ;;2452439
DGYPREG ;;6374984
DGYPREG1 ;;10914894
DGYPREG2 ;;1774181
DGYPREG3 ;;1641824
DGYPREG4 ;;5887865
DGYPREG5 ;;3554814
DGYZODS ;;3383352
VACPT ;;638691
VADATE ;;5884810
VADPT ;;4275887
VADPT0 ;;3340074
VADPT1 ;;9482819
VADPT2 ;;7164844
VADPT3 ;;6362248
VADPT30 ;;8052693
VADPT31 ;;9090780
VADPT32 ;;2789771
VADPT4 ;;16234632
VADPT5 ;;14707739
VADPT6 ;;2486970
VADPT60 ;;9468124
VADPT61 ;;4347320
VADPT62 ;;8230515
VAFADDR ;;210594
VAFEDCAP ;;6832003
VAFEDG ;;9491142
VAFEDG1 ;;17677648
VAFEDOHL ;;5938878
VAFEDUTL ;;1765234
VAFHLFNC ;;2223766
VAFHLPID ;;5343968
VAFHLZCT ;;3460227
VAFHLZDP ;;1252517
VAFHLZEL ;;7009201
VAFHLZEM ;;4243653
VAFHLZGD ;;3072032
VAFHLZIC ;;6868384
VAFHLZMT ;;2818227
VAFHLZPD ;;6061838
VAFHLZTA ;;3013508
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGNTEG02 3799 printed Nov 22, 2024@17:56:13 Page 2
DGNTEG02 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;AUG 13, 1993@12:48:50
+1 ;;5.3;Registration;;Aug 13, 1993
+2 ;;7.0;AUG 13, 1993@12:48:50
+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^DGNTEG03
+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 ;;
DGRP11 ;;8294458
DGRP12 ;;3878224
DGRP13 ;;4042382
DGRP14 ;;3414357
DGRP2 ;;5687059
DGRP3 ;;6045190
DGRP4 ;;6006447
DGRP5 ;;3651248
DGRP6 ;;12769961
DGRP7 ;;10164416
DGRP8 ;;9786787
DGRP9 ;;8611620
DGRPC ;;9490160
DGRPC1 ;;7285440
DGRPC2 ;;6788636
DGRPCB ;;10032754
DGRPCE ;;11950905
DGRPCE1 ;;2359715
DGRPCF ;;13054956
DGRPCF1 ;;5322740
DGRPCK ;;6781893
DGRPCP ;;6629895
DGRPCP1 ;;14708629
DGRPCR ;;13370363
DGRPCS ;;2207234
DGRPCU ;;7025466
DGRPD ;;18487072
DGRPDB ;;9197926
DGRPDD ;;180582
DGRPDD1 ;;18478647
DGRPE ;;17383383
DGRPE1 ;;3344769
DGRPEIS ;;8191344
DGRPEIS1 ;;13556361
DGRPEIS2 ;;11893137
DGRPH ;;19829950
DGRPP ;;9535796
DGRPP1 ;;3192660
DGRPU ;;5377007
DGRPU1 ;;1362026
DGRPV ;;8485976
DGRUG ;;9023592
DGRUG1 ;;16045481
DGRUG16 ;;10306836
DGRUGBGJ ;;11326839
DGRUGC ;;17107357
DGRUGC1 ;;9117879
DGRUGDR ;;12152536
DGRUGFY ;;5460196
DGRUGGR ;;4446753
DGRUGIX ;;19393192
DGRUGIX1 ;;12080525
DGRUGPI ;;8857351
DGRUGPP ;;8636321
DGRUGPP1 ;;16241252
DGRUGS ;;16239323
DGRUGSA ;;13168278
DGRUGTG ;;12003480
DGRUGV ;;16831058
DGRUGV16 ;;11568959
DGSCHAD ;;11855593
DGSCHAD1 ;;5279203
DGSCHAD2 ;;16582459
DGSCHAD3 ;;12873967
DGSEC ;;12027536
DGSEC1 ;;12952990
DGSEC2 ;;13301504
DGSEC3 ;;10468567
DGSILL ;;1170342
DGSTAT ;;13540071
DGSWITCH ;;4801176
DGTEMP ;;5715204
DGTSSET ;;5722826
DGUTL ;;10278535
DGUTL1 ;;4788876
DGUTL2 ;;2435936
DGUTQ ;;4355162
DGV53PP ;;937945
DGV53PP1 ;;10021088
DGV53PR ;;1184081
DGV53PT ;;7270084
DGV53PT1 ;;6052658
DGV53PT2 ;;4926374
DGV53PT3 ;;5358303
DGV53PT4 ;;7241372
DGV53PT5 ;;5954146
DGV53PT6 ;;5375205
DGV53PTA ;;6451369
DGV53PTB ;;12079323
DGV53PTC ;;9394754
DGV53PTE ;;3383899
DGV53PTI ;;15424312
DGV53PTS ;;7259153
DGVLT ;;9312675
DGVLT1 ;;9579567
DGVLT2 ;;10096823
DGVLT3 ;;18442
DGVPP ;;10598050
DGVPR ;;507647
DGVPR1 ;;4783856
DGVPT ;;7923401
DGVPT1 ;;10229318
DGVPT2 ;;5499296
DGVPT3 ;;4699681
DGVPTDV1 ;;5481697
DGVPTDV2 ;;1601036
DGVPTDV3 ;;4930494
DGVPTDV4 ;;2618970
DGVPTIB1 ;;7617714
DGVPTIB2 ;;12087500
DGVPTIB3 ;;2151696
DGVPTIB4 ;;994872
DGVPTIB5 ;;10220216
DGVPTIB6 ;;3753373
DGVREL ;;14267717
DGVREL1 ;;7176319
DGVREL2 ;;2872002
DGVREL3 ;;12383165
DGVREL4 ;;3695405
DGWAIT ;;10508645
DGWIN ;;2452439
DGYPREG ;;6374984
DGYPREG1 ;;10914894
DGYPREG2 ;;1774181
DGYPREG3 ;;1641824
DGYPREG4 ;;5887865
DGYPREG5 ;;3554814
DGYZODS ;;3383352
VACPT ;;638691
VADATE ;;5884810
VADPT ;;4275887
VADPT0 ;;3340074
VADPT1 ;;9482819
VADPT2 ;;7164844
VADPT3 ;;6362248
VADPT30 ;;8052693
VADPT31 ;;9090780
VADPT32 ;;2789771
VADPT4 ;;16234632
VADPT5 ;;14707739
VADPT6 ;;2486970
VADPT60 ;;9468124
VADPT61 ;;4347320
VADPT62 ;;8230515
VAFADDR ;;210594
VAFEDCAP ;;6832003
VAFEDG ;;9491142
VAFEDG1 ;;17677648
VAFEDOHL ;;5938878
VAFEDUTL ;;1765234
VAFHLFNC ;;2223766
VAFHLPID ;;5343968
VAFHLZCT ;;3460227
VAFHLZDP ;;1252517
VAFHLZEL ;;7009201
VAFHLZEM ;;4243653
VAFHLZGD ;;3072032
VAFHLZIC ;;6868384
VAFHLZMT ;;2818227
VAFHLZPD ;;6061838
VAFHLZTA ;;3013508
