[Home] [Help]
PACKAGE BODY: APPS.CS_CTR_CAPTURE_READING_PUB_W
Source
1 package body cs_ctr_capture_reading_pub_w as
2 /* $Header: csxwcrdb.pls 115.17 2004/08/25 19:17:37 rktow ship $ */
3 rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4 rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5
6 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
7 function rosetta_g_miss_date_in_map(d date) return date as
8 begin
9 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10 return d;
11 end;
12
13 function rosetta_g_miss_num_map(n number) return number as
14 a number := fnd_api.g_miss_num;
15 b number := 0-1962.0724;
16 begin
17 if n=a then return b; end if;
18 if n=b then return a; end if;
19 return n;
20 end;
21
22 procedure rosetta_table_copy_in_p4(t out nocopy cs_ctr_capture_reading_pub.ctr_rdg_tbl_type, a0 JTF_NUMBER_TABLE
23 , a1 JTF_NUMBER_TABLE
24 , a2 JTF_DATE_TABLE
25 , a3 JTF_NUMBER_TABLE
26 , a4 JTF_VARCHAR2_TABLE_100
27 , a5 JTF_VARCHAR2_TABLE_300
28 , a6 JTF_NUMBER_TABLE
29 , a7 JTF_NUMBER_TABLE
30 , a8 JTF_VARCHAR2_TABLE_100
31 , a9 JTF_NUMBER_TABLE
32 , a10 JTF_NUMBER_TABLE
33 , a11 JTF_VARCHAR2_TABLE_200
34 , a12 JTF_VARCHAR2_TABLE_200
35 , a13 JTF_VARCHAR2_TABLE_200
36 , a14 JTF_VARCHAR2_TABLE_200
37 , a15 JTF_VARCHAR2_TABLE_200
38 , a16 JTF_VARCHAR2_TABLE_200
39 , a17 JTF_VARCHAR2_TABLE_200
40 , a18 JTF_VARCHAR2_TABLE_200
41 , a19 JTF_VARCHAR2_TABLE_200
42 , a20 JTF_VARCHAR2_TABLE_200
43 , a21 JTF_VARCHAR2_TABLE_200
44 , a22 JTF_VARCHAR2_TABLE_200
45 , a23 JTF_VARCHAR2_TABLE_200
46 , a24 JTF_VARCHAR2_TABLE_200
47 , a25 JTF_VARCHAR2_TABLE_200
48 , a26 JTF_VARCHAR2_TABLE_100
49 , a27 JTF_VARCHAR2_TABLE_100
50 , a28 JTF_VARCHAR2_TABLE_100
51 , a29 JTF_VARCHAR2_TABLE_2000
52 , a30 JTF_NUMBER_TABLE
53 ) as
54 ddindx binary_integer; indx binary_integer;
55 begin
56 if a0 is not null and a0.count > 0 then
57 if a0.count > 0 then
58 indx := a0.first;
59 ddindx := 1;
60 while true loop
61 t(ddindx).counter_value_id := rosetta_g_miss_num_map(a0(indx));
62 t(ddindx).counter_id := rosetta_g_miss_num_map(a1(indx));
63 t(ddindx).value_timestamp := rosetta_g_miss_date_in_map(a2(indx));
64 t(ddindx).counter_reading := rosetta_g_miss_num_map(a3(indx));
65 t(ddindx).reset_flag := a4(indx);
66 t(ddindx).reset_reason := a5(indx);
67 t(ddindx).pre_reset_last_rdg := rosetta_g_miss_num_map(a6(indx));
68 t(ddindx).post_reset_first_rdg := rosetta_g_miss_num_map(a7(indx));
69 t(ddindx).misc_reading_type := a8(indx);
70 t(ddindx).misc_reading := rosetta_g_miss_num_map(a9(indx));
71 t(ddindx).object_version_number := rosetta_g_miss_num_map(a10(indx));
72 t(ddindx).attribute1 := a11(indx);
73 t(ddindx).attribute2 := a12(indx);
74 t(ddindx).attribute3 := a13(indx);
75 t(ddindx).attribute4 := a14(indx);
76 t(ddindx).attribute5 := a15(indx);
77 t(ddindx).attribute6 := a16(indx);
78 t(ddindx).attribute7 := a17(indx);
79 t(ddindx).attribute8 := a18(indx);
80 t(ddindx).attribute9 := a19(indx);
81 t(ddindx).attribute10 := a20(indx);
82 t(ddindx).attribute11 := a21(indx);
83 t(ddindx).attribute12 := a22(indx);
84 t(ddindx).attribute13 := a23(indx);
85 t(ddindx).attribute14 := a24(indx);
86 t(ddindx).attribute15 := a25(indx);
87 t(ddindx).context := a26(indx);
88 t(ddindx).valid_flag := a27(indx);
89 t(ddindx).override_valid_flag := a28(indx);
90 t(ddindx).comments := a29(indx);
91 t(ddindx).filter_reading_count := rosetta_g_miss_num_map(a30(indx));
92 ddindx := ddindx+1;
93 if a0.last =indx
94 then exit;
95 end if;
96 indx := a0.next(indx);
97 end loop;
98 end if;
99 end if;
100 end rosetta_table_copy_in_p4;
101 procedure rosetta_table_copy_out_p4(t cs_ctr_capture_reading_pub.ctr_rdg_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
102 , a1 out nocopy JTF_NUMBER_TABLE
103 , a2 out nocopy JTF_DATE_TABLE
104 , a3 out nocopy JTF_NUMBER_TABLE
105 , a4 out nocopy JTF_VARCHAR2_TABLE_100
106 , a5 out nocopy JTF_VARCHAR2_TABLE_300
107 , a6 out nocopy JTF_NUMBER_TABLE
108 , a7 out nocopy JTF_NUMBER_TABLE
109 , a8 out nocopy JTF_VARCHAR2_TABLE_100
110 , a9 out nocopy JTF_NUMBER_TABLE
111 , a10 out nocopy JTF_NUMBER_TABLE
112 , a11 out nocopy JTF_VARCHAR2_TABLE_200
113 , a12 out nocopy JTF_VARCHAR2_TABLE_200
114 , a13 out nocopy JTF_VARCHAR2_TABLE_200
115 , a14 out nocopy JTF_VARCHAR2_TABLE_200
116 , a15 out nocopy JTF_VARCHAR2_TABLE_200
117 , a16 out nocopy JTF_VARCHAR2_TABLE_200
118 , a17 out nocopy JTF_VARCHAR2_TABLE_200
119 , a18 out nocopy JTF_VARCHAR2_TABLE_200
120 , a19 out nocopy JTF_VARCHAR2_TABLE_200
121 , a20 out nocopy JTF_VARCHAR2_TABLE_200
122 , a21 out nocopy JTF_VARCHAR2_TABLE_200
123 , a22 out nocopy JTF_VARCHAR2_TABLE_200
124 , a23 out nocopy JTF_VARCHAR2_TABLE_200
125 , a24 out nocopy JTF_VARCHAR2_TABLE_200
126 , a25 out nocopy JTF_VARCHAR2_TABLE_200
127 , a26 out nocopy JTF_VARCHAR2_TABLE_100
128 , a27 out nocopy JTF_VARCHAR2_TABLE_100
129 , a28 out nocopy JTF_VARCHAR2_TABLE_100
130 , a29 out nocopy JTF_VARCHAR2_TABLE_2000
131 , a30 out nocopy JTF_NUMBER_TABLE
132 ) as
133 ddindx binary_integer; indx binary_integer;
134 begin
135 if t is null or t.count = 0 then
136 a0 := JTF_NUMBER_TABLE();
137 a1 := JTF_NUMBER_TABLE();
138 a2 := JTF_DATE_TABLE();
139 a3 := JTF_NUMBER_TABLE();
140 a4 := JTF_VARCHAR2_TABLE_100();
141 a5 := JTF_VARCHAR2_TABLE_300();
142 a6 := JTF_NUMBER_TABLE();
143 a7 := JTF_NUMBER_TABLE();
144 a8 := JTF_VARCHAR2_TABLE_100();
145 a9 := JTF_NUMBER_TABLE();
146 a10 := JTF_NUMBER_TABLE();
147 a11 := JTF_VARCHAR2_TABLE_200();
148 a12 := JTF_VARCHAR2_TABLE_200();
149 a13 := JTF_VARCHAR2_TABLE_200();
150 a14 := JTF_VARCHAR2_TABLE_200();
151 a15 := JTF_VARCHAR2_TABLE_200();
152 a16 := JTF_VARCHAR2_TABLE_200();
153 a17 := JTF_VARCHAR2_TABLE_200();
154 a18 := JTF_VARCHAR2_TABLE_200();
155 a19 := JTF_VARCHAR2_TABLE_200();
156 a20 := JTF_VARCHAR2_TABLE_200();
157 a21 := JTF_VARCHAR2_TABLE_200();
158 a22 := JTF_VARCHAR2_TABLE_200();
159 a23 := JTF_VARCHAR2_TABLE_200();
160 a24 := JTF_VARCHAR2_TABLE_200();
161 a25 := JTF_VARCHAR2_TABLE_200();
162 a26 := JTF_VARCHAR2_TABLE_100();
163 a27 := JTF_VARCHAR2_TABLE_100();
164 a28 := JTF_VARCHAR2_TABLE_100();
165 a29 := JTF_VARCHAR2_TABLE_2000();
166 a30 := JTF_NUMBER_TABLE();
167 else
168 a0 := JTF_NUMBER_TABLE();
169 a1 := JTF_NUMBER_TABLE();
170 a2 := JTF_DATE_TABLE();
171 a3 := JTF_NUMBER_TABLE();
172 a4 := JTF_VARCHAR2_TABLE_100();
173 a5 := JTF_VARCHAR2_TABLE_300();
174 a6 := JTF_NUMBER_TABLE();
175 a7 := JTF_NUMBER_TABLE();
176 a8 := JTF_VARCHAR2_TABLE_100();
177 a9 := JTF_NUMBER_TABLE();
178 a10 := JTF_NUMBER_TABLE();
179 a11 := JTF_VARCHAR2_TABLE_200();
180 a12 := JTF_VARCHAR2_TABLE_200();
181 a13 := JTF_VARCHAR2_TABLE_200();
182 a14 := JTF_VARCHAR2_TABLE_200();
183 a15 := JTF_VARCHAR2_TABLE_200();
184 a16 := JTF_VARCHAR2_TABLE_200();
185 a17 := JTF_VARCHAR2_TABLE_200();
186 a18 := JTF_VARCHAR2_TABLE_200();
187 a19 := JTF_VARCHAR2_TABLE_200();
188 a20 := JTF_VARCHAR2_TABLE_200();
189 a21 := JTF_VARCHAR2_TABLE_200();
190 a22 := JTF_VARCHAR2_TABLE_200();
191 a23 := JTF_VARCHAR2_TABLE_200();
192 a24 := JTF_VARCHAR2_TABLE_200();
193 a25 := JTF_VARCHAR2_TABLE_200();
194 a26 := JTF_VARCHAR2_TABLE_100();
195 a27 := JTF_VARCHAR2_TABLE_100();
196 a28 := JTF_VARCHAR2_TABLE_100();
197 a29 := JTF_VARCHAR2_TABLE_2000();
198 a30 := JTF_NUMBER_TABLE();
199 if t.count > 0 then
200 a0.extend(t.count);
201 a1.extend(t.count);
202 a2.extend(t.count);
203 a3.extend(t.count);
204 a4.extend(t.count);
205 a5.extend(t.count);
206 a6.extend(t.count);
207 a7.extend(t.count);
208 a8.extend(t.count);
209 a9.extend(t.count);
210 a10.extend(t.count);
211 a11.extend(t.count);
212 a12.extend(t.count);
213 a13.extend(t.count);
214 a14.extend(t.count);
215 a15.extend(t.count);
216 a16.extend(t.count);
217 a17.extend(t.count);
218 a18.extend(t.count);
219 a19.extend(t.count);
220 a20.extend(t.count);
221 a21.extend(t.count);
222 a22.extend(t.count);
223 a23.extend(t.count);
224 a24.extend(t.count);
225 a25.extend(t.count);
226 a26.extend(t.count);
227 a27.extend(t.count);
228 a28.extend(t.count);
229 a29.extend(t.count);
230 a30.extend(t.count);
231 ddindx := t.first;
232 indx := 1;
233 while true loop
234 a0(indx) := rosetta_g_miss_num_map(t(ddindx).counter_value_id);
235 a1(indx) := rosetta_g_miss_num_map(t(ddindx).counter_id);
236 a2(indx) := t(ddindx).value_timestamp;
237 a3(indx) := rosetta_g_miss_num_map(t(ddindx).counter_reading);
238 a4(indx) := t(ddindx).reset_flag;
239 a5(indx) := t(ddindx).reset_reason;
240 a6(indx) := rosetta_g_miss_num_map(t(ddindx).pre_reset_last_rdg);
241 a7(indx) := rosetta_g_miss_num_map(t(ddindx).post_reset_first_rdg);
242 a8(indx) := t(ddindx).misc_reading_type;
243 a9(indx) := rosetta_g_miss_num_map(t(ddindx).misc_reading);
244 a10(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
245 a11(indx) := t(ddindx).attribute1;
246 a12(indx) := t(ddindx).attribute2;
247 a13(indx) := t(ddindx).attribute3;
248 a14(indx) := t(ddindx).attribute4;
249 a15(indx) := t(ddindx).attribute5;
250 a16(indx) := t(ddindx).attribute6;
251 a17(indx) := t(ddindx).attribute7;
252 a18(indx) := t(ddindx).attribute8;
253 a19(indx) := t(ddindx).attribute9;
254 a20(indx) := t(ddindx).attribute10;
255 a21(indx) := t(ddindx).attribute11;
256 a22(indx) := t(ddindx).attribute12;
257 a23(indx) := t(ddindx).attribute13;
258 a24(indx) := t(ddindx).attribute14;
259 a25(indx) := t(ddindx).attribute15;
260 a26(indx) := t(ddindx).context;
261 a27(indx) := t(ddindx).valid_flag;
262 a28(indx) := t(ddindx).override_valid_flag;
263 a29(indx) := t(ddindx).comments;
264 a30(indx) := rosetta_g_miss_num_map(t(ddindx).filter_reading_count);
265 indx := indx+1;
266 if t.last =ddindx
267 then exit;
268 end if;
269 ddindx := t.next(ddindx);
270 end loop;
271 end if;
272 end if;
273 end rosetta_table_copy_out_p4;
274
275 procedure rosetta_table_copy_in_p8(t out nocopy cs_ctr_capture_reading_pub.prop_rdg_tbl_type, a0 JTF_NUMBER_TABLE
276 , a1 JTF_NUMBER_TABLE
277 , a2 JTF_DATE_TABLE
278 , a3 JTF_VARCHAR2_TABLE_300
279 , a4 JTF_NUMBER_TABLE
280 , a5 JTF_VARCHAR2_TABLE_200
281 , a6 JTF_VARCHAR2_TABLE_200
282 , a7 JTF_VARCHAR2_TABLE_200
283 , a8 JTF_VARCHAR2_TABLE_200
284 , a9 JTF_VARCHAR2_TABLE_200
285 , a10 JTF_VARCHAR2_TABLE_200
286 , a11 JTF_VARCHAR2_TABLE_200
287 , a12 JTF_VARCHAR2_TABLE_200
288 , a13 JTF_VARCHAR2_TABLE_200
289 , a14 JTF_VARCHAR2_TABLE_200
290 , a15 JTF_VARCHAR2_TABLE_200
291 , a16 JTF_VARCHAR2_TABLE_200
292 , a17 JTF_VARCHAR2_TABLE_200
293 , a18 JTF_VARCHAR2_TABLE_200
294 , a19 JTF_VARCHAR2_TABLE_200
295 , a20 JTF_VARCHAR2_TABLE_100
296 ) as
297 ddindx binary_integer; indx binary_integer;
298 begin
299 if a0 is not null and a0.count > 0 then
300 if a0.count > 0 then
301 indx := a0.first;
302 ddindx := 1;
303 while true loop
304 t(ddindx).counter_prop_value_id := rosetta_g_miss_num_map(a0(indx));
305 t(ddindx).counter_property_id := rosetta_g_miss_num_map(a1(indx));
306 t(ddindx).value_timestamp := rosetta_g_miss_date_in_map(a2(indx));
307 t(ddindx).property_value := a3(indx);
308 t(ddindx).object_version_number := rosetta_g_miss_num_map(a4(indx));
309 t(ddindx).attribute1 := a5(indx);
310 t(ddindx).attribute2 := a6(indx);
311 t(ddindx).attribute3 := a7(indx);
312 t(ddindx).attribute4 := a8(indx);
313 t(ddindx).attribute5 := a9(indx);
314 t(ddindx).attribute6 := a10(indx);
315 t(ddindx).attribute7 := a11(indx);
316 t(ddindx).attribute8 := a12(indx);
317 t(ddindx).attribute9 := a13(indx);
318 t(ddindx).attribute10 := a14(indx);
319 t(ddindx).attribute11 := a15(indx);
320 t(ddindx).attribute12 := a16(indx);
321 t(ddindx).attribute13 := a17(indx);
322 t(ddindx).attribute14 := a18(indx);
323 t(ddindx).attribute15 := a19(indx);
324 t(ddindx).context := a20(indx);
325 ddindx := ddindx+1;
326 if a0.last =indx
327 then exit;
328 end if;
329 indx := a0.next(indx);
330 end loop;
331 end if;
332 end if;
333 end rosetta_table_copy_in_p8;
334 procedure rosetta_table_copy_out_p8(t cs_ctr_capture_reading_pub.prop_rdg_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
335 , a1 out nocopy JTF_NUMBER_TABLE
336 , a2 out nocopy JTF_DATE_TABLE
337 , a3 out nocopy JTF_VARCHAR2_TABLE_300
338 , a4 out nocopy JTF_NUMBER_TABLE
339 , a5 out nocopy JTF_VARCHAR2_TABLE_200
340 , a6 out nocopy JTF_VARCHAR2_TABLE_200
341 , a7 out nocopy JTF_VARCHAR2_TABLE_200
342 , a8 out nocopy JTF_VARCHAR2_TABLE_200
343 , a9 out nocopy JTF_VARCHAR2_TABLE_200
344 , a10 out nocopy JTF_VARCHAR2_TABLE_200
345 , a11 out nocopy JTF_VARCHAR2_TABLE_200
346 , a12 out nocopy JTF_VARCHAR2_TABLE_200
347 , a13 out nocopy JTF_VARCHAR2_TABLE_200
348 , a14 out nocopy JTF_VARCHAR2_TABLE_200
349 , a15 out nocopy JTF_VARCHAR2_TABLE_200
350 , a16 out nocopy JTF_VARCHAR2_TABLE_200
351 , a17 out nocopy JTF_VARCHAR2_TABLE_200
352 , a18 out nocopy JTF_VARCHAR2_TABLE_200
353 , a19 out nocopy JTF_VARCHAR2_TABLE_200
354 , a20 out nocopy JTF_VARCHAR2_TABLE_100
355 ) as
356 ddindx binary_integer; indx binary_integer;
357 begin
358 if t is null or t.count = 0 then
359 a0 := JTF_NUMBER_TABLE();
360 a1 := JTF_NUMBER_TABLE();
361 a2 := JTF_DATE_TABLE();
362 a3 := JTF_VARCHAR2_TABLE_300();
363 a4 := JTF_NUMBER_TABLE();
364 a5 := JTF_VARCHAR2_TABLE_200();
365 a6 := JTF_VARCHAR2_TABLE_200();
366 a7 := JTF_VARCHAR2_TABLE_200();
367 a8 := JTF_VARCHAR2_TABLE_200();
368 a9 := JTF_VARCHAR2_TABLE_200();
369 a10 := JTF_VARCHAR2_TABLE_200();
370 a11 := JTF_VARCHAR2_TABLE_200();
371 a12 := JTF_VARCHAR2_TABLE_200();
372 a13 := JTF_VARCHAR2_TABLE_200();
373 a14 := JTF_VARCHAR2_TABLE_200();
374 a15 := JTF_VARCHAR2_TABLE_200();
375 a16 := JTF_VARCHAR2_TABLE_200();
376 a17 := JTF_VARCHAR2_TABLE_200();
377 a18 := JTF_VARCHAR2_TABLE_200();
378 a19 := JTF_VARCHAR2_TABLE_200();
379 a20 := JTF_VARCHAR2_TABLE_100();
380 else
381 a0 := JTF_NUMBER_TABLE();
382 a1 := JTF_NUMBER_TABLE();
383 a2 := JTF_DATE_TABLE();
384 a3 := JTF_VARCHAR2_TABLE_300();
385 a4 := JTF_NUMBER_TABLE();
386 a5 := JTF_VARCHAR2_TABLE_200();
387 a6 := JTF_VARCHAR2_TABLE_200();
388 a7 := JTF_VARCHAR2_TABLE_200();
389 a8 := JTF_VARCHAR2_TABLE_200();
390 a9 := JTF_VARCHAR2_TABLE_200();
391 a10 := JTF_VARCHAR2_TABLE_200();
392 a11 := JTF_VARCHAR2_TABLE_200();
393 a12 := JTF_VARCHAR2_TABLE_200();
394 a13 := JTF_VARCHAR2_TABLE_200();
395 a14 := JTF_VARCHAR2_TABLE_200();
396 a15 := JTF_VARCHAR2_TABLE_200();
397 a16 := JTF_VARCHAR2_TABLE_200();
398 a17 := JTF_VARCHAR2_TABLE_200();
399 a18 := JTF_VARCHAR2_TABLE_200();
400 a19 := JTF_VARCHAR2_TABLE_200();
401 a20 := JTF_VARCHAR2_TABLE_100();
402 if t.count > 0 then
403 a0.extend(t.count);
404 a1.extend(t.count);
405 a2.extend(t.count);
406 a3.extend(t.count);
407 a4.extend(t.count);
408 a5.extend(t.count);
409 a6.extend(t.count);
410 a7.extend(t.count);
411 a8.extend(t.count);
412 a9.extend(t.count);
413 a10.extend(t.count);
414 a11.extend(t.count);
415 a12.extend(t.count);
416 a13.extend(t.count);
417 a14.extend(t.count);
418 a15.extend(t.count);
419 a16.extend(t.count);
420 a17.extend(t.count);
421 a18.extend(t.count);
422 a19.extend(t.count);
423 a20.extend(t.count);
424 ddindx := t.first;
425 indx := 1;
426 while true loop
427 a0(indx) := rosetta_g_miss_num_map(t(ddindx).counter_prop_value_id);
428 a1(indx) := rosetta_g_miss_num_map(t(ddindx).counter_property_id);
429 a2(indx) := t(ddindx).value_timestamp;
430 a3(indx) := t(ddindx).property_value;
431 a4(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
432 a5(indx) := t(ddindx).attribute1;
433 a6(indx) := t(ddindx).attribute2;
434 a7(indx) := t(ddindx).attribute3;
435 a8(indx) := t(ddindx).attribute4;
436 a9(indx) := t(ddindx).attribute5;
437 a10(indx) := t(ddindx).attribute6;
438 a11(indx) := t(ddindx).attribute7;
439 a12(indx) := t(ddindx).attribute8;
440 a13(indx) := t(ddindx).attribute9;
441 a14(indx) := t(ddindx).attribute10;
442 a15(indx) := t(ddindx).attribute11;
443 a16(indx) := t(ddindx).attribute12;
444 a17(indx) := t(ddindx).attribute13;
445 a18(indx) := t(ddindx).attribute14;
446 a19(indx) := t(ddindx).attribute15;
447 a20(indx) := t(ddindx).context;
448 indx := indx+1;
449 if t.last =ddindx
450 then exit;
451 end if;
452 ddindx := t.next(ddindx);
453 end loop;
454 end if;
455 end if;
456 end rosetta_table_copy_out_p8;
457
458 procedure capture_counter_reading(p_api_version_number NUMBER
459 , p_init_msg_list VARCHAR2
460 , p_commit VARCHAR2
461 , p_validation_level NUMBER
462 , p5_a0 JTF_NUMBER_TABLE
463 , p5_a1 JTF_NUMBER_TABLE
464 , p5_a2 JTF_DATE_TABLE
465 , p5_a3 JTF_NUMBER_TABLE
466 , p5_a4 JTF_VARCHAR2_TABLE_100
467 , p5_a5 JTF_VARCHAR2_TABLE_300
468 , p5_a6 JTF_NUMBER_TABLE
469 , p5_a7 JTF_NUMBER_TABLE
470 , p5_a8 JTF_VARCHAR2_TABLE_100
471 , p5_a9 JTF_NUMBER_TABLE
472 , p5_a10 JTF_NUMBER_TABLE
473 , p5_a11 JTF_VARCHAR2_TABLE_200
474 , p5_a12 JTF_VARCHAR2_TABLE_200
475 , p5_a13 JTF_VARCHAR2_TABLE_200
476 , p5_a14 JTF_VARCHAR2_TABLE_200
477 , p5_a15 JTF_VARCHAR2_TABLE_200
478 , p5_a16 JTF_VARCHAR2_TABLE_200
479 , p5_a17 JTF_VARCHAR2_TABLE_200
480 , p5_a18 JTF_VARCHAR2_TABLE_200
481 , p5_a19 JTF_VARCHAR2_TABLE_200
482 , p5_a20 JTF_VARCHAR2_TABLE_200
483 , p5_a21 JTF_VARCHAR2_TABLE_200
484 , p5_a22 JTF_VARCHAR2_TABLE_200
485 , p5_a23 JTF_VARCHAR2_TABLE_200
486 , p5_a24 JTF_VARCHAR2_TABLE_200
487 , p5_a25 JTF_VARCHAR2_TABLE_200
488 , p5_a26 JTF_VARCHAR2_TABLE_100
489 , p5_a27 JTF_VARCHAR2_TABLE_100
490 , p5_a28 JTF_VARCHAR2_TABLE_100
491 , p5_a29 JTF_VARCHAR2_TABLE_2000
492 , p5_a30 JTF_NUMBER_TABLE
493 , p6_a0 JTF_NUMBER_TABLE
494 , p6_a1 JTF_NUMBER_TABLE
495 , p6_a2 JTF_DATE_TABLE
496 , p6_a3 JTF_VARCHAR2_TABLE_300
497 , p6_a4 JTF_NUMBER_TABLE
498 , p6_a5 JTF_VARCHAR2_TABLE_200
499 , p6_a6 JTF_VARCHAR2_TABLE_200
500 , p6_a7 JTF_VARCHAR2_TABLE_200
501 , p6_a8 JTF_VARCHAR2_TABLE_200
502 , p6_a9 JTF_VARCHAR2_TABLE_200
503 , p6_a10 JTF_VARCHAR2_TABLE_200
504 , p6_a11 JTF_VARCHAR2_TABLE_200
505 , p6_a12 JTF_VARCHAR2_TABLE_200
506 , p6_a13 JTF_VARCHAR2_TABLE_200
507 , p6_a14 JTF_VARCHAR2_TABLE_200
508 , p6_a15 JTF_VARCHAR2_TABLE_200
509 , p6_a16 JTF_VARCHAR2_TABLE_200
510 , p6_a17 JTF_VARCHAR2_TABLE_200
511 , p6_a18 JTF_VARCHAR2_TABLE_200
512 , p6_a19 JTF_VARCHAR2_TABLE_200
513 , p6_a20 JTF_VARCHAR2_TABLE_100
514 , x_return_status out nocopy VARCHAR2
515 , x_msg_count out nocopy NUMBER
516 , x_msg_data out nocopy VARCHAR2
517 , p4_a0 NUMBER := 0-1962.0724
518 , p4_a1 NUMBER := 0-1962.0724
519 , p4_a2 DATE := fnd_api.g_miss_date
520 , p4_a3 NUMBER := 0-1962.0724
521 , p4_a4 VARCHAR2 := fnd_api.g_miss_char
522 , p4_a5 VARCHAR2 := fnd_api.g_miss_char
523 , p4_a6 VARCHAR2 := fnd_api.g_miss_char
524 , p4_a7 VARCHAR2 := fnd_api.g_miss_char
525 , p4_a8 VARCHAR2 := fnd_api.g_miss_char
526 , p4_a9 VARCHAR2 := fnd_api.g_miss_char
527 , p4_a10 VARCHAR2 := fnd_api.g_miss_char
528 , p4_a11 VARCHAR2 := fnd_api.g_miss_char
529 , p4_a12 VARCHAR2 := fnd_api.g_miss_char
530 , p4_a13 VARCHAR2 := fnd_api.g_miss_char
531 , p4_a14 VARCHAR2 := fnd_api.g_miss_char
532 , p4_a15 VARCHAR2 := fnd_api.g_miss_char
533 , p4_a16 VARCHAR2 := fnd_api.g_miss_char
534 , p4_a17 VARCHAR2 := fnd_api.g_miss_char
535 , p4_a18 VARCHAR2 := fnd_api.g_miss_char
536 , p4_a19 VARCHAR2 := fnd_api.g_miss_char
537 , p4_a20 VARCHAR2 := fnd_api.g_miss_char
538 )
539
540 as
541 ddp_ctr_grp_log_rec cs_ctr_capture_reading_pub.ctr_grp_log_rec_type;
542 ddp_ctr_rdg_tbl cs_ctr_capture_reading_pub.ctr_rdg_tbl_type;
543 ddp_prop_rdg_tbl cs_ctr_capture_reading_pub.prop_rdg_tbl_type;
544 ddindx binary_integer; indx binary_integer;
545 begin
546
547 -- copy data to the local IN or IN-OUT args, if any
548
549
550
551
552 ddp_ctr_grp_log_rec.counter_grp_log_id := rosetta_g_miss_num_map(p4_a0);
553 ddp_ctr_grp_log_rec.counter_group_id := rosetta_g_miss_num_map(p4_a1);
554 ddp_ctr_grp_log_rec.value_timestamp := rosetta_g_miss_date_in_map(p4_a2);
555 ddp_ctr_grp_log_rec.source_transaction_id := rosetta_g_miss_num_map(p4_a3);
556 ddp_ctr_grp_log_rec.source_transaction_code := p4_a4;
557 ddp_ctr_grp_log_rec.attribute1 := p4_a5;
558 ddp_ctr_grp_log_rec.attribute2 := p4_a6;
559 ddp_ctr_grp_log_rec.attribute3 := p4_a7;
560 ddp_ctr_grp_log_rec.attribute4 := p4_a8;
561 ddp_ctr_grp_log_rec.attribute5 := p4_a9;
562 ddp_ctr_grp_log_rec.attribute6 := p4_a10;
563 ddp_ctr_grp_log_rec.attribute7 := p4_a11;
564 ddp_ctr_grp_log_rec.attribute8 := p4_a12;
565 ddp_ctr_grp_log_rec.attribute9 := p4_a13;
566 ddp_ctr_grp_log_rec.attribute10 := p4_a14;
567 ddp_ctr_grp_log_rec.attribute11 := p4_a15;
568 ddp_ctr_grp_log_rec.attribute12 := p4_a16;
569 ddp_ctr_grp_log_rec.attribute13 := p4_a17;
570 ddp_ctr_grp_log_rec.attribute14 := p4_a18;
571 ddp_ctr_grp_log_rec.attribute15 := p4_a19;
572 ddp_ctr_grp_log_rec.context := p4_a20;
573
574 cs_ctr_capture_reading_pub_w.rosetta_table_copy_in_p4(ddp_ctr_rdg_tbl, p5_a0
575 , p5_a1
576 , p5_a2
577 , p5_a3
578 , p5_a4
579 , p5_a5
580 , p5_a6
581 , p5_a7
582 , p5_a8
583 , p5_a9
584 , p5_a10
585 , p5_a11
586 , p5_a12
587 , p5_a13
588 , p5_a14
589 , p5_a15
590 , p5_a16
591 , p5_a17
592 , p5_a18
593 , p5_a19
594 , p5_a20
595 , p5_a21
596 , p5_a22
597 , p5_a23
598 , p5_a24
599 , p5_a25
600 , p5_a26
601 , p5_a27
602 , p5_a28
603 , p5_a29
604 , p5_a30
605 );
606
607 cs_ctr_capture_reading_pub_w.rosetta_table_copy_in_p8(ddp_prop_rdg_tbl, p6_a0
608 , p6_a1
609 , p6_a2
610 , p6_a3
611 , p6_a4
612 , p6_a5
613 , p6_a6
614 , p6_a7
615 , p6_a8
616 , p6_a9
617 , p6_a10
618 , p6_a11
619 , p6_a12
620 , p6_a13
621 , p6_a14
622 , p6_a15
623 , p6_a16
624 , p6_a17
625 , p6_a18
626 , p6_a19
627 , p6_a20
628 );
629
630
631
632
633 -- here's the delegated call to the old PL/SQL routine
634 cs_ctr_capture_reading_pub.capture_counter_reading(p_api_version_number,
635 p_init_msg_list,
636 p_commit,
637 p_validation_level,
638 ddp_ctr_grp_log_rec,
639 ddp_ctr_rdg_tbl,
640 ddp_prop_rdg_tbl,
641 x_return_status,
642 x_msg_count,
643 x_msg_data);
644
645 -- copy data back from the local variables to OUT or IN-OUT args, if any
646
647 IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
648 CSI_GEN_UTILITY_PVT.dump_x_msg_data(x_msg_count, x_msg_data);
649 END IF;
650
651
652
653
654
655
656
657 end;
658
659 procedure update_counter_reading(p_api_version_number NUMBER
660 , p_init_msg_list VARCHAR2
661 , p_commit VARCHAR2
662 , p_validation_level NUMBER
663 , p_ctr_grp_log_id NUMBER
664 , p5_a0 JTF_NUMBER_TABLE
665 , p5_a1 JTF_NUMBER_TABLE
666 , p5_a2 JTF_DATE_TABLE
667 , p5_a3 JTF_NUMBER_TABLE
668 , p5_a4 JTF_VARCHAR2_TABLE_100
669 , p5_a5 JTF_VARCHAR2_TABLE_300
670 , p5_a6 JTF_NUMBER_TABLE
671 , p5_a7 JTF_NUMBER_TABLE
672 , p5_a8 JTF_VARCHAR2_TABLE_100
673 , p5_a9 JTF_NUMBER_TABLE
674 , p5_a10 JTF_NUMBER_TABLE
675 , p5_a11 JTF_VARCHAR2_TABLE_200
676 , p5_a12 JTF_VARCHAR2_TABLE_200
677 , p5_a13 JTF_VARCHAR2_TABLE_200
678 , p5_a14 JTF_VARCHAR2_TABLE_200
679 , p5_a15 JTF_VARCHAR2_TABLE_200
680 , p5_a16 JTF_VARCHAR2_TABLE_200
681 , p5_a17 JTF_VARCHAR2_TABLE_200
682 , p5_a18 JTF_VARCHAR2_TABLE_200
683 , p5_a19 JTF_VARCHAR2_TABLE_200
684 , p5_a20 JTF_VARCHAR2_TABLE_200
685 , p5_a21 JTF_VARCHAR2_TABLE_200
686 , p5_a22 JTF_VARCHAR2_TABLE_200
687 , p5_a23 JTF_VARCHAR2_TABLE_200
688 , p5_a24 JTF_VARCHAR2_TABLE_200
689 , p5_a25 JTF_VARCHAR2_TABLE_200
690 , p5_a26 JTF_VARCHAR2_TABLE_100
691 , p5_a27 JTF_VARCHAR2_TABLE_100
692 , p5_a28 JTF_VARCHAR2_TABLE_100
693 , p5_a29 JTF_VARCHAR2_TABLE_2000
694 , p5_a30 JTF_NUMBER_TABLE
695 , p6_a0 JTF_NUMBER_TABLE
696 , p6_a1 JTF_NUMBER_TABLE
697 , p6_a2 JTF_DATE_TABLE
698 , p6_a3 JTF_VARCHAR2_TABLE_300
699 , p6_a4 JTF_NUMBER_TABLE
700 , p6_a5 JTF_VARCHAR2_TABLE_200
701 , p6_a6 JTF_VARCHAR2_TABLE_200
702 , p6_a7 JTF_VARCHAR2_TABLE_200
703 , p6_a8 JTF_VARCHAR2_TABLE_200
704 , p6_a9 JTF_VARCHAR2_TABLE_200
705 , p6_a10 JTF_VARCHAR2_TABLE_200
706 , p6_a11 JTF_VARCHAR2_TABLE_200
707 , p6_a12 JTF_VARCHAR2_TABLE_200
708 , p6_a13 JTF_VARCHAR2_TABLE_200
709 , p6_a14 JTF_VARCHAR2_TABLE_200
710 , p6_a15 JTF_VARCHAR2_TABLE_200
711 , p6_a16 JTF_VARCHAR2_TABLE_200
712 , p6_a17 JTF_VARCHAR2_TABLE_200
713 , p6_a18 JTF_VARCHAR2_TABLE_200
714 , p6_a19 JTF_VARCHAR2_TABLE_200
715 , p6_a20 JTF_VARCHAR2_TABLE_100
716 , x_return_status out nocopy VARCHAR2
717 , x_msg_count out nocopy NUMBER
718 , x_msg_data out nocopy VARCHAR2
719 )
720
721 as
722 ddp_ctr_rdg_tbl cs_ctr_capture_reading_pub.ctr_rdg_tbl_type;
723 ddp_prop_rdg_tbl cs_ctr_capture_reading_pub.prop_rdg_tbl_type;
724 ddindx binary_integer; indx binary_integer;
725 begin
726
727 -- copy data to the local IN or IN-OUT args, if any
728
729
730
731
732
733 cs_ctr_capture_reading_pub_w.rosetta_table_copy_in_p4(ddp_ctr_rdg_tbl, p5_a0
734 , p5_a1
735 , p5_a2
736 , p5_a3
737 , p5_a4
738 , p5_a5
739 , p5_a6
740 , p5_a7
741 , p5_a8
742 , p5_a9
743 , p5_a10
744 , p5_a11
745 , p5_a12
746 , p5_a13
747 , p5_a14
748 , p5_a15
749 , p5_a16
750 , p5_a17
751 , p5_a18
752 , p5_a19
753 , p5_a20
754 , p5_a21
755 , p5_a22
756 , p5_a23
757 , p5_a24
758 , p5_a25
759 , p5_a26
760 , p5_a27
761 , p5_a28
762 , p5_a29
763 , p5_a30
764 );
765
766 cs_ctr_capture_reading_pub_w.rosetta_table_copy_in_p8(ddp_prop_rdg_tbl, p6_a0
767 , p6_a1
768 , p6_a2
769 , p6_a3
770 , p6_a4
771 , p6_a5
772 , p6_a6
773 , p6_a7
774 , p6_a8
775 , p6_a9
776 , p6_a10
777 , p6_a11
778 , p6_a12
779 , p6_a13
780 , p6_a14
781 , p6_a15
782 , p6_a16
783 , p6_a17
784 , p6_a18
785 , p6_a19
786 , p6_a20
787 );
788
789
790
791
792 -- here's the delegated call to the old PL/SQL routine
793 cs_ctr_capture_reading_pub.update_counter_reading(p_api_version_number,
794 p_init_msg_list,
795 p_commit,
796 p_validation_level,
797 p_ctr_grp_log_id,
798 ddp_ctr_rdg_tbl,
799 ddp_prop_rdg_tbl,
800 x_return_status,
801 x_msg_count,
802 x_msg_data);
803
804 -- copy data back from the local variables to OUT or IN-OUT args, if any
805
806
807
808
809
810
811
812
813
814 end;
815
816 procedure capture_counter_reading(p_api_version_number NUMBER
817 , p_init_msg_list VARCHAR2
818 , p_commit VARCHAR2
819 , p_validation_level NUMBER
820 , p_counter_grp_log_id NUMBER
821 , x_return_status out nocopy VARCHAR2
822 , x_msg_count out nocopy NUMBER
823 , x_msg_data out nocopy VARCHAR2
824 , p4_a0 NUMBER := 0-1962.0724
825 , p4_a1 NUMBER := 0-1962.0724
826 , p4_a2 DATE := fnd_api.g_miss_date
827 , p4_a3 NUMBER := 0-1962.0724
828 , p4_a4 VARCHAR2 := fnd_api.g_miss_char
829 , p4_a5 VARCHAR2 := fnd_api.g_miss_char
830 , p4_a6 NUMBER := 0-1962.0724
831 , p4_a7 NUMBER := 0-1962.0724
832 , p4_a8 VARCHAR2 := fnd_api.g_miss_char
833 , p4_a9 NUMBER := 0-1962.0724
834 , p4_a10 NUMBER := 0-1962.0724
835 , p4_a11 VARCHAR2 := fnd_api.g_miss_char
836 , p4_a12 VARCHAR2 := fnd_api.g_miss_char
837 , p4_a13 VARCHAR2 := fnd_api.g_miss_char
838 , p4_a14 VARCHAR2 := fnd_api.g_miss_char
839 , p4_a15 VARCHAR2 := fnd_api.g_miss_char
840 , p4_a16 VARCHAR2 := fnd_api.g_miss_char
841 , p4_a17 VARCHAR2 := fnd_api.g_miss_char
842 , p4_a18 VARCHAR2 := fnd_api.g_miss_char
843 , p4_a19 VARCHAR2 := fnd_api.g_miss_char
844 , p4_a20 VARCHAR2 := fnd_api.g_miss_char
845 , p4_a21 VARCHAR2 := fnd_api.g_miss_char
846 , p4_a22 VARCHAR2 := fnd_api.g_miss_char
847 , p4_a23 VARCHAR2 := fnd_api.g_miss_char
848 , p4_a24 VARCHAR2 := fnd_api.g_miss_char
849 , p4_a25 VARCHAR2 := fnd_api.g_miss_char
850 , p4_a26 VARCHAR2 := fnd_api.g_miss_char
851 , p4_a27 VARCHAR2 := fnd_api.g_miss_char
852 , p4_a28 VARCHAR2 := fnd_api.g_miss_char
853 , p4_a29 VARCHAR2 := fnd_api.g_miss_char
854 , p4_a30 NUMBER := 0-1962.0724
855 )
856
857 as
858 ddp_ctr_rdg_rec cs_ctr_capture_reading_pub.ctr_rdg_rec_type;
859 ddindx binary_integer; indx binary_integer;
860 begin
861
862 -- copy data to the local IN or IN-OUT args, if any
863
864
865
866
867 ddp_ctr_rdg_rec.counter_value_id := rosetta_g_miss_num_map(p4_a0);
868 ddp_ctr_rdg_rec.counter_id := rosetta_g_miss_num_map(p4_a1);
869 ddp_ctr_rdg_rec.value_timestamp := rosetta_g_miss_date_in_map(p4_a2);
870 ddp_ctr_rdg_rec.counter_reading := rosetta_g_miss_num_map(p4_a3);
871 ddp_ctr_rdg_rec.reset_flag := p4_a4;
872 ddp_ctr_rdg_rec.reset_reason := p4_a5;
873 ddp_ctr_rdg_rec.pre_reset_last_rdg := rosetta_g_miss_num_map(p4_a6);
874 ddp_ctr_rdg_rec.post_reset_first_rdg := rosetta_g_miss_num_map(p4_a7);
875 ddp_ctr_rdg_rec.misc_reading_type := p4_a8;
876 ddp_ctr_rdg_rec.misc_reading := rosetta_g_miss_num_map(p4_a9);
877 ddp_ctr_rdg_rec.object_version_number := rosetta_g_miss_num_map(p4_a10);
878 ddp_ctr_rdg_rec.attribute1 := p4_a11;
879 ddp_ctr_rdg_rec.attribute2 := p4_a12;
880 ddp_ctr_rdg_rec.attribute3 := p4_a13;
881 ddp_ctr_rdg_rec.attribute4 := p4_a14;
882 ddp_ctr_rdg_rec.attribute5 := p4_a15;
883 ddp_ctr_rdg_rec.attribute6 := p4_a16;
884 ddp_ctr_rdg_rec.attribute7 := p4_a17;
885 ddp_ctr_rdg_rec.attribute8 := p4_a18;
886 ddp_ctr_rdg_rec.attribute9 := p4_a19;
887 ddp_ctr_rdg_rec.attribute10 := p4_a20;
888 ddp_ctr_rdg_rec.attribute11 := p4_a21;
889 ddp_ctr_rdg_rec.attribute12 := p4_a22;
890 ddp_ctr_rdg_rec.attribute13 := p4_a23;
891 ddp_ctr_rdg_rec.attribute14 := p4_a24;
892 ddp_ctr_rdg_rec.attribute15 := p4_a25;
893 ddp_ctr_rdg_rec.context := p4_a26;
894 ddp_ctr_rdg_rec.valid_flag := p4_a27;
895 ddp_ctr_rdg_rec.override_valid_flag := p4_a28;
896 ddp_ctr_rdg_rec.comments := p4_a29;
897 ddp_ctr_rdg_rec.filter_reading_count := rosetta_g_miss_num_map(p4_a30);
898
899
900
901
902
903 -- here's the delegated call to the old PL/SQL routine
904 cs_ctr_capture_reading_pub.capture_counter_reading(p_api_version_number,
905 p_init_msg_list,
906 p_commit,
907 p_validation_level,
908 ddp_ctr_rdg_rec,
909 p_counter_grp_log_id,
910 x_return_status,
911 x_msg_count,
912 x_msg_data);
913
914 -- copy data back from the local variables to OUT or IN-OUT args, if any
915
916
917
918
919
920
921
922
923 end;
924
925 procedure update_counter_reading(p_api_version_number NUMBER
926 , p_init_msg_list VARCHAR2
927 , p_commit VARCHAR2
928 , p_validation_level NUMBER
929 , p_counter_grp_log_id NUMBER
930 , p_object_version_number NUMBER
931 , x_return_status out nocopy VARCHAR2
932 , x_msg_count out nocopy NUMBER
933 , x_msg_data out nocopy VARCHAR2
934 , p4_a0 NUMBER := 0-1962.0724
935 , p4_a1 NUMBER := 0-1962.0724
936 , p4_a2 DATE := fnd_api.g_miss_date
937 , p4_a3 NUMBER := 0-1962.0724
938 , p4_a4 VARCHAR2 := fnd_api.g_miss_char
939 , p4_a5 VARCHAR2 := fnd_api.g_miss_char
940 , p4_a6 NUMBER := 0-1962.0724
941 , p4_a7 NUMBER := 0-1962.0724
942 , p4_a8 VARCHAR2 := fnd_api.g_miss_char
943 , p4_a9 NUMBER := 0-1962.0724
944 , p4_a10 NUMBER := 0-1962.0724
945 , p4_a11 VARCHAR2 := fnd_api.g_miss_char
946 , p4_a12 VARCHAR2 := fnd_api.g_miss_char
947 , p4_a13 VARCHAR2 := fnd_api.g_miss_char
948 , p4_a14 VARCHAR2 := fnd_api.g_miss_char
949 , p4_a15 VARCHAR2 := fnd_api.g_miss_char
950 , p4_a16 VARCHAR2 := fnd_api.g_miss_char
951 , p4_a17 VARCHAR2 := fnd_api.g_miss_char
952 , p4_a18 VARCHAR2 := fnd_api.g_miss_char
953 , p4_a19 VARCHAR2 := fnd_api.g_miss_char
954 , p4_a20 VARCHAR2 := fnd_api.g_miss_char
955 , p4_a21 VARCHAR2 := fnd_api.g_miss_char
956 , p4_a22 VARCHAR2 := fnd_api.g_miss_char
957 , p4_a23 VARCHAR2 := fnd_api.g_miss_char
958 , p4_a24 VARCHAR2 := fnd_api.g_miss_char
959 , p4_a25 VARCHAR2 := fnd_api.g_miss_char
960 , p4_a26 VARCHAR2 := fnd_api.g_miss_char
961 , p4_a27 VARCHAR2 := fnd_api.g_miss_char
962 , p4_a28 VARCHAR2 := fnd_api.g_miss_char
963 , p4_a29 VARCHAR2 := fnd_api.g_miss_char
964 , p4_a30 NUMBER := 0-1962.0724
965 )
966
967 as
968 ddp_ctr_rdg_rec cs_ctr_capture_reading_pub.ctr_rdg_rec_type;
969 ddindx binary_integer; indx binary_integer;
970 begin
971
972 -- copy data to the local IN or IN-OUT args, if any
973
974
975
976
977 ddp_ctr_rdg_rec.counter_value_id := rosetta_g_miss_num_map(p4_a0);
978 ddp_ctr_rdg_rec.counter_id := rosetta_g_miss_num_map(p4_a1);
979 ddp_ctr_rdg_rec.value_timestamp := rosetta_g_miss_date_in_map(p4_a2);
980 ddp_ctr_rdg_rec.counter_reading := rosetta_g_miss_num_map(p4_a3);
981 ddp_ctr_rdg_rec.reset_flag := p4_a4;
982 ddp_ctr_rdg_rec.reset_reason := p4_a5;
983 ddp_ctr_rdg_rec.pre_reset_last_rdg := rosetta_g_miss_num_map(p4_a6);
984 ddp_ctr_rdg_rec.post_reset_first_rdg := rosetta_g_miss_num_map(p4_a7);
985 ddp_ctr_rdg_rec.misc_reading_type := p4_a8;
986 ddp_ctr_rdg_rec.misc_reading := rosetta_g_miss_num_map(p4_a9);
987 ddp_ctr_rdg_rec.object_version_number := rosetta_g_miss_num_map(p4_a10);
988 ddp_ctr_rdg_rec.attribute1 := p4_a11;
989 ddp_ctr_rdg_rec.attribute2 := p4_a12;
990 ddp_ctr_rdg_rec.attribute3 := p4_a13;
991 ddp_ctr_rdg_rec.attribute4 := p4_a14;
992 ddp_ctr_rdg_rec.attribute5 := p4_a15;
993 ddp_ctr_rdg_rec.attribute6 := p4_a16;
994 ddp_ctr_rdg_rec.attribute7 := p4_a17;
995 ddp_ctr_rdg_rec.attribute8 := p4_a18;
996 ddp_ctr_rdg_rec.attribute9 := p4_a19;
997 ddp_ctr_rdg_rec.attribute10 := p4_a20;
998 ddp_ctr_rdg_rec.attribute11 := p4_a21;
999 ddp_ctr_rdg_rec.attribute12 := p4_a22;
1000 ddp_ctr_rdg_rec.attribute13 := p4_a23;
1001 ddp_ctr_rdg_rec.attribute14 := p4_a24;
1002 ddp_ctr_rdg_rec.attribute15 := p4_a25;
1003 ddp_ctr_rdg_rec.context := p4_a26;
1004 ddp_ctr_rdg_rec.valid_flag := p4_a27;
1005 ddp_ctr_rdg_rec.override_valid_flag := p4_a28;
1006 ddp_ctr_rdg_rec.comments := p4_a29;
1007 ddp_ctr_rdg_rec.filter_reading_count := rosetta_g_miss_num_map(p4_a30);
1008
1009
1010
1011
1012
1013
1014 -- here's the delegated call to the old PL/SQL routine
1015 cs_ctr_capture_reading_pub.update_counter_reading(p_api_version_number,
1016 p_init_msg_list,
1017 p_commit,
1018 p_validation_level,
1019 ddp_ctr_rdg_rec,
1020 p_counter_grp_log_id,
1021 p_object_version_number,
1022 x_return_status,
1023 x_msg_count,
1024 x_msg_data);
1025
1026 -- copy data back from the local variables to OUT or IN-OUT args, if any
1027
1028
1029
1030
1031
1032
1033
1034
1035
1036 end;
1037
1038 procedure pre_capture_ctr_reading(p_api_version_number NUMBER
1039 , p_init_msg_list VARCHAR2
1040 , p_commit VARCHAR2
1041 , p_validation_level NUMBER
1042 , x_counter_grp_log_id in out nocopy NUMBER
1043 , x_return_status out nocopy VARCHAR2
1044 , x_msg_count out nocopy NUMBER
1045 , x_msg_data out nocopy VARCHAR2
1046 , p4_a0 NUMBER := 0-1962.0724
1047 , p4_a1 NUMBER := 0-1962.0724
1048 , p4_a2 DATE := fnd_api.g_miss_date
1049 , p4_a3 NUMBER := 0-1962.0724
1050 , p4_a4 VARCHAR2 := fnd_api.g_miss_char
1051 , p4_a5 VARCHAR2 := fnd_api.g_miss_char
1052 , p4_a6 VARCHAR2 := fnd_api.g_miss_char
1053 , p4_a7 VARCHAR2 := fnd_api.g_miss_char
1054 , p4_a8 VARCHAR2 := fnd_api.g_miss_char
1055 , p4_a9 VARCHAR2 := fnd_api.g_miss_char
1056 , p4_a10 VARCHAR2 := fnd_api.g_miss_char
1057 , p4_a11 VARCHAR2 := fnd_api.g_miss_char
1058 , p4_a12 VARCHAR2 := fnd_api.g_miss_char
1059 , p4_a13 VARCHAR2 := fnd_api.g_miss_char
1060 , p4_a14 VARCHAR2 := fnd_api.g_miss_char
1061 , p4_a15 VARCHAR2 := fnd_api.g_miss_char
1062 , p4_a16 VARCHAR2 := fnd_api.g_miss_char
1063 , p4_a17 VARCHAR2 := fnd_api.g_miss_char
1064 , p4_a18 VARCHAR2 := fnd_api.g_miss_char
1065 , p4_a19 VARCHAR2 := fnd_api.g_miss_char
1066 , p4_a20 VARCHAR2 := fnd_api.g_miss_char
1067 )
1068
1069 as
1070 ddp_ctr_grp_log_rec cs_ctr_capture_reading_pub.ctr_grp_log_rec_type;
1071 ddindx binary_integer; indx binary_integer;
1072 begin
1073
1074 -- copy data to the local IN or IN-OUT args, if any
1075
1076
1077
1078
1079 ddp_ctr_grp_log_rec.counter_grp_log_id := rosetta_g_miss_num_map(p4_a0);
1080 ddp_ctr_grp_log_rec.counter_group_id := rosetta_g_miss_num_map(p4_a1);
1081 ddp_ctr_grp_log_rec.value_timestamp := rosetta_g_miss_date_in_map(p4_a2);
1082 ddp_ctr_grp_log_rec.source_transaction_id := rosetta_g_miss_num_map(p4_a3);
1083 ddp_ctr_grp_log_rec.source_transaction_code := p4_a4;
1084 ddp_ctr_grp_log_rec.attribute1 := p4_a5;
1085 ddp_ctr_grp_log_rec.attribute2 := p4_a6;
1086 ddp_ctr_grp_log_rec.attribute3 := p4_a7;
1087 ddp_ctr_grp_log_rec.attribute4 := p4_a8;
1088 ddp_ctr_grp_log_rec.attribute5 := p4_a9;
1089 ddp_ctr_grp_log_rec.attribute6 := p4_a10;
1090 ddp_ctr_grp_log_rec.attribute7 := p4_a11;
1091 ddp_ctr_grp_log_rec.attribute8 := p4_a12;
1092 ddp_ctr_grp_log_rec.attribute9 := p4_a13;
1093 ddp_ctr_grp_log_rec.attribute10 := p4_a14;
1094 ddp_ctr_grp_log_rec.attribute11 := p4_a15;
1095 ddp_ctr_grp_log_rec.attribute12 := p4_a16;
1096 ddp_ctr_grp_log_rec.attribute13 := p4_a17;
1097 ddp_ctr_grp_log_rec.attribute14 := p4_a18;
1098 ddp_ctr_grp_log_rec.attribute15 := p4_a19;
1099 ddp_ctr_grp_log_rec.context := p4_a20;
1100
1101
1102
1103
1104
1105 -- here's the delegated call to the old PL/SQL routine
1106 cs_ctr_capture_reading_pub.pre_capture_ctr_reading(p_api_version_number,
1107 p_init_msg_list,
1108 p_commit,
1109 p_validation_level,
1110 ddp_ctr_grp_log_rec,
1111 x_counter_grp_log_id,
1112 x_return_status,
1113 x_msg_count,
1114 x_msg_data);
1115
1116 -- copy data back from the local variables to OUT or IN-OUT args, if any
1117
1118
1119
1120
1121
1122
1123
1124
1125 end;
1126
1127 procedure capture_ctr_prop_reading(p_api_version_number NUMBER
1128 , p_init_msg_list VARCHAR2
1129 , p_commit VARCHAR2
1130 , p_validation_level NUMBER
1131 , p_counter_grp_log_id NUMBER
1132 , x_return_status out nocopy VARCHAR2
1133 , x_msg_count out nocopy NUMBER
1134 , x_msg_data out nocopy VARCHAR2
1135 , p4_a0 NUMBER := 0-1962.0724
1136 , p4_a1 NUMBER := 0-1962.0724
1137 , p4_a2 DATE := fnd_api.g_miss_date
1138 , p4_a3 VARCHAR2 := fnd_api.g_miss_char
1139 , p4_a4 NUMBER := 0-1962.0724
1140 , p4_a5 VARCHAR2 := fnd_api.g_miss_char
1141 , p4_a6 VARCHAR2 := fnd_api.g_miss_char
1142 , p4_a7 VARCHAR2 := fnd_api.g_miss_char
1143 , p4_a8 VARCHAR2 := fnd_api.g_miss_char
1144 , p4_a9 VARCHAR2 := fnd_api.g_miss_char
1145 , p4_a10 VARCHAR2 := fnd_api.g_miss_char
1146 , p4_a11 VARCHAR2 := fnd_api.g_miss_char
1147 , p4_a12 VARCHAR2 := fnd_api.g_miss_char
1148 , p4_a13 VARCHAR2 := fnd_api.g_miss_char
1149 , p4_a14 VARCHAR2 := fnd_api.g_miss_char
1150 , p4_a15 VARCHAR2 := fnd_api.g_miss_char
1151 , p4_a16 VARCHAR2 := fnd_api.g_miss_char
1152 , p4_a17 VARCHAR2 := fnd_api.g_miss_char
1153 , p4_a18 VARCHAR2 := fnd_api.g_miss_char
1154 , p4_a19 VARCHAR2 := fnd_api.g_miss_char
1155 , p4_a20 VARCHAR2 := fnd_api.g_miss_char
1156 )
1157
1158 as
1159 ddp_prop_rdg_rec cs_ctr_capture_reading_pub.prop_rdg_rec_type;
1160 ddindx binary_integer; indx binary_integer;
1161 begin
1162
1163 -- copy data to the local IN or IN-OUT args, if any
1164
1165
1166
1167
1168 ddp_prop_rdg_rec.counter_prop_value_id := rosetta_g_miss_num_map(p4_a0);
1169 ddp_prop_rdg_rec.counter_property_id := rosetta_g_miss_num_map(p4_a1);
1170 ddp_prop_rdg_rec.value_timestamp := rosetta_g_miss_date_in_map(p4_a2);
1171 ddp_prop_rdg_rec.property_value := p4_a3;
1172 ddp_prop_rdg_rec.object_version_number := rosetta_g_miss_num_map(p4_a4);
1173 ddp_prop_rdg_rec.attribute1 := p4_a5;
1174 ddp_prop_rdg_rec.attribute2 := p4_a6;
1175 ddp_prop_rdg_rec.attribute3 := p4_a7;
1176 ddp_prop_rdg_rec.attribute4 := p4_a8;
1177 ddp_prop_rdg_rec.attribute5 := p4_a9;
1178 ddp_prop_rdg_rec.attribute6 := p4_a10;
1179 ddp_prop_rdg_rec.attribute7 := p4_a11;
1180 ddp_prop_rdg_rec.attribute8 := p4_a12;
1181 ddp_prop_rdg_rec.attribute9 := p4_a13;
1182 ddp_prop_rdg_rec.attribute10 := p4_a14;
1183 ddp_prop_rdg_rec.attribute11 := p4_a15;
1184 ddp_prop_rdg_rec.attribute12 := p4_a16;
1185 ddp_prop_rdg_rec.attribute13 := p4_a17;
1186 ddp_prop_rdg_rec.attribute14 := p4_a18;
1187 ddp_prop_rdg_rec.attribute15 := p4_a19;
1188 ddp_prop_rdg_rec.context := p4_a20;
1189
1190
1191
1192
1193
1194 -- here's the delegated call to the old PL/SQL routine
1195 cs_ctr_capture_reading_pub.capture_ctr_prop_reading(p_api_version_number,
1196 p_init_msg_list,
1197 p_commit,
1198 p_validation_level,
1199 ddp_prop_rdg_rec,
1200 p_counter_grp_log_id,
1201 x_return_status,
1202 x_msg_count,
1203 x_msg_data);
1204
1205 -- copy data back from the local variables to OUT or IN-OUT args, if any
1206
1207
1208
1209
1210
1211
1212
1213
1214 end;
1215
1216 procedure update_ctr_prop_reading(p_api_version_number NUMBER
1217 , p_init_msg_list VARCHAR2
1218 , p_commit VARCHAR2
1219 , p_validation_level NUMBER
1220 , p_counter_grp_log_id NUMBER
1221 , p_object_version_number NUMBER
1222 , x_return_status out nocopy VARCHAR2
1223 , x_msg_count out nocopy NUMBER
1224 , x_msg_data out nocopy VARCHAR2
1225 , p4_a0 NUMBER := 0-1962.0724
1226 , p4_a1 NUMBER := 0-1962.0724
1227 , p4_a2 DATE := fnd_api.g_miss_date
1228 , p4_a3 VARCHAR2 := fnd_api.g_miss_char
1229 , p4_a4 NUMBER := 0-1962.0724
1230 , p4_a5 VARCHAR2 := fnd_api.g_miss_char
1231 , p4_a6 VARCHAR2 := fnd_api.g_miss_char
1232 , p4_a7 VARCHAR2 := fnd_api.g_miss_char
1233 , p4_a8 VARCHAR2 := fnd_api.g_miss_char
1234 , p4_a9 VARCHAR2 := fnd_api.g_miss_char
1235 , p4_a10 VARCHAR2 := fnd_api.g_miss_char
1236 , p4_a11 VARCHAR2 := fnd_api.g_miss_char
1237 , p4_a12 VARCHAR2 := fnd_api.g_miss_char
1238 , p4_a13 VARCHAR2 := fnd_api.g_miss_char
1239 , p4_a14 VARCHAR2 := fnd_api.g_miss_char
1240 , p4_a15 VARCHAR2 := fnd_api.g_miss_char
1241 , p4_a16 VARCHAR2 := fnd_api.g_miss_char
1242 , p4_a17 VARCHAR2 := fnd_api.g_miss_char
1243 , p4_a18 VARCHAR2 := fnd_api.g_miss_char
1244 , p4_a19 VARCHAR2 := fnd_api.g_miss_char
1245 , p4_a20 VARCHAR2 := fnd_api.g_miss_char
1246 )
1247
1248 as
1249 ddp_prop_rdg_rec cs_ctr_capture_reading_pub.prop_rdg_rec_type;
1250 ddindx binary_integer; indx binary_integer;
1251 begin
1252
1253 -- copy data to the local IN or IN-OUT args, if any
1254
1255
1256
1257
1258 ddp_prop_rdg_rec.counter_prop_value_id := rosetta_g_miss_num_map(p4_a0);
1259 ddp_prop_rdg_rec.counter_property_id := rosetta_g_miss_num_map(p4_a1);
1260 ddp_prop_rdg_rec.value_timestamp := rosetta_g_miss_date_in_map(p4_a2);
1261 ddp_prop_rdg_rec.property_value := p4_a3;
1262 ddp_prop_rdg_rec.object_version_number := rosetta_g_miss_num_map(p4_a4);
1263 ddp_prop_rdg_rec.attribute1 := p4_a5;
1264 ddp_prop_rdg_rec.attribute2 := p4_a6;
1265 ddp_prop_rdg_rec.attribute3 := p4_a7;
1266 ddp_prop_rdg_rec.attribute4 := p4_a8;
1267 ddp_prop_rdg_rec.attribute5 := p4_a9;
1268 ddp_prop_rdg_rec.attribute6 := p4_a10;
1269 ddp_prop_rdg_rec.attribute7 := p4_a11;
1270 ddp_prop_rdg_rec.attribute8 := p4_a12;
1271 ddp_prop_rdg_rec.attribute9 := p4_a13;
1272 ddp_prop_rdg_rec.attribute10 := p4_a14;
1273 ddp_prop_rdg_rec.attribute11 := p4_a15;
1274 ddp_prop_rdg_rec.attribute12 := p4_a16;
1275 ddp_prop_rdg_rec.attribute13 := p4_a17;
1276 ddp_prop_rdg_rec.attribute14 := p4_a18;
1277 ddp_prop_rdg_rec.attribute15 := p4_a19;
1278 ddp_prop_rdg_rec.context := p4_a20;
1279
1280
1281
1282
1283
1284
1285 -- here's the delegated call to the old PL/SQL routine
1286 cs_ctr_capture_reading_pub.update_ctr_prop_reading(p_api_version_number,
1287 p_init_msg_list,
1288 p_commit,
1289 p_validation_level,
1290 ddp_prop_rdg_rec,
1291 p_counter_grp_log_id,
1292 p_object_version_number,
1293 x_return_status,
1294 x_msg_count,
1295 x_msg_data);
1296
1297 -- copy data back from the local variables to OUT or IN-OUT args, if any
1298
1299
1300
1301
1302
1303
1304
1305
1306
1307 end;
1308
1309 end cs_ctr_capture_reading_pub_w;