168 lines
3.5 KiB
Mathematica
168 lines
3.5 KiB
Mathematica
DGNTEG01 ;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^DGNTEG02
|
|
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 ;;
|
|
DGPT101 ;;5907818
|
|
DGPT101P ;;3798684
|
|
DGPT10CB ;;1729817
|
|
DGPT10S1 ;;3094591
|
|
DGPT401 ;;5591382
|
|
DGPT501 ;;5260058
|
|
DGPT501P ;;3264888
|
|
DGPT50DI ;;2517717
|
|
DGPT50MS ;;2873112
|
|
DGPT535 ;;4142601
|
|
DGPT601 ;;7292814
|
|
DGPT60PR ;;1981670
|
|
DGPT701 ;;5282484
|
|
DGPT701P ;;2717219
|
|
DGPT702 ;;2080928
|
|
DGPT70DI ;;4404595
|
|
DGPT70DX ;;1522145
|
|
DGPTAE ;;7133682
|
|
DGPTAE01 ;;2981200
|
|
DGPTAE02 ;;5283812
|
|
DGPTAE03 ;;4610359
|
|
DGPTAE04 ;;2501495
|
|
DGPTAEE ;;4527426
|
|
DGPTAEE1 ;;10933098
|
|
DGPTAEE2 ;;8130188
|
|
DGPTAPA ;;3668483
|
|
DGPTAPA1 ;;2058101
|
|
DGPTAPA2 ;;3180242
|
|
DGPTAPA3 ;;1924386
|
|
DGPTAPA4 ;;7077869
|
|
DGPTAPP ;;1806977
|
|
DGPTAPP1 ;;1210249
|
|
DGPTAPSL ;;4997510
|
|
DGPTBE1 ;;19023447
|
|
DGPTBE2 ;;1835542
|
|
DGPTBEP ;;2267056
|
|
DGPTC ;;4801976
|
|
DGPTC1 ;;6075172
|
|
DGPTC2 ;;4499759
|
|
DGPTCO ;;882556
|
|
DGPTCO1 ;;5235526
|
|
DGPTCO2 ;;2096649
|
|
DGPTCR ;;9155987
|
|
DGPTCR1 ;;1454932
|
|
DGPTDRG ;;16922377
|
|
DGPTEXPR ;;411240
|
|
DGPTF ;;11140333
|
|
DGPTF099 ;;7885730
|
|
DGPTF09X ;;5455949
|
|
DGPTF1 ;;12620270
|
|
DGPTF2 ;;9722630
|
|
DGPTF4 ;;12842059
|
|
DGPTF41 ;;5073903
|
|
DGPTF5 ;;1141375
|
|
DGPTFCR ;;2856214
|
|
DGPTFD ;;7582771
|
|
DGPTFDEL ;;9517561
|
|
DGPTFFB ;;4903981
|
|
DGPTFIC ;;16299987
|
|
DGPTFJ ;;3694269
|
|
DGPTFJC ;;14917912
|
|
DGPTFM ;;15913403
|
|
DGPTFM0 ;;7287940
|
|
DGPTFM1 ;;10416822
|
|
DGPTFM1A ;;6717226
|
|
DGPTFM4 ;;14737446
|
|
DGPTFM5 ;;9123774
|
|
DGPTFM6 ;;13703468
|
|
DGPTFM7 ;;10979946
|
|
DGPTFM71 ;;3602514
|
|
DGPTFM8 ;;6077252
|
|
DGPTFMO ;;13407855
|
|
DGPTFMO1 ;;2034296
|
|
DGPTFOU ;;10424039
|
|
DGPTFQWK ;;4488650
|
|
DGPTFREL ;;5862675
|
|
DGPTFTR ;;9360869
|
|
DGPTFTR0 ;;8604225
|
|
DGPTFTR1 ;;13978628
|
|
DGPTFTR2 ;;9164992
|
|
DGPTFTR3 ;;9189207
|
|
DGPTFUP ;;9063283
|
|
DGPTFVC ;;2899739
|
|
DGPTFVC1 ;;15576437
|
|
DGPTFVC2 ;;3752572
|
|
DGPTFVC3 ;;5311979
|
|
DGPTICD ;;2389303
|
|
DGPTLMU1 ;;5302089
|
|
DGPTLMU2 ;;2608185
|
|
DGPTLMU3 ;;3024014
|
|
DGPTLMU4 ;;6778410
|
|
DGPTLMU5 ;;5680133
|
|
DGPTLMU6 ;;3759937
|
|
DGPTMOVE ;;18877814
|
|
DGPTMSG ;;12017144
|
|
DGPTMSG1 ;;3261790
|
|
DGPTMSGD ;;9430949
|
|
DGPTOD0 ;;19162109
|
|
DGPTOD1 ;;11029540
|
|
DGPTOD2 ;;14228151
|
|
DGPTOD3 ;;2871705
|
|
DGPTODA1 ;;14742631
|
|
DGPTODA2 ;;16102699
|
|
DGPTODB1 ;;14395071
|
|
DGPTODB2 ;;15732396
|
|
DGPTODF1 ;;14514216
|
|
DGPTODF2 ;;11051070
|
|
DGPTODI1 ;;17300458
|
|
DGPTODI2 ;;12886426
|
|
DGPTODI3 ;;16720767
|
|
DGPTODI4 ;;9696951
|
|
DGPTODR ;;4646557
|
|
DGPTODT1 ;;16541531
|
|
DGPTODT2 ;;11974266
|
|
DGPTOLC1 ;;4324462
|
|
DGPTOLC2 ;;17186117
|
|
DGPTOM1 ;;7629724
|
|
DGPTOM2 ;;15224903
|
|
DGPTOOL ;;566787
|
|
DGPTOTRL ;;13755835
|
|
DGPTR0 ;;8651144
|
|
DGPTR1 ;;15817363
|
|
DGPTR2 ;;8727510
|
|
DGPTR3 ;;2339687
|
|
DGPTR4 ;;4549097
|
|
DGPTRAM ;;1116833
|
|
DGPTRPO ;;9666225
|
|
DGPTRPP ;;7433732
|
|
DGPTSC01 ;;4070681
|
|
DGPTSCAN ;;6356675
|
|
DGPTSPQ ;;1563488
|
|
DGPTSUD1 ;;4459855
|
|
DGPTSUDO ;;11745732
|
|
DGPTTRIM ;;2747468
|
|
DGPTTS ;;11059200
|
|
DGPTTS0 ;;1798741
|
|
DGPTTS1 ;;16571126
|
|
DGPTTS2 ;;9851736
|
|
DGPTTS3 ;;10800315
|
|
DGPTUTL ;;7801401
|
|
DGPTUTL1 ;;7565068
|
|
DGQEMA ;;7098669
|
|
DGQEMA1 ;;8356696
|
|
DGQEMP ;;6074288
|
|
DGQEMPS ;;978157
|
|
DGREG ;;18978133
|
|
DGREG0 ;;9179398
|
|
DGREG00 ;;8411293
|
|
DGREGDD ;;117402
|
|
DGREGDD1 ;;2633914
|
|
DGREGDEL ;;2900374
|
|
DGREGE ;;10119241
|
|
DGREGG ;;3864793
|
|
DGRP ;;1060986
|
|
DGRP1 ;;10291468
|
|
DGRP10 ;;5397853
|