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