SRNTEG ;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^SRNTEG0
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 ;;
SRCUSS ;;13128616
SRCUSS0 ;;11932742
SRCUSS1 ;;14024981
SRCUSS2 ;;9008801
SRCUSS3 ;;8147839
SRCUSS4 ;;8817864
SRCUSS5 ;;1705099
SROA30 ;;13123589
SROABCH ;;6036002
SROAC ;;8074997
SROAC1 ;;811669
SROAC2 ;;7839725
SROACAR ;;8480830
SROACAT ;;7090373
SROACC ;;17863169
SROACC0 ;;13064481
SROACC1 ;;11929528
SROACC2 ;;10979053
SROACC3 ;;11318821
SROACC4 ;;10650931
SROACC5 ;;11342334
SROACC6 ;;9694366
SROACCM ;;5442845
SROACCR ;;10280990
SROACCT ;;6477022
SROACL1 ;;11536133
SROACLN ;;6690925
SROACOM ;;5271992
SROACOP ;;10401802
SROACR1 ;;10974698
SROACRC ;;8615250
SROACS ;;17495772
SROACTH ;;4583908
SROADEL ;;7357586
SROADOC ;;9175831
SROADOC1 ;;17090569
SROAERR ;;5502190
SROAEX ;;14370150
SROAL1 ;;10740868
SROAL11 ;;9261896
SROAL2 ;;9570235
SROAL21 ;;5999753
SROALAB ;;5683374
SROALC ;;9188663
SROALCP ;;8851245
SROALCS ;;10545065
SROALCSP ;;9911958
SROALDP ;;5758536
SROALEN ;;7542354
SROALET ;;11955292
SROALL ;;11950510
SROALLP ;;10358750
SROALLS ;;12609154
SROALLSP ;;12599574
SROALN1 ;;12516462
SROALN2 ;;7427970
SROALN3 ;;13840617
SROALNO ;;10739667
SROALOG ;;12771858
SROALSS ;;12611289
SROALSSP ;;12640766
SROALST ;;11222652
SROALSTP ;;10401017
SROALT ;;9077666
SROALTP ;;8814293
SROALTS ;;10204410
SROALTSP ;;9824963
SROAMEAS ;;71772
SROAMIS ;;11919401
SROAMIS1 ;;11009877
SROANEW ;;11162809
SROANIN ;;3341842
SROANP ;;10889746
SROANP1 ;;11114124
SROANT ;;9203425
SROANTP ;;8862033
SROANTS ;;9560904
SROANTSP ;;9451309
SROAO ;;7410117
SROAOP ;;11418072
SROAOP1 ;;12217328
SROAOPS ;;8050404
SROAOSET ;;3431177
SROAOTH ;;3393938
SROAPAS ;;6024518
SROAPC ;;1047865
SROAPCA ;;13042967
SROAPCA0 ;;553613
SROAPCA1 ;;8911710
SROAPCA2 ;;9377265
SROAPCA3 ;;7422507
SROAPR1A ;;3752585
SROAPR2 ;;6197830
SROAPRE ;;8740356
SROAPRE1 ;;4090377
SROAPRE2 ;;3501275
SROAPRT1 ;;15523830
SROAPRT2 ;;10007362
SROAPRT3 ;;10638329
SROAPRT4 ;;8634120
SROAPRT5 ;;6747189
SROAPRT6 ;;4391520
SROAPRT7 ;;16872471
SROAPS1 ;;16535485
SROAPS2 ;;10890544
SROAR ;;8206451
SROAR1 ;;12304213
SROAR2 ;;11247893
SROARET ;;13046895
SROARPT ;;4779374
SROARPT0 ;;16972368
SROARPT1 ;;15190572
SROARPT2 ;;3764497
SROASS ;;11306593
SROASS1 ;;7807496
SROASSE ;;10185778
SROASSP ;;4152937
SROASWAP ;;8677386
SROASWP ;;18452779
SROASWP0 ;;7552610
SROASWP1 ;;5461676
SROASWP2 ;;11754339
SROASWP3 ;;17786597
SROASWPD ;;2734567
SROAT0P ;;11334796
SROAT0T ;;4303410
SROAT1P ;;12727482
SROAT1T ;;3406860
SROAT2P ;;12597003
SROAT2T ;;5717811
SROATCM ;;1118815
SROATCM1 ;;11449351
SROATCM2 ;;6369827
SROATM1 ;;16600818
SROATM2 ;;18977949
SROATM3 ;;9985638
SROATM4 ;;6407807
SROATMIT ;;4502627
SROATMNO ;;2187622
SROATT ;;13398424
SROATT0 ;;7944441
SROATT1 ;;2912932
SROATT2 ;;4045394
SROBLOD ;;5570434
SROBTCH ;;1744175
SROCAN ;;7968055
SROCAN0 ;;9498623
SROCANUP ;;5599175
SROCASE ;;2252
SROCCAT ;;9818522
SROCHDD ;;2209304
SROCMP ;;9802456
SROCMP1 ;;5787553
SROCMP2 ;;3425866
SROCMPD ;;2578858
SROCMPED ;;15288632
SROCMPL ;;12462861
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSRNTEG 3792 printed Dec 13, 2024@02:39:45 Page 2
SRNTEG ;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^SRNTEG0
+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 ;;
SRCUSS ;;13128616
SRCUSS0 ;;11932742
SRCUSS1 ;;14024981
SRCUSS2 ;;9008801
SRCUSS3 ;;8147839
SRCUSS4 ;;8817864
SRCUSS5 ;;1705099
SROA30 ;;13123589
SROABCH ;;6036002
SROAC ;;8074997
SROAC1 ;;811669
SROAC2 ;;7839725
SROACAR ;;8480830
SROACAT ;;7090373
SROACC ;;17863169
SROACC0 ;;13064481
SROACC1 ;;11929528
SROACC2 ;;10979053
SROACC3 ;;11318821
SROACC4 ;;10650931
SROACC5 ;;11342334
SROACC6 ;;9694366
SROACCM ;;5442845
SROACCR ;;10280990
SROACCT ;;6477022
SROACL1 ;;11536133
SROACLN ;;6690925
SROACOM ;;5271992
SROACOP ;;10401802
SROACR1 ;;10974698
SROACRC ;;8615250
SROACS ;;17495772
SROACTH ;;4583908
SROADEL ;;7357586
SROADOC ;;9175831
SROADOC1 ;;17090569
SROAERR ;;5502190
SROAEX ;;14370150
SROAL1 ;;10740868
SROAL11 ;;9261896
SROAL2 ;;9570235
SROAL21 ;;5999753
SROALAB ;;5683374
SROALC ;;9188663
SROALCP ;;8851245
SROALCS ;;10545065
SROALCSP ;;9911958
SROALDP ;;5758536
SROALEN ;;7542354
SROALET ;;11955292
SROALL ;;11950510
SROALLP ;;10358750
SROALLS ;;12609154
SROALLSP ;;12599574
SROALN1 ;;12516462
SROALN2 ;;7427970
SROALN3 ;;13840617
SROALNO ;;10739667
SROALOG ;;12771858
SROALSS ;;12611289
SROALSSP ;;12640766
SROALST ;;11222652
SROALSTP ;;10401017
SROALT ;;9077666
SROALTP ;;8814293
SROALTS ;;10204410
SROALTSP ;;9824963
SROAMEAS ;;71772
SROAMIS ;;11919401
SROAMIS1 ;;11009877
SROANEW ;;11162809
SROANIN ;;3341842
SROANP ;;10889746
SROANP1 ;;11114124
SROANT ;;9203425
SROANTP ;;8862033
SROANTS ;;9560904
SROANTSP ;;9451309
SROAO ;;7410117
SROAOP ;;11418072
SROAOP1 ;;12217328
SROAOPS ;;8050404
SROAOSET ;;3431177
SROAOTH ;;3393938
SROAPAS ;;6024518
SROAPC ;;1047865
SROAPCA ;;13042967
SROAPCA0 ;;553613
SROAPCA1 ;;8911710
SROAPCA2 ;;9377265
SROAPCA3 ;;7422507
SROAPR1A ;;3752585
SROAPR2 ;;6197830
SROAPRE ;;8740356
SROAPRE1 ;;4090377
SROAPRE2 ;;3501275
SROAPRT1 ;;15523830
SROAPRT2 ;;10007362
SROAPRT3 ;;10638329
SROAPRT4 ;;8634120
SROAPRT5 ;;6747189
SROAPRT6 ;;4391520
SROAPRT7 ;;16872471
SROAPS1 ;;16535485
SROAPS2 ;;10890544
SROAR ;;8206451
SROAR1 ;;12304213
SROAR2 ;;11247893
SROARET ;;13046895
SROARPT ;;4779374
SROARPT0 ;;16972368
SROARPT1 ;;15190572
SROARPT2 ;;3764497
SROASS ;;11306593
SROASS1 ;;7807496
SROASSE ;;10185778
SROASSP ;;4152937
SROASWAP ;;8677386
SROASWP ;;18452779
SROASWP0 ;;7552610
SROASWP1 ;;5461676
SROASWP2 ;;11754339
SROASWP3 ;;17786597
SROASWPD ;;2734567
SROAT0P ;;11334796
SROAT0T ;;4303410
SROAT1P ;;12727482
SROAT1T ;;3406860
SROAT2P ;;12597003
SROAT2T ;;5717811
SROATCM ;;1118815
SROATCM1 ;;11449351
SROATCM2 ;;6369827
SROATM1 ;;16600818
SROATM2 ;;18977949
SROATM3 ;;9985638
SROATM4 ;;6407807
SROATMIT ;;4502627
SROATMNO ;;2187622
SROATT ;;13398424
SROATT0 ;;7944441
SROATT1 ;;2912932
SROATT2 ;;4045394
SROBLOD ;;5570434
SROBTCH ;;1744175
SROCAN ;;7968055
SROCAN0 ;;9498623
SROCANUP ;;5599175
SROCASE ;;2252
SROCCAT ;;9818522
SROCHDD ;;2209304
SROCMP ;;9802456
SROCMP1 ;;5787553
SROCMP2 ;;3425866
SROCMPD ;;2578858
SROCMPED ;;15288632
SROCMPL ;;12462861
