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