| 1 | RTNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;OCT 22, 1991@22:38:31
|
|---|
| 2 | ;;v 2.0;Record Tracking;;10/22/91
|
|---|
| 3 | ;;6.5;OCT 22, 1991@22:38:31
|
|---|
| 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 "_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 | RT ;;1092073
|
|---|
| 13 | RTB ;;9210081
|
|---|
| 14 | RTB1 ;;4220425
|
|---|
| 15 | RTB2 ;;8537784
|
|---|
| 16 | RTDEL ;;14533305
|
|---|
| 17 | RTDPA ;;10739529
|
|---|
| 18 | RTDPA1 ;;13452261
|
|---|
| 19 | RTDPA2 ;;9782055
|
|---|
| 20 | RTDPA3 ;;8966028
|
|---|
| 21 | RTDPA31 ;;4040485
|
|---|
| 22 | RTDPA32 ;;4054799
|
|---|
| 23 | RTIPOST0 ;;6311613
|
|---|
| 24 | RTIPOST1 ;;5041134
|
|---|
| 25 | RTIPOST2 ;;2286359
|
|---|
| 26 | RTIPOST3 ;;3629114
|
|---|
| 27 | RTIPOST4 ;;5792718
|
|---|
| 28 | RTIPRE ;;7360996
|
|---|
| 29 | RTL ;;3454851
|
|---|
| 30 | RTL1 ;;13016675
|
|---|
| 31 | RTL2 ;;5588146
|
|---|
| 32 | RTL3 ;;2550001
|
|---|
| 33 | RTLDIV ;;1372201
|
|---|
| 34 | RTM ;;1849639
|
|---|
| 35 | RTMAS ;;4232926
|
|---|
| 36 | RTNQ ;;1628986
|
|---|
| 37 | RTNQ1 ;;11946723
|
|---|
| 38 | RTNQ2 ;;14357342
|
|---|
| 39 | RTNQ21 ;;8555868
|
|---|
| 40 | RTNQ3 ;;11569840
|
|---|
| 41 | RTNQ4 ;;9206711
|
|---|
| 42 | RTNQ41 ;;5015473
|
|---|
| 43 | RTP ;;10799518
|
|---|
| 44 | RTP1 ;;9915888
|
|---|
| 45 | RTP2 ;;10605233
|
|---|
| 46 | RTP3 ;;20195927
|
|---|
| 47 | RTP31 ;;13298420
|
|---|
| 48 | RTP311 ;;6322945
|
|---|
| 49 | RTP32 ;;4618243
|
|---|
| 50 | RTP4 ;;16744132
|
|---|
| 51 | RTP40 ;;5876243
|
|---|
| 52 | RTP41 ;;12568098
|
|---|
| 53 | RTP5 ;;18969106
|
|---|
| 54 | RTP51 ;;11075694
|
|---|
| 55 | RTP6 ;;5861018
|
|---|
| 56 | RTPCAN ;;4020334
|
|---|
| 57 | RTPSET ;;10011933
|
|---|
| 58 | RTPSET1 ;;6578709
|
|---|
| 59 | RTPURGE ;;14921881
|
|---|
| 60 | RTQ ;;12370859
|
|---|
| 61 | RTQ1 ;;13981731
|
|---|
| 62 | RTQ2 ;;12876473
|
|---|
| 63 | RTQ3 ;;8945259
|
|---|
| 64 | RTQ4 ;;12908542
|
|---|
| 65 | RTQ41 ;;6912517
|
|---|
| 66 | RTQ5 ;;2920853
|
|---|
| 67 | RTRAD ;;6425450
|
|---|
| 68 | RTRD ;;6310994
|
|---|
| 69 | RTREP ;;11996311
|
|---|
| 70 | RTREP1 ;;8448621
|
|---|
| 71 | RTRPT ;;16229874
|
|---|
| 72 | RTRPT1 ;;9556631
|
|---|
| 73 | RTRPT2 ;;11258647
|
|---|
| 74 | RTRPT3 ;;18718284
|
|---|
| 75 | RTRPT4 ;;2860697
|
|---|
| 76 | RTRPT5 ;;6630867
|
|---|
| 77 | RTSM ;;13831573
|
|---|
| 78 | RTSM1 ;;13577739
|
|---|
| 79 | RTSM2 ;;9200103
|
|---|
| 80 | RTSM3 ;;16298185
|
|---|
| 81 | RTSM4 ;;10969718
|
|---|
| 82 | RTSM5 ;;7723861
|
|---|
| 83 | RTSM6 ;;11942119
|
|---|
| 84 | RTSM61 ;;8657559
|
|---|
| 85 | RTSM7 ;;9927586
|
|---|
| 86 | RTSM8 ;;11585133
|
|---|
| 87 | RTSM81 ;;8626042
|
|---|
| 88 | RTSYS ;;11712069
|
|---|
| 89 | RTT ;;12717049
|
|---|
| 90 | RTT1 ;;15395306
|
|---|
| 91 | RTT11 ;;10857177
|
|---|
| 92 | RTT12 ;;3597419
|
|---|
| 93 | RTT2 ;;17867721
|
|---|
| 94 | RTT21 ;;391400
|
|---|
| 95 | RTT3 ;;15011804
|
|---|
| 96 | RTT4 ;;10186835
|
|---|
| 97 | RTTR ;;6218566
|
|---|
| 98 | RTTR1 ;;6567455
|
|---|
| 99 | RTTR11 ;;6373404
|
|---|
| 100 | RTTR2 ;;6670262
|
|---|
| 101 | RTUTL ;;4297762
|
|---|
| 102 | RTUTL1 ;;13589719
|
|---|
| 103 | RTUTL2 ;;14367750
|
|---|
| 104 | RTUTL3 ;;4482928
|
|---|
| 105 | RTUTL4 ;;8368221
|
|---|
| 106 | RTUTL5 ;;12629331
|
|---|
| 107 | RTUTL6 ;;3667661
|
|---|
