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