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