55: OPEN c_cm_exsist(p_Lead_Owner_rec.CM_RESOURCE_ID);
56: FETCH c_cm_exsist INTO l_cm_exsits;
57: -- Exit when the identifier uniqueness is established
58: IF c_cm_exsist%ROWCOUNT = 0 THEN
59: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
60: FND_MESSAGE.set_name('PV', 'PV_BAD_CMM_RESOURCE_ID');
61: FND_MESSAGE.SET_TOKEN('ID', to_char(p_Lead_Owner_rec.CM_resource_id) );
62: FND_MSG_PUB.add;
63: END IF;
58: IF c_cm_exsist%ROWCOUNT = 0 THEN
59: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
60: FND_MESSAGE.set_name('PV', 'PV_BAD_CMM_RESOURCE_ID');
61: FND_MESSAGE.SET_TOKEN('ID', to_char(p_Lead_Owner_rec.CM_resource_id) );
62: FND_MSG_PUB.add;
63: END IF;
64: CLOSE c_cm_exsist;
65:
66: /*
70: p_Lead_Owner_rec.CM_resource_id, -- Value of fk to be validated against the parent object's pk column
71: AS_Utility_PVT.g_number -- datatype of fk
72: ) = FND_API.g_false
73: THEN
74: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
75: THEN
76: FND_MESSAGE.set_name('PV', 'PV_BAD_CMM_RESOURCE_ID');
77: FND_MESSAGE.SET_TOKEN('ID', to_char(p_Lead_Owner_rec.CM_resource_id) );
78: FND_MSG_PUB.add;
74: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
75: THEN
76: FND_MESSAGE.set_name('PV', 'PV_BAD_CMM_RESOURCE_ID');
77: FND_MESSAGE.SET_TOKEN('ID', to_char(p_Lead_Owner_rec.CM_resource_id) );
78: FND_MSG_PUB.add;
79: END IF;
80: */
81: x_return_status := FND_API.g_ret_sts_error;
82: RETURN;
104:
105: /*
106: ------------------------ entity --------------------------
107: IF p_Lead_Owner_rec.entity IS NULL THEN
108: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
109: THEN
110: FND_MESSAGE.set_name('PV', 'PV_NO_ENTITY');
111: FND_MSG_PUB.add;
112: END IF;
107: IF p_Lead_Owner_rec.entity IS NULL THEN
108: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
109: THEN
110: FND_MESSAGE.set_name('PV', 'PV_NO_ENTITY');
111: FND_MSG_PUB.add;
112: END IF;
113:
114: x_return_status := FND_API.g_ret_sts_error;
115: RETURN;
114: x_return_status := FND_API.g_ret_sts_error;
115: RETURN;
116: ------------------------ attribute id -------------------------------
117: ELSIF p_Lead_Owner_rec.attribute_id IS NULL THEN
118: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
119: THEN
120: FND_MESSAGE.set_name('PV', 'PV_NO_ATTR_ID');
121: FND_MESSAGE.SET_TOKEN('ID',to_char(p_Lead_Owner_rec.attribute_id) );
122: FND_MSG_PUB.add;
118: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
119: THEN
120: FND_MESSAGE.set_name('PV', 'PV_NO_ATTR_ID');
121: FND_MESSAGE.SET_TOKEN('ID',to_char(p_Lead_Owner_rec.attribute_id) );
122: FND_MSG_PUB.add;
123: END IF;
124:
125: x_return_status := FND_API.g_ret_sts_error;
126: RETURN;
312: OPEN c_Lead_Owner;
313: FETCH c_Lead_Owner INTO l_Lead_Owner_rec;
314: IF c_Lead_Owner%NOTFOUND THEN
315: CLOSE c_Lead_Owner;
316: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
317: FND_MESSAGE.set_name('PV', 'PV_NO_RECORD_FOUND');
318: FND_MSG_PUB.add;
319: END IF;
320: RAISE FND_API.g_exc_error;
314: IF c_Lead_Owner%NOTFOUND THEN
315: CLOSE c_Lead_Owner;
316: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
317: FND_MESSAGE.set_name('PV', 'PV_NO_RECORD_FOUND');
318: FND_MSG_PUB.add;
319: END IF;
320: RAISE FND_API.g_exc_error;
321: END IF;
322: CLOSE c_Lead_Owner;
389:
390: BEGIN
391:
392: ----------------------- initialize --------------------
393: AS_Utility_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, l_full_name||': start');
394:
395: IF FND_API.to_boolean(p_init_msg_list) THEN
396: FND_MSG_PUB.initialize;
397: END IF;
392: ----------------------- initialize --------------------
393: AS_Utility_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, l_full_name||': start');
394:
395: IF FND_API.to_boolean(p_init_msg_list) THEN
396: FND_MSG_PUB.initialize;
397: END IF;
398:
399: IF NOT FND_API.compatible_api_call(
400: l_api_version,
407:
408: x_return_status := FND_API.g_ret_sts_success;
409:
410: ---------------------- validate ------------------------
411: AS_Utility_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, l_full_name||': check items');
412: --DBMS_output.put_line(l_full_name||': start item validate');
413:
414: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
415: Check_Lead_Owner_items(
424: RAISE FND_API.g_exc_error;
425: END IF;
426: END IF;
427:
428: AS_Utility_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, l_full_name||': check record');
429: --DBMS_output.put_line(l_full_name||': start record validate');
430:
431: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_record THEN
432: Check_Lead_Owner_rec(
442: END IF;
443: END IF;
444:
445: -------------------- finish --------------------------
446: FND_MSG_PUB.count_and_get(
447: p_encoded => FND_API.g_false,
448: p_count => x_msg_count,
449: p_data => x_msg_data
450: );
448: p_count => x_msg_count,
449: p_data => x_msg_data
450: );
451:
452: AS_Utility_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, l_full_name ||': end');
453:
454: EXCEPTION
455:
456: WHEN FND_API.g_exc_error THEN
454: EXCEPTION
455:
456: WHEN FND_API.g_exc_error THEN
457: x_return_status := FND_API.g_ret_sts_error;
458: FND_MSG_PUB.count_and_get(
459: p_encoded => FND_API.g_false,
460: p_count => x_msg_count,
461: p_data => x_msg_data
462: );
462: );
463:
464: WHEN FND_API.g_exc_unexpected_error THEN
465: x_return_status := FND_API.g_ret_sts_unexp_error ;
466: FND_MSG_PUB.count_and_get(
467: p_encoded => FND_API.g_false,
468: p_count => x_msg_count,
469: p_data => x_msg_data
470: );
470: );
471:
472: WHEN OTHERS THEN
473: x_return_status := FND_API.g_ret_sts_unexp_error;
474: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
475: THEN
476: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
477: END IF;
478:
472: WHEN OTHERS THEN
473: x_return_status := FND_API.g_ret_sts_unexp_error;
474: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
475: THEN
476: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
477: END IF;
478:
479: FND_MSG_PUB.count_and_get(
480: p_encoded => FND_API.g_false,
475: THEN
476: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
477: END IF;
478:
479: FND_MSG_PUB.count_and_get(
480: p_encoded => FND_API.g_false,
481: p_count => x_msg_count,
482: p_data => x_msg_data
483: );
552:
553: --------------------- initialize -----------------------
554: SAVEPOINT Create_Lead_Owner;
555:
556: AS_Utility_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, l_full_name||': start');
557:
558:
559: IF FND_API.to_boolean(p_init_msg_list) THEN
560: FND_MSG_PUB.initialize;
556: AS_Utility_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, l_full_name||': start');
557:
558:
559: IF FND_API.to_boolean(p_init_msg_list) THEN
560: FND_MSG_PUB.initialize;
561: END IF;
562:
563: IF NOT FND_API.compatible_api_call(
564: l_api_version,
571:
572: x_return_status := FND_API.g_ret_sts_success;
573:
574: ----------------------- validate -----------------------
575: AS_Utility_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, l_full_name ||': validate');
576:
577: --DBMS_output.put_line(l_full_name||': validate');
578: Validate_Lead_Owner(
579: p_api_version => l_api_version,
595:
596: --DBMS_output.put_line(l_full_name||': back validate');
597:
598: -------------------------- insert --------------------------
599: AS_Utility_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, l_full_name ||': insert');
600:
601: IF l_Lead_Owner_rec.Lead_Owner_id IS NULL THEN
602: LOOP
603: -- Get the identifier
614: END LOOP;
615: END IF;
616:
617: IF (p_Lead_Owner_rec.country is null) THEN
618: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
619: FND_MESSAGE.set_name('PV', 'PV_NO_COUNTRY_FOUND');
620: FND_MSG_PUB.add;
621: END IF;
622: RAISE FND_API.g_exc_error;
616:
617: IF (p_Lead_Owner_rec.country is null) THEN
618: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
619: FND_MESSAGE.set_name('PV', 'PV_NO_COUNTRY_FOUND');
620: FND_MSG_PUB.add;
621: END IF;
622: RAISE FND_API.g_exc_error;
623: END IF;
624:
678: IF FND_API.to_boolean(p_commit) THEN
679: COMMIT;
680: END IF;
681:
682: FND_MSG_PUB.count_and_get(
683: p_encoded => FND_API.g_false,
684: p_count => x_msg_count,
685: p_data => x_msg_data
686: );
684: p_count => x_msg_count,
685: p_data => x_msg_data
686: );
687:
688: AS_Utility_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, l_full_name ||': end');
689:
690: EXCEPTION
691:
692: WHEN FND_API.g_exc_error THEN
691:
692: WHEN FND_API.g_exc_error THEN
693: ROLLBACK TO Create_Lead_Owner;
694: x_return_status := FND_API.g_ret_sts_error;
695: FND_MSG_PUB.count_and_get (
696: p_encoded => FND_API.g_false
697: ,p_count => x_msg_count
698: ,p_data => x_msg_data
699: );
700:
701: WHEN FND_API.g_exc_unexpected_error THEN
702: ROLLBACK TO Create_Lead_Owner;
703: x_return_status := FND_API.g_ret_sts_unexp_error ;
704: FND_MSG_PUB.count_and_get (
705: p_encoded => FND_API.g_false
706: ,p_count => x_msg_count
707: ,p_data => x_msg_data
708: );
711: WHEN OTHERS THEN
712: ROLLBACK TO Create_Lead_Owner;
713: x_return_status := FND_API.g_ret_sts_unexp_error ;
714:
715: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
716: THEN
717: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
718: END IF;
719:
713: x_return_status := FND_API.g_ret_sts_unexp_error ;
714:
715: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
716: THEN
717: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
718: END IF;
719:
720: FND_MSG_PUB.count_and_get(
721: p_encoded => FND_API.g_false
716: THEN
717: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
718: END IF;
719:
720: FND_MSG_PUB.count_and_get(
721: p_encoded => FND_API.g_false
722: ,p_count => x_msg_count
723: ,p_data => x_msg_data
724: );
754:
755: --------------------- initialize -----------------------
756: SAVEPOINT Delete_Lead_Owner;
757:
758: AS_Utility_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, l_full_name||': start');
759:
760: IF FND_API.to_boolean(p_init_msg_list) THEN
761: FND_MSG_PUB.initialize;
762: END IF;
757:
758: AS_Utility_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, l_full_name||': start');
759:
760: IF FND_API.to_boolean(p_init_msg_list) THEN
761: FND_MSG_PUB.initialize;
762: END IF;
763:
764: IF NOT FND_API.compatible_api_call(
765: l_api_version,
772:
773: x_return_status := FND_API.G_RET_STS_SUCCESS;
774:
775: ------------------------ delete ------------------------
776: AS_Utility_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, l_full_name ||': delete');
777:
778: DELETE FROM AS_SALES_LEAD_OWNERS
779: WHERE Lead_Owner_id = p_Lead_Owner_id
780: AND object_version_number = p_object_version;
779: WHERE Lead_Owner_id = p_Lead_Owner_id
780: AND object_version_number = p_object_version;
781:
782: IF (SQL%NOTFOUND) THEN
783: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
784: THEN
785: FND_MESSAGE.set_name('PV', 'PV_RECORD_NOT_FOUND');
786: FND_MSG_PUB.add;
787: END IF;
782: IF (SQL%NOTFOUND) THEN
783: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
784: THEN
785: FND_MESSAGE.set_name('PV', 'PV_RECORD_NOT_FOUND');
786: FND_MSG_PUB.add;
787: END IF;
788: RAISE FND_API.g_exc_error;
789: END IF;
790:
792: IF FND_API.to_boolean(p_commit) THEN
793: COMMIT;
794: END IF;
795:
796: FND_MSG_PUB.count_and_get(
797: p_encoded => FND_API.g_false,
798: p_count => x_msg_count,
799: p_data => x_msg_data
800: );
798: p_count => x_msg_count,
799: p_data => x_msg_data
800: );
801:
802: AS_Utility_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, l_full_name ||': end');
803:
804: EXCEPTION
805:
806: WHEN FND_API.g_exc_error THEN
805:
806: WHEN FND_API.g_exc_error THEN
807: ROLLBACK TO Delete_Lead_Owner;
808: x_return_status := FND_API.g_ret_sts_error;
809: FND_MSG_PUB.count_and_get(
810: p_encoded => FND_API.g_false,
811: p_count => x_msg_count,
812: p_data => x_msg_data
813: );
814:
815: WHEN FND_API.g_exc_unexpected_error THEN
816: ROLLBACK TO Delete_Lead_Owner;
817: x_return_status := FND_API.g_ret_sts_unexp_error ;
818: FND_MSG_PUB.count_and_get(
819: p_encoded => FND_API.g_false,
820: p_count => x_msg_count,
821: p_data => x_msg_data
822: );
824: WHEN OTHERS THEN
825: ROLLBACK TO Delete_Lead_Owner;
826: x_return_status := FND_API.g_ret_sts_unexp_error ;
827:
828: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
829: THEN
830: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
831: END IF;
832:
826: x_return_status := FND_API.g_ret_sts_unexp_error ;
827:
828: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
829: THEN
830: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
831: END IF;
832:
833: FND_MSG_PUB.count_and_get(
834: p_encoded => FND_API.g_false,
829: THEN
830: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
831: END IF;
832:
833: FND_MSG_PUB.count_and_get(
834: p_encoded => FND_API.g_false,
835: p_count => x_msg_count,
836: p_data => x_msg_data
837: );
873:
874: BEGIN
875:
876: -------------------- initialize ------------------------
877: AS_Utility_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, l_full_name||': start');
878:
879: IF FND_API.to_boolean(p_init_msg_list) THEN
880: FND_MSG_PUB.initialize;
881: END IF;
876: -------------------- initialize ------------------------
877: AS_Utility_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, l_full_name||': start');
878:
879: IF FND_API.to_boolean(p_init_msg_list) THEN
880: FND_MSG_PUB.initialize;
881: END IF;
882:
883: IF NOT FND_API.compatible_api_call(
884: l_api_version,
891:
892: x_return_status := FND_API.G_RET_STS_SUCCESS;
893:
894: ------------------------ lock -------------------------
895: AS_Utility_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, l_full_name||': lock');
896:
897: OPEN c_Lead_Owner;
898: FETCH c_Lead_Owner INTO l_Lead_Owner_id;
899: IF (c_Lead_Owner%NOTFOUND) THEN
897: OPEN c_Lead_Owner;
898: FETCH c_Lead_Owner INTO l_Lead_Owner_id;
899: IF (c_Lead_Owner%NOTFOUND) THEN
900: CLOSE c_Lead_Owner;
901: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
902: FND_MESSAGE.set_name('PV', 'PV_RECORD_NOT_FOUND');
903: FND_MSG_PUB.add;
904: END IF;
905: RAISE FND_API.g_exc_error;
899: IF (c_Lead_Owner%NOTFOUND) THEN
900: CLOSE c_Lead_Owner;
901: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
902: FND_MESSAGE.set_name('PV', 'PV_RECORD_NOT_FOUND');
903: FND_MSG_PUB.add;
904: END IF;
905: RAISE FND_API.g_exc_error;
906: END IF;
907: CLOSE c_Lead_Owner;
907: CLOSE c_Lead_Owner;
908:
909:
910: -------------------- finish --------------------------
911: FND_MSG_PUB.count_and_get(
912: p_encoded => FND_API.g_false,
913: p_count => x_msg_count,
914: p_data => x_msg_data
915: );
913: p_count => x_msg_count,
914: p_data => x_msg_data
915: );
916:
917: AS_Utility_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, l_full_name ||': end');
918:
919: EXCEPTION
920:
921: WHEN AS_Utility_PVT.resource_locked THEN
919: EXCEPTION
920:
921: WHEN AS_Utility_PVT.resource_locked THEN
922: x_return_status := FND_API.g_ret_sts_error;
923: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
924: FND_MESSAGE.set_name('PV', 'PV_RESOURCE_LOCKED');
925: FND_MSG_PUB.add;
926: END IF;
927:
921: WHEN AS_Utility_PVT.resource_locked THEN
922: x_return_status := FND_API.g_ret_sts_error;
923: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
924: FND_MESSAGE.set_name('PV', 'PV_RESOURCE_LOCKED');
925: FND_MSG_PUB.add;
926: END IF;
927:
928: FND_MSG_PUB.count_and_get(
929: p_encoded => FND_API.g_false,
924: FND_MESSAGE.set_name('PV', 'PV_RESOURCE_LOCKED');
925: FND_MSG_PUB.add;
926: END IF;
927:
928: FND_MSG_PUB.count_and_get(
929: p_encoded => FND_API.g_false,
930: p_count => x_msg_count,
931: p_data => x_msg_data
932: );
932: );
933:
934: WHEN FND_API.g_exc_error THEN
935: x_return_status := FND_API.g_ret_sts_error;
936: FND_MSG_PUB.count_and_get(
937: p_encoded => FND_API.g_false,
938: p_count => x_msg_count,
939: p_data => x_msg_data
940: );
940: );
941:
942: WHEN FND_API.g_exc_unexpected_error THEN
943: x_return_status := FND_API.g_ret_sts_unexp_error ;
944: FND_MSG_PUB.count_and_get(
945: p_encoded => FND_API.g_false,
946: p_count => x_msg_count,
947: p_data => x_msg_data
948: );
948: );
949:
950: WHEN OTHERS THEN
951: x_return_status := FND_API.g_ret_sts_unexp_error ;
952: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
953: THEN
954: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
955: END IF;
956:
950: WHEN OTHERS THEN
951: x_return_status := FND_API.g_ret_sts_unexp_error ;
952: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
953: THEN
954: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
955: END IF;
956:
957: FND_MSG_PUB.count_and_get(
958: p_encoded => FND_API.g_false,
953: THEN
954: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
955: END IF;
956:
957: FND_MSG_PUB.count_and_get(
958: p_encoded => FND_API.g_false,
959: p_count => x_msg_count,
960: p_data => x_msg_data
961: );
994:
995: -------------------- initialize -------------------------
996: SAVEPOINT Update_Lead_Owner;
997:
998: AS_Utility_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, l_full_name||': start');
999:
1000: IF FND_API.to_boolean(p_init_msg_list) THEN
1001: FND_MSG_PUB.initialize;
1002: END IF;
997:
998: AS_Utility_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, l_full_name||': start');
999:
1000: IF FND_API.to_boolean(p_init_msg_list) THEN
1001: FND_MSG_PUB.initialize;
1002: END IF;
1003:
1004: IF NOT FND_API.compatible_api_call(
1005: l_api_version,
1013: x_return_status := FND_API.G_RET_STS_SUCCESS;
1014:
1015:
1016: ----------------------- validate ----------------------
1017: AS_Utility_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, l_full_name ||': validate');
1018:
1019: IF (p_Lead_Owner_rec.country is null) THEN
1020: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1021: FND_MESSAGE.set_name('PV', 'PV_NO_COUNTRY_FOUND');
1016: ----------------------- validate ----------------------
1017: AS_Utility_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, l_full_name ||': validate');
1018:
1019: IF (p_Lead_Owner_rec.country is null) THEN
1020: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1021: FND_MESSAGE.set_name('PV', 'PV_NO_COUNTRY_FOUND');
1022: FND_MSG_PUB.add;
1023: END IF;
1024: RAISE FND_API.g_exc_error;
1018:
1019: IF (p_Lead_Owner_rec.country is null) THEN
1020: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1021: FND_MESSAGE.set_name('PV', 'PV_NO_COUNTRY_FOUND');
1022: FND_MSG_PUB.add;
1023: END IF;
1024: RAISE FND_API.g_exc_error;
1025: END IF;
1026:
1057: END IF;
1058:
1059:
1060: -------------------------- update --------------------
1061: AS_Utility_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, l_full_name ||': update');
1062:
1063: UPDATE AS_SALES_LEAD_OWNERS SET
1064: category = l_Lead_Owner_rec.category
1065: ,country = l_Lead_Owner_rec.country
1079: WHERE Lead_Owner_id = l_Lead_Owner_rec.Lead_Owner_id
1080: AND object_version_number = l_Lead_Owner_rec.object_version_number;
1081:
1082: IF (SQL%NOTFOUND) THEN
1083: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1084: FND_MESSAGE.set_name('PV', 'PV_NO_RECORD_FOUND');
1085: FND_MSG_PUB.add;
1086: END IF;
1087: RAISE FND_API.g_exc_error;
1081:
1082: IF (SQL%NOTFOUND) THEN
1083: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1084: FND_MESSAGE.set_name('PV', 'PV_NO_RECORD_FOUND');
1085: FND_MSG_PUB.add;
1086: END IF;
1087: RAISE FND_API.g_exc_error;
1088: END IF;
1089:
1093: IF FND_API.to_boolean(p_commit) THEN
1094: COMMIT;
1095: END IF;
1096:
1097: FND_MSG_PUB.count_and_get(
1098: p_encoded => FND_API.g_false,
1099: p_count => x_msg_count,
1100: p_data => x_msg_data
1101: );
1099: p_count => x_msg_count,
1100: p_data => x_msg_data
1101: );
1102:
1103: AS_Utility_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, l_full_name ||': end');
1104:
1105: EXCEPTION
1106:
1107: WHEN FND_API.g_exc_error THEN
1106:
1107: WHEN FND_API.g_exc_error THEN
1108: ROLLBACK TO Update_Lead_Owner;
1109: x_return_status := FND_API.g_ret_sts_error;
1110: FND_MSG_PUB.count_and_get(
1111: p_encoded => FND_API.g_false,
1112: p_count => x_msg_count,
1113: p_data => x_msg_data
1114: );
1115:
1116: WHEN FND_API.g_exc_unexpected_error THEN
1117: ROLLBACK TO Update_Lead_Owner;
1118: x_return_status := FND_API.g_ret_sts_unexp_error ;
1119: FND_MSG_PUB.count_and_get(
1120: p_encoded => FND_API.g_false,
1121: p_count => x_msg_count,
1122: p_data => x_msg_data
1123: );
1125: WHEN OTHERS THEN
1126: ROLLBACK TO Update_Lead_Owner;
1127: x_return_status := FND_API.g_ret_sts_unexp_error ;
1128:
1129: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
1130: THEN
1131: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1132: END IF;
1133:
1127: x_return_status := FND_API.g_ret_sts_unexp_error ;
1128:
1129: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
1130: THEN
1131: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1132: END IF;
1133:
1134: FND_MSG_PUB.count_and_get(
1135: p_encoded => FND_API.g_false,
1130: THEN
1131: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1132: END IF;
1133:
1134: FND_MSG_PUB.count_and_get(
1135: p_encoded => FND_API.g_false,
1136: p_count => x_msg_count,
1137: p_data => x_msg_data
1138: );
1197:
1198: -------------------- initialize -------------------------
1199: SAVEPOINT Get_Salesreps;
1200:
1201: AS_Utility_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, l_full_name||': start');
1202:
1203: IF FND_API.to_boolean(p_init_msg_list) THEN
1204: FND_MSG_PUB.initialize;
1205: END IF;
1200:
1201: AS_Utility_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, l_full_name||': start');
1202:
1203: IF FND_API.to_boolean(p_init_msg_list) THEN
1204: FND_MSG_PUB.initialize;
1205: END IF;
1206:
1207: IF NOT FND_API.compatible_api_call(
1208: l_api_version,
1215:
1216: x_return_status := FND_API.G_RET_STS_SUCCESS;
1217:
1218: ----------------------- validate ----------------------
1219: AS_Utility_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, l_full_name ||': validate');
1220:
1221: IF (p_sales_lead_id is null) THEN
1222: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1223: FND_MESSAGE.set_name('PV', 'PV_NO_COUNTRY_FOUND');
1218: ----------------------- validate ----------------------
1219: AS_Utility_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, l_full_name ||': validate');
1220:
1221: IF (p_sales_lead_id is null) THEN
1222: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1223: FND_MESSAGE.set_name('PV', 'PV_NO_COUNTRY_FOUND');
1224: FND_MSG_PUB.add;
1225: END IF;
1226: RAISE FND_API.g_exc_error;
1220:
1221: IF (p_sales_lead_id is null) THEN
1222: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1223: FND_MESSAGE.set_name('PV', 'PV_NO_COUNTRY_FOUND');
1224: FND_MSG_PUB.add;
1225: END IF;
1226: RAISE FND_API.g_exc_error;
1227: ELSE
1228: IF fnd_msg_pub.Check_Msg_Level (fnd_msg_pub.G_MSG_LVL_DEBUG_LOW) THEN
1224: FND_MSG_PUB.add;
1225: END IF;
1226: RAISE FND_API.g_exc_error;
1227: ELSE
1228: IF fnd_msg_pub.Check_Msg_Level (fnd_msg_pub.G_MSG_LVL_DEBUG_LOW) THEN
1229: fnd_message.Set_Name('PV', 'PV_DEBUG_MESSAGE');
1230: fnd_message.Set_Token('TEXT', 'Sales lead id : ' || p_sales_lead_id);
1231: fnd_msg_pub.Add;
1232: END IF;
1227: ELSE
1228: IF fnd_msg_pub.Check_Msg_Level (fnd_msg_pub.G_MSG_LVL_DEBUG_LOW) THEN
1229: fnd_message.Set_Name('PV', 'PV_DEBUG_MESSAGE');
1230: fnd_message.Set_Token('TEXT', 'Sales lead id : ' || p_sales_lead_id);
1231: fnd_msg_pub.Add;
1232: END IF;
1233:
1234: END IF;
1235:
1237: loop
1238: fetch lc_lead_owners_postal into l_resource_id, l_owner_flag;
1239: exit when lc_lead_owners_postal%notfound;
1240:
1241: IF fnd_msg_pub.Check_Msg_Level (fnd_msg_pub.G_MSG_LVL_DEBUG_LOW) THEN
1242: fnd_message.Set_Name('PV', 'PV_DEBUG_MESSAGE');
1243: fnd_message.Set_Token('TEXT', 'Postal : salesforce_id : ' || l_resource_id || ' owner : ' || l_owner_flag);
1244: fnd_msg_pub.Add;
1245: END IF;
1240:
1241: IF fnd_msg_pub.Check_Msg_Level (fnd_msg_pub.G_MSG_LVL_DEBUG_LOW) THEN
1242: fnd_message.Set_Name('PV', 'PV_DEBUG_MESSAGE');
1243: fnd_message.Set_Token('TEXT', 'Postal : salesforce_id : ' || l_resource_id || ' owner : ' || l_owner_flag);
1244: fnd_msg_pub.Add;
1245: END IF;
1246:
1247: x_salesreps_tbl.extend;
1248: x_salesreps_tbl(x_salesreps_tbl.last).cm_resource_id := l_resource_id;
1257: loop
1258: fetch lc_lead_owners_country into l_resource_id, l_owner_flag;
1259: exit when lc_lead_owners_country%notfound;
1260:
1261: IF fnd_msg_pub.Check_Msg_Level (fnd_msg_pub.G_MSG_LVL_DEBUG_LOW) THEN
1262: fnd_message.Set_Name('PV', 'PV_DEBUG_MESSAGE');
1263: fnd_message.Set_Token('TEXT', 'Country : salesforce_id : ' || l_resource_id || ' owner : ' || l_owner_flag);
1264: fnd_msg_pub.Add;
1265: END IF;
1260:
1261: IF fnd_msg_pub.Check_Msg_Level (fnd_msg_pub.G_MSG_LVL_DEBUG_LOW) THEN
1262: fnd_message.Set_Name('PV', 'PV_DEBUG_MESSAGE');
1263: fnd_message.Set_Token('TEXT', 'Country : salesforce_id : ' || l_resource_id || ' owner : ' || l_owner_flag);
1264: fnd_msg_pub.Add;
1265: END IF;
1266:
1267: x_salesreps_tbl.extend;
1268: x_salesreps_tbl(x_salesreps_tbl.last).cm_resource_id := l_resource_id;
1274: IF FND_API.to_boolean(p_commit) THEN
1275: COMMIT;
1276: END IF;
1277:
1278: FND_MSG_PUB.count_and_get(
1279: p_encoded => FND_API.g_false,
1280: p_count => x_msg_count,
1281: p_data => x_msg_data
1282: );
1280: p_count => x_msg_count,
1281: p_data => x_msg_data
1282: );
1283:
1284: AS_Utility_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, l_full_name ||': end');
1285:
1286: EXCEPTION
1287:
1288: WHEN FND_API.g_exc_error THEN
1287:
1288: WHEN FND_API.g_exc_error THEN
1289: ROLLBACK TO Get_Salesreps;
1290: x_return_status := FND_API.g_ret_sts_error;
1291: FND_MSG_PUB.count_and_get(
1292: p_encoded => FND_API.g_false,
1293: p_count => x_msg_count,
1294: p_data => x_msg_data
1295: );
1296:
1297: WHEN FND_API.g_exc_unexpected_error THEN
1298: ROLLBACK TO Get_Salesreps;
1299: x_return_status := FND_API.g_ret_sts_unexp_error ;
1300: FND_MSG_PUB.count_and_get(
1301: p_encoded => FND_API.g_false,
1302: p_count => x_msg_count,
1303: p_data => x_msg_data
1304: );
1306: WHEN OTHERS THEN
1307: ROLLBACK TO Get_Salesreps;
1308: x_return_status := FND_API.g_ret_sts_unexp_error ;
1309:
1310: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
1311: THEN
1312: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1313: END IF;
1314:
1308: x_return_status := FND_API.g_ret_sts_unexp_error ;
1309:
1310: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
1311: THEN
1312: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1313: END IF;
1314:
1315: FND_MSG_PUB.count_and_get(
1316: p_encoded => FND_API.g_false,
1311: THEN
1312: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1313: END IF;
1314:
1315: FND_MSG_PUB.count_and_get(
1316: p_encoded => FND_API.g_false,
1317: p_count => x_msg_count,
1318: p_data => x_msg_data
1319: );
1383:
1384: -------------------- initialize -------------------------
1385: SAVEPOINT Get_Salesreps;
1386:
1387: AS_Utility_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, l_full_name||': start');
1388:
1389: IF FND_API.to_boolean(p_init_msg_list) THEN
1390: FND_MSG_PUB.initialize;
1391: END IF;
1386:
1387: AS_Utility_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, l_full_name||': start');
1388:
1389: IF FND_API.to_boolean(p_init_msg_list) THEN
1390: FND_MSG_PUB.initialize;
1391: END IF;
1392:
1393: IF NOT FND_API.compatible_api_call(
1394: l_api_version,
1401:
1402: x_return_status := FND_API.G_RET_STS_SUCCESS;
1403:
1404: ----------------------- validate ----------------------
1405: AS_Utility_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, l_full_name ||': validate');
1406:
1407: IF (p_sales_lead_id is null) THEN
1408: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1409: FND_MESSAGE.set_name('PV', 'PV_NO_COUNTRY_FOUND');
1404: ----------------------- validate ----------------------
1405: AS_Utility_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, l_full_name ||': validate');
1406:
1407: IF (p_sales_lead_id is null) THEN
1408: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1409: FND_MESSAGE.set_name('PV', 'PV_NO_COUNTRY_FOUND');
1410: FND_MSG_PUB.add;
1411: END IF;
1412: RAISE FND_API.g_exc_error;
1406:
1407: IF (p_sales_lead_id is null) THEN
1408: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1409: FND_MESSAGE.set_name('PV', 'PV_NO_COUNTRY_FOUND');
1410: FND_MSG_PUB.add;
1411: END IF;
1412: RAISE FND_API.g_exc_error;
1413: ELSE
1414: IF fnd_msg_pub.Check_Msg_Level (fnd_msg_pub.G_MSG_LVL_DEBUG_LOW) THEN
1410: FND_MSG_PUB.add;
1411: END IF;
1412: RAISE FND_API.g_exc_error;
1413: ELSE
1414: IF fnd_msg_pub.Check_Msg_Level (fnd_msg_pub.G_MSG_LVL_DEBUG_LOW) THEN
1415: fnd_message.Set_Name('PV', 'PV_DEBUG_MESSAGE');
1416: fnd_message.Set_Token('TEXT', 'Sales lead id : ' || p_sales_lead_id);
1417: fnd_msg_pub.Add;
1418: END IF;
1413: ELSE
1414: IF fnd_msg_pub.Check_Msg_Level (fnd_msg_pub.G_MSG_LVL_DEBUG_LOW) THEN
1415: fnd_message.Set_Name('PV', 'PV_DEBUG_MESSAGE');
1416: fnd_message.Set_Token('TEXT', 'Sales lead id : ' || p_sales_lead_id);
1417: fnd_msg_pub.Add;
1418: END IF;
1419:
1420: END IF;
1421:
1423: loop
1424: fetch lc_lead_owners_postal into l_resource_id, l_owner_flag;
1425: exit when lc_lead_owners_postal%notfound;
1426:
1427: IF fnd_msg_pub.Check_Msg_Level (fnd_msg_pub.G_MSG_LVL_DEBUG_LOW) THEN
1428: fnd_message.Set_Name('PV', 'PV_DEBUG_MESSAGE');
1429: fnd_message.Set_Token('TEXT', 'Postal : salesforce_id : ' || l_resource_id || ' owner : ' || l_owner_flag);
1430: fnd_msg_pub.Add;
1431: END IF;
1426:
1427: IF fnd_msg_pub.Check_Msg_Level (fnd_msg_pub.G_MSG_LVL_DEBUG_LOW) THEN
1428: fnd_message.Set_Name('PV', 'PV_DEBUG_MESSAGE');
1429: fnd_message.Set_Token('TEXT', 'Postal : salesforce_id : ' || l_resource_id || ' owner : ' || l_owner_flag);
1430: fnd_msg_pub.Add;
1431: END IF;
1432:
1433: l_salesreps_tbl.extend;
1434: l_salesreps_tbl(l_salesreps_tbl.last).cm_resource_id := l_resource_id;
1443: loop
1444: fetch lc_lead_owners_country into l_resource_id, l_owner_flag;
1445: exit when lc_lead_owners_country%notfound;
1446:
1447: IF fnd_msg_pub.Check_Msg_Level (fnd_msg_pub.G_MSG_LVL_DEBUG_LOW) THEN
1448: fnd_message.Set_Name('PV', 'PV_DEBUG_MESSAGE');
1449: fnd_message.Set_Token('TEXT', 'Country : salesforce_id : ' || l_resource_id || ' owner : ' || l_owner_flag);
1450: fnd_msg_pub.Add;
1451: END IF;
1446:
1447: IF fnd_msg_pub.Check_Msg_Level (fnd_msg_pub.G_MSG_LVL_DEBUG_LOW) THEN
1448: fnd_message.Set_Name('PV', 'PV_DEBUG_MESSAGE');
1449: fnd_message.Set_Token('TEXT', 'Country : salesforce_id : ' || l_resource_id || ' owner : ' || l_owner_flag);
1450: fnd_msg_pub.Add;
1451: END IF;
1452:
1453: l_salesreps_tbl.extend;
1454: l_salesreps_tbl(l_salesreps_tbl.last).cm_resource_id := l_resource_id;
1459:
1460: IF (l_salesreps_tbl.count > 0) THEN
1461: x_salesforce_id := l_salesreps_tbl(1).cm_resource_id;
1462: ELSE
1463: AS_Utility_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Getting marketing owner from ptofile ');
1464: x_salesforce_id := fnd_profile.value('AS_DEFAULT_LEAD_MKTG_OWNER');
1465: END IF;
1466:
1467: -- Check for commit
1468: IF FND_API.to_boolean(p_commit) THEN
1469: COMMIT;
1470: END IF;
1471:
1472: FND_MSG_PUB.count_and_get(
1473: p_encoded => FND_API.g_false,
1474: p_count => x_msg_count,
1475: p_data => x_msg_data
1476: );
1474: p_count => x_msg_count,
1475: p_data => x_msg_data
1476: );
1477:
1478: AS_Utility_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, l_full_name ||': end');
1479:
1480: EXCEPTION
1481:
1482: WHEN FND_API.g_exc_error THEN
1481:
1482: WHEN FND_API.g_exc_error THEN
1483: ROLLBACK TO Get_Salesreps;
1484: x_return_status := FND_API.g_ret_sts_error;
1485: FND_MSG_PUB.count_and_get(
1486: p_encoded => FND_API.g_false,
1487: p_count => x_msg_count,
1488: p_data => x_msg_data
1489: );
1490:
1491: WHEN FND_API.g_exc_unexpected_error THEN
1492: ROLLBACK TO Get_Salesreps;
1493: x_return_status := FND_API.g_ret_sts_unexp_error ;
1494: FND_MSG_PUB.count_and_get(
1495: p_encoded => FND_API.g_false,
1496: p_count => x_msg_count,
1497: p_data => x_msg_data
1498: );
1500: WHEN OTHERS THEN
1501: ROLLBACK TO Get_Salesreps;
1502: x_return_status := FND_API.g_ret_sts_unexp_error ;
1503:
1504: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
1505: THEN
1506: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1507: END IF;
1508:
1502: x_return_status := FND_API.g_ret_sts_unexp_error ;
1503:
1504: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
1505: THEN
1506: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1507: END IF;
1508:
1509: FND_MSG_PUB.count_and_get(
1510: p_encoded => FND_API.g_false,
1505: THEN
1506: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1507: END IF;
1508:
1509: FND_MSG_PUB.count_and_get(
1510: p_encoded => FND_API.g_false,
1511: p_count => x_msg_count,
1512: p_data => x_msg_data
1513: );