9: p_area_code IN VARCHAR2 ,
10: p_number IN VARCHAR2 ,
11: p_extension IN VARCHAR2 ,
12: --Start Bug 6620664
13: p_phone_object_version_number IN NUMBER DEFAULT fnd_api.G_NULL_NUM,
14: --End Bug 6620664
15: x_return_status OUT NOCOPY VARCHAR2,
16: x_msg_count OUT NOCOPY NUMBER ,
17: x_msg_data OUT NOCOPY VARCHAR2
64: l_rec.phone_extension IS NOT NULL AND p_extension IS NOT NULL AND
65: l_rec.phone_extension = p_extension
66: ) THEN
67: -- the current data is the same as the new data so no change needed
68: x_return_status := fnd_api.g_ret_sts_success;
69: RETURN;
70: END IF;
71:
72: l_contact_points_rec.status := 'A';
75: END IF;
76:
77: --Start for Bug 12928774
78: IF (l_rec.phone_area_code IS NOT NULL AND p_area_code IS NULL) THEN
79: l_phone_rec.phone_area_code := fnd_api.g_miss_char;
80: ELSE
81: l_phone_rec.phone_area_code := p_area_code;
82: END IF;
83: IF (l_rec.phone_extension IS NOT NULL AND p_extension IS NULL) THEN
80: ELSE
81: l_phone_rec.phone_area_code := p_area_code;
82: END IF;
83: IF (l_rec.phone_extension IS NOT NULL AND p_extension IS NULL) THEN
84: l_phone_rec.phone_extension := fnd_api.g_miss_char;
85: ELSE
86: l_phone_rec.phone_extension := p_extension;
87: END IF;
88: --End for Bug 12928774
91: l_phone_rec.phone_country_code := p_country_code;
92: l_phone_rec.phone_line_type := 'GEN';
93:
94: --Start for Bug 6620664
95: IF p_phone_object_version_number <> fnd_api.G_NULL_NUM THEN
96:
97: l_rec.object_version_number := p_phone_object_version_number;
98: END IF;
99: --End for Bug 6620664
98: END IF;
99: --End for Bug 6620664
100:
101: hz_contact_point_v2pub.update_contact_point
102: (p_init_msg_list => fnd_api.g_false,
103: p_contact_point_rec => l_contact_points_rec,
104: p_phone_rec => l_phone_rec,
105: p_object_version_number => l_rec.object_version_number,
106: x_return_status => x_return_status,
131: l_contact_points_rec.application_id := 177;
132: l_contact_points_rec.primary_flag := 'Y';
133:
134: hz_contact_point_v2pub.create_contact_point
135: ( p_init_msg_list => fnd_api.g_false,
136: p_contact_point_rec => l_contact_points_rec,
137: p_phone_rec => l_phone_rec,
138: x_contact_point_id => l_contact_point_id,
139: x_return_status => x_return_status,
148: p_msg_count => x_msg_count,
149: p_msg_data => x_msg_data
150: );
151: ELSE
152: x_return_status := fnd_api.g_ret_sts_success;
153: END IF;
154:
155: END create_or_update_tca_phone;
156:
162: p_area_code IN VARCHAR2 ,
163: p_number IN VARCHAR2 ,
164: p_extension IN VARCHAR2 ,
165: --Start Bug 6620664
166: p_fax_object_version_number IN NUMBER DEFAULT fnd_api.G_NULL_NUM,
167: --End Bug 6620664
168: x_return_status OUT NOCOPY VARCHAR2,
169: x_msg_count OUT NOCOPY NUMBER ,
170: x_msg_data OUT NOCOPY VARCHAR2
215: l_rec.phone_extension IS NOT NULL AND p_extension IS NOT NULL AND
216: l_rec.phone_extension = p_extension
217: ) THEN
218: -- the current data is the same as the new data so no change needed
219: x_return_status := fnd_api.g_ret_sts_success;
220: RETURN;
221: END IF;
222: l_contact_points_rec.status := 'A';
223: l_phone_rec.phone_number := p_number;
224: END IF;
225:
226: --Start for Bug 12928774
227: IF (l_rec.phone_area_code IS NOT NULL AND p_area_code IS NULL) THEN
228: l_phone_rec.phone_area_code := fnd_api.g_miss_char;
229: ELSE
230: l_phone_rec.phone_area_code := p_area_code;
231: END IF;
232: IF (l_rec.phone_extension IS NOT NULL AND p_extension IS NULL) THEN
229: ELSE
230: l_phone_rec.phone_area_code := p_area_code;
231: END IF;
232: IF (l_rec.phone_extension IS NOT NULL AND p_extension IS NULL) THEN
233: l_phone_rec.phone_extension := fnd_api.g_miss_char;
234: ELSE
235: l_phone_rec.phone_extension := p_extension;
236: END IF;
237: --End for Bug 12928774
240: l_phone_rec.phone_country_code := p_country_code;
241: l_phone_rec.phone_line_type := 'FAX';
242:
243: --Start for Bug 6620664
244: IF p_fax_object_version_number <> fnd_api.G_NULL_NUM THEN
245:
246: l_rec.object_version_number := p_fax_object_version_number;
247: END IF;
248: --End for Bug 6620664
247: END IF;
248: --End for Bug 6620664
249:
250: hz_contact_point_v2pub.update_contact_point
251: (p_init_msg_list => fnd_api.g_false,
252: p_contact_point_rec => l_contact_points_rec,
253: p_phone_rec => l_phone_rec,
254: p_object_version_number => l_rec.object_version_number,
255: x_return_status => x_return_status,
271: l_contact_points_rec.created_by_module := 'POS_SUPPLIER_MGMT';
272: l_contact_points_rec.application_id := 177;
273:
274: hz_contact_point_v2pub.create_contact_point
275: ( p_init_msg_list => fnd_api.g_false,
276: p_contact_point_rec => l_contact_points_rec,
277: p_phone_rec => l_phone_rec,
278: x_contact_point_id => l_contact_point_id,
279: x_return_status => x_return_status,
280: x_msg_count => x_msg_count,
281: x_msg_data => x_msg_data
282: );
283: ELSE
284: x_return_status := fnd_api.g_ret_sts_success;
285: END IF;
286:
287: END create_or_update_tca_fax;
288:
291: ( p_owner_table_id IN NUMBER,
292: p_owner_table_name IN VARCHAR2,
293: p_email_address IN VARCHAR2,
294: --Start Bug 6620664
295: p_email_object_version_number IN NUMBER DEFAULT fnd_api.G_NULL_NUM,
296: --End Bug 6620664
297: x_return_status OUT NOCOPY VARCHAR2,
298: x_msg_count OUT NOCOPY NUMBER,
299: x_msg_data OUT NOCOPY VARCHAR2
333: l_rec.email_address IS NOT NULL AND p_email_address IS NOT NULL AND
334: l_rec.email_address = p_email_address
335: ) THEN
336: -- the current data is the same as the new data so no change needed
337: x_return_status := fnd_api.g_ret_sts_success;
338: RETURN;
339: END IF;
340:
341: l_contact_points_rec.status := 'A';
346:
347: l_email_rec.email_format := 'MAILTEXT';
348:
349: --Start for Bug 6620664
350: IF p_email_object_version_number <> fnd_api.G_NULL_NUM THEN
351:
352: l_rec.object_version_number := p_email_object_version_number;
353: END IF;
354: --End for Bug 6620664
353: END IF;
354: --End for Bug 6620664
355:
356: hz_contact_point_v2pub.update_contact_point
357: (p_init_msg_list => fnd_api.g_false,
358: p_contact_point_rec => l_contact_points_rec,
359: p_email_rec => l_email_rec,
360: p_object_version_number => l_rec.object_version_number,
361: x_return_status => x_return_status,
374: l_contact_points_rec.created_by_module := 'POS_SUPPLIER_MGMT';
375: l_contact_points_rec.application_id := 177;
376:
377: hz_contact_point_v2pub.create_contact_point
378: ( p_init_msg_list => fnd_api.g_false,
379: p_contact_point_rec => l_contact_points_rec,
380: p_email_rec => l_email_rec,
381: x_contact_point_id => l_contact_point_id,
382: x_return_status => x_return_status,
383: x_msg_count => x_msg_count,
384: x_msg_data => x_msg_data
385: );
386: ELSE
387: x_return_status := fnd_api.g_ret_sts_success;
388: END IF;
389:
390: END create_or_update_tca_email;
391:
396: p_country_code IN VARCHAR2 ,
397: p_area_code IN VARCHAR2 ,
398: p_number IN VARCHAR2 ,
399: p_extension IN VARCHAR2 ,
400: p_phone_object_version_number IN NUMBER DEFAULT fnd_api.G_NULL_NUM,
401: x_return_status OUT NOCOPY VARCHAR2,
402: x_msg_count OUT NOCOPY NUMBER ,
403: x_msg_data OUT NOCOPY VARCHAR2
404: )
450: l_rec.phone_extension IS NOT NULL AND p_extension IS NOT NULL AND
451: l_rec.phone_extension = p_extension
452: ) THEN
453: -- the current data is the same as the new data so no change needed
454: x_return_status := fnd_api.g_ret_sts_success;
455: RETURN;
456: END IF;
457:
458: l_contact_points_rec.status := 'A';
461: END IF;
462:
463: --Start for Bug 12928774
464: IF (l_rec.phone_area_code IS NOT NULL AND p_area_code IS NULL) THEN
465: l_phone_rec.phone_area_code := fnd_api.g_miss_char;
466: ELSE
467: l_phone_rec.phone_area_code := p_area_code;
468: END IF;
469: IF (l_rec.phone_extension IS NOT NULL AND p_extension IS NULL) THEN
466: ELSE
467: l_phone_rec.phone_area_code := p_area_code;
468: END IF;
469: IF (l_rec.phone_extension IS NOT NULL AND p_extension IS NULL) THEN
470: l_phone_rec.phone_extension := fnd_api.g_miss_char;
471: ELSE
472: l_phone_rec.phone_extension := p_extension;
473: END IF;
474: --End for Bug 12928774
476: l_contact_points_rec.contact_point_id := l_rec.contact_point_id;
477: l_phone_rec.phone_country_code := p_country_code;
478: l_phone_rec.phone_line_type := 'GEN';
479:
480: IF p_phone_object_version_number <> fnd_api.G_NULL_NUM THEN
481: l_rec.object_version_number := p_phone_object_version_number;
482: END IF;
483:
484: hz_contact_point_v2pub.update_contact_point
481: l_rec.object_version_number := p_phone_object_version_number;
482: END IF;
483:
484: hz_contact_point_v2pub.update_contact_point
485: (p_init_msg_list => fnd_api.g_false,
486: p_contact_point_rec => l_contact_points_rec,
487: p_phone_rec => l_phone_rec,
488: p_object_version_number => l_rec.object_version_number,
489: x_return_status => x_return_status,
514: l_contact_points_rec.application_id := 177;
515: l_contact_points_rec.primary_flag := 'N';
516:
517: hz_contact_point_v2pub.create_contact_point
518: ( p_init_msg_list => fnd_api.g_false,
519: p_contact_point_rec => l_contact_points_rec,
520: p_phone_rec => l_phone_rec,
521: x_contact_point_id => l_contact_point_id,
522: x_return_status => x_return_status,
531: p_msg_count => x_msg_count,
532: p_msg_data => x_msg_data
533: );
534: ELSE
535: x_return_status := fnd_api.g_ret_sts_success;
536: END IF;
537:
538: END create_or_update_tca_alt_phone;
539:
541: PROCEDURE create_or_update_tca_url
542: ( p_owner_table_id IN NUMBER,
543: p_owner_table_name IN VARCHAR2,
544: p_url IN VARCHAR2,
545: p_url_object_version_number IN NUMBER DEFAULT fnd_api.G_NULL_NUM,
546: x_return_status OUT NOCOPY VARCHAR2,
547: x_msg_count OUT NOCOPY NUMBER,
548: x_msg_data OUT NOCOPY VARCHAR2
549: )
582: l_rec.url IS NOT NULL AND p_url IS NOT NULL AND
583: l_rec.url = p_url
584: ) THEN
585: -- the current data is the same as the new data so no change needed
586: x_return_status := fnd_api.g_ret_sts_success;
587: RETURN;
588: END IF;
589:
590: l_contact_points_rec.status := 'A';
593: END IF;
594:
595: l_contact_points_rec.contact_point_id := l_rec.contact_point_id;
596:
597: IF p_url_object_version_number <> fnd_api.G_NULL_NUM THEN
598: l_rec.object_version_number := p_url_object_version_number;
599: END IF;
600:
601: hz_contact_point_v2pub.update_contact_point
598: l_rec.object_version_number := p_url_object_version_number;
599: END IF;
600:
601: hz_contact_point_v2pub.update_contact_point
602: (p_init_msg_list => fnd_api.g_false,
603: p_contact_point_rec => l_contact_points_rec,
604: p_web_rec => l_url_rec,
605: p_object_version_number => l_rec.object_version_number,
606: x_return_status => x_return_status,
618: l_contact_points_rec.created_by_module := 'POS_SUPPLIER_MGMT';
619: l_contact_points_rec.application_id := 177;
620:
621: hz_contact_point_v2pub.create_contact_point
622: ( p_init_msg_list => fnd_api.g_false,
623: p_contact_point_rec => l_contact_points_rec,
624: p_web_rec => l_url_rec,
625: x_contact_point_id => l_contact_point_id,
626: x_return_status => x_return_status,
627: x_msg_count => x_msg_count,
628: x_msg_data => x_msg_data
629: );
630: ELSE
631: x_return_status := fnd_api.g_ret_sts_success;
632: END IF;
633:
634: END create_or_update_tca_url;
635:
639: , p_area_code IN VARCHAR2
640: , p_number IN VARCHAR2
641: , p_extension IN VARCHAR2
642: --Start Bug 6620664
643: , p_phone_object_version_number IN NUMBER DEFAULT fnd_api.G_NULL_NUM
644: --End Bug 6620664
645: , x_return_status OUT NOCOPY VARCHAR2
646: , x_msg_count OUT nocopy VARCHAR2
647: , x_msg_data OUT NOCOPY VARCHAR2
670: , p_area_code IN VARCHAR2
671: , p_number IN VARCHAR2
672: , p_extension IN VARCHAR2
673: --Start Bug 6620664
674: , p_fax_object_version_number IN NUMBER DEFAULT fnd_api.G_NULL_NUM
675: --End Bug 6620664
676: , x_return_status OUT NOCOPY VARCHAR2
677: , x_msg_count OUT nocopy VARCHAR2
678: , x_msg_data OUT NOCOPY VARCHAR2
698: PROCEDURE update_party_email
699: ( p_party_id IN NUMBER
700: , p_email IN VARCHAR2
701: --Start Bug 6620664
702: , p_email_object_version_number IN NUMBER DEFAULT fnd_api.G_NULL_NUM
703: --End Bug 6620664
704: , x_return_status OUT NOCOPY VARCHAR2
705: , x_msg_count OUT nocopy VARCHAR2
706: , x_msg_data OUT NOCOPY VARCHAR2
725: , p_country_code IN VARCHAR2
726: , p_area_code IN VARCHAR2
727: , p_number IN VARCHAR2
728: , p_extension IN VARCHAR2
729: , p_phone_object_version_number IN NUMBER DEFAULT fnd_api.G_NULL_NUM
730: , x_return_status OUT NOCOPY VARCHAR2
731: , x_msg_count OUT nocopy VARCHAR2
732: , x_msg_data OUT NOCOPY VARCHAR2
733: )
749:
750: PROCEDURE update_party_url
751: ( p_party_id IN NUMBER
752: , p_url IN VARCHAR2
753: , p_url_object_version_number IN NUMBER DEFAULT fnd_api.G_NULL_NUM
754: , x_return_status OUT NOCOPY VARCHAR2
755: , x_msg_count OUT nocopy VARCHAR2
756: , x_msg_data OUT NOCOPY VARCHAR2
757: )