[Home] [Help]
PACKAGE BODY: APPS.OKL_DCT_PVT_W
Source
1 package body okl_dct_pvt_w as
2 /* $Header: OKLIDCTB.pls 120.1 2005/07/08 10:35:23 dkagrawa noship $ */
3 rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4 rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5
6 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
7 function rosetta_g_miss_date_in_map(d date) return date as
8 begin
9 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10 return d;
11 end;
12
13 function rosetta_g_miss_num_map(n number) return number as
14 a number := fnd_api.g_miss_num;
15 b number := 0-1962.0724;
16 begin
17 if n=a then return b; end if;
18 if n=b then return a; end if;
19 return n;
20 end;
21
22 procedure rosetta_table_copy_in_p2(t out nocopy okl_dct_pvt.dct_tbl_type, a0 JTF_NUMBER_TABLE
23 , a1 JTF_NUMBER_TABLE
24 , a2 JTF_NUMBER_TABLE
25 , a3 JTF_NUMBER_TABLE
26 , a4 JTF_DATE_TABLE
27 , a5 JTF_NUMBER_TABLE
28 , a6 JTF_NUMBER_TABLE
29 , a7 JTF_DATE_TABLE
30 , a8 JTF_NUMBER_TABLE
31 , a9 JTF_DATE_TABLE
32 , a10 JTF_NUMBER_TABLE
33 , a11 JTF_DATE_TABLE
34 , a12 JTF_NUMBER_TABLE
35 ) as
36 ddindx binary_integer; indx binary_integer;
37 begin
38 if a0 is not null and a0.count > 0 then
39 if a0.count > 0 then
40 indx := a0.first;
41 ddindx := 1;
42 while true loop
43 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
44 t(ddindx).rmr_id := rosetta_g_miss_num_map(a1(indx));
45 t(ddindx).ico_id := rosetta_g_miss_num_map(a2(indx));
46 t(ddindx).iln_id := rosetta_g_miss_num_map(a3(indx));
47 t(ddindx).date_effective_from := rosetta_g_miss_date_in_map(a4(indx));
48 t(ddindx).object_version_number := rosetta_g_miss_num_map(a5(indx));
49 t(ddindx).created_by := rosetta_g_miss_num_map(a6(indx));
50 t(ddindx).date_effective_to := rosetta_g_miss_date_in_map(a7(indx));
51 t(ddindx).org_id := rosetta_g_miss_num_map(a8(indx));
52 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a9(indx));
53 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a10(indx));
54 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a11(indx));
55 t(ddindx).last_update_login := rosetta_g_miss_num_map(a12(indx));
56 ddindx := ddindx+1;
57 if a0.last =indx
58 then exit;
59 end if;
60 indx := a0.next(indx);
61 end loop;
62 end if;
63 end if;
64 end rosetta_table_copy_in_p2;
65 procedure rosetta_table_copy_out_p2(t okl_dct_pvt.dct_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
66 , a1 out nocopy JTF_NUMBER_TABLE
67 , a2 out nocopy JTF_NUMBER_TABLE
68 , a3 out nocopy JTF_NUMBER_TABLE
69 , a4 out nocopy JTF_DATE_TABLE
70 , a5 out nocopy JTF_NUMBER_TABLE
71 , a6 out nocopy JTF_NUMBER_TABLE
72 , a7 out nocopy JTF_DATE_TABLE
73 , a8 out nocopy JTF_NUMBER_TABLE
74 , a9 out nocopy JTF_DATE_TABLE
75 , a10 out nocopy JTF_NUMBER_TABLE
76 , a11 out nocopy JTF_DATE_TABLE
77 , a12 out nocopy JTF_NUMBER_TABLE
78 ) as
79 ddindx binary_integer; indx binary_integer;
80 begin
81 if t is null or t.count = 0 then
82 a0 := JTF_NUMBER_TABLE();
83 a1 := JTF_NUMBER_TABLE();
84 a2 := JTF_NUMBER_TABLE();
85 a3 := JTF_NUMBER_TABLE();
86 a4 := JTF_DATE_TABLE();
87 a5 := JTF_NUMBER_TABLE();
88 a6 := JTF_NUMBER_TABLE();
89 a7 := JTF_DATE_TABLE();
90 a8 := JTF_NUMBER_TABLE();
91 a9 := JTF_DATE_TABLE();
92 a10 := JTF_NUMBER_TABLE();
93 a11 := JTF_DATE_TABLE();
94 a12 := JTF_NUMBER_TABLE();
95 else
96 a0 := JTF_NUMBER_TABLE();
97 a1 := JTF_NUMBER_TABLE();
98 a2 := JTF_NUMBER_TABLE();
99 a3 := JTF_NUMBER_TABLE();
100 a4 := JTF_DATE_TABLE();
101 a5 := JTF_NUMBER_TABLE();
102 a6 := JTF_NUMBER_TABLE();
103 a7 := JTF_DATE_TABLE();
104 a8 := JTF_NUMBER_TABLE();
105 a9 := JTF_DATE_TABLE();
106 a10 := JTF_NUMBER_TABLE();
107 a11 := JTF_DATE_TABLE();
108 a12 := JTF_NUMBER_TABLE();
109 if t.count > 0 then
110 a0.extend(t.count);
111 a1.extend(t.count);
112 a2.extend(t.count);
113 a3.extend(t.count);
114 a4.extend(t.count);
115 a5.extend(t.count);
116 a6.extend(t.count);
117 a7.extend(t.count);
118 a8.extend(t.count);
119 a9.extend(t.count);
120 a10.extend(t.count);
121 a11.extend(t.count);
122 a12.extend(t.count);
123 ddindx := t.first;
124 indx := 1;
125 while true loop
126 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
127 a1(indx) := rosetta_g_miss_num_map(t(ddindx).rmr_id);
128 a2(indx) := rosetta_g_miss_num_map(t(ddindx).ico_id);
129 a3(indx) := rosetta_g_miss_num_map(t(ddindx).iln_id);
130 a4(indx) := t(ddindx).date_effective_from;
131 a5(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
132 a6(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
133 a7(indx) := t(ddindx).date_effective_to;
134 a8(indx) := rosetta_g_miss_num_map(t(ddindx).org_id);
135 a9(indx) := t(ddindx).creation_date;
136 a10(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
137 a11(indx) := t(ddindx).last_update_date;
138 a12(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
139 indx := indx+1;
140 if t.last =ddindx
141 then exit;
142 end if;
143 ddindx := t.next(ddindx);
144 end loop;
145 end if;
146 end if;
147 end rosetta_table_copy_out_p2;
148
149 procedure rosetta_table_copy_in_p5(t out nocopy okl_dct_pvt.dctv_tbl_type, a0 JTF_NUMBER_TABLE
150 , a1 JTF_NUMBER_TABLE
151 , a2 JTF_NUMBER_TABLE
152 , a3 JTF_NUMBER_TABLE
153 , a4 JTF_NUMBER_TABLE
154 , a5 JTF_DATE_TABLE
155 , a6 JTF_DATE_TABLE
156 , a7 JTF_NUMBER_TABLE
157 , a8 JTF_NUMBER_TABLE
158 , a9 JTF_DATE_TABLE
159 , a10 JTF_NUMBER_TABLE
160 , a11 JTF_DATE_TABLE
161 , a12 JTF_NUMBER_TABLE
162 ) as
163 ddindx binary_integer; indx binary_integer;
164 begin
165 if a0 is not null and a0.count > 0 then
166 if a0.count > 0 then
167 indx := a0.first;
168 ddindx := 1;
169 while true loop
170 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
171 t(ddindx).object_version_number := rosetta_g_miss_num_map(a1(indx));
172 t(ddindx).rmr_id := rosetta_g_miss_num_map(a2(indx));
173 t(ddindx).ico_id := rosetta_g_miss_num_map(a3(indx));
174 t(ddindx).iln_id := rosetta_g_miss_num_map(a4(indx));
175 t(ddindx).date_effective_from := rosetta_g_miss_date_in_map(a5(indx));
176 t(ddindx).date_effective_to := rosetta_g_miss_date_in_map(a6(indx));
177 t(ddindx).org_id := rosetta_g_miss_num_map(a7(indx));
178 t(ddindx).created_by := rosetta_g_miss_num_map(a8(indx));
179 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a9(indx));
180 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a10(indx));
181 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a11(indx));
182 t(ddindx).last_update_login := rosetta_g_miss_num_map(a12(indx));
183 ddindx := ddindx+1;
184 if a0.last =indx
185 then exit;
186 end if;
187 indx := a0.next(indx);
188 end loop;
189 end if;
190 end if;
191 end rosetta_table_copy_in_p5;
192 procedure rosetta_table_copy_out_p5(t okl_dct_pvt.dctv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
193 , a1 out nocopy JTF_NUMBER_TABLE
194 , a2 out nocopy JTF_NUMBER_TABLE
195 , a3 out nocopy JTF_NUMBER_TABLE
196 , a4 out nocopy JTF_NUMBER_TABLE
197 , a5 out nocopy JTF_DATE_TABLE
198 , a6 out nocopy JTF_DATE_TABLE
199 , a7 out nocopy JTF_NUMBER_TABLE
200 , a8 out nocopy JTF_NUMBER_TABLE
201 , a9 out nocopy JTF_DATE_TABLE
202 , a10 out nocopy JTF_NUMBER_TABLE
203 , a11 out nocopy JTF_DATE_TABLE
204 , a12 out nocopy JTF_NUMBER_TABLE
205 ) as
206 ddindx binary_integer; indx binary_integer;
207 begin
208 if t is null or t.count = 0 then
209 a0 := JTF_NUMBER_TABLE();
210 a1 := JTF_NUMBER_TABLE();
211 a2 := JTF_NUMBER_TABLE();
212 a3 := JTF_NUMBER_TABLE();
213 a4 := JTF_NUMBER_TABLE();
214 a5 := JTF_DATE_TABLE();
215 a6 := JTF_DATE_TABLE();
216 a7 := JTF_NUMBER_TABLE();
217 a8 := JTF_NUMBER_TABLE();
218 a9 := JTF_DATE_TABLE();
219 a10 := JTF_NUMBER_TABLE();
220 a11 := JTF_DATE_TABLE();
221 a12 := JTF_NUMBER_TABLE();
222 else
223 a0 := JTF_NUMBER_TABLE();
224 a1 := JTF_NUMBER_TABLE();
225 a2 := JTF_NUMBER_TABLE();
226 a3 := JTF_NUMBER_TABLE();
227 a4 := JTF_NUMBER_TABLE();
228 a5 := JTF_DATE_TABLE();
229 a6 := JTF_DATE_TABLE();
230 a7 := JTF_NUMBER_TABLE();
231 a8 := JTF_NUMBER_TABLE();
232 a9 := JTF_DATE_TABLE();
233 a10 := JTF_NUMBER_TABLE();
234 a11 := JTF_DATE_TABLE();
235 a12 := JTF_NUMBER_TABLE();
236 if t.count > 0 then
237 a0.extend(t.count);
238 a1.extend(t.count);
239 a2.extend(t.count);
240 a3.extend(t.count);
241 a4.extend(t.count);
242 a5.extend(t.count);
243 a6.extend(t.count);
244 a7.extend(t.count);
245 a8.extend(t.count);
246 a9.extend(t.count);
247 a10.extend(t.count);
248 a11.extend(t.count);
249 a12.extend(t.count);
250 ddindx := t.first;
251 indx := 1;
252 while true loop
253 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
254 a1(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
255 a2(indx) := rosetta_g_miss_num_map(t(ddindx).rmr_id);
256 a3(indx) := rosetta_g_miss_num_map(t(ddindx).ico_id);
257 a4(indx) := rosetta_g_miss_num_map(t(ddindx).iln_id);
258 a5(indx) := t(ddindx).date_effective_from;
259 a6(indx) := t(ddindx).date_effective_to;
260 a7(indx) := rosetta_g_miss_num_map(t(ddindx).org_id);
261 a8(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
262 a9(indx) := t(ddindx).creation_date;
263 a10(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
264 a11(indx) := t(ddindx).last_update_date;
265 a12(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
266 indx := indx+1;
267 if t.last =ddindx
268 then exit;
269 end if;
270 ddindx := t.next(ddindx);
271 end loop;
272 end if;
273 end if;
274 end rosetta_table_copy_out_p5;
275
276 procedure insert_row(p_api_version NUMBER
277 , p_init_msg_list VARCHAR2
278 , x_return_status out nocopy VARCHAR2
279 , x_msg_count out nocopy NUMBER
280 , x_msg_data out nocopy VARCHAR2
281 , p6_a0 out nocopy NUMBER
282 , p6_a1 out nocopy NUMBER
283 , p6_a2 out nocopy NUMBER
284 , p6_a3 out nocopy NUMBER
285 , p6_a4 out nocopy NUMBER
286 , p6_a5 out nocopy DATE
287 , p6_a6 out nocopy DATE
288 , p6_a7 out nocopy NUMBER
289 , p6_a8 out nocopy NUMBER
290 , p6_a9 out nocopy DATE
291 , p6_a10 out nocopy NUMBER
292 , p6_a11 out nocopy DATE
293 , p6_a12 out nocopy NUMBER
294 , p5_a0 NUMBER := 0-1962.0724
295 , p5_a1 NUMBER := 0-1962.0724
296 , p5_a2 NUMBER := 0-1962.0724
297 , p5_a3 NUMBER := 0-1962.0724
298 , p5_a4 NUMBER := 0-1962.0724
299 , p5_a5 DATE := fnd_api.g_miss_date
300 , p5_a6 DATE := fnd_api.g_miss_date
301 , p5_a7 NUMBER := 0-1962.0724
302 , p5_a8 NUMBER := 0-1962.0724
303 , p5_a9 DATE := fnd_api.g_miss_date
304 , p5_a10 NUMBER := 0-1962.0724
305 , p5_a11 DATE := fnd_api.g_miss_date
306 , p5_a12 NUMBER := 0-1962.0724
307 )
308
309 as
310 ddp_dctv_rec okl_dct_pvt.dctv_rec_type;
311 ddx_dctv_rec okl_dct_pvt.dctv_rec_type;
312 ddindx binary_integer; indx binary_integer;
313 begin
314
315 -- copy data to the local IN or IN-OUT args, if any
316
317
318
319
320
321 ddp_dctv_rec.id := rosetta_g_miss_num_map(p5_a0);
322 ddp_dctv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
323 ddp_dctv_rec.rmr_id := rosetta_g_miss_num_map(p5_a2);
324 ddp_dctv_rec.ico_id := rosetta_g_miss_num_map(p5_a3);
325 ddp_dctv_rec.iln_id := rosetta_g_miss_num_map(p5_a4);
326 ddp_dctv_rec.date_effective_from := rosetta_g_miss_date_in_map(p5_a5);
327 ddp_dctv_rec.date_effective_to := rosetta_g_miss_date_in_map(p5_a6);
328 ddp_dctv_rec.org_id := rosetta_g_miss_num_map(p5_a7);
329 ddp_dctv_rec.created_by := rosetta_g_miss_num_map(p5_a8);
330 ddp_dctv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a9);
331 ddp_dctv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a10);
332 ddp_dctv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a11);
333 ddp_dctv_rec.last_update_login := rosetta_g_miss_num_map(p5_a12);
334
335
336 -- here's the delegated call to the old PL/SQL routine
337 okl_dct_pvt.insert_row(p_api_version,
338 p_init_msg_list,
339 x_return_status,
340 x_msg_count,
341 x_msg_data,
342 ddp_dctv_rec,
343 ddx_dctv_rec);
344
345 -- copy data back from the local variables to OUT or IN-OUT args, if any
346
347
348
349
350
351
352 p6_a0 := rosetta_g_miss_num_map(ddx_dctv_rec.id);
353 p6_a1 := rosetta_g_miss_num_map(ddx_dctv_rec.object_version_number);
354 p6_a2 := rosetta_g_miss_num_map(ddx_dctv_rec.rmr_id);
355 p6_a3 := rosetta_g_miss_num_map(ddx_dctv_rec.ico_id);
356 p6_a4 := rosetta_g_miss_num_map(ddx_dctv_rec.iln_id);
357 p6_a5 := ddx_dctv_rec.date_effective_from;
358 p6_a6 := ddx_dctv_rec.date_effective_to;
359 p6_a7 := rosetta_g_miss_num_map(ddx_dctv_rec.org_id);
360 p6_a8 := rosetta_g_miss_num_map(ddx_dctv_rec.created_by);
361 p6_a9 := ddx_dctv_rec.creation_date;
362 p6_a10 := rosetta_g_miss_num_map(ddx_dctv_rec.last_updated_by);
363 p6_a11 := ddx_dctv_rec.last_update_date;
364 p6_a12 := rosetta_g_miss_num_map(ddx_dctv_rec.last_update_login);
365 end;
366
367 procedure insert_row(p_api_version NUMBER
368 , p_init_msg_list VARCHAR2
369 , x_return_status out nocopy VARCHAR2
370 , x_msg_count out nocopy NUMBER
371 , x_msg_data out nocopy VARCHAR2
372 , p5_a0 JTF_NUMBER_TABLE
373 , p5_a1 JTF_NUMBER_TABLE
374 , p5_a2 JTF_NUMBER_TABLE
375 , p5_a3 JTF_NUMBER_TABLE
376 , p5_a4 JTF_NUMBER_TABLE
377 , p5_a5 JTF_DATE_TABLE
378 , p5_a6 JTF_DATE_TABLE
379 , p5_a7 JTF_NUMBER_TABLE
380 , p5_a8 JTF_NUMBER_TABLE
381 , p5_a9 JTF_DATE_TABLE
382 , p5_a10 JTF_NUMBER_TABLE
383 , p5_a11 JTF_DATE_TABLE
384 , p5_a12 JTF_NUMBER_TABLE
385 , p6_a0 out nocopy JTF_NUMBER_TABLE
386 , p6_a1 out nocopy JTF_NUMBER_TABLE
387 , p6_a2 out nocopy JTF_NUMBER_TABLE
388 , p6_a3 out nocopy JTF_NUMBER_TABLE
389 , p6_a4 out nocopy JTF_NUMBER_TABLE
390 , p6_a5 out nocopy JTF_DATE_TABLE
391 , p6_a6 out nocopy JTF_DATE_TABLE
392 , p6_a7 out nocopy JTF_NUMBER_TABLE
393 , p6_a8 out nocopy JTF_NUMBER_TABLE
394 , p6_a9 out nocopy JTF_DATE_TABLE
395 , p6_a10 out nocopy JTF_NUMBER_TABLE
396 , p6_a11 out nocopy JTF_DATE_TABLE
397 , p6_a12 out nocopy JTF_NUMBER_TABLE
398 )
399
400 as
401 ddp_dctv_tbl okl_dct_pvt.dctv_tbl_type;
402 ddx_dctv_tbl okl_dct_pvt.dctv_tbl_type;
403 ddindx binary_integer; indx binary_integer;
404 begin
405
406 -- copy data to the local IN or IN-OUT args, if any
407
408
409
410
411
412 okl_dct_pvt_w.rosetta_table_copy_in_p5(ddp_dctv_tbl, p5_a0
413 , p5_a1
414 , p5_a2
415 , p5_a3
416 , p5_a4
417 , p5_a5
418 , p5_a6
419 , p5_a7
420 , p5_a8
421 , p5_a9
422 , p5_a10
423 , p5_a11
424 , p5_a12
425 );
426
427
428 -- here's the delegated call to the old PL/SQL routine
429 okl_dct_pvt.insert_row(p_api_version,
430 p_init_msg_list,
431 x_return_status,
432 x_msg_count,
433 x_msg_data,
434 ddp_dctv_tbl,
435 ddx_dctv_tbl);
436
437 -- copy data back from the local variables to OUT or IN-OUT args, if any
438
439
440
441
442
443
444 okl_dct_pvt_w.rosetta_table_copy_out_p5(ddx_dctv_tbl, p6_a0
445 , p6_a1
446 , p6_a2
447 , p6_a3
448 , p6_a4
449 , p6_a5
450 , p6_a6
451 , p6_a7
452 , p6_a8
453 , p6_a9
454 , p6_a10
455 , p6_a11
456 , p6_a12
457 );
458 end;
459
460 procedure lock_row(p_api_version NUMBER
461 , p_init_msg_list VARCHAR2
462 , x_return_status out nocopy VARCHAR2
463 , x_msg_count out nocopy NUMBER
464 , x_msg_data out nocopy VARCHAR2
465 , p5_a0 NUMBER := 0-1962.0724
466 , p5_a1 NUMBER := 0-1962.0724
467 , p5_a2 NUMBER := 0-1962.0724
468 , p5_a3 NUMBER := 0-1962.0724
469 , p5_a4 NUMBER := 0-1962.0724
470 , p5_a5 DATE := fnd_api.g_miss_date
471 , p5_a6 DATE := fnd_api.g_miss_date
472 , p5_a7 NUMBER := 0-1962.0724
473 , p5_a8 NUMBER := 0-1962.0724
474 , p5_a9 DATE := fnd_api.g_miss_date
475 , p5_a10 NUMBER := 0-1962.0724
476 , p5_a11 DATE := fnd_api.g_miss_date
477 , p5_a12 NUMBER := 0-1962.0724
478 )
479
480 as
481 ddp_dctv_rec okl_dct_pvt.dctv_rec_type;
482 ddindx binary_integer; indx binary_integer;
483 begin
484
485 -- copy data to the local IN or IN-OUT args, if any
486
487
488
489
490
491 ddp_dctv_rec.id := rosetta_g_miss_num_map(p5_a0);
492 ddp_dctv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
493 ddp_dctv_rec.rmr_id := rosetta_g_miss_num_map(p5_a2);
494 ddp_dctv_rec.ico_id := rosetta_g_miss_num_map(p5_a3);
495 ddp_dctv_rec.iln_id := rosetta_g_miss_num_map(p5_a4);
496 ddp_dctv_rec.date_effective_from := rosetta_g_miss_date_in_map(p5_a5);
497 ddp_dctv_rec.date_effective_to := rosetta_g_miss_date_in_map(p5_a6);
498 ddp_dctv_rec.org_id := rosetta_g_miss_num_map(p5_a7);
499 ddp_dctv_rec.created_by := rosetta_g_miss_num_map(p5_a8);
500 ddp_dctv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a9);
501 ddp_dctv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a10);
502 ddp_dctv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a11);
503 ddp_dctv_rec.last_update_login := rosetta_g_miss_num_map(p5_a12);
504
505 -- here's the delegated call to the old PL/SQL routine
506 okl_dct_pvt.lock_row(p_api_version,
507 p_init_msg_list,
508 x_return_status,
509 x_msg_count,
510 x_msg_data,
511 ddp_dctv_rec);
512
513 -- copy data back from the local variables to OUT or IN-OUT args, if any
514
515
516
517
518
519 end;
520
521 procedure lock_row(p_api_version NUMBER
522 , p_init_msg_list VARCHAR2
523 , x_return_status out nocopy VARCHAR2
524 , x_msg_count out nocopy NUMBER
525 , x_msg_data out nocopy VARCHAR2
526 , p5_a0 JTF_NUMBER_TABLE
527 , p5_a1 JTF_NUMBER_TABLE
528 , p5_a2 JTF_NUMBER_TABLE
529 , p5_a3 JTF_NUMBER_TABLE
530 , p5_a4 JTF_NUMBER_TABLE
531 , p5_a5 JTF_DATE_TABLE
532 , p5_a6 JTF_DATE_TABLE
533 , p5_a7 JTF_NUMBER_TABLE
534 , p5_a8 JTF_NUMBER_TABLE
535 , p5_a9 JTF_DATE_TABLE
536 , p5_a10 JTF_NUMBER_TABLE
537 , p5_a11 JTF_DATE_TABLE
538 , p5_a12 JTF_NUMBER_TABLE
539 )
540
541 as
542 ddp_dctv_tbl okl_dct_pvt.dctv_tbl_type;
543 ddindx binary_integer; indx binary_integer;
544 begin
545
546 -- copy data to the local IN or IN-OUT args, if any
547
548
549
550
551
552 okl_dct_pvt_w.rosetta_table_copy_in_p5(ddp_dctv_tbl, p5_a0
553 , p5_a1
554 , p5_a2
555 , p5_a3
556 , p5_a4
557 , p5_a5
558 , p5_a6
559 , p5_a7
560 , p5_a8
561 , p5_a9
562 , p5_a10
563 , p5_a11
564 , p5_a12
565 );
566
567 -- here's the delegated call to the old PL/SQL routine
568 okl_dct_pvt.lock_row(p_api_version,
569 p_init_msg_list,
570 x_return_status,
571 x_msg_count,
572 x_msg_data,
573 ddp_dctv_tbl);
574
575 -- copy data back from the local variables to OUT or IN-OUT args, if any
576
577
578
579
580
581 end;
582
583 procedure update_row(p_api_version NUMBER
584 , p_init_msg_list VARCHAR2
585 , x_return_status out nocopy VARCHAR2
586 , x_msg_count out nocopy NUMBER
587 , x_msg_data out nocopy VARCHAR2
588 , p6_a0 out nocopy NUMBER
589 , p6_a1 out nocopy NUMBER
590 , p6_a2 out nocopy NUMBER
591 , p6_a3 out nocopy NUMBER
592 , p6_a4 out nocopy NUMBER
593 , p6_a5 out nocopy DATE
594 , p6_a6 out nocopy DATE
595 , p6_a7 out nocopy NUMBER
596 , p6_a8 out nocopy NUMBER
597 , p6_a9 out nocopy DATE
598 , p6_a10 out nocopy NUMBER
599 , p6_a11 out nocopy DATE
600 , p6_a12 out nocopy NUMBER
601 , p5_a0 NUMBER := 0-1962.0724
602 , p5_a1 NUMBER := 0-1962.0724
603 , p5_a2 NUMBER := 0-1962.0724
604 , p5_a3 NUMBER := 0-1962.0724
605 , p5_a4 NUMBER := 0-1962.0724
606 , p5_a5 DATE := fnd_api.g_miss_date
607 , p5_a6 DATE := fnd_api.g_miss_date
608 , p5_a7 NUMBER := 0-1962.0724
609 , p5_a8 NUMBER := 0-1962.0724
610 , p5_a9 DATE := fnd_api.g_miss_date
611 , p5_a10 NUMBER := 0-1962.0724
612 , p5_a11 DATE := fnd_api.g_miss_date
613 , p5_a12 NUMBER := 0-1962.0724
614 )
615
616 as
617 ddp_dctv_rec okl_dct_pvt.dctv_rec_type;
618 ddx_dctv_rec okl_dct_pvt.dctv_rec_type;
619 ddindx binary_integer; indx binary_integer;
620 begin
621
622 -- copy data to the local IN or IN-OUT args, if any
623
624
625
626
627
628 ddp_dctv_rec.id := rosetta_g_miss_num_map(p5_a0);
629 ddp_dctv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
630 ddp_dctv_rec.rmr_id := rosetta_g_miss_num_map(p5_a2);
631 ddp_dctv_rec.ico_id := rosetta_g_miss_num_map(p5_a3);
632 ddp_dctv_rec.iln_id := rosetta_g_miss_num_map(p5_a4);
633 ddp_dctv_rec.date_effective_from := rosetta_g_miss_date_in_map(p5_a5);
634 ddp_dctv_rec.date_effective_to := rosetta_g_miss_date_in_map(p5_a6);
635 ddp_dctv_rec.org_id := rosetta_g_miss_num_map(p5_a7);
636 ddp_dctv_rec.created_by := rosetta_g_miss_num_map(p5_a8);
637 ddp_dctv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a9);
638 ddp_dctv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a10);
639 ddp_dctv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a11);
640 ddp_dctv_rec.last_update_login := rosetta_g_miss_num_map(p5_a12);
641
642
643 -- here's the delegated call to the old PL/SQL routine
644 okl_dct_pvt.update_row(p_api_version,
645 p_init_msg_list,
646 x_return_status,
647 x_msg_count,
648 x_msg_data,
649 ddp_dctv_rec,
650 ddx_dctv_rec);
651
652 -- copy data back from the local variables to OUT or IN-OUT args, if any
653
654
655
656
657
658
659 p6_a0 := rosetta_g_miss_num_map(ddx_dctv_rec.id);
660 p6_a1 := rosetta_g_miss_num_map(ddx_dctv_rec.object_version_number);
661 p6_a2 := rosetta_g_miss_num_map(ddx_dctv_rec.rmr_id);
662 p6_a3 := rosetta_g_miss_num_map(ddx_dctv_rec.ico_id);
663 p6_a4 := rosetta_g_miss_num_map(ddx_dctv_rec.iln_id);
664 p6_a5 := ddx_dctv_rec.date_effective_from;
665 p6_a6 := ddx_dctv_rec.date_effective_to;
666 p6_a7 := rosetta_g_miss_num_map(ddx_dctv_rec.org_id);
667 p6_a8 := rosetta_g_miss_num_map(ddx_dctv_rec.created_by);
668 p6_a9 := ddx_dctv_rec.creation_date;
669 p6_a10 := rosetta_g_miss_num_map(ddx_dctv_rec.last_updated_by);
670 p6_a11 := ddx_dctv_rec.last_update_date;
671 p6_a12 := rosetta_g_miss_num_map(ddx_dctv_rec.last_update_login);
672 end;
673
674 procedure update_row(p_api_version NUMBER
675 , p_init_msg_list VARCHAR2
676 , x_return_status out nocopy VARCHAR2
677 , x_msg_count out nocopy NUMBER
678 , x_msg_data out nocopy VARCHAR2
679 , p5_a0 JTF_NUMBER_TABLE
680 , p5_a1 JTF_NUMBER_TABLE
681 , p5_a2 JTF_NUMBER_TABLE
682 , p5_a3 JTF_NUMBER_TABLE
683 , p5_a4 JTF_NUMBER_TABLE
684 , p5_a5 JTF_DATE_TABLE
685 , p5_a6 JTF_DATE_TABLE
686 , p5_a7 JTF_NUMBER_TABLE
687 , p5_a8 JTF_NUMBER_TABLE
688 , p5_a9 JTF_DATE_TABLE
689 , p5_a10 JTF_NUMBER_TABLE
690 , p5_a11 JTF_DATE_TABLE
691 , p5_a12 JTF_NUMBER_TABLE
692 , p6_a0 out nocopy JTF_NUMBER_TABLE
693 , p6_a1 out nocopy JTF_NUMBER_TABLE
694 , p6_a2 out nocopy JTF_NUMBER_TABLE
695 , p6_a3 out nocopy JTF_NUMBER_TABLE
696 , p6_a4 out nocopy JTF_NUMBER_TABLE
697 , p6_a5 out nocopy JTF_DATE_TABLE
698 , p6_a6 out nocopy JTF_DATE_TABLE
699 , p6_a7 out nocopy JTF_NUMBER_TABLE
700 , p6_a8 out nocopy JTF_NUMBER_TABLE
701 , p6_a9 out nocopy JTF_DATE_TABLE
702 , p6_a10 out nocopy JTF_NUMBER_TABLE
703 , p6_a11 out nocopy JTF_DATE_TABLE
704 , p6_a12 out nocopy JTF_NUMBER_TABLE
705 )
706
707 as
708 ddp_dctv_tbl okl_dct_pvt.dctv_tbl_type;
709 ddx_dctv_tbl okl_dct_pvt.dctv_tbl_type;
710 ddindx binary_integer; indx binary_integer;
711 begin
712
713 -- copy data to the local IN or IN-OUT args, if any
714
715
716
717
718
719 okl_dct_pvt_w.rosetta_table_copy_in_p5(ddp_dctv_tbl, p5_a0
720 , p5_a1
721 , p5_a2
722 , p5_a3
723 , p5_a4
724 , p5_a5
725 , p5_a6
726 , p5_a7
727 , p5_a8
728 , p5_a9
729 , p5_a10
730 , p5_a11
731 , p5_a12
732 );
733
734
735 -- here's the delegated call to the old PL/SQL routine
736 okl_dct_pvt.update_row(p_api_version,
737 p_init_msg_list,
738 x_return_status,
739 x_msg_count,
740 x_msg_data,
741 ddp_dctv_tbl,
742 ddx_dctv_tbl);
743
744 -- copy data back from the local variables to OUT or IN-OUT args, if any
745
746
747
748
749
750
751 okl_dct_pvt_w.rosetta_table_copy_out_p5(ddx_dctv_tbl, p6_a0
752 , p6_a1
753 , p6_a2
754 , p6_a3
755 , p6_a4
756 , p6_a5
757 , p6_a6
758 , p6_a7
759 , p6_a8
760 , p6_a9
761 , p6_a10
762 , p6_a11
763 , p6_a12
764 );
765 end;
766
767 procedure delete_row(p_api_version NUMBER
768 , p_init_msg_list VARCHAR2
769 , x_return_status out nocopy VARCHAR2
770 , x_msg_count out nocopy NUMBER
771 , x_msg_data out nocopy VARCHAR2
772 , p5_a0 NUMBER := 0-1962.0724
773 , p5_a1 NUMBER := 0-1962.0724
774 , p5_a2 NUMBER := 0-1962.0724
775 , p5_a3 NUMBER := 0-1962.0724
776 , p5_a4 NUMBER := 0-1962.0724
777 , p5_a5 DATE := fnd_api.g_miss_date
778 , p5_a6 DATE := fnd_api.g_miss_date
779 , p5_a7 NUMBER := 0-1962.0724
780 , p5_a8 NUMBER := 0-1962.0724
781 , p5_a9 DATE := fnd_api.g_miss_date
782 , p5_a10 NUMBER := 0-1962.0724
783 , p5_a11 DATE := fnd_api.g_miss_date
784 , p5_a12 NUMBER := 0-1962.0724
785 )
786
787 as
788 ddp_dctv_rec okl_dct_pvt.dctv_rec_type;
789 ddindx binary_integer; indx binary_integer;
790 begin
791
792 -- copy data to the local IN or IN-OUT args, if any
793
794
795
796
797
798 ddp_dctv_rec.id := rosetta_g_miss_num_map(p5_a0);
799 ddp_dctv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
800 ddp_dctv_rec.rmr_id := rosetta_g_miss_num_map(p5_a2);
801 ddp_dctv_rec.ico_id := rosetta_g_miss_num_map(p5_a3);
802 ddp_dctv_rec.iln_id := rosetta_g_miss_num_map(p5_a4);
803 ddp_dctv_rec.date_effective_from := rosetta_g_miss_date_in_map(p5_a5);
804 ddp_dctv_rec.date_effective_to := rosetta_g_miss_date_in_map(p5_a6);
805 ddp_dctv_rec.org_id := rosetta_g_miss_num_map(p5_a7);
806 ddp_dctv_rec.created_by := rosetta_g_miss_num_map(p5_a8);
807 ddp_dctv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a9);
808 ddp_dctv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a10);
809 ddp_dctv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a11);
810 ddp_dctv_rec.last_update_login := rosetta_g_miss_num_map(p5_a12);
811
812 -- here's the delegated call to the old PL/SQL routine
813 okl_dct_pvt.delete_row(p_api_version,
814 p_init_msg_list,
815 x_return_status,
816 x_msg_count,
817 x_msg_data,
818 ddp_dctv_rec);
819
820 -- copy data back from the local variables to OUT or IN-OUT args, if any
821
822
823
824
825
826 end;
827
828 procedure delete_row(p_api_version NUMBER
829 , p_init_msg_list VARCHAR2
830 , x_return_status out nocopy VARCHAR2
831 , x_msg_count out nocopy NUMBER
832 , x_msg_data out nocopy VARCHAR2
833 , p5_a0 JTF_NUMBER_TABLE
834 , p5_a1 JTF_NUMBER_TABLE
835 , p5_a2 JTF_NUMBER_TABLE
836 , p5_a3 JTF_NUMBER_TABLE
837 , p5_a4 JTF_NUMBER_TABLE
838 , p5_a5 JTF_DATE_TABLE
839 , p5_a6 JTF_DATE_TABLE
840 , p5_a7 JTF_NUMBER_TABLE
841 , p5_a8 JTF_NUMBER_TABLE
842 , p5_a9 JTF_DATE_TABLE
843 , p5_a10 JTF_NUMBER_TABLE
844 , p5_a11 JTF_DATE_TABLE
845 , p5_a12 JTF_NUMBER_TABLE
846 )
847
848 as
849 ddp_dctv_tbl okl_dct_pvt.dctv_tbl_type;
850 ddindx binary_integer; indx binary_integer;
851 begin
852
853 -- copy data to the local IN or IN-OUT args, if any
854
855
856
857
858
859 okl_dct_pvt_w.rosetta_table_copy_in_p5(ddp_dctv_tbl, p5_a0
860 , p5_a1
861 , p5_a2
862 , p5_a3
863 , p5_a4
864 , p5_a5
865 , p5_a6
866 , p5_a7
867 , p5_a8
868 , p5_a9
869 , p5_a10
870 , p5_a11
871 , p5_a12
872 );
873
874 -- here's the delegated call to the old PL/SQL routine
875 okl_dct_pvt.delete_row(p_api_version,
876 p_init_msg_list,
877 x_return_status,
878 x_msg_count,
879 x_msg_data,
880 ddp_dctv_tbl);
881
882 -- copy data back from the local variables to OUT or IN-OUT args, if any
883
884
885
886
887
888 end;
889
890 procedure validate_row(p_api_version NUMBER
891 , p_init_msg_list VARCHAR2
892 , x_return_status out nocopy VARCHAR2
893 , x_msg_count out nocopy NUMBER
894 , x_msg_data out nocopy VARCHAR2
895 , p5_a0 NUMBER := 0-1962.0724
896 , p5_a1 NUMBER := 0-1962.0724
897 , p5_a2 NUMBER := 0-1962.0724
898 , p5_a3 NUMBER := 0-1962.0724
899 , p5_a4 NUMBER := 0-1962.0724
900 , p5_a5 DATE := fnd_api.g_miss_date
901 , p5_a6 DATE := fnd_api.g_miss_date
902 , p5_a7 NUMBER := 0-1962.0724
903 , p5_a8 NUMBER := 0-1962.0724
904 , p5_a9 DATE := fnd_api.g_miss_date
905 , p5_a10 NUMBER := 0-1962.0724
906 , p5_a11 DATE := fnd_api.g_miss_date
907 , p5_a12 NUMBER := 0-1962.0724
908 )
909
910 as
911 ddp_dctv_rec okl_dct_pvt.dctv_rec_type;
912 ddindx binary_integer; indx binary_integer;
913 begin
914
915 -- copy data to the local IN or IN-OUT args, if any
916
917
918
919
920
921 ddp_dctv_rec.id := rosetta_g_miss_num_map(p5_a0);
922 ddp_dctv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
923 ddp_dctv_rec.rmr_id := rosetta_g_miss_num_map(p5_a2);
924 ddp_dctv_rec.ico_id := rosetta_g_miss_num_map(p5_a3);
925 ddp_dctv_rec.iln_id := rosetta_g_miss_num_map(p5_a4);
926 ddp_dctv_rec.date_effective_from := rosetta_g_miss_date_in_map(p5_a5);
927 ddp_dctv_rec.date_effective_to := rosetta_g_miss_date_in_map(p5_a6);
928 ddp_dctv_rec.org_id := rosetta_g_miss_num_map(p5_a7);
929 ddp_dctv_rec.created_by := rosetta_g_miss_num_map(p5_a8);
930 ddp_dctv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a9);
931 ddp_dctv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a10);
932 ddp_dctv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a11);
933 ddp_dctv_rec.last_update_login := rosetta_g_miss_num_map(p5_a12);
934
935 -- here's the delegated call to the old PL/SQL routine
936 okl_dct_pvt.validate_row(p_api_version,
937 p_init_msg_list,
938 x_return_status,
939 x_msg_count,
940 x_msg_data,
941 ddp_dctv_rec);
942
943 -- copy data back from the local variables to OUT or IN-OUT args, if any
944
945
946
947
948
949 end;
950
951 procedure validate_row(p_api_version NUMBER
952 , p_init_msg_list VARCHAR2
953 , x_return_status out nocopy VARCHAR2
954 , x_msg_count out nocopy NUMBER
955 , x_msg_data out nocopy VARCHAR2
956 , p5_a0 JTF_NUMBER_TABLE
957 , p5_a1 JTF_NUMBER_TABLE
958 , p5_a2 JTF_NUMBER_TABLE
959 , p5_a3 JTF_NUMBER_TABLE
960 , p5_a4 JTF_NUMBER_TABLE
961 , p5_a5 JTF_DATE_TABLE
962 , p5_a6 JTF_DATE_TABLE
963 , p5_a7 JTF_NUMBER_TABLE
964 , p5_a8 JTF_NUMBER_TABLE
965 , p5_a9 JTF_DATE_TABLE
966 , p5_a10 JTF_NUMBER_TABLE
967 , p5_a11 JTF_DATE_TABLE
968 , p5_a12 JTF_NUMBER_TABLE
969 )
970
971 as
972 ddp_dctv_tbl okl_dct_pvt.dctv_tbl_type;
973 ddindx binary_integer; indx binary_integer;
974 begin
975
976 -- copy data to the local IN or IN-OUT args, if any
977
978
979
980
981
982 okl_dct_pvt_w.rosetta_table_copy_in_p5(ddp_dctv_tbl, p5_a0
983 , p5_a1
984 , p5_a2
985 , p5_a3
986 , p5_a4
987 , p5_a5
988 , p5_a6
989 , p5_a7
990 , p5_a8
991 , p5_a9
992 , p5_a10
993 , p5_a11
994 , p5_a12
995 );
996
997 -- here's the delegated call to the old PL/SQL routine
998 okl_dct_pvt.validate_row(p_api_version,
999 p_init_msg_list,
1000 x_return_status,
1001 x_msg_count,
1002 x_msg_data,
1003 ddp_dctv_tbl);
1004
1005 -- copy data back from the local variables to OUT or IN-OUT args, if any
1006
1007
1008
1009
1010
1011 end;
1012
1013 end okl_dct_pvt_w;