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