- LRNTEG03 ;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")
- ;
- 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 ;;
- LRSORB ;;5246084
- LRSORC ;;2903387
- LRSORC1 ;;2650199
- LRSORC1A ;;5784485
- LRSORD ;;2903439
- LRSORD1 ;;2634130
- LRSORD1A ;;5873206
- LRSPDA ;;1708053
- LRSPGD ;;1899546
- LRSPRPT ;;14704153
- LRSPRPT1 ;;9128154
- LRSPRPT2 ;;11806540
- LRSPRPTM ;;3548807
- LRSPS ;;1349074
- LRSPSICD ;;3733172
- LRSPSICP ;;4548274
- LRSPT ;;5788888
- LRSTATUS ;;5864956
- LRSTOPC ;;8270122
- LRSTUF ;;3165927
- LRSTUF1 ;;13017004
- LRSTUF2 ;;7213582
- LRTOT ;;5514392
- LRTP ;;1719568
- LRTSTJAM ;;11402229
- LRTSTJAN ;;15845798
- LRTSTJM1 ;;3677989
- LRTSTOUT ;;14679176
- LRTSTSET ;;11593341
- LRU ;;17199697
- LRUA ;;9428099
- LRUB ;;2794163
- LRUBL ;;2301075
- LRUC ;;3314953
- LRUCE ;;3615614
- LRUCLR ;;1483623
- LRUCN ;;6285550
- LRUCNBB ;;6439802
- LRUD ;;8613899
- LRUD1 ;;1288507
- LRUDEL ;;8062773
- LRUDIT ;;1873186
- LRUDPT ;;3892466
- LRUE ;;8625936
- LRUER ;;12482221
- LRUET ;;9746002
- LRUFILE ;;3793703
- LRUG ;;2440226
- LRUL ;;6494173
- LRULA ;;2814252
- LRULB ;;3214861
- LRULB1 ;;5054925
- LRULEN ;;4920379
- LRUMD ;;13730332
- LRUMD1 ;;15963110
- LRUMD2 ;;9441970
- LRUMDF ;;12190617
- LRUMDM ;;12811700
- LRUMDP ;;9583614
- LRUMDS ;;6757098
- LRUMDU ;;12785217
- LRUMDU1 ;;2924915
- LRUMI ;;8672238
- LRUMSG ;;549954
- LRUP ;;111723
- LRUPA ;;8985351
- LRUPA1 ;;8601230
- LRUPA2 ;;10860453
- LRUPAC ;;5317474
- LRUPACA ;;10645043
- LRUPACS ;;9002791
- LRUPACT ;;12662142
- LRUPAD ;;8440128
- LRUPAD1 ;;7381083
- LRUPAD2 ;;9070446
- LRUPQ ;;5009717
- LRUPQ1 ;;5480421
- LRUPS ;;5213446
- LRUPT ;;9583710
- LRUPUM ;;4413283
- LRUQ ;;2165509
- LRUR ;;5269766
- LRURG ;;563985
- LRUSE ;;1274883
- LRUSET ;;1000756
- LRUSNOM ;;1630210
- LRUSP ;;3735979
- LRUT ;;1482424
- LRUTA ;;5134496
- LRUTAD ;;10053839
- LRUTELL ;;1609316
- LRUTL ;;10259125
- LRUTRAN ;;3731182
- LRUTT ;;11013569
- LRUTW ;;7949670
- LRUU ;;1156447
- LRUV ;;399332
- LRUW ;;10155671
- LRUWG ;;10453371
- LRUWK ;;1415257
- LRUWL ;;3121574
- LRUWLF ;;5417790
- LRVER ;;16483418
- LRVER1 ;;5987669
- LRVER2 ;;6818151
- LRVER3 ;;8335446
- LRVER3A ;;9912700
- LRVER4 ;;14817646
- LRVER5 ;;11228247
- LRVR ;;13379924
- LRVR1 ;;9222290
- LRVR2 ;;6604344
- LRVR3 ;;10872068
- LRVR4 ;;10297579
- LRVR5 ;;9391488
- LRVRKIL ;;4419206
- LRVRW ;;9610673
- LRWD ;;1562529
- LRWLHEAD ;;689266
- LRWLST ;;14625851
- LRWLST1 ;;13063164
- LRWLST11 ;;15804232
- LRWLST12 ;;4658067
- LRWLST13 ;;7041750
- LRWLST2 ;;4332114
- LRWRKIN1 ;;4265901
- LRWRKINC ;;12503776
- LRWRKLS1 ;;1982294
- LRWRKLST ;;7270047
- LRWRKS ;;7701958
- LRWRKS2 ;;5580037
- LRWU ;;11277129
- LRWU1 ;;3812098
- LRWU2 ;;1596365
- LRWU3 ;;8913298
- LRWU4 ;;6571565
- LRWU5 ;;12308481
- LRWU6 ;;7589287
- LRWU7 ;;8189681
- LRX ;;10626021
- LRX6 ;;16621271
- LRX60 ;;9025787
- LRX62P6 ;;8926756
- LRX62P61 ;;20085978
- LRX6PRO ;;3892082
- LRXO0 ;;2244780
- LRXO00 ;;11600233
- LRXO1 ;;10821866
- LRXO10 ;;4100641
- LRXO11 ;;9945043
- LRXO1A ;;10417967
- LRXO2 ;;10312556
- LRXO3 ;;6346859
- LRXO4 ;;15854526
- LRXO4A ;;7531049
- LRXO5 ;;18115224
- LRXO6 ;;6504620
- LRXO7 ;;3502103
- LRXO8 ;;3966298
- LRXO9 ;;8693186
- LRXOS0 ;;2439944
- LRXOS1 ;;3868247
- LRXREF ;;9253913
- LRXREF1 ;;7533129
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLRNTEG03 3695 printed Mar 13, 2025@21:22:46 Page 2
- LRNTEG03 ;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 ;
- +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 ;;
- LRSORB ;;5246084
- LRSORC ;;2903387
- LRSORC1 ;;2650199
- LRSORC1A ;;5784485
- LRSORD ;;2903439
- LRSORD1 ;;2634130
- LRSORD1A ;;5873206
- LRSPDA ;;1708053
- LRSPGD ;;1899546
- LRSPRPT ;;14704153
- LRSPRPT1 ;;9128154
- LRSPRPT2 ;;11806540
- LRSPRPTM ;;3548807
- LRSPS ;;1349074
- LRSPSICD ;;3733172
- LRSPSICP ;;4548274
- LRSPT ;;5788888
- LRSTATUS ;;5864956
- LRSTOPC ;;8270122
- LRSTUF ;;3165927
- LRSTUF1 ;;13017004
- LRSTUF2 ;;7213582
- LRTOT ;;5514392
- LRTP ;;1719568
- LRTSTJAM ;;11402229
- LRTSTJAN ;;15845798
- LRTSTJM1 ;;3677989
- LRTSTOUT ;;14679176
- LRTSTSET ;;11593341
- LRU ;;17199697
- LRUA ;;9428099
- LRUB ;;2794163
- LRUBL ;;2301075
- LRUC ;;3314953
- LRUCE ;;3615614
- LRUCLR ;;1483623
- LRUCN ;;6285550
- LRUCNBB ;;6439802
- LRUD ;;8613899
- LRUD1 ;;1288507
- LRUDEL ;;8062773
- LRUDIT ;;1873186
- LRUDPT ;;3892466
- LRUE ;;8625936
- LRUER ;;12482221
- LRUET ;;9746002
- LRUFILE ;;3793703
- LRUG ;;2440226
- LRUL ;;6494173
- LRULA ;;2814252
- LRULB ;;3214861
- LRULB1 ;;5054925
- LRULEN ;;4920379
- LRUMD ;;13730332
- LRUMD1 ;;15963110
- LRUMD2 ;;9441970
- LRUMDF ;;12190617
- LRUMDM ;;12811700
- LRUMDP ;;9583614
- LRUMDS ;;6757098
- LRUMDU ;;12785217
- LRUMDU1 ;;2924915
- LRUMI ;;8672238
- LRUMSG ;;549954
- LRUP ;;111723
- LRUPA ;;8985351
- LRUPA1 ;;8601230
- LRUPA2 ;;10860453
- LRUPAC ;;5317474
- LRUPACA ;;10645043
- LRUPACS ;;9002791
- LRUPACT ;;12662142
- LRUPAD ;;8440128
- LRUPAD1 ;;7381083
- LRUPAD2 ;;9070446
- LRUPQ ;;5009717
- LRUPQ1 ;;5480421
- LRUPS ;;5213446
- LRUPT ;;9583710
- LRUPUM ;;4413283
- LRUQ ;;2165509
- LRUR ;;5269766
- LRURG ;;563985
- LRUSE ;;1274883
- LRUSET ;;1000756
- LRUSNOM ;;1630210
- LRUSP ;;3735979
- LRUT ;;1482424
- LRUTA ;;5134496
- LRUTAD ;;10053839
- LRUTELL ;;1609316
- LRUTL ;;10259125
- LRUTRAN ;;3731182
- LRUTT ;;11013569
- LRUTW ;;7949670
- LRUU ;;1156447
- LRUV ;;399332
- LRUW ;;10155671
- LRUWG ;;10453371
- LRUWK ;;1415257
- LRUWL ;;3121574
- LRUWLF ;;5417790
- LRVER ;;16483418
- LRVER1 ;;5987669
- LRVER2 ;;6818151
- LRVER3 ;;8335446
- LRVER3A ;;9912700
- LRVER4 ;;14817646
- LRVER5 ;;11228247
- LRVR ;;13379924
- LRVR1 ;;9222290
- LRVR2 ;;6604344
- LRVR3 ;;10872068
- LRVR4 ;;10297579
- LRVR5 ;;9391488
- LRVRKIL ;;4419206
- LRVRW ;;9610673
- LRWD ;;1562529
- LRWLHEAD ;;689266
- LRWLST ;;14625851
- LRWLST1 ;;13063164
- LRWLST11 ;;15804232
- LRWLST12 ;;4658067
- LRWLST13 ;;7041750
- LRWLST2 ;;4332114
- LRWRKIN1 ;;4265901
- LRWRKINC ;;12503776
- LRWRKLS1 ;;1982294
- LRWRKLST ;;7270047
- LRWRKS ;;7701958
- LRWRKS2 ;;5580037
- LRWU ;;11277129
- LRWU1 ;;3812098
- LRWU2 ;;1596365
- LRWU3 ;;8913298
- LRWU4 ;;6571565
- LRWU5 ;;12308481
- LRWU6 ;;7589287
- LRWU7 ;;8189681
- LRX ;;10626021
- LRX6 ;;16621271
- LRX60 ;;9025787
- LRX62P6 ;;8926756
- LRX62P61 ;;20085978
- LRX6PRO ;;3892082
- LRXO0 ;;2244780
- LRXO00 ;;11600233
- LRXO1 ;;10821866
- LRXO10 ;;4100641
- LRXO11 ;;9945043
- LRXO1A ;;10417967
- LRXO2 ;;10312556
- LRXO3 ;;6346859
- LRXO4 ;;15854526
- LRXO4A ;;7531049
- LRXO5 ;;18115224
- LRXO6 ;;6504620
- LRXO7 ;;3502103
- LRXO8 ;;3966298
- LRXO9 ;;8693186
- LRXOS0 ;;2439944
- LRXOS1 ;;3868247
- LRXREF ;;9253913
- LRXREF1 ;;7533129
