327: parent_request_id = c_request_id;
328:
329: BEGIN
330:
331: x_return_status := FND_API.G_RET_STS_SUCCESS;
332:
333: IF FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level
334: THEN
335: FND_LOG.String
483: , 'p_audit_required:' || p_audit_required
484: );
485: END IF ;
486:
487: IF NOT FND_API.Compatible_API_Call
488: (
489: L_API_VERSION
490: , p_api_version_number
491: , L_API_NAME
496: (
497: p_count => x_msg_count
498: , p_data => x_msg_data
499: );
500: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
501: END IF ;
502:
503: IF FND_API.to_Boolean(p_init_msg_list)
504: THEN
499: );
500: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
501: END IF ;
502:
503: IF FND_API.to_Boolean(p_init_msg_list)
504: THEN
505: FND_MSG_PUB.initialize;
506: END IF ;
507:
772:
773: FND_MESSAGE.Set_Name('CS', 'CS_SR_SUBMIT_CHILD_FAILED');
774: FND_MSG_PUB.ADD;
775:
776: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
777: END IF;
778:
779: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
780: THEN
988: FND_MESSAGE.Set_Name('CS', 'CS_SR_GET_CHILD_STAT_FAILED');
989: FND_MESSAGE.Set_Token('ERROR', SQLERRM);
990: FND_MSG_PUB.ADD;
991:
992: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
993: END IF;
994: END LOOP;
995:
996: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
1092: THEN
1093: FND_MESSAGE.Set_Name('CS', 'CS_SR_WORKER_RET_STAT');
1094: FND_MSG_PUB.ADD;
1095:
1096: RAISE FND_API.G_EXC_ERROR;
1097: END IF;
1098:
1099: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
1100: THEN
1212:
1213: EXCEPTION
1214:
1215: WHEN L_EXC_PURGE_WARNING THEN
1216: x_return_status := FND_API.G_RET_STS_ERROR;
1217:
1218: -- setting the completion status as WARNING since
1219: -- there was a warning in the execution of this
1220: -- request.
1270: END LOOP;
1271: END IF ;
1272: END IF ;
1273:
1274: WHEN FND_API.G_EXC_ERROR THEN
1275: x_return_status := FND_API.G_RET_STS_ERROR;
1276:
1277: -- setting the completion status as ERROR since
1278: -- there was an error in the execution of this
1271: END IF ;
1272: END IF ;
1273:
1274: WHEN FND_API.G_EXC_ERROR THEN
1275: x_return_status := FND_API.G_RET_STS_ERROR;
1276:
1277: -- setting the completion status as ERROR since
1278: -- there was an error in the execution of this
1279: -- request.
1301: FND_LOG.String
1302: (
1303: FND_LOG.level_unexpected
1304: , L_LOG_MODULE || 'error'
1305: , 'Inside WHEN FND_API.G_EXC_ERROR of ' || L_API_NAME_FULL
1306: );
1307:
1308: x_msg_count := FND_MSG_PUB.Count_Msg;
1309:
1329: END LOOP;
1330: END IF ;
1331: END IF ;
1332:
1333: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1334: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1335:
1336: -- setting the completion status as ERROR since
1337: -- there was an unexpected error in the execution
1330: END IF ;
1331: END IF ;
1332:
1333: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1334: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1335:
1336: -- setting the completion status as ERROR since
1337: -- there was an unexpected error in the execution
1338: -- of this request.
1360: FND_LOG.String
1361: (
1362: FND_LOG.level_unexpected
1363: , L_LOG_MODULE || 'unexpected_error'
1364: , 'Inside WHEN FND_API.G_EXC_UNEXPECTED_ERROR of ' || L_API_NAME_FULL
1365: );
1366:
1367: x_msg_count := FND_MSG_PUB.Count_Msg;
1368:
1389: END IF ;
1390: END IF ;
1391:
1392: WHEN OTHERS THEN
1393: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1394:
1395: FND_MESSAGE.Set_Name('CS', 'CS_SR_PURG_MAIN_FAIL');
1396: FND_MESSAGE.Set_Token('API_NAME', L_API_NAME_FULL);
1397: FND_MESSAGE.Set_Token('ERROR', SQLERRM);
1614: AND purge_status IS NULL;
1615:
1616: BEGIN
1617:
1618: x_return_status := FND_API.G_RET_STS_SUCCESS;
1619:
1620: -- capturing the request id of the
1621: -- worker thread into a local variable.
1622:
1691: , 'p_audit_required:' || p_audit_required
1692: );
1693: END IF ;
1694:
1695: IF NOT FND_API.Compatible_API_Call
1696: (
1697: L_API_VERSION
1698: , p_api_version_number
1699: , L_API_NAME
1704: (
1705: p_count => x_msg_count
1706: , p_data => x_msg_data
1707: );
1708: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1709: END IF ;
1710:
1711: IF FND_API.to_Boolean(p_init_msg_list)
1712: THEN
1707: );
1708: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1709: END IF ;
1710:
1711: IF FND_API.to_Boolean(p_init_msg_list)
1712: THEN
1713: FND_MSG_PUB.initialize;
1714: END IF ;
1715:
1748:
1749: FND_MESSAGE.Set_Name('CS', 'CS_SR_WORKER_PARAM_NULL');
1750: FND_MSG_PUB.ADD;
1751:
1752: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1753: END IF;
1754:
1755: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
1756: THEN
1807:
1808: FND_MESSAGE.Set_Name('CS', 'CS_SR_WORKER_PURGSET_INV');
1809: FND_MSG_PUB.ADD;
1810:
1811: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1812: END;
1813:
1814: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
1815: THEN
1977:
1978: CS_SERVICEREQUEST_PVT.Delete_ServiceRequest
1979: (
1980: p_api_version_number => 1.0
1981: , p_init_msg_list => FND_API.G_FALSE
1982: , p_commit => FND_API.G_FALSE
1983: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
1984: , p_processing_set_id => l_processing_set_id
1985: , p_purge_set_id => p_purge_set_id
1978: CS_SERVICEREQUEST_PVT.Delete_ServiceRequest
1979: (
1980: p_api_version_number => 1.0
1981: , p_init_msg_list => FND_API.G_FALSE
1982: , p_commit => FND_API.G_FALSE
1983: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
1984: , p_processing_set_id => l_processing_set_id
1985: , p_purge_set_id => p_purge_set_id
1986: , p_purge_source_with_open_task => p_purge_source_with_open_task
1979: (
1980: p_api_version_number => 1.0
1981: , p_init_msg_list => FND_API.G_FALSE
1982: , p_commit => FND_API.G_FALSE
1983: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
1984: , p_processing_set_id => l_processing_set_id
1985: , p_purge_set_id => p_purge_set_id
1986: , p_purge_source_with_open_task => p_purge_source_with_open_task
1987: , p_audit_required => p_audit_required
2007: END IF;
2008:
2009: ---
2010:
2011: IF x_return_status = FND_API.G_RET_STS_SUCCESS
2012:
2013: -- [IF-2]
2014: -- If all went well while
2015: -- executing the SR delete API
2031: || l_processing_set_id
2032: );
2033: END IF ;
2034:
2035: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2036: OR x_return_status = FND_API.G_RET_STS_ERROR
2037:
2038: -- If there was an error or unexpected error
2039: -- while executing the SR delete API
2032: );
2033: END IF ;
2034:
2035: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2036: OR x_return_status = FND_API.G_RET_STS_ERROR
2037:
2038: -- If there was an error or unexpected error
2039: -- while executing the SR delete API
2040:
2459: END IF ;
2460:
2461: EXCEPTION
2462:
2463: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2464:
2465: -- since there was an unexpected error,
2466: -- rolling back the work done
2467:
2466: -- rolling back the work done
2467:
2468: ROLLBACK;
2469:
2470: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2471:
2472: -- setting the completion status of this
2473: -- worker thread as COMPLETED with ERRORS
2474: -- since purging failed.
2496: FND_LOG.String
2497: (
2498: FND_LOG.level_unexpected
2499: , L_LOG_MODULE || 'unexpected_error'
2500: , 'Inside WHEN FND_API.G_EXC_UNEXPECTED_ERROR of ' || L_API_NAME_FULL
2501: );
2502:
2503: x_msg_count := FND_MSG_PUB.Count_Msg;
2504:
2531: -- rolling back the work done
2532:
2533: ROLLBACK;
2534:
2535: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2536:
2537: FND_MESSAGE.Set_Name('CS', 'CS_SR_PURG_WORKER_FAIL');
2538: FND_MESSAGE.Set_Token('API_NAME', L_API_NAME_FULL);
2539: FND_MESSAGE.Set_Token('ERROR', SQLERRM);
4460:
4461: FND_MESSAGE.Set_Name('CS', 'CS_SR_NO_PURGE_PARAMS');
4462: FND_MSG_PUB.ADD;
4463:
4464: RAISE FND_API.G_EXC_ERROR;
4465: END IF;
4466:
4467: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
4468: THEN
4527: FND_MESSAGE.Set_Token('DATEFIELDNAME', l_prompt);
4528: FND_MESSAGE.Set_Token('FORMAT', fnd_date.user_mask);
4529: FND_MSG_PUB.ADD;
4530:
4531: RAISE FND_API.G_EXC_ERROR;
4532: END IF;
4533:
4534: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
4535: THEN
4596: FND_MESSAGE.Set_Token('DATEFIELDNAME', l_prompt);
4597: FND_MESSAGE.Set_Token('FORMAT', fnd_date.user_mask);
4598: FND_MSG_PUB.ADD;
4599:
4600: RAISE FND_API.G_EXC_ERROR;
4601: END IF;
4602:
4603: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
4604: THEN
4707: FND_MESSAGE.Set_Token('DATEFIELDNAME', l_prompt);
4708: FND_MESSAGE.Set_Token('FORMAT', fnd_date.user_mask);
4709: FND_MSG_PUB.ADD;
4710:
4711: RAISE FND_API.G_EXC_ERROR;
4712: END IF;
4713:
4714: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
4715: THEN
4776: FND_MESSAGE.Set_Token('DATEFIELDNAME', l_prompt);
4777: FND_MESSAGE.Set_Token('FORMAT', fnd_date.user_mask);
4778: FND_MSG_PUB.ADD;
4779:
4780: RAISE FND_API.G_EXC_ERROR;
4781: END IF;
4782:
4783: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
4784: THEN
4902:
4903: FND_MESSAGE.Set_Name('CS', 'CS_SR_NOT_UPD_SINCE_INV');
4904: FND_MSG_PUB.ADD;
4905:
4906: RAISE FND_API.G_EXC_ERROR;
4907: END IF;
4908:
4909: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
4910: THEN
4946:
4947: FND_MESSAGE.Set_Name('CS', 'CS_SR_NOT_UPD_SINCE_INV');
4948: FND_MSG_PUB.ADD;
4949:
4950: RAISE FND_API.G_EXC_ERROR;
4951: END IF;
4952: l_year_part := 0;
4953: ELSIF l_year_loc > 0
4954: AND l_month_loc = 0
4970:
4971: FND_MESSAGE.Set_Name('CS', 'CS_SR_NOT_UPD_SINCE_INV');
4972: FND_MSG_PUB.ADD;
4973:
4974: RAISE FND_API.G_EXC_ERROR;
4975: END IF;
4976: ELSIF l_year_loc > 0
4977: AND l_month_loc > 0
4978: THEN
4999:
5000: FND_MESSAGE.Set_Name('CS', 'CS_SR_NOT_UPD_SINCE_INV');
5001: FND_MSG_PUB.ADD;
5002:
5003: RAISE FND_API.G_EXC_ERROR;
5004: END IF;
5005: IF NOT Is_Number(l_str_month_part, l_month_part)
5006: OR l_month_loc < LENGTH(p_not_updated_since)
5007: THEN
5017:
5018: FND_MESSAGE.Set_Name('CS', 'CS_SR_NOT_UPD_SINCE_INV');
5019: FND_MSG_PUB.ADD;
5020:
5021: RAISE FND_API.G_EXC_ERROR;
5022: END IF;
5023: ELSIF l_year_loc > l_month_loc
5024: THEN
5025: l_str_month_part := SUBSTR(p_not_updated_since, 1, l_month_loc - 1);
5043:
5044: FND_MESSAGE.Set_Name('CS', 'CS_SR_NOT_UPD_SINCE_INV');
5045: FND_MSG_PUB.ADD;
5046:
5047: RAISE FND_API.G_EXC_ERROR;
5048: END IF;
5049: IF NOT Is_Number(l_str_year_part, l_year_part)
5050: OR l_year_loc < LENGTH(p_not_updated_since)
5051: THEN
5061:
5062: FND_MESSAGE.Set_Name('CS', 'CS_SR_NOT_UPD_SINCE_INV');
5063: FND_MSG_PUB.ADD;
5064:
5065: RAISE FND_API.G_EXC_ERROR;
5066: END IF;
5067: END IF ;
5068: END IF;
5069:
5185:
5186: FND_MESSAGE.Set_Name('CS', 'CS_SR_CRTDT_FROM_ERR');
5187: FND_MSG_PUB.ADD;
5188:
5189: RAISE FND_API.G_EXC_ERROR;
5190: END IF;
5191:
5192: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
5193: THEN
5232:
5233: FND_MESSAGE.Set_Name('CS', 'CS_SR_CRTDT_TO_ERR');
5234: FND_MSG_PUB.ADD;
5235:
5236: RAISE FND_API.G_EXC_ERROR;
5237: END IF;
5238:
5239: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
5240: THEN
5279:
5280: FND_MESSAGE.Set_Name('CS', 'CS_SR_MODDT_FROM_ERR');
5281: FND_MSG_PUB.ADD;
5282:
5283: RAISE FND_API.G_EXC_ERROR;
5284: END IF;
5285:
5286: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
5287: THEN
5326:
5327: FND_MESSAGE.Set_Name('CS', 'CS_SR_MODDT_TO_ERR');
5328: FND_MSG_PUB.ADD;
5329:
5330: RAISE FND_API.G_EXC_ERROR;
5331: END IF;
5332:
5333: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
5334: THEN
5401:
5402: FND_MESSAGE.Set_Token('DATEFIELDNAME2', l_prompt);
5403: FND_MSG_PUB.ADD;
5404:
5405: RAISE FND_API.G_EXC_ERROR;
5406: END IF;
5407:
5408: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
5409: THEN
5484:
5485: FND_MESSAGE.Set_Token('DATEFIELDNAME2', l_prompt);
5486: FND_MSG_PUB.ADD;
5487:
5488: RAISE FND_API.G_EXC_ERROR;
5489: END IF;
5490:
5491: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
5492: THEN
5567:
5568: FND_MESSAGE.Set_Token('DATEFIELDNAME2', l_prompt);
5569: FND_MSG_PUB.ADD;
5570:
5571: RAISE FND_API.G_EXC_ERROR;
5572: END IF;
5573:
5574: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
5575: THEN
5649:
5650: FND_MESSAGE.Set_Token('DATEFIELDNAME2', l_prompt);
5651: FND_MSG_PUB.ADD;
5652:
5653: RAISE FND_API.G_EXC_ERROR;
5654: END IF;
5655:
5656: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
5657: THEN
5726:
5727: FND_MESSAGE.Set_Token('DATEFIELDNAME2', l_prompt);
5728: FND_MSG_PUB.ADD;
5729:
5730: RAISE FND_API.G_EXC_ERROR;
5731: END IF;
5732:
5733: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
5734: THEN