LRNTEG02 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;OCT 25, 1994@16:14:26
;;5.2;LAB SERVICE;;Sep 27, 1994
;;7.2;OCT 25, 1994@16:14:26
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^LRNTEG03
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 ;;
LRMIPSZ ;;8712841
LRMIPSZ1 ;;12406819
LRMIPSZ2 ;;11226062
LRMIPSZ3 ;;8318897
LRMIPSZ4 ;;11912188
LRMIPSZ5 ;;12221036
LRMIS ;;100097
LRMISEZ ;;10610238
LRMISEZ1 ;;9213100
LRMISEZ2 ;;11072948
LRMISEZ3 ;;9782087
LRMISEZ4 ;;4421803
LRMISEZA ;;16855476
LRMISEZB ;;9566752
LRMISR ;;7163511
LRMISR1 ;;3355654
LRMISTF ;;10468714
LRMISTF1 ;;14032069
LRMITS ;;2538407
LRMITSE ;;3156077
LRMITSEC ;;11973690
LRMITSES ;;7783131
LRMITSP ;;2844397
LRMITSPC ;;5437371
LRMITSPE ;;6010630
LRMITSPO ;;5286842
LRMITSPS ;;3052409
LRMITSR ;;10903814
LRMITSRH ;;2059425
LRMITSRS ;;9988179
LRMIU4 ;;5614178
LRMIUT ;;3226335
LRMIUT1 ;;5126116
LRMIV ;;5001526
LRMIV1 ;;12023776
LRMIV2 ;;15350039
LRMIV3 ;;7301635
LRMIV4 ;;8957717
LRMIVER ;;8247730
LRMIVER1 ;;9809595
LRMIXALL ;;2510057
LRMIXPD ;;2621751
LRMIXR1 ;;1499994
LRMIXR2 ;;4935912
LRMIXR3 ;;7444890
LRMIZAP ;;15214782
LRMIZAP1 ;;5599755
LRMRSHRT ;;12006164
LRNDLST ;;6518918
LRNIGHT ;;3012542
LRNIGHT1 ;;3577041
LRNIGHT2 ;;8145950
LRNITEG ;;10629315
LRNITEGL ;;5620432
LRNODRAW ;;6441287
LRNORMAL ;;2729775
LRNPXA ;;3121059
LRNPXA0 ;;2098459
LRNPXA1 ;;7927108
LRNUM ;;6084836
LRO ;;137704
LRO1 ;;80835
LRO2 ;;492098
LRO3 ;;83879
LRO4 ;;1104
LRO5 ;;55717
LRO6 ;;58416
LRO7 ;;58696
LRO8 ;;55867
LROC ;;9962104
LROC1 ;;513736
LROCM ;;902146
LROE ;;14124488
LROE1 ;;7441789
LROE2 ;;8671366
LROI ;;1171816
LROLOVER ;;11243389
LROPT ;;13626902
LROPTLST ;;6823560
LROR ;;11488574
LROR1 ;;9367723
LROR2 ;;7864169
LROR3 ;;8668640
LROR4 ;;12426203
LROR4A ;;11272423
LROR4B ;;11230240
LROR5 ;;126397
LROR6 ;;2546332
LROR6A ;;10885921
LROR6B ;;7065648
LROR7 ;;91305
LROR8 ;;10413551
LROR9 ;;14142736
LRORD ;;12460893
LRORD1 ;;12374911
LRORD2 ;;17233514
LRORD2A ;;4265341
LRORD3 ;;7325550
LRORDD ;;13714315
LRORDERN ;;138962
LRORDIM ;;4446478
LRORDK ;;13547846
LRORDST ;;14794328
LRORDST1 ;;2848
LROS ;;13339397
LROSX0 ;;17415
LROSX1 ;;7539
LROW ;;7529828
LROW1 ;;13614464
LROW1A ;;3246964
LROW2 ;;8567142
LROW2A ;;6321320
LROW2P ;;7207400
LROW2RP ;;6049085
LROW3 ;;6949223
LROW4 ;;4523889
LROW5 ;;12012801
LRPARAM ;;7507286
LRPHEXPT ;;9195190
LRPHITE1 ;;11966791
LRPHITE2 ;;3592550
LRPHITE3 ;;2570033
LRPHITEM ;;14241855
LRPHLIS1 ;;14180980
LRPHLIST ;;13349268
LRPHSET ;;17207396
LRPHSET1 ;;7020946
LRPHSET2 ;;16068862
LRQC ;;681009
LRQCC ;;11068638
LRQCLOG ;;9698504
LRRD ;;8518062
LRRK ;;5712336
LRRP ;;10136813
LRRP1 ;;6740104
LRRP2 ;;12419851
LRRP3 ;;8171424
LRRP4 ;;3196176
LRRP5 ;;5807146
LRRP5A ;;4696626
LRRP6 ;;4486928
LRRP6A1 ;;5209716
LRRP6A2 ;;2681809
LRRP6A3 ;;2318940
LRRP6B1 ;;3787926
LRRP6B2 ;;2864954
LRRP6B3 ;;2072606
LRRP7 ;;3106946
LRRP8 ;;1356290
LRRP8A ;;4325958
LRRP8B ;;2256698
LRRP8C ;;5002891
LRRS ;;8707990
LRRS12 ;;3900411
LRRS13 ;;3057556
LRRSP ;;3891776
LRSETUP ;;9966224
LRSLOW ;;18541286
LRSMAC ;;5282435
LRSOR ;;7195489
LRSOR1 ;;1558609
LRSORA ;;7657175
LRSORA0 ;;2281955
LRSORA1 ;;6300770
LRSORA2 ;;3292731
LRSORA3 ;;6360636
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLRNTEG02 3792 printed Sep 23, 2025@19:53:55 Page 2
LRNTEG02 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;OCT 25, 1994@16:14:26
+1 ;;5.2;LAB SERVICE;;Sep 27, 1994
+2 ;;7.2;OCT 25, 1994@16:14:26
+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^LRNTEG03
+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 ;;
LRMIPSZ ;;8712841
LRMIPSZ1 ;;12406819
LRMIPSZ2 ;;11226062
LRMIPSZ3 ;;8318897
LRMIPSZ4 ;;11912188
LRMIPSZ5 ;;12221036
LRMIS ;;100097
LRMISEZ ;;10610238
LRMISEZ1 ;;9213100
LRMISEZ2 ;;11072948
LRMISEZ3 ;;9782087
LRMISEZ4 ;;4421803
LRMISEZA ;;16855476
LRMISEZB ;;9566752
LRMISR ;;7163511
LRMISR1 ;;3355654
LRMISTF ;;10468714
LRMISTF1 ;;14032069
LRMITS ;;2538407
LRMITSE ;;3156077
LRMITSEC ;;11973690
LRMITSES ;;7783131
LRMITSP ;;2844397
LRMITSPC ;;5437371
LRMITSPE ;;6010630
LRMITSPO ;;5286842
LRMITSPS ;;3052409
LRMITSR ;;10903814
LRMITSRH ;;2059425
LRMITSRS ;;9988179
LRMIU4 ;;5614178
LRMIUT ;;3226335
LRMIUT1 ;;5126116
LRMIV ;;5001526
LRMIV1 ;;12023776
LRMIV2 ;;15350039
LRMIV3 ;;7301635
LRMIV4 ;;8957717
LRMIVER ;;8247730
LRMIVER1 ;;9809595
LRMIXALL ;;2510057
LRMIXPD ;;2621751
LRMIXR1 ;;1499994
LRMIXR2 ;;4935912
LRMIXR3 ;;7444890
LRMIZAP ;;15214782
LRMIZAP1 ;;5599755
LRMRSHRT ;;12006164
LRNDLST ;;6518918
LRNIGHT ;;3012542
LRNIGHT1 ;;3577041
LRNIGHT2 ;;8145950
LRNITEG ;;10629315
LRNITEGL ;;5620432
LRNODRAW ;;6441287
LRNORMAL ;;2729775
LRNPXA ;;3121059
LRNPXA0 ;;2098459
LRNPXA1 ;;7927108
LRNUM ;;6084836
LRO ;;137704
LRO1 ;;80835
LRO2 ;;492098
LRO3 ;;83879
LRO4 ;;1104
LRO5 ;;55717
LRO6 ;;58416
LRO7 ;;58696
LRO8 ;;55867
LROC ;;9962104
LROC1 ;;513736
LROCM ;;902146
LROE ;;14124488
LROE1 ;;7441789
LROE2 ;;8671366
LROI ;;1171816
LROLOVER ;;11243389
LROPT ;;13626902
LROPTLST ;;6823560
LROR ;;11488574
LROR1 ;;9367723
LROR2 ;;7864169
LROR3 ;;8668640
LROR4 ;;12426203
LROR4A ;;11272423
LROR4B ;;11230240
LROR5 ;;126397
LROR6 ;;2546332
LROR6A ;;10885921
LROR6B ;;7065648
LROR7 ;;91305
LROR8 ;;10413551
LROR9 ;;14142736
LRORD ;;12460893
LRORD1 ;;12374911
LRORD2 ;;17233514
LRORD2A ;;4265341
LRORD3 ;;7325550
LRORDD ;;13714315
LRORDERN ;;138962
LRORDIM ;;4446478
LRORDK ;;13547846
LRORDST ;;14794328
LRORDST1 ;;2848
LROS ;;13339397
LROSX0 ;;17415
LROSX1 ;;7539
LROW ;;7529828
LROW1 ;;13614464
LROW1A ;;3246964
LROW2 ;;8567142
LROW2A ;;6321320
LROW2P ;;7207400
LROW2RP ;;6049085
LROW3 ;;6949223
LROW4 ;;4523889
LROW5 ;;12012801
LRPARAM ;;7507286
LRPHEXPT ;;9195190
LRPHITE1 ;;11966791
LRPHITE2 ;;3592550
LRPHITE3 ;;2570033
LRPHITEM ;;14241855
LRPHLIS1 ;;14180980
LRPHLIST ;;13349268
LRPHSET ;;17207396
LRPHSET1 ;;7020946
LRPHSET2 ;;16068862
LRQC ;;681009
LRQCC ;;11068638
LRQCLOG ;;9698504
LRRD ;;8518062
LRRK ;;5712336
LRRP ;;10136813
LRRP1 ;;6740104
LRRP2 ;;12419851
LRRP3 ;;8171424
LRRP4 ;;3196176
LRRP5 ;;5807146
LRRP5A ;;4696626
LRRP6 ;;4486928
LRRP6A1 ;;5209716
LRRP6A2 ;;2681809
LRRP6A3 ;;2318940
LRRP6B1 ;;3787926
LRRP6B2 ;;2864954
LRRP6B3 ;;2072606
LRRP7 ;;3106946
LRRP8 ;;1356290
LRRP8A ;;4325958
LRRP8B ;;2256698
LRRP8C ;;5002891
LRRS ;;8707990
LRRS12 ;;3900411
LRRS13 ;;3057556
LRRSP ;;3891776
LRSETUP ;;9966224
LRSLOW ;;18541286
LRSMAC ;;5282435
LRSOR ;;7195489
LRSOR1 ;;1558609
LRSORA ;;7657175
LRSORA0 ;;2281955
LRSORA1 ;;6300770
LRSORA2 ;;3292731
LRSORA3 ;;6360636
