[Home] [Help]
PACKAGE BODY: APPS.POS_AP_SUPPLIER_BO_PKG
Source
4 * Use this routine to get ap suplier
1 PACKAGE BODY pos_ap_supplier_bo_pkg AS
2 /* $Header: POSAPSPB.pls 120.1.12020000.3 2013/02/09 13:33:27 hvutukur ship $ */
3 /*#
5 * @param p_api_version The version of API
6 * @param p_init_msg_list The Initialization message list
7 * @param p_party_id The Party id
8 * @param p_orig_system The Orig System
9 * @param p_orig_system_reference The Orig System Ref
10 * @param x_ap_suplier_bo The Suppliers table
11 * @param x_return_status The return status
12 * @param x_msg_count The message count
13 * @param x_msg_data The message data
14 * @rep:scope public
15 * @rep:lifecycle active
16 * @rep:displayname Get Supplier
17 * @rep:catagory BUSSINESS_ENTITY AP_SUPPLIER
18 */
19 PROCEDURE get_ap_supplier_bo
20 (
21 p_api_version IN NUMBER DEFAULT NULL,
22 p_init_msg_list IN VARCHAR2 DEFAULT NULL,
23 p_party_id IN NUMBER,
24 p_orig_system IN VARCHAR2,
25 p_orig_system_reference IN VARCHAR2,
26 x_ap_suplier_bo OUT NOCOPY pos_ap_supplier_bo,
27 x_return_status OUT NOCOPY VARCHAR2,
28 x_msg_count OUT NOCOPY NUMBER,
29 x_msg_data OUT NOCOPY VARCHAR2
30 ) IS
31
32 l_pos_ap_supplier_bo pos_ap_supplier_bo;
33 -- l_pos_supplier_uda pos_supplier_uda_bo;
34 l_party_id NUMBER;
35 BEGIN
36 IF p_party_id IS NULL OR p_party_id = 0 THEN
37
38 l_party_id := pos_supplier_bo_dep_pkg.get_party_id(p_orig_system,
39 p_orig_system_reference);
40 ELSE
41 l_party_id := p_party_id;
42 END IF;
43 /* pos_supplier_uda_bo_pkg.get_uda_data(p_api_version,
44 p_init_msg_list,
45 p_party_id,
46 'SUPP_LEVEL',
50 x_msg_data);*/
47 l_pos_supplier_uda,
48 x_return_status,
49 x_msg_count,
51
52 SELECT pos_ap_supplier_bo(vendor_id,
53 last_update_date,
54 last_updated_by,
55 vendor_name,
56 vendor_name_alt,
57 segment1,
58 summary_flag,
59 enabled_flag,
60 segment2,
61 segment3,
62 segment4,
63 segment5,
64 last_update_login,
65 creation_date,
66 created_by,
67 employee_id,
68 vendor_type_lookup_code,
69 customer_num,
70 one_time_flag,
71 parent_vendor_id,
72 min_order_amount,
73 ship_to_location_id,
74 bill_to_location_id,
75 ship_via_lookup_code,
76 freight_terms_lookup_code,
77 fob_lookup_code,
78 terms_id,
79 set_of_books_id,
80 credit_status_lookup_code,
81 credit_limit,
82 always_take_disc_flag,
83 pay_date_basis_lookup_code,
84 pay_group_lookup_code,
85 payment_priority,
86 invoice_currency_code,
87 payment_currency_code,
88 invoice_amount_limit,
89 exchange_date_lookup_code,
90 hold_all_payments_flag,
91 hold_future_payments_flag,
92 hold_reason,
93 distribution_set_id,
94 accts_pay_code_combination_id,
95 disc_lost_code_combination_id,
96 disc_taken_code_combination_id,
97 expense_code_combination_id,
98 prepay_code_combination_id,
99 num_1099,
100 type_1099,
101 withholding_status_lookup_code,
102 withholding_start_date,
103 organization_type_lookup_code,
104 vat_code,
105 start_date_active,
106 end_date_active,
107 minority_group_lookup_code,
108 payment_method_lookup_code,
109 bank_account_name,
110 bank_account_num,
111 bank_num,
112 bank_account_type,
113 women_owned_flag,
114 small_business_flag,
115 -- Bug 9509201, 9535269
116 -- Added the decode funtion to avoid the ASCII 0 character present in the Standard industry class column for some suppliers,
117 -- as it is creating problems in the XML payload creation for SDH Generate Report and Publish Supplier functionality.
118 -- Bug 8246403 addressed this exact issue. The error is considered to be a correct behavior, but a DB level option can be set by alter session to encode invalid characters.
119 decode(standard_industry_class, chr(0), NULL, standard_industry_class),
120 hold_flag,
121 purchasing_hold_reason,
122 hold_by,
123 hold_date,
124 terms_date_basis,
125 price_tolerance,
126 inspection_required_flag,
127 receipt_required_flag,
128 qty_rcv_tolerance,
129 qty_rcv_exception_code,
130 enforce_ship_to_location_code,
131 days_early_receipt_allowed,
132 days_late_receipt_allowed,
133 receipt_days_exception_code,
134 receiving_routing_id,
135 allow_substitute_receipts_flag,
136 allow_unordered_receipts_flag,
137 hold_unmatched_invoices_flag,
138 exclusive_payment_flag,
139 ap_tax_rounding_rule,
140 auto_tax_calc_flag,
141 auto_tax_calc_override,
142 amount_includes_tax_flag,
143 tax_verification_date,
144 name_control,
145 state_reportable_flag,
146 federal_reportable_flag,
147 attribute_category,
148 attribute1,
149 attribute2,
150 attribute3,
151 attribute4,
152 attribute5,
156 attribute9,
153 attribute6,
154 attribute7,
155 attribute8,
157 attribute10,
158 attribute11,
159 attribute12,
160 attribute13,
161 attribute14,
162 attribute15,
163 request_id,
164 program_application_id,
165 program_id,
166 program_update_date,
167 offset_vat_code,
168 vat_registration_num,
169 auto_calculate_interest_flag,
170 validation_number,
171 exclude_freight_from_discount,
172 tax_reporting_name,
173 check_digits,
174 bank_number,
175 allow_awt_flag,
176 awt_group_id,
177 global_attribute1,
178 global_attribute2,
179 global_attribute3,
180 global_attribute4,
181 global_attribute5,
182 global_attribute6,
183 global_attribute7,
184 global_attribute8,
185 global_attribute9,
186 global_attribute10,
187 global_attribute11,
188 global_attribute12,
189 global_attribute13,
190 global_attribute14,
191 global_attribute15,
192 global_attribute16,
193 global_attribute17,
194 global_attribute18,
195 global_attribute19,
196 global_attribute20,
197 global_attribute_category,
198 edi_transaction_handling,
199 edi_payment_method,
200 edi_payment_format,
201 edi_remittance_method,
202 edi_remittance_instruction,
203 bank_charge_bearer,
204 bank_branch_type,
205 match_option,
206 future_dated_payment_ccid,
207 create_debit_memo_flag,
208 offset_tax_flag,
209 party_id,
210 parent_party_id,
211 -- nvl(ni_number, ' '),
212 tca_sync_num_1099,
213 tca_sync_vendor_name,
214 tca_sync_vat_reg_num,
215 individual_1099,
216 unique_tax_reference_num,
217 partnership_utr,
218 partnership_name,
219 cis_enabled_flag,
220 first_name,
221 second_name,
222 last_name,
223 salutation,
224 trading_name,
225 work_reference,
226 company_registration_number,
227 national_insurance_number,
228 verification_number,
229 verification_request_id,
230 match_status_flag,
231 cis_verification_date,
232 pay_awt_group_id,
233 cis_parent_vendor_id,
234 NULL,
235 pos_supplier_uda_bo_pkg.get_uda_for_supplier_site(l_party_id,
236 NULL,
237 NULL,
238 'SUPP_LEVEL'))
239 INTO l_pos_ap_supplier_bo
240 FROM ap_suppliers
241 WHERE party_id = l_party_id;
242 x_ap_suplier_bo := l_pos_ap_supplier_bo;
243 x_ap_suplier_bo.p_pos_supp_uda_obj_tbl := pos_supplier_uda_bo_pkg.get_uda_for_supplier_site(l_party_id,
244 NULL,
245 NULL,
246 'SUPP_LEVEL');
247 EXCEPTION
248 WHEN fnd_api.g_exc_error THEN
249 x_return_status := fnd_api.g_ret_sts_error;
250 x_msg_count := 1;
251 x_msg_data := SQLCODE || SQLERRM;
252 WHEN fnd_api.g_exc_unexpected_error THEN
253 x_return_status := fnd_api.g_ret_sts_unexp_error;
254 x_msg_count := 1;
255 x_msg_data := SQLCODE || SQLERRM;
256 WHEN OTHERS THEN
257 x_return_status := fnd_api.g_ret_sts_unexp_error;
258 x_msg_count := 1;
259 x_msg_data := SQLCODE || SQLERRM;
260 END get_ap_supplier_bo;
261
262 /* Added to create HZ orig reference */
266 p_orig_system IN VARCHAR2,
263 PROCEDURE create_party_orig_ref
264 (
265 p_party_id IN NUMBER,
267 p_orig_system_reference IN VARCHAR2,
268 x_return_status OUT NOCOPY VARCHAR2,
269 x_msg_count OUT NOCOPY NUMBER,
270 x_msg_data OUT NOCOPY VARCHAR2
271 ) IS
272 l_orig_sys_reference_rec hz_orig_system_ref_pub.orig_sys_reference_rec_type;
273
274 l_exists VARCHAR2(1);
275 l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
276 l_msg_count NUMBER;
277 l_msg_data VARCHAR2(2000);
278
279 CURSOR c_check_party_mapping IS
280 SELECT 'Y'
281 FROM hz_orig_sys_references
282 WHERE owner_table_id = p_party_id
283 AND owner_table_name = 'HZ_PARTIES'
284 AND orig_system = p_orig_system
285 AND orig_system_reference = p_orig_system_reference
286 AND trunc(nvl(end_date_active, SYSDATE)) >= trunc(SYSDATE)
287 AND status = 'A';
288
289 BEGIN
290 x_return_status := fnd_api.g_ret_sts_success;
291
292 IF p_orig_system IS NOT NULL AND p_orig_system <> fnd_api.g_miss_char THEN
293 OPEN c_check_party_mapping;
294 FETCH c_check_party_mapping
295 INTO l_exists;
296 IF c_check_party_mapping%NOTFOUND THEN
297 l_orig_sys_reference_rec.orig_system := p_orig_system;
298 l_orig_sys_reference_rec.orig_system_reference := p_orig_system_reference;
299 l_orig_sys_reference_rec.owner_table_name := 'HZ_PARTIES';
300 l_orig_sys_reference_rec.owner_table_id := p_party_id;
301 l_orig_sys_reference_rec.created_by_module := 'AP_SUPPLIERS_API';
302
303 hz_orig_system_ref_pub.create_orig_system_reference(fnd_api.g_false,
304 l_orig_sys_reference_rec,
305 l_return_status,
306 l_msg_count,
307 l_msg_data);
308 x_return_status := l_return_status;
309 x_msg_count := l_msg_count;
310 x_msg_data := l_msg_data;
311 END IF;
312 END IF;
313
314 EXCEPTION
315 WHEN OTHERS THEN
316 x_return_status := fnd_api.g_ret_sts_unexp_error;
317 x_msg_count := 1;
318 x_msg_data := SQLCODE || SQLERRM;
319 END create_party_orig_ref;
320
321 /*#
322 * Use this routine to create ap suplier
323 * @param p_api_version The version of API
324 * @param p_init_msg_list The Initialization message list
325 * @param p_ap_suplier_bo The ap_vendor_pub_pkg.r_vendor_rec_type
326 * @param p_party_id The party id
327 * @param p_orig_system The Orig System
328 * @param p_orig_system_reference The Orig System Ref
329 * @param p_create_update_flag The Create Update flag
330 * @param x_vendor_id The Supplier Created
331 * @param x_party_id The Party Created
332 * @param x_return_status The return status
333 * @param x_msg_count The message count
334 * @param x_msg_data The message data
335 * @rep:scope public
336 * @rep:lifecycle active
337 * @rep:displayname Create Supplier
338 * @rep:catagory BUSSINESS_ENTITY AP_SUPPLIER
339 */
340 PROCEDURE create_pos_ap_supplier
341 (
342 p_api_version IN NUMBER DEFAULT NULL,
343 p_init_msg_list IN VARCHAR2 DEFAULT NULL,
344 p_pos_ap_supplier_bo IN pos_ap_supplier_bo,
345 p_party_id IN NUMBER,
346 p_orig_system IN VARCHAR2,
347 p_orig_system_reference IN VARCHAR2,
348 p_create_update_flag IN VARCHAR2,
349 x_vendor_id OUT NOCOPY NUMBER,
350 x_party_id OUT NOCOPY NUMBER,
351 x_return_status OUT NOCOPY VARCHAR2,
352 x_msg_count OUT NOCOPY NUMBER,
353 x_msg_data OUT NOCOPY VARCHAR2
354 ) IS
355 l_ap_suplier_bo ap_vendor_pub_pkg.r_vendor_rec_type;
356 l_ext_payee_rec iby_disbursement_setup_pub.external_payee_rec_type;
357 l_party_id NUMBER;
358 l_vendor_id NUMBER;
359 BEGIN
360 IF p_party_id IS NULL OR p_party_id = 0 THEN
361
362 l_party_id := pos_supplier_bo_dep_pkg.get_party_id(p_orig_system,
363 p_orig_system_reference);
364 ELSE
365 l_party_id := p_party_id;
366 END IF;
367
368 IF l_party_id IS NULL OR l_party_id = 0 THEN
369 IF p_create_update_flag = 'U' THEN
370 x_return_status := fnd_api.g_ret_sts_error;
371 x_msg_count := 1;
372 x_msg_data := 'Party to be updated doesnot exist.';
373 RETURN;
374 END IF;
375 l_party_id := NULL;
376 /* x_return_status := fnd_api.g_ret_sts_unexp_error;
377 x_msg_count := 1;
378 x_msg_data := 'No Party Exist, can create party but the Orig System integrity cannot be maintained';*/
379 END IF;
380
381 l_ext_payee_rec.payee_party_id := l_party_id;
382 l_ext_payee_rec.payment_function := p_pos_ap_supplier_bo.p_pos_external_payee_bo.payment_function;
383 l_ext_payee_rec.exclusive_pay_flag := p_pos_ap_supplier_bo.p_pos_external_payee_bo.exclusive_pay_flag;
384 l_ext_payee_rec.payee_party_site_id := p_pos_ap_supplier_bo.p_pos_external_payee_bo.payee_party_site_id;
385 l_ext_payee_rec.supplier_site_id := p_pos_ap_supplier_bo.p_pos_external_payee_bo.supplier_site_id;
386 l_ext_payee_rec.payer_org_id := p_pos_ap_supplier_bo.p_pos_external_payee_bo.payer_org_id;
390 l_ext_payee_rec.bank_charge_bearer := p_pos_ap_supplier_bo.p_pos_external_payee_bo.bank_charge_bearer;
387 l_ext_payee_rec.payer_org_type := p_pos_ap_supplier_bo.p_pos_external_payee_bo.payer_org_type;
388 l_ext_payee_rec.default_pmt_method := p_pos_ap_supplier_bo.p_pos_external_payee_bo.default_pmt_method;
389 l_ext_payee_rec.ece_tp_loc_code := p_pos_ap_supplier_bo.p_pos_external_payee_bo.ece_tp_loc_code;
391 l_ext_payee_rec.bank_instr1_code := p_pos_ap_supplier_bo.p_pos_external_payee_bo.bank_instr1_code;
392 l_ext_payee_rec.bank_instr2_code := p_pos_ap_supplier_bo.p_pos_external_payee_bo.bank_instr2_code;
393 l_ext_payee_rec.bank_instr_detail := p_pos_ap_supplier_bo.p_pos_external_payee_bo.bank_instr_detail;
394 l_ext_payee_rec.pay_reason_code := p_pos_ap_supplier_bo.p_pos_external_payee_bo.pay_reason_code;
395 l_ext_payee_rec.pay_reason_com := p_pos_ap_supplier_bo.p_pos_external_payee_bo.pay_reason_com;
396 l_ext_payee_rec.inactive_date := p_pos_ap_supplier_bo.p_pos_external_payee_bo.inactive_date;
397 l_ext_payee_rec.pay_message1 := p_pos_ap_supplier_bo.p_pos_external_payee_bo.pay_message1;
398 l_ext_payee_rec.pay_message2 := p_pos_ap_supplier_bo.p_pos_external_payee_bo.pay_message2;
399 l_ext_payee_rec.pay_message3 := p_pos_ap_supplier_bo.p_pos_external_payee_bo.pay_message3;
400 l_ext_payee_rec.delivery_channel := p_pos_ap_supplier_bo.p_pos_external_payee_bo.delivery_channel;
401 l_ext_payee_rec.pmt_format := p_pos_ap_supplier_bo.p_pos_external_payee_bo.pmt_format;
402 l_ext_payee_rec.settlement_priority := p_pos_ap_supplier_bo.p_pos_external_payee_bo.settlement_priority;
403 l_ext_payee_rec.remit_advice_delivery_method := p_pos_ap_supplier_bo.p_pos_external_payee_bo.remit_advice_delivery_method;
404 l_ext_payee_rec.remit_advice_email := p_pos_ap_supplier_bo.p_pos_external_payee_bo.remit_advice_email;
405 l_ext_payee_rec.edi_payment_format := p_pos_ap_supplier_bo.p_pos_external_payee_bo.edi_payment_format;
406 l_ext_payee_rec.edi_transaction_handling := p_pos_ap_supplier_bo.p_pos_external_payee_bo.edi_transaction_handling;
407 l_ext_payee_rec.edi_payment_method := p_pos_ap_supplier_bo.p_pos_external_payee_bo.edi_payment_method;
408 l_ext_payee_rec.edi_remittance_method := p_pos_ap_supplier_bo.p_pos_external_payee_bo.edi_remittance_method;
409 l_ext_payee_rec.edi_remittance_instruction := p_pos_ap_supplier_bo.p_pos_external_payee_bo.edi_remittance_instruction;
410
411 l_ap_suplier_bo.segment1 := p_pos_ap_supplier_bo.segment1;
412 l_ap_suplier_bo.vendor_name := p_pos_ap_supplier_bo.vendor_name;
413 l_ap_suplier_bo.vendor_name_alt := p_pos_ap_supplier_bo.vendor_name_alt;
414 l_ap_suplier_bo.summary_flag := p_pos_ap_supplier_bo.summary_flag;
415 l_ap_suplier_bo.enabled_flag := p_pos_ap_supplier_bo.enabled_flag;
416 l_ap_suplier_bo.segment2 := p_pos_ap_supplier_bo.segment2;
417 l_ap_suplier_bo.segment3 := p_pos_ap_supplier_bo.segment3;
418 l_ap_suplier_bo.segment4 := p_pos_ap_supplier_bo.segment4;
419 l_ap_suplier_bo.segment5 := p_pos_ap_supplier_bo.segment5;
420 l_ap_suplier_bo.employee_id := p_pos_ap_supplier_bo.employee_id;
421 l_ap_suplier_bo.vendor_type_lookup_code := p_pos_ap_supplier_bo.vendor_type_lookup_code;
422 l_ap_suplier_bo.customer_num := p_pos_ap_supplier_bo.customer_num;
423 l_ap_suplier_bo.one_time_flag := p_pos_ap_supplier_bo.one_time_flag;
424 l_ap_suplier_bo.parent_vendor_id := p_pos_ap_supplier_bo.parent_vendor_id;
425 l_ap_suplier_bo.min_order_amount := p_pos_ap_supplier_bo.min_order_amount;
426 l_ap_suplier_bo.terms_id := p_pos_ap_supplier_bo.terms_id;
427 l_ap_suplier_bo.set_of_books_id := p_pos_ap_supplier_bo.set_of_books_id;
428 l_ap_suplier_bo.always_take_disc_flag := p_pos_ap_supplier_bo.always_take_disc_flag;
429 l_ap_suplier_bo.pay_date_basis_lookup_code := p_pos_ap_supplier_bo.pay_date_basis_lookup_code;
430 l_ap_suplier_bo.pay_group_lookup_code := p_pos_ap_supplier_bo.pay_group_lookup_code;
431 l_ap_suplier_bo.payment_priority := p_pos_ap_supplier_bo.payment_priority;
432 l_ap_suplier_bo.invoice_currency_code := p_pos_ap_supplier_bo.invoice_currency_code;
433 l_ap_suplier_bo.payment_currency_code := p_pos_ap_supplier_bo.payment_currency_code;
434 l_ap_suplier_bo.invoice_amount_limit := p_pos_ap_supplier_bo.invoice_amount_limit;
435 l_ap_suplier_bo.hold_all_payments_flag := p_pos_ap_supplier_bo.hold_all_payments_flag;
436 l_ap_suplier_bo.hold_future_payments_flag := p_pos_ap_supplier_bo.hold_future_payments_flag;
437 l_ap_suplier_bo.hold_reason := p_pos_ap_supplier_bo.hold_reason;
438 l_ap_suplier_bo.type_1099 := p_pos_ap_supplier_bo.type_1099;
439 l_ap_suplier_bo.withholding_status_lookup_code := p_pos_ap_supplier_bo.withholding_status_lookup_code;
440 l_ap_suplier_bo.withholding_start_date := p_pos_ap_supplier_bo.withholding_start_date;
441 l_ap_suplier_bo.organization_type_lookup_code := p_pos_ap_supplier_bo.organization_type_lookup_code;
442 l_ap_suplier_bo.start_date_active := p_pos_ap_supplier_bo.start_date_active;
443 l_ap_suplier_bo.end_date_active := p_pos_ap_supplier_bo.end_date_active;
444 l_ap_suplier_bo.minority_group_lookup_code := p_pos_ap_supplier_bo.minority_group_lookup_code;
445 l_ap_suplier_bo.women_owned_flag := p_pos_ap_supplier_bo.women_owned_flag;
446 l_ap_suplier_bo.small_business_flag := p_pos_ap_supplier_bo.small_business_flag;
447 l_ap_suplier_bo.hold_flag := p_pos_ap_supplier_bo.hold_flag;
448 l_ap_suplier_bo.purchasing_hold_reason := p_pos_ap_supplier_bo.purchasing_hold_reason;
452 l_ap_suplier_bo.inspection_required_flag := p_pos_ap_supplier_bo.inspection_required_flag;
449 l_ap_suplier_bo.hold_by := p_pos_ap_supplier_bo.hold_by;
450 l_ap_suplier_bo.hold_date := p_pos_ap_supplier_bo.hold_date;
451 l_ap_suplier_bo.terms_date_basis := p_pos_ap_supplier_bo.terms_date_basis;
453 l_ap_suplier_bo.receipt_required_flag := p_pos_ap_supplier_bo.receipt_required_flag;
454 l_ap_suplier_bo.qty_rcv_tolerance := p_pos_ap_supplier_bo.qty_rcv_tolerance;
455 l_ap_suplier_bo.qty_rcv_exception_code := p_pos_ap_supplier_bo.qty_rcv_exception_code;
456 l_ap_suplier_bo.enforce_ship_to_location_code := p_pos_ap_supplier_bo.enforce_ship_to_location_code;
457 l_ap_suplier_bo.days_early_receipt_allowed := p_pos_ap_supplier_bo.days_early_receipt_allowed;
458 l_ap_suplier_bo.days_late_receipt_allowed := p_pos_ap_supplier_bo.days_late_receipt_allowed;
459 l_ap_suplier_bo.receipt_days_exception_code := p_pos_ap_supplier_bo.receipt_days_exception_code;
460 l_ap_suplier_bo.receiving_routing_id := p_pos_ap_supplier_bo.receiving_routing_id;
461 l_ap_suplier_bo.allow_substitute_receipts_flag := p_pos_ap_supplier_bo.allow_substitute_receipts_flag;
462 l_ap_suplier_bo.allow_unordered_receipts_flag := p_pos_ap_supplier_bo.allow_unordered_receipts_flag;
463 l_ap_suplier_bo.hold_unmatched_invoices_flag := p_pos_ap_supplier_bo.hold_unmatched_invoices_flag;
464 l_ap_suplier_bo.tax_verification_date := p_pos_ap_supplier_bo.tax_verification_date;
465 l_ap_suplier_bo.name_control := p_pos_ap_supplier_bo.name_control;
466 l_ap_suplier_bo.state_reportable_flag := p_pos_ap_supplier_bo.state_reportable_flag;
467 l_ap_suplier_bo.federal_reportable_flag := p_pos_ap_supplier_bo.federal_reportable_flag;
468 l_ap_suplier_bo.attribute_category := p_pos_ap_supplier_bo.attribute_category;
469 l_ap_suplier_bo.attribute1 := p_pos_ap_supplier_bo.attribute1;
470 l_ap_suplier_bo.attribute2 := p_pos_ap_supplier_bo.attribute2;
471 l_ap_suplier_bo.attribute3 := p_pos_ap_supplier_bo.attribute3;
472 l_ap_suplier_bo.attribute4 := p_pos_ap_supplier_bo.attribute4;
473 l_ap_suplier_bo.attribute5 := p_pos_ap_supplier_bo.attribute5;
474 l_ap_suplier_bo.attribute6 := p_pos_ap_supplier_bo.attribute6;
475 l_ap_suplier_bo.attribute7 := p_pos_ap_supplier_bo.attribute7;
476 l_ap_suplier_bo.attribute8 := p_pos_ap_supplier_bo.attribute8;
477 l_ap_suplier_bo.attribute9 := p_pos_ap_supplier_bo.attribute9;
478 l_ap_suplier_bo.attribute10 := p_pos_ap_supplier_bo.attribute10;
479 l_ap_suplier_bo.attribute11 := p_pos_ap_supplier_bo.attribute11;
480 l_ap_suplier_bo.attribute12 := p_pos_ap_supplier_bo.attribute12;
481 l_ap_suplier_bo.attribute13 := p_pos_ap_supplier_bo.attribute13;
482 l_ap_suplier_bo.attribute14 := p_pos_ap_supplier_bo.attribute14;
483 l_ap_suplier_bo.attribute15 := p_pos_ap_supplier_bo.attribute15;
484 l_ap_suplier_bo.auto_calculate_interest_flag := p_pos_ap_supplier_bo.auto_calculate_interest_flag;
485 l_ap_suplier_bo.validation_number := p_pos_ap_supplier_bo.validation_number;
486 l_ap_suplier_bo.exclude_freight_from_discount := p_pos_ap_supplier_bo.exclude_freight_from_discount;
487 l_ap_suplier_bo.tax_reporting_name := p_pos_ap_supplier_bo.tax_reporting_name;
488 l_ap_suplier_bo.check_digits := p_pos_ap_supplier_bo.check_digits;
489 l_ap_suplier_bo.allow_awt_flag := p_pos_ap_supplier_bo.allow_awt_flag;
490 l_ap_suplier_bo.awt_group_id := p_pos_ap_supplier_bo.awt_group_id;
491 --l_ap_suplier_bo.awt_group_name := p_pos_ap_supplier_bo.awt_group_name;
492 l_ap_suplier_bo.pay_awt_group_id := p_pos_ap_supplier_bo.pay_awt_group_id;
493 -- l_ap_suplier_bo.pay_awt_group_name := p_pos_ap_supplier_bo.pay_awt_group_name;
494 l_ap_suplier_bo.global_attribute1 := p_pos_ap_supplier_bo.global_attribute1;
495 l_ap_suplier_bo.global_attribute2 := p_pos_ap_supplier_bo.global_attribute2;
496 l_ap_suplier_bo.global_attribute3 := p_pos_ap_supplier_bo.global_attribute3;
497 l_ap_suplier_bo.global_attribute4 := p_pos_ap_supplier_bo.global_attribute4;
498 l_ap_suplier_bo.global_attribute5 := p_pos_ap_supplier_bo.global_attribute5;
499 l_ap_suplier_bo.global_attribute6 := p_pos_ap_supplier_bo.global_attribute6;
500 l_ap_suplier_bo.global_attribute7 := p_pos_ap_supplier_bo.global_attribute7;
501 l_ap_suplier_bo.global_attribute8 := p_pos_ap_supplier_bo.global_attribute8;
502 l_ap_suplier_bo.global_attribute9 := p_pos_ap_supplier_bo.global_attribute9;
503 l_ap_suplier_bo.global_attribute10 := p_pos_ap_supplier_bo.global_attribute10;
504 l_ap_suplier_bo.global_attribute11 := p_pos_ap_supplier_bo.global_attribute11;
505 l_ap_suplier_bo.global_attribute12 := p_pos_ap_supplier_bo.global_attribute12;
506 l_ap_suplier_bo.global_attribute13 := p_pos_ap_supplier_bo.global_attribute13;
507 l_ap_suplier_bo.global_attribute14 := p_pos_ap_supplier_bo.global_attribute14;
508 l_ap_suplier_bo.global_attribute15 := p_pos_ap_supplier_bo.global_attribute15;
509 l_ap_suplier_bo.global_attribute16 := p_pos_ap_supplier_bo.global_attribute16;
510 l_ap_suplier_bo.global_attribute17 := p_pos_ap_supplier_bo.global_attribute17;
511 l_ap_suplier_bo.global_attribute18 := p_pos_ap_supplier_bo.global_attribute18;
512 l_ap_suplier_bo.global_attribute19 := p_pos_ap_supplier_bo.global_attribute19;
513 l_ap_suplier_bo.global_attribute20 := p_pos_ap_supplier_bo.global_attribute20;
514 l_ap_suplier_bo.global_attribute_category := p_pos_ap_supplier_bo.global_attribute_category;
515 l_ap_suplier_bo.bank_charge_bearer := p_pos_ap_supplier_bo.bank_charge_bearer;
519 l_ap_suplier_bo.parent_party_id := p_pos_ap_supplier_bo.parent_party_id;
516 l_ap_suplier_bo.match_option := p_pos_ap_supplier_bo.match_option;
517 l_ap_suplier_bo.create_debit_memo_flag := p_pos_ap_supplier_bo.create_debit_memo_flag;
518 l_ap_suplier_bo.party_id := l_party_id;
520 --l_ap_suplier_bo.jgzz_fiscal_code := p_pos_ap_supplier_bo.jgzz_fiscal_code;
521 -- l_ap_suplier_bo.sic_code := p_pos_ap_supplier_bo.sic_code;
522 -- l_ap_suplier_bo.tax_reference := p_pos_ap_supplier_bo.tax_reference;
523 -- l_ap_suplier_bo.inventory_organization_id := p_pos_ap_supplier_bo.inventory_organization_id;
524 -- l_ap_suplier_bo.terms_name := p_pos_ap_supplier_bo.terms_name;
525 -- l_ap_suplier_bo.default_terms_id := p_pos_ap_supplier_bo.default_terms_id;
526 -- l_ap_suplier_bo.vendor_interface_id := p_pos_ap_supplier_bo.vendor_interface_id;
527 -- l_ap_suplier_bo.ni_number := p_pos_ap_supplier_bo.ni_number;
528 l_ap_suplier_bo.ext_payee_rec := l_ext_payee_rec;
529 l_ap_suplier_bo.edi_payment_format := p_pos_ap_supplier_bo.edi_payment_format;
530 l_ap_suplier_bo.edi_transaction_handling := p_pos_ap_supplier_bo.edi_transaction_handling;
531 l_ap_suplier_bo.edi_payment_method := p_pos_ap_supplier_bo.edi_payment_method;
532 l_ap_suplier_bo.edi_remittance_method := p_pos_ap_supplier_bo.edi_remittance_method;
533 l_ap_suplier_bo.edi_remittance_instruction := p_pos_ap_supplier_bo.edi_remittance_instruction;
534
535 IF p_create_update_flag = 'C' THEN
536 x_msg_count := 0;
537 x_msg_data := '0';
538 ap_vendor_pub_pkg.create_vendor(p_api_version => 1.0,
539 p_init_msg_list => fnd_api.g_false,
540 p_commit => fnd_api.g_false,
541 p_validation_level => fnd_api.g_valid_level_full,
542 x_return_status => x_return_status,
543 x_msg_count => x_msg_count,
544 x_msg_data => x_msg_data,
545 p_vendor_rec => l_ap_suplier_bo,
546 x_vendor_id => x_vendor_id,
547 x_party_id => x_party_id);
548 IF x_return_status IS NULL THEN
549 x_return_status := fnd_api.g_ret_sts_success;
550 END IF;
551 IF x_return_status = fnd_api.g_ret_sts_success THEN
552 create_party_orig_ref(p_party_id => x_party_id,
553 p_orig_system => p_orig_system,
554 p_orig_system_reference => p_orig_system_reference,
555 x_return_status => x_return_status,
556 x_msg_count => x_msg_count,
557 x_msg_data => x_msg_data);
558 END IF;
559 ELSIF p_create_update_flag = 'U' THEN
560 IF p_pos_ap_supplier_bo.p_pos_external_payee_bo.payee_party_id IS NULL THEN
561 l_ext_payee_rec.payee_party_id := l_party_id;
562 ELSE
563
564 l_ext_payee_rec.payee_party_id := p_pos_ap_supplier_bo.p_pos_external_payee_bo.payee_party_id;
565 END IF;
566
567 IF p_pos_ap_supplier_bo.vendor_id IS NULL OR
568 p_pos_ap_supplier_bo.vendor_id = 0 THEN
569 BEGIN
570 SELECT vendor_id
571 INTO l_vendor_id
572 FROM ap_suppliers
573 WHERE party_id = l_party_id;
574 l_ap_suplier_bo.vendor_id := l_vendor_id;
575 EXCEPTION
576 WHEN no_data_found THEN
577 l_ap_suplier_bo.vendor_id := p_pos_ap_supplier_bo.vendor_id;
578 END;
579
580 ELSE
581 l_ap_suplier_bo.vendor_id := p_pos_ap_supplier_bo.vendor_id;
582 END IF;
583 ap_vendor_pub_pkg.update_vendor(p_api_version => 1.0,
584 p_init_msg_list => fnd_api.g_false,
585 p_commit => fnd_api.g_false,
586 p_validation_level => fnd_api.g_valid_level_full,
587 x_return_status => x_return_status,
588 x_msg_count => x_msg_count,
589 x_msg_data => x_msg_data,
590 p_vendor_rec => l_ap_suplier_bo,
591 p_vendor_id => l_vendor_id);
592 END IF;
593
594 EXCEPTION
595 WHEN fnd_api.g_exc_error THEN
596 x_return_status := fnd_api.g_ret_sts_error;
597 x_msg_count := 1;
598 x_msg_data := SQLCODE || SQLERRM;
599 WHEN fnd_api.g_exc_unexpected_error THEN
600 x_return_status := fnd_api.g_ret_sts_unexp_error;
601 x_msg_count := 1;
602 x_msg_data := SQLCODE || SQLERRM;
603 WHEN OTHERS THEN
604 x_return_status := fnd_api.g_ret_sts_unexp_error;
605 x_msg_count := 1;
606 x_msg_data := SQLCODE || SQLERRM;
607 END create_pos_ap_supplier;
608
609 /*#
610 * Use this routine to check whether the party is supplier or not
611 * @param p_orig_system The Orignial System
612 * @param p_orig_system_reference The Original System Reference
613 * @param x_return_status The return status
614 * @rep:scope public
615 * @rep:lifecycle active
619 PROCEDURE is_customer
616 * @rep:displayname Is Supplier
617 * @rep:catagory BUSSINESS_ENTITY AP_SUPPLIER
618 */
620 (
621 p_orig_system IN VARCHAR2,
622 p_orig_system_reference IN VARCHAR2,
623 x_return_status OUT NOCOPY VARCHAR2
624 ) IS
625 l_party_id NUMBER;
626 l_party_id_supp NUMBER;
627
628 BEGIN
629 SELECT nvl(owner_table_id, -9999)
630 INTO l_party_id
631 FROM hz_orig_sys_references hr
632 WHERE hr.owner_table_name = 'HZ_PARTIES'
633 AND hr.orig_system = p_orig_system
634 AND hr.orig_system_reference = p_orig_system_reference
635 AND nvl(hr.end_date_active, SYSDATE) >= SYSDATE;
636
637 -- Customer Check in ap_suppliers table
638 IF l_party_id <> -9999 THEN
639 SELECT nvl(party_id, -9999)
640 INTO l_party_id_supp
641 FROM ap_suppliers
642 WHERE party_id = l_party_id;
643 ELSE
644 l_party_id_supp := -9999;
645 END IF;
646
647 IF l_party_id_supp <> -9999 THEN
648 x_return_status := 'Y';
649 ELSE
650 x_return_status := 'N';
651 END IF;
652 EXCEPTION
653 WHEN OTHERS THEN
654 x_return_status := 'N';
655 END is_customer;
656
657 /*#
658 * Use this routine to create ap suplier
659 * @param p_api_version The version of API
660 * @param p_init_msg_list The Initialization message list
661 * @param p_ap_suplier_bo The ap_vendor_pub_pkg.r_vendor_rec_type
662 * @param p_vendor_id The party id
663 * @param x_return_status The return status
664 * @param x_msg_count The message count
665 * @param x_msg_data The message data
666 * @rep:scope public
667 * @rep:lifecycle active
668 * @rep:displayname Create Supplier Contact
669 * @rep:catagory BUSSINESS_ENTITY AP_SUPPLIER
670 */
671
672 /*PROCEDURE update_pos_ap_supplier(p_api_version IN NUMBER DEFAULT NULL,
673 p_init_msg_list IN VARCHAR2 DEFAULT NULL,
674 p_pos_ap_supplier_bo IN pos_ap_supplier_bo,
675 p_pos_external_payee_bo IN pos_external_payee_bo,
676 p_orig_system IN VARCHAR2,
677 p_orig_system_reference IN VARCHAR2,
678 p_vendor_id OUT NOCOPY NUMBER,
679 x_return_status OUT NOCOPY VARCHAR2,
680 x_msg_count OUT NOCOPY NUMBER,
681 x_msg_data OUT NOCOPY VARCHAR2) IS
682 l_exists_row NUMBER;
683 l_ap_suplier_bo ap_vendor_pub_pkg.r_vendor_rec_type;
684 l_ext_payee_rec iby_disbursement_setup_pub.external_payee_rec_type;
685 l_party_id NUMBER;
686 l_vendor_id NUMBER;
687 BEGIN
688 l_party_id := pos_supplier_bo_dep_pkg.get_party_id(p_orig_system,
689 p_orig_system_reference);
690
691 SELECT vendor_id
692 INTO l_vendor_id
693 FROM ap_suppliers
694 WHERE party_id = l_party_id;
695
696 l_ext_payee_rec.payee_party_id := l_party_id;
697 l_ext_payee_rec.payment_function := p_pos_external_payee_bo.payment_function;
698 l_ext_payee_rec.exclusive_pay_flag := p_pos_external_payee_bo.exclusive_pay_flag;
699 l_ext_payee_rec.payee_party_site_id := p_pos_external_payee_bo.payee_party_site_id;
703 l_ext_payee_rec.default_pmt_method := p_pos_external_payee_bo.default_pmt_method;
700 l_ext_payee_rec.supplier_site_id := p_pos_external_payee_bo.supplier_site_id;
701 l_ext_payee_rec.payer_org_id := p_pos_external_payee_bo.payer_org_id;
702 l_ext_payee_rec.payer_org_type := p_pos_external_payee_bo.payer_org_type;
704 l_ext_payee_rec.ece_tp_loc_code := p_pos_external_payee_bo.ece_tp_loc_code;
705 l_ext_payee_rec.bank_charge_bearer := p_pos_external_payee_bo.bank_charge_bearer;
706 l_ext_payee_rec.bank_instr1_code := p_pos_external_payee_bo.bank_instr1_code;
710 l_ext_payee_rec.pay_reason_com := p_pos_external_payee_bo.pay_reason_com;
707 l_ext_payee_rec.bank_instr2_code := p_pos_external_payee_bo.bank_instr2_code;
708 l_ext_payee_rec.bank_instr_detail := p_pos_external_payee_bo.bank_instr_detail;
709 l_ext_payee_rec.pay_reason_code := p_pos_external_payee_bo.pay_reason_code;
711 l_ext_payee_rec.inactive_date := p_pos_external_payee_bo.inactive_date;
712 l_ext_payee_rec.pay_message1 := p_pos_external_payee_bo.pay_message1;
713 l_ext_payee_rec.pay_message2 := p_pos_external_payee_bo.pay_message2;
714 l_ext_payee_rec.pay_message3 := p_pos_external_payee_bo.pay_message3;
715 l_ext_payee_rec.delivery_channel := p_pos_external_payee_bo.delivery_channel;
716 l_ext_payee_rec.pmt_format := p_pos_external_payee_bo.pmt_format;
717 l_ext_payee_rec.settlement_priority := p_pos_external_payee_bo.settlement_priority;
718 l_ext_payee_rec.remit_advice_delivery_method := p_pos_external_payee_bo.remit_advice_delivery_method;
719 l_ext_payee_rec.remit_advice_email := p_pos_external_payee_bo.remit_advice_email;
720 l_ext_payee_rec.edi_payment_format := p_pos_external_payee_bo.edi_payment_format;
721 l_ext_payee_rec.edi_transaction_handling := p_pos_external_payee_bo.edi_transaction_handling;
722 l_ext_payee_rec.edi_payment_method := p_pos_external_payee_bo.edi_payment_method;
723 l_ext_payee_rec.edi_remittance_method := p_pos_external_payee_bo.edi_remittance_method;
724 l_ext_payee_rec.edi_remittance_instruction := p_pos_external_payee_bo.edi_remittance_instruction;
725
726 l_ap_suplier_bo.vendor_id := l_vendor_id;
727 l_ap_suplier_bo.segment1 := p_pos_ap_supplier_bo.segment1;
728 l_ap_suplier_bo.vendor_name := p_pos_ap_supplier_bo.vendor_name;
729 l_ap_suplier_bo.vendor_name_alt := p_pos_ap_supplier_bo.vendor_name_alt;
730 l_ap_suplier_bo.summary_flag := p_pos_ap_supplier_bo.summary_flag;
731 l_ap_suplier_bo.enabled_flag := p_pos_ap_supplier_bo.enabled_flag;
732 l_ap_suplier_bo.segment2 := p_pos_ap_supplier_bo.segment2;
733 l_ap_suplier_bo.segment3 := p_pos_ap_supplier_bo.segment3;
734 l_ap_suplier_bo.segment4 := p_pos_ap_supplier_bo.segment4;
735 l_ap_suplier_bo.segment5 := p_pos_ap_supplier_bo.segment5;
736 l_ap_suplier_bo.employee_id := p_pos_ap_supplier_bo.employee_id;
737 l_ap_suplier_bo.vendor_type_lookup_code := p_pos_ap_supplier_bo.vendor_type_lookup_code;
738 l_ap_suplier_bo.customer_num := p_pos_ap_supplier_bo.customer_num;
739 l_ap_suplier_bo.one_time_flag := p_pos_ap_supplier_bo.one_time_flag;
740 l_ap_suplier_bo.parent_vendor_id := p_pos_ap_supplier_bo.parent_vendor_id;
741 l_ap_suplier_bo.min_order_amount := p_pos_ap_supplier_bo.min_order_amount;
742 l_ap_suplier_bo.terms_id := p_pos_ap_supplier_bo.terms_id;
743 l_ap_suplier_bo.set_of_books_id := p_pos_ap_supplier_bo.set_of_books_id;
744 l_ap_suplier_bo.always_take_disc_flag := p_pos_ap_supplier_bo.always_take_disc_flag;
745 l_ap_suplier_bo.pay_date_basis_lookup_code := p_pos_ap_supplier_bo.pay_date_basis_lookup_code;
746 l_ap_suplier_bo.pay_group_lookup_code := p_pos_ap_supplier_bo.pay_group_lookup_code;
747 l_ap_suplier_bo.payment_priority := p_pos_ap_supplier_bo.payment_priority;
748 l_ap_suplier_bo.invoice_currency_code := p_pos_ap_supplier_bo.invoice_currency_code;
749 l_ap_suplier_bo.payment_currency_code := p_pos_ap_supplier_bo.payment_currency_code;
750 l_ap_suplier_bo.invoice_amount_limit := p_pos_ap_supplier_bo.invoice_amount_limit;
751 l_ap_suplier_bo.hold_all_payments_flag := p_pos_ap_supplier_bo.hold_all_payments_flag;
752 l_ap_suplier_bo.hold_future_payments_flag := p_pos_ap_supplier_bo.hold_future_payments_flag;
753 l_ap_suplier_bo.hold_reason := p_pos_ap_supplier_bo.hold_reason;
754 l_ap_suplier_bo.type_1099 := p_pos_ap_supplier_bo.type_1099;
755 l_ap_suplier_bo.withholding_status_lookup_code := p_pos_ap_supplier_bo.withholding_status_lookup_code;
756 l_ap_suplier_bo.withholding_start_date := p_pos_ap_supplier_bo.withholding_start_date;
757 l_ap_suplier_bo.organization_type_lookup_code := p_pos_ap_supplier_bo.organization_type_lookup_code;
758 l_ap_suplier_bo.start_date_active := p_pos_ap_supplier_bo.start_date_active;
759 l_ap_suplier_bo.end_date_active := p_pos_ap_supplier_bo.end_date_active;
760 l_ap_suplier_bo.minority_group_lookup_code := p_pos_ap_supplier_bo.minority_group_lookup_code;
761 l_ap_suplier_bo.women_owned_flag := p_pos_ap_supplier_bo.women_owned_flag;
762 l_ap_suplier_bo.small_business_flag := p_pos_ap_supplier_bo.small_business_flag;
763 l_ap_suplier_bo.hold_flag := p_pos_ap_supplier_bo.hold_flag;
764 l_ap_suplier_bo.purchasing_hold_reason := p_pos_ap_supplier_bo.purchasing_hold_reason;
765 l_ap_suplier_bo.hold_by := p_pos_ap_supplier_bo.hold_by;
766 l_ap_suplier_bo.hold_date := p_pos_ap_supplier_bo.hold_date;
767 l_ap_suplier_bo.terms_date_basis := p_pos_ap_supplier_bo.terms_date_basis;
768 l_ap_suplier_bo.inspection_required_flag := p_pos_ap_supplier_bo.inspection_required_flag;
772 l_ap_suplier_bo.enforce_ship_to_location_code := p_pos_ap_supplier_bo.enforce_ship_to_location_code;
769 l_ap_suplier_bo.receipt_required_flag := p_pos_ap_supplier_bo.receipt_required_flag;
770 l_ap_suplier_bo.qty_rcv_tolerance := p_pos_ap_supplier_bo.qty_rcv_tolerance;
771 l_ap_suplier_bo.qty_rcv_exception_code := p_pos_ap_supplier_bo.qty_rcv_exception_code;
773 l_ap_suplier_bo.days_early_receipt_allowed := p_pos_ap_supplier_bo.days_early_receipt_allowed;
774 l_ap_suplier_bo.days_late_receipt_allowed := p_pos_ap_supplier_bo.days_late_receipt_allowed;
775 l_ap_suplier_bo.receipt_days_exception_code := p_pos_ap_supplier_bo.receipt_days_exception_code;
776 l_ap_suplier_bo.receiving_routing_id := p_pos_ap_supplier_bo.receiving_routing_id;
777 l_ap_suplier_bo.allow_substitute_receipts_flag := p_pos_ap_supplier_bo.allow_substitute_receipts_flag;
778 l_ap_suplier_bo.allow_unordered_receipts_flag := p_pos_ap_supplier_bo.allow_unordered_receipts_flag;
779 l_ap_suplier_bo.hold_unmatched_invoices_flag := p_pos_ap_supplier_bo.hold_unmatched_invoices_flag;
780 l_ap_suplier_bo.tax_verification_date := p_pos_ap_supplier_bo.tax_verification_date;
781 l_ap_suplier_bo.name_control := p_pos_ap_supplier_bo.name_control;
782 l_ap_suplier_bo.state_reportable_flag := p_pos_ap_supplier_bo.state_reportable_flag;
783 l_ap_suplier_bo.federal_reportable_flag := p_pos_ap_supplier_bo.federal_reportable_flag;
784 l_ap_suplier_bo.attribute_category := p_pos_ap_supplier_bo.attribute_category;
785 l_ap_suplier_bo.attribute1 := p_pos_ap_supplier_bo.attribute1;
786 l_ap_suplier_bo.attribute2 := p_pos_ap_supplier_bo.attribute2;
787 l_ap_suplier_bo.attribute3 := p_pos_ap_supplier_bo.attribute3;
788 l_ap_suplier_bo.attribute4 := p_pos_ap_supplier_bo.attribute4;
789 l_ap_suplier_bo.attribute5 := p_pos_ap_supplier_bo.attribute5;
790 l_ap_suplier_bo.attribute6 := p_pos_ap_supplier_bo.attribute6;
791 l_ap_suplier_bo.attribute7 := p_pos_ap_supplier_bo.attribute7;
792 l_ap_suplier_bo.attribute8 := p_pos_ap_supplier_bo.attribute8;
793 l_ap_suplier_bo.attribute9 := p_pos_ap_supplier_bo.attribute9;
794 l_ap_suplier_bo.attribute10 := p_pos_ap_supplier_bo.attribute10;
795 l_ap_suplier_bo.attribute11 := p_pos_ap_supplier_bo.attribute11;
796 l_ap_suplier_bo.attribute12 := p_pos_ap_supplier_bo.attribute12;
797 l_ap_suplier_bo.attribute13 := p_pos_ap_supplier_bo.attribute13;
798 l_ap_suplier_bo.attribute14 := p_pos_ap_supplier_bo.attribute14;
799 l_ap_suplier_bo.attribute15 := p_pos_ap_supplier_bo.attribute15;
800 l_ap_suplier_bo.auto_calculate_interest_flag := p_pos_ap_supplier_bo.auto_calculate_interest_flag;
801 l_ap_suplier_bo.validation_number := p_pos_ap_supplier_bo.validation_number;
802 l_ap_suplier_bo.exclude_freight_from_discount := p_pos_ap_supplier_bo.exclude_freight_from_discount;
803 l_ap_suplier_bo.tax_reporting_name := p_pos_ap_supplier_bo.tax_reporting_name;
804 l_ap_suplier_bo.check_digits := p_pos_ap_supplier_bo.check_digits;
805 l_ap_suplier_bo.allow_awt_flag := p_pos_ap_supplier_bo.allow_awt_flag;
806 l_ap_suplier_bo.awt_group_id := p_pos_ap_supplier_bo.awt_group_id;
807 -- l_ap_suplier_bo.awt_group_name := p_pos_ap_supplier_bo.awt_group_name;
808 l_ap_suplier_bo.pay_awt_group_id := p_pos_ap_supplier_bo.pay_awt_group_id;
809 -- l_ap_suplier_bo.pay_awt_group_name := p_pos_ap_supplier_bo.pay_awt_group_name;
810 l_ap_suplier_bo.global_attribute1 := p_pos_ap_supplier_bo.global_attribute1;
811 l_ap_suplier_bo.global_attribute2 := p_pos_ap_supplier_bo.global_attribute2;
812 l_ap_suplier_bo.global_attribute3 := p_pos_ap_supplier_bo.global_attribute3;
813 l_ap_suplier_bo.global_attribute4 := p_pos_ap_supplier_bo.global_attribute4;
814 l_ap_suplier_bo.global_attribute5 := p_pos_ap_supplier_bo.global_attribute5;
815 l_ap_suplier_bo.global_attribute6 := p_pos_ap_supplier_bo.global_attribute6;
816 l_ap_suplier_bo.global_attribute7 := p_pos_ap_supplier_bo.global_attribute7;
817 l_ap_suplier_bo.global_attribute8 := p_pos_ap_supplier_bo.global_attribute8;
818 l_ap_suplier_bo.global_attribute9 := p_pos_ap_supplier_bo.global_attribute9;
819 l_ap_suplier_bo.global_attribute10 := p_pos_ap_supplier_bo.global_attribute10;
820 l_ap_suplier_bo.global_attribute11 := p_pos_ap_supplier_bo.global_attribute11;
821 l_ap_suplier_bo.global_attribute12 := p_pos_ap_supplier_bo.global_attribute12;
822 l_ap_suplier_bo.global_attribute13 := p_pos_ap_supplier_bo.global_attribute13;
823 l_ap_suplier_bo.global_attribute14 := p_pos_ap_supplier_bo.global_attribute14;
824 l_ap_suplier_bo.global_attribute15 := p_pos_ap_supplier_bo.global_attribute15;
825 l_ap_suplier_bo.global_attribute16 := p_pos_ap_supplier_bo.global_attribute16;
826 l_ap_suplier_bo.global_attribute17 := p_pos_ap_supplier_bo.global_attribute17;
827 l_ap_suplier_bo.global_attribute18 := p_pos_ap_supplier_bo.global_attribute18;
828 l_ap_suplier_bo.global_attribute19 := p_pos_ap_supplier_bo.global_attribute19;
829 l_ap_suplier_bo.global_attribute20 := p_pos_ap_supplier_bo.global_attribute20;
830 l_ap_suplier_bo.global_attribute_category := p_pos_ap_supplier_bo.global_attribute_category;
831 l_ap_suplier_bo.bank_charge_bearer := p_pos_ap_supplier_bo.bank_charge_bearer;
832 l_ap_suplier_bo.match_option := p_pos_ap_supplier_bo.match_option;
836 -- l_ap_suplier_bo.jgzz_fiscal_code := p_pos_ap_supplier_bo.jgzz_fiscal_code;
833 l_ap_suplier_bo.create_debit_memo_flag := p_pos_ap_supplier_bo.create_debit_memo_flag;
834 l_ap_suplier_bo.party_id := l_party_id;
835 l_ap_suplier_bo.parent_party_id := p_pos_ap_supplier_bo.parent_party_id;
837 -- l_ap_suplier_bo.sic_code := p_pos_ap_supplier_bo.sic_code;
838 -- l_ap_suplier_bo.tax_reference := p_pos_ap_supplier_bo.tax_reference;
839 -- l_ap_suplier_bo.inventory_organization_id := p_pos_ap_supplier_bo.inventory_organization_id;
840 -- l_ap_suplier_bo.terms_name := p_pos_ap_supplier_bo.terms_name;
841 -- l_ap_suplier_bo.default_terms_id := p_pos_ap_supplier_bo.default_terms_id;
842 -- l_ap_suplier_bo.vendor_interface_id := p_pos_ap_supplier_bo.vendor_interface_id;
843 l_ap_suplier_bo.ni_number := p_pos_ap_supplier_bo.ni_number;
844 l_ap_suplier_bo.ext_payee_rec := l_ext_payee_rec;
845 l_ap_suplier_bo.edi_payment_format := p_pos_ap_supplier_bo.edi_payment_format;
846 l_ap_suplier_bo.edi_transaction_handling := p_pos_ap_supplier_bo.edi_transaction_handling;
847 l_ap_suplier_bo.edi_payment_method := p_pos_ap_supplier_bo.edi_payment_method;
848 l_ap_suplier_bo.edi_remittance_method := p_pos_ap_supplier_bo.edi_remittance_method;
849 l_ap_suplier_bo.edi_remittance_instruction := p_pos_ap_supplier_bo.edi_remittance_instruction;
850
851 ap_vendor_pub_pkg.update_vendor(p_api_version => 1.0,
852 p_init_msg_list => fnd_api.g_false,
853 p_commit => fnd_api.g_false,
854 p_validation_level => fnd_api.g_valid_level_full,
855 x_return_status => x_return_status,
856 x_msg_count => x_msg_count,
857 x_msg_data => x_msg_data,
858 p_vendor_rec => l_ap_suplier_bo,
859 p_vendor_id => l_vendor_id);
860
861 p_vendor_id := l_vendor_id;
862 EXCEPTION
863 WHEN fnd_api.g_exc_error THEN
864 x_return_status := fnd_api.g_ret_sts_error;
865 x_msg_count := 1;
866 x_msg_data := SQLCODE || SQLERRM;
867 WHEN fnd_api.g_exc_unexpected_error THEN
868 x_return_status := fnd_api.g_ret_sts_unexp_error;
869 x_msg_count := 1;
870 x_msg_data := SQLCODE || SQLERRM;
871 WHEN OTHERS THEN
872 x_return_status := fnd_api.g_ret_sts_unexp_error;
873 x_msg_count := 1;
874 x_msg_data := SQLCODE || SQLERRM;
875 END update_pos_ap_supplier;
876 */
877 END pos_ap_supplier_bo_pkg;