SRNTEG0 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;JUN 24, 1993@10:46:22
;;3.0; Surgery ;;24 Jun 93
;;7.0;JUN 24, 1993@10:46:22
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^SRNTEG01
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 ;;
SROCMPS ;;11634013
SROCNR ;;6501039
SROCNR1 ;;13706047
SROCNR2 ;;13533185
SROCODE ;;3430511
SROCOM ;;5150235
SROCOMP ;;12557366
SROCON ;;7757520
SROCON1 ;;874865
SROCOND ;;2285
SROCPT ;;1135014
SROCRAT ;;9106508
SRODATE ;;4080611
SRODCT1 ;;13487226
SRODELA ;;11853938
SRODEV ;;275574
SRODICT ;;12398051
SRODLA1 ;;8914646
SRODLA2 ;;9982605
SRODLAY ;;9348184
SRODLT ;;9341903
SRODLT0 ;;8117340
SRODLT1 ;;3117817
SRODLT2 ;;4190492
SRODPT ;;2370986
SROERR ;;12680766
SROERR0 ;;3581133
SROERR1 ;;15586687
SROERR2 ;;8080430
SROERRPO ;;9592757
SROFILE ;;11321600
SROFLD ;;3049077
SROICU ;;7026928
SROICU1 ;;9648009
SROICU2 ;;9703712
SROINQ ;;13650153
SROIRR ;;4959802
SROKEY ;;8178720
SROKEY1 ;;9276852
SROKRET ;;950405
SROLOCK ;;7721330
SROMED ;;14319705
SROMOR ;;8349609
SROMORT ;;10557507
SRONAN ;;3749513
SRONAN1 ;;5813213
SRONASS ;;13373165
SRONBCH ;;1692514
SRONEW ;;9745297
SRONIN ;;1539867
SRONIN1 ;;10909129
SRONIN2 ;;11115711
SRONIN3 ;;10241634
SRONIN4 ;;6641012
SRONIN5 ;;9982835
SRONIN6 ;;13264035
SRONITE ;;40878
SRONON ;;9871379
SRONON0 ;;13768814
SRONON1 ;;9659892
SRONOP ;;14675614
SRONOP1 ;;4632135
SRONOR ;;9218812
SRONOR1 ;;5033721
SRONOR2 ;;9853192
SRONOR3 ;;9777137
SRONOR4 ;;9527245
SRONOR5 ;;9496023
SRONOR6 ;;5181795
SRONOR7 ;;9879875
SRONOR8 ;;9797371
SRONRN1 ;;11882384
SRONRN2 ;;10842342
SRONRN3 ;;7359997
SRONRN4 ;;11105877
SRONRN5 ;;11842993
SRONRNF ;;9081246
SRONRPT ;;4751943
SRONRPT0 ;;14852429
SRONRPT1 ;;14308588
SRONRPT2 ;;17178265
SRONRPT3 ;;9328079
SRONUR ;;3335620
SRONUR1 ;;14294813
SRONUR2 ;;15172306
SRONXR ;;948758
SROOPRM ;;8890272
SROOPRM1 ;;8345600
SROP ;;11421165
SROP1 ;;2869582
SROPAC0 ;;7281750
SROPAC1 ;;4116346
SROPACT ;;4285094
SROPAT ;;4083891
SROPDEL ;;10518417
SROPER ;;8249828
SROPLIS ;;5891254
SROPLIST ;;10573308
SROPLST1 ;;8344386
SROPLSTS ;;15458118
SROPOST ;;11117912
SROPOST0 ;;11314400
SROPOST1 ;;4109705
SROPOST2 ;;6929347
SROPPC ;;10469597
SROPR01 ;;9968913
SROPR02 ;;9203095
SROPR03 ;;12977397
SROPRE ;;20213002
SROPRE0 ;;3862541
SROPREQ ;;5334609
SROPRI ;;13037058
SROPRI1 ;;5091384
SROPRI2 ;;9977752
SROPRIN ;;1919966
SROPRIO ;;14632165
SROPRIT ;;7802902
SROPROC ;;16746178
SROPRPT ;;1495355
SROPRPT1 ;;10715706
SROPRPT2 ;;8932470
SROPRPT3 ;;13365148
SROPRPT4 ;;4139502
SROPS ;;7320444
SROQ ;;19916846
SROQ0 ;;6909462
SROQ0A ;;3418494
SROQ1 ;;5710420
SROQ1A ;;5986558
SROQ2 ;;10055055
SROQM ;;2454081
SROQM0 ;;8643769
SROQM1 ;;9986266
SROQT ;;6682831
SROR ;;1064043
SRORAT1 ;;9464973
SRORAT2 ;;5618055
SRORATA ;;4507955
SRORATP ;;5270692
SRORATS ;;4033835
SROREA ;;2641219
SROREA1 ;;4701907
SROREA2 ;;6036733
SROREAS ;;8242299
SROREQ ;;4758469
SROREQ1 ;;13883180
SROREQ2 ;;11963363
SROREQ3 ;;13081345
SROREQ4 ;;11044703
SROREST ;;7931836
SRORESV ;;5067326
SRORET ;;11944655
SRORHRS ;;9870467
SRORHRS0 ;;5611756
SRORIN ;;14448907
SRORTRN ;;1927140
SRORUT ;;8711950
SRORUT0 ;;12484053
SRORUT1 ;;7215261
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSRNTEG0 3780 printed Nov 22, 2024@17:49:45 Page 2
SRNTEG0 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;JUN 24, 1993@10:46:22
+1 ;;3.0; Surgery ;;24 Jun 93
+2 ;;7.0;JUN 24, 1993@10:46:22
+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^SRNTEG01
+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 ;;
SROCMPS ;;11634013
SROCNR ;;6501039
SROCNR1 ;;13706047
SROCNR2 ;;13533185
SROCODE ;;3430511
SROCOM ;;5150235
SROCOMP ;;12557366
SROCON ;;7757520
SROCON1 ;;874865
SROCOND ;;2285
SROCPT ;;1135014
SROCRAT ;;9106508
SRODATE ;;4080611
SRODCT1 ;;13487226
SRODELA ;;11853938
SRODEV ;;275574
SRODICT ;;12398051
SRODLA1 ;;8914646
SRODLA2 ;;9982605
SRODLAY ;;9348184
SRODLT ;;9341903
SRODLT0 ;;8117340
SRODLT1 ;;3117817
SRODLT2 ;;4190492
SRODPT ;;2370986
SROERR ;;12680766
SROERR0 ;;3581133
SROERR1 ;;15586687
SROERR2 ;;8080430
SROERRPO ;;9592757
SROFILE ;;11321600
SROFLD ;;3049077
SROICU ;;7026928
SROICU1 ;;9648009
SROICU2 ;;9703712
SROINQ ;;13650153
SROIRR ;;4959802
SROKEY ;;8178720
SROKEY1 ;;9276852
SROKRET ;;950405
SROLOCK ;;7721330
SROMED ;;14319705
SROMOR ;;8349609
SROMORT ;;10557507
SRONAN ;;3749513
SRONAN1 ;;5813213
SRONASS ;;13373165
SRONBCH ;;1692514
SRONEW ;;9745297
SRONIN ;;1539867
SRONIN1 ;;10909129
SRONIN2 ;;11115711
SRONIN3 ;;10241634
SRONIN4 ;;6641012
SRONIN5 ;;9982835
SRONIN6 ;;13264035
SRONITE ;;40878
SRONON ;;9871379
SRONON0 ;;13768814
SRONON1 ;;9659892
SRONOP ;;14675614
SRONOP1 ;;4632135
SRONOR ;;9218812
SRONOR1 ;;5033721
SRONOR2 ;;9853192
SRONOR3 ;;9777137
SRONOR4 ;;9527245
SRONOR5 ;;9496023
SRONOR6 ;;5181795
SRONOR7 ;;9879875
SRONOR8 ;;9797371
SRONRN1 ;;11882384
SRONRN2 ;;10842342
SRONRN3 ;;7359997
SRONRN4 ;;11105877
SRONRN5 ;;11842993
SRONRNF ;;9081246
SRONRPT ;;4751943
SRONRPT0 ;;14852429
SRONRPT1 ;;14308588
SRONRPT2 ;;17178265
SRONRPT3 ;;9328079
SRONUR ;;3335620
SRONUR1 ;;14294813
SRONUR2 ;;15172306
SRONXR ;;948758
SROOPRM ;;8890272
SROOPRM1 ;;8345600
SROP ;;11421165
SROP1 ;;2869582
SROPAC0 ;;7281750
SROPAC1 ;;4116346
SROPACT ;;4285094
SROPAT ;;4083891
SROPDEL ;;10518417
SROPER ;;8249828
SROPLIS ;;5891254
SROPLIST ;;10573308
SROPLST1 ;;8344386
SROPLSTS ;;15458118
SROPOST ;;11117912
SROPOST0 ;;11314400
SROPOST1 ;;4109705
SROPOST2 ;;6929347
SROPPC ;;10469597
SROPR01 ;;9968913
SROPR02 ;;9203095
SROPR03 ;;12977397
SROPRE ;;20213002
SROPRE0 ;;3862541
SROPREQ ;;5334609
SROPRI ;;13037058
SROPRI1 ;;5091384
SROPRI2 ;;9977752
SROPRIN ;;1919966
SROPRIO ;;14632165
SROPRIT ;;7802902
SROPROC ;;16746178
SROPRPT ;;1495355
SROPRPT1 ;;10715706
SROPRPT2 ;;8932470
SROPRPT3 ;;13365148
SROPRPT4 ;;4139502
SROPS ;;7320444
SROQ ;;19916846
SROQ0 ;;6909462
SROQ0A ;;3418494
SROQ1 ;;5710420
SROQ1A ;;5986558
SROQ2 ;;10055055
SROQM ;;2454081
SROQM0 ;;8643769
SROQM1 ;;9986266
SROQT ;;6682831
SROR ;;1064043
SRORAT1 ;;9464973
SRORAT2 ;;5618055
SRORATA ;;4507955
SRORATP ;;5270692
SRORATS ;;4033835
SROREA ;;2641219
SROREA1 ;;4701907
SROREA2 ;;6036733
SROREAS ;;8242299
SROREQ ;;4758469
SROREQ1 ;;13883180
SROREQ2 ;;11963363
SROREQ3 ;;13081345
SROREQ4 ;;11044703
SROREST ;;7931836
SRORESV ;;5067326
SRORET ;;11944655
SRORHRS ;;9870467
SRORHRS0 ;;5611756
SRORIN ;;14448907
SRORTRN ;;1927140
SRORUT ;;8711950
SRORUT0 ;;12484053
SRORUT1 ;;7215261
