[Home] [Help]
PACKAGE BODY: APPS.POS_SUPPLIER_CONTACT_BO_PKG
Source
1 PACKAGE BODY pos_supplier_contact_bo_pkg AS
2 /* $Header: POSSPCONB.pls 120.1 2010/11/25 12:08:36 puppulur noship $ */
3 /*#
4 * Use this routine to get supplier contact
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 Reference
10 * @param x_ap_supplier_contact_bo The supplier contact record
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 Contacts
17 * @rep:catagory BUSSINESS_ENTITY POS_SUPPLIER
18 */
19 PROCEDURE get_pos_supp_contact_bo_tbl
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_supplier_contact_bo OUT NOCOPY pos_supplier_contact_bo_tbl,
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_ap_supplier_contact_typ_tbl pos_supplier_contact_bo_tbl := pos_supplier_contact_bo_tbl();
33 --l_pos_supplier_uda_bo pos_supplier_uda_bo;
34 l_party_id NUMBER;
35
36 BEGIN
37
38 IF p_party_id IS NULL OR p_party_id = 0 THEN
39
40 l_party_id := pos_supplier_bo_dep_pkg.get_party_id(p_orig_system,
41 p_orig_system_reference);
42 ELSE
43 l_party_id := p_party_id;
44 END IF;
45
46 SELECT pos_supplier_contact_bo(apsc.vendor_contact_id,
47 apsc.last_update_date,
48 apsc.last_updated_by,
49 apsc.vendor_site_id,
50 apsc.last_update_login,
51 apsc.creation_date,
52 apsc.created_by,
53 apsc.inactive_date,
54 apsc.first_name,
55 apsc.middle_name,
56 apsc.last_name,
57 apsc.prefix,
58 apsc.title,
59 apsc.mail_stop,
60 apsc.area_code,
61 apsc.phone,
62 apsc.attribute_category,
63 apsc.attribute1,
64 apsc.attribute2,
65 apsc.attribute3,
66 apsc.attribute4,
67 apsc.attribute5,
68 apsc.attribute6,
69 apsc.attribute7,
70 apsc.attribute8,
71 apsc.attribute9,
72 apsc.attribute10,
73 apsc.attribute11,
74 apsc.attribute12,
75 apsc.attribute13,
76 apsc.attribute14,
77 apsc.attribute15,
78 apsc.request_id,
79 apsc.program_application_id,
80 apsc.program_id,
81 apsc.program_update_date,
82 apsc.contact_name_alt,
83 apsc.first_name_alt,
84 apsc.last_name_alt,
85 apsc.department,
86 apsc.email_address,
87 apsc.url,
88 apsc.alt_area_code,
89 apsc.alt_phone,
90 apsc.fax_area_code,
91 apsc.fax,
92 apsc.per_party_id,
93 NULL,
94 NULL,
95 apsc.relationship_id,
96 apsc.rel_party_id,
97 apsc.party_site_id,
98 apsc.org_contact_id,
99 apsc.org_party_site_id,
100 '',
101 '',
102 '',
103 '',
104 NULL,
105 NULL,
106 NULL,
107 NULL,
108 '',
109 '')
110
111 BULK COLLECT
112 INTO x_ap_supplier_contact_bo
113 FROM ap_supplier_contacts apsc,
114 ap_suppliers ap,
115 ap_supplier_sites_all sa
116 WHERE ap.party_id = l_party_id
117 AND sa.vendor_id = ap.vendor_id
118 AND apsc.vendor_site_id = sa.vendor_site_id;
119 /*
120 pos_supplier_uda_bo_pkg.get_uda_data(p_api_version,
121 p_init_msg_list,
122 NULL,
123 NULL,
124 p_party_id,
125 'SUPP_ADDR_LEVEL',
126 l_pos_supplier_uda_bo,
127 x_return_status,
128 x_msg_count,
129 x_msg_data);*/
130
131 /* x_ap_supplier_contact_bo := pos_supplier_contact_bo(l_ap_supplier_contact_typ_tbl,
132 l_pos_supplier_uda_bo);*/
133 EXCEPTION
134 WHEN fnd_api.g_exc_error THEN
135
136 x_return_status := fnd_api.g_ret_sts_error;
137 x_msg_count := 1;
138 x_msg_data := SQLCODE || SQLERRM;
139 WHEN fnd_api.g_exc_unexpected_error THEN
140
141 x_return_status := fnd_api.g_ret_sts_unexp_error;
142 x_msg_count := 1;
143 x_msg_data := SQLCODE || SQLERRM;
144 WHEN OTHERS THEN
145
146 x_return_status := fnd_api.g_ret_sts_unexp_error;
147
148 x_msg_count := 1;
149 x_msg_data := SQLCODE || SQLERRM;
150
151 END get_pos_supp_contact_bo_tbl;
152 /*#
153 * Use this routine to create supplier contact
154 * @param p_api_version The version of API
155 * @param p_init_msg_list The Initialization message list
156 * @param p_pos_supplier_contact_bo_tbl The Supplier Contact BO table
157 * @param p_party_id The Party Id
158 * @param p_orig_system The Orig System
159 * @param p_orig_system_reference The Orig System Reference
160 * @param p_create_update_flag The Create Update Flag
161 * @param x_vendor_contact_id The Vendor Contact Id
162 * @param x_per_party_id The Person Party ID
163 * @param x_rel_party_id The Rel Party Id
164 * @param x_org_contact_id The Organization contact id
165 * @param x_party_site_id The Party Site Id
166 * @param x_return_status The return status
167 * @param x_msg_count The message count
168 * @param x_msg_data The message data
169 * @rep:scope public
170 * @rep:lifecycle active
171 * @rep:displayname Create Supplier Contacts
172 * @rep:catagory BUSSINESS_ENTITY AP_SUPPLIER
173 */
174 PROCEDURE create_pos_supp_contact_bo
175 (
176 p_api_version IN NUMBER DEFAULT NULL,
177 p_init_msg_list IN VARCHAR2 DEFAULT NULL,
178 p_pos_supplier_contact_bo_tbl IN pos_supplier_contact_bo_tbl,
179 p_party_id IN NUMBER,
180 p_orig_system IN VARCHAR2,
181 p_orig_system_reference IN VARCHAR2,
182 p_create_update_flag IN VARCHAR2,
183 x_vendor_contact_id OUT NOCOPY NUMBER,
184 x_per_party_id OUT NOCOPY NUMBER,
185 x_rel_party_id OUT NOCOPY NUMBER,
186 x_rel_id OUT NOCOPY NUMBER,
187 x_org_contact_id OUT NOCOPY NUMBER,
188 x_party_site_id OUT NOCOPY NUMBER,
189 x_return_status OUT NOCOPY VARCHAR2,
190 x_msg_count OUT NOCOPY NUMBER,
191 x_msg_data OUT NOCOPY VARCHAR2
192 ) IS
193
194 l_step VARCHAR2(100);
195 p_vendor_contact_rec ap_vendor_pub_pkg.r_vendor_contact_rec_type;
196 l_party_id NUMBER;
197 l_per_party_id NUMBER;
198 BEGIN
199
200 IF p_party_id IS NULL THEN
201 l_party_id := pos_supplier_bo_dep_pkg.get_party_id(p_orig_system,
202 p_orig_system_reference);
203 ELSE
204 l_party_id := p_party_id;
205 END IF;
206
207 IF (l_party_id = 0) THEN
208 x_return_status := fnd_api.g_ret_sts_error;
209 x_msg_count := 1;
210 x_msg_data := 'Party ID Invalid';
211 RETURN;
212 END IF;
213
214 l_step := 'call ap_vendor_pub_pkg.create_vendor_contact';
215
216 FOR i IN p_pos_supplier_contact_bo_tbl.first .. p_pos_supplier_contact_bo_tbl.last LOOP
217
218 p_vendor_contact_rec.alt_area_code := p_pos_supplier_contact_bo_tbl(i)
219 .alt_area_code;
220 p_vendor_contact_rec.alt_phone := p_pos_supplier_contact_bo_tbl(i)
221 .alt_phone;
222 p_vendor_contact_rec.area_code := p_pos_supplier_contact_bo_tbl(i)
223 .area_code;
224 p_vendor_contact_rec.attribute_category := p_pos_supplier_contact_bo_tbl(i)
225 .attribute_category;
226 p_vendor_contact_rec.attribute1 := p_pos_supplier_contact_bo_tbl(i)
227 .attribute1;
228 p_vendor_contact_rec.attribute10 := p_pos_supplier_contact_bo_tbl(i)
229 .attribute10;
230 p_vendor_contact_rec.attribute11 := p_pos_supplier_contact_bo_tbl(i)
231 .attribute11;
232 p_vendor_contact_rec.attribute12 := p_pos_supplier_contact_bo_tbl(i)
233 .attribute12;
234 p_vendor_contact_rec.attribute13 := p_pos_supplier_contact_bo_tbl(i)
235 .attribute13;
236 p_vendor_contact_rec.attribute14 := p_pos_supplier_contact_bo_tbl(i)
237 .attribute14;
238 p_vendor_contact_rec.attribute15 := p_pos_supplier_contact_bo_tbl(i)
239 .attribute15;
240 p_vendor_contact_rec.attribute2 := p_pos_supplier_contact_bo_tbl(i)
241 .attribute2;
242 p_vendor_contact_rec.attribute3 := p_pos_supplier_contact_bo_tbl(i)
243 .attribute3;
244 p_vendor_contact_rec.attribute4 := p_pos_supplier_contact_bo_tbl(i)
245 .attribute4;
246 p_vendor_contact_rec.attribute5 := p_pos_supplier_contact_bo_tbl(i)
247 .attribute5;
248 p_vendor_contact_rec.attribute6 := p_pos_supplier_contact_bo_tbl(i)
249 .attribute6;
250 p_vendor_contact_rec.attribute7 := p_pos_supplier_contact_bo_tbl(i)
251 .attribute7;
252 p_vendor_contact_rec.attribute8 := p_pos_supplier_contact_bo_tbl(i)
253 .attribute8;
254 p_vendor_contact_rec.attribute9 := p_pos_supplier_contact_bo_tbl(i)
255 .attribute9;
256 p_vendor_contact_rec.contact_name_phonetic := p_pos_supplier_contact_bo_tbl(i)
257 .contact_name_phonetic;
258 p_vendor_contact_rec.department := p_pos_supplier_contact_bo_tbl(i)
259 .department;
260 p_vendor_contact_rec.email_address := p_pos_supplier_contact_bo_tbl(i)
261 .email_address;
262
263 p_vendor_contact_rec.fax_area_code := p_pos_supplier_contact_bo_tbl(i)
264 .fax_area_code;
265 p_vendor_contact_rec.fax_phone := p_pos_supplier_contact_bo_tbl(i).fax;
266 p_vendor_contact_rec.inactive_date := p_pos_supplier_contact_bo_tbl(i)
267 .inactive_date;
268 p_vendor_contact_rec.mail_stop := p_pos_supplier_contact_bo_tbl(i)
269 .mail_stop;
270 p_vendor_contact_rec.operating_unit_name := p_pos_supplier_contact_bo_tbl(i)
271 .operating_unit_name;
272 p_vendor_contact_rec.org_contact_id := p_pos_supplier_contact_bo_tbl(i)
273 .org_contact_id;
274 p_vendor_contact_rec.org_id := p_pos_supplier_contact_bo_tbl(i)
275 .org_id;
276
277 p_vendor_contact_rec.org_party_site_id := p_pos_supplier_contact_bo_tbl(i)
278 .org_party_site_id;
279 p_vendor_contact_rec.organization_name_phonetic := p_pos_supplier_contact_bo_tbl(i)
280 .organization_name_phonetic;
281 p_vendor_contact_rec.party_number := p_pos_supplier_contact_bo_tbl(i)
282 .party_number;
283 p_vendor_contact_rec.party_site_id := p_pos_supplier_contact_bo_tbl(i)
284 .party_site_id;
285 p_vendor_contact_rec.party_site_name := p_pos_supplier_contact_bo_tbl(i)
286 .party_site_name;
287 /* Suchita Change */
288 IF (p_pos_supplier_contact_bo_tbl(i).per_party_id IS NULL) THEN
289 l_per_party_id := pos_supplier_bo_dep_pkg.get_party_id(p_pos_supplier_contact_bo_tbl(i)
290 .per_orig_system,
291 p_pos_supplier_contact_bo_tbl(i)
292 .per_orig_system_ref);
293 ELSE
294 l_per_party_id := p_pos_supplier_contact_bo_tbl(i).per_party_id;
295 END IF;
296
297 IF (l_per_party_id = 0) THEN
298 x_return_status := fnd_api.g_ret_sts_error;
299 x_msg_count := 1;
300 x_msg_data := 'Person Party ID Invalid';
301 RETURN;
302 END IF;
303
304 p_vendor_contact_rec.per_party_id := l_per_party_id;
305
306 p_vendor_contact_rec.person_first_name := p_pos_supplier_contact_bo_tbl(i)
307 .first_name;
308 p_vendor_contact_rec.person_first_name_phonetic := p_pos_supplier_contact_bo_tbl(i)
309 .first_name_alt;
310 p_vendor_contact_rec.person_last_name := p_pos_supplier_contact_bo_tbl(i)
311 .last_name;
312 p_vendor_contact_rec.person_last_name_phonetic := p_pos_supplier_contact_bo_tbl(i)
313 .last_name_alt;
314 p_vendor_contact_rec.person_middle_name := p_pos_supplier_contact_bo_tbl(i)
315 .middle_name;
316 p_vendor_contact_rec.person_title := p_pos_supplier_contact_bo_tbl(i)
317 .title;
318 p_vendor_contact_rec.phone := p_pos_supplier_contact_bo_tbl(i)
319 .phone;
320
321 p_vendor_contact_rec.prefix := p_pos_supplier_contact_bo_tbl(i)
322 .prefix;
323 p_vendor_contact_rec.rel_party_id := p_pos_supplier_contact_bo_tbl(i)
324 .rel_party_id;
325 p_vendor_contact_rec.relationship_id := p_pos_supplier_contact_bo_tbl(i)
326 .relationship_id;
327 p_vendor_contact_rec.url := p_pos_supplier_contact_bo_tbl(i).url;
328 p_vendor_contact_rec.vendor_contact_id := p_pos_supplier_contact_bo_tbl(i)
329 .vendor_contact_id;
330 p_vendor_contact_rec.vendor_contact_interface_id := p_pos_supplier_contact_bo_tbl(i)
331 .vendor_contact_interface_id;
332 p_vendor_contact_rec.vendor_id := p_pos_supplier_contact_bo_tbl(i)
333 .vendor_id;
334
335 p_vendor_contact_rec.vendor_interface_id := p_pos_supplier_contact_bo_tbl(i)
336 .vendor_interface_id;
337 p_vendor_contact_rec.vendor_site_code := p_pos_supplier_contact_bo_tbl(i)
338 .vendor_site_code;
339 p_vendor_contact_rec.vendor_site_id := p_pos_supplier_contact_bo_tbl(i)
340 .vendor_site_id;
341
342 IF (p_vendor_contact_rec.vendor_id IS NULL) THEN
343 BEGIN
344 SELECT vendor_id
345 INTO p_vendor_contact_rec.vendor_id
346 FROM ap_suppliers supp
347 WHERE supp.party_id = l_party_id;
348
349 EXCEPTION
350 WHEN OTHERS THEN
351 x_return_status := fnd_api.g_ret_sts_error;
352 x_msg_count := 1;
353 x_msg_data := SQLCODE || SQLERRM;
354 RETURN;
355 END;
356
357 END IF;
358
359 IF p_create_update_flag = 'U' THEN
360
361 pos_supp_contact_pkg.update_supplier_contact(p_contact_party_id => p_vendor_contact_rec.per_party_id,
362 p_vendor_party_id => l_party_id,
363 p_first_name => p_vendor_contact_rec.person_first_name,
364 p_last_name => p_vendor_contact_rec.person_last_name,
365 p_middle_name => p_vendor_contact_rec.person_middle_name,
366 p_contact_title => p_vendor_contact_rec.person_title,
367 p_job_title => NULL,
368 p_phone_area_code => p_vendor_contact_rec.area_code,
369 p_phone_number => p_vendor_contact_rec.phone,
370 p_phone_extension => NULL,
371 p_fax_area_code => p_vendor_contact_rec.fax_area_code,
372 p_fax_number => p_vendor_contact_rec.fax_phone,
373 p_email_address => p_vendor_contact_rec.email_address,
374 p_inactive_date => p_vendor_contact_rec.inactive_date,
375 x_return_status => x_return_status,
376 x_msg_count => x_msg_count,
377 x_msg_data => x_msg_data,
378 p_department => p_vendor_contact_rec.department);
379
380 IF (p_vendor_contact_rec.org_party_site_id IS NOT NULL) THEN
381 pos_supplier_address_pkg.assign_address_to_contact(p_contact_party_id => p_vendor_contact_rec.per_party_id,
382 p_org_party_site_id => p_vendor_contact_rec.org_party_site_id,
383 p_vendor_id => p_vendor_contact_rec.vendor_id,
384 x_return_status => x_return_status,
385 x_msg_count => x_msg_count,
386 x_msg_data => x_msg_data);
387 ELSE
388 IF (p_vendor_contact_rec.party_site_name IS NOT NULL) THEN
389 SELECT party_site_id
390 INTO p_vendor_contact_rec.org_party_site_id
391 FROM hz_party_sites
392 WHERE party_id = l_party_id
393 AND party_site_name = p_vendor_contact_rec.party_site_name;
394
395 pos_supplier_address_pkg.assign_address_to_contact(p_contact_party_id => p_vendor_contact_rec.per_party_id,
396 p_org_party_site_id => p_vendor_contact_rec.org_party_site_id,
397 p_vendor_id => p_vendor_contact_rec.vendor_id,
398 x_return_status => x_return_status,
399 x_msg_count => x_msg_count,
400 x_msg_data => x_msg_data);
401 END IF;
402 END IF;
403
404 ELSIF p_create_update_flag = 'C' THEN
405
406 ap_vendor_pub_pkg.create_vendor_contact(p_api_version,
407 p_init_msg_list,
408 fnd_api.g_false,
409 fnd_api.g_valid_level_full,
410 x_return_status,
411 x_msg_count,
412 x_msg_data,
413 p_vendor_contact_rec,
414 x_vendor_contact_id,
415 x_per_party_id,
416 x_rel_party_id,
417 x_rel_id,
418 x_org_contact_id,
419 x_party_site_id);
420
421 END IF;
422 IF x_return_status IS NOT NULL AND
423 x_return_status = fnd_api.g_ret_sts_success THEN
424 -- succeed
425
426 IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
427 fnd_log.string(fnd_log.level_procedure,
428 'pos_supplier_contact_bo_pkg.create_pos_supp_contact_bo',
429 l_step || ' x_return_status = ' || x_return_status ||
430 ' x_vendor_contact_id = ' || x_vendor_contact_id ||
431 ' x_per_party_id = ' || x_per_party_id ||
432 ' x_rel_party_id = ' || x_rel_party_id ||
433 ' x_rel_id = ' || x_rel_id ||
434 ' x_org_contact_id = ' || x_org_contact_id ||
435 ' x_party_site_id = ' || x_party_site_id);
436 END IF;
437 ELSE
438 -- failed
439
440 --ROLLBACK TO upd_vndr_contact;
441 IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
442 fnd_log.string(fnd_log.level_error,
443 'pos_supplier_contact_bo_pkg.create_pos_supp_contact_bo',
444 l_step || ' x_return_status = ' || x_return_status ||
445 ', x_msg_count = ' || x_msg_count ||
446 ', x_msg_data = ' || x_msg_data);
447 END IF;
448 END IF;
449 END LOOP;
450
451 EXCEPTION
452 WHEN fnd_api.g_exc_error THEN
453
454 x_return_status := fnd_api.g_ret_sts_error;
455 x_msg_count := 1;
456 x_msg_data := SQLCODE || SQLERRM;
457 WHEN fnd_api.g_exc_unexpected_error THEN
458
459 x_return_status := fnd_api.g_ret_sts_unexp_error;
460 x_msg_count := 1;
461 x_msg_data := SQLCODE || SQLERRM;
462 WHEN OTHERS THEN
463
464 x_return_status := fnd_api.g_ret_sts_unexp_error;
465
466 x_msg_count := 1;
467 x_msg_data := SQLCODE || SQLERRM;
468 END;
469 /*
470 /*#
471 * Use this routine to Update supplier contact
472 * @param p_api_version The version of API
473 * @param p_init_msg_list The Initialization message list
474 * @param p_vendor_contact_rec The supplier contact record
475 * @param x_vendor_contact_id The Vendor Contact Id
476 * @param x_per_party_id The Person Party ID
477 * @param x_rel_party_id The Rel Party Id
478 * @param x_org_contact_id The Organization contact id
479 * @param x_party_site_id The Party Site Id
480 * @param x_return_status The return status
481 * @param x_msg_count The message count
482 * @param x_msg_data The message data
483 * @rep:scope public
484 * @rep:lifecycle active
485 * @rep:displayname Create Supplier Contact
486 * @rep:catagory BUSSINESS_ENTITY AP_SUPPLIER
487 */
488 /* PROCEDURE update_pos_supp_contact_bo(p_api_version IN NUMBER DEFAULT NULL,
489 p_init_msg_list IN VARCHAR2 DEFAULT NULL,
490 p_vendor_contact_rec IN ap_vendor_pub_pkg.r_vendor_contact_rec_type,
491 x_vendor_contact_id OUT NOCOPY NUMBER,
492 x_per_party_id OUT NOCOPY NUMBER,
493 x_rel_party_id OUT NOCOPY NUMBER,
494 x_rel_id OUT NOCOPY NUMBER,
495 x_org_contact_id OUT NOCOPY NUMBER,
496 x_party_site_id OUT NOCOPY NUMBER,
497 x_return_status OUT NOCOPY VARCHAR2,
498 x_msg_count OUT NOCOPY NUMBER,
499 x_msg_data OUT NOCOPY VARCHAR2) IS
500
501 l_step VARCHAR2(100);
502 BEGIN
503 l_step := 'call ap_vendor_pub_pkg.update_vendor_contactt';
504 SAVEPOINT upd_vndr_contact;
505 ap_vendor_pub_pkg.update_vendor_contact(p_api_version => 1.0,
506 p_init_msg_list => fnd_api.g_true,
507 p_commit => fnd_api.g_false,
508 p_validation_level => fnd_api.g_valid_level_full,
509 p_vendor_contact_rec => p_vendor_contact_rec,
510 x_return_status => x_return_status,
511 x_msg_count => x_msg_count,
512 x_msg_data => x_msg_data);
513
514 IF x_return_status IS NOT NULL AND
515 x_return_status = fnd_api.g_ret_sts_success THEN
516 -- succeed
517 IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
518 fnd_log.string(fnd_log.level_procedure,
519 'pos_supplier_contact_bo_pkg.create_pos_supp_contact_bo',
520 l_step || ' x_return_status = ' ||
521 x_return_status || ' x_vendor_contact_id = ' ||
522 x_vendor_contact_id || ' x_per_party_id = ' ||
523 x_per_party_id || ' x_rel_party_id = ' ||
524 x_rel_party_id || ' x_rel_id = ' || x_rel_id ||
525 ' x_org_contact_id = ' || x_org_contact_id ||
526 ' x_party_site_id = ' || x_party_site_id);
527 END IF;
528 ELSE
529 -- failed
530 ROLLBACK TO upd_vndr_contact;
531 IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
532 fnd_log.string(fnd_log.level_error,
533 'pos_supplier_contact_bo_pkg.create_pos_supp_contact_bo',
534 l_step || ' x_return_status = ' ||
535 x_return_status || ', x_msg_count = ' ||
536 x_msg_count || ', x_msg_data = ' ||
537 x_msg_data);
538 END IF;
539 END IF;
540 EXCEPTION
541 WHEN fnd_api.g_exc_error THEN
542
543 x_return_status := fnd_api.g_ret_sts_error;
544 x_msg_count := 1;
545 x_msg_data := SQLCODE || SQLERRM;
546 WHEN fnd_api.g_exc_unexpected_error THEN
547
548 x_return_status := fnd_api.g_ret_sts_unexp_error;
549 x_msg_count := 1;
550 x_msg_data := SQLCODE || SQLERRM;
551 WHEN OTHERS THEN
552
553 x_return_status := fnd_api.g_ret_sts_unexp_error;
554
555 x_msg_count := 1;
556 x_msg_data := SQLCODE || SQLERRM;
557 END update_pos_supp_contact_bo;
558 */
559 END pos_supplier_contact_bo_pkg;