429:
430:
431: BEGIN
432:
433: x_return_status := FND_API.G_RET_STS_SUCCESS;
434:
435: -- contracts document type
436: l_contracts_document_type := p_document_type||'_'||p_document_subtype;
437: l_document_id := p_document_id; --Mod Project
469:
470: -- call the contracts QA
471: OKC_TERMS_QA_GRP.qa_Doc(
472: p_api_version => 1.0,
473: p_init_msg_list => FND_API.G_FALSE,
474: x_return_status => l_return_status,
475: x_msg_data => l_msg_data,
476: x_msg_count => l_msg_count,
477: p_qa_mode => l_qa_mode,
482: x_qa_result_tbl => l_qa_result_tbl,
483: x_qa_return_status => l_qa_return_status
484: );
485:
486: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
487: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
488: END IF;
489:
490: -- if successful update error table with the messages if qa returned errors
483: x_qa_return_status => l_qa_return_status
484: );
485:
486: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
487: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
488: END IF;
489:
490: -- if successful update error table with the messages if qa returned errors
491: IF (l_qa_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
487: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
488: END IF;
489:
490: -- if successful update error table with the messages if qa returned errors
491: IF (l_qa_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
492: l_progress := '002';
493: l_row_index := l_qa_result_tbl.FIRST;
494: LOOP
495: EXIT WHEN l_row_index IS NULL;
525: END LOOP;
526: END IF;
527:
528: EXCEPTION
529: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
530: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
531: WHEN OTHERS THEN
532: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
533: IF ( g_debug_unexp ) THEN
526: END IF;
527:
528: EXCEPTION
529: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
530: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
531: WHEN OTHERS THEN
532: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
533: IF ( g_debug_unexp ) THEN
534: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
528: EXCEPTION
529: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
530: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
531: WHEN OTHERS THEN
532: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
533: IF ( g_debug_unexp ) THEN
534: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
535: FND_LOG.string( FND_LOG.level_unexpected,
536: G_PKG_NAME||l_api_name|| '.others_exception',
614: mod_action_valid VARCHAR2(1):='Y';
615:
616: BEGIN
617:
618: x_return_status := FND_API.G_RET_STS_SUCCESS;
619:
620: -- contracts document type
621: l_doc_type := p_document_type||'_'||p_document_subtype;
622: l_document_id := p_document_id; --Mod Project
727: END IF;
728:
729:
730: EXCEPTION
731: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
732: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
733: WHEN OTHERS THEN
734: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
735: IF ( g_debug_unexp ) THEN
728:
729:
730: EXCEPTION
731: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
732: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
733: WHEN OTHERS THEN
734: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
735: IF ( g_debug_unexp ) THEN
736: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
730: EXCEPTION
731: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
732: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
733: WHEN OTHERS THEN
734: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
735: IF ( g_debug_unexp ) THEN
736: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
737: FND_LOG.string( FND_LOG.level_unexpected,
738: G_PKG_NAME||l_api_name|| '.others_exception',
814:
815:
816: BEGIN
817:
818: x_return_status := FND_API.G_RET_STS_SUCCESS;
819:
820: -- contracts document type
821: l_doc_type := p_document_type||'_'||p_document_subtype;
822: l_document_id := p_document_id; --Mod Project
884:
885: END IF;
886:
887: EXCEPTION
888: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
889: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
890: WHEN OTHERS THEN
891: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
892: IF ( g_debug_unexp ) THEN
885: END IF;
886:
887: EXCEPTION
888: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
889: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
890: WHEN OTHERS THEN
891: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
892: IF ( g_debug_unexp ) THEN
893: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
887: EXCEPTION
888: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
889: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
890: WHEN OTHERS THEN
891: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
892: IF ( g_debug_unexp ) THEN
893: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
894: FND_LOG.string( FND_LOG.level_unexpected,
895: G_PKG_NAME||l_api_name|| '.others_exception',
985:
986:
987: BEGIN
988:
989: x_return_status := FND_API.G_RET_STS_SUCCESS;
990:
991: -- contracts document type
992: l_doc_type := p_document_type||'_'||p_document_subtype;
993: l_document_id := p_document_id; --Mod Project
1053:
1054: END IF;
1055:
1056: EXCEPTION
1057: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1058: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1059: WHEN OTHERS THEN
1060: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1061: IF ( g_debug_unexp ) THEN
1054: END IF;
1055:
1056: EXCEPTION
1057: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1058: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1059: WHEN OTHERS THEN
1060: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1061: IF ( g_debug_unexp ) THEN
1062: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1056: EXCEPTION
1057: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1058: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1059: WHEN OTHERS THEN
1060: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1061: IF ( g_debug_unexp ) THEN
1062: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1063: FND_LOG.string( FND_LOG.level_unexpected,
1064: G_PKG_NAME||l_api_name|| '.others_exception',
1120: * tables for processing
1121: * Effects: This procedure runs the document submission checks on passed in
1122: * document.
1123: * Returns:
1124: * x_return_status: FND_API.G_RET_STS_SUCCESS if API succeeds
1125: * FND_API.G_RET_STS_ERROR if API fails
1126: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
1127: * x_sub_check_status: FND_API.G_RET_STS_SUCCESS if document passes all
1128: * submission checks, even if warnings are found
1121: * Effects: This procedure runs the document submission checks on passed in
1122: * document.
1123: * Returns:
1124: * x_return_status: FND_API.G_RET_STS_SUCCESS if API succeeds
1125: * FND_API.G_RET_STS_ERROR if API fails
1126: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
1127: * x_sub_check_status: FND_API.G_RET_STS_SUCCESS if document passes all
1128: * submission checks, even if warnings are found
1129: * FND_API.G_RET_STS_ERROR if document fails atleast one
1122: * document.
1123: * Returns:
1124: * x_return_status: FND_API.G_RET_STS_SUCCESS if API succeeds
1125: * FND_API.G_RET_STS_ERROR if API fails
1126: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
1127: * x_sub_check_status: FND_API.G_RET_STS_SUCCESS if document passes all
1128: * submission checks, even if warnings are found
1129: * FND_API.G_RET_STS_ERROR if document fails atleast one
1130: * submission check
1123: * Returns:
1124: * x_return_status: FND_API.G_RET_STS_SUCCESS if API succeeds
1125: * FND_API.G_RET_STS_ERROR if API fails
1126: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
1127: * x_sub_check_status: FND_API.G_RET_STS_SUCCESS if document passes all
1128: * submission checks, even if warnings are found
1129: * FND_API.G_RET_STS_ERROR if document fails atleast one
1130: * submission check
1131: * x_has_warnings: FND_API.G_TRUE if submission check returns warnings
1125: * FND_API.G_RET_STS_ERROR if API fails
1126: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
1127: * x_sub_check_status: FND_API.G_RET_STS_SUCCESS if document passes all
1128: * submission checks, even if warnings are found
1129: * FND_API.G_RET_STS_ERROR if document fails atleast one
1130: * submission check
1131: * x_has_warnings: FND_API.G_TRUE if submission check returns warnings
1132: * FND_API.G_FALSE if no warnings are found
1133: * x_msg_data: Contains error msg in case x_return_status returned
1127: * x_sub_check_status: FND_API.G_RET_STS_SUCCESS if document passes all
1128: * submission checks, even if warnings are found
1129: * FND_API.G_RET_STS_ERROR if document fails atleast one
1130: * submission check
1131: * x_has_warnings: FND_API.G_TRUE if submission check returns warnings
1132: * FND_API.G_FALSE if no warnings are found
1133: * x_msg_data: Contains error msg in case x_return_status returned
1134: * FND_API.G_RET_STS_ERROR or FND_API.G_RET_STS_UNEXP_ERROR
1135: * x_online_report_id: This id can be used to get all submission check errors
1128: * submission checks, even if warnings are found
1129: * FND_API.G_RET_STS_ERROR if document fails atleast one
1130: * submission check
1131: * x_has_warnings: FND_API.G_TRUE if submission check returns warnings
1132: * FND_API.G_FALSE if no warnings are found
1133: * x_msg_data: Contains error msg in case x_return_status returned
1134: * FND_API.G_RET_STS_ERROR or FND_API.G_RET_STS_UNEXP_ERROR
1135: * x_online_report_id: This id can be used to get all submission check errors
1136: * for given document from online_report_text table
1130: * submission check
1131: * x_has_warnings: FND_API.G_TRUE if submission check returns warnings
1132: * FND_API.G_FALSE if no warnings are found
1133: * x_msg_data: Contains error msg in case x_return_status returned
1134: * FND_API.G_RET_STS_ERROR or FND_API.G_RET_STS_UNEXP_ERROR
1135: * x_online_report_id: This id can be used to get all submission check errors
1136: * for given document from online_report_text table
1137: * x_doc_check_error_record: If x_sub_check_status returned G_RET_STS_ERROR
1138: * then this object of tables will contain information about
1244: SAVEPOINT PO_SUBMISSION_CHECK_SP;
1245:
1246: l_progress := '000';
1247: -- Standard call to check for call compatibility
1248: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
1249: THEN
1250: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1251: END IF;
1252:
1246: l_progress := '000';
1247: -- Standard call to check for call compatibility
1248: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
1249: THEN
1250: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1251: END IF;
1252:
1253: l_progress := '001';
1254:
1287: , p_doc_level_id => p_document_level_id
1288: , p_draft_id => p_draft_id -- CLM Aprvl
1289: );
1290:
1291: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1292: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1293: END IF;
1294:
1295: l_progress := '002';
1288: , p_draft_id => p_draft_id -- CLM Aprvl
1289: );
1290:
1291: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1292: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1293: END IF;
1294:
1295: l_progress := '002';
1296: --if the p_requested_changes is NOT NULL then update the global temp
1309: l_document_id,
1310: p_requested_changes,
1311: l_return_status);
1312:
1313: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1314: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1315: END IF;
1316:
1317: END IF;
1310: p_requested_changes,
1311: l_return_status);
1312:
1313: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1314: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1315: END IF;
1316:
1317: END IF;
1318:
1365: p_sequence => p_sequence,
1366: x_return_status => l_return_status
1367: );
1368:
1369: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1370: THEN
1371: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1372: END IF;
1373: --
1367: );
1368:
1369: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1370: THEN
1371: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1372: END IF;
1373: --
1374:
1375: -- SGD PROJECT VALIDATIONS AT THE TIME OF SUBMISSION START
1410: ,p_login_id => l_login_id
1411: ,p_sequence => p_sequence
1412: ,x_return_status => l_return_status);
1413: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'l_return_status' ||l_return_status);
1414: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1415: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1416: ELSIF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1417: NULL;
1418: END IF;
1411: ,p_sequence => p_sequence
1412: ,x_return_status => l_return_status);
1413: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'l_return_status' ||l_return_status);
1414: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1415: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1416: ELSIF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1417: NULL;
1418: END IF;
1419: END IF;
1412: ,x_return_status => l_return_status);
1413: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'l_return_status' ||l_return_status);
1414: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1415: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1416: ELSIF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1417: NULL;
1418: END IF;
1419: END IF;
1420: -- SGD PROJECT VALIDATIONS AT THE TIME OF SUBMISSION END
1452: ,p_online_report_id => l_online_report_id
1453: ,p_sequence => p_sequence
1454: ,x_return_status => l_return_status);
1455: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'l_return_status' ||l_return_status);
1456: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1457: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1458: END IF;
1459:
1460: END IF;
1453: ,p_sequence => p_sequence
1454: ,x_return_status => l_return_status);
1455: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'l_return_status' ||l_return_status);
1456: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1457: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1458: END IF;
1459:
1460: END IF;
1461:
1469: ,p_login_id => l_login_id
1470: ,p_sequence => p_sequence
1471: ,x_return_status => l_return_status);
1472: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'l_return_status' ||l_return_status);
1473: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1474: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1475: END IF;
1476:
1477: END IF;
1470: ,p_sequence => p_sequence
1471: ,x_return_status => l_return_status);
1472: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'l_return_status' ||l_return_status);
1473: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1474: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1475: END IF;
1476:
1477: END IF;
1478:
1646: ,x_msg_data => l_msg_data
1647: );
1648:
1649: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'After CLM_NAMED_COLS_SUB_CHK with x_return_status : ' || l_return_status);
1650: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1651: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1652: ELSIF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1653: -- ALREADY LOGED INTO REPORT TABLE in PO_CLM_COLS_SUB_CHECK.LOG_ERR_CLM_NMD_COLS_SUB_CHK
1654: NULL;
1647: );
1648:
1649: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'After CLM_NAMED_COLS_SUB_CHK with x_return_status : ' || l_return_status);
1650: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1651: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1652: ELSIF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1653: -- ALREADY LOGED INTO REPORT TABLE in PO_CLM_COLS_SUB_CHECK.LOG_ERR_CLM_NMD_COLS_SUB_CHK
1654: NULL;
1655: END IF;
1648:
1649: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'After CLM_NAMED_COLS_SUB_CHK with x_return_status : ' || l_return_status);
1650: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1651: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1652: ELSIF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1653: -- ALREADY LOGED INTO REPORT TABLE in PO_CLM_COLS_SUB_CHECK.LOG_ERR_CLM_NMD_COLS_SUB_CHK
1654: NULL;
1655: END IF;
1656:
1780: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'After Check_Uda_Enabled with x_return_status : ' || l_return_status);
1781: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'Check_Uda_Enabled with x_enabled_flag : ' || l_enabled_flag);
1782:
1783:
1784: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1785: THEN
1786: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1787: END IF;
1788:
1782:
1783:
1784: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1785: THEN
1786: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1787: END IF;
1788:
1789: IF l_enabled_flag = 'Y' THEN
1790:
1803:
1804: l_progress := '705';
1805: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'After calling PO_UDA_SUBMISSION_CHECK x_return_status :' || l_return_status);
1806:
1807: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
1808: THEN
1809: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1810: END IF;
1811:
1805: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'After calling PO_UDA_SUBMISSION_CHECK x_return_status :' || l_return_status);
1806:
1807: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
1808: THEN
1809: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1810: END IF;
1811:
1812: --FedBizOpps Project
1813: IF l_draft_type = 'AWARD' THEN --
1880: x_return_status := ext_name_val_obj.VALUE ;
1881:
1882: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'Submission check has status ' || x_return_status);
1883:
1884: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1885: l_progress := '708';
1886: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'Submission check has failed should log onto the report');
1887: l_failure := TRUE;
1888: END IF;
1921: 0,
1922: 0,
1923: 0,
1924: p_sequence,
1925: FND_MSG_PUB.get (msg_counter, FND_API.g_false),
1926: 'UDA Attr Sub Check Failure',
1927: 'E'
1928: );
1929:
1926: 'UDA Attr Sub Check Failure',
1927: 'E'
1928: );
1929:
1930: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'Submission check has status ' || FND_MSG_PUB.get (msg_counter, FND_API.g_false));
1931:
1932: END LOOP;
1933: END IF;
1934: END IF;
2061: p_login_id => l_login_id,
2062: p_sequence => p_sequence,
2063: x_return_status => l_return_status,
2064: x_msg_data => x_msg_data);
2065: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2066: THEN
2067: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2068: END IF;
2069:
2063: x_return_status => l_return_status,
2064: x_msg_data => x_msg_data);
2065: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2066: THEN
2067: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2068: END IF;
2069:
2070:
2071: l_progress := '00420';
2077: p_sequence => p_sequence,
2078: x_return_status => l_return_status,
2079: x_msg_data => x_msg_data);
2080:
2081: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2082: THEN
2083: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2084: END IF;
2085:
2079: x_msg_data => x_msg_data);
2080:
2081: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2082: THEN
2083: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2084: END IF;
2085:
2086: -- Bug 15843328
2087: --Added this submission check for accrue on receipt flag.
2096: p_sequence => p_sequence,
2097: x_return_status => l_return_status,
2098: x_msg_data => x_msg_data);
2099:
2100: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2101: THEN
2102: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2103: END IF;
2104:
2098: x_msg_data => x_msg_data);
2099:
2100: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2101: THEN
2102: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2103: END IF;
2104:
2105:
2106: END IF;
2126: l_login_id,
2127: p_sequence,
2128: l_return_status);
2129:
2130: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2131: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2132: END IF;
2133:
2134: l_progress := '007';
2127: p_sequence,
2128: l_return_status);
2129:
2130: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2131: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2132: END IF;
2133:
2134: l_progress := '007';
2135: --CBC header check for REQ
2141: l_login_id ,
2142: p_sequence,
2143: l_return_status);
2144:
2145: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2146: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2147: END IF;
2148:
2149:
2142: p_sequence,
2143: l_return_status);
2144:
2145: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2146: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2147: END IF;
2148:
2149:
2150: -- Added for bug 12951645
2164: l_login_id,
2165: p_sequence,
2166: l_return_status);
2167:
2168: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2169: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2170: END IF;
2171: --Added for bug 12951645
2172:
2165: p_sequence,
2166: l_return_status);
2167:
2168: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2169: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2170: END IF;
2171: --Added for bug 12951645
2172:
2173: ELSIF p_document_type = 'RELEASE' THEN
2215: , p_doc_level_id =>p_document_level_id
2216: , p_sequence =>p_sequence
2217: , x_return_status =>l_return_status);
2218:
2219: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2220: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2221: END IF;
2222:
2223: --
2216: , p_sequence =>p_sequence
2217: , x_return_status =>l_return_status);
2218:
2219: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2220: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2221: END IF;
2222:
2223: --
2224:
2237: l_user_id,
2238: l_login_id, p_sequence,
2239: l_return_status);
2240:
2241: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2243: END IF;
2244:
2245: --Added for bug 12951645
2238: l_login_id, p_sequence,
2239: l_return_status);
2240:
2241: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2243: END IF;
2244:
2245: --Added for bug 12951645
2246:
2259: l_login_id,
2260: p_sequence,
2261: l_return_status);
2262:
2263: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2264: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2265: END IF;
2266: --Added for bug 12951645
2267:
2260: p_sequence,
2261: l_return_status);
2262:
2263: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2264: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2265: END IF;
2266: --Added for bug 12951645
2267:
2268: l_progress := '010';
2281: l_login_id, p_sequence,
2282: l_return_status);
2283: END IF;
2284:
2285: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2286: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2287: END IF;
2288:
2289: l_progress := '011';
2282: l_return_status);
2283: END IF;
2284:
2285: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2286: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2287: END IF;
2288:
2289: l_progress := '011';
2290: --CBC header check for Releases
2296: l_login_id ,
2297: p_sequence,
2298: l_return_status);
2299:
2300: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2301: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2302: END IF;
2303:
2304: END IF; --check action requested
2297: p_sequence,
2298: l_return_status);
2299:
2300: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2301: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2302: END IF;
2303:
2304: END IF; --check action requested
2305:
2347: , p_doc_level_id =>p_document_level_id
2348: , p_sequence =>p_sequence
2349: , x_return_status =>l_return_status);
2350:
2351: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2352: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2353: END IF;
2354:
2355: --
2348: , p_sequence =>p_sequence
2349: , x_return_status =>l_return_status);
2350:
2351: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2352: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2353: END IF;
2354:
2355: --
2356:
2369: l_user_id,
2370: l_login_id, p_sequence,
2371: l_return_status);
2372:
2373: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2374: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2375: END IF;
2376:
2377: --Added for bug 12951645
2370: l_login_id, p_sequence,
2371: l_return_status);
2372:
2373: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2374: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2375: END IF;
2376:
2377: --Added for bug 12951645
2378: IF g_debug_stmt THEN
2390: l_login_id,
2391: p_sequence,
2392: l_return_status);
2393:
2394: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2395: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2396: END IF;
2397: --Added for bug 12951645
2398:
2391: p_sequence,
2392: l_return_status);
2393:
2394: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2395: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2396: END IF;
2397: --Added for bug 12951645
2398:
2399: l_progress := '014';
2405: -- p_check_asl, -- <2757450>
2406: p_sequence,
2407: l_return_status);
2408:
2409: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2410: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2411: END IF;
2412:
2413: IF(l_is_clm_doc = 'Y' AND p_action_requested = g_action_DOC_SUBMISSION_CHECK) THEN
2406: p_sequence,
2407: l_return_status);
2408:
2409: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2410: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2411: END IF;
2412:
2413: IF(l_is_clm_doc = 'Y' AND p_action_requested = g_action_DOC_SUBMISSION_CHECK) THEN
2414:
2421: p_sequence => p_sequence,
2422: x_return_status => l_return_status,
2423: x_msg_data => x_msg_data);
2424:
2425: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2426: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2427: END IF;
2428: --Adding DraftID Parameter for new ACRN CHECK
2429: PO_ACRN_CHECK(P_document_id => l_document_id,
2422: x_return_status => l_return_status,
2423: x_msg_data => x_msg_data);
2424:
2425: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2426: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2427: END IF;
2428: --Adding DraftID Parameter for new ACRN CHECK
2429: PO_ACRN_CHECK(P_document_id => l_document_id,
2430: P_draft_id => p_draft_id,
2435: p_sequence => p_sequence,
2436: x_return_status => l_return_status,
2437: x_msg_data => x_msg_data);
2438:
2439: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2440: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2441: END IF;
2442:
2443:
2436: x_return_status => l_return_status,
2437: x_msg_data => x_msg_data);
2438:
2439: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2440: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2441: END IF;
2442:
2443:
2444: END IF;
2453: l_login_id ,
2454: p_sequence,
2455: l_return_status);
2456:
2457: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2458: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2459: END IF;
2460:
2461: l_progress := '016';
2454: p_sequence,
2455: l_return_status);
2456:
2457: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2458: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2459: END IF;
2460:
2461: l_progress := '016';
2462:
2474: l_login_id, p_sequence,
2475: l_return_status);
2476: END IF;
2477:
2478: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2479: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2480: END IF;
2481:
2482: --Do some additional checks if its PLANNED PO
2475: l_return_status);
2476: END IF;
2477:
2478: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2479: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2480: END IF;
2481:
2482: --Do some additional checks if its PLANNED PO
2483: IF p_document_subtype = 'PLANNED' THEN
2495: l_user_id,
2496: l_login_id, p_sequence,
2497: l_return_status);
2498:
2499: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2500: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2501: END IF;
2502:
2503: ELSIF p_document_subtype = 'STANDARD' THEN
2496: l_login_id, p_sequence,
2497: l_return_status);
2498:
2499: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2500: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2501: END IF;
2502:
2503: ELSIF p_document_subtype = 'STANDARD' THEN
2504:
2516: l_login_id,
2517: p_sequence,
2518: l_return_status);
2519:
2520: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2521: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2522: END IF;
2523:
2524: l_progress := '019';
2517: p_sequence,
2518: l_return_status);
2519:
2520: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2521: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2522: END IF;
2523:
2524: l_progress := '019';
2525: IF g_debug_stmt THEN
2539: l_login_id,
2540: p_sequence,
2541: l_return_status);
2542:
2543: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2544: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2545: END IF;
2546:
2547: l_progress := '020';
2540: p_sequence,
2541: l_return_status);
2542:
2543: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2544: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2545: END IF;
2546:
2547: l_progress := '020';
2548: IF g_debug_stmt THEN
2564: l_login_id,
2565: p_sequence,
2566: l_return_status);
2567:
2568: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2569: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2570: END IF;
2571:
2572: l_progress := '021';
2565: p_sequence,
2566: l_return_status);
2567:
2568: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2569: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2570: END IF;
2571:
2572: l_progress := '021';
2573: IF g_debug_stmt THEN
2585: l_login_id,
2586: p_sequence,
2587: l_return_status);
2588:
2589: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2590: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2591: END IF;
2592:
2593: l_progress := '022';
2586: p_sequence,
2587: l_return_status);
2588:
2589: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2590: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2591: END IF;
2592:
2593: l_progress := '022';
2594: IF g_debug_stmt THEN
2609: l_login_id,
2610: p_sequence,
2611: l_return_status);
2612:
2613: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2614: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2615: END IF;
2616:
2617: l_progress := '023';
2610: p_sequence,
2611: l_return_status);
2612:
2613: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2614: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2615: END IF;
2616:
2617: l_progress := '023';
2618: IF g_debug_stmt THEN
2632: p_login_id => l_login_id,
2633: p_sequence => p_sequence,
2634: x_return_status => l_return_status);
2635:
2636: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2637: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2638: END IF;
2639:
2640: l_progress := '025';
2633: p_sequence => p_sequence,
2634: x_return_status => l_return_status);
2635:
2636: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2637: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2638: END IF;
2639:
2640: l_progress := '025';
2641: IF g_debug_stmt THEN
2655: l_login_id,
2656: p_sequence,
2657: l_return_status);
2658:
2659: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2660: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2661: END IF;
2662:
2663: l_progress := '026';
2656: p_sequence,
2657: l_return_status);
2658:
2659: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2660: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2661: END IF;
2662:
2663: l_progress := '026';
2664: IF g_debug_stmt THEN
2698: , p_doc_level_id =>p_document_level_id
2699: , p_sequence =>p_sequence
2700: , x_return_status =>l_return_status);
2701:
2702: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2703: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2704: END IF;
2705:
2706: ELSE
2699: , p_sequence =>p_sequence
2700: , x_return_status =>l_return_status);
2701:
2702: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2703: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2704: END IF;
2705:
2706: ELSE
2707: --
2723: l_login_id,
2724: p_sequence,
2725: l_return_status);
2726:
2727: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2728: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2729: END IF;
2730:
2731: --Added for bug 12951645
2724: p_sequence,
2725: l_return_status);
2726:
2727: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2728: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2729: END IF;
2730:
2731: --Added for bug 12951645
2732:
2745: l_login_id,
2746: p_sequence,
2747: l_return_status);
2748:
2749: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2750: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2751: END IF;
2752: --Added for bug 12951645
2753:
2746: p_sequence,
2747: l_return_status);
2748:
2749: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2750: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2751: END IF;
2752: --Added for bug 12951645
2753:
2754: IF p_document_subtype = 'BLANKET' THEN
2769: p_check_asl, -- <2757450>
2770: p_sequence,
2771: l_return_status);
2772:
2773: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2774: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2775: END IF;
2776:
2777: l_progress := '021';
2770: p_sequence,
2771: l_return_status);
2772:
2773: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2774: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2775: END IF;
2776:
2777: l_progress := '021';
2778: --Call checks common to Planned PO and Blanket PA
2782: l_login_id,
2783: p_sequence,
2784: l_return_status);
2785:
2786: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2787: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2788: END IF;
2789:
2790: ELSIF p_document_subtype = 'CONTRACT' THEN
2783: p_sequence,
2784: l_return_status);
2785:
2786: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2787: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2788: END IF;
2789:
2790: ELSIF p_document_subtype = 'CONTRACT' THEN
2791:
2804: l_login_id,
2805: p_sequence,
2806: l_return_status);
2807:
2808: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2809: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2810: END IF;
2811: END IF; --PA p_document_subtype
2812:
2805: p_sequence,
2806: l_return_status);
2807:
2808: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2809: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2810: END IF;
2811: END IF; --PA p_document_subtype
2812:
2813: END IF; -- PA p_action_requested
2865: l_login_id,
2866: p_sequence,
2867: l_return_status);
2868:
2869: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2870: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2871: END IF;
2872:
2873: l_progress := '045';
2866: p_sequence,
2867: l_return_status);
2868:
2869: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2870: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2871: END IF;
2872:
2873: l_progress := '045';
2874: IF g_debug_stmt THEN
2908: p_login_id => l_login_id,
2909: p_sequence => p_sequence,
2910: x_return_status => l_return_status);
2911:
2912: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2913: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2914: END IF;
2915: END IF; --conterms exist
2916: END IF; -- document type is PO or PA
2909: p_sequence => p_sequence,
2910: x_return_status => l_return_status);
2911:
2912: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2913: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2914: END IF;
2915: END IF; --conterms exist
2916: END IF; -- document type is PO or PA
2917:
2939: p_sequence => p_sequence,
2940: p_org_id => l_org_id,
2941: x_return_status => l_return_status);
2942:
2943: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2944: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2945: END IF;
2946:
2947: /*This code is commented for the bug 16534713
2940: p_org_id => l_org_id,
2941: x_return_status => l_return_status);
2942:
2943: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2944: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2945: END IF;
2946:
2947: /*This code is commented for the bug 16534713
2948: verify_wage_determination(
2955: p_sequence => p_sequence,
2956: p_org_id => l_org_id,
2957: x_return_status => l_return_status);
2958:
2959: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2960: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2961: END IF;*/
2962:
2963: verify_validate_pds(
2956: p_org_id => l_org_id,
2957: x_return_status => l_return_status);
2958:
2959: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2960: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2961: END IF;*/
2962:
2963: verify_validate_pds(
2964: p_document_id => l_document_id,
2970: p_sequence => p_sequence,
2971: p_org_id => l_org_id,
2972: x_return_status => l_return_status);
2973:
2974: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2975: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2976: END IF;
2977:
2978: END IF;
2971: p_org_id => l_org_id,
2972: x_return_status => l_return_status);
2973:
2974: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2975: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2976: END IF;
2977:
2978: END IF;
2979: -- IAE Projects
3000: FROM PO_RELEASES_ALL
3001: WHERE po_release_id = l_document_id;
3002: EXCEPTION
3003: WHEN OTHERS THEN
3004: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3005: END;
3006: ELSE
3007: l_po_header_id := l_document_id;
3008: END IF;
3015: p_login_id => l_login_id,
3016: p_sequence => p_sequence,
3017: x_return_status => l_return_status);
3018:
3019: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3020: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3021: END IF;
3022: END IF;
3023:
3016: p_sequence => p_sequence,
3017: x_return_status => l_return_status);
3018:
3019: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3020: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3021: END IF;
3022: END IF;
3023:
3024: l_progress := '025';
3053: p_sequence => p_sequence,
3054: x_return_status => l_return_status
3055: );
3056:
3057: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3058: THEN
3059: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3060: END IF;
3061: --
3055: );
3056:
3057: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3058: THEN
3059: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3060: END IF;
3061: --
3062:
3063:
3090: -- 1) Return Error only if there are messages that are not warnings
3091: -- 2) Set x_has_warnings flag to TRUE if there are warnings reported
3092:
3093: IF (l_num_messages > l_num_warnings) THEN
3094: x_sub_check_status := FND_API.G_RET_STS_ERROR;
3095: ELSE
3096: x_sub_check_status := FND_API.G_RET_STS_SUCCESS;
3097: END IF;
3098:
3092:
3093: IF (l_num_messages > l_num_warnings) THEN
3094: x_sub_check_status := FND_API.G_RET_STS_ERROR;
3095: ELSE
3096: x_sub_check_status := FND_API.G_RET_STS_SUCCESS;
3097: END IF;
3098:
3099: IF ( l_num_warnings > 0 ) THEN
3100: x_has_warnings := FND_API.G_TRUE;
3096: x_sub_check_status := FND_API.G_RET_STS_SUCCESS;
3097: END IF;
3098:
3099: IF ( l_num_warnings > 0 ) THEN
3100: x_has_warnings := FND_API.G_TRUE;
3101: END IF;
3102:
3103: --Bulk update online_report_text table with errors
3104: INSERT INTO po_online_report_text(online_report_id,
3147: FROM po_online_report_text_gt
3148: WHERE online_report_id = x_online_report_id;
3149:
3150: ELSE
3151: x_sub_check_status := FND_API.G_RET_STS_SUCCESS;
3152: END IF;
3153:
3154: l_progress := '027';
3155: x_return_status := FND_API.G_RET_STS_SUCCESS;
3151: x_sub_check_status := FND_API.G_RET_STS_SUCCESS;
3152: END IF;
3153:
3154: l_progress := '027';
3155: x_return_status := FND_API.G_RET_STS_SUCCESS;
3156:
3157: -- LCM ER start. If all the submission checks have been passed successfully then update the lcm_flag of po_line_locations_all and po_distributions_all.
3158: IF p_document_type in ('PO','RELEASE') THEN
3159:
3162: LOOP
3163: set_lcm_flag(ship_rec.line_location_id,'AFTER',l_return_status);
3164: END LOOP;
3165:
3166: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3167: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3168: END IF;
3169: END IF;
3170: --LCM ER end
3163: set_lcm_flag(ship_rec.line_location_id,'AFTER',l_return_status);
3164: END LOOP;
3165:
3166: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3167: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3168: END IF;
3169: END IF;
3170: --LCM ER end
3171:
3182: END IF;
3183: END IF;
3184:
3185: EXCEPTION
3186: WHEN FND_API.G_EXC_ERROR THEN
3187: ROLLBACK TO PO_SUBMISSION_CHECK_SP;
3188: x_return_status := FND_API.G_RET_STS_ERROR;
3189: x_sub_check_status := FND_API.G_RET_STS_ERROR;
3190: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
3184:
3185: EXCEPTION
3186: WHEN FND_API.G_EXC_ERROR THEN
3187: ROLLBACK TO PO_SUBMISSION_CHECK_SP;
3188: x_return_status := FND_API.G_RET_STS_ERROR;
3189: x_sub_check_status := FND_API.G_RET_STS_ERROR;
3190: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
3191: p_encoded => 'F');
3192:
3185: EXCEPTION
3186: WHEN FND_API.G_EXC_ERROR THEN
3187: ROLLBACK TO PO_SUBMISSION_CHECK_SP;
3188: x_return_status := FND_API.G_RET_STS_ERROR;
3189: x_sub_check_status := FND_API.G_RET_STS_ERROR;
3190: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
3191: p_encoded => 'F');
3192:
3193: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3189: x_sub_check_status := FND_API.G_RET_STS_ERROR;
3190: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
3191: p_encoded => 'F');
3192:
3193: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3194: ROLLBACK TO PO_SUBMISSION_CHECK_SP;
3195: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3196: x_sub_check_status := FND_API.G_RET_STS_ERROR;
3197: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
3191: p_encoded => 'F');
3192:
3193: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3194: ROLLBACK TO PO_SUBMISSION_CHECK_SP;
3195: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3196: x_sub_check_status := FND_API.G_RET_STS_ERROR;
3197: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
3198: p_encoded => 'F');
3199:
3192:
3193: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3194: ROLLBACK TO PO_SUBMISSION_CHECK_SP;
3195: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3196: x_sub_check_status := FND_API.G_RET_STS_ERROR;
3197: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
3198: p_encoded => 'F');
3199:
3200: WHEN OTHERS THEN
3198: p_encoded => 'F');
3199:
3200: WHEN OTHERS THEN
3201: ROLLBACK TO PO_SUBMISSION_CHECK_SP;
3202: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3203: x_sub_check_status := FND_API.G_RET_STS_ERROR;
3204: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3205: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
3206: END IF;
3199:
3200: WHEN OTHERS THEN
3201: ROLLBACK TO PO_SUBMISSION_CHECK_SP;
3202: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3203: x_sub_check_status := FND_API.G_RET_STS_ERROR;
3204: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3205: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
3206: END IF;
3207:
3245:
3246: l_progress := '000';
3247:
3248: -- Standard call to check for call compatibility
3249: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
3250: THEN
3251: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3252: END IF;
3253:
3247:
3248: -- Standard call to check for call compatibility
3249: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
3250: THEN
3251: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3252: END IF;
3253:
3254: l_progress := '001';
3255:
3269: , p_doc_level => g_document_level_HEADER
3270: , p_doc_level_id => p_document_id
3271: );
3272:
3273: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3274: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3275: END IF;
3276:
3277: IF g_debug_stmt THEN
3270: , p_doc_level_id => p_document_id
3271: );
3272:
3273: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3274: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3275: END IF;
3276:
3277: IF g_debug_stmt THEN
3278: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3341: x_online_report_id := l_online_report_id;
3342:
3343: IF l_num_errors > 0 THEN
3344:
3345: x_sub_check_status := FND_API.G_RET_STS_ERROR;
3346:
3347: --Bulk update online_report_text table with errors
3348: INSERT INTO po_online_report_text(
3349: online_report_id,
3373:
3374: l_progress := '009';
3375:
3376: ELSE
3377: x_sub_check_status := FND_API.G_RET_STS_SUCCESS;
3378: END IF;
3379:
3380: l_progress := '010';
3381:
3378: END IF;
3379:
3380: l_progress := '010';
3381:
3382: x_return_status := FND_API.G_RET_STS_SUCCESS;
3383:
3384: -- bug3413891
3385: -- Deletion of GT tables has been moved to populate_global_temp_tables procedure
3386:
3395: END IF;
3396:
3397: EXCEPTION
3398:
3399: WHEN FND_API.G_EXC_ERROR THEN
3400: ROLLBACK TO POST_SUBMISSION_CHECK_SP;
3401: x_return_status := FND_API.G_RET_STS_ERROR;
3402: x_sub_check_status := FND_API.G_RET_STS_ERROR;
3403:
3397: EXCEPTION
3398:
3399: WHEN FND_API.G_EXC_ERROR THEN
3400: ROLLBACK TO POST_SUBMISSION_CHECK_SP;
3401: x_return_status := FND_API.G_RET_STS_ERROR;
3402: x_sub_check_status := FND_API.G_RET_STS_ERROR;
3403:
3404: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3405: ROLLBACK TO POST_SUBMISSION_CHECK_SP;
3398:
3399: WHEN FND_API.G_EXC_ERROR THEN
3400: ROLLBACK TO POST_SUBMISSION_CHECK_SP;
3401: x_return_status := FND_API.G_RET_STS_ERROR;
3402: x_sub_check_status := FND_API.G_RET_STS_ERROR;
3403:
3404: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3405: ROLLBACK TO POST_SUBMISSION_CHECK_SP;
3406: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3400: ROLLBACK TO POST_SUBMISSION_CHECK_SP;
3401: x_return_status := FND_API.G_RET_STS_ERROR;
3402: x_sub_check_status := FND_API.G_RET_STS_ERROR;
3403:
3404: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3405: ROLLBACK TO POST_SUBMISSION_CHECK_SP;
3406: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3407: x_sub_check_status := FND_API.G_RET_STS_ERROR;
3408:
3402: x_sub_check_status := FND_API.G_RET_STS_ERROR;
3403:
3404: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3405: ROLLBACK TO POST_SUBMISSION_CHECK_SP;
3406: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3407: x_sub_check_status := FND_API.G_RET_STS_ERROR;
3408:
3409: WHEN OTHERS THEN
3410: ROLLBACK TO POST_SUBMISSION_CHECK_SP;
3403:
3404: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3405: ROLLBACK TO POST_SUBMISSION_CHECK_SP;
3406: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3407: x_sub_check_status := FND_API.G_RET_STS_ERROR;
3408:
3409: WHEN OTHERS THEN
3410: ROLLBACK TO POST_SUBMISSION_CHECK_SP;
3411: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3407: x_sub_check_status := FND_API.G_RET_STS_ERROR;
3408:
3409: WHEN OTHERS THEN
3410: ROLLBACK TO POST_SUBMISSION_CHECK_SP;
3411: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3412: x_sub_check_status := FND_API.G_RET_STS_ERROR;
3413: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3414: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
3415: END IF;
3408:
3409: WHEN OTHERS THEN
3410: ROLLBACK TO POST_SUBMISSION_CHECK_SP;
3411: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3412: x_sub_check_status := FND_API.G_RET_STS_ERROR;
3413: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3414: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
3415: END IF;
3416:
3920: po_tax_interface_pvt.calculate_tax_requisition( x_return_status => l_return_status,
3921: p_requisition_header_id => p_document_id,
3922: p_calling_program => g_action_DOC_SUBMISSION_CHECK);
3923:
3924: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3925: l_progress := '011';
3926: IF g_debug_stmt THEN
3927: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3928: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
3968: 'E'
3969: );
3970: END LOOP;
3971: l_progress := '012';
3972: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3973: l_progress := '013';
3974: IF g_debug_stmt THEN
3975: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3976: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
3987: fnd_message.set_name('PO','PO_TAX_CALC_UNEXPECTED_ERROR');
3988: fnd_message.set_token('ERROR',l_textline);
3989: FND_MSG_PUB.Add;
3990: l_progress := '014';
3991: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3992: END IF;
3993: END IF;
3994:
3995: p_sequence := p_sequence + SQL%ROWCOUNT;
3997: -----------------------------------------------------------------------------
3998:
3999: l_progress := '015';
4000: --
4001: x_return_status := FND_API.G_RET_STS_SUCCESS;
4002: EXCEPTION
4003: WHEN FND_API.G_EXC_ERROR THEN
4004: x_return_status := FND_API.G_RET_STS_ERROR;
4005:
3999: l_progress := '015';
4000: --
4001: x_return_status := FND_API.G_RET_STS_SUCCESS;
4002: EXCEPTION
4003: WHEN FND_API.G_EXC_ERROR THEN
4004: x_return_status := FND_API.G_RET_STS_ERROR;
4005:
4006: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4007: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4000: --
4001: x_return_status := FND_API.G_RET_STS_SUCCESS;
4002: EXCEPTION
4003: WHEN FND_API.G_EXC_ERROR THEN
4004: x_return_status := FND_API.G_RET_STS_ERROR;
4005:
4006: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4007: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4008:
4002: EXCEPTION
4003: WHEN FND_API.G_EXC_ERROR THEN
4004: x_return_status := FND_API.G_RET_STS_ERROR;
4005:
4006: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4007: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4008:
4009: WHEN OTHERS THEN
4010: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4003: WHEN FND_API.G_EXC_ERROR THEN
4004: x_return_status := FND_API.G_RET_STS_ERROR;
4005:
4006: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4007: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4008:
4009: WHEN OTHERS THEN
4010: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4011: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
4006: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4007: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4008:
4009: WHEN OTHERS THEN
4010: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4011: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
4012: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
4013: END IF;
4014:
5645: p_po_header_id => NULL,
5646: p_po_release_id => p_document_id,
5647: p_calling_program => g_action_DOC_SUBMISSION_CHECK);
5648: l_progress := '022';
5649: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5650: IF g_debug_stmt THEN
5651: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5652: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
5653: l_api_name||'.' || l_progress,
5693: 'E'
5694: );
5695: END LOOP;
5696: l_progress := '024';
5697: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5698: IF g_debug_stmt THEN
5699: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5700: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
5701: l_api_name||'.' || l_progress,
5711: fnd_message.set_name('PO','PO_TAX_CALC_UNEXPECTED_ERROR');
5712: fnd_message.set_token('ERROR',l_textline);
5713: FND_MSG_PUB.Add;
5714: l_progress := '025';
5715: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5716: END IF;
5717: END IF;
5718:
5719: p_sequence := p_sequence + SQL%ROWCOUNT;
5859: --Increment the p_sequence with number of errors reported in last query
5860: p_sequence := p_sequence + SQL%ROWCOUNT;
5861: --
5862:
5863: x_return_status := FND_API.G_RET_STS_SUCCESS;
5864: EXCEPTION
5865: WHEN FND_API.G_EXC_ERROR THEN
5866: x_return_status := FND_API.G_RET_STS_ERROR;
5867:
5861: --
5862:
5863: x_return_status := FND_API.G_RET_STS_SUCCESS;
5864: EXCEPTION
5865: WHEN FND_API.G_EXC_ERROR THEN
5866: x_return_status := FND_API.G_RET_STS_ERROR;
5867:
5868: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5869: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5862:
5863: x_return_status := FND_API.G_RET_STS_SUCCESS;
5864: EXCEPTION
5865: WHEN FND_API.G_EXC_ERROR THEN
5866: x_return_status := FND_API.G_RET_STS_ERROR;
5867:
5868: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5869: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5870:
5864: EXCEPTION
5865: WHEN FND_API.G_EXC_ERROR THEN
5866: x_return_status := FND_API.G_RET_STS_ERROR;
5867:
5868: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5869: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5870:
5871: WHEN OTHERS THEN
5872:
5865: WHEN FND_API.G_EXC_ERROR THEN
5866: x_return_status := FND_API.G_RET_STS_ERROR;
5867:
5868: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5869: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5870:
5871: WHEN OTHERS THEN
5872:
5873: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5869: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5870:
5871: WHEN OTHERS THEN
5872:
5873: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5874: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5875: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
5876: END IF;
5877:
7088:
7089: END LOOP; --for shipment_line
7090:
7091: l_progress := '090';
7092: x_return_status := FND_API.G_RET_STS_SUCCESS;
7093: EXCEPTION
7094: WHEN FND_API.G_EXC_ERROR THEN
7095: x_return_status := FND_API.G_RET_STS_ERROR;
7096:
7090:
7091: l_progress := '090';
7092: x_return_status := FND_API.G_RET_STS_SUCCESS;
7093: EXCEPTION
7094: WHEN FND_API.G_EXC_ERROR THEN
7095: x_return_status := FND_API.G_RET_STS_ERROR;
7096:
7097: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7098: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7091: l_progress := '090';
7092: x_return_status := FND_API.G_RET_STS_SUCCESS;
7093: EXCEPTION
7094: WHEN FND_API.G_EXC_ERROR THEN
7095: x_return_status := FND_API.G_RET_STS_ERROR;
7096:
7097: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7098: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7099:
7093: EXCEPTION
7094: WHEN FND_API.G_EXC_ERROR THEN
7095: x_return_status := FND_API.G_RET_STS_ERROR;
7096:
7097: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7098: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7099:
7100: WHEN OTHERS THEN
7101: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7094: WHEN FND_API.G_EXC_ERROR THEN
7095: x_return_status := FND_API.G_RET_STS_ERROR;
7096:
7097: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7098: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7099:
7100: WHEN OTHERS THEN
7101: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7102: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
7097: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7098: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7099:
7100: WHEN OTHERS THEN
7101: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7102: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
7103: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
7104: END IF;
7105:
8152: --
8153:
8154:
8155: l_progress := '050';
8156: x_return_status := FND_API.G_RET_STS_SUCCESS;
8157: EXCEPTION
8158: WHEN FND_API.G_EXC_ERROR THEN
8159: x_return_status := FND_API.G_RET_STS_ERROR;
8160:
8154:
8155: l_progress := '050';
8156: x_return_status := FND_API.G_RET_STS_SUCCESS;
8157: EXCEPTION
8158: WHEN FND_API.G_EXC_ERROR THEN
8159: x_return_status := FND_API.G_RET_STS_ERROR;
8160:
8161: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8162: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8155: l_progress := '050';
8156: x_return_status := FND_API.G_RET_STS_SUCCESS;
8157: EXCEPTION
8158: WHEN FND_API.G_EXC_ERROR THEN
8159: x_return_status := FND_API.G_RET_STS_ERROR;
8160:
8161: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8162: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8163:
8157: EXCEPTION
8158: WHEN FND_API.G_EXC_ERROR THEN
8159: x_return_status := FND_API.G_RET_STS_ERROR;
8160:
8161: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8162: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8163:
8164: WHEN OTHERS THEN
8165: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8158: WHEN FND_API.G_EXC_ERROR THEN
8159: x_return_status := FND_API.G_RET_STS_ERROR;
8160:
8161: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8162: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8163:
8164: WHEN OTHERS THEN
8165: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8166: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
8161: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8162: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8163:
8164: WHEN OTHERS THEN
8165: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8166: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
8167: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
8168: END IF;
8169:
9567: p_po_header_id => p_document_id,
9568: p_po_release_id => NULL,
9569: p_calling_program => g_action_DOC_SUBMISSION_CHECK);
9570:
9571: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9572: IF g_debug_stmt THEN
9573: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
9574: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head ||
9575: l_api_name||'.' || l_progress,
9612: 'E'
9613: );
9614: END LOOP;
9615: l_progress := '024';
9616: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9617: IF g_debug_stmt THEN
9618: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
9619: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head ||
9620: l_api_name||'.' || l_progress,
9630: fnd_message.set_name('PO','PO_TAX_CALC_UNEXPECTED_ERROR');
9631: fnd_message.set_token('ERROR',l_textline);
9632: FND_MSG_PUB.Add;
9633: l_progress := '025';
9634: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9635: END IF;
9636: END IF;
9637:
9638: p_sequence := p_sequence + SQL%ROWCOUNT;
10286: --Increment the p_sequence with number of errors reported in last query
10287: p_sequence := p_sequence + SQL%ROWCOUNT;
10288:
10289: --
10290: x_return_status := FND_API.G_RET_STS_SUCCESS;
10291:
10292:
10293: EXCEPTION
10294: WHEN FND_API.G_EXC_ERROR THEN
10290: x_return_status := FND_API.G_RET_STS_SUCCESS;
10291:
10292:
10293: EXCEPTION
10294: WHEN FND_API.G_EXC_ERROR THEN
10295: x_return_status := FND_API.G_RET_STS_ERROR;
10296:
10297: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10298: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10291:
10292:
10293: EXCEPTION
10294: WHEN FND_API.G_EXC_ERROR THEN
10295: x_return_status := FND_API.G_RET_STS_ERROR;
10296:
10297: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10298: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10299:
10293: EXCEPTION
10294: WHEN FND_API.G_EXC_ERROR THEN
10295: x_return_status := FND_API.G_RET_STS_ERROR;
10296:
10297: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10298: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10299:
10300: WHEN OTHERS THEN
10301: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10294: WHEN FND_API.G_EXC_ERROR THEN
10295: x_return_status := FND_API.G_RET_STS_ERROR;
10296:
10297: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10298: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10299:
10300: WHEN OTHERS THEN
10301: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10302: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
10297: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10298: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10299:
10300: WHEN OTHERS THEN
10301: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10302: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
10303: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
10304: END IF;
10305:
10386:
10387: --Increment the p_sequence with number of errors reported in last query
10388: p_sequence := p_sequence + SQL%ROWCOUNT;
10389:
10390: x_return_status := FND_API.G_RET_STS_SUCCESS;
10391:
10392: EXCEPTION
10393: WHEN FND_API.G_EXC_ERROR THEN
10394: x_return_status := FND_API.G_RET_STS_ERROR;
10389:
10390: x_return_status := FND_API.G_RET_STS_SUCCESS;
10391:
10392: EXCEPTION
10393: WHEN FND_API.G_EXC_ERROR THEN
10394: x_return_status := FND_API.G_RET_STS_ERROR;
10395:
10396: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10397: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10390: x_return_status := FND_API.G_RET_STS_SUCCESS;
10391:
10392: EXCEPTION
10393: WHEN FND_API.G_EXC_ERROR THEN
10394: x_return_status := FND_API.G_RET_STS_ERROR;
10395:
10396: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10397: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10398:
10392: EXCEPTION
10393: WHEN FND_API.G_EXC_ERROR THEN
10394: x_return_status := FND_API.G_RET_STS_ERROR;
10395:
10396: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10397: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10398:
10399: WHEN OTHERS THEN
10400: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10393: WHEN FND_API.G_EXC_ERROR THEN
10394: x_return_status := FND_API.G_RET_STS_ERROR;
10395:
10396: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10397: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10398:
10399: WHEN OTHERS THEN
10400: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10401: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
10396: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10397: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10398:
10399: WHEN OTHERS THEN
10400: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10401: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
10402: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
10403: END IF;
10404:
10715:
10716: /* End Bug 3286940 */
10717:
10718:
10719: x_return_status := FND_API.G_RET_STS_SUCCESS;
10720: EXCEPTION
10721: WHEN FND_API.G_EXC_ERROR THEN
10722: x_return_status := FND_API.G_RET_STS_ERROR;
10723:
10717:
10718:
10719: x_return_status := FND_API.G_RET_STS_SUCCESS;
10720: EXCEPTION
10721: WHEN FND_API.G_EXC_ERROR THEN
10722: x_return_status := FND_API.G_RET_STS_ERROR;
10723:
10724: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10725: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10718:
10719: x_return_status := FND_API.G_RET_STS_SUCCESS;
10720: EXCEPTION
10721: WHEN FND_API.G_EXC_ERROR THEN
10722: x_return_status := FND_API.G_RET_STS_ERROR;
10723:
10724: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10725: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10726:
10720: EXCEPTION
10721: WHEN FND_API.G_EXC_ERROR THEN
10722: x_return_status := FND_API.G_RET_STS_ERROR;
10723:
10724: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10725: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10726:
10727: WHEN OTHERS THEN
10728: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10721: WHEN FND_API.G_EXC_ERROR THEN
10722: x_return_status := FND_API.G_RET_STS_ERROR;
10723:
10724: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10725: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10726:
10727: WHEN OTHERS THEN
10728: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10729: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
10724: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10725: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10726:
10727: WHEN OTHERS THEN
10728: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10729: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
10730: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
10731: END IF;
10732:
11179: --Increment the p_sequence with number of errors reported in last query
11180: p_sequence := p_sequence + SQL%ROWCOUNT;
11181: --Bug 14761965 end
11182:
11183: x_return_status := FND_API.G_RET_STS_SUCCESS;
11184: EXCEPTION
11185: WHEN FND_API.G_EXC_ERROR THEN
11186: x_return_status := FND_API.G_RET_STS_ERROR;
11187:
11181: --Bug 14761965 end
11182:
11183: x_return_status := FND_API.G_RET_STS_SUCCESS;
11184: EXCEPTION
11185: WHEN FND_API.G_EXC_ERROR THEN
11186: x_return_status := FND_API.G_RET_STS_ERROR;
11187:
11188: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11182:
11183: x_return_status := FND_API.G_RET_STS_SUCCESS;
11184: EXCEPTION
11185: WHEN FND_API.G_EXC_ERROR THEN
11186: x_return_status := FND_API.G_RET_STS_ERROR;
11187:
11188: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11190:
11184: EXCEPTION
11185: WHEN FND_API.G_EXC_ERROR THEN
11186: x_return_status := FND_API.G_RET_STS_ERROR;
11187:
11188: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11190:
11191: WHEN OTHERS THEN
11192: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11185: WHEN FND_API.G_EXC_ERROR THEN
11186: x_return_status := FND_API.G_RET_STS_ERROR;
11187:
11188: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11190:
11191: WHEN OTHERS THEN
11192: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11193: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
11188: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11190:
11191: WHEN OTHERS THEN
11192: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11193: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
11194: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
11195: END IF;
11196:
11287: p_login_id ,
11288: p_sequence,
11289: l_return_status);
11290:
11291: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11292: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11293: END IF;
11294:
11295: END IF;
11288: p_sequence,
11289: l_return_status);
11290:
11291: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11292: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11293: END IF;
11294:
11295: END IF;
11296:
11312: x_sequence => p_sequence,
11313: x_return_status => l_return_status
11314: );
11315:
11316: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
11317: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11318: END IF;
11319: END IF;
11320:
11313: x_return_status => l_return_status
11314: );
11315:
11316: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
11317: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11318: END IF;
11319: END IF;
11320:
11321: --
11329: p_login_id ,
11330: p_sequence,
11331: l_return_status);
11332:
11333: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11334: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11335: END IF;
11336:
11337: l_progress := '003';
11330: p_sequence,
11331: l_return_status);
11332:
11333: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11334: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11335: END IF;
11336:
11337: l_progress := '003';
11338:
11339: -- Bug 3379488: Removed the Dest OU check for shipments with expense
11340: -- destinations with project-specified, because this scenario is prevented
11341: -- at an early stage and would not happen here
11342:
11343: x_return_status := FND_API.G_RET_STS_SUCCESS;
11344: EXCEPTION
11345: WHEN FND_API.G_EXC_ERROR THEN
11346: x_return_status := FND_API.G_RET_STS_ERROR;
11347:
11341: -- at an early stage and would not happen here
11342:
11343: x_return_status := FND_API.G_RET_STS_SUCCESS;
11344: EXCEPTION
11345: WHEN FND_API.G_EXC_ERROR THEN
11346: x_return_status := FND_API.G_RET_STS_ERROR;
11347:
11348: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11349: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11342:
11343: x_return_status := FND_API.G_RET_STS_SUCCESS;
11344: EXCEPTION
11345: WHEN FND_API.G_EXC_ERROR THEN
11346: x_return_status := FND_API.G_RET_STS_ERROR;
11347:
11348: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11349: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11350:
11344: EXCEPTION
11345: WHEN FND_API.G_EXC_ERROR THEN
11346: x_return_status := FND_API.G_RET_STS_ERROR;
11347:
11348: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11349: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11350:
11351: WHEN OTHERS THEN
11352: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11345: WHEN FND_API.G_EXC_ERROR THEN
11346: x_return_status := FND_API.G_RET_STS_ERROR;
11347:
11348: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11349: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11350:
11351: WHEN OTHERS THEN
11352: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11353: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
11348: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11349: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11350:
11351: WHEN OTHERS THEN
11352: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11353: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
11354: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
11355: END IF;
11356:
11668: --Increment the p_sequence with number of errors reported in last query
11669: p_sequence := p_sequence + l_line_num.COUNT;
11670:
11671: l_progress := '005';
11672: x_return_status := FND_API.G_RET_STS_SUCCESS;
11673: EXCEPTION
11674: WHEN FND_API.G_EXC_ERROR THEN
11675: x_return_status := FND_API.G_RET_STS_ERROR;
11676:
11670:
11671: l_progress := '005';
11672: x_return_status := FND_API.G_RET_STS_SUCCESS;
11673: EXCEPTION
11674: WHEN FND_API.G_EXC_ERROR THEN
11675: x_return_status := FND_API.G_RET_STS_ERROR;
11676:
11677: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11678: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11671: l_progress := '005';
11672: x_return_status := FND_API.G_RET_STS_SUCCESS;
11673: EXCEPTION
11674: WHEN FND_API.G_EXC_ERROR THEN
11675: x_return_status := FND_API.G_RET_STS_ERROR;
11676:
11677: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11678: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11679:
11673: EXCEPTION
11674: WHEN FND_API.G_EXC_ERROR THEN
11675: x_return_status := FND_API.G_RET_STS_ERROR;
11676:
11677: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11678: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11679:
11680: WHEN OTHERS THEN
11681: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11674: WHEN FND_API.G_EXC_ERROR THEN
11675: x_return_status := FND_API.G_RET_STS_ERROR;
11676:
11677: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11678: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11679:
11680: WHEN OTHERS THEN
11681: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11682: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
11677: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11678: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11679:
11680: WHEN OTHERS THEN
11681: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11682: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
11683: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
11684: END IF;
11685:
12577:
12578: ------------------------------------
12579:
12580: l_progress := '012';
12581: x_return_status := FND_API.G_RET_STS_SUCCESS;
12582: EXCEPTION
12583: WHEN FND_API.G_EXC_ERROR THEN
12584: x_return_status := FND_API.G_RET_STS_ERROR;
12585:
12579:
12580: l_progress := '012';
12581: x_return_status := FND_API.G_RET_STS_SUCCESS;
12582: EXCEPTION
12583: WHEN FND_API.G_EXC_ERROR THEN
12584: x_return_status := FND_API.G_RET_STS_ERROR;
12585:
12586: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12587: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12580: l_progress := '012';
12581: x_return_status := FND_API.G_RET_STS_SUCCESS;
12582: EXCEPTION
12583: WHEN FND_API.G_EXC_ERROR THEN
12584: x_return_status := FND_API.G_RET_STS_ERROR;
12585:
12586: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12587: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12588:
12582: EXCEPTION
12583: WHEN FND_API.G_EXC_ERROR THEN
12584: x_return_status := FND_API.G_RET_STS_ERROR;
12585:
12586: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12587: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12588:
12589: WHEN OTHERS THEN
12590: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12583: WHEN FND_API.G_EXC_ERROR THEN
12584: x_return_status := FND_API.G_RET_STS_ERROR;
12585:
12586: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12587: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12588:
12589: WHEN OTHERS THEN
12590: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12591: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
12586: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12587: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12588:
12589: WHEN OTHERS THEN
12590: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12591: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
12592: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
12593: END IF;
12594:
12638:
12639: l_textline PO_ONLINE_REPORT_TEXT.text_line%TYPE := NULL;
12640: l_api_name CONSTANT VARCHAR2(40) := 'CHECK_STD_GC_REF';
12641: l_progress VARCHAR2(3);
12642: l_currency_mismatch VARCHAR2(1) := FND_API.G_FALSE;
12643:
12644: TYPE NumTab is TABLE of NUMBER INDEX BY BINARY_INTEGER;
12645: l_curr_doc_line_num NumTab;
12646: l_prev_doc_line_num NumTab;
13072: x_sequence := x_sequence + SQL%ROWCOUNT;
13073: /* Bug 13550798 - End */
13074:
13075: l_progress := '999';
13076: x_return_status := FND_API.G_RET_STS_SUCCESS;
13077:
13078: EXCEPTION
13079: WHEN FND_API.G_EXC_ERROR THEN
13080: x_return_status := FND_API.G_RET_STS_ERROR;
13075: l_progress := '999';
13076: x_return_status := FND_API.G_RET_STS_SUCCESS;
13077:
13078: EXCEPTION
13079: WHEN FND_API.G_EXC_ERROR THEN
13080: x_return_status := FND_API.G_RET_STS_ERROR;
13081:
13082: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13083: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13076: x_return_status := FND_API.G_RET_STS_SUCCESS;
13077:
13078: EXCEPTION
13079: WHEN FND_API.G_EXC_ERROR THEN
13080: x_return_status := FND_API.G_RET_STS_ERROR;
13081:
13082: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13083: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13084:
13078: EXCEPTION
13079: WHEN FND_API.G_EXC_ERROR THEN
13080: x_return_status := FND_API.G_RET_STS_ERROR;
13081:
13082: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13083: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13084:
13085: WHEN OTHERS THEN
13086: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13079: WHEN FND_API.G_EXC_ERROR THEN
13080: x_return_status := FND_API.G_RET_STS_ERROR;
13081:
13082: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13083: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13084:
13085: WHEN OTHERS THEN
13086: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13087: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
13082: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13083: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13084:
13085: WHEN OTHERS THEN
13086: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13087: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
13088: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
13089: END IF;
13090:
13212: --Increment the p_sequence with number of errors reported in last query
13213: p_sequence := p_sequence + SQL%ROWCOUNT;
13214:
13215: l_progress := '002';
13216: x_return_status := FND_API.G_RET_STS_SUCCESS;
13217: EXCEPTION
13218: WHEN FND_API.G_EXC_ERROR THEN
13219: x_return_status := FND_API.G_RET_STS_ERROR;
13220:
13214:
13215: l_progress := '002';
13216: x_return_status := FND_API.G_RET_STS_SUCCESS;
13217: EXCEPTION
13218: WHEN FND_API.G_EXC_ERROR THEN
13219: x_return_status := FND_API.G_RET_STS_ERROR;
13220:
13221: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13222: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13215: l_progress := '002';
13216: x_return_status := FND_API.G_RET_STS_SUCCESS;
13217: EXCEPTION
13218: WHEN FND_API.G_EXC_ERROR THEN
13219: x_return_status := FND_API.G_RET_STS_ERROR;
13220:
13221: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13222: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13223:
13217: EXCEPTION
13218: WHEN FND_API.G_EXC_ERROR THEN
13219: x_return_status := FND_API.G_RET_STS_ERROR;
13220:
13221: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13222: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13223:
13224: WHEN OTHERS THEN
13225: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13218: WHEN FND_API.G_EXC_ERROR THEN
13219: x_return_status := FND_API.G_RET_STS_ERROR;
13220:
13221: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13222: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13223:
13224: WHEN OTHERS THEN
13225: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13226: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
13221: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13222: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13223:
13224: WHEN OTHERS THEN
13225: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13226: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
13227: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
13228: END IF;
13229:
13285: END IF;
13286: END IF;
13287:
13288: IGC_CBC_PO_GRP.IS_CBC_ENABLED ( p_api_version => 1.0,
13289: p_init_msg_list => FND_API.G_FALSE,
13290: p_commit => FND_API.G_FALSE,
13291: p_validation_level => 100,
13292: x_return_status => l_return_status,
13293: x_msg_count => l_msg_count,
13286: END IF;
13287:
13288: IGC_CBC_PO_GRP.IS_CBC_ENABLED ( p_api_version => 1.0,
13289: p_init_msg_list => FND_API.G_FALSE,
13290: p_commit => FND_API.G_FALSE,
13291: p_validation_level => 100,
13292: x_return_status => l_return_status,
13293: x_msg_count => l_msg_count,
13294: x_msg_data => l_msg_data,
13293: x_msg_count => l_msg_count,
13294: x_msg_data => l_msg_data,
13295: x_cbc_enabled => l_cbc_enabled);
13296:
13297: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
13298: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13299: END IF;
13300:
13301: l_progress := '001';
13294: x_msg_data => l_msg_data,
13295: x_cbc_enabled => l_cbc_enabled);
13296:
13297: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
13298: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13299: END IF;
13300:
13301: l_progress := '001';
13302: IF g_debug_stmt THEN
13309: IF l_cbc_enabled = 'Y' THEN
13310:
13311: IGC_CBC_PO_GRP.CBC_HEADER_VALIDATIONS(
13312: p_api_version => 1.0,
13313: p_init_msg_list => FND_API.G_FALSE,
13314: p_commit => FND_API.G_FALSE,
13315: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
13316: x_return_status => l_return_status,
13317: x_msg_count => l_msg_count,
13310:
13311: IGC_CBC_PO_GRP.CBC_HEADER_VALIDATIONS(
13312: p_api_version => 1.0,
13313: p_init_msg_list => FND_API.G_FALSE,
13314: p_commit => FND_API.G_FALSE,
13315: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
13316: x_return_status => l_return_status,
13317: x_msg_count => l_msg_count,
13318: x_msg_data =>l_msg_data,
13311: IGC_CBC_PO_GRP.CBC_HEADER_VALIDATIONS(
13312: p_api_version => 1.0,
13313: p_init_msg_list => FND_API.G_FALSE,
13314: p_commit => FND_API.G_FALSE,
13315: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
13316: x_return_status => l_return_status,
13317: x_msg_count => l_msg_count,
13318: x_msg_data =>l_msg_data,
13319: p_document_id => p_document_id,
13327: || l_progress,'CBC call returned '|| l_return_status);
13328: END IF;
13329: END IF;
13330:
13331: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
13332: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13333: END IF;
13334:
13335: IF l_return_status = FND_API.G_RET_STS_ERROR
13328: END IF;
13329: END IF;
13330:
13331: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
13332: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13333: END IF;
13334:
13335: IF l_return_status = FND_API.G_RET_STS_ERROR
13336: THEN
13331: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
13332: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13333: END IF;
13334:
13335: IF l_return_status = FND_API.G_RET_STS_ERROR
13336: THEN
13337: l_textline := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
13338: p_encoded => 'F');
13339:
13375:
13376: END IF; --cbc is enabled
13377:
13378: l_progress := '004';
13379: x_return_status := FND_API.G_RET_STS_SUCCESS;
13380: EXCEPTION
13381: WHEN FND_API.G_EXC_ERROR THEN
13382: x_return_status := FND_API.G_RET_STS_ERROR;
13383:
13377:
13378: l_progress := '004';
13379: x_return_status := FND_API.G_RET_STS_SUCCESS;
13380: EXCEPTION
13381: WHEN FND_API.G_EXC_ERROR THEN
13382: x_return_status := FND_API.G_RET_STS_ERROR;
13383:
13384: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13385: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13378: l_progress := '004';
13379: x_return_status := FND_API.G_RET_STS_SUCCESS;
13380: EXCEPTION
13381: WHEN FND_API.G_EXC_ERROR THEN
13382: x_return_status := FND_API.G_RET_STS_ERROR;
13383:
13384: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13385: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13386:
13380: EXCEPTION
13381: WHEN FND_API.G_EXC_ERROR THEN
13382: x_return_status := FND_API.G_RET_STS_ERROR;
13383:
13384: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13385: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13386:
13387: WHEN OTHERS THEN
13388: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13381: WHEN FND_API.G_EXC_ERROR THEN
13382: x_return_status := FND_API.G_RET_STS_ERROR;
13383:
13384: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13385: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13386:
13387: WHEN OTHERS THEN
13388: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13389: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
13384: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13385: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13386:
13387: WHEN OTHERS THEN
13388: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13389: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
13390: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
13391: END IF;
13392:
13516:
13517: --populate the global REQ headers table
13518: populate_req_headers_gt(l_doc_id, l_return_status);
13519:
13520: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
13521: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13522: END IF;
13523:
13524: l_progress := '002';
13517: --populate the global REQ headers table
13518: populate_req_headers_gt(l_doc_id, l_return_status);
13519:
13520: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
13521: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13522: END IF;
13523:
13524: l_progress := '002';
13525: --populate the global REQ line table
13524: l_progress := '002';
13525: --populate the global REQ line table
13526: populate_req_lines_gt(l_doc_id, l_return_status);
13527:
13528: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
13529: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13530: END IF;
13531:
13532: ELSIF p_doc_type in ('PO', 'PA') THEN
13525: --populate the global REQ line table
13526: populate_req_lines_gt(l_doc_id, l_return_status);
13527:
13528: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
13529: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13530: END IF;
13531:
13532: ELSIF p_doc_type in ('PO', 'PA') THEN
13533: l_progress := '004';
13543: p_document_id => l_doc_id,
13544: p_draft_id => p_draft_id, -- CLM Aprvl
13545: x_return_status => l_return_status);
13546:
13547: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
13548: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13549: END IF;
13550:
13551: l_progress := '005';
13544: p_draft_id => p_draft_id, -- CLM Aprvl
13545: x_return_status => l_return_status);
13546:
13547: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
13548: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13549: END IF;
13550:
13551: l_progress := '005';
13552:
13561: , p_draft_id => p_draft_id -- CLM Aprvl
13562: , x_return_status => l_return_status
13563: );
13564:
13565: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
13566: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13567: END IF;
13568:
13569: ELSIF p_doc_type = 'RELEASE' THEN
13562: , x_return_status => l_return_status
13563: );
13564:
13565: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
13566: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13567: END IF;
13568:
13569: ELSIF p_doc_type = 'RELEASE' THEN
13570: l_progress := '008';
13577:
13578: --populate the global release table
13579: populate_releases_gt(l_doc_id, l_return_status);
13580:
13581: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
13582: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13583: END IF;
13584:
13585: l_progress := '009';
13578: --populate the global release table
13579: populate_releases_gt(l_doc_id, l_return_status);
13580:
13581: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
13582: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13583: END IF;
13584:
13585: l_progress := '009';
13586: -- Get the header_id of the relevent Blanket
13596: p_document_id => l_blanket_header_id,
13597: p_draft_id => p_draft_id, -- CLM Aprvl
13598: x_return_status => l_return_status);
13599:
13600: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
13601: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13602: END IF;
13603:
13604: END IF;
13597: p_draft_id => p_draft_id, -- CLM Aprvl
13598: x_return_status => l_return_status);
13599:
13600: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
13601: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13602: END IF;
13603:
13604: END IF;
13605:
13640:
13641: --LCM ER end.
13642: l_progress := '900';
13643:
13644: x_return_status := FND_API.G_RET_STS_SUCCESS;
13645: EXCEPTION
13646: WHEN FND_API.G_EXC_ERROR THEN
13647: x_return_status := FND_API.G_RET_STS_ERROR;
13648:
13642: l_progress := '900';
13643:
13644: x_return_status := FND_API.G_RET_STS_SUCCESS;
13645: EXCEPTION
13646: WHEN FND_API.G_EXC_ERROR THEN
13647: x_return_status := FND_API.G_RET_STS_ERROR;
13648:
13649: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13650: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13643:
13644: x_return_status := FND_API.G_RET_STS_SUCCESS;
13645: EXCEPTION
13646: WHEN FND_API.G_EXC_ERROR THEN
13647: x_return_status := FND_API.G_RET_STS_ERROR;
13648:
13649: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13650: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13651:
13645: EXCEPTION
13646: WHEN FND_API.G_EXC_ERROR THEN
13647: x_return_status := FND_API.G_RET_STS_ERROR;
13648:
13649: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13650: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13651:
13652: WHEN OTHERS THEN
13653: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13646: WHEN FND_API.G_EXC_ERROR THEN
13647: x_return_status := FND_API.G_RET_STS_ERROR;
13648:
13649: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13650: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13651:
13652: WHEN OTHERS THEN
13653: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13654: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
13649: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13650: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13651:
13652: WHEN OTHERS THEN
13653: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13654: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
13655: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
13656: END IF;
13657:
13944: VALUE_BASIS --
13945: )
13946: SELECT
13947: -- bug3611217
13948: -- Use a sequence number rather than FND_API.G_MISS_NUM
13949: -- since we have added unique constraint on LINE_LOCATION_ID
13950: PO_LINE_LOCATIONS_S.nextval,
13951: poll.LAST_UPDATE_DATE ,
13952: poll.LAST_UPDATED_BY ,
14041:
14042: --
14043: --iSP is passing shipment_num now
14044: nvl(p_requested_changes.shipment_changes.split_shipment_num(i),
14045: FND_API.G_MISS_NUM),
14046: --SHIPMENT_NUM ,
14047: --
14048:
14049: poll.SOURCE_SHIPMENT_ID ,
14153: WHERE po_distribution_id = p_requested_changes.distribution_changes.po_distribution_id(i);
14154: END IF;
14155:
14156: l_progress := '006';
14157: x_return_status := FND_API.G_RET_STS_SUCCESS;
14158: EXCEPTION
14159: WHEN FND_API.G_EXC_ERROR THEN
14160: x_return_status := FND_API.G_RET_STS_ERROR;
14161:
14155:
14156: l_progress := '006';
14157: x_return_status := FND_API.G_RET_STS_SUCCESS;
14158: EXCEPTION
14159: WHEN FND_API.G_EXC_ERROR THEN
14160: x_return_status := FND_API.G_RET_STS_ERROR;
14161:
14162: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
14163: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14156: l_progress := '006';
14157: x_return_status := FND_API.G_RET_STS_SUCCESS;
14158: EXCEPTION
14159: WHEN FND_API.G_EXC_ERROR THEN
14160: x_return_status := FND_API.G_RET_STS_ERROR;
14161:
14162: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
14163: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14164:
14158: EXCEPTION
14159: WHEN FND_API.G_EXC_ERROR THEN
14160: x_return_status := FND_API.G_RET_STS_ERROR;
14161:
14162: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
14163: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14164:
14165: WHEN OTHERS THEN
14166: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14159: WHEN FND_API.G_EXC_ERROR THEN
14160: x_return_status := FND_API.G_RET_STS_ERROR;
14161:
14162: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
14163: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14164:
14165: WHEN OTHERS THEN
14166: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14167: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
14162: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
14163: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14164:
14165: WHEN OTHERS THEN
14166: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14167: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
14168: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
14169: END IF;
14170:
14557: END IF;
14558: END IF;
14559:
14560: l_progress := '002';
14561: x_return_status := FND_API.G_RET_STS_SUCCESS;
14562: EXCEPTION
14563: WHEN FND_API.G_EXC_ERROR THEN
14564: x_return_status := FND_API.G_RET_STS_ERROR;
14565:
14559:
14560: l_progress := '002';
14561: x_return_status := FND_API.G_RET_STS_SUCCESS;
14562: EXCEPTION
14563: WHEN FND_API.G_EXC_ERROR THEN
14564: x_return_status := FND_API.G_RET_STS_ERROR;
14565:
14566: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
14567: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14560: l_progress := '002';
14561: x_return_status := FND_API.G_RET_STS_SUCCESS;
14562: EXCEPTION
14563: WHEN FND_API.G_EXC_ERROR THEN
14564: x_return_status := FND_API.G_RET_STS_ERROR;
14565:
14566: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
14567: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14568:
14562: EXCEPTION
14563: WHEN FND_API.G_EXC_ERROR THEN
14564: x_return_status := FND_API.G_RET_STS_ERROR;
14565:
14566: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
14567: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14568:
14569: WHEN OTHERS THEN
14570:
14563: WHEN FND_API.G_EXC_ERROR THEN
14564: x_return_status := FND_API.G_RET_STS_ERROR;
14565:
14566: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
14567: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14568:
14569: WHEN OTHERS THEN
14570:
14571: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14567: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14568:
14569: WHEN OTHERS THEN
14570:
14571: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14572: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
14573: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
14574: END IF;
14575:
15005:
15006:
15007:
15008: l_progress := '030';
15009: x_return_status := FND_API.G_RET_STS_SUCCESS;
15010:
15011: EXCEPTION
15012: WHEN FND_API.G_EXC_ERROR THEN
15013: x_return_status := FND_API.G_RET_STS_ERROR;
15008: l_progress := '030';
15009: x_return_status := FND_API.G_RET_STS_SUCCESS;
15010:
15011: EXCEPTION
15012: WHEN FND_API.G_EXC_ERROR THEN
15013: x_return_status := FND_API.G_RET_STS_ERROR;
15014:
15015: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
15016: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15009: x_return_status := FND_API.G_RET_STS_SUCCESS;
15010:
15011: EXCEPTION
15012: WHEN FND_API.G_EXC_ERROR THEN
15013: x_return_status := FND_API.G_RET_STS_ERROR;
15014:
15015: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
15016: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15017:
15011: EXCEPTION
15012: WHEN FND_API.G_EXC_ERROR THEN
15013: x_return_status := FND_API.G_RET_STS_ERROR;
15014:
15015: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
15016: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15017:
15018: WHEN OTHERS THEN
15019: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15012: WHEN FND_API.G_EXC_ERROR THEN
15013: x_return_status := FND_API.G_RET_STS_ERROR;
15014:
15015: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
15016: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15017:
15018: WHEN OTHERS THEN
15019: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15020: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
15015: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
15016: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15017:
15018: WHEN OTHERS THEN
15019: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15020: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
15021: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
15022: END IF;
15023:
15234: FROM po_releases
15235: WHERE po_release_id = p_document_id;
15236:
15237: l_progress := '001';
15238: x_return_status := FND_API.G_RET_STS_SUCCESS;
15239: EXCEPTION
15240: WHEN FND_API.G_EXC_ERROR THEN
15241: x_return_status := FND_API.G_RET_STS_ERROR;
15242:
15236:
15237: l_progress := '001';
15238: x_return_status := FND_API.G_RET_STS_SUCCESS;
15239: EXCEPTION
15240: WHEN FND_API.G_EXC_ERROR THEN
15241: x_return_status := FND_API.G_RET_STS_ERROR;
15242:
15243: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
15244: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15237: l_progress := '001';
15238: x_return_status := FND_API.G_RET_STS_SUCCESS;
15239: EXCEPTION
15240: WHEN FND_API.G_EXC_ERROR THEN
15241: x_return_status := FND_API.G_RET_STS_ERROR;
15242:
15243: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
15244: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15245:
15239: EXCEPTION
15240: WHEN FND_API.G_EXC_ERROR THEN
15241: x_return_status := FND_API.G_RET_STS_ERROR;
15242:
15243: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
15244: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15245:
15246: WHEN OTHERS THEN
15247: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15240: WHEN FND_API.G_EXC_ERROR THEN
15241: x_return_status := FND_API.G_RET_STS_ERROR;
15242:
15243: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
15244: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15245:
15246: WHEN OTHERS THEN
15247: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15248: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
15243: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
15244: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15245:
15246: WHEN OTHERS THEN
15247: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15248: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
15249: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
15250: END IF;
15251:
15410: FROM po_requisition_headers
15411: WHERE requisition_header_id = p_document_id;
15412:
15413: l_progress := '001';
15414: x_return_status := FND_API.G_RET_STS_SUCCESS;
15415: EXCEPTION
15416: WHEN FND_API.G_EXC_ERROR THEN
15417: x_return_status := FND_API.G_RET_STS_ERROR;
15418:
15412:
15413: l_progress := '001';
15414: x_return_status := FND_API.G_RET_STS_SUCCESS;
15415: EXCEPTION
15416: WHEN FND_API.G_EXC_ERROR THEN
15417: x_return_status := FND_API.G_RET_STS_ERROR;
15418:
15419: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
15420: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15413: l_progress := '001';
15414: x_return_status := FND_API.G_RET_STS_SUCCESS;
15415: EXCEPTION
15416: WHEN FND_API.G_EXC_ERROR THEN
15417: x_return_status := FND_API.G_RET_STS_ERROR;
15418:
15419: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
15420: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15421:
15415: EXCEPTION
15416: WHEN FND_API.G_EXC_ERROR THEN
15417: x_return_status := FND_API.G_RET_STS_ERROR;
15418:
15419: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
15420: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15421:
15422: WHEN OTHERS THEN
15423: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15416: WHEN FND_API.G_EXC_ERROR THEN
15417: x_return_status := FND_API.G_RET_STS_ERROR;
15418:
15419: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
15420: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15421:
15422: WHEN OTHERS THEN
15423: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15424: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
15419: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
15420: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15421:
15422: WHEN OTHERS THEN
15423: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15424: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
15425: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
15426: END IF;
15427:
15743: FROM po_requisition_lines
15744: WHERE requisition_header_id = p_document_id;
15745:
15746: l_progress := '001';
15747: x_return_status := FND_API.G_RET_STS_SUCCESS;
15748: EXCEPTION
15749: WHEN FND_API.G_EXC_ERROR THEN
15750: x_return_status := FND_API.G_RET_STS_ERROR;
15751:
15745:
15746: l_progress := '001';
15747: x_return_status := FND_API.G_RET_STS_SUCCESS;
15748: EXCEPTION
15749: WHEN FND_API.G_EXC_ERROR THEN
15750: x_return_status := FND_API.G_RET_STS_ERROR;
15751:
15752: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
15753: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15746: l_progress := '001';
15747: x_return_status := FND_API.G_RET_STS_SUCCESS;
15748: EXCEPTION
15749: WHEN FND_API.G_EXC_ERROR THEN
15750: x_return_status := FND_API.G_RET_STS_ERROR;
15751:
15752: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
15753: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15754:
15748: EXCEPTION
15749: WHEN FND_API.G_EXC_ERROR THEN
15750: x_return_status := FND_API.G_RET_STS_ERROR;
15751:
15752: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
15753: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15754:
15755: WHEN OTHERS THEN
15756: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15749: WHEN FND_API.G_EXC_ERROR THEN
15750: x_return_status := FND_API.G_RET_STS_ERROR;
15751:
15752: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
15753: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15754:
15755: WHEN OTHERS THEN
15756: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15757: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
15752: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
15753: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15754:
15755: WHEN OTHERS THEN
15756: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15757: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
15758: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
15759: END IF;
15760:
15952: * Modifies: None
15953: * Effects: This procedure builds dynamic WHERE clause fragments based on
15954: * document security parameters.
15955: * Returns:
15956: * x_return_status: FND_API.G_RET_STS_SUCCESS if API succeeds
15957: * FND_API.G_RET_STS_ERROR if API fails
15958: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error
15959: * x_msg_data: Contains error msg in case x_return_status returned
15960: * FND_API.G_RET_STS_ERROR or
15953: * Effects: This procedure builds dynamic WHERE clause fragments based on
15954: * document security parameters.
15955: * Returns:
15956: * x_return_status: FND_API.G_RET_STS_SUCCESS if API succeeds
15957: * FND_API.G_RET_STS_ERROR if API fails
15958: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error
15959: * x_msg_data: Contains error msg in case x_return_status returned
15960: * FND_API.G_RET_STS_ERROR or
15961: * FND_API.G_RET_STS_UNEXP_ERROR
15954: * document security parameters.
15955: * Returns:
15956: * x_return_status: FND_API.G_RET_STS_SUCCESS if API succeeds
15957: * FND_API.G_RET_STS_ERROR if API fails
15958: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error
15959: * x_msg_data: Contains error msg in case x_return_status returned
15960: * FND_API.G_RET_STS_ERROR or
15961: * FND_API.G_RET_STS_UNEXP_ERROR
15962: * x_where_clause: The constructed where clause
15956: * x_return_status: FND_API.G_RET_STS_SUCCESS if API succeeds
15957: * FND_API.G_RET_STS_ERROR if API fails
15958: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error
15959: * x_msg_data: Contains error msg in case x_return_status returned
15960: * FND_API.G_RET_STS_ERROR or
15961: * FND_API.G_RET_STS_UNEXP_ERROR
15962: * x_where_clause: The constructed where clause
15963: */
15964:
15957: * FND_API.G_RET_STS_ERROR if API fails
15958: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error
15959: * x_msg_data: Contains error msg in case x_return_status returned
15960: * FND_API.G_RET_STS_ERROR or
15961: * FND_API.G_RET_STS_UNEXP_ERROR
15962: * x_where_clause: The constructed where clause
15963: */
15964:
15965: PROCEDURE PO_SECURITY_CHECK (p_api_version IN NUMBER,
15987: BEGIN
15988:
15989: l_progress := '000';
15990: -- Standard call to check for call compatibility
15991: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
15992: THEN
15993: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15994: END IF;
15995:
15989: l_progress := '000';
15990: -- Standard call to check for call compatibility
15991: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
15992: THEN
15993: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15994: END IF;
15995:
15996: l_progress := '010';
15997: IF g_debug_stmt THEN
16106:
16107:
16108:
16109: l_progress := '070';
16110: x_return_status := FND_API.G_RET_STS_SUCCESS;
16111: x_msg_data := NULL;
16112:
16113: l_progress := '100';
16114: IF g_debug_stmt THEN
16119: END IF;
16120: END IF;
16121:
16122: EXCEPTION
16123: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
16124: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
16125: p_encoded => 'F');
16126: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16127: x_where_clause := NULL;
16122: EXCEPTION
16123: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
16124: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
16125: p_encoded => 'F');
16126: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16127: x_where_clause := NULL;
16128: WHEN FND_API.G_EXC_ERROR THEN
16129: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
16130: p_encoded => 'F');
16124: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
16125: p_encoded => 'F');
16126: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16127: x_where_clause := NULL;
16128: WHEN FND_API.G_EXC_ERROR THEN
16129: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
16130: p_encoded => 'F');
16131: x_return_status := FND_API.G_RET_STS_ERROR;
16132: x_where_clause := NULL;
16127: x_where_clause := NULL;
16128: WHEN FND_API.G_EXC_ERROR THEN
16129: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
16130: p_encoded => 'F');
16131: x_return_status := FND_API.G_RET_STS_ERROR;
16132: x_where_clause := NULL;
16133: WHEN OTHERS THEN
16134: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
16135: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
16144: END IF;
16145:
16146: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
16147: p_encoded => 'F');
16148: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16149: x_where_clause := NULL;
16150:
16151: END PO_SECURITY_CHECK;
16152:
16215: -- bug3592160 END
16216:
16217: --
16218: l_role PO_DRAFTS.owner_role%TYPE := NVL(p_role, PO_GLOBAL.g_ROLE_BUYER);
16219: l_skip_cat_upload_chk VARCHAR2(1) := NVL(p_skip_cat_upload_chk, FND_API.G_FALSE);
16220:
16221: l_update_allowed VARCHAR2(1);
16222: l_locking_applicable VARCHAR2(1);
16223: l_unlock_required VARCHAR2(1);
16329: END IF;
16330: END IF;
16331: PO_DOCUMENT_LOCK_GRP.LOCK_DOCUMENT (
16332: p_api_version => 1.0,
16333: P_INIT_MSG_LIST => FND_API.G_FALSE,
16334: P_DOCUMENT_TYPE => l_document_type,
16335: P_DOCUMENT_ID => l_document_id,
16336: x_return_status => x_return_status);
16337:
16334: P_DOCUMENT_TYPE => l_document_type,
16335: P_DOCUMENT_ID => l_document_id,
16336: x_return_status => x_return_status);
16337:
16338: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16339: return;
16340: END IF;
16341: END IF;
16342: ELSE
16370: x_unlock_required => l_unlock_required,
16371: x_message => l_message
16372: );
16373:
16374: IF (l_update_allowed = FND_API.G_FALSE) THEN
16375: x_po_status_rec.updatable_flag(i) := 'N';
16376: END IF;
16377: END IF;
16378: END LOOP;
16379:
16380: --
16381:
16382:
16383: x_return_status := FND_API.G_RET_STS_SUCCESS;
16384:
16385: EXCEPTION
16386: WHEN FND_API.G_EXC_ERROR THEN
16387: x_return_status := FND_API.G_RET_STS_ERROR;
16382:
16383: x_return_status := FND_API.G_RET_STS_SUCCESS;
16384:
16385: EXCEPTION
16386: WHEN FND_API.G_EXC_ERROR THEN
16387: x_return_status := FND_API.G_RET_STS_ERROR;
16388: WHEN OTHERS THEN
16389: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16390: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name || '.' || l_progress);
16383: x_return_status := FND_API.G_RET_STS_SUCCESS;
16384:
16385: EXCEPTION
16386: WHEN FND_API.G_EXC_ERROR THEN
16387: x_return_status := FND_API.G_RET_STS_ERROR;
16388: WHEN OTHERS THEN
16389: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16390: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name || '.' || l_progress);
16391:
16385: EXCEPTION
16386: WHEN FND_API.G_EXC_ERROR THEN
16387: x_return_status := FND_API.G_RET_STS_ERROR;
16388: WHEN OTHERS THEN
16389: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16390: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name || '.' || l_progress);
16391:
16392: END check_updatable;
16393:
16557: DELETE FROM po_session_gt
16558: WHERE key = l_procedure_id;
16559: -- bug3592160 END
16560:
16561: x_return_status := FND_API.G_RET_STS_SUCCESS;
16562:
16563: EXCEPTION
16564: WHEN FND_API.G_EXC_ERROR THEN
16565: x_return_status := FND_API.G_RET_STS_ERROR;
16560:
16561: x_return_status := FND_API.G_RET_STS_SUCCESS;
16562:
16563: EXCEPTION
16564: WHEN FND_API.G_EXC_ERROR THEN
16565: x_return_status := FND_API.G_RET_STS_ERROR;
16566: WHEN OTHERS THEN
16567: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16568: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name || '.' || l_progress);
16561: x_return_status := FND_API.G_RET_STS_SUCCESS;
16562:
16563: EXCEPTION
16564: WHEN FND_API.G_EXC_ERROR THEN
16565: x_return_status := FND_API.G_RET_STS_ERROR;
16566: WHEN OTHERS THEN
16567: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16568: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name || '.' || l_progress);
16569:
16563: EXCEPTION
16564: WHEN FND_API.G_EXC_ERROR THEN
16565: x_return_status := FND_API.G_RET_STS_ERROR;
16566: WHEN OTHERS THEN
16567: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16568: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name || '.' || l_progress);
16569:
16570: END check_reservable;
16571:
16726: DELETE FROM po_session_gt
16727: WHERE key = l_procedure_id;
16728: -- bug3592160 END
16729:
16730: x_return_status := FND_API.G_RET_STS_SUCCESS;
16731:
16732: EXCEPTION
16733: WHEN FND_API.G_EXC_ERROR THEN
16734: x_return_status := FND_API.G_RET_STS_ERROR;
16729:
16730: x_return_status := FND_API.G_RET_STS_SUCCESS;
16731:
16732: EXCEPTION
16733: WHEN FND_API.G_EXC_ERROR THEN
16734: x_return_status := FND_API.G_RET_STS_ERROR;
16735: WHEN OTHERS THEN
16736: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16737: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name || '.' || l_progress);
16730: x_return_status := FND_API.G_RET_STS_SUCCESS;
16731:
16732: EXCEPTION
16733: WHEN FND_API.G_EXC_ERROR THEN
16734: x_return_status := FND_API.G_RET_STS_ERROR;
16735: WHEN OTHERS THEN
16736: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16737: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name || '.' || l_progress);
16738:
16732: EXCEPTION
16733: WHEN FND_API.G_EXC_ERROR THEN
16734: x_return_status := FND_API.G_RET_STS_ERROR;
16735: WHEN OTHERS THEN
16736: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16737: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name || '.' || l_progress);
16738:
16739: END check_unreservable;
16740:
16892: x_po_status_rec.cancel_flag, x_po_status_rec.frozen_flag, x_po_status_rec.hold_flag
16893: FROM po_headers_gt
16894: ORDER BY PO_HEADER_ID;
16895:
16896: x_return_status := FND_API.G_RET_STS_SUCCESS;
16897:
16898: EXCEPTION
16899: WHEN FND_API.G_EXC_ERROR THEN
16900: x_return_status := FND_API.G_RET_STS_ERROR;
16895:
16896: x_return_status := FND_API.G_RET_STS_SUCCESS;
16897:
16898: EXCEPTION
16899: WHEN FND_API.G_EXC_ERROR THEN
16900: x_return_status := FND_API.G_RET_STS_ERROR;
16901: WHEN OTHERS THEN
16902: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16903: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name || '.' || l_progress);
16896: x_return_status := FND_API.G_RET_STS_SUCCESS;
16897:
16898: EXCEPTION
16899: WHEN FND_API.G_EXC_ERROR THEN
16900: x_return_status := FND_API.G_RET_STS_ERROR;
16901: WHEN OTHERS THEN
16902: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16903: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name || '.' || l_progress);
16904:
16898: EXCEPTION
16899: WHEN FND_API.G_EXC_ERROR THEN
16900: x_return_status := FND_API.G_RET_STS_ERROR;
16901: WHEN OTHERS THEN
16902: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16903: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name || '.' || l_progress);
16904:
16905: END get_status;
16906:
16952: -- To be used by updatalbe chk only.
16953: -- Role of the suer calling this API. (BUYER, SUPPLIER, CAT ADMIN, etc.)
16954: --p_skip_cat_upload_chk
16955: -- To be used by updatalbe chk only.
16956: -- FND_API.G_TRUE if catalog upload status check should not be performed
16957: -- FND_API.G_FALSE otherwise
16958: --OUT:
16959: --x_return_status
16960: -- Indicates API return status as 'S', 'E' or 'U'.
16953: -- Role of the suer calling this API. (BUYER, SUPPLIER, CAT ADMIN, etc.)
16954: --p_skip_cat_upload_chk
16955: -- To be used by updatalbe chk only.
16956: -- FND_API.G_TRUE if catalog upload status check should not be performed
16957: -- FND_API.G_FALSE otherwise
16958: --OUT:
16959: --x_return_status
16960: -- Indicates API return status as 'S', 'E' or 'U'.
16961: --x_po_status_rec
17007: END IF;
17008:
17009: -- Standard call to check for call compatibility
17010: l_progress := '010';
17011: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
17012: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
17013: END IF;
17014:
17015: l_progress := '020'; -- Initialize Local/Output Variables
17008:
17009: -- Standard call to check for call compatibility
17010: l_progress := '010';
17011: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
17012: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
17013: END IF;
17014:
17015: l_progress := '020'; -- Initialize Local/Output Variables
17016: l_count := p_header_id.count;
17037: p_skip_cat_upload_chk => p_skip_cat_upload_chk, -- PDOI Rewrite R12
17038: x_po_status_rec => x_po_status_rec,
17039: x_return_status => x_return_status);
17040:
17041: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17042: return;
17043: END IF;
17044:
17045: END IF; --}END of IF INSTR(p_mode, G_CHECK_UPDATEABLE) > 0
17062: p_lock_flag => p_lock_flag,
17063: x_po_status_rec => x_po_status_rec,
17064: x_return_status => x_return_status);
17065:
17066: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17067: return;
17068: END IF;
17069:
17070: END IF; --}END of IF INSTR(p_mode, G_CHECK_RESERVABLE) > 0
17087: p_lock_flag => p_lock_flag,
17088: x_po_status_rec => x_po_status_rec,
17089: x_return_status => x_return_status);
17090:
17091: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17092: return;
17093: END IF;
17094:
17095: END IF; --}END of IF INSTR(p_mode, G_CHECK_UNRESERVABLE) > 0
17111: p_distribution_id => p_distribution_id,
17112: x_po_status_rec => x_po_status_rec,
17113: x_return_status => x_return_status);
17114:
17115: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17116: return;
17117: END IF;
17118:
17119: END IF; --}END of IF INSTR(p_mode, G_GET_STATUS) > 0
17123: IF x_return_status is null THEN -- no valid check status request specified
17124: FND_MESSAGE.set_name('PO', 'PO_STATCHK_GENERAL_ERROR');
17125: FND_MESSAGE.set_token('ERROR_TEXT', 'No Valid p_mode specified !');
17126: FND_MSG_PUB.Add;
17127: RAISE FND_API.G_EXC_ERROR;
17128: END IF;
17129:
17130: EXCEPTION
17131: WHEN FND_API.G_EXC_ERROR THEN
17127: RAISE FND_API.G_EXC_ERROR;
17128: END IF;
17129:
17130: EXCEPTION
17131: WHEN FND_API.G_EXC_ERROR THEN
17132: x_return_status := FND_API.G_RET_STS_ERROR;
17133: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
17134: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
17135: WHEN OTHERS THEN
17128: END IF;
17129:
17130: EXCEPTION
17131: WHEN FND_API.G_EXC_ERROR THEN
17132: x_return_status := FND_API.G_RET_STS_ERROR;
17133: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
17134: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
17135: WHEN OTHERS THEN
17136: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
17129:
17130: EXCEPTION
17131: WHEN FND_API.G_EXC_ERROR THEN
17132: x_return_status := FND_API.G_RET_STS_ERROR;
17133: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
17134: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
17135: WHEN OTHERS THEN
17136: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
17137: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name || '.' || l_progress);
17130: EXCEPTION
17131: WHEN FND_API.G_EXC_ERROR THEN
17132: x_return_status := FND_API.G_RET_STS_ERROR;
17133: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
17134: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
17135: WHEN OTHERS THEN
17136: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
17137: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name || '.' || l_progress);
17138:
17132: x_return_status := FND_API.G_RET_STS_ERROR;
17133: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
17134: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
17135: WHEN OTHERS THEN
17136: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
17137: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name || '.' || l_progress);
17138:
17139: END po_status_check;
17140:
17464: , p_sequence => p_sequence
17465: , x_return_status => l_ret_sts
17466: );
17467:
17468: IF (l_ret_sts <> FND_API.G_RET_STS_SUCCESS) THEN
17469: --d_msg := 'check_unvalidated_invoices not successful';
17470: l_progress := 110;
17471: RAISE PO_CORE_S.g_early_return_exc;
17472: END IF;
18459: );
18460:
18461: l_progress := '210';
18462:
18463: IF (l_invalid_period_flag = FND_API.G_TRUE) THEN
18464:
18465: l_progress := '215';
18466: IF g_debug_stmt THEN
18467: PO_DEBUG.debug_stmt(l_log_head,l_progress,'invalid period');
18769: -- maintains a count of total number of submission check errors/warnings
18770: --OUT:
18771: --x_return_status
18772: -- return status of the procedure. Possible values are
18773: -- FND_API.G_RET_STS_SUCCESS and FND_API.G_RET_STS_UNEXP_ERROR
18774: --Notes:
18775: -- None
18776: --Testing:
18777: -- None
18796:
18797: BEGIN
18798:
18799: l_progress := '000';
18800: x_return_status := FND_API.G_RET_STS_SUCCESS;
18801:
18802: IF g_debug_stmt THEN
18803: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
18804: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
18814: FROM po_headers_all
18815: WHERE po_header_id = p_document_id;
18816: EXCEPTION
18817: WHEN OTHERS THEN
18818: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18819: END;
18820:
18821: l_progress := '010';
18822: IF g_debug_stmt THEN
18892: END IF; -- l_valid_registration check
18893: END IF; -- l_vendor_id and l_vendor_site_id check
18894:
18895: EXCEPTION
18896: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
18897: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
18898: WHEN OTHERS THEN
18899: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
18900: IF (g_debug_unexp) THEN
18893: END IF; -- l_vendor_id and l_vendor_site_id check
18894:
18895: EXCEPTION
18896: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
18897: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
18898: WHEN OTHERS THEN
18899: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
18900: IF (g_debug_unexp) THEN
18901: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
18895: EXCEPTION
18896: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
18897: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
18898: WHEN OTHERS THEN
18899: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
18900: IF (g_debug_unexp) THEN
18901: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
18902: FND_LOG.string(FND_LOG.level_unexpected,
18903: G_PKG_NAME||l_api_name|| '.others_exception',
18965: , p_sequence => p_sequence
18966: , x_return_status => l_ret_sts
18967: );
18968:
18969: IF (l_ret_sts <> FND_API.G_RET_STS_SUCCESS) THEN
18970: d_msg := 'check_rcv_trans_interface not successful';
18971: d_progress := 30;
18972: RAISE PO_CORE_S.g_early_return_exc;
18973: END IF;
18983: , p_sequence => p_sequence
18984: , x_return_status => l_ret_sts
18985: );
18986:
18987: IF (l_ret_sts <> FND_API.G_RET_STS_SUCCESS) THEN
18988: d_msg := 'check_asn_not_fully_received not successful';
18989: d_progress := 50;
18990: RAISE PO_CORE_S.g_early_return_exc;
18991: END IF;
19000: , p_sequence => p_sequence
19001: , x_return_status => l_ret_sts
19002: );
19003:
19004: IF (l_ret_sts <> FND_API.G_RET_STS_SUCCESS) THEN
19005: d_msg := 'check_qty_rcv_but_not_deliv not successful';
19006: d_progress := 70;
19007: RAISE PO_CORE_S.g_early_return_exc;
19008: END IF;
19017: , p_sequence => p_sequence
19018: , x_return_status => l_ret_sts
19019: );
19020:
19021: IF (l_ret_sts <> FND_API.G_RET_STS_SUCCESS) THEN
19022: d_msg := 'check_amt_rcv_but_not_deliv not successful';
19023: d_progress := 90;
19024: RAISE PO_CORE_S.g_early_return_exc;
19025: END IF;
19037: , p_sequence => p_sequence
19038: , x_return_status => l_ret_sts
19039: );
19040:
19041: IF (l_ret_sts <> FND_API.G_RET_STS_SUCCESS) THEN
19042: d_msg := 'check_invalid_acct_flex not successful';
19043: d_progress := 110;
19044: RAISE PO_CORE_S.g_early_return_exc;
19045: END IF;
19061: , p_sequence => p_sequence
19062: , x_return_status => l_ret_sts
19063: );
19064:
19065: IF (l_ret_sts <> FND_API.G_RET_STS_SUCCESS) THEN
19066: d_msg := 'check_unvalidated_invoices not successful';
19067: d_progress := 110;
19068: RAISE PO_CORE_S.g_early_return_exc;
19069: END IF;
19084: , p_sequence => p_sequence
19085: , x_return_status => l_ret_sts
19086: );
19087:
19088: IF (l_ret_sts <> FND_API.G_RET_STS_SUCCESS) THEN
19089: d_msg := 'check_invalid_acct_flex not successful';
19090: d_progress := 210;
19091: RAISE PO_CORE_S.g_early_return_exc;
19092: END IF;
19100: , p_sequence => p_sequence
19101: , x_return_status => l_ret_sts
19102: );
19103:
19104: IF (l_ret_sts <> FND_API.G_RET_STS_SUCCESS) THEN
19105: d_msg := 'check_ppo_has_open_release not successful';
19106: d_progress := 230;
19107: RAISE PO_CORE_S.g_early_return_exc;
19108: END IF;
19119: , p_sequence => p_sequence
19120: , x_return_status => l_ret_sts
19121: );
19122:
19123: IF (l_ret_sts <> FND_API.G_RET_STS_SUCCESS) THEN
19124: d_msg := 'check_bpa_has_open_release not successful';
19125: d_progress := 310;
19126: RAISE PO_CORE_S.g_early_return_exc;
19127: END IF;
19135: , p_sequence => p_sequence
19136: , x_return_status => l_ret_sts
19137: );
19138:
19139: IF (l_ret_sts <> FND_API.G_RET_STS_SUCCESS) THEN
19140: d_msg := 'check_bpa_has_open_stdref not successful';
19141: d_progress := 330;
19142: RAISE PO_CORE_S.g_early_return_exc;
19143: END IF;
19154: , p_sequence => p_sequence
19155: , x_return_status => l_ret_sts
19156: );
19157:
19158: IF (l_ret_sts <> FND_API.G_RET_STS_SUCCESS) THEN
19159: d_msg := 'check_cpa_has_open_stdref not successful';
19160: d_progress := 410;
19161: RAISE PO_CORE_S.g_early_return_exc;
19162: END IF;
19162: END IF;
19163:
19164: END IF; -- p_document_type = ...
19165:
19166: l_ret_sts := FND_API.G_RET_STS_SUCCESS;
19167:
19168: EXCEPTION
19169: WHEN PO_CORE_S.g_early_return_exc THEN
19170: IF (PO_LOG.d_exc) THEN
19169: WHEN PO_CORE_S.g_early_return_exc THEN
19170: IF (PO_LOG.d_exc) THEN
19171: PO_LOG.exc(d_module, d_progress, d_msg);
19172: END IF;
19173: l_ret_sts := FND_API.G_RET_STS_UNEXP_ERROR;
19174: END;
19175:
19176: x_return_status := l_ret_sts;
19177:
19183:
19184: EXCEPTION
19185:
19186: WHEN others THEN
19187: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
19188:
19189: IF (PO_LOG.d_exc) THEN
19190: PO_LOG.exc(d_module, d_progress, SQLCODE || ': ' || SQLERRM);
19191: PO_LOG.proc_end(d_module, 'p_sequence', p_sequence);
19528: ELSE
19529:
19530: d_progress := 70;
19531: d_msg := 'Bad document level';
19532: l_ret_sts := FND_API.G_RET_STS_UNEXP_ERROR;
19533: RAISE PO_CORE_S.g_early_return_exc;
19534:
19535: END IF; -- if p_document_level = ...
19536:
19534:
19535: END IF; -- if p_document_level = ...
19536:
19537: p_sequence := p_sequence + SQL%ROWCOUNT;
19538: l_ret_sts := FND_API.G_RET_STS_SUCCESS;
19539:
19540: EXCEPTION
19541: WHEN PO_CORE_S.g_early_return_exc THEN
19542: IF (PO_LOG.d_exc) THEN
19555: RETURN;
19556:
19557: EXCEPTION
19558: WHEN others THEN
19559: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
19560:
19561: IF (PO_LOG.d_exc) THEN
19562: PO_LOG.exc(d_module, d_progress, SQLCODE || ': ' || SQLERRM);
19563: PO_LOG.proc_end(d_module, 'p_sequence', p_sequence);
19897: ELSE
19898:
19899: d_progress := 70;
19900: d_msg := 'Bad document level';
19901: l_ret_sts := FND_API.G_RET_STS_UNEXP_ERROR;
19902: RAISE PO_CORE_S.g_early_return_exc;
19903:
19904: END IF; -- if p_document_level = ...
19905:
19905:
19906: d_progress := 80;
19907:
19908: p_sequence := p_sequence + SQL%ROWCOUNT;
19909: x_return_status := FND_API.G_RET_STS_SUCCESS;
19910:
19911: IF (PO_LOG.d_proc) THEN
19912: PO_LOG.proc_end(d_module, 'p_sequence', p_sequence);
19913: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
19917: RETURN;
19918:
19919: EXCEPTION
19920: WHEN others THEN
19921: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
19922:
19923: IF (PO_LOG.d_exc) THEN
19924: PO_LOG.exc(d_module, d_progress, SQLCODE || ': ' || SQLERRM);
19925: PO_LOG.proc_end(d_module, 'p_sequence', p_sequence);
20025:
20026: d_progress := 20;
20027:
20028: p_sequence := p_sequence + SQL%ROWCOUNT;
20029: x_return_status := FND_API.G_RET_STS_SUCCESS;
20030:
20031: IF (PO_LOG.d_proc) THEN
20032: PO_LOG.proc_end(d_module, 'p_sequence', p_sequence);
20033: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
20037: RETURN;
20038:
20039: EXCEPTION
20040: WHEN others THEN
20041: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
20042:
20043: IF (PO_LOG.d_exc) THEN
20044: PO_LOG.exc(d_module, d_progress, SQLCODE || ': ' || SQLERRM);
20045: PO_LOG.proc_end(d_module, 'p_sequence', p_sequence);
20150:
20151: d_progress := 20;
20152:
20153: p_sequence := p_sequence + SQL%ROWCOUNT;
20154: x_return_status := FND_API.G_RET_STS_SUCCESS;
20155:
20156: IF (PO_LOG.d_proc) THEN
20157: PO_LOG.proc_end(d_module, 'p_sequence', p_sequence);
20158: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
20162: RETURN;
20163:
20164: EXCEPTION
20165: WHEN others THEN
20166: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
20167:
20168: IF (PO_LOG.d_exc) THEN
20169: PO_LOG.exc(d_module, d_progress, SQLCODE || ': ' || SQLERRM);
20170: PO_LOG.proc_end(d_module, 'p_sequence', p_sequence);
20278:
20279: d_progress := 20;
20280:
20281: p_sequence := p_sequence + SQL%ROWCOUNT;
20282: x_return_status := FND_API.G_RET_STS_SUCCESS;
20283:
20284: IF (PO_LOG.d_proc) THEN
20285: PO_LOG.proc_end(d_module, 'p_sequence', p_sequence);
20286: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
20290: RETURN;
20291:
20292: EXCEPTION
20293: WHEN others THEN
20294: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
20295:
20296: IF (PO_LOG.d_exc) THEN
20297: PO_LOG.exc(d_module, d_progress, SQLCODE || ': ' || SQLERRM);
20298: PO_LOG.proc_end(d_module, 'p_sequence', p_sequence);
20375:
20376: d_progress := 20;
20377:
20378: p_sequence := p_sequence + SQL%ROWCOUNT;
20379: x_return_status := FND_API.G_RET_STS_SUCCESS;
20380:
20381: IF (PO_LOG.d_proc) THEN
20382: PO_LOG.proc_end(d_module, 'p_sequence', p_sequence);
20383: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
20387: RETURN;
20388:
20389: EXCEPTION
20390: WHEN others THEN
20391: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
20392:
20393: IF (PO_LOG.d_exc) THEN
20394: PO_LOG.exc(d_module, d_progress, SQLCODE || ': ' || SQLERRM);
20395: PO_LOG.proc_end(d_module, 'p_sequence', p_sequence);
20471:
20472: d_progress := 20;
20473:
20474: p_sequence := p_sequence + SQL%ROWCOUNT;
20475: x_return_status := FND_API.G_RET_STS_SUCCESS;
20476:
20477: IF (PO_LOG.d_proc) THEN
20478: PO_LOG.proc_end(d_module, 'p_sequence', p_sequence);
20479: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
20483: RETURN;
20484:
20485: EXCEPTION
20486: WHEN others THEN
20487: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
20488:
20489: IF (PO_LOG.d_exc) THEN
20490: PO_LOG.exc(d_module, d_progress, SQLCODE || ': ' || SQLERRM);
20491: PO_LOG.proc_end(d_module, 'p_sequence', p_sequence);
20567:
20568: d_progress := 20;
20569:
20570: p_sequence := p_sequence + SQL%ROWCOUNT;
20571: x_return_status := FND_API.G_RET_STS_SUCCESS;
20572:
20573: IF (PO_LOG.d_proc) THEN
20574: PO_LOG.proc_end(d_module, 'p_sequence', p_sequence);
20575: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
20579: RETURN;
20580:
20581: EXCEPTION
20582: WHEN others THEN
20583: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
20584:
20585: IF (PO_LOG.d_exc) THEN
20586: PO_LOG.exc(d_module, d_progress, SQLCODE || ': ' || SQLERRM);
20587: PO_LOG.proc_end(d_module, 'p_sequence', p_sequence);
20668:
20669: d_progress := 20;
20670:
20671: p_sequence := p_sequence + SQL%ROWCOUNT;
20672: x_return_status := FND_API.G_RET_STS_SUCCESS;
20673:
20674: IF (PO_LOG.d_proc) THEN
20675: PO_LOG.proc_end(d_module, 'p_sequence', p_sequence);
20676: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
20680: RETURN;
20681:
20682: EXCEPTION
20683: WHEN others THEN
20684: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
20685:
20686: IF (PO_LOG.d_exc) THEN
20687: PO_LOG.exc(d_module, d_progress, SQLCODE || ': ' || SQLERRM);
20688: PO_LOG.proc_end(d_module, 'p_sequence', p_sequence);
21579:
21580: d_progress := 20;
21581:
21582: p_sequence := p_sequence + SQL%ROWCOUNT;
21583: x_return_status := FND_API.G_RET_STS_SUCCESS;
21584:
21585: IF (PO_LOG.d_proc) THEN
21586: PO_LOG.proc_end(d_module, 'p_sequence', p_sequence);
21587: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
21591: RETURN;
21592:
21593: EXCEPTION
21594: WHEN others THEN
21595: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
21596: IF (PO_LOG.d_exc) THEN
21597: PO_LOG.exc(d_module, d_progress, SQLCODE || ': ' || SQLERRM);
21598: PO_LOG.proc_end(d_module, 'p_sequence', p_sequence);
21599: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
21706: x_message_name := l_message_name;
21707: x_text_line := l_textline;
21708: x_calling_sequence := l_calling_sequence;
21709: x_invoice_type := l_invoice_type;
21710: x_return_status := FND_API.G_RET_STS_SUCCESS;
21711:
21712: IF (PO_LOG.d_proc) THEN
21713: PO_LOG.proc_end(d_module, 'x_text_line', x_text_line);
21714: PO_LOG.proc_end(d_module, 'x_message_name', x_message_name);
21719: END IF;
21720:
21721: EXCEPTION
21722: WHEN OTHERS THEN
21723: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
21724: IF (PO_LOG.d_exc) THEN
21725: PO_LOG.exc(d_module, d_progress, SQLCODE || ': ' || SQLERRM);
21726: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
21727: PO_LOG.proc_end(d_module);
21850: AND lcm_flag = 'Y';
21851:
21852: END IF;
21853:
21854: x_return_status := fnd_api.g_ret_sts_success;
21855:
21856: EXCEPTION
21857: WHEN others THEN
21858: x_return_status := fnd_api.g_ret_sts_unexp_error;
21854: x_return_status := fnd_api.g_ret_sts_success;
21855:
21856: EXCEPTION
21857: WHEN others THEN
21858: x_return_status := fnd_api.g_ret_sts_unexp_error;
21859:
21860: IF (g_debug_unexp) THEN
21861: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
21862: FND_LOG.string(FND_LOG.level_unexpected, l_log_head || '.others_exception', 'EXCEPTION: Location is '
21979: END IF;
21980:
21981: l_progress := '050';
21982: P_SEQUENCE := P_SEQUENCE + SQL%ROWCOUNT;
21983: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
21984: PO_DEBUG.debug_var(l_log_head,l_progress,'p_sequence', p_sequence);
21985: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status', x_return_status);
21986: EXCEPTION
21987: WHEN others THEN
21985: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status', x_return_status);
21986: EXCEPTION
21987: WHEN others THEN
21988: PO_DEBUG.debug_var(l_log_head,l_progress,'p_sequence', 'Supplier Debarred unexpected Error'||sqlcode);
21989: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
21990: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
21991: RETURN;
21992:
21993: END validate_supplier_debarred;
21986: EXCEPTION
21987: WHEN others THEN
21988: PO_DEBUG.debug_var(l_log_head,l_progress,'p_sequence', 'Supplier Debarred unexpected Error'||sqlcode);
21989: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
21990: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
21991: RETURN;
21992:
21993: END validate_supplier_debarred;
21994:
22054: PO_DEBUG.debug_var(l_log_head,l_progress,'p_online_report_id', p_online_report_id);
22055: PO_DEBUG.debug_var(l_log_head,l_progress,'p_sequence', p_sequence);
22056: END IF;
22057: END IF;
22058: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
22059:
22060: l_progress := '010';
22061: IF p_online_report_id is NULL or p_online_report_id = 0 THEN
22062: SELECT PO_ONLINE_REPORT_TEXT_S.nextval
22114: po_debug.debug_stmt(l_log_head , l_progress, 'Contracting Officer is Invalid');
22115: IF itemtype is not NULL and itemkey is not NULL THEN
22116: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,l_log_head || 'Contracting Officer is not valid');
22117: END IF;
22118: x_return_status := FND_API.G_RET_STS_ERROR;
22119: END IF; -- l_valid_co = 'N'
22120: END IF; --p_contracting_officer IS NOT NULL
22121:
22122: -- CLM Controls Project changes
22175: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'Contracting Officer is NULL');
22176: IF itemtype is not NULL and itemkey is not NULL THEN
22177: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,l_log_head || 'Contracting officer is NULL');
22178: END IF;
22179: x_return_status := FND_API.G_RET_STS_ERROR;
22180: RETURN;
22181:
22182: END IF; -- p_contracting_officer IS NULL THEN
22183:
22361: , p_sequence
22362: , FND_MESSAGE.GET_STRING('PO', 'PO_WARRANT_NOT_FOUND_CURR')
22363: , 'PO_WARRANT_NOT_FOUND_CURR'
22364: , 'E');
22365: x_return_status := FND_API.G_RET_STS_ERROR;
22366: ELSIF l_warrant_amount < l_doc_amount THEN
22367: p_sequence := p_sequence + 1;
22368: INSERT INTO PO_ONLINE_REPORT_TEXT_GT
22369: ( online_report_id
22391:
22392: IF itemtype is not NULL and itemkey is not NULL THEN
22393: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,l_log_head || 'Warrant amount less then document amount');
22394: END IF;
22395: x_return_status := FND_API.G_RET_STS_ERROR;
22396: END IF;
22397: ELSE
22398: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'Warrant not found');
22399: IF itemtype is not NULL and itemkey is not NULL THEN
22422: , p_sequence
22423: , FND_MESSAGE.GET_STRING('PO', 'PO_WARRANT_NOT_FOUND')
22424: , 'PO_WARRANT_NOT_FOUND'
22425: , 'E');
22426: x_return_status := FND_API.G_RET_STS_ERROR;
22427:
22428: END IF; -- l_warrant_found THEN
22429:
22430: END IF; -- l_warrant_enabled_flag = 'Y' THEN
22429:
22430: END IF; -- l_warrant_enabled_flag = 'Y' THEN
22431:
22432: EXCEPTION
22433: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
22434: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
22435: WHEN OTHERS THEN
22436: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
22437: IF ( g_debug_unexp ) THEN
22430: END IF; -- l_warrant_enabled_flag = 'Y' THEN
22431:
22432: EXCEPTION
22433: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
22434: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
22435: WHEN OTHERS THEN
22436: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
22437: IF ( g_debug_unexp ) THEN
22438: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
22432: EXCEPTION
22433: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
22434: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
22435: WHEN OTHERS THEN
22436: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
22437: IF ( g_debug_unexp ) THEN
22438: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
22439: FND_LOG.string( FND_LOG.level_unexpected,
22440: G_PKG_NAME||l_log_head|| '.others_exception',
22595: END IF;
22596:
22597:
22598: p_sequence := p_sequence + SQL%ROWCOUNT;
22599: x_return_status := FND_API.G_RET_STS_ERROR;
22600: PO_DEBUG.debug_var(l_log_head,l_progress,'p_sequence', p_sequence);
22601: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status', x_return_status);
22602: EXCEPTION
22603: WHEN others THEN
22601: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status', x_return_status);
22602: EXCEPTION
22603: WHEN others THEN
22604: PO_DEBUG.debug_var(l_log_head,l_progress,'p_sequence', 'SGD Unexpected Error'||sqlcode);
22605: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
22606: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
22607: RETURN;
22608:
22609: END validate_genchangedesc;
22602: EXCEPTION
22603: WHEN others THEN
22604: PO_DEBUG.debug_var(l_log_head,l_progress,'p_sequence', 'SGD Unexpected Error'||sqlcode);
22605: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
22606: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
22607: RETURN;
22608:
22609: END validate_genchangedesc;
22610:
22861:
22862: END IF;
22863: END IF;
22864:
22865: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
22866:
22867: EXCEPTION
22868: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
22869: X_MSG_DATA := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,
22864:
22865: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
22866:
22867: EXCEPTION
22868: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
22869: X_MSG_DATA := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,
22870: P_ENCODED => 'F');
22871: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
22872:
22867: EXCEPTION
22868: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
22869: X_MSG_DATA := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,
22870: P_ENCODED => 'F');
22871: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
22872:
22873: WHEN FND_API.G_EXC_ERROR THEN
22874: X_MSG_DATA := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,
22875: P_ENCODED => 'F');
22869: X_MSG_DATA := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,
22870: P_ENCODED => 'F');
22871: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
22872:
22873: WHEN FND_API.G_EXC_ERROR THEN
22874: X_MSG_DATA := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,
22875: P_ENCODED => 'F');
22876: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
22877:
22872:
22873: WHEN FND_API.G_EXC_ERROR THEN
22874: X_MSG_DATA := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,
22875: P_ENCODED => 'F');
22876: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
22877:
22878: WHEN OTHERS THEN
22879: IF FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
22880: FND_MSG_PUB.ADD_EXC_MSG(G_PKG_NAME, L_API_NAME);
22889: END IF;
22890:
22891: X_MSG_DATA := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,
22892: P_ENCODED => 'F');
22893: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
22894:
22895: END PO_ACCOUNTS_CHECK;
22896:
22897:
23005:
23006: END IF;
23007:
23008: P_SEQUENCE := P_SEQUENCE + SQL%ROWCOUNT;
23009: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
23010:
23011: EXCEPTION
23012: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
23013: X_MSG_DATA := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,
23008: P_SEQUENCE := P_SEQUENCE + SQL%ROWCOUNT;
23009: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
23010:
23011: EXCEPTION
23012: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
23013: X_MSG_DATA := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,
23014: P_ENCODED => 'F');
23015: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
23016:
23011: EXCEPTION
23012: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
23013: X_MSG_DATA := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,
23014: P_ENCODED => 'F');
23015: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
23016:
23017: WHEN FND_API.G_EXC_ERROR THEN
23018: X_MSG_DATA := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,
23019: P_ENCODED => 'F');
23013: X_MSG_DATA := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,
23014: P_ENCODED => 'F');
23015: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
23016:
23017: WHEN FND_API.G_EXC_ERROR THEN
23018: X_MSG_DATA := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,
23019: P_ENCODED => 'F');
23020: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
23021:
23016:
23017: WHEN FND_API.G_EXC_ERROR THEN
23018: X_MSG_DATA := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,
23019: P_ENCODED => 'F');
23020: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
23021:
23022: WHEN OTHERS THEN
23023: IF FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
23024: FND_MSG_PUB.ADD_EXC_MSG(G_PKG_NAME, L_API_NAME);
23033: END IF;
23034:
23035: X_MSG_DATA := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,
23036: P_ENCODED => 'F');
23037: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
23038:
23039: END;
23040:
23041:
23323: L_PROGRESS,
23324: 'PO_CHARGE_NOT_NULL');
23325: END IF;
23326:
23327: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
23328:
23329: EXCEPTION
23330: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
23331: X_MSG_DATA := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,
23326:
23327: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
23328:
23329: EXCEPTION
23330: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
23331: X_MSG_DATA := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,
23332: P_ENCODED => 'F');
23333: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
23334:
23329: EXCEPTION
23330: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
23331: X_MSG_DATA := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,
23332: P_ENCODED => 'F');
23333: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
23334:
23335: WHEN FND_API.G_EXC_ERROR THEN
23336: X_MSG_DATA := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,
23337: P_ENCODED => 'F');
23331: X_MSG_DATA := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,
23332: P_ENCODED => 'F');
23333: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
23334:
23335: WHEN FND_API.G_EXC_ERROR THEN
23336: X_MSG_DATA := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,
23337: P_ENCODED => 'F');
23338: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
23339:
23334:
23335: WHEN FND_API.G_EXC_ERROR THEN
23336: X_MSG_DATA := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,
23337: P_ENCODED => 'F');
23338: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
23339:
23340: WHEN OTHERS THEN
23341: IF FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
23342: FND_MSG_PUB.ADD_EXC_MSG(G_PKG_NAME, L_API_NAME);
23352: END IF;
23353:
23354: X_MSG_DATA := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,
23355: P_ENCODED => 'F');
23356: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
23357:
23358: END PO_ACRN_CHECK;
23359:
23360:
23578: WHEN NO_DATA_FOUND THEN
23579: NULL;
23580:
23581: WHEN OTHERS THEN
23582: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
23583:
23584: IF (PO_LOG.d_exc) THEN
23585: PO_LOG.exc(g_log_head||l_api_name, l_progress, SQLCODE || ': ' || SQLERRM);
23586: PO_LOG.proc_end(g_log_head||l_api_name, 'p_sequence', p_sequence);
24360: p_sequence := p_sequence + SQL%ROWCOUNT;
24361:
24362: END IF;
24363:
24364: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
24365:
24366: EXCEPTION
24367: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
24368: X_MSG_DATA := FND_MSG_PUB.GET( P_MSG_INDEX => FND_MSG_PUB.G_LAST, P_ENCODED => 'F' );
24363:
24364: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
24365:
24366: EXCEPTION
24367: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
24368: X_MSG_DATA := FND_MSG_PUB.GET( P_MSG_INDEX => FND_MSG_PUB.G_LAST, P_ENCODED => 'F' );
24369: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
24370:
24371: WHEN FND_API.G_EXC_ERROR THEN
24365:
24366: EXCEPTION
24367: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
24368: X_MSG_DATA := FND_MSG_PUB.GET( P_MSG_INDEX => FND_MSG_PUB.G_LAST, P_ENCODED => 'F' );
24369: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
24370:
24371: WHEN FND_API.G_EXC_ERROR THEN
24372: X_MSG_DATA := FND_MSG_PUB.GET( P_MSG_INDEX => FND_MSG_PUB.G_LAST, P_ENCODED => 'F' );
24373: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
24367: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
24368: X_MSG_DATA := FND_MSG_PUB.GET( P_MSG_INDEX => FND_MSG_PUB.G_LAST, P_ENCODED => 'F' );
24369: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
24370:
24371: WHEN FND_API.G_EXC_ERROR THEN
24372: X_MSG_DATA := FND_MSG_PUB.GET( P_MSG_INDEX => FND_MSG_PUB.G_LAST, P_ENCODED => 'F' );
24373: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
24374:
24375: WHEN OTHERS THEN
24369: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
24370:
24371: WHEN FND_API.G_EXC_ERROR THEN
24372: X_MSG_DATA := FND_MSG_PUB.GET( P_MSG_INDEX => FND_MSG_PUB.G_LAST, P_ENCODED => 'F' );
24373: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
24374:
24375: WHEN OTHERS THEN
24376:
24377: -- SQLStmtGetText(mycontext, l_dyn_string, size1, size2 );
24391: END IF;
24392:
24393: X_MSG_DATA := FND_MSG_PUB.GET( P_MSG_INDEX => FND_MSG_PUB.G_LAST,
24394: P_ENCODED => 'F' );
24395: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
24396:
24397: END PO_VALIDATE_ACCOUNTS;
24398: --
24399:
24591:
24592: p_sequence := p_sequence + SQL%ROWCOUNT;
24593:
24594:
24595: x_return_status := FND_API.G_RET_STS_SUCCESS;
24596:
24597: EXCEPTION
24598: WHEN FND_API.G_EXC_ERROR THEN
24599: x_return_status := FND_API.G_RET_STS_ERROR;
24594:
24595: x_return_status := FND_API.G_RET_STS_SUCCESS;
24596:
24597: EXCEPTION
24598: WHEN FND_API.G_EXC_ERROR THEN
24599: x_return_status := FND_API.G_RET_STS_ERROR;
24600:
24601: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
24602: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
24595: x_return_status := FND_API.G_RET_STS_SUCCESS;
24596:
24597: EXCEPTION
24598: WHEN FND_API.G_EXC_ERROR THEN
24599: x_return_status := FND_API.G_RET_STS_ERROR;
24600:
24601: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
24602: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
24603:
24597: EXCEPTION
24598: WHEN FND_API.G_EXC_ERROR THEN
24599: x_return_status := FND_API.G_RET_STS_ERROR;
24600:
24601: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
24602: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
24603:
24604: WHEN OTHERS THEN
24605: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
24598: WHEN FND_API.G_EXC_ERROR THEN
24599: x_return_status := FND_API.G_RET_STS_ERROR;
24600:
24601: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
24602: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
24603:
24604: WHEN OTHERS THEN
24605: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
24606: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
24601: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
24602: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
24603:
24604: WHEN OTHERS THEN
24605: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
24606: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
24607: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
24608: END IF;
24609:
24925: p_sequence := p_sequence + SQL%ROWCOUNT;
24926:
24927: END IF;
24928:
24929: x_return_status := FND_API.G_RET_STS_SUCCESS;
24930:
24931: EXCEPTION
24932: WHEN FND_API.G_EXC_ERROR THEN
24933: x_return_status := FND_API.G_RET_STS_ERROR;
24928:
24929: x_return_status := FND_API.G_RET_STS_SUCCESS;
24930:
24931: EXCEPTION
24932: WHEN FND_API.G_EXC_ERROR THEN
24933: x_return_status := FND_API.G_RET_STS_ERROR;
24934:
24935: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
24936: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
24929: x_return_status := FND_API.G_RET_STS_SUCCESS;
24930:
24931: EXCEPTION
24932: WHEN FND_API.G_EXC_ERROR THEN
24933: x_return_status := FND_API.G_RET_STS_ERROR;
24934:
24935: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
24936: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
24937:
24931: EXCEPTION
24932: WHEN FND_API.G_EXC_ERROR THEN
24933: x_return_status := FND_API.G_RET_STS_ERROR;
24934:
24935: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
24936: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
24937:
24938: WHEN OTHERS THEN
24939: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
24932: WHEN FND_API.G_EXC_ERROR THEN
24933: x_return_status := FND_API.G_RET_STS_ERROR;
24934:
24935: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
24936: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
24937:
24938: WHEN OTHERS THEN
24939: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
24940: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
24935: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
24936: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
24937:
24938: WHEN OTHERS THEN
24939: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
24940: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
24941: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
24942: END IF;
24943:
25210:
25211: l_progress := '003';
25212:
25213:
25214: x_return_status := FND_API.G_RET_STS_SUCCESS;
25215:
25216: EXCEPTION
25217: WHEN FND_API.G_EXC_ERROR THEN
25218: x_return_status := FND_API.G_RET_STS_ERROR;
25213:
25214: x_return_status := FND_API.G_RET_STS_SUCCESS;
25215:
25216: EXCEPTION
25217: WHEN FND_API.G_EXC_ERROR THEN
25218: x_return_status := FND_API.G_RET_STS_ERROR;
25219:
25220: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
25221: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
25214: x_return_status := FND_API.G_RET_STS_SUCCESS;
25215:
25216: EXCEPTION
25217: WHEN FND_API.G_EXC_ERROR THEN
25218: x_return_status := FND_API.G_RET_STS_ERROR;
25219:
25220: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
25221: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
25222:
25216: EXCEPTION
25217: WHEN FND_API.G_EXC_ERROR THEN
25218: x_return_status := FND_API.G_RET_STS_ERROR;
25219:
25220: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
25221: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
25222:
25223: WHEN OTHERS THEN
25224: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
25217: WHEN FND_API.G_EXC_ERROR THEN
25218: x_return_status := FND_API.G_RET_STS_ERROR;
25219:
25220: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
25221: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
25222:
25223: WHEN OTHERS THEN
25224: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
25225: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
25220: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
25221: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
25222:
25223: WHEN OTHERS THEN
25224: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
25225: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
25226: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
25227: END IF;
25228:
25541:
25542: l_progress := '005';
25543:
25544:
25545: x_return_status := FND_API.G_RET_STS_SUCCESS;
25546: EXCEPTION
25547: WHEN FND_API.G_EXC_ERROR THEN
25548: x_return_status := FND_API.G_RET_STS_ERROR;
25549:
25543:
25544:
25545: x_return_status := FND_API.G_RET_STS_SUCCESS;
25546: EXCEPTION
25547: WHEN FND_API.G_EXC_ERROR THEN
25548: x_return_status := FND_API.G_RET_STS_ERROR;
25549:
25550: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
25551: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
25544:
25545: x_return_status := FND_API.G_RET_STS_SUCCESS;
25546: EXCEPTION
25547: WHEN FND_API.G_EXC_ERROR THEN
25548: x_return_status := FND_API.G_RET_STS_ERROR;
25549:
25550: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
25551: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
25552:
25546: EXCEPTION
25547: WHEN FND_API.G_EXC_ERROR THEN
25548: x_return_status := FND_API.G_RET_STS_ERROR;
25549:
25550: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
25551: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
25552:
25553: WHEN OTHERS THEN
25554: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
25547: WHEN FND_API.G_EXC_ERROR THEN
25548: x_return_status := FND_API.G_RET_STS_ERROR;
25549:
25550: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
25551: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
25552:
25553: WHEN OTHERS THEN
25554: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
25555: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
25550: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
25551: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
25552:
25553: WHEN OTHERS THEN
25554: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
25555: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
25556: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
25557: END IF;
25558:
25718: IF (PO_LOG.d_stmt) THEN
25719: PO_LOG.stmt(d_module, d_progress, 'p_sequence', p_sequence);
25720: END IF;
25721:
25722: x_return_status := FND_API.G_RET_STS_SUCCESS;
25723: EXCEPTION
25724: WHEN FND_API.G_EXC_ERROR THEN
25725: x_return_status := FND_API.G_RET_STS_ERROR;
25726:
25720: END IF;
25721:
25722: x_return_status := FND_API.G_RET_STS_SUCCESS;
25723: EXCEPTION
25724: WHEN FND_API.G_EXC_ERROR THEN
25725: x_return_status := FND_API.G_RET_STS_ERROR;
25726:
25727: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
25728: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
25721:
25722: x_return_status := FND_API.G_RET_STS_SUCCESS;
25723: EXCEPTION
25724: WHEN FND_API.G_EXC_ERROR THEN
25725: x_return_status := FND_API.G_RET_STS_ERROR;
25726:
25727: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
25728: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
25729:
25723: EXCEPTION
25724: WHEN FND_API.G_EXC_ERROR THEN
25725: x_return_status := FND_API.G_RET_STS_ERROR;
25726:
25727: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
25728: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
25729:
25730: WHEN OTHERS THEN
25731: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
25724: WHEN FND_API.G_EXC_ERROR THEN
25725: x_return_status := FND_API.G_RET_STS_ERROR;
25726:
25727: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
25728: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
25729:
25730: WHEN OTHERS THEN
25731: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
25732: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
25727: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
25728: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
25729:
25730: WHEN OTHERS THEN
25731: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
25732: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
25733: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
25734: END IF;
25735:
25836: AND nvl(POLL.cancel_flag, 'N') = 'N'
25837: AND nvl(POLL.closed_code, 'OPEN') <> 'FINALLY CLOSED';
25838:
25839: IF SQL%ROWCOUNT = 0 THEN -- No MIPR Reference exists on Award, Return
25840: x_return_status := FND_API.G_RET_STS_SUCCESS;
25841: RETURN;
25842: END IF;
25843:
25844: d_progress := 10;
26235: -- Delete the records from session table
26236: DELETE FROM po_session_gt
26237: WHERE key = l_procedure_id;
26238:
26239: x_return_status := FND_API.G_RET_STS_SUCCESS;
26240:
26241: IF (PO_LOG.d_proc) THEN
26242: PO_LOG.proc_end(d_module, 'p_sequence', p_sequence);
26243: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
26244: PO_LOG.proc_end(d_module);
26245: END IF;
26246:
26247: EXCEPTION
26248: WHEN FND_API.G_EXC_ERROR THEN
26249: x_return_status := FND_API.G_RET_STS_ERROR;
26250:
26251: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
26252: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
26245: END IF;
26246:
26247: EXCEPTION
26248: WHEN FND_API.G_EXC_ERROR THEN
26249: x_return_status := FND_API.G_RET_STS_ERROR;
26250:
26251: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
26252: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
26253:
26247: EXCEPTION
26248: WHEN FND_API.G_EXC_ERROR THEN
26249: x_return_status := FND_API.G_RET_STS_ERROR;
26250:
26251: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
26252: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
26253:
26254: WHEN OTHERS THEN
26255: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
26248: WHEN FND_API.G_EXC_ERROR THEN
26249: x_return_status := FND_API.G_RET_STS_ERROR;
26250:
26251: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
26252: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
26253:
26254: WHEN OTHERS THEN
26255: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
26256:
26251: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
26252: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
26253:
26254: WHEN OTHERS THEN
26255: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
26256:
26257: IF (PO_LOG.d_exc) THEN
26258: PO_LOG.exc(d_module, d_progress, SQLCODE || ': ' || SQLERRM);
26259: PO_LOG.proc_end(d_module, 'p_sequence', p_sequence);
26391: END IF;
26392:
26393: p_sequence := p_sequence + SQL%ROWCOUNT;
26394:
26395: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
26396:
26397: EXCEPTION
26398:
26399: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
26395: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
26396:
26397: EXCEPTION
26398:
26399: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
26400: X_MSG_DATA := FND_MSG_PUB.GET( P_MSG_INDEX => FND_MSG_PUB.G_LAST, P_ENCODED => 'F' );
26401: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
26402:
26403: WHEN FND_API.G_EXC_ERROR THEN
26397: EXCEPTION
26398:
26399: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
26400: X_MSG_DATA := FND_MSG_PUB.GET( P_MSG_INDEX => FND_MSG_PUB.G_LAST, P_ENCODED => 'F' );
26401: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
26402:
26403: WHEN FND_API.G_EXC_ERROR THEN
26404: X_MSG_DATA := FND_MSG_PUB.GET( P_MSG_INDEX => FND_MSG_PUB.G_LAST, P_ENCODED => 'F' );
26405: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
26399: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
26400: X_MSG_DATA := FND_MSG_PUB.GET( P_MSG_INDEX => FND_MSG_PUB.G_LAST, P_ENCODED => 'F' );
26401: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
26402:
26403: WHEN FND_API.G_EXC_ERROR THEN
26404: X_MSG_DATA := FND_MSG_PUB.GET( P_MSG_INDEX => FND_MSG_PUB.G_LAST, P_ENCODED => 'F' );
26405: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
26406:
26407: WHEN OTHERS THEN
26401: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
26402:
26403: WHEN FND_API.G_EXC_ERROR THEN
26404: X_MSG_DATA := FND_MSG_PUB.GET( P_MSG_INDEX => FND_MSG_PUB.G_LAST, P_ENCODED => 'F' );
26405: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
26406:
26407: WHEN OTHERS THEN
26408:
26409: -- SQLStmtGetText(mycontext, l_dyn_string, size1, size2 );
26422: END IF;
26423: END IF;
26424:
26425: X_MSG_DATA := FND_MSG_PUB.GET( P_MSG_INDEX => FND_MSG_PUB.G_LAST, P_ENCODED => 'F' );
26426: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
26427:
26428: END check_accrue_on_receipt;
26429:
26430: -- SBCR Integration Changes Begin
26661: END IF;
26662:
26663: END IF;
26664:
26665: x_return_status := FND_API.G_RET_STS_SUCCESS;
26666:
26667: IF (PO_LOG.d_proc) THEN
26668: PO_LOG.proc_end(d_module, 'p_sequence', p_sequence);
26669: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
26670: PO_LOG.proc_end(d_module);
26671: END IF;
26672:
26673: EXCEPTION
26674: WHEN FND_API.G_EXC_ERROR THEN
26675: x_return_status := FND_API.G_RET_STS_ERROR;
26676:
26677: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
26678: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
26671: END IF;
26672:
26673: EXCEPTION
26674: WHEN FND_API.G_EXC_ERROR THEN
26675: x_return_status := FND_API.G_RET_STS_ERROR;
26676:
26677: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
26678: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
26679:
26673: EXCEPTION
26674: WHEN FND_API.G_EXC_ERROR THEN
26675: x_return_status := FND_API.G_RET_STS_ERROR;
26676:
26677: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
26678: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
26679:
26680: WHEN OTHERS THEN
26681: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
26674: WHEN FND_API.G_EXC_ERROR THEN
26675: x_return_status := FND_API.G_RET_STS_ERROR;
26676:
26677: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
26678: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
26679:
26680: WHEN OTHERS THEN
26681: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
26682:
26677: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
26678: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
26679:
26680: WHEN OTHERS THEN
26681: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
26682:
26683: IF (PO_LOG.d_exc) THEN
26684: PO_LOG.exc(d_module, d_progress, SQLCODE || ': ' || SQLERRM);
26685: PO_LOG.proc_end(d_module, 'p_sequence', p_sequence);