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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGNTEG01 3785 printed Sep 23, 2025@20:22:06 Page 2
DGNTEG01 ;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^DGNTEG02
+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 ;;
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
