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