LRNTEG ;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^LRNTEG0
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 ;;
LR52CNV ;;9175510
LR52CNV0 ;;3475444
LR52CNV1 ;;8155874
LR52CNV3 ;;7949281
LR52CNV4 ;;8091914
LR52CNV5 ;;7090305
LR52CNV7 ;;6270377
LR52CNV8 ;;6913340
LR52CNV9 ;;5903059
LR52CNVA ;;3635478
LR52CNVP ;;8781945
LR52CNVU ;;2239335
LR52CNVX ;;8110085
LR52TIM2 ;;3950513
LR52TIME ;;3676943
LRABG ;;1851372
LRABG1 ;;7566954
LRAC ;;6243657
LRAC1 ;;11261717
LRAC2 ;;11706705
LRAC2A ;;5935060
LRAC3 ;;10227958
LRAC4 ;;11230513
LRAC5 ;;7561182
LRAC6 ;;9135745
LRAC7 ;;2987131
LRAC8 ;;896828
LRAC9 ;;9098921
LRACC ;;4244367
LRACDIAG ;;16331067
LRACF ;;11037128
LRACFILE ;;884607
LRACFIX ;;1870623
LRACFR ;;9983668
LRACK ;;3045817
LRACKL ;;13626594
LRACKL1 ;;2455270
LRACM ;;12299888
LRACM1 ;;11850917
LRACM2 ;;9886073
LRACM2F ;;5537651
LRACM3 ;;7658633
LRACM4 ;;8356385
LRACP ;;2963963
LRACPG ;;844852
LRACS ;;10982120
LRACS1 ;;10583337
LRACS2 ;;5996122
LRACS3 ;;8023824
LRACSUM ;;9656858
LRACSUM1 ;;10133720
LRACSUM3 ;;7335590
LRACSUM4 ;;9181678
LRACSUM5 ;;13575770
LRACSUM6 ;;8083056
LRAD2ORD ;;7379677
LRAFUNC ;;5202410
LRAFUNC1 ;;8930233
LRAFUNC5 ;;4235238
LRAFUNC6 ;;4239245
LRAFUNC7 ;;7323033
LRAIPRIV ;;116977
LRAIRNUM ;;853891
LRAP ;;10403072
LRAPA ;;4656450
LRAPAP ;;1248151
LRAPAUA ;;4555449
LRAPAUL ;;14417566
LRAPAULC ;;5589732
LRAPAUPT ;;343483
LRAPAUSR ;;13851004
LRAPBK ;;12786562
LRAPBK1 ;;12514060
LRAPBS ;;9530725
LRAPBS1 ;;10479431
LRAPBS2 ;;2393780
LRAPC ;;5340982
LRAPCUM ;;13268233
LRAPCUM1 ;;6307179
LRAPCWK ;;9695591
LRAPD ;;4542710
LRAPD1 ;;12376303
LRAPDA ;;14820288
LRAPDAC ;;3206399
LRAPDEL ;;6301858
LRAPDPT ;;6823526
LRAPDS ;;413044
LRAPED ;;11456664
LRAPEDC ;;4899381
LRAPF ;;2304308
LRAPFICH ;;3383986
LRAPFTS ;;23050
LRAPH ;;4909603
LRAPHDR ;;1559144
LRAPJNC ;;5838353
LRAPL ;;6656073
LRAPLG ;;7333835
LRAPLG1 ;;6952457
LRAPLG2 ;;5232187
LRAPM ;;14128148
LRAPMOD ;;1763077
LRAPMV ;;7473442
LRAPOLD ;;10216449
LRAPONC ;;4385791
LRAPP ;;5467205
LRAPPA ;;4168936
LRAPPF ;;2917679
LRAPPF1 ;;11687405
LRAPPF2 ;;1703493
LRAPPOW ;;6667789
LRAPPRE ;;752949
LRAPQ ;;5576437
LRAPQAC ;;8427071
LRAPQACD ;;1805048
LRAPQACN ;;7551560
LRAPQAFS ;;6062556
LRAPQAM ;;2742545
LRAPQAMR ;;8517573
LRAPQAR ;;11772281
LRAPQAT ;;12217676
LRAPQAT1 ;;5893900
LRAPQOR ;;5274969
LRAPQOR1 ;;10672669
LRAPQOR2 ;;5647114
LRAPQOR3 ;;6098335
LRAPR ;;10366720
LRAPREF ;;381960
LRAPS ;;1983043
LRAPS1 ;;8521516
LRAPS2 ;;11905503
LRAPS3 ;;2265857
LRAPSA ;;8361677
LRAPSE ;;1707913
LRAPSEM ;;14699799
LRAPSEM1 ;;10343109
LRAPSEM2 ;;12254703
LRAPSL ;;10783558
LRAPSL1 ;;11000394
LRAPSM ;;9196990
LRAPSM1 ;;11824486
LRAPST ;;8820669
LRAPST1 ;;3180798
LRAPSWK ;;13317104
LRAPT ;;7684657
LRAPT1 ;;1555945
LRAPT2 ;;13252231
LRAPT3 ;;3593015
LRAPTT ;;12355400
LRAPTT1 ;;5291896
LRAPV ;;6254696
LRAPWA ;;2145601
LRAPWE ;;10582558
LRAPWE1 ;;5467253
LRAPWEA ;;10035536
LRAPWKA ;;10993774
LRAPWKA1 ;;2854955
LRAPWR ;;13705370
LRAPWR1 ;;10850851
LRAPWSPG ;;6741045
LRAPWU ;;9771464
LRAPX ;;5707403
LRAUAW ;;4434676
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLRNTEG 3794 printed Dec 13, 2024@02:18:13 Page 2
LRNTEG ;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^LRNTEG0
+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 ;;
LR52CNV ;;9175510
LR52CNV0 ;;3475444
LR52CNV1 ;;8155874
LR52CNV3 ;;7949281
LR52CNV4 ;;8091914
LR52CNV5 ;;7090305
LR52CNV7 ;;6270377
LR52CNV8 ;;6913340
LR52CNV9 ;;5903059
LR52CNVA ;;3635478
LR52CNVP ;;8781945
LR52CNVU ;;2239335
LR52CNVX ;;8110085
LR52TIM2 ;;3950513
LR52TIME ;;3676943
LRABG ;;1851372
LRABG1 ;;7566954
LRAC ;;6243657
LRAC1 ;;11261717
LRAC2 ;;11706705
LRAC2A ;;5935060
LRAC3 ;;10227958
LRAC4 ;;11230513
LRAC5 ;;7561182
LRAC6 ;;9135745
LRAC7 ;;2987131
LRAC8 ;;896828
LRAC9 ;;9098921
LRACC ;;4244367
LRACDIAG ;;16331067
LRACF ;;11037128
LRACFILE ;;884607
LRACFIX ;;1870623
LRACFR ;;9983668
LRACK ;;3045817
LRACKL ;;13626594
LRACKL1 ;;2455270
LRACM ;;12299888
LRACM1 ;;11850917
LRACM2 ;;9886073
LRACM2F ;;5537651
LRACM3 ;;7658633
LRACM4 ;;8356385
LRACP ;;2963963
LRACPG ;;844852
LRACS ;;10982120
LRACS1 ;;10583337
LRACS2 ;;5996122
LRACS3 ;;8023824
LRACSUM ;;9656858
LRACSUM1 ;;10133720
LRACSUM3 ;;7335590
LRACSUM4 ;;9181678
LRACSUM5 ;;13575770
LRACSUM6 ;;8083056
LRAD2ORD ;;7379677
LRAFUNC ;;5202410
LRAFUNC1 ;;8930233
LRAFUNC5 ;;4235238
LRAFUNC6 ;;4239245
LRAFUNC7 ;;7323033
LRAIPRIV ;;116977
LRAIRNUM ;;853891
LRAP ;;10403072
LRAPA ;;4656450
LRAPAP ;;1248151
LRAPAUA ;;4555449
LRAPAUL ;;14417566
LRAPAULC ;;5589732
LRAPAUPT ;;343483
LRAPAUSR ;;13851004
LRAPBK ;;12786562
LRAPBK1 ;;12514060
LRAPBS ;;9530725
LRAPBS1 ;;10479431
LRAPBS2 ;;2393780
LRAPC ;;5340982
LRAPCUM ;;13268233
LRAPCUM1 ;;6307179
LRAPCWK ;;9695591
LRAPD ;;4542710
LRAPD1 ;;12376303
LRAPDA ;;14820288
LRAPDAC ;;3206399
LRAPDEL ;;6301858
LRAPDPT ;;6823526
LRAPDS ;;413044
LRAPED ;;11456664
LRAPEDC ;;4899381
LRAPF ;;2304308
LRAPFICH ;;3383986
LRAPFTS ;;23050
LRAPH ;;4909603
LRAPHDR ;;1559144
LRAPJNC ;;5838353
LRAPL ;;6656073
LRAPLG ;;7333835
LRAPLG1 ;;6952457
LRAPLG2 ;;5232187
LRAPM ;;14128148
LRAPMOD ;;1763077
LRAPMV ;;7473442
LRAPOLD ;;10216449
LRAPONC ;;4385791
LRAPP ;;5467205
LRAPPA ;;4168936
LRAPPF ;;2917679
LRAPPF1 ;;11687405
LRAPPF2 ;;1703493
LRAPPOW ;;6667789
LRAPPRE ;;752949
LRAPQ ;;5576437
LRAPQAC ;;8427071
LRAPQACD ;;1805048
LRAPQACN ;;7551560
LRAPQAFS ;;6062556
LRAPQAM ;;2742545
LRAPQAMR ;;8517573
LRAPQAR ;;11772281
LRAPQAT ;;12217676
LRAPQAT1 ;;5893900
LRAPQOR ;;5274969
LRAPQOR1 ;;10672669
LRAPQOR2 ;;5647114
LRAPQOR3 ;;6098335
LRAPR ;;10366720
LRAPREF ;;381960
LRAPS ;;1983043
LRAPS1 ;;8521516
LRAPS2 ;;11905503
LRAPS3 ;;2265857
LRAPSA ;;8361677
LRAPSE ;;1707913
LRAPSEM ;;14699799
LRAPSEM1 ;;10343109
LRAPSEM2 ;;12254703
LRAPSL ;;10783558
LRAPSL1 ;;11000394
LRAPSM ;;9196990
LRAPSM1 ;;11824486
LRAPST ;;8820669
LRAPST1 ;;3180798
LRAPSWK ;;13317104
LRAPT ;;7684657
LRAPT1 ;;1555945
LRAPT2 ;;13252231
LRAPT3 ;;3593015
LRAPTT ;;12355400
LRAPTT1 ;;5291896
LRAPV ;;6254696
LRAPWA ;;2145601
LRAPWE ;;10582558
LRAPWE1 ;;5467253
LRAPWEA ;;10035536
LRAPWKA ;;10993774
LRAPWKA1 ;;2854955
LRAPWR ;;13705370
LRAPWR1 ;;10850851
LRAPWSPG ;;6741045
LRAPWU ;;9771464
LRAPX ;;5707403
LRAUAW ;;4434676
