[Home] [Help]
PACKAGE BODY: APPS.OZF_CLAIM_TYPE_PVT_W
Source
1 package body ozf_claim_type_pvt_w as
2 /* $Header: ozfwclmb.pls 120.1 2006/05/17 01:15:48 sshivali 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 procedure create_claim_type(p_api_version NUMBER
17 , p_init_msg_list VARCHAR2
18 , p_commit VARCHAR2
19 , p_validation_level NUMBER
20 , x_return_status out nocopy VARCHAR2
21 , x_msg_count out nocopy NUMBER
22 , x_msg_data out nocopy VARCHAR2
23 , p7_a0 NUMBER
24 , p7_a1 NUMBER
25 , p7_a2 DATE
26 , p7_a3 NUMBER
27 , p7_a4 DATE
28 , p7_a5 NUMBER
29 , p7_a6 NUMBER
30 , p7_a7 NUMBER
31 , p7_a8 NUMBER
32 , p7_a9 DATE
33 , p7_a10 NUMBER
34 , p7_a11 VARCHAR2
35 , p7_a12 VARCHAR2
36 , p7_a13 NUMBER
37 , p7_a14 VARCHAR2
38 , p7_a15 DATE
39 , p7_a16 DATE
40 , p7_a17 VARCHAR2
41 , p7_a18 NUMBER
42 , p7_a19 NUMBER
43 , p7_a20 NUMBER
44 , p7_a21 NUMBER
45 , p7_a22 NUMBER
46 , p7_a23 NUMBER
47 , p7_a24 NUMBER
48 , p7_a25 NUMBER
49 , p7_a26 NUMBER
50 , p7_a27 NUMBER
51 , p7_a28 VARCHAR2
52 , p7_a29 VARCHAR2
53 , p7_a30 VARCHAR2
54 , p7_a31 VARCHAR2
55 , p7_a32 VARCHAR2
56 , p7_a33 VARCHAR2
57 , p7_a34 VARCHAR2
58 , p7_a35 VARCHAR2
59 , p7_a36 VARCHAR2
60 , p7_a37 VARCHAR2
61 , p7_a38 VARCHAR2
62 , p7_a39 VARCHAR2
63 , p7_a40 VARCHAR2
64 , p7_a41 VARCHAR2
65 , p7_a42 VARCHAR2
66 , p7_a43 VARCHAR2
67 , p7_a44 NUMBER
68 , p7_a45 VARCHAR2
69 , p7_a46 VARCHAR2
70 , p7_a47 VARCHAR2
71 , p7_a48 VARCHAR2
72 , p7_a49 VARCHAR2
73 , p7_a50 NUMBER
74 , p7_a51 NUMBER
75 , p7_a52 VARCHAR2
76 , x_claim_type_id out nocopy NUMBER
77 )
78
79 as
80 ddp_claim_rec ozf_claim_type_pvt.claim_rec_type;
81 ddindx binary_integer; indx binary_integer;
82 begin
83
84 -- copy data to the local IN or IN-OUT args, if any
85
86
87
88
89
90
91
92 ddp_claim_rec.claim_type_id := p7_a0;
93 ddp_claim_rec.object_version_number := p7_a1;
94 ddp_claim_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a2);
95 ddp_claim_rec.last_updated_by := p7_a3;
96 ddp_claim_rec.creation_date := rosetta_g_miss_date_in_map(p7_a4);
97 ddp_claim_rec.created_by := p7_a5;
98 ddp_claim_rec.last_update_login := p7_a6;
99 ddp_claim_rec.request_id := p7_a7;
100 ddp_claim_rec.program_application_id := p7_a8;
101 ddp_claim_rec.program_update_date := rosetta_g_miss_date_in_map(p7_a9);
102 ddp_claim_rec.program_id := p7_a10;
103 ddp_claim_rec.created_from := p7_a11;
104 ddp_claim_rec.claim_class := p7_a12;
105 ddp_claim_rec.set_of_books_id := p7_a13;
106 ddp_claim_rec.post_to_gl_flag := p7_a14;
107 ddp_claim_rec.start_date := rosetta_g_miss_date_in_map(p7_a15);
108 ddp_claim_rec.end_date := rosetta_g_miss_date_in_map(p7_a16);
109 ddp_claim_rec.creation_sign := p7_a17;
110 ddp_claim_rec.gl_id_ded_adj := p7_a18;
111 ddp_claim_rec.gl_id_ded_adj_clearing := p7_a19;
112 ddp_claim_rec.gl_id_ded_clearing := p7_a20;
113 ddp_claim_rec.gl_id_accr_promo_liab := p7_a21;
114 ddp_claim_rec.transaction_type := p7_a22;
115 ddp_claim_rec.cm_trx_type_id := p7_a23;
116 ddp_claim_rec.dm_trx_type_id := p7_a24;
117 ddp_claim_rec.cb_trx_type_id := p7_a25;
118 ddp_claim_rec.wo_rec_trx_id := p7_a26;
119 ddp_claim_rec.adj_rec_trx_id := p7_a27;
120 ddp_claim_rec.attribute_category := p7_a28;
121 ddp_claim_rec.attribute1 := p7_a29;
122 ddp_claim_rec.attribute2 := p7_a30;
123 ddp_claim_rec.attribute3 := p7_a31;
124 ddp_claim_rec.attribute4 := p7_a32;
125 ddp_claim_rec.attribute5 := p7_a33;
126 ddp_claim_rec.attribute6 := p7_a34;
127 ddp_claim_rec.attribute7 := p7_a35;
128 ddp_claim_rec.attribute8 := p7_a36;
129 ddp_claim_rec.attribute9 := p7_a37;
130 ddp_claim_rec.attribute10 := p7_a38;
131 ddp_claim_rec.attribute11 := p7_a39;
132 ddp_claim_rec.attribute12 := p7_a40;
133 ddp_claim_rec.attribute13 := p7_a41;
134 ddp_claim_rec.attribute14 := p7_a42;
135 ddp_claim_rec.attribute15 := p7_a43;
136 ddp_claim_rec.org_id := p7_a44;
137 ddp_claim_rec.name := p7_a45;
138 ddp_claim_rec.description := p7_a46;
139 ddp_claim_rec.language := p7_a47;
140 ddp_claim_rec.source_lang := p7_a48;
141 ddp_claim_rec.adjustment_type := p7_a49;
142 ddp_claim_rec.order_type_id := p7_a50;
143 ddp_claim_rec.neg_wo_rec_trx_id := p7_a51;
144 ddp_claim_rec.gl_balancing_flex_value := p7_a52;
145
146
147 -- here's the delegated call to the old PL/SQL routine
148 ozf_claim_type_pvt.create_claim_type(p_api_version,
149 p_init_msg_list,
150 p_commit,
151 p_validation_level,
152 x_return_status,
153 x_msg_count,
154 x_msg_data,
155 ddp_claim_rec,
156 x_claim_type_id);
157
158 -- copy data back from the local variables to OUT or IN-OUT args, if any
159
160
161
162
163
164
165
166
167 end;
168
169 procedure update_claim_type(p_api_version NUMBER
170 , p_init_msg_list VARCHAR2
171 , p_commit VARCHAR2
172 , p_validation_level NUMBER
173 , x_return_status out nocopy VARCHAR2
174 , x_msg_count out nocopy NUMBER
175 , x_msg_data out nocopy VARCHAR2
176 , p7_a0 NUMBER
177 , p7_a1 NUMBER
178 , p7_a2 DATE
179 , p7_a3 NUMBER
180 , p7_a4 DATE
181 , p7_a5 NUMBER
182 , p7_a6 NUMBER
183 , p7_a7 NUMBER
184 , p7_a8 NUMBER
185 , p7_a9 DATE
186 , p7_a10 NUMBER
187 , p7_a11 VARCHAR2
188 , p7_a12 VARCHAR2
189 , p7_a13 NUMBER
190 , p7_a14 VARCHAR2
191 , p7_a15 DATE
192 , p7_a16 DATE
193 , p7_a17 VARCHAR2
194 , p7_a18 NUMBER
195 , p7_a19 NUMBER
196 , p7_a20 NUMBER
197 , p7_a21 NUMBER
198 , p7_a22 NUMBER
199 , p7_a23 NUMBER
200 , p7_a24 NUMBER
201 , p7_a25 NUMBER
202 , p7_a26 NUMBER
203 , p7_a27 NUMBER
204 , p7_a28 VARCHAR2
205 , p7_a29 VARCHAR2
206 , p7_a30 VARCHAR2
207 , p7_a31 VARCHAR2
208 , p7_a32 VARCHAR2
209 , p7_a33 VARCHAR2
210 , p7_a34 VARCHAR2
211 , p7_a35 VARCHAR2
212 , p7_a36 VARCHAR2
213 , p7_a37 VARCHAR2
214 , p7_a38 VARCHAR2
215 , p7_a39 VARCHAR2
216 , p7_a40 VARCHAR2
217 , p7_a41 VARCHAR2
218 , p7_a42 VARCHAR2
219 , p7_a43 VARCHAR2
220 , p7_a44 NUMBER
221 , p7_a45 VARCHAR2
222 , p7_a46 VARCHAR2
223 , p7_a47 VARCHAR2
224 , p7_a48 VARCHAR2
225 , p7_a49 VARCHAR2
226 , p7_a50 NUMBER
227 , p7_a51 NUMBER
228 , p7_a52 VARCHAR2
229 , p_mode VARCHAR2
230 , x_object_version out nocopy NUMBER
231 )
232
233 as
234 ddp_claim_rec ozf_claim_type_pvt.claim_rec_type;
235 ddindx binary_integer; indx binary_integer;
236 begin
237
238 -- copy data to the local IN or IN-OUT args, if any
239
240
241
242
243
244
245
246 ddp_claim_rec.claim_type_id := p7_a0;
247 ddp_claim_rec.object_version_number := p7_a1;
248 ddp_claim_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a2);
249 ddp_claim_rec.last_updated_by := p7_a3;
250 ddp_claim_rec.creation_date := rosetta_g_miss_date_in_map(p7_a4);
251 ddp_claim_rec.created_by := p7_a5;
252 ddp_claim_rec.last_update_login := p7_a6;
253 ddp_claim_rec.request_id := p7_a7;
254 ddp_claim_rec.program_application_id := p7_a8;
255 ddp_claim_rec.program_update_date := rosetta_g_miss_date_in_map(p7_a9);
256 ddp_claim_rec.program_id := p7_a10;
257 ddp_claim_rec.created_from := p7_a11;
258 ddp_claim_rec.claim_class := p7_a12;
259 ddp_claim_rec.set_of_books_id := p7_a13;
260 ddp_claim_rec.post_to_gl_flag := p7_a14;
261 ddp_claim_rec.start_date := rosetta_g_miss_date_in_map(p7_a15);
262 ddp_claim_rec.end_date := rosetta_g_miss_date_in_map(p7_a16);
263 ddp_claim_rec.creation_sign := p7_a17;
264 ddp_claim_rec.gl_id_ded_adj := p7_a18;
265 ddp_claim_rec.gl_id_ded_adj_clearing := p7_a19;
266 ddp_claim_rec.gl_id_ded_clearing := p7_a20;
267 ddp_claim_rec.gl_id_accr_promo_liab := p7_a21;
268 ddp_claim_rec.transaction_type := p7_a22;
269 ddp_claim_rec.cm_trx_type_id := p7_a23;
270 ddp_claim_rec.dm_trx_type_id := p7_a24;
271 ddp_claim_rec.cb_trx_type_id := p7_a25;
272 ddp_claim_rec.wo_rec_trx_id := p7_a26;
273 ddp_claim_rec.adj_rec_trx_id := p7_a27;
274 ddp_claim_rec.attribute_category := p7_a28;
275 ddp_claim_rec.attribute1 := p7_a29;
276 ddp_claim_rec.attribute2 := p7_a30;
277 ddp_claim_rec.attribute3 := p7_a31;
278 ddp_claim_rec.attribute4 := p7_a32;
279 ddp_claim_rec.attribute5 := p7_a33;
280 ddp_claim_rec.attribute6 := p7_a34;
281 ddp_claim_rec.attribute7 := p7_a35;
282 ddp_claim_rec.attribute8 := p7_a36;
283 ddp_claim_rec.attribute9 := p7_a37;
284 ddp_claim_rec.attribute10 := p7_a38;
285 ddp_claim_rec.attribute11 := p7_a39;
286 ddp_claim_rec.attribute12 := p7_a40;
287 ddp_claim_rec.attribute13 := p7_a41;
288 ddp_claim_rec.attribute14 := p7_a42;
289 ddp_claim_rec.attribute15 := p7_a43;
290 ddp_claim_rec.org_id := p7_a44;
291 ddp_claim_rec.name := p7_a45;
292 ddp_claim_rec.description := p7_a46;
293 ddp_claim_rec.language := p7_a47;
294 ddp_claim_rec.source_lang := p7_a48;
295 ddp_claim_rec.adjustment_type := p7_a49;
296 ddp_claim_rec.order_type_id := p7_a50;
297 ddp_claim_rec.neg_wo_rec_trx_id := p7_a51;
298 ddp_claim_rec.gl_balancing_flex_value := p7_a52;
299
300
301
302 -- here's the delegated call to the old PL/SQL routine
303 ozf_claim_type_pvt.update_claim_type(p_api_version,
304 p_init_msg_list,
305 p_commit,
306 p_validation_level,
307 x_return_status,
308 x_msg_count,
309 x_msg_data,
310 ddp_claim_rec,
311 p_mode,
312 x_object_version);
313
314 -- copy data back from the local variables to OUT or IN-OUT args, if any
315
316
317
318
319
320
321
322
323
324 end;
325
326 procedure validate_claim_type(p_api_version NUMBER
327 , p_init_msg_list VARCHAR2
328 , p_validation_level NUMBER
329 , x_return_status out nocopy VARCHAR2
330 , x_msg_count out nocopy NUMBER
331 , x_msg_data out nocopy VARCHAR2
332 , p6_a0 NUMBER
333 , p6_a1 NUMBER
334 , p6_a2 DATE
335 , p6_a3 NUMBER
336 , p6_a4 DATE
337 , p6_a5 NUMBER
338 , p6_a6 NUMBER
339 , p6_a7 NUMBER
340 , p6_a8 NUMBER
341 , p6_a9 DATE
342 , p6_a10 NUMBER
343 , p6_a11 VARCHAR2
344 , p6_a12 VARCHAR2
345 , p6_a13 NUMBER
346 , p6_a14 VARCHAR2
347 , p6_a15 DATE
348 , p6_a16 DATE
349 , p6_a17 VARCHAR2
350 , p6_a18 NUMBER
351 , p6_a19 NUMBER
352 , p6_a20 NUMBER
353 , p6_a21 NUMBER
354 , p6_a22 NUMBER
355 , p6_a23 NUMBER
356 , p6_a24 NUMBER
357 , p6_a25 NUMBER
358 , p6_a26 NUMBER
359 , p6_a27 NUMBER
360 , p6_a28 VARCHAR2
361 , p6_a29 VARCHAR2
362 , p6_a30 VARCHAR2
363 , p6_a31 VARCHAR2
364 , p6_a32 VARCHAR2
365 , p6_a33 VARCHAR2
366 , p6_a34 VARCHAR2
367 , p6_a35 VARCHAR2
368 , p6_a36 VARCHAR2
369 , p6_a37 VARCHAR2
370 , p6_a38 VARCHAR2
371 , p6_a39 VARCHAR2
372 , p6_a40 VARCHAR2
373 , p6_a41 VARCHAR2
374 , p6_a42 VARCHAR2
375 , p6_a43 VARCHAR2
376 , p6_a44 NUMBER
377 , p6_a45 VARCHAR2
378 , p6_a46 VARCHAR2
379 , p6_a47 VARCHAR2
380 , p6_a48 VARCHAR2
381 , p6_a49 VARCHAR2
382 , p6_a50 NUMBER
383 , p6_a51 NUMBER
384 , p6_a52 VARCHAR2
385 )
386
387 as
388 ddp_claim_rec ozf_claim_type_pvt.claim_rec_type;
389 ddindx binary_integer; indx binary_integer;
390 begin
391
392 -- copy data to the local IN or IN-OUT args, if any
393
394
395
396
397
398
399 ddp_claim_rec.claim_type_id := p6_a0;
400 ddp_claim_rec.object_version_number := p6_a1;
401 ddp_claim_rec.last_update_date := rosetta_g_miss_date_in_map(p6_a2);
402 ddp_claim_rec.last_updated_by := p6_a3;
403 ddp_claim_rec.creation_date := rosetta_g_miss_date_in_map(p6_a4);
404 ddp_claim_rec.created_by := p6_a5;
405 ddp_claim_rec.last_update_login := p6_a6;
406 ddp_claim_rec.request_id := p6_a7;
407 ddp_claim_rec.program_application_id := p6_a8;
408 ddp_claim_rec.program_update_date := rosetta_g_miss_date_in_map(p6_a9);
409 ddp_claim_rec.program_id := p6_a10;
410 ddp_claim_rec.created_from := p6_a11;
411 ddp_claim_rec.claim_class := p6_a12;
412 ddp_claim_rec.set_of_books_id := p6_a13;
413 ddp_claim_rec.post_to_gl_flag := p6_a14;
414 ddp_claim_rec.start_date := rosetta_g_miss_date_in_map(p6_a15);
415 ddp_claim_rec.end_date := rosetta_g_miss_date_in_map(p6_a16);
416 ddp_claim_rec.creation_sign := p6_a17;
417 ddp_claim_rec.gl_id_ded_adj := p6_a18;
418 ddp_claim_rec.gl_id_ded_adj_clearing := p6_a19;
419 ddp_claim_rec.gl_id_ded_clearing := p6_a20;
420 ddp_claim_rec.gl_id_accr_promo_liab := p6_a21;
421 ddp_claim_rec.transaction_type := p6_a22;
422 ddp_claim_rec.cm_trx_type_id := p6_a23;
423 ddp_claim_rec.dm_trx_type_id := p6_a24;
424 ddp_claim_rec.cb_trx_type_id := p6_a25;
425 ddp_claim_rec.wo_rec_trx_id := p6_a26;
426 ddp_claim_rec.adj_rec_trx_id := p6_a27;
427 ddp_claim_rec.attribute_category := p6_a28;
428 ddp_claim_rec.attribute1 := p6_a29;
429 ddp_claim_rec.attribute2 := p6_a30;
430 ddp_claim_rec.attribute3 := p6_a31;
431 ddp_claim_rec.attribute4 := p6_a32;
432 ddp_claim_rec.attribute5 := p6_a33;
433 ddp_claim_rec.attribute6 := p6_a34;
434 ddp_claim_rec.attribute7 := p6_a35;
435 ddp_claim_rec.attribute8 := p6_a36;
436 ddp_claim_rec.attribute9 := p6_a37;
437 ddp_claim_rec.attribute10 := p6_a38;
438 ddp_claim_rec.attribute11 := p6_a39;
439 ddp_claim_rec.attribute12 := p6_a40;
440 ddp_claim_rec.attribute13 := p6_a41;
441 ddp_claim_rec.attribute14 := p6_a42;
442 ddp_claim_rec.attribute15 := p6_a43;
443 ddp_claim_rec.org_id := p6_a44;
444 ddp_claim_rec.name := p6_a45;
445 ddp_claim_rec.description := p6_a46;
446 ddp_claim_rec.language := p6_a47;
447 ddp_claim_rec.source_lang := p6_a48;
448 ddp_claim_rec.adjustment_type := p6_a49;
449 ddp_claim_rec.order_type_id := p6_a50;
450 ddp_claim_rec.neg_wo_rec_trx_id := p6_a51;
451 ddp_claim_rec.gl_balancing_flex_value := p6_a52;
455 p_init_msg_list,
452
453 -- here's the delegated call to the old PL/SQL routine
454 ozf_claim_type_pvt.validate_claim_type(p_api_version,
456 p_validation_level,
457 x_return_status,
458 x_msg_count,
459 x_msg_data,
460 ddp_claim_rec);
461
462 -- copy data back from the local variables to OUT or IN-OUT args, if any
463
464
465
466
467
468
469 end;
470
471 procedure check_claim_type_items(p_validation_mode VARCHAR2
472 , x_return_status out nocopy VARCHAR2
473 , p2_a0 NUMBER
474 , p2_a1 NUMBER
475 , p2_a2 DATE
476 , p2_a3 NUMBER
477 , p2_a4 DATE
478 , p2_a5 NUMBER
479 , p2_a6 NUMBER
480 , p2_a7 NUMBER
481 , p2_a8 NUMBER
482 , p2_a9 DATE
483 , p2_a10 NUMBER
484 , p2_a11 VARCHAR2
485 , p2_a12 VARCHAR2
486 , p2_a13 NUMBER
487 , p2_a14 VARCHAR2
488 , p2_a15 DATE
489 , p2_a16 DATE
490 , p2_a17 VARCHAR2
491 , p2_a18 NUMBER
492 , p2_a19 NUMBER
493 , p2_a20 NUMBER
494 , p2_a21 NUMBER
495 , p2_a22 NUMBER
496 , p2_a23 NUMBER
497 , p2_a24 NUMBER
498 , p2_a25 NUMBER
499 , p2_a26 NUMBER
500 , p2_a27 NUMBER
501 , p2_a28 VARCHAR2
502 , p2_a29 VARCHAR2
503 , p2_a30 VARCHAR2
504 , p2_a31 VARCHAR2
505 , p2_a32 VARCHAR2
506 , p2_a33 VARCHAR2
507 , p2_a34 VARCHAR2
508 , p2_a35 VARCHAR2
509 , p2_a36 VARCHAR2
510 , p2_a37 VARCHAR2
511 , p2_a38 VARCHAR2
512 , p2_a39 VARCHAR2
513 , p2_a40 VARCHAR2
514 , p2_a41 VARCHAR2
515 , p2_a42 VARCHAR2
516 , p2_a43 VARCHAR2
517 , p2_a44 NUMBER
518 , p2_a45 VARCHAR2
519 , p2_a46 VARCHAR2
520 , p2_a47 VARCHAR2
521 , p2_a48 VARCHAR2
522 , p2_a49 VARCHAR2
523 , p2_a50 NUMBER
524 , p2_a51 NUMBER
525 , p2_a52 VARCHAR2
526 )
527
528 as
529 ddp_claim_rec ozf_claim_type_pvt.claim_rec_type;
530 ddindx binary_integer; indx binary_integer;
531 begin
532
533 -- copy data to the local IN or IN-OUT args, if any
534
535
536 ddp_claim_rec.claim_type_id := p2_a0;
537 ddp_claim_rec.object_version_number := p2_a1;
538 ddp_claim_rec.last_update_date := rosetta_g_miss_date_in_map(p2_a2);
539 ddp_claim_rec.last_updated_by := p2_a3;
540 ddp_claim_rec.creation_date := rosetta_g_miss_date_in_map(p2_a4);
541 ddp_claim_rec.created_by := p2_a5;
542 ddp_claim_rec.last_update_login := p2_a6;
543 ddp_claim_rec.request_id := p2_a7;
544 ddp_claim_rec.program_application_id := p2_a8;
545 ddp_claim_rec.program_update_date := rosetta_g_miss_date_in_map(p2_a9);
546 ddp_claim_rec.program_id := p2_a10;
547 ddp_claim_rec.created_from := p2_a11;
548 ddp_claim_rec.claim_class := p2_a12;
549 ddp_claim_rec.set_of_books_id := p2_a13;
550 ddp_claim_rec.post_to_gl_flag := p2_a14;
551 ddp_claim_rec.start_date := rosetta_g_miss_date_in_map(p2_a15);
552 ddp_claim_rec.end_date := rosetta_g_miss_date_in_map(p2_a16);
553 ddp_claim_rec.creation_sign := p2_a17;
554 ddp_claim_rec.gl_id_ded_adj := p2_a18;
555 ddp_claim_rec.gl_id_ded_adj_clearing := p2_a19;
556 ddp_claim_rec.gl_id_ded_clearing := p2_a20;
557 ddp_claim_rec.gl_id_accr_promo_liab := p2_a21;
558 ddp_claim_rec.transaction_type := p2_a22;
559 ddp_claim_rec.cm_trx_type_id := p2_a23;
560 ddp_claim_rec.dm_trx_type_id := p2_a24;
561 ddp_claim_rec.cb_trx_type_id := p2_a25;
562 ddp_claim_rec.wo_rec_trx_id := p2_a26;
563 ddp_claim_rec.adj_rec_trx_id := p2_a27;
564 ddp_claim_rec.attribute_category := p2_a28;
565 ddp_claim_rec.attribute1 := p2_a29;
566 ddp_claim_rec.attribute2 := p2_a30;
567 ddp_claim_rec.attribute3 := p2_a31;
568 ddp_claim_rec.attribute4 := p2_a32;
569 ddp_claim_rec.attribute5 := p2_a33;
570 ddp_claim_rec.attribute6 := p2_a34;
571 ddp_claim_rec.attribute7 := p2_a35;
572 ddp_claim_rec.attribute8 := p2_a36;
573 ddp_claim_rec.attribute9 := p2_a37;
574 ddp_claim_rec.attribute10 := p2_a38;
575 ddp_claim_rec.attribute11 := p2_a39;
576 ddp_claim_rec.attribute12 := p2_a40;
577 ddp_claim_rec.attribute13 := p2_a41;
578 ddp_claim_rec.attribute14 := p2_a42;
579 ddp_claim_rec.attribute15 := p2_a43;
580 ddp_claim_rec.org_id := p2_a44;
581 ddp_claim_rec.name := p2_a45;
582 ddp_claim_rec.description := p2_a46;
583 ddp_claim_rec.language := p2_a47;
584 ddp_claim_rec.source_lang := p2_a48;
585 ddp_claim_rec.adjustment_type := p2_a49;
586 ddp_claim_rec.order_type_id := p2_a50;
587 ddp_claim_rec.neg_wo_rec_trx_id := p2_a51;
588 ddp_claim_rec.gl_balancing_flex_value := p2_a52;
589
590 -- here's the delegated call to the old PL/SQL routine
591 ozf_claim_type_pvt.check_claim_type_items(p_validation_mode,
592 x_return_status,
593 ddp_claim_rec);
594
595 -- copy data back from the local variables to OUT or IN-OUT args, if any
596
597
598 end;
599
603 , p0_a3 NUMBER
600 procedure check_claim_type_record(p0_a0 NUMBER
601 , p0_a1 NUMBER
602 , p0_a2 DATE
604 , p0_a4 DATE
605 , p0_a5 NUMBER
606 , p0_a6 NUMBER
607 , p0_a7 NUMBER
608 , p0_a8 NUMBER
609 , p0_a9 DATE
610 , p0_a10 NUMBER
611 , p0_a11 VARCHAR2
612 , p0_a12 VARCHAR2
613 , p0_a13 NUMBER
614 , p0_a14 VARCHAR2
615 , p0_a15 DATE
616 , p0_a16 DATE
617 , p0_a17 VARCHAR2
618 , p0_a18 NUMBER
619 , p0_a19 NUMBER
620 , p0_a20 NUMBER
621 , p0_a21 NUMBER
622 , p0_a22 NUMBER
623 , p0_a23 NUMBER
624 , p0_a24 NUMBER
625 , p0_a25 NUMBER
626 , p0_a26 NUMBER
627 , p0_a27 NUMBER
628 , p0_a28 VARCHAR2
629 , p0_a29 VARCHAR2
630 , p0_a30 VARCHAR2
631 , p0_a31 VARCHAR2
632 , p0_a32 VARCHAR2
633 , p0_a33 VARCHAR2
634 , p0_a34 VARCHAR2
635 , p0_a35 VARCHAR2
636 , p0_a36 VARCHAR2
637 , p0_a37 VARCHAR2
638 , p0_a38 VARCHAR2
639 , p0_a39 VARCHAR2
640 , p0_a40 VARCHAR2
641 , p0_a41 VARCHAR2
642 , p0_a42 VARCHAR2
643 , p0_a43 VARCHAR2
644 , p0_a44 NUMBER
645 , p0_a45 VARCHAR2
646 , p0_a46 VARCHAR2
647 , p0_a47 VARCHAR2
648 , p0_a48 VARCHAR2
649 , p0_a49 VARCHAR2
650 , p0_a50 NUMBER
651 , p0_a51 NUMBER
652 , p0_a52 VARCHAR2
653 , p1_a0 NUMBER
654 , p1_a1 NUMBER
655 , p1_a2 DATE
656 , p1_a3 NUMBER
657 , p1_a4 DATE
658 , p1_a5 NUMBER
659 , p1_a6 NUMBER
660 , p1_a7 NUMBER
661 , p1_a8 NUMBER
662 , p1_a9 DATE
663 , p1_a10 NUMBER
664 , p1_a11 VARCHAR2
665 , p1_a12 VARCHAR2
666 , p1_a13 NUMBER
667 , p1_a14 VARCHAR2
668 , p1_a15 DATE
669 , p1_a16 DATE
670 , p1_a17 VARCHAR2
671 , p1_a18 NUMBER
672 , p1_a19 NUMBER
673 , p1_a20 NUMBER
674 , p1_a21 NUMBER
675 , p1_a22 NUMBER
676 , p1_a23 NUMBER
677 , p1_a24 NUMBER
678 , p1_a25 NUMBER
679 , p1_a26 NUMBER
680 , p1_a27 NUMBER
681 , p1_a28 VARCHAR2
682 , p1_a29 VARCHAR2
683 , p1_a30 VARCHAR2
684 , p1_a31 VARCHAR2
685 , p1_a32 VARCHAR2
686 , p1_a33 VARCHAR2
687 , p1_a34 VARCHAR2
688 , p1_a35 VARCHAR2
689 , p1_a36 VARCHAR2
690 , p1_a37 VARCHAR2
691 , p1_a38 VARCHAR2
692 , p1_a39 VARCHAR2
693 , p1_a40 VARCHAR2
694 , p1_a41 VARCHAR2
695 , p1_a42 VARCHAR2
696 , p1_a43 VARCHAR2
697 , p1_a44 NUMBER
698 , p1_a45 VARCHAR2
699 , p1_a46 VARCHAR2
700 , p1_a47 VARCHAR2
701 , p1_a48 VARCHAR2
702 , p1_a49 VARCHAR2
703 , p1_a50 NUMBER
704 , p1_a51 NUMBER
705 , p1_a52 VARCHAR2
706 , x_return_status out nocopy VARCHAR2
707 )
708
709 as
710 ddp_claim_rec ozf_claim_type_pvt.claim_rec_type;
711 ddp_complete_rec ozf_claim_type_pvt.claim_rec_type;
712 ddindx binary_integer; indx binary_integer;
713 begin
714
715 -- copy data to the local IN or IN-OUT args, if any
716 ddp_claim_rec.claim_type_id := p0_a0;
717 ddp_claim_rec.object_version_number := p0_a1;
718 ddp_claim_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a2);
719 ddp_claim_rec.last_updated_by := p0_a3;
720 ddp_claim_rec.creation_date := rosetta_g_miss_date_in_map(p0_a4);
721 ddp_claim_rec.created_by := p0_a5;
722 ddp_claim_rec.last_update_login := p0_a6;
723 ddp_claim_rec.request_id := p0_a7;
724 ddp_claim_rec.program_application_id := p0_a8;
725 ddp_claim_rec.program_update_date := rosetta_g_miss_date_in_map(p0_a9);
726 ddp_claim_rec.program_id := p0_a10;
727 ddp_claim_rec.created_from := p0_a11;
728 ddp_claim_rec.claim_class := p0_a12;
729 ddp_claim_rec.set_of_books_id := p0_a13;
730 ddp_claim_rec.post_to_gl_flag := p0_a14;
731 ddp_claim_rec.start_date := rosetta_g_miss_date_in_map(p0_a15);
732 ddp_claim_rec.end_date := rosetta_g_miss_date_in_map(p0_a16);
733 ddp_claim_rec.creation_sign := p0_a17;
734 ddp_claim_rec.gl_id_ded_adj := p0_a18;
735 ddp_claim_rec.gl_id_ded_adj_clearing := p0_a19;
736 ddp_claim_rec.gl_id_ded_clearing := p0_a20;
737 ddp_claim_rec.gl_id_accr_promo_liab := p0_a21;
738 ddp_claim_rec.transaction_type := p0_a22;
739 ddp_claim_rec.cm_trx_type_id := p0_a23;
740 ddp_claim_rec.dm_trx_type_id := p0_a24;
741 ddp_claim_rec.cb_trx_type_id := p0_a25;
742 ddp_claim_rec.wo_rec_trx_id := p0_a26;
743 ddp_claim_rec.adj_rec_trx_id := p0_a27;
744 ddp_claim_rec.attribute_category := p0_a28;
745 ddp_claim_rec.attribute1 := p0_a29;
746 ddp_claim_rec.attribute2 := p0_a30;
747 ddp_claim_rec.attribute3 := p0_a31;
748 ddp_claim_rec.attribute4 := p0_a32;
749 ddp_claim_rec.attribute5 := p0_a33;
750 ddp_claim_rec.attribute6 := p0_a34;
751 ddp_claim_rec.attribute7 := p0_a35;
752 ddp_claim_rec.attribute8 := p0_a36;
753 ddp_claim_rec.attribute9 := p0_a37;
757 ddp_claim_rec.attribute13 := p0_a41;
754 ddp_claim_rec.attribute10 := p0_a38;
755 ddp_claim_rec.attribute11 := p0_a39;
756 ddp_claim_rec.attribute12 := p0_a40;
758 ddp_claim_rec.attribute14 := p0_a42;
759 ddp_claim_rec.attribute15 := p0_a43;
760 ddp_claim_rec.org_id := p0_a44;
761 ddp_claim_rec.name := p0_a45;
762 ddp_claim_rec.description := p0_a46;
763 ddp_claim_rec.language := p0_a47;
764 ddp_claim_rec.source_lang := p0_a48;
765 ddp_claim_rec.adjustment_type := p0_a49;
766 ddp_claim_rec.order_type_id := p0_a50;
767 ddp_claim_rec.neg_wo_rec_trx_id := p0_a51;
768 ddp_claim_rec.gl_balancing_flex_value := p0_a52;
769
770 ddp_complete_rec.claim_type_id := p1_a0;
771 ddp_complete_rec.object_version_number := p1_a1;
772 ddp_complete_rec.last_update_date := rosetta_g_miss_date_in_map(p1_a2);
773 ddp_complete_rec.last_updated_by := p1_a3;
774 ddp_complete_rec.creation_date := rosetta_g_miss_date_in_map(p1_a4);
775 ddp_complete_rec.created_by := p1_a5;
776 ddp_complete_rec.last_update_login := p1_a6;
777 ddp_complete_rec.request_id := p1_a7;
778 ddp_complete_rec.program_application_id := p1_a8;
779 ddp_complete_rec.program_update_date := rosetta_g_miss_date_in_map(p1_a9);
780 ddp_complete_rec.program_id := p1_a10;
781 ddp_complete_rec.created_from := p1_a11;
782 ddp_complete_rec.claim_class := p1_a12;
783 ddp_complete_rec.set_of_books_id := p1_a13;
784 ddp_complete_rec.post_to_gl_flag := p1_a14;
785 ddp_complete_rec.start_date := rosetta_g_miss_date_in_map(p1_a15);
786 ddp_complete_rec.end_date := rosetta_g_miss_date_in_map(p1_a16);
787 ddp_complete_rec.creation_sign := p1_a17;
788 ddp_complete_rec.gl_id_ded_adj := p1_a18;
789 ddp_complete_rec.gl_id_ded_adj_clearing := p1_a19;
790 ddp_complete_rec.gl_id_ded_clearing := p1_a20;
791 ddp_complete_rec.gl_id_accr_promo_liab := p1_a21;
792 ddp_complete_rec.transaction_type := p1_a22;
793 ddp_complete_rec.cm_trx_type_id := p1_a23;
794 ddp_complete_rec.dm_trx_type_id := p1_a24;
795 ddp_complete_rec.cb_trx_type_id := p1_a25;
796 ddp_complete_rec.wo_rec_trx_id := p1_a26;
797 ddp_complete_rec.adj_rec_trx_id := p1_a27;
798 ddp_complete_rec.attribute_category := p1_a28;
799 ddp_complete_rec.attribute1 := p1_a29;
800 ddp_complete_rec.attribute2 := p1_a30;
801 ddp_complete_rec.attribute3 := p1_a31;
802 ddp_complete_rec.attribute4 := p1_a32;
803 ddp_complete_rec.attribute5 := p1_a33;
804 ddp_complete_rec.attribute6 := p1_a34;
805 ddp_complete_rec.attribute7 := p1_a35;
806 ddp_complete_rec.attribute8 := p1_a36;
807 ddp_complete_rec.attribute9 := p1_a37;
808 ddp_complete_rec.attribute10 := p1_a38;
809 ddp_complete_rec.attribute11 := p1_a39;
810 ddp_complete_rec.attribute12 := p1_a40;
811 ddp_complete_rec.attribute13 := p1_a41;
812 ddp_complete_rec.attribute14 := p1_a42;
813 ddp_complete_rec.attribute15 := p1_a43;
814 ddp_complete_rec.org_id := p1_a44;
815 ddp_complete_rec.name := p1_a45;
816 ddp_complete_rec.description := p1_a46;
817 ddp_complete_rec.language := p1_a47;
818 ddp_complete_rec.source_lang := p1_a48;
819 ddp_complete_rec.adjustment_type := p1_a49;
820 ddp_complete_rec.order_type_id := p1_a50;
821 ddp_complete_rec.neg_wo_rec_trx_id := p1_a51;
822 ddp_complete_rec.gl_balancing_flex_value := p1_a52;
823
824
825 -- here's the delegated call to the old PL/SQL routine
826 ozf_claim_type_pvt.check_claim_type_record(ddp_claim_rec,
827 ddp_complete_rec,
828 x_return_status);
829
830 -- copy data back from the local variables to OUT or IN-OUT args, if any
831
832
833 end;
834
835 procedure init_claim_type_rec(p0_a0 out nocopy NUMBER
836 , p0_a1 out nocopy NUMBER
837 , p0_a2 out nocopy DATE
838 , p0_a3 out nocopy NUMBER
839 , p0_a4 out nocopy DATE
840 , p0_a5 out nocopy NUMBER
841 , p0_a6 out nocopy NUMBER
842 , p0_a7 out nocopy NUMBER
843 , p0_a8 out nocopy NUMBER
844 , p0_a9 out nocopy DATE
845 , p0_a10 out nocopy NUMBER
846 , p0_a11 out nocopy VARCHAR2
847 , p0_a12 out nocopy VARCHAR2
848 , p0_a13 out nocopy NUMBER
849 , p0_a14 out nocopy VARCHAR2
850 , p0_a15 out nocopy DATE
851 , p0_a16 out nocopy DATE
852 , p0_a17 out nocopy VARCHAR2
853 , p0_a18 out nocopy NUMBER
854 , p0_a19 out nocopy NUMBER
855 , p0_a20 out nocopy NUMBER
856 , p0_a21 out nocopy NUMBER
857 , p0_a22 out nocopy NUMBER
858 , p0_a23 out nocopy NUMBER
859 , p0_a24 out nocopy NUMBER
860 , p0_a25 out nocopy NUMBER
861 , p0_a26 out nocopy NUMBER
862 , p0_a27 out nocopy NUMBER
863 , p0_a28 out nocopy VARCHAR2
864 , p0_a29 out nocopy VARCHAR2
865 , p0_a30 out nocopy VARCHAR2
866 , p0_a31 out nocopy VARCHAR2
867 , p0_a32 out nocopy VARCHAR2
868 , p0_a33 out nocopy VARCHAR2
869 , p0_a34 out nocopy VARCHAR2
870 , p0_a35 out nocopy VARCHAR2
871 , p0_a36 out nocopy VARCHAR2
872 , p0_a37 out nocopy VARCHAR2
873 , p0_a38 out nocopy VARCHAR2
874 , p0_a39 out nocopy VARCHAR2
875 , p0_a40 out nocopy VARCHAR2
879 , p0_a44 out nocopy NUMBER
876 , p0_a41 out nocopy VARCHAR2
877 , p0_a42 out nocopy VARCHAR2
878 , p0_a43 out nocopy VARCHAR2
880 , p0_a45 out nocopy VARCHAR2
881 , p0_a46 out nocopy VARCHAR2
882 , p0_a47 out nocopy VARCHAR2
883 , p0_a48 out nocopy VARCHAR2
884 , p0_a49 out nocopy VARCHAR2
885 , p0_a50 out nocopy NUMBER
886 , p0_a51 out nocopy NUMBER
887 , p0_a52 out nocopy VARCHAR2
888 )
889
890 as
891 ddx_claim_rec ozf_claim_type_pvt.claim_rec_type;
892 ddindx binary_integer; indx binary_integer;
893 begin
894
895 -- copy data to the local IN or IN-OUT args, if any
896
897 -- here's the delegated call to the old PL/SQL routine
898 ozf_claim_type_pvt.init_claim_type_rec(ddx_claim_rec);
899
900 -- copy data back from the local variables to OUT or IN-OUT args, if any
901 p0_a0 := ddx_claim_rec.claim_type_id;
902 p0_a1 := ddx_claim_rec.object_version_number;
903 p0_a2 := ddx_claim_rec.last_update_date;
904 p0_a3 := ddx_claim_rec.last_updated_by;
905 p0_a4 := ddx_claim_rec.creation_date;
906 p0_a5 := ddx_claim_rec.created_by;
907 p0_a6 := ddx_claim_rec.last_update_login;
908 p0_a7 := ddx_claim_rec.request_id;
909 p0_a8 := ddx_claim_rec.program_application_id;
910 p0_a9 := ddx_claim_rec.program_update_date;
911 p0_a10 := ddx_claim_rec.program_id;
912 p0_a11 := ddx_claim_rec.created_from;
913 p0_a12 := ddx_claim_rec.claim_class;
914 p0_a13 := ddx_claim_rec.set_of_books_id;
915 p0_a14 := ddx_claim_rec.post_to_gl_flag;
916 p0_a15 := ddx_claim_rec.start_date;
917 p0_a16 := ddx_claim_rec.end_date;
918 p0_a17 := ddx_claim_rec.creation_sign;
919 p0_a18 := ddx_claim_rec.gl_id_ded_adj;
920 p0_a19 := ddx_claim_rec.gl_id_ded_adj_clearing;
921 p0_a20 := ddx_claim_rec.gl_id_ded_clearing;
922 p0_a21 := ddx_claim_rec.gl_id_accr_promo_liab;
923 p0_a22 := ddx_claim_rec.transaction_type;
924 p0_a23 := ddx_claim_rec.cm_trx_type_id;
925 p0_a24 := ddx_claim_rec.dm_trx_type_id;
926 p0_a25 := ddx_claim_rec.cb_trx_type_id;
927 p0_a26 := ddx_claim_rec.wo_rec_trx_id;
928 p0_a27 := ddx_claim_rec.adj_rec_trx_id;
929 p0_a28 := ddx_claim_rec.attribute_category;
930 p0_a29 := ddx_claim_rec.attribute1;
931 p0_a30 := ddx_claim_rec.attribute2;
932 p0_a31 := ddx_claim_rec.attribute3;
933 p0_a32 := ddx_claim_rec.attribute4;
934 p0_a33 := ddx_claim_rec.attribute5;
935 p0_a34 := ddx_claim_rec.attribute6;
936 p0_a35 := ddx_claim_rec.attribute7;
937 p0_a36 := ddx_claim_rec.attribute8;
938 p0_a37 := ddx_claim_rec.attribute9;
939 p0_a38 := ddx_claim_rec.attribute10;
940 p0_a39 := ddx_claim_rec.attribute11;
941 p0_a40 := ddx_claim_rec.attribute12;
942 p0_a41 := ddx_claim_rec.attribute13;
943 p0_a42 := ddx_claim_rec.attribute14;
944 p0_a43 := ddx_claim_rec.attribute15;
945 p0_a44 := ddx_claim_rec.org_id;
946 p0_a45 := ddx_claim_rec.name;
947 p0_a46 := ddx_claim_rec.description;
948 p0_a47 := ddx_claim_rec.language;
949 p0_a48 := ddx_claim_rec.source_lang;
950 p0_a49 := ddx_claim_rec.adjustment_type;
951 p0_a50 := ddx_claim_rec.order_type_id;
952 p0_a51 := ddx_claim_rec.neg_wo_rec_trx_id;
953 p0_a52 := ddx_claim_rec.gl_balancing_flex_value;
954 end;
955
956 procedure complete_claim_type_rec(p0_a0 NUMBER
957 , p0_a1 NUMBER
958 , p0_a2 DATE
959 , p0_a3 NUMBER
960 , p0_a4 DATE
961 , p0_a5 NUMBER
962 , p0_a6 NUMBER
963 , p0_a7 NUMBER
964 , p0_a8 NUMBER
965 , p0_a9 DATE
966 , p0_a10 NUMBER
967 , p0_a11 VARCHAR2
968 , p0_a12 VARCHAR2
969 , p0_a13 NUMBER
970 , p0_a14 VARCHAR2
971 , p0_a15 DATE
972 , p0_a16 DATE
973 , p0_a17 VARCHAR2
974 , p0_a18 NUMBER
975 , p0_a19 NUMBER
976 , p0_a20 NUMBER
977 , p0_a21 NUMBER
978 , p0_a22 NUMBER
979 , p0_a23 NUMBER
980 , p0_a24 NUMBER
981 , p0_a25 NUMBER
982 , p0_a26 NUMBER
983 , p0_a27 NUMBER
984 , p0_a28 VARCHAR2
985 , p0_a29 VARCHAR2
986 , p0_a30 VARCHAR2
987 , p0_a31 VARCHAR2
988 , p0_a32 VARCHAR2
989 , p0_a33 VARCHAR2
990 , p0_a34 VARCHAR2
991 , p0_a35 VARCHAR2
992 , p0_a36 VARCHAR2
993 , p0_a37 VARCHAR2
994 , p0_a38 VARCHAR2
995 , p0_a39 VARCHAR2
996 , p0_a40 VARCHAR2
997 , p0_a41 VARCHAR2
998 , p0_a42 VARCHAR2
999 , p0_a43 VARCHAR2
1000 , p0_a44 NUMBER
1001 , p0_a45 VARCHAR2
1002 , p0_a46 VARCHAR2
1003 , p0_a47 VARCHAR2
1004 , p0_a48 VARCHAR2
1005 , p0_a49 VARCHAR2
1006 , p0_a50 NUMBER
1007 , p0_a51 NUMBER
1008 , p0_a52 VARCHAR2
1009 , p1_a0 out nocopy NUMBER
1010 , p1_a1 out nocopy NUMBER
1011 , p1_a2 out nocopy DATE
1012 , p1_a3 out nocopy NUMBER
1013 , p1_a4 out nocopy DATE
1014 , p1_a5 out nocopy NUMBER
1015 , p1_a6 out nocopy NUMBER
1016 , p1_a7 out nocopy NUMBER
1017 , p1_a8 out nocopy NUMBER
1018 , p1_a9 out nocopy DATE
1022 , p1_a13 out nocopy NUMBER
1019 , p1_a10 out nocopy NUMBER
1020 , p1_a11 out nocopy VARCHAR2
1021 , p1_a12 out nocopy VARCHAR2
1023 , p1_a14 out nocopy VARCHAR2
1024 , p1_a15 out nocopy DATE
1025 , p1_a16 out nocopy DATE
1026 , p1_a17 out nocopy VARCHAR2
1027 , p1_a18 out nocopy NUMBER
1028 , p1_a19 out nocopy NUMBER
1029 , p1_a20 out nocopy NUMBER
1030 , p1_a21 out nocopy NUMBER
1031 , p1_a22 out nocopy NUMBER
1032 , p1_a23 out nocopy NUMBER
1033 , p1_a24 out nocopy NUMBER
1034 , p1_a25 out nocopy NUMBER
1035 , p1_a26 out nocopy NUMBER
1036 , p1_a27 out nocopy NUMBER
1037 , p1_a28 out nocopy VARCHAR2
1038 , p1_a29 out nocopy VARCHAR2
1039 , p1_a30 out nocopy VARCHAR2
1040 , p1_a31 out nocopy VARCHAR2
1041 , p1_a32 out nocopy VARCHAR2
1042 , p1_a33 out nocopy VARCHAR2
1043 , p1_a34 out nocopy VARCHAR2
1044 , p1_a35 out nocopy VARCHAR2
1045 , p1_a36 out nocopy VARCHAR2
1046 , p1_a37 out nocopy VARCHAR2
1047 , p1_a38 out nocopy VARCHAR2
1048 , p1_a39 out nocopy VARCHAR2
1049 , p1_a40 out nocopy VARCHAR2
1050 , p1_a41 out nocopy VARCHAR2
1051 , p1_a42 out nocopy VARCHAR2
1052 , p1_a43 out nocopy VARCHAR2
1053 , p1_a44 out nocopy NUMBER
1054 , p1_a45 out nocopy VARCHAR2
1055 , p1_a46 out nocopy VARCHAR2
1056 , p1_a47 out nocopy VARCHAR2
1057 , p1_a48 out nocopy VARCHAR2
1058 , p1_a49 out nocopy VARCHAR2
1059 , p1_a50 out nocopy NUMBER
1060 , p1_a51 out nocopy NUMBER
1061 , p1_a52 out nocopy VARCHAR2
1062 )
1063
1064 as
1065 ddp_claim_rec ozf_claim_type_pvt.claim_rec_type;
1066 ddx_complete_rec ozf_claim_type_pvt.claim_rec_type;
1067 ddindx binary_integer; indx binary_integer;
1068 begin
1069
1070 -- copy data to the local IN or IN-OUT args, if any
1071 ddp_claim_rec.claim_type_id := p0_a0;
1072 ddp_claim_rec.object_version_number := p0_a1;
1073 ddp_claim_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a2);
1074 ddp_claim_rec.last_updated_by := p0_a3;
1075 ddp_claim_rec.creation_date := rosetta_g_miss_date_in_map(p0_a4);
1076 ddp_claim_rec.created_by := p0_a5;
1077 ddp_claim_rec.last_update_login := p0_a6;
1078 ddp_claim_rec.request_id := p0_a7;
1079 ddp_claim_rec.program_application_id := p0_a8;
1080 ddp_claim_rec.program_update_date := rosetta_g_miss_date_in_map(p0_a9);
1081 ddp_claim_rec.program_id := p0_a10;
1082 ddp_claim_rec.created_from := p0_a11;
1083 ddp_claim_rec.claim_class := p0_a12;
1084 ddp_claim_rec.set_of_books_id := p0_a13;
1085 ddp_claim_rec.post_to_gl_flag := p0_a14;
1086 ddp_claim_rec.start_date := rosetta_g_miss_date_in_map(p0_a15);
1087 ddp_claim_rec.end_date := rosetta_g_miss_date_in_map(p0_a16);
1088 ddp_claim_rec.creation_sign := p0_a17;
1089 ddp_claim_rec.gl_id_ded_adj := p0_a18;
1090 ddp_claim_rec.gl_id_ded_adj_clearing := p0_a19;
1091 ddp_claim_rec.gl_id_ded_clearing := p0_a20;
1092 ddp_claim_rec.gl_id_accr_promo_liab := p0_a21;
1093 ddp_claim_rec.transaction_type := p0_a22;
1094 ddp_claim_rec.cm_trx_type_id := p0_a23;
1095 ddp_claim_rec.dm_trx_type_id := p0_a24;
1096 ddp_claim_rec.cb_trx_type_id := p0_a25;
1097 ddp_claim_rec.wo_rec_trx_id := p0_a26;
1098 ddp_claim_rec.adj_rec_trx_id := p0_a27;
1099 ddp_claim_rec.attribute_category := p0_a28;
1100 ddp_claim_rec.attribute1 := p0_a29;
1101 ddp_claim_rec.attribute2 := p0_a30;
1102 ddp_claim_rec.attribute3 := p0_a31;
1103 ddp_claim_rec.attribute4 := p0_a32;
1104 ddp_claim_rec.attribute5 := p0_a33;
1105 ddp_claim_rec.attribute6 := p0_a34;
1106 ddp_claim_rec.attribute7 := p0_a35;
1107 ddp_claim_rec.attribute8 := p0_a36;
1108 ddp_claim_rec.attribute9 := p0_a37;
1109 ddp_claim_rec.attribute10 := p0_a38;
1110 ddp_claim_rec.attribute11 := p0_a39;
1111 ddp_claim_rec.attribute12 := p0_a40;
1112 ddp_claim_rec.attribute13 := p0_a41;
1113 ddp_claim_rec.attribute14 := p0_a42;
1114 ddp_claim_rec.attribute15 := p0_a43;
1115 ddp_claim_rec.org_id := p0_a44;
1116 ddp_claim_rec.name := p0_a45;
1117 ddp_claim_rec.description := p0_a46;
1118 ddp_claim_rec.language := p0_a47;
1119 ddp_claim_rec.source_lang := p0_a48;
1120 ddp_claim_rec.adjustment_type := p0_a49;
1121 ddp_claim_rec.order_type_id := p0_a50;
1122 ddp_claim_rec.neg_wo_rec_trx_id := p0_a51;
1123 ddp_claim_rec.gl_balancing_flex_value := p0_a52;
1124
1125
1126 -- here's the delegated call to the old PL/SQL routine
1127 ozf_claim_type_pvt.complete_claim_type_rec(ddp_claim_rec,
1128 ddx_complete_rec);
1129
1130 -- copy data back from the local variables to OUT or IN-OUT args, if any
1131
1132 p1_a0 := ddx_complete_rec.claim_type_id;
1133 p1_a1 := ddx_complete_rec.object_version_number;
1134 p1_a2 := ddx_complete_rec.last_update_date;
1135 p1_a3 := ddx_complete_rec.last_updated_by;
1136 p1_a4 := ddx_complete_rec.creation_date;
1137 p1_a5 := ddx_complete_rec.created_by;
1138 p1_a6 := ddx_complete_rec.last_update_login;
1139 p1_a7 := ddx_complete_rec.request_id;
1140 p1_a8 := ddx_complete_rec.program_application_id;
1141 p1_a9 := ddx_complete_rec.program_update_date;
1142 p1_a10 := ddx_complete_rec.program_id;
1143 p1_a11 := ddx_complete_rec.created_from;
1144 p1_a12 := ddx_complete_rec.claim_class;
1145 p1_a13 := ddx_complete_rec.set_of_books_id;
1146 p1_a14 := ddx_complete_rec.post_to_gl_flag;
1147 p1_a15 := ddx_complete_rec.start_date;
1148 p1_a16 := ddx_complete_rec.end_date;
1149 p1_a17 := ddx_complete_rec.creation_sign;
1150 p1_a18 := ddx_complete_rec.gl_id_ded_adj;
1151 p1_a19 := ddx_complete_rec.gl_id_ded_adj_clearing;
1152 p1_a20 := ddx_complete_rec.gl_id_ded_clearing;
1153 p1_a21 := ddx_complete_rec.gl_id_accr_promo_liab;
1154 p1_a22 := ddx_complete_rec.transaction_type;
1155 p1_a23 := ddx_complete_rec.cm_trx_type_id;
1156 p1_a24 := ddx_complete_rec.dm_trx_type_id;
1157 p1_a25 := ddx_complete_rec.cb_trx_type_id;
1158 p1_a26 := ddx_complete_rec.wo_rec_trx_id;
1159 p1_a27 := ddx_complete_rec.adj_rec_trx_id;
1160 p1_a28 := ddx_complete_rec.attribute_category;
1161 p1_a29 := ddx_complete_rec.attribute1;
1162 p1_a30 := ddx_complete_rec.attribute2;
1163 p1_a31 := ddx_complete_rec.attribute3;
1164 p1_a32 := ddx_complete_rec.attribute4;
1165 p1_a33 := ddx_complete_rec.attribute5;
1166 p1_a34 := ddx_complete_rec.attribute6;
1167 p1_a35 := ddx_complete_rec.attribute7;
1168 p1_a36 := ddx_complete_rec.attribute8;
1169 p1_a37 := ddx_complete_rec.attribute9;
1170 p1_a38 := ddx_complete_rec.attribute10;
1171 p1_a39 := ddx_complete_rec.attribute11;
1172 p1_a40 := ddx_complete_rec.attribute12;
1173 p1_a41 := ddx_complete_rec.attribute13;
1174 p1_a42 := ddx_complete_rec.attribute14;
1175 p1_a43 := ddx_complete_rec.attribute15;
1176 p1_a44 := ddx_complete_rec.org_id;
1177 p1_a45 := ddx_complete_rec.name;
1178 p1_a46 := ddx_complete_rec.description;
1179 p1_a47 := ddx_complete_rec.language;
1180 p1_a48 := ddx_complete_rec.source_lang;
1181 p1_a49 := ddx_complete_rec.adjustment_type;
1182 p1_a50 := ddx_complete_rec.order_type_id;
1183 p1_a51 := ddx_complete_rec.neg_wo_rec_trx_id;
1184 p1_a52 := ddx_complete_rec.gl_balancing_flex_value;
1185 end;
1186
1187 end ozf_claim_type_pvt_w;