945: -- Standard Start of API savepoint
946: SAVEPOINT CLOSECASE_PUB;
947:
948: -- Standard call to check for call compatibility.
949: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
950: p_api_version_number,
951: l_api_name,
952: G_PKG_NAME)
953: THEN
950: p_api_version_number,
951: l_api_name,
952: G_PKG_NAME)
953: THEN
954: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
955: END IF;
956:
957:
958: -- Initialize message list if p_init_msg_list is set to TRUE.
955: END IF;
956:
957:
958: -- Initialize message list if p_init_msg_list is set to TRUE.
959: IF FND_API.to_Boolean( p_init_msg_list )
960: THEN
961: FND_MSG_PUB.initialize;
962: END IF;
963:
966: iex_debug_pub.logMessage('CloseCase: ' || 'After Api compatability Check');
967: END IF;
968:
969: -- Initialize API return status to SUCCESS
970: x_return_status := FND_API.G_RET_STS_SUCCESS;
971: --
972: -- API body
973: --
974: -- ******************************************************************
981: FND_MESSAGE.Set_Name('IEX', 'IEX_CANNOT_GET_PROFILE_VALUE');
982: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
983: FND_MSG_PUB.ADD;
984: END IF;
985: RAISE FND_API.G_EXC_ERROR;
986: END IF;
987: -- IF PG_DEBUG < 10 THEN
988: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
989: iex_debug_pub.logMessage('CloseCase: ' || 'After FND_GLOBAL_USER Check');
989: iex_debug_pub.logMessage('CloseCase: ' || 'After FND_GLOBAL_USER Check');
990: END IF;
991:
992: -- Item level validation
993: IF (p_validation_level > fnd_api.g_valid_level_none) THEN
994:
995: -- Check for valid cas_id
996: BEGIN
997: IF (l_cas_id IS NOT NULL) AND (l_cas_id <> FND_API.G_MISS_NUM) THEN
993: IF (p_validation_level > fnd_api.g_valid_level_none) THEN
994:
995: -- Check for valid cas_id
996: BEGIN
997: IF (l_cas_id IS NOT NULL) AND (l_cas_id <> FND_API.G_MISS_NUM) THEN
998: --May have to check for status_code too.
999: SELECT cas_id,object_version_number
1000: INTO l_cas_id,l_object_version_number
1001: FROM iex_cases_all_b
1005: ELSE
1006: AddMissingArgMsg(
1007: p_api_name => l_api_name_full,
1008: p_param_name => 'p_object_id' );
1009: RAISE FND_API.G_EXC_ERROR;
1010: END IF;
1011: EXCEPTION
1012: WHEN NO_DATA_FOUND THEN
1013: AddInvalidArgMsg(
1013: AddInvalidArgMsg(
1014: p_api_name => l_api_name_full,
1015: p_param_name => 'p_cas_id' ,
1016: p_param_value => p_cas_id);
1017: RAISE FND_API.G_EXC_ERROR;
1018: fnd_msg_pub.add;
1019: RAISE FND_API.G_EXC_ERROR;
1020: WHEN OTHERS THEN
1021: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1015: p_param_name => 'p_cas_id' ,
1016: p_param_value => p_cas_id);
1017: RAISE FND_API.G_EXC_ERROR;
1018: fnd_msg_pub.add;
1019: RAISE FND_API.G_EXC_ERROR;
1020: WHEN OTHERS THEN
1021: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1022: END;
1023:
1017: RAISE FND_API.G_EXC_ERROR;
1018: fnd_msg_pub.add;
1019: RAISE FND_API.G_EXC_ERROR;
1020: WHEN OTHERS THEN
1021: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1022: END;
1023:
1024: END IF; --end of item level validation
1025: -- IF PG_DEBUG < 10 THEN
1037: iex_debug_pub.logMessage('CloseCase: ' || 'Before Calling Update PVT');
1038: END IF;
1039: iex_cases_pvt.update_cas
1040: (P_Api_Version_Number =>l_api_version_number,
1041: P_Init_Msg_List =>FND_API.G_FALSE,
1042: P_Commit =>FND_API.G_FALSE,
1043: p_validation_level =>P_validation_level,
1044: P_cas_Rec =>l_cas_Rec,
1045: X_Return_Status =>l_return_status,
1038: END IF;
1039: iex_cases_pvt.update_cas
1040: (P_Api_Version_Number =>l_api_version_number,
1041: P_Init_Msg_List =>FND_API.G_FALSE,
1042: P_Commit =>FND_API.G_FALSE,
1043: p_validation_level =>P_validation_level,
1044: P_cas_Rec =>l_cas_Rec,
1045: X_Return_Status =>l_return_status,
1046: X_Msg_Count =>l_msg_count,
1050: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1051: iex_debug_pub.logMessage('CloseCase: ' || 'After Calling update case PVT and Status =>'||l_return_status);
1052: END IF;
1053:
1054: IF l_return_status = FND_API.G_RET_STS_ERROR then
1055: AddFailMsg( p_object => 'CASE',
1056: p_operation => 'UPDATE' );
1057: raise FND_API.G_EXC_ERROR;
1058: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1053:
1054: IF l_return_status = FND_API.G_RET_STS_ERROR then
1055: AddFailMsg( p_object => 'CASE',
1056: p_operation => 'UPDATE' );
1057: raise FND_API.G_EXC_ERROR;
1058: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1059: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1060: END IF;
1061: -- Update of case is successful and if Copy object ='Y'
1054: IF l_return_status = FND_API.G_RET_STS_ERROR then
1055: AddFailMsg( p_object => 'CASE',
1056: p_operation => 'UPDATE' );
1057: raise FND_API.G_EXC_ERROR;
1058: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1059: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1060: END IF;
1061: -- Update of case is successful and if Copy object ='Y'
1062: --Create a new case with the same case definition (copy case definition and
1055: AddFailMsg( p_object => 'CASE',
1056: p_operation => 'UPDATE' );
1057: raise FND_API.G_EXC_ERROR;
1058: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1059: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1060: END IF;
1061: -- Update of case is successful and if Copy object ='Y'
1062: --Create a new case with the same case definition (copy case definition and
1063: -- create case definitions for the new case id)
1076:
1077: --Begin bug#5373412 schekuri 10-Jul-2006
1078: --Call new consolidated procedure get_assigned_collector
1079: /*iex_utilities.get_case_resources(p_api_version => 1.0,
1080: p_init_msg_list => FND_API.G_TRUE,
1081: p_commit => FND_API.G_FALSE,
1082: p_validation_level => p_validation_level,
1083: x_msg_count => l_msg_count,
1084: x_msg_data => l_msg_data,
1077: --Begin bug#5373412 schekuri 10-Jul-2006
1078: --Call new consolidated procedure get_assigned_collector
1079: /*iex_utilities.get_case_resources(p_api_version => 1.0,
1080: p_init_msg_list => FND_API.G_TRUE,
1081: p_commit => FND_API.G_FALSE,
1082: p_validation_level => p_validation_level,
1083: x_msg_count => l_msg_count,
1084: x_msg_data => l_msg_data,
1085: x_return_status => l_return_status,
1086: p_party_id => l_cas_rec.party_id,
1087: x_resource_tab => l_resource_tab);*/
1088:
1089: iex_utilities.get_assigned_collector(p_api_version => 1.0,
1090: p_init_msg_list => FND_API.G_TRUE,
1091: p_commit => FND_API.G_FALSE,
1092: p_validation_level => p_validation_level,
1093: p_level => 'CASE',
1094: p_level_id => l_cas_rec.party_id,
1087: x_resource_tab => l_resource_tab);*/
1088:
1089: iex_utilities.get_assigned_collector(p_api_version => 1.0,
1090: p_init_msg_list => FND_API.G_TRUE,
1091: p_commit => FND_API.G_FALSE,
1092: p_validation_level => p_validation_level,
1093: p_level => 'CASE',
1094: p_level_id => l_cas_rec.party_id,
1095: x_msg_count => l_msg_count,
1116: -- ended by ehuh Aug 10 2003
1117:
1118: iex_cases_pvt.Create_CAS(
1119: P_Api_Version_Number =>l_api_version_number,
1120: P_Init_Msg_List =>FND_API.G_FALSE,
1121: P_Commit =>FND_API.G_FALSE,
1122: p_validation_level =>P_validation_level,
1123: P_cas_Rec =>l_cas_Rec,
1124: x_case_id =>l_cas_new_id,
1117:
1118: iex_cases_pvt.Create_CAS(
1119: P_Api_Version_Number =>l_api_version_number,
1120: P_Init_Msg_List =>FND_API.G_FALSE,
1121: P_Commit =>FND_API.G_FALSE,
1122: p_validation_level =>P_validation_level,
1123: P_cas_Rec =>l_cas_Rec,
1124: x_case_id =>l_cas_new_id,
1125: X_Return_Status =>l_return_status,
1128: -- IF PG_DEBUG < 10 THEN
1129: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1130: iex_debug_pub.logMessage('CloseCase: ' || 'After Calling Create Case PVT and Status =>'||l_return_status);
1131: END IF;
1132: IF l_return_status = FND_API.G_RET_STS_ERROR then
1133: AddFailMsg( p_object => 'CASE',
1134: p_operation => 'INSERT' );
1135: raise FND_API.G_EXC_ERROR;
1136: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1131: END IF;
1132: IF l_return_status = FND_API.G_RET_STS_ERROR then
1133: AddFailMsg( p_object => 'CASE',
1134: p_operation => 'INSERT' );
1135: raise FND_API.G_EXC_ERROR;
1136: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1137: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1138: END IF;
1139:
1132: IF l_return_status = FND_API.G_RET_STS_ERROR then
1133: AddFailMsg( p_object => 'CASE',
1134: p_operation => 'INSERT' );
1135: raise FND_API.G_EXC_ERROR;
1136: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1137: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1138: END IF;
1139:
1140: --Get case Case definition for the old case (l_cas_id)
1133: AddFailMsg( p_object => 'CASE',
1134: p_operation => 'INSERT' );
1135: raise FND_API.G_EXC_ERROR;
1136: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1137: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1138: END IF;
1139:
1140: --Get case Case definition for the old case (l_cas_id)
1141: PopulateCaseDefTbl( p_cas_id =>l_cas_id,
1156: iex_debug_pub.logMessage('CloseCase: ' || 'Before Calling Create Case Definition PVT');
1157: END IF;
1158: iex_case_definitions_pvt.create_case_definitions(
1159: P_Api_Version_Number =>l_api_version_number,
1160: P_Init_Msg_List =>FND_API.G_FALSE,
1161: P_Commit =>FND_API.G_FALSE,
1162: p_validation_level =>P_validation_level,
1163: p_case_definition_rec =>l_case_definition_Rec,
1164: x_case_definition_id =>l_case_definition_id,
1157: END IF;
1158: iex_case_definitions_pvt.create_case_definitions(
1159: P_Api_Version_Number =>l_api_version_number,
1160: P_Init_Msg_List =>FND_API.G_FALSE,
1161: P_Commit =>FND_API.G_FALSE,
1162: p_validation_level =>P_validation_level,
1163: p_case_definition_rec =>l_case_definition_Rec,
1164: x_case_definition_id =>l_case_definition_id,
1165: X_Return_Status =>l_return_status,
1168: -- IF PG_DEBUG < 10 THEN
1169: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1170: iex_debug_pub.logMessage('CloseCase: ' || 'After Calling Create Case Definition PVT and Status =>'||l_return_status);
1171: END IF;
1172: IF l_return_status = FND_API.G_RET_STS_ERROR then
1173: AddFailMsg( p_object => 'CASE DEFINITION',
1174: p_operation => 'INSERT' );
1175: raise FND_API.G_EXC_ERROR;
1176: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1171: END IF;
1172: IF l_return_status = FND_API.G_RET_STS_ERROR then
1173: AddFailMsg( p_object => 'CASE DEFINITION',
1174: p_operation => 'INSERT' );
1175: raise FND_API.G_EXC_ERROR;
1176: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1177: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1178: END IF;
1179: END LOOP;
1172: IF l_return_status = FND_API.G_RET_STS_ERROR then
1173: AddFailMsg( p_object => 'CASE DEFINITION',
1174: p_operation => 'INSERT' );
1175: raise FND_API.G_EXC_ERROR;
1176: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1177: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1178: END IF;
1179: END LOOP;
1180: -- IF PG_DEBUG < 10 THEN
1173: AddFailMsg( p_object => 'CASE DEFINITION',
1174: p_operation => 'INSERT' );
1175: raise FND_API.G_EXC_ERROR;
1176: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1177: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1178: END IF;
1179: END LOOP;
1180: -- IF PG_DEBUG < 10 THEN
1181: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1201: iex_debug_pub.logMessage('CloseCase: ' || 'Before Calling update Case Object PVT');
1202: END IF;
1203: iex_case_objects_pvt.update_case_objects(
1204: P_Api_Version_Number =>l_api_version_number,
1205: P_Init_Msg_List =>FND_API.G_FALSE,
1206: P_Commit =>FND_API.G_FALSE,
1207: p_validation_level =>P_validation_level,
1208: P_case_object_Rec =>l_case_object_Rec,
1209: X_Return_Status =>l_return_status,
1202: END IF;
1203: iex_case_objects_pvt.update_case_objects(
1204: P_Api_Version_Number =>l_api_version_number,
1205: P_Init_Msg_List =>FND_API.G_FALSE,
1206: P_Commit =>FND_API.G_FALSE,
1207: p_validation_level =>P_validation_level,
1208: P_case_object_Rec =>l_case_object_Rec,
1209: X_Return_Status =>l_return_status,
1210: X_Msg_Count =>l_msg_count,
1214: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1215: iex_debug_pub.logMessage('CloseCase: ' || 'After Calling update Case Object PVT and Status =>'||l_return_status);
1216: END IF;
1217: -- Check return status from the above procedure call
1218: IF l_return_status = FND_API.G_RET_STS_ERROR then
1219: AddFailMsg( p_object => 'CASE OBJECTS',
1220: p_operation => 'INSERT' );
1221:
1222: raise FND_API.G_EXC_ERROR;
1218: IF l_return_status = FND_API.G_RET_STS_ERROR then
1219: AddFailMsg( p_object => 'CASE OBJECTS',
1220: p_operation => 'INSERT' );
1221:
1222: raise FND_API.G_EXC_ERROR;
1223: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1224: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1225: END IF;
1226: END LOOP;
1219: AddFailMsg( p_object => 'CASE OBJECTS',
1220: p_operation => 'INSERT' );
1221:
1222: raise FND_API.G_EXC_ERROR;
1223: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1224: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1225: END IF;
1226: END LOOP;
1227: END IF; -- p_copy_objects =g_yes
1220: p_operation => 'INSERT' );
1221:
1222: raise FND_API.G_EXC_ERROR;
1223: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1224: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1225: END IF;
1226: END LOOP;
1227: END IF; -- p_copy_objects =g_yes
1228:
1230: -- End of API body.
1231: --
1232:
1233: -- Standard check for p_commit
1234: IF FND_API.to_Boolean( p_commit )
1235: THEN
1236: COMMIT WORK;
1237: END IF;
1238:
1247: p_data => x_msg_data
1248: );
1249:
1250: EXCEPTION
1251: WHEN FND_API.G_EXC_ERROR THEN
1252: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
1253: P_API_NAME => L_API_NAME
1254: ,P_PKG_NAME => G_PKG_NAME
1255: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1257: ,X_MSG_COUNT => X_MSG_COUNT
1258: ,X_MSG_DATA => X_MSG_DATA
1259: ,X_RETURN_STATUS => X_RETURN_STATUS);
1260:
1261: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1262: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
1263: P_API_NAME => L_API_NAME
1264: ,P_PKG_NAME => G_PKG_NAME
1265: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
1358: -- Standard Start of API savepoint
1359: SAVEPOINT CREATECASEOBJECTS_PUB;
1360:
1361: -- Standard call to check for call compatibility.
1362: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1363: p_api_version_number,
1364: l_api_name,
1365: G_PKG_NAME)
1366: THEN
1363: p_api_version_number,
1364: l_api_name,
1365: G_PKG_NAME)
1366: THEN
1367: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1368: END IF;
1369:
1370:
1371: -- Initialize message list if p_init_msg_list is set to TRUE.
1368: END IF;
1369:
1370:
1371: -- Initialize message list if p_init_msg_list is set to TRUE.
1372: IF FND_API.to_Boolean( p_init_msg_list )
1373: THEN
1374: FND_MSG_PUB.initialize;
1375: END IF;
1376:
1379: iex_debug_pub.logMessage('CreateCaseObjects: ' || 'After Api compatability Check');
1380: END IF;
1381:
1382: -- Initialize API return status to SUCCESS
1383: x_return_status := FND_API.G_RET_STS_SUCCESS;
1384: --
1385: -- API body
1386: --
1387: -- ******************************************************************
1394: FND_MESSAGE.Set_Name('IEX', 'IEX_CANNOT_GET_PROFILE_VALUE');
1395: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
1396: FND_MSG_PUB.ADD;
1397: END IF;
1398: RAISE FND_API.G_EXC_ERROR;
1399: END IF;
1400:
1401: -- IF PG_DEBUG < 10 THEN
1402: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1403: iex_debug_pub.logMessage('CreateCaseObjects: ' || 'After FND_GLOBAL_USER Check');
1404: END IF;
1405:
1406: -- Item level validation
1407: --IF (p_validation_level > fnd_api.g_valid_level_none) THEN
1408:
1409: -- Get org_id if not present
1410: IF (p_org_id IS NULL) OR
1411: (p_org_id = FND_API.G_MISS_NUM) THEN
1407: --IF (p_validation_level > fnd_api.g_valid_level_none) THEN
1408:
1409: -- Get org_id if not present
1410: IF (p_org_id IS NULL) OR
1411: (p_org_id = FND_API.G_MISS_NUM) THEN
1412: --Bug#4679639 schekuri 20-OCT-2005
1413: --Used mo_global.get_current_org_id to get ORG_ID
1414: --l_org_id := fnd_profile.value('ORG_ID');
1415: l_org_id := mo_global.get_current_org_id;
1420: END IF;
1421:
1422: --Default Case_established_date to sysdate if null
1423: IF (p_Case_established_date IS NULL)OR
1424: (p_Case_established_date = FND_API.G_MISS_DATE) THEN
1425: l_Case_established_date := sysdate;
1426: END IF;
1427: -- IF PG_DEBUG < 10 THEN
1428: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1430: END IF;
1431:
1432: -- Get object_code if not present
1433: IF (p_object_code IS NULL) OR
1434: (p_object_code = FND_API.G_MISS_CHAR) THEN
1435: l_object_code := 'CONTRACTS';
1436: END IF;
1437: -- IF PG_DEBUG < 10 THEN
1438: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1439: IEX_DEBUG_PUB.LogMessage('CreateCaseObjects: ' || 'After Object Code Check and object is => '||l_object_code);
1440: END IF;
1441:
1442: -- Check for required parameter object_id
1443: IF (p_object_id IS NULL) OR (p_object_id = FND_API.G_MISS_NUM) THEN
1444: -- IF PG_DEBUG < 10 THEN
1445: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1446: IEX_DEBUG_PUB.LogMessage('CreateCaseObjects: ' || 'Required Parameter p_object_id is invalid');
1447: END IF;
1447: END IF;
1448: AddMissingArgMsg(
1449: p_api_name => l_api_name_full,
1450: p_param_name => 'p_object_id' );
1451: RAISE FND_API.G_EXC_ERROR;
1452: END IF;
1453:
1454: -- Check for required parameter party_id
1455: IF (p_party_id IS NULL) OR (p_party_id = FND_API.G_MISS_NUM) THEN
1451: RAISE FND_API.G_EXC_ERROR;
1452: END IF;
1453:
1454: -- Check for required parameter party_id
1455: IF (p_party_id IS NULL) OR (p_party_id = FND_API.G_MISS_NUM) THEN
1456: -- IF PG_DEBUG < 10 THEN
1457: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1458: IEX_DEBUG_PUB.LogMessage('CreateCaseObjects: ' || 'Required Parameter p_party_id is invalid');
1459: END IF;
1459: END IF;
1460: AddMissingArgMsg(
1461: p_api_name => l_api_name_full,
1462: p_param_name => 'p_party_id' );
1463: RAISE FND_API.G_EXC_ERROR;
1464: END IF;
1465:
1466: -- Check for valid cas_id or Case Definition has to be passed
1467: BEGIN
1464: END IF;
1465:
1466: -- Check for valid cas_id or Case Definition has to be passed
1467: BEGIN
1468: IF (l_cas_id IS NOT NULL) AND (l_cas_id <> FND_API.G_MISS_NUM) THEN
1469: SELECT cas_id INTO l_cas_id
1470: FROM iex_cases_all_b
1471: WHERE cas_id = p_cas_id
1472: AND case_state = 'OPEN'
1479: END IF;
1480: AddMissingArgMsg(
1481: p_api_name => l_api_name_full,
1482: p_param_name => 'p_cas_id' );
1483: RAISE FND_API.G_EXC_ERROR;
1484: END IF;
1485: EXCEPTION
1486: WHEN NO_DATA_FOUND THEN
1487: -- IF PG_DEBUG < 10 THEN
1491: AddInvalidArgMsg(
1492: p_api_name => l_api_name_full,
1493: p_param_value => p_cas_id,
1494: p_param_name => 'p_cas_id' );
1495: RAISE FND_API.G_EXC_ERROR;
1496: WHEN OTHERS THEN
1497: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1498: END;
1499:
1493: p_param_value => p_cas_id,
1494: p_param_name => 'p_cas_id' );
1495: RAISE FND_API.G_EXC_ERROR;
1496: WHEN OTHERS THEN
1497: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1498: END;
1499:
1500:
1501: --END IF; --end of item level validation
1510: -- otherwise, check case def, retrieve case number and then
1511: -- call case_object_pvt. If case does not exist, create case defintiton and
1512: -- and create case and then finally create case object.
1513:
1514: IF (l_cas_id IS NOT NULL) AND (l_cas_id <> FND_API.G_MISS_NUM) THEN
1515: -- IF PG_DEBUG < 10 THEN
1516: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1517: iex_debug_pub.logMessage('CreateCaseObjects: ' || 'case Id is passed '||l_cas_id);
1518: END IF;
1528: iex_debug_pub.logMessage('CreateCaseObjects: ' || '---------------------------------');
1529: END IF;
1530: iex_case_objects_pvt.Create_case_objects(
1531: P_Api_Version_Number =>l_api_version_number,
1532: P_Init_Msg_List =>FND_API.G_FALSE,
1533: P_Commit =>FND_API.G_FALSE,
1534: p_validation_level =>P_validation_level,
1535: P_case_object_Rec =>l_case_object_Rec,
1536: x_case_object_id =>l_case_object_id,
1529: END IF;
1530: iex_case_objects_pvt.Create_case_objects(
1531: P_Api_Version_Number =>l_api_version_number,
1532: P_Init_Msg_List =>FND_API.G_FALSE,
1533: P_Commit =>FND_API.G_FALSE,
1534: p_validation_level =>P_validation_level,
1535: P_case_object_Rec =>l_case_object_Rec,
1536: x_case_object_id =>l_case_object_id,
1537: X_Return_Status =>l_return_status,
1542: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1543: iex_debug_pub.logMessage('CreateCaseObjects: ' || 'Status of Create Case object PVT => '||l_return_status);
1544: END IF;
1545: -- Check return status from the above procedure call
1546: IF l_return_status = FND_API.G_RET_STS_ERROR then
1547: FND_MESSAGE.SET_NAME('IEX', 'IEX_FAILED_CREATE_CO');
1548: FND_MSG_PUB.Add;
1549: raise FND_API.G_EXC_ERROR;
1550: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1545: -- Check return status from the above procedure call
1546: IF l_return_status = FND_API.G_RET_STS_ERROR then
1547: FND_MESSAGE.SET_NAME('IEX', 'IEX_FAILED_CREATE_CO');
1548: FND_MSG_PUB.Add;
1549: raise FND_API.G_EXC_ERROR;
1550: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1551: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1552: else
1553: x_case_object_id :=l_case_object_id;
1546: IF l_return_status = FND_API.G_RET_STS_ERROR then
1547: FND_MESSAGE.SET_NAME('IEX', 'IEX_FAILED_CREATE_CO');
1548: FND_MSG_PUB.Add;
1549: raise FND_API.G_EXC_ERROR;
1550: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1551: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1552: else
1553: x_case_object_id :=l_case_object_id;
1554: -- IF PG_DEBUG < 10 THEN
1547: FND_MESSAGE.SET_NAME('IEX', 'IEX_FAILED_CREATE_CO');
1548: FND_MSG_PUB.Add;
1549: raise FND_API.G_EXC_ERROR;
1550: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1551: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1552: else
1553: x_case_object_id :=l_case_object_id;
1554: -- IF PG_DEBUG < 10 THEN
1555: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1606: iex_debug_pub.logMessage('CreateCaseObjects: ' || '---------------------------------');
1607: END IF;
1608: iex_case_objects_pvt.Create_case_objects(
1609: P_Api_Version_Number =>l_api_version_number,
1610: P_Init_Msg_List =>FND_API.G_FALSE,
1611: P_Commit =>FND_API.G_FALSE,
1612: p_validation_level =>P_validation_level,
1613: P_case_object_Rec =>l_case_object_Rec,
1614: x_case_object_id =>l_case_object_id,
1607: END IF;
1608: iex_case_objects_pvt.Create_case_objects(
1609: P_Api_Version_Number =>l_api_version_number,
1610: P_Init_Msg_List =>FND_API.G_FALSE,
1611: P_Commit =>FND_API.G_FALSE,
1612: p_validation_level =>P_validation_level,
1613: P_case_object_Rec =>l_case_object_Rec,
1614: x_case_object_id =>l_case_object_id,
1615: X_Return_Status =>l_return_status,
1619: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1620: iex_debug_pub.logMessage('CreateCaseObjects: ' || 'After Calling Create Case Object PVT and Status =>'||l_return_status);
1621: END IF;
1622: -- Check return status from the above procedure call
1623: IF l_return_status = FND_API.G_RET_STS_ERROR then
1624: AddFailMsg( p_object => 'CASE OBJECTS',
1625: p_operation => 'INSERT' );
1626: raise FND_API.G_EXC_ERROR;
1627: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1622: -- Check return status from the above procedure call
1623: IF l_return_status = FND_API.G_RET_STS_ERROR then
1624: AddFailMsg( p_object => 'CASE OBJECTS',
1625: p_operation => 'INSERT' );
1626: raise FND_API.G_EXC_ERROR;
1627: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1628: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1629: else
1630: x_case_object_id :=l_case_object_id;
1623: IF l_return_status = FND_API.G_RET_STS_ERROR then
1624: AddFailMsg( p_object => 'CASE OBJECTS',
1625: p_operation => 'INSERT' );
1626: raise FND_API.G_EXC_ERROR;
1627: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1628: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1629: else
1630: x_case_object_id :=l_case_object_id;
1631: -- IF PG_DEBUG < 10 THEN
1624: AddFailMsg( p_object => 'CASE OBJECTS',
1625: p_operation => 'INSERT' );
1626: raise FND_API.G_EXC_ERROR;
1627: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1628: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1629: else
1630: x_case_object_id :=l_case_object_id;
1631: -- IF PG_DEBUG < 10 THEN
1632: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1655: begin
1656: --Begin bug#5373412 schekuri 10-Jul-2006
1657: --Call new consolidated procedure get_assigned_collector
1658: /*iex_utilities.get_case_resources(p_api_version => 1.0,
1659: p_init_msg_list => FND_API.G_TRUE,
1660: p_commit => FND_API.G_FALSE,
1661: p_validation_level => p_validation_level,
1662: x_msg_count => l_msg_count,
1663: x_msg_data => l_msg_data,
1656: --Begin bug#5373412 schekuri 10-Jul-2006
1657: --Call new consolidated procedure get_assigned_collector
1658: /*iex_utilities.get_case_resources(p_api_version => 1.0,
1659: p_init_msg_list => FND_API.G_TRUE,
1660: p_commit => FND_API.G_FALSE,
1661: p_validation_level => p_validation_level,
1662: x_msg_count => l_msg_count,
1663: x_msg_data => l_msg_data,
1664: x_return_status => l_return_status,
1672: close c_orig_system_source;
1673: if l_orig_system_source<>'OKL_IMPORT' then
1674:
1675: iex_utilities.get_assigned_collector(p_api_version => 1.0,
1676: p_init_msg_list => FND_API.G_TRUE,
1677: p_commit => FND_API.G_FALSE,
1678: p_validation_level => p_validation_level,
1679: p_level => 'CASE',
1680: p_level_id => l_cas_rec.party_id,
1673: if l_orig_system_source<>'OKL_IMPORT' then
1674:
1675: iex_utilities.get_assigned_collector(p_api_version => 1.0,
1676: p_init_msg_list => FND_API.G_TRUE,
1677: p_commit => FND_API.G_FALSE,
1678: p_validation_level => p_validation_level,
1679: p_level => 'CASE',
1680: p_level_id => l_cas_rec.party_id,
1681: x_msg_count => l_msg_count,
1714: END IF;
1715:
1716: iex_cases_pvt.Create_CAS(
1717: P_Api_Version_Number =>l_api_version_number,
1718: P_Init_Msg_List =>FND_API.G_FALSE,
1719: P_Commit =>FND_API.G_FALSE,
1720: p_validation_level =>P_validation_level,
1721: P_cas_Rec =>l_cas_Rec,
1722: x_case_id =>l_cas_id,
1715:
1716: iex_cases_pvt.Create_CAS(
1717: P_Api_Version_Number =>l_api_version_number,
1718: P_Init_Msg_List =>FND_API.G_FALSE,
1719: P_Commit =>FND_API.G_FALSE,
1720: p_validation_level =>P_validation_level,
1721: P_cas_Rec =>l_cas_Rec,
1722: x_case_id =>l_cas_id,
1723: X_Return_Status =>l_return_status,
1726: -- IF PG_DEBUG < 10 THEN
1727: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1728: iex_debug_pub.logMessage('CreateCaseObjects: ' || 'After Calling Create Case PVT and Status =>'||l_return_status);
1729: END IF;
1730: IF l_return_status = FND_API.G_RET_STS_ERROR then
1731: AddFailMsg( p_object => 'CASE',
1732: p_operation => 'INSERT' );
1733: raise FND_API.G_EXC_ERROR;
1734: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1729: END IF;
1730: IF l_return_status = FND_API.G_RET_STS_ERROR then
1731: AddFailMsg( p_object => 'CASE',
1732: p_operation => 'INSERT' );
1733: raise FND_API.G_EXC_ERROR;
1734: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1735: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1736: END IF;
1737: --Call iex_case_definition_pvt to create case_def
1730: IF l_return_status = FND_API.G_RET_STS_ERROR then
1731: AddFailMsg( p_object => 'CASE',
1732: p_operation => 'INSERT' );
1733: raise FND_API.G_EXC_ERROR;
1734: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1735: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1736: END IF;
1737: --Call iex_case_definition_pvt to create case_def
1738: FOR i IN 1..P_case_definition_tbl.COUNT LOOP
1731: AddFailMsg( p_object => 'CASE',
1732: p_operation => 'INSERT' );
1733: raise FND_API.G_EXC_ERROR;
1734: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1735: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1736: END IF;
1737: --Call iex_case_definition_pvt to create case_def
1738: FOR i IN 1..P_case_definition_tbl.COUNT LOOP
1739: --Populate Case Definition record
1752: iex_debug_pub.logMessage('CreateCaseObjects: ' || '---------------------------------');
1753: END IF;
1754: iex_case_definitions_pvt.create_case_definitions(
1755: P_Api_Version_Number =>l_api_version_number,
1756: P_Init_Msg_List =>FND_API.G_FALSE,
1757: P_Commit =>FND_API.G_FALSE,
1758: p_validation_level =>P_validation_level,
1759: p_case_definition_rec =>l_case_definition_Rec,
1760: x_case_definition_id =>l_case_definition_id,
1753: END IF;
1754: iex_case_definitions_pvt.create_case_definitions(
1755: P_Api_Version_Number =>l_api_version_number,
1756: P_Init_Msg_List =>FND_API.G_FALSE,
1757: P_Commit =>FND_API.G_FALSE,
1758: p_validation_level =>P_validation_level,
1759: p_case_definition_rec =>l_case_definition_Rec,
1760: x_case_definition_id =>l_case_definition_id,
1761: X_Return_Status =>l_return_status,
1764: -- IF PG_DEBUG < 10 THEN
1765: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1766: iex_debug_pub.logMessage('CreateCaseObjects: ' || 'After Calling Create Case Definition PVT and Status =>'||l_return_status);
1767: END IF;
1768: IF l_return_status = FND_API.G_RET_STS_ERROR then
1769: AddFailMsg( p_object => 'CASE DEFINITIONS',
1770: p_operation => 'INSERT' );
1771: raise FND_API.G_EXC_ERROR;
1772: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1767: END IF;
1768: IF l_return_status = FND_API.G_RET_STS_ERROR then
1769: AddFailMsg( p_object => 'CASE DEFINITIONS',
1770: p_operation => 'INSERT' );
1771: raise FND_API.G_EXC_ERROR;
1772: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1773: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1774: END IF;
1775: END LOOP;
1768: IF l_return_status = FND_API.G_RET_STS_ERROR then
1769: AddFailMsg( p_object => 'CASE DEFINITIONS',
1770: p_operation => 'INSERT' );
1771: raise FND_API.G_EXC_ERROR;
1772: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1773: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1774: END IF;
1775: END LOOP;
1776: --Populate Case object record
1769: AddFailMsg( p_object => 'CASE DEFINITIONS',
1770: p_operation => 'INSERT' );
1771: raise FND_API.G_EXC_ERROR;
1772: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1773: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1774: END IF;
1775: END LOOP;
1776: --Populate Case object record
1777: PopulateCaseObjectRec(p_object_code =>l_object_code,
1789: iex_debug_pub.logMessage('CreateCaseObjects: ' || '---------------------------------');
1790: END IF;
1791: iex_case_objects_pvt.Create_case_objects(
1792: P_Api_Version_Number =>l_api_version_number,
1793: P_Init_Msg_List =>FND_API.G_FALSE,
1794: P_Commit =>FND_API.G_FALSE,
1795: p_validation_level =>P_validation_level,
1796: P_case_object_Rec =>l_case_object_Rec,
1797: x_case_object_id =>l_case_object_id,
1790: END IF;
1791: iex_case_objects_pvt.Create_case_objects(
1792: P_Api_Version_Number =>l_api_version_number,
1793: P_Init_Msg_List =>FND_API.G_FALSE,
1794: P_Commit =>FND_API.G_FALSE,
1795: p_validation_level =>P_validation_level,
1796: P_case_object_Rec =>l_case_object_Rec,
1797: x_case_object_id =>l_case_object_id,
1798: X_Return_Status =>l_return_status,
1802: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1803: iex_debug_pub.logMessage('CreateCaseObjects: ' || 'After Calling Create Case Object PVT and Status =>'||l_return_status);
1804: END IF;
1805: -- Check return status from the above procedure call
1806: IF l_return_status = FND_API.G_RET_STS_ERROR then
1807: AddFailMsg( p_object => 'CASE OBJECTS',
1808: p_operation => 'INSERT' );
1809: raise FND_API.G_EXC_ERROR;
1810: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1805: -- Check return status from the above procedure call
1806: IF l_return_status = FND_API.G_RET_STS_ERROR then
1807: AddFailMsg( p_object => 'CASE OBJECTS',
1808: p_operation => 'INSERT' );
1809: raise FND_API.G_EXC_ERROR;
1810: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1811: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1812: else
1813: x_case_object_id :=l_case_object_id;
1806: IF l_return_status = FND_API.G_RET_STS_ERROR then
1807: AddFailMsg( p_object => 'CASE OBJECTS',
1808: p_operation => 'INSERT' );
1809: raise FND_API.G_EXC_ERROR;
1810: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1811: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1812: else
1813: x_case_object_id :=l_case_object_id;
1814: -- IF PG_DEBUG < 10 THEN
1807: AddFailMsg( p_object => 'CASE OBJECTS',
1808: p_operation => 'INSERT' );
1809: raise FND_API.G_EXC_ERROR;
1810: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1811: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1812: else
1813: x_case_object_id :=l_case_object_id;
1814: -- IF PG_DEBUG < 10 THEN
1815: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1827: AddInvalidArgMsg(
1828: p_api_name => l_api_name_full,
1829: p_param_value => 'P_case_definition_tbl',
1830: p_param_name => 'P_case_definition_tbl' );
1831: RAISE FND_API.G_EXC_ERROR;
1832:
1833: END IF; --If CheckCaseDef(P_case_definition_tbl)
1834: END IF; -- (l_cas_id IS NOT NULL) OR (l_cas_id <> FND_API.G_MISS_NUM)
1835:
1830: p_param_name => 'P_case_definition_tbl' );
1831: RAISE FND_API.G_EXC_ERROR;
1832:
1833: END IF; --If CheckCaseDef(P_case_definition_tbl)
1834: END IF; -- (l_cas_id IS NOT NULL) OR (l_cas_id <> FND_API.G_MISS_NUM)
1835:
1836: --
1837: -- End of API body.
1838: --
1837: -- End of API body.
1838: --
1839:
1840: -- Standard check for p_commit
1841: IF FND_API.to_Boolean( p_commit )
1842: THEN
1843: COMMIT WORK;
1844: END IF;
1845:
1853: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1854: IEX_DEBUG_PUB.LogMessage ('CreateCaseObjects: ' || '*********End of Procedure => '||l_api_name||' *********');
1855: END IF;
1856: EXCEPTION
1857: WHEN FND_API.G_EXC_ERROR THEN
1858: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
1859: P_API_NAME => L_API_NAME
1860: ,P_PKG_NAME => G_PKG_NAME
1861: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1863: ,X_MSG_COUNT => X_MSG_COUNT
1864: ,X_MSG_DATA => X_MSG_DATA
1865: ,X_RETURN_STATUS => X_RETURN_STATUS);
1866:
1867: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1868: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
1869: P_API_NAME => L_API_NAME
1870: ,P_PKG_NAME => G_PKG_NAME
1871: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
1981: -- Standard Start of API savepoint
1982: SAVEPOINT REASSIGNCASEOBJECTS_PUB;
1983:
1984: -- Standard call to check for call compatibility.
1985: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1986: p_api_version_number,
1987: l_api_name,
1988: G_PKG_NAME)
1989: THEN
1986: p_api_version_number,
1987: l_api_name,
1988: G_PKG_NAME)
1989: THEN
1990: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1991: END IF;
1992:
1993:
1994: -- Initialize message list if p_init_msg_list is set to TRUE.
1991: END IF;
1992:
1993:
1994: -- Initialize message list if p_init_msg_list is set to TRUE.
1995: IF FND_API.to_Boolean( p_init_msg_list )
1996: THEN
1997: FND_MSG_PUB.initialize;
1998: END IF;
1999:
2002: iex_debug_pub.logMessage('ReassignCaseObjects: ' || 'After Api compatability Check');
2003: END IF;
2004:
2005: -- Initialize API return status to SUCCESS
2006: x_return_status := FND_API.G_RET_STS_SUCCESS;
2007: l_return_status := FND_API.G_RET_STS_SUCCESS;
2008:
2009: --
2010: -- API body
2003: END IF;
2004:
2005: -- Initialize API return status to SUCCESS
2006: x_return_status := FND_API.G_RET_STS_SUCCESS;
2007: l_return_status := FND_API.G_RET_STS_SUCCESS;
2008:
2009: --
2010: -- API body
2011: --
2019: FND_MESSAGE.Set_Name('IEX', 'IEX_CANNOT_GET_PROFILE_VALUE');
2020: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
2021: FND_MSG_PUB.ADD;
2022: END IF;
2023: RAISE FND_API.G_EXC_ERROR;
2024: END IF;
2025:
2026: -- IF PG_DEBUG < 10 THEN
2027: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2028: iex_debug_pub.logMessage('ReassignCaseObjects: ' || 'After FND_GLOBAL_USER Check');
2029: END IF;
2030:
2031: -- Item level validation
2032: --IF (p_validation_level > fnd_api.g_valid_level_none) THEN
2033:
2034: -- Get org_id if not present
2035: IF (p_org_id IS NULL) OR
2036: (p_org_id = FND_API.G_MISS_NUM) THEN
2032: --IF (p_validation_level > fnd_api.g_valid_level_none) THEN
2033:
2034: -- Get org_id if not present
2035: IF (p_org_id IS NULL) OR
2036: (p_org_id = FND_API.G_MISS_NUM) THEN
2037:
2038: --Bug#4679639 schekuri 20-OCT-2005
2039: --Used mo_global.get_current_org_id to get ORG_ID
2040: --l_org_id := fnd_profile.value('ORG_ID');
2046: END IF;
2047:
2048: --Default Case_established_date to sysdate if null
2049: IF (p_Case_established_date IS NULL)OR
2050: (p_Case_established_date = FND_API.G_MISS_DATE) THEN
2051: l_Case_established_date := sysdate;
2052: END IF;
2053: -- IF PG_DEBUG < 10 THEN
2054: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2056: END IF;
2057:
2058: -- Get object_code if not present
2059: IF (p_object_code IS NULL) OR
2060: (p_object_code = FND_API.G_MISS_CHAR) THEN
2061: l_object_code := 'CONTRACTS';
2062: END IF;
2063: -- IF PG_DEBUG < 10 THEN
2064: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2065: IEX_DEBUG_PUB.LogMessage('ReassignCaseObjects: ' || 'After Object Code Check and object is => '||l_object_code);
2066: END IF;
2067:
2068: -- Check for required parameter object_id
2069: IF (p_object_id IS NULL) OR (p_object_id = FND_API.G_MISS_NUM) THEN
2070: -- IF PG_DEBUG < 10 THEN
2071: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2072: IEX_DEBUG_PUB.LogMessage('ReassignCaseObjects: ' || 'Required Parameter p_object_id is invalid');
2073: END IF;
2073: END IF;
2074: AddMissingArgMsg(
2075: p_api_name => l_api_name_full,
2076: p_param_name => 'p_object_id' );
2077: RAISE FND_API.G_EXC_ERROR;
2078: END IF;
2079:
2080: -- Check for required parameter party_id
2081: IF (p_party_id IS NULL) OR (p_party_id = FND_API.G_MISS_NUM) THEN
2077: RAISE FND_API.G_EXC_ERROR;
2078: END IF;
2079:
2080: -- Check for required parameter party_id
2081: IF (p_party_id IS NULL) OR (p_party_id = FND_API.G_MISS_NUM) THEN
2082: -- IF PG_DEBUG < 10 THEN
2083: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2084: IEX_DEBUG_PUB.LogMessage('ReassignCaseObjects: ' || 'Required Parameter p_party_id is invalid');
2085: END IF;
2085: END IF;
2086: AddMissingArgMsg(
2087: p_api_name => l_api_name_full,
2088: p_param_name => 'p_party_id' );
2089: RAISE FND_API.G_EXC_ERROR;
2090: END IF;
2091:
2092: -- Check for valid cas_id or Case Definition has to be passed
2093: BEGIN
2090: END IF;
2091:
2092: -- Check for valid cas_id or Case Definition has to be passed
2093: BEGIN
2094: IF (l_cas_id IS NOT NULL) AND (l_cas_id <> FND_API.G_MISS_NUM) THEN
2095: SELECT cas_id INTO l_cas_id
2096: FROM iex_cases_all_b
2097: WHERE cas_id = p_cas_id
2098: AND case_state = 'OPEN'
2105: END IF;
2106: AddMissingArgMsg(
2107: p_api_name => l_api_name_full,
2108: p_param_name => 'p_cas_id' );
2109: RAISE FND_API.G_EXC_ERROR;
2110: END IF;
2111: EXCEPTION
2112: WHEN NO_DATA_FOUND THEN
2113: -- IF PG_DEBUG < 10 THEN
2117: AddInvalidArgMsg(
2118: p_api_name => l_api_name_full,
2119: p_param_value => p_cas_id,
2120: p_param_name => 'p_cas_id' );
2121: RAISE FND_API.G_EXC_ERROR;
2122: WHEN OTHERS THEN
2123: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2124: END;
2125:
2119: p_param_value => p_cas_id,
2120: p_param_name => 'p_cas_id' );
2121: RAISE FND_API.G_EXC_ERROR;
2122: WHEN OTHERS THEN
2123: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2124: END;
2125:
2126: -- Store the old case Id , will be used for re-score
2127: BEGIN
2155: fnd_message.set_token('DEL_ID', x_del_id);
2156: fnd_message.set_token('CASE_ID',l_old_case_id);
2157: fnd_message.set_token('CON_NUM',l_contract_number);
2158: fnd_msg_pub.add;
2159: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2160:
2161: END IF;
2162:
2163: --Delete the contract/object from case objects table
2166: where object_id =p_object_id;
2167:
2168: iex_case_objects_pvt.delete_case_objects(
2169: P_Api_Version_Number =>l_api_version_number,
2170: P_Init_Msg_List =>FND_API.G_TRUE,
2171: P_Commit =>FND_API.G_FALSE,
2172: p_validation_level =>P_validation_level,
2173: P_case_object_ID =>l_case_object_id,
2174: X_Return_Status =>l_return_status,
2167:
2168: iex_case_objects_pvt.delete_case_objects(
2169: P_Api_Version_Number =>l_api_version_number,
2170: P_Init_Msg_List =>FND_API.G_TRUE,
2171: P_Commit =>FND_API.G_FALSE,
2172: p_validation_level =>P_validation_level,
2173: P_case_object_ID =>l_case_object_id,
2174: X_Return_Status =>l_return_status,
2175: X_Msg_Count =>l_msg_count,
2174: X_Return_Status =>l_return_status,
2175: X_Msg_Count =>l_msg_count,
2176: X_Msg_Data =>l_msg_data);
2177:
2178: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
2179: AddFailMsg( p_object => 'CASE OBJECTS',
2180: p_operation => 'DELETE' );
2181: raise FND_API.G_EXC_ERROR;
2182: ELSE
2177:
2178: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
2179: AddFailMsg( p_object => 'CASE OBJECTS',
2180: p_operation => 'DELETE' );
2181: raise FND_API.G_EXC_ERROR;
2182: ELSE
2183: -- IF PG_DEBUG < 10 THEN
2184: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2185: iex_debug_pub.logmessage ('ReassignCaseObjects: ' || 'deletion of ' || p_object_id
2201: -- otherwise, check case def, retrieve case number and then
2202: -- call case_object_pvt. If case does not exist, create case defintiton and
2203: -- and create case and then finally create case object.
2204:
2205: IF (l_cas_id IS NOT NULL) AND (l_cas_id <> FND_API.G_MISS_NUM) THEN
2206: -- IF PG_DEBUG < 10 THEN
2207: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2208: iex_debug_pub.logMessage('ReassignCaseObjects: ' || 'case Id is passed '||l_cas_id);
2209: END IF;
2219: iex_debug_pub.logMessage('ReassignCaseObjects: ' || '---------------------------------');
2220: END IF;
2221: iex_case_objects_pvt.Create_case_objects(
2222: P_Api_Version_Number =>l_api_version_number,
2223: P_Init_Msg_List =>FND_API.G_FALSE,
2224: P_Commit =>FND_API.G_FALSE,
2225: p_validation_level =>P_validation_level,
2226: P_case_object_Rec =>l_case_object_Rec,
2227: x_case_object_id =>l_case_object_id,
2220: END IF;
2221: iex_case_objects_pvt.Create_case_objects(
2222: P_Api_Version_Number =>l_api_version_number,
2223: P_Init_Msg_List =>FND_API.G_FALSE,
2224: P_Commit =>FND_API.G_FALSE,
2225: p_validation_level =>P_validation_level,
2226: P_case_object_Rec =>l_case_object_Rec,
2227: x_case_object_id =>l_case_object_id,
2228: X_Return_Status =>l_return_status,
2233: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2234: iex_debug_pub.logMessage('ReassignCaseObjects: ' || 'Status of Create Case object PVT => '||l_return_status);
2235: END IF;
2236: -- Check return status from the above procedure call
2237: IF l_return_status = FND_API.G_RET_STS_ERROR then
2238: FND_MESSAGE.SET_NAME('IEX', 'IEX_FAILED_CREATE_CO');
2239: FND_MSG_PUB.Add;
2240: raise FND_API.G_EXC_ERROR;
2241: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2236: -- Check return status from the above procedure call
2237: IF l_return_status = FND_API.G_RET_STS_ERROR then
2238: FND_MESSAGE.SET_NAME('IEX', 'IEX_FAILED_CREATE_CO');
2239: FND_MSG_PUB.Add;
2240: raise FND_API.G_EXC_ERROR;
2241: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2242: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2243: else
2244: x_case_object_id :=l_case_object_id;
2237: IF l_return_status = FND_API.G_RET_STS_ERROR then
2238: FND_MESSAGE.SET_NAME('IEX', 'IEX_FAILED_CREATE_CO');
2239: FND_MSG_PUB.Add;
2240: raise FND_API.G_EXC_ERROR;
2241: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2242: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2243: else
2244: x_case_object_id :=l_case_object_id;
2245: -- IF PG_DEBUG < 10 THEN
2238: FND_MESSAGE.SET_NAME('IEX', 'IEX_FAILED_CREATE_CO');
2239: FND_MSG_PUB.Add;
2240: raise FND_API.G_EXC_ERROR;
2241: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2242: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2243: else
2244: x_case_object_id :=l_case_object_id;
2245: -- IF PG_DEBUG < 10 THEN
2246: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2297: iex_debug_pub.logMessage('ReassignCaseObjects: ' || '---------------------------------');
2298: END IF;
2299: iex_case_objects_pvt.Create_case_objects(
2300: P_Api_Version_Number =>l_api_version_number,
2301: P_Init_Msg_List =>FND_API.G_FALSE,
2302: P_Commit =>FND_API.G_FALSE,
2303: p_validation_level =>P_validation_level,
2304: P_case_object_Rec =>l_case_object_Rec,
2305: x_case_object_id =>l_case_object_id,
2298: END IF;
2299: iex_case_objects_pvt.Create_case_objects(
2300: P_Api_Version_Number =>l_api_version_number,
2301: P_Init_Msg_List =>FND_API.G_FALSE,
2302: P_Commit =>FND_API.G_FALSE,
2303: p_validation_level =>P_validation_level,
2304: P_case_object_Rec =>l_case_object_Rec,
2305: x_case_object_id =>l_case_object_id,
2306: X_Return_Status =>l_return_status,
2310: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2311: iex_debug_pub.logMessage('ReassignCaseObjects: ' || 'After Calling Create Case Object PVT and Status =>'||l_return_status);
2312: END IF;
2313: -- Check return status from the above procedure call
2314: IF l_return_status = FND_API.G_RET_STS_ERROR then
2315: AddFailMsg( p_object => 'CASE OBJECTS',
2316: p_operation => 'INSERT' );
2317: raise FND_API.G_EXC_ERROR;
2318: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2313: -- Check return status from the above procedure call
2314: IF l_return_status = FND_API.G_RET_STS_ERROR then
2315: AddFailMsg( p_object => 'CASE OBJECTS',
2316: p_operation => 'INSERT' );
2317: raise FND_API.G_EXC_ERROR;
2318: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2319: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2320: else
2321: x_case_object_id :=l_case_object_id;
2314: IF l_return_status = FND_API.G_RET_STS_ERROR then
2315: AddFailMsg( p_object => 'CASE OBJECTS',
2316: p_operation => 'INSERT' );
2317: raise FND_API.G_EXC_ERROR;
2318: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2319: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2320: else
2321: x_case_object_id :=l_case_object_id;
2322: -- IF PG_DEBUG < 10 THEN
2315: AddFailMsg( p_object => 'CASE OBJECTS',
2316: p_operation => 'INSERT' );
2317: raise FND_API.G_EXC_ERROR;
2318: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2319: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2320: else
2321: x_case_object_id :=l_case_object_id;
2322: -- IF PG_DEBUG < 10 THEN
2323: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2357:
2358: --Begin bug#5373412 schekuri 10-Jul-2006
2359: --Call new consolidated procedure get_assigned_collector
2360: /*iex_utilities.get_case_resources(p_api_version => 1.0,
2361: p_init_msg_list => FND_API.G_TRUE,
2362: p_commit => FND_API.G_FALSE,
2363: p_validation_level => p_validation_level,
2364: x_msg_count => l_msg_count,
2365: x_msg_data => l_msg_data,
2358: --Begin bug#5373412 schekuri 10-Jul-2006
2359: --Call new consolidated procedure get_assigned_collector
2360: /*iex_utilities.get_case_resources(p_api_version => 1.0,
2361: p_init_msg_list => FND_API.G_TRUE,
2362: p_commit => FND_API.G_FALSE,
2363: p_validation_level => p_validation_level,
2364: x_msg_count => l_msg_count,
2365: x_msg_data => l_msg_data,
2366: x_return_status => l_return_status,
2367: p_party_id => l_cas_rec.party_id,
2368: x_resource_tab => l_resource_tab);*/
2369:
2370: iex_utilities.get_assigned_collector(p_api_version => 1.0,
2371: p_init_msg_list => FND_API.G_TRUE,
2372: p_commit => FND_API.G_FALSE,
2373: p_validation_level => p_validation_level,
2374: p_level => 'CASE',
2375: p_level_id => l_cas_rec.party_id,
2368: x_resource_tab => l_resource_tab);*/
2369:
2370: iex_utilities.get_assigned_collector(p_api_version => 1.0,
2371: p_init_msg_list => FND_API.G_TRUE,
2372: p_commit => FND_API.G_FALSE,
2373: p_validation_level => p_validation_level,
2374: p_level => 'CASE',
2375: p_level_id => l_cas_rec.party_id,
2376: x_msg_count => l_msg_count,
2400: -- ended by ehuh Aug 10 2003
2401:
2402: iex_cases_pvt.Create_CAS(
2403: P_Api_Version_Number =>l_api_version_number,
2404: P_Init_Msg_List =>FND_API.G_FALSE,
2405: P_Commit =>FND_API.G_FALSE,
2406: p_validation_level =>P_validation_level,
2407: P_cas_Rec =>l_cas_Rec,
2408: x_case_id =>l_cas_id,
2401:
2402: iex_cases_pvt.Create_CAS(
2403: P_Api_Version_Number =>l_api_version_number,
2404: P_Init_Msg_List =>FND_API.G_FALSE,
2405: P_Commit =>FND_API.G_FALSE,
2406: p_validation_level =>P_validation_level,
2407: P_cas_Rec =>l_cas_Rec,
2408: x_case_id =>l_cas_id,
2409: X_Return_Status =>l_return_status,
2412: -- IF PG_DEBUG < 10 THEN
2413: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2414: iex_debug_pub.logMessage('ReassignCaseObjects: ' || 'After Calling Create Case PVT and Status =>'||l_return_status);
2415: END IF;
2416: IF l_return_status = FND_API.G_RET_STS_ERROR then
2417: AddFailMsg( p_object => 'CASE',
2418: p_operation => 'INSERT' );
2419: raise FND_API.G_EXC_ERROR;
2420: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2415: END IF;
2416: IF l_return_status = FND_API.G_RET_STS_ERROR then
2417: AddFailMsg( p_object => 'CASE',
2418: p_operation => 'INSERT' );
2419: raise FND_API.G_EXC_ERROR;
2420: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2421: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2422: END IF;
2423: --Call iex_case_definition_pvt to create case_def
2416: IF l_return_status = FND_API.G_RET_STS_ERROR then
2417: AddFailMsg( p_object => 'CASE',
2418: p_operation => 'INSERT' );
2419: raise FND_API.G_EXC_ERROR;
2420: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2421: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2422: END IF;
2423: --Call iex_case_definition_pvt to create case_def
2424: FOR i IN 1..P_case_definition_tbl.COUNT LOOP
2417: AddFailMsg( p_object => 'CASE',
2418: p_operation => 'INSERT' );
2419: raise FND_API.G_EXC_ERROR;
2420: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2421: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2422: END IF;
2423: --Call iex_case_definition_pvt to create case_def
2424: FOR i IN 1..P_case_definition_tbl.COUNT LOOP
2425: --Populate Case Definition record
2438: iex_debug_pub.logMessage('ReassignCaseObjects: ' || '---------------------------------');
2439: END IF;
2440: iex_case_definitions_pvt.create_case_definitions(
2441: P_Api_Version_Number =>l_api_version_number,
2442: P_Init_Msg_List =>FND_API.G_FALSE,
2443: P_Commit =>FND_API.G_FALSE,
2444: p_validation_level =>P_validation_level,
2445: p_case_definition_rec =>l_case_definition_Rec,
2446: x_case_definition_id =>l_case_definition_id,
2439: END IF;
2440: iex_case_definitions_pvt.create_case_definitions(
2441: P_Api_Version_Number =>l_api_version_number,
2442: P_Init_Msg_List =>FND_API.G_FALSE,
2443: P_Commit =>FND_API.G_FALSE,
2444: p_validation_level =>P_validation_level,
2445: p_case_definition_rec =>l_case_definition_Rec,
2446: x_case_definition_id =>l_case_definition_id,
2447: X_Return_Status =>l_return_status,
2450: -- IF PG_DEBUG < 10 THEN
2451: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2452: iex_debug_pub.logMessage('ReassignCaseObjects: ' || 'After Calling Create Case Definition PVT and Status =>'||l_return_status);
2453: END IF;
2454: IF l_return_status = FND_API.G_RET_STS_ERROR then
2455: AddFailMsg( p_object => 'CASE DEFINITIONS',
2456: p_operation => 'INSERT' );
2457: raise FND_API.G_EXC_ERROR;
2458: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2453: END IF;
2454: IF l_return_status = FND_API.G_RET_STS_ERROR then
2455: AddFailMsg( p_object => 'CASE DEFINITIONS',
2456: p_operation => 'INSERT' );
2457: raise FND_API.G_EXC_ERROR;
2458: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2459: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2460: END IF;
2461: END LOOP;
2454: IF l_return_status = FND_API.G_RET_STS_ERROR then
2455: AddFailMsg( p_object => 'CASE DEFINITIONS',
2456: p_operation => 'INSERT' );
2457: raise FND_API.G_EXC_ERROR;
2458: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2459: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2460: END IF;
2461: END LOOP;
2462: --Populate Case object record
2455: AddFailMsg( p_object => 'CASE DEFINITIONS',
2456: p_operation => 'INSERT' );
2457: raise FND_API.G_EXC_ERROR;
2458: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2459: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2460: END IF;
2461: END LOOP;
2462: --Populate Case object record
2463: PopulateCaseObjectRec(p_object_code =>l_object_code,
2475: iex_debug_pub.logMessage('ReassignCaseObjects: ' || '---------------------------------');
2476: END IF;
2477: iex_case_objects_pvt.Create_case_objects(
2478: P_Api_Version_Number =>l_api_version_number,
2479: P_Init_Msg_List =>FND_API.G_FALSE,
2480: P_Commit =>FND_API.G_FALSE,
2481: p_validation_level =>P_validation_level,
2482: P_case_object_Rec =>l_case_object_Rec,
2483: x_case_object_id =>l_case_object_id,
2476: END IF;
2477: iex_case_objects_pvt.Create_case_objects(
2478: P_Api_Version_Number =>l_api_version_number,
2479: P_Init_Msg_List =>FND_API.G_FALSE,
2480: P_Commit =>FND_API.G_FALSE,
2481: p_validation_level =>P_validation_level,
2482: P_case_object_Rec =>l_case_object_Rec,
2483: x_case_object_id =>l_case_object_id,
2484: X_Return_Status =>l_return_status,
2488: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2489: iex_debug_pub.logMessage('ReassignCaseObjects: ' || 'After Calling Create Case Object PVT and Status =>'||l_return_status);
2490: END IF;
2491: -- Check return status from the above procedure call
2492: IF l_return_status = FND_API.G_RET_STS_ERROR then
2493: AddFailMsg( p_object => 'CASE OBJECTS',
2494: p_operation => 'INSERT' );
2495: raise FND_API.G_EXC_ERROR;
2496: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2491: -- Check return status from the above procedure call
2492: IF l_return_status = FND_API.G_RET_STS_ERROR then
2493: AddFailMsg( p_object => 'CASE OBJECTS',
2494: p_operation => 'INSERT' );
2495: raise FND_API.G_EXC_ERROR;
2496: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2497: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2498: else
2499: x_case_object_id :=l_case_object_id;
2492: IF l_return_status = FND_API.G_RET_STS_ERROR then
2493: AddFailMsg( p_object => 'CASE OBJECTS',
2494: p_operation => 'INSERT' );
2495: raise FND_API.G_EXC_ERROR;
2496: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2497: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2498: else
2499: x_case_object_id :=l_case_object_id;
2500: -- IF PG_DEBUG < 10 THEN
2493: AddFailMsg( p_object => 'CASE OBJECTS',
2494: p_operation => 'INSERT' );
2495: raise FND_API.G_EXC_ERROR;
2496: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2497: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2498: else
2499: x_case_object_id :=l_case_object_id;
2500: -- IF PG_DEBUG < 10 THEN
2501: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2513: AddInvalidArgMsg(
2514: p_api_name => l_api_name_full,
2515: p_param_value => 'P_case_definition_tbl',
2516: p_param_name => 'P_case_definition_tbl' );
2517: RAISE FND_API.G_EXC_ERROR;
2518:
2519: END IF; --If CheckCaseDef(P_case_definition_tbl)
2520: END IF; -- (l_cas_id IS NOT NULL) OR (l_cas_id <> FND_API.G_MISS_NUM)
2521:
2516: p_param_name => 'P_case_definition_tbl' );
2517: RAISE FND_API.G_EXC_ERROR;
2518:
2519: END IF; --If CheckCaseDef(P_case_definition_tbl)
2520: END IF; -- (l_cas_id IS NOT NULL) OR (l_cas_id <> FND_API.G_MISS_NUM)
2521:
2522: -- IF PG_DEBUG < 10 THEN
2523: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2524: iex_debug_pub.logmessage ('ReassignCaseObjects: ' || 'Case creation over, ready for notification');
2565: -- End of API body.
2566: --
2567:
2568: -- Standard check for p_commit
2569: IF FND_API.to_Boolean( p_commit )
2570: THEN
2571: COMMIT WORK;
2572: END IF;
2573:
2595: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2596: IEX_DEBUG_PUB.LogMessage ('ReassignCaseObjects: ' || '*********End of Procedure => '||l_api_name||' *********');
2597: END IF;
2598: EXCEPTION
2599: WHEN FND_API.G_EXC_ERROR THEN
2600: ROLLBACK TO REASSIGNCASEOBJECTS_PUB;
2601: x_return_status := FND_API.G_RET_STS_ERROR ;
2602: x_msg_count := l_msg_count ;
2603: x_msg_data := l_msg_data ;
2597: END IF;
2598: EXCEPTION
2599: WHEN FND_API.G_EXC_ERROR THEN
2600: ROLLBACK TO REASSIGNCASEOBJECTS_PUB;
2601: x_return_status := FND_API.G_RET_STS_ERROR ;
2602: x_msg_count := l_msg_count ;
2603: x_msg_data := l_msg_data ;
2604: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
2605: p_data => x_msg_data);
2602: x_msg_count := l_msg_count ;
2603: x_msg_data := l_msg_data ;
2604: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
2605: p_data => x_msg_data);
2606: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2607: ROLLBACK TO REASSIGNCASEOBJECTS_PUB;
2608: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2609: x_msg_count := l_msg_count ;
2610: x_msg_data := l_msg_data ;
2604: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
2605: p_data => x_msg_data);
2606: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2607: ROLLBACK TO REASSIGNCASEOBJECTS_PUB;
2608: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2609: x_msg_count := l_msg_count ;
2610: x_msg_data := l_msg_data ;
2611: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
2612: p_data => x_msg_data);
2612: p_data => x_msg_data);
2613:
2614: WHEN OTHERS THEN
2615: ROLLBACK TO REASSIGNCASEOBJECTS_PUB;
2616: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2617: x_msg_count := l_msg_count ;
2618: x_msg_data := l_msg_data ;
2619: FND_MSG_PUB.ADD_EXC_MSG(G_PKG_NAME,l_api_name);
2620: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
2659: -- Standard Start of API savepoint
2660: SAVEPOINT UPDATECASE_PUB;
2661:
2662: -- Standard call to check for call compatibility.
2663: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2664: p_api_version_number,
2665: l_api_name,
2666: G_PKG_NAME)
2667: THEN
2664: p_api_version_number,
2665: l_api_name,
2666: G_PKG_NAME)
2667: THEN
2668: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2669: END IF;
2670:
2671:
2672: -- Initialize message list if p_init_msg_list is set to TRUE.
2669: END IF;
2670:
2671:
2672: -- Initialize message list if p_init_msg_list is set to TRUE.
2673: IF FND_API.to_Boolean( p_init_msg_list )
2674: THEN
2675: FND_MSG_PUB.initialize;
2676: END IF;
2677:
2680: iex_debug_pub.logMessage('UpdateCase: ' || 'After Api compatability Check');
2681: END IF;
2682:
2683: -- Initialize API return status to SUCCESS
2684: x_return_status := FND_API.G_RET_STS_SUCCESS;
2685: --
2686: -- API body
2687: --
2688: -- ******************************************************************
2695: FND_MESSAGE.Set_Name('IEX', 'IEX_CANNOT_GET_PROFILE_VALUE');
2696: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
2697: FND_MSG_PUB.ADD;
2698: END IF;
2699: RAISE FND_API.G_EXC_ERROR;
2700: END IF;
2701:
2702: -- IF PG_DEBUG < 10 THEN
2703: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2704: iex_debug_pub.logMessage('UpdateCase: ' || 'After FND_GLOBAL_USER Check');
2705: END IF;
2706:
2707: -- Item level validation
2708: IF (p_validation_level > fnd_api.g_valid_level_none) THEN
2709:
2710: -- Check for valid cas_id
2711: BEGIN
2712: IF (p_cas_rec.cas_id IS NOT NULL) AND (p_cas_rec.cas_id <> FND_API.G_MISS_NUM) THEN
2708: IF (p_validation_level > fnd_api.g_valid_level_none) THEN
2709:
2710: -- Check for valid cas_id
2711: BEGIN
2712: IF (p_cas_rec.cas_id IS NOT NULL) AND (p_cas_rec.cas_id <> FND_API.G_MISS_NUM) THEN
2713: --May have to check for status_code too.
2714: SELECT cas_id,object_version_number
2715: INTO l_cas_id,l_object_version_number
2716: FROM iex_cases_all_b
2720: ELSE
2721: AddMissingArgMsg(
2722: p_api_name => l_api_name_full,
2723: p_param_name => 'p_cas_rec.cas_id' );
2724: RAISE FND_API.G_EXC_ERROR;
2725: END IF;
2726: EXCEPTION
2727: WHEN NO_DATA_FOUND THEN
2728: AddInvalidArgMsg(
2728: AddInvalidArgMsg(
2729: p_api_name => l_api_name_full,
2730: p_param_name => 'p_cas_rec.cas_id' ,
2731: p_param_value => p_cas_rec.cas_id);
2732: RAISE FND_API.G_EXC_ERROR;
2733: fnd_msg_pub.add;
2734: RAISE FND_API.G_EXC_ERROR;
2735: WHEN OTHERS THEN
2736: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2730: p_param_name => 'p_cas_rec.cas_id' ,
2731: p_param_value => p_cas_rec.cas_id);
2732: RAISE FND_API.G_EXC_ERROR;
2733: fnd_msg_pub.add;
2734: RAISE FND_API.G_EXC_ERROR;
2735: WHEN OTHERS THEN
2736: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2737: END;
2738:
2732: RAISE FND_API.G_EXC_ERROR;
2733: fnd_msg_pub.add;
2734: RAISE FND_API.G_EXC_ERROR;
2735: WHEN OTHERS THEN
2736: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2737: END;
2738:
2739: END IF; --end of item level validation
2740: -- IF PG_DEBUG < 10 THEN
2743: END IF;
2744:
2745: -- Call update Case PVT to update
2746: PopulateCaseRec(p_attribute_rec =>p_cas_rec,
2747: p_comments => fnd_api.g_miss_char,
2748: p_org_id => fnd_api.g_miss_num,
2749: p_case_established_date => fnd_api.g_miss_date,
2750: x_cas_rec =>l_cas_rec,
2751: p_case_number => fnd_api.g_miss_char);
2744:
2745: -- Call update Case PVT to update
2746: PopulateCaseRec(p_attribute_rec =>p_cas_rec,
2747: p_comments => fnd_api.g_miss_char,
2748: p_org_id => fnd_api.g_miss_num,
2749: p_case_established_date => fnd_api.g_miss_date,
2750: x_cas_rec =>l_cas_rec,
2751: p_case_number => fnd_api.g_miss_char);
2752:
2745: -- Call update Case PVT to update
2746: PopulateCaseRec(p_attribute_rec =>p_cas_rec,
2747: p_comments => fnd_api.g_miss_char,
2748: p_org_id => fnd_api.g_miss_num,
2749: p_case_established_date => fnd_api.g_miss_date,
2750: x_cas_rec =>l_cas_rec,
2751: p_case_number => fnd_api.g_miss_char);
2752:
2753: l_cas_rec.cas_id :=l_cas_id;
2747: p_comments => fnd_api.g_miss_char,
2748: p_org_id => fnd_api.g_miss_num,
2749: p_case_established_date => fnd_api.g_miss_date,
2750: x_cas_rec =>l_cas_rec,
2751: p_case_number => fnd_api.g_miss_char);
2752:
2753: l_cas_rec.cas_id :=l_cas_id;
2754: l_cas_rec.object_version_number :=l_object_version_number;
2755:
2759: iex_debug_pub.logMessage('UpdateCase: ' || 'Before Calling Update PVT');
2760: END IF;
2761: iex_cases_pvt.update_cas
2762: (P_Api_Version_Number =>l_api_version_number,
2763: P_Init_Msg_List =>FND_API.G_FALSE,
2764: P_Commit =>FND_API.G_FALSE,
2765: p_validation_level =>P_validation_level,
2766: P_cas_Rec =>l_cas_Rec,
2767: X_Return_Status =>l_return_status,
2760: END IF;
2761: iex_cases_pvt.update_cas
2762: (P_Api_Version_Number =>l_api_version_number,
2763: P_Init_Msg_List =>FND_API.G_FALSE,
2764: P_Commit =>FND_API.G_FALSE,
2765: p_validation_level =>P_validation_level,
2766: P_cas_Rec =>l_cas_Rec,
2767: X_Return_Status =>l_return_status,
2768: X_Msg_Count =>l_msg_count,
2772: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2773: iex_debug_pub.logMessage('UpdateCase: ' || 'After Calling update case PVT and Status =>'||l_return_status);
2774: END IF;
2775:
2776: IF l_return_status = FND_API.G_RET_STS_ERROR then
2777: AddFailMsg( p_object => 'CASE ',
2778: p_operation => 'UPDATE' );
2779: raise FND_API.G_EXC_ERROR;
2780: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2775:
2776: IF l_return_status = FND_API.G_RET_STS_ERROR then
2777: AddFailMsg( p_object => 'CASE ',
2778: p_operation => 'UPDATE' );
2779: raise FND_API.G_EXC_ERROR;
2780: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2781: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2782: END IF;
2783:
2776: IF l_return_status = FND_API.G_RET_STS_ERROR then
2777: AddFailMsg( p_object => 'CASE ',
2778: p_operation => 'UPDATE' );
2779: raise FND_API.G_EXC_ERROR;
2780: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2781: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2782: END IF;
2783:
2784: --
2777: AddFailMsg( p_object => 'CASE ',
2778: p_operation => 'UPDATE' );
2779: raise FND_API.G_EXC_ERROR;
2780: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2781: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2782: END IF;
2783:
2784: --
2785: -- End of API body.
2785: -- End of API body.
2786: --
2787:
2788: -- Standard check for p_commit
2789: IF FND_API.to_Boolean( p_commit )
2790: THEN
2791: COMMIT WORK;
2792: END IF;
2793:
2801: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2802: IEX_DEBUG_PUB.LogMessage ('UpdateCase: ' || '*********End of Procedure => '||l_api_name||' *********');
2803: END IF;
2804: EXCEPTION
2805: WHEN FND_API.G_EXC_ERROR THEN
2806: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
2807: P_API_NAME => L_API_NAME
2808: ,P_PKG_NAME => G_PKG_NAME
2809: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
2811: ,X_MSG_COUNT => X_MSG_COUNT
2812: ,X_MSG_DATA => X_MSG_DATA
2813: ,X_RETURN_STATUS => X_RETURN_STATUS);
2814:
2815: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2816: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
2817: P_API_NAME => L_API_NAME
2818: ,P_PKG_NAME => G_PKG_NAME
2819: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
2886: -- Standard Start of API savepoint
2887: SAVEPOINT CREATECASECONTACTS_PUB;
2888:
2889: -- Standard call to check for call compatibility.
2890: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2891: p_api_version_number,
2892: l_api_name,
2893: G_PKG_NAME)
2894: THEN
2891: p_api_version_number,
2892: l_api_name,
2893: G_PKG_NAME)
2894: THEN
2895: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2896: END IF;
2897:
2898:
2899: -- Initialize message list if p_init_msg_list is set to TRUE.
2896: END IF;
2897:
2898:
2899: -- Initialize message list if p_init_msg_list is set to TRUE.
2900: IF FND_API.to_Boolean( p_init_msg_list )
2901: THEN
2902: FND_MSG_PUB.initialize;
2903: END IF;
2904:
2907: iex_debug_pub.logMessage('CreateCasecontacts: ' || 'After Api compatability Check');
2908: END IF;
2909:
2910: -- Initialize API return status to SUCCESS
2911: x_return_status := FND_API.G_RET_STS_SUCCESS;
2912: --
2913: -- API body
2914: --
2915: -- ******************************************************************
2922: FND_MESSAGE.Set_Name('IEX', 'IEX_CANNOT_GET_PROFILE_VALUE');
2923: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
2924: FND_MSG_PUB.ADD;
2925: END IF;
2926: RAISE FND_API.G_EXC_ERROR;
2927: END IF;
2928: -- IF PG_DEBUG < 10 THEN
2929: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2930: iex_debug_pub.logMessage('CreateCasecontacts: ' || 'After FND_GLOBAL_USER Check');
2929: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2930: iex_debug_pub.logMessage('CreateCasecontacts: ' || 'After FND_GLOBAL_USER Check');
2931: END IF;
2932: -- Check for required parameter cas_id
2933: IF (p_cas_id IS NULL) OR (p_cas_id = FND_API.G_MISS_NUM) THEN
2934: -- IF PG_DEBUG < 10 THEN
2935: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2936: IEX_DEBUG_PUB.LogMessage('CreateCasecontacts: ' || 'Required Parameter p_cas_id is invalid');
2937: END IF;
2937: END IF;
2938: AddMissingArgMsg(
2939: p_api_name => l_api_name_full,
2940: p_param_name => 'p_cas_id' );
2941: RAISE FND_API.G_EXC_ERROR;
2942: END IF;
2943: --Call iex_case_contacts_pvt to create contacts
2944: FOR i IN 1..P_case_contact_tbl.COUNT LOOP
2945: l_case_contact_Rec.cas_id :=P_cas_id;
2956: iex_debug_pub.logMessage('CreateCasecontacts: ' || '---------------------------------');
2957: END IF;
2958: iex_case_contacts_pvt.create_case_contact(
2959: P_Api_Version_Number =>l_api_version_number,
2960: P_Init_Msg_List =>FND_API.G_FALSE,
2961: P_Commit =>FND_API.G_FALSE,
2962: p_validation_level =>P_validation_level,
2963: p_case_contact_rec =>l_case_contact_Rec,
2964: x_cas_contact_id =>l_case_contact_id,
2957: END IF;
2958: iex_case_contacts_pvt.create_case_contact(
2959: P_Api_Version_Number =>l_api_version_number,
2960: P_Init_Msg_List =>FND_API.G_FALSE,
2961: P_Commit =>FND_API.G_FALSE,
2962: p_validation_level =>P_validation_level,
2963: p_case_contact_rec =>l_case_contact_Rec,
2964: x_cas_contact_id =>l_case_contact_id,
2965: X_Return_Status =>l_return_status,
2969: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2970: iex_debug_pub.logMessage('CreateCasecontacts: ' || 'After Calling Create Case'||
2971: 'contacts PVT and Status =>'||l_return_status);
2972: END IF;
2973: IF l_return_status = FND_API.G_RET_STS_ERROR then
2974: AddFailMsg( p_object => 'CASE CONTACTS',
2975: p_operation => 'INSERT' );
2976: raise FND_API.G_EXC_ERROR;
2977: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2972: END IF;
2973: IF l_return_status = FND_API.G_RET_STS_ERROR then
2974: AddFailMsg( p_object => 'CASE CONTACTS',
2975: p_operation => 'INSERT' );
2976: raise FND_API.G_EXC_ERROR;
2977: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2978: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2979: /*
2980: ELSE -- if case contact insert = success
2973: IF l_return_status = FND_API.G_RET_STS_ERROR then
2974: AddFailMsg( p_object => 'CASE CONTACTS',
2975: p_operation => 'INSERT' );
2976: raise FND_API.G_EXC_ERROR;
2977: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2978: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2979: /*
2980: ELSE -- if case contact insert = success
2981: --if it is a primary contact
2974: AddFailMsg( p_object => 'CASE CONTACTS',
2975: p_operation => 'INSERT' );
2976: raise FND_API.G_EXC_ERROR;
2977: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2978: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2979: /*
2980: ELSE -- if case contact insert = success
2981: --if it is a primary contact
2982: if P_case_contact_tbl(i).primary_flag = 'Y' THEN
3015: iex_debug_pub.logMessage('CreateCasecontacts: ' || '---------------------------------');
3016: END IF;
3017: iex_case_contact_roles_pvt.create_case_contact_roles(
3018: P_Api_Version_Number =>l_api_version_number,
3019: P_Init_Msg_List =>FND_API.G_FALSE,
3020: P_Commit =>FND_API.G_FALSE,
3021: p_validation_level =>P_validation_level,
3022: p_case_contact_role_rec =>l_case_contact_role_Rec,
3023: x_cas_contact_role_id =>l_case_contact_role_id,
3016: END IF;
3017: iex_case_contact_roles_pvt.create_case_contact_roles(
3018: P_Api_Version_Number =>l_api_version_number,
3019: P_Init_Msg_List =>FND_API.G_FALSE,
3020: P_Commit =>FND_API.G_FALSE,
3021: p_validation_level =>P_validation_level,
3022: p_case_contact_role_rec =>l_case_contact_role_Rec,
3023: x_cas_contact_role_id =>l_case_contact_role_id,
3024: X_Return_Status =>l_return_status,
3028: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3029: iex_debug_pub.logMessage('CreateCasecontacts: ' || 'After Calling Create Case'||
3030: 'contacts roles PVT and Status =>'||l_return_status);
3031: END IF;
3032: IF l_return_status = FND_API.G_RET_STS_ERROR then
3033: AddFailMsg( p_object => 'CASE CONTACT ROLES',
3034: p_operation => 'INSERT' );
3035: raise FND_API.G_EXC_ERROR;
3036: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
3031: END IF;
3032: IF l_return_status = FND_API.G_RET_STS_ERROR then
3033: AddFailMsg( p_object => 'CASE CONTACT ROLES',
3034: p_operation => 'INSERT' );
3035: raise FND_API.G_EXC_ERROR;
3036: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
3037: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3038: END IF;
3039: END IF; --contact party id are similar
3032: IF l_return_status = FND_API.G_RET_STS_ERROR then
3033: AddFailMsg( p_object => 'CASE CONTACT ROLES',
3034: p_operation => 'INSERT' );
3035: raise FND_API.G_EXC_ERROR;
3036: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
3037: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3038: END IF;
3039: END IF; --contact party id are similar
3040: END LOOP; --contact roles table loop
3033: AddFailMsg( p_object => 'CASE CONTACT ROLES',
3034: p_operation => 'INSERT' );
3035: raise FND_API.G_EXC_ERROR;
3036: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
3037: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3038: END IF;
3039: END IF; --contact party id are similar
3040: END LOOP; --contact roles table loop
3041: -- IF PG_DEBUG < 10 THEN
3058: p_data => x_msg_data
3059: );
3060:
3061: EXCEPTION
3062: WHEN FND_API.G_EXC_ERROR THEN
3063: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
3064: P_API_NAME => L_API_NAME
3065: ,P_PKG_NAME => G_PKG_NAME
3066: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
3068: ,X_MSG_COUNT => X_MSG_COUNT
3069: ,X_MSG_DATA => X_MSG_DATA
3070: ,X_RETURN_STATUS => X_RETURN_STATUS);
3071:
3072: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3073: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
3074: P_API_NAME => L_API_NAME
3075: ,P_PKG_NAME => G_PKG_NAME
3076: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR