| 1 | SR47NTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2960416.105153
|
|---|
| 2 | ;;3.0; Surgery ;**47**;24 Jun 93
|
|---|
| 3 | ;;7.3;2960416.105153
|
|---|
| 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 | SR47UTL ;;5186696
|
|---|
| 13 | SROACAT ;;6834629
|
|---|
| 14 | SROACLN ;;6382097
|
|---|
| 15 | SROACMP ;;15283606
|
|---|
| 16 | SROACMP1 ;;23147328
|
|---|
| 17 | SROACOP ;;11057961
|
|---|
| 18 | SROAEX ;;11497138
|
|---|
| 19 | SROAL1 ;;11556805
|
|---|
| 20 | SROAL11 ;;6185305
|
|---|
| 21 | SROAL2 ;;10750948
|
|---|
| 22 | SROAL21 ;;4560325
|
|---|
| 23 | SROALDP ;;3293717
|
|---|
| 24 | SROALL ;;8208388
|
|---|
| 25 | SROALLP ;;7157469
|
|---|
| 26 | SROALLS ;;9420995
|
|---|
| 27 | SROALLSP ;;9396385
|
|---|
| 28 | SROALN3 ;;8782134
|
|---|
| 29 | SROALSS ;;9386797
|
|---|
| 30 | SROALSSP ;;9401244
|
|---|
| 31 | SROALST ;;7998160
|
|---|
| 32 | SROALSTP ;;7163403
|
|---|
| 33 | SROANEW ;;12648353
|
|---|
| 34 | SROAOP ;;11502577
|
|---|
| 35 | SROAOP1 ;;9115661
|
|---|
| 36 | SROAPAS ;;10345055
|
|---|
| 37 | SROAPCA ;;12866038
|
|---|
| 38 | SROAPIMS ;;9883808
|
|---|
| 39 | SROAPM ;;13636932
|
|---|
| 40 | SROAPRE ;;9679925
|
|---|
| 41 | SROAPRE1 ;;4729875
|
|---|
| 42 | SROAPRE2 ;;4097864
|
|---|
| 43 | SROAPRT1 ;;8082582
|
|---|
| 44 | SROAPRT3 ;;8454802
|
|---|
| 45 | SROAPRT6 ;;5446204
|
|---|
| 46 | SROAPRT7 ;;19000597
|
|---|
| 47 | SROAPS1 ;;7709387
|
|---|
| 48 | SROAPS2 ;;8985142
|
|---|
| 49 | SROASS ;;15084905
|
|---|
| 50 | SROATM1 ;;16910089
|
|---|
| 51 | SROATM2 ;;20513629
|
|---|
| 52 | SROATMNO ;;2391304
|
|---|
| 53 | SROAUTL ;;16235018
|
|---|
| 54 | SROAUTL0 ;;13849655
|
|---|
| 55 | SROAUTL1 ;;6288964
|
|---|
| 56 | SROAUTL2 ;;10038625
|
|---|
| 57 | SROAUTL3 ;;9274940
|
|---|
| 58 | SROAWL ;;19121947
|
|---|
| 59 | SROAWL1 ;;12759360
|
|---|
| 60 | SROCCAT ;;10145167
|
|---|
| 61 | SROCMPED ;;15262076
|
|---|
| 62 | SRODTH ;;8958275
|
|---|
| 63 | SRONASS ;;11518910
|
|---|
| 64 | SRONEW ;;12423013
|
|---|
| 65 | SRONITE ;;48989
|
|---|
| 66 | SRSCHUN1 ;;8317107
|
|---|
| 67 | SRSRQST1 ;;8780087
|
|---|
| 68 | SRSUP1 ;;16919215
|
|---|
| 69 | SRSUPRQ ;;18207165
|
|---|
