[Home] [Help]
PACKAGE BODY: APPS.OKL_PTM_PVT_W
Source
1 package body okl_ptm_pvt_w as
2 /* $Header: OKLIPTMB.pls 120.2 2006/11/03 14:12:04 sosharma 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_ptm_pvt.ptm_tbl_type, a0 JTF_NUMBER_TABLE
26 , a1 JTF_NUMBER_TABLE
27 , a2 JTF_VARCHAR2_TABLE_100
28 , a3 JTF_NUMBER_TABLE
29 , a4 JTF_DATE_TABLE
30 , a5 JTF_DATE_TABLE
31 , a6 JTF_NUMBER_TABLE
32 , a7 JTF_VARCHAR2_TABLE_100
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_VARCHAR2_TABLE_500
46 , a21 JTF_VARCHAR2_TABLE_500
47 , a22 JTF_VARCHAR2_TABLE_500
48 , a23 JTF_NUMBER_TABLE
49 , a24 JTF_DATE_TABLE
50 , a25 JTF_NUMBER_TABLE
51 , a26 JTF_DATE_TABLE
52 , a27 JTF_NUMBER_TABLE
53 , a28 JTF_VARCHAR2_TABLE_100
54 , a29 JTF_VARCHAR2_TABLE_100
55 ) as
56 ddindx binary_integer; indx binary_integer;
57 begin
58 if a0 is not null and a0.count > 0 then
59 if a0.count > 0 then
60 indx := a0.first;
61 ddindx := 1;
62 while true loop
63 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
64 t(ddindx).org_id := rosetta_g_miss_num_map(a1(indx));
65 t(ddindx).ptm_code := a2(indx);
66 t(ddindx).jtf_amv_item_id := rosetta_g_miss_num_map(a3(indx));
67 t(ddindx).start_date := rosetta_g_miss_date_in_map(a4(indx));
68 t(ddindx).end_date := rosetta_g_miss_date_in_map(a5(indx));
69 t(ddindx).object_version_number := rosetta_g_miss_num_map(a6(indx));
70 t(ddindx).attribute_category := a7(indx);
71 t(ddindx).attribute1 := a8(indx);
72 t(ddindx).attribute2 := a9(indx);
73 t(ddindx).attribute3 := a10(indx);
74 t(ddindx).attribute4 := a11(indx);
75 t(ddindx).attribute5 := a12(indx);
76 t(ddindx).attribute6 := a13(indx);
77 t(ddindx).attribute7 := a14(indx);
78 t(ddindx).attribute8 := a15(indx);
79 t(ddindx).attribute9 := a16(indx);
80 t(ddindx).attribute10 := a17(indx);
81 t(ddindx).attribute11 := a18(indx);
82 t(ddindx).attribute12 := a19(indx);
83 t(ddindx).attribute13 := a20(indx);
84 t(ddindx).attribute14 := a21(indx);
85 t(ddindx).attribute15 := a22(indx);
86 t(ddindx).created_by := rosetta_g_miss_num_map(a23(indx));
87 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a24(indx));
88 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a25(indx));
89 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a26(indx));
90 t(ddindx).last_update_login := rosetta_g_miss_num_map(a27(indx));
91 t(ddindx).recipient_type_code := a28(indx);
92 t(ddindx).xml_tmplt_code := a29(indx);
93 ddindx := ddindx+1;
94 if a0.last =indx
95 then exit;
96 end if;
97 indx := a0.next(indx);
98 end loop;
99 end if;
100 end if;
101 end rosetta_table_copy_in_p2;
102 procedure rosetta_table_copy_out_p2(t okl_ptm_pvt.ptm_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
103 , a1 out nocopy JTF_NUMBER_TABLE
104 , a2 out nocopy JTF_VARCHAR2_TABLE_100
105 , a3 out nocopy JTF_NUMBER_TABLE
106 , a4 out nocopy JTF_DATE_TABLE
107 , a5 out nocopy JTF_DATE_TABLE
108 , a6 out nocopy JTF_NUMBER_TABLE
109 , a7 out nocopy JTF_VARCHAR2_TABLE_100
110 , a8 out nocopy JTF_VARCHAR2_TABLE_500
111 , a9 out nocopy JTF_VARCHAR2_TABLE_500
112 , a10 out nocopy JTF_VARCHAR2_TABLE_500
113 , a11 out nocopy JTF_VARCHAR2_TABLE_500
114 , a12 out nocopy JTF_VARCHAR2_TABLE_500
115 , a13 out nocopy JTF_VARCHAR2_TABLE_500
116 , a14 out nocopy JTF_VARCHAR2_TABLE_500
117 , a15 out nocopy JTF_VARCHAR2_TABLE_500
118 , a16 out nocopy JTF_VARCHAR2_TABLE_500
119 , a17 out nocopy JTF_VARCHAR2_TABLE_500
120 , a18 out nocopy JTF_VARCHAR2_TABLE_500
121 , a19 out nocopy JTF_VARCHAR2_TABLE_500
122 , a20 out nocopy JTF_VARCHAR2_TABLE_500
123 , a21 out nocopy JTF_VARCHAR2_TABLE_500
124 , a22 out nocopy JTF_VARCHAR2_TABLE_500
125 , a23 out nocopy JTF_NUMBER_TABLE
126 , a24 out nocopy JTF_DATE_TABLE
127 , a25 out nocopy JTF_NUMBER_TABLE
128 , a26 out nocopy JTF_DATE_TABLE
129 , a27 out nocopy JTF_NUMBER_TABLE
130 , a28 out nocopy JTF_VARCHAR2_TABLE_100
131 , a29 out nocopy JTF_VARCHAR2_TABLE_100
132 ) as
133 ddindx binary_integer; indx binary_integer;
134 begin
135 if t is null or t.count = 0 then
136 a0 := JTF_NUMBER_TABLE();
137 a1 := JTF_NUMBER_TABLE();
138 a2 := JTF_VARCHAR2_TABLE_100();
139 a3 := JTF_NUMBER_TABLE();
140 a4 := JTF_DATE_TABLE();
141 a5 := JTF_DATE_TABLE();
142 a6 := JTF_NUMBER_TABLE();
143 a7 := JTF_VARCHAR2_TABLE_100();
144 a8 := JTF_VARCHAR2_TABLE_500();
145 a9 := JTF_VARCHAR2_TABLE_500();
146 a10 := JTF_VARCHAR2_TABLE_500();
147 a11 := JTF_VARCHAR2_TABLE_500();
148 a12 := JTF_VARCHAR2_TABLE_500();
149 a13 := JTF_VARCHAR2_TABLE_500();
150 a14 := JTF_VARCHAR2_TABLE_500();
151 a15 := JTF_VARCHAR2_TABLE_500();
152 a16 := JTF_VARCHAR2_TABLE_500();
153 a17 := JTF_VARCHAR2_TABLE_500();
154 a18 := JTF_VARCHAR2_TABLE_500();
155 a19 := JTF_VARCHAR2_TABLE_500();
156 a20 := JTF_VARCHAR2_TABLE_500();
157 a21 := JTF_VARCHAR2_TABLE_500();
158 a22 := JTF_VARCHAR2_TABLE_500();
159 a23 := JTF_NUMBER_TABLE();
160 a24 := JTF_DATE_TABLE();
161 a25 := JTF_NUMBER_TABLE();
162 a26 := JTF_DATE_TABLE();
163 a27 := JTF_NUMBER_TABLE();
164 a28 := JTF_VARCHAR2_TABLE_100();
165 a29 := JTF_VARCHAR2_TABLE_100();
166 else
167 a0 := JTF_NUMBER_TABLE();
168 a1 := JTF_NUMBER_TABLE();
169 a2 := JTF_VARCHAR2_TABLE_100();
170 a3 := JTF_NUMBER_TABLE();
171 a4 := JTF_DATE_TABLE();
172 a5 := JTF_DATE_TABLE();
173 a6 := JTF_NUMBER_TABLE();
174 a7 := JTF_VARCHAR2_TABLE_100();
175 a8 := JTF_VARCHAR2_TABLE_500();
176 a9 := JTF_VARCHAR2_TABLE_500();
177 a10 := JTF_VARCHAR2_TABLE_500();
178 a11 := JTF_VARCHAR2_TABLE_500();
179 a12 := JTF_VARCHAR2_TABLE_500();
180 a13 := JTF_VARCHAR2_TABLE_500();
181 a14 := JTF_VARCHAR2_TABLE_500();
182 a15 := JTF_VARCHAR2_TABLE_500();
183 a16 := JTF_VARCHAR2_TABLE_500();
184 a17 := JTF_VARCHAR2_TABLE_500();
185 a18 := JTF_VARCHAR2_TABLE_500();
186 a19 := JTF_VARCHAR2_TABLE_500();
187 a20 := JTF_VARCHAR2_TABLE_500();
188 a21 := JTF_VARCHAR2_TABLE_500();
189 a22 := JTF_VARCHAR2_TABLE_500();
190 a23 := JTF_NUMBER_TABLE();
191 a24 := JTF_DATE_TABLE();
192 a25 := JTF_NUMBER_TABLE();
193 a26 := JTF_DATE_TABLE();
194 a27 := JTF_NUMBER_TABLE();
195 a28 := JTF_VARCHAR2_TABLE_100();
196 a29 := JTF_VARCHAR2_TABLE_100();
197 if t.count > 0 then
198 a0.extend(t.count);
199 a1.extend(t.count);
200 a2.extend(t.count);
201 a3.extend(t.count);
202 a4.extend(t.count);
203 a5.extend(t.count);
204 a6.extend(t.count);
205 a7.extend(t.count);
206 a8.extend(t.count);
207 a9.extend(t.count);
208 a10.extend(t.count);
209 a11.extend(t.count);
210 a12.extend(t.count);
211 a13.extend(t.count);
212 a14.extend(t.count);
213 a15.extend(t.count);
214 a16.extend(t.count);
215 a17.extend(t.count);
216 a18.extend(t.count);
217 a19.extend(t.count);
218 a20.extend(t.count);
219 a21.extend(t.count);
220 a22.extend(t.count);
221 a23.extend(t.count);
222 a24.extend(t.count);
223 a25.extend(t.count);
224 a26.extend(t.count);
225 a27.extend(t.count);
226 a28.extend(t.count);
227 a29.extend(t.count);
228 ddindx := t.first;
229 indx := 1;
230 while true loop
231 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
232 a1(indx) := rosetta_g_miss_num_map(t(ddindx).org_id);
233 a2(indx) := t(ddindx).ptm_code;
234 a3(indx) := rosetta_g_miss_num_map(t(ddindx).jtf_amv_item_id);
235 a4(indx) := t(ddindx).start_date;
236 a5(indx) := t(ddindx).end_date;
237 a6(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
238 a7(indx) := t(ddindx).attribute_category;
239 a8(indx) := t(ddindx).attribute1;
240 a9(indx) := t(ddindx).attribute2;
241 a10(indx) := t(ddindx).attribute3;
242 a11(indx) := t(ddindx).attribute4;
243 a12(indx) := t(ddindx).attribute5;
244 a13(indx) := t(ddindx).attribute6;
245 a14(indx) := t(ddindx).attribute7;
246 a15(indx) := t(ddindx).attribute8;
247 a16(indx) := t(ddindx).attribute9;
248 a17(indx) := t(ddindx).attribute10;
249 a18(indx) := t(ddindx).attribute11;
250 a19(indx) := t(ddindx).attribute12;
251 a20(indx) := t(ddindx).attribute13;
252 a21(indx) := t(ddindx).attribute14;
253 a22(indx) := t(ddindx).attribute15;
254 a23(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
255 a24(indx) := t(ddindx).creation_date;
256 a25(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
257 a26(indx) := t(ddindx).last_update_date;
258 a27(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
259 a28(indx) := t(ddindx).recipient_type_code;
260 a29(indx) := t(ddindx).xml_tmplt_code;
261 indx := indx+1;
262 if t.last =ddindx
263 then exit;
264 end if;
265 ddindx := t.next(ddindx);
266 end loop;
267 end if;
268 end if;
269 end rosetta_table_copy_out_p2;
270
271 procedure rosetta_table_copy_in_p5(t out nocopy okl_ptm_pvt.okl_process_tmplts_tl_tbl_type, a0 JTF_NUMBER_TABLE
272 , a1 JTF_VARCHAR2_TABLE_100
273 , a2 JTF_VARCHAR2_TABLE_100
274 , a3 JTF_VARCHAR2_TABLE_100
275 , a4 JTF_VARCHAR2_TABLE_100
276 , a5 JTF_NUMBER_TABLE
277 , a6 JTF_DATE_TABLE
278 , a7 JTF_NUMBER_TABLE
279 , a8 JTF_DATE_TABLE
280 , a9 JTF_NUMBER_TABLE
281 ) as
282 ddindx binary_integer; indx binary_integer;
283 begin
284 if a0 is not null and a0.count > 0 then
285 if a0.count > 0 then
286 indx := a0.first;
287 ddindx := 1;
288 while true loop
289 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
290 t(ddindx).language := a1(indx);
291 t(ddindx).source_lang := a2(indx);
292 t(ddindx).sfwt_flag := a3(indx);
293 t(ddindx).email_subject_line := a4(indx);
294 t(ddindx).created_by := rosetta_g_miss_num_map(a5(indx));
295 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a6(indx));
296 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a7(indx));
297 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a8(indx));
298 t(ddindx).last_update_login := rosetta_g_miss_num_map(a9(indx));
299 ddindx := ddindx+1;
300 if a0.last =indx
301 then exit;
302 end if;
303 indx := a0.next(indx);
304 end loop;
305 end if;
306 end if;
307 end rosetta_table_copy_in_p5;
308 procedure rosetta_table_copy_out_p5(t okl_ptm_pvt.okl_process_tmplts_tl_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
309 , a1 out nocopy JTF_VARCHAR2_TABLE_100
310 , a2 out nocopy JTF_VARCHAR2_TABLE_100
311 , a3 out nocopy JTF_VARCHAR2_TABLE_100
312 , a4 out nocopy JTF_VARCHAR2_TABLE_100
313 , a5 out nocopy JTF_NUMBER_TABLE
314 , a6 out nocopy JTF_DATE_TABLE
315 , a7 out nocopy JTF_NUMBER_TABLE
316 , a8 out nocopy JTF_DATE_TABLE
317 , a9 out nocopy JTF_NUMBER_TABLE
318 ) as
319 ddindx binary_integer; indx binary_integer;
320 begin
321 if t is null or t.count = 0 then
322 a0 := JTF_NUMBER_TABLE();
323 a1 := JTF_VARCHAR2_TABLE_100();
324 a2 := JTF_VARCHAR2_TABLE_100();
325 a3 := JTF_VARCHAR2_TABLE_100();
326 a4 := JTF_VARCHAR2_TABLE_100();
327 a5 := JTF_NUMBER_TABLE();
328 a6 := JTF_DATE_TABLE();
329 a7 := JTF_NUMBER_TABLE();
330 a8 := JTF_DATE_TABLE();
331 a9 := JTF_NUMBER_TABLE();
332 else
333 a0 := JTF_NUMBER_TABLE();
334 a1 := JTF_VARCHAR2_TABLE_100();
335 a2 := JTF_VARCHAR2_TABLE_100();
336 a3 := JTF_VARCHAR2_TABLE_100();
337 a4 := JTF_VARCHAR2_TABLE_100();
338 a5 := JTF_NUMBER_TABLE();
339 a6 := JTF_DATE_TABLE();
340 a7 := JTF_NUMBER_TABLE();
341 a8 := JTF_DATE_TABLE();
342 a9 := JTF_NUMBER_TABLE();
343 if t.count > 0 then
344 a0.extend(t.count);
345 a1.extend(t.count);
346 a2.extend(t.count);
347 a3.extend(t.count);
348 a4.extend(t.count);
349 a5.extend(t.count);
350 a6.extend(t.count);
351 a7.extend(t.count);
352 a8.extend(t.count);
353 a9.extend(t.count);
354 ddindx := t.first;
355 indx := 1;
356 while true loop
357 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
358 a1(indx) := t(ddindx).language;
359 a2(indx) := t(ddindx).source_lang;
360 a3(indx) := t(ddindx).sfwt_flag;
361 a4(indx) := t(ddindx).email_subject_line;
362 a5(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
363 a6(indx) := t(ddindx).creation_date;
364 a7(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
365 a8(indx) := t(ddindx).last_update_date;
366 a9(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
367 indx := indx+1;
368 if t.last =ddindx
369 then exit;
370 end if;
371 ddindx := t.next(ddindx);
372 end loop;
373 end if;
374 end if;
375 end rosetta_table_copy_out_p5;
376
377 procedure rosetta_table_copy_in_p8(t out nocopy okl_ptm_pvt.ptmv_tbl_type, a0 JTF_NUMBER_TABLE
378 , a1 JTF_NUMBER_TABLE
379 , a2 JTF_VARCHAR2_TABLE_100
380 , a3 JTF_NUMBER_TABLE
381 , a4 JTF_VARCHAR2_TABLE_100
382 , a5 JTF_VARCHAR2_TABLE_100
383 , a6 JTF_DATE_TABLE
384 , a7 JTF_DATE_TABLE
385 , a8 JTF_NUMBER_TABLE
386 , a9 JTF_VARCHAR2_TABLE_100
387 , a10 JTF_VARCHAR2_TABLE_500
388 , a11 JTF_VARCHAR2_TABLE_500
389 , a12 JTF_VARCHAR2_TABLE_500
390 , a13 JTF_VARCHAR2_TABLE_500
391 , a14 JTF_VARCHAR2_TABLE_500
392 , a15 JTF_VARCHAR2_TABLE_500
393 , a16 JTF_VARCHAR2_TABLE_500
394 , a17 JTF_VARCHAR2_TABLE_500
395 , a18 JTF_VARCHAR2_TABLE_500
396 , a19 JTF_VARCHAR2_TABLE_500
397 , a20 JTF_VARCHAR2_TABLE_500
398 , a21 JTF_VARCHAR2_TABLE_500
399 , a22 JTF_VARCHAR2_TABLE_500
400 , a23 JTF_VARCHAR2_TABLE_500
401 , a24 JTF_VARCHAR2_TABLE_500
402 , a25 JTF_NUMBER_TABLE
403 , a26 JTF_DATE_TABLE
404 , a27 JTF_NUMBER_TABLE
405 , a28 JTF_DATE_TABLE
406 , a29 JTF_NUMBER_TABLE
407 , a30 JTF_VARCHAR2_TABLE_100
408 , a31 JTF_VARCHAR2_TABLE_100
409 ) as
410 ddindx binary_integer; indx binary_integer;
411 begin
412 if a0 is not null and a0.count > 0 then
413 if a0.count > 0 then
414 indx := a0.first;
415 ddindx := 1;
416 while true loop
417 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
418 t(ddindx).org_id := rosetta_g_miss_num_map(a1(indx));
419 t(ddindx).ptm_code := a2(indx);
420 t(ddindx).jtf_amv_item_id := rosetta_g_miss_num_map(a3(indx));
421 t(ddindx).sfwt_flag := a4(indx);
422 t(ddindx).email_subject_line := a5(indx);
423 t(ddindx).start_date := rosetta_g_miss_date_in_map(a6(indx));
424 t(ddindx).end_date := rosetta_g_miss_date_in_map(a7(indx));
425 t(ddindx).object_version_number := rosetta_g_miss_num_map(a8(indx));
426 t(ddindx).attribute_category := a9(indx);
427 t(ddindx).attribute1 := a10(indx);
428 t(ddindx).attribute2 := a11(indx);
429 t(ddindx).attribute3 := a12(indx);
430 t(ddindx).attribute4 := a13(indx);
431 t(ddindx).attribute5 := a14(indx);
432 t(ddindx).attribute6 := a15(indx);
433 t(ddindx).attribute7 := a16(indx);
434 t(ddindx).attribute8 := a17(indx);
435 t(ddindx).attribute9 := a18(indx);
436 t(ddindx).attribute10 := a19(indx);
437 t(ddindx).attribute11 := a20(indx);
438 t(ddindx).attribute12 := a21(indx);
439 t(ddindx).attribute13 := a22(indx);
440 t(ddindx).attribute14 := a23(indx);
441 t(ddindx).attribute15 := a24(indx);
442 t(ddindx).created_by := rosetta_g_miss_num_map(a25(indx));
443 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a26(indx));
444 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a27(indx));
445 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a28(indx));
446 t(ddindx).last_update_login := rosetta_g_miss_num_map(a29(indx));
447 t(ddindx).recipient_type_code := a30(indx);
448 t(ddindx).xml_tmplt_code := a31(indx);
449 ddindx := ddindx+1;
450 if a0.last =indx
451 then exit;
452 end if;
453 indx := a0.next(indx);
454 end loop;
455 end if;
456 end if;
457 end rosetta_table_copy_in_p8;
458 procedure rosetta_table_copy_out_p8(t okl_ptm_pvt.ptmv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
459 , a1 out nocopy JTF_NUMBER_TABLE
460 , a2 out nocopy JTF_VARCHAR2_TABLE_100
461 , a3 out nocopy JTF_NUMBER_TABLE
462 , a4 out nocopy JTF_VARCHAR2_TABLE_100
463 , a5 out nocopy JTF_VARCHAR2_TABLE_100
464 , a6 out nocopy JTF_DATE_TABLE
465 , a7 out nocopy JTF_DATE_TABLE
466 , a8 out nocopy JTF_NUMBER_TABLE
467 , a9 out nocopy JTF_VARCHAR2_TABLE_100
468 , a10 out nocopy JTF_VARCHAR2_TABLE_500
469 , a11 out nocopy JTF_VARCHAR2_TABLE_500
470 , a12 out nocopy JTF_VARCHAR2_TABLE_500
471 , a13 out nocopy JTF_VARCHAR2_TABLE_500
472 , a14 out nocopy JTF_VARCHAR2_TABLE_500
473 , a15 out nocopy JTF_VARCHAR2_TABLE_500
474 , a16 out nocopy JTF_VARCHAR2_TABLE_500
475 , a17 out nocopy JTF_VARCHAR2_TABLE_500
476 , a18 out nocopy JTF_VARCHAR2_TABLE_500
477 , a19 out nocopy JTF_VARCHAR2_TABLE_500
478 , a20 out nocopy JTF_VARCHAR2_TABLE_500
479 , a21 out nocopy JTF_VARCHAR2_TABLE_500
480 , a22 out nocopy JTF_VARCHAR2_TABLE_500
481 , a23 out nocopy JTF_VARCHAR2_TABLE_500
482 , a24 out nocopy JTF_VARCHAR2_TABLE_500
483 , a25 out nocopy JTF_NUMBER_TABLE
484 , a26 out nocopy JTF_DATE_TABLE
485 , a27 out nocopy JTF_NUMBER_TABLE
486 , a28 out nocopy JTF_DATE_TABLE
487 , a29 out nocopy JTF_NUMBER_TABLE
488 , a30 out nocopy JTF_VARCHAR2_TABLE_100
489 , a31 out nocopy JTF_VARCHAR2_TABLE_100
490 ) as
491 ddindx binary_integer; indx binary_integer;
492 begin
493 if t is null or t.count = 0 then
494 a0 := JTF_NUMBER_TABLE();
495 a1 := JTF_NUMBER_TABLE();
496 a2 := JTF_VARCHAR2_TABLE_100();
497 a3 := JTF_NUMBER_TABLE();
498 a4 := JTF_VARCHAR2_TABLE_100();
499 a5 := JTF_VARCHAR2_TABLE_100();
500 a6 := JTF_DATE_TABLE();
501 a7 := JTF_DATE_TABLE();
502 a8 := JTF_NUMBER_TABLE();
503 a9 := JTF_VARCHAR2_TABLE_100();
504 a10 := JTF_VARCHAR2_TABLE_500();
505 a11 := JTF_VARCHAR2_TABLE_500();
506 a12 := JTF_VARCHAR2_TABLE_500();
507 a13 := JTF_VARCHAR2_TABLE_500();
508 a14 := JTF_VARCHAR2_TABLE_500();
509 a15 := JTF_VARCHAR2_TABLE_500();
510 a16 := JTF_VARCHAR2_TABLE_500();
511 a17 := JTF_VARCHAR2_TABLE_500();
512 a18 := JTF_VARCHAR2_TABLE_500();
513 a19 := JTF_VARCHAR2_TABLE_500();
514 a20 := JTF_VARCHAR2_TABLE_500();
515 a21 := JTF_VARCHAR2_TABLE_500();
516 a22 := JTF_VARCHAR2_TABLE_500();
517 a23 := JTF_VARCHAR2_TABLE_500();
518 a24 := JTF_VARCHAR2_TABLE_500();
519 a25 := JTF_NUMBER_TABLE();
520 a26 := JTF_DATE_TABLE();
521 a27 := JTF_NUMBER_TABLE();
522 a28 := JTF_DATE_TABLE();
523 a29 := JTF_NUMBER_TABLE();
524 a30 := JTF_VARCHAR2_TABLE_100();
525 a31 := JTF_VARCHAR2_TABLE_100();
526 else
527 a0 := JTF_NUMBER_TABLE();
528 a1 := JTF_NUMBER_TABLE();
529 a2 := JTF_VARCHAR2_TABLE_100();
530 a3 := JTF_NUMBER_TABLE();
531 a4 := JTF_VARCHAR2_TABLE_100();
532 a5 := JTF_VARCHAR2_TABLE_100();
533 a6 := JTF_DATE_TABLE();
534 a7 := JTF_DATE_TABLE();
535 a8 := JTF_NUMBER_TABLE();
536 a9 := JTF_VARCHAR2_TABLE_100();
537 a10 := JTF_VARCHAR2_TABLE_500();
538 a11 := JTF_VARCHAR2_TABLE_500();
539 a12 := JTF_VARCHAR2_TABLE_500();
540 a13 := JTF_VARCHAR2_TABLE_500();
541 a14 := JTF_VARCHAR2_TABLE_500();
542 a15 := JTF_VARCHAR2_TABLE_500();
543 a16 := JTF_VARCHAR2_TABLE_500();
544 a17 := JTF_VARCHAR2_TABLE_500();
545 a18 := JTF_VARCHAR2_TABLE_500();
546 a19 := JTF_VARCHAR2_TABLE_500();
547 a20 := JTF_VARCHAR2_TABLE_500();
548 a21 := JTF_VARCHAR2_TABLE_500();
549 a22 := JTF_VARCHAR2_TABLE_500();
550 a23 := JTF_VARCHAR2_TABLE_500();
551 a24 := JTF_VARCHAR2_TABLE_500();
552 a25 := JTF_NUMBER_TABLE();
553 a26 := JTF_DATE_TABLE();
554 a27 := JTF_NUMBER_TABLE();
555 a28 := JTF_DATE_TABLE();
556 a29 := JTF_NUMBER_TABLE();
557 a30 := JTF_VARCHAR2_TABLE_100();
558 a31 := JTF_VARCHAR2_TABLE_100();
559 if t.count > 0 then
560 a0.extend(t.count);
561 a1.extend(t.count);
562 a2.extend(t.count);
563 a3.extend(t.count);
564 a4.extend(t.count);
565 a5.extend(t.count);
566 a6.extend(t.count);
567 a7.extend(t.count);
568 a8.extend(t.count);
569 a9.extend(t.count);
570 a10.extend(t.count);
571 a11.extend(t.count);
572 a12.extend(t.count);
573 a13.extend(t.count);
574 a14.extend(t.count);
575 a15.extend(t.count);
576 a16.extend(t.count);
577 a17.extend(t.count);
578 a18.extend(t.count);
579 a19.extend(t.count);
580 a20.extend(t.count);
581 a21.extend(t.count);
582 a22.extend(t.count);
583 a23.extend(t.count);
584 a24.extend(t.count);
585 a25.extend(t.count);
586 a26.extend(t.count);
587 a27.extend(t.count);
588 a28.extend(t.count);
589 a29.extend(t.count);
590 a30.extend(t.count);
591 a31.extend(t.count);
592 ddindx := t.first;
593 indx := 1;
594 while true loop
595 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
596 a1(indx) := rosetta_g_miss_num_map(t(ddindx).org_id);
597 a2(indx) := t(ddindx).ptm_code;
598 a3(indx) := rosetta_g_miss_num_map(t(ddindx).jtf_amv_item_id);
599 a4(indx) := t(ddindx).sfwt_flag;
600 a5(indx) := t(ddindx).email_subject_line;
601 a6(indx) := t(ddindx).start_date;
602 a7(indx) := t(ddindx).end_date;
603 a8(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
604 a9(indx) := t(ddindx).attribute_category;
605 a10(indx) := t(ddindx).attribute1;
606 a11(indx) := t(ddindx).attribute2;
607 a12(indx) := t(ddindx).attribute3;
608 a13(indx) := t(ddindx).attribute4;
609 a14(indx) := t(ddindx).attribute5;
610 a15(indx) := t(ddindx).attribute6;
611 a16(indx) := t(ddindx).attribute7;
612 a17(indx) := t(ddindx).attribute8;
613 a18(indx) := t(ddindx).attribute9;
614 a19(indx) := t(ddindx).attribute10;
615 a20(indx) := t(ddindx).attribute11;
616 a21(indx) := t(ddindx).attribute12;
617 a22(indx) := t(ddindx).attribute13;
618 a23(indx) := t(ddindx).attribute14;
619 a24(indx) := t(ddindx).attribute15;
620 a25(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
621 a26(indx) := t(ddindx).creation_date;
622 a27(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
623 a28(indx) := t(ddindx).last_update_date;
624 a29(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
625 a30(indx) := t(ddindx).recipient_type_code;
626 a31(indx) := t(ddindx).xml_tmplt_code;
627 indx := indx+1;
628 if t.last =ddindx
629 then exit;
630 end if;
631 ddindx := t.next(ddindx);
632 end loop;
633 end if;
634 end if;
635 end rosetta_table_copy_out_p8;
636
637 procedure insert_row(p_api_version NUMBER
638 , p_init_msg_list VARCHAR2
639 , x_return_status out nocopy VARCHAR2
640 , x_msg_count out nocopy NUMBER
641 , x_msg_data out nocopy VARCHAR2
642 , p6_a0 out nocopy NUMBER
643 , p6_a1 out nocopy NUMBER
644 , p6_a2 out nocopy VARCHAR2
645 , p6_a3 out nocopy NUMBER
646 , p6_a4 out nocopy VARCHAR2
647 , p6_a5 out nocopy VARCHAR2
648 , p6_a6 out nocopy DATE
649 , p6_a7 out nocopy DATE
650 , p6_a8 out nocopy NUMBER
651 , p6_a9 out nocopy VARCHAR2
652 , p6_a10 out nocopy VARCHAR2
653 , p6_a11 out nocopy VARCHAR2
654 , p6_a12 out nocopy VARCHAR2
655 , p6_a13 out nocopy VARCHAR2
656 , p6_a14 out nocopy VARCHAR2
657 , p6_a15 out nocopy VARCHAR2
658 , p6_a16 out nocopy VARCHAR2
659 , p6_a17 out nocopy VARCHAR2
660 , p6_a18 out nocopy VARCHAR2
661 , p6_a19 out nocopy VARCHAR2
662 , p6_a20 out nocopy VARCHAR2
663 , p6_a21 out nocopy VARCHAR2
664 , p6_a22 out nocopy VARCHAR2
665 , p6_a23 out nocopy VARCHAR2
666 , p6_a24 out nocopy VARCHAR2
667 , p6_a25 out nocopy NUMBER
668 , p6_a26 out nocopy DATE
669 , p6_a27 out nocopy NUMBER
670 , p6_a28 out nocopy DATE
671 , p6_a29 out nocopy NUMBER
672 , p6_a30 out nocopy VARCHAR2
673 , p6_a31 out nocopy VARCHAR2
674 , p5_a0 NUMBER := 0-1962.0724
675 , p5_a1 NUMBER := 0-1962.0724
676 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
677 , p5_a3 NUMBER := 0-1962.0724
678 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
679 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
680 , p5_a6 DATE := fnd_api.g_miss_date
681 , p5_a7 DATE := fnd_api.g_miss_date
682 , p5_a8 NUMBER := 0-1962.0724
683 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
684 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
685 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
686 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
687 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
688 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
689 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
690 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
691 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
692 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
693 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
694 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
695 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
696 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
697 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
698 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
699 , p5_a25 NUMBER := 0-1962.0724
700 , p5_a26 DATE := fnd_api.g_miss_date
701 , p5_a27 NUMBER := 0-1962.0724
702 , p5_a28 DATE := fnd_api.g_miss_date
703 , p5_a29 NUMBER := 0-1962.0724
704 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
705 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
706 )
707
708 as
709 ddp_ptmv_rec okl_ptm_pvt.ptmv_rec_type;
710 ddx_ptmv_rec okl_ptm_pvt.ptmv_rec_type;
711 ddindx binary_integer; indx binary_integer;
712 begin
713
714 -- copy data to the local IN or IN-OUT args, if any
715
716
717
718
719
720 ddp_ptmv_rec.id := rosetta_g_miss_num_map(p5_a0);
721 ddp_ptmv_rec.org_id := rosetta_g_miss_num_map(p5_a1);
722 ddp_ptmv_rec.ptm_code := p5_a2;
723 ddp_ptmv_rec.jtf_amv_item_id := rosetta_g_miss_num_map(p5_a3);
724 ddp_ptmv_rec.sfwt_flag := p5_a4;
725 ddp_ptmv_rec.email_subject_line := p5_a5;
726 ddp_ptmv_rec.start_date := rosetta_g_miss_date_in_map(p5_a6);
727 ddp_ptmv_rec.end_date := rosetta_g_miss_date_in_map(p5_a7);
728 ddp_ptmv_rec.object_version_number := rosetta_g_miss_num_map(p5_a8);
729 ddp_ptmv_rec.attribute_category := p5_a9;
730 ddp_ptmv_rec.attribute1 := p5_a10;
731 ddp_ptmv_rec.attribute2 := p5_a11;
732 ddp_ptmv_rec.attribute3 := p5_a12;
733 ddp_ptmv_rec.attribute4 := p5_a13;
734 ddp_ptmv_rec.attribute5 := p5_a14;
735 ddp_ptmv_rec.attribute6 := p5_a15;
736 ddp_ptmv_rec.attribute7 := p5_a16;
737 ddp_ptmv_rec.attribute8 := p5_a17;
738 ddp_ptmv_rec.attribute9 := p5_a18;
739 ddp_ptmv_rec.attribute10 := p5_a19;
740 ddp_ptmv_rec.attribute11 := p5_a20;
741 ddp_ptmv_rec.attribute12 := p5_a21;
742 ddp_ptmv_rec.attribute13 := p5_a22;
743 ddp_ptmv_rec.attribute14 := p5_a23;
744 ddp_ptmv_rec.attribute15 := p5_a24;
745 ddp_ptmv_rec.created_by := rosetta_g_miss_num_map(p5_a25);
746 ddp_ptmv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a26);
747 ddp_ptmv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a27);
748 ddp_ptmv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a28);
749 ddp_ptmv_rec.last_update_login := rosetta_g_miss_num_map(p5_a29);
750 ddp_ptmv_rec.recipient_type_code := p5_a30;
751 ddp_ptmv_rec.xml_tmplt_code := p5_a31;
752
753
754 -- here's the delegated call to the old PL/SQL routine
755 okl_ptm_pvt.insert_row(p_api_version,
756 p_init_msg_list,
757 x_return_status,
758 x_msg_count,
759 x_msg_data,
760 ddp_ptmv_rec,
761 ddx_ptmv_rec);
762
763 -- copy data back from the local variables to OUT or IN-OUT args, if any
764
765
766
767
768
769
770 p6_a0 := rosetta_g_miss_num_map(ddx_ptmv_rec.id);
771 p6_a1 := rosetta_g_miss_num_map(ddx_ptmv_rec.org_id);
772 p6_a2 := ddx_ptmv_rec.ptm_code;
773 p6_a3 := rosetta_g_miss_num_map(ddx_ptmv_rec.jtf_amv_item_id);
774 p6_a4 := ddx_ptmv_rec.sfwt_flag;
775 p6_a5 := ddx_ptmv_rec.email_subject_line;
776 p6_a6 := ddx_ptmv_rec.start_date;
777 p6_a7 := ddx_ptmv_rec.end_date;
778 p6_a8 := rosetta_g_miss_num_map(ddx_ptmv_rec.object_version_number);
779 p6_a9 := ddx_ptmv_rec.attribute_category;
780 p6_a10 := ddx_ptmv_rec.attribute1;
781 p6_a11 := ddx_ptmv_rec.attribute2;
782 p6_a12 := ddx_ptmv_rec.attribute3;
783 p6_a13 := ddx_ptmv_rec.attribute4;
784 p6_a14 := ddx_ptmv_rec.attribute5;
785 p6_a15 := ddx_ptmv_rec.attribute6;
786 p6_a16 := ddx_ptmv_rec.attribute7;
787 p6_a17 := ddx_ptmv_rec.attribute8;
788 p6_a18 := ddx_ptmv_rec.attribute9;
789 p6_a19 := ddx_ptmv_rec.attribute10;
790 p6_a20 := ddx_ptmv_rec.attribute11;
791 p6_a21 := ddx_ptmv_rec.attribute12;
792 p6_a22 := ddx_ptmv_rec.attribute13;
793 p6_a23 := ddx_ptmv_rec.attribute14;
794 p6_a24 := ddx_ptmv_rec.attribute15;
795 p6_a25 := rosetta_g_miss_num_map(ddx_ptmv_rec.created_by);
796 p6_a26 := ddx_ptmv_rec.creation_date;
797 p6_a27 := rosetta_g_miss_num_map(ddx_ptmv_rec.last_updated_by);
798 p6_a28 := ddx_ptmv_rec.last_update_date;
799 p6_a29 := rosetta_g_miss_num_map(ddx_ptmv_rec.last_update_login);
800 p6_a30 := ddx_ptmv_rec.recipient_type_code;
801 p6_a31 := ddx_ptmv_rec.xml_tmplt_code;
802 end;
803
804 procedure insert_row(p_api_version NUMBER
805 , p_init_msg_list VARCHAR2
806 , x_return_status out nocopy VARCHAR2
807 , x_msg_count out nocopy NUMBER
808 , x_msg_data out nocopy VARCHAR2
809 , p5_a0 JTF_NUMBER_TABLE
810 , p5_a1 JTF_NUMBER_TABLE
811 , p5_a2 JTF_VARCHAR2_TABLE_100
812 , p5_a3 JTF_NUMBER_TABLE
813 , p5_a4 JTF_VARCHAR2_TABLE_100
814 , p5_a5 JTF_VARCHAR2_TABLE_100
815 , p5_a6 JTF_DATE_TABLE
816 , p5_a7 JTF_DATE_TABLE
817 , p5_a8 JTF_NUMBER_TABLE
818 , p5_a9 JTF_VARCHAR2_TABLE_100
819 , p5_a10 JTF_VARCHAR2_TABLE_500
820 , p5_a11 JTF_VARCHAR2_TABLE_500
821 , p5_a12 JTF_VARCHAR2_TABLE_500
822 , p5_a13 JTF_VARCHAR2_TABLE_500
823 , p5_a14 JTF_VARCHAR2_TABLE_500
824 , p5_a15 JTF_VARCHAR2_TABLE_500
825 , p5_a16 JTF_VARCHAR2_TABLE_500
826 , p5_a17 JTF_VARCHAR2_TABLE_500
827 , p5_a18 JTF_VARCHAR2_TABLE_500
828 , p5_a19 JTF_VARCHAR2_TABLE_500
829 , p5_a20 JTF_VARCHAR2_TABLE_500
830 , p5_a21 JTF_VARCHAR2_TABLE_500
831 , p5_a22 JTF_VARCHAR2_TABLE_500
832 , p5_a23 JTF_VARCHAR2_TABLE_500
833 , p5_a24 JTF_VARCHAR2_TABLE_500
834 , p5_a25 JTF_NUMBER_TABLE
835 , p5_a26 JTF_DATE_TABLE
836 , p5_a27 JTF_NUMBER_TABLE
837 , p5_a28 JTF_DATE_TABLE
838 , p5_a29 JTF_NUMBER_TABLE
839 , p5_a30 JTF_VARCHAR2_TABLE_100
840 , p5_a31 JTF_VARCHAR2_TABLE_100
841 , p6_a0 out nocopy JTF_NUMBER_TABLE
842 , p6_a1 out nocopy JTF_NUMBER_TABLE
843 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
844 , p6_a3 out nocopy JTF_NUMBER_TABLE
845 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
846 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
847 , p6_a6 out nocopy JTF_DATE_TABLE
848 , p6_a7 out nocopy JTF_DATE_TABLE
849 , p6_a8 out nocopy JTF_NUMBER_TABLE
850 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_100
851 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_500
852 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_500
853 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_500
854 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
855 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
856 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
857 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
858 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
859 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
860 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
861 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
862 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
863 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
864 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
865 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
866 , p6_a25 out nocopy JTF_NUMBER_TABLE
867 , p6_a26 out nocopy JTF_DATE_TABLE
868 , p6_a27 out nocopy JTF_NUMBER_TABLE
869 , p6_a28 out nocopy JTF_DATE_TABLE
870 , p6_a29 out nocopy JTF_NUMBER_TABLE
871 , p6_a30 out nocopy JTF_VARCHAR2_TABLE_100
872 , p6_a31 out nocopy JTF_VARCHAR2_TABLE_100
873 )
874
875 as
876 ddp_ptmv_tbl okl_ptm_pvt.ptmv_tbl_type;
877 ddx_ptmv_tbl okl_ptm_pvt.ptmv_tbl_type;
878 ddindx binary_integer; indx binary_integer;
879 begin
880
881 -- copy data to the local IN or IN-OUT args, if any
882
883
884
885
886
887 okl_ptm_pvt_w.rosetta_table_copy_in_p8(ddp_ptmv_tbl, p5_a0
888 , p5_a1
889 , p5_a2
890 , p5_a3
891 , p5_a4
892 , p5_a5
893 , p5_a6
894 , p5_a7
895 , p5_a8
896 , p5_a9
897 , p5_a10
898 , p5_a11
899 , p5_a12
900 , p5_a13
901 , p5_a14
902 , p5_a15
903 , p5_a16
904 , p5_a17
905 , p5_a18
906 , p5_a19
907 , p5_a20
908 , p5_a21
909 , p5_a22
910 , p5_a23
911 , p5_a24
912 , p5_a25
913 , p5_a26
914 , p5_a27
915 , p5_a28
916 , p5_a29
917 , p5_a30
918 , p5_a31
919 );
920
921
922 -- here's the delegated call to the old PL/SQL routine
923 okl_ptm_pvt.insert_row(p_api_version,
924 p_init_msg_list,
925 x_return_status,
926 x_msg_count,
927 x_msg_data,
928 ddp_ptmv_tbl,
929 ddx_ptmv_tbl);
930
931 -- copy data back from the local variables to OUT or IN-OUT args, if any
932
933
934
935
936
937
938 okl_ptm_pvt_w.rosetta_table_copy_out_p8(ddx_ptmv_tbl, p6_a0
939 , p6_a1
940 , p6_a2
941 , p6_a3
942 , p6_a4
943 , p6_a5
944 , p6_a6
945 , p6_a7
946 , p6_a8
947 , p6_a9
948 , p6_a10
949 , p6_a11
950 , p6_a12
951 , p6_a13
952 , p6_a14
953 , p6_a15
954 , p6_a16
955 , p6_a17
956 , p6_a18
957 , p6_a19
958 , p6_a20
959 , p6_a21
960 , p6_a22
961 , p6_a23
962 , p6_a24
963 , p6_a25
964 , p6_a26
965 , p6_a27
966 , p6_a28
967 , p6_a29
968 , p6_a30
969 , p6_a31
970 );
971 end;
972
973 procedure lock_row(p_api_version NUMBER
974 , p_init_msg_list VARCHAR2
975 , x_return_status out nocopy VARCHAR2
976 , x_msg_count out nocopy NUMBER
977 , x_msg_data out nocopy VARCHAR2
978 , p5_a0 NUMBER := 0-1962.0724
979 , p5_a1 NUMBER := 0-1962.0724
980 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
981 , p5_a3 NUMBER := 0-1962.0724
982 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
983 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
984 , p5_a6 DATE := fnd_api.g_miss_date
985 , p5_a7 DATE := fnd_api.g_miss_date
986 , p5_a8 NUMBER := 0-1962.0724
987 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
988 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
989 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
990 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
991 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
992 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
993 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
994 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
995 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
996 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
997 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
998 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
999 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1000 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1001 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
1002 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
1003 , p5_a25 NUMBER := 0-1962.0724
1004 , p5_a26 DATE := fnd_api.g_miss_date
1005 , p5_a27 NUMBER := 0-1962.0724
1006 , p5_a28 DATE := fnd_api.g_miss_date
1007 , p5_a29 NUMBER := 0-1962.0724
1008 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
1009 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
1010 )
1011
1012 as
1013 ddp_ptmv_rec okl_ptm_pvt.ptmv_rec_type;
1014 ddindx binary_integer; indx binary_integer;
1015 begin
1016
1017 -- copy data to the local IN or IN-OUT args, if any
1018
1019
1020
1021
1022
1023 ddp_ptmv_rec.id := rosetta_g_miss_num_map(p5_a0);
1024 ddp_ptmv_rec.org_id := rosetta_g_miss_num_map(p5_a1);
1025 ddp_ptmv_rec.ptm_code := p5_a2;
1026 ddp_ptmv_rec.jtf_amv_item_id := rosetta_g_miss_num_map(p5_a3);
1027 ddp_ptmv_rec.sfwt_flag := p5_a4;
1028 ddp_ptmv_rec.email_subject_line := p5_a5;
1029 ddp_ptmv_rec.start_date := rosetta_g_miss_date_in_map(p5_a6);
1030 ddp_ptmv_rec.end_date := rosetta_g_miss_date_in_map(p5_a7);
1031 ddp_ptmv_rec.object_version_number := rosetta_g_miss_num_map(p5_a8);
1032 ddp_ptmv_rec.attribute_category := p5_a9;
1033 ddp_ptmv_rec.attribute1 := p5_a10;
1034 ddp_ptmv_rec.attribute2 := p5_a11;
1035 ddp_ptmv_rec.attribute3 := p5_a12;
1036 ddp_ptmv_rec.attribute4 := p5_a13;
1037 ddp_ptmv_rec.attribute5 := p5_a14;
1038 ddp_ptmv_rec.attribute6 := p5_a15;
1039 ddp_ptmv_rec.attribute7 := p5_a16;
1040 ddp_ptmv_rec.attribute8 := p5_a17;
1041 ddp_ptmv_rec.attribute9 := p5_a18;
1042 ddp_ptmv_rec.attribute10 := p5_a19;
1043 ddp_ptmv_rec.attribute11 := p5_a20;
1044 ddp_ptmv_rec.attribute12 := p5_a21;
1045 ddp_ptmv_rec.attribute13 := p5_a22;
1046 ddp_ptmv_rec.attribute14 := p5_a23;
1047 ddp_ptmv_rec.attribute15 := p5_a24;
1048 ddp_ptmv_rec.created_by := rosetta_g_miss_num_map(p5_a25);
1049 ddp_ptmv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a26);
1050 ddp_ptmv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a27);
1051 ddp_ptmv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a28);
1052 ddp_ptmv_rec.last_update_login := rosetta_g_miss_num_map(p5_a29);
1053 ddp_ptmv_rec.recipient_type_code := p5_a30;
1054 ddp_ptmv_rec.xml_tmplt_code := p5_a31;
1055
1056 -- here's the delegated call to the old PL/SQL routine
1057 okl_ptm_pvt.lock_row(p_api_version,
1058 p_init_msg_list,
1059 x_return_status,
1060 x_msg_count,
1061 x_msg_data,
1062 ddp_ptmv_rec);
1063
1064 -- copy data back from the local variables to OUT or IN-OUT args, if any
1065
1066
1067
1068
1069
1070 end;
1071
1072 procedure lock_row(p_api_version NUMBER
1073 , p_init_msg_list VARCHAR2
1074 , x_return_status out nocopy VARCHAR2
1075 , x_msg_count out nocopy NUMBER
1076 , x_msg_data out nocopy VARCHAR2
1077 , p5_a0 JTF_NUMBER_TABLE
1078 , p5_a1 JTF_NUMBER_TABLE
1079 , p5_a2 JTF_VARCHAR2_TABLE_100
1080 , p5_a3 JTF_NUMBER_TABLE
1081 , p5_a4 JTF_VARCHAR2_TABLE_100
1082 , p5_a5 JTF_VARCHAR2_TABLE_100
1083 , p5_a6 JTF_DATE_TABLE
1084 , p5_a7 JTF_DATE_TABLE
1085 , p5_a8 JTF_NUMBER_TABLE
1086 , p5_a9 JTF_VARCHAR2_TABLE_100
1087 , p5_a10 JTF_VARCHAR2_TABLE_500
1088 , p5_a11 JTF_VARCHAR2_TABLE_500
1089 , p5_a12 JTF_VARCHAR2_TABLE_500
1090 , p5_a13 JTF_VARCHAR2_TABLE_500
1091 , p5_a14 JTF_VARCHAR2_TABLE_500
1092 , p5_a15 JTF_VARCHAR2_TABLE_500
1093 , p5_a16 JTF_VARCHAR2_TABLE_500
1094 , p5_a17 JTF_VARCHAR2_TABLE_500
1095 , p5_a18 JTF_VARCHAR2_TABLE_500
1096 , p5_a19 JTF_VARCHAR2_TABLE_500
1097 , p5_a20 JTF_VARCHAR2_TABLE_500
1098 , p5_a21 JTF_VARCHAR2_TABLE_500
1099 , p5_a22 JTF_VARCHAR2_TABLE_500
1100 , p5_a23 JTF_VARCHAR2_TABLE_500
1101 , p5_a24 JTF_VARCHAR2_TABLE_500
1102 , p5_a25 JTF_NUMBER_TABLE
1103 , p5_a26 JTF_DATE_TABLE
1104 , p5_a27 JTF_NUMBER_TABLE
1105 , p5_a28 JTF_DATE_TABLE
1106 , p5_a29 JTF_NUMBER_TABLE
1107 , p5_a30 JTF_VARCHAR2_TABLE_100
1108 , p5_a31 JTF_VARCHAR2_TABLE_100
1109 )
1110
1111 as
1112 ddp_ptmv_tbl okl_ptm_pvt.ptmv_tbl_type;
1113 ddindx binary_integer; indx binary_integer;
1114 begin
1115
1116 -- copy data to the local IN or IN-OUT args, if any
1117
1118
1119
1120
1121
1122 okl_ptm_pvt_w.rosetta_table_copy_in_p8(ddp_ptmv_tbl, p5_a0
1123 , p5_a1
1124 , p5_a2
1125 , p5_a3
1126 , p5_a4
1127 , p5_a5
1128 , p5_a6
1129 , p5_a7
1130 , p5_a8
1131 , p5_a9
1132 , p5_a10
1133 , p5_a11
1134 , p5_a12
1135 , p5_a13
1136 , p5_a14
1137 , p5_a15
1138 , p5_a16
1139 , p5_a17
1140 , p5_a18
1141 , p5_a19
1142 , p5_a20
1143 , p5_a21
1144 , p5_a22
1145 , p5_a23
1146 , p5_a24
1147 , p5_a25
1148 , p5_a26
1149 , p5_a27
1150 , p5_a28
1151 , p5_a29
1152 , p5_a30
1153 , p5_a31
1154 );
1155
1156 -- here's the delegated call to the old PL/SQL routine
1157 okl_ptm_pvt.lock_row(p_api_version,
1158 p_init_msg_list,
1159 x_return_status,
1160 x_msg_count,
1161 x_msg_data,
1162 ddp_ptmv_tbl);
1163
1164 -- copy data back from the local variables to OUT or IN-OUT args, if any
1165
1166
1167
1168
1169
1170 end;
1171
1172 procedure update_row(p_api_version NUMBER
1173 , p_init_msg_list VARCHAR2
1174 , x_return_status out nocopy VARCHAR2
1175 , x_msg_count out nocopy NUMBER
1176 , x_msg_data out nocopy VARCHAR2
1177 , p6_a0 out nocopy NUMBER
1178 , p6_a1 out nocopy NUMBER
1179 , p6_a2 out nocopy VARCHAR2
1180 , p6_a3 out nocopy NUMBER
1181 , p6_a4 out nocopy VARCHAR2
1182 , p6_a5 out nocopy VARCHAR2
1183 , p6_a6 out nocopy DATE
1184 , p6_a7 out nocopy DATE
1185 , p6_a8 out nocopy NUMBER
1186 , p6_a9 out nocopy VARCHAR2
1187 , p6_a10 out nocopy VARCHAR2
1188 , p6_a11 out nocopy VARCHAR2
1189 , p6_a12 out nocopy VARCHAR2
1190 , p6_a13 out nocopy VARCHAR2
1191 , p6_a14 out nocopy VARCHAR2
1192 , p6_a15 out nocopy VARCHAR2
1193 , p6_a16 out nocopy VARCHAR2
1194 , p6_a17 out nocopy VARCHAR2
1195 , p6_a18 out nocopy VARCHAR2
1196 , p6_a19 out nocopy VARCHAR2
1197 , p6_a20 out nocopy VARCHAR2
1198 , p6_a21 out nocopy VARCHAR2
1199 , p6_a22 out nocopy VARCHAR2
1200 , p6_a23 out nocopy VARCHAR2
1201 , p6_a24 out nocopy VARCHAR2
1202 , p6_a25 out nocopy NUMBER
1203 , p6_a26 out nocopy DATE
1204 , p6_a27 out nocopy NUMBER
1205 , p6_a28 out nocopy DATE
1206 , p6_a29 out nocopy NUMBER
1207 , p6_a30 out nocopy VARCHAR2
1208 , p6_a31 out nocopy VARCHAR2
1209 , p5_a0 NUMBER := 0-1962.0724
1210 , p5_a1 NUMBER := 0-1962.0724
1211 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
1212 , p5_a3 NUMBER := 0-1962.0724
1213 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
1214 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
1215 , p5_a6 DATE := fnd_api.g_miss_date
1216 , p5_a7 DATE := fnd_api.g_miss_date
1217 , p5_a8 NUMBER := 0-1962.0724
1218 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
1219 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1220 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
1221 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
1222 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
1223 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
1224 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
1225 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
1226 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
1227 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1228 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1229 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1230 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1231 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1232 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
1233 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
1234 , p5_a25 NUMBER := 0-1962.0724
1235 , p5_a26 DATE := fnd_api.g_miss_date
1236 , p5_a27 NUMBER := 0-1962.0724
1237 , p5_a28 DATE := fnd_api.g_miss_date
1238 , p5_a29 NUMBER := 0-1962.0724
1239 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
1240 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
1241 )
1242
1243 as
1244 ddp_ptmv_rec okl_ptm_pvt.ptmv_rec_type;
1245 ddx_ptmv_rec okl_ptm_pvt.ptmv_rec_type;
1246 ddindx binary_integer; indx binary_integer;
1247 begin
1248
1249 -- copy data to the local IN or IN-OUT args, if any
1250
1251
1252
1253
1254
1255 ddp_ptmv_rec.id := rosetta_g_miss_num_map(p5_a0);
1256 ddp_ptmv_rec.org_id := rosetta_g_miss_num_map(p5_a1);
1257 ddp_ptmv_rec.ptm_code := p5_a2;
1258 ddp_ptmv_rec.jtf_amv_item_id := rosetta_g_miss_num_map(p5_a3);
1259 ddp_ptmv_rec.sfwt_flag := p5_a4;
1260 ddp_ptmv_rec.email_subject_line := p5_a5;
1261 ddp_ptmv_rec.start_date := rosetta_g_miss_date_in_map(p5_a6);
1262 ddp_ptmv_rec.end_date := rosetta_g_miss_date_in_map(p5_a7);
1263 ddp_ptmv_rec.object_version_number := rosetta_g_miss_num_map(p5_a8);
1264 ddp_ptmv_rec.attribute_category := p5_a9;
1265 ddp_ptmv_rec.attribute1 := p5_a10;
1266 ddp_ptmv_rec.attribute2 := p5_a11;
1267 ddp_ptmv_rec.attribute3 := p5_a12;
1268 ddp_ptmv_rec.attribute4 := p5_a13;
1269 ddp_ptmv_rec.attribute5 := p5_a14;
1270 ddp_ptmv_rec.attribute6 := p5_a15;
1271 ddp_ptmv_rec.attribute7 := p5_a16;
1272 ddp_ptmv_rec.attribute8 := p5_a17;
1273 ddp_ptmv_rec.attribute9 := p5_a18;
1274 ddp_ptmv_rec.attribute10 := p5_a19;
1275 ddp_ptmv_rec.attribute11 := p5_a20;
1276 ddp_ptmv_rec.attribute12 := p5_a21;
1277 ddp_ptmv_rec.attribute13 := p5_a22;
1278 ddp_ptmv_rec.attribute14 := p5_a23;
1279 ddp_ptmv_rec.attribute15 := p5_a24;
1280 ddp_ptmv_rec.created_by := rosetta_g_miss_num_map(p5_a25);
1281 ddp_ptmv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a26);
1282 ddp_ptmv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a27);
1283 ddp_ptmv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a28);
1284 ddp_ptmv_rec.last_update_login := rosetta_g_miss_num_map(p5_a29);
1285 ddp_ptmv_rec.recipient_type_code := p5_a30;
1286 ddp_ptmv_rec.xml_tmplt_code := p5_a31;
1287
1288
1289 -- here's the delegated call to the old PL/SQL routine
1290 okl_ptm_pvt.update_row(p_api_version,
1291 p_init_msg_list,
1292 x_return_status,
1293 x_msg_count,
1294 x_msg_data,
1295 ddp_ptmv_rec,
1296 ddx_ptmv_rec);
1297
1298 -- copy data back from the local variables to OUT or IN-OUT args, if any
1299
1300
1301
1302
1303
1304
1305 p6_a0 := rosetta_g_miss_num_map(ddx_ptmv_rec.id);
1306 p6_a1 := rosetta_g_miss_num_map(ddx_ptmv_rec.org_id);
1307 p6_a2 := ddx_ptmv_rec.ptm_code;
1308 p6_a3 := rosetta_g_miss_num_map(ddx_ptmv_rec.jtf_amv_item_id);
1309 p6_a4 := ddx_ptmv_rec.sfwt_flag;
1310 p6_a5 := ddx_ptmv_rec.email_subject_line;
1311 p6_a6 := ddx_ptmv_rec.start_date;
1312 p6_a7 := ddx_ptmv_rec.end_date;
1313 p6_a8 := rosetta_g_miss_num_map(ddx_ptmv_rec.object_version_number);
1314 p6_a9 := ddx_ptmv_rec.attribute_category;
1315 p6_a10 := ddx_ptmv_rec.attribute1;
1316 p6_a11 := ddx_ptmv_rec.attribute2;
1317 p6_a12 := ddx_ptmv_rec.attribute3;
1318 p6_a13 := ddx_ptmv_rec.attribute4;
1319 p6_a14 := ddx_ptmv_rec.attribute5;
1320 p6_a15 := ddx_ptmv_rec.attribute6;
1321 p6_a16 := ddx_ptmv_rec.attribute7;
1322 p6_a17 := ddx_ptmv_rec.attribute8;
1323 p6_a18 := ddx_ptmv_rec.attribute9;
1324 p6_a19 := ddx_ptmv_rec.attribute10;
1325 p6_a20 := ddx_ptmv_rec.attribute11;
1326 p6_a21 := ddx_ptmv_rec.attribute12;
1327 p6_a22 := ddx_ptmv_rec.attribute13;
1328 p6_a23 := ddx_ptmv_rec.attribute14;
1329 p6_a24 := ddx_ptmv_rec.attribute15;
1330 p6_a25 := rosetta_g_miss_num_map(ddx_ptmv_rec.created_by);
1331 p6_a26 := ddx_ptmv_rec.creation_date;
1332 p6_a27 := rosetta_g_miss_num_map(ddx_ptmv_rec.last_updated_by);
1333 p6_a28 := ddx_ptmv_rec.last_update_date;
1334 p6_a29 := rosetta_g_miss_num_map(ddx_ptmv_rec.last_update_login);
1335 p6_a30 := ddx_ptmv_rec.recipient_type_code;
1336 p6_a31 := ddx_ptmv_rec.xml_tmplt_code;
1337 end;
1338
1339 procedure update_row(p_api_version NUMBER
1340 , p_init_msg_list VARCHAR2
1341 , x_return_status out nocopy VARCHAR2
1342 , x_msg_count out nocopy NUMBER
1343 , x_msg_data out nocopy VARCHAR2
1344 , p5_a0 JTF_NUMBER_TABLE
1345 , p5_a1 JTF_NUMBER_TABLE
1346 , p5_a2 JTF_VARCHAR2_TABLE_100
1347 , p5_a3 JTF_NUMBER_TABLE
1348 , p5_a4 JTF_VARCHAR2_TABLE_100
1349 , p5_a5 JTF_VARCHAR2_TABLE_100
1350 , p5_a6 JTF_DATE_TABLE
1351 , p5_a7 JTF_DATE_TABLE
1352 , p5_a8 JTF_NUMBER_TABLE
1353 , p5_a9 JTF_VARCHAR2_TABLE_100
1354 , p5_a10 JTF_VARCHAR2_TABLE_500
1355 , p5_a11 JTF_VARCHAR2_TABLE_500
1356 , p5_a12 JTF_VARCHAR2_TABLE_500
1357 , p5_a13 JTF_VARCHAR2_TABLE_500
1358 , p5_a14 JTF_VARCHAR2_TABLE_500
1359 , p5_a15 JTF_VARCHAR2_TABLE_500
1360 , p5_a16 JTF_VARCHAR2_TABLE_500
1361 , p5_a17 JTF_VARCHAR2_TABLE_500
1362 , p5_a18 JTF_VARCHAR2_TABLE_500
1363 , p5_a19 JTF_VARCHAR2_TABLE_500
1364 , p5_a20 JTF_VARCHAR2_TABLE_500
1365 , p5_a21 JTF_VARCHAR2_TABLE_500
1366 , p5_a22 JTF_VARCHAR2_TABLE_500
1367 , p5_a23 JTF_VARCHAR2_TABLE_500
1368 , p5_a24 JTF_VARCHAR2_TABLE_500
1369 , p5_a25 JTF_NUMBER_TABLE
1370 , p5_a26 JTF_DATE_TABLE
1371 , p5_a27 JTF_NUMBER_TABLE
1372 , p5_a28 JTF_DATE_TABLE
1373 , p5_a29 JTF_NUMBER_TABLE
1374 , p5_a30 JTF_VARCHAR2_TABLE_100
1375 , p5_a31 JTF_VARCHAR2_TABLE_100
1376 , p6_a0 out nocopy JTF_NUMBER_TABLE
1377 , p6_a1 out nocopy JTF_NUMBER_TABLE
1378 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
1379 , p6_a3 out nocopy JTF_NUMBER_TABLE
1380 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
1381 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
1382 , p6_a6 out nocopy JTF_DATE_TABLE
1383 , p6_a7 out nocopy JTF_DATE_TABLE
1384 , p6_a8 out nocopy JTF_NUMBER_TABLE
1385 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_100
1386 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_500
1387 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_500
1388 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_500
1389 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
1390 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
1391 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
1392 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
1393 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
1394 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
1395 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
1396 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
1397 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
1398 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
1399 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
1400 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
1401 , p6_a25 out nocopy JTF_NUMBER_TABLE
1402 , p6_a26 out nocopy JTF_DATE_TABLE
1403 , p6_a27 out nocopy JTF_NUMBER_TABLE
1404 , p6_a28 out nocopy JTF_DATE_TABLE
1405 , p6_a29 out nocopy JTF_NUMBER_TABLE
1406 , p6_a30 out nocopy JTF_VARCHAR2_TABLE_100
1407 , p6_a31 out nocopy JTF_VARCHAR2_TABLE_100
1408 )
1409
1410 as
1411 ddp_ptmv_tbl okl_ptm_pvt.ptmv_tbl_type;
1412 ddx_ptmv_tbl okl_ptm_pvt.ptmv_tbl_type;
1413 ddindx binary_integer; indx binary_integer;
1414 begin
1415
1416 -- copy data to the local IN or IN-OUT args, if any
1417
1418
1419
1420
1421
1422 okl_ptm_pvt_w.rosetta_table_copy_in_p8(ddp_ptmv_tbl, p5_a0
1423 , p5_a1
1424 , p5_a2
1425 , p5_a3
1426 , p5_a4
1427 , p5_a5
1428 , p5_a6
1429 , p5_a7
1430 , p5_a8
1431 , p5_a9
1432 , p5_a10
1433 , p5_a11
1434 , p5_a12
1435 , p5_a13
1436 , p5_a14
1437 , p5_a15
1438 , p5_a16
1439 , p5_a17
1440 , p5_a18
1441 , p5_a19
1442 , p5_a20
1443 , p5_a21
1444 , p5_a22
1445 , p5_a23
1446 , p5_a24
1447 , p5_a25
1448 , p5_a26
1449 , p5_a27
1450 , p5_a28
1451 , p5_a29
1452 , p5_a30
1453 , p5_a31
1454 );
1455
1456
1457 -- here's the delegated call to the old PL/SQL routine
1458 okl_ptm_pvt.update_row(p_api_version,
1459 p_init_msg_list,
1460 x_return_status,
1461 x_msg_count,
1462 x_msg_data,
1463 ddp_ptmv_tbl,
1464 ddx_ptmv_tbl);
1465
1466 -- copy data back from the local variables to OUT or IN-OUT args, if any
1467
1468
1469
1470
1471
1472
1473 okl_ptm_pvt_w.rosetta_table_copy_out_p8(ddx_ptmv_tbl, p6_a0
1474 , p6_a1
1475 , p6_a2
1476 , p6_a3
1477 , p6_a4
1478 , p6_a5
1479 , p6_a6
1480 , p6_a7
1481 , p6_a8
1482 , p6_a9
1483 , p6_a10
1484 , p6_a11
1485 , p6_a12
1486 , p6_a13
1487 , p6_a14
1488 , p6_a15
1489 , p6_a16
1490 , p6_a17
1491 , p6_a18
1492 , p6_a19
1493 , p6_a20
1494 , p6_a21
1495 , p6_a22
1496 , p6_a23
1497 , p6_a24
1498 , p6_a25
1499 , p6_a26
1500 , p6_a27
1501 , p6_a28
1502 , p6_a29
1503 , p6_a30
1504 , p6_a31
1505 );
1506 end;
1507
1508 procedure delete_row(p_api_version NUMBER
1509 , p_init_msg_list VARCHAR2
1510 , x_return_status out nocopy VARCHAR2
1511 , x_msg_count out nocopy NUMBER
1512 , x_msg_data out nocopy VARCHAR2
1513 , p5_a0 NUMBER := 0-1962.0724
1514 , p5_a1 NUMBER := 0-1962.0724
1515 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
1516 , p5_a3 NUMBER := 0-1962.0724
1517 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
1518 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
1519 , p5_a6 DATE := fnd_api.g_miss_date
1520 , p5_a7 DATE := fnd_api.g_miss_date
1521 , p5_a8 NUMBER := 0-1962.0724
1522 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
1523 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1524 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
1525 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
1526 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
1527 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
1528 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
1529 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
1530 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
1531 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1532 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1533 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1534 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1535 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1536 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
1537 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
1538 , p5_a25 NUMBER := 0-1962.0724
1539 , p5_a26 DATE := fnd_api.g_miss_date
1540 , p5_a27 NUMBER := 0-1962.0724
1541 , p5_a28 DATE := fnd_api.g_miss_date
1542 , p5_a29 NUMBER := 0-1962.0724
1543 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
1544 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
1545 )
1546
1547 as
1548 ddp_ptmv_rec okl_ptm_pvt.ptmv_rec_type;
1549 ddindx binary_integer; indx binary_integer;
1550 begin
1551
1552 -- copy data to the local IN or IN-OUT args, if any
1553
1554
1555
1556
1557
1558 ddp_ptmv_rec.id := rosetta_g_miss_num_map(p5_a0);
1559 ddp_ptmv_rec.org_id := rosetta_g_miss_num_map(p5_a1);
1560 ddp_ptmv_rec.ptm_code := p5_a2;
1561 ddp_ptmv_rec.jtf_amv_item_id := rosetta_g_miss_num_map(p5_a3);
1562 ddp_ptmv_rec.sfwt_flag := p5_a4;
1563 ddp_ptmv_rec.email_subject_line := p5_a5;
1564 ddp_ptmv_rec.start_date := rosetta_g_miss_date_in_map(p5_a6);
1565 ddp_ptmv_rec.end_date := rosetta_g_miss_date_in_map(p5_a7);
1566 ddp_ptmv_rec.object_version_number := rosetta_g_miss_num_map(p5_a8);
1567 ddp_ptmv_rec.attribute_category := p5_a9;
1568 ddp_ptmv_rec.attribute1 := p5_a10;
1569 ddp_ptmv_rec.attribute2 := p5_a11;
1570 ddp_ptmv_rec.attribute3 := p5_a12;
1571 ddp_ptmv_rec.attribute4 := p5_a13;
1572 ddp_ptmv_rec.attribute5 := p5_a14;
1573 ddp_ptmv_rec.attribute6 := p5_a15;
1574 ddp_ptmv_rec.attribute7 := p5_a16;
1575 ddp_ptmv_rec.attribute8 := p5_a17;
1576 ddp_ptmv_rec.attribute9 := p5_a18;
1577 ddp_ptmv_rec.attribute10 := p5_a19;
1578 ddp_ptmv_rec.attribute11 := p5_a20;
1579 ddp_ptmv_rec.attribute12 := p5_a21;
1580 ddp_ptmv_rec.attribute13 := p5_a22;
1581 ddp_ptmv_rec.attribute14 := p5_a23;
1582 ddp_ptmv_rec.attribute15 := p5_a24;
1583 ddp_ptmv_rec.created_by := rosetta_g_miss_num_map(p5_a25);
1584 ddp_ptmv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a26);
1585 ddp_ptmv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a27);
1586 ddp_ptmv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a28);
1587 ddp_ptmv_rec.last_update_login := rosetta_g_miss_num_map(p5_a29);
1588 ddp_ptmv_rec.recipient_type_code := p5_a30;
1589 ddp_ptmv_rec.xml_tmplt_code := p5_a31;
1590
1591 -- here's the delegated call to the old PL/SQL routine
1592 okl_ptm_pvt.delete_row(p_api_version,
1593 p_init_msg_list,
1594 x_return_status,
1595 x_msg_count,
1596 x_msg_data,
1597 ddp_ptmv_rec);
1598
1599 -- copy data back from the local variables to OUT or IN-OUT args, if any
1600
1601
1602
1603
1604
1605 end;
1606
1607 procedure delete_row(p_api_version NUMBER
1608 , p_init_msg_list VARCHAR2
1609 , x_return_status out nocopy VARCHAR2
1610 , x_msg_count out nocopy NUMBER
1611 , x_msg_data out nocopy VARCHAR2
1612 , p5_a0 JTF_NUMBER_TABLE
1613 , p5_a1 JTF_NUMBER_TABLE
1614 , p5_a2 JTF_VARCHAR2_TABLE_100
1615 , p5_a3 JTF_NUMBER_TABLE
1616 , p5_a4 JTF_VARCHAR2_TABLE_100
1617 , p5_a5 JTF_VARCHAR2_TABLE_100
1618 , p5_a6 JTF_DATE_TABLE
1619 , p5_a7 JTF_DATE_TABLE
1620 , p5_a8 JTF_NUMBER_TABLE
1621 , p5_a9 JTF_VARCHAR2_TABLE_100
1622 , p5_a10 JTF_VARCHAR2_TABLE_500
1623 , p5_a11 JTF_VARCHAR2_TABLE_500
1624 , p5_a12 JTF_VARCHAR2_TABLE_500
1625 , p5_a13 JTF_VARCHAR2_TABLE_500
1626 , p5_a14 JTF_VARCHAR2_TABLE_500
1627 , p5_a15 JTF_VARCHAR2_TABLE_500
1628 , p5_a16 JTF_VARCHAR2_TABLE_500
1629 , p5_a17 JTF_VARCHAR2_TABLE_500
1630 , p5_a18 JTF_VARCHAR2_TABLE_500
1631 , p5_a19 JTF_VARCHAR2_TABLE_500
1632 , p5_a20 JTF_VARCHAR2_TABLE_500
1633 , p5_a21 JTF_VARCHAR2_TABLE_500
1634 , p5_a22 JTF_VARCHAR2_TABLE_500
1635 , p5_a23 JTF_VARCHAR2_TABLE_500
1636 , p5_a24 JTF_VARCHAR2_TABLE_500
1637 , p5_a25 JTF_NUMBER_TABLE
1638 , p5_a26 JTF_DATE_TABLE
1639 , p5_a27 JTF_NUMBER_TABLE
1640 , p5_a28 JTF_DATE_TABLE
1641 , p5_a29 JTF_NUMBER_TABLE
1642 , p5_a30 JTF_VARCHAR2_TABLE_100
1643 , p5_a31 JTF_VARCHAR2_TABLE_100
1644 )
1645
1646 as
1647 ddp_ptmv_tbl okl_ptm_pvt.ptmv_tbl_type;
1648 ddindx binary_integer; indx binary_integer;
1649 begin
1650
1651 -- copy data to the local IN or IN-OUT args, if any
1652
1653
1654
1655
1656
1657 okl_ptm_pvt_w.rosetta_table_copy_in_p8(ddp_ptmv_tbl, p5_a0
1658 , p5_a1
1659 , p5_a2
1660 , p5_a3
1661 , p5_a4
1662 , p5_a5
1663 , p5_a6
1664 , p5_a7
1665 , p5_a8
1666 , p5_a9
1667 , p5_a10
1668 , p5_a11
1669 , p5_a12
1670 , p5_a13
1671 , p5_a14
1672 , p5_a15
1673 , p5_a16
1674 , p5_a17
1675 , p5_a18
1676 , p5_a19
1677 , p5_a20
1678 , p5_a21
1679 , p5_a22
1680 , p5_a23
1681 , p5_a24
1682 , p5_a25
1683 , p5_a26
1684 , p5_a27
1685 , p5_a28
1686 , p5_a29
1687 , p5_a30
1688 , p5_a31
1689 );
1690
1691 -- here's the delegated call to the old PL/SQL routine
1692 okl_ptm_pvt.delete_row(p_api_version,
1693 p_init_msg_list,
1694 x_return_status,
1695 x_msg_count,
1696 x_msg_data,
1697 ddp_ptmv_tbl);
1698
1699 -- copy data back from the local variables to OUT or IN-OUT args, if any
1700
1701
1702
1703
1704
1705 end;
1706
1707 procedure validate_row(p_api_version NUMBER
1708 , p_init_msg_list VARCHAR2
1709 , x_return_status out nocopy VARCHAR2
1710 , x_msg_count out nocopy NUMBER
1711 , x_msg_data out nocopy VARCHAR2
1712 , p5_a0 NUMBER := 0-1962.0724
1713 , p5_a1 NUMBER := 0-1962.0724
1714 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
1715 , p5_a3 NUMBER := 0-1962.0724
1716 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
1717 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
1718 , p5_a6 DATE := fnd_api.g_miss_date
1719 , p5_a7 DATE := fnd_api.g_miss_date
1720 , p5_a8 NUMBER := 0-1962.0724
1721 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
1722 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1723 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
1724 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
1725 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
1726 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
1727 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
1728 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
1729 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
1730 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1731 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1732 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1733 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1734 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1735 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
1736 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
1737 , p5_a25 NUMBER := 0-1962.0724
1738 , p5_a26 DATE := fnd_api.g_miss_date
1739 , p5_a27 NUMBER := 0-1962.0724
1740 , p5_a28 DATE := fnd_api.g_miss_date
1741 , p5_a29 NUMBER := 0-1962.0724
1742 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
1743 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
1744 )
1745
1746 as
1747 ddp_ptmv_rec okl_ptm_pvt.ptmv_rec_type;
1748 ddindx binary_integer; indx binary_integer;
1749 begin
1750
1751 -- copy data to the local IN or IN-OUT args, if any
1752
1753
1754
1755
1756
1757 ddp_ptmv_rec.id := rosetta_g_miss_num_map(p5_a0);
1758 ddp_ptmv_rec.org_id := rosetta_g_miss_num_map(p5_a1);
1759 ddp_ptmv_rec.ptm_code := p5_a2;
1760 ddp_ptmv_rec.jtf_amv_item_id := rosetta_g_miss_num_map(p5_a3);
1761 ddp_ptmv_rec.sfwt_flag := p5_a4;
1762 ddp_ptmv_rec.email_subject_line := p5_a5;
1763 ddp_ptmv_rec.start_date := rosetta_g_miss_date_in_map(p5_a6);
1764 ddp_ptmv_rec.end_date := rosetta_g_miss_date_in_map(p5_a7);
1765 ddp_ptmv_rec.object_version_number := rosetta_g_miss_num_map(p5_a8);
1766 ddp_ptmv_rec.attribute_category := p5_a9;
1767 ddp_ptmv_rec.attribute1 := p5_a10;
1768 ddp_ptmv_rec.attribute2 := p5_a11;
1769 ddp_ptmv_rec.attribute3 := p5_a12;
1770 ddp_ptmv_rec.attribute4 := p5_a13;
1771 ddp_ptmv_rec.attribute5 := p5_a14;
1772 ddp_ptmv_rec.attribute6 := p5_a15;
1773 ddp_ptmv_rec.attribute7 := p5_a16;
1774 ddp_ptmv_rec.attribute8 := p5_a17;
1775 ddp_ptmv_rec.attribute9 := p5_a18;
1776 ddp_ptmv_rec.attribute10 := p5_a19;
1777 ddp_ptmv_rec.attribute11 := p5_a20;
1778 ddp_ptmv_rec.attribute12 := p5_a21;
1779 ddp_ptmv_rec.attribute13 := p5_a22;
1780 ddp_ptmv_rec.attribute14 := p5_a23;
1781 ddp_ptmv_rec.attribute15 := p5_a24;
1782 ddp_ptmv_rec.created_by := rosetta_g_miss_num_map(p5_a25);
1783 ddp_ptmv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a26);
1784 ddp_ptmv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a27);
1785 ddp_ptmv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a28);
1786 ddp_ptmv_rec.last_update_login := rosetta_g_miss_num_map(p5_a29);
1787 ddp_ptmv_rec.recipient_type_code := p5_a30;
1788 ddp_ptmv_rec.xml_tmplt_code := p5_a31;
1789
1790 -- here's the delegated call to the old PL/SQL routine
1791 okl_ptm_pvt.validate_row(p_api_version,
1792 p_init_msg_list,
1793 x_return_status,
1794 x_msg_count,
1795 x_msg_data,
1796 ddp_ptmv_rec);
1797
1798 -- copy data back from the local variables to OUT or IN-OUT args, if any
1799
1800
1801
1802
1803
1804 end;
1805
1806 procedure validate_row(p_api_version NUMBER
1807 , p_init_msg_list VARCHAR2
1808 , x_return_status out nocopy VARCHAR2
1809 , x_msg_count out nocopy NUMBER
1810 , x_msg_data out nocopy VARCHAR2
1811 , p5_a0 JTF_NUMBER_TABLE
1812 , p5_a1 JTF_NUMBER_TABLE
1813 , p5_a2 JTF_VARCHAR2_TABLE_100
1814 , p5_a3 JTF_NUMBER_TABLE
1815 , p5_a4 JTF_VARCHAR2_TABLE_100
1816 , p5_a5 JTF_VARCHAR2_TABLE_100
1817 , p5_a6 JTF_DATE_TABLE
1818 , p5_a7 JTF_DATE_TABLE
1819 , p5_a8 JTF_NUMBER_TABLE
1820 , p5_a9 JTF_VARCHAR2_TABLE_100
1821 , p5_a10 JTF_VARCHAR2_TABLE_500
1822 , p5_a11 JTF_VARCHAR2_TABLE_500
1823 , p5_a12 JTF_VARCHAR2_TABLE_500
1824 , p5_a13 JTF_VARCHAR2_TABLE_500
1825 , p5_a14 JTF_VARCHAR2_TABLE_500
1826 , p5_a15 JTF_VARCHAR2_TABLE_500
1827 , p5_a16 JTF_VARCHAR2_TABLE_500
1828 , p5_a17 JTF_VARCHAR2_TABLE_500
1829 , p5_a18 JTF_VARCHAR2_TABLE_500
1830 , p5_a19 JTF_VARCHAR2_TABLE_500
1831 , p5_a20 JTF_VARCHAR2_TABLE_500
1832 , p5_a21 JTF_VARCHAR2_TABLE_500
1833 , p5_a22 JTF_VARCHAR2_TABLE_500
1834 , p5_a23 JTF_VARCHAR2_TABLE_500
1835 , p5_a24 JTF_VARCHAR2_TABLE_500
1836 , p5_a25 JTF_NUMBER_TABLE
1837 , p5_a26 JTF_DATE_TABLE
1838 , p5_a27 JTF_NUMBER_TABLE
1839 , p5_a28 JTF_DATE_TABLE
1840 , p5_a29 JTF_NUMBER_TABLE
1841 , p5_a30 JTF_VARCHAR2_TABLE_100
1842 , p5_a31 JTF_VARCHAR2_TABLE_100
1843 )
1844
1845 as
1846 ddp_ptmv_tbl okl_ptm_pvt.ptmv_tbl_type;
1847 ddindx binary_integer; indx binary_integer;
1848 begin
1849
1850 -- copy data to the local IN or IN-OUT args, if any
1851
1852
1853
1854
1855
1856 okl_ptm_pvt_w.rosetta_table_copy_in_p8(ddp_ptmv_tbl, p5_a0
1857 , p5_a1
1858 , p5_a2
1859 , p5_a3
1860 , p5_a4
1861 , p5_a5
1862 , p5_a6
1863 , p5_a7
1864 , p5_a8
1865 , p5_a9
1866 , p5_a10
1867 , p5_a11
1868 , p5_a12
1869 , p5_a13
1870 , p5_a14
1871 , p5_a15
1872 , p5_a16
1873 , p5_a17
1874 , p5_a18
1875 , p5_a19
1876 , p5_a20
1877 , p5_a21
1878 , p5_a22
1879 , p5_a23
1880 , p5_a24
1881 , p5_a25
1882 , p5_a26
1883 , p5_a27
1884 , p5_a28
1885 , p5_a29
1886 , p5_a30
1887 , p5_a31
1888 );
1889
1890 -- here's the delegated call to the old PL/SQL routine
1891 okl_ptm_pvt.validate_row(p_api_version,
1892 p_init_msg_list,
1893 x_return_status,
1894 x_msg_count,
1895 x_msg_data,
1896 ddp_ptmv_tbl);
1897
1898 -- copy data back from the local variables to OUT or IN-OUT args, if any
1899
1900
1901
1902
1903
1904 end;
1905
1906 end okl_ptm_pvt_w;