64: BEGIN
65:
66: v_resource_id := NULL ;
67: v_instance_id := NULL ;
68: l_return_status := FND_API.G_RET_STS_SUCCESS;
69: g_return_status := FND_API.G_RET_STS_SUCCESS;
70:
71: SAVEPOINT create_resource_dtl;
72:
65:
66: v_resource_id := NULL ;
67: v_instance_id := NULL ;
68: l_return_status := FND_API.G_RET_STS_SUCCESS;
69: g_return_status := FND_API.G_RET_STS_SUCCESS;
70:
71: SAVEPOINT create_resource_dtl;
72:
73: fnd_file.put_line(fnd_file.log,'CreateResourceDtlPub');
72:
73: fnd_file.put_line(fnd_file.log,'CreateResourceDtlPub');
74:
75: /* Set the return status to success initially */
76: x_return_status := FND_API.G_RET_STS_SUCCESS;
77: l_resources_rec := p_resources;
78: l_rsrc_instances := p_rsrc_instances;
79:
80: /* Initialize message list and count if needed */
82: fnd_msg_pub.initialize;
83: END IF;
84:
85: /* Make sure we are call compatible */
86: IF NOT FND_API.compatible_api_call ( GMP_RESOURCE_DTL_PUB.m_api_version
87: ,p_api_version
88: ,'INSERT_RESOURCE_DTL'
89: ,GMP_RESOURCE_DTL_PUB.m_pkg_name) THEN
90: x_return_status := FND_API.G_RET_STS_ERROR;
86: IF NOT FND_API.compatible_api_call ( GMP_RESOURCE_DTL_PUB.m_api_version
87: ,p_api_version
88: ,'INSERT_RESOURCE_DTL'
89: ,GMP_RESOURCE_DTL_PUB.m_pkg_name) THEN
90: x_return_status := FND_API.G_RET_STS_ERROR;
91: RAISE invalid_version;
92: END IF;
93:
94: /* B4724360 Rajesh Patangya INVCONV */
274: END IF; /* p_resources.resource_id IS NOT NULL */
275:
276: fnd_msg_pub.count_and_get (
277: p_count => x_message_count
278: ,p_encoded => FND_API.g_false
279: ,p_data => x_message_list);
280:
281: IF x_message_count = 0 THEN
282: -- x_return_status := 'S' ;
290:
291: ROLLBACK TO SAVEPOINT create_resource_dtl;
292: fnd_msg_pub.count_and_get (
293: p_count => x_message_count
294: ,p_encoded => FND_API.g_false
295: ,p_data => x_message_list);
296: x_return_status := FND_API.G_RET_STS_ERROR;
297:
298: WHEN resource_id_required THEN
292: fnd_msg_pub.count_and_get (
293: p_count => x_message_count
294: ,p_encoded => FND_API.g_false
295: ,p_data => x_message_list);
296: x_return_status := FND_API.G_RET_STS_ERROR;
297:
298: WHEN resource_id_required THEN
299: x_return_status := FND_API.G_RET_STS_ERROR;
300: FND_MESSAGE.SET_NAME('GMA','SY_REQUIRED');
295: ,p_data => x_message_list);
296: x_return_status := FND_API.G_RET_STS_ERROR;
297:
298: WHEN resource_id_required THEN
299: x_return_status := FND_API.G_RET_STS_ERROR;
300: FND_MESSAGE.SET_NAME('GMA','SY_REQUIRED');
301: FND_MSG_PUB.ADD;
302: FND_MSG_PUB.Count_And_Get(p_count=>x_message_count, p_data=>x_message_list);
303:
301: FND_MSG_PUB.ADD;
302: FND_MSG_PUB.Count_And_Get(p_count=>x_message_count, p_data=>x_message_list);
303:
304: WHEN instance_id_required THEN
305: x_return_status := FND_API.G_RET_STS_ERROR;
306: FND_MESSAGE.SET_NAME('GMA','SY_REQUIRED');
307: FND_MSG_PUB.ADD;
308: FND_MSG_PUB.Count_And_Get(p_count=>x_message_count, p_data=>x_message_list);
309:
313: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
314: FND_MSG_PUB.ADD;
315: fnd_msg_pub.count_and_get (
316: p_count => x_message_count
317: ,p_encoded => FND_API.g_false
318: ,p_data => x_message_list);
319: x_return_status := FND_API.g_ret_sts_unexp_error;
320: END insert_resource_dtl;
321:
315: fnd_msg_pub.count_and_get (
316: p_count => x_message_count
317: ,p_encoded => FND_API.g_false
318: ,p_data => x_message_list);
319: x_return_status := FND_API.g_ret_sts_unexp_error;
320: END insert_resource_dtl;
321:
322: /* =============================================================== */
323: /* Procedure: */
640: END IF;
641:
642: EXCEPTION
643: WHEN INVALID_VALUE THEN
644: x_return_status := FND_API.G_RET_STS_ERROR;
645: FND_MESSAGE.SET_NAME('GMP','GMP_INVALID_VALUE');
646: FND_MESSAGE.SET_TOKEN('FIELD',X_field);
647: FND_MESSAGE.SET_TOKEN('VALUE',X_value);
648: FND_MSG_PUB.ADD;
648: FND_MSG_PUB.ADD;
649: FND_MSG_PUB.Count_And_Get(p_count=>x_message_count, p_data=>x_message_list);
650:
651: WHEN INVALID_ORGN_CODE THEN
652: x_return_status := FND_API.G_RET_STS_ERROR;
653: FND_MESSAGE.SET_NAME('GMI','IC_ORGNCODERR');
654: FND_MSG_PUB.ADD;
655: FND_MSG_PUB.Count_And_Get(p_count=>x_message_count, p_data=>x_message_list);
656:
654: FND_MSG_PUB.ADD;
655: FND_MSG_PUB.Count_And_Get(p_count=>x_message_count, p_data=>x_message_list);
656:
657: WHEN BAD_RESOURCE THEN
658: x_return_status := FND_API.G_RET_STS_ERROR;
659: FND_MESSAGE.SET_NAME('GMP','BAD_RESOURCE');
660: FND_MSG_PUB.ADD;
661: FND_MSG_PUB.Count_And_Get(p_count=>x_message_count, p_data=>x_message_list);
662:
660: FND_MSG_PUB.ADD;
661: FND_MSG_PUB.Count_And_Get(p_count=>x_message_count, p_data=>x_message_list);
662:
663: WHEN CR_POSITIVE THEN
664: x_return_status := FND_API.G_RET_STS_ERROR;
665: FND_MESSAGE.SET_NAME('GMP','CR_POSITIVE');
666: fnd_file.put_line(fnd_file.log,'Qty Entered is < 0');
667: FND_MSG_PUB.ADD;
668: FND_MSG_PUB.Count_And_Get(p_count=>x_message_count, p_data=>x_message_list);
667: FND_MSG_PUB.ADD;
668: FND_MSG_PUB.Count_And_Get(p_count=>x_message_count, p_data=>x_message_list);
669:
670: WHEN MIN_MAX_CAPACITY_REQUIRED THEN
671: x_return_status := FND_API.G_RET_STS_ERROR;
672: FND_MESSAGE.SET_NAME('GMA','SY_REQUIRED');
673: FND_MESSAGE.SET_TOKEN('VALUE_REQUIRED',X_msg);
674: FND_MSG_PUB.ADD;
675: FND_MSG_PUB.Count_And_Get(p_count=>x_message_count, p_data=>x_message_list);
674: FND_MSG_PUB.ADD;
675: FND_MSG_PUB.Count_And_Get(p_count=>x_message_count, p_data=>x_message_list);
676:
677: WHEN ASSIGNED_QTY_REQUIRED THEN
678: x_return_status := FND_API.G_RET_STS_ERROR;
679: FND_MESSAGE.SET_NAME('GMA','SY_REQUIRED');
680: FND_MESSAGE.SET_TOKEN('VALUE_REQUIRED',X_msg);
681: FND_MSG_PUB.ADD;
682: FND_MSG_PUB.Count_And_Get(p_count=>x_message_count, p_data=>x_message_list);
681: FND_MSG_PUB.ADD;
682: FND_MSG_PUB.Count_And_Get(p_count=>x_message_count, p_data=>x_message_list);
683:
684: WHEN INVALID_USAGE_UM THEN
685: x_return_status := FND_API.G_RET_STS_ERROR;
686: FND_MESSAGE.SET_NAME('GMA','SY_INVALID_UM_CODE');
687: FND_MSG_PUB.ADD;
688: FND_MSG_PUB.Count_And_Get(p_count=>x_message_count, p_data=>x_message_list);
689:
687: FND_MSG_PUB.ADD;
688: FND_MSG_PUB.Count_And_Get(p_count=>x_message_count, p_data=>x_message_list);
689:
690: WHEN INVALID_CAPACITY_UOM THEN
691: x_return_status := FND_API.G_RET_STS_ERROR;
692: FND_MESSAGE.SET_NAME('GMA','SY_INVALID_UM_CODE');
693: FND_MSG_PUB.ADD;
694: FND_MSG_PUB.Count_And_Get(p_count=>x_message_count, p_data=>x_message_list);
695:
693: FND_MSG_PUB.ADD;
694: FND_MSG_PUB.Count_And_Get(p_count=>x_message_count, p_data=>x_message_list);
695:
696: WHEN INVALID_UOM_TYPE THEN
697: x_return_status := FND_API.G_RET_STS_ERROR;
698: FND_MESSAGE.SET_NAME('GMA','SY_INVALID_UM_CODE');
699: FND_MSG_PUB.ADD;
700: FND_MSG_PUB.Count_And_Get(p_count=>x_message_count, p_data=>x_message_list);
701:
699: FND_MSG_PUB.ADD;
700: FND_MSG_PUB.Count_And_Get(p_count=>x_message_count, p_data=>x_message_list);
701:
702: WHEN CAPACITY_NOT_IN_RANGE THEN
703: x_return_status := FND_API.G_RET_STS_ERROR;
704: FND_MESSAGE.SET_NAME('GMP','CR_CAPACITY_NOT_IN_RANGE');
705: FND_MSG_PUB.ADD;
706: FND_MSG_PUB.Count_And_Get(p_count=>x_message_count, p_data=>x_message_list);
707:
705: FND_MSG_PUB.ADD;
706: FND_MSG_PUB.Count_And_Get(p_count=>x_message_count, p_data=>x_message_list);
707:
708: WHEN QC_MIN_MAX_SPEC THEN
709: x_return_status := FND_API.G_RET_STS_ERROR;
710: FND_MESSAGE.SET_NAME('GMD','QC_MIN_MAX_SPEC');
711: FND_MSG_PUB.ADD;
712: FND_MSG_PUB.Count_And_Get(p_count=>x_message_count, p_data=>x_message_list);
713:
711: FND_MSG_PUB.ADD;
712: FND_MSG_PUB.Count_And_Get(p_count=>x_message_count, p_data=>x_message_list);
713:
714: WHEN RESOURCE_REQUIRED THEN
715: x_return_status := FND_API.G_RET_STS_ERROR;
716: FND_MESSAGE.SET_NAME('GMP','GMP_VALUE_REQUIRED');
717: FND_MESSAGE.SET_TOKEN('VALUE_REQUIRED',X_msg);
718: FND_MSG_PUB.ADD;
719: FND_MSG_PUB.Count_And_Get(p_count=>x_message_count, p_data=>x_message_list);
718: FND_MSG_PUB.ADD;
719: FND_MSG_PUB.Count_And_Get(p_count=>x_message_count, p_data=>x_message_list);
720:
721: WHEN DUPLICATE_RECORD THEN
722: x_return_status := FND_API.G_RET_STS_ERROR;
723: FND_MESSAGE.SET_NAME('GMP', 'PS_DUP_REC');
724: FND_MSG_PUB.ADD;
725: FND_MSG_PUB.Count_And_Get(p_count=>x_message_count, p_data=>x_message_list);
726:
976: RESOURCE_ID_REQUIRED EXCEPTION;
977:
978:
979: BEGIN
980: l_return_status := FND_API.G_RET_STS_SUCCESS;
981: g_return_status := FND_API.G_RET_STS_SUCCESS;
982: X_msg := '';
983:
984: SAVEPOINT update_resource_dtl;
977:
978:
979: BEGIN
980: l_return_status := FND_API.G_RET_STS_SUCCESS;
981: g_return_status := FND_API.G_RET_STS_SUCCESS;
982: X_msg := '';
983:
984: SAVEPOINT update_resource_dtl;
985: fnd_file.put_line(fnd_file.log,'UpdateResourcePub');
984: SAVEPOINT update_resource_dtl;
985: fnd_file.put_line(fnd_file.log,'UpdateResourcePub');
986:
987: /* Set the return status to success initially */
988: x_return_status := FND_API.G_RET_STS_SUCCESS;
989:
990: /* Initialize message list and count if needed */
991: IF p_init_msg_list THEN
992: fnd_msg_pub.initialize;
992: fnd_msg_pub.initialize;
993: END IF;
994:
995: /* Make sure we are call compatible */
996: IF NOT FND_API.compatible_api_call ( GMP_RESOURCE_DTL_PUB.m_api_version
997: ,p_api_version
998: ,l_api_name
999: ,GMP_RESOURCE_DTL_PUB.m_pkg_name) THEN
1000: x_return_status := FND_API.G_RET_STS_ERROR;
996: IF NOT FND_API.compatible_api_call ( GMP_RESOURCE_DTL_PUB.m_api_version
997: ,p_api_version
998: ,l_api_name
999: ,GMP_RESOURCE_DTL_PUB.m_pkg_name) THEN
1000: x_return_status := FND_API.G_RET_STS_ERROR;
1001: RAISE invalid_version;
1002: END IF;
1003:
1004: /* Set the Update Flag to Yes */
1089: /* set the Update flag back to 'No' */
1090: v_update_flag := 'N';
1091:
1092: /* Check if work was done */
1093: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1094: RAISE resource_update_failure;
1095: END IF; /* IF x_return_status <> FND_API.G_RET_STS_SUCCESS */
1096:
1097: fnd_msg_pub.count_and_get (
1091:
1092: /* Check if work was done */
1093: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1094: RAISE resource_update_failure;
1095: END IF; /* IF x_return_status <> FND_API.G_RET_STS_SUCCESS */
1096:
1097: fnd_msg_pub.count_and_get (
1098: p_count => x_message_count
1099: ,p_encoded => FND_API.g_false
1095: END IF; /* IF x_return_status <> FND_API.G_RET_STS_SUCCESS */
1096:
1097: fnd_msg_pub.count_and_get (
1098: p_count => x_message_count
1099: ,p_encoded => FND_API.g_false
1100: ,p_data => x_message_list);
1101:
1102: IF x_message_count = 0 THEN
1103: fnd_file.put_line(fnd_file.log,'Resource was Updated successfullly');
1111: ROLLBACK TO SAVEPOINT update_resource_dtl;
1112: fnd_file.put_line (fnd_file.log,m_pkg_name||'.'||l_api_name||':'||'API not complete');
1113: fnd_msg_pub.count_and_get (
1114: p_count => x_message_count
1115: ,p_encoded => FND_API.g_false
1116: ,p_data => x_message_list);
1117: x_return_status := FND_API.G_RET_STS_ERROR;
1118:
1119: WHEN RESOURCES_REQUIRED THEN
1113: fnd_msg_pub.count_and_get (
1114: p_count => x_message_count
1115: ,p_encoded => FND_API.g_false
1116: ,p_data => x_message_list);
1117: x_return_status := FND_API.G_RET_STS_ERROR;
1118:
1119: WHEN RESOURCES_REQUIRED THEN
1120: x_return_status := 'E' ;
1121: FND_MESSAGE.SET_NAME('GMA','SY_REQUIRED');
1129: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
1130: FND_MSG_PUB.ADD;
1131: fnd_msg_pub.count_and_get (
1132: p_count => x_message_count
1133: ,p_encoded => FND_API.g_false
1134: ,p_data => x_message_list);
1135: x_return_status := FND_API.g_ret_sts_unexp_error;
1136: END update_resource_dtl;
1137:
1131: fnd_msg_pub.count_and_get (
1132: p_count => x_message_count
1133: ,p_encoded => FND_API.g_false
1134: ,p_data => x_message_list);
1135: x_return_status := FND_API.g_ret_sts_unexp_error;
1136: END update_resource_dtl;
1137:
1138: /* =============================================================== */
1139: /* Procedure: */
1256: ROLLBACK TO SAVEPOINT update_instances;
1257: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
1258: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
1259: FND_MSG_PUB.ADD;
1260: x_return_status := FND_API.g_ret_sts_unexp_error;
1261: WHEN OTHERS THEN
1262: ROLLBACK TO SAVEPOINT update_resource_dtl;
1263: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
1264: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
1262: ROLLBACK TO SAVEPOINT update_resource_dtl;
1263: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
1264: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
1265: FND_MSG_PUB.ADD;
1266: x_return_status := FND_API.g_ret_sts_unexp_error;
1267: END update_detail_rows;
1268:
1269: /* =============================================================== */
1270: /* Procedure: */
1300: invalid_version EXCEPTION;
1301: RESOURCES_REQUIRED EXCEPTION;
1302:
1303: BEGIN
1304: l_return_status := FND_API.G_RET_STS_SUCCESS;
1305: g_return_status := FND_API.G_RET_STS_SUCCESS;
1306: v_eff_start_date := NULL ;
1307: X_msg := '';
1308:
1301: RESOURCES_REQUIRED EXCEPTION;
1302:
1303: BEGIN
1304: l_return_status := FND_API.G_RET_STS_SUCCESS;
1305: g_return_status := FND_API.G_RET_STS_SUCCESS;
1306: v_eff_start_date := NULL ;
1307: X_msg := '';
1308:
1309: SAVEPOINT update_instances;
1309: SAVEPOINT update_instances;
1310: fnd_file.put_line(fnd_file.log,'UpdateInstancePub');
1311:
1312: /* Set the return status to success initially */
1313: x_return_status := FND_API.G_RET_STS_SUCCESS;
1314:
1315: /* Initialize message list and count if needed */
1316: IF p_init_msg_list THEN
1317: fnd_msg_pub.initialize;
1317: fnd_msg_pub.initialize;
1318: END IF;
1319:
1320: /* Make sure we are call compatible */
1321: IF NOT FND_API.compatible_api_call ( GMP_RESOURCE_DTL_PUB.m_api_version
1322: ,p_api_version
1323: ,l_api_name
1324: ,GMP_RESOURCE_DTL_PUB.m_pkg_name) THEN
1325: x_return_status := FND_API.G_RET_STS_ERROR;
1321: IF NOT FND_API.compatible_api_call ( GMP_RESOURCE_DTL_PUB.m_api_version
1322: ,p_api_version
1323: ,l_api_name
1324: ,GMP_RESOURCE_DTL_PUB.m_pkg_name) THEN
1325: x_return_status := FND_API.G_RET_STS_ERROR;
1326: RAISE invalid_version;
1327: END IF;
1328:
1329: /* Set the Update Flag to Yes */
1395: /* set the Update flag back to 'No' */
1396: v_update_flag := 'N';
1397:
1398: /* Check if work was done */
1399: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1400: RAISE instance_update_failure;
1401: END IF; /* IF x_return_status <> FND_API.G_RET_STS_SUCCESS */
1402:
1403: fnd_msg_pub.count_and_get (
1397:
1398: /* Check if work was done */
1399: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1400: RAISE instance_update_failure;
1401: END IF; /* IF x_return_status <> FND_API.G_RET_STS_SUCCESS */
1402:
1403: fnd_msg_pub.count_and_get (
1404: p_count => x_message_count
1405: ,p_encoded => FND_API.g_false
1401: END IF; /* IF x_return_status <> FND_API.G_RET_STS_SUCCESS */
1402:
1403: fnd_msg_pub.count_and_get (
1404: p_count => x_message_count
1405: ,p_encoded => FND_API.g_false
1406: ,p_data => x_message_list);
1407:
1408: IF x_message_count = 0 THEN
1409: fnd_file.put_line(fnd_file.log,'Resource was Updated successfullly');
1416: ROLLBACK TO SAVEPOINT update_instances;
1417: fnd_file.put_line (fnd_file.log,m_pkg_name||'.'||l_api_name||':'||'API not complete');
1418: fnd_msg_pub.count_and_get (
1419: p_count => x_message_count
1420: ,p_encoded => FND_API.g_false
1421: ,p_data => x_message_list);
1422: x_return_status := FND_API.G_RET_STS_ERROR;
1423: WHEN RESOURCES_REQUIRED THEN
1424: FND_MESSAGE.SET_NAME('GMA','SY_REQUIRED');
1418: fnd_msg_pub.count_and_get (
1419: p_count => x_message_count
1420: ,p_encoded => FND_API.g_false
1421: ,p_data => x_message_list);
1422: x_return_status := FND_API.G_RET_STS_ERROR;
1423: WHEN RESOURCES_REQUIRED THEN
1424: FND_MESSAGE.SET_NAME('GMA','SY_REQUIRED');
1425: FND_MESSAGE.SET_TOKEN('VALUE_REQUIRED',X_msg);
1426: FND_MSG_PUB.ADD;
1432: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
1433: FND_MSG_PUB.ADD;
1434: fnd_msg_pub.count_and_get (
1435: p_count => x_message_count
1436: ,p_encoded => FND_API.g_false
1437: ,p_data => x_message_list);
1438: x_return_status := FND_API.g_ret_sts_unexp_error;
1439: END update_instances;
1440:
1434: fnd_msg_pub.count_and_get (
1435: p_count => x_message_count
1436: ,p_encoded => FND_API.g_false
1437: ,p_data => x_message_list);
1438: x_return_status := FND_API.g_ret_sts_unexp_error;
1439: END update_instances;
1440:
1441:
1442: /* =============================================================== */
1518: ROLLBACK TO SAVEPOINT update_instances;
1519: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
1520: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
1521: FND_MSG_PUB.ADD;
1522: x_return_status := FND_API.g_ret_sts_unexp_error;
1523: WHEN OTHERS THEN
1524: ROLLBACK TO SAVEPOINT update_instances;
1525: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
1526: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
1524: ROLLBACK TO SAVEPOINT update_instances;
1525: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
1526: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
1527: FND_MSG_PUB.ADD;
1528: x_return_status := FND_API.g_ret_sts_unexp_error;
1529: END update_instance_row ;
1530:
1531: /* =============================================================== */
1532: /* Procedure: */
1571: BEGIN
1572:
1573: l_counter := 0;
1574: v_resource_id := 0;
1575: l_return_status := FND_API.G_RET_STS_SUCCESS;
1576:
1577: SAVEPOINT delete_resources;
1578: fnd_file.put_line(fnd_file.log,'DeleteResourcePub');
1579:
1577: SAVEPOINT delete_resources;
1578: fnd_file.put_line(fnd_file.log,'DeleteResourcePub');
1579:
1580: /* Set the return status to success initially */
1581: x_return_status := FND_API.G_RET_STS_SUCCESS;
1582:
1583: /* Initialize message list and count if needed */
1584: IF p_init_msg_list THEN
1585: fnd_msg_pub.initialize;
1585: fnd_msg_pub.initialize;
1586: END IF;
1587:
1588: /* Make sure we are call compatible */
1589: IF NOT FND_API.compatible_api_call ( GMP_RESOURCE_DTL_PUB.m_api_version
1590: ,p_api_version
1591: ,l_api_name
1592: ,GMP_RESOURCE_DTL_PUB.m_pkg_name) THEN
1593: x_return_status := FND_API.G_RET_STS_ERROR;
1589: IF NOT FND_API.compatible_api_call ( GMP_RESOURCE_DTL_PUB.m_api_version
1590: ,p_api_version
1591: ,l_api_name
1592: ,GMP_RESOURCE_DTL_PUB.m_pkg_name) THEN
1593: x_return_status := FND_API.G_RET_STS_ERROR;
1594: RAISE invalid_version;
1595: END IF;
1596:
1597: OPEN Cur_resource_id;
1632: END IF;
1633:
1634: fnd_msg_pub.count_and_get (
1635: p_count => x_message_count
1636: ,p_encoded => FND_API.g_false
1637: ,p_data => x_message_list);
1638:
1639: IF x_message_count = 0 THEN
1640: fnd_file.put_line(fnd_file.log,'Resource was deleted successfully');
1647: ROLLBACK TO SAVEPOINT delete_resources;
1648: fnd_file.put_line(fnd_file.log,m_pkg_name||'.'||l_api_name||':'||'API not complete');
1649: fnd_msg_pub.count_and_get (
1650: p_count => x_message_count
1651: ,p_encoded => FND_API.g_false
1652: ,p_data => x_message_list);
1653: x_return_status := FND_API.G_RET_STS_ERROR;
1654: WHEN OTHERS THEN
1655: ROLLBACK TO SAVEPOINT delete_resources;
1649: fnd_msg_pub.count_and_get (
1650: p_count => x_message_count
1651: ,p_encoded => FND_API.g_false
1652: ,p_data => x_message_list);
1653: x_return_status := FND_API.G_RET_STS_ERROR;
1654: WHEN OTHERS THEN
1655: ROLLBACK TO SAVEPOINT delete_resources;
1656: fnd_file.put_line(fnd_file.log,m_pkg_name||'.'||l_api_name||':'||'When others exception:'||SQLERRM);
1657: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
1658: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
1659: FND_MSG_PUB.ADD;
1660: fnd_msg_pub.count_and_get (
1661: p_count => x_message_count
1662: ,p_encoded => FND_API.g_false
1663: ,p_data => x_message_list);
1664: x_return_status := FND_API.g_ret_sts_unexp_error;
1665: END delete_resources;
1666:
1660: fnd_msg_pub.count_and_get (
1661: p_count => x_message_count
1662: ,p_encoded => FND_API.g_false
1663: ,p_data => x_message_list);
1664: x_return_status := FND_API.g_ret_sts_unexp_error;
1665: END delete_resources;
1666:
1667: /* =============================================================== */
1668: /* Procedure: */
1842:
1843: EXCEPTION
1844:
1845: WHEN INVALID_DATE_RANGE THEN
1846: x_return_status := FND_API.G_RET_STS_ERROR;
1847: FND_MESSAGE.SET_NAME('GMP','MR_STARTENDDATEERR');
1848: FND_MSG_PUB.ADD;
1849: FND_MSG_PUB.Count_And_Get(p_count=>x_message_count,p_data=>x_message_list);
1850:
1848: FND_MSG_PUB.ADD;
1849: FND_MSG_PUB.Count_And_Get(p_count=>x_message_count,p_data=>x_message_list);
1850:
1851: WHEN INVALID_VALUE THEN
1852: x_return_status := FND_API.G_RET_STS_ERROR;
1853: FND_MESSAGE.SET_NAME('GMP','GMP_INVALID_VALUE');
1854: FND_MESSAGE.SET_TOKEN('FIELD',X_field);
1855: FND_MESSAGE.SET_TOKEN('VALUE',X_value);
1856: FND_MSG_PUB.ADD;
1856: FND_MSG_PUB.ADD;
1857: FND_MSG_PUB.Count_And_Get(p_count=>x_message_count,p_data=>x_message_list);
1858:
1859: WHEN RESOURCE_REQUIRED THEN
1860: x_return_status := FND_API.G_RET_STS_ERROR;
1861: FND_MESSAGE.SET_NAME('GMP','GMP_VALUE_REQUIRED');
1862: FND_MESSAGE.SET_TOKEN('VALUE_REQUIRED',X_msg);
1863: FND_MSG_PUB.ADD;
1864: FND_MSG_PUB.Count_And_Get(p_count=>x_message_count,p_data=>x_message_list);
1863: FND_MSG_PUB.ADD;
1864: FND_MSG_PUB.Count_And_Get(p_count=>x_message_count,p_data=>x_message_list);
1865:
1866: WHEN DUPLICATE_RECORD THEN
1867: x_return_status := FND_API.G_RET_STS_ERROR;
1868: FND_MESSAGE.SET_NAME('GMP', 'PS_DUP_REC');
1869: FND_MSG_PUB.ADD;
1870: FND_MSG_PUB.Count_And_Get(p_count=>x_message_count,p_data=>x_message_list);
1871: