3:
4: g_pkg_name CONSTANT VARCHAR2(30):='AMS_ActPartner_PVT';
5:
6: ----------- Forward Declarations ---------------------
7: AMS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
8: AMS_DEBUG_LOW_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
9: AMS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
10:
11: PROCEDURE check_act_partner_uk_items (
4: g_pkg_name CONSTANT VARCHAR2(30):='AMS_ActPartner_PVT';
5:
6: ----------- Forward Declarations ---------------------
7: AMS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
8: AMS_DEBUG_LOW_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
9: AMS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
10:
11: PROCEDURE check_act_partner_uk_items (
12: p_act_partner_rec IN act_partner_rec_type,
5:
6: ----------- Forward Declarations ---------------------
7: AMS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
8: AMS_DEBUG_LOW_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
9: AMS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
10:
11: PROCEDURE check_act_partner_uk_items (
12: p_act_partner_rec IN act_partner_rec_type,
13: x_return_status OUT NOCOPY VARCHAR2
73: SAVEPOINT create_act_partner;
74:
75:
76: IF FND_API.to_boolean(p_init_msg_list) THEN
77: FND_MSG_PUB.initialize;
78: END IF;
79:
80: IF NOT FND_API.compatible_api_call
81: (
228: IF FND_API.to_boolean(p_commit) THEN
229: COMMIT;
230: END IF;
231:
232: FND_MSG_PUB.count_and_get(
233: p_encoded => FND_API.g_false,
234: p_count => x_msg_count,
235: p_data => x_msg_data
236: );
247:
248: WHEN FND_API.g_exc_error THEN
249: ROLLBACK TO create_act_partner;
250: x_return_status := FND_API.g_ret_sts_error;
251: FND_MSG_PUB.count_and_get(
252: p_encoded => FND_API.g_false,
253: p_count => x_msg_count,
254: p_data => x_msg_data
255: );
256:
257: WHEN FND_API.g_exc_unexpected_error THEN
258: ROLLBACK TO create_act_partner;
259: x_return_status := FND_API.g_ret_sts_unexp_error ;
260: FND_MSG_PUB.count_and_get(
261: p_encoded => FND_API.g_false,
262: p_count => x_msg_count,
263: p_data => x_msg_data
264: );
267: WHEN OTHERS THEN
268: ROLLBACK TO create_act_partner;
269: x_return_status := FND_API.g_ret_sts_unexp_error ;
270:
271: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
272: THEN
273: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
274: END IF;
275:
269: x_return_status := FND_API.g_ret_sts_unexp_error ;
270:
271: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
272: THEN
273: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
274: END IF;
275:
276: FND_MSG_PUB.count_and_get(
277: p_encoded => FND_API.g_false,
272: THEN
273: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
274: END IF;
275:
276: FND_MSG_PUB.count_and_get(
277: p_encoded => FND_API.g_false,
278: p_count => x_msg_count,
279: p_data => x_msg_data
280: );
319:
320: SAVEPOINT update_act_partner;
321: l_act_partner_rec := p_act_partner_rec;
322: IF FND_API.to_boolean(p_init_msg_list) THEN
323: FND_MSG_PUB.initialize;
324: END IF;
325:
326: IF NOT FND_API.compatible_api_call(
327: l_api_version,
424: WHERE activity_partner_id = l_act_partner_rec.activity_partner_id
425: AND object_version_number = l_act_partner_rec.object_version_number;
426:
427: IF (SQL%NOTFOUND) THEN
428: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
429: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
430: FND_MSG_PUB.add;
431: END IF;
432: RAISE FND_API.g_exc_error;
426:
427: IF (SQL%NOTFOUND) THEN
428: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
429: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
430: FND_MSG_PUB.add;
431: END IF;
432: RAISE FND_API.g_exc_error;
433: END IF;
434:
436: IF FND_API.to_boolean(p_commit) THEN
437: COMMIT;
438: END IF;
439:
440: FND_MSG_PUB.count_and_get(
441: p_encoded => FND_API.g_false,
442: p_count => x_msg_count,
443: p_data => x_msg_data
444: );
461: END IF;
462:
463: ROLLBACK TO update_act_partner;
464: x_return_status := FND_API.g_ret_sts_error;
465: FND_MSG_PUB.count_and_get(
466: p_encoded => FND_API.g_false,
467: p_count => x_msg_count,
468: p_data => x_msg_data
469: );
472: WHEN FND_API.g_exc_unexpected_error THEN
473:
474: ROLLBACK TO update_act_partner;
475: x_return_status := FND_API.g_ret_sts_unexp_error ;
476: FND_MSG_PUB.count_and_get(
477: p_encoded => FND_API.g_false,
478: p_count => x_msg_count,
479: p_data => x_msg_data
480: );
484:
485: ROLLBACK TO update_act_partner;
486: x_return_status := FND_API.g_ret_sts_unexp_error ;
487:
488: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
489: THEN
490: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
491: END IF;
492:
486: x_return_status := FND_API.g_ret_sts_unexp_error ;
487:
488: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
489: THEN
490: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
491: END IF;
492:
493: FND_MSG_PUB.count_and_get(
494: p_encoded => FND_API.g_false,
489: THEN
490: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
491: END IF;
492:
493: FND_MSG_PUB.count_and_get(
494: p_encoded => FND_API.g_false,
495: p_count => x_msg_count,
496: p_data => x_msg_data
497: );
571:
572: END IF;
573:
574: IF FND_API.to_boolean(p_init_msg_list) THEN
575: FND_MSG_PUB.initialize;
576: END IF;
577:
578: IF NOT FND_API.compatible_api_call(
579: l_api_version,
605: WHERE activity_partner_id = p_act_partner_id
606: AND object_version_number = p_object_version;
607:
608: IF (SQL%NOTFOUND) THEN
609: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
610: THEN
611: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
612: FND_MSG_PUB.add;
613: END IF;
608: IF (SQL%NOTFOUND) THEN
609: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
610: THEN
611: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
612: FND_MSG_PUB.add;
613: END IF;
614: RAISE FND_API.g_exc_error;
615: END IF;
616:
619: IF FND_API.to_boolean(p_commit) THEN
620: COMMIT;
621: END IF;
622:
623: FND_MSG_PUB.count_and_get(
624: p_encoded => FND_API.g_false,
625: p_count => x_msg_count,
626: p_data => x_msg_data
627: );
638:
639: WHEN FND_API.g_exc_error THEN
640: ROLLBACK TO delete_act_partner;
641: x_return_status := FND_API.g_ret_sts_error;
642: FND_MSG_PUB.count_and_get(
643: p_encoded => FND_API.g_false,
644: p_count => x_msg_count,
645: p_data => x_msg_data
646: );
647:
648: WHEN FND_API.g_exc_unexpected_error THEN
649: ROLLBACK TO delete_act_partner;
650: x_return_status := FND_API.g_ret_sts_unexp_error ;
651: FND_MSG_PUB.count_and_get(
652: p_encoded => FND_API.g_false,
653: p_count => x_msg_count,
654: p_data => x_msg_data
655: );
657: WHEN OTHERS THEN
658: ROLLBACK TO delete_deliverable;
659: x_return_status := FND_API.g_ret_sts_unexp_error ;
660:
661: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
662: THEN
663: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
664: END IF;
665:
659: x_return_status := FND_API.g_ret_sts_unexp_error ;
660:
661: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
662: THEN
663: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
664: END IF;
665:
666: FND_MSG_PUB.count_and_get(
667: p_encoded => FND_API.g_false,
662: THEN
663: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
664: END IF;
665:
666: FND_MSG_PUB.count_and_get(
667: p_encoded => FND_API.g_false,
668: p_count => x_msg_count,
669: p_data => x_msg_data
670: );
715: AMS_Utility_PVT.debug_message(l_full_name||': start');
716: END IF;
717:
718: IF FND_API.to_boolean(p_init_msg_list) THEN
719: FND_MSG_PUB.initialize;
720: END IF;
721:
722: IF NOT FND_API.compatible_api_call(
723: l_api_version,
739: OPEN c_act_partner;
740: FETCH c_act_partner INTO l_act_partner_id;
741: IF (c_act_partner%NOTFOUND) THEN
742: CLOSE c_act_partner;
743: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
744: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
745: FND_MSG_PUB.add;
746: END IF;
747: RAISE FND_API.g_exc_error;
741: IF (c_act_partner%NOTFOUND) THEN
742: CLOSE c_act_partner;
743: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
744: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
745: FND_MSG_PUB.add;
746: END IF;
747: RAISE FND_API.g_exc_error;
748: END IF;
749: CLOSE c_act_partner;
748: END IF;
749: CLOSE c_act_partner;
750:
751: -------------------- finish --------------------------
752: FND_MSG_PUB.count_and_get(
753: p_encoded => FND_API.g_false,
754: p_count => x_msg_count,
755: p_data => x_msg_data
756: );
766: EXCEPTION
767:
768: WHEN AMS_Utility_PVT.resource_locked THEN
769: x_return_status := FND_API.g_ret_sts_error;
770: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
771: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
772: FND_MSG_PUB.add;
773: END IF;
774:
768: WHEN AMS_Utility_PVT.resource_locked THEN
769: x_return_status := FND_API.g_ret_sts_error;
770: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
771: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
772: FND_MSG_PUB.add;
773: END IF;
774:
775: FND_MSG_PUB.count_and_get(
776: p_encoded => FND_API.g_false,
771: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
772: FND_MSG_PUB.add;
773: END IF;
774:
775: FND_MSG_PUB.count_and_get(
776: p_encoded => FND_API.g_false,
777: p_count => x_msg_count,
778: p_data => x_msg_data
779: );
779: );
780:
781: WHEN FND_API.g_exc_error THEN
782: x_return_status := FND_API.g_ret_sts_error;
783: FND_MSG_PUB.count_and_get(
784: p_encoded => FND_API.g_false,
785: p_count => x_msg_count,
786: p_data => x_msg_data
787: );
787: );
788:
789: WHEN FND_API.g_exc_unexpected_error THEN
790: x_return_status := FND_API.g_ret_sts_unexp_error ;
791: FND_MSG_PUB.count_and_get(
792: p_encoded => FND_API.g_false,
793: p_count => x_msg_count,
794: p_data => x_msg_data
795: );
795: );
796:
797: WHEN OTHERS THEN
798: x_return_status := FND_API.g_ret_sts_unexp_error ;
799: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
800: THEN
801: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
802: END IF;
803:
797: WHEN OTHERS THEN
798: x_return_status := FND_API.g_ret_sts_unexp_error ;
799: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
800: THEN
801: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
802: END IF;
803:
804: FND_MSG_PUB.count_and_get(
805: p_encoded => FND_API.g_false,
800: THEN
801: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
802: END IF;
803:
804: FND_MSG_PUB.count_and_get(
805: p_encoded => FND_API.g_false,
806: p_count => x_msg_count,
807: p_data => x_msg_data
808: );
846: AMS_Utility_PVT.debug_message(l_full_name||': start');
847: END IF;
848:
849: IF FND_API.to_boolean(p_init_msg_list) THEN
850: FND_MSG_PUB.initialize;
851: END IF;
852:
853: IF NOT FND_API.compatible_api_call(
854: l_api_version,
903: END IF;
904: END IF;
905:
906: -------------------- finish --------------------------
907: FND_MSG_PUB.count_and_get(
908: p_encoded => FND_API.g_false,
909: p_count => x_msg_count,
910: p_data => x_msg_data
911: );
921: EXCEPTION
922:
923: WHEN FND_API.g_exc_error THEN
924: x_return_status := FND_API.g_ret_sts_error;
925: FND_MSG_PUB.count_and_get(
926: p_encoded => FND_API.g_false,
927: p_count => x_msg_count,
928: p_data => x_msg_data
929: );
929: );
930:
931: WHEN FND_API.g_exc_unexpected_error THEN
932: x_return_status := FND_API.g_ret_sts_unexp_error ;
933: FND_MSG_PUB.count_and_get(
934: p_encoded => FND_API.g_false,
935: p_count => x_msg_count,
936: p_data => x_msg_data
937: );
937: );
938:
939: WHEN OTHERS THEN
940: x_return_status := FND_API.g_ret_sts_unexp_error;
941: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
942: THEN
943: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
944: END IF;
945:
939: WHEN OTHERS THEN
940: x_return_status := FND_API.g_ret_sts_unexp_error;
941: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
942: THEN
943: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
944: END IF;
945:
946: FND_MSG_PUB.count_and_get(
947: p_encoded => FND_API.g_false,
942: THEN
943: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
944: END IF;
945:
946: FND_MSG_PUB.count_and_get(
947: p_encoded => FND_API.g_false,
948: p_count => x_msg_count,
949: p_data => x_msg_data
950: );
970:
971: -------------------- put required items here ---------------------
972:
973: IF p_act_partner_rec.act_partner_used_by_id IS NULL THEN
974: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
975: THEN
976: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PARTNER_NO_USEDBY_ID');
977: FND_MSG_PUB.add;
978: END IF;
973: IF p_act_partner_rec.act_partner_used_by_id IS NULL THEN
974: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
975: THEN
976: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PARTNER_NO_USEDBY_ID');
977: FND_MSG_PUB.add;
978: END IF;
979: RAISE FND_API.g_exc_unexpected_error;
980:
981: x_return_status := FND_API.g_ret_sts_error;
981: x_return_status := FND_API.g_ret_sts_error;
982: END IF;
983:
984: IF p_act_partner_rec.arc_act_partner_used_by IS NULL THEN
985: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
986: THEN
987: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PARTNER_NO_USEDBY');
988: FND_MSG_PUB.add;
989: END IF;
984: IF p_act_partner_rec.arc_act_partner_used_by IS NULL THEN
985: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
986: THEN
987: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PARTNER_NO_USEDBY');
988: FND_MSG_PUB.add;
989: END IF;
990: RAISE FND_API.g_exc_unexpected_error;
991: x_return_status := FND_API.g_ret_sts_error;
992: RETURN;
992: RETURN;
993: END IF;
994:
995: IF p_act_partner_rec.partner_id IS NULL THEN
996: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
997: THEN
998: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PARTNER_NO_PARTNER_ID');
999: FND_MSG_PUB.add;
1000: END IF;
995: IF p_act_partner_rec.partner_id IS NULL THEN
996: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
997: THEN
998: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PARTNER_NO_PARTNER_ID');
999: FND_MSG_PUB.add;
1000: END IF;
1001: RAISE FND_API.g_exc_unexpected_error;
1002: x_return_status := FND_API.g_ret_sts_error;
1003: RETURN;
1148: OPEN c_act_partner;
1149: FETCH c_act_partner INTO l_act_partner_rec;
1150: IF c_act_partner%NOTFOUND THEN
1151: CLOSE c_act_partner;
1152: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1153: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1154: FND_MSG_PUB.add;
1155: END IF;
1156: RAISE FND_API.g_exc_error;
1150: IF c_act_partner%NOTFOUND THEN
1151: CLOSE c_act_partner;
1152: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1153: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1154: FND_MSG_PUB.add;
1155: END IF;
1156: RAISE FND_API.g_exc_error;
1157: END IF;
1158: --CLOSE c_act_partner;
1315:
1316: AMS_Utility_PVT.debug_message(':error message');
1317: END IF;
1318: --AMS_Utility_PVT.error_message ('AMS_ACT_INVALID_PRIMARY', 'PRIMARY_FLAG', p_primary_flag);
1319: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1320: FND_MESSAGE.set_name('AMS', 'AMS_ACT_INVALID_PRIMARY');
1321: FND_MSG_PUB.add;
1322: END IF;
1323: x_return_status := FND_API.g_ret_sts_error;
1317: END IF;
1318: --AMS_Utility_PVT.error_message ('AMS_ACT_INVALID_PRIMARY', 'PRIMARY_FLAG', p_primary_flag);
1319: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1320: FND_MESSAGE.set_name('AMS', 'AMS_ACT_INVALID_PRIMARY');
1321: FND_MSG_PUB.add;
1322: END IF;
1323: x_return_status := FND_API.g_ret_sts_error;
1324: END IF;
1325: END check_primary;