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