[Home] [Help]
PACKAGE BODY: APPS.AP_VENDOR_PUB_PKG_W
Source
1 package body ap_vendor_pub_pkg_w as
2 /* $Header: appvndwb.pls 120.0.12000000.1 2007/04/24 19:05:31 xili noship $ */
3 --Global constants for logging
4 G_PKG_NAME CONSTANT VARCHAR2(30) := 'AP_VENDOR_PUB_PKG_W';
5 G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;
6 G_MSG_ERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_ERROR;
7 G_MSG_SUCCESS CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_SUCCESS;
8 G_MSG_HIGH CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH;
9 G_MSG_MEDIUM CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM;
10 G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
11 G_LINES_PER_FETCH CONSTANT NUMBER := 1000;
12
13 G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
14 G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
15 G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
16 G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
17 G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
18 G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
19 G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
20 G_MODULE_NAME CONSTANT VARCHAR2(100) := 'AP.PLSQL.AP_VENDOR_PUB_PKG_W';
21
22 G_Vendor_Type_Lookup_Code VARCHAR2(30);
23
24 rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
25 rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
26 rosetta_g_mistake_date_high date := to_date('01/01/+4710', 'MM/DD/SYYYY');
27 rosetta_g_mistake_date_low date := to_date('01/01/-4710', 'MM/DD/SYYYY');
28
29 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
30 function rosetta_g_miss_date_in_map(d date) return date as
31 begin
32 if d > rosetta_g_mistake_date_high then return fnd_api.g_miss_date; end if;
33 if d < rosetta_g_mistake_date_low then return fnd_api.g_miss_date; end if;
34 return d;
35 end;
36
37 procedure create_vendor(p_api_version NUMBER
38 , p_init_msg_list VARCHAR2
39 , p_commit VARCHAR2
40 , p_validation_level NUMBER
41 , x_return_status out nocopy VARCHAR2
42 , x_msg_count out nocopy NUMBER
43 , x_msg_data out nocopy VARCHAR2
44 , p7_a0 NUMBER
45 , p7_a1 VARCHAR2
46 , p7_a2 VARCHAR2
47 , p7_a3 VARCHAR2
48 , p7_a4 VARCHAR2
49 , p7_a5 VARCHAR2
50 , p7_a6 VARCHAR2
51 , p7_a7 VARCHAR2
52 , p7_a8 VARCHAR2
53 , p7_a9 VARCHAR2
54 , p7_a10 NUMBER
55 , p7_a11 VARCHAR2
56 , p7_a12 VARCHAR2
57 , p7_a13 VARCHAR2
58 , p7_a14 NUMBER
59 , p7_a15 NUMBER
60 , p7_a16 NUMBER
61 , p7_a17 NUMBER
62 , p7_a18 VARCHAR2
63 , p7_a19 VARCHAR2
64 , p7_a20 VARCHAR2
65 , p7_a21 NUMBER
66 , p7_a22 VARCHAR2
67 , p7_a23 VARCHAR2
68 , p7_a24 NUMBER
69 , p7_a25 VARCHAR2
70 , p7_a26 VARCHAR2
71 , p7_a27 VARCHAR2
72 , p7_a28 VARCHAR2
73 , p7_a29 VARCHAR2
74 , p7_a30 DATE
75 , p7_a31 VARCHAR2
76 , p7_a32 DATE
77 , p7_a33 DATE
78 , p7_a34 VARCHAR2
79 , p7_a35 VARCHAR2
80 , p7_a36 VARCHAR2
81 , p7_a37 VARCHAR2
82 , p7_a38 VARCHAR2
83 , p7_a39 NUMBER
84 , p7_a40 DATE
85 , p7_a41 VARCHAR2
86 , p7_a42 VARCHAR2
87 , p7_a43 VARCHAR2
88 , p7_a44 NUMBER
89 , p7_a45 VARCHAR2
90 , p7_a46 VARCHAR2
91 , p7_a47 NUMBER
92 , p7_a48 NUMBER
93 , p7_a49 VARCHAR2
94 , p7_a50 NUMBER
95 , p7_a51 VARCHAR2
96 , p7_a52 VARCHAR2
97 , p7_a53 VARCHAR2
98 , p7_a54 DATE
99 , p7_a55 VARCHAR2
100 , p7_a56 VARCHAR2
101 , p7_a57 VARCHAR2
102 , p7_a58 VARCHAR2
103 , p7_a59 VARCHAR2
104 , p7_a60 VARCHAR2
105 , p7_a61 VARCHAR2
106 , p7_a62 VARCHAR2
107 , p7_a63 VARCHAR2
108 , p7_a64 VARCHAR2
109 , p7_a65 VARCHAR2
110 , p7_a66 VARCHAR2
111 , p7_a67 VARCHAR2
112 , p7_a68 VARCHAR2
113 , p7_a69 VARCHAR2
114 , p7_a70 VARCHAR2
115 , p7_a71 VARCHAR2
116 , p7_a72 VARCHAR2
117 , p7_a73 VARCHAR2
118 , p7_a74 VARCHAR2
119 , p7_a75 NUMBER
120 , p7_a76 VARCHAR2
121 , p7_a77 VARCHAR2
122 , p7_a78 VARCHAR2
123 , p7_a79 VARCHAR2
124 , p7_a80 NUMBER
125 , p7_a81 VARCHAR2
126 , p7_a82 VARCHAR2
127 , p7_a83 VARCHAR2
128 , p7_a84 VARCHAR2
129 , p7_a85 VARCHAR2
130 , p7_a86 VARCHAR2
131 , p7_a87 VARCHAR2
132 , p7_a88 VARCHAR2
133 , p7_a89 VARCHAR2
134 , p7_a90 VARCHAR2
135 , p7_a91 VARCHAR2
136 , p7_a92 VARCHAR2
137 , p7_a93 VARCHAR2
138 , p7_a94 VARCHAR2
139 , p7_a95 VARCHAR2
140 , p7_a96 VARCHAR2
141 , p7_a97 VARCHAR2
142 , p7_a98 VARCHAR2
143 , p7_a99 VARCHAR2
144 , p7_a100 VARCHAR2
145 , p7_a101 VARCHAR2
146 , p7_a102 VARCHAR2
147 , p7_a103 VARCHAR2
148 , p7_a104 VARCHAR2
149 , p7_a105 VARCHAR2
150 , p7_a106 NUMBER
151 , p7_a107 NUMBER
152 , p7_a108 VARCHAR2
153 , p7_a109 VARCHAR2
154 , p7_a110 VARCHAR2
155 , p7_a111 NUMBER
156 , p7_a112 VARCHAR2
157 , p7_a113 NUMBER
158 , p7_a114 NUMBER
159 , p7_a115 VARCHAR2
160 , p7_a116 NUMBER
161 , p7_a117 VARCHAR2
162 , p7_a118 VARCHAR2
163 , p7_a119 NUMBER
164 , p7_a120 NUMBER
165 , p7_a121 NUMBER
166 , p7_a122 VARCHAR2
167 , p7_a123 VARCHAR2
168 , p7_a124 VARCHAR2
169 , p7_a125 VARCHAR2
170 , p7_a126 VARCHAR2
171 , p7_a127 VARCHAR2
172 , p7_a128 VARCHAR2
173 , p7_a129 VARCHAR2
174 , p7_a130 VARCHAR2
175 , p7_a131 DATE
176 , p7_a132 VARCHAR2
177 , p7_a133 VARCHAR2
178 , p7_a134 VARCHAR2
179 , p7_a135 VARCHAR2
180 , p7_a136 VARCHAR2
181 , p7_a137 VARCHAR2
182 , x_vendor_id out nocopy NUMBER
183 , x_party_id out nocopy NUMBER
184 )
185
186 as
187 ddp_vendor_rec ap_vendor_pub_pkg.r_vendor_rec_type;
188 ddindx binary_integer; indx binary_integer;
189 begin
190
191 -- copy data to the local IN or IN-OUT args, if any
192
193
194
195
196
197
198
199 ddp_vendor_rec.vendor_id := p7_a0;
200 ddp_vendor_rec.segment1 := p7_a1;
201 ddp_vendor_rec.vendor_name := p7_a2;
202 ddp_vendor_rec.vendor_name_alt := p7_a3;
203 ddp_vendor_rec.summary_flag := p7_a4;
204 ddp_vendor_rec.enabled_flag := p7_a5;
205 ddp_vendor_rec.segment2 := p7_a6;
206 ddp_vendor_rec.segment3 := p7_a7;
207 ddp_vendor_rec.segment4 := p7_a8;
208 ddp_vendor_rec.segment5 := p7_a9;
209 ddp_vendor_rec.employee_id := p7_a10;
210 ddp_vendor_rec.vendor_type_lookup_code := p7_a11;
211 ddp_vendor_rec.customer_num := p7_a12;
212 ddp_vendor_rec.one_time_flag := p7_a13;
213 ddp_vendor_rec.parent_vendor_id := p7_a14;
214 ddp_vendor_rec.min_order_amount := p7_a15;
215 ddp_vendor_rec.terms_id := p7_a16;
216 ddp_vendor_rec.set_of_books_id := p7_a17;
217 ddp_vendor_rec.always_take_disc_flag := p7_a18;
218 ddp_vendor_rec.pay_date_basis_lookup_code := p7_a19;
219 ddp_vendor_rec.pay_group_lookup_code := p7_a20;
220 ddp_vendor_rec.payment_priority := p7_a21;
221 ddp_vendor_rec.invoice_currency_code := p7_a22;
222 ddp_vendor_rec.payment_currency_code := p7_a23;
223 ddp_vendor_rec.invoice_amount_limit := p7_a24;
224 ddp_vendor_rec.hold_all_payments_flag := p7_a25;
225 ddp_vendor_rec.hold_future_payments_flag := p7_a26;
226 ddp_vendor_rec.hold_reason := p7_a27;
227 ddp_vendor_rec.type_1099 := p7_a28;
228 ddp_vendor_rec.withholding_status_lookup_code := p7_a29;
229 ddp_vendor_rec.withholding_start_date := rosetta_g_miss_date_in_map(p7_a30);
230 ddp_vendor_rec.organization_type_lookup_code := p7_a31;
231 ddp_vendor_rec.start_date_active := rosetta_g_miss_date_in_map(p7_a32);
232 ddp_vendor_rec.end_date_active := rosetta_g_miss_date_in_map(p7_a33);
233 ddp_vendor_rec.minority_group_lookup_code := p7_a34;
234 ddp_vendor_rec.women_owned_flag := p7_a35;
235 ddp_vendor_rec.small_business_flag := p7_a36;
236 ddp_vendor_rec.hold_flag := p7_a37;
237 ddp_vendor_rec.purchasing_hold_reason := p7_a38;
238 ddp_vendor_rec.hold_by := p7_a39;
239 ddp_vendor_rec.hold_date := rosetta_g_miss_date_in_map(p7_a40);
240 ddp_vendor_rec.terms_date_basis := p7_a41;
241 ddp_vendor_rec.inspection_required_flag := p7_a42;
242 ddp_vendor_rec.receipt_required_flag := p7_a43;
243 ddp_vendor_rec.qty_rcv_tolerance := p7_a44;
244 ddp_vendor_rec.qty_rcv_exception_code := p7_a45;
245 ddp_vendor_rec.enforce_ship_to_location_code := p7_a46;
246 ddp_vendor_rec.days_early_receipt_allowed := p7_a47;
247 ddp_vendor_rec.days_late_receipt_allowed := p7_a48;
248 ddp_vendor_rec.receipt_days_exception_code := p7_a49;
249 ddp_vendor_rec.receiving_routing_id := p7_a50;
250 ddp_vendor_rec.allow_substitute_receipts_flag := p7_a51;
251 ddp_vendor_rec.allow_unordered_receipts_flag := p7_a52;
252 ddp_vendor_rec.hold_unmatched_invoices_flag := p7_a53;
253 ddp_vendor_rec.tax_verification_date := rosetta_g_miss_date_in_map(p7_a54);
254 ddp_vendor_rec.name_control := p7_a55;
255 ddp_vendor_rec.state_reportable_flag := p7_a56;
256 ddp_vendor_rec.federal_reportable_flag := p7_a57;
260 ddp_vendor_rec.attribute3 := p7_a61;
257 ddp_vendor_rec.attribute_category := p7_a58;
258 ddp_vendor_rec.attribute1 := p7_a59;
259 ddp_vendor_rec.attribute2 := p7_a60;
261 ddp_vendor_rec.attribute4 := p7_a62;
262 ddp_vendor_rec.attribute5 := p7_a63;
263 ddp_vendor_rec.attribute6 := p7_a64;
264 ddp_vendor_rec.attribute7 := p7_a65;
265 ddp_vendor_rec.attribute8 := p7_a66;
266 ddp_vendor_rec.attribute9 := p7_a67;
267 ddp_vendor_rec.attribute10 := p7_a68;
268 ddp_vendor_rec.attribute11 := p7_a69;
269 ddp_vendor_rec.attribute12 := p7_a70;
270 ddp_vendor_rec.attribute13 := p7_a71;
271 ddp_vendor_rec.attribute14 := p7_a72;
272 ddp_vendor_rec.attribute15 := p7_a73;
273 ddp_vendor_rec.auto_calculate_interest_flag := p7_a74;
274 ddp_vendor_rec.validation_number := p7_a75;
275 ddp_vendor_rec.exclude_freight_from_discount := p7_a76;
276 ddp_vendor_rec.tax_reporting_name := p7_a77;
277 ddp_vendor_rec.check_digits := p7_a78;
278 ddp_vendor_rec.allow_awt_flag := p7_a79;
279 ddp_vendor_rec.awt_group_id := p7_a80;
280 ddp_vendor_rec.awt_group_name := p7_a81;
281 ddp_vendor_rec.global_attribute1 := p7_a82;
282 ddp_vendor_rec.global_attribute2 := p7_a83;
283 ddp_vendor_rec.global_attribute3 := p7_a84;
284 ddp_vendor_rec.global_attribute4 := p7_a85;
285 ddp_vendor_rec.global_attribute5 := p7_a86;
286 ddp_vendor_rec.global_attribute6 := p7_a87;
287 ddp_vendor_rec.global_attribute7 := p7_a88;
288 ddp_vendor_rec.global_attribute8 := p7_a89;
289 ddp_vendor_rec.global_attribute9 := p7_a90;
290 ddp_vendor_rec.global_attribute10 := p7_a91;
291 ddp_vendor_rec.global_attribute11 := p7_a92;
292 ddp_vendor_rec.global_attribute12 := p7_a93;
293 ddp_vendor_rec.global_attribute13 := p7_a94;
294 ddp_vendor_rec.global_attribute14 := p7_a95;
295 ddp_vendor_rec.global_attribute15 := p7_a96;
296 ddp_vendor_rec.global_attribute16 := p7_a97;
297 ddp_vendor_rec.global_attribute17 := p7_a98;
298 ddp_vendor_rec.global_attribute18 := p7_a99;
299 ddp_vendor_rec.global_attribute19 := p7_a100;
300 ddp_vendor_rec.global_attribute20 := p7_a101;
301 ddp_vendor_rec.global_attribute_category := p7_a102;
302 ddp_vendor_rec.bank_charge_bearer := p7_a103;
303 ddp_vendor_rec.match_option := p7_a104;
304 ddp_vendor_rec.create_debit_memo_flag := p7_a105;
305 ddp_vendor_rec.party_id := p7_a106;
306 ddp_vendor_rec.parent_party_id := p7_a107;
307 ddp_vendor_rec.jgzz_fiscal_code := p7_a108;
308 ddp_vendor_rec.sic_code := p7_a109;
309 ddp_vendor_rec.tax_reference := p7_a110;
310 ddp_vendor_rec.inventory_organization_id := p7_a111;
311 ddp_vendor_rec.terms_name := p7_a112;
312 ddp_vendor_rec.default_terms_id := p7_a113;
313 ddp_vendor_rec.vendor_interface_id := p7_a114;
314 ddp_vendor_rec.ni_number := p7_a115;
315 ddp_vendor_rec.ext_payee_rec.payee_party_id := p7_a116;
316 ddp_vendor_rec.ext_payee_rec.payment_function := p7_a117;
317 ddp_vendor_rec.ext_payee_rec.exclusive_pay_flag := p7_a118;
318 ddp_vendor_rec.ext_payee_rec.payee_party_site_id := p7_a119;
319 ddp_vendor_rec.ext_payee_rec.supplier_site_id := p7_a120;
320 ddp_vendor_rec.ext_payee_rec.payer_org_id := p7_a121;
321 ddp_vendor_rec.ext_payee_rec.payer_org_type := p7_a122;
322 ddp_vendor_rec.ext_payee_rec.default_pmt_method := p7_a123;
323 ddp_vendor_rec.ext_payee_rec.ece_tp_loc_code := p7_a124;
324 ddp_vendor_rec.ext_payee_rec.bank_charge_bearer := p7_a125;
325 ddp_vendor_rec.ext_payee_rec.bank_instr1_code := p7_a126;
326 ddp_vendor_rec.ext_payee_rec.bank_instr2_code := p7_a127;
327 ddp_vendor_rec.ext_payee_rec.bank_instr_detail := p7_a128;
328 ddp_vendor_rec.ext_payee_rec.pay_reason_code := p7_a129;
329 ddp_vendor_rec.ext_payee_rec.pay_reason_com := p7_a130;
330 ddp_vendor_rec.ext_payee_rec.inactive_date := rosetta_g_miss_date_in_map(p7_a131);
331 ddp_vendor_rec.ext_payee_rec.pay_message1 := p7_a132;
332 ddp_vendor_rec.ext_payee_rec.pay_message2 := p7_a133;
333 ddp_vendor_rec.ext_payee_rec.pay_message3 := p7_a134;
334 ddp_vendor_rec.ext_payee_rec.delivery_channel := p7_a135;
335 ddp_vendor_rec.ext_payee_rec.pmt_format := p7_a136;
336 ddp_vendor_rec.ext_payee_rec.settlement_priority := p7_a137;
337
338
339
340 -- here's the delegated call to the old PL/SQL routine
341 ap_vendor_pub_pkg.create_vendor(p_api_version,
342 p_init_msg_list,
343 p_commit,
344 p_validation_level,
345 x_return_status,
346 x_msg_count,
347 x_msg_data,
348 ddp_vendor_rec,
349 x_vendor_id,
350 x_party_id);
351
352 -- copy data back from the local variables to OUT or IN-OUT args, if any
353
354
355
356
357
358
359
360
361
362 end;
363
364 procedure update_vendor(p_api_version NUMBER
365 , p_init_msg_list VARCHAR2
366 , p_commit VARCHAR2
367 , p_validation_level NUMBER
368 , x_return_status out nocopy VARCHAR2
369 , x_msg_count out nocopy NUMBER
370 , x_msg_data out nocopy VARCHAR2
371 , p7_a0 NUMBER
372 , p7_a1 VARCHAR2
373 , p7_a2 VARCHAR2
374 , p7_a3 VARCHAR2
375 , p7_a4 VARCHAR2
376 , p7_a5 VARCHAR2
377 , p7_a6 VARCHAR2
378 , p7_a7 VARCHAR2
379 , p7_a8 VARCHAR2
380 , p7_a9 VARCHAR2
381 , p7_a10 NUMBER
382 , p7_a11 VARCHAR2
383 , p7_a12 VARCHAR2
384 , p7_a13 VARCHAR2
385 , p7_a14 NUMBER
386 , p7_a15 NUMBER
387 , p7_a16 NUMBER
388 , p7_a17 NUMBER
389 , p7_a18 VARCHAR2
390 , p7_a19 VARCHAR2
391 , p7_a20 VARCHAR2
392 , p7_a21 NUMBER
393 , p7_a22 VARCHAR2
397 , p7_a26 VARCHAR2
394 , p7_a23 VARCHAR2
395 , p7_a24 NUMBER
396 , p7_a25 VARCHAR2
398 , p7_a27 VARCHAR2
399 , p7_a28 VARCHAR2
400 , p7_a29 VARCHAR2
401 , p7_a30 DATE
402 , p7_a31 VARCHAR2
403 , p7_a32 DATE
404 , p7_a33 DATE
405 , p7_a34 VARCHAR2
406 , p7_a35 VARCHAR2
407 , p7_a36 VARCHAR2
408 , p7_a37 VARCHAR2
409 , p7_a38 VARCHAR2
410 , p7_a39 NUMBER
411 , p7_a40 DATE
412 , p7_a41 VARCHAR2
413 , p7_a42 VARCHAR2
414 , p7_a43 VARCHAR2
415 , p7_a44 NUMBER
416 , p7_a45 VARCHAR2
417 , p7_a46 VARCHAR2
418 , p7_a47 NUMBER
419 , p7_a48 NUMBER
420 , p7_a49 VARCHAR2
421 , p7_a50 NUMBER
422 , p7_a51 VARCHAR2
423 , p7_a52 VARCHAR2
424 , p7_a53 VARCHAR2
425 , p7_a54 DATE
426 , p7_a55 VARCHAR2
427 , p7_a56 VARCHAR2
428 , p7_a57 VARCHAR2
429 , p7_a58 VARCHAR2
430 , p7_a59 VARCHAR2
431 , p7_a60 VARCHAR2
432 , p7_a61 VARCHAR2
433 , p7_a62 VARCHAR2
434 , p7_a63 VARCHAR2
435 , p7_a64 VARCHAR2
436 , p7_a65 VARCHAR2
437 , p7_a66 VARCHAR2
438 , p7_a67 VARCHAR2
439 , p7_a68 VARCHAR2
440 , p7_a69 VARCHAR2
441 , p7_a70 VARCHAR2
442 , p7_a71 VARCHAR2
443 , p7_a72 VARCHAR2
444 , p7_a73 VARCHAR2
445 , p7_a74 VARCHAR2
446 , p7_a75 NUMBER
447 , p7_a76 VARCHAR2
448 , p7_a77 VARCHAR2
449 , p7_a78 VARCHAR2
450 , p7_a79 VARCHAR2
451 , p7_a80 NUMBER
452 , p7_a81 VARCHAR2
453 , p7_a82 VARCHAR2
454 , p7_a83 VARCHAR2
455 , p7_a84 VARCHAR2
456 , p7_a85 VARCHAR2
457 , p7_a86 VARCHAR2
458 , p7_a87 VARCHAR2
459 , p7_a88 VARCHAR2
460 , p7_a89 VARCHAR2
461 , p7_a90 VARCHAR2
462 , p7_a91 VARCHAR2
463 , p7_a92 VARCHAR2
464 , p7_a93 VARCHAR2
465 , p7_a94 VARCHAR2
466 , p7_a95 VARCHAR2
467 , p7_a96 VARCHAR2
468 , p7_a97 VARCHAR2
469 , p7_a98 VARCHAR2
470 , p7_a99 VARCHAR2
471 , p7_a100 VARCHAR2
472 , p7_a101 VARCHAR2
473 , p7_a102 VARCHAR2
474 , p7_a103 VARCHAR2
475 , p7_a104 VARCHAR2
476 , p7_a105 VARCHAR2
477 , p7_a106 NUMBER
478 , p7_a107 NUMBER
479 , p7_a108 VARCHAR2
480 , p7_a109 VARCHAR2
481 , p7_a110 VARCHAR2
482 , p7_a111 NUMBER
483 , p7_a112 VARCHAR2
484 , p7_a113 NUMBER
485 , p7_a114 NUMBER
486 , p7_a115 VARCHAR2
487 , p7_a116 NUMBER
488 , p7_a117 VARCHAR2
489 , p7_a118 VARCHAR2
490 , p7_a119 NUMBER
491 , p7_a120 NUMBER
492 , p7_a121 NUMBER
493 , p7_a122 VARCHAR2
494 , p7_a123 VARCHAR2
495 , p7_a124 VARCHAR2
496 , p7_a125 VARCHAR2
497 , p7_a126 VARCHAR2
498 , p7_a127 VARCHAR2
499 , p7_a128 VARCHAR2
500 , p7_a129 VARCHAR2
501 , p7_a130 VARCHAR2
502 , p7_a131 DATE
503 , p7_a132 VARCHAR2
504 , p7_a133 VARCHAR2
505 , p7_a134 VARCHAR2
506 , p7_a135 VARCHAR2
507 , p7_a136 VARCHAR2
508 , p7_a137 VARCHAR2
509 , p_vendor_id NUMBER
510 )
511
512 as
513 ddp_vendor_rec ap_vendor_pub_pkg.r_vendor_rec_type;
514 ddindx binary_integer; indx binary_integer;
515 l_debug_info VARCHAR2(2000);
516 l_api_name CONSTANT VARCHAR2(30) := 'Update_Vendor_W';
517 begin
518
519 -- copy data to the local IN or IN-OUT args, if any
520
521
522
523
524
525
526
527 ddp_vendor_rec.vendor_id := p7_a0;
528 ddp_vendor_rec.segment1 := p7_a1;
529 ddp_vendor_rec.vendor_name := p7_a2;
530 ddp_vendor_rec.vendor_name_alt := p7_a3;
531 ddp_vendor_rec.summary_flag := p7_a4;
532 ddp_vendor_rec.enabled_flag := p7_a5;
533 ddp_vendor_rec.segment2 := p7_a6;
534 ddp_vendor_rec.segment3 := p7_a7;
535 ddp_vendor_rec.segment4 := p7_a8;
536 ddp_vendor_rec.segment5 := p7_a9;
537 ddp_vendor_rec.employee_id := p7_a10;
538 ddp_vendor_rec.vendor_type_lookup_code := p7_a11;
539 ddp_vendor_rec.customer_num := p7_a12;
540 ddp_vendor_rec.one_time_flag := p7_a13;
541 ddp_vendor_rec.parent_vendor_id := p7_a14;
542 ddp_vendor_rec.min_order_amount := p7_a15;
543 ddp_vendor_rec.terms_id := p7_a16;
544 ddp_vendor_rec.set_of_books_id := p7_a17;
545 ddp_vendor_rec.always_take_disc_flag := p7_a18;
546 ddp_vendor_rec.pay_date_basis_lookup_code := p7_a19;
547 ddp_vendor_rec.pay_group_lookup_code := p7_a20;
548 ddp_vendor_rec.payment_priority := p7_a21;
549 ddp_vendor_rec.invoice_currency_code := p7_a22;
550 ddp_vendor_rec.payment_currency_code := p7_a23;
551 ddp_vendor_rec.invoice_amount_limit := p7_a24;
552 ddp_vendor_rec.hold_all_payments_flag := p7_a25;
553 ddp_vendor_rec.hold_future_payments_flag := p7_a26;
554 ddp_vendor_rec.hold_reason := p7_a27;
555 ddp_vendor_rec.type_1099 := p7_a28;
556 ddp_vendor_rec.withholding_status_lookup_code := p7_a29;
557 ddp_vendor_rec.withholding_start_date := rosetta_g_miss_date_in_map(p7_a30);
558 ddp_vendor_rec.organization_type_lookup_code := p7_a31;
559 ddp_vendor_rec.start_date_active := rosetta_g_miss_date_in_map(p7_a32);
563 ddp_vendor_rec.small_business_flag := p7_a36;
560 ddp_vendor_rec.end_date_active := rosetta_g_miss_date_in_map(p7_a33);
561 ddp_vendor_rec.minority_group_lookup_code := p7_a34;
562 ddp_vendor_rec.women_owned_flag := p7_a35;
564 ddp_vendor_rec.hold_flag := p7_a37;
565 ddp_vendor_rec.purchasing_hold_reason := p7_a38;
566 ddp_vendor_rec.hold_by := p7_a39;
567 ddp_vendor_rec.hold_date := rosetta_g_miss_date_in_map(p7_a40);
568 ddp_vendor_rec.terms_date_basis := p7_a41;
569 ddp_vendor_rec.inspection_required_flag := p7_a42;
570 ddp_vendor_rec.receipt_required_flag := p7_a43;
571 ddp_vendor_rec.qty_rcv_tolerance := p7_a44;
572 ddp_vendor_rec.qty_rcv_exception_code := p7_a45;
573 ddp_vendor_rec.enforce_ship_to_location_code := p7_a46;
574 ddp_vendor_rec.days_early_receipt_allowed := p7_a47;
575 ddp_vendor_rec.days_late_receipt_allowed := p7_a48;
576 ddp_vendor_rec.receipt_days_exception_code := p7_a49;
577 ddp_vendor_rec.receiving_routing_id := p7_a50;
578 ddp_vendor_rec.allow_substitute_receipts_flag := p7_a51;
579 ddp_vendor_rec.allow_unordered_receipts_flag := p7_a52;
580 ddp_vendor_rec.hold_unmatched_invoices_flag := p7_a53;
581 ddp_vendor_rec.tax_verification_date := rosetta_g_miss_date_in_map(p7_a54);
582 ddp_vendor_rec.name_control := p7_a55;
583 ddp_vendor_rec.state_reportable_flag := p7_a56;
584 ddp_vendor_rec.federal_reportable_flag := p7_a57;
585 ddp_vendor_rec.attribute_category := p7_a58;
586 ddp_vendor_rec.attribute1 := p7_a59;
587 ddp_vendor_rec.attribute2 := p7_a60;
588 ddp_vendor_rec.attribute3 := p7_a61;
589 ddp_vendor_rec.attribute4 := p7_a62;
590 ddp_vendor_rec.attribute5 := p7_a63;
591 ddp_vendor_rec.attribute6 := p7_a64;
592 ddp_vendor_rec.attribute7 := p7_a65;
593 ddp_vendor_rec.attribute8 := p7_a66;
594 ddp_vendor_rec.attribute9 := p7_a67;
595 ddp_vendor_rec.attribute10 := p7_a68;
596 ddp_vendor_rec.attribute11 := p7_a69;
597 ddp_vendor_rec.attribute12 := p7_a70;
598 ddp_vendor_rec.attribute13 := p7_a71;
599 ddp_vendor_rec.attribute14 := p7_a72;
600 ddp_vendor_rec.attribute15 := p7_a73;
601 ddp_vendor_rec.auto_calculate_interest_flag := p7_a74;
602 ddp_vendor_rec.validation_number := p7_a75;
603 ddp_vendor_rec.exclude_freight_from_discount := p7_a76;
604 ddp_vendor_rec.tax_reporting_name := p7_a77;
605 ddp_vendor_rec.check_digits := p7_a78;
606 ddp_vendor_rec.allow_awt_flag := p7_a79;
607 ddp_vendor_rec.awt_group_id := p7_a80;
608 ddp_vendor_rec.awt_group_name := p7_a81;
609 ddp_vendor_rec.global_attribute1 := p7_a82;
610 ddp_vendor_rec.global_attribute2 := p7_a83;
611 ddp_vendor_rec.global_attribute3 := p7_a84;
612 ddp_vendor_rec.global_attribute4 := p7_a85;
613 ddp_vendor_rec.global_attribute5 := p7_a86;
614 ddp_vendor_rec.global_attribute6 := p7_a87;
615 ddp_vendor_rec.global_attribute7 := p7_a88;
616 ddp_vendor_rec.global_attribute8 := p7_a89;
617 ddp_vendor_rec.global_attribute9 := p7_a90;
618 ddp_vendor_rec.global_attribute10 := p7_a91;
619 ddp_vendor_rec.global_attribute11 := p7_a92;
620 ddp_vendor_rec.global_attribute12 := p7_a93;
621 ddp_vendor_rec.global_attribute13 := p7_a94;
622 ddp_vendor_rec.global_attribute14 := p7_a95;
623 ddp_vendor_rec.global_attribute15 := p7_a96;
624 ddp_vendor_rec.global_attribute16 := p7_a97;
625 ddp_vendor_rec.global_attribute17 := p7_a98;
626 ddp_vendor_rec.global_attribute18 := p7_a99;
627 ddp_vendor_rec.global_attribute19 := p7_a100;
628 ddp_vendor_rec.global_attribute20 := p7_a101;
629 ddp_vendor_rec.global_attribute_category := p7_a102;
630 ddp_vendor_rec.bank_charge_bearer := p7_a103;
631 ddp_vendor_rec.match_option := p7_a104;
632 ddp_vendor_rec.create_debit_memo_flag := p7_a105;
633 ddp_vendor_rec.party_id := p7_a106;
634 ddp_vendor_rec.parent_party_id := p7_a107;
635 ddp_vendor_rec.jgzz_fiscal_code := p7_a108;
636 ddp_vendor_rec.sic_code := p7_a109;
637 ddp_vendor_rec.tax_reference := p7_a110;
638 ddp_vendor_rec.inventory_organization_id := p7_a111;
639 ddp_vendor_rec.terms_name := p7_a112;
640 ddp_vendor_rec.default_terms_id := p7_a113;
641 ddp_vendor_rec.vendor_interface_id := p7_a114;
642 ddp_vendor_rec.ni_number := p7_a115;
643 ddp_vendor_rec.ext_payee_rec.payee_party_id := p7_a116;
644 ddp_vendor_rec.ext_payee_rec.payment_function := p7_a117;
645 ddp_vendor_rec.ext_payee_rec.exclusive_pay_flag := p7_a118;
646 ddp_vendor_rec.ext_payee_rec.payee_party_site_id := p7_a119;
647 ddp_vendor_rec.ext_payee_rec.supplier_site_id := p7_a120;
648 ddp_vendor_rec.ext_payee_rec.payer_org_id := p7_a121;
649 ddp_vendor_rec.ext_payee_rec.payer_org_type := p7_a122;
650 ddp_vendor_rec.ext_payee_rec.default_pmt_method := p7_a123;
651 ddp_vendor_rec.ext_payee_rec.ece_tp_loc_code := p7_a124;
652 ddp_vendor_rec.ext_payee_rec.bank_charge_bearer := p7_a125;
653 ddp_vendor_rec.ext_payee_rec.bank_instr1_code := p7_a126;
654 ddp_vendor_rec.ext_payee_rec.bank_instr2_code := p7_a127;
655 ddp_vendor_rec.ext_payee_rec.bank_instr_detail := p7_a128;
656 ddp_vendor_rec.ext_payee_rec.pay_reason_code := p7_a129;
657 ddp_vendor_rec.ext_payee_rec.pay_reason_com := p7_a130;
658 ddp_vendor_rec.ext_payee_rec.inactive_date := rosetta_g_miss_date_in_map(p7_a131);
659 ddp_vendor_rec.ext_payee_rec.pay_message1 := p7_a132;
660 ddp_vendor_rec.ext_payee_rec.pay_message2 := p7_a133;
661 ddp_vendor_rec.ext_payee_rec.pay_message3 := p7_a134;
662 ddp_vendor_rec.ext_payee_rec.delivery_channel := p7_a135;
663 ddp_vendor_rec.ext_payee_rec.pmt_format := p7_a136;
664 ddp_vendor_rec.ext_payee_rec.settlement_priority := p7_a137;
665
666 -- xili - test begin
667 SELECT to_char(sysdate, 'MON-DD-YYYY HH24:MI:SS')
668 INTO l_debug_info
669 FROM DUAL;
673 FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
670 l_debug_info := 'xili#1: Before update_vendor, parent_vendor_id=='||ddp_vendor_rec.parent_vendor_id||' -- ' || l_debug_info;
671
672 IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
674 END IF;
675
676 x_return_status := FND_API.G_RET_STS_SUCCESS;
677
678 -- xili - test end
679
680 -- here's the delegated call to the old PL/SQL routine
681 ap_vendor_pub_pkg.update_vendor(p_api_version,
682 p_init_msg_list,
683 p_commit,
684 p_validation_level,
685 x_return_status,
686 x_msg_count,
687 x_msg_data,
688 ddp_vendor_rec,
689 p_vendor_id);
690
691 -- copy data back from the local variables to OUT or IN-OUT args, if any
692
693
694
695
696
697
698
699 end;
700
701 procedure validate_vendor(p_api_version NUMBER
702 , p_init_msg_list VARCHAR2
703 , p_commit VARCHAR2
704 , p_validation_level NUMBER
705 , x_return_status out nocopy VARCHAR2
706 , x_msg_count out nocopy NUMBER
707 , x_msg_data out nocopy VARCHAR2
708 , p7_a0 in out nocopy NUMBER
709 , p7_a1 in out nocopy VARCHAR2
710 , p7_a2 in out nocopy VARCHAR2
711 , p7_a3 in out nocopy VARCHAR2
712 , p7_a4 in out nocopy VARCHAR2
713 , p7_a5 in out nocopy VARCHAR2
714 , p7_a6 in out nocopy VARCHAR2
715 , p7_a7 in out nocopy VARCHAR2
716 , p7_a8 in out nocopy VARCHAR2
717 , p7_a9 in out nocopy VARCHAR2
718 , p7_a10 in out nocopy NUMBER
719 , p7_a11 in out nocopy VARCHAR2
720 , p7_a12 in out nocopy VARCHAR2
721 , p7_a13 in out nocopy VARCHAR2
722 , p7_a14 in out nocopy NUMBER
723 , p7_a15 in out nocopy NUMBER
724 , p7_a16 in out nocopy NUMBER
725 , p7_a17 in out nocopy NUMBER
726 , p7_a18 in out nocopy VARCHAR2
727 , p7_a19 in out nocopy VARCHAR2
728 , p7_a20 in out nocopy VARCHAR2
729 , p7_a21 in out nocopy NUMBER
730 , p7_a22 in out nocopy VARCHAR2
731 , p7_a23 in out nocopy VARCHAR2
732 , p7_a24 in out nocopy NUMBER
733 , p7_a25 in out nocopy VARCHAR2
734 , p7_a26 in out nocopy VARCHAR2
735 , p7_a27 in out nocopy VARCHAR2
736 , p7_a28 in out nocopy VARCHAR2
737 , p7_a29 in out nocopy VARCHAR2
738 , p7_a30 in out nocopy DATE
739 , p7_a31 in out nocopy VARCHAR2
740 , p7_a32 in out nocopy DATE
741 , p7_a33 in out nocopy DATE
742 , p7_a34 in out nocopy VARCHAR2
743 , p7_a35 in out nocopy VARCHAR2
744 , p7_a36 in out nocopy VARCHAR2
745 , p7_a37 in out nocopy VARCHAR2
746 , p7_a38 in out nocopy VARCHAR2
747 , p7_a39 in out nocopy NUMBER
748 , p7_a40 in out nocopy DATE
749 , p7_a41 in out nocopy VARCHAR2
750 , p7_a42 in out nocopy VARCHAR2
751 , p7_a43 in out nocopy VARCHAR2
752 , p7_a44 in out nocopy NUMBER
753 , p7_a45 in out nocopy VARCHAR2
754 , p7_a46 in out nocopy VARCHAR2
755 , p7_a47 in out nocopy NUMBER
756 , p7_a48 in out nocopy NUMBER
757 , p7_a49 in out nocopy VARCHAR2
758 , p7_a50 in out nocopy NUMBER
759 , p7_a51 in out nocopy VARCHAR2
760 , p7_a52 in out nocopy VARCHAR2
761 , p7_a53 in out nocopy VARCHAR2
762 , p7_a54 in out nocopy DATE
763 , p7_a55 in out nocopy VARCHAR2
764 , p7_a56 in out nocopy VARCHAR2
765 , p7_a57 in out nocopy VARCHAR2
766 , p7_a58 in out nocopy VARCHAR2
767 , p7_a59 in out nocopy VARCHAR2
768 , p7_a60 in out nocopy VARCHAR2
769 , p7_a61 in out nocopy VARCHAR2
770 , p7_a62 in out nocopy VARCHAR2
771 , p7_a63 in out nocopy VARCHAR2
772 , p7_a64 in out nocopy VARCHAR2
773 , p7_a65 in out nocopy VARCHAR2
774 , p7_a66 in out nocopy VARCHAR2
775 , p7_a67 in out nocopy VARCHAR2
776 , p7_a68 in out nocopy VARCHAR2
777 , p7_a69 in out nocopy VARCHAR2
778 , p7_a70 in out nocopy VARCHAR2
779 , p7_a71 in out nocopy VARCHAR2
780 , p7_a72 in out nocopy VARCHAR2
781 , p7_a73 in out nocopy VARCHAR2
782 , p7_a74 in out nocopy VARCHAR2
783 , p7_a75 in out nocopy NUMBER
784 , p7_a76 in out nocopy VARCHAR2
785 , p7_a77 in out nocopy VARCHAR2
786 , p7_a78 in out nocopy VARCHAR2
787 , p7_a79 in out nocopy VARCHAR2
788 , p7_a80 in out nocopy NUMBER
789 , p7_a81 in out nocopy VARCHAR2
790 , p7_a82 in out nocopy VARCHAR2
791 , p7_a83 in out nocopy VARCHAR2
792 , p7_a84 in out nocopy VARCHAR2
793 , p7_a85 in out nocopy VARCHAR2
794 , p7_a86 in out nocopy VARCHAR2
795 , p7_a87 in out nocopy VARCHAR2
796 , p7_a88 in out nocopy VARCHAR2
797 , p7_a89 in out nocopy VARCHAR2
798 , p7_a90 in out nocopy VARCHAR2
799 , p7_a91 in out nocopy VARCHAR2
800 , p7_a92 in out nocopy VARCHAR2
801 , p7_a93 in out nocopy VARCHAR2
802 , p7_a94 in out nocopy VARCHAR2
803 , p7_a95 in out nocopy VARCHAR2
804 , p7_a96 in out nocopy VARCHAR2
805 , p7_a97 in out nocopy VARCHAR2
806 , p7_a98 in out nocopy VARCHAR2
807 , p7_a99 in out nocopy VARCHAR2
808 , p7_a100 in out nocopy VARCHAR2
809 , p7_a101 in out nocopy VARCHAR2
810 , p7_a102 in out nocopy VARCHAR2
811 , p7_a103 in out nocopy VARCHAR2
812 , p7_a104 in out nocopy VARCHAR2
813 , p7_a105 in out nocopy VARCHAR2
814 , p7_a106 in out nocopy NUMBER
818 , p7_a110 in out nocopy VARCHAR2
815 , p7_a107 in out nocopy NUMBER
816 , p7_a108 in out nocopy VARCHAR2
817 , p7_a109 in out nocopy VARCHAR2
819 , p7_a111 in out nocopy NUMBER
820 , p7_a112 in out nocopy VARCHAR2
821 , p7_a113 in out nocopy NUMBER
822 , p7_a114 in out nocopy NUMBER
823 , p7_a115 in out nocopy VARCHAR2
824 , p7_a116 in out nocopy NUMBER
825 , p7_a117 in out nocopy VARCHAR2
826 , p7_a118 in out nocopy VARCHAR2
827 , p7_a119 in out nocopy NUMBER
828 , p7_a120 in out nocopy NUMBER
829 , p7_a121 in out nocopy NUMBER
830 , p7_a122 in out nocopy VARCHAR2
831 , p7_a123 in out nocopy VARCHAR2
832 , p7_a124 in out nocopy VARCHAR2
833 , p7_a125 in out nocopy VARCHAR2
834 , p7_a126 in out nocopy VARCHAR2
835 , p7_a127 in out nocopy VARCHAR2
836 , p7_a128 in out nocopy VARCHAR2
837 , p7_a129 in out nocopy VARCHAR2
838 , p7_a130 in out nocopy VARCHAR2
839 , p7_a131 in out nocopy DATE
840 , p7_a132 in out nocopy VARCHAR2
841 , p7_a133 in out nocopy VARCHAR2
842 , p7_a134 in out nocopy VARCHAR2
843 , p7_a135 in out nocopy VARCHAR2
844 , p7_a136 in out nocopy VARCHAR2
845 , p7_a137 in out nocopy VARCHAR2
846 , p_mode VARCHAR2
847 , p_calling_prog VARCHAR2
848 , x_party_valid out nocopy VARCHAR2
849 , x_payee_valid out nocopy VARCHAR2
850 , p_vendor_id NUMBER
851 )
852
853 as
854 ddp_vendor_rec ap_vendor_pub_pkg.r_vendor_rec_type;
855 ddindx binary_integer; indx binary_integer;
856 begin
857
858 -- copy data to the local IN or IN-OUT args, if any
859
860
861
862
863
864
865
866 ddp_vendor_rec.vendor_id := p7_a0;
867 ddp_vendor_rec.segment1 := p7_a1;
868 ddp_vendor_rec.vendor_name := p7_a2;
869 ddp_vendor_rec.vendor_name_alt := p7_a3;
870 ddp_vendor_rec.summary_flag := p7_a4;
871 ddp_vendor_rec.enabled_flag := p7_a5;
872 ddp_vendor_rec.segment2 := p7_a6;
873 ddp_vendor_rec.segment3 := p7_a7;
874 ddp_vendor_rec.segment4 := p7_a8;
875 ddp_vendor_rec.segment5 := p7_a9;
876 ddp_vendor_rec.employee_id := p7_a10;
877 ddp_vendor_rec.vendor_type_lookup_code := p7_a11;
878 ddp_vendor_rec.customer_num := p7_a12;
879 ddp_vendor_rec.one_time_flag := p7_a13;
880 ddp_vendor_rec.parent_vendor_id := p7_a14;
881 ddp_vendor_rec.min_order_amount := p7_a15;
882 ddp_vendor_rec.terms_id := p7_a16;
883 ddp_vendor_rec.set_of_books_id := p7_a17;
884 ddp_vendor_rec.always_take_disc_flag := p7_a18;
885 ddp_vendor_rec.pay_date_basis_lookup_code := p7_a19;
886 ddp_vendor_rec.pay_group_lookup_code := p7_a20;
887 ddp_vendor_rec.payment_priority := p7_a21;
888 ddp_vendor_rec.invoice_currency_code := p7_a22;
889 ddp_vendor_rec.payment_currency_code := p7_a23;
890 ddp_vendor_rec.invoice_amount_limit := p7_a24;
891 ddp_vendor_rec.hold_all_payments_flag := p7_a25;
892 ddp_vendor_rec.hold_future_payments_flag := p7_a26;
893 ddp_vendor_rec.hold_reason := p7_a27;
894 ddp_vendor_rec.type_1099 := p7_a28;
895 ddp_vendor_rec.withholding_status_lookup_code := p7_a29;
896 ddp_vendor_rec.withholding_start_date := rosetta_g_miss_date_in_map(p7_a30);
897 ddp_vendor_rec.organization_type_lookup_code := p7_a31;
898 ddp_vendor_rec.start_date_active := rosetta_g_miss_date_in_map(p7_a32);
899 ddp_vendor_rec.end_date_active := rosetta_g_miss_date_in_map(p7_a33);
900 ddp_vendor_rec.minority_group_lookup_code := p7_a34;
901 ddp_vendor_rec.women_owned_flag := p7_a35;
902 ddp_vendor_rec.small_business_flag := p7_a36;
903 ddp_vendor_rec.hold_flag := p7_a37;
904 ddp_vendor_rec.purchasing_hold_reason := p7_a38;
905 ddp_vendor_rec.hold_by := p7_a39;
906 ddp_vendor_rec.hold_date := rosetta_g_miss_date_in_map(p7_a40);
907 ddp_vendor_rec.terms_date_basis := p7_a41;
908 ddp_vendor_rec.inspection_required_flag := p7_a42;
909 ddp_vendor_rec.receipt_required_flag := p7_a43;
910 ddp_vendor_rec.qty_rcv_tolerance := p7_a44;
911 ddp_vendor_rec.qty_rcv_exception_code := p7_a45;
912 ddp_vendor_rec.enforce_ship_to_location_code := p7_a46;
913 ddp_vendor_rec.days_early_receipt_allowed := p7_a47;
914 ddp_vendor_rec.days_late_receipt_allowed := p7_a48;
915 ddp_vendor_rec.receipt_days_exception_code := p7_a49;
916 ddp_vendor_rec.receiving_routing_id := p7_a50;
917 ddp_vendor_rec.allow_substitute_receipts_flag := p7_a51;
918 ddp_vendor_rec.allow_unordered_receipts_flag := p7_a52;
919 ddp_vendor_rec.hold_unmatched_invoices_flag := p7_a53;
920 ddp_vendor_rec.tax_verification_date := rosetta_g_miss_date_in_map(p7_a54);
921 ddp_vendor_rec.name_control := p7_a55;
922 ddp_vendor_rec.state_reportable_flag := p7_a56;
923 ddp_vendor_rec.federal_reportable_flag := p7_a57;
924 ddp_vendor_rec.attribute_category := p7_a58;
925 ddp_vendor_rec.attribute1 := p7_a59;
926 ddp_vendor_rec.attribute2 := p7_a60;
927 ddp_vendor_rec.attribute3 := p7_a61;
928 ddp_vendor_rec.attribute4 := p7_a62;
929 ddp_vendor_rec.attribute5 := p7_a63;
930 ddp_vendor_rec.attribute6 := p7_a64;
931 ddp_vendor_rec.attribute7 := p7_a65;
932 ddp_vendor_rec.attribute8 := p7_a66;
933 ddp_vendor_rec.attribute9 := p7_a67;
934 ddp_vendor_rec.attribute10 := p7_a68;
935 ddp_vendor_rec.attribute11 := p7_a69;
936 ddp_vendor_rec.attribute12 := p7_a70;
937 ddp_vendor_rec.attribute13 := p7_a71;
938 ddp_vendor_rec.attribute14 := p7_a72;
939 ddp_vendor_rec.attribute15 := p7_a73;
940 ddp_vendor_rec.auto_calculate_interest_flag := p7_a74;
941 ddp_vendor_rec.validation_number := p7_a75;
942 ddp_vendor_rec.exclude_freight_from_discount := p7_a76;
943 ddp_vendor_rec.tax_reporting_name := p7_a77;
947 ddp_vendor_rec.awt_group_name := p7_a81;
944 ddp_vendor_rec.check_digits := p7_a78;
945 ddp_vendor_rec.allow_awt_flag := p7_a79;
946 ddp_vendor_rec.awt_group_id := p7_a80;
948 ddp_vendor_rec.global_attribute1 := p7_a82;
949 ddp_vendor_rec.global_attribute2 := p7_a83;
950 ddp_vendor_rec.global_attribute3 := p7_a84;
951 ddp_vendor_rec.global_attribute4 := p7_a85;
952 ddp_vendor_rec.global_attribute5 := p7_a86;
953 ddp_vendor_rec.global_attribute6 := p7_a87;
954 ddp_vendor_rec.global_attribute7 := p7_a88;
955 ddp_vendor_rec.global_attribute8 := p7_a89;
956 ddp_vendor_rec.global_attribute9 := p7_a90;
957 ddp_vendor_rec.global_attribute10 := p7_a91;
958 ddp_vendor_rec.global_attribute11 := p7_a92;
959 ddp_vendor_rec.global_attribute12 := p7_a93;
960 ddp_vendor_rec.global_attribute13 := p7_a94;
961 ddp_vendor_rec.global_attribute14 := p7_a95;
962 ddp_vendor_rec.global_attribute15 := p7_a96;
963 ddp_vendor_rec.global_attribute16 := p7_a97;
964 ddp_vendor_rec.global_attribute17 := p7_a98;
965 ddp_vendor_rec.global_attribute18 := p7_a99;
966 ddp_vendor_rec.global_attribute19 := p7_a100;
967 ddp_vendor_rec.global_attribute20 := p7_a101;
968 ddp_vendor_rec.global_attribute_category := p7_a102;
969 ddp_vendor_rec.bank_charge_bearer := p7_a103;
970 ddp_vendor_rec.match_option := p7_a104;
971 ddp_vendor_rec.create_debit_memo_flag := p7_a105;
972 ddp_vendor_rec.party_id := p7_a106;
973 ddp_vendor_rec.parent_party_id := p7_a107;
974 ddp_vendor_rec.jgzz_fiscal_code := p7_a108;
975 ddp_vendor_rec.sic_code := p7_a109;
976 ddp_vendor_rec.tax_reference := p7_a110;
977 ddp_vendor_rec.inventory_organization_id := p7_a111;
978 ddp_vendor_rec.terms_name := p7_a112;
979 ddp_vendor_rec.default_terms_id := p7_a113;
980 ddp_vendor_rec.vendor_interface_id := p7_a114;
981 ddp_vendor_rec.ni_number := p7_a115;
982 ddp_vendor_rec.ext_payee_rec.payee_party_id := p7_a116;
983 ddp_vendor_rec.ext_payee_rec.payment_function := p7_a117;
984 ddp_vendor_rec.ext_payee_rec.exclusive_pay_flag := p7_a118;
985 ddp_vendor_rec.ext_payee_rec.payee_party_site_id := p7_a119;
986 ddp_vendor_rec.ext_payee_rec.supplier_site_id := p7_a120;
987 ddp_vendor_rec.ext_payee_rec.payer_org_id := p7_a121;
988 ddp_vendor_rec.ext_payee_rec.payer_org_type := p7_a122;
989 ddp_vendor_rec.ext_payee_rec.default_pmt_method := p7_a123;
990 ddp_vendor_rec.ext_payee_rec.ece_tp_loc_code := p7_a124;
991 ddp_vendor_rec.ext_payee_rec.bank_charge_bearer := p7_a125;
992 ddp_vendor_rec.ext_payee_rec.bank_instr1_code := p7_a126;
993 ddp_vendor_rec.ext_payee_rec.bank_instr2_code := p7_a127;
994 ddp_vendor_rec.ext_payee_rec.bank_instr_detail := p7_a128;
995 ddp_vendor_rec.ext_payee_rec.pay_reason_code := p7_a129;
996 ddp_vendor_rec.ext_payee_rec.pay_reason_com := p7_a130;
997 ddp_vendor_rec.ext_payee_rec.inactive_date := rosetta_g_miss_date_in_map(p7_a131);
998 ddp_vendor_rec.ext_payee_rec.pay_message1 := p7_a132;
999 ddp_vendor_rec.ext_payee_rec.pay_message2 := p7_a133;
1000 ddp_vendor_rec.ext_payee_rec.pay_message3 := p7_a134;
1001 ddp_vendor_rec.ext_payee_rec.delivery_channel := p7_a135;
1002 ddp_vendor_rec.ext_payee_rec.pmt_format := p7_a136;
1003 ddp_vendor_rec.ext_payee_rec.settlement_priority := p7_a137;
1004
1005
1006
1007
1008
1009
1010 -- here's the delegated call to the old PL/SQL routine
1011 ap_vendor_pub_pkg.validate_vendor(p_api_version,
1012 p_init_msg_list,
1013 p_commit,
1014 p_validation_level,
1015 x_return_status,
1016 x_msg_count,
1017 x_msg_data,
1018 ddp_vendor_rec,
1019 p_mode,
1020 p_calling_prog,
1021 x_party_valid,
1022 x_payee_valid,
1023 p_vendor_id);
1024
1025 -- copy data back from the local variables to OUT or IN-OUT args, if any
1026
1027
1028
1029
1030
1031
1032
1033 p7_a0 := ddp_vendor_rec.vendor_id;
1034 p7_a1 := ddp_vendor_rec.segment1;
1035 p7_a2 := ddp_vendor_rec.vendor_name;
1036 p7_a3 := ddp_vendor_rec.vendor_name_alt;
1037 p7_a4 := ddp_vendor_rec.summary_flag;
1038 p7_a5 := ddp_vendor_rec.enabled_flag;
1039 p7_a6 := ddp_vendor_rec.segment2;
1040 p7_a7 := ddp_vendor_rec.segment3;
1041 p7_a8 := ddp_vendor_rec.segment4;
1042 p7_a9 := ddp_vendor_rec.segment5;
1043 p7_a10 := ddp_vendor_rec.employee_id;
1044 p7_a11 := ddp_vendor_rec.vendor_type_lookup_code;
1045 p7_a12 := ddp_vendor_rec.customer_num;
1046 p7_a13 := ddp_vendor_rec.one_time_flag;
1047 p7_a14 := ddp_vendor_rec.parent_vendor_id;
1048 p7_a15 := ddp_vendor_rec.min_order_amount;
1049 p7_a16 := ddp_vendor_rec.terms_id;
1050 p7_a17 := ddp_vendor_rec.set_of_books_id;
1051 p7_a18 := ddp_vendor_rec.always_take_disc_flag;
1052 p7_a19 := ddp_vendor_rec.pay_date_basis_lookup_code;
1053 p7_a20 := ddp_vendor_rec.pay_group_lookup_code;
1054 p7_a21 := ddp_vendor_rec.payment_priority;
1055 p7_a22 := ddp_vendor_rec.invoice_currency_code;
1056 p7_a23 := ddp_vendor_rec.payment_currency_code;
1057 p7_a24 := ddp_vendor_rec.invoice_amount_limit;
1058 p7_a25 := ddp_vendor_rec.hold_all_payments_flag;
1059 p7_a26 := ddp_vendor_rec.hold_future_payments_flag;
1060 p7_a27 := ddp_vendor_rec.hold_reason;
1061 p7_a28 := ddp_vendor_rec.type_1099;
1062 p7_a29 := ddp_vendor_rec.withholding_status_lookup_code;
1063 p7_a30 := ddp_vendor_rec.withholding_start_date;
1064 p7_a31 := ddp_vendor_rec.organization_type_lookup_code;
1065 p7_a32 := ddp_vendor_rec.start_date_active;
1066 p7_a33 := ddp_vendor_rec.end_date_active;
1067 p7_a34 := ddp_vendor_rec.minority_group_lookup_code;
1068 p7_a35 := ddp_vendor_rec.women_owned_flag;
1069 p7_a36 := ddp_vendor_rec.small_business_flag;
1073 p7_a40 := ddp_vendor_rec.hold_date;
1070 p7_a37 := ddp_vendor_rec.hold_flag;
1071 p7_a38 := ddp_vendor_rec.purchasing_hold_reason;
1072 p7_a39 := ddp_vendor_rec.hold_by;
1074 p7_a41 := ddp_vendor_rec.terms_date_basis;
1075 p7_a42 := ddp_vendor_rec.inspection_required_flag;
1076 p7_a43 := ddp_vendor_rec.receipt_required_flag;
1077 p7_a44 := ddp_vendor_rec.qty_rcv_tolerance;
1078 p7_a45 := ddp_vendor_rec.qty_rcv_exception_code;
1079 p7_a46 := ddp_vendor_rec.enforce_ship_to_location_code;
1080 p7_a47 := ddp_vendor_rec.days_early_receipt_allowed;
1081 p7_a48 := ddp_vendor_rec.days_late_receipt_allowed;
1082 p7_a49 := ddp_vendor_rec.receipt_days_exception_code;
1083 p7_a50 := ddp_vendor_rec.receiving_routing_id;
1084 p7_a51 := ddp_vendor_rec.allow_substitute_receipts_flag;
1085 p7_a52 := ddp_vendor_rec.allow_unordered_receipts_flag;
1086 p7_a53 := ddp_vendor_rec.hold_unmatched_invoices_flag;
1087 p7_a54 := ddp_vendor_rec.tax_verification_date;
1088 p7_a55 := ddp_vendor_rec.name_control;
1089 p7_a56 := ddp_vendor_rec.state_reportable_flag;
1090 p7_a57 := ddp_vendor_rec.federal_reportable_flag;
1091 p7_a58 := ddp_vendor_rec.attribute_category;
1092 p7_a59 := ddp_vendor_rec.attribute1;
1093 p7_a60 := ddp_vendor_rec.attribute2;
1094 p7_a61 := ddp_vendor_rec.attribute3;
1095 p7_a62 := ddp_vendor_rec.attribute4;
1096 p7_a63 := ddp_vendor_rec.attribute5;
1097 p7_a64 := ddp_vendor_rec.attribute6;
1098 p7_a65 := ddp_vendor_rec.attribute7;
1099 p7_a66 := ddp_vendor_rec.attribute8;
1100 p7_a67 := ddp_vendor_rec.attribute9;
1101 p7_a68 := ddp_vendor_rec.attribute10;
1102 p7_a69 := ddp_vendor_rec.attribute11;
1103 p7_a70 := ddp_vendor_rec.attribute12;
1104 p7_a71 := ddp_vendor_rec.attribute13;
1105 p7_a72 := ddp_vendor_rec.attribute14;
1106 p7_a73 := ddp_vendor_rec.attribute15;
1107 p7_a74 := ddp_vendor_rec.auto_calculate_interest_flag;
1108 p7_a75 := ddp_vendor_rec.validation_number;
1109 p7_a76 := ddp_vendor_rec.exclude_freight_from_discount;
1110 p7_a77 := ddp_vendor_rec.tax_reporting_name;
1111 p7_a78 := ddp_vendor_rec.check_digits;
1112 p7_a79 := ddp_vendor_rec.allow_awt_flag;
1113 p7_a80 := ddp_vendor_rec.awt_group_id;
1114 p7_a81 := ddp_vendor_rec.awt_group_name;
1115 p7_a82 := ddp_vendor_rec.global_attribute1;
1116 p7_a83 := ddp_vendor_rec.global_attribute2;
1117 p7_a84 := ddp_vendor_rec.global_attribute3;
1118 p7_a85 := ddp_vendor_rec.global_attribute4;
1119 p7_a86 := ddp_vendor_rec.global_attribute5;
1120 p7_a87 := ddp_vendor_rec.global_attribute6;
1121 p7_a88 := ddp_vendor_rec.global_attribute7;
1122 p7_a89 := ddp_vendor_rec.global_attribute8;
1123 p7_a90 := ddp_vendor_rec.global_attribute9;
1124 p7_a91 := ddp_vendor_rec.global_attribute10;
1125 p7_a92 := ddp_vendor_rec.global_attribute11;
1126 p7_a93 := ddp_vendor_rec.global_attribute12;
1127 p7_a94 := ddp_vendor_rec.global_attribute13;
1128 p7_a95 := ddp_vendor_rec.global_attribute14;
1129 p7_a96 := ddp_vendor_rec.global_attribute15;
1130 p7_a97 := ddp_vendor_rec.global_attribute16;
1131 p7_a98 := ddp_vendor_rec.global_attribute17;
1132 p7_a99 := ddp_vendor_rec.global_attribute18;
1133 p7_a100 := ddp_vendor_rec.global_attribute19;
1134 p7_a101 := ddp_vendor_rec.global_attribute20;
1135 p7_a102 := ddp_vendor_rec.global_attribute_category;
1136 p7_a103 := ddp_vendor_rec.bank_charge_bearer;
1137 p7_a104 := ddp_vendor_rec.match_option;
1138 p7_a105 := ddp_vendor_rec.create_debit_memo_flag;
1139 p7_a106 := ddp_vendor_rec.party_id;
1140 p7_a107 := ddp_vendor_rec.parent_party_id;
1141 p7_a108 := ddp_vendor_rec.jgzz_fiscal_code;
1142 p7_a109 := ddp_vendor_rec.sic_code;
1143 p7_a110 := ddp_vendor_rec.tax_reference;
1144 p7_a111 := ddp_vendor_rec.inventory_organization_id;
1145 p7_a112 := ddp_vendor_rec.terms_name;
1146 p7_a113 := ddp_vendor_rec.default_terms_id;
1147 p7_a114 := ddp_vendor_rec.vendor_interface_id;
1148 p7_a115 := ddp_vendor_rec.ni_number;
1149 p7_a116 := ddp_vendor_rec.ext_payee_rec.payee_party_id;
1150 p7_a117 := ddp_vendor_rec.ext_payee_rec.payment_function;
1151 p7_a118 := ddp_vendor_rec.ext_payee_rec.exclusive_pay_flag;
1152 p7_a119 := ddp_vendor_rec.ext_payee_rec.payee_party_site_id;
1153 p7_a120 := ddp_vendor_rec.ext_payee_rec.supplier_site_id;
1154 p7_a121 := ddp_vendor_rec.ext_payee_rec.payer_org_id;
1155 p7_a122 := ddp_vendor_rec.ext_payee_rec.payer_org_type;
1156 p7_a123 := ddp_vendor_rec.ext_payee_rec.default_pmt_method;
1157 p7_a124 := ddp_vendor_rec.ext_payee_rec.ece_tp_loc_code;
1158 p7_a125 := ddp_vendor_rec.ext_payee_rec.bank_charge_bearer;
1159 p7_a126 := ddp_vendor_rec.ext_payee_rec.bank_instr1_code;
1160 p7_a127 := ddp_vendor_rec.ext_payee_rec.bank_instr2_code;
1161 p7_a128 := ddp_vendor_rec.ext_payee_rec.bank_instr_detail;
1162 p7_a129 := ddp_vendor_rec.ext_payee_rec.pay_reason_code;
1163 p7_a130 := ddp_vendor_rec.ext_payee_rec.pay_reason_com;
1164 p7_a131 := ddp_vendor_rec.ext_payee_rec.inactive_date;
1165 p7_a132 := ddp_vendor_rec.ext_payee_rec.pay_message1;
1166 p7_a133 := ddp_vendor_rec.ext_payee_rec.pay_message2;
1167 p7_a134 := ddp_vendor_rec.ext_payee_rec.pay_message3;
1168 p7_a135 := ddp_vendor_rec.ext_payee_rec.delivery_channel;
1169 p7_a136 := ddp_vendor_rec.ext_payee_rec.pmt_format;
1170 p7_a137 := ddp_vendor_rec.ext_payee_rec.settlement_priority;
1171
1172
1173
1174
1175
1176 end;
1177
1178 procedure create_vendor_site(p_api_version NUMBER
1179 , p_init_msg_list VARCHAR2
1180 , p_commit VARCHAR2
1181 , p_validation_level NUMBER
1182 , x_return_status out nocopy VARCHAR2
1183 , x_msg_count out nocopy NUMBER
1184 , x_msg_data out nocopy VARCHAR2
1185 , p7_a0 VARCHAR2
1186 , p7_a1 VARCHAR2
1187 , p7_a2 VARCHAR2
1188 , p7_a3 NUMBER
1192 , p7_a7 VARCHAR2
1189 , p7_a4 NUMBER
1190 , p7_a5 VARCHAR2
1191 , p7_a6 VARCHAR2
1193 , p7_a8 DATE
1194 , p7_a9 VARCHAR2
1195 , p7_a10 VARCHAR2
1196 , p7_a11 VARCHAR2
1197 , p7_a12 VARCHAR2
1198 , p7_a13 NUMBER
1199 , p7_a14 NUMBER
1200 , p7_a15 NUMBER
1201 , p7_a16 VARCHAR2
1202 , p7_a17 NUMBER
1203 , p7_a18 NUMBER
1204 , p7_a19 NUMBER
1205 , p7_a20 VARCHAR2
1206 , p7_a21 VARCHAR2
1207 , p7_a22 VARCHAR2
1208 , p7_a23 VARCHAR2
1209 , p7_a24 NUMBER
1210 , p7_a25 DATE
1211 , p7_a26 NUMBER
1212 , p7_a27 NUMBER
1213 , p7_a28 VARCHAR2
1214 , p7_a29 VARCHAR2
1215 , p7_a30 VARCHAR2
1216 , p7_a31 VARCHAR2
1217 , p7_a32 VARCHAR2
1218 , p7_a33 VARCHAR2
1219 , p7_a34 VARCHAR2
1220 , p7_a35 VARCHAR2
1221 , p7_a36 VARCHAR2
1222 , p7_a37 VARCHAR2
1223 , p7_a38 VARCHAR2
1224 , p7_a39 VARCHAR2
1225 , p7_a40 VARCHAR2
1226 , p7_a41 VARCHAR2
1227 , p7_a42 VARCHAR2
1228 , p7_a43 VARCHAR2
1229 , p7_a44 VARCHAR2
1230 , p7_a45 VARCHAR2
1231 , p7_a46 VARCHAR2
1232 , p7_a47 VARCHAR2
1233 , p7_a48 VARCHAR2
1234 , p7_a49 VARCHAR2
1235 , p7_a50 VARCHAR2
1236 , p7_a51 VARCHAR2
1237 , p7_a52 VARCHAR2
1238 , p7_a53 VARCHAR2
1239 , p7_a54 VARCHAR2
1240 , p7_a55 NUMBER
1241 , p7_a56 VARCHAR2
1242 , p7_a57 VARCHAR2
1243 , p7_a58 NUMBER
1244 , p7_a59 VARCHAR2
1245 , p7_a60 VARCHAR2
1246 , p7_a61 NUMBER
1247 , p7_a62 NUMBER
1248 , p7_a63 VARCHAR2
1249 , p7_a64 VARCHAR2
1250 , p7_a65 VARCHAR2
1251 , p7_a66 VARCHAR2
1252 , p7_a67 VARCHAR2
1253 , p7_a68 VARCHAR2
1254 , p7_a69 VARCHAR2
1255 , p7_a70 VARCHAR2
1256 , p7_a71 VARCHAR2
1257 , p7_a72 VARCHAR2
1258 , p7_a73 VARCHAR2
1259 , p7_a74 VARCHAR2
1260 , p7_a75 VARCHAR2
1261 , p7_a76 VARCHAR2
1262 , p7_a77 VARCHAR2
1263 , p7_a78 VARCHAR2
1264 , p7_a79 VARCHAR2
1265 , p7_a80 VARCHAR2
1266 , p7_a81 VARCHAR2
1267 , p7_a82 VARCHAR2
1268 , p7_a83 VARCHAR2
1269 , p7_a84 VARCHAR2
1270 , p7_a85 VARCHAR2
1271 , p7_a86 NUMBER
1272 , p7_a87 VARCHAR2
1273 , p7_a88 VARCHAR2
1274 , p7_a89 VARCHAR2
1275 , p7_a90 VARCHAR2
1276 , p7_a91 NUMBER
1277 , p7_a92 VARCHAR2
1278 , p7_a93 VARCHAR2
1279 , p7_a94 VARCHAR2
1280 , p7_a95 VARCHAR2
1281 , p7_a96 VARCHAR2
1282 , p7_a97 VARCHAR2
1283 , p7_a98 VARCHAR2
1284 , p7_a99 NUMBER
1285 , p7_a100 NUMBER
1286 , p7_a101 VARCHAR2
1287 , p7_a102 VARCHAR2
1288 , p7_a103 VARCHAR2
1289 , p7_a104 VARCHAR2
1290 , p7_a105 VARCHAR2
1291 , p7_a106 VARCHAR2
1292 , p7_a107 VARCHAR2
1293 , p7_a108 VARCHAR2
1294 , p7_a109 VARCHAR2
1295 , p7_a110 VARCHAR2
1296 , p7_a111 VARCHAR2
1297 , p7_a112 VARCHAR2
1298 , p7_a113 VARCHAR2
1299 , p7_a114 VARCHAR2
1300 , p7_a115 VARCHAR2
1301 , p7_a116 VARCHAR2
1302 , p7_a117 NUMBER
1303 , p7_a118 VARCHAR2
1304 , p7_a119 VARCHAR2
1305 , p7_a120 VARCHAR2
1306 , p7_a121 VARCHAR2
1307 , p7_a122 NUMBER
1308 , p7_a123 NUMBER
1309 , p7_a124 NUMBER
1310 , p7_a125 NUMBER
1311 , p7_a126 VARCHAR2
1312 , p7_a127 NUMBER
1313 , p7_a128 NUMBER
1314 , p7_a129 NUMBER
1315 , p7_a130 VARCHAR2
1316 , p7_a131 VARCHAR2
1317 , p7_a132 NUMBER
1318 , p7_a133 NUMBER
1319 , p7_a134 NUMBER
1320 , p7_a135 VARCHAR2
1321 , p7_a136 VARCHAR2
1322 , p7_a137 VARCHAR2
1323 , p7_a138 VARCHAR2
1324 , p7_a139 VARCHAR2
1325 , p7_a140 VARCHAR2
1326 , p7_a141 VARCHAR2
1327 , p7_a142 VARCHAR2
1328 , p7_a143 VARCHAR2
1329 , p7_a144 DATE
1330 , p7_a145 VARCHAR2
1331 , p7_a146 VARCHAR2
1332 , p7_a147 VARCHAR2
1333 , p7_a148 VARCHAR2
1334 , p7_a149 VARCHAR2
1335 , p7_a150 VARCHAR2
1336 , p7_a151 NUMBER
1337 , p7_a152 NUMBER
1338 , p7_a153 VARCHAR2
1339 , p7_a154 NUMBER
1340 , x_vendor_site_id out nocopy NUMBER
1341 , x_party_site_id out nocopy NUMBER
1342 , x_location_id out nocopy NUMBER
1343 )
1344
1345 as
1346 ddp_vendor_site_rec ap_vendor_pub_pkg.r_vendor_site_rec_type;
1347 ddindx binary_integer; indx binary_integer;
1348 begin
1349
1350 -- copy data to the local IN or IN-OUT args, if any
1351
1352
1353
1354
1355
1356
1357
1358 ddp_vendor_site_rec.area_code := p7_a0;
1359 ddp_vendor_site_rec.phone := p7_a1;
1360 ddp_vendor_site_rec.customer_num := p7_a2;
1361 ddp_vendor_site_rec.ship_to_location_id := p7_a3;
1362 ddp_vendor_site_rec.bill_to_location_id := p7_a4;
1363 ddp_vendor_site_rec.ship_via_lookup_code := p7_a5;
1364 ddp_vendor_site_rec.freight_terms_lookup_code := p7_a6;
1365 ddp_vendor_site_rec.fob_lookup_code := p7_a7;
1366 ddp_vendor_site_rec.inactive_date := rosetta_g_miss_date_in_map(p7_a8);
1367 ddp_vendor_site_rec.fax := p7_a9;
1368 ddp_vendor_site_rec.fax_area_code := p7_a10;
1369 ddp_vendor_site_rec.telex := p7_a11;
1370 ddp_vendor_site_rec.terms_date_basis := p7_a12;
1374 ddp_vendor_site_rec.pay_group_lookup_code := p7_a16;
1371 ddp_vendor_site_rec.distribution_set_id := p7_a13;
1372 ddp_vendor_site_rec.accts_pay_code_combination_id := p7_a14;
1373 ddp_vendor_site_rec.prepay_code_combination_id := p7_a15;
1375 ddp_vendor_site_rec.payment_priority := p7_a17;
1376 ddp_vendor_site_rec.terms_id := p7_a18;
1377 ddp_vendor_site_rec.invoice_amount_limit := p7_a19;
1378 ddp_vendor_site_rec.pay_date_basis_lookup_code := p7_a20;
1379 ddp_vendor_site_rec.always_take_disc_flag := p7_a21;
1380 ddp_vendor_site_rec.invoice_currency_code := p7_a22;
1381 ddp_vendor_site_rec.payment_currency_code := p7_a23;
1382 ddp_vendor_site_rec.vendor_site_id := p7_a24;
1383 ddp_vendor_site_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a25);
1384 ddp_vendor_site_rec.last_updated_by := p7_a26;
1385 ddp_vendor_site_rec.vendor_id := p7_a27;
1386 ddp_vendor_site_rec.vendor_site_code := p7_a28;
1387 ddp_vendor_site_rec.vendor_site_code_alt := p7_a29;
1388 ddp_vendor_site_rec.purchasing_site_flag := p7_a30;
1389 ddp_vendor_site_rec.rfq_only_site_flag := p7_a31;
1390 ddp_vendor_site_rec.pay_site_flag := p7_a32;
1391 ddp_vendor_site_rec.attention_ar_flag := p7_a33;
1392 ddp_vendor_site_rec.hold_all_payments_flag := p7_a34;
1393 ddp_vendor_site_rec.hold_future_payments_flag := p7_a35;
1394 ddp_vendor_site_rec.hold_reason := p7_a36;
1395 ddp_vendor_site_rec.hold_unmatched_invoices_flag := p7_a37;
1396 ddp_vendor_site_rec.tax_reporting_site_flag := p7_a38;
1397 ddp_vendor_site_rec.attribute_category := p7_a39;
1398 ddp_vendor_site_rec.attribute1 := p7_a40;
1399 ddp_vendor_site_rec.attribute2 := p7_a41;
1400 ddp_vendor_site_rec.attribute3 := p7_a42;
1401 ddp_vendor_site_rec.attribute4 := p7_a43;
1402 ddp_vendor_site_rec.attribute5 := p7_a44;
1403 ddp_vendor_site_rec.attribute6 := p7_a45;
1404 ddp_vendor_site_rec.attribute7 := p7_a46;
1405 ddp_vendor_site_rec.attribute8 := p7_a47;
1406 ddp_vendor_site_rec.attribute9 := p7_a48;
1407 ddp_vendor_site_rec.attribute10 := p7_a49;
1408 ddp_vendor_site_rec.attribute11 := p7_a50;
1409 ddp_vendor_site_rec.attribute12 := p7_a51;
1410 ddp_vendor_site_rec.attribute13 := p7_a52;
1411 ddp_vendor_site_rec.attribute14 := p7_a53;
1412 ddp_vendor_site_rec.attribute15 := p7_a54;
1413 ddp_vendor_site_rec.validation_number := p7_a55;
1414 ddp_vendor_site_rec.exclude_freight_from_discount := p7_a56;
1415 ddp_vendor_site_rec.bank_charge_bearer := p7_a57;
1416 ddp_vendor_site_rec.org_id := p7_a58;
1417 ddp_vendor_site_rec.check_digits := p7_a59;
1418 ddp_vendor_site_rec.allow_awt_flag := p7_a60;
1419 ddp_vendor_site_rec.awt_group_id := p7_a61;
1420 ddp_vendor_site_rec.default_pay_site_id := p7_a62;
1421 ddp_vendor_site_rec.pay_on_code := p7_a63;
1422 ddp_vendor_site_rec.pay_on_receipt_summary_code := p7_a64;
1423 ddp_vendor_site_rec.global_attribute_category := p7_a65;
1424 ddp_vendor_site_rec.global_attribute1 := p7_a66;
1425 ddp_vendor_site_rec.global_attribute2 := p7_a67;
1426 ddp_vendor_site_rec.global_attribute3 := p7_a68;
1427 ddp_vendor_site_rec.global_attribute4 := p7_a69;
1428 ddp_vendor_site_rec.global_attribute5 := p7_a70;
1429 ddp_vendor_site_rec.global_attribute6 := p7_a71;
1430 ddp_vendor_site_rec.global_attribute7 := p7_a72;
1431 ddp_vendor_site_rec.global_attribute8 := p7_a73;
1432 ddp_vendor_site_rec.global_attribute9 := p7_a74;
1433 ddp_vendor_site_rec.global_attribute10 := p7_a75;
1434 ddp_vendor_site_rec.global_attribute11 := p7_a76;
1435 ddp_vendor_site_rec.global_attribute12 := p7_a77;
1436 ddp_vendor_site_rec.global_attribute13 := p7_a78;
1437 ddp_vendor_site_rec.global_attribute14 := p7_a79;
1438 ddp_vendor_site_rec.global_attribute15 := p7_a80;
1439 ddp_vendor_site_rec.global_attribute16 := p7_a81;
1440 ddp_vendor_site_rec.global_attribute17 := p7_a82;
1441 ddp_vendor_site_rec.global_attribute18 := p7_a83;
1442 ddp_vendor_site_rec.global_attribute19 := p7_a84;
1443 ddp_vendor_site_rec.global_attribute20 := p7_a85;
1444 ddp_vendor_site_rec.tp_header_id := p7_a86;
1445 ddp_vendor_site_rec.ece_tp_location_code := p7_a87;
1446 ddp_vendor_site_rec.pcard_site_flag := p7_a88;
1447 ddp_vendor_site_rec.match_option := p7_a89;
1448 ddp_vendor_site_rec.country_of_origin_code := p7_a90;
1449 ddp_vendor_site_rec.future_dated_payment_ccid := p7_a91;
1450 ddp_vendor_site_rec.create_debit_memo_flag := p7_a92;
1451 ddp_vendor_site_rec.supplier_notif_method := p7_a93;
1452 ddp_vendor_site_rec.email_address := p7_a94;
1453 ddp_vendor_site_rec.primary_pay_site_flag := p7_a95;
1454 ddp_vendor_site_rec.shipping_control := p7_a96;
1455 ddp_vendor_site_rec.selling_company_identifier := p7_a97;
1456 ddp_vendor_site_rec.gapless_inv_num_flag := p7_a98;
1457 ddp_vendor_site_rec.location_id := p7_a99;
1458 ddp_vendor_site_rec.party_site_id := p7_a100;
1459 ddp_vendor_site_rec.org_name := p7_a101;
1460 ddp_vendor_site_rec.duns_number := p7_a102;
1461 ddp_vendor_site_rec.address_style := p7_a103;
1462 ddp_vendor_site_rec.language := p7_a104;
1463 ddp_vendor_site_rec.province := p7_a105;
1464 ddp_vendor_site_rec.country := p7_a106;
1465 ddp_vendor_site_rec.address_line1 := p7_a107;
1466 ddp_vendor_site_rec.address_line2 := p7_a108;
1467 ddp_vendor_site_rec.address_line3 := p7_a109;
1468 ddp_vendor_site_rec.address_line4 := p7_a110;
1469 ddp_vendor_site_rec.address_lines_alt := p7_a111;
1470 ddp_vendor_site_rec.county := p7_a112;
1471 ddp_vendor_site_rec.city := p7_a113;
1472 ddp_vendor_site_rec.state := p7_a114;
1473 ddp_vendor_site_rec.zip := p7_a115;
1474 ddp_vendor_site_rec.terms_name := p7_a116;
1475 ddp_vendor_site_rec.default_terms_id := p7_a117;
1476 ddp_vendor_site_rec.awt_group_name := p7_a118;
1477 ddp_vendor_site_rec.distribution_set_name := p7_a119;
1478 ddp_vendor_site_rec.ship_to_location_code := p7_a120;
1482 ddp_vendor_site_rec.default_bill_to_loc_id := p7_a124;
1479 ddp_vendor_site_rec.bill_to_location_code := p7_a121;
1480 ddp_vendor_site_rec.default_dist_set_id := p7_a122;
1481 ddp_vendor_site_rec.default_ship_to_loc_id := p7_a123;
1483 ddp_vendor_site_rec.tolerance_id := p7_a125;
1484 ddp_vendor_site_rec.tolerance_name := p7_a126;
1485 ddp_vendor_site_rec.vendor_interface_id := p7_a127;
1486 ddp_vendor_site_rec.vendor_site_interface_id := p7_a128;
1487 ddp_vendor_site_rec.ext_payee_rec.payee_party_id := p7_a129;
1488 ddp_vendor_site_rec.ext_payee_rec.payment_function := p7_a130;
1489 ddp_vendor_site_rec.ext_payee_rec.exclusive_pay_flag := p7_a131;
1490 ddp_vendor_site_rec.ext_payee_rec.payee_party_site_id := p7_a132;
1491 ddp_vendor_site_rec.ext_payee_rec.supplier_site_id := p7_a133;
1492 ddp_vendor_site_rec.ext_payee_rec.payer_org_id := p7_a134;
1493 ddp_vendor_site_rec.ext_payee_rec.payer_org_type := p7_a135;
1494 ddp_vendor_site_rec.ext_payee_rec.default_pmt_method := p7_a136;
1495 ddp_vendor_site_rec.ext_payee_rec.ece_tp_loc_code := p7_a137;
1496 ddp_vendor_site_rec.ext_payee_rec.bank_charge_bearer := p7_a138;
1497 ddp_vendor_site_rec.ext_payee_rec.bank_instr1_code := p7_a139;
1498 ddp_vendor_site_rec.ext_payee_rec.bank_instr2_code := p7_a140;
1499 ddp_vendor_site_rec.ext_payee_rec.bank_instr_detail := p7_a141;
1500 ddp_vendor_site_rec.ext_payee_rec.pay_reason_code := p7_a142;
1501 ddp_vendor_site_rec.ext_payee_rec.pay_reason_com := p7_a143;
1502 ddp_vendor_site_rec.ext_payee_rec.inactive_date := rosetta_g_miss_date_in_map(p7_a144);
1503 ddp_vendor_site_rec.ext_payee_rec.pay_message1 := p7_a145;
1504 ddp_vendor_site_rec.ext_payee_rec.pay_message2 := p7_a146;
1505 ddp_vendor_site_rec.ext_payee_rec.pay_message3 := p7_a147;
1506 ddp_vendor_site_rec.ext_payee_rec.delivery_channel := p7_a148;
1507 ddp_vendor_site_rec.ext_payee_rec.pmt_format := p7_a149;
1508 ddp_vendor_site_rec.ext_payee_rec.settlement_priority := p7_a150;
1509 ddp_vendor_site_rec.retainage_rate := p7_a151;
1510 ddp_vendor_site_rec.services_tolerance_id := p7_a152;
1511 ddp_vendor_site_rec.services_tolerance_name := p7_a153;
1512 ddp_vendor_site_rec.shipping_location_id := p7_a154;
1513
1514
1515
1516
1517 -- here's the delegated call to the old PL/SQL routine
1518 ap_vendor_pub_pkg.create_vendor_site(p_api_version,
1519 p_init_msg_list,
1520 p_commit,
1521 p_validation_level,
1522 x_return_status,
1523 x_msg_count,
1524 x_msg_data,
1525 ddp_vendor_site_rec,
1526 x_vendor_site_id,
1527 x_party_site_id,
1528 x_location_id);
1529
1530 -- copy data back from the local variables to OUT or IN-OUT args, if any
1531
1532
1533
1534
1535
1536
1537
1538
1539
1540
1541 end;
1542
1543 procedure update_vendor_site(p_api_version NUMBER
1544 , p_init_msg_list VARCHAR2
1545 , p_commit VARCHAR2
1546 , p_validation_level NUMBER
1547 , x_return_status out nocopy VARCHAR2
1548 , x_msg_count out nocopy NUMBER
1549 , x_msg_data out nocopy VARCHAR2
1550 , p7_a0 VARCHAR2
1551 , p7_a1 VARCHAR2
1552 , p7_a2 VARCHAR2
1553 , p7_a3 NUMBER
1554 , p7_a4 NUMBER
1555 , p7_a5 VARCHAR2
1556 , p7_a6 VARCHAR2
1557 , p7_a7 VARCHAR2
1558 , p7_a8 DATE
1559 , p7_a9 VARCHAR2
1560 , p7_a10 VARCHAR2
1561 , p7_a11 VARCHAR2
1562 , p7_a12 VARCHAR2
1563 , p7_a13 NUMBER
1564 , p7_a14 NUMBER
1565 , p7_a15 NUMBER
1566 , p7_a16 VARCHAR2
1567 , p7_a17 NUMBER
1568 , p7_a18 NUMBER
1569 , p7_a19 NUMBER
1570 , p7_a20 VARCHAR2
1571 , p7_a21 VARCHAR2
1572 , p7_a22 VARCHAR2
1573 , p7_a23 VARCHAR2
1574 , p7_a24 NUMBER
1575 , p7_a25 DATE
1576 , p7_a26 NUMBER
1577 , p7_a27 NUMBER
1578 , p7_a28 VARCHAR2
1579 , p7_a29 VARCHAR2
1580 , p7_a30 VARCHAR2
1581 , p7_a31 VARCHAR2
1582 , p7_a32 VARCHAR2
1583 , p7_a33 VARCHAR2
1584 , p7_a34 VARCHAR2
1585 , p7_a35 VARCHAR2
1586 , p7_a36 VARCHAR2
1587 , p7_a37 VARCHAR2
1588 , p7_a38 VARCHAR2
1589 , p7_a39 VARCHAR2
1590 , p7_a40 VARCHAR2
1591 , p7_a41 VARCHAR2
1592 , p7_a42 VARCHAR2
1593 , p7_a43 VARCHAR2
1594 , p7_a44 VARCHAR2
1595 , p7_a45 VARCHAR2
1596 , p7_a46 VARCHAR2
1597 , p7_a47 VARCHAR2
1598 , p7_a48 VARCHAR2
1599 , p7_a49 VARCHAR2
1600 , p7_a50 VARCHAR2
1601 , p7_a51 VARCHAR2
1602 , p7_a52 VARCHAR2
1603 , p7_a53 VARCHAR2
1604 , p7_a54 VARCHAR2
1605 , p7_a55 NUMBER
1606 , p7_a56 VARCHAR2
1607 , p7_a57 VARCHAR2
1608 , p7_a58 NUMBER
1609 , p7_a59 VARCHAR2
1610 , p7_a60 VARCHAR2
1611 , p7_a61 NUMBER
1612 , p7_a62 NUMBER
1613 , p7_a63 VARCHAR2
1614 , p7_a64 VARCHAR2
1615 , p7_a65 VARCHAR2
1616 , p7_a66 VARCHAR2
1617 , p7_a67 VARCHAR2
1618 , p7_a68 VARCHAR2
1619 , p7_a69 VARCHAR2
1620 , p7_a70 VARCHAR2
1621 , p7_a71 VARCHAR2
1622 , p7_a72 VARCHAR2
1623 , p7_a73 VARCHAR2
1624 , p7_a74 VARCHAR2
1625 , p7_a75 VARCHAR2
1626 , p7_a76 VARCHAR2
1627 , p7_a77 VARCHAR2
1628 , p7_a78 VARCHAR2
1629 , p7_a79 VARCHAR2
1630 , p7_a80 VARCHAR2
1631 , p7_a81 VARCHAR2
1632 , p7_a82 VARCHAR2
1633 , p7_a83 VARCHAR2
1634 , p7_a84 VARCHAR2
1635 , p7_a85 VARCHAR2
1636 , p7_a86 NUMBER
1637 , p7_a87 VARCHAR2
1638 , p7_a88 VARCHAR2
1642 , p7_a92 VARCHAR2
1639 , p7_a89 VARCHAR2
1640 , p7_a90 VARCHAR2
1641 , p7_a91 NUMBER
1643 , p7_a93 VARCHAR2
1644 , p7_a94 VARCHAR2
1645 , p7_a95 VARCHAR2
1646 , p7_a96 VARCHAR2
1647 , p7_a97 VARCHAR2
1648 , p7_a98 VARCHAR2
1649 , p7_a99 NUMBER
1650 , p7_a100 NUMBER
1651 , p7_a101 VARCHAR2
1652 , p7_a102 VARCHAR2
1653 , p7_a103 VARCHAR2
1654 , p7_a104 VARCHAR2
1655 , p7_a105 VARCHAR2
1656 , p7_a106 VARCHAR2
1657 , p7_a107 VARCHAR2
1658 , p7_a108 VARCHAR2
1659 , p7_a109 VARCHAR2
1660 , p7_a110 VARCHAR2
1661 , p7_a111 VARCHAR2
1662 , p7_a112 VARCHAR2
1663 , p7_a113 VARCHAR2
1664 , p7_a114 VARCHAR2
1665 , p7_a115 VARCHAR2
1666 , p7_a116 VARCHAR2
1667 , p7_a117 NUMBER
1668 , p7_a118 VARCHAR2
1669 , p7_a119 VARCHAR2
1670 , p7_a120 VARCHAR2
1671 , p7_a121 VARCHAR2
1672 , p7_a122 NUMBER
1673 , p7_a123 NUMBER
1674 , p7_a124 NUMBER
1675 , p7_a125 NUMBER
1676 , p7_a126 VARCHAR2
1677 , p7_a127 NUMBER
1678 , p7_a128 NUMBER
1679 , p7_a129 NUMBER
1680 , p7_a130 VARCHAR2
1681 , p7_a131 VARCHAR2
1682 , p7_a132 NUMBER
1683 , p7_a133 NUMBER
1684 , p7_a134 NUMBER
1685 , p7_a135 VARCHAR2
1686 , p7_a136 VARCHAR2
1687 , p7_a137 VARCHAR2
1688 , p7_a138 VARCHAR2
1689 , p7_a139 VARCHAR2
1690 , p7_a140 VARCHAR2
1691 , p7_a141 VARCHAR2
1692 , p7_a142 VARCHAR2
1693 , p7_a143 VARCHAR2
1694 , p7_a144 DATE
1695 , p7_a145 VARCHAR2
1696 , p7_a146 VARCHAR2
1697 , p7_a147 VARCHAR2
1698 , p7_a148 VARCHAR2
1699 , p7_a149 VARCHAR2
1700 , p7_a150 VARCHAR2
1701 , p7_a151 NUMBER
1702 , p7_a152 NUMBER
1703 , p7_a153 VARCHAR2
1704 , p7_a154 NUMBER
1705 , p_vendor_site_id NUMBER
1706 )
1707
1708 as
1709 ddp_vendor_site_rec ap_vendor_pub_pkg.r_vendor_site_rec_type;
1710 ddindx binary_integer; indx binary_integer;
1711 l_debug_info VARCHAR2(2000);
1712 l_api_name CONSTANT VARCHAR2(30) := 'Update_Vendor_W';
1713 begin
1714
1715 -- copy data to the local IN or IN-OUT args, if any
1716
1717
1718
1719
1720
1721
1722
1723 ddp_vendor_site_rec.area_code := p7_a0;
1724 ddp_vendor_site_rec.phone := p7_a1;
1725 ddp_vendor_site_rec.customer_num := p7_a2;
1726 ddp_vendor_site_rec.ship_to_location_id := p7_a3;
1727 ddp_vendor_site_rec.bill_to_location_id := p7_a4;
1728 ddp_vendor_site_rec.ship_via_lookup_code := p7_a5;
1729 ddp_vendor_site_rec.freight_terms_lookup_code := p7_a6;
1730 ddp_vendor_site_rec.fob_lookup_code := p7_a7;
1731 ddp_vendor_site_rec.inactive_date := rosetta_g_miss_date_in_map(p7_a8);
1732 ddp_vendor_site_rec.fax := p7_a9;
1733 ddp_vendor_site_rec.fax_area_code := p7_a10;
1734 ddp_vendor_site_rec.telex := p7_a11;
1735 ddp_vendor_site_rec.terms_date_basis := p7_a12;
1736 ddp_vendor_site_rec.distribution_set_id := p7_a13;
1737 ddp_vendor_site_rec.accts_pay_code_combination_id := p7_a14;
1738 ddp_vendor_site_rec.prepay_code_combination_id := p7_a15;
1739 ddp_vendor_site_rec.pay_group_lookup_code := p7_a16;
1740 ddp_vendor_site_rec.payment_priority := p7_a17;
1741 ddp_vendor_site_rec.terms_id := p7_a18;
1742 ddp_vendor_site_rec.invoice_amount_limit := p7_a19;
1743 ddp_vendor_site_rec.pay_date_basis_lookup_code := p7_a20;
1744 ddp_vendor_site_rec.always_take_disc_flag := p7_a21;
1745 ddp_vendor_site_rec.invoice_currency_code := p7_a22;
1746 ddp_vendor_site_rec.payment_currency_code := p7_a23;
1747 ddp_vendor_site_rec.vendor_site_id := p7_a24;
1748 ddp_vendor_site_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a25);
1749 ddp_vendor_site_rec.last_updated_by := p7_a26;
1750 ddp_vendor_site_rec.vendor_id := p7_a27;
1751 ddp_vendor_site_rec.vendor_site_code := p7_a28;
1752 ddp_vendor_site_rec.vendor_site_code_alt := p7_a29;
1753 ddp_vendor_site_rec.purchasing_site_flag := p7_a30;
1754 ddp_vendor_site_rec.rfq_only_site_flag := p7_a31;
1755 ddp_vendor_site_rec.pay_site_flag := p7_a32;
1756 ddp_vendor_site_rec.attention_ar_flag := p7_a33;
1757 ddp_vendor_site_rec.hold_all_payments_flag := p7_a34;
1758 ddp_vendor_site_rec.hold_future_payments_flag := p7_a35;
1759 ddp_vendor_site_rec.hold_reason := p7_a36;
1760 ddp_vendor_site_rec.hold_unmatched_invoices_flag := p7_a37;
1761 ddp_vendor_site_rec.tax_reporting_site_flag := p7_a38;
1762 ddp_vendor_site_rec.attribute_category := p7_a39;
1763 ddp_vendor_site_rec.attribute1 := p7_a40;
1764 ddp_vendor_site_rec.attribute2 := p7_a41;
1765 ddp_vendor_site_rec.attribute3 := p7_a42;
1766 ddp_vendor_site_rec.attribute4 := p7_a43;
1767 ddp_vendor_site_rec.attribute5 := p7_a44;
1768 ddp_vendor_site_rec.attribute6 := p7_a45;
1769 ddp_vendor_site_rec.attribute7 := p7_a46;
1770 ddp_vendor_site_rec.attribute8 := p7_a47;
1771 ddp_vendor_site_rec.attribute9 := p7_a48;
1772 ddp_vendor_site_rec.attribute10 := p7_a49;
1773 ddp_vendor_site_rec.attribute11 := p7_a50;
1774 ddp_vendor_site_rec.attribute12 := p7_a51;
1775 ddp_vendor_site_rec.attribute13 := p7_a52;
1776 ddp_vendor_site_rec.attribute14 := p7_a53;
1777 ddp_vendor_site_rec.attribute15 := p7_a54;
1778 ddp_vendor_site_rec.validation_number := p7_a55;
1779 ddp_vendor_site_rec.exclude_freight_from_discount := p7_a56;
1780 ddp_vendor_site_rec.bank_charge_bearer := p7_a57;
1781 ddp_vendor_site_rec.org_id := p7_a58;
1782 ddp_vendor_site_rec.check_digits := p7_a59;
1783 ddp_vendor_site_rec.allow_awt_flag := p7_a60;
1784 ddp_vendor_site_rec.awt_group_id := p7_a61;
1788 ddp_vendor_site_rec.global_attribute_category := p7_a65;
1785 ddp_vendor_site_rec.default_pay_site_id := p7_a62;
1786 ddp_vendor_site_rec.pay_on_code := p7_a63;
1787 ddp_vendor_site_rec.pay_on_receipt_summary_code := p7_a64;
1789 ddp_vendor_site_rec.global_attribute1 := p7_a66;
1790 ddp_vendor_site_rec.global_attribute2 := p7_a67;
1791 ddp_vendor_site_rec.global_attribute3 := p7_a68;
1792 ddp_vendor_site_rec.global_attribute4 := p7_a69;
1793 ddp_vendor_site_rec.global_attribute5 := p7_a70;
1794 ddp_vendor_site_rec.global_attribute6 := p7_a71;
1795 ddp_vendor_site_rec.global_attribute7 := p7_a72;
1796 ddp_vendor_site_rec.global_attribute8 := p7_a73;
1797 ddp_vendor_site_rec.global_attribute9 := p7_a74;
1798 ddp_vendor_site_rec.global_attribute10 := p7_a75;
1799 ddp_vendor_site_rec.global_attribute11 := p7_a76;
1800 ddp_vendor_site_rec.global_attribute12 := p7_a77;
1801 ddp_vendor_site_rec.global_attribute13 := p7_a78;
1802 ddp_vendor_site_rec.global_attribute14 := p7_a79;
1803 ddp_vendor_site_rec.global_attribute15 := p7_a80;
1804 ddp_vendor_site_rec.global_attribute16 := p7_a81;
1805 ddp_vendor_site_rec.global_attribute17 := p7_a82;
1806 ddp_vendor_site_rec.global_attribute18 := p7_a83;
1807 ddp_vendor_site_rec.global_attribute19 := p7_a84;
1808 ddp_vendor_site_rec.global_attribute20 := p7_a85;
1809 ddp_vendor_site_rec.tp_header_id := p7_a86;
1810 ddp_vendor_site_rec.ece_tp_location_code := p7_a87;
1811 ddp_vendor_site_rec.pcard_site_flag := p7_a88;
1812 ddp_vendor_site_rec.match_option := p7_a89;
1813 ddp_vendor_site_rec.country_of_origin_code := p7_a90;
1814 ddp_vendor_site_rec.future_dated_payment_ccid := p7_a91;
1815 ddp_vendor_site_rec.create_debit_memo_flag := p7_a92;
1816 ddp_vendor_site_rec.supplier_notif_method := p7_a93;
1817 ddp_vendor_site_rec.email_address := p7_a94;
1818 ddp_vendor_site_rec.primary_pay_site_flag := p7_a95;
1819 ddp_vendor_site_rec.shipping_control := p7_a96;
1820 ddp_vendor_site_rec.selling_company_identifier := p7_a97;
1821 ddp_vendor_site_rec.gapless_inv_num_flag := p7_a98;
1822 ddp_vendor_site_rec.location_id := p7_a99;
1823 ddp_vendor_site_rec.party_site_id := p7_a100;
1824 ddp_vendor_site_rec.org_name := p7_a101;
1825 ddp_vendor_site_rec.duns_number := p7_a102;
1826 ddp_vendor_site_rec.address_style := p7_a103;
1827 ddp_vendor_site_rec.language := p7_a104;
1828 ddp_vendor_site_rec.province := p7_a105;
1829 ddp_vendor_site_rec.country := p7_a106;
1830 ddp_vendor_site_rec.address_line1 := p7_a107;
1831 ddp_vendor_site_rec.address_line2 := p7_a108;
1832 ddp_vendor_site_rec.address_line3 := p7_a109;
1833 ddp_vendor_site_rec.address_line4 := p7_a110;
1834 ddp_vendor_site_rec.address_lines_alt := p7_a111;
1835 ddp_vendor_site_rec.county := p7_a112;
1836 ddp_vendor_site_rec.city := p7_a113;
1837 ddp_vendor_site_rec.state := p7_a114;
1838 ddp_vendor_site_rec.zip := p7_a115;
1839 ddp_vendor_site_rec.terms_name := p7_a116;
1840 ddp_vendor_site_rec.default_terms_id := p7_a117;
1841 ddp_vendor_site_rec.awt_group_name := p7_a118;
1842 ddp_vendor_site_rec.distribution_set_name := p7_a119;
1843 ddp_vendor_site_rec.ship_to_location_code := p7_a120;
1844 ddp_vendor_site_rec.bill_to_location_code := p7_a121;
1845 ddp_vendor_site_rec.default_dist_set_id := p7_a122;
1846 ddp_vendor_site_rec.default_ship_to_loc_id := p7_a123;
1847 ddp_vendor_site_rec.default_bill_to_loc_id := p7_a124;
1848 ddp_vendor_site_rec.tolerance_id := p7_a125;
1849 ddp_vendor_site_rec.tolerance_name := p7_a126;
1850 ddp_vendor_site_rec.vendor_interface_id := p7_a127;
1851 ddp_vendor_site_rec.vendor_site_interface_id := p7_a128;
1852 ddp_vendor_site_rec.ext_payee_rec.payee_party_id := p7_a129;
1853 ddp_vendor_site_rec.ext_payee_rec.payment_function := p7_a130;
1854 ddp_vendor_site_rec.ext_payee_rec.exclusive_pay_flag := p7_a131;
1855 ddp_vendor_site_rec.ext_payee_rec.payee_party_site_id := p7_a132;
1856 ddp_vendor_site_rec.ext_payee_rec.supplier_site_id := p7_a133;
1857 ddp_vendor_site_rec.ext_payee_rec.payer_org_id := p7_a134;
1858 ddp_vendor_site_rec.ext_payee_rec.payer_org_type := p7_a135;
1859 ddp_vendor_site_rec.ext_payee_rec.default_pmt_method := p7_a136;
1860 ddp_vendor_site_rec.ext_payee_rec.ece_tp_loc_code := p7_a137;
1861 ddp_vendor_site_rec.ext_payee_rec.bank_charge_bearer := p7_a138;
1862 ddp_vendor_site_rec.ext_payee_rec.bank_instr1_code := p7_a139;
1863 ddp_vendor_site_rec.ext_payee_rec.bank_instr2_code := p7_a140;
1864 ddp_vendor_site_rec.ext_payee_rec.bank_instr_detail := p7_a141;
1865 ddp_vendor_site_rec.ext_payee_rec.pay_reason_code := p7_a142;
1866 ddp_vendor_site_rec.ext_payee_rec.pay_reason_com := p7_a143;
1867 ddp_vendor_site_rec.ext_payee_rec.inactive_date := rosetta_g_miss_date_in_map(p7_a144);
1868 ddp_vendor_site_rec.ext_payee_rec.pay_message1 := p7_a145;
1869 ddp_vendor_site_rec.ext_payee_rec.pay_message2 := p7_a146;
1870 ddp_vendor_site_rec.ext_payee_rec.pay_message3 := p7_a147;
1874 ddp_vendor_site_rec.retainage_rate := p7_a151;
1871 ddp_vendor_site_rec.ext_payee_rec.delivery_channel := p7_a148;
1872 ddp_vendor_site_rec.ext_payee_rec.pmt_format := p7_a149;
1873 ddp_vendor_site_rec.ext_payee_rec.settlement_priority := p7_a150;
1875 ddp_vendor_site_rec.services_tolerance_id := p7_a152;
1876 ddp_vendor_site_rec.services_tolerance_name := p7_a153;
1877 ddp_vendor_site_rec.shipping_location_id := p7_a154;
1878
1879
1880 -- xili - test begin
1881 l_debug_info := 'xili#1: befor update_vendor_site, vendor_site_code=='||ddp_vendor_site_rec.vendor_site_code||' -- ' || to_char(sysdate, 'MON-DD-YYYY HH24:MI:SS');
1882
1883 IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1884 FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1885 END IF;
1886 -- xili - test end
1887
1888 -- here's the delegated call to the old PL/SQL routine
1889 ap_vendor_pub_pkg.update_vendor_site(p_api_version,
1890 p_init_msg_list,
1891 p_commit,
1892 p_validation_level,
1893 x_return_status,
1894 x_msg_count,
1895 x_msg_data,
1896 ddp_vendor_site_rec,
1897 p_vendor_site_id);
1898
1899 -- copy data back from the local variables to OUT or IN-OUT args, if any
1900
1901
1902
1903
1904
1905
1906
1907
1908 end;
1909
1910 procedure validate_vendor_site(p_api_version NUMBER
1911 , p_init_msg_list VARCHAR2
1912 , p_commit VARCHAR2
1913 , p_validation_level NUMBER
1914 , x_return_status out nocopy VARCHAR2
1915 , x_msg_count out nocopy NUMBER
1916 , x_msg_data out nocopy VARCHAR2
1917 , p7_a0 in out nocopy VARCHAR2
1918 , p7_a1 in out nocopy VARCHAR2
1919 , p7_a2 in out nocopy VARCHAR2
1920 , p7_a3 in out nocopy NUMBER
1921 , p7_a4 in out nocopy NUMBER
1922 , p7_a5 in out nocopy VARCHAR2
1923 , p7_a6 in out nocopy VARCHAR2
1924 , p7_a7 in out nocopy VARCHAR2
1925 , p7_a8 in out nocopy DATE
1926 , p7_a9 in out nocopy VARCHAR2
1927 , p7_a10 in out nocopy VARCHAR2
1928 , p7_a11 in out nocopy VARCHAR2
1929 , p7_a12 in out nocopy VARCHAR2
1930 , p7_a13 in out nocopy NUMBER
1931 , p7_a14 in out nocopy NUMBER
1932 , p7_a15 in out nocopy NUMBER
1933 , p7_a16 in out nocopy VARCHAR2
1934 , p7_a17 in out nocopy NUMBER
1935 , p7_a18 in out nocopy NUMBER
1936 , p7_a19 in out nocopy NUMBER
1937 , p7_a20 in out nocopy VARCHAR2
1938 , p7_a21 in out nocopy VARCHAR2
1939 , p7_a22 in out nocopy VARCHAR2
1940 , p7_a23 in out nocopy VARCHAR2
1941 , p7_a24 in out nocopy NUMBER
1942 , p7_a25 in out nocopy DATE
1943 , p7_a26 in out nocopy NUMBER
1944 , p7_a27 in out nocopy NUMBER
1945 , p7_a28 in out nocopy VARCHAR2
1946 , p7_a29 in out nocopy VARCHAR2
1947 , p7_a30 in out nocopy VARCHAR2
1948 , p7_a31 in out nocopy VARCHAR2
1949 , p7_a32 in out nocopy VARCHAR2
1950 , p7_a33 in out nocopy VARCHAR2
1951 , p7_a34 in out nocopy VARCHAR2
1952 , p7_a35 in out nocopy VARCHAR2
1953 , p7_a36 in out nocopy VARCHAR2
1954 , p7_a37 in out nocopy VARCHAR2
1955 , p7_a38 in out nocopy VARCHAR2
1956 , p7_a39 in out nocopy VARCHAR2
1957 , p7_a40 in out nocopy VARCHAR2
1958 , p7_a41 in out nocopy VARCHAR2
1959 , p7_a42 in out nocopy VARCHAR2
1960 , p7_a43 in out nocopy VARCHAR2
1961 , p7_a44 in out nocopy VARCHAR2
1962 , p7_a45 in out nocopy VARCHAR2
1963 , p7_a46 in out nocopy VARCHAR2
1964 , p7_a47 in out nocopy VARCHAR2
1965 , p7_a48 in out nocopy VARCHAR2
1966 , p7_a49 in out nocopy VARCHAR2
1967 , p7_a50 in out nocopy VARCHAR2
1968 , p7_a51 in out nocopy VARCHAR2
1969 , p7_a52 in out nocopy VARCHAR2
1970 , p7_a53 in out nocopy VARCHAR2
1971 , p7_a54 in out nocopy VARCHAR2
1972 , p7_a55 in out nocopy NUMBER
1973 , p7_a56 in out nocopy VARCHAR2
1974 , p7_a57 in out nocopy VARCHAR2
1975 , p7_a58 in out nocopy NUMBER
1976 , p7_a59 in out nocopy VARCHAR2
1977 , p7_a60 in out nocopy VARCHAR2
1978 , p7_a61 in out nocopy NUMBER
1979 , p7_a62 in out nocopy NUMBER
1980 , p7_a63 in out nocopy VARCHAR2
1981 , p7_a64 in out nocopy VARCHAR2
1982 , p7_a65 in out nocopy VARCHAR2
1983 , p7_a66 in out nocopy VARCHAR2
1984 , p7_a67 in out nocopy VARCHAR2
1985 , p7_a68 in out nocopy VARCHAR2
1986 , p7_a69 in out nocopy VARCHAR2
1987 , p7_a70 in out nocopy VARCHAR2
1988 , p7_a71 in out nocopy VARCHAR2
1989 , p7_a72 in out nocopy VARCHAR2
1990 , p7_a73 in out nocopy VARCHAR2
1991 , p7_a74 in out nocopy VARCHAR2
1992 , p7_a75 in out nocopy VARCHAR2
1993 , p7_a76 in out nocopy VARCHAR2
1997 , p7_a80 in out nocopy VARCHAR2
1994 , p7_a77 in out nocopy VARCHAR2
1995 , p7_a78 in out nocopy VARCHAR2
1996 , p7_a79 in out nocopy VARCHAR2
1998 , p7_a81 in out nocopy VARCHAR2
1999 , p7_a82 in out nocopy VARCHAR2
2000 , p7_a83 in out nocopy VARCHAR2
2001 , p7_a84 in out nocopy VARCHAR2
2002 , p7_a85 in out nocopy VARCHAR2
2003 , p7_a86 in out nocopy NUMBER
2004 , p7_a87 in out nocopy VARCHAR2
2005 , p7_a88 in out nocopy VARCHAR2
2006 , p7_a89 in out nocopy VARCHAR2
2007 , p7_a90 in out nocopy VARCHAR2
2008 , p7_a91 in out nocopy NUMBER
2009 , p7_a92 in out nocopy VARCHAR2
2010 , p7_a93 in out nocopy VARCHAR2
2011 , p7_a94 in out nocopy VARCHAR2
2012 , p7_a95 in out nocopy VARCHAR2
2013 , p7_a96 in out nocopy VARCHAR2
2014 , p7_a97 in out nocopy VARCHAR2
2015 , p7_a98 in out nocopy VARCHAR2
2016 , p7_a99 in out nocopy NUMBER
2017 , p7_a100 in out nocopy NUMBER
2018 , p7_a101 in out nocopy VARCHAR2
2019 , p7_a102 in out nocopy VARCHAR2
2020 , p7_a103 in out nocopy VARCHAR2
2021 , p7_a104 in out nocopy VARCHAR2
2022 , p7_a105 in out nocopy VARCHAR2
2023 , p7_a106 in out nocopy VARCHAR2
2024 , p7_a107 in out nocopy VARCHAR2
2025 , p7_a108 in out nocopy VARCHAR2
2026 , p7_a109 in out nocopy VARCHAR2
2027 , p7_a110 in out nocopy VARCHAR2
2028 , p7_a111 in out nocopy VARCHAR2
2029 , p7_a112 in out nocopy VARCHAR2
2030 , p7_a113 in out nocopy VARCHAR2
2031 , p7_a114 in out nocopy VARCHAR2
2032 , p7_a115 in out nocopy VARCHAR2
2033 , p7_a116 in out nocopy VARCHAR2
2034 , p7_a117 in out nocopy NUMBER
2035 , p7_a118 in out nocopy VARCHAR2
2036 , p7_a119 in out nocopy VARCHAR2
2037 , p7_a120 in out nocopy VARCHAR2
2038 , p7_a121 in out nocopy VARCHAR2
2039 , p7_a122 in out nocopy NUMBER
2040 , p7_a123 in out nocopy NUMBER
2041 , p7_a124 in out nocopy NUMBER
2042 , p7_a125 in out nocopy NUMBER
2043 , p7_a126 in out nocopy VARCHAR2
2044 , p7_a127 in out nocopy NUMBER
2045 , p7_a128 in out nocopy NUMBER
2046 , p7_a129 in out nocopy NUMBER
2047 , p7_a130 in out nocopy VARCHAR2
2048 , p7_a131 in out nocopy VARCHAR2
2049 , p7_a132 in out nocopy NUMBER
2050 , p7_a133 in out nocopy NUMBER
2051 , p7_a134 in out nocopy NUMBER
2052 , p7_a135 in out nocopy VARCHAR2
2053 , p7_a136 in out nocopy VARCHAR2
2054 , p7_a137 in out nocopy VARCHAR2
2055 , p7_a138 in out nocopy VARCHAR2
2056 , p7_a139 in out nocopy VARCHAR2
2057 , p7_a140 in out nocopy VARCHAR2
2058 , p7_a141 in out nocopy VARCHAR2
2059 , p7_a142 in out nocopy VARCHAR2
2060 , p7_a143 in out nocopy VARCHAR2
2061 , p7_a144 in out nocopy DATE
2062 , p7_a145 in out nocopy VARCHAR2
2063 , p7_a146 in out nocopy VARCHAR2
2064 , p7_a147 in out nocopy VARCHAR2
2065 , p7_a148 in out nocopy VARCHAR2
2066 , p7_a149 in out nocopy VARCHAR2
2067 , p7_a150 in out nocopy VARCHAR2
2068 , p7_a151 in out nocopy NUMBER
2069 , p7_a152 in out nocopy NUMBER
2070 , p7_a153 in out nocopy VARCHAR2
2071 , p7_a154 in out nocopy NUMBER
2072 , p_mode VARCHAR2
2073 , p_calling_prog VARCHAR2
2074 , x_party_site_valid out nocopy VARCHAR2
2075 , x_location_valid out nocopy VARCHAR2
2076 , x_payee_valid out nocopy VARCHAR2
2077 , p_vendor_site_id NUMBER
2078 )
2079
2080 as
2081 ddp_vendor_site_rec ap_vendor_pub_pkg.r_vendor_site_rec_type;
2082 ddindx binary_integer; indx binary_integer;
2083 begin
2084
2085 -- copy data to the local IN or IN-OUT args, if any
2086
2087
2088
2089
2090
2091
2092
2093 ddp_vendor_site_rec.area_code := p7_a0;
2094 ddp_vendor_site_rec.phone := p7_a1;
2095 ddp_vendor_site_rec.customer_num := p7_a2;
2096 ddp_vendor_site_rec.ship_to_location_id := p7_a3;
2097 ddp_vendor_site_rec.bill_to_location_id := p7_a4;
2098 ddp_vendor_site_rec.ship_via_lookup_code := p7_a5;
2099 ddp_vendor_site_rec.freight_terms_lookup_code := p7_a6;
2100 ddp_vendor_site_rec.fob_lookup_code := p7_a7;
2101 ddp_vendor_site_rec.inactive_date := rosetta_g_miss_date_in_map(p7_a8);
2102 ddp_vendor_site_rec.fax := p7_a9;
2103 ddp_vendor_site_rec.fax_area_code := p7_a10;
2104 ddp_vendor_site_rec.telex := p7_a11;
2105 ddp_vendor_site_rec.terms_date_basis := p7_a12;
2106 ddp_vendor_site_rec.distribution_set_id := p7_a13;
2107 ddp_vendor_site_rec.accts_pay_code_combination_id := p7_a14;
2108 ddp_vendor_site_rec.prepay_code_combination_id := p7_a15;
2109 ddp_vendor_site_rec.pay_group_lookup_code := p7_a16;
2110 ddp_vendor_site_rec.payment_priority := p7_a17;
2111 ddp_vendor_site_rec.terms_id := p7_a18;
2112 ddp_vendor_site_rec.invoice_amount_limit := p7_a19;
2113 ddp_vendor_site_rec.pay_date_basis_lookup_code := p7_a20;
2114 ddp_vendor_site_rec.always_take_disc_flag := p7_a21;
2115 ddp_vendor_site_rec.invoice_currency_code := p7_a22;
2116 ddp_vendor_site_rec.payment_currency_code := p7_a23;
2117 ddp_vendor_site_rec.vendor_site_id := p7_a24;
2118 ddp_vendor_site_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a25);
2119 ddp_vendor_site_rec.last_updated_by := p7_a26;
2120 ddp_vendor_site_rec.vendor_id := p7_a27;
2121 ddp_vendor_site_rec.vendor_site_code := p7_a28;
2122 ddp_vendor_site_rec.vendor_site_code_alt := p7_a29;
2123 ddp_vendor_site_rec.purchasing_site_flag := p7_a30;
2124 ddp_vendor_site_rec.rfq_only_site_flag := p7_a31;
2125 ddp_vendor_site_rec.pay_site_flag := p7_a32;
2129 ddp_vendor_site_rec.hold_reason := p7_a36;
2126 ddp_vendor_site_rec.attention_ar_flag := p7_a33;
2127 ddp_vendor_site_rec.hold_all_payments_flag := p7_a34;
2128 ddp_vendor_site_rec.hold_future_payments_flag := p7_a35;
2130 ddp_vendor_site_rec.hold_unmatched_invoices_flag := p7_a37;
2131 ddp_vendor_site_rec.tax_reporting_site_flag := p7_a38;
2132 ddp_vendor_site_rec.attribute_category := p7_a39;
2133 ddp_vendor_site_rec.attribute1 := p7_a40;
2134 ddp_vendor_site_rec.attribute2 := p7_a41;
2135 ddp_vendor_site_rec.attribute3 := p7_a42;
2136 ddp_vendor_site_rec.attribute4 := p7_a43;
2137 ddp_vendor_site_rec.attribute5 := p7_a44;
2138 ddp_vendor_site_rec.attribute6 := p7_a45;
2139 ddp_vendor_site_rec.attribute7 := p7_a46;
2140 ddp_vendor_site_rec.attribute8 := p7_a47;
2141 ddp_vendor_site_rec.attribute9 := p7_a48;
2142 ddp_vendor_site_rec.attribute10 := p7_a49;
2143 ddp_vendor_site_rec.attribute11 := p7_a50;
2144 ddp_vendor_site_rec.attribute12 := p7_a51;
2145 ddp_vendor_site_rec.attribute13 := p7_a52;
2146 ddp_vendor_site_rec.attribute14 := p7_a53;
2147 ddp_vendor_site_rec.attribute15 := p7_a54;
2148 ddp_vendor_site_rec.validation_number := p7_a55;
2149 ddp_vendor_site_rec.exclude_freight_from_discount := p7_a56;
2150 ddp_vendor_site_rec.bank_charge_bearer := p7_a57;
2151 ddp_vendor_site_rec.org_id := p7_a58;
2152 ddp_vendor_site_rec.check_digits := p7_a59;
2153 ddp_vendor_site_rec.allow_awt_flag := p7_a60;
2154 ddp_vendor_site_rec.awt_group_id := p7_a61;
2155 ddp_vendor_site_rec.default_pay_site_id := p7_a62;
2156 ddp_vendor_site_rec.pay_on_code := p7_a63;
2157 ddp_vendor_site_rec.pay_on_receipt_summary_code := p7_a64;
2158 ddp_vendor_site_rec.global_attribute_category := p7_a65;
2159 ddp_vendor_site_rec.global_attribute1 := p7_a66;
2160 ddp_vendor_site_rec.global_attribute2 := p7_a67;
2161 ddp_vendor_site_rec.global_attribute3 := p7_a68;
2162 ddp_vendor_site_rec.global_attribute4 := p7_a69;
2163 ddp_vendor_site_rec.global_attribute5 := p7_a70;
2164 ddp_vendor_site_rec.global_attribute6 := p7_a71;
2165 ddp_vendor_site_rec.global_attribute7 := p7_a72;
2166 ddp_vendor_site_rec.global_attribute8 := p7_a73;
2167 ddp_vendor_site_rec.global_attribute9 := p7_a74;
2168 ddp_vendor_site_rec.global_attribute10 := p7_a75;
2169 ddp_vendor_site_rec.global_attribute11 := p7_a76;
2170 ddp_vendor_site_rec.global_attribute12 := p7_a77;
2171 ddp_vendor_site_rec.global_attribute13 := p7_a78;
2172 ddp_vendor_site_rec.global_attribute14 := p7_a79;
2173 ddp_vendor_site_rec.global_attribute15 := p7_a80;
2174 ddp_vendor_site_rec.global_attribute16 := p7_a81;
2175 ddp_vendor_site_rec.global_attribute17 := p7_a82;
2176 ddp_vendor_site_rec.global_attribute18 := p7_a83;
2177 ddp_vendor_site_rec.global_attribute19 := p7_a84;
2178 ddp_vendor_site_rec.global_attribute20 := p7_a85;
2179 ddp_vendor_site_rec.tp_header_id := p7_a86;
2180 ddp_vendor_site_rec.ece_tp_location_code := p7_a87;
2181 ddp_vendor_site_rec.pcard_site_flag := p7_a88;
2182 ddp_vendor_site_rec.match_option := p7_a89;
2183 ddp_vendor_site_rec.country_of_origin_code := p7_a90;
2184 ddp_vendor_site_rec.future_dated_payment_ccid := p7_a91;
2185 ddp_vendor_site_rec.create_debit_memo_flag := p7_a92;
2186 ddp_vendor_site_rec.supplier_notif_method := p7_a93;
2187 ddp_vendor_site_rec.email_address := p7_a94;
2188 ddp_vendor_site_rec.primary_pay_site_flag := p7_a95;
2189 ddp_vendor_site_rec.shipping_control := p7_a96;
2190 ddp_vendor_site_rec.selling_company_identifier := p7_a97;
2191 ddp_vendor_site_rec.gapless_inv_num_flag := p7_a98;
2192 ddp_vendor_site_rec.location_id := p7_a99;
2193 ddp_vendor_site_rec.party_site_id := p7_a100;
2194 ddp_vendor_site_rec.org_name := p7_a101;
2195 ddp_vendor_site_rec.duns_number := p7_a102;
2196 ddp_vendor_site_rec.address_style := p7_a103;
2197 ddp_vendor_site_rec.language := p7_a104;
2198 ddp_vendor_site_rec.province := p7_a105;
2199 ddp_vendor_site_rec.country := p7_a106;
2200 ddp_vendor_site_rec.address_line1 := p7_a107;
2201 ddp_vendor_site_rec.address_line2 := p7_a108;
2202 ddp_vendor_site_rec.address_line3 := p7_a109;
2203 ddp_vendor_site_rec.address_line4 := p7_a110;
2204 ddp_vendor_site_rec.address_lines_alt := p7_a111;
2205 ddp_vendor_site_rec.county := p7_a112;
2206 ddp_vendor_site_rec.city := p7_a113;
2207 ddp_vendor_site_rec.state := p7_a114;
2208 ddp_vendor_site_rec.zip := p7_a115;
2209 ddp_vendor_site_rec.terms_name := p7_a116;
2210 ddp_vendor_site_rec.default_terms_id := p7_a117;
2211 ddp_vendor_site_rec.awt_group_name := p7_a118;
2212 ddp_vendor_site_rec.distribution_set_name := p7_a119;
2213 ddp_vendor_site_rec.ship_to_location_code := p7_a120;
2214 ddp_vendor_site_rec.bill_to_location_code := p7_a121;
2215 ddp_vendor_site_rec.default_dist_set_id := p7_a122;
2216 ddp_vendor_site_rec.default_ship_to_loc_id := p7_a123;
2217 ddp_vendor_site_rec.default_bill_to_loc_id := p7_a124;
2218 ddp_vendor_site_rec.tolerance_id := p7_a125;
2219 ddp_vendor_site_rec.tolerance_name := p7_a126;
2220 ddp_vendor_site_rec.vendor_interface_id := p7_a127;
2221 ddp_vendor_site_rec.vendor_site_interface_id := p7_a128;
2222 ddp_vendor_site_rec.ext_payee_rec.payee_party_id := p7_a129;
2223 ddp_vendor_site_rec.ext_payee_rec.payment_function := p7_a130;
2224 ddp_vendor_site_rec.ext_payee_rec.exclusive_pay_flag := p7_a131;
2225 ddp_vendor_site_rec.ext_payee_rec.payee_party_site_id := p7_a132;
2226 ddp_vendor_site_rec.ext_payee_rec.supplier_site_id := p7_a133;
2227 ddp_vendor_site_rec.ext_payee_rec.payer_org_id := p7_a134;
2228 ddp_vendor_site_rec.ext_payee_rec.payer_org_type := p7_a135;
2229 ddp_vendor_site_rec.ext_payee_rec.default_pmt_method := p7_a136;
2230 ddp_vendor_site_rec.ext_payee_rec.ece_tp_loc_code := p7_a137;
2231 ddp_vendor_site_rec.ext_payee_rec.bank_charge_bearer := p7_a138;
2235 ddp_vendor_site_rec.ext_payee_rec.pay_reason_code := p7_a142;
2232 ddp_vendor_site_rec.ext_payee_rec.bank_instr1_code := p7_a139;
2233 ddp_vendor_site_rec.ext_payee_rec.bank_instr2_code := p7_a140;
2234 ddp_vendor_site_rec.ext_payee_rec.bank_instr_detail := p7_a141;
2236 ddp_vendor_site_rec.ext_payee_rec.pay_reason_com := p7_a143;
2237 ddp_vendor_site_rec.ext_payee_rec.inactive_date := rosetta_g_miss_date_in_map(p7_a144);
2238 ddp_vendor_site_rec.ext_payee_rec.pay_message1 := p7_a145;
2239 ddp_vendor_site_rec.ext_payee_rec.pay_message2 := p7_a146;
2240 ddp_vendor_site_rec.ext_payee_rec.pay_message3 := p7_a147;
2241 ddp_vendor_site_rec.ext_payee_rec.delivery_channel := p7_a148;
2242 ddp_vendor_site_rec.ext_payee_rec.pmt_format := p7_a149;
2243 ddp_vendor_site_rec.ext_payee_rec.settlement_priority := p7_a150;
2244 ddp_vendor_site_rec.retainage_rate := p7_a151;
2245 ddp_vendor_site_rec.services_tolerance_id := p7_a152;
2246 ddp_vendor_site_rec.services_tolerance_name := p7_a153;
2247 ddp_vendor_site_rec.shipping_location_id := p7_a154;
2248
2249
2250
2251
2252
2253
2254
2255 -- here's the delegated call to the old PL/SQL routine
2256 ap_vendor_pub_pkg.validate_vendor_site(p_api_version,
2257 p_init_msg_list,
2258 p_commit,
2259 p_validation_level,
2260 x_return_status,
2261 x_msg_count,
2262 x_msg_data,
2263 ddp_vendor_site_rec,
2264 p_mode,
2265 p_calling_prog,
2266 x_party_site_valid,
2267 x_location_valid,
2268 x_payee_valid,
2269 p_vendor_site_id);
2270
2271 -- copy data back from the local variables to OUT or IN-OUT args, if any
2272
2273
2274
2275
2276
2277
2278
2279 p7_a0 := ddp_vendor_site_rec.area_code;
2280 p7_a1 := ddp_vendor_site_rec.phone;
2281 p7_a2 := ddp_vendor_site_rec.customer_num;
2282 p7_a3 := ddp_vendor_site_rec.ship_to_location_id;
2283 p7_a4 := ddp_vendor_site_rec.bill_to_location_id;
2284 p7_a5 := ddp_vendor_site_rec.ship_via_lookup_code;
2285 p7_a6 := ddp_vendor_site_rec.freight_terms_lookup_code;
2286 p7_a7 := ddp_vendor_site_rec.fob_lookup_code;
2287 p7_a8 := ddp_vendor_site_rec.inactive_date;
2288 p7_a9 := ddp_vendor_site_rec.fax;
2289 p7_a10 := ddp_vendor_site_rec.fax_area_code;
2290 p7_a11 := ddp_vendor_site_rec.telex;
2291 p7_a12 := ddp_vendor_site_rec.terms_date_basis;
2292 p7_a13 := ddp_vendor_site_rec.distribution_set_id;
2293 p7_a14 := ddp_vendor_site_rec.accts_pay_code_combination_id;
2294 p7_a15 := ddp_vendor_site_rec.prepay_code_combination_id;
2295 p7_a16 := ddp_vendor_site_rec.pay_group_lookup_code;
2296 p7_a17 := ddp_vendor_site_rec.payment_priority;
2297 p7_a18 := ddp_vendor_site_rec.terms_id;
2298 p7_a19 := ddp_vendor_site_rec.invoice_amount_limit;
2299 p7_a20 := ddp_vendor_site_rec.pay_date_basis_lookup_code;
2300 p7_a21 := ddp_vendor_site_rec.always_take_disc_flag;
2301 p7_a22 := ddp_vendor_site_rec.invoice_currency_code;
2302 p7_a23 := ddp_vendor_site_rec.payment_currency_code;
2303 p7_a24 := ddp_vendor_site_rec.vendor_site_id;
2304 p7_a25 := ddp_vendor_site_rec.last_update_date;
2305 p7_a26 := ddp_vendor_site_rec.last_updated_by;
2306 p7_a27 := ddp_vendor_site_rec.vendor_id;
2307 p7_a28 := ddp_vendor_site_rec.vendor_site_code;
2308 p7_a29 := ddp_vendor_site_rec.vendor_site_code_alt;
2309 p7_a30 := ddp_vendor_site_rec.purchasing_site_flag;
2310 p7_a31 := ddp_vendor_site_rec.rfq_only_site_flag;
2311 p7_a32 := ddp_vendor_site_rec.pay_site_flag;
2312 p7_a33 := ddp_vendor_site_rec.attention_ar_flag;
2313 p7_a34 := ddp_vendor_site_rec.hold_all_payments_flag;
2314 p7_a35 := ddp_vendor_site_rec.hold_future_payments_flag;
2315 p7_a36 := ddp_vendor_site_rec.hold_reason;
2316 p7_a37 := ddp_vendor_site_rec.hold_unmatched_invoices_flag;
2317 p7_a38 := ddp_vendor_site_rec.tax_reporting_site_flag;
2318 p7_a39 := ddp_vendor_site_rec.attribute_category;
2319 p7_a40 := ddp_vendor_site_rec.attribute1;
2320 p7_a41 := ddp_vendor_site_rec.attribute2;
2321 p7_a42 := ddp_vendor_site_rec.attribute3;
2322 p7_a43 := ddp_vendor_site_rec.attribute4;
2323 p7_a44 := ddp_vendor_site_rec.attribute5;
2324 p7_a45 := ddp_vendor_site_rec.attribute6;
2325 p7_a46 := ddp_vendor_site_rec.attribute7;
2326 p7_a47 := ddp_vendor_site_rec.attribute8;
2327 p7_a48 := ddp_vendor_site_rec.attribute9;
2328 p7_a49 := ddp_vendor_site_rec.attribute10;
2329 p7_a50 := ddp_vendor_site_rec.attribute11;
2330 p7_a51 := ddp_vendor_site_rec.attribute12;
2331 p7_a52 := ddp_vendor_site_rec.attribute13;
2332 p7_a53 := ddp_vendor_site_rec.attribute14;
2333 p7_a54 := ddp_vendor_site_rec.attribute15;
2334 p7_a55 := ddp_vendor_site_rec.validation_number;
2335 p7_a56 := ddp_vendor_site_rec.exclude_freight_from_discount;
2336 p7_a57 := ddp_vendor_site_rec.bank_charge_bearer;
2337 p7_a58 := ddp_vendor_site_rec.org_id;
2338 p7_a59 := ddp_vendor_site_rec.check_digits;
2339 p7_a60 := ddp_vendor_site_rec.allow_awt_flag;
2340 p7_a61 := ddp_vendor_site_rec.awt_group_id;
2341 p7_a62 := ddp_vendor_site_rec.default_pay_site_id;
2342 p7_a63 := ddp_vendor_site_rec.pay_on_code;
2343 p7_a64 := ddp_vendor_site_rec.pay_on_receipt_summary_code;
2344 p7_a65 := ddp_vendor_site_rec.global_attribute_category;
2345 p7_a66 := ddp_vendor_site_rec.global_attribute1;
2346 p7_a67 := ddp_vendor_site_rec.global_attribute2;
2347 p7_a68 := ddp_vendor_site_rec.global_attribute3;
2348 p7_a69 := ddp_vendor_site_rec.global_attribute4;
2349 p7_a70 := ddp_vendor_site_rec.global_attribute5;
2350 p7_a71 := ddp_vendor_site_rec.global_attribute6;
2351 p7_a72 := ddp_vendor_site_rec.global_attribute7;
2352 p7_a73 := ddp_vendor_site_rec.global_attribute8;
2353 p7_a74 := ddp_vendor_site_rec.global_attribute9;
2357 p7_a78 := ddp_vendor_site_rec.global_attribute13;
2354 p7_a75 := ddp_vendor_site_rec.global_attribute10;
2355 p7_a76 := ddp_vendor_site_rec.global_attribute11;
2356 p7_a77 := ddp_vendor_site_rec.global_attribute12;
2358 p7_a79 := ddp_vendor_site_rec.global_attribute14;
2359 p7_a80 := ddp_vendor_site_rec.global_attribute15;
2360 p7_a81 := ddp_vendor_site_rec.global_attribute16;
2361 p7_a82 := ddp_vendor_site_rec.global_attribute17;
2362 p7_a83 := ddp_vendor_site_rec.global_attribute18;
2363 p7_a84 := ddp_vendor_site_rec.global_attribute19;
2364 p7_a85 := ddp_vendor_site_rec.global_attribute20;
2365 p7_a86 := ddp_vendor_site_rec.tp_header_id;
2366 p7_a87 := ddp_vendor_site_rec.ece_tp_location_code;
2367 p7_a88 := ddp_vendor_site_rec.pcard_site_flag;
2368 p7_a89 := ddp_vendor_site_rec.match_option;
2369 p7_a90 := ddp_vendor_site_rec.country_of_origin_code;
2370 p7_a91 := ddp_vendor_site_rec.future_dated_payment_ccid;
2371 p7_a92 := ddp_vendor_site_rec.create_debit_memo_flag;
2372 p7_a93 := ddp_vendor_site_rec.supplier_notif_method;
2373 p7_a94 := ddp_vendor_site_rec.email_address;
2374 p7_a95 := ddp_vendor_site_rec.primary_pay_site_flag;
2375 p7_a96 := ddp_vendor_site_rec.shipping_control;
2376 p7_a97 := ddp_vendor_site_rec.selling_company_identifier;
2377 p7_a98 := ddp_vendor_site_rec.gapless_inv_num_flag;
2378 p7_a99 := ddp_vendor_site_rec.location_id;
2379 p7_a100 := ddp_vendor_site_rec.party_site_id;
2380 p7_a101 := ddp_vendor_site_rec.org_name;
2381 p7_a102 := ddp_vendor_site_rec.duns_number;
2382 p7_a103 := ddp_vendor_site_rec.address_style;
2383 p7_a104 := ddp_vendor_site_rec.language;
2384 p7_a105 := ddp_vendor_site_rec.province;
2385 p7_a106 := ddp_vendor_site_rec.country;
2386 p7_a107 := ddp_vendor_site_rec.address_line1;
2387 p7_a108 := ddp_vendor_site_rec.address_line2;
2388 p7_a109 := ddp_vendor_site_rec.address_line3;
2389 p7_a110 := ddp_vendor_site_rec.address_line4;
2390 p7_a111 := ddp_vendor_site_rec.address_lines_alt;
2391 p7_a112 := ddp_vendor_site_rec.county;
2392 p7_a113 := ddp_vendor_site_rec.city;
2393 p7_a114 := ddp_vendor_site_rec.state;
2394 p7_a115 := ddp_vendor_site_rec.zip;
2395 p7_a116 := ddp_vendor_site_rec.terms_name;
2396 p7_a117 := ddp_vendor_site_rec.default_terms_id;
2397 p7_a118 := ddp_vendor_site_rec.awt_group_name;
2398 p7_a119 := ddp_vendor_site_rec.distribution_set_name;
2399 p7_a120 := ddp_vendor_site_rec.ship_to_location_code;
2400 p7_a121 := ddp_vendor_site_rec.bill_to_location_code;
2401 p7_a122 := ddp_vendor_site_rec.default_dist_set_id;
2402 p7_a123 := ddp_vendor_site_rec.default_ship_to_loc_id;
2403 p7_a124 := ddp_vendor_site_rec.default_bill_to_loc_id;
2404 p7_a125 := ddp_vendor_site_rec.tolerance_id;
2405 p7_a126 := ddp_vendor_site_rec.tolerance_name;
2406 p7_a127 := ddp_vendor_site_rec.vendor_interface_id;
2407 p7_a128 := ddp_vendor_site_rec.vendor_site_interface_id;
2408 p7_a129 := ddp_vendor_site_rec.ext_payee_rec.payee_party_id;
2409 p7_a130 := ddp_vendor_site_rec.ext_payee_rec.payment_function;
2410 p7_a131 := ddp_vendor_site_rec.ext_payee_rec.exclusive_pay_flag;
2411 p7_a132 := ddp_vendor_site_rec.ext_payee_rec.payee_party_site_id;
2412 p7_a133 := ddp_vendor_site_rec.ext_payee_rec.supplier_site_id;
2413 p7_a134 := ddp_vendor_site_rec.ext_payee_rec.payer_org_id;
2414 p7_a135 := ddp_vendor_site_rec.ext_payee_rec.payer_org_type;
2415 p7_a136 := ddp_vendor_site_rec.ext_payee_rec.default_pmt_method;
2416 p7_a137 := ddp_vendor_site_rec.ext_payee_rec.ece_tp_loc_code;
2417 p7_a138 := ddp_vendor_site_rec.ext_payee_rec.bank_charge_bearer;
2418 p7_a139 := ddp_vendor_site_rec.ext_payee_rec.bank_instr1_code;
2419 p7_a140 := ddp_vendor_site_rec.ext_payee_rec.bank_instr2_code;
2420 p7_a141 := ddp_vendor_site_rec.ext_payee_rec.bank_instr_detail;
2421 p7_a142 := ddp_vendor_site_rec.ext_payee_rec.pay_reason_code;
2422 p7_a143 := ddp_vendor_site_rec.ext_payee_rec.pay_reason_com;
2423 p7_a144 := ddp_vendor_site_rec.ext_payee_rec.inactive_date;
2424 p7_a145 := ddp_vendor_site_rec.ext_payee_rec.pay_message1;
2425 p7_a146 := ddp_vendor_site_rec.ext_payee_rec.pay_message2;
2426 p7_a147 := ddp_vendor_site_rec.ext_payee_rec.pay_message3;
2427 p7_a148 := ddp_vendor_site_rec.ext_payee_rec.delivery_channel;
2428 p7_a149 := ddp_vendor_site_rec.ext_payee_rec.pmt_format;
2429 p7_a150 := ddp_vendor_site_rec.ext_payee_rec.settlement_priority;
2430 p7_a151 := ddp_vendor_site_rec.retainage_rate;
2431 p7_a152 := ddp_vendor_site_rec.services_tolerance_id;
2432 p7_a153 := ddp_vendor_site_rec.services_tolerance_name;
2433 p7_a154 := ddp_vendor_site_rec.shipping_location_id;
2434
2435
2436
2437
2438
2439
2440 end;
2441
2442 procedure create_vendor_contact(p_api_version NUMBER
2443 , p_init_msg_list VARCHAR2
2444 , p_commit VARCHAR2
2445 , p_validation_level NUMBER
2446 , x_return_status out nocopy VARCHAR2
2447 , x_msg_count out nocopy NUMBER
2448 , x_msg_data out nocopy VARCHAR2
2449 , p7_a0 NUMBER
2450 , p7_a1 NUMBER
2451 , p7_a2 NUMBER
2452 , p7_a3 NUMBER
2453 , p7_a4 NUMBER
2454 , p7_a5 NUMBER
2455 , p7_a6 NUMBER
2456 , p7_a7 NUMBER
2457 , p7_a8 NUMBER
2458 , p7_a9 VARCHAR2
2459 , p7_a10 VARCHAR2
2460 , p7_a11 VARCHAR2
2461 , p7_a12 VARCHAR2
2462 , p7_a13 VARCHAR2
2463 , p7_a14 VARCHAR2
2464 , p7_a15 VARCHAR2
2465 , p7_a16 VARCHAR2
2466 , p7_a17 VARCHAR2
2467 , p7_a18 VARCHAR2
2468 , p7_a19 VARCHAR2
2469 , p7_a20 VARCHAR2
2470 , p7_a21 VARCHAR2
2471 , p7_a22 VARCHAR2
2472 , p7_a23 VARCHAR2
2473 , p7_a24 VARCHAR2
2477 , p7_a28 VARCHAR2
2474 , p7_a25 VARCHAR2
2475 , p7_a26 VARCHAR2
2476 , p7_a27 VARCHAR2
2478 , p7_a29 VARCHAR2
2479 , p7_a30 VARCHAR2
2480 , p7_a31 DATE
2481 , p7_a32 VARCHAR2
2482 , p7_a33 VARCHAR2
2483 , p7_a34 VARCHAR2
2484 , p7_a35 VARCHAR2
2485 , p7_a36 VARCHAR2
2486 , p7_a37 VARCHAR2
2487 , p7_a38 VARCHAR2
2488 , p7_a39 VARCHAR2
2489 , p7_a40 VARCHAR2
2490 , p7_a41 VARCHAR2
2491 , p7_a42 VARCHAR2
2492 , p7_a43 NUMBER
2493 , p7_a44 NUMBER
2494 , p7_a45 VARCHAR2
2495 , p7_a46 NUMBER
2496 , p7_a47 VARCHAR2
2497 , p7_a48 VARCHAR2
2498 , p7_a49 VARCHAR2
2499 , x_vendor_contact_id out nocopy NUMBER
2500 , x_per_party_id out nocopy NUMBER
2501 , x_rel_party_id out nocopy NUMBER
2502 , x_rel_id out nocopy NUMBER
2503 , x_org_contact_id out nocopy NUMBER
2504 , x_party_site_id out nocopy NUMBER
2505 )
2506
2507 as
2508 ddp_vendor_contact_rec ap_vendor_pub_pkg.r_vendor_contact_rec_type;
2509 ddindx binary_integer; indx binary_integer;
2510 begin
2511
2512 -- copy data to the local IN or IN-OUT args, if any
2513
2514
2515
2516
2517
2518
2519
2520 ddp_vendor_contact_rec.vendor_contact_id := p7_a0;
2521 ddp_vendor_contact_rec.vendor_site_id := p7_a1;
2522 ddp_vendor_contact_rec.vendor_id := p7_a2;
2523 ddp_vendor_contact_rec.per_party_id := p7_a3;
2524 ddp_vendor_contact_rec.relationship_id := p7_a4;
2525 ddp_vendor_contact_rec.rel_party_id := p7_a5;
2526 ddp_vendor_contact_rec.party_site_id := p7_a6;
2527 ddp_vendor_contact_rec.org_contact_id := p7_a7;
2528 ddp_vendor_contact_rec.org_party_site_id := p7_a8;
2529 ddp_vendor_contact_rec.person_first_name := p7_a9;
2530 ddp_vendor_contact_rec.person_middle_name := p7_a10;
2531 ddp_vendor_contact_rec.person_last_name := p7_a11;
2532 ddp_vendor_contact_rec.person_title := p7_a12;
2533 ddp_vendor_contact_rec.organization_name_phonetic := p7_a13;
2534 ddp_vendor_contact_rec.person_first_name_phonetic := p7_a14;
2535 ddp_vendor_contact_rec.person_last_name_phonetic := p7_a15;
2536 ddp_vendor_contact_rec.attribute1 := p7_a16;
2537 ddp_vendor_contact_rec.attribute2 := p7_a17;
2538 ddp_vendor_contact_rec.attribute3 := p7_a18;
2539 ddp_vendor_contact_rec.attribute4 := p7_a19;
2540 ddp_vendor_contact_rec.attribute5 := p7_a20;
2541 ddp_vendor_contact_rec.attribute6 := p7_a21;
2542 ddp_vendor_contact_rec.attribute7 := p7_a22;
2543 ddp_vendor_contact_rec.attribute8 := p7_a23;
2544 ddp_vendor_contact_rec.attribute9 := p7_a24;
2545 ddp_vendor_contact_rec.attribute10 := p7_a25;
2546 ddp_vendor_contact_rec.attribute11 := p7_a26;
2547 ddp_vendor_contact_rec.attribute12 := p7_a27;
2548 ddp_vendor_contact_rec.attribute13 := p7_a28;
2549 ddp_vendor_contact_rec.attribute14 := p7_a29;
2550 ddp_vendor_contact_rec.attribute15 := p7_a30;
2551 ddp_vendor_contact_rec.inactive_date := rosetta_g_miss_date_in_map(p7_a31);
2552 ddp_vendor_contact_rec.party_number := p7_a32;
2553 ddp_vendor_contact_rec.department := p7_a33;
2554 ddp_vendor_contact_rec.mail_stop := p7_a34;
2555 ddp_vendor_contact_rec.area_code := p7_a35;
2556 ddp_vendor_contact_rec.phone := p7_a36;
2557 ddp_vendor_contact_rec.alt_area_code := p7_a37;
2558 ddp_vendor_contact_rec.alt_phone := p7_a38;
2559 ddp_vendor_contact_rec.fax_area_code := p7_a39;
2560 ddp_vendor_contact_rec.fax_phone := p7_a40;
2561 ddp_vendor_contact_rec.email_address := p7_a41;
2562 ddp_vendor_contact_rec.url := p7_a42;
2563 ddp_vendor_contact_rec.vendor_contact_interface_id := p7_a43;
2564 ddp_vendor_contact_rec.vendor_interface_id := p7_a44;
2565 ddp_vendor_contact_rec.vendor_site_code := p7_a45;
2566 ddp_vendor_contact_rec.org_id := p7_a46;
2567 ddp_vendor_contact_rec.operating_unit_name := p7_a47;
2568 ddp_vendor_contact_rec.prefix := p7_a48;
2569 ddp_vendor_contact_rec.contact_name_phonetic := p7_a49;
2570
2571
2572
2573
2574
2575
2576
2577 -- here's the delegated call to the old PL/SQL routine
2578 ap_vendor_pub_pkg.create_vendor_contact(p_api_version,
2579 p_init_msg_list,
2580 p_commit,
2581 p_validation_level,
2582 x_return_status,
2583 x_msg_count,
2584 x_msg_data,
2585 ddp_vendor_contact_rec,
2586 x_vendor_contact_id,
2587 x_per_party_id,
2588 x_rel_party_id,
2589 x_rel_id,
2590 x_org_contact_id,
2591 x_party_site_id);
2592
2593 -- copy data back from the local variables to OUT or IN-OUT args, if any
2594
2595
2596
2597
2598
2599
2600
2601
2602
2603
2604
2605
2606
2607 end;
2608
2609 procedure update_vendor_contact(p_api_version NUMBER
2610 , p_init_msg_list VARCHAR2
2611 , p_commit VARCHAR2
2612 , p_validation_level NUMBER
2613 , p4_a0 NUMBER
2614 , p4_a1 NUMBER
2615 , p4_a2 NUMBER
2616 , p4_a3 NUMBER
2617 , p4_a4 NUMBER
2618 , p4_a5 NUMBER
2619 , p4_a6 NUMBER
2620 , p4_a7 NUMBER
2621 , p4_a8 NUMBER
2622 , p4_a9 VARCHAR2
2623 , p4_a10 VARCHAR2
2624 , p4_a11 VARCHAR2
2625 , p4_a12 VARCHAR2
2626 , p4_a13 VARCHAR2
2627 , p4_a14 VARCHAR2
2628 , p4_a15 VARCHAR2
2629 , p4_a16 VARCHAR2
2630 , p4_a17 VARCHAR2
2631 , p4_a18 VARCHAR2
2632 , p4_a19 VARCHAR2
2633 , p4_a20 VARCHAR2
2634 , p4_a21 VARCHAR2
2635 , p4_a22 VARCHAR2
2636 , p4_a23 VARCHAR2
2640 , p4_a27 VARCHAR2
2637 , p4_a24 VARCHAR2
2638 , p4_a25 VARCHAR2
2639 , p4_a26 VARCHAR2
2641 , p4_a28 VARCHAR2
2642 , p4_a29 VARCHAR2
2643 , p4_a30 VARCHAR2
2644 , p4_a31 DATE
2645 , p4_a32 VARCHAR2
2646 , p4_a33 VARCHAR2
2647 , p4_a34 VARCHAR2
2648 , p4_a35 VARCHAR2
2649 , p4_a36 VARCHAR2
2650 , p4_a37 VARCHAR2
2651 , p4_a38 VARCHAR2
2652 , p4_a39 VARCHAR2
2653 , p4_a40 VARCHAR2
2654 , p4_a41 VARCHAR2
2655 , p4_a42 VARCHAR2
2656 , p4_a43 NUMBER
2657 , p4_a44 NUMBER
2658 , p4_a45 VARCHAR2
2659 , p4_a46 NUMBER
2660 , p4_a47 VARCHAR2
2661 , p4_a48 VARCHAR2
2662 , p4_a49 VARCHAR2
2663 , x_return_status out nocopy VARCHAR2
2664 , x_msg_count out nocopy NUMBER
2665 , x_msg_data out nocopy VARCHAR2
2666 )
2667
2668 as
2669 ddp_vendor_contact_rec ap_vendor_pub_pkg.r_vendor_contact_rec_type;
2670 ddindx binary_integer; indx binary_integer;
2671 begin
2672
2673 -- copy data to the local IN or IN-OUT args, if any
2674
2675
2676
2677
2678 ddp_vendor_contact_rec.vendor_contact_id := p4_a0;
2679 ddp_vendor_contact_rec.vendor_site_id := p4_a1;
2680 ddp_vendor_contact_rec.vendor_id := p4_a2;
2681 ddp_vendor_contact_rec.per_party_id := p4_a3;
2682 ddp_vendor_contact_rec.relationship_id := p4_a4;
2683 ddp_vendor_contact_rec.rel_party_id := p4_a5;
2684 ddp_vendor_contact_rec.party_site_id := p4_a6;
2685 ddp_vendor_contact_rec.org_contact_id := p4_a7;
2686 ddp_vendor_contact_rec.org_party_site_id := p4_a8;
2687 ddp_vendor_contact_rec.person_first_name := p4_a9;
2688 ddp_vendor_contact_rec.person_middle_name := p4_a10;
2689 ddp_vendor_contact_rec.person_last_name := p4_a11;
2690 ddp_vendor_contact_rec.person_title := p4_a12;
2691 ddp_vendor_contact_rec.organization_name_phonetic := p4_a13;
2692 ddp_vendor_contact_rec.person_first_name_phonetic := p4_a14;
2693 ddp_vendor_contact_rec.person_last_name_phonetic := p4_a15;
2694 ddp_vendor_contact_rec.attribute1 := p4_a16;
2695 ddp_vendor_contact_rec.attribute2 := p4_a17;
2696 ddp_vendor_contact_rec.attribute3 := p4_a18;
2697 ddp_vendor_contact_rec.attribute4 := p4_a19;
2698 ddp_vendor_contact_rec.attribute5 := p4_a20;
2699 ddp_vendor_contact_rec.attribute6 := p4_a21;
2700 ddp_vendor_contact_rec.attribute7 := p4_a22;
2701 ddp_vendor_contact_rec.attribute8 := p4_a23;
2702 ddp_vendor_contact_rec.attribute9 := p4_a24;
2703 ddp_vendor_contact_rec.attribute10 := p4_a25;
2704 ddp_vendor_contact_rec.attribute11 := p4_a26;
2705 ddp_vendor_contact_rec.attribute12 := p4_a27;
2706 ddp_vendor_contact_rec.attribute13 := p4_a28;
2707 ddp_vendor_contact_rec.attribute14 := p4_a29;
2708 ddp_vendor_contact_rec.attribute15 := p4_a30;
2709 ddp_vendor_contact_rec.inactive_date := rosetta_g_miss_date_in_map(p4_a31);
2710 ddp_vendor_contact_rec.party_number := p4_a32;
2711 ddp_vendor_contact_rec.department := p4_a33;
2712 ddp_vendor_contact_rec.mail_stop := p4_a34;
2713 ddp_vendor_contact_rec.area_code := p4_a35;
2714 ddp_vendor_contact_rec.phone := p4_a36;
2715 ddp_vendor_contact_rec.alt_area_code := p4_a37;
2719 ddp_vendor_contact_rec.email_address := p4_a41;
2716 ddp_vendor_contact_rec.alt_phone := p4_a38;
2717 ddp_vendor_contact_rec.fax_area_code := p4_a39;
2718 ddp_vendor_contact_rec.fax_phone := p4_a40;
2720 ddp_vendor_contact_rec.url := p4_a42;
2721 ddp_vendor_contact_rec.vendor_contact_interface_id := p4_a43;
2722 ddp_vendor_contact_rec.vendor_interface_id := p4_a44;
2723 ddp_vendor_contact_rec.vendor_site_code := p4_a45;
2724 ddp_vendor_contact_rec.org_id := p4_a46;
2725 ddp_vendor_contact_rec.operating_unit_name := p4_a47;
2726 ddp_vendor_contact_rec.prefix := p4_a48;
2727 ddp_vendor_contact_rec.contact_name_phonetic := p4_a49;
2728
2729
2730
2731
2732 -- here's the delegated call to the old PL/SQL routine
2733 ap_vendor_pub_pkg.update_vendor_contact(p_api_version,
2734 p_init_msg_list,
2735 p_commit,
2736 p_validation_level,
2737 ddp_vendor_contact_rec,
2738 x_return_status,
2739 x_msg_count,
2740 x_msg_data);
2741
2742 -- copy data back from the local variables to OUT or IN-OUT args, if any
2743
2744
2745
2746
2747
2748
2749
2750 end;
2751
2752 procedure validate_vendor_contact(p_api_version NUMBER
2753 , p_init_msg_list VARCHAR2
2754 , p_commit VARCHAR2
2755 , p_validation_level NUMBER
2756 , x_return_status out nocopy VARCHAR2
2757 , x_msg_count out nocopy NUMBER
2758 , x_msg_data out nocopy VARCHAR2
2759 , p7_a0 in out nocopy NUMBER
2760 , p7_a1 in out nocopy NUMBER
2761 , p7_a2 in out nocopy NUMBER
2762 , p7_a3 in out nocopy NUMBER
2763 , p7_a4 in out nocopy NUMBER
2764 , p7_a5 in out nocopy NUMBER
2765 , p7_a6 in out nocopy NUMBER
2766 , p7_a7 in out nocopy NUMBER
2767 , p7_a8 in out nocopy NUMBER
2768 , p7_a9 in out nocopy VARCHAR2
2769 , p7_a10 in out nocopy VARCHAR2
2770 , p7_a11 in out nocopy VARCHAR2
2771 , p7_a12 in out nocopy VARCHAR2
2772 , p7_a13 in out nocopy VARCHAR2
2773 , p7_a14 in out nocopy VARCHAR2
2774 , p7_a15 in out nocopy VARCHAR2
2775 , p7_a16 in out nocopy VARCHAR2
2776 , p7_a17 in out nocopy VARCHAR2
2777 , p7_a18 in out nocopy VARCHAR2
2778 , p7_a19 in out nocopy VARCHAR2
2779 , p7_a20 in out nocopy VARCHAR2
2780 , p7_a21 in out nocopy VARCHAR2
2781 , p7_a22 in out nocopy VARCHAR2
2782 , p7_a23 in out nocopy VARCHAR2
2783 , p7_a24 in out nocopy VARCHAR2
2784 , p7_a25 in out nocopy VARCHAR2
2785 , p7_a26 in out nocopy VARCHAR2
2786 , p7_a27 in out nocopy VARCHAR2
2787 , p7_a28 in out nocopy VARCHAR2
2788 , p7_a29 in out nocopy VARCHAR2
2789 , p7_a30 in out nocopy VARCHAR2
2790 , p7_a31 in out nocopy DATE
2791 , p7_a32 in out nocopy VARCHAR2
2792 , p7_a33 in out nocopy VARCHAR2
2793 , p7_a34 in out nocopy VARCHAR2
2794 , p7_a35 in out nocopy VARCHAR2
2795 , p7_a36 in out nocopy VARCHAR2
2796 , p7_a37 in out nocopy VARCHAR2
2797 , p7_a38 in out nocopy VARCHAR2
2798 , p7_a39 in out nocopy VARCHAR2
2799 , p7_a40 in out nocopy VARCHAR2
2800 , p7_a41 in out nocopy VARCHAR2
2801 , p7_a42 in out nocopy VARCHAR2
2802 , p7_a43 in out nocopy NUMBER
2803 , p7_a44 in out nocopy NUMBER
2804 , p7_a45 in out nocopy VARCHAR2
2805 , p7_a46 in out nocopy NUMBER
2806 , p7_a47 in out nocopy VARCHAR2
2807 , p7_a48 in out nocopy VARCHAR2
2808 , p7_a49 in out nocopy VARCHAR2
2809 , x_rel_party_valid out nocopy VARCHAR2
2810 , x_per_party_valid out nocopy VARCHAR2
2811 , x_rel_valid out nocopy VARCHAR2
2812 , x_org_party_id out nocopy NUMBER
2813 , x_org_contact_valid out nocopy VARCHAR2
2814 , x_location_id out nocopy NUMBER
2815 , x_party_site_valid out nocopy VARCHAR2
2816 )
2817
2818 as
2819 ddp_vendor_contact_rec ap_vendor_pub_pkg.r_vendor_contact_rec_type;
2820 ddindx binary_integer; indx binary_integer;
2821 begin
2822
2823 -- copy data to the local IN or IN-OUT args, if any
2824
2825
2826
2827
2828
2829
2830
2831 ddp_vendor_contact_rec.vendor_contact_id := p7_a0;
2832 ddp_vendor_contact_rec.vendor_site_id := p7_a1;
2833 ddp_vendor_contact_rec.vendor_id := p7_a2;
2834 ddp_vendor_contact_rec.per_party_id := p7_a3;
2835 ddp_vendor_contact_rec.relationship_id := p7_a4;
2836 ddp_vendor_contact_rec.rel_party_id := p7_a5;
2837 ddp_vendor_contact_rec.party_site_id := p7_a6;
2838 ddp_vendor_contact_rec.org_contact_id := p7_a7;
2842 ddp_vendor_contact_rec.person_last_name := p7_a11;
2839 ddp_vendor_contact_rec.org_party_site_id := p7_a8;
2840 ddp_vendor_contact_rec.person_first_name := p7_a9;
2841 ddp_vendor_contact_rec.person_middle_name := p7_a10;
2843 ddp_vendor_contact_rec.person_title := p7_a12;
2844 ddp_vendor_contact_rec.organization_name_phonetic := p7_a13;
2845 ddp_vendor_contact_rec.person_first_name_phonetic := p7_a14;
2846 ddp_vendor_contact_rec.person_last_name_phonetic := p7_a15;
2847 ddp_vendor_contact_rec.attribute1 := p7_a16;
2848 ddp_vendor_contact_rec.attribute2 := p7_a17;
2849 ddp_vendor_contact_rec.attribute3 := p7_a18;
2850 ddp_vendor_contact_rec.attribute4 := p7_a19;
2851 ddp_vendor_contact_rec.attribute5 := p7_a20;
2852 ddp_vendor_contact_rec.attribute6 := p7_a21;
2853 ddp_vendor_contact_rec.attribute7 := p7_a22;
2854 ddp_vendor_contact_rec.attribute8 := p7_a23;
2855 ddp_vendor_contact_rec.attribute9 := p7_a24;
2856 ddp_vendor_contact_rec.attribute10 := p7_a25;
2857 ddp_vendor_contact_rec.attribute11 := p7_a26;
2858 ddp_vendor_contact_rec.attribute12 := p7_a27;
2859 ddp_vendor_contact_rec.attribute13 := p7_a28;
2860 ddp_vendor_contact_rec.attribute14 := p7_a29;
2861 ddp_vendor_contact_rec.attribute15 := p7_a30;
2862 ddp_vendor_contact_rec.inactive_date := rosetta_g_miss_date_in_map(p7_a31);
2863 ddp_vendor_contact_rec.party_number := p7_a32;
2864 ddp_vendor_contact_rec.department := p7_a33;
2865 ddp_vendor_contact_rec.mail_stop := p7_a34;
2866 ddp_vendor_contact_rec.area_code := p7_a35;
2867 ddp_vendor_contact_rec.phone := p7_a36;
2868 ddp_vendor_contact_rec.alt_area_code := p7_a37;
2869 ddp_vendor_contact_rec.alt_phone := p7_a38;
2870 ddp_vendor_contact_rec.fax_area_code := p7_a39;
2871 ddp_vendor_contact_rec.fax_phone := p7_a40;
2872 ddp_vendor_contact_rec.email_address := p7_a41;
2873 ddp_vendor_contact_rec.url := p7_a42;
2874 ddp_vendor_contact_rec.vendor_contact_interface_id := p7_a43;
2875 ddp_vendor_contact_rec.vendor_interface_id := p7_a44;
2876 ddp_vendor_contact_rec.vendor_site_code := p7_a45;
2877 ddp_vendor_contact_rec.org_id := p7_a46;
2878 ddp_vendor_contact_rec.operating_unit_name := p7_a47;
2879 ddp_vendor_contact_rec.prefix := p7_a48;
2880 ddp_vendor_contact_rec.contact_name_phonetic := p7_a49;
2881
2882
2883
2884
2885
2886
2887
2888
2889 -- here's the delegated call to the old PL/SQL routine
2890 ap_vendor_pub_pkg.validate_vendor_contact(p_api_version,
2891 p_init_msg_list,
2892 p_commit,
2893 p_validation_level,
2894 x_return_status,
2895 x_msg_count,
2896 x_msg_data,
2897 ddp_vendor_contact_rec,
2898 x_rel_party_valid,
2899 x_per_party_valid,
2900 x_rel_valid,
2901 x_org_party_id,
2902 x_org_contact_valid,
2903 x_location_id,
2904 x_party_site_valid);
2905
2906 -- copy data back from the local variables to OUT or IN-OUT args, if any
2907
2908
2909
2910
2911
2912
2913
2914 p7_a0 := ddp_vendor_contact_rec.vendor_contact_id;
2915 p7_a1 := ddp_vendor_contact_rec.vendor_site_id;
2916 p7_a2 := ddp_vendor_contact_rec.vendor_id;
2917 p7_a3 := ddp_vendor_contact_rec.per_party_id;
2918 p7_a4 := ddp_vendor_contact_rec.relationship_id;
2919 p7_a5 := ddp_vendor_contact_rec.rel_party_id;
2920 p7_a6 := ddp_vendor_contact_rec.party_site_id;
2921 p7_a7 := ddp_vendor_contact_rec.org_contact_id;
2922 p7_a8 := ddp_vendor_contact_rec.org_party_site_id;
2923 p7_a9 := ddp_vendor_contact_rec.person_first_name;
2924 p7_a10 := ddp_vendor_contact_rec.person_middle_name;
2925 p7_a11 := ddp_vendor_contact_rec.person_last_name;
2926 p7_a12 := ddp_vendor_contact_rec.person_title;
2927 p7_a13 := ddp_vendor_contact_rec.organization_name_phonetic;
2928 p7_a14 := ddp_vendor_contact_rec.person_first_name_phonetic;
2929 p7_a15 := ddp_vendor_contact_rec.person_last_name_phonetic;
2930 p7_a16 := ddp_vendor_contact_rec.attribute1;
2931 p7_a17 := ddp_vendor_contact_rec.attribute2;
2932 p7_a18 := ddp_vendor_contact_rec.attribute3;
2933 p7_a19 := ddp_vendor_contact_rec.attribute4;
2934 p7_a20 := ddp_vendor_contact_rec.attribute5;
2935 p7_a21 := ddp_vendor_contact_rec.attribute6;
2936 p7_a22 := ddp_vendor_contact_rec.attribute7;
2937 p7_a23 := ddp_vendor_contact_rec.attribute8;
2938 p7_a24 := ddp_vendor_contact_rec.attribute9;
2939 p7_a25 := ddp_vendor_contact_rec.attribute10;
2940 p7_a26 := ddp_vendor_contact_rec.attribute11;
2941 p7_a27 := ddp_vendor_contact_rec.attribute12;
2942 p7_a28 := ddp_vendor_contact_rec.attribute13;
2943 p7_a29 := ddp_vendor_contact_rec.attribute14;
2944 p7_a30 := ddp_vendor_contact_rec.attribute15;
2945 p7_a31 := ddp_vendor_contact_rec.inactive_date;
2946 p7_a32 := ddp_vendor_contact_rec.party_number;
2947 p7_a33 := ddp_vendor_contact_rec.department;
2948 p7_a34 := ddp_vendor_contact_rec.mail_stop;
2949 p7_a35 := ddp_vendor_contact_rec.area_code;
2950 p7_a36 := ddp_vendor_contact_rec.phone;
2951 p7_a37 := ddp_vendor_contact_rec.alt_area_code;
2952 p7_a38 := ddp_vendor_contact_rec.alt_phone;
2953 p7_a39 := ddp_vendor_contact_rec.fax_area_code;
2954 p7_a40 := ddp_vendor_contact_rec.fax_phone;
2955 p7_a41 := ddp_vendor_contact_rec.email_address;
2956 p7_a42 := ddp_vendor_contact_rec.url;
2957 p7_a43 := ddp_vendor_contact_rec.vendor_contact_interface_id;
2958 p7_a44 := ddp_vendor_contact_rec.vendor_interface_id;
2959 p7_a45 := ddp_vendor_contact_rec.vendor_site_code;
2960 p7_a46 := ddp_vendor_contact_rec.org_id;
2961 p7_a47 := ddp_vendor_contact_rec.operating_unit_name;
2962 p7_a48 := ddp_vendor_contact_rec.prefix;
2963 p7_a49 := ddp_vendor_contact_rec.contact_name_phonetic;
2964
2965
2966
2967
2968
2969
2970
2971 end;
2972
2973 end ap_vendor_pub_pkg_w;