DGNTEG0 ;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^DGNTEG01
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 ;;
DGMTSC2 ;;5491279
DGMTSC3 ;;2792118
DGMTSC31 ;;4589113
DGMTSC4 ;;5918350
DGMTSCC ;;11200411
DGMTSCR ;;7960982
DGMTSCU ;;3843068
DGMTSCU1 ;;390575
DGMTSCU2 ;;3506131
DGMTSCU3 ;;3657103
DGMTU ;;5758769
DGMTU1 ;;1509108
DGMTU11 ;;4562009
DGMTU2 ;;2157161
DGMTU21 ;;988994
DGMTU22 ;;5802580
DGMTU23 ;;6257318
DGMTUB ;;3480486
DGMTUTL ;;4377319
DGMTV ;;6491590
DGNOTE ;;1675967
DGOASIH ;;7905936
DGODASK ;;6832837
DGODCV ;;6455006
DGODDEL ;;6521525
DGODMT ;;6703636
DGODNP1 ;;13382969
DGODNP2 ;;17154391
DGODNSM ;;10616515
DGODNSM1 ;;6157652
DGODOP1 ;;13382348
DGODOP2 ;;14178312
DGODOSM ;;10913759
DGODOSM1 ;;5878965
DGODTOT ;;12665233
DGODUTL ;;11335841
DGOERNOT ;;3639352
DGOIL ;;14120935
DGOIL1 ;;5434253
DGOIL2 ;;9855146
DGOIL3 ;;1864519
DGOINPT ;;9811683
DGOINPT1 ;;12046123
DGOINS ;;9275780
DGOINS1 ;;17284104
DGONI001 ;;8955903
DGONI002 ;;9117011
DGONI003 ;;7330922
DGONI004 ;;7270205
DGONI005 ;;6744760
DGONI006 ;;6851829
DGONI007 ;;7400783
DGONI008 ;;6681610
DGONI009 ;;3184498
DGONIT ;;974623
DGONIT1 ;;1681972
DGONIT2 ;;82261
DGONIT3 ;;10576022
DGOPATM ;;9163250
DGOREL ;;12901865
DGOREL1 ;;15725750
DGOVBC ;;12222252
DGOVBC1 ;;16856594
DGOVBC2 ;;10667539
DGPAR ;;12599208
DGPAR1 ;;15140011
DGPAR2 ;;1164900
DGPASS ;;12948536
DGPATN ;;3746887
DGPATV ;;2775189
DGPMBSAB ;;2469727
DGPMBSAR ;;6455372
DGPMBSG ;;5833205
DGPMBSG1 ;;3093169
DGPMBSG2 ;;12159995
DGPMBSG3 ;;7575486
DGPMBSP ;;2948851
DGPMBSP1 ;;12290347
DGPMBSP2 ;;12013509
DGPMBSP3 ;;7070833
DGPMBSP4 ;;4498379
DGPMBSP5 ;;3236309
DGPMBSP6 ;;3000471
DGPMBSR ;;5326316
DGPMBSR1 ;;7809978
DGPMBSR2 ;;4498773
DGPMBSR3 ;;9503294
DGPMBSR4 ;;7335226
DGPMDD ;;1371660
DGPMDD1 ;;4163615
DGPMDD2 ;;5117501
DGPMDDCF ;;2709089
DGPMDDCN ;;7510882
DGPMDDLD ;;5897493
DGPMDDOS ;;15227313
DGPMDDRB ;;2515339
DGPMDEF ;;13745743
DGPMEVT ;;1318191
DGPMEX ;;8735578
DGPMGL ;;11885908
DGPMGL1 ;;10850663
DGPMGL2 ;;4802014
DGPMGL5 ;;3750408
DGPMGL51 ;;11000768
DGPMGLC ;;12376747
DGPMGLG ;;7786725
DGPMGLG1 ;;2954608
DGPMGLG2 ;;15832435
DGPMGLG3 ;;12575149
DGPMGLP ;;11310279
DGPMGLP1 ;;8991521
DGPMHST ;;3205848
DGPMLOS ;;4210303
DGPMOLD ;;3719927
DGPMOLD1 ;;13905130
DGPMRB ;;10705978
DGPMRBA ;;14216646
DGPMRBA1 ;;8190867
DGPMSTAT ;;3902677
DGPMTS ;;2013889
DGPMTSI ;;7834777
DGPMTSI1 ;;3193580
DGPMTSI2 ;;8704798
DGPMTSO ;;1679095
DGPMTSO1 ;;12104367
DGPMTSO2 ;;12264254
DGPMTSO3 ;;10945522
DGPMTSR ;;7428169
DGPMTSR1 ;;5877231
DGPMTSR2 ;;6231618
DGPMUTL ;;2618336
DGPMV ;;9721404
DGPMV0 ;;1798732
DGPMV1 ;;8563904
DGPMV10 ;;15444384
DGPMV2 ;;12450697
DGPMV20 ;;10234963
DGPMV21 ;;13594373
DGPMV22 ;;4988232
DGPMV3 ;;16912219
DGPMV30 ;;17093330
DGPMV300 ;;3098446
DGPMV31 ;;12582313
DGPMV32 ;;12615866
DGPMV321 ;;12839930
DGPMV322 ;;2401635
DGPMV33 ;;9363079
DGPMV331 ;;11471512
DGPMV35 ;;1138781
DGPMV36 ;;6369023
DGPMVBM ;;6277394
DGPMVBUL ;;8954409
DGPMVBUR ;;6699911
DGPMVDD ;;8266103
DGPMVDL ;;11773733
DGPMVDL1 ;;13419849
DGPMVODS ;;3078835
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGNTEG0 3798 printed Dec 13, 2024@02:46:12 Page 2
DGNTEG0 ;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^DGNTEG01
+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 ;;
DGMTSC2 ;;5491279
DGMTSC3 ;;2792118
DGMTSC31 ;;4589113
DGMTSC4 ;;5918350
DGMTSCC ;;11200411
DGMTSCR ;;7960982
DGMTSCU ;;3843068
DGMTSCU1 ;;390575
DGMTSCU2 ;;3506131
DGMTSCU3 ;;3657103
DGMTU ;;5758769
DGMTU1 ;;1509108
DGMTU11 ;;4562009
DGMTU2 ;;2157161
DGMTU21 ;;988994
DGMTU22 ;;5802580
DGMTU23 ;;6257318
DGMTUB ;;3480486
DGMTUTL ;;4377319
DGMTV ;;6491590
DGNOTE ;;1675967
DGOASIH ;;7905936
DGODASK ;;6832837
DGODCV ;;6455006
DGODDEL ;;6521525
DGODMT ;;6703636
DGODNP1 ;;13382969
DGODNP2 ;;17154391
DGODNSM ;;10616515
DGODNSM1 ;;6157652
DGODOP1 ;;13382348
DGODOP2 ;;14178312
DGODOSM ;;10913759
DGODOSM1 ;;5878965
DGODTOT ;;12665233
DGODUTL ;;11335841
DGOERNOT ;;3639352
DGOIL ;;14120935
DGOIL1 ;;5434253
DGOIL2 ;;9855146
DGOIL3 ;;1864519
DGOINPT ;;9811683
DGOINPT1 ;;12046123
DGOINS ;;9275780
DGOINS1 ;;17284104
DGONI001 ;;8955903
DGONI002 ;;9117011
DGONI003 ;;7330922
DGONI004 ;;7270205
DGONI005 ;;6744760
DGONI006 ;;6851829
DGONI007 ;;7400783
DGONI008 ;;6681610
DGONI009 ;;3184498
DGONIT ;;974623
DGONIT1 ;;1681972
DGONIT2 ;;82261
DGONIT3 ;;10576022
DGOPATM ;;9163250
DGOREL ;;12901865
DGOREL1 ;;15725750
DGOVBC ;;12222252
DGOVBC1 ;;16856594
DGOVBC2 ;;10667539
DGPAR ;;12599208
DGPAR1 ;;15140011
DGPAR2 ;;1164900
DGPASS ;;12948536
DGPATN ;;3746887
DGPATV ;;2775189
DGPMBSAB ;;2469727
DGPMBSAR ;;6455372
DGPMBSG ;;5833205
DGPMBSG1 ;;3093169
DGPMBSG2 ;;12159995
DGPMBSG3 ;;7575486
DGPMBSP ;;2948851
DGPMBSP1 ;;12290347
DGPMBSP2 ;;12013509
DGPMBSP3 ;;7070833
DGPMBSP4 ;;4498379
DGPMBSP5 ;;3236309
DGPMBSP6 ;;3000471
DGPMBSR ;;5326316
DGPMBSR1 ;;7809978
DGPMBSR2 ;;4498773
DGPMBSR3 ;;9503294
DGPMBSR4 ;;7335226
DGPMDD ;;1371660
DGPMDD1 ;;4163615
DGPMDD2 ;;5117501
DGPMDDCF ;;2709089
DGPMDDCN ;;7510882
DGPMDDLD ;;5897493
DGPMDDOS ;;15227313
DGPMDDRB ;;2515339
DGPMDEF ;;13745743
DGPMEVT ;;1318191
DGPMEX ;;8735578
DGPMGL ;;11885908
DGPMGL1 ;;10850663
DGPMGL2 ;;4802014
DGPMGL5 ;;3750408
DGPMGL51 ;;11000768
DGPMGLC ;;12376747
DGPMGLG ;;7786725
DGPMGLG1 ;;2954608
DGPMGLG2 ;;15832435
DGPMGLG3 ;;12575149
DGPMGLP ;;11310279
DGPMGLP1 ;;8991521
DGPMHST ;;3205848
DGPMLOS ;;4210303
DGPMOLD ;;3719927
DGPMOLD1 ;;13905130
DGPMRB ;;10705978
DGPMRBA ;;14216646
DGPMRBA1 ;;8190867
DGPMSTAT ;;3902677
DGPMTS ;;2013889
DGPMTSI ;;7834777
DGPMTSI1 ;;3193580
DGPMTSI2 ;;8704798
DGPMTSO ;;1679095
DGPMTSO1 ;;12104367
DGPMTSO2 ;;12264254
DGPMTSO3 ;;10945522
DGPMTSR ;;7428169
DGPMTSR1 ;;5877231
DGPMTSR2 ;;6231618
DGPMUTL ;;2618336
DGPMV ;;9721404
DGPMV0 ;;1798732
DGPMV1 ;;8563904
DGPMV10 ;;15444384
DGPMV2 ;;12450697
DGPMV20 ;;10234963
DGPMV21 ;;13594373
DGPMV22 ;;4988232
DGPMV3 ;;16912219
DGPMV30 ;;17093330
DGPMV300 ;;3098446
DGPMV31 ;;12582313
DGPMV32 ;;12615866
DGPMV321 ;;12839930
DGPMV322 ;;2401635
DGPMV33 ;;9363079
DGPMV331 ;;11471512
DGPMV35 ;;1138781
DGPMV36 ;;6369023
DGPMVBM ;;6277394
DGPMVBUL ;;8954409
DGPMVBUR ;;6699911
DGPMVDD ;;8266103
DGPMVDL ;;11773733
DGPMVDL1 ;;13419849
DGPMVODS ;;3078835
