[Home] [Help]
PACKAGE BODY: APPS.IEX_COSTS_PVT_W
Source
1 package body iex_costs_pvt_w as
2 /* $Header: iexwcosb.pls 120.1 2005/07/06 14:04:24 schekuri noship $ */
3 rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4 rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5
6 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
7 function rosetta_g_miss_date_in_map(d date) return date as
8 begin
9 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10 return d;
11 end;
12
13 function rosetta_g_miss_num_map(n number) return number as
14 a number := fnd_api.g_miss_num;
15 b number := 0-1962.0724;
16 begin
17 if n=a then return b; end if;
18 if n=b then return a; end if;
19 return n;
20 end;
21
22 procedure rosetta_table_copy_in_p3(t out nocopy iex_costs_pvt.costs_tbl_type, a0 JTF_NUMBER_TABLE
23 , a1 JTF_NUMBER_TABLE
24 , a2 JTF_NUMBER_TABLE
25 , a3 JTF_VARCHAR2_TABLE_300
26 , a4 JTF_VARCHAR2_TABLE_300
27 , a5 JTF_VARCHAR2_TABLE_300
28 , a6 JTF_NUMBER_TABLE
29 , a7 JTF_VARCHAR2_TABLE_100
30 , a8 JTF_NUMBER_TABLE
31 , a9 JTF_DATE_TABLE
32 , a10 JTF_NUMBER_TABLE
33 , a11 JTF_VARCHAR2_TABLE_100
34 , a12 JTF_NUMBER_TABLE
35 , a13 JTF_DATE_TABLE
36 , a14 JTF_VARCHAR2_TABLE_300
37 , a15 JTF_VARCHAR2_TABLE_300
38 , a16 JTF_NUMBER_TABLE
39 , a17 JTF_NUMBER_TABLE
40 , a18 JTF_DATE_TABLE
41 , a19 JTF_NUMBER_TABLE
42 , a20 JTF_DATE_TABLE
43 , a21 JTF_NUMBER_TABLE
44 , a22 JTF_NUMBER_TABLE
45 , a23 JTF_NUMBER_TABLE
46 , a24 JTF_DATE_TABLE
47 , a25 JTF_VARCHAR2_TABLE_300
48 , a26 JTF_VARCHAR2_TABLE_300
49 , a27 JTF_VARCHAR2_TABLE_300
50 , a28 JTF_VARCHAR2_TABLE_300
51 , a29 JTF_VARCHAR2_TABLE_300
52 , a30 JTF_VARCHAR2_TABLE_300
53 , a31 JTF_VARCHAR2_TABLE_300
54 , a32 JTF_VARCHAR2_TABLE_300
55 , a33 JTF_VARCHAR2_TABLE_300
56 , a34 JTF_VARCHAR2_TABLE_300
57 , a35 JTF_VARCHAR2_TABLE_300
58 , a36 JTF_VARCHAR2_TABLE_300
59 , a37 JTF_VARCHAR2_TABLE_300
60 , a38 JTF_VARCHAR2_TABLE_300
61 , a39 JTF_VARCHAR2_TABLE_300
62 , a40 JTF_VARCHAR2_TABLE_300
63 , a41 JTF_NUMBER_TABLE
64 ) as
65 ddindx binary_integer; indx binary_integer;
66 begin
67 if a0 is not null and a0.count > 0 then
68 if a0.count > 0 then
69 indx := a0.first;
70 ddindx := 1;
71 while true loop
72 t(ddindx).cost_id := rosetta_g_miss_num_map(a0(indx));
73 t(ddindx).case_id := rosetta_g_miss_num_map(a1(indx));
74 t(ddindx).delinquency_id := rosetta_g_miss_num_map(a2(indx));
75 t(ddindx).cost_type_code := a3(indx);
76 t(ddindx).cost_item_type_code := a4(indx);
77 t(ddindx).cost_item_type_desc := a5(indx);
78 t(ddindx).cost_item_amount := rosetta_g_miss_num_map(a6(indx));
79 t(ddindx).cost_item_currency_code := a7(indx);
80 t(ddindx).cost_item_qty := rosetta_g_miss_num_map(a8(indx));
81 t(ddindx).cost_item_date := rosetta_g_miss_date_in_map(a9(indx));
82 t(ddindx).functional_amount := rosetta_g_miss_num_map(a10(indx));
83 t(ddindx).exchange_type := a11(indx);
84 t(ddindx).exchange_rate := rosetta_g_miss_num_map(a12(indx));
85 t(ddindx).exchange_date := rosetta_g_miss_date_in_map(a13(indx));
86 t(ddindx).cost_item_approved := a14(indx);
87 t(ddindx).active_flag := a15(indx);
88 t(ddindx).object_version_number := rosetta_g_miss_num_map(a16(indx));
89 t(ddindx).created_by := rosetta_g_miss_num_map(a17(indx));
90 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a18(indx));
91 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a19(indx));
92 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a20(indx));
93 t(ddindx).request_id := rosetta_g_miss_num_map(a21(indx));
94 t(ddindx).program_application_id := rosetta_g_miss_num_map(a22(indx));
95 t(ddindx).program_id := rosetta_g_miss_num_map(a23(indx));
96 t(ddindx).program_update_date := rosetta_g_miss_date_in_map(a24(indx));
97 t(ddindx).attribute_category := a25(indx);
98 t(ddindx).attribute1 := a26(indx);
99 t(ddindx).attribute2 := a27(indx);
100 t(ddindx).attribute3 := a28(indx);
101 t(ddindx).attribute4 := a29(indx);
102 t(ddindx).attribute5 := a30(indx);
103 t(ddindx).attribute6 := a31(indx);
104 t(ddindx).attribute7 := a32(indx);
105 t(ddindx).attribute8 := a33(indx);
106 t(ddindx).attribute9 := a34(indx);
107 t(ddindx).attribute10 := a35(indx);
108 t(ddindx).attribute11 := a36(indx);
109 t(ddindx).attribute12 := a37(indx);
110 t(ddindx).attribute13 := a38(indx);
111 t(ddindx).attribute14 := a39(indx);
112 t(ddindx).attribute15 := a40(indx);
113 t(ddindx).last_update_login := rosetta_g_miss_num_map(a41(indx));
114 ddindx := ddindx+1;
115 if a0.last =indx
116 then exit;
117 end if;
118 indx := a0.next(indx);
119 end loop;
120 end if;
121 end if;
122 end rosetta_table_copy_in_p3;
123 procedure rosetta_table_copy_out_p3(t iex_costs_pvt.costs_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
124 , a1 out nocopy JTF_NUMBER_TABLE
125 , a2 out nocopy JTF_NUMBER_TABLE
126 , a3 out nocopy JTF_VARCHAR2_TABLE_300
127 , a4 out nocopy JTF_VARCHAR2_TABLE_300
128 , a5 out nocopy JTF_VARCHAR2_TABLE_300
129 , a6 out nocopy JTF_NUMBER_TABLE
130 , a7 out nocopy JTF_VARCHAR2_TABLE_100
131 , a8 out nocopy JTF_NUMBER_TABLE
132 , a9 out nocopy JTF_DATE_TABLE
133 , a10 out nocopy JTF_NUMBER_TABLE
134 , a11 out nocopy JTF_VARCHAR2_TABLE_100
135 , a12 out nocopy JTF_NUMBER_TABLE
136 , a13 out nocopy JTF_DATE_TABLE
137 , a14 out nocopy JTF_VARCHAR2_TABLE_300
138 , a15 out nocopy JTF_VARCHAR2_TABLE_300
139 , a16 out nocopy JTF_NUMBER_TABLE
140 , a17 out nocopy JTF_NUMBER_TABLE
141 , a18 out nocopy JTF_DATE_TABLE
142 , a19 out nocopy JTF_NUMBER_TABLE
143 , a20 out nocopy JTF_DATE_TABLE
144 , a21 out nocopy JTF_NUMBER_TABLE
145 , a22 out nocopy JTF_NUMBER_TABLE
146 , a23 out nocopy JTF_NUMBER_TABLE
147 , a24 out nocopy JTF_DATE_TABLE
148 , a25 out nocopy JTF_VARCHAR2_TABLE_300
149 , a26 out nocopy JTF_VARCHAR2_TABLE_300
150 , a27 out nocopy JTF_VARCHAR2_TABLE_300
151 , a28 out nocopy JTF_VARCHAR2_TABLE_300
152 , a29 out nocopy JTF_VARCHAR2_TABLE_300
153 , a30 out nocopy JTF_VARCHAR2_TABLE_300
154 , a31 out nocopy JTF_VARCHAR2_TABLE_300
155 , a32 out nocopy JTF_VARCHAR2_TABLE_300
156 , a33 out nocopy JTF_VARCHAR2_TABLE_300
157 , a34 out nocopy JTF_VARCHAR2_TABLE_300
158 , a35 out nocopy JTF_VARCHAR2_TABLE_300
159 , a36 out nocopy JTF_VARCHAR2_TABLE_300
160 , a37 out nocopy JTF_VARCHAR2_TABLE_300
161 , a38 out nocopy JTF_VARCHAR2_TABLE_300
162 , a39 out nocopy JTF_VARCHAR2_TABLE_300
163 , a40 out nocopy JTF_VARCHAR2_TABLE_300
164 , a41 out nocopy JTF_NUMBER_TABLE
165 ) as
166 ddindx binary_integer; indx binary_integer;
167 begin
168 if t is null or t.count = 0 then
169 a0 := JTF_NUMBER_TABLE();
170 a1 := JTF_NUMBER_TABLE();
171 a2 := JTF_NUMBER_TABLE();
172 a3 := JTF_VARCHAR2_TABLE_300();
173 a4 := JTF_VARCHAR2_TABLE_300();
174 a5 := JTF_VARCHAR2_TABLE_300();
175 a6 := JTF_NUMBER_TABLE();
176 a7 := JTF_VARCHAR2_TABLE_100();
177 a8 := JTF_NUMBER_TABLE();
178 a9 := JTF_DATE_TABLE();
179 a10 := JTF_NUMBER_TABLE();
180 a11 := JTF_VARCHAR2_TABLE_100();
181 a12 := JTF_NUMBER_TABLE();
182 a13 := JTF_DATE_TABLE();
183 a14 := JTF_VARCHAR2_TABLE_300();
184 a15 := JTF_VARCHAR2_TABLE_300();
185 a16 := JTF_NUMBER_TABLE();
186 a17 := JTF_NUMBER_TABLE();
187 a18 := JTF_DATE_TABLE();
188 a19 := JTF_NUMBER_TABLE();
189 a20 := JTF_DATE_TABLE();
190 a21 := JTF_NUMBER_TABLE();
191 a22 := JTF_NUMBER_TABLE();
192 a23 := JTF_NUMBER_TABLE();
193 a24 := JTF_DATE_TABLE();
194 a25 := JTF_VARCHAR2_TABLE_300();
195 a26 := JTF_VARCHAR2_TABLE_300();
196 a27 := JTF_VARCHAR2_TABLE_300();
197 a28 := JTF_VARCHAR2_TABLE_300();
198 a29 := JTF_VARCHAR2_TABLE_300();
199 a30 := JTF_VARCHAR2_TABLE_300();
200 a31 := JTF_VARCHAR2_TABLE_300();
201 a32 := JTF_VARCHAR2_TABLE_300();
202 a33 := JTF_VARCHAR2_TABLE_300();
203 a34 := JTF_VARCHAR2_TABLE_300();
204 a35 := JTF_VARCHAR2_TABLE_300();
205 a36 := JTF_VARCHAR2_TABLE_300();
206 a37 := JTF_VARCHAR2_TABLE_300();
207 a38 := JTF_VARCHAR2_TABLE_300();
208 a39 := JTF_VARCHAR2_TABLE_300();
209 a40 := JTF_VARCHAR2_TABLE_300();
210 a41 := JTF_NUMBER_TABLE();
211 else
212 a0 := JTF_NUMBER_TABLE();
213 a1 := JTF_NUMBER_TABLE();
214 a2 := JTF_NUMBER_TABLE();
215 a3 := JTF_VARCHAR2_TABLE_300();
216 a4 := JTF_VARCHAR2_TABLE_300();
217 a5 := JTF_VARCHAR2_TABLE_300();
218 a6 := JTF_NUMBER_TABLE();
219 a7 := JTF_VARCHAR2_TABLE_100();
220 a8 := JTF_NUMBER_TABLE();
221 a9 := JTF_DATE_TABLE();
222 a10 := JTF_NUMBER_TABLE();
223 a11 := JTF_VARCHAR2_TABLE_100();
224 a12 := JTF_NUMBER_TABLE();
225 a13 := JTF_DATE_TABLE();
226 a14 := JTF_VARCHAR2_TABLE_300();
227 a15 := JTF_VARCHAR2_TABLE_300();
228 a16 := JTF_NUMBER_TABLE();
229 a17 := JTF_NUMBER_TABLE();
230 a18 := JTF_DATE_TABLE();
231 a19 := JTF_NUMBER_TABLE();
232 a20 := JTF_DATE_TABLE();
233 a21 := JTF_NUMBER_TABLE();
234 a22 := JTF_NUMBER_TABLE();
235 a23 := JTF_NUMBER_TABLE();
236 a24 := JTF_DATE_TABLE();
237 a25 := JTF_VARCHAR2_TABLE_300();
238 a26 := JTF_VARCHAR2_TABLE_300();
239 a27 := JTF_VARCHAR2_TABLE_300();
240 a28 := JTF_VARCHAR2_TABLE_300();
241 a29 := JTF_VARCHAR2_TABLE_300();
242 a30 := JTF_VARCHAR2_TABLE_300();
243 a31 := JTF_VARCHAR2_TABLE_300();
244 a32 := JTF_VARCHAR2_TABLE_300();
245 a33 := JTF_VARCHAR2_TABLE_300();
246 a34 := JTF_VARCHAR2_TABLE_300();
247 a35 := JTF_VARCHAR2_TABLE_300();
248 a36 := JTF_VARCHAR2_TABLE_300();
249 a37 := JTF_VARCHAR2_TABLE_300();
250 a38 := JTF_VARCHAR2_TABLE_300();
251 a39 := JTF_VARCHAR2_TABLE_300();
252 a40 := JTF_VARCHAR2_TABLE_300();
253 a41 := JTF_NUMBER_TABLE();
254 if t.count > 0 then
255 a0.extend(t.count);
256 a1.extend(t.count);
257 a2.extend(t.count);
258 a3.extend(t.count);
259 a4.extend(t.count);
260 a5.extend(t.count);
261 a6.extend(t.count);
262 a7.extend(t.count);
263 a8.extend(t.count);
264 a9.extend(t.count);
265 a10.extend(t.count);
266 a11.extend(t.count);
267 a12.extend(t.count);
268 a13.extend(t.count);
269 a14.extend(t.count);
270 a15.extend(t.count);
271 a16.extend(t.count);
272 a17.extend(t.count);
273 a18.extend(t.count);
274 a19.extend(t.count);
275 a20.extend(t.count);
276 a21.extend(t.count);
277 a22.extend(t.count);
278 a23.extend(t.count);
279 a24.extend(t.count);
280 a25.extend(t.count);
281 a26.extend(t.count);
282 a27.extend(t.count);
283 a28.extend(t.count);
284 a29.extend(t.count);
285 a30.extend(t.count);
286 a31.extend(t.count);
287 a32.extend(t.count);
288 a33.extend(t.count);
289 a34.extend(t.count);
290 a35.extend(t.count);
291 a36.extend(t.count);
292 a37.extend(t.count);
293 a38.extend(t.count);
294 a39.extend(t.count);
295 a40.extend(t.count);
296 a41.extend(t.count);
297 ddindx := t.first;
298 indx := 1;
299 while true loop
300 a0(indx) := rosetta_g_miss_num_map(t(ddindx).cost_id);
301 a1(indx) := rosetta_g_miss_num_map(t(ddindx).case_id);
302 a2(indx) := rosetta_g_miss_num_map(t(ddindx).delinquency_id);
303 a3(indx) := t(ddindx).cost_type_code;
304 a4(indx) := t(ddindx).cost_item_type_code;
305 a5(indx) := t(ddindx).cost_item_type_desc;
306 a6(indx) := rosetta_g_miss_num_map(t(ddindx).cost_item_amount);
307 a7(indx) := t(ddindx).cost_item_currency_code;
308 a8(indx) := rosetta_g_miss_num_map(t(ddindx).cost_item_qty);
309 a9(indx) := t(ddindx).cost_item_date;
310 a10(indx) := rosetta_g_miss_num_map(t(ddindx).functional_amount);
311 a11(indx) := t(ddindx).exchange_type;
312 a12(indx) := rosetta_g_miss_num_map(t(ddindx).exchange_rate);
313 a13(indx) := t(ddindx).exchange_date;
314 a14(indx) := t(ddindx).cost_item_approved;
315 a15(indx) := t(ddindx).active_flag;
316 a16(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
317 a17(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
318 a18(indx) := t(ddindx).creation_date;
319 a19(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
320 a20(indx) := t(ddindx).last_update_date;
321 a21(indx) := rosetta_g_miss_num_map(t(ddindx).request_id);
322 a22(indx) := rosetta_g_miss_num_map(t(ddindx).program_application_id);
323 a23(indx) := rosetta_g_miss_num_map(t(ddindx).program_id);
324 a24(indx) := t(ddindx).program_update_date;
325 a25(indx) := t(ddindx).attribute_category;
326 a26(indx) := t(ddindx).attribute1;
327 a27(indx) := t(ddindx).attribute2;
328 a28(indx) := t(ddindx).attribute3;
329 a29(indx) := t(ddindx).attribute4;
330 a30(indx) := t(ddindx).attribute5;
331 a31(indx) := t(ddindx).attribute6;
332 a32(indx) := t(ddindx).attribute7;
333 a33(indx) := t(ddindx).attribute8;
334 a34(indx) := t(ddindx).attribute9;
335 a35(indx) := t(ddindx).attribute10;
336 a36(indx) := t(ddindx).attribute11;
337 a37(indx) := t(ddindx).attribute12;
338 a38(indx) := t(ddindx).attribute13;
339 a39(indx) := t(ddindx).attribute14;
340 a40(indx) := t(ddindx).attribute15;
341 a41(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
342 indx := indx+1;
343 if t.last =ddindx
344 then exit;
345 end if;
346 ddindx := t.next(ddindx);
347 end loop;
348 end if;
349 end if;
350 end rosetta_table_copy_out_p3;
351
352 procedure create_costs(p_api_version_number NUMBER
353 , p_init_msg_list VARCHAR2
354 , p_commit VARCHAR2
355 , p_validation_level NUMBER
356 , x_cost_id out nocopy NUMBER
357 , x_return_status out nocopy VARCHAR2
358 , x_msg_count out nocopy NUMBER
359 , x_msg_data out nocopy VARCHAR2
360 , p4_a0 NUMBER := 0-1962.0724
361 , p4_a1 NUMBER := 0-1962.0724
362 , p4_a2 NUMBER := 0-1962.0724
363 , p4_a3 VARCHAR2 := fnd_api.g_miss_char
364 , p4_a4 VARCHAR2 := fnd_api.g_miss_char
365 , p4_a5 VARCHAR2 := fnd_api.g_miss_char
366 , p4_a6 NUMBER := 0-1962.0724
367 , p4_a7 VARCHAR2 := fnd_api.g_miss_char
368 , p4_a8 NUMBER := 0-1962.0724
369 , p4_a9 DATE := fnd_api.g_miss_date
370 , p4_a10 NUMBER := 0-1962.0724
371 , p4_a11 VARCHAR2 := fnd_api.g_miss_char
372 , p4_a12 NUMBER := 0-1962.0724
373 , p4_a13 DATE := fnd_api.g_miss_date
374 , p4_a14 VARCHAR2 := fnd_api.g_miss_char
375 , p4_a15 VARCHAR2 := fnd_api.g_miss_char
376 , p4_a16 NUMBER := 0-1962.0724
377 , p4_a17 NUMBER := 0-1962.0724
378 , p4_a18 DATE := fnd_api.g_miss_date
379 , p4_a19 NUMBER := 0-1962.0724
380 , p4_a20 DATE := fnd_api.g_miss_date
381 , p4_a21 NUMBER := 0-1962.0724
382 , p4_a22 NUMBER := 0-1962.0724
383 , p4_a23 NUMBER := 0-1962.0724
384 , p4_a24 DATE := fnd_api.g_miss_date
385 , p4_a25 VARCHAR2 := fnd_api.g_miss_char
386 , p4_a26 VARCHAR2 := fnd_api.g_miss_char
387 , p4_a27 VARCHAR2 := fnd_api.g_miss_char
388 , p4_a28 VARCHAR2 := fnd_api.g_miss_char
389 , p4_a29 VARCHAR2 := fnd_api.g_miss_char
390 , p4_a30 VARCHAR2 := fnd_api.g_miss_char
391 , p4_a31 VARCHAR2 := fnd_api.g_miss_char
392 , p4_a32 VARCHAR2 := fnd_api.g_miss_char
393 , p4_a33 VARCHAR2 := fnd_api.g_miss_char
394 , p4_a34 VARCHAR2 := fnd_api.g_miss_char
395 , p4_a35 VARCHAR2 := fnd_api.g_miss_char
396 , p4_a36 VARCHAR2 := fnd_api.g_miss_char
397 , p4_a37 VARCHAR2 := fnd_api.g_miss_char
398 , p4_a38 VARCHAR2 := fnd_api.g_miss_char
399 , p4_a39 VARCHAR2 := fnd_api.g_miss_char
400 , p4_a40 VARCHAR2 := fnd_api.g_miss_char
401 , p4_a41 NUMBER := 0-1962.0724
402 )
403
404 as
405 ddp_costs_rec iex_costs_pvt.costs_rec_type;
406 ddindx binary_integer; indx binary_integer;
407 begin
408
409 -- copy data to the local IN or IN-OUT args, if any
410
411
412
413
414 ddp_costs_rec.cost_id := rosetta_g_miss_num_map(p4_a0);
415 ddp_costs_rec.case_id := rosetta_g_miss_num_map(p4_a1);
416 ddp_costs_rec.delinquency_id := rosetta_g_miss_num_map(p4_a2);
417 ddp_costs_rec.cost_type_code := p4_a3;
418 ddp_costs_rec.cost_item_type_code := p4_a4;
419 ddp_costs_rec.cost_item_type_desc := p4_a5;
420 ddp_costs_rec.cost_item_amount := rosetta_g_miss_num_map(p4_a6);
421 ddp_costs_rec.cost_item_currency_code := p4_a7;
422 ddp_costs_rec.cost_item_qty := rosetta_g_miss_num_map(p4_a8);
423 ddp_costs_rec.cost_item_date := rosetta_g_miss_date_in_map(p4_a9);
424 ddp_costs_rec.functional_amount := rosetta_g_miss_num_map(p4_a10);
425 ddp_costs_rec.exchange_type := p4_a11;
426 ddp_costs_rec.exchange_rate := rosetta_g_miss_num_map(p4_a12);
427 ddp_costs_rec.exchange_date := rosetta_g_miss_date_in_map(p4_a13);
428 ddp_costs_rec.cost_item_approved := p4_a14;
429 ddp_costs_rec.active_flag := p4_a15;
430 ddp_costs_rec.object_version_number := rosetta_g_miss_num_map(p4_a16);
431 ddp_costs_rec.created_by := rosetta_g_miss_num_map(p4_a17);
432 ddp_costs_rec.creation_date := rosetta_g_miss_date_in_map(p4_a18);
433 ddp_costs_rec.last_updated_by := rosetta_g_miss_num_map(p4_a19);
434 ddp_costs_rec.last_update_date := rosetta_g_miss_date_in_map(p4_a20);
435 ddp_costs_rec.request_id := rosetta_g_miss_num_map(p4_a21);
436 ddp_costs_rec.program_application_id := rosetta_g_miss_num_map(p4_a22);
437 ddp_costs_rec.program_id := rosetta_g_miss_num_map(p4_a23);
438 ddp_costs_rec.program_update_date := rosetta_g_miss_date_in_map(p4_a24);
439 ddp_costs_rec.attribute_category := p4_a25;
440 ddp_costs_rec.attribute1 := p4_a26;
441 ddp_costs_rec.attribute2 := p4_a27;
442 ddp_costs_rec.attribute3 := p4_a28;
443 ddp_costs_rec.attribute4 := p4_a29;
444 ddp_costs_rec.attribute5 := p4_a30;
445 ddp_costs_rec.attribute6 := p4_a31;
446 ddp_costs_rec.attribute7 := p4_a32;
447 ddp_costs_rec.attribute8 := p4_a33;
448 ddp_costs_rec.attribute9 := p4_a34;
449 ddp_costs_rec.attribute10 := p4_a35;
450 ddp_costs_rec.attribute11 := p4_a36;
451 ddp_costs_rec.attribute12 := p4_a37;
452 ddp_costs_rec.attribute13 := p4_a38;
453 ddp_costs_rec.attribute14 := p4_a39;
454 ddp_costs_rec.attribute15 := p4_a40;
455 ddp_costs_rec.last_update_login := rosetta_g_miss_num_map(p4_a41);
456
457
458
459
460
461 -- here's the delegated call to the old PL/SQL routine
462 iex_costs_pvt.create_costs(p_api_version_number,
463 p_init_msg_list,
464 p_commit,
465 p_validation_level,
466 ddp_costs_rec,
467 x_cost_id,
468 x_return_status,
469 x_msg_count,
470 x_msg_data);
471
472 -- copy data back from the local variables to OUT or IN-OUT args, if any
473
474
475
476
477
478
479
480
481 end;
482
483 procedure update_costs(p_api_version_number NUMBER
484 , p_init_msg_list VARCHAR2
485 , p_commit VARCHAR2
486 , p_validation_level NUMBER
487 , x_return_status out nocopy VARCHAR2
488 , x_msg_count out nocopy NUMBER
489 , x_msg_data out nocopy VARCHAR2
490 , xo_object_version_number out nocopy NUMBER
491 , p4_a0 NUMBER := 0-1962.0724
492 , p4_a1 NUMBER := 0-1962.0724
493 , p4_a2 NUMBER := 0-1962.0724
494 , p4_a3 VARCHAR2 := fnd_api.g_miss_char
495 , p4_a4 VARCHAR2 := fnd_api.g_miss_char
496 , p4_a5 VARCHAR2 := fnd_api.g_miss_char
497 , p4_a6 NUMBER := 0-1962.0724
498 , p4_a7 VARCHAR2 := fnd_api.g_miss_char
499 , p4_a8 NUMBER := 0-1962.0724
500 , p4_a9 DATE := fnd_api.g_miss_date
501 , p4_a10 NUMBER := 0-1962.0724
502 , p4_a11 VARCHAR2 := fnd_api.g_miss_char
503 , p4_a12 NUMBER := 0-1962.0724
504 , p4_a13 DATE := fnd_api.g_miss_date
505 , p4_a14 VARCHAR2 := fnd_api.g_miss_char
506 , p4_a15 VARCHAR2 := fnd_api.g_miss_char
507 , p4_a16 NUMBER := 0-1962.0724
508 , p4_a17 NUMBER := 0-1962.0724
509 , p4_a18 DATE := fnd_api.g_miss_date
510 , p4_a19 NUMBER := 0-1962.0724
511 , p4_a20 DATE := fnd_api.g_miss_date
512 , p4_a21 NUMBER := 0-1962.0724
513 , p4_a22 NUMBER := 0-1962.0724
514 , p4_a23 NUMBER := 0-1962.0724
515 , p4_a24 DATE := fnd_api.g_miss_date
516 , p4_a25 VARCHAR2 := fnd_api.g_miss_char
517 , p4_a26 VARCHAR2 := fnd_api.g_miss_char
518 , p4_a27 VARCHAR2 := fnd_api.g_miss_char
519 , p4_a28 VARCHAR2 := fnd_api.g_miss_char
520 , p4_a29 VARCHAR2 := fnd_api.g_miss_char
521 , p4_a30 VARCHAR2 := fnd_api.g_miss_char
522 , p4_a31 VARCHAR2 := fnd_api.g_miss_char
523 , p4_a32 VARCHAR2 := fnd_api.g_miss_char
524 , p4_a33 VARCHAR2 := fnd_api.g_miss_char
525 , p4_a34 VARCHAR2 := fnd_api.g_miss_char
526 , p4_a35 VARCHAR2 := fnd_api.g_miss_char
527 , p4_a36 VARCHAR2 := fnd_api.g_miss_char
528 , p4_a37 VARCHAR2 := fnd_api.g_miss_char
529 , p4_a38 VARCHAR2 := fnd_api.g_miss_char
530 , p4_a39 VARCHAR2 := fnd_api.g_miss_char
531 , p4_a40 VARCHAR2 := fnd_api.g_miss_char
532 , p4_a41 NUMBER := 0-1962.0724
533 )
534
535 as
536 ddp_costs_rec iex_costs_pvt.costs_rec_type;
537 ddindx binary_integer; indx binary_integer;
538 begin
539
540 -- copy data to the local IN or IN-OUT args, if any
541
542
543
544
545 ddp_costs_rec.cost_id := rosetta_g_miss_num_map(p4_a0);
546 ddp_costs_rec.case_id := rosetta_g_miss_num_map(p4_a1);
547 ddp_costs_rec.delinquency_id := rosetta_g_miss_num_map(p4_a2);
548 ddp_costs_rec.cost_type_code := p4_a3;
549 ddp_costs_rec.cost_item_type_code := p4_a4;
550 ddp_costs_rec.cost_item_type_desc := p4_a5;
551 ddp_costs_rec.cost_item_amount := rosetta_g_miss_num_map(p4_a6);
552 ddp_costs_rec.cost_item_currency_code := p4_a7;
553 ddp_costs_rec.cost_item_qty := rosetta_g_miss_num_map(p4_a8);
554 ddp_costs_rec.cost_item_date := rosetta_g_miss_date_in_map(p4_a9);
555 ddp_costs_rec.functional_amount := rosetta_g_miss_num_map(p4_a10);
556 ddp_costs_rec.exchange_type := p4_a11;
557 ddp_costs_rec.exchange_rate := rosetta_g_miss_num_map(p4_a12);
558 ddp_costs_rec.exchange_date := rosetta_g_miss_date_in_map(p4_a13);
559 ddp_costs_rec.cost_item_approved := p4_a14;
560 ddp_costs_rec.active_flag := p4_a15;
561 ddp_costs_rec.object_version_number := rosetta_g_miss_num_map(p4_a16);
562 ddp_costs_rec.created_by := rosetta_g_miss_num_map(p4_a17);
563 ddp_costs_rec.creation_date := rosetta_g_miss_date_in_map(p4_a18);
564 ddp_costs_rec.last_updated_by := rosetta_g_miss_num_map(p4_a19);
565 ddp_costs_rec.last_update_date := rosetta_g_miss_date_in_map(p4_a20);
566 ddp_costs_rec.request_id := rosetta_g_miss_num_map(p4_a21);
567 ddp_costs_rec.program_application_id := rosetta_g_miss_num_map(p4_a22);
568 ddp_costs_rec.program_id := rosetta_g_miss_num_map(p4_a23);
569 ddp_costs_rec.program_update_date := rosetta_g_miss_date_in_map(p4_a24);
570 ddp_costs_rec.attribute_category := p4_a25;
571 ddp_costs_rec.attribute1 := p4_a26;
572 ddp_costs_rec.attribute2 := p4_a27;
573 ddp_costs_rec.attribute3 := p4_a28;
574 ddp_costs_rec.attribute4 := p4_a29;
575 ddp_costs_rec.attribute5 := p4_a30;
576 ddp_costs_rec.attribute6 := p4_a31;
577 ddp_costs_rec.attribute7 := p4_a32;
578 ddp_costs_rec.attribute8 := p4_a33;
579 ddp_costs_rec.attribute9 := p4_a34;
580 ddp_costs_rec.attribute10 := p4_a35;
581 ddp_costs_rec.attribute11 := p4_a36;
582 ddp_costs_rec.attribute12 := p4_a37;
583 ddp_costs_rec.attribute13 := p4_a38;
584 ddp_costs_rec.attribute14 := p4_a39;
585 ddp_costs_rec.attribute15 := p4_a40;
586 ddp_costs_rec.last_update_login := rosetta_g_miss_num_map(p4_a41);
587
588
589
590
591
592 -- here's the delegated call to the old PL/SQL routine
593 iex_costs_pvt.update_costs(p_api_version_number,
594 p_init_msg_list,
595 p_commit,
596 p_validation_level,
597 ddp_costs_rec,
598 x_return_status,
599 x_msg_count,
600 x_msg_data,
601 xo_object_version_number);
602
603 -- copy data back from the local variables to OUT or IN-OUT args, if any
604
605
606
607
608
609
610
611
612 end;
613
614 end iex_costs_pvt_w;