127:
128: END IF;
129:
130: IF FND_GLOBAL.User_Id IS NULL THEN
131: FND_MESSAGE.set_name('PV', 'PV_API_USER_PROFILE_MISSING');
132: FND_MSG_PUB.add;
133: RAISE FND_API.G_EXC_ERROR;
134: END IF;
135:
344: OPEN c_get_Prgm_Contracts( l_tar_prgm_contracts_rec.program_contracts_id);
345: FETCH c_get_Prgm_Contracts INTO l_ref_prgm_contracts_rec ;
346:
347: IF ( c_get_Prgm_Contracts%NOTFOUND) THEN
348: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_ENTITY');
349: FND_MESSAGE.set_token('MODE','Update');
350: FND_MESSAGE.set_token('ENTITY','Program_Contracts');
351: FND_MESSAGE.set_token('ID',TO_CHAR(l_tar_prgm_contracts_rec.program_contracts_id));
352: FND_MSG_PUB.ADD;
345: FETCH c_get_Prgm_Contracts INTO l_ref_prgm_contracts_rec ;
346:
347: IF ( c_get_Prgm_Contracts%NOTFOUND) THEN
348: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_ENTITY');
349: FND_MESSAGE.set_token('MODE','Update');
350: FND_MESSAGE.set_token('ENTITY','Program_Contracts');
351: FND_MESSAGE.set_token('ID',TO_CHAR(l_tar_prgm_contracts_rec.program_contracts_id));
352: FND_MSG_PUB.ADD;
353: RAISE FND_API.G_EXC_ERROR;
346:
347: IF ( c_get_Prgm_Contracts%NOTFOUND) THEN
348: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_ENTITY');
349: FND_MESSAGE.set_token('MODE','Update');
350: FND_MESSAGE.set_token('ENTITY','Program_Contracts');
351: FND_MESSAGE.set_token('ID',TO_CHAR(l_tar_prgm_contracts_rec.program_contracts_id));
352: FND_MSG_PUB.ADD;
353: RAISE FND_API.G_EXC_ERROR;
354: END IF;
347: IF ( c_get_Prgm_Contracts%NOTFOUND) THEN
348: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_ENTITY');
349: FND_MESSAGE.set_token('MODE','Update');
350: FND_MESSAGE.set_token('ENTITY','Program_Contracts');
351: FND_MESSAGE.set_token('ID',TO_CHAR(l_tar_prgm_contracts_rec.program_contracts_id));
352: FND_MSG_PUB.ADD;
353: RAISE FND_API.G_EXC_ERROR;
354: END IF;
355:
362:
363: IF (l_tar_prgm_contracts_rec.object_version_number IS NULL OR
364: l_tar_prgm_contracts_rec.object_version_number = Fnd_Api.G_MISS_NUM ) THEN
365:
366: FND_MESSAGE.set_name('PV', 'PV_API_VERSION_MISSING');
367: FND_MESSAGE.set_token('COLUMN','OBJECT_VERSION_NUMBER');
368: FND_MSG_PUB.add;
369: RAISE FND_API.G_EXC_ERROR;
370: END IF;
363: IF (l_tar_prgm_contracts_rec.object_version_number IS NULL OR
364: l_tar_prgm_contracts_rec.object_version_number = Fnd_Api.G_MISS_NUM ) THEN
365:
366: FND_MESSAGE.set_name('PV', 'PV_API_VERSION_MISSING');
367: FND_MESSAGE.set_token('COLUMN','OBJECT_VERSION_NUMBER');
368: FND_MSG_PUB.add;
369: RAISE FND_API.G_EXC_ERROR;
370: END IF;
371:
370: END IF;
371:
372: -- Check Whether record has been changed by someone else
373: IF (l_tar_prgm_contracts_rec.object_version_number <> l_ref_prgm_contracts_rec.object_version_number) THEN
374: FND_MESSAGE.set_name('PV', 'PV_API_RECORD_CHANGED');
375: FND_MESSAGE.set_token('VALUE','PROGRAM_CONTRACTS');
376: FND_MSG_PUB.ADD;
377: RAISE FND_API.G_EXC_ERROR;
378: END IF;
371:
372: -- Check Whether record has been changed by someone else
373: IF (l_tar_prgm_contracts_rec.object_version_number <> l_ref_prgm_contracts_rec.object_version_number) THEN
374: FND_MESSAGE.set_name('PV', 'PV_API_RECORD_CHANGED');
375: FND_MESSAGE.set_token('VALUE','PROGRAM_CONTRACTS');
376: FND_MSG_PUB.ADD;
377: RAISE FND_API.G_EXC_ERROR;
378: END IF;
379:
671:
672: IF (c_Prgm_Contracts%NOTFOUND) THEN
673: CLOSE c_Prgm_Contracts;
674: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
675: Fnd_Message.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
676: Fnd_Msg_Pub.ADD;
677: END IF;
678: RAISE Fnd_Api.g_exc_error;
679: END IF;
774: ,'PROGRAM_CONTRACTS_ID = ''' || p_prgm_contracts_rec.program_contracts_id ||''''
775: );
776:
777: IF l_valid_flag = Fnd_Api.g_false THEN
778: FND_MESSAGE.set_name('PV', 'PV_API_DUPLICATE_ENTITY');
779: FND_MESSAGE.set_token('ID',TO_CHAR(p_prgm_contracts_rec.program_contracts_id) );
780: FND_MESSAGE.set_token('ENTITY','Program_Contracts');
781: FND_MSG_PUB.ADD;
782: x_return_status := Fnd_Api.g_ret_sts_error;
775: );
776:
777: IF l_valid_flag = Fnd_Api.g_false THEN
778: FND_MESSAGE.set_name('PV', 'PV_API_DUPLICATE_ENTITY');
779: FND_MESSAGE.set_token('ID',TO_CHAR(p_prgm_contracts_rec.program_contracts_id) );
780: FND_MESSAGE.set_token('ENTITY','Program_Contracts');
781: FND_MSG_PUB.ADD;
782: x_return_status := Fnd_Api.g_ret_sts_error;
783: RETURN;
776:
777: IF l_valid_flag = Fnd_Api.g_false THEN
778: FND_MESSAGE.set_name('PV', 'PV_API_DUPLICATE_ENTITY');
779: FND_MESSAGE.set_token('ID',TO_CHAR(p_prgm_contracts_rec.program_contracts_id) );
780: FND_MESSAGE.set_token('ENTITY','Program_Contracts');
781: FND_MSG_PUB.ADD;
782: x_return_status := Fnd_Api.g_ret_sts_error;
783: RETURN;
784: END IF;
800: OPEN c_get_program_contract_id(p_prgm_contracts_rec.PROGRAM_ID, p_prgm_contracts_rec.GEO_HIERARCHY_ID, p_prgm_contracts_rec.member_type_code);
801: FETCH c_get_program_contract_id INTO l_program_contract_id;
802: IF l_program_contract_id <> p_prgm_contracts_rec.program_contracts_id THEN
803:
804: FND_MESSAGE.set_name('PV', 'PV_API_DUPLICATE_ENTITY');
805:
806: -- Get the get_area_name
807: OPEN c_geo_area_name(p_prgm_contracts_rec.geo_hierarchy_id);
808: FETCH c_geo_area_name into l_geo_area_name;
805:
806: -- Get the get_area_name
807: OPEN c_geo_area_name(p_prgm_contracts_rec.geo_hierarchy_id);
808: FETCH c_geo_area_name into l_geo_area_name;
809: FND_MESSAGE.set_token('ID', l_geo_area_name);
810:
811: FND_MESSAGE.set_token('ENTITY','Program Contracts');
812: FND_MSG_PUB.ADD;
813: x_return_status := Fnd_Api.g_ret_sts_error;
807: OPEN c_geo_area_name(p_prgm_contracts_rec.geo_hierarchy_id);
808: FETCH c_geo_area_name into l_geo_area_name;
809: FND_MESSAGE.set_token('ID', l_geo_area_name);
810:
811: FND_MESSAGE.set_token('ENTITY','Program Contracts');
812: FND_MSG_PUB.ADD;
813: x_return_status := Fnd_Api.g_ret_sts_error;
814: RETURN;
815: END IF;
818:
819: /*
820:
821: IF l_valid_flag = Fnd_Api.g_false THEN
822: FND_MESSAGE.set_name('PV', 'PV_API_DUPLICATE_ENTITY');
823:
824: -- Get the get_area_name
825: OPEN c_geo_area_name(p_prgm_contracts_rec.geo_hierarchy_id);
826: FETCH c_geo_area_name into l_geo_area_name;
823:
824: -- Get the get_area_name
825: OPEN c_geo_area_name(p_prgm_contracts_rec.geo_hierarchy_id);
826: FETCH c_geo_area_name into l_geo_area_name;
827: FND_MESSAGE.set_token('ID', l_geo_area_name);
828:
829: FND_MESSAGE.set_token('ENTITY','Program_Contracts');
830: FND_MSG_PUB.ADD;
831: x_return_status := Fnd_Api.g_ret_sts_error;
825: OPEN c_geo_area_name(p_prgm_contracts_rec.geo_hierarchy_id);
826: FETCH c_geo_area_name into l_geo_area_name;
827: FND_MESSAGE.set_token('ID', l_geo_area_name);
828:
829: FND_MESSAGE.set_token('ENTITY','Program_Contracts');
830: FND_MSG_PUB.ADD;
831: x_return_status := Fnd_Api.g_ret_sts_error;
832: RETURN;
833: END IF;
852: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
853:
854: IF p_prgm_contracts_rec.program_contracts_id = Fnd_Api.g_miss_num
855: OR p_prgm_contracts_rec.program_contracts_id IS NULL THEN
856: Fnd_Message.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
857: Fnd_Message.set_token('COLUMN','PROGRAM_CONTRACTS_ID');
858: FND_MSG_PUB.add;
859: x_return_status := FND_API.g_ret_sts_error;
860: RETURN;
853:
854: IF p_prgm_contracts_rec.program_contracts_id = Fnd_Api.g_miss_num
855: OR p_prgm_contracts_rec.program_contracts_id IS NULL THEN
856: Fnd_Message.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
857: Fnd_Message.set_token('COLUMN','PROGRAM_CONTRACTS_ID');
858: FND_MSG_PUB.add;
859: x_return_status := FND_API.g_ret_sts_error;
860: RETURN;
861: END IF;
862:
863:
864: IF p_prgm_contracts_rec.program_id = Fnd_Api.g_miss_num
865: OR p_prgm_contracts_rec.program_id IS NULL THEN
866: Fnd_Message.set_name('PV','PV_API_MISSING_REQ_COLUMN');
867: Fnd_Message.set_token('COLUMN','PROGRAM_ID');
868: FND_MSG_PUB.add;
869: x_return_status := FND_API.g_ret_sts_error;
870: RETURN;
863:
864: IF p_prgm_contracts_rec.program_id = Fnd_Api.g_miss_num
865: OR p_prgm_contracts_rec.program_id IS NULL THEN
866: Fnd_Message.set_name('PV','PV_API_MISSING_REQ_COLUMN');
867: Fnd_Message.set_token('COLUMN','PROGRAM_ID');
868: FND_MSG_PUB.add;
869: x_return_status := FND_API.g_ret_sts_error;
870: RETURN;
871: END IF;
872:
873:
874: IF p_prgm_contracts_rec.geo_hierarchy_id = Fnd_Api.g_miss_num
875: OR p_prgm_contracts_rec.geo_hierarchy_id IS NULL THEN
876: Fnd_Message.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
877: Fnd_Message.set_token('COLUMN','GEO_HIERARCHY_ID');
878: FND_MSG_PUB.add;
879: x_return_status := FND_API.g_ret_sts_error;
880: RETURN;
873:
874: IF p_prgm_contracts_rec.geo_hierarchy_id = Fnd_Api.g_miss_num
875: OR p_prgm_contracts_rec.geo_hierarchy_id IS NULL THEN
876: Fnd_Message.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
877: Fnd_Message.set_token('COLUMN','GEO_HIERARCHY_ID');
878: FND_MSG_PUB.add;
879: x_return_status := FND_API.g_ret_sts_error;
880: RETURN;
881: END IF;
882:
883:
884: IF p_prgm_contracts_rec.contract_id = Fnd_Api.g_miss_num
885: OR p_prgm_contracts_rec.contract_id IS NULL THEN
886: Fnd_Message.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
887: Fnd_Message.set_token('COLUMN','CONTRACT_ID');
888: FND_MSG_PUB.add;
889: x_return_status := FND_API.g_ret_sts_error;
890: RETURN;
883:
884: IF p_prgm_contracts_rec.contract_id = Fnd_Api.g_miss_num
885: OR p_prgm_contracts_rec.contract_id IS NULL THEN
886: Fnd_Message.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
887: Fnd_Message.set_token('COLUMN','CONTRACT_ID');
888: FND_MSG_PUB.add;
889: x_return_status := FND_API.g_ret_sts_error;
890: RETURN;
891: END IF;
892:
893:
894: IF p_prgm_contracts_rec.last_update_date = Fnd_Api.g_miss_date
895: OR p_prgm_contracts_rec.last_update_date IS NULL THEN
896: Fnd_Message.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
897: Fnd_Message.set_token('COLUMN','LAST_UPDATE_DATE');
898: FND_MSG_PUB.add;
899: x_return_status := FND_API.g_ret_sts_error;
900: RETURN;
893:
894: IF p_prgm_contracts_rec.last_update_date = Fnd_Api.g_miss_date
895: OR p_prgm_contracts_rec.last_update_date IS NULL THEN
896: Fnd_Message.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
897: Fnd_Message.set_token('COLUMN','LAST_UPDATE_DATE');
898: FND_MSG_PUB.add;
899: x_return_status := FND_API.g_ret_sts_error;
900: RETURN;
901: END IF;
902:
903:
904: IF p_prgm_contracts_rec.last_updated_by = Fnd_Api.g_miss_num
905: OR p_prgm_contracts_rec.last_updated_by IS NULL THEN
906: Fnd_Message.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
907: Fnd_Message.set_token('COLUMN','LAST_UPDATED_BY');
908: FND_MSG_PUB.add;
909: x_return_status := FND_API.g_ret_sts_error;
910: RETURN;
903:
904: IF p_prgm_contracts_rec.last_updated_by = Fnd_Api.g_miss_num
905: OR p_prgm_contracts_rec.last_updated_by IS NULL THEN
906: Fnd_Message.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
907: Fnd_Message.set_token('COLUMN','LAST_UPDATED_BY');
908: FND_MSG_PUB.add;
909: x_return_status := FND_API.g_ret_sts_error;
910: RETURN;
911: END IF;
912:
913:
914: IF p_prgm_contracts_rec.creation_date = Fnd_Api.g_miss_date
915: OR p_prgm_contracts_rec.creation_date IS NULL THEN
916: Fnd_Message.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
917: Fnd_Message.set_token('COLUMN','CREATION_DATE');
918: FND_MSG_PUB.add;
919: x_return_status := FND_API.g_ret_sts_error;
920: RETURN;
913:
914: IF p_prgm_contracts_rec.creation_date = Fnd_Api.g_miss_date
915: OR p_prgm_contracts_rec.creation_date IS NULL THEN
916: Fnd_Message.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
917: Fnd_Message.set_token('COLUMN','CREATION_DATE');
918: FND_MSG_PUB.add;
919: x_return_status := FND_API.g_ret_sts_error;
920: RETURN;
921: END IF;
922:
923:
924: IF p_prgm_contracts_rec.created_by = Fnd_Api.g_miss_num
925: OR p_prgm_contracts_rec.created_by IS NULL THEN
926: Fnd_Message.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
927: Fnd_Message.set_token('COLUMN','CREATED_BY');
928: FND_MSG_PUB.add;
929: x_return_status := FND_API.g_ret_sts_error;
930: RETURN;
923:
924: IF p_prgm_contracts_rec.created_by = Fnd_Api.g_miss_num
925: OR p_prgm_contracts_rec.created_by IS NULL THEN
926: Fnd_Message.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
927: Fnd_Message.set_token('COLUMN','CREATED_BY');
928: FND_MSG_PUB.add;
929: x_return_status := FND_API.g_ret_sts_error;
930: RETURN;
931: END IF;
932:
933:
934: IF p_prgm_contracts_rec.last_update_login = Fnd_Api.g_miss_num
935: OR p_prgm_contracts_rec.last_update_login IS NULL THEN
936: Fnd_Message.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
937: Fnd_Message.set_token('COLUMN','LAST_UPDATE_LOGIN');
938: FND_MSG_PUB.add;
939: x_return_status := FND_API.g_ret_sts_error;
940: RETURN;
933:
934: IF p_prgm_contracts_rec.last_update_login = Fnd_Api.g_miss_num
935: OR p_prgm_contracts_rec.last_update_login IS NULL THEN
936: Fnd_Message.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
937: Fnd_Message.set_token('COLUMN','LAST_UPDATE_LOGIN');
938: FND_MSG_PUB.add;
939: x_return_status := FND_API.g_ret_sts_error;
940: RETURN;
941: END IF;
942:
943:
944: IF p_prgm_contracts_rec.object_version_number = Fnd_Api.g_miss_num
945: OR p_prgm_contracts_rec.object_version_number IS NULL THEN
946: Fnd_Message.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
947: Fnd_Message.set_token('COLUMN','OBJECT_VERSION_NUMBER');
948: FND_MSG_PUB.add;
949: x_return_status := FND_API.g_ret_sts_error;
950: RETURN;
943:
944: IF p_prgm_contracts_rec.object_version_number = Fnd_Api.g_miss_num
945: OR p_prgm_contracts_rec.object_version_number IS NULL THEN
946: Fnd_Message.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
947: Fnd_Message.set_token('COLUMN','OBJECT_VERSION_NUMBER');
948: FND_MSG_PUB.add;
949: x_return_status := FND_API.g_ret_sts_error;
950: RETURN;
951: END IF;
951: END IF;
952:
953: IF p_prgm_contracts_rec.member_type_code = Fnd_Api.g_miss_char
954: OR p_prgm_contracts_rec.member_type_code IS NULL THEN
955: Fnd_Message.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
956: Fnd_Message.set_token('COLUMN','MEMBER_TYPE_CODE');
957: FND_MSG_PUB.add;
958: x_return_status := FND_API.g_ret_sts_error;
959: RETURN;
952:
953: IF p_prgm_contracts_rec.member_type_code = Fnd_Api.g_miss_char
954: OR p_prgm_contracts_rec.member_type_code IS NULL THEN
955: Fnd_Message.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
956: Fnd_Message.set_token('COLUMN','MEMBER_TYPE_CODE');
957: FND_MSG_PUB.add;
958: x_return_status := FND_API.g_ret_sts_error;
959: RETURN;
960: END IF;
962: ELSE
963:
964:
965: IF p_prgm_contracts_rec.program_contracts_id IS NULL THEN
966: Fnd_Message.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
967: Fnd_Message.set_token('COLUMN','PROGRAM_CONTRACTS_ID');
968: FND_MSG_PUB.add;
969: x_return_status := FND_API.g_ret_sts_error;
970: RETURN;
963:
964:
965: IF p_prgm_contracts_rec.program_contracts_id IS NULL THEN
966: Fnd_Message.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
967: Fnd_Message.set_token('COLUMN','PROGRAM_CONTRACTS_ID');
968: FND_MSG_PUB.add;
969: x_return_status := FND_API.g_ret_sts_error;
970: RETURN;
971: END IF;
971: END IF;
972:
973:
974: IF p_prgm_contracts_rec.object_version_number IS NULL THEN
975: Fnd_Message.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
976: Fnd_Message.set_token('COLUMN','object_version_number');
977: Fnd_Msg_Pub.ADD;
978: x_return_status := Fnd_Api.g_ret_sts_error;
979: RETURN;
972:
973:
974: IF p_prgm_contracts_rec.object_version_number IS NULL THEN
975: Fnd_Message.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
976: Fnd_Message.set_token('COLUMN','object_version_number');
977: Fnd_Msg_Pub.ADD;
978: x_return_status := Fnd_Api.g_ret_sts_error;
979: RETURN;
980: END IF;
1013: ) = FND_API.g_false
1014: THEN
1015: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1016: THEN
1017: FND_MESSAGE.set_name('PV', 'PV_NOT_A_VALID_PARTNER_PROGRAM');
1018: FND_MSG_PUB.add;
1019: END IF;
1020:
1021: x_return_status := FND_API.g_ret_sts_error;
1050: ) = FND_API.g_false
1051: THEN
1052: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1053: THEN
1054: FND_MESSAGE.set_name('PV', 'PV_NOT_A_GEO_HIERARCHY');
1055: FND_MSG_PUB.add;
1056: END IF;
1057:
1058: x_return_status := FND_API.g_ret_sts_error;
1079: ) = FND_API.g_false
1080: THEN
1081: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1082: THEN
1083: FND_MESSAGE.set_name('PV', 'PV_NOT_A_VALID_CONTRACT');
1084: FND_MSG_PUB.add;
1085: END IF;
1086:
1087: x_return_status := FND_API.g_ret_sts_error;