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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HENNTEG 3759 printed Sep 15, 2024@21:18:42 Page 2
ENNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;AUG 20, 1993@12:21:45
+1 ;;0.0;
+2 ;;7.0;AUG 20, 1993@12:21:45
+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^ENNTEG0
+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 ;;
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