173 lines
3.5 KiB
Mathematica
173 lines
3.5 KiB
Mathematica
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
|