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