RMPRNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2960209.165831
;;3.0;PROSTHETICS;;Feb 09, 1996
;;7.3;2960209.165831
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^RMPRNTE0
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 ;;
RMPR21 ;;10407458
RMPR21A ;;15000806
RMPR21B ;;6679243
RMPR21C ;;7218243
RMPR22 ;;5209008
RMPR29 ;;9985599
RMPR293 ;;8677167
RMPR29A ;;17059538
RMPR29B ;;18058296
RMPR29C ;;7821428
RMPR29D ;;4462820
RMPR29I ;;16919371
RMPR29I1 ;;7825686
RMPR29J ;;5954207
RMPR29M ;;14840317
RMPR29P ;;9013320
RMPR29R ;;10622204
RMPR29S ;;8185883
RMPR29T ;;18661557
RMPR29U ;;15769328
RMPR29W ;;8616427
RMPR31U ;;5217736
RMPR37 ;;9692837
RMPR37A ;;4507614
RMPR6 ;;20477861
RMPR61 ;;10980893
RMPR62 ;;17198520
RMPR6P ;;12673816
RMPR7 ;;13976688
RMPR71 ;;10855018
RMPR8PG ;;4808622
RMPRAINQ ;;8031837
RMPRAP ;;5427725
RMPRAUT ;;18575980
RMPRAVR ;;18820856
RMPRAVR1 ;;16923766
RMPRBIL ;;11415690
RMPRC21 ;;8368789
RMPRCDP ;;7558197
RMPRCH ;;684518
RMPRCT ;;13363539
RMPRD1 ;;10306112
RMPRDA ;;18736947
RMPRDIS ;;18617789
RMPRDP ;;13530752
RMPRDT ;;8249725
RMPRE21 ;;17008151
RMPRE22 ;;5573474
RMPRE29 ;;1079144
RMPRED2 ;;110337
RMPRED4 ;;13849143
RMPRED6 ;;23724516
RMPREGF ;;3086061
RMPRELG1 ;;13170465
RMPRELG2 ;;7334007
RMPRESI ;;5813097
RMPREXT ;;3826826
RMPRFO ;;6453375
RMPRFO1 ;;9964673
RMPRFO2 ;;11154476
RMPRFO3 ;;12927571
RMPRFO4 ;;3346944
RMPRFO6 ;;2590250
RMPRFSH ;;7473808
RMPRGEC ;;18547762
RMPRGEC1 ;;17214221
RMPRGOR ;;9693001
RMPRHIS ;;11384667
RMPRHISD ;;7106484
RMPRHISL ;;8231208
RMPRHL ;;15631868
RMPRI001 ;;8620482
RMPRI002 ;;9952776
RMPRI003 ;;10186342
RMPRI004 ;;9470538
RMPRI005 ;;8429315
RMPRI006 ;;8606885
RMPRI007 ;;8934698
RMPRI008 ;;4249845
RMPRI009 ;;7017287
RMPRI00A ;;4830366
RMPRI00B ;;9241471
RMPRI00C ;;995526
RMPRI00D ;;6044364
RMPRI00E ;;7960411
RMPRI00F ;;3462500
RMPRI00G ;;8262862
RMPRI00H ;;1434918
RMPRI00I ;;5279053
RMPRI00J ;;2880361
RMPRI00K ;;7259917
RMPRI00L ;;8460237
RMPRI00M ;;9763825
RMPRI00N ;;1868807
RMPRI00O ;;9600818
RMPRI00P ;;8514235
RMPRI00Q ;;1764564
RMPRI00R ;;7795374
RMPRI00S ;;2720472
RMPRI00T ;;8772477
RMPRI00U ;;9565315
RMPRI00V ;;9544539
RMPRI00W ;;7881777
RMPRI00X ;;7554470
RMPRI00Y ;;7767345
RMPRI00Z ;;9788960
RMPRI010 ;;8217521
RMPRI011 ;;10341875
RMPRI012 ;;8268562
RMPRI013 ;;10222912
RMPRI014 ;;10698598
RMPRI015 ;;8403707
RMPRI016 ;;7925460
RMPRI017 ;;9458081
RMPRI018 ;;8533666
RMPRI019 ;;5545281
RMPRI01A ;;8252348
RMPRI01B ;;8194936
RMPRI01C ;;5696665
RMPRI01D ;;7874259
RMPRI01E ;;9571364
RMPRI01F ;;8461532
RMPRI01G ;;5865069
RMPRI01H ;;6641748
RMPRI01I ;;3173766
RMPRI01J ;;1044336
RMPRI01K ;;7445908
RMPRI01L ;;3889417
RMPRI01M ;;7720592
RMPRI01N ;;3376688
RMPRI01O ;;1845657
RMPRI01P ;;1690440
RMPRI01Q ;;8101132
RMPRI01R ;;4977661
RMPRI01S ;;9352378
RMPRI01T ;;1877679
RMPRI01U ;;3474680
RMPRI01V ;;1362260
RMPRI01W ;;6777742
RMPRI01X ;;8598949
RMPRI01Y ;;8151336
RMPRI01Z ;;13673315
RMPRI020 ;;12949891
RMPRI021 ;;13894244
RMPRI022 ;;15481265
RMPRI023 ;;15409752
RMPRI024 ;;14073548
RMPRI025 ;;12424915
RMPRI026 ;;15928674
RMPRI027 ;;15839975
RMPRI028 ;;17096875
RMPRI029 ;;16929525
RMPRI02A ;;16905079
RMPRI02B ;;17513789
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRMPRNTEG 3776 printed Oct 16, 2024@18:36 Page 2
RMPRNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2960209.165831
+1 ;;3.0;PROSTHETICS;;Feb 09, 1996
+2 ;;7.3;2960209.165831
+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^RMPRNTE0
+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 ;;
RMPR21 ;;10407458
RMPR21A ;;15000806
RMPR21B ;;6679243
RMPR21C ;;7218243
RMPR22 ;;5209008
RMPR29 ;;9985599
RMPR293 ;;8677167
RMPR29A ;;17059538
RMPR29B ;;18058296
RMPR29C ;;7821428
RMPR29D ;;4462820
RMPR29I ;;16919371
RMPR29I1 ;;7825686
RMPR29J ;;5954207
RMPR29M ;;14840317
RMPR29P ;;9013320
RMPR29R ;;10622204
RMPR29S ;;8185883
RMPR29T ;;18661557
RMPR29U ;;15769328
RMPR29W ;;8616427
RMPR31U ;;5217736
RMPR37 ;;9692837
RMPR37A ;;4507614
RMPR6 ;;20477861
RMPR61 ;;10980893
RMPR62 ;;17198520
RMPR6P ;;12673816
RMPR7 ;;13976688
RMPR71 ;;10855018
RMPR8PG ;;4808622
RMPRAINQ ;;8031837
RMPRAP ;;5427725
RMPRAUT ;;18575980
RMPRAVR ;;18820856
RMPRAVR1 ;;16923766
RMPRBIL ;;11415690
RMPRC21 ;;8368789
RMPRCDP ;;7558197
RMPRCH ;;684518
RMPRCT ;;13363539
RMPRD1 ;;10306112
RMPRDA ;;18736947
RMPRDIS ;;18617789
RMPRDP ;;13530752
RMPRDT ;;8249725
RMPRE21 ;;17008151
RMPRE22 ;;5573474
RMPRE29 ;;1079144
RMPRED2 ;;110337
RMPRED4 ;;13849143
RMPRED6 ;;23724516
RMPREGF ;;3086061
RMPRELG1 ;;13170465
RMPRELG2 ;;7334007
RMPRESI ;;5813097
RMPREXT ;;3826826
RMPRFO ;;6453375
RMPRFO1 ;;9964673
RMPRFO2 ;;11154476
RMPRFO3 ;;12927571
RMPRFO4 ;;3346944
RMPRFO6 ;;2590250
RMPRFSH ;;7473808
RMPRGEC ;;18547762
RMPRGEC1 ;;17214221
RMPRGOR ;;9693001
RMPRHIS ;;11384667
RMPRHISD ;;7106484
RMPRHISL ;;8231208
RMPRHL ;;15631868
RMPRI001 ;;8620482
RMPRI002 ;;9952776
RMPRI003 ;;10186342
RMPRI004 ;;9470538
RMPRI005 ;;8429315
RMPRI006 ;;8606885
RMPRI007 ;;8934698
RMPRI008 ;;4249845
RMPRI009 ;;7017287
RMPRI00A ;;4830366
RMPRI00B ;;9241471
RMPRI00C ;;995526
RMPRI00D ;;6044364
RMPRI00E ;;7960411
RMPRI00F ;;3462500
RMPRI00G ;;8262862
RMPRI00H ;;1434918
RMPRI00I ;;5279053
RMPRI00J ;;2880361
RMPRI00K ;;7259917
RMPRI00L ;;8460237
RMPRI00M ;;9763825
RMPRI00N ;;1868807
RMPRI00O ;;9600818
RMPRI00P ;;8514235
RMPRI00Q ;;1764564
RMPRI00R ;;7795374
RMPRI00S ;;2720472
RMPRI00T ;;8772477
RMPRI00U ;;9565315
RMPRI00V ;;9544539
RMPRI00W ;;7881777
RMPRI00X ;;7554470
RMPRI00Y ;;7767345
RMPRI00Z ;;9788960
RMPRI010 ;;8217521
RMPRI011 ;;10341875
RMPRI012 ;;8268562
RMPRI013 ;;10222912
RMPRI014 ;;10698598
RMPRI015 ;;8403707
RMPRI016 ;;7925460
RMPRI017 ;;9458081
RMPRI018 ;;8533666
RMPRI019 ;;5545281
RMPRI01A ;;8252348
RMPRI01B ;;8194936
RMPRI01C ;;5696665
RMPRI01D ;;7874259
RMPRI01E ;;9571364
RMPRI01F ;;8461532
RMPRI01G ;;5865069
RMPRI01H ;;6641748
RMPRI01I ;;3173766
RMPRI01J ;;1044336
RMPRI01K ;;7445908
RMPRI01L ;;3889417
RMPRI01M ;;7720592
RMPRI01N ;;3376688
RMPRI01O ;;1845657
RMPRI01P ;;1690440
RMPRI01Q ;;8101132
RMPRI01R ;;4977661
RMPRI01S ;;9352378
RMPRI01T ;;1877679
RMPRI01U ;;3474680
RMPRI01V ;;1362260
RMPRI01W ;;6777742
RMPRI01X ;;8598949
RMPRI01Y ;;8151336
RMPRI01Z ;;13673315
RMPRI020 ;;12949891
RMPRI021 ;;13894244
RMPRI022 ;;15481265
RMPRI023 ;;15409752
RMPRI024 ;;14073548
RMPRI025 ;;12424915
RMPRI026 ;;15928674
RMPRI027 ;;15839975
RMPRI028 ;;17096875
RMPRI029 ;;16929525
RMPRI02A ;;16905079
RMPRI02B ;;17513789
