[Home] [Help]
PACKAGE BODY: APPS.OKL_CSP_PVT_W
Source
1 package body okl_csp_pvt_w as
2 /* $Header: OKLICSPB.pls 120.1 2005/07/08 10:34:30 dkagrawa noship $ */
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_p2(t out nocopy okl_csp_pvt.csp_tbl_type, a0 JTF_NUMBER_TABLE
23 , a1 JTF_NUMBER_TABLE
24 , a2 JTF_NUMBER_TABLE
25 , a3 JTF_NUMBER_TABLE
26 , a4 JTF_VARCHAR2_TABLE_100
27 , a5 JTF_VARCHAR2_TABLE_500
28 , a6 JTF_VARCHAR2_TABLE_500
29 , a7 JTF_VARCHAR2_TABLE_500
30 , a8 JTF_VARCHAR2_TABLE_500
31 , a9 JTF_VARCHAR2_TABLE_500
32 , a10 JTF_VARCHAR2_TABLE_500
33 , a11 JTF_VARCHAR2_TABLE_500
34 , a12 JTF_VARCHAR2_TABLE_500
35 , a13 JTF_VARCHAR2_TABLE_500
36 , a14 JTF_VARCHAR2_TABLE_500
37 , a15 JTF_VARCHAR2_TABLE_500
38 , a16 JTF_VARCHAR2_TABLE_500
39 , a17 JTF_VARCHAR2_TABLE_500
40 , a18 JTF_VARCHAR2_TABLE_500
41 , a19 JTF_VARCHAR2_TABLE_500
42 , a20 JTF_NUMBER_TABLE
43 , a21 JTF_DATE_TABLE
44 , a22 JTF_NUMBER_TABLE
45 , a23 JTF_DATE_TABLE
46 , a24 JTF_NUMBER_TABLE
47 ) as
48 ddindx binary_integer; indx binary_integer;
49 begin
50 if a0 is not null and a0.count > 0 then
51 if a0.count > 0 then
52 indx := a0.first;
53 ddindx := 1;
54 while true loop
55 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
56 t(ddindx).pov_id := rosetta_g_miss_num_map(a1(indx));
57 t(ddindx).khr_id := rosetta_g_miss_num_map(a2(indx));
58 t(ddindx).object_version_number := rosetta_g_miss_num_map(a3(indx));
59 t(ddindx).attribute_category := a4(indx);
60 t(ddindx).attribute1 := a5(indx);
61 t(ddindx).attribute2 := a6(indx);
62 t(ddindx).attribute3 := a7(indx);
63 t(ddindx).attribute4 := a8(indx);
64 t(ddindx).attribute5 := a9(indx);
65 t(ddindx).attribute6 := a10(indx);
66 t(ddindx).attribute7 := a11(indx);
67 t(ddindx).attribute8 := a12(indx);
68 t(ddindx).attribute9 := a13(indx);
69 t(ddindx).attribute10 := a14(indx);
70 t(ddindx).attribute11 := a15(indx);
71 t(ddindx).attribute12 := a16(indx);
72 t(ddindx).attribute13 := a17(indx);
73 t(ddindx).attribute14 := a18(indx);
74 t(ddindx).attribute15 := a19(indx);
75 t(ddindx).created_by := rosetta_g_miss_num_map(a20(indx));
76 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a21(indx));
77 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a22(indx));
78 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a23(indx));
79 t(ddindx).last_update_login := rosetta_g_miss_num_map(a24(indx));
80 ddindx := ddindx+1;
81 if a0.last =indx
82 then exit;
83 end if;
84 indx := a0.next(indx);
85 end loop;
86 end if;
87 end if;
88 end rosetta_table_copy_in_p2;
89 procedure rosetta_table_copy_out_p2(t okl_csp_pvt.csp_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
90 , a1 out nocopy JTF_NUMBER_TABLE
91 , a2 out nocopy JTF_NUMBER_TABLE
92 , a3 out nocopy JTF_NUMBER_TABLE
93 , a4 out nocopy JTF_VARCHAR2_TABLE_100
94 , a5 out nocopy JTF_VARCHAR2_TABLE_500
95 , a6 out nocopy JTF_VARCHAR2_TABLE_500
96 , a7 out nocopy JTF_VARCHAR2_TABLE_500
97 , a8 out nocopy JTF_VARCHAR2_TABLE_500
98 , a9 out nocopy JTF_VARCHAR2_TABLE_500
99 , a10 out nocopy JTF_VARCHAR2_TABLE_500
100 , a11 out nocopy JTF_VARCHAR2_TABLE_500
101 , a12 out nocopy JTF_VARCHAR2_TABLE_500
102 , a13 out nocopy JTF_VARCHAR2_TABLE_500
103 , a14 out nocopy JTF_VARCHAR2_TABLE_500
104 , a15 out nocopy JTF_VARCHAR2_TABLE_500
105 , a16 out nocopy JTF_VARCHAR2_TABLE_500
106 , a17 out nocopy JTF_VARCHAR2_TABLE_500
107 , a18 out nocopy JTF_VARCHAR2_TABLE_500
108 , a19 out nocopy JTF_VARCHAR2_TABLE_500
109 , a20 out nocopy JTF_NUMBER_TABLE
110 , a21 out nocopy JTF_DATE_TABLE
111 , a22 out nocopy JTF_NUMBER_TABLE
112 , a23 out nocopy JTF_DATE_TABLE
113 , a24 out nocopy JTF_NUMBER_TABLE
114 ) as
115 ddindx binary_integer; indx binary_integer;
116 begin
117 if t is null or t.count = 0 then
118 a0 := JTF_NUMBER_TABLE();
119 a1 := JTF_NUMBER_TABLE();
120 a2 := JTF_NUMBER_TABLE();
121 a3 := JTF_NUMBER_TABLE();
122 a4 := JTF_VARCHAR2_TABLE_100();
123 a5 := JTF_VARCHAR2_TABLE_500();
124 a6 := JTF_VARCHAR2_TABLE_500();
125 a7 := JTF_VARCHAR2_TABLE_500();
126 a8 := JTF_VARCHAR2_TABLE_500();
127 a9 := JTF_VARCHAR2_TABLE_500();
128 a10 := JTF_VARCHAR2_TABLE_500();
129 a11 := JTF_VARCHAR2_TABLE_500();
130 a12 := JTF_VARCHAR2_TABLE_500();
131 a13 := JTF_VARCHAR2_TABLE_500();
132 a14 := JTF_VARCHAR2_TABLE_500();
133 a15 := JTF_VARCHAR2_TABLE_500();
134 a16 := JTF_VARCHAR2_TABLE_500();
135 a17 := JTF_VARCHAR2_TABLE_500();
136 a18 := JTF_VARCHAR2_TABLE_500();
137 a19 := JTF_VARCHAR2_TABLE_500();
138 a20 := JTF_NUMBER_TABLE();
139 a21 := JTF_DATE_TABLE();
140 a22 := JTF_NUMBER_TABLE();
141 a23 := JTF_DATE_TABLE();
142 a24 := JTF_NUMBER_TABLE();
143 else
144 a0 := JTF_NUMBER_TABLE();
145 a1 := JTF_NUMBER_TABLE();
146 a2 := JTF_NUMBER_TABLE();
147 a3 := JTF_NUMBER_TABLE();
148 a4 := JTF_VARCHAR2_TABLE_100();
149 a5 := JTF_VARCHAR2_TABLE_500();
150 a6 := JTF_VARCHAR2_TABLE_500();
151 a7 := JTF_VARCHAR2_TABLE_500();
152 a8 := JTF_VARCHAR2_TABLE_500();
153 a9 := JTF_VARCHAR2_TABLE_500();
154 a10 := JTF_VARCHAR2_TABLE_500();
155 a11 := JTF_VARCHAR2_TABLE_500();
156 a12 := JTF_VARCHAR2_TABLE_500();
157 a13 := JTF_VARCHAR2_TABLE_500();
158 a14 := JTF_VARCHAR2_TABLE_500();
159 a15 := JTF_VARCHAR2_TABLE_500();
160 a16 := JTF_VARCHAR2_TABLE_500();
161 a17 := JTF_VARCHAR2_TABLE_500();
162 a18 := JTF_VARCHAR2_TABLE_500();
163 a19 := JTF_VARCHAR2_TABLE_500();
164 a20 := JTF_NUMBER_TABLE();
165 a21 := JTF_DATE_TABLE();
166 a22 := JTF_NUMBER_TABLE();
167 a23 := JTF_DATE_TABLE();
168 a24 := JTF_NUMBER_TABLE();
169 if t.count > 0 then
170 a0.extend(t.count);
171 a1.extend(t.count);
172 a2.extend(t.count);
173 a3.extend(t.count);
174 a4.extend(t.count);
175 a5.extend(t.count);
176 a6.extend(t.count);
177 a7.extend(t.count);
178 a8.extend(t.count);
179 a9.extend(t.count);
180 a10.extend(t.count);
181 a11.extend(t.count);
182 a12.extend(t.count);
183 a13.extend(t.count);
184 a14.extend(t.count);
185 a15.extend(t.count);
186 a16.extend(t.count);
187 a17.extend(t.count);
188 a18.extend(t.count);
189 a19.extend(t.count);
190 a20.extend(t.count);
191 a21.extend(t.count);
192 a22.extend(t.count);
193 a23.extend(t.count);
194 a24.extend(t.count);
195 ddindx := t.first;
196 indx := 1;
197 while true loop
198 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
199 a1(indx) := rosetta_g_miss_num_map(t(ddindx).pov_id);
200 a2(indx) := rosetta_g_miss_num_map(t(ddindx).khr_id);
201 a3(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
202 a4(indx) := t(ddindx).attribute_category;
203 a5(indx) := t(ddindx).attribute1;
204 a6(indx) := t(ddindx).attribute2;
205 a7(indx) := t(ddindx).attribute3;
206 a8(indx) := t(ddindx).attribute4;
207 a9(indx) := t(ddindx).attribute5;
208 a10(indx) := t(ddindx).attribute6;
209 a11(indx) := t(ddindx).attribute7;
210 a12(indx) := t(ddindx).attribute8;
211 a13(indx) := t(ddindx).attribute9;
212 a14(indx) := t(ddindx).attribute10;
213 a15(indx) := t(ddindx).attribute11;
214 a16(indx) := t(ddindx).attribute12;
215 a17(indx) := t(ddindx).attribute13;
216 a18(indx) := t(ddindx).attribute14;
217 a19(indx) := t(ddindx).attribute15;
218 a20(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
219 a21(indx) := t(ddindx).creation_date;
220 a22(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
221 a23(indx) := t(ddindx).last_update_date;
222 a24(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
223 indx := indx+1;
224 if t.last =ddindx
225 then exit;
226 end if;
227 ddindx := t.next(ddindx);
228 end loop;
229 end if;
230 end if;
231 end rosetta_table_copy_out_p2;
232
233 procedure rosetta_table_copy_in_p5(t out nocopy okl_csp_pvt.cspv_tbl_type, a0 JTF_NUMBER_TABLE
234 , a1 JTF_NUMBER_TABLE
235 , a2 JTF_NUMBER_TABLE
236 , a3 JTF_NUMBER_TABLE
237 , a4 JTF_VARCHAR2_TABLE_100
238 , a5 JTF_VARCHAR2_TABLE_500
239 , a6 JTF_VARCHAR2_TABLE_500
240 , a7 JTF_VARCHAR2_TABLE_500
241 , a8 JTF_VARCHAR2_TABLE_500
242 , a9 JTF_VARCHAR2_TABLE_500
243 , a10 JTF_VARCHAR2_TABLE_500
244 , a11 JTF_VARCHAR2_TABLE_500
245 , a12 JTF_VARCHAR2_TABLE_500
246 , a13 JTF_VARCHAR2_TABLE_500
247 , a14 JTF_VARCHAR2_TABLE_500
248 , a15 JTF_VARCHAR2_TABLE_500
249 , a16 JTF_VARCHAR2_TABLE_500
250 , a17 JTF_VARCHAR2_TABLE_500
251 , a18 JTF_VARCHAR2_TABLE_500
252 , a19 JTF_VARCHAR2_TABLE_500
253 , a20 JTF_NUMBER_TABLE
254 , a21 JTF_DATE_TABLE
255 , a22 JTF_NUMBER_TABLE
256 , a23 JTF_DATE_TABLE
257 , a24 JTF_NUMBER_TABLE
258 ) as
259 ddindx binary_integer; indx binary_integer;
260 begin
261 if a0 is not null and a0.count > 0 then
262 if a0.count > 0 then
263 indx := a0.first;
264 ddindx := 1;
265 while true loop
266 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
267 t(ddindx).object_version_number := rosetta_g_miss_num_map(a1(indx));
268 t(ddindx).pov_id := rosetta_g_miss_num_map(a2(indx));
269 t(ddindx).khr_id := rosetta_g_miss_num_map(a3(indx));
270 t(ddindx).attribute_category := a4(indx);
271 t(ddindx).attribute1 := a5(indx);
272 t(ddindx).attribute2 := a6(indx);
273 t(ddindx).attribute3 := a7(indx);
274 t(ddindx).attribute4 := a8(indx);
275 t(ddindx).attribute5 := a9(indx);
276 t(ddindx).attribute6 := a10(indx);
277 t(ddindx).attribute7 := a11(indx);
278 t(ddindx).attribute8 := a12(indx);
279 t(ddindx).attribute9 := a13(indx);
280 t(ddindx).attribute10 := a14(indx);
281 t(ddindx).attribute11 := a15(indx);
282 t(ddindx).attribute12 := a16(indx);
283 t(ddindx).attribute13 := a17(indx);
284 t(ddindx).attribute14 := a18(indx);
285 t(ddindx).attribute15 := a19(indx);
286 t(ddindx).created_by := rosetta_g_miss_num_map(a20(indx));
287 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a21(indx));
288 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a22(indx));
289 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a23(indx));
290 t(ddindx).last_update_login := rosetta_g_miss_num_map(a24(indx));
291 ddindx := ddindx+1;
292 if a0.last =indx
293 then exit;
294 end if;
295 indx := a0.next(indx);
296 end loop;
297 end if;
298 end if;
299 end rosetta_table_copy_in_p5;
300 procedure rosetta_table_copy_out_p5(t okl_csp_pvt.cspv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
301 , a1 out nocopy JTF_NUMBER_TABLE
302 , a2 out nocopy JTF_NUMBER_TABLE
303 , a3 out nocopy JTF_NUMBER_TABLE
304 , a4 out nocopy JTF_VARCHAR2_TABLE_100
305 , a5 out nocopy JTF_VARCHAR2_TABLE_500
306 , a6 out nocopy JTF_VARCHAR2_TABLE_500
307 , a7 out nocopy JTF_VARCHAR2_TABLE_500
308 , a8 out nocopy JTF_VARCHAR2_TABLE_500
309 , a9 out nocopy JTF_VARCHAR2_TABLE_500
310 , a10 out nocopy JTF_VARCHAR2_TABLE_500
311 , a11 out nocopy JTF_VARCHAR2_TABLE_500
312 , a12 out nocopy JTF_VARCHAR2_TABLE_500
313 , a13 out nocopy JTF_VARCHAR2_TABLE_500
314 , a14 out nocopy JTF_VARCHAR2_TABLE_500
315 , a15 out nocopy JTF_VARCHAR2_TABLE_500
316 , a16 out nocopy JTF_VARCHAR2_TABLE_500
317 , a17 out nocopy JTF_VARCHAR2_TABLE_500
318 , a18 out nocopy JTF_VARCHAR2_TABLE_500
319 , a19 out nocopy JTF_VARCHAR2_TABLE_500
320 , a20 out nocopy JTF_NUMBER_TABLE
321 , a21 out nocopy JTF_DATE_TABLE
322 , a22 out nocopy JTF_NUMBER_TABLE
323 , a23 out nocopy JTF_DATE_TABLE
324 , a24 out nocopy JTF_NUMBER_TABLE
325 ) as
326 ddindx binary_integer; indx binary_integer;
327 begin
328 if t is null or t.count = 0 then
329 a0 := JTF_NUMBER_TABLE();
330 a1 := JTF_NUMBER_TABLE();
331 a2 := JTF_NUMBER_TABLE();
332 a3 := JTF_NUMBER_TABLE();
333 a4 := JTF_VARCHAR2_TABLE_100();
334 a5 := JTF_VARCHAR2_TABLE_500();
335 a6 := JTF_VARCHAR2_TABLE_500();
336 a7 := JTF_VARCHAR2_TABLE_500();
337 a8 := JTF_VARCHAR2_TABLE_500();
338 a9 := JTF_VARCHAR2_TABLE_500();
339 a10 := JTF_VARCHAR2_TABLE_500();
340 a11 := JTF_VARCHAR2_TABLE_500();
341 a12 := JTF_VARCHAR2_TABLE_500();
342 a13 := JTF_VARCHAR2_TABLE_500();
343 a14 := JTF_VARCHAR2_TABLE_500();
344 a15 := JTF_VARCHAR2_TABLE_500();
345 a16 := JTF_VARCHAR2_TABLE_500();
346 a17 := JTF_VARCHAR2_TABLE_500();
347 a18 := JTF_VARCHAR2_TABLE_500();
348 a19 := JTF_VARCHAR2_TABLE_500();
349 a20 := JTF_NUMBER_TABLE();
350 a21 := JTF_DATE_TABLE();
351 a22 := JTF_NUMBER_TABLE();
352 a23 := JTF_DATE_TABLE();
353 a24 := JTF_NUMBER_TABLE();
354 else
355 a0 := JTF_NUMBER_TABLE();
356 a1 := JTF_NUMBER_TABLE();
357 a2 := JTF_NUMBER_TABLE();
358 a3 := JTF_NUMBER_TABLE();
359 a4 := JTF_VARCHAR2_TABLE_100();
360 a5 := JTF_VARCHAR2_TABLE_500();
361 a6 := JTF_VARCHAR2_TABLE_500();
362 a7 := JTF_VARCHAR2_TABLE_500();
363 a8 := JTF_VARCHAR2_TABLE_500();
364 a9 := JTF_VARCHAR2_TABLE_500();
365 a10 := JTF_VARCHAR2_TABLE_500();
366 a11 := JTF_VARCHAR2_TABLE_500();
367 a12 := JTF_VARCHAR2_TABLE_500();
368 a13 := JTF_VARCHAR2_TABLE_500();
369 a14 := JTF_VARCHAR2_TABLE_500();
370 a15 := JTF_VARCHAR2_TABLE_500();
371 a16 := JTF_VARCHAR2_TABLE_500();
372 a17 := JTF_VARCHAR2_TABLE_500();
373 a18 := JTF_VARCHAR2_TABLE_500();
374 a19 := JTF_VARCHAR2_TABLE_500();
375 a20 := JTF_NUMBER_TABLE();
376 a21 := JTF_DATE_TABLE();
377 a22 := JTF_NUMBER_TABLE();
378 a23 := JTF_DATE_TABLE();
379 a24 := JTF_NUMBER_TABLE();
380 if t.count > 0 then
381 a0.extend(t.count);
382 a1.extend(t.count);
383 a2.extend(t.count);
384 a3.extend(t.count);
385 a4.extend(t.count);
386 a5.extend(t.count);
387 a6.extend(t.count);
388 a7.extend(t.count);
389 a8.extend(t.count);
390 a9.extend(t.count);
391 a10.extend(t.count);
392 a11.extend(t.count);
393 a12.extend(t.count);
394 a13.extend(t.count);
395 a14.extend(t.count);
396 a15.extend(t.count);
397 a16.extend(t.count);
398 a17.extend(t.count);
399 a18.extend(t.count);
400 a19.extend(t.count);
401 a20.extend(t.count);
402 a21.extend(t.count);
403 a22.extend(t.count);
404 a23.extend(t.count);
405 a24.extend(t.count);
406 ddindx := t.first;
407 indx := 1;
408 while true loop
409 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
410 a1(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
411 a2(indx) := rosetta_g_miss_num_map(t(ddindx).pov_id);
412 a3(indx) := rosetta_g_miss_num_map(t(ddindx).khr_id);
413 a4(indx) := t(ddindx).attribute_category;
414 a5(indx) := t(ddindx).attribute1;
415 a6(indx) := t(ddindx).attribute2;
416 a7(indx) := t(ddindx).attribute3;
417 a8(indx) := t(ddindx).attribute4;
418 a9(indx) := t(ddindx).attribute5;
419 a10(indx) := t(ddindx).attribute6;
420 a11(indx) := t(ddindx).attribute7;
421 a12(indx) := t(ddindx).attribute8;
422 a13(indx) := t(ddindx).attribute9;
423 a14(indx) := t(ddindx).attribute10;
424 a15(indx) := t(ddindx).attribute11;
425 a16(indx) := t(ddindx).attribute12;
426 a17(indx) := t(ddindx).attribute13;
427 a18(indx) := t(ddindx).attribute14;
428 a19(indx) := t(ddindx).attribute15;
429 a20(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
430 a21(indx) := t(ddindx).creation_date;
431 a22(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
432 a23(indx) := t(ddindx).last_update_date;
433 a24(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
434 indx := indx+1;
435 if t.last =ddindx
436 then exit;
437 end if;
438 ddindx := t.next(ddindx);
439 end loop;
440 end if;
441 end if;
442 end rosetta_table_copy_out_p5;
443
444 procedure insert_row(p_api_version NUMBER
445 , p_init_msg_list VARCHAR2
446 , x_return_status out nocopy VARCHAR2
447 , x_msg_count out nocopy NUMBER
448 , x_msg_data out nocopy VARCHAR2
449 , p6_a0 out nocopy NUMBER
450 , p6_a1 out nocopy NUMBER
451 , p6_a2 out nocopy NUMBER
452 , p6_a3 out nocopy NUMBER
453 , p6_a4 out nocopy VARCHAR2
454 , p6_a5 out nocopy VARCHAR2
455 , p6_a6 out nocopy VARCHAR2
456 , p6_a7 out nocopy VARCHAR2
457 , p6_a8 out nocopy VARCHAR2
458 , p6_a9 out nocopy VARCHAR2
459 , p6_a10 out nocopy VARCHAR2
460 , p6_a11 out nocopy VARCHAR2
461 , p6_a12 out nocopy VARCHAR2
462 , p6_a13 out nocopy VARCHAR2
463 , p6_a14 out nocopy VARCHAR2
464 , p6_a15 out nocopy VARCHAR2
465 , p6_a16 out nocopy VARCHAR2
466 , p6_a17 out nocopy VARCHAR2
467 , p6_a18 out nocopy VARCHAR2
468 , p6_a19 out nocopy VARCHAR2
469 , p6_a20 out nocopy NUMBER
470 , p6_a21 out nocopy DATE
471 , p6_a22 out nocopy NUMBER
472 , p6_a23 out nocopy DATE
473 , p6_a24 out nocopy NUMBER
474 , p5_a0 NUMBER := 0-1962.0724
475 , p5_a1 NUMBER := 0-1962.0724
476 , p5_a2 NUMBER := 0-1962.0724
477 , p5_a3 NUMBER := 0-1962.0724
478 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
479 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
480 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
481 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
482 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
483 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
484 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
485 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
486 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
487 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
488 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
489 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
490 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
491 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
492 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
493 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
494 , p5_a20 NUMBER := 0-1962.0724
495 , p5_a21 DATE := fnd_api.g_miss_date
496 , p5_a22 NUMBER := 0-1962.0724
497 , p5_a23 DATE := fnd_api.g_miss_date
498 , p5_a24 NUMBER := 0-1962.0724
499 )
500
501 as
502 ddp_cspv_rec okl_csp_pvt.cspv_rec_type;
503 ddx_cspv_rec okl_csp_pvt.cspv_rec_type;
504 ddindx binary_integer; indx binary_integer;
505 begin
506
507 -- copy data to the local IN or IN-OUT args, if any
508
509
510
511
512
513 ddp_cspv_rec.id := rosetta_g_miss_num_map(p5_a0);
514 ddp_cspv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
515 ddp_cspv_rec.pov_id := rosetta_g_miss_num_map(p5_a2);
516 ddp_cspv_rec.khr_id := rosetta_g_miss_num_map(p5_a3);
517 ddp_cspv_rec.attribute_category := p5_a4;
518 ddp_cspv_rec.attribute1 := p5_a5;
519 ddp_cspv_rec.attribute2 := p5_a6;
520 ddp_cspv_rec.attribute3 := p5_a7;
521 ddp_cspv_rec.attribute4 := p5_a8;
522 ddp_cspv_rec.attribute5 := p5_a9;
523 ddp_cspv_rec.attribute6 := p5_a10;
524 ddp_cspv_rec.attribute7 := p5_a11;
525 ddp_cspv_rec.attribute8 := p5_a12;
526 ddp_cspv_rec.attribute9 := p5_a13;
527 ddp_cspv_rec.attribute10 := p5_a14;
528 ddp_cspv_rec.attribute11 := p5_a15;
529 ddp_cspv_rec.attribute12 := p5_a16;
530 ddp_cspv_rec.attribute13 := p5_a17;
531 ddp_cspv_rec.attribute14 := p5_a18;
532 ddp_cspv_rec.attribute15 := p5_a19;
533 ddp_cspv_rec.created_by := rosetta_g_miss_num_map(p5_a20);
534 ddp_cspv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a21);
535 ddp_cspv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a22);
536 ddp_cspv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a23);
537 ddp_cspv_rec.last_update_login := rosetta_g_miss_num_map(p5_a24);
538
539
540 -- here's the delegated call to the old PL/SQL routine
541 okl_csp_pvt.insert_row(p_api_version,
542 p_init_msg_list,
543 x_return_status,
544 x_msg_count,
545 x_msg_data,
546 ddp_cspv_rec,
547 ddx_cspv_rec);
548
549 -- copy data back from the local variables to OUT or IN-OUT args, if any
550
551
552
553
554
555
556 p6_a0 := rosetta_g_miss_num_map(ddx_cspv_rec.id);
557 p6_a1 := rosetta_g_miss_num_map(ddx_cspv_rec.object_version_number);
558 p6_a2 := rosetta_g_miss_num_map(ddx_cspv_rec.pov_id);
559 p6_a3 := rosetta_g_miss_num_map(ddx_cspv_rec.khr_id);
560 p6_a4 := ddx_cspv_rec.attribute_category;
561 p6_a5 := ddx_cspv_rec.attribute1;
562 p6_a6 := ddx_cspv_rec.attribute2;
563 p6_a7 := ddx_cspv_rec.attribute3;
564 p6_a8 := ddx_cspv_rec.attribute4;
565 p6_a9 := ddx_cspv_rec.attribute5;
566 p6_a10 := ddx_cspv_rec.attribute6;
567 p6_a11 := ddx_cspv_rec.attribute7;
568 p6_a12 := ddx_cspv_rec.attribute8;
569 p6_a13 := ddx_cspv_rec.attribute9;
570 p6_a14 := ddx_cspv_rec.attribute10;
571 p6_a15 := ddx_cspv_rec.attribute11;
572 p6_a16 := ddx_cspv_rec.attribute12;
573 p6_a17 := ddx_cspv_rec.attribute13;
574 p6_a18 := ddx_cspv_rec.attribute14;
575 p6_a19 := ddx_cspv_rec.attribute15;
576 p6_a20 := rosetta_g_miss_num_map(ddx_cspv_rec.created_by);
577 p6_a21 := ddx_cspv_rec.creation_date;
578 p6_a22 := rosetta_g_miss_num_map(ddx_cspv_rec.last_updated_by);
579 p6_a23 := ddx_cspv_rec.last_update_date;
580 p6_a24 := rosetta_g_miss_num_map(ddx_cspv_rec.last_update_login);
581 end;
582
583 procedure insert_row(p_api_version NUMBER
584 , p_init_msg_list VARCHAR2
585 , x_return_status out nocopy VARCHAR2
586 , x_msg_count out nocopy NUMBER
587 , x_msg_data out nocopy VARCHAR2
588 , p5_a0 JTF_NUMBER_TABLE
589 , p5_a1 JTF_NUMBER_TABLE
590 , p5_a2 JTF_NUMBER_TABLE
591 , p5_a3 JTF_NUMBER_TABLE
592 , p5_a4 JTF_VARCHAR2_TABLE_100
593 , p5_a5 JTF_VARCHAR2_TABLE_500
594 , p5_a6 JTF_VARCHAR2_TABLE_500
595 , p5_a7 JTF_VARCHAR2_TABLE_500
596 , p5_a8 JTF_VARCHAR2_TABLE_500
597 , p5_a9 JTF_VARCHAR2_TABLE_500
598 , p5_a10 JTF_VARCHAR2_TABLE_500
599 , p5_a11 JTF_VARCHAR2_TABLE_500
600 , p5_a12 JTF_VARCHAR2_TABLE_500
601 , p5_a13 JTF_VARCHAR2_TABLE_500
602 , p5_a14 JTF_VARCHAR2_TABLE_500
603 , p5_a15 JTF_VARCHAR2_TABLE_500
604 , p5_a16 JTF_VARCHAR2_TABLE_500
605 , p5_a17 JTF_VARCHAR2_TABLE_500
606 , p5_a18 JTF_VARCHAR2_TABLE_500
607 , p5_a19 JTF_VARCHAR2_TABLE_500
608 , p5_a20 JTF_NUMBER_TABLE
609 , p5_a21 JTF_DATE_TABLE
610 , p5_a22 JTF_NUMBER_TABLE
611 , p5_a23 JTF_DATE_TABLE
612 , p5_a24 JTF_NUMBER_TABLE
613 , p6_a0 out nocopy JTF_NUMBER_TABLE
614 , p6_a1 out nocopy JTF_NUMBER_TABLE
615 , p6_a2 out nocopy JTF_NUMBER_TABLE
616 , p6_a3 out nocopy JTF_NUMBER_TABLE
617 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
618 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_500
619 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_500
620 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_500
621 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_500
622 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_500
623 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_500
624 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_500
625 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_500
626 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
627 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
628 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
629 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
630 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
631 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
632 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
633 , p6_a20 out nocopy JTF_NUMBER_TABLE
634 , p6_a21 out nocopy JTF_DATE_TABLE
635 , p6_a22 out nocopy JTF_NUMBER_TABLE
636 , p6_a23 out nocopy JTF_DATE_TABLE
637 , p6_a24 out nocopy JTF_NUMBER_TABLE
638 )
639
640 as
641 ddp_cspv_tbl okl_csp_pvt.cspv_tbl_type;
642 ddx_cspv_tbl okl_csp_pvt.cspv_tbl_type;
643 ddindx binary_integer; indx binary_integer;
644 begin
645
646 -- copy data to the local IN or IN-OUT args, if any
647
648
649
650
651
652 okl_csp_pvt_w.rosetta_table_copy_in_p5(ddp_cspv_tbl, p5_a0
653 , p5_a1
654 , p5_a2
655 , p5_a3
656 , p5_a4
657 , p5_a5
658 , p5_a6
659 , p5_a7
660 , p5_a8
661 , p5_a9
662 , p5_a10
663 , p5_a11
664 , p5_a12
665 , p5_a13
666 , p5_a14
667 , p5_a15
668 , p5_a16
669 , p5_a17
670 , p5_a18
671 , p5_a19
672 , p5_a20
673 , p5_a21
674 , p5_a22
675 , p5_a23
676 , p5_a24
677 );
678
679
680 -- here's the delegated call to the old PL/SQL routine
681 okl_csp_pvt.insert_row(p_api_version,
682 p_init_msg_list,
683 x_return_status,
684 x_msg_count,
685 x_msg_data,
686 ddp_cspv_tbl,
687 ddx_cspv_tbl);
688
689 -- copy data back from the local variables to OUT or IN-OUT args, if any
690
691
692
693
694
695
696 okl_csp_pvt_w.rosetta_table_copy_out_p5(ddx_cspv_tbl, p6_a0
697 , p6_a1
698 , p6_a2
699 , p6_a3
700 , p6_a4
701 , p6_a5
702 , p6_a6
703 , p6_a7
704 , p6_a8
705 , p6_a9
706 , p6_a10
707 , p6_a11
708 , p6_a12
709 , p6_a13
710 , p6_a14
711 , p6_a15
712 , p6_a16
713 , p6_a17
714 , p6_a18
715 , p6_a19
716 , p6_a20
717 , p6_a21
718 , p6_a22
719 , p6_a23
720 , p6_a24
721 );
722 end;
723
724 procedure lock_row(p_api_version NUMBER
725 , p_init_msg_list VARCHAR2
726 , x_return_status out nocopy VARCHAR2
727 , x_msg_count out nocopy NUMBER
728 , x_msg_data out nocopy VARCHAR2
729 , p5_a0 NUMBER := 0-1962.0724
730 , p5_a1 NUMBER := 0-1962.0724
731 , p5_a2 NUMBER := 0-1962.0724
732 , p5_a3 NUMBER := 0-1962.0724
733 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
734 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
735 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
736 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
737 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
738 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
739 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
740 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
741 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
742 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
743 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
744 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
745 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
746 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
747 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
748 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
749 , p5_a20 NUMBER := 0-1962.0724
750 , p5_a21 DATE := fnd_api.g_miss_date
751 , p5_a22 NUMBER := 0-1962.0724
752 , p5_a23 DATE := fnd_api.g_miss_date
753 , p5_a24 NUMBER := 0-1962.0724
754 )
755
756 as
757 ddp_cspv_rec okl_csp_pvt.cspv_rec_type;
758 ddindx binary_integer; indx binary_integer;
759 begin
760
761 -- copy data to the local IN or IN-OUT args, if any
762
763
764
765
766
767 ddp_cspv_rec.id := rosetta_g_miss_num_map(p5_a0);
768 ddp_cspv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
769 ddp_cspv_rec.pov_id := rosetta_g_miss_num_map(p5_a2);
770 ddp_cspv_rec.khr_id := rosetta_g_miss_num_map(p5_a3);
771 ddp_cspv_rec.attribute_category := p5_a4;
772 ddp_cspv_rec.attribute1 := p5_a5;
773 ddp_cspv_rec.attribute2 := p5_a6;
774 ddp_cspv_rec.attribute3 := p5_a7;
775 ddp_cspv_rec.attribute4 := p5_a8;
776 ddp_cspv_rec.attribute5 := p5_a9;
777 ddp_cspv_rec.attribute6 := p5_a10;
778 ddp_cspv_rec.attribute7 := p5_a11;
779 ddp_cspv_rec.attribute8 := p5_a12;
780 ddp_cspv_rec.attribute9 := p5_a13;
781 ddp_cspv_rec.attribute10 := p5_a14;
782 ddp_cspv_rec.attribute11 := p5_a15;
783 ddp_cspv_rec.attribute12 := p5_a16;
784 ddp_cspv_rec.attribute13 := p5_a17;
785 ddp_cspv_rec.attribute14 := p5_a18;
786 ddp_cspv_rec.attribute15 := p5_a19;
787 ddp_cspv_rec.created_by := rosetta_g_miss_num_map(p5_a20);
788 ddp_cspv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a21);
789 ddp_cspv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a22);
790 ddp_cspv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a23);
791 ddp_cspv_rec.last_update_login := rosetta_g_miss_num_map(p5_a24);
792
793 -- here's the delegated call to the old PL/SQL routine
794 okl_csp_pvt.lock_row(p_api_version,
795 p_init_msg_list,
796 x_return_status,
797 x_msg_count,
798 x_msg_data,
799 ddp_cspv_rec);
800
801 -- copy data back from the local variables to OUT or IN-OUT args, if any
802
803
804
805
806
807 end;
808
809 procedure lock_row(p_api_version NUMBER
810 , p_init_msg_list VARCHAR2
811 , x_return_status out nocopy VARCHAR2
812 , x_msg_count out nocopy NUMBER
813 , x_msg_data out nocopy VARCHAR2
814 , p5_a0 JTF_NUMBER_TABLE
815 , p5_a1 JTF_NUMBER_TABLE
816 , p5_a2 JTF_NUMBER_TABLE
817 , p5_a3 JTF_NUMBER_TABLE
818 , p5_a4 JTF_VARCHAR2_TABLE_100
819 , p5_a5 JTF_VARCHAR2_TABLE_500
820 , p5_a6 JTF_VARCHAR2_TABLE_500
821 , p5_a7 JTF_VARCHAR2_TABLE_500
822 , p5_a8 JTF_VARCHAR2_TABLE_500
823 , p5_a9 JTF_VARCHAR2_TABLE_500
824 , p5_a10 JTF_VARCHAR2_TABLE_500
825 , p5_a11 JTF_VARCHAR2_TABLE_500
826 , p5_a12 JTF_VARCHAR2_TABLE_500
827 , p5_a13 JTF_VARCHAR2_TABLE_500
828 , p5_a14 JTF_VARCHAR2_TABLE_500
829 , p5_a15 JTF_VARCHAR2_TABLE_500
830 , p5_a16 JTF_VARCHAR2_TABLE_500
831 , p5_a17 JTF_VARCHAR2_TABLE_500
832 , p5_a18 JTF_VARCHAR2_TABLE_500
833 , p5_a19 JTF_VARCHAR2_TABLE_500
834 , p5_a20 JTF_NUMBER_TABLE
835 , p5_a21 JTF_DATE_TABLE
836 , p5_a22 JTF_NUMBER_TABLE
837 , p5_a23 JTF_DATE_TABLE
838 , p5_a24 JTF_NUMBER_TABLE
839 )
840
841 as
842 ddp_cspv_tbl okl_csp_pvt.cspv_tbl_type;
843 ddindx binary_integer; indx binary_integer;
844 begin
845
846 -- copy data to the local IN or IN-OUT args, if any
847
848
849
850
851
852 okl_csp_pvt_w.rosetta_table_copy_in_p5(ddp_cspv_tbl, p5_a0
853 , p5_a1
854 , p5_a2
855 , p5_a3
856 , p5_a4
857 , p5_a5
858 , p5_a6
859 , p5_a7
860 , p5_a8
861 , p5_a9
862 , p5_a10
863 , p5_a11
864 , p5_a12
865 , p5_a13
866 , p5_a14
867 , p5_a15
868 , p5_a16
869 , p5_a17
870 , p5_a18
871 , p5_a19
872 , p5_a20
873 , p5_a21
874 , p5_a22
875 , p5_a23
876 , p5_a24
877 );
878
879 -- here's the delegated call to the old PL/SQL routine
880 okl_csp_pvt.lock_row(p_api_version,
881 p_init_msg_list,
882 x_return_status,
883 x_msg_count,
884 x_msg_data,
885 ddp_cspv_tbl);
886
887 -- copy data back from the local variables to OUT or IN-OUT args, if any
888
889
890
891
892
893 end;
894
895 procedure update_row(p_api_version NUMBER
896 , p_init_msg_list VARCHAR2
897 , x_return_status out nocopy VARCHAR2
898 , x_msg_count out nocopy NUMBER
899 , x_msg_data out nocopy VARCHAR2
900 , p6_a0 out nocopy NUMBER
901 , p6_a1 out nocopy NUMBER
902 , p6_a2 out nocopy NUMBER
903 , p6_a3 out nocopy NUMBER
904 , p6_a4 out nocopy VARCHAR2
905 , p6_a5 out nocopy VARCHAR2
906 , p6_a6 out nocopy VARCHAR2
907 , p6_a7 out nocopy VARCHAR2
908 , p6_a8 out nocopy VARCHAR2
909 , p6_a9 out nocopy VARCHAR2
910 , p6_a10 out nocopy VARCHAR2
911 , p6_a11 out nocopy VARCHAR2
912 , p6_a12 out nocopy VARCHAR2
913 , p6_a13 out nocopy VARCHAR2
914 , p6_a14 out nocopy VARCHAR2
915 , p6_a15 out nocopy VARCHAR2
916 , p6_a16 out nocopy VARCHAR2
917 , p6_a17 out nocopy VARCHAR2
918 , p6_a18 out nocopy VARCHAR2
919 , p6_a19 out nocopy VARCHAR2
920 , p6_a20 out nocopy NUMBER
921 , p6_a21 out nocopy DATE
922 , p6_a22 out nocopy NUMBER
923 , p6_a23 out nocopy DATE
924 , p6_a24 out nocopy NUMBER
925 , p5_a0 NUMBER := 0-1962.0724
926 , p5_a1 NUMBER := 0-1962.0724
927 , p5_a2 NUMBER := 0-1962.0724
928 , p5_a3 NUMBER := 0-1962.0724
929 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
930 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
931 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
932 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
933 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
934 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
935 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
936 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
937 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
938 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
939 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
940 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
941 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
942 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
943 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
944 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
945 , p5_a20 NUMBER := 0-1962.0724
946 , p5_a21 DATE := fnd_api.g_miss_date
947 , p5_a22 NUMBER := 0-1962.0724
948 , p5_a23 DATE := fnd_api.g_miss_date
949 , p5_a24 NUMBER := 0-1962.0724
950 )
951
952 as
953 ddp_cspv_rec okl_csp_pvt.cspv_rec_type;
954 ddx_cspv_rec okl_csp_pvt.cspv_rec_type;
955 ddindx binary_integer; indx binary_integer;
956 begin
957
958 -- copy data to the local IN or IN-OUT args, if any
959
960
961
962
963
964 ddp_cspv_rec.id := rosetta_g_miss_num_map(p5_a0);
965 ddp_cspv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
966 ddp_cspv_rec.pov_id := rosetta_g_miss_num_map(p5_a2);
967 ddp_cspv_rec.khr_id := rosetta_g_miss_num_map(p5_a3);
968 ddp_cspv_rec.attribute_category := p5_a4;
969 ddp_cspv_rec.attribute1 := p5_a5;
970 ddp_cspv_rec.attribute2 := p5_a6;
971 ddp_cspv_rec.attribute3 := p5_a7;
972 ddp_cspv_rec.attribute4 := p5_a8;
973 ddp_cspv_rec.attribute5 := p5_a9;
974 ddp_cspv_rec.attribute6 := p5_a10;
975 ddp_cspv_rec.attribute7 := p5_a11;
976 ddp_cspv_rec.attribute8 := p5_a12;
977 ddp_cspv_rec.attribute9 := p5_a13;
978 ddp_cspv_rec.attribute10 := p5_a14;
979 ddp_cspv_rec.attribute11 := p5_a15;
980 ddp_cspv_rec.attribute12 := p5_a16;
981 ddp_cspv_rec.attribute13 := p5_a17;
982 ddp_cspv_rec.attribute14 := p5_a18;
983 ddp_cspv_rec.attribute15 := p5_a19;
984 ddp_cspv_rec.created_by := rosetta_g_miss_num_map(p5_a20);
985 ddp_cspv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a21);
986 ddp_cspv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a22);
987 ddp_cspv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a23);
988 ddp_cspv_rec.last_update_login := rosetta_g_miss_num_map(p5_a24);
989
990
991 -- here's the delegated call to the old PL/SQL routine
992 okl_csp_pvt.update_row(p_api_version,
993 p_init_msg_list,
994 x_return_status,
995 x_msg_count,
996 x_msg_data,
997 ddp_cspv_rec,
998 ddx_cspv_rec);
999
1000 -- copy data back from the local variables to OUT or IN-OUT args, if any
1001
1002
1003
1004
1005
1006
1007 p6_a0 := rosetta_g_miss_num_map(ddx_cspv_rec.id);
1008 p6_a1 := rosetta_g_miss_num_map(ddx_cspv_rec.object_version_number);
1009 p6_a2 := rosetta_g_miss_num_map(ddx_cspv_rec.pov_id);
1010 p6_a3 := rosetta_g_miss_num_map(ddx_cspv_rec.khr_id);
1011 p6_a4 := ddx_cspv_rec.attribute_category;
1012 p6_a5 := ddx_cspv_rec.attribute1;
1013 p6_a6 := ddx_cspv_rec.attribute2;
1014 p6_a7 := ddx_cspv_rec.attribute3;
1015 p6_a8 := ddx_cspv_rec.attribute4;
1016 p6_a9 := ddx_cspv_rec.attribute5;
1017 p6_a10 := ddx_cspv_rec.attribute6;
1018 p6_a11 := ddx_cspv_rec.attribute7;
1019 p6_a12 := ddx_cspv_rec.attribute8;
1020 p6_a13 := ddx_cspv_rec.attribute9;
1021 p6_a14 := ddx_cspv_rec.attribute10;
1022 p6_a15 := ddx_cspv_rec.attribute11;
1023 p6_a16 := ddx_cspv_rec.attribute12;
1024 p6_a17 := ddx_cspv_rec.attribute13;
1025 p6_a18 := ddx_cspv_rec.attribute14;
1026 p6_a19 := ddx_cspv_rec.attribute15;
1027 p6_a20 := rosetta_g_miss_num_map(ddx_cspv_rec.created_by);
1028 p6_a21 := ddx_cspv_rec.creation_date;
1029 p6_a22 := rosetta_g_miss_num_map(ddx_cspv_rec.last_updated_by);
1030 p6_a23 := ddx_cspv_rec.last_update_date;
1031 p6_a24 := rosetta_g_miss_num_map(ddx_cspv_rec.last_update_login);
1032 end;
1033
1034 procedure update_row(p_api_version NUMBER
1035 , p_init_msg_list VARCHAR2
1036 , x_return_status out nocopy VARCHAR2
1037 , x_msg_count out nocopy NUMBER
1038 , x_msg_data out nocopy VARCHAR2
1039 , p5_a0 JTF_NUMBER_TABLE
1040 , p5_a1 JTF_NUMBER_TABLE
1041 , p5_a2 JTF_NUMBER_TABLE
1042 , p5_a3 JTF_NUMBER_TABLE
1043 , p5_a4 JTF_VARCHAR2_TABLE_100
1044 , p5_a5 JTF_VARCHAR2_TABLE_500
1045 , p5_a6 JTF_VARCHAR2_TABLE_500
1046 , p5_a7 JTF_VARCHAR2_TABLE_500
1047 , p5_a8 JTF_VARCHAR2_TABLE_500
1048 , p5_a9 JTF_VARCHAR2_TABLE_500
1049 , p5_a10 JTF_VARCHAR2_TABLE_500
1050 , p5_a11 JTF_VARCHAR2_TABLE_500
1051 , p5_a12 JTF_VARCHAR2_TABLE_500
1052 , p5_a13 JTF_VARCHAR2_TABLE_500
1053 , p5_a14 JTF_VARCHAR2_TABLE_500
1054 , p5_a15 JTF_VARCHAR2_TABLE_500
1055 , p5_a16 JTF_VARCHAR2_TABLE_500
1056 , p5_a17 JTF_VARCHAR2_TABLE_500
1057 , p5_a18 JTF_VARCHAR2_TABLE_500
1058 , p5_a19 JTF_VARCHAR2_TABLE_500
1059 , p5_a20 JTF_NUMBER_TABLE
1060 , p5_a21 JTF_DATE_TABLE
1061 , p5_a22 JTF_NUMBER_TABLE
1062 , p5_a23 JTF_DATE_TABLE
1063 , p5_a24 JTF_NUMBER_TABLE
1064 , p6_a0 out nocopy JTF_NUMBER_TABLE
1065 , p6_a1 out nocopy JTF_NUMBER_TABLE
1066 , p6_a2 out nocopy JTF_NUMBER_TABLE
1067 , p6_a3 out nocopy JTF_NUMBER_TABLE
1068 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
1069 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_500
1070 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_500
1071 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_500
1072 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_500
1073 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_500
1074 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_500
1075 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_500
1076 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_500
1077 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
1078 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
1079 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
1080 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
1081 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
1082 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
1083 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
1084 , p6_a20 out nocopy JTF_NUMBER_TABLE
1085 , p6_a21 out nocopy JTF_DATE_TABLE
1086 , p6_a22 out nocopy JTF_NUMBER_TABLE
1087 , p6_a23 out nocopy JTF_DATE_TABLE
1088 , p6_a24 out nocopy JTF_NUMBER_TABLE
1089 )
1090
1091 as
1092 ddp_cspv_tbl okl_csp_pvt.cspv_tbl_type;
1093 ddx_cspv_tbl okl_csp_pvt.cspv_tbl_type;
1094 ddindx binary_integer; indx binary_integer;
1095 begin
1096
1097 -- copy data to the local IN or IN-OUT args, if any
1098
1099
1100
1101
1102
1103 okl_csp_pvt_w.rosetta_table_copy_in_p5(ddp_cspv_tbl, p5_a0
1104 , p5_a1
1105 , p5_a2
1106 , p5_a3
1107 , p5_a4
1108 , p5_a5
1109 , p5_a6
1110 , p5_a7
1111 , p5_a8
1112 , p5_a9
1113 , p5_a10
1114 , p5_a11
1115 , p5_a12
1116 , p5_a13
1117 , p5_a14
1118 , p5_a15
1119 , p5_a16
1120 , p5_a17
1121 , p5_a18
1122 , p5_a19
1123 , p5_a20
1124 , p5_a21
1125 , p5_a22
1126 , p5_a23
1127 , p5_a24
1128 );
1129
1130
1131 -- here's the delegated call to the old PL/SQL routine
1132 okl_csp_pvt.update_row(p_api_version,
1133 p_init_msg_list,
1134 x_return_status,
1135 x_msg_count,
1136 x_msg_data,
1137 ddp_cspv_tbl,
1138 ddx_cspv_tbl);
1139
1140 -- copy data back from the local variables to OUT or IN-OUT args, if any
1141
1142
1143
1144
1145
1146
1147 okl_csp_pvt_w.rosetta_table_copy_out_p5(ddx_cspv_tbl, p6_a0
1148 , p6_a1
1149 , p6_a2
1150 , p6_a3
1151 , p6_a4
1152 , p6_a5
1153 , p6_a6
1154 , p6_a7
1155 , p6_a8
1156 , p6_a9
1157 , p6_a10
1158 , p6_a11
1159 , p6_a12
1160 , p6_a13
1161 , p6_a14
1162 , p6_a15
1163 , p6_a16
1164 , p6_a17
1165 , p6_a18
1166 , p6_a19
1167 , p6_a20
1168 , p6_a21
1169 , p6_a22
1170 , p6_a23
1171 , p6_a24
1172 );
1173 end;
1174
1175 procedure delete_row(p_api_version NUMBER
1176 , p_init_msg_list VARCHAR2
1177 , x_return_status out nocopy VARCHAR2
1178 , x_msg_count out nocopy NUMBER
1179 , x_msg_data out nocopy VARCHAR2
1180 , p5_a0 NUMBER := 0-1962.0724
1181 , p5_a1 NUMBER := 0-1962.0724
1182 , p5_a2 NUMBER := 0-1962.0724
1183 , p5_a3 NUMBER := 0-1962.0724
1184 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
1185 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
1186 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
1187 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
1188 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
1189 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
1190 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1191 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
1192 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
1193 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
1194 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
1195 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
1196 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
1197 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
1198 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1199 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1200 , p5_a20 NUMBER := 0-1962.0724
1201 , p5_a21 DATE := fnd_api.g_miss_date
1202 , p5_a22 NUMBER := 0-1962.0724
1203 , p5_a23 DATE := fnd_api.g_miss_date
1204 , p5_a24 NUMBER := 0-1962.0724
1205 )
1206
1207 as
1208 ddp_cspv_rec okl_csp_pvt.cspv_rec_type;
1209 ddindx binary_integer; indx binary_integer;
1210 begin
1211
1212 -- copy data to the local IN or IN-OUT args, if any
1213
1214
1215
1216
1217
1218 ddp_cspv_rec.id := rosetta_g_miss_num_map(p5_a0);
1219 ddp_cspv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
1220 ddp_cspv_rec.pov_id := rosetta_g_miss_num_map(p5_a2);
1221 ddp_cspv_rec.khr_id := rosetta_g_miss_num_map(p5_a3);
1222 ddp_cspv_rec.attribute_category := p5_a4;
1223 ddp_cspv_rec.attribute1 := p5_a5;
1224 ddp_cspv_rec.attribute2 := p5_a6;
1225 ddp_cspv_rec.attribute3 := p5_a7;
1226 ddp_cspv_rec.attribute4 := p5_a8;
1227 ddp_cspv_rec.attribute5 := p5_a9;
1228 ddp_cspv_rec.attribute6 := p5_a10;
1229 ddp_cspv_rec.attribute7 := p5_a11;
1230 ddp_cspv_rec.attribute8 := p5_a12;
1231 ddp_cspv_rec.attribute9 := p5_a13;
1232 ddp_cspv_rec.attribute10 := p5_a14;
1233 ddp_cspv_rec.attribute11 := p5_a15;
1234 ddp_cspv_rec.attribute12 := p5_a16;
1235 ddp_cspv_rec.attribute13 := p5_a17;
1236 ddp_cspv_rec.attribute14 := p5_a18;
1237 ddp_cspv_rec.attribute15 := p5_a19;
1238 ddp_cspv_rec.created_by := rosetta_g_miss_num_map(p5_a20);
1239 ddp_cspv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a21);
1240 ddp_cspv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a22);
1241 ddp_cspv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a23);
1242 ddp_cspv_rec.last_update_login := rosetta_g_miss_num_map(p5_a24);
1243
1244 -- here's the delegated call to the old PL/SQL routine
1245 okl_csp_pvt.delete_row(p_api_version,
1246 p_init_msg_list,
1247 x_return_status,
1248 x_msg_count,
1249 x_msg_data,
1250 ddp_cspv_rec);
1251
1252 -- copy data back from the local variables to OUT or IN-OUT args, if any
1253
1254
1255
1256
1257
1258 end;
1259
1260 procedure delete_row(p_api_version NUMBER
1261 , p_init_msg_list VARCHAR2
1262 , x_return_status out nocopy VARCHAR2
1263 , x_msg_count out nocopy NUMBER
1264 , x_msg_data out nocopy VARCHAR2
1265 , p5_a0 JTF_NUMBER_TABLE
1266 , p5_a1 JTF_NUMBER_TABLE
1267 , p5_a2 JTF_NUMBER_TABLE
1268 , p5_a3 JTF_NUMBER_TABLE
1269 , p5_a4 JTF_VARCHAR2_TABLE_100
1270 , p5_a5 JTF_VARCHAR2_TABLE_500
1271 , p5_a6 JTF_VARCHAR2_TABLE_500
1272 , p5_a7 JTF_VARCHAR2_TABLE_500
1273 , p5_a8 JTF_VARCHAR2_TABLE_500
1274 , p5_a9 JTF_VARCHAR2_TABLE_500
1275 , p5_a10 JTF_VARCHAR2_TABLE_500
1276 , p5_a11 JTF_VARCHAR2_TABLE_500
1277 , p5_a12 JTF_VARCHAR2_TABLE_500
1278 , p5_a13 JTF_VARCHAR2_TABLE_500
1279 , p5_a14 JTF_VARCHAR2_TABLE_500
1280 , p5_a15 JTF_VARCHAR2_TABLE_500
1281 , p5_a16 JTF_VARCHAR2_TABLE_500
1282 , p5_a17 JTF_VARCHAR2_TABLE_500
1283 , p5_a18 JTF_VARCHAR2_TABLE_500
1284 , p5_a19 JTF_VARCHAR2_TABLE_500
1285 , p5_a20 JTF_NUMBER_TABLE
1286 , p5_a21 JTF_DATE_TABLE
1287 , p5_a22 JTF_NUMBER_TABLE
1288 , p5_a23 JTF_DATE_TABLE
1289 , p5_a24 JTF_NUMBER_TABLE
1290 )
1291
1292 as
1293 ddp_cspv_tbl okl_csp_pvt.cspv_tbl_type;
1294 ddindx binary_integer; indx binary_integer;
1295 begin
1296
1297 -- copy data to the local IN or IN-OUT args, if any
1298
1299
1300
1301
1302
1303 okl_csp_pvt_w.rosetta_table_copy_in_p5(ddp_cspv_tbl, p5_a0
1304 , p5_a1
1305 , p5_a2
1306 , p5_a3
1307 , p5_a4
1308 , p5_a5
1309 , p5_a6
1310 , p5_a7
1311 , p5_a8
1312 , p5_a9
1313 , p5_a10
1314 , p5_a11
1315 , p5_a12
1316 , p5_a13
1317 , p5_a14
1318 , p5_a15
1319 , p5_a16
1320 , p5_a17
1321 , p5_a18
1322 , p5_a19
1323 , p5_a20
1324 , p5_a21
1325 , p5_a22
1326 , p5_a23
1327 , p5_a24
1328 );
1329
1330 -- here's the delegated call to the old PL/SQL routine
1331 okl_csp_pvt.delete_row(p_api_version,
1332 p_init_msg_list,
1333 x_return_status,
1334 x_msg_count,
1335 x_msg_data,
1336 ddp_cspv_tbl);
1337
1338 -- copy data back from the local variables to OUT or IN-OUT args, if any
1339
1340
1341
1342
1343
1344 end;
1345
1346 procedure validate_row(p_api_version NUMBER
1347 , p_init_msg_list VARCHAR2
1348 , x_return_status out nocopy VARCHAR2
1349 , x_msg_count out nocopy NUMBER
1350 , x_msg_data out nocopy VARCHAR2
1351 , p5_a0 NUMBER := 0-1962.0724
1352 , p5_a1 NUMBER := 0-1962.0724
1353 , p5_a2 NUMBER := 0-1962.0724
1354 , p5_a3 NUMBER := 0-1962.0724
1355 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
1356 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
1357 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
1358 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
1359 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
1360 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
1361 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1362 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
1363 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
1364 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
1365 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
1366 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
1367 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
1368 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
1369 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1370 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1371 , p5_a20 NUMBER := 0-1962.0724
1372 , p5_a21 DATE := fnd_api.g_miss_date
1373 , p5_a22 NUMBER := 0-1962.0724
1374 , p5_a23 DATE := fnd_api.g_miss_date
1375 , p5_a24 NUMBER := 0-1962.0724
1376 )
1377
1378 as
1379 ddp_cspv_rec okl_csp_pvt.cspv_rec_type;
1380 ddindx binary_integer; indx binary_integer;
1381 begin
1382
1383 -- copy data to the local IN or IN-OUT args, if any
1384
1385
1386
1387
1388
1389 ddp_cspv_rec.id := rosetta_g_miss_num_map(p5_a0);
1390 ddp_cspv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
1391 ddp_cspv_rec.pov_id := rosetta_g_miss_num_map(p5_a2);
1392 ddp_cspv_rec.khr_id := rosetta_g_miss_num_map(p5_a3);
1393 ddp_cspv_rec.attribute_category := p5_a4;
1394 ddp_cspv_rec.attribute1 := p5_a5;
1395 ddp_cspv_rec.attribute2 := p5_a6;
1396 ddp_cspv_rec.attribute3 := p5_a7;
1397 ddp_cspv_rec.attribute4 := p5_a8;
1398 ddp_cspv_rec.attribute5 := p5_a9;
1399 ddp_cspv_rec.attribute6 := p5_a10;
1400 ddp_cspv_rec.attribute7 := p5_a11;
1401 ddp_cspv_rec.attribute8 := p5_a12;
1402 ddp_cspv_rec.attribute9 := p5_a13;
1403 ddp_cspv_rec.attribute10 := p5_a14;
1404 ddp_cspv_rec.attribute11 := p5_a15;
1405 ddp_cspv_rec.attribute12 := p5_a16;
1406 ddp_cspv_rec.attribute13 := p5_a17;
1407 ddp_cspv_rec.attribute14 := p5_a18;
1408 ddp_cspv_rec.attribute15 := p5_a19;
1409 ddp_cspv_rec.created_by := rosetta_g_miss_num_map(p5_a20);
1410 ddp_cspv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a21);
1411 ddp_cspv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a22);
1412 ddp_cspv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a23);
1413 ddp_cspv_rec.last_update_login := rosetta_g_miss_num_map(p5_a24);
1414
1415 -- here's the delegated call to the old PL/SQL routine
1416 okl_csp_pvt.validate_row(p_api_version,
1417 p_init_msg_list,
1418 x_return_status,
1419 x_msg_count,
1420 x_msg_data,
1421 ddp_cspv_rec);
1422
1423 -- copy data back from the local variables to OUT or IN-OUT args, if any
1424
1425
1426
1427
1428
1429 end;
1430
1431 procedure validate_row(p_api_version NUMBER
1432 , p_init_msg_list VARCHAR2
1433 , x_return_status out nocopy VARCHAR2
1434 , x_msg_count out nocopy NUMBER
1435 , x_msg_data out nocopy VARCHAR2
1436 , p5_a0 JTF_NUMBER_TABLE
1437 , p5_a1 JTF_NUMBER_TABLE
1438 , p5_a2 JTF_NUMBER_TABLE
1439 , p5_a3 JTF_NUMBER_TABLE
1440 , p5_a4 JTF_VARCHAR2_TABLE_100
1441 , p5_a5 JTF_VARCHAR2_TABLE_500
1442 , p5_a6 JTF_VARCHAR2_TABLE_500
1443 , p5_a7 JTF_VARCHAR2_TABLE_500
1444 , p5_a8 JTF_VARCHAR2_TABLE_500
1445 , p5_a9 JTF_VARCHAR2_TABLE_500
1446 , p5_a10 JTF_VARCHAR2_TABLE_500
1447 , p5_a11 JTF_VARCHAR2_TABLE_500
1448 , p5_a12 JTF_VARCHAR2_TABLE_500
1449 , p5_a13 JTF_VARCHAR2_TABLE_500
1450 , p5_a14 JTF_VARCHAR2_TABLE_500
1451 , p5_a15 JTF_VARCHAR2_TABLE_500
1452 , p5_a16 JTF_VARCHAR2_TABLE_500
1453 , p5_a17 JTF_VARCHAR2_TABLE_500
1454 , p5_a18 JTF_VARCHAR2_TABLE_500
1455 , p5_a19 JTF_VARCHAR2_TABLE_500
1456 , p5_a20 JTF_NUMBER_TABLE
1457 , p5_a21 JTF_DATE_TABLE
1458 , p5_a22 JTF_NUMBER_TABLE
1459 , p5_a23 JTF_DATE_TABLE
1460 , p5_a24 JTF_NUMBER_TABLE
1461 )
1462
1463 as
1464 ddp_cspv_tbl okl_csp_pvt.cspv_tbl_type;
1465 ddindx binary_integer; indx binary_integer;
1466 begin
1467
1468 -- copy data to the local IN or IN-OUT args, if any
1469
1470
1471
1472
1473
1474 okl_csp_pvt_w.rosetta_table_copy_in_p5(ddp_cspv_tbl, p5_a0
1475 , p5_a1
1476 , p5_a2
1477 , p5_a3
1478 , p5_a4
1479 , p5_a5
1480 , p5_a6
1481 , p5_a7
1482 , p5_a8
1483 , p5_a9
1484 , p5_a10
1485 , p5_a11
1486 , p5_a12
1487 , p5_a13
1488 , p5_a14
1489 , p5_a15
1490 , p5_a16
1491 , p5_a17
1492 , p5_a18
1493 , p5_a19
1494 , p5_a20
1495 , p5_a21
1496 , p5_a22
1497 , p5_a23
1498 , p5_a24
1499 );
1500
1501 -- here's the delegated call to the old PL/SQL routine
1502 okl_csp_pvt.validate_row(p_api_version,
1503 p_init_msg_list,
1504 x_return_status,
1505 x_msg_count,
1506 x_msg_data,
1507 ddp_cspv_tbl);
1508
1509 -- copy data back from the local variables to OUT or IN-OUT args, if any
1510
1511
1512
1513
1514
1515 end;
1516
1517 end okl_csp_pvt_w;