Last change
on this file since 1785 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.