[Home] [Help]
PACKAGE BODY: APPS.FUN_VENDOR_PVT_PKG_W
Source
1 package body fun_vendor_pvt_pkg_w as
2 /* $Header: fun_vendor_pvt_pkg_w_b.pls 120.0 2006/02/15 14:31:51 ashikuma noship $ */
3 procedure create_vendor(p_api_version NUMBER
4 , p_init_msg_list VARCHAR2
5 , p_commit VARCHAR2
6 , p_validation_level NUMBER
7 , x_return_status out nocopy VARCHAR2
8 , x_msg_count out nocopy NUMBER
9 , x_msg_data out nocopy VARCHAR2
10 , p7_a0 NUMBER
11 , p7_a1 VARCHAR2
12 , p7_a2 VARCHAR2
13 , p7_a3 VARCHAR2
14 , p7_a4 VARCHAR2
15 , p7_a5 VARCHAR2
16 , p7_a6 VARCHAR2
17 , p7_a7 VARCHAR2
18 , p7_a8 VARCHAR2
19 , p7_a9 VARCHAR2
20 , p7_a10 NUMBER
21 , p7_a11 VARCHAR2
22 , p7_a12 VARCHAR2
23 , p7_a13 VARCHAR2
24 , p7_a14 NUMBER
25 , p7_a15 NUMBER
26 , p7_a16 NUMBER
27 , p7_a17 NUMBER
28 , p7_a18 VARCHAR2
29 , p7_a19 VARCHAR2
30 , p7_a20 VARCHAR2
31 , p7_a21 NUMBER
32 , p7_a22 VARCHAR2
33 , p7_a23 VARCHAR2
34 , p7_a24 NUMBER
35 , p7_a25 VARCHAR2
36 , p7_a26 VARCHAR2
37 , p7_a27 VARCHAR2
38 , p7_a28 VARCHAR2
39 , p7_a29 VARCHAR2
40 , p7_a30 DATE
41 , p7_a31 VARCHAR2
42 , p7_a32 DATE
43 , p7_a33 DATE
44 , p7_a34 VARCHAR2
45 , p7_a35 VARCHAR2
46 , p7_a36 VARCHAR2
47 , p7_a37 VARCHAR2
48 , p7_a38 VARCHAR2
49 , p7_a39 NUMBER
50 , p7_a40 DATE
51 , p7_a41 VARCHAR2
52 , p7_a42 VARCHAR2
53 , p7_a43 VARCHAR2
54 , p7_a44 NUMBER
55 , p7_a45 VARCHAR2
56 , p7_a46 VARCHAR2
57 , p7_a47 NUMBER
58 , p7_a48 NUMBER
59 , p7_a49 VARCHAR2
60 , p7_a50 NUMBER
61 , p7_a51 VARCHAR2
62 , p7_a52 VARCHAR2
63 , p7_a53 VARCHAR2
64 , p7_a54 DATE
65 , p7_a55 VARCHAR2
66 , p7_a56 VARCHAR2
67 , p7_a57 VARCHAR2
68 , p7_a58 VARCHAR2
69 , p7_a59 VARCHAR2
70 , p7_a60 VARCHAR2
71 , p7_a61 VARCHAR2
72 , p7_a62 VARCHAR2
73 , p7_a63 VARCHAR2
74 , p7_a64 VARCHAR2
75 , p7_a65 VARCHAR2
76 , p7_a66 VARCHAR2
77 , p7_a67 VARCHAR2
78 , p7_a68 VARCHAR2
79 , p7_a69 VARCHAR2
80 , p7_a70 VARCHAR2
81 , p7_a71 VARCHAR2
82 , p7_a72 VARCHAR2
83 , p7_a73 VARCHAR2
84 , p7_a74 VARCHAR2
85 , p7_a75 NUMBER
86 , p7_a76 VARCHAR2
87 , p7_a77 VARCHAR2
88 , p7_a78 VARCHAR2
89 , p7_a79 VARCHAR2
90 , p7_a80 NUMBER
91 , p7_a81 VARCHAR2
92 , p7_a82 VARCHAR2
93 , p7_a83 VARCHAR2
94 , p7_a84 VARCHAR2
95 , p7_a85 VARCHAR2
96 , p7_a86 VARCHAR2
97 , p7_a87 VARCHAR2
98 , p7_a88 VARCHAR2
99 , p7_a89 VARCHAR2
100 , p7_a90 VARCHAR2
101 , p7_a91 VARCHAR2
102 , p7_a92 VARCHAR2
103 , p7_a93 VARCHAR2
104 , p7_a94 VARCHAR2
105 , p7_a95 VARCHAR2
106 , p7_a96 VARCHAR2
107 , p7_a97 VARCHAR2
108 , p7_a98 VARCHAR2
109 , p7_a99 VARCHAR2
110 , p7_a100 VARCHAR2
111 , p7_a101 VARCHAR2
112 , p7_a102 VARCHAR2
113 , p7_a103 VARCHAR2
114 , p7_a104 VARCHAR2
115 , p7_a105 VARCHAR2
116 , p7_a106 NUMBER
117 , p7_a107 NUMBER
118 , p7_a108 VARCHAR2
119 , p7_a109 VARCHAR2
120 , p7_a110 VARCHAR2
121 , p7_a111 NUMBER
122 , p7_a112 VARCHAR2
123 , p7_a113 NUMBER
124 , p7_a114 NUMBER
125 , p7_a115 VARCHAR2
126 , p7_a116 NUMBER
127 , p7_a117 VARCHAR2
128 , p7_a118 VARCHAR2
129 , p7_a119 NUMBER
130 , p7_a120 NUMBER
131 , p7_a121 NUMBER
132 , p7_a122 VARCHAR2
133 , p7_a123 VARCHAR2
134 , p7_a124 VARCHAR2
135 , p7_a125 VARCHAR2
136 , p7_a126 VARCHAR2
137 , p7_a127 VARCHAR2
138 , p7_a128 VARCHAR2
139 , p7_a129 VARCHAR2
140 , p7_a130 VARCHAR2
141 , p7_a131 DATE
142 , p7_a132 VARCHAR2
143 , p7_a133 VARCHAR2
144 , p7_a134 VARCHAR2
145 , p7_a135 VARCHAR2
146 , p7_a136 VARCHAR2
147 , p7_a137 VARCHAR2
148 , x_vendor_id out nocopy NUMBER
149 , x_party_id out nocopy NUMBER
150 )
151
152 as
153 ddp_vendor_rec fun_vendor_pvt_pkg.r_vendor_rec_type;
154 ddindx binary_integer; indx binary_integer;
155 begin
156
157 -- copy data to the local IN or IN-OUT args, if any
158
159
160
161
162
163
164
165 ddp_vendor_rec.vendor_id := p7_a0;
166 ddp_vendor_rec.segment1 := p7_a1;
167 ddp_vendor_rec.vendor_name := p7_a2;
168 ddp_vendor_rec.vendor_name_alt := p7_a3;
169 ddp_vendor_rec.summary_flag := p7_a4;
170 ddp_vendor_rec.enabled_flag := p7_a5;
171 ddp_vendor_rec.segment2 := p7_a6;
172 ddp_vendor_rec.segment3 := p7_a7;
173 ddp_vendor_rec.segment4 := p7_a8;
174 ddp_vendor_rec.segment5 := p7_a9;
175 ddp_vendor_rec.employee_id := p7_a10;
176 ddp_vendor_rec.vendor_type_lookup_code := p7_a11;
177 ddp_vendor_rec.customer_num := p7_a12;
178 ddp_vendor_rec.one_time_flag := p7_a13;
179 ddp_vendor_rec.parent_vendor_id := p7_a14;
180 ddp_vendor_rec.min_order_amount := p7_a15;
181 ddp_vendor_rec.terms_id := p7_a16;
182 ddp_vendor_rec.set_of_books_id := p7_a17;
183 ddp_vendor_rec.always_take_disc_flag := p7_a18;
184 ddp_vendor_rec.pay_date_basis_lookup_code := p7_a19;
185 ddp_vendor_rec.pay_group_lookup_code := p7_a20;
186 ddp_vendor_rec.payment_priority := p7_a21;
187 ddp_vendor_rec.invoice_currency_code := p7_a22;
188 ddp_vendor_rec.payment_currency_code := p7_a23;
189 ddp_vendor_rec.invoice_amount_limit := p7_a24;
190 ddp_vendor_rec.hold_all_payments_flag := p7_a25;
191 ddp_vendor_rec.hold_future_payments_flag := p7_a26;
192 ddp_vendor_rec.hold_reason := p7_a27;
193 ddp_vendor_rec.type_1099 := p7_a28;
194 ddp_vendor_rec.withholding_status_lookup_code := p7_a29;
195 ddp_vendor_rec.withholding_start_date := p7_a30;
196 ddp_vendor_rec.organization_type_lookup_code := p7_a31;
197 ddp_vendor_rec.start_date_active := p7_a32;
198 ddp_vendor_rec.end_date_active := p7_a33;
199 ddp_vendor_rec.minority_group_lookup_code := p7_a34;
200 ddp_vendor_rec.women_owned_flag := p7_a35;
201 ddp_vendor_rec.small_business_flag := p7_a36;
202 ddp_vendor_rec.hold_flag := p7_a37;
203 ddp_vendor_rec.purchasing_hold_reason := p7_a38;
204 ddp_vendor_rec.hold_by := p7_a39;
205 ddp_vendor_rec.hold_date := p7_a40;
206 ddp_vendor_rec.terms_date_basis := p7_a41;
207 ddp_vendor_rec.inspection_required_flag := p7_a42;
208 ddp_vendor_rec.receipt_required_flag := p7_a43;
209 ddp_vendor_rec.qty_rcv_tolerance := p7_a44;
210 ddp_vendor_rec.qty_rcv_exception_code := p7_a45;
211 ddp_vendor_rec.enforce_ship_to_location_code := p7_a46;
212 ddp_vendor_rec.days_early_receipt_allowed := p7_a47;
213 ddp_vendor_rec.days_late_receipt_allowed := p7_a48;
214 ddp_vendor_rec.receipt_days_exception_code := p7_a49;
215 ddp_vendor_rec.receiving_routing_id := p7_a50;
216 ddp_vendor_rec.allow_substitute_receipts_flag := p7_a51;
217 ddp_vendor_rec.allow_unordered_receipts_flag := p7_a52;
218 ddp_vendor_rec.hold_unmatched_invoices_flag := p7_a53;
219 ddp_vendor_rec.tax_verification_date := p7_a54;
220 ddp_vendor_rec.name_control := p7_a55;
221 ddp_vendor_rec.state_reportable_flag := p7_a56;
222 ddp_vendor_rec.federal_reportable_flag := p7_a57;
223 ddp_vendor_rec.attribute_category := p7_a58;
224 ddp_vendor_rec.attribute1 := p7_a59;
225 ddp_vendor_rec.attribute2 := p7_a60;
226 ddp_vendor_rec.attribute3 := p7_a61;
227 ddp_vendor_rec.attribute4 := p7_a62;
228 ddp_vendor_rec.attribute5 := p7_a63;
229 ddp_vendor_rec.attribute6 := p7_a64;
230 ddp_vendor_rec.attribute7 := p7_a65;
231 ddp_vendor_rec.attribute8 := p7_a66;
232 ddp_vendor_rec.attribute9 := p7_a67;
233 ddp_vendor_rec.attribute10 := p7_a68;
234 ddp_vendor_rec.attribute11 := p7_a69;
235 ddp_vendor_rec.attribute12 := p7_a70;
236 ddp_vendor_rec.attribute13 := p7_a71;
237 ddp_vendor_rec.attribute14 := p7_a72;
238 ddp_vendor_rec.attribute15 := p7_a73;
239 ddp_vendor_rec.auto_calculate_interest_flag := p7_a74;
240 ddp_vendor_rec.validation_number := p7_a75;
241 ddp_vendor_rec.exclude_freight_from_discount := p7_a76;
242 ddp_vendor_rec.tax_reporting_name := p7_a77;
243 ddp_vendor_rec.check_digits := p7_a78;
244 ddp_vendor_rec.allow_awt_flag := p7_a79;
245 ddp_vendor_rec.awt_group_id := p7_a80;
246 ddp_vendor_rec.awt_group_name := p7_a81;
247 ddp_vendor_rec.global_attribute1 := p7_a82;
248 ddp_vendor_rec.global_attribute2 := p7_a83;
249 ddp_vendor_rec.global_attribute3 := p7_a84;
250 ddp_vendor_rec.global_attribute4 := p7_a85;
251 ddp_vendor_rec.global_attribute5 := p7_a86;
252 ddp_vendor_rec.global_attribute6 := p7_a87;
253 ddp_vendor_rec.global_attribute7 := p7_a88;
254 ddp_vendor_rec.global_attribute8 := p7_a89;
255 ddp_vendor_rec.global_attribute9 := p7_a90;
256 ddp_vendor_rec.global_attribute10 := p7_a91;
257 ddp_vendor_rec.global_attribute11 := p7_a92;
258 ddp_vendor_rec.global_attribute12 := p7_a93;
259 ddp_vendor_rec.global_attribute13 := p7_a94;
260 ddp_vendor_rec.global_attribute14 := p7_a95;
261 ddp_vendor_rec.global_attribute15 := p7_a96;
262 ddp_vendor_rec.global_attribute16 := p7_a97;
263 ddp_vendor_rec.global_attribute17 := p7_a98;
264 ddp_vendor_rec.global_attribute18 := p7_a99;
265 ddp_vendor_rec.global_attribute19 := p7_a100;
266 ddp_vendor_rec.global_attribute20 := p7_a101;
267 ddp_vendor_rec.global_attribute_category := p7_a102;
268 ddp_vendor_rec.bank_charge_bearer := p7_a103;
269 ddp_vendor_rec.match_option := p7_a104;
270 ddp_vendor_rec.create_debit_memo_flag := p7_a105;
271 ddp_vendor_rec.party_id := p7_a106;
272 ddp_vendor_rec.parent_party_id := p7_a107;
273 ddp_vendor_rec.jgzz_fiscal_code := p7_a108;
274 ddp_vendor_rec.sic_code := p7_a109;
275 ddp_vendor_rec.tax_reference := p7_a110;
276 ddp_vendor_rec.inventory_organization_id := p7_a111;
277 ddp_vendor_rec.terms_name := p7_a112;
278 ddp_vendor_rec.default_terms_id := p7_a113;
279 ddp_vendor_rec.vendor_interface_id := p7_a114;
280 ddp_vendor_rec.ni_number := p7_a115;
281 ddp_vendor_rec.ext_payee_rec.payee_party_id := p7_a116;
282 ddp_vendor_rec.ext_payee_rec.payment_function := p7_a117;
283 ddp_vendor_rec.ext_payee_rec.exclusive_pay_flag := p7_a118;
284 ddp_vendor_rec.ext_payee_rec.payee_party_site_id := p7_a119;
285 ddp_vendor_rec.ext_payee_rec.supplier_site_id := p7_a120;
286 ddp_vendor_rec.ext_payee_rec.payer_org_id := p7_a121;
287 ddp_vendor_rec.ext_payee_rec.payer_org_type := p7_a122;
288 ddp_vendor_rec.ext_payee_rec.default_pmt_method := p7_a123;
289 ddp_vendor_rec.ext_payee_rec.ece_tp_loc_code := p7_a124;
290 ddp_vendor_rec.ext_payee_rec.bank_charge_bearer := p7_a125;
291 ddp_vendor_rec.ext_payee_rec.bank_instr1_code := p7_a126;
292 ddp_vendor_rec.ext_payee_rec.bank_instr2_code := p7_a127;
293 ddp_vendor_rec.ext_payee_rec.bank_instr_detail := p7_a128;
294 ddp_vendor_rec.ext_payee_rec.pay_reason_code := p7_a129;
295 ddp_vendor_rec.ext_payee_rec.pay_reason_com := p7_a130;
296 ddp_vendor_rec.ext_payee_rec.inactive_date := p7_a131;
297 ddp_vendor_rec.ext_payee_rec.pay_message1 := p7_a132;
298 ddp_vendor_rec.ext_payee_rec.pay_message2 := p7_a133;
299 ddp_vendor_rec.ext_payee_rec.pay_message3 := p7_a134;
300 ddp_vendor_rec.ext_payee_rec.delivery_channel := p7_a135;
301 ddp_vendor_rec.ext_payee_rec.pmt_format := p7_a136;
302 ddp_vendor_rec.ext_payee_rec.settlement_priority := p7_a137;
303
304
305
306 -- here's the delegated call to the old PL/SQL routine
307 fun_vendor_pvt_pkg.create_vendor(p_api_version,
308 p_init_msg_list,
309 p_commit,
310 p_validation_level,
311 x_return_status,
312 x_msg_count,
313 x_msg_data,
314 ddp_vendor_rec,
315 x_vendor_id,
316 x_party_id);
317
318 -- copy data back from the local variables to OUT or IN-OUT args, if any
319
320
321
322
323
324
325
326
327
328 end;
329
330 procedure update_vendor(p_api_version NUMBER
331 , p_init_msg_list VARCHAR2
332 , p_commit VARCHAR2
333 , p_validation_level NUMBER
334 , x_return_status out nocopy VARCHAR2
335 , x_msg_count out nocopy NUMBER
336 , x_msg_data out nocopy VARCHAR2
337 , p7_a0 NUMBER
338 , p7_a1 VARCHAR2
339 , p7_a2 VARCHAR2
340 , p7_a3 VARCHAR2
341 , p7_a4 VARCHAR2
342 , p7_a5 VARCHAR2
343 , p7_a6 VARCHAR2
344 , p7_a7 VARCHAR2
345 , p7_a8 VARCHAR2
346 , p7_a9 VARCHAR2
347 , p7_a10 NUMBER
348 , p7_a11 VARCHAR2
349 , p7_a12 VARCHAR2
350 , p7_a13 VARCHAR2
351 , p7_a14 NUMBER
352 , p7_a15 NUMBER
353 , p7_a16 NUMBER
354 , p7_a17 NUMBER
355 , p7_a18 VARCHAR2
356 , p7_a19 VARCHAR2
357 , p7_a20 VARCHAR2
358 , p7_a21 NUMBER
359 , p7_a22 VARCHAR2
360 , p7_a23 VARCHAR2
361 , p7_a24 NUMBER
362 , p7_a25 VARCHAR2
363 , p7_a26 VARCHAR2
364 , p7_a27 VARCHAR2
365 , p7_a28 VARCHAR2
366 , p7_a29 VARCHAR2
367 , p7_a30 DATE
368 , p7_a31 VARCHAR2
369 , p7_a32 DATE
370 , p7_a33 DATE
371 , p7_a34 VARCHAR2
372 , p7_a35 VARCHAR2
373 , p7_a36 VARCHAR2
374 , p7_a37 VARCHAR2
375 , p7_a38 VARCHAR2
376 , p7_a39 NUMBER
377 , p7_a40 DATE
378 , p7_a41 VARCHAR2
379 , p7_a42 VARCHAR2
380 , p7_a43 VARCHAR2
381 , p7_a44 NUMBER
382 , p7_a45 VARCHAR2
383 , p7_a46 VARCHAR2
384 , p7_a47 NUMBER
385 , p7_a48 NUMBER
386 , p7_a49 VARCHAR2
387 , p7_a50 NUMBER
388 , p7_a51 VARCHAR2
389 , p7_a52 VARCHAR2
390 , p7_a53 VARCHAR2
391 , p7_a54 DATE
392 , p7_a55 VARCHAR2
393 , p7_a56 VARCHAR2
394 , p7_a57 VARCHAR2
395 , p7_a58 VARCHAR2
396 , p7_a59 VARCHAR2
397 , p7_a60 VARCHAR2
398 , p7_a61 VARCHAR2
399 , p7_a62 VARCHAR2
400 , p7_a63 VARCHAR2
401 , p7_a64 VARCHAR2
402 , p7_a65 VARCHAR2
403 , p7_a66 VARCHAR2
404 , p7_a67 VARCHAR2
405 , p7_a68 VARCHAR2
406 , p7_a69 VARCHAR2
407 , p7_a70 VARCHAR2
408 , p7_a71 VARCHAR2
409 , p7_a72 VARCHAR2
410 , p7_a73 VARCHAR2
411 , p7_a74 VARCHAR2
412 , p7_a75 NUMBER
413 , p7_a76 VARCHAR2
414 , p7_a77 VARCHAR2
415 , p7_a78 VARCHAR2
416 , p7_a79 VARCHAR2
417 , p7_a80 NUMBER
418 , p7_a81 VARCHAR2
419 , p7_a82 VARCHAR2
420 , p7_a83 VARCHAR2
421 , p7_a84 VARCHAR2
422 , p7_a85 VARCHAR2
423 , p7_a86 VARCHAR2
424 , p7_a87 VARCHAR2
425 , p7_a88 VARCHAR2
426 , p7_a89 VARCHAR2
427 , p7_a90 VARCHAR2
428 , p7_a91 VARCHAR2
429 , p7_a92 VARCHAR2
430 , p7_a93 VARCHAR2
431 , p7_a94 VARCHAR2
432 , p7_a95 VARCHAR2
433 , p7_a96 VARCHAR2
434 , p7_a97 VARCHAR2
435 , p7_a98 VARCHAR2
436 , p7_a99 VARCHAR2
437 , p7_a100 VARCHAR2
438 , p7_a101 VARCHAR2
439 , p7_a102 VARCHAR2
440 , p7_a103 VARCHAR2
441 , p7_a104 VARCHAR2
442 , p7_a105 VARCHAR2
443 , p7_a106 NUMBER
444 , p7_a107 NUMBER
445 , p7_a108 VARCHAR2
446 , p7_a109 VARCHAR2
447 , p7_a110 VARCHAR2
448 , p7_a111 NUMBER
449 , p7_a112 VARCHAR2
450 , p7_a113 NUMBER
451 , p7_a114 NUMBER
452 , p7_a115 VARCHAR2
453 , p7_a116 NUMBER
454 , p7_a117 VARCHAR2
455 , p7_a118 VARCHAR2
456 , p7_a119 NUMBER
457 , p7_a120 NUMBER
458 , p7_a121 NUMBER
459 , p7_a122 VARCHAR2
460 , p7_a123 VARCHAR2
461 , p7_a124 VARCHAR2
462 , p7_a125 VARCHAR2
463 , p7_a126 VARCHAR2
464 , p7_a127 VARCHAR2
465 , p7_a128 VARCHAR2
466 , p7_a129 VARCHAR2
467 , p7_a130 VARCHAR2
468 , p7_a131 DATE
469 , p7_a132 VARCHAR2
470 , p7_a133 VARCHAR2
471 , p7_a134 VARCHAR2
472 , p7_a135 VARCHAR2
473 , p7_a136 VARCHAR2
474 , p7_a137 VARCHAR2
475 , p_vendor_id NUMBER
476 )
477
478 as
479 ddp_vendor_rec fun_vendor_pvt_pkg.r_vendor_rec_type;
480 ddindx binary_integer; indx binary_integer;
481 begin
482
483 -- copy data to the local IN or IN-OUT args, if any
484
485
486
487
488
489
490
491 ddp_vendor_rec.vendor_id := p7_a0;
492 ddp_vendor_rec.segment1 := p7_a1;
493 ddp_vendor_rec.vendor_name := p7_a2;
494 ddp_vendor_rec.vendor_name_alt := p7_a3;
495 ddp_vendor_rec.summary_flag := p7_a4;
496 ddp_vendor_rec.enabled_flag := p7_a5;
497 ddp_vendor_rec.segment2 := p7_a6;
498 ddp_vendor_rec.segment3 := p7_a7;
499 ddp_vendor_rec.segment4 := p7_a8;
500 ddp_vendor_rec.segment5 := p7_a9;
501 ddp_vendor_rec.employee_id := p7_a10;
502 ddp_vendor_rec.vendor_type_lookup_code := p7_a11;
503 ddp_vendor_rec.customer_num := p7_a12;
504 ddp_vendor_rec.one_time_flag := p7_a13;
505 ddp_vendor_rec.parent_vendor_id := p7_a14;
506 ddp_vendor_rec.min_order_amount := p7_a15;
507 ddp_vendor_rec.terms_id := p7_a16;
508 ddp_vendor_rec.set_of_books_id := p7_a17;
509 ddp_vendor_rec.always_take_disc_flag := p7_a18;
510 ddp_vendor_rec.pay_date_basis_lookup_code := p7_a19;
511 ddp_vendor_rec.pay_group_lookup_code := p7_a20;
512 ddp_vendor_rec.payment_priority := p7_a21;
513 ddp_vendor_rec.invoice_currency_code := p7_a22;
514 ddp_vendor_rec.payment_currency_code := p7_a23;
515 ddp_vendor_rec.invoice_amount_limit := p7_a24;
516 ddp_vendor_rec.hold_all_payments_flag := p7_a25;
517 ddp_vendor_rec.hold_future_payments_flag := p7_a26;
518 ddp_vendor_rec.hold_reason := p7_a27;
519 ddp_vendor_rec.type_1099 := p7_a28;
520 ddp_vendor_rec.withholding_status_lookup_code := p7_a29;
521 ddp_vendor_rec.withholding_start_date := p7_a30;
522 ddp_vendor_rec.organization_type_lookup_code := p7_a31;
523 ddp_vendor_rec.start_date_active := p7_a32;
524 ddp_vendor_rec.end_date_active := p7_a33;
525 ddp_vendor_rec.minority_group_lookup_code := p7_a34;
526 ddp_vendor_rec.women_owned_flag := p7_a35;
527 ddp_vendor_rec.small_business_flag := p7_a36;
528 ddp_vendor_rec.hold_flag := p7_a37;
529 ddp_vendor_rec.purchasing_hold_reason := p7_a38;
530 ddp_vendor_rec.hold_by := p7_a39;
531 ddp_vendor_rec.hold_date := p7_a40;
532 ddp_vendor_rec.terms_date_basis := p7_a41;
533 ddp_vendor_rec.inspection_required_flag := p7_a42;
534 ddp_vendor_rec.receipt_required_flag := p7_a43;
535 ddp_vendor_rec.qty_rcv_tolerance := p7_a44;
536 ddp_vendor_rec.qty_rcv_exception_code := p7_a45;
537 ddp_vendor_rec.enforce_ship_to_location_code := p7_a46;
538 ddp_vendor_rec.days_early_receipt_allowed := p7_a47;
539 ddp_vendor_rec.days_late_receipt_allowed := p7_a48;
540 ddp_vendor_rec.receipt_days_exception_code := p7_a49;
541 ddp_vendor_rec.receiving_routing_id := p7_a50;
542 ddp_vendor_rec.allow_substitute_receipts_flag := p7_a51;
543 ddp_vendor_rec.allow_unordered_receipts_flag := p7_a52;
544 ddp_vendor_rec.hold_unmatched_invoices_flag := p7_a53;
545 ddp_vendor_rec.tax_verification_date := p7_a54;
546 ddp_vendor_rec.name_control := p7_a55;
547 ddp_vendor_rec.state_reportable_flag := p7_a56;
548 ddp_vendor_rec.federal_reportable_flag := p7_a57;
549 ddp_vendor_rec.attribute_category := p7_a58;
550 ddp_vendor_rec.attribute1 := p7_a59;
551 ddp_vendor_rec.attribute2 := p7_a60;
552 ddp_vendor_rec.attribute3 := p7_a61;
553 ddp_vendor_rec.attribute4 := p7_a62;
554 ddp_vendor_rec.attribute5 := p7_a63;
555 ddp_vendor_rec.attribute6 := p7_a64;
556 ddp_vendor_rec.attribute7 := p7_a65;
557 ddp_vendor_rec.attribute8 := p7_a66;
558 ddp_vendor_rec.attribute9 := p7_a67;
559 ddp_vendor_rec.attribute10 := p7_a68;
560 ddp_vendor_rec.attribute11 := p7_a69;
561 ddp_vendor_rec.attribute12 := p7_a70;
562 ddp_vendor_rec.attribute13 := p7_a71;
563 ddp_vendor_rec.attribute14 := p7_a72;
564 ddp_vendor_rec.attribute15 := p7_a73;
565 ddp_vendor_rec.auto_calculate_interest_flag := p7_a74;
566 ddp_vendor_rec.validation_number := p7_a75;
567 ddp_vendor_rec.exclude_freight_from_discount := p7_a76;
568 ddp_vendor_rec.tax_reporting_name := p7_a77;
569 ddp_vendor_rec.check_digits := p7_a78;
570 ddp_vendor_rec.allow_awt_flag := p7_a79;
571 ddp_vendor_rec.awt_group_id := p7_a80;
572 ddp_vendor_rec.awt_group_name := p7_a81;
573 ddp_vendor_rec.global_attribute1 := p7_a82;
574 ddp_vendor_rec.global_attribute2 := p7_a83;
575 ddp_vendor_rec.global_attribute3 := p7_a84;
576 ddp_vendor_rec.global_attribute4 := p7_a85;
577 ddp_vendor_rec.global_attribute5 := p7_a86;
578 ddp_vendor_rec.global_attribute6 := p7_a87;
579 ddp_vendor_rec.global_attribute7 := p7_a88;
580 ddp_vendor_rec.global_attribute8 := p7_a89;
581 ddp_vendor_rec.global_attribute9 := p7_a90;
582 ddp_vendor_rec.global_attribute10 := p7_a91;
583 ddp_vendor_rec.global_attribute11 := p7_a92;
584 ddp_vendor_rec.global_attribute12 := p7_a93;
585 ddp_vendor_rec.global_attribute13 := p7_a94;
586 ddp_vendor_rec.global_attribute14 := p7_a95;
587 ddp_vendor_rec.global_attribute15 := p7_a96;
588 ddp_vendor_rec.global_attribute16 := p7_a97;
589 ddp_vendor_rec.global_attribute17 := p7_a98;
590 ddp_vendor_rec.global_attribute18 := p7_a99;
591 ddp_vendor_rec.global_attribute19 := p7_a100;
592 ddp_vendor_rec.global_attribute20 := p7_a101;
593 ddp_vendor_rec.global_attribute_category := p7_a102;
594 ddp_vendor_rec.bank_charge_bearer := p7_a103;
595 ddp_vendor_rec.match_option := p7_a104;
596 ddp_vendor_rec.create_debit_memo_flag := p7_a105;
597 ddp_vendor_rec.party_id := p7_a106;
598 ddp_vendor_rec.parent_party_id := p7_a107;
599 ddp_vendor_rec.jgzz_fiscal_code := p7_a108;
600 ddp_vendor_rec.sic_code := p7_a109;
601 ddp_vendor_rec.tax_reference := p7_a110;
602 ddp_vendor_rec.inventory_organization_id := p7_a111;
603 ddp_vendor_rec.terms_name := p7_a112;
604 ddp_vendor_rec.default_terms_id := p7_a113;
605 ddp_vendor_rec.vendor_interface_id := p7_a114;
606 ddp_vendor_rec.ni_number := p7_a115;
607 ddp_vendor_rec.ext_payee_rec.payee_party_id := p7_a116;
608 ddp_vendor_rec.ext_payee_rec.payment_function := p7_a117;
609 ddp_vendor_rec.ext_payee_rec.exclusive_pay_flag := p7_a118;
610 ddp_vendor_rec.ext_payee_rec.payee_party_site_id := p7_a119;
611 ddp_vendor_rec.ext_payee_rec.supplier_site_id := p7_a120;
612 ddp_vendor_rec.ext_payee_rec.payer_org_id := p7_a121;
613 ddp_vendor_rec.ext_payee_rec.payer_org_type := p7_a122;
614 ddp_vendor_rec.ext_payee_rec.default_pmt_method := p7_a123;
615 ddp_vendor_rec.ext_payee_rec.ece_tp_loc_code := p7_a124;
616 ddp_vendor_rec.ext_payee_rec.bank_charge_bearer := p7_a125;
617 ddp_vendor_rec.ext_payee_rec.bank_instr1_code := p7_a126;
618 ddp_vendor_rec.ext_payee_rec.bank_instr2_code := p7_a127;
619 ddp_vendor_rec.ext_payee_rec.bank_instr_detail := p7_a128;
620 ddp_vendor_rec.ext_payee_rec.pay_reason_code := p7_a129;
621 ddp_vendor_rec.ext_payee_rec.pay_reason_com := p7_a130;
622 ddp_vendor_rec.ext_payee_rec.inactive_date := p7_a131;
623 ddp_vendor_rec.ext_payee_rec.pay_message1 := p7_a132;
624 ddp_vendor_rec.ext_payee_rec.pay_message2 := p7_a133;
625 ddp_vendor_rec.ext_payee_rec.pay_message3 := p7_a134;
626 ddp_vendor_rec.ext_payee_rec.delivery_channel := p7_a135;
627 ddp_vendor_rec.ext_payee_rec.pmt_format := p7_a136;
628 ddp_vendor_rec.ext_payee_rec.settlement_priority := p7_a137;
629
630
631 -- here's the delegated call to the old PL/SQL routine
632 fun_vendor_pvt_pkg.update_vendor(p_api_version,
633 p_init_msg_list,
634 p_commit,
635 p_validation_level,
636 x_return_status,
637 x_msg_count,
638 x_msg_data,
639 ddp_vendor_rec,
640 p_vendor_id);
641
642 -- copy data back from the local variables to OUT or IN-OUT args, if any
643
644
645
646
647
648
649
650
651 end;
652
653 procedure create_vendor_site(p_api_version NUMBER
654 , p_init_msg_list VARCHAR2
655 , p_commit VARCHAR2
656 , p_validation_level NUMBER
657 , x_return_status out nocopy VARCHAR2
658 , x_msg_count out nocopy NUMBER
659 , x_msg_data out nocopy VARCHAR2
660 , p7_a0 VARCHAR2
661 , p7_a1 VARCHAR2
662 , p7_a2 VARCHAR2
663 , p7_a3 NUMBER
664 , p7_a4 NUMBER
665 , p7_a5 VARCHAR2
666 , p7_a6 VARCHAR2
667 , p7_a7 VARCHAR2
668 , p7_a8 DATE
669 , p7_a9 VARCHAR2
670 , p7_a10 VARCHAR2
671 , p7_a11 VARCHAR2
672 , p7_a12 VARCHAR2
673 , p7_a13 NUMBER
674 , p7_a14 NUMBER
675 , p7_a15 NUMBER
676 , p7_a16 VARCHAR2
677 , p7_a17 NUMBER
678 , p7_a18 NUMBER
679 , p7_a19 NUMBER
680 , p7_a20 VARCHAR2
681 , p7_a21 VARCHAR2
682 , p7_a22 VARCHAR2
683 , p7_a23 VARCHAR2
684 , p7_a24 NUMBER
685 , p7_a25 DATE
686 , p7_a26 NUMBER
687 , p7_a27 NUMBER
688 , p7_a28 VARCHAR2
689 , p7_a29 VARCHAR2
690 , p7_a30 VARCHAR2
691 , p7_a31 VARCHAR2
692 , p7_a32 VARCHAR2
693 , p7_a33 VARCHAR2
694 , p7_a34 VARCHAR2
695 , p7_a35 VARCHAR2
696 , p7_a36 VARCHAR2
697 , p7_a37 VARCHAR2
698 , p7_a38 VARCHAR2
699 , p7_a39 VARCHAR2
700 , p7_a40 VARCHAR2
701 , p7_a41 VARCHAR2
702 , p7_a42 VARCHAR2
703 , p7_a43 VARCHAR2
704 , p7_a44 VARCHAR2
705 , p7_a45 VARCHAR2
706 , p7_a46 VARCHAR2
707 , p7_a47 VARCHAR2
708 , p7_a48 VARCHAR2
709 , p7_a49 VARCHAR2
710 , p7_a50 VARCHAR2
711 , p7_a51 VARCHAR2
712 , p7_a52 VARCHAR2
713 , p7_a53 VARCHAR2
714 , p7_a54 VARCHAR2
715 , p7_a55 NUMBER
716 , p7_a56 VARCHAR2
717 , p7_a57 VARCHAR2
718 , p7_a58 NUMBER
719 , p7_a59 VARCHAR2
720 , p7_a60 VARCHAR2
721 , p7_a61 NUMBER
722 , p7_a62 NUMBER
723 , p7_a63 VARCHAR2
724 , p7_a64 VARCHAR2
725 , p7_a65 VARCHAR2
726 , p7_a66 VARCHAR2
727 , p7_a67 VARCHAR2
728 , p7_a68 VARCHAR2
729 , p7_a69 VARCHAR2
730 , p7_a70 VARCHAR2
731 , p7_a71 VARCHAR2
732 , p7_a72 VARCHAR2
733 , p7_a73 VARCHAR2
734 , p7_a74 VARCHAR2
735 , p7_a75 VARCHAR2
736 , p7_a76 VARCHAR2
737 , p7_a77 VARCHAR2
738 , p7_a78 VARCHAR2
739 , p7_a79 VARCHAR2
740 , p7_a80 VARCHAR2
741 , p7_a81 VARCHAR2
742 , p7_a82 VARCHAR2
743 , p7_a83 VARCHAR2
744 , p7_a84 VARCHAR2
745 , p7_a85 VARCHAR2
746 , p7_a86 NUMBER
747 , p7_a87 VARCHAR2
748 , p7_a88 VARCHAR2
749 , p7_a89 VARCHAR2
750 , p7_a90 VARCHAR2
751 , p7_a91 NUMBER
752 , p7_a92 VARCHAR2
753 , p7_a93 VARCHAR2
754 , p7_a94 VARCHAR2
755 , p7_a95 VARCHAR2
756 , p7_a96 VARCHAR2
757 , p7_a97 VARCHAR2
758 , p7_a98 VARCHAR2
759 , p7_a99 NUMBER
760 , p7_a100 NUMBER
761 , p7_a101 VARCHAR2
762 , p7_a102 VARCHAR2
763 , p7_a103 VARCHAR2
764 , p7_a104 VARCHAR2
765 , p7_a105 VARCHAR2
766 , p7_a106 VARCHAR2
767 , p7_a107 VARCHAR2
768 , p7_a108 VARCHAR2
769 , p7_a109 VARCHAR2
770 , p7_a110 VARCHAR2
771 , p7_a111 VARCHAR2
772 , p7_a112 VARCHAR2
773 , p7_a113 VARCHAR2
774 , p7_a114 VARCHAR2
775 , p7_a115 VARCHAR2
776 , p7_a116 VARCHAR2
777 , p7_a117 NUMBER
778 , p7_a118 VARCHAR2
779 , p7_a119 VARCHAR2
780 , p7_a120 VARCHAR2
781 , p7_a121 VARCHAR2
782 , p7_a122 NUMBER
783 , p7_a123 NUMBER
784 , p7_a124 NUMBER
785 , p7_a125 NUMBER
786 , p7_a126 VARCHAR2
787 , p7_a127 NUMBER
788 , p7_a128 NUMBER
789 , p7_a129 NUMBER
790 , p7_a130 VARCHAR2
791 , p7_a131 VARCHAR2
792 , p7_a132 NUMBER
793 , p7_a133 NUMBER
794 , p7_a134 NUMBER
795 , p7_a135 VARCHAR2
796 , p7_a136 VARCHAR2
797 , p7_a137 VARCHAR2
798 , p7_a138 VARCHAR2
799 , p7_a139 VARCHAR2
800 , p7_a140 VARCHAR2
801 , p7_a141 VARCHAR2
802 , p7_a142 VARCHAR2
803 , p7_a143 VARCHAR2
804 , p7_a144 DATE
805 , p7_a145 VARCHAR2
806 , p7_a146 VARCHAR2
807 , p7_a147 VARCHAR2
808 , p7_a148 VARCHAR2
809 , p7_a149 VARCHAR2
810 , p7_a150 VARCHAR2
811 , p7_a151 NUMBER
812 , x_vendor_site_id out nocopy NUMBER
813 , x_party_site_id out nocopy NUMBER
814 , x_location_id out nocopy NUMBER
815 )
816
817 as
818 ddp_vendor_site_rec fun_vendor_pvt_pkg.r_vendor_site_rec_type;
819 ddindx binary_integer; indx binary_integer;
820 begin
821
822 -- copy data to the local IN or IN-OUT args, if any
823
824
825
826
827
828
829
830 ddp_vendor_site_rec.area_code := p7_a0;
831 ddp_vendor_site_rec.phone := p7_a1;
832 ddp_vendor_site_rec.customer_num := p7_a2;
833 ddp_vendor_site_rec.ship_to_location_id := p7_a3;
834 ddp_vendor_site_rec.bill_to_location_id := p7_a4;
835 ddp_vendor_site_rec.ship_via_lookup_code := p7_a5;
836 ddp_vendor_site_rec.freight_terms_lookup_code := p7_a6;
837 ddp_vendor_site_rec.fob_lookup_code := p7_a7;
838 ddp_vendor_site_rec.inactive_date := p7_a8;
839 ddp_vendor_site_rec.fax := p7_a9;
840 ddp_vendor_site_rec.fax_area_code := p7_a10;
841 ddp_vendor_site_rec.telex := p7_a11;
842 ddp_vendor_site_rec.terms_date_basis := p7_a12;
843 ddp_vendor_site_rec.distribution_set_id := p7_a13;
844 ddp_vendor_site_rec.accts_pay_code_combination_id := p7_a14;
845 ddp_vendor_site_rec.prepay_code_combination_id := p7_a15;
846 ddp_vendor_site_rec.pay_group_lookup_code := p7_a16;
847 ddp_vendor_site_rec.payment_priority := p7_a17;
848 ddp_vendor_site_rec.terms_id := p7_a18;
849 ddp_vendor_site_rec.invoice_amount_limit := p7_a19;
850 ddp_vendor_site_rec.pay_date_basis_lookup_code := p7_a20;
851 ddp_vendor_site_rec.always_take_disc_flag := p7_a21;
852 ddp_vendor_site_rec.invoice_currency_code := p7_a22;
853 ddp_vendor_site_rec.payment_currency_code := p7_a23;
854 ddp_vendor_site_rec.vendor_site_id := p7_a24;
855 ddp_vendor_site_rec.last_update_date := p7_a25;
856 ddp_vendor_site_rec.last_updated_by := p7_a26;
857 ddp_vendor_site_rec.vendor_id := p7_a27;
858 ddp_vendor_site_rec.vendor_site_code := p7_a28;
859 ddp_vendor_site_rec.vendor_site_code_alt := p7_a29;
860 ddp_vendor_site_rec.purchasing_site_flag := p7_a30;
861 ddp_vendor_site_rec.rfq_only_site_flag := p7_a31;
862 ddp_vendor_site_rec.pay_site_flag := p7_a32;
863 ddp_vendor_site_rec.attention_ar_flag := p7_a33;
864 ddp_vendor_site_rec.hold_all_payments_flag := p7_a34;
865 ddp_vendor_site_rec.hold_future_payments_flag := p7_a35;
866 ddp_vendor_site_rec.hold_reason := p7_a36;
867 ddp_vendor_site_rec.hold_unmatched_invoices_flag := p7_a37;
868 ddp_vendor_site_rec.tax_reporting_site_flag := p7_a38;
869 ddp_vendor_site_rec.attribute_category := p7_a39;
870 ddp_vendor_site_rec.attribute1 := p7_a40;
871 ddp_vendor_site_rec.attribute2 := p7_a41;
872 ddp_vendor_site_rec.attribute3 := p7_a42;
873 ddp_vendor_site_rec.attribute4 := p7_a43;
874 ddp_vendor_site_rec.attribute5 := p7_a44;
875 ddp_vendor_site_rec.attribute6 := p7_a45;
876 ddp_vendor_site_rec.attribute7 := p7_a46;
877 ddp_vendor_site_rec.attribute8 := p7_a47;
878 ddp_vendor_site_rec.attribute9 := p7_a48;
879 ddp_vendor_site_rec.attribute10 := p7_a49;
880 ddp_vendor_site_rec.attribute11 := p7_a50;
881 ddp_vendor_site_rec.attribute12 := p7_a51;
882 ddp_vendor_site_rec.attribute13 := p7_a52;
883 ddp_vendor_site_rec.attribute14 := p7_a53;
884 ddp_vendor_site_rec.attribute15 := p7_a54;
885 ddp_vendor_site_rec.validation_number := p7_a55;
886 ddp_vendor_site_rec.exclude_freight_from_discount := p7_a56;
887 ddp_vendor_site_rec.bank_charge_bearer := p7_a57;
888 ddp_vendor_site_rec.org_id := p7_a58;
889 ddp_vendor_site_rec.check_digits := p7_a59;
890 ddp_vendor_site_rec.allow_awt_flag := p7_a60;
891 ddp_vendor_site_rec.awt_group_id := p7_a61;
892 ddp_vendor_site_rec.default_pay_site_id := p7_a62;
893 ddp_vendor_site_rec.pay_on_code := p7_a63;
894 ddp_vendor_site_rec.pay_on_receipt_summary_code := p7_a64;
895 ddp_vendor_site_rec.global_attribute_category := p7_a65;
896 ddp_vendor_site_rec.global_attribute1 := p7_a66;
897 ddp_vendor_site_rec.global_attribute2 := p7_a67;
898 ddp_vendor_site_rec.global_attribute3 := p7_a68;
899 ddp_vendor_site_rec.global_attribute4 := p7_a69;
900 ddp_vendor_site_rec.global_attribute5 := p7_a70;
901 ddp_vendor_site_rec.global_attribute6 := p7_a71;
902 ddp_vendor_site_rec.global_attribute7 := p7_a72;
903 ddp_vendor_site_rec.global_attribute8 := p7_a73;
904 ddp_vendor_site_rec.global_attribute9 := p7_a74;
905 ddp_vendor_site_rec.global_attribute10 := p7_a75;
906 ddp_vendor_site_rec.global_attribute11 := p7_a76;
907 ddp_vendor_site_rec.global_attribute12 := p7_a77;
908 ddp_vendor_site_rec.global_attribute13 := p7_a78;
909 ddp_vendor_site_rec.global_attribute14 := p7_a79;
910 ddp_vendor_site_rec.global_attribute15 := p7_a80;
911 ddp_vendor_site_rec.global_attribute16 := p7_a81;
912 ddp_vendor_site_rec.global_attribute17 := p7_a82;
913 ddp_vendor_site_rec.global_attribute18 := p7_a83;
914 ddp_vendor_site_rec.global_attribute19 := p7_a84;
915 ddp_vendor_site_rec.global_attribute20 := p7_a85;
916 ddp_vendor_site_rec.tp_header_id := p7_a86;
917 ddp_vendor_site_rec.ece_tp_location_code := p7_a87;
918 ddp_vendor_site_rec.pcard_site_flag := p7_a88;
919 ddp_vendor_site_rec.match_option := p7_a89;
920 ddp_vendor_site_rec.country_of_origin_code := p7_a90;
921 ddp_vendor_site_rec.future_dated_payment_ccid := p7_a91;
922 ddp_vendor_site_rec.create_debit_memo_flag := p7_a92;
923 ddp_vendor_site_rec.supplier_notif_method := p7_a93;
924 ddp_vendor_site_rec.email_address := p7_a94;
925 ddp_vendor_site_rec.primary_pay_site_flag := p7_a95;
926 ddp_vendor_site_rec.shipping_control := p7_a96;
927 ddp_vendor_site_rec.selling_company_identifier := p7_a97;
928 ddp_vendor_site_rec.gapless_inv_num_flag := p7_a98;
929 ddp_vendor_site_rec.location_id := p7_a99;
930 ddp_vendor_site_rec.party_site_id := p7_a100;
931 ddp_vendor_site_rec.org_name := p7_a101;
932 ddp_vendor_site_rec.duns_number := p7_a102;
933 ddp_vendor_site_rec.address_style := p7_a103;
934 ddp_vendor_site_rec.language := p7_a104;
935 ddp_vendor_site_rec.province := p7_a105;
936 ddp_vendor_site_rec.country := p7_a106;
937 ddp_vendor_site_rec.address_line1 := p7_a107;
938 ddp_vendor_site_rec.address_line2 := p7_a108;
939 ddp_vendor_site_rec.address_line3 := p7_a109;
940 ddp_vendor_site_rec.address_line4 := p7_a110;
941 ddp_vendor_site_rec.address_lines_alt := p7_a111;
942 ddp_vendor_site_rec.county := p7_a112;
943 ddp_vendor_site_rec.city := p7_a113;
944 ddp_vendor_site_rec.state := p7_a114;
945 ddp_vendor_site_rec.zip := p7_a115;
946 ddp_vendor_site_rec.terms_name := p7_a116;
947 ddp_vendor_site_rec.default_terms_id := p7_a117;
948 ddp_vendor_site_rec.awt_group_name := p7_a118;
949 ddp_vendor_site_rec.distribution_set_name := p7_a119;
950 ddp_vendor_site_rec.ship_to_location_code := p7_a120;
951 ddp_vendor_site_rec.bill_to_location_code := p7_a121;
952 ddp_vendor_site_rec.default_dist_set_id := p7_a122;
953 ddp_vendor_site_rec.default_ship_to_loc_id := p7_a123;
954 ddp_vendor_site_rec.default_bill_to_loc_id := p7_a124;
955 ddp_vendor_site_rec.tolerance_id := p7_a125;
956 ddp_vendor_site_rec.tolerance_name := p7_a126;
957 ddp_vendor_site_rec.vendor_interface_id := p7_a127;
958 ddp_vendor_site_rec.vendor_site_interface_id := p7_a128;
959 ddp_vendor_site_rec.ext_payee_rec.payee_party_id := p7_a129;
960 ddp_vendor_site_rec.ext_payee_rec.payment_function := p7_a130;
961 ddp_vendor_site_rec.ext_payee_rec.exclusive_pay_flag := p7_a131;
962 ddp_vendor_site_rec.ext_payee_rec.payee_party_site_id := p7_a132;
963 ddp_vendor_site_rec.ext_payee_rec.supplier_site_id := p7_a133;
964 ddp_vendor_site_rec.ext_payee_rec.payer_org_id := p7_a134;
965 ddp_vendor_site_rec.ext_payee_rec.payer_org_type := p7_a135;
966 ddp_vendor_site_rec.ext_payee_rec.default_pmt_method := p7_a136;
967 ddp_vendor_site_rec.ext_payee_rec.ece_tp_loc_code := p7_a137;
968 ddp_vendor_site_rec.ext_payee_rec.bank_charge_bearer := p7_a138;
969 ddp_vendor_site_rec.ext_payee_rec.bank_instr1_code := p7_a139;
970 ddp_vendor_site_rec.ext_payee_rec.bank_instr2_code := p7_a140;
971 ddp_vendor_site_rec.ext_payee_rec.bank_instr_detail := p7_a141;
972 ddp_vendor_site_rec.ext_payee_rec.pay_reason_code := p7_a142;
973 ddp_vendor_site_rec.ext_payee_rec.pay_reason_com := p7_a143;
974 ddp_vendor_site_rec.ext_payee_rec.inactive_date := p7_a144;
975 ddp_vendor_site_rec.ext_payee_rec.pay_message1 := p7_a145;
976 ddp_vendor_site_rec.ext_payee_rec.pay_message2 := p7_a146;
977 ddp_vendor_site_rec.ext_payee_rec.pay_message3 := p7_a147;
978 ddp_vendor_site_rec.ext_payee_rec.delivery_channel := p7_a148;
979 ddp_vendor_site_rec.ext_payee_rec.pmt_format := p7_a149;
980 ddp_vendor_site_rec.ext_payee_rec.settlement_priority := p7_a150;
981 ddp_vendor_site_rec.retainage_rate := p7_a151;
982
983
984
985
986 -- here's the delegated call to the old PL/SQL routine
987 fun_vendor_pvt_pkg.create_vendor_site(p_api_version,
988 p_init_msg_list,
989 p_commit,
990 p_validation_level,
991 x_return_status,
992 x_msg_count,
993 x_msg_data,
994 ddp_vendor_site_rec,
995 x_vendor_site_id,
996 x_party_site_id,
997 x_location_id);
998
999 -- copy data back from the local variables to OUT or IN-OUT args, if any
1000
1001
1002
1003
1004
1005
1006
1007
1008
1009
1010 end;
1011
1012 procedure update_vendor_site(p_api_version NUMBER
1013 , p_init_msg_list VARCHAR2
1014 , p_commit VARCHAR2
1015 , p_validation_level NUMBER
1016 , x_return_status out nocopy VARCHAR2
1017 , x_msg_count out nocopy NUMBER
1018 , x_msg_data out nocopy VARCHAR2
1019 , p7_a0 VARCHAR2
1020 , p7_a1 VARCHAR2
1021 , p7_a2 VARCHAR2
1022 , p7_a3 NUMBER
1023 , p7_a4 NUMBER
1024 , p7_a5 VARCHAR2
1025 , p7_a6 VARCHAR2
1026 , p7_a7 VARCHAR2
1027 , p7_a8 DATE
1028 , p7_a9 VARCHAR2
1029 , p7_a10 VARCHAR2
1030 , p7_a11 VARCHAR2
1031 , p7_a12 VARCHAR2
1032 , p7_a13 NUMBER
1033 , p7_a14 NUMBER
1034 , p7_a15 NUMBER
1035 , p7_a16 VARCHAR2
1036 , p7_a17 NUMBER
1037 , p7_a18 NUMBER
1038 , p7_a19 NUMBER
1039 , p7_a20 VARCHAR2
1040 , p7_a21 VARCHAR2
1041 , p7_a22 VARCHAR2
1042 , p7_a23 VARCHAR2
1043 , p7_a24 NUMBER
1044 , p7_a25 DATE
1045 , p7_a26 NUMBER
1046 , p7_a27 NUMBER
1047 , p7_a28 VARCHAR2
1048 , p7_a29 VARCHAR2
1049 , p7_a30 VARCHAR2
1050 , p7_a31 VARCHAR2
1051 , p7_a32 VARCHAR2
1052 , p7_a33 VARCHAR2
1053 , p7_a34 VARCHAR2
1054 , p7_a35 VARCHAR2
1055 , p7_a36 VARCHAR2
1056 , p7_a37 VARCHAR2
1057 , p7_a38 VARCHAR2
1058 , p7_a39 VARCHAR2
1059 , p7_a40 VARCHAR2
1060 , p7_a41 VARCHAR2
1061 , p7_a42 VARCHAR2
1062 , p7_a43 VARCHAR2
1063 , p7_a44 VARCHAR2
1064 , p7_a45 VARCHAR2
1065 , p7_a46 VARCHAR2
1066 , p7_a47 VARCHAR2
1067 , p7_a48 VARCHAR2
1068 , p7_a49 VARCHAR2
1069 , p7_a50 VARCHAR2
1070 , p7_a51 VARCHAR2
1071 , p7_a52 VARCHAR2
1072 , p7_a53 VARCHAR2
1073 , p7_a54 VARCHAR2
1074 , p7_a55 NUMBER
1075 , p7_a56 VARCHAR2
1076 , p7_a57 VARCHAR2
1077 , p7_a58 NUMBER
1078 , p7_a59 VARCHAR2
1079 , p7_a60 VARCHAR2
1080 , p7_a61 NUMBER
1081 , p7_a62 NUMBER
1082 , p7_a63 VARCHAR2
1083 , p7_a64 VARCHAR2
1084 , p7_a65 VARCHAR2
1085 , p7_a66 VARCHAR2
1086 , p7_a67 VARCHAR2
1087 , p7_a68 VARCHAR2
1088 , p7_a69 VARCHAR2
1089 , p7_a70 VARCHAR2
1090 , p7_a71 VARCHAR2
1091 , p7_a72 VARCHAR2
1092 , p7_a73 VARCHAR2
1093 , p7_a74 VARCHAR2
1094 , p7_a75 VARCHAR2
1095 , p7_a76 VARCHAR2
1096 , p7_a77 VARCHAR2
1097 , p7_a78 VARCHAR2
1098 , p7_a79 VARCHAR2
1099 , p7_a80 VARCHAR2
1100 , p7_a81 VARCHAR2
1101 , p7_a82 VARCHAR2
1102 , p7_a83 VARCHAR2
1103 , p7_a84 VARCHAR2
1104 , p7_a85 VARCHAR2
1105 , p7_a86 NUMBER
1106 , p7_a87 VARCHAR2
1107 , p7_a88 VARCHAR2
1108 , p7_a89 VARCHAR2
1109 , p7_a90 VARCHAR2
1110 , p7_a91 NUMBER
1111 , p7_a92 VARCHAR2
1112 , p7_a93 VARCHAR2
1113 , p7_a94 VARCHAR2
1114 , p7_a95 VARCHAR2
1115 , p7_a96 VARCHAR2
1116 , p7_a97 VARCHAR2
1117 , p7_a98 VARCHAR2
1118 , p7_a99 NUMBER
1119 , p7_a100 NUMBER
1120 , p7_a101 VARCHAR2
1121 , p7_a102 VARCHAR2
1122 , p7_a103 VARCHAR2
1123 , p7_a104 VARCHAR2
1124 , p7_a105 VARCHAR2
1125 , p7_a106 VARCHAR2
1126 , p7_a107 VARCHAR2
1127 , p7_a108 VARCHAR2
1128 , p7_a109 VARCHAR2
1129 , p7_a110 VARCHAR2
1130 , p7_a111 VARCHAR2
1131 , p7_a112 VARCHAR2
1132 , p7_a113 VARCHAR2
1133 , p7_a114 VARCHAR2
1134 , p7_a115 VARCHAR2
1135 , p7_a116 VARCHAR2
1136 , p7_a117 NUMBER
1137 , p7_a118 VARCHAR2
1138 , p7_a119 VARCHAR2
1139 , p7_a120 VARCHAR2
1140 , p7_a121 VARCHAR2
1141 , p7_a122 NUMBER
1142 , p7_a123 NUMBER
1143 , p7_a124 NUMBER
1144 , p7_a125 NUMBER
1145 , p7_a126 VARCHAR2
1146 , p7_a127 NUMBER
1147 , p7_a128 NUMBER
1148 , p7_a129 NUMBER
1149 , p7_a130 VARCHAR2
1150 , p7_a131 VARCHAR2
1151 , p7_a132 NUMBER
1152 , p7_a133 NUMBER
1153 , p7_a134 NUMBER
1154 , p7_a135 VARCHAR2
1155 , p7_a136 VARCHAR2
1156 , p7_a137 VARCHAR2
1157 , p7_a138 VARCHAR2
1158 , p7_a139 VARCHAR2
1159 , p7_a140 VARCHAR2
1160 , p7_a141 VARCHAR2
1161 , p7_a142 VARCHAR2
1162 , p7_a143 VARCHAR2
1163 , p7_a144 DATE
1164 , p7_a145 VARCHAR2
1165 , p7_a146 VARCHAR2
1166 , p7_a147 VARCHAR2
1167 , p7_a148 VARCHAR2
1168 , p7_a149 VARCHAR2
1169 , p7_a150 VARCHAR2
1170 , p7_a151 NUMBER
1171 , p_vendor_site_id NUMBER
1172 )
1173
1174 as
1175 ddp_vendor_site_rec fun_vendor_pvt_pkg.r_vendor_site_rec_type;
1176 ddindx binary_integer; indx binary_integer;
1177 begin
1178
1179 -- copy data to the local IN or IN-OUT args, if any
1180
1181
1182
1183
1184
1185
1186
1187 ddp_vendor_site_rec.area_code := p7_a0;
1188 ddp_vendor_site_rec.phone := p7_a1;
1189 ddp_vendor_site_rec.customer_num := p7_a2;
1190 ddp_vendor_site_rec.ship_to_location_id := p7_a3;
1191 ddp_vendor_site_rec.bill_to_location_id := p7_a4;
1192 ddp_vendor_site_rec.ship_via_lookup_code := p7_a5;
1193 ddp_vendor_site_rec.freight_terms_lookup_code := p7_a6;
1194 ddp_vendor_site_rec.fob_lookup_code := p7_a7;
1195 ddp_vendor_site_rec.inactive_date := p7_a8;
1196 ddp_vendor_site_rec.fax := p7_a9;
1197 ddp_vendor_site_rec.fax_area_code := p7_a10;
1198 ddp_vendor_site_rec.telex := p7_a11;
1199 ddp_vendor_site_rec.terms_date_basis := p7_a12;
1200 ddp_vendor_site_rec.distribution_set_id := p7_a13;
1201 ddp_vendor_site_rec.accts_pay_code_combination_id := p7_a14;
1202 ddp_vendor_site_rec.prepay_code_combination_id := p7_a15;
1203 ddp_vendor_site_rec.pay_group_lookup_code := p7_a16;
1204 ddp_vendor_site_rec.payment_priority := p7_a17;
1205 ddp_vendor_site_rec.terms_id := p7_a18;
1206 ddp_vendor_site_rec.invoice_amount_limit := p7_a19;
1207 ddp_vendor_site_rec.pay_date_basis_lookup_code := p7_a20;
1208 ddp_vendor_site_rec.always_take_disc_flag := p7_a21;
1209 ddp_vendor_site_rec.invoice_currency_code := p7_a22;
1210 ddp_vendor_site_rec.payment_currency_code := p7_a23;
1211 ddp_vendor_site_rec.vendor_site_id := p7_a24;
1212 ddp_vendor_site_rec.last_update_date := p7_a25;
1213 ddp_vendor_site_rec.last_updated_by := p7_a26;
1214 ddp_vendor_site_rec.vendor_id := p7_a27;
1215 ddp_vendor_site_rec.vendor_site_code := p7_a28;
1216 ddp_vendor_site_rec.vendor_site_code_alt := p7_a29;
1217 ddp_vendor_site_rec.purchasing_site_flag := p7_a30;
1218 ddp_vendor_site_rec.rfq_only_site_flag := p7_a31;
1219 ddp_vendor_site_rec.pay_site_flag := p7_a32;
1220 ddp_vendor_site_rec.attention_ar_flag := p7_a33;
1221 ddp_vendor_site_rec.hold_all_payments_flag := p7_a34;
1222 ddp_vendor_site_rec.hold_future_payments_flag := p7_a35;
1223 ddp_vendor_site_rec.hold_reason := p7_a36;
1224 ddp_vendor_site_rec.hold_unmatched_invoices_flag := p7_a37;
1225 ddp_vendor_site_rec.tax_reporting_site_flag := p7_a38;
1226 ddp_vendor_site_rec.attribute_category := p7_a39;
1227 ddp_vendor_site_rec.attribute1 := p7_a40;
1228 ddp_vendor_site_rec.attribute2 := p7_a41;
1229 ddp_vendor_site_rec.attribute3 := p7_a42;
1230 ddp_vendor_site_rec.attribute4 := p7_a43;
1231 ddp_vendor_site_rec.attribute5 := p7_a44;
1232 ddp_vendor_site_rec.attribute6 := p7_a45;
1233 ddp_vendor_site_rec.attribute7 := p7_a46;
1234 ddp_vendor_site_rec.attribute8 := p7_a47;
1235 ddp_vendor_site_rec.attribute9 := p7_a48;
1236 ddp_vendor_site_rec.attribute10 := p7_a49;
1237 ddp_vendor_site_rec.attribute11 := p7_a50;
1238 ddp_vendor_site_rec.attribute12 := p7_a51;
1239 ddp_vendor_site_rec.attribute13 := p7_a52;
1240 ddp_vendor_site_rec.attribute14 := p7_a53;
1241 ddp_vendor_site_rec.attribute15 := p7_a54;
1242 ddp_vendor_site_rec.validation_number := p7_a55;
1243 ddp_vendor_site_rec.exclude_freight_from_discount := p7_a56;
1244 ddp_vendor_site_rec.bank_charge_bearer := p7_a57;
1245 ddp_vendor_site_rec.org_id := p7_a58;
1246 ddp_vendor_site_rec.check_digits := p7_a59;
1247 ddp_vendor_site_rec.allow_awt_flag := p7_a60;
1248 ddp_vendor_site_rec.awt_group_id := p7_a61;
1249 ddp_vendor_site_rec.default_pay_site_id := p7_a62;
1250 ddp_vendor_site_rec.pay_on_code := p7_a63;
1251 ddp_vendor_site_rec.pay_on_receipt_summary_code := p7_a64;
1252 ddp_vendor_site_rec.global_attribute_category := p7_a65;
1253 ddp_vendor_site_rec.global_attribute1 := p7_a66;
1254 ddp_vendor_site_rec.global_attribute2 := p7_a67;
1255 ddp_vendor_site_rec.global_attribute3 := p7_a68;
1256 ddp_vendor_site_rec.global_attribute4 := p7_a69;
1257 ddp_vendor_site_rec.global_attribute5 := p7_a70;
1258 ddp_vendor_site_rec.global_attribute6 := p7_a71;
1259 ddp_vendor_site_rec.global_attribute7 := p7_a72;
1260 ddp_vendor_site_rec.global_attribute8 := p7_a73;
1261 ddp_vendor_site_rec.global_attribute9 := p7_a74;
1262 ddp_vendor_site_rec.global_attribute10 := p7_a75;
1263 ddp_vendor_site_rec.global_attribute11 := p7_a76;
1264 ddp_vendor_site_rec.global_attribute12 := p7_a77;
1265 ddp_vendor_site_rec.global_attribute13 := p7_a78;
1266 ddp_vendor_site_rec.global_attribute14 := p7_a79;
1267 ddp_vendor_site_rec.global_attribute15 := p7_a80;
1268 ddp_vendor_site_rec.global_attribute16 := p7_a81;
1269 ddp_vendor_site_rec.global_attribute17 := p7_a82;
1270 ddp_vendor_site_rec.global_attribute18 := p7_a83;
1271 ddp_vendor_site_rec.global_attribute19 := p7_a84;
1272 ddp_vendor_site_rec.global_attribute20 := p7_a85;
1273 ddp_vendor_site_rec.tp_header_id := p7_a86;
1274 ddp_vendor_site_rec.ece_tp_location_code := p7_a87;
1275 ddp_vendor_site_rec.pcard_site_flag := p7_a88;
1276 ddp_vendor_site_rec.match_option := p7_a89;
1277 ddp_vendor_site_rec.country_of_origin_code := p7_a90;
1278 ddp_vendor_site_rec.future_dated_payment_ccid := p7_a91;
1279 ddp_vendor_site_rec.create_debit_memo_flag := p7_a92;
1280 ddp_vendor_site_rec.supplier_notif_method := p7_a93;
1281 ddp_vendor_site_rec.email_address := p7_a94;
1282 ddp_vendor_site_rec.primary_pay_site_flag := p7_a95;
1283 ddp_vendor_site_rec.shipping_control := p7_a96;
1284 ddp_vendor_site_rec.selling_company_identifier := p7_a97;
1285 ddp_vendor_site_rec.gapless_inv_num_flag := p7_a98;
1286 ddp_vendor_site_rec.location_id := p7_a99;
1287 ddp_vendor_site_rec.party_site_id := p7_a100;
1288 ddp_vendor_site_rec.org_name := p7_a101;
1289 ddp_vendor_site_rec.duns_number := p7_a102;
1290 ddp_vendor_site_rec.address_style := p7_a103;
1291 ddp_vendor_site_rec.language := p7_a104;
1292 ddp_vendor_site_rec.province := p7_a105;
1293 ddp_vendor_site_rec.country := p7_a106;
1294 ddp_vendor_site_rec.address_line1 := p7_a107;
1295 ddp_vendor_site_rec.address_line2 := p7_a108;
1296 ddp_vendor_site_rec.address_line3 := p7_a109;
1297 ddp_vendor_site_rec.address_line4 := p7_a110;
1298 ddp_vendor_site_rec.address_lines_alt := p7_a111;
1299 ddp_vendor_site_rec.county := p7_a112;
1300 ddp_vendor_site_rec.city := p7_a113;
1301 ddp_vendor_site_rec.state := p7_a114;
1302 ddp_vendor_site_rec.zip := p7_a115;
1303 ddp_vendor_site_rec.terms_name := p7_a116;
1304 ddp_vendor_site_rec.default_terms_id := p7_a117;
1305 ddp_vendor_site_rec.awt_group_name := p7_a118;
1306 ddp_vendor_site_rec.distribution_set_name := p7_a119;
1307 ddp_vendor_site_rec.ship_to_location_code := p7_a120;
1308 ddp_vendor_site_rec.bill_to_location_code := p7_a121;
1309 ddp_vendor_site_rec.default_dist_set_id := p7_a122;
1310 ddp_vendor_site_rec.default_ship_to_loc_id := p7_a123;
1311 ddp_vendor_site_rec.default_bill_to_loc_id := p7_a124;
1312 ddp_vendor_site_rec.tolerance_id := p7_a125;
1313 ddp_vendor_site_rec.tolerance_name := p7_a126;
1314 ddp_vendor_site_rec.vendor_interface_id := p7_a127;
1315 ddp_vendor_site_rec.vendor_site_interface_id := p7_a128;
1316 ddp_vendor_site_rec.ext_payee_rec.payee_party_id := p7_a129;
1317 ddp_vendor_site_rec.ext_payee_rec.payment_function := p7_a130;
1318 ddp_vendor_site_rec.ext_payee_rec.exclusive_pay_flag := p7_a131;
1319 ddp_vendor_site_rec.ext_payee_rec.payee_party_site_id := p7_a132;
1320 ddp_vendor_site_rec.ext_payee_rec.supplier_site_id := p7_a133;
1321 ddp_vendor_site_rec.ext_payee_rec.payer_org_id := p7_a134;
1322 ddp_vendor_site_rec.ext_payee_rec.payer_org_type := p7_a135;
1323 ddp_vendor_site_rec.ext_payee_rec.default_pmt_method := p7_a136;
1324 ddp_vendor_site_rec.ext_payee_rec.ece_tp_loc_code := p7_a137;
1325 ddp_vendor_site_rec.ext_payee_rec.bank_charge_bearer := p7_a138;
1326 ddp_vendor_site_rec.ext_payee_rec.bank_instr1_code := p7_a139;
1327 ddp_vendor_site_rec.ext_payee_rec.bank_instr2_code := p7_a140;
1328 ddp_vendor_site_rec.ext_payee_rec.bank_instr_detail := p7_a141;
1329 ddp_vendor_site_rec.ext_payee_rec.pay_reason_code := p7_a142;
1330 ddp_vendor_site_rec.ext_payee_rec.pay_reason_com := p7_a143;
1331 ddp_vendor_site_rec.ext_payee_rec.inactive_date := p7_a144;
1332 ddp_vendor_site_rec.ext_payee_rec.pay_message1 := p7_a145;
1333 ddp_vendor_site_rec.ext_payee_rec.pay_message2 := p7_a146;
1334 ddp_vendor_site_rec.ext_payee_rec.pay_message3 := p7_a147;
1335 ddp_vendor_site_rec.ext_payee_rec.delivery_channel := p7_a148;
1336 ddp_vendor_site_rec.ext_payee_rec.pmt_format := p7_a149;
1337 ddp_vendor_site_rec.ext_payee_rec.settlement_priority := p7_a150;
1338 ddp_vendor_site_rec.retainage_rate := p7_a151;
1339
1340
1341 -- here's the delegated call to the old PL/SQL routine
1342 fun_vendor_pvt_pkg.update_vendor_site(p_api_version,
1343 p_init_msg_list,
1344 p_commit,
1345 p_validation_level,
1346 x_return_status,
1347 x_msg_count,
1348 x_msg_data,
1349 ddp_vendor_site_rec,
1350 p_vendor_site_id);
1351
1352 -- copy data back from the local variables to OUT or IN-OUT args, if any
1353
1354
1355
1356
1357
1358
1359
1360
1361 end;
1362
1363 end fun_vendor_pvt_pkg_w;