- 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 Feb 18, 2025@23:44:05 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