[Home] [Help]
14: p_os IN VARCHAR2,
15: p_osr IN VARCHAR2
16: ) RETURN VARCHAR2 IS
17: BEGIN
18: IF((p_os is null or p_os = fnd_api.g_miss_char)
19: and (p_osr is null or p_osr = fnd_api.g_miss_char))THEN
20: RETURN 'N';
21: ELSE
22: RETURN 'Y';
15: p_osr IN VARCHAR2
16: ) RETURN VARCHAR2 IS
17: BEGIN
18: IF((p_os is null or p_os = fnd_api.g_miss_char)
19: and (p_osr is null or p_osr = fnd_api.g_miss_char))THEN
20: RETURN 'N';
21: ELSE
22: RETURN 'Y';
23: END IF;
57: p_prefix=>l_debug_prefix,
58: p_msg_level=>fnd_log.level_procedure);
59: END IF;
60:
61: x_return_status := FND_API.G_RET_STS_SUCCESS;
62:
63: /* Validate account_id */
64:
65: IF p_account_id is not null THEN
71: IF l_account_id IS NULL THEN
72: FND_MESSAGE.SET_NAME('AR','HZ_CM_INV_ACCT_ID');
73: FND_MESSAGE.SET_TOKEN('ACCOUNT_ID', p_account_id);
74: FND_MSG_PUB.ADD();
75: RAISE fnd_api.g_exc_error;
76: END IF;
77: END IF;
78:
79: /* Validate from account_number*/
97:
98: FND_MESSAGE.SET_NAME('AR','HZ_CM_INV_ACCT_NUM');
99: FND_MESSAGE.SET_TOKEN('ACCOUNT_NUMBER', p_account_number);
100: FND_MSG_PUB.ADD();
101: RAISE fnd_api.g_exc_error;
102:
103: END;
104:
105: /*Check if account_number is in sync*/
108:
109: FND_MESSAGE.SET_NAME('AR','HZ_CM_INV_ACCT_NUM');
110: FND_MESSAGE.SET_TOKEN('ACCOUNT_NUMBER', p_account_number);
111: FND_MSG_PUB.ADD();
112: RAISE fnd_api.g_exc_error;
113:
114: END IF;
115:
116: END IF;
132:
133: FND_MESSAGE.SET_NAME('AR','HZ_CM_INV_OSOSR');
134: FND_MESSAGE.SET_TOKEN('OSOSR', p_account_os||','||p_account_osr);
135: FND_MSG_PUB.ADD();
136: RAISE fnd_api.g_exc_error;
137:
138: ELSIF(l_count = 1) THEN
139: -- Get owner_table_id
140: HZ_ORIG_SYSTEM_REF_PUB.get_owner_table_id(
143: p_owner_table_name => 'HZ_CUST_ACCOUNTS',
144: x_owner_table_id => l_owner_table_id,
145: x_return_status => x_return_status);
146:
147: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
148: RAISE fnd_api.g_exc_error;
149: END IF;
150:
151: IF l_account_id IS NOT NULL AND l_owner_table_id <> l_account_id THEN
144: x_owner_table_id => l_owner_table_id,
145: x_return_status => x_return_status);
146:
147: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
148: RAISE fnd_api.g_exc_error;
149: END IF;
150:
151: IF l_account_id IS NOT NULL AND l_owner_table_id <> l_account_id THEN
152:
152:
153: FND_MESSAGE.SET_NAME('AR','HZ_CM_INV_OSOSR');
154: FND_MESSAGE.SET_TOKEN('OSOSR', p_account_os||','||p_account_osr);
155: FND_MSG_PUB.ADD();
156: RAISE fnd_api.g_exc_error;
157:
158: ELSIF l_account_id IS NULL THEN
159:
160: OPEN get_account(l_owner_table_id);
165:
166: FND_MESSAGE.SET_NAME('AR','HZ_CM_INV_OSOSR');
167: FND_MESSAGE.SET_TOKEN('OSOSR', p_account_os||','||p_account_osr);
168: FND_MSG_PUB.ADD();
169: RAISE fnd_api.g_exc_error;
170: END IF;
171: END IF;
172:
173: END IF; /*l_count */
198: p_msg_level=>fnd_log.level_procedure);
199: END IF;
200:
201: EXCEPTION
202: WHEN fnd_api.g_exc_error THEN
203: x_return_status := fnd_api.g_ret_sts_error;
204:
205: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
206: p_count => x_msg_count,
199: END IF;
200:
201: EXCEPTION
202: WHEN fnd_api.g_exc_error THEN
203: x_return_status := fnd_api.g_ret_sts_error;
204:
205: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
206: p_count => x_msg_count,
207: p_data => x_msg_data);
201: EXCEPTION
202: WHEN fnd_api.g_exc_error THEN
203: x_return_status := fnd_api.g_ret_sts_error;
204:
205: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
206: p_count => x_msg_count,
207: p_data => x_msg_data);
208:
209: -- Debug info.
217: hz_utility_v2pub.debug(p_message=>'validate_account(-)',
218: p_prefix=>l_debug_prefix,
219: p_msg_level=>fnd_log.level_procedure);
220: END IF;
221: WHEN fnd_api.g_exc_unexpected_error THEN
222: x_return_status := fnd_api.g_ret_sts_unexp_error;
223:
224: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
225: p_count => x_msg_count,
218: p_prefix=>l_debug_prefix,
219: p_msg_level=>fnd_log.level_procedure);
220: END IF;
221: WHEN fnd_api.g_exc_unexpected_error THEN
222: x_return_status := fnd_api.g_ret_sts_unexp_error;
223:
224: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
225: p_count => x_msg_count,
226: p_data => x_msg_data);
220: END IF;
221: WHEN fnd_api.g_exc_unexpected_error THEN
222: x_return_status := fnd_api.g_ret_sts_unexp_error;
223:
224: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
225: p_count => x_msg_count,
226: p_data => x_msg_data);
227:
228: -- Debug info.
237: p_prefix=>l_debug_prefix,
238: p_msg_level=>fnd_log.level_procedure);
239: END IF;
240: WHEN OTHERS THEN
241: x_return_status := fnd_api.g_ret_sts_unexp_error;
242:
243: FND_MESSAGE.set_name('AR', 'HZ_API_OTHERS_EXCEP');
244: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
245: fnd_msg_pub.add;
243: FND_MESSAGE.set_name('AR', 'HZ_API_OTHERS_EXCEP');
244: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
245: fnd_msg_pub.add;
246:
247: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
248: p_count => x_msg_count,
249: p_data => x_msg_data);
250:
251: -- Debug info.
298: p_prefix=>l_debug_prefix,
299: p_msg_level=>fnd_log.level_procedure);
300: END IF;
301:
302: x_return_status := FND_API.G_RET_STS_SUCCESS;
303:
304: /* Validate p_account_site_id */
305:
306: IF p_account_site_id IS NOT NULL THEN
315:
316: FND_MESSAGE.SET_NAME('AR','HZ_CM_INV_SITE_ID');
317: FND_MESSAGE.SET_TOKEN('ACCT_SITE_ID', p_account_site_id);
318: FND_MSG_PUB.ADD();
319: RAISE fnd_api.g_exc_error;
320: END IF;
321:
322: -- Validate if acct site belongs to correct account
323:
325: FND_MESSAGE.SET_NAME('AR','HZ_CM_SITE_MISMATCH');
326: FND_MESSAGE.SET_TOKEN('ACCT_SITE_ID', p_account_site_id);
327: FND_MESSAGE.SET_TOKEN('ACCOUNT_ID', p_account_id);
328: FND_MSG_PUB.ADD();
329: RAISE fnd_api.g_exc_error;
330: END IF;
331:
332: END IF;
333:
348:
349: FND_MESSAGE.SET_NAME('AR','HZ_CM_INV_OSOSR');
350: FND_MESSAGE.SET_TOKEN('OSOSR', p_site_os||','||p_site_osr);
351: FND_MSG_PUB.ADD();
352: RAISE fnd_api.g_exc_error;
353:
354: ELSIF(l_count = 1) THEN
355: -- Get owner_table_id
356: HZ_ORIG_SYSTEM_REF_PUB.get_owner_table_id(
359: p_owner_table_name => 'HZ_CUST_ACCT_SITES_ALL',
360: x_owner_table_id => l_owner_table_id,
361: x_return_status => x_return_status);
362:
363: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
364: RAISE fnd_api.g_exc_error;
365: END IF;
366:
367: IF l_cust_acct_site_id IS NOT NULL AND l_owner_table_id <> l_cust_acct_site_id THEN
360: x_owner_table_id => l_owner_table_id,
361: x_return_status => x_return_status);
362:
363: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
364: RAISE fnd_api.g_exc_error;
365: END IF;
366:
367: IF l_cust_acct_site_id IS NOT NULL AND l_owner_table_id <> l_cust_acct_site_id THEN
368:
368:
369: FND_MESSAGE.SET_NAME('AR','HZ_CM_INV_OSOSR');
370: FND_MESSAGE.SET_TOKEN('OSOSR', p_site_os||','||p_site_osr);
371: FND_MSG_PUB.ADD();
372: RAISE fnd_api.g_exc_error;
373:
374: ELSIF l_cust_acct_site_id IS NULL THEN
375:
376: OPEN get_account_site(l_owner_table_id);
381:
382: FND_MESSAGE.SET_NAME('AR','HZ_CM_INV_OSOSR');
383: FND_MESSAGE.SET_TOKEN('OSOSR', p_site_os||','||p_site_osr);
384: FND_MSG_PUB.ADD();
385: RAISE fnd_api.g_exc_error;
386: END IF;
387: END IF;
388:
389: END IF; /*l_count */
397: FND_MESSAGE.SET_NAME('AR','HZ_CM_INV_SITE_OU');
398: FND_MESSAGE.SET_TOKEN('ACCT_SITE_ID', l_cust_acct_site_id);
399: FND_MESSAGE.SET_TOKEN('ORG_ID', p_org_id);
400: FND_MSG_PUB.ADD();
401: RAISE fnd_api.g_exc_error;
402:
403: END IF;
404:
405: IF l_party_site_id IS NULL THEN
406:
407: FND_MESSAGE.SET_NAME('AR','HZ_CM_INV_SITE_ID');
408: FND_MESSAGE.SET_TOKEN('ACCT_SITE_ID', p_account_site_id);
409: FND_MSG_PUB.ADD();
410: RAISE fnd_api.g_exc_error;
411:
412: ELSE
413:
414: SELECT party_site_number, location_id INTo l_party_site_number, x_location_id
428: FND_MESSAGE.SET_NAME('AR','HZ_CM_INV_SITE_NUM');
429: FND_MESSAGE.SET_TOKEN('SITE_NUMBER', l_party_site_number);
430: FND_MESSAGE.SET_TOKEN('ACCT_SITE', l_cust_acct_site_id);
431: FND_MSG_PUB.ADD();
432: RAISE fnd_api.g_exc_error;
433:
434: END IF;
435:
436: IF p_account_site_id IS NULL THEN
447: p_msg_level=>fnd_log.level_procedure);
448: END IF;
449:
450: EXCEPTION
451: WHEN fnd_api.g_exc_error THEN
452: x_return_status := fnd_api.g_ret_sts_error;
453:
454: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
455: p_count => x_msg_count,
448: END IF;
449:
450: EXCEPTION
451: WHEN fnd_api.g_exc_error THEN
452: x_return_status := fnd_api.g_ret_sts_error;
453:
454: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
455: p_count => x_msg_count,
456: p_data => x_msg_data);
450: EXCEPTION
451: WHEN fnd_api.g_exc_error THEN
452: x_return_status := fnd_api.g_ret_sts_error;
453:
454: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
455: p_count => x_msg_count,
456: p_data => x_msg_data);
457:
458: -- Debug info.
466: hz_utility_v2pub.debug(p_message=>'validate_account_site(-)',
467: p_prefix=>l_debug_prefix,
468: p_msg_level=>fnd_log.level_procedure);
469: END IF;
470: WHEN fnd_api.g_exc_unexpected_error THEN
471: x_return_status := fnd_api.g_ret_sts_unexp_error;
472:
473: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
474: p_count => x_msg_count,
467: p_prefix=>l_debug_prefix,
468: p_msg_level=>fnd_log.level_procedure);
469: END IF;
470: WHEN fnd_api.g_exc_unexpected_error THEN
471: x_return_status := fnd_api.g_ret_sts_unexp_error;
472:
473: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
474: p_count => x_msg_count,
475: p_data => x_msg_data);
469: END IF;
470: WHEN fnd_api.g_exc_unexpected_error THEN
471: x_return_status := fnd_api.g_ret_sts_unexp_error;
472:
473: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
474: p_count => x_msg_count,
475: p_data => x_msg_data);
476:
477: -- Debug info.
486: p_prefix=>l_debug_prefix,
487: p_msg_level=>fnd_log.level_procedure);
488: END IF;
489: WHEN OTHERS THEN
490: x_return_status := fnd_api.g_ret_sts_unexp_error;
491:
492: FND_MESSAGE.set_name('AR', 'HZ_API_OTHERS_EXCEP');
493: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
494: fnd_msg_pub.add;
492: FND_MESSAGE.set_name('AR', 'HZ_API_OTHERS_EXCEP');
493: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
494: fnd_msg_pub.add;
495:
496: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
497: p_count => x_msg_count,
498: p_data => x_msg_data);
499:
500: -- Debug info.
545: p_prefix=>l_debug_prefix,
546: p_msg_level=>fnd_log.level_procedure);
547: END IF;
548:
549: x_return_status := FND_API.G_RET_STS_SUCCESS;
550:
551: /*Validate p_site_use_id */
552:
553: IF p_site_use_id IS NOT NULL THEN
561: FND_MESSAGE.SET_NAME('AR','HZ_CM_INV_SITE_USE_ID');
562: FND_MESSAGE.SET_TOKEN('SITE_USE_ID', p_site_use_id);
563: FND_MESSAGE.SET_TOKEN('ACCT_SITE_ID', P_account_site_id);
564: FND_MSG_PUB.ADD();
565: RAISE fnd_api.g_exc_error;
566:
567: END IF;
568:
569: IF l_account_site_id <> p_account_site_id THEN
571: FND_MESSAGE.SET_NAME('AR','HZ_CM_INV_SITE_USE_ID');
572: FND_MESSAGE.SET_TOKEN('SITE_USE_ID', p_site_use_id);
573: FND_MESSAGE.SET_TOKEN('ACCT_SITE_ID', P_account_site_id);
574: FND_MSG_PUB.ADD();
575: RAISE fnd_api.g_exc_error;
576:
577: END IF;
578:
579:
596:
597: FND_MESSAGE.SET_NAME('AR','HZ_CM_INV_OSOSR');
598: FND_MESSAGE.SET_TOKEN('OSOSR', p_site_use_os||','||p_site_use_osr);
599: FND_MSG_PUB.ADD();
600: RAISE fnd_api.g_exc_error;
601:
602: ELSIF(l_count = 1) THEN
603: -- Get owner_table_id
604: HZ_ORIG_SYSTEM_REF_PUB.get_owner_table_id(
607: p_owner_table_name => 'HZ_CUST_SITE_USES_ALL',
608: x_owner_table_id => l_owner_table_id,
609: x_return_status => x_return_status);
610:
611: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
612: RAISE fnd_api.g_exc_error;
613: END IF;
614:
615: IF l_site_use_id IS NOT NULL AND l_owner_table_id <> l_site_use_id THEN
608: x_owner_table_id => l_owner_table_id,
609: x_return_status => x_return_status);
610:
611: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
612: RAISE fnd_api.g_exc_error;
613: END IF;
614:
615: IF l_site_use_id IS NOT NULL AND l_owner_table_id <> l_site_use_id THEN
616:
616:
617: FND_MESSAGE.SET_NAME('AR','HZ_CM_INV_OSOSR');
618: FND_MESSAGE.SET_TOKEN('OSOSR', p_site_use_os||','||p_site_use_osr);
619: FND_MSG_PUB.ADD();
620: RAISE fnd_api.g_exc_error;
621:
622: ELSIF l_site_use_id IS NULL THEN
623:
624: OPEN get_site_use_details(l_owner_table_id);
630:
631: FND_MESSAGE.SET_NAME('AR','HZ_CM_INV_OSOSR');
632: FND_MESSAGE.SET_TOKEN('OSOSR', p_site_use_os||','||p_site_use_osr);
633: FND_MSG_PUB.ADD();
634: RAISE fnd_api.g_exc_error;
635: END IF;
636: END IF;
637:
638: END IF; /*l_count */
650: FND_MESSAGE.SET_NAME('AR','HZ_CM_INV_SITE_USE_ID');
651: FND_MESSAGE.SET_TOKEN('SITE_USE_ID', p_site_use_id);
652: FND_MESSAGE.SET_TOKEN('ACCT_SITE_ID', P_account_site_id);
653: FND_MSG_PUB.ADD();
654: RAISE fnd_api.g_exc_error;
655: END IF;
656:
657: IF p_site_usage IS NULL THEN
658:
662:
663: FND_MESSAGE.SET_NAME('AR','HZ_CM_INV_SITE_USE_TYPE');
664: FND_MESSAGE.SET_TOKEN('SITE_USE_ID', p_site_use_id);
665: FND_MSG_PUB.ADD();
666: RAISE fnd_api.g_exc_error;
667: END IF;
668:
669: g_site_use_location(p_site_use_id) := l_location;
670: g_primary_flag(p_site_use_id) := l_primary_flag;
675: p_msg_level=>fnd_log.level_procedure);
676: END IF;
677:
678: EXCEPTION
679: WHEN fnd_api.g_exc_error THEN
680: x_return_status := fnd_api.g_ret_sts_error;
681:
682: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
683: p_count => x_msg_count,
676: END IF;
677:
678: EXCEPTION
679: WHEN fnd_api.g_exc_error THEN
680: x_return_status := fnd_api.g_ret_sts_error;
681:
682: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
683: p_count => x_msg_count,
684: p_data => x_msg_data);
678: EXCEPTION
679: WHEN fnd_api.g_exc_error THEN
680: x_return_status := fnd_api.g_ret_sts_error;
681:
682: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
683: p_count => x_msg_count,
684: p_data => x_msg_data);
685:
686: -- Debug info.
694: hz_utility_v2pub.debug(p_message=>'validate_account_site_use(-)',
695: p_prefix=>l_debug_prefix,
696: p_msg_level=>fnd_log.level_procedure);
697: END IF;
698: WHEN fnd_api.g_exc_unexpected_error THEN
699: x_return_status := fnd_api.g_ret_sts_unexp_error;
700:
701: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
702: p_count => x_msg_count,
695: p_prefix=>l_debug_prefix,
696: p_msg_level=>fnd_log.level_procedure);
697: END IF;
698: WHEN fnd_api.g_exc_unexpected_error THEN
699: x_return_status := fnd_api.g_ret_sts_unexp_error;
700:
701: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
702: p_count => x_msg_count,
703: p_data => x_msg_data);
697: END IF;
698: WHEN fnd_api.g_exc_unexpected_error THEN
699: x_return_status := fnd_api.g_ret_sts_unexp_error;
700:
701: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
702: p_count => x_msg_count,
703: p_data => x_msg_data);
704:
705: -- Debug info.
714: p_prefix=>l_debug_prefix,
715: p_msg_level=>fnd_log.level_procedure);
716: END IF;
717: WHEN OTHERS THEN
718: x_return_status := fnd_api.g_ret_sts_unexp_error;
719:
720: FND_MESSAGE.set_name('AR', 'HZ_API_OTHERS_EXCEP');
721: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
722: fnd_msg_pub.add;
720: FND_MESSAGE.set_name('AR', 'HZ_API_OTHERS_EXCEP');
721: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
722: fnd_msg_pub.add;
723:
724: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
725: p_count => x_msg_count,
726: p_data => x_msg_data);
727:
728: -- Debug info.
754: -- p_account_merge_request_obj An object of account merge details.
755: --
756: -- OUT:
757: -- x_return_status Return status after the call. The status can
758: -- be fnd_api.g_ret_sts_success (success),
759: -- fnd_api.g_ret_sts_error (error),
760: -- FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
761: -- x_msg_count Number of messages in message stack.
762: -- x_msg_data Message text if x_msg_count is 1.
755: --
756: -- OUT:
757: -- x_return_status Return status after the call. The status can
758: -- be fnd_api.g_ret_sts_success (success),
759: -- fnd_api.g_ret_sts_error (error),
760: -- FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
761: -- x_msg_count Number of messages in message stack.
762: -- x_msg_data Message text if x_msg_count is 1.
763: -- x_account_merge_result
756: -- OUT:
757: -- x_return_status Return status after the call. The status can
758: -- be fnd_api.g_ret_sts_success (success),
759: -- fnd_api.g_ret_sts_error (error),
760: -- FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
761: -- x_msg_count Number of messages in message stack.
762: -- x_msg_data Message text if x_msg_count is 1.
763: -- x_account_merge_result
764: --
768: --
769: -- 11-DEC-2012 S V Sowjanya o Created.
770:
771: PROCEDURE create_account_merge_request(
772: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
773: p_submit_request IN VARCHAR2 := 'N',
774: p_account_merge_request_obj IN HZ_ACCOUNT_MERGE_REQUEST_OBJ,
775: x_customer_merge_header_id OUT NOCOPY NUMBER,
776: x_account_merge_request_id OUT NOCOPY NUMBER,
831: p_prefix=>l_debug_prefix,
832: p_msg_level=>fnd_log.level_procedure);
833: END IF;
834:
835: x_return_status := FND_API.G_RET_STS_SUCCESS;
836:
837: IF FND_API.to_Boolean(p_init_msg_list) THEN
838: FND_MSG_PUB.initialize;
839: END IF;
833: END IF;
834:
835: x_return_status := FND_API.G_RET_STS_SUCCESS;
836:
837: IF FND_API.to_Boolean(p_init_msg_list) THEN
838: FND_MSG_PUB.initialize;
839: END IF;
840:
841: --Assign p_account_merge_request_obj to local variable
845:
846: IF p_submit_request not in ('Y', 'N') THEN
847: FND_MESSAGE.SET_NAME('AR','HZ_CM_INV_SUBMIT_PARAM');
848: FND_MSG_PUB.ADD();
849: RAISE fnd_api.g_exc_error;
850: END IF;
851:
852: g_location_id.DELETE;
853: g_site_use_location.DELETE;
857: IF l_account_merge_request_obj.merge_from_account IS NULL THEN
858:
859: FND_MESSAGE.SET_NAME('AR','HZ_CM_FROM_ACCT_MISSING');
860: FND_MSG_PUB.ADD();
861: RAISE fnd_api.g_exc_error;
862: END IF;
863:
864:
865: validate_account(p_account_id => l_account_merge_request_obj.merge_from_account.account_id,
871: x_return_status => x_return_status,
872: x_msg_count => x_msg_count,
873: x_msg_data => x_msg_data);
874:
875: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
876: RAISE fnd_api.g_exc_error;
877: END IF;
878:
879: IF l_account_merge_request_obj.merge_from_account.account_id IS NULL THEN
872: x_msg_count => x_msg_count,
873: x_msg_data => x_msg_data);
874:
875: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
876: RAISE fnd_api.g_exc_error;
877: END IF;
878:
879: IF l_account_merge_request_obj.merge_from_account.account_id IS NULL THEN
880:
879: IF l_account_merge_request_obj.merge_from_account.account_id IS NULL THEN
880:
881: FND_MESSAGE.SET_NAME('AR','HZ_CM_FROM_ACCT_MISSING');
882: FND_MSG_PUB.ADD();
883: RAISE fnd_api.g_exc_error;
884: END IF;
885:
886: --End Validate merge-from account
887:
889:
890: IF l_account_merge_request_obj.merge_to_account IS NULL THEN
891: FND_MESSAGE.SET_NAME('AR','HZ_CM_TO_ACCT_MISSING');
892: FND_MSG_PUB.ADD();
893: RAISE fnd_api.g_exc_error;
894: END IF;
895:
896: validate_account(p_account_id => l_account_merge_request_obj.merge_to_account.account_id,
897: p_account_number => l_account_merge_request_obj.merge_to_account.account_number,
902: x_return_status => x_return_status,
903: x_msg_count => x_msg_count,
904: x_msg_data => x_msg_data);
905:
906: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
907: RAISE fnd_api.g_exc_error;
908: END IF;
909:
910: IF l_account_merge_request_obj.merge_to_account.account_id IS NULL THEN
903: x_msg_count => x_msg_count,
904: x_msg_data => x_msg_data);
905:
906: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
907: RAISE fnd_api.g_exc_error;
908: END IF;
909:
910: IF l_account_merge_request_obj.merge_to_account.account_id IS NULL THEN
911:
910: IF l_account_merge_request_obj.merge_to_account.account_id IS NULL THEN
911:
912: FND_MESSAGE.SET_NAME('AR','HZ_CM_TO_ACCT_MISSING');
913: FND_MSG_PUB.ADD();
914: RAISE fnd_api.g_exc_error;
915: END IF;
916:
917:
918: -- END Validate merge-to account
954: FND_MESSAGE.SET_TOKEN('ACCT_NUM', l_account_merge_request_obj.merge_from_account.account_number);
955: FND_MESSAGE.SET_TOKEN('FACCT_NUM', tmp_duplicate_number);
956: FND_MESSAGE.SET_TOKEN('TACCT_NUM', tmp_customer_number);
957: FND_MSG_PUB.ADD();
958: RAISE fnd_api.g_exc_error;
959: end if;
960:
961: END IF;
962:
964: IF l_from_account_status = 'A' AND l_to_account_status = 'I' THEN
965:
966: FND_MESSAGE.SET_NAME('AR','HZ_MERGING_INVALID_ACCOUNT');
967: FND_MSG_PUB.ADD();
968: RAISE fnd_api.g_exc_error;
969: END IF;
970:
971: --Validate header org_id
972:
973: IF l_account_merge_request_obj.org_id IS NULL THEN
974:
975: FND_MESSAGE.SET_NAME('AR','HZ_CM_HDR_NULL_OU');
976: FND_MSG_PUB.ADD();
977: RAISE fnd_api.g_exc_error;
978: END IF;
979:
980: If l_account_merge_request_obj.org_id <> -1 THEN
981:
983: MO_GLOBAL.validate_orgid_pub_api(l_account_merge_request_obj.org_id,'N',x_return_status);
984: EXCEPTION
985: WHEN OTHERS
986: THEN
987: RAISE FND_API.G_EXC_ERROR;
988: END;
989:
990: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
991: RAISE fnd_api.g_exc_error;
986: THEN
987: RAISE FND_API.G_EXC_ERROR;
988: END;
989:
990: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
991: RAISE fnd_api.g_exc_error;
992: END IF;
993:
994: END IF;
987: RAISE FND_API.G_EXC_ERROR;
988: END;
989:
990: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
991: RAISE fnd_api.g_exc_error;
992: END IF;
993:
994: END IF;
995:
1008: IF l_from_customer_type <> l_to_customer_type THEN
1009:
1010: FND_MESSAGE.SET_NAME('AR','HZ_INVALID_MERGE_PARTIES');
1011: FND_MSG_PUB.ADD();
1012: RAISE fnd_api.g_exc_error;
1013:
1014: END IF;
1015:
1016: IF l_from_customer_type = 'ORGANIZATION' THEN
1032: AND (l_account_merge_request_obj.site_merge_details IS NULL OR l_account_merge_request_obj.site_merge_details.count = 0) THEN
1033:
1034: FND_MESSAGE.SET_NAME('AR','HZ_CM_SAME_CUST_MERGE');
1035: FND_MSG_PUB.ADD();
1036: RAISE fnd_api.g_exc_error;
1037: END IF;
1038:
1039: IF (l_account_merge_request_obj.site_merge_details IS NOT NULL AND l_account_merge_request_obj.site_merge_details.count > 0) THEN
1040:
1046:
1047: FND_MESSAGE.SET_NAME('AR','HZ_CM_SITE_NULL_OU');
1048: FND_MESSAGE.SET_TOKEN('FROM_SITE_ID', l_account_merge_request_obj.site_merge_details(i).merge_from_account_site_obj.account_site_id);
1049: FND_MSG_PUB.ADD();
1050: RAISE fnd_api.g_exc_error;
1051: END IF;
1052:
1053: BEGIN
1054: MO_GLOBAL.validate_orgid_pub_api(l_account_merge_request_obj.site_merge_details(i).org_id,'N',x_return_status);
1054: MO_GLOBAL.validate_orgid_pub_api(l_account_merge_request_obj.site_merge_details(i).org_id,'N',x_return_status);
1055: EXCEPTION
1056: WHEN OTHERS
1057: THEN
1058: RAISE FND_API.G_EXC_ERROR;
1059: END;
1060: l_from_location_id := null;
1061: l_to_location_id := null;
1062:
1074: x_msg_count => x_msg_count,
1075: x_msg_data => x_msg_data
1076: );
1077:
1078: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1079: RAISE fnd_api.g_exc_error;
1080: END IF;
1081:
1082: g_location_id(l_account_merge_request_obj.site_merge_details(i).merge_from_account_site_obj.account_site_id) := l_from_location_id;
1075: x_msg_data => x_msg_data
1076: );
1077:
1078: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1079: RAISE fnd_api.g_exc_error;
1080: END IF;
1081:
1082: g_location_id(l_account_merge_request_obj.site_merge_details(i).merge_from_account_site_obj.account_site_id) := l_from_location_id;
1083:
1087: AND l_account_merge_request_obj.site_merge_details(i).merge_to_account_site_obj IS NULL) THEN
1088:
1089: FND_MESSAGE.SET_NAME('AR','HZ_CM_NULL_TO_SITE');
1090: FND_MSG_PUB.ADD();
1091: RAISE fnd_api.g_exc_error;
1092: END IF;
1093:
1094: IF l_account_merge_request_obj.site_merge_details(i).merge_to_account_site_obj IS NOT NULL THEN
1095:
1106: x_msg_count => x_msg_count,
1107: x_msg_data => x_msg_data
1108: );
1109:
1110: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1111: RAISE fnd_api.g_exc_error;
1112: END IF;
1113:
1114: IF (l_account_merge_request_obj.site_merge_details(i).merge_to_account_site_obj.account_site_id =
1107: x_msg_data => x_msg_data
1108: );
1109:
1110: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1111: RAISE fnd_api.g_exc_error;
1112: END IF;
1113:
1114: IF (l_account_merge_request_obj.site_merge_details(i).merge_to_account_site_obj.account_site_id =
1115: l_account_merge_request_obj.site_merge_details(i).merge_from_account_site_obj.account_site_id) THEN
1117: FND_MESSAGE.SET_NAME('AR','HZ_CM_SAME_SITES');
1118: FND_MESSAGE.SET_TOKEN('FROM_SITE_ID', l_account_merge_request_obj.site_merge_details(i).merge_from_account_site_obj.account_site_id);
1119: FND_MESSAGE.SET_TOKEN('TO_SITE_ID', l_account_merge_request_obj.site_merge_details(i).merge_to_account_site_obj.account_site_id);
1120: FND_MSG_PUB.ADD();
1121: RAISE fnd_api.g_exc_error;
1122:
1123: END IF;
1124:
1125:
1128: FND_MESSAGE.SET_NAME('AR','HZ_CM_SITE_MASTER_ERR');
1129: FND_MESSAGE.SET_TOKEN('FROM_SITE_ID', l_account_merge_request_obj.site_merge_details(i).merge_from_account_site_obj.account_site_id);
1130: FND_MESSAGE.SET_TOKEN('TO_SITE_ID', l_account_merge_request_obj.site_merge_details(i).merge_to_account_site_obj.account_site_id);
1131: FND_MSG_PUB.ADD();
1132: RAISE fnd_api.g_exc_error;
1133:
1134: END IF;
1135:
1136:
1137: /*Perform tax validation*/
1138:
1139: ZX_MERGE_LOC_CHECK_PKG.CHECK_GNR(l_from_location_id,
1140: l_to_location_id,
1141: FND_API.G_FALSE,
1142: l_merge_yn,
1143: x_return_status,
1144: x_msg_count,
1145: x_msg_data);
1143: x_return_status,
1144: x_msg_count,
1145: x_msg_data);
1146:
1147: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1148: RAISE fnd_api.g_exc_error;
1149: END IF;
1150:
1151: IF l_merge_yn = 'N' THEN
1144: x_msg_count,
1145: x_msg_data);
1146:
1147: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1148: RAISE fnd_api.g_exc_error;
1149: END IF;
1150:
1151: IF l_merge_yn = 'N' THEN
1152:
1151: IF l_merge_yn = 'N' THEN
1152:
1153: FND_MESSAGE.SET_NAME('AR','AR_CUST_ADDR_LOC_MISMATCH');
1154: FND_MSG_PUB.ADD();
1155: RAISE fnd_api.g_exc_error;
1156: END IF;
1157:
1158: g_location_id(l_account_merge_request_obj.site_merge_details(i).merge_to_account_site_obj.account_site_id) := l_to_location_id;
1159:
1176: FND_MESSAGE.SET_NAME('AR','HZ_CM_INV_SITE_USE_ID');
1177: FND_MESSAGE.SET_TOKEN('SITE_USE_ID', NULL);
1178: FND_MESSAGE.SET_TOKEN('ACCT_SITE_ID', l_account_merge_request_obj.site_merge_details(i).merge_from_account_site_obj.account_site_id);
1179: FND_MSG_PUB.ADD();
1180: RAISE fnd_api.g_exc_error;
1181: END IF;
1182:
1183: END IF;
1184:
1203: FND_MESSAGE.SET_NAME('AR','HZ_CM_INV_SITE_USE_ID');
1204: FND_MESSAGE.SET_TOKEN('SITE_USE_ID', NULL);
1205: FND_MESSAGE.SET_TOKEN('ACCT_SITE_ID', l_account_merge_request_obj.site_merge_details(i).merge_from_account_site_obj.account_site_id);
1206: FND_MSG_PUB.ADD();
1207: RAISE fnd_api.g_exc_error;
1208: END IF;
1209:
1210: END IF;
1211:
1222: x_msg_count => x_msg_count,
1223: x_msg_data => x_msg_data
1224: );
1225:
1226: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1227: RAISE fnd_api.g_exc_error;
1228: END IF;
1229:
1230:
1223: x_msg_data => x_msg_data
1224: );
1225:
1226: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1227: RAISE fnd_api.g_exc_error;
1228: END IF;
1229:
1230:
1231: IF l_account_merge_request_obj.site_merge_details(i).site_use_merge_details(j).merge_to_site_use_obj IS NULL
1243: FND_MESSAGE.SET_NAME('AR','HZ_CM_INV_SITE_USE_ID');
1244: FND_MESSAGE.SET_TOKEN('SITE_USE_ID', NULL);
1245: FND_MESSAGE.SET_TOKEN('ACCT_SITE_ID', l_account_merge_request_obj.site_merge_details(i).merge_to_account_site_obj.account_site_id);
1246: FND_MSG_PUB.ADD();
1247: RAISE fnd_api.g_exc_error;
1248:
1249: END IF;
1250:
1251: END IF;
1264: x_msg_count => x_msg_count,
1265: x_msg_data => x_msg_data
1266: );
1267:
1268: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1269: RAISE fnd_api.g_exc_error;
1270: END IF;
1271: IF l_account_merge_request_obj.site_merge_details(i).site_use_merge_details(j).merge_to_site_use_obj.acct_site_use_type <>
1272: l_account_merge_request_obj.site_merge_details(i).site_use_merge_details(j).merge_from_site_use_obj.acct_site_use_type THEN
1265: x_msg_data => x_msg_data
1266: );
1267:
1268: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1269: RAISE fnd_api.g_exc_error;
1270: END IF;
1271: IF l_account_merge_request_obj.site_merge_details(i).site_use_merge_details(j).merge_to_site_use_obj.acct_site_use_type <>
1272: l_account_merge_request_obj.site_merge_details(i).site_use_merge_details(j).merge_from_site_use_obj.acct_site_use_type THEN
1273:
1276: l_account_merge_request_obj.site_merge_details(i).site_use_merge_details(j).merge_from_site_use_obj.acct_site_use_id);
1277: FND_MESSAGE.SET_TOKEN('TO_SITE_USE_ID',
1278: l_account_merge_request_obj.site_merge_details(i).site_use_merge_details(j).merge_to_site_use_obj.acct_site_use_id);
1279: FND_MSG_PUB.ADD();
1280: RAISE fnd_api.g_exc_error;
1281:
1282: END IF;
1283:
1284: IF l_to_site_use_status = 'I' AND l_to_site_use_status = 'A' THEN
1288: l_account_merge_request_obj.site_merge_details(i).site_use_merge_details(j).merge_from_site_use_obj.acct_site_use_id);
1289: FND_MESSAGE.SET_TOKEN('TO_SITE_USE_ID',
1290: l_account_merge_request_obj.site_merge_details(i).site_use_merge_details(j).merge_to_site_use_obj.acct_site_use_id);
1291: FND_MSG_PUB.ADD();
1292: RAISE fnd_api.g_exc_error;
1293:
1294: END IF;
1295:
1296: END IF; --merge_to_site_use_obj
1821: IF l_site_cnt = 0 THEN
1822:
1823: FND_MESSAGE.SET_NAME('AR','HZ_CM_SAME_CUST_MERGE');
1824: FND_MSG_PUB.ADD();
1825: RAISE fnd_api.g_exc_error;
1826:
1827: END IF;
1828:
1829:
1886: END IF;
1887:
1888:
1889: EXCEPTION
1890: WHEN fnd_api.g_exc_error THEN
1891: x_return_status := fnd_api.g_ret_sts_error;
1892:
1893: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1894: p_count => x_msg_count,
1887:
1888:
1889: EXCEPTION
1890: WHEN fnd_api.g_exc_error THEN
1891: x_return_status := fnd_api.g_ret_sts_error;
1892:
1893: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1894: p_count => x_msg_count,
1895: p_data => x_msg_data);
1889: EXCEPTION
1890: WHEN fnd_api.g_exc_error THEN
1891: x_return_status := fnd_api.g_ret_sts_error;
1892:
1893: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1894: p_count => x_msg_count,
1895: p_data => x_msg_data);
1896:
1897: -- Debug info.
1905: hz_utility_v2pub.debug(p_message=>'create_account_merge_request(-)',
1906: p_prefix=>l_debug_prefix,
1907: p_msg_level=>fnd_log.level_procedure);
1908: END IF;
1909: WHEN fnd_api.g_exc_unexpected_error THEN
1910: x_return_status := fnd_api.g_ret_sts_unexp_error;
1911:
1912: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1913: p_count => x_msg_count,
1906: p_prefix=>l_debug_prefix,
1907: p_msg_level=>fnd_log.level_procedure);
1908: END IF;
1909: WHEN fnd_api.g_exc_unexpected_error THEN
1910: x_return_status := fnd_api.g_ret_sts_unexp_error;
1911:
1912: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1913: p_count => x_msg_count,
1914: p_data => x_msg_data);
1908: END IF;
1909: WHEN fnd_api.g_exc_unexpected_error THEN
1910: x_return_status := fnd_api.g_ret_sts_unexp_error;
1911:
1912: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1913: p_count => x_msg_count,
1914: p_data => x_msg_data);
1915:
1916: -- Debug info.
1925: p_prefix=>l_debug_prefix,
1926: p_msg_level=>fnd_log.level_procedure);
1927: END IF;
1928: WHEN OTHERS THEN
1929: x_return_status := fnd_api.g_ret_sts_unexp_error;
1930:
1931: FND_MESSAGE.set_name('AR', 'HZ_API_OTHERS_EXCEP');
1932: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1933: fnd_msg_pub.add;
1931: FND_MESSAGE.set_name('AR', 'HZ_API_OTHERS_EXCEP');
1932: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1933: fnd_msg_pub.add;
1934:
1935: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1936: p_count => x_msg_count,
1937: p_data => x_msg_data);
1938:
1939: -- Debug info.