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