63: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
64: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
65: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
66: FND_MESSAGE.Set_Token('REASON', SQLERRM);
67: FND_MSG_PUB.Add;
68:
69: x_return_status := FND_API.G_RET_STS_ERROR;
70: DBMS_SQL.close_cursor(l_cursor);
71: END;
689: END IF;
690:
691: -- Initialize message list if p_init_msg_list is set to TRUE.
692: IF FND_API.to_Boolean(p_init_msg_list) THEN
693: FND_MSG_PUB.initialize;
694: END IF;
695:
696: -- Initialize API return status to error, i.e, its not duplicate
697: x_return_status := FND_API.G_RET_STS_ERROR;
767: EXCEPTION
768:
769: WHEN FND_API.G_EXC_ERROR THEN
770: x_return_status := FND_API.G_RET_STS_SUCCESS; -- found duplicate
771: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
772: p_data => x_msg_data,
773: p_encoded => 'F');
774:
775: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
773: p_encoded => 'F');
774:
775: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
776: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
777: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
778: p_data => x_msg_data,
779: p_encoded => 'F');
780:
781: WHEN OTHERS THEN
782: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
783: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
784: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
785: FND_MESSAGE.Set_Token('REASON', SQLERRM);
786: FND_MSG_PUB.Add;
787:
788: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
789:
790: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
786: FND_MSG_PUB.Add;
787:
788: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
789:
790: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
791: THEN
792: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
793: END IF;
794:
788: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
789:
790: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
791: THEN
792: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
793: END IF;
794:
795: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
796: p_data => x_msg_data,
791: THEN
792: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
793: END IF;
794:
795: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
796: p_data => x_msg_data,
797: p_encoded => 'F');
798:
799: END Check_Duplicate_Entry;
864: BEGIN
865:
866: -- Initialize message list if p_init_msg_list is set to TRUE.
867: IF FND_API.to_Boolean(p_init_msg_list) THEN
868: FND_MSG_PUB.initialize;
869: END IF;
870:
871: -- Initialize API return status to success
872: x_return_status := FND_API.G_RET_STS_SUCCESS;
878: IF ((p_display_name IS NULL) OR
879: (p_display_name = FND_API.G_MISS_CHAR))
880: THEN
881: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_INVALID_DSP_NAME');
882: FND_MSG_PUB.Add;
883: RAISE FND_API.G_EXC_ERROR;
884: END IF;
885:
886: -- section_type_code
887: IF ((p_section_type_code IS NULL) OR
888: (p_section_type_code = FND_API.G_MISS_CHAR))
889: THEN
890: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_INVALID_SCT_TYPE');
891: FND_MSG_PUB.Add;
892: RAISE FND_API.G_EXC_ERROR;
893: END IF;
894:
895: -- status_code
896: IF ((p_status_code IS NULL) OR
897: (p_status_code = FND_API.G_MISS_CHAR))
898: THEN
899: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_INVALID_STATUS');
900: FND_MSG_PUB.Add;
901: RAISE FND_API.G_EXC_ERROR;
902: END IF;
903:
904: -- start_date_active
905: IF ((p_start_date_active IS NULL) OR
906: (p_start_date_active = FND_API.G_MISS_DATE))
907: THEN
908: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_INVALID_START_DATE');
909: FND_MSG_PUB.Add;
910: RAISE FND_API.G_EXC_ERROR;
911: END IF;
912:
913: --
920: IF(p_available_in_all_sites_flag <> 'Y' AND
921: p_available_in_all_sites_flag <> 'N')
922: THEN
923: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_INVALID_AVL_FLAG');
924: FND_MSG_PUB.Add;
925: RAISE FND_API.G_EXC_ERROR;
926: END IF;
927: END IF;
928:
940: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
941: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
942: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_INVALID_AUTO_PLACE');
943: FND_MESSAGE.Set_Token('AUTO_PLACEMENT_RULE', p_auto_placement_rule);
944: FND_MSG_PUB.Add;
945: RAISE FND_API.G_EXC_ERROR;
946: END IF;
947:
948: END IF;
962: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
963: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
964: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_INVALID_ORDER_BY');
965: FND_MESSAGE.Set_Token('ORDER_BY_CLAUSE', p_order_by_clause);
966: FND_MSG_PUB.Add;
967: RAISE FND_API.G_EXC_ERROR;
968: END IF;
969:
970: END IF;
981: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
982: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
983: ELSIF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
984: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_DUPLICATE_SECT');
985: FND_MSG_PUB.Add;
986: RAISE FND_API.G_EXC_ERROR; -- duplicate section
987: END IF;
988:
989: --
999: EXCEPTION
1000: WHEN NO_DATA_FOUND THEN
1001: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_NO_DSP_CTX');
1002: FND_MESSAGE.Set_Token('DISPLAY_CONTEXT', p_display_context_id);
1003: FND_MSG_PUB.Add;
1004: RAISE FND_API.G_EXC_ERROR;
1005: WHEN OTHERS THEN
1006: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1007: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1006: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1007: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1008: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1009: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1010: FND_MSG_PUB.Add;
1011:
1012: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_GET_DSP_CTX');
1013: FND_MSG_PUB.Add;
1014: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1009: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1010: FND_MSG_PUB.Add;
1011:
1012: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_GET_DSP_CTX');
1013: FND_MSG_PUB.Add;
1014: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1015: END;
1016: END IF;
1017:
1025: EXCEPTION
1026: WHEN NO_DATA_FOUND THEN
1027: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_NO_DLVRBL');
1028: FND_MESSAGE.Set_Token('DELIVERABLE', p_deliverable_id);
1029: FND_MSG_PUB.Add;
1030: RAISE FND_API.G_EXC_ERROR;
1031: WHEN OTHERS THEN
1032: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1033: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1032: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1033: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1034: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1035: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1036: FND_MSG_PUB.Add;
1037:
1038: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_GET_DLVRBL');
1039: FND_MSG_PUB.Add;
1040: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1035: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1036: FND_MSG_PUB.Add;
1037:
1038: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_GET_DLVRBL');
1039: FND_MSG_PUB.Add;
1040: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1041: END;
1042: END IF;
1043:
1051: EXCEPTION
1052: WHEN NO_DATA_FOUND THEN
1053: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_NO_SCT_TYPE');
1054: FND_MESSAGE.Set_Token('SECTION_TYPE', p_section_type_code);
1055: FND_MSG_PUB.Add;
1056: RAISE FND_API.G_EXC_ERROR;
1057: WHEN OTHERS THEN
1058: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1059: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1058: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1059: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1060: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1061: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1062: FND_MSG_PUB.Add;
1063:
1064: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_GET_SCT_TYPE');
1065: FND_MSG_PUB.Add;
1066: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1061: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1062: FND_MSG_PUB.Add;
1063:
1064: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_GET_SCT_TYPE');
1065: FND_MSG_PUB.Add;
1066: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1067: END;
1068:
1069: -- status code
1073: IF (c3%NOTFOUND) THEN
1074: CLOSE c3;
1075: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_NO_STATUS');
1076: FND_MESSAGE.Set_Token('STATUS', p_status_code);
1077: FND_MSG_PUB.Add;
1078: RAISE FND_API.G_EXC_ERROR;
1079: END IF;
1080: CLOSE c3;
1081:
1082: EXCEPTION
1083:
1084: WHEN FND_API.G_EXC_ERROR THEN
1085: x_return_status := FND_API.G_RET_STS_ERROR;
1086: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1087: p_data => x_msg_data,
1088: p_encoded => 'F');
1089:
1090: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1088: p_encoded => 'F');
1089:
1090: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1091: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1092: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1093: p_data => x_msg_data,
1094: p_encoded => 'F');
1095:
1096: WHEN OTHERS THEN
1097: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1098: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1099: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1100: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1101: FND_MSG_PUB.Add;
1102:
1103: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1104:
1105: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1101: FND_MSG_PUB.Add;
1102:
1103: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1104:
1105: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1106: THEN
1107: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1108: END IF;
1109:
1103: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1104:
1105: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1106: THEN
1107: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1108: END IF;
1109:
1110: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1111: p_data => x_msg_data,
1106: THEN
1107: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1108: END IF;
1109:
1110: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1111: p_data => x_msg_data,
1112: p_encoded => 'F');
1113:
1114: END Validate_Create;
1181: BEGIN
1182:
1183: -- Initialize message list if p_init_msg_list is set to TRUE.
1184: IF FND_API.to_Boolean(p_init_msg_list) THEN
1185: FND_MSG_PUB.initialize;
1186: END IF;
1187:
1188: -- Initialize API return status to success
1189: x_return_status := FND_API.G_RET_STS_SUCCESS;
1193: --
1194: -- section_id
1195: IF (p_section_id IS NULL) THEN
1196: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_NULL_SCT_ID');
1197: FND_MSG_PUB.Add;
1198: RAISE FND_API.G_EXC_ERROR;
1199: END IF;
1200:
1201: -- display_name
1200:
1201: -- display_name
1202: IF (p_display_name IS NULL) THEN
1203: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_NULL_DSP_NAME');
1204: FND_MSG_PUB.Add;
1205: RAISE FND_API.G_EXC_ERROR;
1206: END IF;
1207:
1208: -- section_type_code
1207:
1208: -- section_type_code
1209: IF (p_section_type_code IS NULL) THEN
1210: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_NULL_SCT_TYPE');
1211: FND_MSG_PUB.Add;
1212: RAISE FND_API.G_EXC_ERROR;
1213: END IF;
1214:
1215: -- status_code
1214:
1215: -- status_code
1216: IF (p_status_code IS NULL) THEN
1217: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_NULL_STATUS');
1218: FND_MSG_PUB.Add;
1219: RAISE FND_API.G_EXC_ERROR;
1220: END IF;
1221:
1222: -- start_date_active
1221:
1222: -- start_date_active
1223: IF (p_start_date_active IS NULL) THEN
1224: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_NULL_START_DATE');
1225: FND_MSG_PUB.Add;
1226: RAISE FND_API.G_EXC_ERROR;
1227: END IF;
1228:
1229: -- non-null field validation
1233: IF(p_available_in_all_sites_flag <> 'Y' AND
1234: p_available_in_all_sites_flag <> 'N')
1235: THEN
1236: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_INVALID_AVL_FLAG');
1237: FND_MSG_PUB.Add;
1238: RAISE FND_API.G_EXC_ERROR;
1239: END IF;
1240: END IF;
1241:
1253: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1254: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1255: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_INVALID_AUTO_PLACE');
1256: FND_MESSAGE.Set_Token('AUTO_PLACEMENT_RULE', p_auto_placement_rule);
1257: FND_MSG_PUB.Add;
1258: RAISE FND_API.G_EXC_ERROR;
1259: END IF;
1260:
1261: END IF;
1275: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1276: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1277: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_INVALID_ORDER_BY');
1278: FND_MESSAGE.Set_Token('ORDER_BY_CLAUSE', p_order_by_clause);
1279: FND_MSG_PUB.Add;
1280: RAISE FND_API.G_EXC_ERROR;
1281: END IF;
1282:
1283: END IF;
1295: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1296: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1297: ELSIF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1298: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_DUPLICATE_SECT');
1299: FND_MSG_PUB.Add;
1300: RAISE FND_API.G_EXC_ERROR; -- duplicate fields
1301: END IF;
1302:
1303: --
1313: EXCEPTION
1314: WHEN NO_DATA_FOUND THEN
1315: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_NO_DSP_CTX');
1316: FND_MESSAGE.Set_Token('DISPLAY_CONTEXT', p_display_context_id);
1317: FND_MSG_PUB.Add;
1318: RAISE FND_API.G_EXC_ERROR;
1319: WHEN OTHERS THEN
1320: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1321: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1320: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1321: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1322: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1323: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1324: FND_MSG_PUB.Add;
1325:
1326: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_GET_DSP_CTX');
1327: FND_MSG_PUB.Add;
1328: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1323: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1324: FND_MSG_PUB.Add;
1325:
1326: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_GET_DSP_CTX');
1327: FND_MSG_PUB.Add;
1328: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1329: END;
1330: END IF;
1331:
1339: EXCEPTION
1340: WHEN NO_DATA_FOUND THEN
1341: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_NO_DLVRBL');
1342: FND_MESSAGE.Set_Token('DELIVERABLE', p_deliverable_id);
1343: FND_MSG_PUB.Add;
1344: RAISE FND_API.G_EXC_ERROR;
1345: WHEN OTHERS THEN
1346: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1347: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1346: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1347: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1348: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1349: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1350: FND_MSG_PUB.Add;
1351:
1352: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_GET_DLVRBL');
1353: FND_MSG_PUB.Add;
1354: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1349: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1350: FND_MSG_PUB.Add;
1351:
1352: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_GET_DLVRBL');
1353: FND_MSG_PUB.Add;
1354: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1355: END;
1356: END IF;
1357:
1366: EXCEPTION
1367: WHEN NO_DATA_FOUND THEN
1368: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_NO_SCT_TYPE');
1369: FND_MESSAGE.Set_Token('SECTION_TYPE', p_section_type_code);
1370: FND_MSG_PUB.Add;
1371: RAISE FND_API.G_EXC_ERROR;
1372: WHEN OTHERS THEN
1373: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1374: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1373: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1374: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1375: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1376: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1377: FND_MSG_PUB.Add;
1378:
1379: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_GET_SCT_TYPE');
1380: FND_MSG_PUB.Add;
1381: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1376: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1377: FND_MSG_PUB.Add;
1378:
1379: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_GET_SCT_TYPE');
1380: FND_MSG_PUB.Add;
1381: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1382: END;
1383: END IF;
1384:
1390: IF (c3%NOTFOUND) THEN
1391: CLOSE c3;
1392: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_NO_STATUS');
1393: FND_MESSAGE.Set_Token('STATUS', p_status_code);
1394: FND_MSG_PUB.Add;
1395: RAISE FND_API.G_EXC_ERROR;
1396: END IF;
1397: CLOSE c3;
1398: END IF;
1400: EXCEPTION
1401:
1402: WHEN FND_API.G_EXC_ERROR THEN
1403: x_return_status := FND_API.G_RET_STS_ERROR;
1404: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1405: p_data => x_msg_data,
1406: p_encoded => 'F');
1407:
1408: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1406: p_encoded => 'F');
1407:
1408: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1409: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1410: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1411: p_data => x_msg_data,
1412: p_encoded => 'F');
1413:
1414: WHEN OTHERS THEN
1415: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1416: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1417: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1418: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1419: FND_MSG_PUB.Add;
1420:
1421: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1422:
1423: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1419: FND_MSG_PUB.Add;
1420:
1421: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1422:
1423: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1424: THEN
1425: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1426: END IF;
1427:
1421: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1422:
1423: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1424: THEN
1425: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1426: END IF;
1427:
1428: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1429: p_data => x_msg_data,
1424: THEN
1425: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1426: END IF;
1427:
1428: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1429: p_data => x_msg_data,
1430: p_encoded => 'F');
1431:
1432: END Validate_Update;
1501: END IF;
1502:
1503: -- Initialize message list if p_init_msg_list is set to TRUE.
1504: IF FND_API.to_Boolean(p_init_msg_list) THEN
1505: FND_MSG_PUB.initialize;
1506: END IF;
1507:
1508: -- Initialize API return status to success
1509: x_return_status := FND_API.G_RET_STS_SUCCESS;
1559: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1560: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1561: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1562: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_INVALID_CREATE');
1563: FND_MSG_PUB.Add;
1564: RAISE FND_API.G_EXC_ERROR; -- invalid section
1565: END IF;
1566:
1567: --
1612: );
1613: EXCEPTION
1614: WHEN NO_DATA_FOUND THEN
1615: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_INSERT_FAIL');
1616: FND_MSG_PUB.Add;
1617: RAISE FND_API.G_EXC_ERROR;
1618: WHEN OTHERS THEN
1619: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1620: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1619: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1620: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1621: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1622: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1623: FND_MSG_PUB.Add;
1624:
1625: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_INSERT_FAIL');
1626: FND_MSG_PUB.Add;
1627: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1622: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1623: FND_MSG_PUB.Add;
1624:
1625: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_INSERT_FAIL');
1626: FND_MSG_PUB.Add;
1627: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1628: END;
1629:
1630: --
1635: COMMIT WORK;
1636: END IF;
1637:
1638: -- Standard call to get message count and if count is 1, get message info.
1639: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1640: p_data => x_msg_data,
1641: p_encoded => 'F');
1642:
1643: EXCEPTION
1644:
1645: WHEN FND_API.G_EXC_ERROR THEN
1646: ROLLBACK TO CREATE_SECTION_GRP;
1647: x_return_status := FND_API.G_RET_STS_ERROR;
1648: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1649: p_data => x_msg_data,
1650: p_encoded => 'F');
1651:
1652: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1651:
1652: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1653: ROLLBACK TO CREATE_SECTION_GRP;
1654: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1655: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1656: p_data => x_msg_data,
1657: p_encoded => 'F');
1658:
1659: WHEN OTHERS THEN
1662: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1663: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1664: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1665: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1666: FND_MSG_PUB.Add;
1667:
1668: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1669:
1670: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1666: FND_MSG_PUB.Add;
1667:
1668: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1669:
1670: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1671: THEN
1672: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1673: END IF;
1674:
1668: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1669:
1670: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1671: THEN
1672: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1673: END IF;
1674:
1675: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1676: p_data => x_msg_data,
1671: THEN
1672: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1673: END IF;
1674:
1675: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1676: p_data => x_msg_data,
1677: p_encoded => 'F');
1678:
1679: END Create_Section;
1744: END IF;
1745:
1746: -- Initialize message list if p_init_msg_list is set to TRUE.
1747: IF FND_API.to_Boolean(p_init_msg_list) THEN
1748: FND_MSG_PUB.initialize;
1749: END IF;
1750:
1751: -- Initialize API return status to success
1752: x_return_status := FND_API.G_RET_STS_SUCCESS;
1772: EXCEPTION
1773: WHEN NO_DATA_FOUND THEN
1774: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_NO_SCT_ACSS_NAME');
1775: FND_MESSAGE.Set_Token('ACCESS_NAME', p_access_name);
1776: FND_MSG_PUB.Add;
1777: RAISE FND_API.G_EXC_ERROR;
1778: WHEN OTHERS THEN
1779: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1780: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1779: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1780: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1781: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1782: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1783: FND_MSG_PUB.Add;
1784:
1785: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_GET_SCT_ACSS_NAME');
1786: FND_MESSAGE.Set_Token('ACCESS_NAME', p_access_name);
1787: FND_MSG_PUB.Add;
1783: FND_MSG_PUB.Add;
1784:
1785: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_GET_SCT_ACSS_NAME');
1786: FND_MESSAGE.Set_Token('ACCESS_NAME', p_access_name);
1787: FND_MSG_PUB.Add;
1788: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1789: END;
1790: ELSE
1791: -- neither section_id nor access_name is specified
1789: END;
1790: ELSE
1791: -- neither section_id nor access_name is specified
1792: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_NO_ID_OR_ACSS');
1793: FND_MSG_PUB.Add;
1794: RAISE FND_API.G_EXC_ERROR;
1795: END IF;
1796:
1797:
1842: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1843: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1844: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1845: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_INVALID_CREATE');
1846: FND_MSG_PUB.Add;
1847: RAISE FND_API.G_EXC_ERROR; -- invalid section
1848: END IF;
1849:
1850: -- 2. update row with section data into section table
1889: );
1890: EXCEPTION
1891: WHEN NO_DATA_FOUND THEN
1892: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_UPDATE_FAIL');
1893: FND_MSG_PUB.Add;
1894: RAISE FND_API.G_EXC_ERROR;
1895: WHEN OTHERS THEN
1896: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1897: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1896: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1897: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1898: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1899: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1900: FND_MSG_PUB.Add;
1901:
1902: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_UPDATE_FAIL');
1903: FND_MSG_PUB.Add;
1904: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1899: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1900: FND_MSG_PUB.Add;
1901:
1902: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_UPDATE_FAIL');
1903: FND_MSG_PUB.Add;
1904: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1905: END;
1906:
1907: --
1912: COMMIT WORK;
1913: END IF;
1914:
1915: -- Standard call to get message count and if count is 1, get message info.
1916: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1917: p_data => x_msg_data,
1918: p_encoded => 'F');
1919:
1920: EXCEPTION
1921:
1922: WHEN FND_API.G_EXC_ERROR THEN
1923: ROLLBACK TO UPDATE_SECTION_GRP;
1924: x_return_status := FND_API.G_RET_STS_ERROR;
1925: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1926: p_data => x_msg_data,
1927: p_encoded => 'F');
1928:
1929: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1928:
1929: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1930: ROLLBACK TO UPDATE_SECTION_GRP;
1931: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1932: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1933: p_data => x_msg_data,
1934: p_encoded => 'F');
1935:
1936: WHEN OTHERS THEN
1939: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1940: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1941: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1942: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1943: FND_MSG_PUB.Add;
1944:
1945: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1946:
1947: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1943: FND_MSG_PUB.Add;
1944:
1945: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1946:
1947: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1948: THEN
1949: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1950: END IF;
1951:
1945: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1946:
1947: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1948: THEN
1949: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1950: END IF;
1951:
1952: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1953: p_data => x_msg_data,
1948: THEN
1949: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1950: END IF;
1951:
1952: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1953: p_data => x_msg_data,
1954: p_encoded => 'F');
1955:
1956: END Update_Section;
2000: END IF;
2001:
2002: -- Initialize message list if p_init_msg_list is set to TRUE.
2003: IF FND_API.to_Boolean(p_init_msg_list) THEN
2004: FND_MSG_PUB.initialize;
2005: END IF;
2006:
2007: -- Initialize API return status to success
2008: x_return_status := FND_API.G_RET_STS_SUCCESS;
2028: EXCEPTION
2029: WHEN NO_DATA_FOUND THEN
2030: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_NO_SCT_ACSS_NAME');
2031: FND_MESSAGE.Set_Token('ACCESS_NAME', p_access_name);
2032: FND_MSG_PUB.Add;
2033: RAISE FND_API.G_EXC_ERROR;
2034: WHEN OTHERS THEN
2035: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
2036: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
2035: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
2036: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
2037: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
2038: FND_MESSAGE.Set_Token('REASON', SQLERRM);
2039: FND_MSG_PUB.Add;
2040:
2041: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_NO_SCT_ACSS_NAME');
2042: FND_MESSAGE.Set_Token('ACCESS_NAME', p_access_name);
2043: FND_MSG_PUB.Add;
2039: FND_MSG_PUB.Add;
2040:
2041: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_NO_SCT_ACSS_NAME');
2042: FND_MESSAGE.Set_Token('ACCESS_NAME', p_access_name);
2043: FND_MSG_PUB.Add;
2044: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2045: END;
2046: ELSE
2047: -- neither section_id nor access_name is specified, therefore cannot delete
2045: END;
2046: ELSE
2047: -- neither section_id nor access_name is specified, therefore cannot delete
2048: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_NO_ID_OR_ACSS');
2049: FND_MSG_PUB.Add;
2050: RAISE FND_API.G_EXC_ERROR;
2051: END IF;
2052:
2053: --
2061: IF (c3%FOUND) THEN
2062: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_MSITE_REF');
2063: FND_MESSAGE.Set_Token('SECTION_ID', l_section_id);
2064: FND_MESSAGE.Set_Token('MINI_SITE_ID', l_mini_site_id);
2065: FND_MSG_PUB.Add;
2066: RAISE FND_API.G_EXC_ERROR;
2067: END IF;
2068:
2069: -- delete from ibe_dsp_msite_sct_sects table
2135:
2136: WHEN FND_API.G_EXC_ERROR THEN
2137: ROLLBACK TO DELETE_SECTION_GRP;
2138: x_return_status := FND_API.G_RET_STS_ERROR;
2139: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2140: p_data => x_msg_data,
2141: p_encoded => 'F');
2142:
2143: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2142:
2143: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2144: ROLLBACK TO DELETE_SECTION_GRP;
2145: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2146: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2147: p_data => x_msg_data,
2148: p_encoded => 'F');
2149:
2150: WHEN OTHERS THEN
2153: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
2154: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
2155: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
2156: FND_MESSAGE.Set_Token('REASON', SQLERRM);
2157: FND_MSG_PUB.Add;
2158:
2159: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2160:
2161: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2157: FND_MSG_PUB.Add;
2158:
2159: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2160:
2161: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2162: THEN
2163: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
2164: END IF;
2165:
2159: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2160:
2161: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2162: THEN
2163: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
2164: END IF;
2165:
2166: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2167: p_data => x_msg_data,
2162: THEN
2163: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
2164: END IF;
2165:
2166: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2167: p_data => x_msg_data,
2168: p_encoded => 'F');
2169:
2170: END Delete_Section;
2201: END IF;
2202:
2203: -- Initialize message list if p_init_msg_list is set to TRUE.
2204: IF FND_API.to_Boolean(p_init_msg_list) THEN
2205: FND_MSG_PUB.initialize;
2206: END IF;
2207:
2208: -- Initialize API return status to success
2209: x_return_status := FND_API.G_RET_STS_SUCCESS;
2227: COMMIT WORK;
2228: END IF;
2229:
2230: -- Standard call to get message count and if count is 1, get message info.
2231: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2232: p_data => x_msg_data,
2233: p_encoded => 'F');
2234:
2235: EXCEPTION
2236:
2237: WHEN FND_API.G_EXC_ERROR THEN
2238: ROLLBACK TO UPDATE_DSP_CONTEXT_TO_NULL_GRP;
2239: x_return_status := FND_API.G_RET_STS_ERROR;
2240: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2241: p_data => x_msg_data,
2242: p_encoded => 'F');
2243:
2244: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2243:
2244: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2245: ROLLBACK TO UPDATE_DSP_CONTEXT_TO_NULL_GRP;
2246: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2247: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2248: p_data => x_msg_data,
2249: p_encoded => 'F');
2250:
2251: WHEN OTHERS THEN
2254: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
2255: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
2256: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
2257: FND_MESSAGE.Set_Token('REASON', SQLERRM);
2258: FND_MSG_PUB.Add;
2259:
2260: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2261:
2262: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2258: FND_MSG_PUB.Add;
2259:
2260: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2261:
2262: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2263: THEN
2264: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2265: END IF;
2266:
2260: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2261:
2262: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2263: THEN
2264: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2265: END IF;
2266:
2267: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2268: p_data => x_msg_data,
2263: THEN
2264: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2265: END IF;
2266:
2267: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2268: p_data => x_msg_data,
2269: p_encoded => 'F');
2270:
2271: END Update_Dsp_Context_To_Null;
2302: END IF;
2303:
2304: -- Initialize message list if p_init_msg_list is set to TRUE.
2305: IF FND_API.to_Boolean(p_init_msg_list) THEN
2306: FND_MSG_PUB.initialize;
2307: END IF;
2308:
2309: -- Initialize API return status to success
2310: x_return_status := FND_API.G_RET_STS_SUCCESS;
2328: COMMIT WORK;
2329: END IF;
2330:
2331: -- Standard call to get message count and if count is 1, get message info.
2332: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2333: p_data => x_msg_data,
2334: p_encoded => 'F');
2335:
2336: EXCEPTION
2337:
2338: WHEN FND_API.G_EXC_ERROR THEN
2339: ROLLBACK TO UPDATE_DELIVERABLE_TO_NULL_GRP;
2340: x_return_status := FND_API.G_RET_STS_ERROR;
2341: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2342: p_data => x_msg_data,
2343: p_encoded => 'F');
2344:
2345: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2344:
2345: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2346: ROLLBACK TO UPDATE_DELIVERABLE_TO_NULL_GRP;
2347: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2348: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2349: p_data => x_msg_data,
2350: p_encoded => 'F');
2351:
2352: WHEN OTHERS THEN
2355: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
2356: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
2357: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
2358: FND_MESSAGE.Set_Token('REASON', SQLERRM);
2359: FND_MSG_PUB.Add;
2360:
2361: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2362:
2363: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2359: FND_MSG_PUB.Add;
2360:
2361: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2362:
2363: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2364: THEN
2365: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2366: END IF;
2367:
2361: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2362:
2363: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2364: THEN
2365: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2366: END IF;
2367:
2368: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2369: p_data => x_msg_data,
2364: THEN
2365: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2366: END IF;
2367:
2368: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2369: p_data => x_msg_data,
2370: p_encoded => 'F');
2371:
2372: END Update_Deliverable_To_Null;