DGNTEG ;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^DGNTEG0
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 ;;
DG10 ;;3836495
DG1010P ;;11459541
DG1010P0 ;;1314346
DG1010P1 ;;13799216
DG1010P2 ;;8453869
DG1010P3 ;;6164680
DG1010P4 ;;7181713
DG1010P5 ;;7501466
DG1010P6 ;;10096482
DG1010P7 ;;13314650
DG1010PA ;;4613202
DG1010PX ;;7715973
DG1010S1 ;;23821127
DG1010S2 ;;18364748
DG3PR ;;3021030
DG3PR0 ;;6620629
DG3PR1 ;;4522534
DG3PR2 ;;11690252
DGA400 ;;12138168
DGA4001 ;;16056644
DGA4002 ;;9301892
DGA4003 ;;7761246
DGA4004 ;;11609708
DGA4005 ;;17691249
DGA4006 ;;5787106
DGA4007 ;;2042305
DGABUL ;;7538472
DGAINP ;;3795864
DGAINP0 ;;7178330
DGAINP1 ;;9244036
DGAINP2 ;;8100096
DGAINP3 ;;2633278
DGAINP4 ;;8344622
DGANHD ;;3864476
DGANHD1 ;;7585149
DGANHD2 ;;4831283
DGANHD3 ;;1806372
DGANHD4 ;;6162588
DGBLRV ;;14119050
DGBT1 ;;7665616
DGBT2 ;;13095836
DGBTCD ;;13711638
DGBTCE ;;14849061
DGBTCE1 ;;5419607
DGBTCR ;;12532420
DGBTCR1 ;;8137574
DGBTCR2 ;;12956592
DGBTDIST ;;8481729
DGBTDST1 ;;2237098
DGBTE ;;8229618
DGBTE1 ;;8595661
DGBTE1A ;;6549070
DGBTEE ;;8216263
DGBTEE1 ;;11274715
DGBTEE2 ;;8101499
DGBTEF ;;15591466
DGBTEF1 ;;9005391
DGBTEND ;;12602292
DGBTOA1 ;;14177005
DGBTOA2 ;;11981540
DGBTOA3 ;;15389059
DGBTOA4 ;;15019918
DGBTOA5 ;;3360676
DGBTOA6 ;;9057573
DGBTR ;;9324442
DGBTSRCH ;;10574383
DGBTUTL ;;1356611
DGBUL ;;3656478
DGCOL ;;16970132
DGDDC ;;4818017
DGDEATH ;;12272750
DGDIS ;;14257393
DGDIS1 ;;5675861
DGDISPL ;;6977062
DGDISS ;;9364260
DGDIST ;;19344355
DGDIST1 ;;10706514
DGFI ;;3262670
DGGECS ;;16847352
DGGECSA ;;2782718
DGGECSB ;;6164870
DGGECSR ;;2816305
DGHELP ;;3815305
DGIN ;;50292
DGINP ;;180432
DGINPW ;;101051
DGINS ;;6190318
DGJBGJ ;;17066760
DGJBGJ1 ;;1611260
DGJOPRT ;;7505571
DGJOPRT1 ;;17207598
DGJOPRT2 ;;17870325
DGJOPRT3 ;;12022896
DGJOTP ;;12136251
DGJOTP1 ;;21753407
DGJOTP2 ;;12005300
DGJOTP3 ;;16818289
DGJOTPUL ;;9915514
DGJPAR ;;186014
DGJPAR1 ;;14281443
DGJPDEF ;;13686744
DGJPDEF1 ;;20529386
DGJPDEF2 ;;17990744
DGJPDEF3 ;;16274892
DGJSUM ;;7945437
DGJTADD ;;2567747
DGJTDEL ;;4511597
DGJTEE ;;19163376
DGJTEE1 ;;12664333
DGJTEE2 ;;12267113
DGJTEE3 ;;14306643
DGJTEVT ;;11368122
DGJTHLP ;;8474910
DGJTUDIS ;;4651950
DGJTUTL ;;16684941
DGJTVW ;;5612957
DGJTVW1 ;;17594153
DGJTVW2 ;;8809719
DGJTVW3 ;;12907948
DGL ;;133046
DGLOCK ;;15547998
DGLOCK1 ;;13313898
DGLOCK2 ;;11670599
DGLOCK3 ;;1575192
DGMTA ;;9764937
DGMTAUD ;;9480441
DGMTAUD1 ;;188063
DGMTCOM ;;1549753
DGMTCOR ;;5288938
DGMTCOST ;;985361
DGMTCOU ;;2047092
DGMTCOU1 ;;3669588
DGMTDD ;;5296793
DGMTDD1 ;;1993635
DGMTDD2 ;;11706743
DGMTDD3 ;;8997689
DGMTDEL ;;9696857
DGMTDOM ;;363545
DGMTE ;;2602899
DGMTEO ;;3308362
DGMTEVT ;;390130
DGMTLK ;;501521
DGMTM ;;1630681
DGMTO ;;1612143
DGMTO1 ;;6287338
DGMTOFA ;;8112978
DGMTOFA1 ;;6841238
DGMTOHD ;;2657432
DGMTOPYT ;;3986408
DGMTOREQ ;;7724748
DGMTP ;;5245412
DGMTP1 ;;10428870
DGMTP2 ;;13975368
DGMTP3 ;;15675663
DGMTP4 ;;12233970
DGMTR ;;4475685
DGMTREQB ;;2563172
DGMTSC ;;3182358
DGMTSC1 ;;4640864
DGMTSC11 ;;4595279
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGNTEG 3781 printed Dec 13, 2024@02:46:11 Page 2
DGNTEG ;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^DGNTEG0
+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 ;;
DG10 ;;3836495
DG1010P ;;11459541
DG1010P0 ;;1314346
DG1010P1 ;;13799216
DG1010P2 ;;8453869
DG1010P3 ;;6164680
DG1010P4 ;;7181713
DG1010P5 ;;7501466
DG1010P6 ;;10096482
DG1010P7 ;;13314650
DG1010PA ;;4613202
DG1010PX ;;7715973
DG1010S1 ;;23821127
DG1010S2 ;;18364748
DG3PR ;;3021030
DG3PR0 ;;6620629
DG3PR1 ;;4522534
DG3PR2 ;;11690252
DGA400 ;;12138168
DGA4001 ;;16056644
DGA4002 ;;9301892
DGA4003 ;;7761246
DGA4004 ;;11609708
DGA4005 ;;17691249
DGA4006 ;;5787106
DGA4007 ;;2042305
DGABUL ;;7538472
DGAINP ;;3795864
DGAINP0 ;;7178330
DGAINP1 ;;9244036
DGAINP2 ;;8100096
DGAINP3 ;;2633278
DGAINP4 ;;8344622
DGANHD ;;3864476
DGANHD1 ;;7585149
DGANHD2 ;;4831283
DGANHD3 ;;1806372
DGANHD4 ;;6162588
DGBLRV ;;14119050
DGBT1 ;;7665616
DGBT2 ;;13095836
DGBTCD ;;13711638
DGBTCE ;;14849061
DGBTCE1 ;;5419607
DGBTCR ;;12532420
DGBTCR1 ;;8137574
DGBTCR2 ;;12956592
DGBTDIST ;;8481729
DGBTDST1 ;;2237098
DGBTE ;;8229618
DGBTE1 ;;8595661
DGBTE1A ;;6549070
DGBTEE ;;8216263
DGBTEE1 ;;11274715
DGBTEE2 ;;8101499
DGBTEF ;;15591466
DGBTEF1 ;;9005391
DGBTEND ;;12602292
DGBTOA1 ;;14177005
DGBTOA2 ;;11981540
DGBTOA3 ;;15389059
DGBTOA4 ;;15019918
DGBTOA5 ;;3360676
DGBTOA6 ;;9057573
DGBTR ;;9324442
DGBTSRCH ;;10574383
DGBTUTL ;;1356611
DGBUL ;;3656478
DGCOL ;;16970132
DGDDC ;;4818017
DGDEATH ;;12272750
DGDIS ;;14257393
DGDIS1 ;;5675861
DGDISPL ;;6977062
DGDISS ;;9364260
DGDIST ;;19344355
DGDIST1 ;;10706514
DGFI ;;3262670
DGGECS ;;16847352
DGGECSA ;;2782718
DGGECSB ;;6164870
DGGECSR ;;2816305
DGHELP ;;3815305
DGIN ;;50292
DGINP ;;180432
DGINPW ;;101051
DGINS ;;6190318
DGJBGJ ;;17066760
DGJBGJ1 ;;1611260
DGJOPRT ;;7505571
DGJOPRT1 ;;17207598
DGJOPRT2 ;;17870325
DGJOPRT3 ;;12022896
DGJOTP ;;12136251
DGJOTP1 ;;21753407
DGJOTP2 ;;12005300
DGJOTP3 ;;16818289
DGJOTPUL ;;9915514
DGJPAR ;;186014
DGJPAR1 ;;14281443
DGJPDEF ;;13686744
DGJPDEF1 ;;20529386
DGJPDEF2 ;;17990744
DGJPDEF3 ;;16274892
DGJSUM ;;7945437
DGJTADD ;;2567747
DGJTDEL ;;4511597
DGJTEE ;;19163376
DGJTEE1 ;;12664333
DGJTEE2 ;;12267113
DGJTEE3 ;;14306643
DGJTEVT ;;11368122
DGJTHLP ;;8474910
DGJTUDIS ;;4651950
DGJTUTL ;;16684941
DGJTVW ;;5612957
DGJTVW1 ;;17594153
DGJTVW2 ;;8809719
DGJTVW3 ;;12907948
DGL ;;133046
DGLOCK ;;15547998
DGLOCK1 ;;13313898
DGLOCK2 ;;11670599
DGLOCK3 ;;1575192
DGMTA ;;9764937
DGMTAUD ;;9480441
DGMTAUD1 ;;188063
DGMTCOM ;;1549753
DGMTCOR ;;5288938
DGMTCOST ;;985361
DGMTCOU ;;2047092
DGMTCOU1 ;;3669588
DGMTDD ;;5296793
DGMTDD1 ;;1993635
DGMTDD2 ;;11706743
DGMTDD3 ;;8997689
DGMTDEL ;;9696857
DGMTDOM ;;363545
DGMTE ;;2602899
DGMTEO ;;3308362
DGMTEVT ;;390130
DGMTLK ;;501521
DGMTM ;;1630681
DGMTO ;;1612143
DGMTO1 ;;6287338
DGMTOFA ;;8112978
DGMTOFA1 ;;6841238
DGMTOHD ;;2657432
DGMTOPYT ;;3986408
DGMTOREQ ;;7724748
DGMTP ;;5245412
DGMTP1 ;;10428870
DGMTP2 ;;13975368
DGMTP3 ;;15675663
DGMTP4 ;;12233970
DGMTR ;;4475685
DGMTREQB ;;2563172
DGMTSC ;;3182358
DGMTSC1 ;;4640864
DGMTSC11 ;;4595279
