[Home] [Help]
PACKAGE BODY: APPS.OZF_OFFER_BACKDATE_PVT_W
Source
1 package body ozf_offer_backdate_pvt_w as
2 /* $Header: ozfwobdb.pls 120.0 2005/05/31 23:14:49 appldev noship $ */
3 rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4 rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5
6 function rosetta_g_miss_num_map(n number) return number as
7 a number := fnd_api.g_miss_num;
8 b number := 0-1962.0724;
9 begin
10 if n=a then return b; end if;
11 if n=b then return a; end if;
12 return n;
13 end;
14
15 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
16 function rosetta_g_miss_date_in_map(d date) return date as
17 begin
18 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
19 return d;
20 end;
21
22 procedure rosetta_table_copy_in_p3(t OUT NOCOPY ozf_offer_backdate_pvt.offer_backdate_tbl_type, a0 JTF_NUMBER_TABLE
23 , a1 JTF_DATE_TABLE
24 , a2 JTF_DATE_TABLE
25 , a3 JTF_VARCHAR2_TABLE_100
26 , a4 JTF_VARCHAR2_TABLE_100
27 , a5 JTF_NUMBER_TABLE
28 , a6 JTF_NUMBER_TABLE
29 , a7 JTF_VARCHAR2_TABLE_100
30 , a8 JTF_VARCHAR2_TABLE_2000
31 , a9 JTF_DATE_TABLE
32 , a10 JTF_NUMBER_TABLE
33 , a11 JTF_DATE_TABLE
34 , a12 JTF_NUMBER_TABLE
35 , a13 JTF_NUMBER_TABLE
36 , a14 JTF_NUMBER_TABLE
37 , a15 JTF_NUMBER_TABLE
38 ) as
39 ddindx binary_integer; indx binary_integer;
40 begin
41 if a0 is not null and a0.count > 0 then
42 if a0.count > 0 then
43 indx := a0.first;
44 ddindx := 1;
45 while true loop
46 t(ddindx).offer_adjustment_id := rosetta_g_miss_num_map(a0(indx));
47 t(ddindx).effective_date := rosetta_g_miss_date_in_map(a1(indx));
48 t(ddindx).approved_date := rosetta_g_miss_date_in_map(a2(indx));
49 t(ddindx).settlement_code := a3(indx);
50 t(ddindx).status_code := a4(indx);
51 t(ddindx).list_header_id := rosetta_g_miss_num_map(a5(indx));
52 t(ddindx).version := rosetta_g_miss_num_map(a6(indx));
53 t(ddindx).budget_adjusted_flag := a7(indx);
54 t(ddindx).comments := a8(indx);
55 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a9(indx));
56 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a10(indx));
57 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a11(indx));
58 t(ddindx).created_by := rosetta_g_miss_num_map(a12(indx));
59 t(ddindx).last_update_login := rosetta_g_miss_num_map(a13(indx));
60 t(ddindx).object_version_number := rosetta_g_miss_num_map(a14(indx));
61 t(ddindx).security_group_id := rosetta_g_miss_num_map(a15(indx));
62 ddindx := ddindx+1;
63 if a0.last =indx
64 then exit;
65 end if;
66 indx := a0.next(indx);
67 end loop;
68 end if;
69 end if;
70 end rosetta_table_copy_in_p3;
71 procedure rosetta_table_copy_out_p3(t ozf_offer_backdate_pvt.offer_backdate_tbl_type, a0 OUT NOCOPY JTF_NUMBER_TABLE
72 , a1 OUT NOCOPY JTF_DATE_TABLE
73 , a2 OUT NOCOPY JTF_DATE_TABLE
74 , a3 OUT NOCOPY JTF_VARCHAR2_TABLE_100
75 , a4 OUT NOCOPY JTF_VARCHAR2_TABLE_100
76 , a5 OUT NOCOPY JTF_NUMBER_TABLE
77 , a6 OUT NOCOPY JTF_NUMBER_TABLE
78 , a7 OUT NOCOPY JTF_VARCHAR2_TABLE_100
79 , a8 OUT NOCOPY JTF_VARCHAR2_TABLE_2000
80 , a9 OUT NOCOPY JTF_DATE_TABLE
81 , a10 OUT NOCOPY JTF_NUMBER_TABLE
82 , a11 OUT NOCOPY JTF_DATE_TABLE
83 , a12 OUT NOCOPY JTF_NUMBER_TABLE
84 , a13 OUT NOCOPY JTF_NUMBER_TABLE
85 , a14 OUT NOCOPY JTF_NUMBER_TABLE
86 , a15 OUT NOCOPY JTF_NUMBER_TABLE
87 ) as
88 ddindx binary_integer; indx binary_integer;
89 begin
90 if t is null or t.count = 0 then
91 a0 := JTF_NUMBER_TABLE();
92 a1 := JTF_DATE_TABLE();
93 a2 := JTF_DATE_TABLE();
94 a3 := JTF_VARCHAR2_TABLE_100();
95 a4 := JTF_VARCHAR2_TABLE_100();
96 a5 := JTF_NUMBER_TABLE();
97 a6 := JTF_NUMBER_TABLE();
98 a7 := JTF_VARCHAR2_TABLE_100();
99 a8 := JTF_VARCHAR2_TABLE_2000();
100 a9 := JTF_DATE_TABLE();
101 a10 := JTF_NUMBER_TABLE();
102 a11 := JTF_DATE_TABLE();
103 a12 := JTF_NUMBER_TABLE();
104 a13 := JTF_NUMBER_TABLE();
105 a14 := JTF_NUMBER_TABLE();
106 a15 := JTF_NUMBER_TABLE();
107 else
108 a0 := JTF_NUMBER_TABLE();
109 a1 := JTF_DATE_TABLE();
110 a2 := JTF_DATE_TABLE();
111 a3 := JTF_VARCHAR2_TABLE_100();
112 a4 := JTF_VARCHAR2_TABLE_100();
113 a5 := JTF_NUMBER_TABLE();
114 a6 := JTF_NUMBER_TABLE();
115 a7 := JTF_VARCHAR2_TABLE_100();
116 a8 := JTF_VARCHAR2_TABLE_2000();
117 a9 := JTF_DATE_TABLE();
118 a10 := JTF_NUMBER_TABLE();
119 a11 := JTF_DATE_TABLE();
120 a12 := JTF_NUMBER_TABLE();
121 a13 := JTF_NUMBER_TABLE();
122 a14 := JTF_NUMBER_TABLE();
123 a15 := JTF_NUMBER_TABLE();
124 if t.count > 0 then
125 a0.extend(t.count);
126 a1.extend(t.count);
127 a2.extend(t.count);
128 a3.extend(t.count);
129 a4.extend(t.count);
130 a5.extend(t.count);
131 a6.extend(t.count);
132 a7.extend(t.count);
133 a8.extend(t.count);
134 a9.extend(t.count);
135 a10.extend(t.count);
136 a11.extend(t.count);
137 a12.extend(t.count);
138 a13.extend(t.count);
139 a14.extend(t.count);
140 a15.extend(t.count);
141 ddindx := t.first;
142 indx := 1;
143 while true loop
144 a0(indx) := rosetta_g_miss_num_map(t(ddindx).offer_adjustment_id);
145 a1(indx) := t(ddindx).effective_date;
146 a2(indx) := t(ddindx).approved_date;
147 a3(indx) := t(ddindx).settlement_code;
148 a4(indx) := t(ddindx).status_code;
149 a5(indx) := rosetta_g_miss_num_map(t(ddindx).list_header_id);
150 a6(indx) := rosetta_g_miss_num_map(t(ddindx).version);
151 a7(indx) := t(ddindx).budget_adjusted_flag;
152 a8(indx) := t(ddindx).comments;
153 a9(indx) := t(ddindx).last_update_date;
154 a10(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
155 a11(indx) := t(ddindx).creation_date;
156 a12(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
157 a13(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
158 a14(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
159 a15(indx) := rosetta_g_miss_num_map(t(ddindx).security_group_id);
160 indx := indx+1;
161 if t.last =ddindx
162 then exit;
163 end if;
164 ddindx := t.next(ddindx);
165 end loop;
166 end if;
167 end if;
168 end rosetta_table_copy_out_p3;
169
170 procedure create_offer_backdate(p_api_version_number NUMBER
171 , p_init_msg_list VARCHAR2
172 , p_commit VARCHAR2
173 , p_validation_level NUMBER
174 , x_return_status OUT NOCOPY VARCHAR2
175 , x_msg_count OUT NOCOPY NUMBER
176 , x_msg_data OUT NOCOPY VARCHAR2
177 , x_offer_adjustment_id OUT NOCOPY NUMBER
178 , p7_a0 NUMBER := 0-1962.0724
179 , p7_a1 DATE := fnd_api.g_miss_date
180 , p7_a2 DATE := fnd_api.g_miss_date
181 , p7_a3 VARCHAR2 := fnd_api.g_miss_char
182 , p7_a4 VARCHAR2 := fnd_api.g_miss_char
183 , p7_a5 NUMBER := 0-1962.0724
184 , p7_a6 NUMBER := 0-1962.0724
185 , p7_a7 VARCHAR2 := fnd_api.g_miss_char
186 , p7_a8 VARCHAR2 := fnd_api.g_miss_char
187 , p7_a9 DATE := fnd_api.g_miss_date
188 , p7_a10 NUMBER := 0-1962.0724
189 , p7_a11 DATE := fnd_api.g_miss_date
190 , p7_a12 NUMBER := 0-1962.0724
191 , p7_a13 NUMBER := 0-1962.0724
192 , p7_a14 NUMBER := 0-1962.0724
193 , p7_a15 NUMBER := 0-1962.0724
194 )
195 as
196 ddp_offer_backdate_rec ozf_offer_backdate_pvt.offer_backdate_rec_type;
197 ddindx binary_integer; indx binary_integer;
198 begin
199
200 -- copy data to the local IN or IN-OUT args, if any
201
202
203
204
205
206
207
208 ddp_offer_backdate_rec.offer_adjustment_id := rosetta_g_miss_num_map(p7_a0);
209 ddp_offer_backdate_rec.effective_date := rosetta_g_miss_date_in_map(p7_a1);
210 ddp_offer_backdate_rec.approved_date := rosetta_g_miss_date_in_map(p7_a2);
211 ddp_offer_backdate_rec.settlement_code := p7_a3;
212 ddp_offer_backdate_rec.status_code := p7_a4;
213 ddp_offer_backdate_rec.list_header_id := rosetta_g_miss_num_map(p7_a5);
214 ddp_offer_backdate_rec.version := rosetta_g_miss_num_map(p7_a6);
215 ddp_offer_backdate_rec.budget_adjusted_flag := p7_a7;
216 ddp_offer_backdate_rec.comments := p7_a8;
217 ddp_offer_backdate_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a9);
218 ddp_offer_backdate_rec.last_updated_by := rosetta_g_miss_num_map(p7_a10);
219 ddp_offer_backdate_rec.creation_date := rosetta_g_miss_date_in_map(p7_a11);
220 ddp_offer_backdate_rec.created_by := rosetta_g_miss_num_map(p7_a12);
221 ddp_offer_backdate_rec.last_update_login := rosetta_g_miss_num_map(p7_a13);
222 ddp_offer_backdate_rec.object_version_number := rosetta_g_miss_num_map(p7_a14);
223 ddp_offer_backdate_rec.security_group_id := rosetta_g_miss_num_map(p7_a15);
224
225
226 -- here's the delegated call to the old PL/SQL routine
227 ozf_offer_backdate_pvt.create_offer_backdate(p_api_version_number,
228 p_init_msg_list,
229 p_commit,
230 p_validation_level,
231 x_return_status,
232 x_msg_count,
233 x_msg_data,
234 ddp_offer_backdate_rec,
235 x_offer_adjustment_id);
236
237 -- copy data back from the local OUT or IN-OUT args, if any
238
239
240
241
242
243
244
245
246 end;
247
248 procedure update_offer_backdate(p_api_version_number NUMBER
249 , p_init_msg_list VARCHAR2
250 , p_commit VARCHAR2
251 , p_validation_level NUMBER
252 , x_return_status OUT NOCOPY VARCHAR2
253 , x_msg_count OUT NOCOPY NUMBER
254 , x_msg_data OUT NOCOPY VARCHAR2
255 , x_object_version_number OUT NOCOPY NUMBER
256 , p7_a0 NUMBER := 0-1962.0724
257 , p7_a1 DATE := fnd_api.g_miss_date
258 , p7_a2 DATE := fnd_api.g_miss_date
259 , p7_a3 VARCHAR2 := fnd_api.g_miss_char
260 , p7_a4 VARCHAR2 := fnd_api.g_miss_char
261 , p7_a5 NUMBER := 0-1962.0724
262 , p7_a6 NUMBER := 0-1962.0724
263 , p7_a7 VARCHAR2 := fnd_api.g_miss_char
264 , p7_a8 VARCHAR2 := fnd_api.g_miss_char
265 , p7_a9 DATE := fnd_api.g_miss_date
266 , p7_a10 NUMBER := 0-1962.0724
267 , p7_a11 DATE := fnd_api.g_miss_date
268 , p7_a12 NUMBER := 0-1962.0724
269 , p7_a13 NUMBER := 0-1962.0724
270 , p7_a14 NUMBER := 0-1962.0724
271 , p7_a15 NUMBER := 0-1962.0724
272 )
273 as
274 ddp_offer_backdate_rec ozf_offer_backdate_pvt.offer_backdate_rec_type;
275 ddindx binary_integer; indx binary_integer;
276 begin
277
278 -- copy data to the local IN or IN-OUT args, if any
279
280
281
282
283
284
285
286 ddp_offer_backdate_rec.offer_adjustment_id := rosetta_g_miss_num_map(p7_a0);
287 ddp_offer_backdate_rec.effective_date := rosetta_g_miss_date_in_map(p7_a1);
288 ddp_offer_backdate_rec.approved_date := rosetta_g_miss_date_in_map(p7_a2);
289 ddp_offer_backdate_rec.settlement_code := p7_a3;
290 ddp_offer_backdate_rec.status_code := p7_a4;
291 ddp_offer_backdate_rec.list_header_id := rosetta_g_miss_num_map(p7_a5);
292 ddp_offer_backdate_rec.version := rosetta_g_miss_num_map(p7_a6);
293 ddp_offer_backdate_rec.budget_adjusted_flag := p7_a7;
294 ddp_offer_backdate_rec.comments := p7_a8;
295 ddp_offer_backdate_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a9);
296 ddp_offer_backdate_rec.last_updated_by := rosetta_g_miss_num_map(p7_a10);
297 ddp_offer_backdate_rec.creation_date := rosetta_g_miss_date_in_map(p7_a11);
298 ddp_offer_backdate_rec.created_by := rosetta_g_miss_num_map(p7_a12);
299 ddp_offer_backdate_rec.last_update_login := rosetta_g_miss_num_map(p7_a13);
300 ddp_offer_backdate_rec.object_version_number := rosetta_g_miss_num_map(p7_a14);
301 ddp_offer_backdate_rec.security_group_id := rosetta_g_miss_num_map(p7_a15);
302
303
304 -- here's the delegated call to the old PL/SQL routine
305 ozf_offer_backdate_pvt.update_offer_backdate(p_api_version_number,
306 p_init_msg_list,
307 p_commit,
308 p_validation_level,
309 x_return_status,
310 x_msg_count,
311 x_msg_data,
312 ddp_offer_backdate_rec,
313 x_object_version_number);
314
315 -- copy data back from the local OUT or IN-OUT args, if any
316
317
318
319
320
321
322
323
324 end;
325
326 procedure validate_offer_backdate(p_api_version_number NUMBER
327 , p_init_msg_list VARCHAR2
328 , p_validation_level NUMBER
329 , p_validation_mode VARCHAR2
330 , x_return_status OUT NOCOPY VARCHAR2
331 , x_msg_count OUT NOCOPY NUMBER
332 , x_msg_data OUT NOCOPY VARCHAR2
333 , p3_a0 NUMBER := 0-1962.0724
334 , p3_a1 DATE := fnd_api.g_miss_date
335 , p3_a2 DATE := fnd_api.g_miss_date
336 , p3_a3 VARCHAR2 := fnd_api.g_miss_char
337 , p3_a4 VARCHAR2 := fnd_api.g_miss_char
338 , p3_a5 NUMBER := 0-1962.0724
339 , p3_a6 NUMBER := 0-1962.0724
340 , p3_a7 VARCHAR2 := fnd_api.g_miss_char
341 , p3_a8 VARCHAR2 := fnd_api.g_miss_char
342 , p3_a9 DATE := fnd_api.g_miss_date
343 , p3_a10 NUMBER := 0-1962.0724
344 , p3_a11 DATE := fnd_api.g_miss_date
345 , p3_a12 NUMBER := 0-1962.0724
346 , p3_a13 NUMBER := 0-1962.0724
347 , p3_a14 NUMBER := 0-1962.0724
348 , p3_a15 NUMBER := 0-1962.0724
349 )
350 as
351 ddp_offer_backdate_rec ozf_offer_backdate_pvt.offer_backdate_rec_type;
352 ddindx binary_integer; indx binary_integer;
353 begin
354
355 -- copy data to the local IN or IN-OUT args, if any
356
357
358
359 ddp_offer_backdate_rec.offer_adjustment_id := rosetta_g_miss_num_map(p3_a0);
360 ddp_offer_backdate_rec.effective_date := rosetta_g_miss_date_in_map(p3_a1);
361 ddp_offer_backdate_rec.approved_date := rosetta_g_miss_date_in_map(p3_a2);
362 ddp_offer_backdate_rec.settlement_code := p3_a3;
363 ddp_offer_backdate_rec.status_code := p3_a4;
364 ddp_offer_backdate_rec.list_header_id := rosetta_g_miss_num_map(p3_a5);
365 ddp_offer_backdate_rec.version := rosetta_g_miss_num_map(p3_a6);
366 ddp_offer_backdate_rec.budget_adjusted_flag := p3_a7;
367 ddp_offer_backdate_rec.comments := p3_a8;
368 ddp_offer_backdate_rec.last_update_date := rosetta_g_miss_date_in_map(p3_a9);
369 ddp_offer_backdate_rec.last_updated_by := rosetta_g_miss_num_map(p3_a10);
370 ddp_offer_backdate_rec.creation_date := rosetta_g_miss_date_in_map(p3_a11);
371 ddp_offer_backdate_rec.created_by := rosetta_g_miss_num_map(p3_a12);
372 ddp_offer_backdate_rec.last_update_login := rosetta_g_miss_num_map(p3_a13);
373 ddp_offer_backdate_rec.object_version_number := rosetta_g_miss_num_map(p3_a14);
374 ddp_offer_backdate_rec.security_group_id := rosetta_g_miss_num_map(p3_a15);
375
376
377
378
379
380 -- here's the delegated call to the old PL/SQL routine
381 ozf_offer_backdate_pvt.validate_offer_backdate(p_api_version_number,
382 p_init_msg_list,
383 p_validation_level,
384 ddp_offer_backdate_rec,
385 p_validation_mode,
386 x_return_status,
387 x_msg_count,
388 x_msg_data);
389
390 -- copy data back from the local OUT or IN-OUT args, if any
391
392
393
394
395
396
397
398 end;
399
400 procedure check_offer_backdate_items(p_validation_mode VARCHAR2
401 , x_return_status OUT NOCOPY VARCHAR2
402 , p0_a0 NUMBER := 0-1962.0724
403 , p0_a1 DATE := fnd_api.g_miss_date
404 , p0_a2 DATE := fnd_api.g_miss_date
405 , p0_a3 VARCHAR2 := fnd_api.g_miss_char
406 , p0_a4 VARCHAR2 := fnd_api.g_miss_char
407 , p0_a5 NUMBER := 0-1962.0724
408 , p0_a6 NUMBER := 0-1962.0724
409 , p0_a7 VARCHAR2 := fnd_api.g_miss_char
410 , p0_a8 VARCHAR2 := fnd_api.g_miss_char
411 , p0_a9 DATE := fnd_api.g_miss_date
412 , p0_a10 NUMBER := 0-1962.0724
413 , p0_a11 DATE := fnd_api.g_miss_date
414 , p0_a12 NUMBER := 0-1962.0724
415 , p0_a13 NUMBER := 0-1962.0724
416 , p0_a14 NUMBER := 0-1962.0724
417 , p0_a15 NUMBER := 0-1962.0724
418 )
419 as
420 ddp_offer_backdate_rec ozf_offer_backdate_pvt.offer_backdate_rec_type;
421 ddindx binary_integer; indx binary_integer;
422 begin
423
424 -- copy data to the local IN or IN-OUT args, if any
425 ddp_offer_backdate_rec.offer_adjustment_id := rosetta_g_miss_num_map(p0_a0);
426 ddp_offer_backdate_rec.effective_date := rosetta_g_miss_date_in_map(p0_a1);
427 ddp_offer_backdate_rec.approved_date := rosetta_g_miss_date_in_map(p0_a2);
428 ddp_offer_backdate_rec.settlement_code := p0_a3;
429 ddp_offer_backdate_rec.status_code := p0_a4;
430 ddp_offer_backdate_rec.list_header_id := rosetta_g_miss_num_map(p0_a5);
431 ddp_offer_backdate_rec.version := rosetta_g_miss_num_map(p0_a6);
432 ddp_offer_backdate_rec.budget_adjusted_flag := p0_a7;
433 ddp_offer_backdate_rec.comments := p0_a8;
434 ddp_offer_backdate_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a9);
435 ddp_offer_backdate_rec.last_updated_by := rosetta_g_miss_num_map(p0_a10);
436 ddp_offer_backdate_rec.creation_date := rosetta_g_miss_date_in_map(p0_a11);
437 ddp_offer_backdate_rec.created_by := rosetta_g_miss_num_map(p0_a12);
438 ddp_offer_backdate_rec.last_update_login := rosetta_g_miss_num_map(p0_a13);
439 ddp_offer_backdate_rec.object_version_number := rosetta_g_miss_num_map(p0_a14);
440 ddp_offer_backdate_rec.security_group_id := rosetta_g_miss_num_map(p0_a15);
441
442
443
444 -- here's the delegated call to the old PL/SQL routine
445 ozf_offer_backdate_pvt.check_offer_backdate_items(ddp_offer_backdate_rec,
446 p_validation_mode,
447 x_return_status);
448
449 -- copy data back from the local OUT or IN-OUT args, if any
450
451
452 end;
453
454 procedure validate_offer_backdate_rec(p_api_version_number NUMBER
455 , p_init_msg_list VARCHAR2
456 , x_return_status OUT NOCOPY VARCHAR2
457 , x_msg_count OUT NOCOPY NUMBER
458 , x_msg_data OUT NOCOPY VARCHAR2
459 , p5_a0 NUMBER := 0-1962.0724
460 , p5_a1 DATE := fnd_api.g_miss_date
461 , p5_a2 DATE := fnd_api.g_miss_date
462 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
463 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
464 , p5_a5 NUMBER := 0-1962.0724
465 , p5_a6 NUMBER := 0-1962.0724
466 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
467 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
468 , p5_a9 DATE := fnd_api.g_miss_date
469 , p5_a10 NUMBER := 0-1962.0724
470 , p5_a11 DATE := fnd_api.g_miss_date
471 , p5_a12 NUMBER := 0-1962.0724
472 , p5_a13 NUMBER := 0-1962.0724
473 , p5_a14 NUMBER := 0-1962.0724
474 , p5_a15 NUMBER := 0-1962.0724
475 )
476 as
477 ddp_offer_backdate_rec ozf_offer_backdate_pvt.offer_backdate_rec_type;
478 ddindx binary_integer; indx binary_integer;
479 begin
480
481 -- copy data to the local IN or IN-OUT args, if any
482
483
484
485
486
487 ddp_offer_backdate_rec.offer_adjustment_id := rosetta_g_miss_num_map(p5_a0);
488 ddp_offer_backdate_rec.effective_date := rosetta_g_miss_date_in_map(p5_a1);
489 ddp_offer_backdate_rec.approved_date := rosetta_g_miss_date_in_map(p5_a2);
490 ddp_offer_backdate_rec.settlement_code := p5_a3;
491 ddp_offer_backdate_rec.status_code := p5_a4;
492 ddp_offer_backdate_rec.list_header_id := rosetta_g_miss_num_map(p5_a5);
493 ddp_offer_backdate_rec.version := rosetta_g_miss_num_map(p5_a6);
494 ddp_offer_backdate_rec.budget_adjusted_flag := p5_a7;
495 ddp_offer_backdate_rec.comments := p5_a8;
496 ddp_offer_backdate_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a9);
497 ddp_offer_backdate_rec.last_updated_by := rosetta_g_miss_num_map(p5_a10);
498 ddp_offer_backdate_rec.creation_date := rosetta_g_miss_date_in_map(p5_a11);
499 ddp_offer_backdate_rec.created_by := rosetta_g_miss_num_map(p5_a12);
500 ddp_offer_backdate_rec.last_update_login := rosetta_g_miss_num_map(p5_a13);
501 ddp_offer_backdate_rec.object_version_number := rosetta_g_miss_num_map(p5_a14);
502 ddp_offer_backdate_rec.security_group_id := rosetta_g_miss_num_map(p5_a15);
503
504 -- here's the delegated call to the old PL/SQL routine
505 ozf_offer_backdate_pvt.validate_offer_backdate_rec(p_api_version_number,
506 p_init_msg_list,
507 x_return_status,
508 x_msg_count,
509 x_msg_data,
510 ddp_offer_backdate_rec);
511
512 -- copy data back from the local OUT or IN-OUT args, if any
513
514
515
516
517
518 end;
519
520 end ozf_offer_backdate_pvt_w;