174 lines
3.5 KiB
Mathematica
174 lines
3.5 KiB
Mathematica
ENNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;AUG 20, 1993@12:21:45
|
|
;;0.0;
|
|
;;7.0;AUG 20, 1993@12:21:45
|
|
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^ENNTEG0
|
|
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 ;;
|
|
EN ;;4938515
|
|
ENAR ;;4431979
|
|
ENAR1 ;;11871100
|
|
ENAR2 ;;1956328
|
|
ENARG ;;12454624
|
|
ENARG1 ;;10340652
|
|
ENARG2 ;;3342843
|
|
ENARG21 ;;8950920
|
|
ENARG22 ;;2185436
|
|
ENARGO ;;12073974
|
|
ENARGR ;;10074633
|
|
ENARL ;;6031740
|
|
ENARY101 ;;8216312
|
|
ENARY102 ;;3454122
|
|
ENARY11 ;;6231668
|
|
ENARY12 ;;3385721
|
|
ENARY13 ;;3062569
|
|
ENARY14 ;;9343114
|
|
ENARY201 ;;9975781
|
|
ENARY202 ;;15589237
|
|
ENARY203 ;;8196720
|
|
ENARY21 ;;6261664
|
|
ENARY22 ;;3569758
|
|
ENARY23 ;;3062575
|
|
ENARY24 ;;9343120
|
|
ENBCPM ;;3638063
|
|
ENBCPM1 ;;13549362
|
|
ENBCPM2 ;;6031204
|
|
ENBCPM3 ;;9064950
|
|
ENBCPM4 ;;9596301
|
|
ENBCPM5 ;;11484758
|
|
ENBCPM6 ;;4953530
|
|
ENBCPM7 ;;7941452
|
|
ENBCPM8 ;;2186844
|
|
ENBCPM9 ;;2873183
|
|
ENCTBAR ;;5687234
|
|
ENCTFLD ;;5724601
|
|
ENCTLAB ;;5178388
|
|
ENCTMAN ;;4414940
|
|
ENCTMES1 ;;6006739
|
|
ENCTMES2 ;;1519431
|
|
ENCTPRG ;;3043163
|
|
ENCTQUES ;;4002140
|
|
ENCTRCH ;;8407760
|
|
ENCTREAD ;;16551995
|
|
ENCTRED ;;12095305
|
|
ENCTTI ;;2160648
|
|
ENCTUTL ;;4206790
|
|
ENEQ ;;3683192
|
|
ENEQ1 ;;15475812
|
|
ENEQ2 ;;9230615
|
|
ENEQCMR ;;7911609
|
|
ENEQHS ;;10570477
|
|
ENEQNX ;;3531149
|
|
ENEQNX1 ;;9966591
|
|
ENEQNX2 ;;5226292
|
|
ENEQNX3 ;;11743073
|
|
ENEQNX4 ;;7713903
|
|
ENEQNX5 ;;2603248
|
|
ENEQP ;;6605681
|
|
ENEQP1 ;;688458
|
|
ENEQPMP ;;15856392
|
|
ENEQPMP1 ;;10411981
|
|
ENEQPMP2 ;;2126362
|
|
ENEQPMP3 ;;13277582
|
|
ENEQPMR ;;3478732
|
|
ENEQPMR1 ;;12627078
|
|
ENEQPMR2 ;;18212122
|
|
ENEQPMR3 ;;13149321
|
|
ENEQPMR4 ;;14556251
|
|
ENEQPMR5 ;;13179441
|
|
ENEQPMR6 ;;19977814
|
|
ENEQPMS ;;3641624
|
|
ENEQPMS1 ;;19804179
|
|
ENEQPMS2 ;;10467421
|
|
ENEQPMS3 ;;5620243
|
|
ENEQPMS4 ;;18118122
|
|
ENEQPMS5 ;;15643787
|
|
ENEQPMS6 ;;5204081
|
|
ENEQPMS7 ;;14854573
|
|
ENEQPMS8 ;;7326330
|
|
ENEQRP ;;3693556
|
|
ENEQRP1 ;;10562964
|
|
ENEQRP2 ;;10365465
|
|
ENEQRP3 ;;8672209
|
|
ENEQRP4 ;;5918859
|
|
ENEQRP5 ;;6086341
|
|
ENEQRPI ;;9865436
|
|
ENETRAN ;;4039043
|
|
ENETRAN1 ;;11679240
|
|
ENETRAN2 ;;4333961
|
|
ENEWOD ;;5495583
|
|
ENEWOD1 ;;5251799
|
|
ENFSA ;;7314584
|
|
ENFSA1 ;;5548335
|
|
ENFSA2 ;;5319649
|
|
ENJ ;;6133268
|
|
ENJC2 ;;8912737
|
|
ENJDPL ;;7674160
|
|
ENJINJ ;;11938160
|
|
ENJINJ1 ;;8955976
|
|
ENJINJ2 ;;4028275
|
|
ENJINJ3 ;;1559977
|
|
ENJINK ;;4413907
|
|
ENJINQ ;;11064638
|
|
ENJMUL ;;8552821
|
|
ENJPARAM ;;2694588
|
|
ENLBL ;;3135966
|
|
ENLBL1 ;;3245151
|
|
ENLBL10 ;;14378355
|
|
ENLBL11 ;;7160263
|
|
ENLBL12 ;;13421987
|
|
ENLBL15 ;;12572513
|
|
ENLBL16 ;;1826387
|
|
ENLBL2 ;;3418306
|
|
ENLBL3 ;;10033853
|
|
ENLBL4 ;;13077812
|
|
ENLBL5 ;;13751323
|
|
ENLBL6 ;;12095536
|
|
ENLBL7 ;;4062804
|
|
ENLBL8 ;;8234100
|
|
ENLBL9 ;;10853901
|
|
ENLIB ;;6814617
|
|
ENLIB1 ;;9070707
|
|
ENLIB2 ;;8379485
|
|
ENMAN ;;5576464
|
|
ENNEWPK2 ;;5397991
|
|
ENNEWPKG ;;3718383
|
|
ENPL1 ;;570844
|
|
ENPL10 ;;3212501
|
|
ENPL11 ;;741836
|
|
ENPL1A ;;4660189
|
|
ENPL2 ;;1954959
|
|
ENPL3 ;;5279839
|
|
ENPL3A ;;6695082
|
|
ENPL3B ;;5892963
|
|
ENPL4 ;;2500320
|
|
ENPL5 ;;6174517
|
|
ENPL5A ;;7212529
|
|
ENPL5B ;;7246310
|
|
ENPL5C ;;1776100
|
|
ENPL6 ;;629956
|
|
ENPL7 ;;7630291
|
|
ENPL7A ;;2540563
|
|
ENPL7B ;;7246249
|
|
ENPL7C ;;3950594
|
|
ENPL8 ;;5044355
|
|
ENPL8A ;;4072945
|
|
ENPL9 ;;4550205
|
|
ENPOST ;;6322701
|
|
ENPROJ ;;10601112
|
|
ENPROJ1 ;;3824567
|
|
ENPROJ2 ;;7500311
|
|
ENPROJ3 ;;5258779
|
|
ENPROJ7 ;;6977689
|
|
ENPROJ8 ;;10562136
|
|
ENPROJ9 ;;1570570
|
|
ENPRP ;;5660213
|
|
ENPRP1 ;;9519708
|
|
ENPRP2 ;;9986033
|
|
ENPRP3 ;;7038858
|
|
ENPRP4 ;;4795223
|