[Home] [Help]
19: --p_description IN VARCHAR2
20:
21: PROCEDURE Create_Project_Template(
22: p_api_version IN NUMBER :=1.0,
23: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
24: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
25: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
26: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
27: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
20:
21: PROCEDURE Create_Project_Template(
22: p_api_version IN NUMBER :=1.0,
23: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
24: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
25: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
26: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
27: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
28: p_debug_mode IN VARCHAR2 :='N',
21: PROCEDURE Create_Project_Template(
22: p_api_version IN NUMBER :=1.0,
23: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
24: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
25: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
26: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
27: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
28: p_debug_mode IN VARCHAR2 :='N',
29: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
22: p_api_version IN NUMBER :=1.0,
23: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
24: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
25: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
26: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
27: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
28: p_debug_mode IN VARCHAR2 :='N',
29: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
30: p_project_number IN VARCHAR2,
210: IF (p_debug_mode = 'Y') THEN
211: pa_debug.debug('PA_PROJ_TEMPLATE_SETUP_PVT.Create_Project_Template begin');
212: END IF;
213:
214: IF (p_commit = FND_API.G_TRUE) THEN
215: savepoint Create_Project_Template;
216: END IF;
217:
218: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
214: IF (p_commit = FND_API.G_TRUE) THEN
215: savepoint Create_Project_Template;
216: END IF;
217:
218: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
219: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
220: END IF;
221:
222: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
215: savepoint Create_Project_Template;
216: END IF;
217:
218: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
219: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
220: END IF;
221:
222: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
223: FND_MSG_PUB.initialize;
218: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
219: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
220: END IF;
221:
222: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
223: FND_MSG_PUB.initialize;
224: END IF;
225:
226: --Check for not null
232: ,x_return_status => l_return_status
233: ,x_error_msg_code => l_error_msg_code
234: );
235:
236: IF l_return_status = FND_API.G_RET_STS_ERROR
237: THEN
238: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
239: p_msg_name => l_error_msg_code);
240: x_msg_data := l_error_msg_code;
238: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
239: p_msg_name => l_error_msg_code);
240: x_msg_data := l_error_msg_code;
241: x_return_status := 'E';
242: RAISE FND_API.G_EXC_ERROR;
243: END IF;
244:
245: --check for project number uniqueness
246: IF pa_project_utils.check_unique_project_number (x_project_number => p_project_number
250: p_msg_name => 'PA_SETUP_TMPL_NUM_NOT_UNIQUE' );
251: --x_msg_data := 'PA_PR_EPR_PROJ_NUM_NOT_UNIQUE';
252: x_msg_data := 'PA_SETUP_TMPL_NUM_NOT_UNIQUE';
253: x_return_status := 'E';
254: RAISE FND_API.G_EXC_ERROR;
255: END IF;
256:
257: --check for project name uniqueness
258: IF pa_project_utils.check_unique_project_name (x_project_name => p_project_name
262: p_msg_name => 'PA_SETUP_TMPL_NAME_NOT_UNIQUE' );
263: --x_msg_data := 'PA_PR_EPR_PROJ_NAME_NOT_UNIQUE';
264: x_msg_data := 'PA_SETUP_TMPL_NAME_NOT_UNIQUE';
265: x_return_status := 'E';
266: RAISE FND_API.G_EXC_ERROR;
267: END IF;
268:
269: -- anlee
270: -- Project Long Name changes
275: p_msg_name => 'PA_PR_EPR_LONG_NAME_NOT_UNIQUE' );
276: --x_msg_data := 'PA_PR_EPR_LONG_NAME_NOT_UNIQUE';
277: x_msg_data := 'PA_PR_EPR_LONG_NAME_NOT_UNIQUE';
278: x_return_status := 'E';
279: RAISE FND_API.G_EXC_ERROR;
280: END IF;
281: -- End of changes
282:
283: IF p_effective_from_date = TO_DATE( '01-01-1000', 'DD-MM-YYYY' )
303: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
304: p_msg_name => 'PA_SETUP_CHK_ST_EN_DATE');
305: x_msg_data := 'PA_SETUP_CHK_ST_EN_DATE';
306: x_return_status := 'E';
307: RAISE FND_API.G_EXC_ERROR;
308: END IF;
309: ELSIF l_effective_from_date IS NULL AND
310: l_effective_to_date IS NOT NULL
311: THEN
312: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
313: p_msg_name => 'PA_SETUP_ST_DT_WO_EN_DT');
314: x_msg_data := 'PA_SETUP_ST_DT_WO_EN_DT';
315: x_return_status := 'E';
316: RAISE FND_API.G_EXC_ERROR;
317: END IF;
318:
319: PA_PROJ_TEMPLATE_SETUP_UTILS.Get_Project_Type_Defaults(
320: p_project_type => p_project_type
366: ,x_return_status => l_return_status
367: ,x_error_msg_code => l_error_msg_code
368: );
369:
370: IF l_return_status = FND_API.G_RET_STS_ERROR
371: THEN
372: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
373: p_msg_name => l_error_msg_code);
374: x_msg_data := l_error_msg_code;
372: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
373: p_msg_name => l_error_msg_code);
374: x_msg_data := l_error_msg_code;
375: x_return_status := 'E';
376: RAISE FND_API.G_EXC_ERROR;
377: END IF;
378:
379: --Organization Location Validations
380: pa_location_utils.Get_ORG_Location_Details
385: x_country_code => l_country_code,
386: x_return_status => l_return_status,
387: x_error_message_code => l_error_message_code);
388:
389: IF l_return_status = FND_API.G_RET_STS_ERROR
390: THEN
391: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
392: p_msg_name => l_error_message_code);
393: x_msg_data := l_error_msg_code;
391: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
392: p_msg_name => l_error_message_code);
393: x_msg_data := l_error_msg_code;
394: x_return_status := 'E';
395: RAISE FND_API.G_EXC_ERROR;
396: END IF;
397:
398: pa_location_utils.check_location_exists(
399: p_country_code => l_country_code,
433: x_return_status => l_return_status,
434: x_msg_count => l_msg_count,
435: x_msg_data => l_msg_data);
436:
437: IF l_return_status = FND_API.G_RET_STS_ERROR
438: THEN
439: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
440: p_msg_name => l_msg_data);
441: x_msg_data := l_msg_data;
439: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
440: p_msg_name => l_msg_data);
441: x_msg_data := l_msg_data;
442: x_return_status := 'E';
443: RAISE FND_API.G_EXC_ERROR;
444: END IF;
445:
446:
447: --default public sector flag from profile options.
554: p_value1 => t_project_type_class_code);
555: */
556: x_msg_data := x_err_stage;
557: x_return_status := 'E';
558: RAISE FND_API.G_EXC_ERROR;
559:
560: End If;
561:
562: IF t_project_type_class_code <> 'CONTRACT'
798: -- End of changes
799: END LOOP;
800: END;
801:
802: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
803: x_msg_count := FND_MSG_PUB.count_msg;
804: IF x_msg_count = 1 then
805: pa_interface_utils_pub.get_messages
806: (p_encoded => FND_API.G_TRUE,
802: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
803: x_msg_count := FND_MSG_PUB.count_msg;
804: IF x_msg_count = 1 then
805: pa_interface_utils_pub.get_messages
806: (p_encoded => FND_API.G_TRUE,
807: p_msg_index => 1,
808: p_msg_count => l_msg_count,
809: p_msg_data => l_msg_data,
810: p_data => l_data,
810: p_data => l_data,
811: p_msg_index_out => l_msg_index_out);
812: x_msg_data := l_data;
813: END IF;
814: raise FND_API.G_EXC_ERROR;
815: END IF;
816:
817: --Call Add quick entry api to add two default quick entries( SEGMENT1 and NAME ) in
818: --pa_project_copy_overrides with the created template.
856:
857: END LOOP;
858: END;
859:
860: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
861: x_msg_count := FND_MSG_PUB.count_msg;
862: IF x_msg_count = 1 then
863: pa_interface_utils_pub.get_messages
864: (p_encoded => FND_API.G_TRUE,
860: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
861: x_msg_count := FND_MSG_PUB.count_msg;
862: IF x_msg_count = 1 then
863: pa_interface_utils_pub.get_messages
864: (p_encoded => FND_API.G_TRUE,
865: p_msg_index => 1,
866: p_msg_count => l_msg_count,
867: p_msg_data => l_msg_data,
868: p_data => l_data,
868: p_data => l_data,
869: p_msg_index_out => l_msg_index_out);
870: x_msg_data := l_data;
871: END IF;
872: raise FND_API.G_EXC_ERROR;
873: END IF;
874:
875: --Insert default resource list
876: Open Get_def_Res_List;
1022: ,x_return_status => l_return_status
1023: ,x_msg_count => l_msg_count
1024: ,x_msg_data => l_msg_data );
1025:
1026: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1027: x_msg_count := FND_MSG_PUB.count_msg;
1028: IF x_msg_count = 1 then
1029: pa_interface_utils_pub.get_messages
1030: (p_encoded => FND_API.G_TRUE,
1026: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1027: x_msg_count := FND_MSG_PUB.count_msg;
1028: IF x_msg_count = 1 then
1029: pa_interface_utils_pub.get_messages
1030: (p_encoded => FND_API.G_TRUE,
1031: p_msg_index => 1,
1032: p_msg_count => l_msg_count,
1033: p_msg_data => l_msg_data,
1034: p_data => l_data,
1034: p_data => l_data,
1035: p_msg_index_out => l_msg_index_out);
1036: x_msg_data := l_data;
1037: END IF;
1038: raise FND_API.G_EXC_ERROR;
1039: END IF;
1040:
1041: /* From FPM we will not be creating any default structure at the time of template creation
1042: Please refer Financial structures in HTML Technical Architecture on files online
1053: ,x_msg_data => l_msg_data
1054: ,x_return_status => l_return_status
1055: );
1056:
1057: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1058: x_msg_count := FND_MSG_PUB.count_msg;
1059: IF x_msg_count = 1 then
1060: pa_interface_utils_pub.get_messages
1061: (p_encoded => FND_API.G_TRUE,
1057: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1058: x_msg_count := FND_MSG_PUB.count_msg;
1059: IF x_msg_count = 1 then
1060: pa_interface_utils_pub.get_messages
1061: (p_encoded => FND_API.G_TRUE,
1062: p_msg_index => 1,
1063: p_msg_count => l_msg_count,
1064: p_msg_data => l_msg_data,
1065: p_data => l_data,
1065: p_data => l_data,
1066: p_msg_index_out => l_msg_index_out);
1067: x_msg_data := l_data;
1068: END IF;
1069: raise FND_API.G_EXC_ERROR;
1070: END IF;
1071:
1072: --Project Structures Changes
1073: --Creating tasks in pa_proj_elements from pa_tasks
1077: ,x_msg_count => l_msg_count
1078: ,x_msg_data => l_msg_data
1079: ,x_return_status => l_return_status );
1080:
1081: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1082: x_msg_count := FND_MSG_PUB.count_msg;
1083: IF x_msg_count = 1 then
1084: pa_interface_utils_pub.get_messages
1085: (p_encoded => FND_API.G_TRUE,
1081: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1082: x_msg_count := FND_MSG_PUB.count_msg;
1083: IF x_msg_count = 1 then
1084: pa_interface_utils_pub.get_messages
1085: (p_encoded => FND_API.G_TRUE,
1086: p_msg_index => 1,
1087: p_msg_count => l_msg_count,
1088: p_msg_data => l_msg_data,
1089: p_data => l_data,
1089: p_data => l_data,
1090: p_msg_index_out => l_msg_index_out);
1091: x_msg_data := l_data;
1092: END IF;
1093: raise FND_API.G_EXC_ERROR;
1094: END IF;
1095: */ --bug 3301192
1096:
1097: -- anlee
1111: ,x_msg_data => l_msg_data
1112: ,x_return_status => l_return_status
1113: );
1114:
1115: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1116: x_msg_count := FND_MSG_PUB.count_msg;
1117: IF x_msg_count = 1 then
1118: pa_interface_utils_pub.get_messages
1119: (p_encoded => FND_API.G_TRUE,
1115: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1116: x_msg_count := FND_MSG_PUB.count_msg;
1117: IF x_msg_count = 1 then
1118: pa_interface_utils_pub.get_messages
1119: (p_encoded => FND_API.G_TRUE,
1120: p_msg_index => 1,
1121: p_msg_count => l_msg_count,
1122: p_msg_data => l_msg_data,
1123: p_data => l_data,
1123: p_data => l_data,
1124: p_msg_index_out => l_msg_index_out);
1125: x_msg_data := l_data;
1126: END IF;
1127: raise FND_API.G_EXC_ERROR;
1128: END IF;
1129: */
1130: -- End of changes
1131:
1128: END IF;
1129: */
1130: -- End of changes
1131:
1132: x_return_status := FND_API.G_RET_STS_SUCCESS;
1133:
1134: IF (p_commit = FND_API.G_TRUE) THEN
1135: COMMIT;
1136: END IF;
1130: -- End of changes
1131:
1132: x_return_status := FND_API.G_RET_STS_SUCCESS;
1133:
1134: IF (p_commit = FND_API.G_TRUE) THEN
1135: COMMIT;
1136: END IF;
1137:
1138: IF (p_debug_mode = 'Y') THEN
1138: IF (p_debug_mode = 'Y') THEN
1139: pa_debug.debug('PA_PROJ_TEMPLATE_SETUP_PVT.Create_Project_Template END');
1140: END IF;
1141: EXCEPTION
1142: when FND_API.G_EXC_ERROR then
1143: if p_commit = FND_API.G_TRUE then
1144: rollback to Create_Project_Template;
1145: end if;
1146: x_return_status := FND_API.G_RET_STS_ERROR;
1139: pa_debug.debug('PA_PROJ_TEMPLATE_SETUP_PVT.Create_Project_Template END');
1140: END IF;
1141: EXCEPTION
1142: when FND_API.G_EXC_ERROR then
1143: if p_commit = FND_API.G_TRUE then
1144: rollback to Create_Project_Template;
1145: end if;
1146: x_return_status := FND_API.G_RET_STS_ERROR;
1147: when FND_API.G_EXC_UNEXPECTED_ERROR then
1142: when FND_API.G_EXC_ERROR then
1143: if p_commit = FND_API.G_TRUE then
1144: rollback to Create_Project_Template;
1145: end if;
1146: x_return_status := FND_API.G_RET_STS_ERROR;
1147: when FND_API.G_EXC_UNEXPECTED_ERROR then
1148: if p_commit = FND_API.G_TRUE then
1149: rollback to Create_Project_Template;
1150: end if;
1143: if p_commit = FND_API.G_TRUE then
1144: rollback to Create_Project_Template;
1145: end if;
1146: x_return_status := FND_API.G_RET_STS_ERROR;
1147: when FND_API.G_EXC_UNEXPECTED_ERROR then
1148: if p_commit = FND_API.G_TRUE then
1149: rollback to Create_Project_Template;
1150: end if;
1151: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1144: rollback to Create_Project_Template;
1145: end if;
1146: x_return_status := FND_API.G_RET_STS_ERROR;
1147: when FND_API.G_EXC_UNEXPECTED_ERROR then
1148: if p_commit = FND_API.G_TRUE then
1149: rollback to Create_Project_Template;
1150: end if;
1151: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1152: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PVT',
1147: when FND_API.G_EXC_UNEXPECTED_ERROR then
1148: if p_commit = FND_API.G_TRUE then
1149: rollback to Create_Project_Template;
1150: end if;
1151: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1152: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PVT',
1153: p_procedure_name => 'Create_Project_Template',
1154: p_error_text => SUBSTRB(SQLERRM,1,240));
1155: when OTHERS then
1152: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PVT',
1153: p_procedure_name => 'Create_Project_Template',
1154: p_error_text => SUBSTRB(SQLERRM,1,240));
1155: when OTHERS then
1156: if p_commit = FND_API.G_TRUE then
1157: rollback to Create_Project_Template;
1158: end if;
1159: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1160: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PVT',
1155: when OTHERS then
1156: if p_commit = FND_API.G_TRUE then
1157: rollback to Create_Project_Template;
1158: end if;
1159: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1160: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PVT',
1161: p_procedure_name => 'Create_Project_Template',
1162: p_error_text => SUBSTRB(SQLERRM,1,240));
1163: raise;
1179: --p_description IN VARCHAR2
1180:
1181: PROCEDURE Update_Project_Template(
1182: p_api_version IN NUMBER :=1.0,
1183: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
1184: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
1185: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
1186: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
1187: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
1180:
1181: PROCEDURE Update_Project_Template(
1182: p_api_version IN NUMBER :=1.0,
1183: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
1184: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
1185: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
1186: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
1187: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
1188: p_debug_mode IN VARCHAR2 :='N',
1181: PROCEDURE Update_Project_Template(
1182: p_api_version IN NUMBER :=1.0,
1183: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
1184: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
1185: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
1186: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
1187: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
1188: p_debug_mode IN VARCHAR2 :='N',
1189: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
1182: p_api_version IN NUMBER :=1.0,
1183: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
1184: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
1185: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
1186: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
1187: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
1188: p_debug_mode IN VARCHAR2 :='N',
1189: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
1190: p_project_id IN NUMBER,
1396: IF (p_debug_mode = 'Y') THEN
1397: pa_debug.debug('PA_PROJ_TEMPLATE_SETUP_PVT.Update_Project_Template begin');
1398: END IF;
1399:
1400: IF (p_commit = FND_API.G_TRUE) THEN
1401: savepoint Update_Project_Template;
1402: END IF;
1403:
1404: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
1400: IF (p_commit = FND_API.G_TRUE) THEN
1401: savepoint Update_Project_Template;
1402: END IF;
1403:
1404: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
1405: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1406: END IF;
1407:
1408: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
1401: savepoint Update_Project_Template;
1402: END IF;
1403:
1404: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
1405: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1406: END IF;
1407:
1408: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
1409: FND_MSG_PUB.initialize;
1404: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
1405: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1406: END IF;
1407:
1408: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
1409: FND_MSG_PUB.initialize;
1410: END IF;
1411:
1412: --check project type change
1447: ,x_return_status => l_return_status
1448: ,x_error_msg_code => l_error_msg_code
1449: );
1450:
1451: IF l_return_status = FND_API.G_RET_STS_ERROR
1452: THEN
1453: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1454: p_msg_name => l_error_msg_code);
1455: x_msg_data := l_error_msg_code;
1453: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1454: p_msg_name => l_error_msg_code);
1455: x_msg_data := l_error_msg_code;
1456: x_return_status := 'E';
1457: RAISE FND_API.G_EXC_ERROR;
1458: END IF;
1459:
1460: --Check proj number change
1461: IF l_proj_number <> p_project_number
1469: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1470: p_msg_name => l_err_stage );
1471: x_msg_data := x_err_stage;
1472: x_return_status := 'E';
1473: RAISE FND_API.G_EXC_ERROR;
1474: end If;
1475: END IF;
1476:
1477: --check for project number uniqueness
1481: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1482: p_msg_name => 'PA_SETUP_TMPL_NUM_NOT_UNIQUE' );
1483: x_msg_data := 'PA_SETUP_TMPL_NUM_NOT_UNIQUE';
1484: x_return_status := 'E';
1485: RAISE FND_API.G_EXC_ERROR;
1486: END IF;
1487:
1488: --check for project name uniqueness
1489: IF pa_project_utils.check_unique_project_name (x_project_name => p_project_name
1492: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1493: p_msg_name => 'PA_SETUP_TMPL_NAME_NOT_UNIQUE' );
1494: x_msg_data := 'PA_SETUP_TMPL_NAME_NOT_UNIQUE';
1495: x_return_status := 'E';
1496: RAISE FND_API.G_EXC_ERROR;
1497: END IF;
1498:
1499: -- anlee
1500: -- Project Long Name changes
1503: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1504: p_msg_name => 'PA_PR_EPR_LONG_NAME_NOT_UNIQUE' );
1505: x_msg_data := 'PA_PR_EPR_LONG_NAME_NOT_UNIQUE';
1506: x_return_status := 'E';
1507: RAISE FND_API.G_EXC_ERROR;
1508: END IF;
1509: -- End of changes
1510:
1511: IF p_effective_from_date = TO_DATE( '01-01-1000', 'DD-MM-YYYY' )
1531: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1532: p_msg_name => 'PA_SETUP_CHK_ST_EN_DATE');
1533: x_msg_data := 'PA_SETUP_CHK_ST_EN_DATE';
1534: x_return_status := 'E';
1535: RAISE FND_API.G_EXC_ERROR;
1536: END IF;
1537: ELSIF l_effective_from_date IS NULL AND
1538: l_effective_to_date IS NOT NULL
1539: THEN
1540: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1541: p_msg_name => 'PA_SETUP_ST_DT_WO_EN_DT');
1542: x_msg_data := 'PA_SETUP_ST_DT_WO_EN_DT';
1543: x_return_status := 'E';
1544: RAISE FND_API.G_EXC_ERROR;
1545: END IF;
1546:
1547: PA_PROJ_TEMPLATE_SETUP_UTILS.Get_Project_Type_Defaults(
1548: p_project_type => p_project_type
1593: ,x_return_status => l_return_status
1594: ,x_error_msg_code => l_error_msg_code
1595: );
1596:
1597: IF l_return_status = FND_API.G_RET_STS_ERROR
1598: THEN
1599: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1600: p_msg_name => l_error_msg_code);
1601: x_msg_data := l_error_msg_code;
1599: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1600: p_msg_name => l_error_msg_code);
1601: x_msg_data := l_error_msg_code;
1602: x_return_status := 'E';
1603: RAISE FND_API.G_EXC_ERROR;
1604: END IF;
1605:
1606: --Validation from Projects form
1607: IF l_unassigned_time = 'N'
1648: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1649: p_msg_name => 'PA_PR_CANT_CHG_DIR_TO_INDIR' );
1650: x_msg_data := 'PA_PR_CANT_CHG_DIR_TO_INDIR';
1651: x_return_status := 'E';
1652: RAISE FND_API.G_EXC_ERROR;
1653: END IF;
1654: l_labor_sch_type := null;
1655: l_non_labor_sch_type := null;
1656: END IF;
1686: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1687: p_msg_name => 'PA_PR_CANT_CHG_PROJ_TYPE' );
1688: x_msg_data := 'PA_PR_CANT_CHG_DIR_TO_INDIR';
1689: x_return_status := 'E';
1690: RAISE FND_API.G_EXC_ERROR;
1691: END IF;
1692: */ --this code is commented in forms PAXPREPR.fmb
1693: END IF;
1694:
1706: x_country_code => l_country_code,
1707: x_return_status => l_return_status,
1708: x_error_message_code => l_error_message_code);
1709:
1710: IF l_return_status = FND_API.G_RET_STS_ERROR
1711: THEN
1712: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1713: p_msg_name => l_error_message_code);
1714: x_msg_data := l_error_msg_code;
1712: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1713: p_msg_name => l_error_message_code);
1714: x_msg_data := l_error_msg_code;
1715: x_return_status := 'E';
1716: RAISE FND_API.G_EXC_ERROR;
1717: END IF;
1718:
1719: pa_location_utils.check_location_exists(
1720: p_country_code => l_country_code,
1821: p_value1 => l_project_type_class_code );
1822: */
1823: x_msg_data := x_err_stage;
1824: x_return_status := 'E';
1825: RAISE FND_API.G_EXC_ERROR;
1826: End If;
1827: END IF; --validate attribute change
1828:
1829: --maansari bug 3068806
1835: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1836: p_msg_name => 'PA_PR_CANT_CHG_IC_BIL_PT');
1837: x_msg_data := 'PA_PR_CANT_CHG_IC_BIL_PT';
1838: x_return_status := 'E';
1839: RAISE FND_API.G_EXC_ERROR;
1840: END IF;
1841: --end maansari bug 3068806
1842:
1843: --bug 3068781
2045: , x_return_status => l_return_status
2046: , x_msg_count => l_msg_count
2047: , x_msg_data => l_msg_data );
2048:
2049: IF hghst_ctr_cust_id IS NOT NULL AND l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2050:
2051: UPDATE pa_project_customers SET customer_bill_split = 100
2052: WHERE customer_id = hghst_ctr_cust_id AND project_id = p_project_id;
2053:
2098: WHERE project_id = p_project_id;
2099:
2100: END IF;
2101:
2102: x_return_status := FND_API.G_RET_STS_SUCCESS;
2103:
2104: IF (p_commit = FND_API.G_TRUE) THEN
2105: COMMIT;
2106: END IF;
2100: END IF;
2101:
2102: x_return_status := FND_API.G_RET_STS_SUCCESS;
2103:
2104: IF (p_commit = FND_API.G_TRUE) THEN
2105: COMMIT;
2106: END IF;
2107:
2108: IF (p_debug_mode = 'Y') THEN
2108: IF (p_debug_mode = 'Y') THEN
2109: pa_debug.debug('PA_PROJ_TEMPLATE_SETUP_PVT.Update_Project_Template END');
2110: END IF;
2111: EXCEPTION
2112: when FND_API.G_EXC_ERROR then
2113: if p_commit = FND_API.G_TRUE then
2114: rollback to Update_Project_Template;
2115: end if;
2116: x_return_status := FND_API.G_RET_STS_ERROR;
2109: pa_debug.debug('PA_PROJ_TEMPLATE_SETUP_PVT.Update_Project_Template END');
2110: END IF;
2111: EXCEPTION
2112: when FND_API.G_EXC_ERROR then
2113: if p_commit = FND_API.G_TRUE then
2114: rollback to Update_Project_Template;
2115: end if;
2116: x_return_status := FND_API.G_RET_STS_ERROR;
2117: when FND_API.G_EXC_UNEXPECTED_ERROR then
2112: when FND_API.G_EXC_ERROR then
2113: if p_commit = FND_API.G_TRUE then
2114: rollback to Update_Project_Template;
2115: end if;
2116: x_return_status := FND_API.G_RET_STS_ERROR;
2117: when FND_API.G_EXC_UNEXPECTED_ERROR then
2118: if p_commit = FND_API.G_TRUE then
2119: rollback to Update_Project_Template;
2120: end if;
2113: if p_commit = FND_API.G_TRUE then
2114: rollback to Update_Project_Template;
2115: end if;
2116: x_return_status := FND_API.G_RET_STS_ERROR;
2117: when FND_API.G_EXC_UNEXPECTED_ERROR then
2118: if p_commit = FND_API.G_TRUE then
2119: rollback to Update_Project_Template;
2120: end if;
2121: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2114: rollback to Update_Project_Template;
2115: end if;
2116: x_return_status := FND_API.G_RET_STS_ERROR;
2117: when FND_API.G_EXC_UNEXPECTED_ERROR then
2118: if p_commit = FND_API.G_TRUE then
2119: rollback to Update_Project_Template;
2120: end if;
2121: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2122: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PVT',
2117: when FND_API.G_EXC_UNEXPECTED_ERROR then
2118: if p_commit = FND_API.G_TRUE then
2119: rollback to Update_Project_Template;
2120: end if;
2121: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2122: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PVT',
2123: p_procedure_name => 'Update_Project_Template',
2124: p_error_text => SUBSTRB(SQLERRM,1,240));
2125: when OTHERS then
2122: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PVT',
2123: p_procedure_name => 'Update_Project_Template',
2124: p_error_text => SUBSTRB(SQLERRM,1,240));
2125: when OTHERS then
2126: if p_commit = FND_API.G_TRUE then
2127: rollback to Update_Project_Template;
2128: end if;
2129: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2130: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PVT',
2125: when OTHERS then
2126: if p_commit = FND_API.G_TRUE then
2127: rollback to Update_Project_Template;
2128: end if;
2129: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2130: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PVT',
2131: p_procedure_name => 'Update_Project_Template',
2132: p_error_text => SUBSTRB(SQLERRM,1,240));
2133: raise;
2144: --
2145:
2146: PROCEDURE Delete_Project_Template(
2147: p_api_version IN NUMBER :=1.0,
2148: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
2149: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
2150: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
2151: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
2152: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
2145:
2146: PROCEDURE Delete_Project_Template(
2147: p_api_version IN NUMBER :=1.0,
2148: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
2149: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
2150: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
2151: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
2152: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
2153: p_debug_mode IN VARCHAR2 :='N',
2146: PROCEDURE Delete_Project_Template(
2147: p_api_version IN NUMBER :=1.0,
2148: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
2149: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
2150: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
2151: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
2152: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
2153: p_debug_mode IN VARCHAR2 :='N',
2154: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
2147: p_api_version IN NUMBER :=1.0,
2148: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
2149: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
2150: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
2151: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
2152: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
2153: p_debug_mode IN VARCHAR2 :='N',
2154: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
2155: p_project_id IN NUMBER,
2179: IF (p_debug_mode = 'Y') THEN
2180: pa_debug.debug('PA_PROJ_TEMPLATE_SETUP_PVT.Delete_Project_Template begin');
2181: END IF;
2182:
2183: IF (p_commit = FND_API.G_TRUE) THEN
2184: savepoint Delete_Project_Template;
2185: END IF;
2186:
2187: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2183: IF (p_commit = FND_API.G_TRUE) THEN
2184: savepoint Delete_Project_Template;
2185: END IF;
2186:
2187: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2188: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2189: END IF;
2190:
2191: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2184: savepoint Delete_Project_Template;
2185: END IF;
2186:
2187: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2188: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2189: END IF;
2190:
2191: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2192: FND_MSG_PUB.initialize;
2187: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2188: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2189: END IF;
2190:
2191: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2192: FND_MSG_PUB.initialize;
2193: END IF;
2194:
2195: --Bug 2947492: The following api call is modified to pass parameters by notation.
2204: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2205: p_msg_name => l_err_stage);
2206: x_msg_data := l_err_stage;
2207: x_return_status := 'E';
2208: RAISE FND_API.G_EXC_ERROR;
2209: END IF;
2210:
2211: x_return_status := FND_API.G_RET_STS_SUCCESS;
2212:
2207: x_return_status := 'E';
2208: RAISE FND_API.G_EXC_ERROR;
2209: END IF;
2210:
2211: x_return_status := FND_API.G_RET_STS_SUCCESS;
2212:
2213: IF (p_commit = FND_API.G_TRUE) THEN
2214: COMMIT;
2215: END IF;
2209: END IF;
2210:
2211: x_return_status := FND_API.G_RET_STS_SUCCESS;
2212:
2213: IF (p_commit = FND_API.G_TRUE) THEN
2214: COMMIT;
2215: END IF;
2216:
2217: IF (p_debug_mode = 'Y') THEN
2217: IF (p_debug_mode = 'Y') THEN
2218: pa_debug.debug('PA_PROJ_TEMPLATE_SETUP_PVT.Delete_Project_Template END');
2219: END IF;
2220: EXCEPTION
2221: when FND_API.G_EXC_ERROR then
2222: if p_commit = FND_API.G_TRUE then
2223: rollback to Delete_Project_Template;
2224: end if;
2225: x_return_status := FND_API.G_RET_STS_ERROR;
2218: pa_debug.debug('PA_PROJ_TEMPLATE_SETUP_PVT.Delete_Project_Template END');
2219: END IF;
2220: EXCEPTION
2221: when FND_API.G_EXC_ERROR then
2222: if p_commit = FND_API.G_TRUE then
2223: rollback to Delete_Project_Template;
2224: end if;
2225: x_return_status := FND_API.G_RET_STS_ERROR;
2226: when FND_API.G_EXC_UNEXPECTED_ERROR then
2221: when FND_API.G_EXC_ERROR then
2222: if p_commit = FND_API.G_TRUE then
2223: rollback to Delete_Project_Template;
2224: end if;
2225: x_return_status := FND_API.G_RET_STS_ERROR;
2226: when FND_API.G_EXC_UNEXPECTED_ERROR then
2227: if p_commit = FND_API.G_TRUE then
2228: rollback to Delete_Project_Template;
2229: end if;
2222: if p_commit = FND_API.G_TRUE then
2223: rollback to Delete_Project_Template;
2224: end if;
2225: x_return_status := FND_API.G_RET_STS_ERROR;
2226: when FND_API.G_EXC_UNEXPECTED_ERROR then
2227: if p_commit = FND_API.G_TRUE then
2228: rollback to Delete_Project_Template;
2229: end if;
2230: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2223: rollback to Delete_Project_Template;
2224: end if;
2225: x_return_status := FND_API.G_RET_STS_ERROR;
2226: when FND_API.G_EXC_UNEXPECTED_ERROR then
2227: if p_commit = FND_API.G_TRUE then
2228: rollback to Delete_Project_Template;
2229: end if;
2230: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2231: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PVT',
2226: when FND_API.G_EXC_UNEXPECTED_ERROR then
2227: if p_commit = FND_API.G_TRUE then
2228: rollback to Delete_Project_Template;
2229: end if;
2230: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2231: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PVT',
2232: p_procedure_name => 'Delete_Project_Template',
2233: p_error_text => SUBSTRB(SQLERRM,1,240));
2234: when OTHERS then
2231: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PVT',
2232: p_procedure_name => 'Delete_Project_Template',
2233: p_error_text => SUBSTRB(SQLERRM,1,240));
2234: when OTHERS then
2235: if p_commit = FND_API.G_TRUE then
2236: rollback to Delete_Project_Template;
2237: end if;
2238: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2239: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PVT',
2234: when OTHERS then
2235: if p_commit = FND_API.G_TRUE then
2236: rollback to Delete_Project_Template;
2237: end if;
2238: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2239: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PVT',
2240: p_procedure_name => 'Delete_Project_Template',
2241: p_error_text => SUBSTRB(SQLERRM,1,240));
2242: raise;
2253: --
2254:
2255: PROCEDURE Add_Project_Options(
2256: p_api_version IN NUMBER :=1.0,
2257: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
2258: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
2259: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
2260: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
2261: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
2254:
2255: PROCEDURE Add_Project_Options(
2256: p_api_version IN NUMBER :=1.0,
2257: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
2258: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
2259: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
2260: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
2261: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
2262: p_debug_mode IN VARCHAR2 :='N',
2255: PROCEDURE Add_Project_Options(
2256: p_api_version IN NUMBER :=1.0,
2257: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
2258: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
2259: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
2260: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
2261: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
2262: p_debug_mode IN VARCHAR2 :='N',
2263: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
2256: p_api_version IN NUMBER :=1.0,
2257: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
2258: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
2259: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
2260: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
2261: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
2262: p_debug_mode IN VARCHAR2 :='N',
2263: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
2264: p_project_id IN NUMBER,
2296: IF (p_debug_mode = 'Y') THEN
2297: pa_debug.debug('PA_PROJ_TEMPLATE_SETUP_PVT.Add_Project_Options begin');
2298: END IF;
2299:
2300: IF (p_commit = FND_API.G_TRUE) THEN
2301: savepoint Add_Project_Options;
2302: END IF;
2303:
2304: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2300: IF (p_commit = FND_API.G_TRUE) THEN
2301: savepoint Add_Project_Options;
2302: END IF;
2303:
2304: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2305: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2306: END IF;
2307:
2308: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2301: savepoint Add_Project_Options;
2302: END IF;
2303:
2304: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2305: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2306: END IF;
2307:
2308: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2309: FND_MSG_PUB.initialize;
2304: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2305: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2306: END IF;
2307:
2308: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2309: FND_MSG_PUB.initialize;
2310: END IF;
2311:
2312: OPEN cur_chk_options;
2340: THEN
2341: enable_disbale_proj_opt( p_project_id, p_option_code, p_action );
2342: END IF;
2343:
2344: x_return_status := FND_API.G_RET_STS_SUCCESS;
2345:
2346: IF (p_commit = FND_API.G_TRUE) THEN
2347: COMMIT;
2348: END IF;
2342: END IF;
2343:
2344: x_return_status := FND_API.G_RET_STS_SUCCESS;
2345:
2346: IF (p_commit = FND_API.G_TRUE) THEN
2347: COMMIT;
2348: END IF;
2349:
2350: IF (p_debug_mode = 'Y') THEN
2350: IF (p_debug_mode = 'Y') THEN
2351: pa_debug.debug('PA_PROJ_TEMPLATE_SETUP_PVT.Add_Project_Options END');
2352: END IF;
2353: EXCEPTION
2354: when FND_API.G_EXC_ERROR then
2355: if p_commit = FND_API.G_TRUE then
2356: rollback to Add_Project_Options;
2357: end if;
2358: x_return_status := FND_API.G_RET_STS_ERROR;
2351: pa_debug.debug('PA_PROJ_TEMPLATE_SETUP_PVT.Add_Project_Options END');
2352: END IF;
2353: EXCEPTION
2354: when FND_API.G_EXC_ERROR then
2355: if p_commit = FND_API.G_TRUE then
2356: rollback to Add_Project_Options;
2357: end if;
2358: x_return_status := FND_API.G_RET_STS_ERROR;
2359: when FND_API.G_EXC_UNEXPECTED_ERROR then
2354: when FND_API.G_EXC_ERROR then
2355: if p_commit = FND_API.G_TRUE then
2356: rollback to Add_Project_Options;
2357: end if;
2358: x_return_status := FND_API.G_RET_STS_ERROR;
2359: when FND_API.G_EXC_UNEXPECTED_ERROR then
2360: if p_commit = FND_API.G_TRUE then
2361: rollback to Add_Project_Options;
2362: end if;
2355: if p_commit = FND_API.G_TRUE then
2356: rollback to Add_Project_Options;
2357: end if;
2358: x_return_status := FND_API.G_RET_STS_ERROR;
2359: when FND_API.G_EXC_UNEXPECTED_ERROR then
2360: if p_commit = FND_API.G_TRUE then
2361: rollback to Add_Project_Options;
2362: end if;
2363: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2356: rollback to Add_Project_Options;
2357: end if;
2358: x_return_status := FND_API.G_RET_STS_ERROR;
2359: when FND_API.G_EXC_UNEXPECTED_ERROR then
2360: if p_commit = FND_API.G_TRUE then
2361: rollback to Add_Project_Options;
2362: end if;
2363: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2364: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PVT',
2359: when FND_API.G_EXC_UNEXPECTED_ERROR then
2360: if p_commit = FND_API.G_TRUE then
2361: rollback to Add_Project_Options;
2362: end if;
2363: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2364: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PVT',
2365: p_procedure_name => 'Add_Project_Options',
2366: p_error_text => SUBSTRB(SQLERRM,1,240));
2367: when OTHERS then
2364: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PVT',
2365: p_procedure_name => 'Add_Project_Options',
2366: p_error_text => SUBSTRB(SQLERRM,1,240));
2367: when OTHERS then
2368: if p_commit = FND_API.G_TRUE then
2369: rollback to Add_Project_Options;
2370: end if;
2371: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2372: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PVT',
2367: when OTHERS then
2368: if p_commit = FND_API.G_TRUE then
2369: rollback to Add_Project_Options;
2370: end if;
2371: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2372: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PVT',
2373: p_procedure_name => 'Add_Project_Options',
2374: p_error_text => SUBSTRB(SQLERRM,1,240));
2375: raise;
2387: --
2388:
2389: PROCEDURE Delete_Project_Options(
2390: p_api_version IN NUMBER :=1.0,
2391: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
2392: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
2393: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
2394: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
2395: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
2388:
2389: PROCEDURE Delete_Project_Options(
2390: p_api_version IN NUMBER :=1.0,
2391: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
2392: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
2393: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
2394: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
2395: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
2396: p_debug_mode IN VARCHAR2 :='N',
2389: PROCEDURE Delete_Project_Options(
2390: p_api_version IN NUMBER :=1.0,
2391: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
2392: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
2393: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
2394: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
2395: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
2396: p_debug_mode IN VARCHAR2 :='N',
2397: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
2390: p_api_version IN NUMBER :=1.0,
2391: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
2392: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
2393: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
2394: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
2395: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
2396: p_debug_mode IN VARCHAR2 :='N',
2397: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
2398: p_project_id IN NUMBER,
2440: IF (p_debug_mode = 'Y') THEN
2441: pa_debug.debug('PA_PROJ_TEMPLATE_SETUP_PVT.Delete_Project_Options begin');
2442: END IF;
2443:
2444: IF (p_commit = FND_API.G_TRUE) THEN
2445: savepoint Delete_Project_Options;
2446: END IF;
2447:
2448: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2444: IF (p_commit = FND_API.G_TRUE) THEN
2445: savepoint Delete_Project_Options;
2446: END IF;
2447:
2448: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2449: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2450: END IF;
2451:
2452: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2445: savepoint Delete_Project_Options;
2446: END IF;
2447:
2448: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2449: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2450: END IF;
2451:
2452: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2453: FND_MSG_PUB.initialize;
2448: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2449: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2450: END IF;
2451:
2452: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2453: FND_MSG_PUB.initialize;
2454: END IF;
2455:
2456: --bug
2485: p_msg_name => 'PA_ALL_NO_UPDATE_RECORD');*/
2486: x_msg_data := 'PA_PROJ_CANT_DISBL_OPTN';
2487: -- End of changes for Bug 5643345
2488: x_return_status := 'E';
2489: RAISE FND_API.G_EXC_ERROR;
2490: END IF;
2491:
2492: DELETE FROM pa_project_options WHERE project_id = p_project_id AND option_code = p_option_code;
2493:
2492: DELETE FROM pa_project_options WHERE project_id = p_project_id AND option_code = p_option_code;
2493:
2494: enable_disbale_proj_opt( p_project_id, p_option_code, 'DISABLE' );
2495:
2496: x_return_status := FND_API.G_RET_STS_SUCCESS;
2497:
2498: IF (p_commit = FND_API.G_TRUE) THEN
2499: COMMIT;
2500: END IF;
2494: enable_disbale_proj_opt( p_project_id, p_option_code, 'DISABLE' );
2495:
2496: x_return_status := FND_API.G_RET_STS_SUCCESS;
2497:
2498: IF (p_commit = FND_API.G_TRUE) THEN
2499: COMMIT;
2500: END IF;
2501:
2502: IF (p_debug_mode = 'Y') THEN
2502: IF (p_debug_mode = 'Y') THEN
2503: pa_debug.debug('PA_PROJ_TEMPLATE_SETUP_PVT.Delete_Project_Options END');
2504: END IF;
2505: EXCEPTION
2506: when FND_API.G_EXC_ERROR then
2507: if p_commit = FND_API.G_TRUE then
2508: rollback to Delete_Project_Options;
2509: end if;
2510: x_return_status := FND_API.G_RET_STS_ERROR;
2503: pa_debug.debug('PA_PROJ_TEMPLATE_SETUP_PVT.Delete_Project_Options END');
2504: END IF;
2505: EXCEPTION
2506: when FND_API.G_EXC_ERROR then
2507: if p_commit = FND_API.G_TRUE then
2508: rollback to Delete_Project_Options;
2509: end if;
2510: x_return_status := FND_API.G_RET_STS_ERROR;
2511: when FND_API.G_EXC_UNEXPECTED_ERROR then
2506: when FND_API.G_EXC_ERROR then
2507: if p_commit = FND_API.G_TRUE then
2508: rollback to Delete_Project_Options;
2509: end if;
2510: x_return_status := FND_API.G_RET_STS_ERROR;
2511: when FND_API.G_EXC_UNEXPECTED_ERROR then
2512: if p_commit = FND_API.G_TRUE then
2513: rollback to Delete_Project_Options;
2514: end if;
2507: if p_commit = FND_API.G_TRUE then
2508: rollback to Delete_Project_Options;
2509: end if;
2510: x_return_status := FND_API.G_RET_STS_ERROR;
2511: when FND_API.G_EXC_UNEXPECTED_ERROR then
2512: if p_commit = FND_API.G_TRUE then
2513: rollback to Delete_Project_Options;
2514: end if;
2515: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2508: rollback to Delete_Project_Options;
2509: end if;
2510: x_return_status := FND_API.G_RET_STS_ERROR;
2511: when FND_API.G_EXC_UNEXPECTED_ERROR then
2512: if p_commit = FND_API.G_TRUE then
2513: rollback to Delete_Project_Options;
2514: end if;
2515: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2516: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PVT',
2511: when FND_API.G_EXC_UNEXPECTED_ERROR then
2512: if p_commit = FND_API.G_TRUE then
2513: rollback to Delete_Project_Options;
2514: end if;
2515: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2516: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PVT',
2517: p_procedure_name => 'Delete_Project_Options',
2518: p_error_text => SUBSTRB(SQLERRM,1,240));
2519: when OTHERS then
2516: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PVT',
2517: p_procedure_name => 'Delete_Project_Options',
2518: p_error_text => SUBSTRB(SQLERRM,1,240));
2519: when OTHERS then
2520: if p_commit = FND_API.G_TRUE then
2521: rollback to Delete_Project_Options;
2522: end if;
2523: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2524: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PVT',
2519: when OTHERS then
2520: if p_commit = FND_API.G_TRUE then
2521: rollback to Delete_Project_Options;
2522: end if;
2523: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2524: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PVT',
2525: p_procedure_name => 'Delete_Project_Options',
2526: p_error_text => SUBSTRB(SQLERRM,1,240));
2527: raise;
2542: -- p_required_flag IN VARCHAR2 := 'N',--
2543:
2544: PROCEDURE Add_Quick_Entry_Field(
2545: p_api_version IN NUMBER :=1.0,
2546: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
2547: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
2548: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
2549: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
2550: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
2543:
2544: PROCEDURE Add_Quick_Entry_Field(
2545: p_api_version IN NUMBER :=1.0,
2546: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
2547: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
2548: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
2549: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
2550: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
2551: p_debug_mode IN VARCHAR2 :='N',
2544: PROCEDURE Add_Quick_Entry_Field(
2545: p_api_version IN NUMBER :=1.0,
2546: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
2547: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
2548: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
2549: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
2550: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
2551: p_debug_mode IN VARCHAR2 :='N',
2552: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
2545: p_api_version IN NUMBER :=1.0,
2546: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
2547: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
2548: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
2549: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
2550: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
2551: p_debug_mode IN VARCHAR2 :='N',
2552: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
2553: p_project_id IN NUMBER ,
2605: IF (p_debug_mode = 'Y') THEN
2606: pa_debug.debug('PA_PROJ_TEMPLATE_SETUP_PVT.Add_Quick_Entry_Field begin');
2607: END IF;
2608:
2609: IF (p_commit = FND_API.G_TRUE) THEN
2610: savepoint Add_Quick_Entry_Field;
2611: END IF;
2612:
2613: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2609: IF (p_commit = FND_API.G_TRUE) THEN
2610: savepoint Add_Quick_Entry_Field;
2611: END IF;
2612:
2613: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2614: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2615: END IF;
2616:
2617: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2610: savepoint Add_Quick_Entry_Field;
2611: END IF;
2612:
2613: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2614: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2615: END IF;
2616:
2617: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2618: FND_MSG_PUB.initialize;
2613: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2614: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2615: END IF;
2616:
2617: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2618: FND_MSG_PUB.initialize;
2619: END IF;
2620:
2621: --check sort order unique
2627: p_msg_name => 'PA_SETUP_SORT_ORDER_NOT_UNIQ' );
2628: x_msg_data := 'PA_SETUP_SORT_ORDER_NOT_UNIQ';
2629: x_return_status := 'E';
2630: CLOSE cur_chk_sort_order;
2631: RAISE FND_API.G_EXC_ERROR;
2632: ELSE
2633: CLOSE cur_chk_sort_order;
2634: END IF;
2635:
2646: p_msg_name => 'PA_SETUP_DUP_QUICK_ENTRY' );
2647: x_msg_data := 'PA_SETUP_DUP_QUICK_ENTRY';
2648: x_return_status := 'E';
2649: CLOSE cur_dup_quick_entry;
2650: RAISE FND_API.G_EXC_ERROR;
2651: ELSE
2652: CLOSE cur_dup_quick_entry;
2653: END IF;
2654: /* Bug 4139681 - Replaced the ELSE with the new IF condition so that checks for specifications are done for
2671: x_msg_data := 'PA_SETUP_INV_FIELD_NAME';
2672: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2673: p_msg_name => 'PA_SETUP_INV_FIELD_NAME');
2674: x_return_status := 'E';
2675: RAISE FND_API.G_EXC_ERROR;
2676: WHEN OTHERS THEN
2677: null;
2678: END;
2679:
2682: p_token1 => 'FIELD_NAME',
2683: p_value1 => l_field_name_meaning );
2684: x_msg_data := 'PA_SETUP_SPEC_REQ';
2685: x_return_status := 'E';
2686: RAISE FND_API.G_EXC_ERROR;
2687: ELSE
2688: IF p_field_name <> 'CLASSIFICATION'
2689: THEN
2690: BEGIN
2700: p_msg_name => 'PA_SETUP_INV_SPEC',
2701: p_token1 => 'SPECIFICATION',
2702: p_value1 => p_limiting_value );
2703: x_return_status := 'E';
2704: RAISE FND_API.G_EXC_ERROR;
2705: WHEN OTHERS THEN
2706: null;
2707: END;
2708: ELSE
2750: p_msg_name => 'PA_SETUP_INV_SPEC',
2751: p_token1 => 'SPECIFICATION',
2752: p_value1 => p_limiting_value );
2753: x_return_status := 'E';
2754: RAISE FND_API.G_EXC_ERROR;
2755: WHEN OTHERS THEN
2756: null;
2757: END;
2758: END IF; --<< field_name <> 'CLASSIFICATION' >>
2792: );
2793: END IF;
2794: CLOSE cur_overrides;
2795:
2796: x_return_status := FND_API.G_RET_STS_SUCCESS;
2797:
2798: IF (p_commit = FND_API.G_TRUE) THEN
2799: COMMIT;
2800: END IF;
2794: CLOSE cur_overrides;
2795:
2796: x_return_status := FND_API.G_RET_STS_SUCCESS;
2797:
2798: IF (p_commit = FND_API.G_TRUE) THEN
2799: COMMIT;
2800: END IF;
2801:
2802: IF (p_debug_mode = 'Y') THEN
2802: IF (p_debug_mode = 'Y') THEN
2803: pa_debug.debug('PA_PROJ_TEMPLATE_SETUP_PVT.Add_Quick_Entry_Field END');
2804: END IF;
2805: EXCEPTION
2806: when FND_API.G_EXC_ERROR then
2807: if p_commit = FND_API.G_TRUE then
2808: rollback to Add_Quick_Entry_Field;
2809: end if;
2810: x_return_status := FND_API.G_RET_STS_ERROR;
2803: pa_debug.debug('PA_PROJ_TEMPLATE_SETUP_PVT.Add_Quick_Entry_Field END');
2804: END IF;
2805: EXCEPTION
2806: when FND_API.G_EXC_ERROR then
2807: if p_commit = FND_API.G_TRUE then
2808: rollback to Add_Quick_Entry_Field;
2809: end if;
2810: x_return_status := FND_API.G_RET_STS_ERROR;
2811: when FND_API.G_EXC_UNEXPECTED_ERROR then
2806: when FND_API.G_EXC_ERROR then
2807: if p_commit = FND_API.G_TRUE then
2808: rollback to Add_Quick_Entry_Field;
2809: end if;
2810: x_return_status := FND_API.G_RET_STS_ERROR;
2811: when FND_API.G_EXC_UNEXPECTED_ERROR then
2812: if p_commit = FND_API.G_TRUE then
2813: rollback to Add_Quick_Entry_Field;
2814: end if;
2807: if p_commit = FND_API.G_TRUE then
2808: rollback to Add_Quick_Entry_Field;
2809: end if;
2810: x_return_status := FND_API.G_RET_STS_ERROR;
2811: when FND_API.G_EXC_UNEXPECTED_ERROR then
2812: if p_commit = FND_API.G_TRUE then
2813: rollback to Add_Quick_Entry_Field;
2814: end if;
2815: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2808: rollback to Add_Quick_Entry_Field;
2809: end if;
2810: x_return_status := FND_API.G_RET_STS_ERROR;
2811: when FND_API.G_EXC_UNEXPECTED_ERROR then
2812: if p_commit = FND_API.G_TRUE then
2813: rollback to Add_Quick_Entry_Field;
2814: end if;
2815: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2816: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PVT',
2811: when FND_API.G_EXC_UNEXPECTED_ERROR then
2812: if p_commit = FND_API.G_TRUE then
2813: rollback to Add_Quick_Entry_Field;
2814: end if;
2815: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2816: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PVT',
2817: p_procedure_name => 'Add_Quick_Entry_Field',
2818: p_error_text => SUBSTRB(SQLERRM,1,240));
2819: when OTHERS then
2816: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PVT',
2817: p_procedure_name => 'Add_Quick_Entry_Field',
2818: p_error_text => SUBSTRB(SQLERRM,1,240));
2819: when OTHERS then
2820: if p_commit = FND_API.G_TRUE then
2821: rollback to Add_Quick_Entry_Field;
2822: end if;
2823: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2824: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PVT',
2819: when OTHERS then
2820: if p_commit = FND_API.G_TRUE then
2821: rollback to Add_Quick_Entry_Field;
2822: end if;
2823: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2824: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PVT',
2825: p_procedure_name => 'Add_Quick_Entry_Field',
2826: p_error_text => SUBSTRB(SQLERRM,1,240));
2827: raise;
2841: -- p_required_flag IN VARCHAR2 := 'N',--
2842:
2843: PROCEDURE Update_Quick_Entry_Field(
2844: p_api_version IN NUMBER :=1.0,
2845: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
2846: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
2847: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
2848: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
2849: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
2842:
2843: PROCEDURE Update_Quick_Entry_Field(
2844: p_api_version IN NUMBER :=1.0,
2845: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
2846: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
2847: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
2848: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
2849: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
2850: p_debug_mode IN VARCHAR2 :='N',
2843: PROCEDURE Update_Quick_Entry_Field(
2844: p_api_version IN NUMBER :=1.0,
2845: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
2846: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
2847: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
2848: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
2849: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
2850: p_debug_mode IN VARCHAR2 :='N',
2851: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
2844: p_api_version IN NUMBER :=1.0,
2845: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
2846: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
2847: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
2848: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
2849: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
2850: p_debug_mode IN VARCHAR2 :='N',
2851: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
2852: p_project_id IN NUMBER ,
2898: IF (p_debug_mode = 'Y') THEN
2899: pa_debug.debug('PA_PROJ_TEMPLATE_SETUP_PVT.Update_Quick_Entry_Field begin');
2900: END IF;
2901:
2902: IF (p_commit = FND_API.G_TRUE) THEN
2903: savepoint Update_Quick_Entry_Field;
2904: END IF;
2905:
2906: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2902: IF (p_commit = FND_API.G_TRUE) THEN
2903: savepoint Update_Quick_Entry_Field;
2904: END IF;
2905:
2906: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2907: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2908: END IF;
2909:
2910: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2903: savepoint Update_Quick_Entry_Field;
2904: END IF;
2905:
2906: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2907: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2908: END IF;
2909:
2910: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2911: FND_MSG_PUB.initialize;
2906: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2907: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2908: END IF;
2909:
2910: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2911: FND_MSG_PUB.initialize;
2912: END IF;
2913:
2914: --cant update Project Number or Proejct Name
2918: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2919: p_msg_name => 'PA_SETUP_CANT_MODFY_OVER' );
2920: x_msg_data := 'PA_SETUP_CANT_MODFY_OVER';
2921: x_return_status := 'E';
2922: RAISE FND_API.G_EXC_ERROR;
2923: END IF;
2924:
2925: --check sort order unique
2926: OPEN cur_chk_sort_order;
2931: p_msg_name => 'PA_SETUP_SORT_ORDER_NOT_UNIQ' );
2932: x_msg_data := 'PA_SETUP_SORT_ORDER_NOT_UNIQ';
2933: x_return_status := 'E';
2934: CLOSE cur_chk_sort_order;
2935: RAISE FND_API.G_EXC_ERROR;
2936: ELSE
2937: CLOSE cur_chk_sort_order;
2938: END IF;
2939:
2948: p_msg_name => 'PA_SETUP_DUP_QUICK_ENTRY' );
2949: x_msg_data := 'PA_SETUP_DUP_QUICK_ENTRY';
2950: x_return_status := 'E';
2951: CLOSE cur_dup_quick_entry;
2952: RAISE FND_API.G_EXC_ERROR;
2953: ELSE
2954: CLOSE cur_dup_quick_entry;
2955: END IF;
2956: ELSE
2967: x_msg_data := 'PA_SETUP_INV_FIELD_NAME';
2968: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2969: p_msg_name => 'PA_SETUP_INV_FIELD_NAME');
2970: x_return_status := 'E';
2971: RAISE FND_API.G_EXC_ERROR;
2972: WHEN OTHERS THEN
2973: null;
2974: END;
2975:
2978: p_token1 => 'FIELD_NAME',
2979: p_value1 => l_field_name_meaning );
2980: x_msg_data := 'PA_SETUP_SPEC_REQ';
2981: x_return_status := 'E';
2982: RAISE FND_API.G_EXC_ERROR;
2983: ELSE
2984: IF p_field_name <> 'CLASSIFICATION'
2985: THEN
2986: BEGIN
2996: p_msg_name => 'PA_SETUP_INV_SPEC',
2997: p_token1 => 'SPECIFICATION',
2998: p_value1 => p_limiting_value );
2999: x_return_status := 'E';
3000: RAISE FND_API.G_EXC_ERROR;
3001: WHEN OTHERS THEN
3002: null;
3003: END;
3004: ELSE
3046: p_msg_name => 'PA_SETUP_INV_SPEC',
3047: p_token1 => 'SPECIFICATION',
3048: p_value1 => p_limiting_value );
3049: x_return_status := 'E';
3050: RAISE FND_API.G_EXC_ERROR;
3051: WHEN OTHERS THEN
3052: null;
3053: END;
3054: END IF;
3066: MANDATORY_FLAG = p_required_flag ,
3067: RECORD_VERSION_NUMBER = NVL( RECORD_VERSION_NUMBER, 1 ) + 1
3068: WHERE rowid = p_row_id;
3069:
3070: x_return_status := FND_API.G_RET_STS_SUCCESS;
3071:
3072: IF (p_commit = FND_API.G_TRUE) THEN
3073: COMMIT;
3074: END IF;
3068: WHERE rowid = p_row_id;
3069:
3070: x_return_status := FND_API.G_RET_STS_SUCCESS;
3071:
3072: IF (p_commit = FND_API.G_TRUE) THEN
3073: COMMIT;
3074: END IF;
3075:
3076: IF (p_debug_mode = 'Y') THEN
3076: IF (p_debug_mode = 'Y') THEN
3077: pa_debug.debug('PA_PROJ_TEMPLATE_SETUP_PVT.Update_Quick_Entry_Field END');
3078: END IF;
3079: EXCEPTION
3080: when FND_API.G_EXC_ERROR then
3081: if p_commit = FND_API.G_TRUE then
3082: rollback to Update_Quick_Entry_Field;
3083: end if;
3084: x_return_status := FND_API.G_RET_STS_ERROR;
3077: pa_debug.debug('PA_PROJ_TEMPLATE_SETUP_PVT.Update_Quick_Entry_Field END');
3078: END IF;
3079: EXCEPTION
3080: when FND_API.G_EXC_ERROR then
3081: if p_commit = FND_API.G_TRUE then
3082: rollback to Update_Quick_Entry_Field;
3083: end if;
3084: x_return_status := FND_API.G_RET_STS_ERROR;
3085: when FND_API.G_EXC_UNEXPECTED_ERROR then
3080: when FND_API.G_EXC_ERROR then
3081: if p_commit = FND_API.G_TRUE then
3082: rollback to Update_Quick_Entry_Field;
3083: end if;
3084: x_return_status := FND_API.G_RET_STS_ERROR;
3085: when FND_API.G_EXC_UNEXPECTED_ERROR then
3086: if p_commit = FND_API.G_TRUE then
3087: rollback to Update_Quick_Entry_Field;
3088: end if;
3081: if p_commit = FND_API.G_TRUE then
3082: rollback to Update_Quick_Entry_Field;
3083: end if;
3084: x_return_status := FND_API.G_RET_STS_ERROR;
3085: when FND_API.G_EXC_UNEXPECTED_ERROR then
3086: if p_commit = FND_API.G_TRUE then
3087: rollback to Update_Quick_Entry_Field;
3088: end if;
3089: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3082: rollback to Update_Quick_Entry_Field;
3083: end if;
3084: x_return_status := FND_API.G_RET_STS_ERROR;
3085: when FND_API.G_EXC_UNEXPECTED_ERROR then
3086: if p_commit = FND_API.G_TRUE then
3087: rollback to Update_Quick_Entry_Field;
3088: end if;
3089: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3090: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PVT',
3085: when FND_API.G_EXC_UNEXPECTED_ERROR then
3086: if p_commit = FND_API.G_TRUE then
3087: rollback to Update_Quick_Entry_Field;
3088: end if;
3089: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3090: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PVT',
3091: p_procedure_name => 'Update_Quick_Entry_Field',
3092: p_error_text => SUBSTRB(SQLERRM,1,240));
3093: when OTHERS then
3090: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PVT',
3091: p_procedure_name => 'Update_Quick_Entry_Field',
3092: p_error_text => SUBSTRB(SQLERRM,1,240));
3093: when OTHERS then
3094: if p_commit = FND_API.G_TRUE then
3095: rollback to Update_Quick_Entry_Field;
3096: end if;
3097: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3098: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PVT',
3093: when OTHERS then
3094: if p_commit = FND_API.G_TRUE then
3095: rollback to Update_Quick_Entry_Field;
3096: end if;
3097: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3098: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PVT',
3099: p_procedure_name => 'Update_Quick_Entry_Field',
3100: p_error_text => SUBSTRB(SQLERRM,1,240));
3101: raise;
3115: -- p_required_flag IN VARCHAR2 := 'N',--
3116:
3117: PROCEDURE Delete_Quick_Entry_Field(
3118: p_api_version IN NUMBER :=1.0,
3119: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
3120: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
3121: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
3122: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
3123: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
3116:
3117: PROCEDURE Delete_Quick_Entry_Field(
3118: p_api_version IN NUMBER :=1.0,
3119: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
3120: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
3121: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
3122: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
3123: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
3124: p_debug_mode IN VARCHAR2 :='N',
3117: PROCEDURE Delete_Quick_Entry_Field(
3118: p_api_version IN NUMBER :=1.0,
3119: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
3120: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
3121: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
3122: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
3123: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
3124: p_debug_mode IN VARCHAR2 :='N',
3125: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
3118: p_api_version IN NUMBER :=1.0,
3119: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
3120: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
3121: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
3122: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
3123: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
3124: p_debug_mode IN VARCHAR2 :='N',
3125: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
3126: p_project_id IN NUMBER ,
3159: IF (p_debug_mode = 'Y') THEN
3160: pa_debug.debug('PA_PROJ_TEMPLATE_SETUP_PVT.Delete_Quick_Entry_Field begin');
3161: END IF;
3162:
3163: IF (p_commit = FND_API.G_TRUE) THEN
3164: savepoint Delete_Quick_Entry_Field;
3165: END IF;
3166:
3167: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
3163: IF (p_commit = FND_API.G_TRUE) THEN
3164: savepoint Delete_Quick_Entry_Field;
3165: END IF;
3166:
3167: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
3168: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3169: END IF;
3170:
3171: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
3164: savepoint Delete_Quick_Entry_Field;
3165: END IF;
3166:
3167: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
3168: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3169: END IF;
3170:
3171: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
3172: FND_MSG_PUB.initialize;
3167: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
3168: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3169: END IF;
3170:
3171: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
3172: FND_MSG_PUB.initialize;
3173: END IF;
3174:
3175: OPEN cur_chk_dflt_qe;
3182: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3183: p_msg_name => 'PA_SETUP_CANT_MODFY_OVER' );
3184: x_msg_data := 'PA_SETUP_CANT_MODFY_OVER';
3185: x_return_status := 'E';
3186: RAISE FND_API.G_EXC_ERROR;
3187: END IF;
3188:
3189: DELETE FROM pa_project_copy_overrides
3190: WHERE rowid = p_row_id;
3188:
3189: DELETE FROM pa_project_copy_overrides
3190: WHERE rowid = p_row_id;
3191:
3192: x_return_status := FND_API.G_RET_STS_SUCCESS;
3193:
3194: IF (p_commit = FND_API.G_TRUE) THEN
3195: COMMIT;
3196: END IF;
3190: WHERE rowid = p_row_id;
3191:
3192: x_return_status := FND_API.G_RET_STS_SUCCESS;
3193:
3194: IF (p_commit = FND_API.G_TRUE) THEN
3195: COMMIT;
3196: END IF;
3197:
3198: IF (p_debug_mode = 'Y') THEN
3198: IF (p_debug_mode = 'Y') THEN
3199: pa_debug.debug('PA_PROJ_TEMPLATE_SETUP_PVT.Delete_Quick_Entry_Field END');
3200: END IF;
3201: EXCEPTION
3202: when FND_API.G_EXC_ERROR then
3203: if p_commit = FND_API.G_TRUE then
3204: rollback to Delete_Quick_Entry_Field;
3205: end if;
3206: x_return_status := FND_API.G_RET_STS_ERROR;
3199: pa_debug.debug('PA_PROJ_TEMPLATE_SETUP_PVT.Delete_Quick_Entry_Field END');
3200: END IF;
3201: EXCEPTION
3202: when FND_API.G_EXC_ERROR then
3203: if p_commit = FND_API.G_TRUE then
3204: rollback to Delete_Quick_Entry_Field;
3205: end if;
3206: x_return_status := FND_API.G_RET_STS_ERROR;
3207: when FND_API.G_EXC_UNEXPECTED_ERROR then
3202: when FND_API.G_EXC_ERROR then
3203: if p_commit = FND_API.G_TRUE then
3204: rollback to Delete_Quick_Entry_Field;
3205: end if;
3206: x_return_status := FND_API.G_RET_STS_ERROR;
3207: when FND_API.G_EXC_UNEXPECTED_ERROR then
3208: if p_commit = FND_API.G_TRUE then
3209: rollback to Delete_Quick_Entry_Field;
3210: end if;
3203: if p_commit = FND_API.G_TRUE then
3204: rollback to Delete_Quick_Entry_Field;
3205: end if;
3206: x_return_status := FND_API.G_RET_STS_ERROR;
3207: when FND_API.G_EXC_UNEXPECTED_ERROR then
3208: if p_commit = FND_API.G_TRUE then
3209: rollback to Delete_Quick_Entry_Field;
3210: end if;
3211: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3204: rollback to Delete_Quick_Entry_Field;
3205: end if;
3206: x_return_status := FND_API.G_RET_STS_ERROR;
3207: when FND_API.G_EXC_UNEXPECTED_ERROR then
3208: if p_commit = FND_API.G_TRUE then
3209: rollback to Delete_Quick_Entry_Field;
3210: end if;
3211: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3212: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PVT',
3207: when FND_API.G_EXC_UNEXPECTED_ERROR then
3208: if p_commit = FND_API.G_TRUE then
3209: rollback to Delete_Quick_Entry_Field;
3210: end if;
3211: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3212: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PVT',
3213: p_procedure_name => 'Delete_Quick_Entry_Field',
3214: p_error_text => SUBSTRB(SQLERRM,1,240));
3215: when OTHERS then
3212: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PVT',
3213: p_procedure_name => 'Delete_Quick_Entry_Field',
3214: p_error_text => SUBSTRB(SQLERRM,1,240));
3215: when OTHERS then
3216: if p_commit = FND_API.G_TRUE then
3217: rollback to Delete_Quick_Entry_Field;
3218: end if;
3219: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3220: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PVT',
3215: when OTHERS then
3216: if p_commit = FND_API.G_TRUE then
3217: rollback to Delete_Quick_Entry_Field;
3218: end if;
3219: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3220: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PVT',
3221: p_procedure_name => 'Delete_Quick_Entry_Field',
3222: p_error_text => SUBSTRB(SQLERRM,1,240));
3223: raise;