[Home] [Help]
PACKAGE BODY: APPS.OZF_REASON_PVT_W
Source
1 package body ozf_reason_pvt_w as
2 /* $Header: ozfwreab.pls 120.3 2006/05/17 01:16:17 sshivali ship $ */
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 procedure rosetta_table_copy_in_p3(t out nocopy ozf_reason_pvt.action_tbl_type, a0 JTF_NUMBER_TABLE
17 , a1 JTF_NUMBER_TABLE
18 , a2 JTF_NUMBER_TABLE
19 , a3 JTF_NUMBER_TABLE
20 , a4 JTF_VARCHAR2_TABLE_100
21 , a5 JTF_VARCHAR2_TABLE_100
22 ) as
23 ddindx binary_integer; indx binary_integer;
24 begin
25 if a0 is not null and a0.count=0 then
26 t := ozf_reason_pvt.action_tbl_type();
27 elsif a0 is not null and a0.count > 0 then
28 if a0.count > 0 then
29 t := ozf_reason_pvt.action_tbl_type();
30 t.extend(a0.count);
31 indx := a0.first;
32 ddindx := 1;
33 while true loop
34 t(ddindx).reason_type_id := a0(indx);
35 t(ddindx).object_version_number := a1(indx);
36 t(ddindx).reason_code_id := a2(indx);
37 t(ddindx).task_template_group_id := a3(indx);
38 t(ddindx).active_flag := a4(indx);
39 t(ddindx).default_flag := a5(indx);
40 ddindx := ddindx+1;
41 if a0.last =indx
42 then exit;
43 end if;
44 indx := a0.next(indx);
45 end loop;
46 end if;
47 end if;
48 end rosetta_table_copy_in_p3;
49 procedure rosetta_table_copy_out_p3(t ozf_reason_pvt.action_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
50 , a1 out nocopy JTF_NUMBER_TABLE
51 , a2 out nocopy JTF_NUMBER_TABLE
52 , a3 out nocopy JTF_NUMBER_TABLE
53 , a4 out nocopy JTF_VARCHAR2_TABLE_100
54 , a5 out nocopy JTF_VARCHAR2_TABLE_100
55 ) as
56 ddindx binary_integer; indx binary_integer;
57 begin
58 if t is null then
59 a0 := null;
60 a1 := null;
61 a2 := null;
62 a3 := null;
63 a4 := null;
64 a5 := null;
65 elsif t.count = 0 then
66 a0 := JTF_NUMBER_TABLE();
67 a1 := JTF_NUMBER_TABLE();
68 a2 := JTF_NUMBER_TABLE();
69 a3 := JTF_NUMBER_TABLE();
70 a4 := JTF_VARCHAR2_TABLE_100();
71 a5 := JTF_VARCHAR2_TABLE_100();
72 else
73 a0 := JTF_NUMBER_TABLE();
74 a1 := JTF_NUMBER_TABLE();
75 a2 := JTF_NUMBER_TABLE();
76 a3 := JTF_NUMBER_TABLE();
77 a4 := JTF_VARCHAR2_TABLE_100();
78 a5 := JTF_VARCHAR2_TABLE_100();
79 if t.count > 0 then
80 a0.extend(t.count);
81 a1.extend(t.count);
82 a2.extend(t.count);
83 a3.extend(t.count);
84 a4.extend(t.count);
85 a5.extend(t.count);
86 ddindx := t.first;
87 indx := 1;
88 while true loop
89 a0(indx) := t(ddindx).reason_type_id;
90 a1(indx) := t(ddindx).object_version_number;
91 a2(indx) := t(ddindx).reason_code_id;
92 a3(indx) := t(ddindx).task_template_group_id;
93 a4(indx) := t(ddindx).active_flag;
94 a5(indx) := t(ddindx).default_flag;
95 indx := indx+1;
96 if t.last =ddindx
97 then exit;
98 end if;
99 ddindx := t.next(ddindx);
100 end loop;
101 end if;
102 end if;
103 end rosetta_table_copy_out_p3;
104
105 procedure rosetta_table_copy_in_p7(t out nocopy ozf_reason_pvt.reason_tbl_type, a0 JTF_NUMBER_TABLE
106 , a1 JTF_NUMBER_TABLE
107 , a2 JTF_DATE_TABLE
108 , a3 JTF_NUMBER_TABLE
109 , a4 JTF_DATE_TABLE
110 , a5 JTF_NUMBER_TABLE
111 , a6 JTF_NUMBER_TABLE
112 , a7 JTF_VARCHAR2_TABLE_100
113 , a8 JTF_DATE_TABLE
114 , a9 JTF_DATE_TABLE
115 , a10 JTF_VARCHAR2_TABLE_100
116 , a11 JTF_VARCHAR2_TABLE_200
117 , a12 JTF_VARCHAR2_TABLE_200
118 , a13 JTF_VARCHAR2_TABLE_200
119 , a14 JTF_VARCHAR2_TABLE_200
120 , a15 JTF_VARCHAR2_TABLE_200
121 , a16 JTF_VARCHAR2_TABLE_200
122 , a17 JTF_VARCHAR2_TABLE_200
123 , a18 JTF_VARCHAR2_TABLE_200
124 , a19 JTF_VARCHAR2_TABLE_200
125 , a20 JTF_VARCHAR2_TABLE_200
126 , a21 JTF_VARCHAR2_TABLE_200
127 , a22 JTF_VARCHAR2_TABLE_200
128 , a23 JTF_VARCHAR2_TABLE_200
129 , a24 JTF_VARCHAR2_TABLE_200
130 , a25 JTF_VARCHAR2_TABLE_200
131 , a26 JTF_VARCHAR2_TABLE_100
132 , a27 JTF_VARCHAR2_TABLE_2000
133 , a28 JTF_NUMBER_TABLE
134 , a29 JTF_VARCHAR2_TABLE_100
135 , a30 JTF_VARCHAR2_TABLE_100
136 , a31 JTF_VARCHAR2_TABLE_100
137 , a32 JTF_NUMBER_TABLE
138 , a33 JTF_VARCHAR2_TABLE_100
139 ) as
140 ddindx binary_integer; indx binary_integer;
141 begin
142 if a0 is not null and a0.count=0 then
143 t := ozf_reason_pvt.reason_tbl_type();
144 elsif a0 is not null and a0.count > 0 then
145 if a0.count > 0 then
146 t := ozf_reason_pvt.reason_tbl_type();
147 t.extend(a0.count);
148 indx := a0.first;
149 ddindx := 1;
150 while true loop
151 t(ddindx).reason_code_id := a0(indx);
152 t(ddindx).object_version_number := a1(indx);
153 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a2(indx));
154 t(ddindx).last_updated_by := a3(indx);
155 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a4(indx));
156 t(ddindx).created_by := a5(indx);
157 t(ddindx).last_update_login := a6(indx);
158 t(ddindx).reason_code := a7(indx);
159 t(ddindx).start_date_active := rosetta_g_miss_date_in_map(a8(indx));
160 t(ddindx).end_date_active := rosetta_g_miss_date_in_map(a9(indx));
161 t(ddindx).attribute_category := a10(indx);
162 t(ddindx).attribute1 := a11(indx);
163 t(ddindx).attribute2 := a12(indx);
164 t(ddindx).attribute3 := a13(indx);
165 t(ddindx).attribute4 := a14(indx);
166 t(ddindx).attribute5 := a15(indx);
167 t(ddindx).attribute6 := a16(indx);
168 t(ddindx).attribute7 := a17(indx);
169 t(ddindx).attribute8 := a18(indx);
170 t(ddindx).attribute9 := a19(indx);
171 t(ddindx).attribute10 := a20(indx);
172 t(ddindx).attribute11 := a21(indx);
173 t(ddindx).attribute12 := a22(indx);
174 t(ddindx).attribute13 := a23(indx);
175 t(ddindx).attribute14 := a24(indx);
176 t(ddindx).attribute15 := a25(indx);
177 t(ddindx).name := a26(indx);
178 t(ddindx).description := a27(indx);
179 t(ddindx).org_id := a28(indx);
180 t(ddindx).reason_type := a29(indx);
181 t(ddindx).adjustment_reason_code := a30(indx);
182 t(ddindx).invoicing_reason_code := a31(indx);
183 t(ddindx).order_type_id := a32(indx);
184 t(ddindx).partner_access_flag := a33(indx);
185 ddindx := ddindx+1;
186 if a0.last =indx
187 then exit;
188 end if;
189 indx := a0.next(indx);
190 end loop;
191 end if;
192 end if;
193 end rosetta_table_copy_in_p7;
194 procedure rosetta_table_copy_out_p7(t ozf_reason_pvt.reason_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
195 , a1 out nocopy JTF_NUMBER_TABLE
196 , a2 out nocopy JTF_DATE_TABLE
197 , a3 out nocopy JTF_NUMBER_TABLE
198 , a4 out nocopy JTF_DATE_TABLE
199 , a5 out nocopy JTF_NUMBER_TABLE
200 , a6 out nocopy JTF_NUMBER_TABLE
201 , a7 out nocopy JTF_VARCHAR2_TABLE_100
202 , a8 out nocopy JTF_DATE_TABLE
203 , a9 out nocopy JTF_DATE_TABLE
204 , a10 out nocopy JTF_VARCHAR2_TABLE_100
205 , a11 out nocopy JTF_VARCHAR2_TABLE_200
206 , a12 out nocopy JTF_VARCHAR2_TABLE_200
207 , a13 out nocopy JTF_VARCHAR2_TABLE_200
208 , a14 out nocopy JTF_VARCHAR2_TABLE_200
209 , a15 out nocopy JTF_VARCHAR2_TABLE_200
210 , a16 out nocopy JTF_VARCHAR2_TABLE_200
211 , a17 out nocopy JTF_VARCHAR2_TABLE_200
212 , a18 out nocopy JTF_VARCHAR2_TABLE_200
213 , a19 out nocopy JTF_VARCHAR2_TABLE_200
214 , a20 out nocopy JTF_VARCHAR2_TABLE_200
215 , a21 out nocopy JTF_VARCHAR2_TABLE_200
216 , a22 out nocopy JTF_VARCHAR2_TABLE_200
217 , a23 out nocopy JTF_VARCHAR2_TABLE_200
218 , a24 out nocopy JTF_VARCHAR2_TABLE_200
219 , a25 out nocopy JTF_VARCHAR2_TABLE_200
220 , a26 out nocopy JTF_VARCHAR2_TABLE_100
221 , a27 out nocopy JTF_VARCHAR2_TABLE_2000
222 , a28 out nocopy JTF_NUMBER_TABLE
223 , a29 out nocopy JTF_VARCHAR2_TABLE_100
224 , a30 out nocopy JTF_VARCHAR2_TABLE_100
225 , a31 out nocopy JTF_VARCHAR2_TABLE_100
226 , a32 out nocopy JTF_NUMBER_TABLE
227 , a33 out nocopy JTF_VARCHAR2_TABLE_100
228 ) as
229 ddindx binary_integer; indx binary_integer;
230 begin
231 if t is null then
232 a0 := null;
233 a1 := null;
234 a2 := null;
235 a3 := null;
236 a4 := null;
237 a5 := null;
238 a6 := null;
239 a7 := null;
240 a8 := null;
241 a9 := null;
242 a10 := null;
243 a11 := null;
244 a12 := null;
245 a13 := null;
246 a14 := null;
247 a15 := null;
248 a16 := null;
249 a17 := null;
250 a18 := null;
251 a19 := null;
252 a20 := null;
253 a21 := null;
254 a22 := null;
255 a23 := null;
256 a24 := null;
257 a25 := null;
258 a26 := null;
259 a27 := null;
260 a28 := null;
261 a29 := null;
262 a30 := null;
263 a31 := null;
264 a32 := null;
265 a33 := null;
266 elsif t.count = 0 then
267 a0 := JTF_NUMBER_TABLE();
268 a1 := JTF_NUMBER_TABLE();
269 a2 := JTF_DATE_TABLE();
270 a3 := JTF_NUMBER_TABLE();
271 a4 := JTF_DATE_TABLE();
272 a5 := JTF_NUMBER_TABLE();
273 a6 := JTF_NUMBER_TABLE();
274 a7 := JTF_VARCHAR2_TABLE_100();
275 a8 := JTF_DATE_TABLE();
276 a9 := JTF_DATE_TABLE();
277 a10 := JTF_VARCHAR2_TABLE_100();
278 a11 := JTF_VARCHAR2_TABLE_200();
279 a12 := JTF_VARCHAR2_TABLE_200();
280 a13 := JTF_VARCHAR2_TABLE_200();
281 a14 := JTF_VARCHAR2_TABLE_200();
282 a15 := JTF_VARCHAR2_TABLE_200();
283 a16 := JTF_VARCHAR2_TABLE_200();
284 a17 := JTF_VARCHAR2_TABLE_200();
285 a18 := JTF_VARCHAR2_TABLE_200();
286 a19 := JTF_VARCHAR2_TABLE_200();
287 a20 := JTF_VARCHAR2_TABLE_200();
288 a21 := JTF_VARCHAR2_TABLE_200();
289 a22 := JTF_VARCHAR2_TABLE_200();
290 a23 := JTF_VARCHAR2_TABLE_200();
291 a24 := JTF_VARCHAR2_TABLE_200();
292 a25 := JTF_VARCHAR2_TABLE_200();
293 a26 := JTF_VARCHAR2_TABLE_100();
294 a27 := JTF_VARCHAR2_TABLE_2000();
295 a28 := JTF_NUMBER_TABLE();
296 a29 := JTF_VARCHAR2_TABLE_100();
297 a30 := JTF_VARCHAR2_TABLE_100();
298 a31 := JTF_VARCHAR2_TABLE_100();
299 a32 := JTF_NUMBER_TABLE();
300 a33 := JTF_VARCHAR2_TABLE_100();
301 else
302 a0 := JTF_NUMBER_TABLE();
303 a1 := JTF_NUMBER_TABLE();
304 a2 := JTF_DATE_TABLE();
305 a3 := JTF_NUMBER_TABLE();
306 a4 := JTF_DATE_TABLE();
307 a5 := JTF_NUMBER_TABLE();
308 a6 := JTF_NUMBER_TABLE();
309 a7 := JTF_VARCHAR2_TABLE_100();
310 a8 := JTF_DATE_TABLE();
311 a9 := JTF_DATE_TABLE();
312 a10 := JTF_VARCHAR2_TABLE_100();
313 a11 := JTF_VARCHAR2_TABLE_200();
314 a12 := JTF_VARCHAR2_TABLE_200();
315 a13 := JTF_VARCHAR2_TABLE_200();
316 a14 := JTF_VARCHAR2_TABLE_200();
317 a15 := JTF_VARCHAR2_TABLE_200();
318 a16 := JTF_VARCHAR2_TABLE_200();
319 a17 := JTF_VARCHAR2_TABLE_200();
320 a18 := JTF_VARCHAR2_TABLE_200();
321 a19 := JTF_VARCHAR2_TABLE_200();
322 a20 := JTF_VARCHAR2_TABLE_200();
323 a21 := JTF_VARCHAR2_TABLE_200();
324 a22 := JTF_VARCHAR2_TABLE_200();
325 a23 := JTF_VARCHAR2_TABLE_200();
326 a24 := JTF_VARCHAR2_TABLE_200();
327 a25 := JTF_VARCHAR2_TABLE_200();
328 a26 := JTF_VARCHAR2_TABLE_100();
329 a27 := JTF_VARCHAR2_TABLE_2000();
330 a28 := JTF_NUMBER_TABLE();
331 a29 := JTF_VARCHAR2_TABLE_100();
332 a30 := JTF_VARCHAR2_TABLE_100();
333 a31 := JTF_VARCHAR2_TABLE_100();
334 a32 := JTF_NUMBER_TABLE();
335 a33 := JTF_VARCHAR2_TABLE_100();
336 if t.count > 0 then
337 a0.extend(t.count);
338 a1.extend(t.count);
339 a2.extend(t.count);
340 a3.extend(t.count);
341 a4.extend(t.count);
342 a5.extend(t.count);
343 a6.extend(t.count);
344 a7.extend(t.count);
345 a8.extend(t.count);
346 a9.extend(t.count);
347 a10.extend(t.count);
348 a11.extend(t.count);
349 a12.extend(t.count);
350 a13.extend(t.count);
351 a14.extend(t.count);
352 a15.extend(t.count);
353 a16.extend(t.count);
354 a17.extend(t.count);
355 a18.extend(t.count);
356 a19.extend(t.count);
357 a20.extend(t.count);
358 a21.extend(t.count);
359 a22.extend(t.count);
360 a23.extend(t.count);
361 a24.extend(t.count);
362 a25.extend(t.count);
363 a26.extend(t.count);
364 a27.extend(t.count);
365 a28.extend(t.count);
366 a29.extend(t.count);
367 a30.extend(t.count);
368 a31.extend(t.count);
369 a32.extend(t.count);
370 a33.extend(t.count);
371 ddindx := t.first;
372 indx := 1;
373 while true loop
374 a0(indx) := t(ddindx).reason_code_id;
375 a1(indx) := t(ddindx).object_version_number;
376 a2(indx) := t(ddindx).last_update_date;
377 a3(indx) := t(ddindx).last_updated_by;
378 a4(indx) := t(ddindx).creation_date;
379 a5(indx) := t(ddindx).created_by;
380 a6(indx) := t(ddindx).last_update_login;
381 a7(indx) := t(ddindx).reason_code;
382 a8(indx) := t(ddindx).start_date_active;
383 a9(indx) := t(ddindx).end_date_active;
384 a10(indx) := t(ddindx).attribute_category;
385 a11(indx) := t(ddindx).attribute1;
386 a12(indx) := t(ddindx).attribute2;
387 a13(indx) := t(ddindx).attribute3;
388 a14(indx) := t(ddindx).attribute4;
389 a15(indx) := t(ddindx).attribute5;
390 a16(indx) := t(ddindx).attribute6;
391 a17(indx) := t(ddindx).attribute7;
392 a18(indx) := t(ddindx).attribute8;
393 a19(indx) := t(ddindx).attribute9;
394 a20(indx) := t(ddindx).attribute10;
395 a21(indx) := t(ddindx).attribute11;
396 a22(indx) := t(ddindx).attribute12;
397 a23(indx) := t(ddindx).attribute13;
398 a24(indx) := t(ddindx).attribute14;
399 a25(indx) := t(ddindx).attribute15;
400 a26(indx) := t(ddindx).name;
401 a27(indx) := t(ddindx).description;
402 a28(indx) := t(ddindx).org_id;
403 a29(indx) := t(ddindx).reason_type;
404 a30(indx) := t(ddindx).adjustment_reason_code;
405 a31(indx) := t(ddindx).invoicing_reason_code;
406 a32(indx) := t(ddindx).order_type_id;
407 a33(indx) := t(ddindx).partner_access_flag;
408 indx := indx+1;
409 if t.last =ddindx
410 then exit;
411 end if;
412 ddindx := t.next(ddindx);
413 end loop;
414 end if;
415 end if;
416 end rosetta_table_copy_out_p7;
417
418 procedure create_reason(p_api_version_number NUMBER
419 , p_init_msg_list VARCHAR2
420 , p_commit VARCHAR2
421 , p_validation_level NUMBER
422 , x_return_status out nocopy VARCHAR2
423 , x_msg_count out nocopy NUMBER
424 , x_msg_data out nocopy VARCHAR2
425 , p7_a0 NUMBER
426 , p7_a1 NUMBER
427 , p7_a2 DATE
428 , p7_a3 NUMBER
429 , p7_a4 DATE
430 , p7_a5 NUMBER
431 , p7_a6 NUMBER
432 , p7_a7 VARCHAR2
433 , p7_a8 DATE
434 , p7_a9 DATE
435 , p7_a10 VARCHAR2
436 , p7_a11 VARCHAR2
437 , p7_a12 VARCHAR2
438 , p7_a13 VARCHAR2
439 , p7_a14 VARCHAR2
440 , p7_a15 VARCHAR2
441 , p7_a16 VARCHAR2
442 , p7_a17 VARCHAR2
443 , p7_a18 VARCHAR2
444 , p7_a19 VARCHAR2
445 , p7_a20 VARCHAR2
446 , p7_a21 VARCHAR2
447 , p7_a22 VARCHAR2
448 , p7_a23 VARCHAR2
449 , p7_a24 VARCHAR2
450 , p7_a25 VARCHAR2
451 , p7_a26 VARCHAR2
452 , p7_a27 VARCHAR2
453 , p7_a28 NUMBER
454 , p7_a29 VARCHAR2
455 , p7_a30 VARCHAR2
456 , p7_a31 VARCHAR2
457 , p7_a32 NUMBER
458 , p7_a33 VARCHAR2
459 , x_reason_code_id out nocopy NUMBER
460 )
461
462 as
463 ddp_reason_rec ozf_reason_pvt.reason_rec_type;
464 ddindx binary_integer; indx binary_integer;
465 begin
466
467 -- copy data to the local IN or IN-OUT args, if any
468
469
470
471
472
473
474
475 ddp_reason_rec.reason_code_id := p7_a0;
476 ddp_reason_rec.object_version_number := p7_a1;
477 ddp_reason_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a2);
478 ddp_reason_rec.last_updated_by := p7_a3;
479 ddp_reason_rec.creation_date := rosetta_g_miss_date_in_map(p7_a4);
480 ddp_reason_rec.created_by := p7_a5;
481 ddp_reason_rec.last_update_login := p7_a6;
482 ddp_reason_rec.reason_code := p7_a7;
483 ddp_reason_rec.start_date_active := rosetta_g_miss_date_in_map(p7_a8);
484 ddp_reason_rec.end_date_active := rosetta_g_miss_date_in_map(p7_a9);
485 ddp_reason_rec.attribute_category := p7_a10;
486 ddp_reason_rec.attribute1 := p7_a11;
487 ddp_reason_rec.attribute2 := p7_a12;
488 ddp_reason_rec.attribute3 := p7_a13;
489 ddp_reason_rec.attribute4 := p7_a14;
490 ddp_reason_rec.attribute5 := p7_a15;
491 ddp_reason_rec.attribute6 := p7_a16;
492 ddp_reason_rec.attribute7 := p7_a17;
493 ddp_reason_rec.attribute8 := p7_a18;
494 ddp_reason_rec.attribute9 := p7_a19;
495 ddp_reason_rec.attribute10 := p7_a20;
496 ddp_reason_rec.attribute11 := p7_a21;
497 ddp_reason_rec.attribute12 := p7_a22;
498 ddp_reason_rec.attribute13 := p7_a23;
499 ddp_reason_rec.attribute14 := p7_a24;
500 ddp_reason_rec.attribute15 := p7_a25;
501 ddp_reason_rec.name := p7_a26;
502 ddp_reason_rec.description := p7_a27;
503 ddp_reason_rec.org_id := p7_a28;
504 ddp_reason_rec.reason_type := p7_a29;
505 ddp_reason_rec.adjustment_reason_code := p7_a30;
506 ddp_reason_rec.invoicing_reason_code := p7_a31;
507 ddp_reason_rec.order_type_id := p7_a32;
508 ddp_reason_rec.partner_access_flag := p7_a33;
509
510
511 -- here's the delegated call to the old PL/SQL routine
512 ozf_reason_pvt.create_reason(p_api_version_number,
513 p_init_msg_list,
514 p_commit,
515 p_validation_level,
516 x_return_status,
517 x_msg_count,
518 x_msg_data,
519 ddp_reason_rec,
520 x_reason_code_id);
521
522 -- copy data back from the local variables to OUT or IN-OUT args, if any
523
524
525
526
527
528
529
530
531 end;
532
533 procedure update_reason(p_api_version_number NUMBER
534 , p_init_msg_list VARCHAR2
535 , p_commit VARCHAR2
536 , p_validation_level NUMBER
537 , x_return_status out nocopy VARCHAR2
538 , x_msg_count out nocopy NUMBER
539 , x_msg_data out nocopy VARCHAR2
540 , p7_a0 NUMBER
541 , p7_a1 NUMBER
542 , p7_a2 DATE
543 , p7_a3 NUMBER
544 , p7_a4 DATE
545 , p7_a5 NUMBER
546 , p7_a6 NUMBER
547 , p7_a7 VARCHAR2
548 , p7_a8 DATE
549 , p7_a9 DATE
550 , p7_a10 VARCHAR2
551 , p7_a11 VARCHAR2
552 , p7_a12 VARCHAR2
553 , p7_a13 VARCHAR2
554 , p7_a14 VARCHAR2
555 , p7_a15 VARCHAR2
556 , p7_a16 VARCHAR2
557 , p7_a17 VARCHAR2
558 , p7_a18 VARCHAR2
559 , p7_a19 VARCHAR2
560 , p7_a20 VARCHAR2
561 , p7_a21 VARCHAR2
562 , p7_a22 VARCHAR2
563 , p7_a23 VARCHAR2
564 , p7_a24 VARCHAR2
565 , p7_a25 VARCHAR2
566 , p7_a26 VARCHAR2
567 , p7_a27 VARCHAR2
568 , p7_a28 NUMBER
569 , p7_a29 VARCHAR2
570 , p7_a30 VARCHAR2
571 , p7_a31 VARCHAR2
572 , p7_a32 NUMBER
573 , p7_a33 VARCHAR2
574 , x_object_version_number out nocopy NUMBER
575 )
576
577 as
578 ddp_reason_rec ozf_reason_pvt.reason_rec_type;
579 ddindx binary_integer; indx binary_integer;
580 begin
581
582 -- copy data to the local IN or IN-OUT args, if any
583
584
585
586
587
588
589
590 ddp_reason_rec.reason_code_id := p7_a0;
591 ddp_reason_rec.object_version_number := p7_a1;
592 ddp_reason_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a2);
593 ddp_reason_rec.last_updated_by := p7_a3;
594 ddp_reason_rec.creation_date := rosetta_g_miss_date_in_map(p7_a4);
595 ddp_reason_rec.created_by := p7_a5;
596 ddp_reason_rec.last_update_login := p7_a6;
597 ddp_reason_rec.reason_code := p7_a7;
598 ddp_reason_rec.start_date_active := rosetta_g_miss_date_in_map(p7_a8);
599 ddp_reason_rec.end_date_active := rosetta_g_miss_date_in_map(p7_a9);
600 ddp_reason_rec.attribute_category := p7_a10;
601 ddp_reason_rec.attribute1 := p7_a11;
602 ddp_reason_rec.attribute2 := p7_a12;
603 ddp_reason_rec.attribute3 := p7_a13;
604 ddp_reason_rec.attribute4 := p7_a14;
605 ddp_reason_rec.attribute5 := p7_a15;
606 ddp_reason_rec.attribute6 := p7_a16;
607 ddp_reason_rec.attribute7 := p7_a17;
608 ddp_reason_rec.attribute8 := p7_a18;
609 ddp_reason_rec.attribute9 := p7_a19;
610 ddp_reason_rec.attribute10 := p7_a20;
611 ddp_reason_rec.attribute11 := p7_a21;
612 ddp_reason_rec.attribute12 := p7_a22;
613 ddp_reason_rec.attribute13 := p7_a23;
614 ddp_reason_rec.attribute14 := p7_a24;
615 ddp_reason_rec.attribute15 := p7_a25;
616 ddp_reason_rec.name := p7_a26;
617 ddp_reason_rec.description := p7_a27;
618 ddp_reason_rec.org_id := p7_a28;
619 ddp_reason_rec.reason_type := p7_a29;
620 ddp_reason_rec.adjustment_reason_code := p7_a30;
621 ddp_reason_rec.invoicing_reason_code := p7_a31;
622 ddp_reason_rec.order_type_id := p7_a32;
623 ddp_reason_rec.partner_access_flag := p7_a33;
624
625
626 -- here's the delegated call to the old PL/SQL routine
627 ozf_reason_pvt.update_reason(p_api_version_number,
628 p_init_msg_list,
629 p_commit,
630 p_validation_level,
631 x_return_status,
632 x_msg_count,
633 x_msg_data,
634 ddp_reason_rec,
635 x_object_version_number);
636
637 -- copy data back from the local variables to OUT or IN-OUT args, if any
638
639
640
641
642
643
644
645
646 end;
647
648 procedure update_actions(p_api_version_number NUMBER
649 , p_init_msg_list VARCHAR2
650 , p_commit VARCHAR2
651 , p_validation_level NUMBER
652 , x_return_status out nocopy VARCHAR2
653 , x_msg_count out nocopy NUMBER
654 , x_msg_data out nocopy VARCHAR2
655 , p7_a0 JTF_NUMBER_TABLE
656 , p7_a1 JTF_NUMBER_TABLE
657 , p7_a2 JTF_NUMBER_TABLE
658 , p7_a3 JTF_NUMBER_TABLE
659 , p7_a4 JTF_VARCHAR2_TABLE_100
660 , p7_a5 JTF_VARCHAR2_TABLE_100
661 )
662
663 as
664 ddp_action_tbl ozf_reason_pvt.action_tbl_type;
665 ddindx binary_integer; indx binary_integer;
666 begin
667
668 -- copy data to the local IN or IN-OUT args, if any
669
670
671
672
673
674
675
676 ozf_reason_pvt_w.rosetta_table_copy_in_p3(ddp_action_tbl, p7_a0
677 , p7_a1
678 , p7_a2
679 , p7_a3
680 , p7_a4
681 , p7_a5
682 );
683
684 -- here's the delegated call to the old PL/SQL routine
685 ozf_reason_pvt.update_actions(p_api_version_number,
686 p_init_msg_list,
687 p_commit,
688 p_validation_level,
689 x_return_status,
690 x_msg_count,
691 x_msg_data,
692 ddp_action_tbl);
693
694 -- copy data back from the local variables to OUT or IN-OUT args, if any
695
696
697
698
699
700
701
702 end;
703
704 procedure check_unique_action(p0_a0 NUMBER
705 , p0_a1 NUMBER
706 , p0_a2 NUMBER
707 , p0_a3 NUMBER
708 , p0_a4 VARCHAR2
709 , p0_a5 VARCHAR2
710 , p_validation_mode VARCHAR2
711 , x_return_status out nocopy VARCHAR2
712 )
713
714 as
715 ddp_action_rec ozf_reason_pvt.action_rec_type;
716 ddindx binary_integer; indx binary_integer;
717 begin
718
719 -- copy data to the local IN or IN-OUT args, if any
720 ddp_action_rec.reason_type_id := p0_a0;
721 ddp_action_rec.object_version_number := p0_a1;
722 ddp_action_rec.reason_code_id := p0_a2;
723 ddp_action_rec.task_template_group_id := p0_a3;
724 ddp_action_rec.active_flag := p0_a4;
725 ddp_action_rec.default_flag := p0_a5;
726
727
728
729 -- here's the delegated call to the old PL/SQL routine
730 ozf_reason_pvt.check_unique_action(ddp_action_rec,
731 p_validation_mode,
732 x_return_status);
733
734 -- copy data back from the local variables to OUT or IN-OUT args, if any
735
736
737 end;
738
739 procedure validate_reason_rec(p_api_version_number NUMBER
740 , p_init_msg_list VARCHAR2
741 , x_return_status out nocopy VARCHAR2
742 , x_msg_count out nocopy NUMBER
743 , x_msg_data out nocopy VARCHAR2
744 , p5_a0 NUMBER
745 , p5_a1 NUMBER
746 , p5_a2 DATE
747 , p5_a3 NUMBER
748 , p5_a4 DATE
749 , p5_a5 NUMBER
750 , p5_a6 NUMBER
751 , p5_a7 VARCHAR2
752 , p5_a8 DATE
753 , p5_a9 DATE
754 , p5_a10 VARCHAR2
755 , p5_a11 VARCHAR2
756 , p5_a12 VARCHAR2
757 , p5_a13 VARCHAR2
758 , p5_a14 VARCHAR2
759 , p5_a15 VARCHAR2
760 , p5_a16 VARCHAR2
761 , p5_a17 VARCHAR2
762 , p5_a18 VARCHAR2
763 , p5_a19 VARCHAR2
764 , p5_a20 VARCHAR2
765 , p5_a21 VARCHAR2
766 , p5_a22 VARCHAR2
767 , p5_a23 VARCHAR2
768 , p5_a24 VARCHAR2
769 , p5_a25 VARCHAR2
770 , p5_a26 VARCHAR2
771 , p5_a27 VARCHAR2
772 , p5_a28 NUMBER
773 , p5_a29 VARCHAR2
774 , p5_a30 VARCHAR2
775 , p5_a31 VARCHAR2
776 , p5_a32 NUMBER
777 , p5_a33 VARCHAR2
778 )
779
780 as
781 ddp_reason_rec ozf_reason_pvt.reason_rec_type;
782 ddindx binary_integer; indx binary_integer;
783 begin
784
785 -- copy data to the local IN or IN-OUT args, if any
786
787
788
789
790
791 ddp_reason_rec.reason_code_id := p5_a0;
792 ddp_reason_rec.object_version_number := p5_a1;
793 ddp_reason_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a2);
794 ddp_reason_rec.last_updated_by := p5_a3;
795 ddp_reason_rec.creation_date := rosetta_g_miss_date_in_map(p5_a4);
796 ddp_reason_rec.created_by := p5_a5;
797 ddp_reason_rec.last_update_login := p5_a6;
798 ddp_reason_rec.reason_code := p5_a7;
799 ddp_reason_rec.start_date_active := rosetta_g_miss_date_in_map(p5_a8);
800 ddp_reason_rec.end_date_active := rosetta_g_miss_date_in_map(p5_a9);
801 ddp_reason_rec.attribute_category := p5_a10;
802 ddp_reason_rec.attribute1 := p5_a11;
803 ddp_reason_rec.attribute2 := p5_a12;
804 ddp_reason_rec.attribute3 := p5_a13;
805 ddp_reason_rec.attribute4 := p5_a14;
806 ddp_reason_rec.attribute5 := p5_a15;
807 ddp_reason_rec.attribute6 := p5_a16;
808 ddp_reason_rec.attribute7 := p5_a17;
809 ddp_reason_rec.attribute8 := p5_a18;
810 ddp_reason_rec.attribute9 := p5_a19;
811 ddp_reason_rec.attribute10 := p5_a20;
812 ddp_reason_rec.attribute11 := p5_a21;
813 ddp_reason_rec.attribute12 := p5_a22;
814 ddp_reason_rec.attribute13 := p5_a23;
815 ddp_reason_rec.attribute14 := p5_a24;
816 ddp_reason_rec.attribute15 := p5_a25;
817 ddp_reason_rec.name := p5_a26;
818 ddp_reason_rec.description := p5_a27;
819 ddp_reason_rec.org_id := p5_a28;
820 ddp_reason_rec.reason_type := p5_a29;
821 ddp_reason_rec.adjustment_reason_code := p5_a30;
822 ddp_reason_rec.invoicing_reason_code := p5_a31;
823 ddp_reason_rec.order_type_id := p5_a32;
824 ddp_reason_rec.partner_access_flag := p5_a33;
825
826 -- here's the delegated call to the old PL/SQL routine
827 ozf_reason_pvt.validate_reason_rec(p_api_version_number,
828 p_init_msg_list,
829 x_return_status,
830 x_msg_count,
831 x_msg_data,
832 ddp_reason_rec);
833
834 -- copy data back from the local variables to OUT or IN-OUT args, if any
835
836
837
838
839
840 end;
841
842 procedure validate_reason(p_api_version_number NUMBER
843 , p_init_msg_list VARCHAR2
844 , p_validation_level NUMBER
845 , p3_a0 NUMBER
846 , p3_a1 NUMBER
847 , p3_a2 DATE
848 , p3_a3 NUMBER
849 , p3_a4 DATE
850 , p3_a5 NUMBER
851 , p3_a6 NUMBER
852 , p3_a7 VARCHAR2
853 , p3_a8 DATE
854 , p3_a9 DATE
855 , p3_a10 VARCHAR2
856 , p3_a11 VARCHAR2
857 , p3_a12 VARCHAR2
858 , p3_a13 VARCHAR2
859 , p3_a14 VARCHAR2
860 , p3_a15 VARCHAR2
861 , p3_a16 VARCHAR2
862 , p3_a17 VARCHAR2
863 , p3_a18 VARCHAR2
864 , p3_a19 VARCHAR2
865 , p3_a20 VARCHAR2
866 , p3_a21 VARCHAR2
867 , p3_a22 VARCHAR2
868 , p3_a23 VARCHAR2
869 , p3_a24 VARCHAR2
870 , p3_a25 VARCHAR2
871 , p3_a26 VARCHAR2
872 , p3_a27 VARCHAR2
873 , p3_a28 NUMBER
874 , p3_a29 VARCHAR2
875 , p3_a30 VARCHAR2
876 , p3_a31 VARCHAR2
877 , p3_a32 NUMBER
878 , p3_a33 VARCHAR2
879 , x_return_status out nocopy VARCHAR2
880 , x_msg_count out nocopy NUMBER
881 , x_msg_data out nocopy VARCHAR2
882 )
883
884 as
885 ddp_reason_rec ozf_reason_pvt.reason_rec_type;
886 ddindx binary_integer; indx binary_integer;
887 begin
888
889 -- copy data to the local IN or IN-OUT args, if any
890
891
892
893 ddp_reason_rec.reason_code_id := p3_a0;
894 ddp_reason_rec.object_version_number := p3_a1;
895 ddp_reason_rec.last_update_date := rosetta_g_miss_date_in_map(p3_a2);
896 ddp_reason_rec.last_updated_by := p3_a3;
897 ddp_reason_rec.creation_date := rosetta_g_miss_date_in_map(p3_a4);
898 ddp_reason_rec.created_by := p3_a5;
899 ddp_reason_rec.last_update_login := p3_a6;
900 ddp_reason_rec.reason_code := p3_a7;
901 ddp_reason_rec.start_date_active := rosetta_g_miss_date_in_map(p3_a8);
902 ddp_reason_rec.end_date_active := rosetta_g_miss_date_in_map(p3_a9);
903 ddp_reason_rec.attribute_category := p3_a10;
904 ddp_reason_rec.attribute1 := p3_a11;
905 ddp_reason_rec.attribute2 := p3_a12;
906 ddp_reason_rec.attribute3 := p3_a13;
907 ddp_reason_rec.attribute4 := p3_a14;
908 ddp_reason_rec.attribute5 := p3_a15;
909 ddp_reason_rec.attribute6 := p3_a16;
910 ddp_reason_rec.attribute7 := p3_a17;
911 ddp_reason_rec.attribute8 := p3_a18;
912 ddp_reason_rec.attribute9 := p3_a19;
913 ddp_reason_rec.attribute10 := p3_a20;
914 ddp_reason_rec.attribute11 := p3_a21;
915 ddp_reason_rec.attribute12 := p3_a22;
916 ddp_reason_rec.attribute13 := p3_a23;
917 ddp_reason_rec.attribute14 := p3_a24;
918 ddp_reason_rec.attribute15 := p3_a25;
919 ddp_reason_rec.name := p3_a26;
920 ddp_reason_rec.description := p3_a27;
921 ddp_reason_rec.org_id := p3_a28;
922 ddp_reason_rec.reason_type := p3_a29;
923 ddp_reason_rec.adjustment_reason_code := p3_a30;
924 ddp_reason_rec.invoicing_reason_code := p3_a31;
925 ddp_reason_rec.order_type_id := p3_a32;
926 ddp_reason_rec.partner_access_flag := p3_a33;
927
928
929
930
931 -- here's the delegated call to the old PL/SQL routine
932 ozf_reason_pvt.validate_reason(p_api_version_number,
933 p_init_msg_list,
934 p_validation_level,
935 ddp_reason_rec,
936 x_return_status,
937 x_msg_count,
938 x_msg_data);
939
940 -- copy data back from the local variables to OUT or IN-OUT args, if any
941
942
943 end;
944
945 procedure complete_reason_rec(p0_a0 NUMBER
946 , p0_a1 NUMBER
947 , p0_a2 DATE
948 , p0_a3 NUMBER
949 , p0_a4 DATE
950 , p0_a5 NUMBER
951 , p0_a6 NUMBER
952 , p0_a7 VARCHAR2
953 , p0_a8 DATE
954 , p0_a9 DATE
955 , p0_a10 VARCHAR2
956 , p0_a11 VARCHAR2
957 , p0_a12 VARCHAR2
958 , p0_a13 VARCHAR2
959 , p0_a14 VARCHAR2
960 , p0_a15 VARCHAR2
961 , p0_a16 VARCHAR2
962 , p0_a17 VARCHAR2
963 , p0_a18 VARCHAR2
964 , p0_a19 VARCHAR2
965 , p0_a20 VARCHAR2
966 , p0_a21 VARCHAR2
967 , p0_a22 VARCHAR2
968 , p0_a23 VARCHAR2
969 , p0_a24 VARCHAR2
970 , p0_a25 VARCHAR2
971 , p0_a26 VARCHAR2
972 , p0_a27 VARCHAR2
973 , p0_a28 NUMBER
974 , p0_a29 VARCHAR2
975 , p0_a30 VARCHAR2
976 , p0_a31 VARCHAR2
977 , p0_a32 NUMBER
978 , p0_a33 VARCHAR2
979 , p1_a0 out nocopy NUMBER
980 , p1_a1 out nocopy NUMBER
981 , p1_a2 out nocopy DATE
982 , p1_a3 out nocopy NUMBER
983 , p1_a4 out nocopy DATE
984 , p1_a5 out nocopy NUMBER
985 , p1_a6 out nocopy NUMBER
986 , p1_a7 out nocopy VARCHAR2
987 , p1_a8 out nocopy DATE
988 , p1_a9 out nocopy DATE
989 , p1_a10 out nocopy VARCHAR2
990 , p1_a11 out nocopy VARCHAR2
991 , p1_a12 out nocopy VARCHAR2
992 , p1_a13 out nocopy VARCHAR2
993 , p1_a14 out nocopy VARCHAR2
994 , p1_a15 out nocopy VARCHAR2
995 , p1_a16 out nocopy VARCHAR2
996 , p1_a17 out nocopy VARCHAR2
997 , p1_a18 out nocopy VARCHAR2
998 , p1_a19 out nocopy VARCHAR2
999 , p1_a20 out nocopy VARCHAR2
1000 , p1_a21 out nocopy VARCHAR2
1001 , p1_a22 out nocopy VARCHAR2
1002 , p1_a23 out nocopy VARCHAR2
1003 , p1_a24 out nocopy VARCHAR2
1004 , p1_a25 out nocopy VARCHAR2
1005 , p1_a26 out nocopy VARCHAR2
1006 , p1_a27 out nocopy VARCHAR2
1007 , p1_a28 out nocopy NUMBER
1008 , p1_a29 out nocopy VARCHAR2
1009 , p1_a30 out nocopy VARCHAR2
1010 , p1_a31 out nocopy VARCHAR2
1011 , p1_a32 out nocopy NUMBER
1012 , p1_a33 out nocopy VARCHAR2
1013 , x_return_status out nocopy VARCHAR2
1014 )
1015
1016 as
1017 ddp_reason_rec ozf_reason_pvt.reason_rec_type;
1018 ddx_complete_rec ozf_reason_pvt.reason_rec_type;
1019 ddindx binary_integer; indx binary_integer;
1020 begin
1021
1022 -- copy data to the local IN or IN-OUT args, if any
1023 ddp_reason_rec.reason_code_id := p0_a0;
1024 ddp_reason_rec.object_version_number := p0_a1;
1025 ddp_reason_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a2);
1026 ddp_reason_rec.last_updated_by := p0_a3;
1027 ddp_reason_rec.creation_date := rosetta_g_miss_date_in_map(p0_a4);
1028 ddp_reason_rec.created_by := p0_a5;
1029 ddp_reason_rec.last_update_login := p0_a6;
1030 ddp_reason_rec.reason_code := p0_a7;
1031 ddp_reason_rec.start_date_active := rosetta_g_miss_date_in_map(p0_a8);
1032 ddp_reason_rec.end_date_active := rosetta_g_miss_date_in_map(p0_a9);
1033 ddp_reason_rec.attribute_category := p0_a10;
1034 ddp_reason_rec.attribute1 := p0_a11;
1035 ddp_reason_rec.attribute2 := p0_a12;
1036 ddp_reason_rec.attribute3 := p0_a13;
1037 ddp_reason_rec.attribute4 := p0_a14;
1038 ddp_reason_rec.attribute5 := p0_a15;
1039 ddp_reason_rec.attribute6 := p0_a16;
1040 ddp_reason_rec.attribute7 := p0_a17;
1041 ddp_reason_rec.attribute8 := p0_a18;
1042 ddp_reason_rec.attribute9 := p0_a19;
1043 ddp_reason_rec.attribute10 := p0_a20;
1044 ddp_reason_rec.attribute11 := p0_a21;
1045 ddp_reason_rec.attribute12 := p0_a22;
1046 ddp_reason_rec.attribute13 := p0_a23;
1047 ddp_reason_rec.attribute14 := p0_a24;
1048 ddp_reason_rec.attribute15 := p0_a25;
1049 ddp_reason_rec.name := p0_a26;
1050 ddp_reason_rec.description := p0_a27;
1051 ddp_reason_rec.org_id := p0_a28;
1052 ddp_reason_rec.reason_type := p0_a29;
1053 ddp_reason_rec.adjustment_reason_code := p0_a30;
1054 ddp_reason_rec.invoicing_reason_code := p0_a31;
1055 ddp_reason_rec.order_type_id := p0_a32;
1056 ddp_reason_rec.partner_access_flag := p0_a33;
1057
1058
1059
1060 -- here's the delegated call to the old PL/SQL routine
1061 ozf_reason_pvt.complete_reason_rec(ddp_reason_rec,
1062 ddx_complete_rec,
1063 x_return_status);
1064
1065 -- copy data back from the local variables to OUT or IN-OUT args, if any
1066
1067 p1_a0 := ddx_complete_rec.reason_code_id;
1068 p1_a1 := ddx_complete_rec.object_version_number;
1069 p1_a2 := ddx_complete_rec.last_update_date;
1070 p1_a3 := ddx_complete_rec.last_updated_by;
1071 p1_a4 := ddx_complete_rec.creation_date;
1072 p1_a5 := ddx_complete_rec.created_by;
1073 p1_a6 := ddx_complete_rec.last_update_login;
1074 p1_a7 := ddx_complete_rec.reason_code;
1075 p1_a8 := ddx_complete_rec.start_date_active;
1076 p1_a9 := ddx_complete_rec.end_date_active;
1077 p1_a10 := ddx_complete_rec.attribute_category;
1078 p1_a11 := ddx_complete_rec.attribute1;
1079 p1_a12 := ddx_complete_rec.attribute2;
1080 p1_a13 := ddx_complete_rec.attribute3;
1081 p1_a14 := ddx_complete_rec.attribute4;
1082 p1_a15 := ddx_complete_rec.attribute5;
1083 p1_a16 := ddx_complete_rec.attribute6;
1084 p1_a17 := ddx_complete_rec.attribute7;
1085 p1_a18 := ddx_complete_rec.attribute8;
1086 p1_a19 := ddx_complete_rec.attribute9;
1087 p1_a20 := ddx_complete_rec.attribute10;
1088 p1_a21 := ddx_complete_rec.attribute11;
1089 p1_a22 := ddx_complete_rec.attribute12;
1090 p1_a23 := ddx_complete_rec.attribute13;
1091 p1_a24 := ddx_complete_rec.attribute14;
1092 p1_a25 := ddx_complete_rec.attribute15;
1093 p1_a26 := ddx_complete_rec.name;
1094 p1_a27 := ddx_complete_rec.description;
1095 p1_a28 := ddx_complete_rec.org_id;
1096 p1_a29 := ddx_complete_rec.reason_type;
1097 p1_a30 := ddx_complete_rec.adjustment_reason_code;
1098 p1_a31 := ddx_complete_rec.invoicing_reason_code;
1099 p1_a32 := ddx_complete_rec.order_type_id;
1100 p1_a33 := ddx_complete_rec.partner_access_flag;
1101
1102 end;
1103
1104 end ozf_reason_pvt_w;