145: --
146: -- DESCRIPTION
147: -- Create customer account site business object.
148: PROCEDURE do_create_cust_acct_site_bo(
149: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
150: p_validate_bo_flag IN VARCHAR2 := fnd_api.g_true,
151: p_cust_acct_site_obj IN OUT NOCOPY HZ_CUST_ACCT_SITE_BO,
152: p_created_by_module IN VARCHAR2,
153: p_obj_source IN VARCHAR2 := null,
146: -- DESCRIPTION
147: -- Create customer account site business object.
148: PROCEDURE do_create_cust_acct_site_bo(
149: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
150: p_validate_bo_flag IN VARCHAR2 := fnd_api.g_true,
151: p_cust_acct_site_obj IN OUT NOCOPY HZ_CUST_ACCT_SITE_BO,
152: p_created_by_module IN VARCHAR2,
153: p_obj_source IN VARCHAR2 := null,
154: x_return_status OUT NOCOPY VARCHAR2,
197: -- Standard start of API savepoint
198: SAVEPOINT do_create_cas_bo_pub;
199:
200: -- initialize API return status to success.
201: x_return_status := FND_API.G_RET_STS_SUCCESS;
202:
203: -- Initialize message list if p_init_msg_list is set to TRUE.
204: IF FND_API.to_Boolean(p_init_msg_list) THEN
205: FND_MSG_PUB.initialize;
200: -- initialize API return status to success.
201: x_return_status := FND_API.G_RET_STS_SUCCESS;
202:
203: -- Initialize message list if p_init_msg_list is set to TRUE.
204: IF FND_API.to_Boolean(p_init_msg_list) THEN
205: FND_MSG_PUB.initialize;
206: END IF;
207:
208: -- Debug info.
220: HZ_UTILITY_V2PUB.G_CREATED_BY_MODULE := p_created_by_module;
221: END IF;
222:
223: -- Base on p_validate_bo_flag, check the completeness of business objects
224: IF(p_validate_bo_flag = FND_API.G_TRUE) THEN
225: HZ_REGISTRY_VALIDATE_BO_PVT.get_bus_obj_struct(
226: p_bus_object_code => 'CUST_ACCT_SITE',
227: x_bus_object => l_bus_object
228: );
230: p_cas_objs => HZ_CUST_ACCT_SITE_BO_TBL(p_cust_acct_site_obj),
231: p_bus_object => l_bus_object
232: );
233: IF NOT(l_valid_obj) THEN
234: RAISE fnd_api.g_exc_error;
235: END IF;
236: END IF;
237:
238: -- check pass in parent_id and parent_os+osr
244: x_return_status => x_return_status,
245: x_msg_count => x_msg_count,
246: x_msg_data => x_msg_data);
247:
248: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
249: RAISE FND_API.G_EXC_ERROR;
250: END IF;
251:
252: -- check pass in party_site_id and party_site_os+osr
245: x_msg_count => x_msg_count,
246: x_msg_data => x_msg_data);
247:
248: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
249: RAISE FND_API.G_EXC_ERROR;
250: END IF;
251:
252: -- check pass in party_site_id and party_site_os+osr
253: l_ps_id := p_cust_acct_site_obj.party_site_id;
262: x_return_status => x_return_status,
263: x_msg_count => x_msg_count,
264: x_msg_data => x_msg_data);
265:
266: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
267: RAISE FND_API.G_EXC_ERROR;
268: END IF;
269:
270: x_cust_acct_site_id := p_cust_acct_site_obj.cust_acct_site_id;
263: x_msg_count => x_msg_count,
264: x_msg_data => x_msg_data);
265:
266: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
267: RAISE FND_API.G_EXC_ERROR;
268: END IF;
269:
270: x_cust_acct_site_id := p_cust_acct_site_obj.cust_acct_site_id;
271: x_cust_acct_site_os := p_cust_acct_site_obj.orig_system;
282: x_return_status => x_return_status,
283: x_msg_count => x_msg_count,
284: x_msg_data => x_msg_data);
285:
286: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
287: RAISE FND_API.G_EXC_ERROR;
288: END IF;
289:
290: -- from p_parent_acct_id, get parent party_id of the account, then
283: x_msg_count => x_msg_count,
284: x_msg_data => x_msg_data);
285:
286: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
287: RAISE FND_API.G_EXC_ERROR;
288: END IF;
289:
290: -- from p_parent_acct_id, get parent party_id of the account, then
291: -- use this party_id as px_parent_id of party site
293: FETCH get_acct_party INTO l_acct_party_id, l_acct_party_type;
294: CLOSE get_acct_party;
295:
296: IF l_acct_party_id IS NULL THEN
297: RAISE FND_API.G_EXC_ERROR;
298: END IF;
299:
300: ----------------------------------
301: -- Assign cust account site record
317: x_msg_count => x_msg_count,
318: x_msg_data => x_msg_data
319: );
320:
321: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
322: RAISE FND_API.G_EXC_ERROR;
323: END IF;
324:
325: -- assign cust_acct_site_id
318: x_msg_data => x_msg_data
319: );
320:
321: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
322: RAISE FND_API.G_EXC_ERROR;
323: END IF;
324:
325: -- assign cust_acct_site_id
326: p_cust_acct_site_obj.cust_acct_site_id := x_cust_acct_site_id;
345: p_parent_osr => x_cust_acct_site_osr,
346: p_parent_obj_type => 'CUST_ACCT_SITE'
347: );
348:
349: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
350: RAISE FND_API.G_EXC_ERROR;
351: END IF;
352: END IF;
353:
346: p_parent_obj_type => 'CUST_ACCT_SITE'
347: );
348:
349: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
350: RAISE FND_API.G_EXC_ERROR;
351: END IF;
352: END IF;
353:
354: HZ_UTILITY_V2PUB.G_CREATED_BY_MODULE := l_cbm;
369: x_msg_count => x_msg_count,
370: x_msg_data => x_msg_data
371: );
372:
373: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
374: RAISE FND_API.G_EXC_ERROR;
375: END IF;
376: END IF;
377:
370: x_msg_data => x_msg_data
371: );
372:
373: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
374: RAISE FND_API.G_EXC_ERROR;
375: END IF;
376: END IF;
377:
378: -- reset Global variable
392: p_msg_level=>fnd_log.level_procedure);
393: END IF;
394:
395: EXCEPTION
396: WHEN fnd_api.g_exc_error THEN
397: ROLLBACK TO do_create_cas_bo_pub;
398:
399: -- reset Global variable
400: HZ_UTILITY_V2PUB.G_CALLING_API := NULL;
403: FND_MESSAGE.SET_NAME('AR', 'HZ_API_PROPAGATE_OBJECT_ERROR');
404: FND_MESSAGE.SET_TOKEN('OBJECT', 'CUST_ACCT_SITE');
405: FND_MSG_PUB.ADD;
406:
407: x_return_status := fnd_api.g_ret_sts_error;
408:
409: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
410: p_count => x_msg_count,
411: p_data => x_msg_data);
405: FND_MSG_PUB.ADD;
406:
407: x_return_status := fnd_api.g_ret_sts_error;
408:
409: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
410: p_count => x_msg_count,
411: p_data => x_msg_data);
412:
413: -- Debug info.
422: p_prefix=>l_debug_prefix,
423: p_msg_level=>fnd_log.level_procedure);
424: END IF;
425:
426: WHEN fnd_api.g_exc_unexpected_error THEN
427: ROLLBACK TO do_create_cas_bo_pub;
428:
429: -- reset Global variable
430: HZ_UTILITY_V2PUB.G_CALLING_API := NULL;
433: FND_MESSAGE.SET_NAME('AR', 'HZ_API_PROPAGATE_OBJECT_ERROR');
434: FND_MESSAGE.SET_TOKEN('OBJECT', 'CUST_ACCT_SITE');
435: FND_MSG_PUB.ADD;
436:
437: x_return_status := fnd_api.g_ret_sts_unexp_error;
438:
439: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
440: p_count => x_msg_count,
441: p_data => x_msg_data);
435: FND_MSG_PUB.ADD;
436:
437: x_return_status := fnd_api.g_ret_sts_unexp_error;
438:
439: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
440: p_count => x_msg_count,
441: p_data => x_msg_data);
442:
443: -- Debug info.
463: FND_MESSAGE.SET_NAME('AR', 'HZ_API_PROPAGATE_OBJECT_ERROR');
464: FND_MESSAGE.SET_TOKEN('OBJECT', 'CUST_ACCT_SITE');
465: FND_MSG_PUB.ADD;
466:
467: x_return_status := fnd_api.g_ret_sts_unexp_error;
468:
469: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
470: fnd_message.set_token('ERROR' ,SQLERRM);
471: fnd_msg_pub.add;
469: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
470: fnd_message.set_token('ERROR' ,SQLERRM);
471: fnd_msg_pub.add;
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.
488: END IF;
489: END do_create_cust_acct_site_bo;
490:
491: PROCEDURE create_cust_acct_site_bo(
492: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
493: p_validate_bo_flag IN VARCHAR2 := fnd_api.g_true,
494: p_cust_acct_site_obj IN HZ_CUST_ACCT_SITE_BO,
495: p_created_by_module IN VARCHAR2,
496: x_return_status OUT NOCOPY VARCHAR2,
489: END do_create_cust_acct_site_bo;
490:
491: PROCEDURE create_cust_acct_site_bo(
492: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
493: p_validate_bo_flag IN VARCHAR2 := fnd_api.g_true,
494: p_cust_acct_site_obj IN HZ_CUST_ACCT_SITE_BO,
495: p_created_by_module IN VARCHAR2,
496: x_return_status OUT NOCOPY VARCHAR2,
497: x_msg_count OUT NOCOPY NUMBER,
524: );
525: END create_cust_acct_site_bo;
526:
527: PROCEDURE create_cust_acct_site_bo(
528: p_validate_bo_flag IN VARCHAR2 := fnd_api.g_true,
529: p_cust_acct_site_obj IN HZ_CUST_ACCT_SITE_BO,
530: p_created_by_module IN VARCHAR2,
531: p_obj_source IN VARCHAR2 := null,
532: p_return_obj_flag IN VARCHAR2 := fnd_api.g_true,
528: p_validate_bo_flag IN VARCHAR2 := fnd_api.g_true,
529: p_cust_acct_site_obj IN HZ_CUST_ACCT_SITE_BO,
530: p_created_by_module IN VARCHAR2,
531: p_obj_source IN VARCHAR2 := null,
532: p_return_obj_flag IN VARCHAR2 := fnd_api.g_true,
533: x_return_status OUT NOCOPY VARCHAR2,
534: x_messages OUT NOCOPY HZ_MESSAGE_OBJ_TBL,
535: x_return_obj OUT NOCOPY HZ_CUST_ACCT_SITE_BO,
536: x_cust_acct_site_id OUT NOCOPY NUMBER,
545: l_cas_obj HZ_CUST_ACCT_SITE_BO;
546: BEGIN
547: l_cas_obj := p_cust_acct_site_obj;
548: do_create_cust_acct_site_bo(
549: p_init_msg_list => fnd_api.g_true,
550: p_validate_bo_flag => p_validate_bo_flag,
551: p_cust_acct_site_obj => l_cas_obj,
552: p_created_by_module => p_created_by_module,
553: p_obj_source => p_obj_source,
564: x_messages := HZ_PARTY_BO_PVT.return_all_messages(
565: x_return_status => x_return_status,
566: x_msg_count => l_msg_count,
567: x_msg_data => l_msg_data);
568: IF FND_API.to_Boolean(p_return_obj_flag) THEN
569: x_return_obj := l_cas_obj;
570: END IF;
571: END create_cust_acct_site_bo;
572:
574: --
575: -- DESCRIPTION
576: -- Update customer account site business object.
577: PROCEDURE update_cust_acct_site_bo(
578: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
579: p_cust_acct_site_obj IN HZ_CUST_ACCT_SITE_BO,
580: p_created_by_module IN VARCHAR2,
581: x_return_status OUT NOCOPY VARCHAR2,
582: x_msg_count OUT NOCOPY NUMBER,
606: PROCEDURE update_cust_acct_site_bo(
607: p_cust_acct_site_obj IN HZ_CUST_ACCT_SITE_BO,
608: p_created_by_module IN VARCHAR2,
609: p_obj_source IN VARCHAR2 := null,
610: p_return_obj_flag IN VARCHAR2 := fnd_api.g_true,
611: x_return_status OUT NOCOPY VARCHAR2,
612: x_messages OUT NOCOPY HZ_MESSAGE_OBJ_TBL,
613: x_return_obj OUT NOCOPY HZ_CUST_ACCT_SITE_BO,
614: x_cust_acct_site_id OUT NOCOPY NUMBER,
620: l_cas_obj HZ_CUST_ACCT_SITE_BO;
621: BEGIN
622: l_cas_obj := p_cust_acct_site_obj;
623: do_update_cust_acct_site_bo(
624: p_init_msg_list => fnd_api.g_true,
625: p_cust_acct_site_obj => l_cas_obj,
626: p_created_by_module => p_created_by_module,
627: p_obj_source => p_obj_source,
628: x_return_status => x_return_status,
636: x_messages := HZ_PARTY_BO_PVT.return_all_messages(
637: x_return_status => x_return_status,
638: x_msg_count => l_msg_count,
639: x_msg_data => l_msg_data);
640: IF FND_API.to_Boolean(p_return_obj_flag) THEN
641: x_return_obj := l_cas_obj;
642: END IF;
643: END update_cust_acct_site_bo;
644:
646: --
647: -- DESCRIPTION
648: -- Update customer account site business object.
649: PROCEDURE do_update_cust_acct_site_bo(
650: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
651: p_validate_bo_flag IN VARCHAR2 := fnd_api.g_true,
652: p_cust_acct_site_obj IN OUT NOCOPY HZ_CUST_ACCT_SITE_BO,
653: p_created_by_module IN VARCHAR2,
654: p_obj_source IN VARCHAR2 := null,
647: -- DESCRIPTION
648: -- Update customer account site business object.
649: PROCEDURE do_update_cust_acct_site_bo(
650: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
651: p_validate_bo_flag IN VARCHAR2 := fnd_api.g_true,
652: p_cust_acct_site_obj IN OUT NOCOPY HZ_CUST_ACCT_SITE_BO,
653: p_created_by_module IN VARCHAR2,
654: p_obj_source IN VARCHAR2 := null,
655: x_return_status OUT NOCOPY VARCHAR2,
680: -- Standard start of API savepoint
681: SAVEPOINT do_update_cas_bo_pub;
682:
683: -- initialize API return status to success.
684: x_return_status := FND_API.G_RET_STS_SUCCESS;
685:
686: -- Initialize message list if p_init_msg_list is set to TRUE.
687: IF FND_API.to_Boolean(p_init_msg_list) THEN
688: FND_MSG_PUB.initialize;
683: -- initialize API return status to success.
684: x_return_status := FND_API.G_RET_STS_SUCCESS;
685:
686: -- Initialize message list if p_init_msg_list is set to TRUE.
687: IF FND_API.to_Boolean(p_init_msg_list) THEN
688: FND_MSG_PUB.initialize;
689: END IF;
690:
691: -- Debug info.
721: x_return_status => x_return_status,
722: x_msg_count => x_msg_count,
723: x_msg_data => x_msg_data);
724:
725: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
726: RAISE FND_API.G_EXC_ERROR;
727: END IF;
728:
729: -- get object version number of customer acct site
722: x_msg_count => x_msg_count,
723: x_msg_data => x_msg_data);
724:
725: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
726: RAISE FND_API.G_EXC_ERROR;
727: END IF;
728:
729: -- get object version number of customer acct site
730: OPEN get_ovn(x_cust_acct_site_id);
749: x_msg_count => x_msg_count,
750: x_msg_data => x_msg_data
751: );
752:
753: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
754: RAISE FND_API.G_EXC_ERROR;
755: END IF;
756:
757: -- assign cust_acct_site_id
750: x_msg_data => x_msg_data
751: );
752:
753: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
754: RAISE FND_API.G_EXC_ERROR;
755: END IF;
756:
757: -- assign cust_acct_site_id
758: p_cust_acct_site_obj.cust_acct_site_id := x_cust_acct_site_id;
775: p_parent_osr => x_cust_acct_site_osr,
776: p_parent_obj_type => 'CUST_ACCT_SITE'
777: );
778:
779: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
780: RAISE FND_API.G_EXC_ERROR;
781: END IF;
782: END IF;
783:
776: p_parent_obj_type => 'CUST_ACCT_SITE'
777: );
778:
779: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
780: RAISE FND_API.G_EXC_ERROR;
781: END IF;
782: END IF;
783:
784: HZ_UTILITY_V2PUB.G_CREATED_BY_MODULE := l_cbm;
797: x_msg_count => x_msg_count,
798: x_msg_data => x_msg_data
799: );
800:
801: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
802: RAISE FND_API.G_EXC_ERROR;
803: END IF;
804: END IF;
805:
798: x_msg_data => x_msg_data
799: );
800:
801: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
802: RAISE FND_API.G_EXC_ERROR;
803: END IF;
804: END IF;
805:
806: -- reset Global variable
819: p_prefix=>l_debug_prefix,
820: p_msg_level=>fnd_log.level_procedure);
821: END IF;
822: EXCEPTION
823: WHEN fnd_api.g_exc_error THEN
824: ROLLBACK TO do_update_cas_bo_pub;
825:
826: -- reset Global variable
827: HZ_UTILITY_V2PUB.G_CALLING_API := NULL;
830: FND_MESSAGE.SET_NAME('AR', 'HZ_API_PROPAGATE_OBJECT_ERROR');
831: FND_MESSAGE.SET_TOKEN('OBJECT', 'CUST_ACCT_SITE');
832: FND_MSG_PUB.ADD;
833:
834: x_return_status := fnd_api.g_ret_sts_error;
835:
836: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
837: p_count => x_msg_count,
838: p_data => x_msg_data);
832: FND_MSG_PUB.ADD;
833:
834: x_return_status := fnd_api.g_ret_sts_error;
835:
836: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
837: p_count => x_msg_count,
838: p_data => x_msg_data);
839:
840: -- Debug info.
849: p_prefix=>l_debug_prefix,
850: p_msg_level=>fnd_log.level_procedure);
851: END IF;
852:
853: WHEN fnd_api.g_exc_unexpected_error THEN
854: ROLLBACK TO do_update_cas_bo_pub;
855:
856: -- reset Global variable
857: HZ_UTILITY_V2PUB.G_CALLING_API := NULL;
860: FND_MESSAGE.SET_NAME('AR', 'HZ_API_PROPAGATE_OBJECT_ERROR');
861: FND_MESSAGE.SET_TOKEN('OBJECT', 'CUST_ACCT_SITE');
862: FND_MSG_PUB.ADD;
863:
864: x_return_status := fnd_api.g_ret_sts_unexp_error;
865:
866: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
867: p_count => x_msg_count,
868: p_data => x_msg_data);
862: FND_MSG_PUB.ADD;
863:
864: x_return_status := fnd_api.g_ret_sts_unexp_error;
865:
866: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
867: p_count => x_msg_count,
868: p_data => x_msg_data);
869:
870: -- Debug info.
890: FND_MESSAGE.SET_NAME('AR', 'HZ_API_PROPAGATE_OBJECT_ERROR');
891: FND_MESSAGE.SET_TOKEN('OBJECT', 'CUST_ACCT_SITE');
892: FND_MSG_PUB.ADD;
893:
894: x_return_status := fnd_api.g_ret_sts_unexp_error;
895:
896: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
897: fnd_message.set_token('ERROR' ,SQLERRM);
898: fnd_msg_pub.add;
896: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
897: fnd_message.set_token('ERROR' ,SQLERRM);
898: fnd_msg_pub.add;
899:
900: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
901: p_count => x_msg_count,
902: p_data => x_msg_data);
903:
904: -- Debug info.
919: --
920: -- DESCRIPTION
921: -- Create or update customer account site business object.
922: PROCEDURE do_save_cust_acct_site_bo(
923: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
924: p_validate_bo_flag IN VARCHAR2 := fnd_api.g_true,
925: p_cust_acct_site_obj IN OUT NOCOPY HZ_CUST_ACCT_SITE_BO,
926: p_created_by_module IN VARCHAR2,
927: p_obj_source IN VARCHAR2 := null,
920: -- DESCRIPTION
921: -- Create or update customer account site business object.
922: PROCEDURE do_save_cust_acct_site_bo(
923: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
924: p_validate_bo_flag IN VARCHAR2 := fnd_api.g_true,
925: p_cust_acct_site_obj IN OUT NOCOPY HZ_CUST_ACCT_SITE_BO,
926: p_created_by_module IN VARCHAR2,
927: p_obj_source IN VARCHAR2 := null,
928: x_return_status OUT NOCOPY VARCHAR2,
950: AND rownum = 1;
951:
952: BEGIN
953: -- initialize API return status to success.
954: x_return_status := FND_API.G_RET_STS_SUCCESS;
955:
956: -- Initialize message list if p_init_msg_list is set to TRUE.
957: IF FND_API.to_Boolean(p_init_msg_list) THEN
958: FND_MSG_PUB.initialize;
953: -- initialize API return status to success.
954: x_return_status := FND_API.G_RET_STS_SUCCESS;
955:
956: -- Initialize message list if p_init_msg_list is set to TRUE.
957: IF FND_API.to_Boolean(p_init_msg_list) THEN
958: FND_MSG_PUB.initialize;
959: END IF;
960:
961: -- Debug info.
998: IF(l_create_update_flag = 'E') THEN
999: FND_MESSAGE.SET_NAME('AR', 'HZ_API_PROPAGATE_OBJECT_ERROR');
1000: FND_MESSAGE.SET_TOKEN('OBJECT', 'CUST_ACCT_SITE');
1001: FND_MSG_PUB.ADD;
1002: RAISE FND_API.G_EXC_ERROR;
1003: END IF;
1004:
1005: IF(l_create_update_flag = 'C') THEN
1006: do_create_cust_acct_site_bo(
1003: END IF;
1004:
1005: IF(l_create_update_flag = 'C') THEN
1006: do_create_cust_acct_site_bo(
1007: p_init_msg_list => fnd_api.g_false,
1008: p_validate_bo_flag => p_validate_bo_flag,
1009: p_cust_acct_site_obj => p_cust_acct_site_obj,
1010: p_created_by_module => p_created_by_module,
1011: p_obj_source => p_obj_source,
1020: px_parent_acct_osr => px_parent_acct_osr
1021: );
1022: ELSIF(l_create_update_flag = 'U') THEN
1023: do_update_cust_acct_site_bo(
1024: p_init_msg_list => fnd_api.g_false,
1025: p_cust_acct_site_obj => p_cust_acct_site_obj,
1026: p_created_by_module => p_created_by_module,
1027: p_obj_source => p_obj_source,
1028: x_return_status => x_return_status,
1033: x_cust_acct_site_osr => x_cust_acct_site_osr,
1034: p_parent_os => px_parent_acct_os
1035: );
1036: ELSE
1037: RAISE FND_API.G_EXC_ERROR;
1038: END IF;
1039:
1040: -- Debug info.
1041: IF fnd_log.level_exception>=fnd_log.g_current_runtime_level THEN
1050: p_msg_level=>fnd_log.level_procedure);
1051: END IF;
1052:
1053: EXCEPTION
1054: WHEN fnd_api.g_exc_error THEN
1055: x_return_status := fnd_api.g_ret_sts_error;
1056:
1057: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1058: p_count => x_msg_count,
1051: END IF;
1052:
1053: EXCEPTION
1054: WHEN fnd_api.g_exc_error THEN
1055: x_return_status := fnd_api.g_ret_sts_error;
1056:
1057: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1058: p_count => x_msg_count,
1059: p_data => x_msg_data);
1053: EXCEPTION
1054: WHEN fnd_api.g_exc_error THEN
1055: x_return_status := fnd_api.g_ret_sts_error;
1056:
1057: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1058: p_count => x_msg_count,
1059: p_data => x_msg_data);
1060:
1061: -- Debug info.
1069: hz_utility_v2pub.debug(p_message=>'do_save_cust_acct_site_bo(-)',
1070: p_prefix=>l_debug_prefix,
1071: p_msg_level=>fnd_log.level_procedure);
1072: END IF;
1073: WHEN fnd_api.g_exc_unexpected_error THEN
1074: x_return_status := fnd_api.g_ret_sts_unexp_error;
1075:
1076: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1077: p_count => x_msg_count,
1070: p_prefix=>l_debug_prefix,
1071: p_msg_level=>fnd_log.level_procedure);
1072: END IF;
1073: WHEN fnd_api.g_exc_unexpected_error THEN
1074: x_return_status := fnd_api.g_ret_sts_unexp_error;
1075:
1076: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1077: p_count => x_msg_count,
1078: p_data => x_msg_data);
1072: END IF;
1073: WHEN fnd_api.g_exc_unexpected_error THEN
1074: x_return_status := fnd_api.g_ret_sts_unexp_error;
1075:
1076: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1077: p_count => x_msg_count,
1078: p_data => x_msg_data);
1079:
1080: -- Debug info.
1089: p_prefix=>l_debug_prefix,
1090: p_msg_level=>fnd_log.level_procedure);
1091: END IF;
1092: WHEN OTHERS THEN
1093: x_return_status := fnd_api.g_ret_sts_unexp_error;
1094:
1095: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
1096: fnd_message.set_token('ERROR' ,SQLERRM);
1097: fnd_msg_pub.add;
1095: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
1096: fnd_message.set_token('ERROR' ,SQLERRM);
1097: fnd_msg_pub.add;
1098:
1099: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1100: p_count => x_msg_count,
1101: p_data => x_msg_data);
1102:
1103: -- Debug info.
1114: END IF;
1115: END do_save_cust_acct_site_bo;
1116:
1117: PROCEDURE save_cust_acct_site_bo(
1118: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1119: p_validate_bo_flag IN VARCHAR2 := fnd_api.g_true,
1120: p_cust_acct_site_obj IN HZ_CUST_ACCT_SITE_BO,
1121: p_created_by_module IN VARCHAR2,
1122: x_return_status OUT NOCOPY VARCHAR2,
1115: END do_save_cust_acct_site_bo;
1116:
1117: PROCEDURE save_cust_acct_site_bo(
1118: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1119: p_validate_bo_flag IN VARCHAR2 := fnd_api.g_true,
1120: p_cust_acct_site_obj IN HZ_CUST_ACCT_SITE_BO,
1121: p_created_by_module IN VARCHAR2,
1122: x_return_status OUT NOCOPY VARCHAR2,
1123: x_msg_count OUT NOCOPY NUMBER,
1150: );
1151: END save_cust_acct_site_bo;
1152:
1153: PROCEDURE save_cust_acct_site_bo(
1154: p_validate_bo_flag IN VARCHAR2 := fnd_api.g_true,
1155: p_cust_acct_site_obj IN HZ_CUST_ACCT_SITE_BO,
1156: p_created_by_module IN VARCHAR2,
1157: p_obj_source IN VARCHAR2 := null,
1158: p_return_obj_flag IN VARCHAR2 := fnd_api.g_true,
1154: p_validate_bo_flag IN VARCHAR2 := fnd_api.g_true,
1155: p_cust_acct_site_obj IN HZ_CUST_ACCT_SITE_BO,
1156: p_created_by_module IN VARCHAR2,
1157: p_obj_source IN VARCHAR2 := null,
1158: p_return_obj_flag IN VARCHAR2 := fnd_api.g_true,
1159: x_return_status OUT NOCOPY VARCHAR2,
1160: x_messages OUT NOCOPY HZ_MESSAGE_OBJ_TBL,
1161: x_return_obj OUT NOCOPY HZ_CUST_ACCT_SITE_BO,
1162: x_cust_acct_site_id OUT NOCOPY NUMBER,
1171: l_cas_obj HZ_CUST_ACCT_SITE_BO;
1172: BEGIN
1173: l_cas_obj := p_cust_acct_site_obj;
1174: do_save_cust_acct_site_bo(
1175: p_init_msg_list => fnd_api.g_true,
1176: p_validate_bo_flag => p_validate_bo_flag,
1177: p_cust_acct_site_obj => l_cas_obj,
1178: p_created_by_module => p_created_by_module,
1179: p_obj_source => p_obj_source,
1190: x_messages := HZ_PARTY_BO_PVT.return_all_messages(
1191: x_return_status => x_return_status,
1192: x_msg_count => l_msg_count,
1193: x_msg_data => l_msg_data);
1194: IF FND_API.to_Boolean(p_return_obj_flag) THEN
1195: x_return_obj := l_cas_obj;
1196: END IF;
1197: END save_cust_acct_site_bo;
1198:
1209: -- IN:
1210: -- p_init_msg_list Initialize message stack if it is set to
1211: -- p_parent_id parent id.
1212: -- p_cust_acct_site_id customer account site ID.
1213: -- FND_API.G_TRUE. Default is FND_API.G_FALSE.
1214: -- OUT:
1215: -- x_cust_acct_site_obj Logical customer account site record.
1216: -- x_return_status Return status after the call. The status can
1217: -- be fnd_api.g_ret_sts_success (success),
1213: -- FND_API.G_TRUE. Default is FND_API.G_FALSE.
1214: -- OUT:
1215: -- x_cust_acct_site_obj Logical customer account site record.
1216: -- x_return_status Return status after the call. The status can
1217: -- be fnd_api.g_ret_sts_success (success),
1218: -- fnd_api.g_ret_sts_error (error),
1219: -- FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
1220: -- x_msg_count Number of messages in message stack.
1221: -- x_msg_data Message text if x_msg_count is 1.
1214: -- OUT:
1215: -- x_cust_acct_site_obj Logical customer account site record.
1216: -- x_return_status Return status after the call. The status can
1217: -- be fnd_api.g_ret_sts_success (success),
1218: -- fnd_api.g_ret_sts_error (error),
1219: -- FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
1220: -- x_msg_count Number of messages in message stack.
1221: -- x_msg_data Message text if x_msg_count is 1.
1222: --
1215: -- x_cust_acct_site_obj Logical customer account site record.
1216: -- x_return_status Return status after the call. The status can
1217: -- be fnd_api.g_ret_sts_success (success),
1218: -- fnd_api.g_ret_sts_error (error),
1219: -- FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
1220: -- x_msg_count Number of messages in message stack.
1221: -- x_msg_data Message text if x_msg_count is 1.
1222: --
1223: -- NOTES
1258: */
1259:
1260:
1261: PROCEDURE get_cust_acct_site_bo (
1262: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1263: p_cust_acct_site_id IN NUMBER,
1264: p_cust_acct_site_os IN VARCHAR2,
1265: p_cust_acct_site_osr IN VARCHAR2,
1266: x_cust_acct_site_obj OUT NOCOPY HZ_CUST_ACCT_SITE_BO,
1276: l_cust_acct_site_objs HZ_CUST_ACCT_SITE_BO_TBL;
1277: BEGIN
1278:
1279: -- initialize API return status to success.
1280: x_return_status := FND_API.G_RET_STS_SUCCESS;
1281:
1282: -- Initialize message list if p_init_msg_list is set to TRUE
1283: IF FND_API.to_Boolean(p_init_msg_list) THEN
1284: FND_MSG_PUB.initialize;
1279: -- initialize API return status to success.
1280: x_return_status := FND_API.G_RET_STS_SUCCESS;
1281:
1282: -- Initialize message list if p_init_msg_list is set to TRUE
1283: IF FND_API.to_Boolean(p_init_msg_list) THEN
1284: FND_MSG_PUB.initialize;
1285: END IF;
1286:
1287:
1307: x_return_status => x_return_status,
1308: x_msg_count => x_msg_count,
1309: x_msg_data => x_msg_data);
1310:
1311: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1312: RAISE fnd_api.g_exc_error;
1313: END IF;
1314:
1315: HZ_EXTRACT_ACCT_SITE_BO_PVT.get_cust_acct_site_bos
1308: x_msg_count => x_msg_count,
1309: x_msg_data => x_msg_data);
1310:
1311: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1312: RAISE fnd_api.g_exc_error;
1313: END IF;
1314:
1315: HZ_EXTRACT_ACCT_SITE_BO_PVT.get_cust_acct_site_bos
1316: (p_init_msg_list => fnd_api.g_false,
1312: RAISE fnd_api.g_exc_error;
1313: END IF;
1314:
1315: HZ_EXTRACT_ACCT_SITE_BO_PVT.get_cust_acct_site_bos
1316: (p_init_msg_list => fnd_api.g_false,
1317: p_parent_id => NULL,
1318: p_cust_acct_site_id => l_cust_acct_site_id,
1319: p_action_type => NULL,
1320: x_cust_acct_site_objs => l_cust_acct_site_objs,
1323: x_msg_data => x_msg_data);
1324:
1325: x_cust_acct_site_obj := l_cust_acct_site_objs(1);
1326:
1327: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1328: RAISE FND_API.G_EXC_ERROR;
1329: END IF;
1330:
1331:
1324:
1325: x_cust_acct_site_obj := l_cust_acct_site_objs(1);
1326:
1327: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1328: RAISE FND_API.G_EXC_ERROR;
1329: END IF;
1330:
1331:
1332: -- Debug info.
1346:
1347:
1348: EXCEPTION
1349:
1350: WHEN fnd_api.g_exc_error THEN
1351: x_return_status := fnd_api.g_ret_sts_error;
1352:
1353: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1354: p_count => x_msg_count,
1347:
1348: EXCEPTION
1349:
1350: WHEN fnd_api.g_exc_error THEN
1351: x_return_status := fnd_api.g_ret_sts_error;
1352:
1353: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1354: p_count => x_msg_count,
1355: p_data => x_msg_data);
1349:
1350: WHEN fnd_api.g_exc_error THEN
1351: x_return_status := fnd_api.g_ret_sts_error;
1352:
1353: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1354: p_count => x_msg_count,
1355: p_data => x_msg_data);
1356:
1357: -- Debug info.
1365: hz_utility_v2pub.debug(p_message=>'hz_cust_acct_site_bo_pub.get_cust_acct_site_bo (-)',
1366: p_prefix=>l_debug_prefix,
1367: p_msg_level=>fnd_log.level_procedure);
1368: END IF;
1369: WHEN fnd_api.g_exc_unexpected_error THEN
1370: x_return_status := fnd_api.g_ret_sts_unexp_error;
1371:
1372: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1373: p_count => x_msg_count,
1366: p_prefix=>l_debug_prefix,
1367: p_msg_level=>fnd_log.level_procedure);
1368: END IF;
1369: WHEN fnd_api.g_exc_unexpected_error THEN
1370: x_return_status := fnd_api.g_ret_sts_unexp_error;
1371:
1372: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1373: p_count => x_msg_count,
1374: p_data => x_msg_data);
1368: END IF;
1369: WHEN fnd_api.g_exc_unexpected_error THEN
1370: x_return_status := fnd_api.g_ret_sts_unexp_error;
1371:
1372: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1373: p_count => x_msg_count,
1374: p_data => x_msg_data);
1375:
1376: -- Debug info.
1385: p_prefix=>l_debug_prefix,
1386: p_msg_level=>fnd_log.level_procedure);
1387: END IF;
1388: WHEN OTHERS THEN
1389: x_return_status := fnd_api.g_ret_sts_unexp_error;
1390:
1391: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
1392: fnd_message.set_token('ERROR' ,SQLERRM);
1393: fnd_msg_pub.add;
1391: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
1392: fnd_message.set_token('ERROR' ,SQLERRM);
1393: fnd_msg_pub.add;
1394:
1395: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1396: p_count => x_msg_count,
1397: p_data => x_msg_data);
1398:
1399: -- Debug info.
1422: l_msg_data VARCHAR2(2000);
1423: l_msg_count NUMBER;
1424: BEGIN
1425: get_cust_acct_site_bo (
1426: p_init_msg_list => FND_API.G_TRUE,
1427: p_cust_acct_site_id => p_cust_acct_site_id,
1428: p_cust_acct_site_os => p_cust_acct_site_os,
1429: p_cust_acct_site_osr => p_cust_acct_site_osr,
1430: x_cust_acct_site_obj => x_cust_acct_site_obj,
1582: --
1583: -- DESCRIPTION
1584: -- Create customer account site business object.
1585: PROCEDURE do_create_cust_acct_site_v2_bo(
1586: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1587: p_validate_bo_flag IN VARCHAR2 := fnd_api.g_true,
1588: p_cust_acct_site_v2_obj IN OUT NOCOPY HZ_CUST_ACCT_SITE_V2_BO,
1589: p_created_by_module IN VARCHAR2,
1590: p_obj_source IN VARCHAR2 := null,
1583: -- DESCRIPTION
1584: -- Create customer account site business object.
1585: PROCEDURE do_create_cust_acct_site_v2_bo(
1586: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1587: p_validate_bo_flag IN VARCHAR2 := fnd_api.g_true,
1588: p_cust_acct_site_v2_obj IN OUT NOCOPY HZ_CUST_ACCT_SITE_V2_BO,
1589: p_created_by_module IN VARCHAR2,
1590: p_obj_source IN VARCHAR2 := null,
1591: x_return_status OUT NOCOPY VARCHAR2,
1634: -- Standard start of API savepoint
1635: SAVEPOINT do_create_cas_v2_bo_pub;
1636:
1637: -- initialize API return status to success.
1638: x_return_status := FND_API.G_RET_STS_SUCCESS;
1639:
1640: -- Initialize message list if p_init_msg_list is set to TRUE.
1641: IF FND_API.to_Boolean(p_init_msg_list) THEN
1642: FND_MSG_PUB.initialize;
1637: -- initialize API return status to success.
1638: x_return_status := FND_API.G_RET_STS_SUCCESS;
1639:
1640: -- Initialize message list if p_init_msg_list is set to TRUE.
1641: IF FND_API.to_Boolean(p_init_msg_list) THEN
1642: FND_MSG_PUB.initialize;
1643: END IF;
1644:
1645: -- Debug info.
1657: HZ_UTILITY_V2PUB.G_CREATED_BY_MODULE := p_created_by_module;
1658: END IF;
1659:
1660: -- Base on p_validate_bo_flag, check the completeness of business objects
1661: IF(p_validate_bo_flag = FND_API.G_TRUE) THEN
1662: HZ_REGISTRY_VALIDATE_BO_PVT.get_bus_obj_struct(
1663: p_bus_object_code => 'CUST_ACCT_SITE',
1664: x_bus_object => l_bus_object
1665: );
1667: p_cas_v2_objs => HZ_CUST_ACCT_SITE_V2_BO_TBL(p_cust_acct_site_v2_obj),
1668: p_bus_object => l_bus_object
1669: );
1670: IF NOT(l_valid_obj) THEN
1671: RAISE fnd_api.g_exc_error;
1672: END IF;
1673: END IF;
1674:
1675: -- check pass in parent_id and parent_os+osr
1681: x_return_status => x_return_status,
1682: x_msg_count => x_msg_count,
1683: x_msg_data => x_msg_data);
1684:
1685: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1686: RAISE FND_API.G_EXC_ERROR;
1687: END IF;
1688:
1689: -- check pass in party_site_id and party_site_os+osr
1682: x_msg_count => x_msg_count,
1683: x_msg_data => x_msg_data);
1684:
1685: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1686: RAISE FND_API.G_EXC_ERROR;
1687: END IF;
1688:
1689: -- check pass in party_site_id and party_site_os+osr
1690: l_ps_id := p_cust_acct_site_v2_obj.party_site_id;
1699: x_return_status => x_return_status,
1700: x_msg_count => x_msg_count,
1701: x_msg_data => x_msg_data);
1702:
1703: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1704: RAISE FND_API.G_EXC_ERROR;
1705: END IF;
1706:
1707: x_cust_acct_site_id := p_cust_acct_site_v2_obj.cust_acct_site_id;
1700: x_msg_count => x_msg_count,
1701: x_msg_data => x_msg_data);
1702:
1703: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1704: RAISE FND_API.G_EXC_ERROR;
1705: END IF;
1706:
1707: x_cust_acct_site_id := p_cust_acct_site_v2_obj.cust_acct_site_id;
1708: x_cust_acct_site_os := p_cust_acct_site_v2_obj.orig_system;
1719: x_return_status => x_return_status,
1720: x_msg_count => x_msg_count,
1721: x_msg_data => x_msg_data);
1722:
1723: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1724: RAISE FND_API.G_EXC_ERROR;
1725: END IF;
1726:
1727: -- from p_parent_acct_id, get parent party_id of the account, then
1720: x_msg_count => x_msg_count,
1721: x_msg_data => x_msg_data);
1722:
1723: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1724: RAISE FND_API.G_EXC_ERROR;
1725: END IF;
1726:
1727: -- from p_parent_acct_id, get parent party_id of the account, then
1728: -- use this party_id as px_parent_id of party site
1730: FETCH get_acct_party INTO l_acct_party_id, l_acct_party_type;
1731: CLOSE get_acct_party;
1732:
1733: IF l_acct_party_id IS NULL THEN
1734: RAISE FND_API.G_EXC_ERROR;
1735: END IF;
1736:
1737: ----------------------------------
1738: -- Assign cust account site record
1754: x_msg_count => x_msg_count,
1755: x_msg_data => x_msg_data
1756: );
1757:
1758: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1759: RAISE FND_API.G_EXC_ERROR;
1760: END IF;
1761:
1762: -- assign cust_acct_site_id
1755: x_msg_data => x_msg_data
1756: );
1757:
1758: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1759: RAISE FND_API.G_EXC_ERROR;
1760: END IF;
1761:
1762: -- assign cust_acct_site_id
1763: p_cust_acct_site_v2_obj.cust_acct_site_id := x_cust_acct_site_id;
1782: p_parent_osr => x_cust_acct_site_osr,
1783: p_parent_obj_type => 'CUST_ACCT_SITE'
1784: );
1785:
1786: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1787: RAISE FND_API.G_EXC_ERROR;
1788: END IF;
1789: END IF;
1790:
1783: p_parent_obj_type => 'CUST_ACCT_SITE'
1784: );
1785:
1786: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1787: RAISE FND_API.G_EXC_ERROR;
1788: END IF;
1789: END IF;
1790:
1791: HZ_UTILITY_V2PUB.G_CREATED_BY_MODULE := l_cbm;
1806: x_msg_count => x_msg_count,
1807: x_msg_data => x_msg_data
1808: );
1809:
1810: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1811: RAISE FND_API.G_EXC_ERROR;
1812: END IF;
1813: END IF;
1814:
1807: x_msg_data => x_msg_data
1808: );
1809:
1810: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1811: RAISE FND_API.G_EXC_ERROR;
1812: END IF;
1813: END IF;
1814:
1815: -- reset Global variable
1829: p_msg_level=>fnd_log.level_procedure);
1830: END IF;
1831:
1832: EXCEPTION
1833: WHEN fnd_api.g_exc_error THEN
1834: ROLLBACK TO do_create_cas_v2_bo_pub;
1835:
1836: -- reset Global variable
1837: HZ_UTILITY_V2PUB.G_CALLING_API := NULL;
1840: FND_MESSAGE.SET_NAME('AR', 'HZ_API_PROPAGATE_OBJECT_ERROR');
1841: FND_MESSAGE.SET_TOKEN('OBJECT', 'CUST_ACCT_SITE');
1842: FND_MSG_PUB.ADD;
1843:
1844: x_return_status := fnd_api.g_ret_sts_error;
1845:
1846: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1847: p_count => x_msg_count,
1848: p_data => x_msg_data);
1842: FND_MSG_PUB.ADD;
1843:
1844: x_return_status := fnd_api.g_ret_sts_error;
1845:
1846: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1847: p_count => x_msg_count,
1848: p_data => x_msg_data);
1849:
1850: -- Debug info.
1859: p_prefix=>l_debug_prefix,
1860: p_msg_level=>fnd_log.level_procedure);
1861: END IF;
1862:
1863: WHEN fnd_api.g_exc_unexpected_error THEN
1864: ROLLBACK TO do_create_cas_v2_bo_pub;
1865:
1866: -- reset Global variable
1867: HZ_UTILITY_V2PUB.G_CALLING_API := NULL;
1870: FND_MESSAGE.SET_NAME('AR', 'HZ_API_PROPAGATE_OBJECT_ERROR');
1871: FND_MESSAGE.SET_TOKEN('OBJECT', 'CUST_ACCT_SITE');
1872: FND_MSG_PUB.ADD;
1873:
1874: x_return_status := fnd_api.g_ret_sts_unexp_error;
1875:
1876: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1877: p_count => x_msg_count,
1878: p_data => x_msg_data);
1872: FND_MSG_PUB.ADD;
1873:
1874: x_return_status := fnd_api.g_ret_sts_unexp_error;
1875:
1876: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1877: p_count => x_msg_count,
1878: p_data => x_msg_data);
1879:
1880: -- Debug info.
1900: FND_MESSAGE.SET_NAME('AR', 'HZ_API_PROPAGATE_OBJECT_ERROR');
1901: FND_MESSAGE.SET_TOKEN('OBJECT', 'CUST_ACCT_SITE');
1902: FND_MSG_PUB.ADD;
1903:
1904: x_return_status := fnd_api.g_ret_sts_unexp_error;
1905:
1906: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
1907: fnd_message.set_token('ERROR' ,SQLERRM);
1908: fnd_msg_pub.add;
1906: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
1907: fnd_message.set_token('ERROR' ,SQLERRM);
1908: fnd_msg_pub.add;
1909:
1910: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1911: p_count => x_msg_count,
1912: p_data => x_msg_data);
1913:
1914: -- Debug info.
1926: END do_create_cust_acct_site_v2_bo;
1927:
1928:
1929: PROCEDURE create_cust_acct_site_v2_bo(
1930: p_validate_bo_flag IN VARCHAR2 := fnd_api.g_true,
1931: p_cust_acct_site_v2_obj IN HZ_CUST_ACCT_SITE_V2_BO,
1932: p_created_by_module IN VARCHAR2,
1933: p_obj_source IN VARCHAR2 := null,
1934: p_return_obj_flag IN VARCHAR2 := fnd_api.g_true,
1930: p_validate_bo_flag IN VARCHAR2 := fnd_api.g_true,
1931: p_cust_acct_site_v2_obj IN HZ_CUST_ACCT_SITE_V2_BO,
1932: p_created_by_module IN VARCHAR2,
1933: p_obj_source IN VARCHAR2 := null,
1934: p_return_obj_flag IN VARCHAR2 := fnd_api.g_true,
1935: x_return_status OUT NOCOPY VARCHAR2,
1936: x_messages OUT NOCOPY HZ_MESSAGE_OBJ_TBL,
1937: x_return_obj OUT NOCOPY HZ_CUST_ACCT_SITE_V2_BO,
1938: x_cust_acct_site_id OUT NOCOPY NUMBER,
1947: l_cas_obj HZ_CUST_ACCT_SITE_V2_BO;
1948: BEGIN
1949: l_cas_obj := p_cust_acct_site_v2_obj;
1950: do_create_cust_acct_site_v2_bo(
1951: p_init_msg_list => fnd_api.g_true,
1952: p_validate_bo_flag => p_validate_bo_flag,
1953: p_cust_acct_site_v2_obj => l_cas_obj,
1954: p_created_by_module => p_created_by_module,
1955: p_obj_source => p_obj_source,
1966: x_messages := HZ_PARTY_BO_PVT.return_all_messages(
1967: x_return_status => x_return_status,
1968: x_msg_count => l_msg_count,
1969: x_msg_data => l_msg_data);
1970: IF FND_API.to_Boolean(p_return_obj_flag) THEN
1971: x_return_obj := l_cas_obj;
1972: END IF;
1973: END create_cust_acct_site_v2_bo;
1974:
1976: --
1977: -- DESCRIPTION
1978: -- Update customer account site business object.
1979: PROCEDURE do_update_cust_acct_site_v2_bo(
1980: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1981: p_validate_bo_flag IN VARCHAR2 := fnd_api.g_true,
1982: p_cust_acct_site_v2_obj IN OUT NOCOPY HZ_CUST_ACCT_SITE_V2_BO,
1983: p_created_by_module IN VARCHAR2,
1984: p_obj_source IN VARCHAR2 := null,
1977: -- DESCRIPTION
1978: -- Update customer account site business object.
1979: PROCEDURE do_update_cust_acct_site_v2_bo(
1980: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1981: p_validate_bo_flag IN VARCHAR2 := fnd_api.g_true,
1982: p_cust_acct_site_v2_obj IN OUT NOCOPY HZ_CUST_ACCT_SITE_V2_BO,
1983: p_created_by_module IN VARCHAR2,
1984: p_obj_source IN VARCHAR2 := null,
1985: x_return_status OUT NOCOPY VARCHAR2,
2010: -- Standard start of API savepoint
2011: SAVEPOINT do_update_cas_v2_bo_pub;
2012:
2013: -- initialize API return status to success.
2014: x_return_status := FND_API.G_RET_STS_SUCCESS;
2015:
2016: -- Initialize message list if p_init_msg_list is set to TRUE.
2017: IF FND_API.to_Boolean(p_init_msg_list) THEN
2018: FND_MSG_PUB.initialize;
2013: -- initialize API return status to success.
2014: x_return_status := FND_API.G_RET_STS_SUCCESS;
2015:
2016: -- Initialize message list if p_init_msg_list is set to TRUE.
2017: IF FND_API.to_Boolean(p_init_msg_list) THEN
2018: FND_MSG_PUB.initialize;
2019: END IF;
2020:
2021: -- Debug info.
2051: x_return_status => x_return_status,
2052: x_msg_count => x_msg_count,
2053: x_msg_data => x_msg_data);
2054:
2055: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2056: RAISE FND_API.G_EXC_ERROR;
2057: END IF;
2058:
2059: -- get object version number of customer acct site
2052: x_msg_count => x_msg_count,
2053: x_msg_data => x_msg_data);
2054:
2055: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2056: RAISE FND_API.G_EXC_ERROR;
2057: END IF;
2058:
2059: -- get object version number of customer acct site
2060: OPEN get_ovn(x_cust_acct_site_id);
2079: x_msg_count => x_msg_count,
2080: x_msg_data => x_msg_data
2081: );
2082:
2083: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2084: RAISE FND_API.G_EXC_ERROR;
2085: END IF;
2086:
2087: -- assign cust_acct_site_id
2080: x_msg_data => x_msg_data
2081: );
2082:
2083: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2084: RAISE FND_API.G_EXC_ERROR;
2085: END IF;
2086:
2087: -- assign cust_acct_site_id
2088: p_cust_acct_site_v2_obj.cust_acct_site_id := x_cust_acct_site_id;
2105: p_parent_osr => x_cust_acct_site_osr,
2106: p_parent_obj_type => 'CUST_ACCT_SITE'
2107: );
2108:
2109: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2110: RAISE FND_API.G_EXC_ERROR;
2111: END IF;
2112: END IF;
2113:
2106: p_parent_obj_type => 'CUST_ACCT_SITE'
2107: );
2108:
2109: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2110: RAISE FND_API.G_EXC_ERROR;
2111: END IF;
2112: END IF;
2113:
2114: HZ_UTILITY_V2PUB.G_CREATED_BY_MODULE := l_cbm;
2127: x_msg_count => x_msg_count,
2128: x_msg_data => x_msg_data
2129: );
2130:
2131: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2132: RAISE FND_API.G_EXC_ERROR;
2133: END IF;
2134: END IF;
2135:
2128: x_msg_data => x_msg_data
2129: );
2130:
2131: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2132: RAISE FND_API.G_EXC_ERROR;
2133: END IF;
2134: END IF;
2135:
2136: -- reset Global variable
2149: p_prefix=>l_debug_prefix,
2150: p_msg_level=>fnd_log.level_procedure);
2151: END IF;
2152: EXCEPTION
2153: WHEN fnd_api.g_exc_error THEN
2154: ROLLBACK TO do_update_cas_v2_bo_pub;
2155:
2156: -- reset Global variable
2157: HZ_UTILITY_V2PUB.G_CALLING_API := NULL;
2160: FND_MESSAGE.SET_NAME('AR', 'HZ_API_PROPAGATE_OBJECT_ERROR');
2161: FND_MESSAGE.SET_TOKEN('OBJECT', 'CUST_ACCT_SITE');
2162: FND_MSG_PUB.ADD;
2163:
2164: x_return_status := fnd_api.g_ret_sts_error;
2165:
2166: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2167: p_count => x_msg_count,
2168: p_data => x_msg_data);
2162: FND_MSG_PUB.ADD;
2163:
2164: x_return_status := fnd_api.g_ret_sts_error;
2165:
2166: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2167: p_count => x_msg_count,
2168: p_data => x_msg_data);
2169:
2170: -- Debug info.
2179: p_prefix=>l_debug_prefix,
2180: p_msg_level=>fnd_log.level_procedure);
2181: END IF;
2182:
2183: WHEN fnd_api.g_exc_unexpected_error THEN
2184: ROLLBACK TO do_update_cas_v2_bo_pub;
2185:
2186: -- reset Global variable
2187: HZ_UTILITY_V2PUB.G_CALLING_API := NULL;
2190: FND_MESSAGE.SET_NAME('AR', 'HZ_API_PROPAGATE_OBJECT_ERROR');
2191: FND_MESSAGE.SET_TOKEN('OBJECT', 'CUST_ACCT_SITE');
2192: FND_MSG_PUB.ADD;
2193:
2194: x_return_status := fnd_api.g_ret_sts_unexp_error;
2195:
2196: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2197: p_count => x_msg_count,
2198: p_data => x_msg_data);
2192: FND_MSG_PUB.ADD;
2193:
2194: x_return_status := fnd_api.g_ret_sts_unexp_error;
2195:
2196: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2197: p_count => x_msg_count,
2198: p_data => x_msg_data);
2199:
2200: -- Debug info.
2220: FND_MESSAGE.SET_NAME('AR', 'HZ_API_PROPAGATE_OBJECT_ERROR');
2221: FND_MESSAGE.SET_TOKEN('OBJECT', 'CUST_ACCT_SITE');
2222: FND_MSG_PUB.ADD;
2223:
2224: x_return_status := fnd_api.g_ret_sts_unexp_error;
2225:
2226: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
2227: fnd_message.set_token('ERROR' ,SQLERRM);
2228: fnd_msg_pub.add;
2226: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
2227: fnd_message.set_token('ERROR' ,SQLERRM);
2228: fnd_msg_pub.add;
2229:
2230: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2231: p_count => x_msg_count,
2232: p_data => x_msg_data);
2233:
2234: -- Debug info.
2248: PROCEDURE update_cust_acct_site_v2_bo(
2249: p_cust_acct_site_v2_obj IN HZ_CUST_ACCT_SITE_V2_BO,
2250: p_created_by_module IN VARCHAR2,
2251: p_obj_source IN VARCHAR2 := null,
2252: p_return_obj_flag IN VARCHAR2 := fnd_api.g_true,
2253: x_return_status OUT NOCOPY VARCHAR2,
2254: x_messages OUT NOCOPY HZ_MESSAGE_OBJ_TBL,
2255: x_return_obj OUT NOCOPY HZ_CUST_ACCT_SITE_V2_BO,
2256: x_cust_acct_site_id OUT NOCOPY NUMBER,
2262: l_cas_obj HZ_CUST_ACCT_SITE_V2_BO;
2263: BEGIN
2264: l_cas_obj := p_cust_acct_site_v2_obj;
2265: do_update_cust_acct_site_v2_bo(
2266: p_init_msg_list => fnd_api.g_true,
2267: p_cust_acct_site_v2_obj => l_cas_obj,
2268: p_created_by_module => p_created_by_module,
2269: p_obj_source => p_obj_source,
2270: x_return_status => x_return_status,
2278: x_messages := HZ_PARTY_BO_PVT.return_all_messages(
2279: x_return_status => x_return_status,
2280: x_msg_count => l_msg_count,
2281: x_msg_data => l_msg_data);
2282: IF FND_API.to_Boolean(p_return_obj_flag) THEN
2283: x_return_obj := l_cas_obj;
2284: END IF;
2285: END update_cust_acct_site_v2_bo;
2286:
2288: --
2289: -- DESCRIPTION
2290: -- Create or update customer account site business object.
2291: PROCEDURE do_save_cust_acct_site_v2_bo(
2292: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
2293: p_validate_bo_flag IN VARCHAR2 := fnd_api.g_true,
2294: p_cust_acct_site_v2_obj IN OUT NOCOPY HZ_CUST_ACCT_SITE_V2_BO,
2295: p_created_by_module IN VARCHAR2,
2296: p_obj_source IN VARCHAR2 := null,
2289: -- DESCRIPTION
2290: -- Create or update customer account site business object.
2291: PROCEDURE do_save_cust_acct_site_v2_bo(
2292: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
2293: p_validate_bo_flag IN VARCHAR2 := fnd_api.g_true,
2294: p_cust_acct_site_v2_obj IN OUT NOCOPY HZ_CUST_ACCT_SITE_V2_BO,
2295: p_created_by_module IN VARCHAR2,
2296: p_obj_source IN VARCHAR2 := null,
2297: x_return_status OUT NOCOPY VARCHAR2,
2310: l_create_update_flag VARCHAR2(1);
2311: l_debug_prefix VARCHAR2(30) := '';
2312: BEGIN
2313: -- initialize API return status to success.
2314: x_return_status := FND_API.G_RET_STS_SUCCESS;
2315:
2316: -- Initialize message list if p_init_msg_list is set to TRUE.
2317: IF FND_API.to_Boolean(p_init_msg_list) THEN
2318: FND_MSG_PUB.initialize;
2313: -- initialize API return status to success.
2314: x_return_status := FND_API.G_RET_STS_SUCCESS;
2315:
2316: -- Initialize message list if p_init_msg_list is set to TRUE.
2317: IF FND_API.to_Boolean(p_init_msg_list) THEN
2318: FND_MSG_PUB.initialize;
2319: END IF;
2320:
2321: -- Debug info.
2342: IF(l_create_update_flag = 'E') THEN
2343: FND_MESSAGE.SET_NAME('AR', 'HZ_API_PROPAGATE_OBJECT_ERROR');
2344: FND_MESSAGE.SET_TOKEN('OBJECT', 'CUST_ACCT_SITE');
2345: FND_MSG_PUB.ADD;
2346: RAISE FND_API.G_EXC_ERROR;
2347: END IF;
2348:
2349: IF(l_create_update_flag = 'C') THEN
2350: do_create_cust_acct_site_v2_bo(
2347: END IF;
2348:
2349: IF(l_create_update_flag = 'C') THEN
2350: do_create_cust_acct_site_v2_bo(
2351: p_init_msg_list => fnd_api.g_false,
2352: p_validate_bo_flag => p_validate_bo_flag,
2353: p_cust_acct_site_v2_obj => p_cust_acct_site_v2_obj,
2354: p_created_by_module => p_created_by_module,
2355: p_obj_source => p_obj_source,
2364: px_parent_acct_osr => px_parent_acct_osr
2365: );
2366: ELSIF(l_create_update_flag = 'U') THEN
2367: do_update_cust_acct_site_v2_bo(
2368: p_init_msg_list => fnd_api.g_false,
2369: p_cust_acct_site_v2_obj => p_cust_acct_site_v2_obj,
2370: p_created_by_module => p_created_by_module,
2371: p_obj_source => p_obj_source,
2372: x_return_status => x_return_status,
2377: x_cust_acct_site_osr => x_cust_acct_site_osr,
2378: p_parent_os => px_parent_acct_os
2379: );
2380: ELSE
2381: RAISE FND_API.G_EXC_ERROR;
2382: END IF;
2383:
2384: -- Debug info.
2385: IF fnd_log.level_exception>=fnd_log.g_current_runtime_level THEN
2394: p_msg_level=>fnd_log.level_procedure);
2395: END IF;
2396:
2397: EXCEPTION
2398: WHEN fnd_api.g_exc_error THEN
2399: x_return_status := fnd_api.g_ret_sts_error;
2400:
2401: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2402: p_count => x_msg_count,
2395: END IF;
2396:
2397: EXCEPTION
2398: WHEN fnd_api.g_exc_error THEN
2399: x_return_status := fnd_api.g_ret_sts_error;
2400:
2401: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2402: p_count => x_msg_count,
2403: p_data => x_msg_data);
2397: EXCEPTION
2398: WHEN fnd_api.g_exc_error THEN
2399: x_return_status := fnd_api.g_ret_sts_error;
2400:
2401: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2402: p_count => x_msg_count,
2403: p_data => x_msg_data);
2404:
2405: -- Debug info.
2413: hz_utility_v2pub.debug(p_message=>'do_save_cust_acct_site_v2_bo(-)',
2414: p_prefix=>l_debug_prefix,
2415: p_msg_level=>fnd_log.level_procedure);
2416: END IF;
2417: WHEN fnd_api.g_exc_unexpected_error THEN
2418: x_return_status := fnd_api.g_ret_sts_unexp_error;
2419:
2420: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2421: p_count => x_msg_count,
2414: p_prefix=>l_debug_prefix,
2415: p_msg_level=>fnd_log.level_procedure);
2416: END IF;
2417: WHEN fnd_api.g_exc_unexpected_error THEN
2418: x_return_status := fnd_api.g_ret_sts_unexp_error;
2419:
2420: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2421: p_count => x_msg_count,
2422: p_data => x_msg_data);
2416: END IF;
2417: WHEN fnd_api.g_exc_unexpected_error THEN
2418: x_return_status := fnd_api.g_ret_sts_unexp_error;
2419:
2420: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2421: p_count => x_msg_count,
2422: p_data => x_msg_data);
2423:
2424: -- Debug info.
2433: p_prefix=>l_debug_prefix,
2434: p_msg_level=>fnd_log.level_procedure);
2435: END IF;
2436: WHEN OTHERS THEN
2437: x_return_status := fnd_api.g_ret_sts_unexp_error;
2438:
2439: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
2440: fnd_message.set_token('ERROR' ,SQLERRM);
2441: fnd_msg_pub.add;
2439: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
2440: fnd_message.set_token('ERROR' ,SQLERRM);
2441: fnd_msg_pub.add;
2442:
2443: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2444: p_count => x_msg_count,
2445: p_data => x_msg_data);
2446:
2447: -- Debug info.
2458: END IF;
2459: END do_save_cust_acct_site_v2_bo;
2460:
2461: PROCEDURE save_cust_acct_site_v2_bo(
2462: p_validate_bo_flag IN VARCHAR2 := fnd_api.g_true,
2463: p_cust_acct_site_v2_obj IN HZ_CUST_ACCT_SITE_V2_BO,
2464: p_created_by_module IN VARCHAR2,
2465: p_obj_source IN VARCHAR2 := null,
2466: p_return_obj_flag IN VARCHAR2 := fnd_api.g_true,
2462: p_validate_bo_flag IN VARCHAR2 := fnd_api.g_true,
2463: p_cust_acct_site_v2_obj IN HZ_CUST_ACCT_SITE_V2_BO,
2464: p_created_by_module IN VARCHAR2,
2465: p_obj_source IN VARCHAR2 := null,
2466: p_return_obj_flag IN VARCHAR2 := fnd_api.g_true,
2467: x_return_status OUT NOCOPY VARCHAR2,
2468: x_messages OUT NOCOPY HZ_MESSAGE_OBJ_TBL,
2469: x_return_obj OUT NOCOPY HZ_CUST_ACCT_SITE_V2_BO,
2470: x_cust_acct_site_id OUT NOCOPY NUMBER,
2479: l_cas_obj HZ_CUST_ACCT_SITE_V2_BO;
2480: BEGIN
2481: l_cas_obj := p_cust_acct_site_v2_obj;
2482: do_save_cust_acct_site_v2_bo(
2483: p_init_msg_list => fnd_api.g_true,
2484: p_validate_bo_flag => p_validate_bo_flag,
2485: p_cust_acct_site_v2_obj => l_cas_obj,
2486: p_created_by_module => p_created_by_module,
2487: p_obj_source => p_obj_source,
2498: x_messages := HZ_PARTY_BO_PVT.return_all_messages(
2499: x_return_status => x_return_status,
2500: x_msg_count => l_msg_count,
2501: x_msg_data => l_msg_data);
2502: IF FND_API.to_Boolean(p_return_obj_flag) THEN
2503: x_return_obj := l_cas_obj;
2504: END IF;
2505: END save_cust_acct_site_v2_bo;
2506:
2517: -- IN:
2518: -- p_init_msg_list Initialize message stack if it is set to
2519: -- p_parent_id parent id.
2520: -- p_cust_acct_site_id customer account site ID.
2521: -- FND_API.G_TRUE. Default is FND_API.G_FALSE.
2522: -- OUT:
2523: -- x_cust_acct_site_v2_obj Logical customer account site record.
2524: -- x_return_status Return status after the call. The status can
2525: -- be fnd_api.g_ret_sts_success (success),
2521: -- FND_API.G_TRUE. Default is FND_API.G_FALSE.
2522: -- OUT:
2523: -- x_cust_acct_site_v2_obj Logical customer account site record.
2524: -- x_return_status Return status after the call. The status can
2525: -- be fnd_api.g_ret_sts_success (success),
2526: -- fnd_api.g_ret_sts_error (error),
2527: -- FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
2528: -- x_msg_count Number of messages in message stack.
2529: -- x_msg_data Message text if x_msg_count is 1.
2522: -- OUT:
2523: -- x_cust_acct_site_v2_obj Logical customer account site record.
2524: -- x_return_status Return status after the call. The status can
2525: -- be fnd_api.g_ret_sts_success (success),
2526: -- fnd_api.g_ret_sts_error (error),
2527: -- FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
2528: -- x_msg_count Number of messages in message stack.
2529: -- x_msg_data Message text if x_msg_count is 1.
2530: --
2523: -- x_cust_acct_site_v2_obj Logical customer account site record.
2524: -- x_return_status Return status after the call. The status can
2525: -- be fnd_api.g_ret_sts_success (success),
2526: -- fnd_api.g_ret_sts_error (error),
2527: -- FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
2528: -- x_msg_count Number of messages in message stack.
2529: -- x_msg_data Message text if x_msg_count is 1.
2530: --
2531: -- NOTES
2566: */
2567:
2568:
2569: PROCEDURE get_cust_acct_site_v2_bo (
2570: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2571: p_cust_acct_site_id IN NUMBER,
2572: p_cust_acct_site_os IN VARCHAR2,
2573: p_cust_acct_site_osr IN VARCHAR2,
2574: x_cust_acct_site_v2_obj OUT NOCOPY HZ_CUST_ACCT_SITE_V2_BO,
2584: l_cust_acct_site_v2_objs HZ_CUST_ACCT_SITE_V2_BO_TBL;
2585: BEGIN
2586:
2587: -- initialize API return status to success.
2588: x_return_status := FND_API.G_RET_STS_SUCCESS;
2589:
2590: -- Initialize message list if p_init_msg_list is set to TRUE
2591: IF FND_API.to_Boolean(p_init_msg_list) THEN
2592: FND_MSG_PUB.initialize;
2587: -- initialize API return status to success.
2588: x_return_status := FND_API.G_RET_STS_SUCCESS;
2589:
2590: -- Initialize message list if p_init_msg_list is set to TRUE
2591: IF FND_API.to_Boolean(p_init_msg_list) THEN
2592: FND_MSG_PUB.initialize;
2593: END IF;
2594:
2595:
2615: x_return_status => x_return_status,
2616: x_msg_count => x_msg_count,
2617: x_msg_data => x_msg_data);
2618:
2619: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2620: RAISE fnd_api.g_exc_error;
2621: END IF;
2622:
2623: HZ_EXTRACT_ACCT_SITE_BO_PVT.get_cust_acct_site_v2_bos
2616: x_msg_count => x_msg_count,
2617: x_msg_data => x_msg_data);
2618:
2619: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2620: RAISE fnd_api.g_exc_error;
2621: END IF;
2622:
2623: HZ_EXTRACT_ACCT_SITE_BO_PVT.get_cust_acct_site_v2_bos
2624: (p_init_msg_list => fnd_api.g_false,
2620: RAISE fnd_api.g_exc_error;
2621: END IF;
2622:
2623: HZ_EXTRACT_ACCT_SITE_BO_PVT.get_cust_acct_site_v2_bos
2624: (p_init_msg_list => fnd_api.g_false,
2625: p_parent_id => NULL,
2626: p_cust_acct_site_id => l_cust_acct_site_id,
2627: p_action_type => NULL,
2628: x_cust_acct_site_v2_objs => l_cust_acct_site_v2_objs,
2631: x_msg_data => x_msg_data);
2632:
2633: x_cust_acct_site_v2_obj := l_cust_acct_site_v2_objs(1);
2634:
2635: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2636: RAISE FND_API.G_EXC_ERROR;
2637: END IF;
2638:
2639:
2632:
2633: x_cust_acct_site_v2_obj := l_cust_acct_site_v2_objs(1);
2634:
2635: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2636: RAISE FND_API.G_EXC_ERROR;
2637: END IF;
2638:
2639:
2640: -- Debug info.
2654:
2655:
2656: EXCEPTION
2657:
2658: WHEN fnd_api.g_exc_error THEN
2659: x_return_status := fnd_api.g_ret_sts_error;
2660:
2661: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2662: p_count => x_msg_count,
2655:
2656: EXCEPTION
2657:
2658: WHEN fnd_api.g_exc_error THEN
2659: x_return_status := fnd_api.g_ret_sts_error;
2660:
2661: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2662: p_count => x_msg_count,
2663: p_data => x_msg_data);
2657:
2658: WHEN fnd_api.g_exc_error THEN
2659: x_return_status := fnd_api.g_ret_sts_error;
2660:
2661: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2662: p_count => x_msg_count,
2663: p_data => x_msg_data);
2664:
2665: -- Debug info.
2673: hz_utility_v2pub.debug(p_message=>'hz_cust_acct_site_bo_pub.get_cust_acct_site_v2_bo (-)',
2674: p_prefix=>l_debug_prefix,
2675: p_msg_level=>fnd_log.level_procedure);
2676: END IF;
2677: WHEN fnd_api.g_exc_unexpected_error THEN
2678: x_return_status := fnd_api.g_ret_sts_unexp_error;
2679:
2680: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2681: p_count => x_msg_count,
2674: p_prefix=>l_debug_prefix,
2675: p_msg_level=>fnd_log.level_procedure);
2676: END IF;
2677: WHEN fnd_api.g_exc_unexpected_error THEN
2678: x_return_status := fnd_api.g_ret_sts_unexp_error;
2679:
2680: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2681: p_count => x_msg_count,
2682: p_data => x_msg_data);
2676: END IF;
2677: WHEN fnd_api.g_exc_unexpected_error THEN
2678: x_return_status := fnd_api.g_ret_sts_unexp_error;
2679:
2680: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2681: p_count => x_msg_count,
2682: p_data => x_msg_data);
2683:
2684: -- Debug info.
2693: p_prefix=>l_debug_prefix,
2694: p_msg_level=>fnd_log.level_procedure);
2695: END IF;
2696: WHEN OTHERS THEN
2697: x_return_status := fnd_api.g_ret_sts_unexp_error;
2698:
2699: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
2700: fnd_message.set_token('ERROR' ,SQLERRM);
2701: fnd_msg_pub.add;
2699: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
2700: fnd_message.set_token('ERROR' ,SQLERRM);
2701: fnd_msg_pub.add;
2702:
2703: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2704: p_count => x_msg_count,
2705: p_data => x_msg_data);
2706:
2707: -- Debug info.
2730: l_msg_data VARCHAR2(2000);
2731: l_msg_count NUMBER;
2732: BEGIN
2733: get_cust_acct_site_v2_bo (
2734: p_init_msg_list => FND_API.G_TRUE,
2735: p_cust_acct_site_id => p_cust_acct_site_id,
2736: p_cust_acct_site_os => p_cust_acct_site_os,
2737: p_cust_acct_site_osr => p_cust_acct_site_osr,
2738: x_cust_acct_site_v2_obj => x_cust_acct_site_v2_obj,