| 1 | RMPRNTE0 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2960209.165831
|
|---|
| 2 | ;;3.0;PROSTHETICS;;Feb 09, 1996
|
|---|
| 3 | ;;7.3;2960209.165831
|
|---|
| 4 | S XT4="I 1",X=$T(+3) W !!,"Checksum routine created on ",$P(X,";",4)," by KERNEL V",$P(X,";",3),!
|
|---|
| 5 | 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")
|
|---|
| 6 | ;
|
|---|
| 7 | K %1,%2,%3,X,Y,XT1,XT2,XT3,XT4 Q
|
|---|
| 8 | 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),!
|
|---|
| 9 | W !,"Check a subset of routines:" K ^UTILITY($J) X ^%ZOSF("RSEL")
|
|---|
| 10 | W ! G CONT
|
|---|
| 11 | ROU ;;
|
|---|
| 12 | RMPRI02C ;;17018673
|
|---|
| 13 | RMPRI02D ;;11563027
|
|---|
| 14 | RMPRI02E ;;8865635
|
|---|
| 15 | RMPRI02F ;;7027166
|
|---|
| 16 | RMPRI02G ;;6842109
|
|---|
| 17 | RMPRI02H ;;7244905
|
|---|
| 18 | RMPRI02I ;;5925694
|
|---|
| 19 | RMPRI02J ;;7534905
|
|---|
| 20 | RMPRI02K ;;6078959
|
|---|
| 21 | RMPRI02L ;;7201032
|
|---|
| 22 | RMPRI02M ;;7004564
|
|---|
| 23 | RMPRI02N ;;6741062
|
|---|
| 24 | RMPRI02O ;;7457773
|
|---|
| 25 | RMPRI02P ;;7839986
|
|---|
| 26 | RMPRI02Q ;;8526976
|
|---|
| 27 | RMPRI02R ;;7708749
|
|---|
| 28 | RMPRI02S ;;8803448
|
|---|
| 29 | RMPRI02T ;;6563270
|
|---|
| 30 | RMPRI02U ;;7870262
|
|---|
| 31 | RMPRI02V ;;10580744
|
|---|
| 32 | RMPRI02W ;;7403138
|
|---|
| 33 | RMPRI02X ;;5302860
|
|---|
| 34 | RMPRI02Y ;;5789094
|
|---|
| 35 | RMPRI02Z ;;3515264
|
|---|
| 36 | RMPRINI1 ;;4973915
|
|---|
| 37 | RMPRINI2 ;;5232635
|
|---|
| 38 | RMPRINI3 ;;16808150
|
|---|
| 39 | RMPRINI4 ;;3357807
|
|---|
| 40 | RMPRINI5 ;;3278376
|
|---|
| 41 | RMPRINIS ;;2216491
|
|---|
| 42 | RMPRINIT ;;10531058
|
|---|
| 43 | RMPRKIL ;;2168834
|
|---|
| 44 | RMPRL22 ;;4975183
|
|---|
| 45 | RMPRL9 ;;15167046
|
|---|
| 46 | RMPRLI ;;6459285
|
|---|
| 47 | RMPRM ;;9889881
|
|---|
| 48 | RMPROP ;;3115920
|
|---|
| 49 | RMPROPN ;;12427496
|
|---|
| 50 | RMPROPN1 ;;7720327
|
|---|
| 51 | RMPRP2 ;;4917982
|
|---|
| 52 | RMPRP21 ;;19620260
|
|---|
| 53 | RMPRP22 ;;11385923
|
|---|
| 54 | RMPRP23 ;;11575829
|
|---|
| 55 | RMPRP24 ;;6186689
|
|---|
| 56 | RMPRP55 ;;19076827
|
|---|
| 57 | RMPRPAT ;;15563799
|
|---|
| 58 | RMPRPAT0 ;;8504379
|
|---|
| 59 | RMPRPAT1 ;;14399533
|
|---|
| 60 | RMPRPAT2 ;;7570637
|
|---|
| 61 | RMPRPAT3 ;;6735087
|
|---|
| 62 | RMPRPAT5 ;;7777843
|
|---|
| 63 | RMPRPAT6 ;;8200177
|
|---|
| 64 | RMPRPOST ;;8415128
|
|---|
| 65 | RMPRPRE ;;9046510
|
|---|
| 66 | RMPRPRT ;;12871392
|
|---|
| 67 | RMPRPRT1 ;;11245195
|
|---|
| 68 | RMPRPSC ;;9702495
|
|---|
| 69 | RMPRRET1 ;;19291270
|
|---|
| 70 | RMPRRET2 ;;7642705
|
|---|
| 71 | RMPRRET9 ;;11136432
|
|---|
| 72 | RMPRS ;;13212379
|
|---|
| 73 | RMPRSC ;;3366650
|
|---|
| 74 | RMPRSCA ;;22684531
|
|---|
| 75 | RMPRSCB ;;15730148
|
|---|
| 76 | RMPRSE1 ;;15517066
|
|---|
| 77 | RMPRSEA ;;17966677
|
|---|
| 78 | RMPRSEC ;;5488013
|
|---|
| 79 | RMPRSIT ;;4951282
|
|---|
| 80 | RMPRSP ;;10258059
|
|---|
| 81 | RMPRSP1 ;;9806970
|
|---|
| 82 | RMPRSP2 ;;16273581
|
|---|
| 83 | RMPRST2 ;;2509518
|
|---|
| 84 | RMPRSTK ;;15195669
|
|---|
| 85 | RMPRSTL ;;13233381
|
|---|
| 86 | RMPRU ;;2634577
|
|---|
| 87 | RMPRUTIL ;;9649163
|
|---|
| 88 | RMPRUTL1 ;;4432980
|
|---|
| 89 | RMPRUTL2 ;;2045338
|
|---|
| 90 | RMPRUTL3 ;;3687098
|
|---|
| 91 | RMPTI001 ;;8815267
|
|---|
| 92 | RMPTI002 ;;9116374
|
|---|
| 93 | RMPTI003 ;;10325495
|
|---|
| 94 | RMPTI004 ;;2105536
|
|---|
| 95 | RMPTI005 ;;1755613
|
|---|
| 96 | RMPTINI1 ;;4835438
|
|---|
| 97 | RMPTINI2 ;;5232643
|
|---|
| 98 | RMPTINI3 ;;16808274
|
|---|
| 99 | RMPTINI4 ;;3357815
|
|---|
| 100 | RMPTINI5 ;;493030
|
|---|
| 101 | RMPTINIS ;;2217017
|
|---|
| 102 | RMPTINIT ;;10238404
|
|---|
