| 1 | SRNTEG01 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;JUN 24, 1993@10:46:22
|
|---|
| 2 | ;;3.0; Surgery ;;24 Jun 93
|
|---|
| 3 | ;;7.0;JUN 24, 1993@10:46:22
|
|---|
| 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 | SRORUT2 ;;4358601
|
|---|
| 13 | SROSCH ;;11118862
|
|---|
| 14 | SROSCH1 ;;13049307
|
|---|
| 15 | SROSCH2 ;;3456014
|
|---|
| 16 | SROSNR ;;6401070
|
|---|
| 17 | SROSNR1 ;;13500950
|
|---|
| 18 | SROSNR2 ;;13333561
|
|---|
| 19 | SROSPC1 ;;9128609
|
|---|
| 20 | SROSPEC ;;10943509
|
|---|
| 21 | SROSPSS ;;11611626
|
|---|
| 22 | SROSRPT ;;4622183
|
|---|
| 23 | SROSRPT0 ;;14262043
|
|---|
| 24 | SROSRPT1 ;;8082515
|
|---|
| 25 | SROSRPT2 ;;3664190
|
|---|
| 26 | SROSTAFF ;;7478492
|
|---|
| 27 | SROSTOP ;;482543
|
|---|
| 28 | SROSUR ;;13568496
|
|---|
| 29 | SROSUR1 ;;5491300
|
|---|
| 30 | SROSUR2 ;;15261504
|
|---|
| 31 | SROTHER ;;10201414
|
|---|
| 32 | SROTRIG ;;311968
|
|---|
| 33 | SROTRPT ;;3090334
|
|---|
| 34 | SROTRPT0 ;;8629917
|
|---|
| 35 | SROUNV ;;6411021
|
|---|
| 36 | SROUNV1 ;;7501677
|
|---|
| 37 | SROUNV2 ;;8120061
|
|---|
| 38 | SROUTED ;;3787421
|
|---|
| 39 | SROUTIN ;;3810199
|
|---|
| 40 | SROUTR1 ;;3217649
|
|---|
| 41 | SROUTRN ;;14264130
|
|---|
| 42 | SROUTUP ;;7303556
|
|---|
| 43 | SROVAR ;;9741521
|
|---|
| 44 | SROVER ;;13869821
|
|---|
| 45 | SROVER1 ;;3141116
|
|---|
| 46 | SROWC ;;14190229
|
|---|
| 47 | SROWC1 ;;8388648
|
|---|
| 48 | SROWC2 ;;8056835
|
|---|
| 49 | SROWC3 ;;5727509
|
|---|
| 50 | SROWL ;;9142245
|
|---|
| 51 | SROWL0 ;;9908168
|
|---|
| 52 | SROWRQ ;;4757977
|
|---|
| 53 | SROWRQ1 ;;15007155
|
|---|
| 54 | SROXPR ;;679930
|
|---|
| 55 | SROXR1 ;;7170960
|
|---|
| 56 | SROXR2 ;;7620900
|
|---|
| 57 | SROXR4 ;;2897681
|
|---|
| 58 | SROXREF ;;3015909
|
|---|
| 59 | SROXRET ;;8369518
|
|---|
| 60 | SRSAVG ;;4834230
|
|---|
| 61 | SRSAVL ;;15393182
|
|---|
| 62 | SRSAVL1 ;;9422142
|
|---|
| 63 | SRSBD1 ;;1173034
|
|---|
| 64 | SRSBDEL ;;16592681
|
|---|
| 65 | SRSBLOK ;;4253560
|
|---|
| 66 | SRSBOUT ;;17702043
|
|---|
| 67 | SRSBTCH ;;8763533
|
|---|
| 68 | SRSCAN ;;8345930
|
|---|
| 69 | SRSCAN0 ;;8834749
|
|---|
| 70 | SRSCAN1 ;;5546303
|
|---|
| 71 | SRSCAN2 ;;6743158
|
|---|
| 72 | SRSCD ;;14561257
|
|---|
| 73 | SRSCDS ;;13118595
|
|---|
| 74 | SRSCDS1 ;;10523262
|
|---|
| 75 | SRSCDW ;;10798685
|
|---|
| 76 | SRSCDW1 ;;10448602
|
|---|
| 77 | SRSCG ;;2499341
|
|---|
| 78 | SRSCHAP ;;9897352
|
|---|
| 79 | SRSCHC ;;6772693
|
|---|
| 80 | SRSCHC1 ;;9657008
|
|---|
| 81 | SRSCHC2 ;;1244432
|
|---|
| 82 | SRSCHCA ;;6623794
|
|---|
| 83 | SRSCHCC ;;7655893
|
|---|
| 84 | SRSCHD ;;6991751
|
|---|
| 85 | SRSCHD1 ;;6353592
|
|---|
| 86 | SRSCHD2 ;;7812904
|
|---|
| 87 | SRSCHDA ;;12107557
|
|---|
| 88 | SRSCHDC ;;14546169
|
|---|
| 89 | SRSCHK ;;3180574
|
|---|
| 90 | SRSCHOR ;;5237814
|
|---|
| 91 | SRSCHUN ;;12683269
|
|---|
| 92 | SRSCHUN1 ;;8264095
|
|---|
| 93 | SRSCHUP ;;5762136
|
|---|
| 94 | SRSCONR ;;11907499
|
|---|
| 95 | SRSCPT ;;13571536
|
|---|
| 96 | SRSCPT1 ;;11796404
|
|---|
| 97 | SRSCPT2 ;;12903856
|
|---|
| 98 | SRSCRAP ;;6565050
|
|---|
| 99 | SRSDIS1 ;;7839099
|
|---|
| 100 | SRSDISP ;;8541868
|
|---|
| 101 | SRSDT ;;5989686
|
|---|
| 102 | SRSEND ;;5442128
|
|---|
| 103 | SRSGRPH ;;7578905
|
|---|
| 104 | SRSIND ;;3376323
|
|---|
| 105 | SRSKILL ;;16166502
|
|---|
| 106 | SRSKILL1 ;;18934960
|
|---|
| 107 | SRSKILL2 ;;8133718
|
|---|
| 108 | SRSLOOK ;;10181844
|
|---|
| 109 | SRSLOOK1 ;;10175389
|
|---|
| 110 | SRSMREQ ;;2985467
|
|---|
| 111 | SRSPUT0 ;;11569524
|
|---|
| 112 | SRSPUT1 ;;6335796
|
|---|
| 113 | SRSPUT2 ;;4332219
|
|---|
| 114 | SRSRBS ;;14156393
|
|---|
| 115 | SRSRBS1 ;;11801894
|
|---|
| 116 | SRSRBW ;;12165414
|
|---|
| 117 | SRSRBW1 ;;11402555
|
|---|
| 118 | SRSREQ ;;10962213
|
|---|
| 119 | SRSREQUT ;;7874591
|
|---|
| 120 | SRSRQST ;;11717709
|
|---|
| 121 | SRSRQST1 ;;8197996
|
|---|
| 122 | SRSTIME ;;5873261
|
|---|
| 123 | SRSTR ;;9069898
|
|---|
| 124 | SRSTRAN ;;2511510
|
|---|
| 125 | SRSUP1 ;;16576534
|
|---|
| 126 | SRSUPC ;;5463059
|
|---|
| 127 | SRSUPRG ;;4038321
|
|---|
| 128 | SRSUPRQ ;;17501885
|
|---|
| 129 | SRSUTIN ;;3648628
|
|---|
| 130 | SRSUTL ;;5914534
|
|---|
| 131 | SRSUTL2 ;;5689683
|
|---|
| 132 | SRSWL ;;7992277
|
|---|
| 133 | SRSWL1 ;;7124388
|
|---|
| 134 | SRSWL10 ;;8138161
|
|---|
| 135 | SRSWL11 ;;12717710
|
|---|
| 136 | SRSWL12 ;;10265744
|
|---|
| 137 | SRSWL13 ;;16005965
|
|---|
| 138 | SRSWL14 ;;7829112
|
|---|
| 139 | SRSWL15 ;;13775925
|
|---|
| 140 | SRSWL2 ;;6295678
|
|---|
| 141 | SRSWL3 ;;12061766
|
|---|
| 142 | SRSWL4 ;;11132191
|
|---|
| 143 | SRSWL5 ;;2024493
|
|---|
| 144 | SRSWL6 ;;8860633
|
|---|
| 145 | SRSWL7 ;;14153033
|
|---|
| 146 | SRSWL8 ;;7566212
|
|---|
| 147 | SRSWL9 ;;12279693
|
|---|
| 148 | SRSWLST ;;16065493
|
|---|
| 149 | SRSWREQ ;;8111469
|
|---|
