|
Last change
on this file since 1208 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
3.4 KB
|
| Line | |
|---|
| 1 | RORNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ; 10/20/06 4:10pm
|
|---|
| 2 | ;;0.0;;**1**;;Build 24
|
|---|
| 3 | ;;7.3;3060622.15354
|
|---|
| 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 | G CONT^RORNTEG0
|
|---|
| 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 | ROR ;;2717781
|
|---|
| 13 | ROR01 ;;1117
|
|---|
| 14 | ROR02 ;;1122
|
|---|
| 15 | ROR10 ;;7730208
|
|---|
| 16 | ROR11 ;;8580380
|
|---|
| 17 | RORAPI01 ;;1957725
|
|---|
| 18 | RORBIN ;;2967124
|
|---|
| 19 | RORDD ;;4656034
|
|---|
| 20 | RORDD01 ;;3739193
|
|---|
| 21 | RORERR ;;4405971
|
|---|
| 22 | RORERR20 ;;14492523
|
|---|
| 23 | ROREVT01 ;;2008294
|
|---|
| 24 | ROREXPR ;;5694255
|
|---|
| 25 | ROREXT ;;3147105
|
|---|
| 26 | ROREXT01 ;;8425154
|
|---|
| 27 | ROREXT02 ;;5834876
|
|---|
| 28 | ROREXT03 ;;4554817
|
|---|
| 29 | ROREXTUT ;;5555893
|
|---|
| 30 | RORHDT ;;3387490
|
|---|
| 31 | RORHDT01 ;;1390687
|
|---|
| 32 | RORHDT02 ;;2997526
|
|---|
| 33 | RORHDT03 ;;4297815
|
|---|
| 34 | RORHDT04 ;;9379124
|
|---|
| 35 | RORHDT05 ;;2711736
|
|---|
| 36 | RORHDT06 ;;3568354
|
|---|
| 37 | RORHDTAC ;;2854289
|
|---|
| 38 | RORHDTUT ;;5831331
|
|---|
| 39 | RORHIV03 ;;4806950
|
|---|
| 40 | RORHIVUT ;;357536
|
|---|
| 41 | RORHL01 ;;1491461
|
|---|
| 42 | RORHL02 ;;5546944
|
|---|
| 43 | RORHL03 ;;5627421
|
|---|
| 44 | RORHL031 ;;6064797
|
|---|
| 45 | RORHL04 ;;5297245
|
|---|
| 46 | RORHL05 ;;4084796
|
|---|
| 47 | RORHL06 ;;4217993
|
|---|
| 48 | RORHL07 ;;2524507
|
|---|
| 49 | RORHL071 ;;2486458
|
|---|
| 50 | RORHL08 ;;5887870
|
|---|
| 51 | RORHL081 ;;7585616
|
|---|
| 52 | RORHL09 ;;6026195
|
|---|
| 53 | RORHL10 ;;5509115
|
|---|
| 54 | RORHL11 ;;4565613
|
|---|
| 55 | RORHL12 ;;2399116
|
|---|
| 56 | RORHL121 ;;9878360
|
|---|
| 57 | RORHL13 ;;3466976
|
|---|
| 58 | RORHL14 ;;5357488
|
|---|
| 59 | RORHL15 ;;3649245
|
|---|
| 60 | RORHL16 ;;3252430
|
|---|
| 61 | RORHL17 ;;4936158
|
|---|
| 62 | RORHL7 ;;4806448
|
|---|
| 63 | RORHL7A ;;4554021
|
|---|
| 64 | RORHLUT1 ;;1806943
|
|---|
| 65 | RORKIDS ;;6182684
|
|---|
| 66 | RORLOCK ;;4943216
|
|---|
| 67 | RORLOG ;;6030893
|
|---|
| 68 | RORLOG01 ;;3716383
|
|---|
| 69 | RORPUT01 ;;4800327
|
|---|
| 70 | RORPUT02 ;;5936706
|
|---|
| 71 | RORREP01 ;;9158405
|
|---|
| 72 | RORREP02 ;;10911089
|
|---|
| 73 | RORRP007 ;;4442755
|
|---|
| 74 | RORRP010 ;;1881192
|
|---|
| 75 | RORRP011 ;;2555508
|
|---|
| 76 | RORRP012 ;;1144389
|
|---|
| 77 | RORRP013 ;;4665100
|
|---|
| 78 | RORRP014 ;;2785597
|
|---|
| 79 | RORRP015 ;;3365112
|
|---|
| 80 | RORRP016 ;;6117318
|
|---|
| 81 | RORRP017 ;;1924388
|
|---|
| 82 | RORRP018 ;;1666201
|
|---|
| 83 | RORRP019 ;;6121598
|
|---|
| 84 | RORRP020 ;;4475572
|
|---|
| 85 | RORRP021 ;;3721454
|
|---|
| 86 | RORRP022 ;;1262090
|
|---|
| 87 | RORRP023 ;;2273081
|
|---|
| 88 | RORRP024 ;;3821351
|
|---|
| 89 | RORRP025 ;;4917408
|
|---|
| 90 | RORRP026 ;;10244091
|
|---|
| 91 | RORRP027 ;;6675003
|
|---|
| 92 | RORRP029 ;;1527601
|
|---|
| 93 | RORRP030 ;;1101835
|
|---|
| 94 | RORRP031 ;;4897990
|
|---|
| 95 | RORRP032 ;;5035421
|
|---|
| 96 | RORRP033 ;;2395118
|
|---|
| 97 | RORRP034 ;;3041648
|
|---|
| 98 | RORRP035 ;;1597804
|
|---|
| 99 | RORRP036 ;;1773818
|
|---|
| 100 | RORRP037 ;;2638742
|
|---|
| 101 | RORRP038 ;;4339809
|
|---|
| 102 | RORRP040 ;;4049054
|
|---|
| 103 | RORRP041 ;;2687037
|
|---|
| 104 | RORRP042 ;;2333070
|
|---|
| 105 | RORSET01 ;;4563146
|
|---|
| 106 | RORSETU1 ;;2833894
|
|---|
| 107 | RORSETU2 ;;2447593
|
|---|
| 108 | RORTMP ;;679112
|
|---|
| 109 | RORTSK ;;3964693
|
|---|
| 110 | RORTSK01 ;;7070947
|
|---|
| 111 | RORTSK02 ;;4523778
|
|---|
| 112 | RORTSK03 ;;2058050
|
|---|
| 113 | RORTSK10 ;;5996899
|
|---|
| 114 | RORTSK11 ;;3147053
|
|---|
| 115 | RORTSK12 ;;2274583
|
|---|
| 116 | RORTSK13 ;;6727870
|
|---|
| 117 | RORTSK14 ;;2157270
|
|---|
| 118 | RORTXT ;;141117
|
|---|
| 119 | RORUPD ;;3118364
|
|---|
| 120 | RORUPD01 ;;7989261
|
|---|
| 121 | RORUPD04 ;;5421758
|
|---|
| 122 | RORUPD05 ;;7081275
|
|---|
| 123 | RORUPD06 ;;3084967
|
|---|
| 124 | RORUPD07 ;;2356625
|
|---|
| 125 | RORUPD08 ;;4579765
|
|---|
| 126 | RORUPD09 ;;2869944
|
|---|
| 127 | RORUPD50 ;;3764045
|
|---|
| 128 | RORUPD51 ;;8479975
|
|---|
| 129 | RORUPD52 ;;2557167
|
|---|
| 130 | RORUPD62 ;;1941130
|
|---|
| 131 | RORUPDUT ;;7113425
|
|---|
| 132 | RORUPEX ;;3382608
|
|---|
| 133 | RORUPP01 ;;3620688
|
|---|
| 134 | RORUPP02 ;;3149282
|
|---|
| 135 | RORUPR ;;5364149
|
|---|
| 136 | RORUPR1 ;;10955587
|
|---|
| 137 | RORUTL01 ;;4692322
|
|---|
| 138 | RORUTL02 ;;5296575
|
|---|
| 139 | RORUTL03 ;;8066801
|
|---|
| 140 | RORUTL04 ;;2076790
|
|---|
| 141 | RORUTL05 ;;7047621
|
|---|
| 142 | RORUTL06 ;;10075666
|
|---|
| 143 | RORUTL07 ;;2099977
|
|---|
| 144 | RORUTL08 ;;3164502
|
|---|
| 145 | RORUTL09 ;;1836557
|
|---|
| 146 | RORUTL10 ;;5740794
|
|---|
| 147 | RORUTL11 ;;942933
|
|---|
| 148 | RORUTL14 ;;1375993
|
|---|
| 149 | RORUTL15 ;;6511088
|
|---|
| 150 | RORUTL16 ;;2364514
|
|---|
| 151 | RORUTL17 ;;6994520
|
|---|
| 152 | RORUTL18 ;;3250231
|
|---|
| 153 | RORUTL19 ;;1203624
|
|---|
| 154 | RORVM001 ;;609363
|
|---|
| 155 | RORX000 ;;2233772
|
|---|
| 156 | RORX001 ;;5778832
|
|---|
| 157 | RORX002 ;;3845106
|
|---|
| 158 | RORX003 ;;5545892
|
|---|
| 159 | RORX003A ;;7545014
|
|---|
| 160 | RORX004 ;;3369267
|
|---|
| 161 | RORX005 ;;1558283
|
|---|
| 162 | RORX005A ;;5728919
|
|---|
| 163 | RORX005B ;;2068516
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
