| 1 | SOWKNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;APR 27, 1993@13:24:55
|
|---|
| 2 | ;;3.0; Social Work ;;27 Apr 93
|
|---|
| 3 | ;;7.0;APR 27, 1993@13:24:55
|
|---|
| 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 | SOWKAI ;;16305479
|
|---|
| 13 | SOWKAR10 ;;14236043
|
|---|
| 14 | SOWKARS ;;14521939
|
|---|
| 15 | SOWKARS1 ;;18777021
|
|---|
| 16 | SOWKARS2 ;;7449645
|
|---|
| 17 | SOWKARS3 ;;16667309
|
|---|
| 18 | SOWKARS4 ;;10817406
|
|---|
| 19 | SOWKARS5 ;;15465749
|
|---|
| 20 | SOWKARS6 ;;16633298
|
|---|
| 21 | SOWKAWB ;;13339750
|
|---|
| 22 | SOWKAWI ;;13217836
|
|---|
| 23 | SOWKAWS ;;13951899
|
|---|
| 24 | SOWKAWU ;;13765101
|
|---|
| 25 | SOWKBH ;;12299984
|
|---|
| 26 | SOWKCDR ;;7116274
|
|---|
| 27 | SOWKCLCR ;;18567302
|
|---|
| 28 | SOWKCLEA ;;10538327
|
|---|
| 29 | SOWKCLIS ;;14247325
|
|---|
| 30 | SOWKCLIW ;;16363946
|
|---|
| 31 | SOWKCLOS ;;8092518
|
|---|
| 32 | SOWKCLSP ;;16805620
|
|---|
| 33 | SOWKCLSS ;;14979588
|
|---|
| 34 | SOWKCLSW ;;17185283
|
|---|
| 35 | SOWKCO ;;3898139
|
|---|
| 36 | SOWKCONV ;;4436757
|
|---|
| 37 | SOWKCOR ;;5609249
|
|---|
| 38 | SOWKCP ;;15376647
|
|---|
| 39 | SOWKCS ;;5761811
|
|---|
| 40 | SOWKDB ;;15800513
|
|---|
| 41 | SOWKDB1 ;;18335188
|
|---|
| 42 | SOWKDB2 ;;14758265
|
|---|
| 43 | SOWKDBE ;;11529639
|
|---|
| 44 | SOWKDBEN ;;4819385
|
|---|
| 45 | SOWKDBPA ;;15244363
|
|---|
| 46 | SOWKDBPN ;;13688251
|
|---|
| 47 | SOWKDBSR ;;6093680
|
|---|
| 48 | SOWKDSC ;;9428821
|
|---|
| 49 | SOWKHELP ;;451888
|
|---|
| 50 | SOWKHINC ;;5240870
|
|---|
| 51 | SOWKHIRH ;;9003381
|
|---|
| 52 | SOWKHIRM ;;4296299
|
|---|
| 53 | SOWKHR ;;18756024
|
|---|
| 54 | SOWKHR1 ;;12359499
|
|---|
| 55 | SOWKHRM ;;11699697
|
|---|
| 56 | SOWKHRM1 ;;8787118
|
|---|
| 57 | SOWKLC ;;11342110
|
|---|
| 58 | SOWKLCD ;;7717468
|
|---|
| 59 | SOWKLOC ;;1966030
|
|---|
| 60 | SOWKND ;;14149382
|
|---|
| 61 | SOWKNEW ;;17310955
|
|---|
| 62 | SOWKOPEN ;;13991685
|
|---|
| 63 | SOWKOPT ;;15130764
|
|---|
| 64 | SOWKPAD ;;2712545
|
|---|
| 65 | SOWKPAO ;;17447663
|
|---|
| 66 | SOWKPAOD ;;12709807
|
|---|
| 67 | SOWKPAOQ ;;7129575
|
|---|
| 68 | SOWKPC ;;12576211
|
|---|
| 69 | SOWKPLC ;;14761937
|
|---|
| 70 | SOWKPNTF ;;8707402
|
|---|
| 71 | SOWKPREI ;;3898958
|
|---|
| 72 | SOWKPTC ;;9609396
|
|---|
| 73 | SOWKQAM1 ;;10904679
|
|---|
| 74 | SOWKQAM3 ;;10977624
|
|---|
| 75 | SOWKQAM4 ;;17408693
|
|---|
| 76 | SOWKQAM5 ;;12713872
|
|---|
| 77 | SOWKQAMN ;;12542049
|
|---|
| 78 | SOWKQAMR ;;15354672
|
|---|
| 79 | SOWKQAR2 ;;13111829
|
|---|
| 80 | SOWKQAR4 ;;10616112
|
|---|
| 81 | SOWKQARI ;;13804667
|
|---|
| 82 | SOWKRCH ;;14957542
|
|---|
| 83 | SOWKRCH1 ;;5741075
|
|---|
| 84 | SOWKRCS ;;8410142
|
|---|
| 85 | SOWKRF ;;11343394
|
|---|
| 86 | SOWKRFD ;;6784701
|
|---|
| 87 | SOWKRKD ;;6058520
|
|---|
| 88 | SOWKSITE ;;5418158
|
|---|
| 89 | SOWKTC ;;11716158
|
|---|
| 90 | SOWKTRAN ;;5223185
|
|---|
| 91 | SOWKTY ;;1236574
|
|---|
