PRSNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2950922.134403
;;4.0;PAID;;Sep 21, 1995
;;7.3V5;2950922.134403
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^PRSNTEG0
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 ;;
PRS8 ;;6758761
PRS8AC ;;10789248
PRS8CR ;;4113870
PRS8CV ;;1406679
PRS8DR ;;4460526
PRS8EX ;;12089950
PRS8EX0 ;;2492670
PRS8HD ;;4393103
PRS8HR ;;9990339
PRS8MISC ;;6209902
PRS8MSC0 ;;8738536
PRS8MT ;;9042216
PRS8OC ;;8121133
PRS8OT ;;1051438
PRS8PP ;;13713672
PRS8SB ;;482803
PRS8ST ;;7522882
PRS8SU ;;8182283
PRS8TL ;;6628863
PRS8TL1 ;;6852149
PRS8UP ;;7675745
PRS8UT ;;1468608
PRS8VW ;;4779393
PRS8VW1 ;;3705374
PRS8VW2 ;;3553313
PRS8WE ;;8439046
PRS8WE2 ;;5601041
PRSACED ;;5798337
PRSACED1 ;;2917348
PRSACED2 ;;4372931
PRSACED3 ;;4234486
PRSACED4 ;;3403608
PRSACED5 ;;3607550
PRSACED6 ;;2901261
PRSADP ;;2345979
PRSADP1 ;;5204495
PRSADP2 ;;6014980
PRSADPA ;;3624106
PRSAEDL ;;7630808
PRSAEDR ;;5393792
PRSAEDS ;;2055313
PRSAENE ;;2103036
PRSAENT ;;2112476
PRSAENX ;;2134106
PRSAES ;;1313964
PRSALVB ;;5555828
PRSALVE ;;4317661
PRSALVL ;;7809679
PRSALVR ;;6805104
PRSALVS ;;8301239
PRSALVT ;;1139882
PRSALVU ;;3185536
PRSALVX ;;2445423
PRSAOTE ;;2838414
PRSAOTL ;;5965024
PRSAOTR ;;4569152
PRSAOTS ;;2397841
PRSAOTX ;;8430525
PRSAPAS ;;1561258
PRSAPEH ;;3084131
PRSAPEM ;;1898877
PRSAPEX ;;4093665
PRSAPPH ;;8178546
PRSAPPO ;;5341440
PRSAPPP ;;7802049
PRSAPPQ ;;6163642
PRSAPPU ;;1034959
PRSAPPX ;;5760245
PRSAPRE ;;3848270
PRSAPRT ;;2080643
PRSAPT1 ;;785232
PRSARPT2 ;;4489402
PRSASAL ;;5977718
PRSASC ;;9773634
PRSASC1 ;;3903078
PRSASC2 ;;1597184
PRSASC3 ;;3976397
PRSASR ;;8476442
PRSASR1 ;;1564047
PRSASU ;;4232684
PRSATAPE ;;4476355
PRSATD1 ;;6413354
PRSATD2 ;;3514001
PRSATE ;;11133231
PRSATE0 ;;3871814
PRSATE1 ;;1042996
PRSATE2 ;;7030914
PRSATE3 ;;6879527
PRSATE4 ;;4019861
PRSATE5 ;;1697087
PRSATEV ;;559852
PRSATH ;;3534403
PRSATIM ;;2261484
PRSATL ;;4151505
PRSATP ;;9893987
PRSATP0 ;;4870470
PRSATP1 ;;4861807
PRSATP2 ;;1764109
PRSATPD ;;4458099
PRSATPE ;;6078405
PRSATPF ;;1328971
PRSATPG ;;3992646
PRSATPH ;;5179073
PRSATPL ;;7238092
PRSATPP ;;6337840
PRSATPX ;;4188232
PRSATVC ;;3847802
PRSAUD ;;2228567
PRSAUDP ;;6132208
PRSAUTL ;;1858285
PRSAXMIT ;;7910133
PRSAXSR ;;1292570
PRSD1150 ;;5462001
PRSD450 ;;1794780
PRSDADD ;;1711292
PRSDAH ;;1259007
PRSDAH1 ;;6177791
PRSDAH2 ;;6903178
PRSDAH3 ;;10079106
PRSDAH4 ;;11656084
PRSDCOMP ;;8014132
PRSDDL ;;2221704
PRSDENG ;;439261
PRSDERR ;;7331639
PRSDEU01 ;;7474017
PRSDEU02 ;;7761860
PRSDEU03 ;;10159747
PRSDEU04 ;;4194847
PRSDEU05 ;;9647707
PRSDEU06 ;;11958266
PRSDEU07 ;;10409876
PRSDEU08 ;;9968538
PRSDEU09 ;;8995407
PRSDEU10 ;;3441415
PRSDEU11 ;;3349578
PRSDEU12 ;;5190061
PRSDFIL ;;1756500
PRSDFOLL ;;13024192
PRSDLD01 ;;5003462
PRSDLD02 ;;5722580
PRSDLD03 ;;7945572
PRSDLD04 ;;5111272
PRSDLD05 ;;5648343
PRSDLD06 ;;7771776
PRSDLD07 ;;8073087
PRSDLD08 ;;6268486
PRSDLD09 ;;7861993
PRSDLD10 ;;6224051
PRSDLD11 ;;3828709
PRSDLD12 ;;2335634
PRSDLD13 ;;7758159
PRSDLD14 ;;6990396
PRSDLD15 ;;8313570
PRSDLD16 ;;7491864
PRSDLD17 ;;7017466
PRSDMISC ;;1576842
PRSDPR01 ;;7816417
PRSDPR02 ;;8202108
PRSDPR03 ;;9182855
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRSNTEG 3766 printed Nov 22, 2024@17:37:42 Page 2
PRSNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2950922.134403
+1 ;;4.0;PAID;;Sep 21, 1995
+2 ;;7.3V5;2950922.134403
+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^PRSNTEG0
+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 ;;
PRS8 ;;6758761
PRS8AC ;;10789248
PRS8CR ;;4113870
PRS8CV ;;1406679
PRS8DR ;;4460526
PRS8EX ;;12089950
PRS8EX0 ;;2492670
PRS8HD ;;4393103
PRS8HR ;;9990339
PRS8MISC ;;6209902
PRS8MSC0 ;;8738536
PRS8MT ;;9042216
PRS8OC ;;8121133
PRS8OT ;;1051438
PRS8PP ;;13713672
PRS8SB ;;482803
PRS8ST ;;7522882
PRS8SU ;;8182283
PRS8TL ;;6628863
PRS8TL1 ;;6852149
PRS8UP ;;7675745
PRS8UT ;;1468608
PRS8VW ;;4779393
PRS8VW1 ;;3705374
PRS8VW2 ;;3553313
PRS8WE ;;8439046
PRS8WE2 ;;5601041
PRSACED ;;5798337
PRSACED1 ;;2917348
PRSACED2 ;;4372931
PRSACED3 ;;4234486
PRSACED4 ;;3403608
PRSACED5 ;;3607550
PRSACED6 ;;2901261
PRSADP ;;2345979
PRSADP1 ;;5204495
PRSADP2 ;;6014980
PRSADPA ;;3624106
PRSAEDL ;;7630808
PRSAEDR ;;5393792
PRSAEDS ;;2055313
PRSAENE ;;2103036
PRSAENT ;;2112476
PRSAENX ;;2134106
PRSAES ;;1313964
PRSALVB ;;5555828
PRSALVE ;;4317661
PRSALVL ;;7809679
PRSALVR ;;6805104
PRSALVS ;;8301239
PRSALVT ;;1139882
PRSALVU ;;3185536
PRSALVX ;;2445423
PRSAOTE ;;2838414
PRSAOTL ;;5965024
PRSAOTR ;;4569152
PRSAOTS ;;2397841
PRSAOTX ;;8430525
PRSAPAS ;;1561258
PRSAPEH ;;3084131
PRSAPEM ;;1898877
PRSAPEX ;;4093665
PRSAPPH ;;8178546
PRSAPPO ;;5341440
PRSAPPP ;;7802049
PRSAPPQ ;;6163642
PRSAPPU ;;1034959
PRSAPPX ;;5760245
PRSAPRE ;;3848270
PRSAPRT ;;2080643
PRSAPT1 ;;785232
PRSARPT2 ;;4489402
PRSASAL ;;5977718
PRSASC ;;9773634
PRSASC1 ;;3903078
PRSASC2 ;;1597184
PRSASC3 ;;3976397
PRSASR ;;8476442
PRSASR1 ;;1564047
PRSASU ;;4232684
PRSATAPE ;;4476355
PRSATD1 ;;6413354
PRSATD2 ;;3514001
PRSATE ;;11133231
PRSATE0 ;;3871814
PRSATE1 ;;1042996
PRSATE2 ;;7030914
PRSATE3 ;;6879527
PRSATE4 ;;4019861
PRSATE5 ;;1697087
PRSATEV ;;559852
PRSATH ;;3534403
PRSATIM ;;2261484
PRSATL ;;4151505
PRSATP ;;9893987
PRSATP0 ;;4870470
PRSATP1 ;;4861807
PRSATP2 ;;1764109
PRSATPD ;;4458099
PRSATPE ;;6078405
PRSATPF ;;1328971
PRSATPG ;;3992646
PRSATPH ;;5179073
PRSATPL ;;7238092
PRSATPP ;;6337840
PRSATPX ;;4188232
PRSATVC ;;3847802
PRSAUD ;;2228567
PRSAUDP ;;6132208
PRSAUTL ;;1858285
PRSAXMIT ;;7910133
PRSAXSR ;;1292570
PRSD1150 ;;5462001
PRSD450 ;;1794780
PRSDADD ;;1711292
PRSDAH ;;1259007
PRSDAH1 ;;6177791
PRSDAH2 ;;6903178
PRSDAH3 ;;10079106
PRSDAH4 ;;11656084
PRSDCOMP ;;8014132
PRSDDL ;;2221704
PRSDENG ;;439261
PRSDERR ;;7331639
PRSDEU01 ;;7474017
PRSDEU02 ;;7761860
PRSDEU03 ;;10159747
PRSDEU04 ;;4194847
PRSDEU05 ;;9647707
PRSDEU06 ;;11958266
PRSDEU07 ;;10409876
PRSDEU08 ;;9968538
PRSDEU09 ;;8995407
PRSDEU10 ;;3441415
PRSDEU11 ;;3349578
PRSDEU12 ;;5190061
PRSDFIL ;;1756500
PRSDFOLL ;;13024192
PRSDLD01 ;;5003462
PRSDLD02 ;;5722580
PRSDLD03 ;;7945572
PRSDLD04 ;;5111272
PRSDLD05 ;;5648343
PRSDLD06 ;;7771776
PRSDLD07 ;;8073087
PRSDLD08 ;;6268486
PRSDLD09 ;;7861993
PRSDLD10 ;;6224051
PRSDLD11 ;;3828709
PRSDLD12 ;;2335634
PRSDLD13 ;;7758159
PRSDLD14 ;;6990396
PRSDLD15 ;;8313570
PRSDLD16 ;;7491864
PRSDLD17 ;;7017466
PRSDMISC ;;1576842
PRSDPR01 ;;7816417
PRSDPR02 ;;8202108
PRSDPR03 ;;9182855
