[Home] [Help]
43: -- Declare private package variables.
44: -----------------------------------------------------------------------------
45:
46: -- Refactored debugging
47: g_debug_stmt CONSTANT BOOLEAN := (PO_DEBUG.is_debug_stmt_on And (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)); /* In Bug# 5028960, Modified to Avoid File.sql.46 error*/
48: g_debug_unexp CONSTANT BOOLEAN := (PO_DEBUG.is_debug_unexp_on AND (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)); /* In Bug# 5028960, Modified to Avoid File.sql.46 error*/
49:
50:
51:
44: -----------------------------------------------------------------------------
45:
46: -- Refactored debugging
47: g_debug_stmt CONSTANT BOOLEAN := (PO_DEBUG.is_debug_stmt_on And (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)); /* In Bug# 5028960, Modified to Avoid File.sql.46 error*/
48: g_debug_unexp CONSTANT BOOLEAN := (PO_DEBUG.is_debug_unexp_on AND (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)); /* In Bug# 5028960, Modified to Avoid File.sql.46 error*/
49:
50:
51:
52:
1229: --SBCR Integration Changes End.
1230: BEGIN
1231:
1232: IF g_debug_stmt THEN
1233: PO_DEBUG.debug_begin(l_log_head);
1234: PO_DEBUG.debug_var(l_log_head,l_progress,'p_api_version',p_api_version);
1235: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action_requested',p_action_requested);
1236: PO_DEBUG.debug_var(l_log_head,l_progress,'p_document_type',p_document_type);
1237: PO_DEBUG.debug_var(l_log_head,l_progress,'p_document_subtype',p_document_subtype);
1230: BEGIN
1231:
1232: IF g_debug_stmt THEN
1233: PO_DEBUG.debug_begin(l_log_head);
1234: PO_DEBUG.debug_var(l_log_head,l_progress,'p_api_version',p_api_version);
1235: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action_requested',p_action_requested);
1236: PO_DEBUG.debug_var(l_log_head,l_progress,'p_document_type',p_document_type);
1237: PO_DEBUG.debug_var(l_log_head,l_progress,'p_document_subtype',p_document_subtype);
1238: PO_DEBUG.debug_var(l_log_head,l_progress,'p_document_level',p_document_level);
1231:
1232: IF g_debug_stmt THEN
1233: PO_DEBUG.debug_begin(l_log_head);
1234: PO_DEBUG.debug_var(l_log_head,l_progress,'p_api_version',p_api_version);
1235: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action_requested',p_action_requested);
1236: PO_DEBUG.debug_var(l_log_head,l_progress,'p_document_type',p_document_type);
1237: PO_DEBUG.debug_var(l_log_head,l_progress,'p_document_subtype',p_document_subtype);
1238: PO_DEBUG.debug_var(l_log_head,l_progress,'p_document_level',p_document_level);
1239: PO_DEBUG.debug_var(l_log_head,l_progress,'p_document_level_id',p_document_level_id);
1232: IF g_debug_stmt THEN
1233: PO_DEBUG.debug_begin(l_log_head);
1234: PO_DEBUG.debug_var(l_log_head,l_progress,'p_api_version',p_api_version);
1235: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action_requested',p_action_requested);
1236: PO_DEBUG.debug_var(l_log_head,l_progress,'p_document_type',p_document_type);
1237: PO_DEBUG.debug_var(l_log_head,l_progress,'p_document_subtype',p_document_subtype);
1238: PO_DEBUG.debug_var(l_log_head,l_progress,'p_document_level',p_document_level);
1239: PO_DEBUG.debug_var(l_log_head,l_progress,'p_document_level_id',p_document_level_id);
1240: PO_DEBUG.debug_var(l_log_head,l_progress,'p_check_asl',p_check_asl);
1233: PO_DEBUG.debug_begin(l_log_head);
1234: PO_DEBUG.debug_var(l_log_head,l_progress,'p_api_version',p_api_version);
1235: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action_requested',p_action_requested);
1236: PO_DEBUG.debug_var(l_log_head,l_progress,'p_document_type',p_document_type);
1237: PO_DEBUG.debug_var(l_log_head,l_progress,'p_document_subtype',p_document_subtype);
1238: PO_DEBUG.debug_var(l_log_head,l_progress,'p_document_level',p_document_level);
1239: PO_DEBUG.debug_var(l_log_head,l_progress,'p_document_level_id',p_document_level_id);
1240: PO_DEBUG.debug_var(l_log_head,l_progress,'p_check_asl',p_check_asl);
1241: END IF;
1234: PO_DEBUG.debug_var(l_log_head,l_progress,'p_api_version',p_api_version);
1235: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action_requested',p_action_requested);
1236: PO_DEBUG.debug_var(l_log_head,l_progress,'p_document_type',p_document_type);
1237: PO_DEBUG.debug_var(l_log_head,l_progress,'p_document_subtype',p_document_subtype);
1238: PO_DEBUG.debug_var(l_log_head,l_progress,'p_document_level',p_document_level);
1239: PO_DEBUG.debug_var(l_log_head,l_progress,'p_document_level_id',p_document_level_id);
1240: PO_DEBUG.debug_var(l_log_head,l_progress,'p_check_asl',p_check_asl);
1241: END IF;
1242:
1235: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action_requested',p_action_requested);
1236: PO_DEBUG.debug_var(l_log_head,l_progress,'p_document_type',p_document_type);
1237: PO_DEBUG.debug_var(l_log_head,l_progress,'p_document_subtype',p_document_subtype);
1238: PO_DEBUG.debug_var(l_log_head,l_progress,'p_document_level',p_document_level);
1239: PO_DEBUG.debug_var(l_log_head,l_progress,'p_document_level_id',p_document_level_id);
1240: PO_DEBUG.debug_var(l_log_head,l_progress,'p_check_asl',p_check_asl);
1241: END IF;
1242:
1243: --Standard Start og API savepoint
1236: PO_DEBUG.debug_var(l_log_head,l_progress,'p_document_type',p_document_type);
1237: PO_DEBUG.debug_var(l_log_head,l_progress,'p_document_subtype',p_document_subtype);
1238: PO_DEBUG.debug_var(l_log_head,l_progress,'p_document_level',p_document_level);
1239: PO_DEBUG.debug_var(l_log_head,l_progress,'p_document_level_id',p_document_level_id);
1240: PO_DEBUG.debug_var(l_log_head,l_progress,'p_check_asl',p_check_asl);
1241: END IF;
1242:
1243: --Standard Start og API savepoint
1244: SAVEPOINT PO_SUBMISSION_CHECK_SP;
1269:
1270: l_document_id := l_id_tbl(1);
1271:
1272: IF g_debug_stmt THEN
1273: PO_DEBUG.debug_var(l_log_head,l_progress,'l_document_id',l_document_id);
1274: END IF;
1275:
1276:
1277: -- bug3413891
1372: END IF;
1373: --
1374:
1375: -- SGD PROJECT VALIDATIONS AT THE TIME OF SUBMISSION START
1376: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'SGD validation starts');
1377: l_draft_type := 'AWARD';
1378: IF p_draft_id IS NOT NULL THEN
1379: BEGIN
1380: SELECT draft_type, draft_sub_type
1394: p_document_id => l_document_id)='Y' )
1395: AND (l_draft_type = 'MOD') -- Change Desc only for Mod.
1396: AND ( l_draft_sub_type IS NULL OR PO_CORE_S3.get_bypass_sgd_generation_flag(l_draft_sub_type) <> 'Y') ) THEN
1397:
1398: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'SGD validation starts');
1399:
1400: SELECT Nvl(Max(SEQUENCE), 0) + 1
1401: INTO p_sequence
1402: FROM po_online_report_text_gt
1400: SELECT Nvl(Max(SEQUENCE), 0) + 1
1401: INTO p_sequence
1402: FROM po_online_report_text_gt
1403: WHERE online_report_id = x_online_report_id;
1404: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'p_sequence' ||p_sequence);
1405:
1406: validate_genchangedesc(p_draft_id => p_draft_id
1407: ,p_header_id => l_document_id
1408: ,p_online_report_id => l_online_report_id
1409: ,p_user_id => l_user_id
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;
1441: END IF; -- end if l_draft_type
1442:
1443: -- No need to call validate_co_warrant in PAR.
1444: IF l_draft_type <> 'PAR' THEN
1445: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'Calling validate_co_warrant');
1446:
1447: validate_co_warrant(p_draft_id => p_draft_id
1448: ,p_header_id => l_document_id
1449: ,p_contracting_officer => l_contracting_officer
1451: ,p_login_id => l_login_id
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;
1461:
1462: -- Supplier Site Debarment Validation
1463: IF (p_action_requested = g_action_DOC_SUBMISSION_CHECK) THEN
1464: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, ' Calling validate_supplier_debarred');
1465: validate_supplier_debarred( p_draft_id => p_draft_id
1466: ,p_header_id => l_document_id
1467: ,p_online_report_id => l_online_report_id
1468: ,p_user_id => l_user_id
1468: ,p_user_id => l_user_id
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:
1493: FROM po_headers_all PH, po_doc_style_headers PDSH
1494: WHERE PH.PO_HEADER_ID = l_document_id
1495: AND PH.style_id = PDSH.style_id;
1496:
1497: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'Fetched template details');
1498: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'l_functional_area_code :' || l_functional_area_code);
1499: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'l_document_type_code : ' || l_document_type_code);
1500: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'l_document_style_id : ' || l_document_style_id);
1501: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'l_is_clm_doc : ' || l_is_clm_doc);
1494: WHERE PH.PO_HEADER_ID = l_document_id
1495: AND PH.style_id = PDSH.style_id;
1496:
1497: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'Fetched template details');
1498: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'l_functional_area_code :' || l_functional_area_code);
1499: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'l_document_type_code : ' || l_document_type_code);
1500: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'l_document_style_id : ' || l_document_style_id);
1501: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'l_is_clm_doc : ' || l_is_clm_doc);
1502:
1495: AND PH.style_id = PDSH.style_id;
1496:
1497: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'Fetched template details');
1498: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'l_functional_area_code :' || l_functional_area_code);
1499: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'l_document_type_code : ' || l_document_type_code);
1500: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'l_document_style_id : ' || l_document_style_id);
1501: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'l_is_clm_doc : ' || l_is_clm_doc);
1502:
1503: l_progress := '690';
1496:
1497: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'Fetched template details');
1498: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'l_functional_area_code :' || l_functional_area_code);
1499: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'l_document_type_code : ' || l_document_type_code);
1500: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'l_document_style_id : ' || l_document_style_id);
1501: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'l_is_clm_doc : ' || l_is_clm_doc);
1502:
1503: l_progress := '690';
1504: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'Starting effective check for print form formats');
1497: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'Fetched template details');
1498: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'l_functional_area_code :' || l_functional_area_code);
1499: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'l_document_type_code : ' || l_document_type_code);
1500: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'l_document_style_id : ' || l_document_style_id);
1501: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'l_is_clm_doc : ' || l_is_clm_doc);
1502:
1503: l_progress := '690';
1504: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'Starting effective check for print form formats');
1505:
1500: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'l_document_style_id : ' || l_document_style_id);
1501: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'l_is_clm_doc : ' || l_is_clm_doc);
1502:
1503: l_progress := '690';
1504: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'Starting effective check for print form formats');
1505:
1506: -- Standard form and document format should not be null and
1507: -- not expired on the current date.
1508: IF p_draft_id <> -1 THEN
1532: end if;
1533: end if;
1534: END IF;
1535:
1536: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'l_print_doc_type :' || l_print_doc_type);
1537:
1538: IF ( (p_draft_id <> -1) AND (l_is_clm_doc = 'Y') ) THEN --Mod Commercialization
1539: INSERT INTO po_online_report_text_gt
1540: (
1620: AND trunc(sysdate) <= trunc(nvl(ppff.inactive_date, sysdate +1))
1621: );
1622: END IF;
1623:
1624: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress,
1625: 'No of errors logged into the error report table'||sql%rowcount);
1626:
1627: l_progress := '700';
1628: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'Starting code for UDA Submission check');
1624: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress,
1625: 'No of errors logged into the error report table'||sql%rowcount);
1626:
1627: l_progress := '700';
1628: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'Starting code for UDA Submission check');
1629:
1630:
1631: l_progress := '701';
1632:
1645: ,x_msg_count => l_msg_count
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
1703: AND pol.clm_undef_flag <> 'Y' -- UCA Project
1704: --Bug 13543817
1705: AND ple.pk1_value IS NULL;
1706:
1707: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress,
1708: 'No of errors logged into the error report table for PO_PRICING_MISMATCH '||sql%rowcount);
1709:
1710: INSERT INTO po_online_report_text_gt
1711: ( online_report_id,
1755: AND po_line_id = pol.po_line_id
1756: )
1757: OR nvl(p_draft_id,-1) = -1
1758: );
1759: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress,
1760: 'No of errors logged into the error report table when no attribute group id was found '||sql%rowcount);
1761: /*CLM-PHASE2 changes END*/
1762: END IF;
1763:
1761: /*CLM-PHASE2 changes END*/
1762: END IF;
1763:
1764: l_progress := '702';
1765: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'Before Check_Uda_Enabled');
1766:
1767: PO_CLM_CLO_UTIL.Check_Uda_Enabled
1768: (
1769: p_functional_area_code => l_functional_area_code
1776: ,x_msg_data => l_msg_data
1777: );
1778:
1779: l_progress := '703';
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
1777: );
1778:
1779: l_progress := '703';
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
1788:
1789: IF l_enabled_flag = 'Y' THEN
1790:
1791: l_progress := '704';
1792: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'Before calling PO_UDA_SUBMISSION_CHECK');
1793: FND_MSG_PUB.Initialize;
1794:
1795: PO_UDA_DEFAULTING_PKG.PO_UDA_SUBMISSION_CHECK
1796: (
1801: ,x_msg_count => l_msg_count
1802: );
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;
1871:
1872: END IF;
1873:
1874: l_progress := '706';
1875: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'Before looping external parameters for errors to log on to the report');
1876:
1877: l_failure := FALSE;
1878:
1879: PO_UDA_DEFAULTING_PKG.GET_EXT_ATTR_NAME_VALUE_PAIR('x_return_status', l_external_attr_value_pairs, ext_name_val_obj);
1878:
1879: PO_UDA_DEFAULTING_PKG.GET_EXT_ATTR_NAME_VALUE_PAIR('x_return_status', l_external_attr_value_pairs, ext_name_val_obj);
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');
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;
1889:
1890: l_progress := '709';
1887: l_failure := TRUE;
1888: END IF;
1889:
1890: l_progress := '709';
1891: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'Before logging the online failure report');
1892: l_msg_count := FND_MSG_PUB.Count_Msg;
1893:
1894: IF l_failure THEN
1895: FOR msg_counter IN 1 ..l_msg_count
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;
1933: END IF;
1934: END IF;
1935:
1936: l_progress := '713';
1937: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'After code for UDA Submission check');
1938:
1939: IF (l_is_clm_doc = 'Y')
1940: AND (p_document_type IN ('PA'))
1941: AND (p_document_subtype IN ('BLANKET', 'CONTRACT')) THEN
1939: IF (l_is_clm_doc = 'Y')
1940: AND (p_document_type IN ('PA'))
1941: AND (p_document_subtype IN ('BLANKET', 'CONTRACT')) THEN
1942: l_progress := '713';
1943: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'CLM IDV order constraints validation');
1944:
1945: val_pa_ord_constraints(
1946: l_document_id
1947: , l_online_report_id
3821: THEN
3822:
3823: l_progress := '061';
3824: IF g_debug_stmt THEN
3825: PO_DEBUG.debug_stmt(g_log_head||l_api_name,
3826: l_progress,'REQ 6: GL date within open purchasing period check');
3827: END IF;
3828:
3829: check_gl_date(
3838:
3839: ELSE
3840: l_progress := '063';
3841: IF g_debug_stmt THEN
3842: PO_DEBUG.debug_stmt(g_log_head||l_api_name,
3843: l_progress,'REQ 6: Req encumbrance not on');
3844: END IF;
3845: END IF;
3846:
5011: THEN
5012:
5013: l_progress := '610';
5014: IF g_debug_stmt THEN
5015: PO_DEBUG.debug_stmt(g_log_head || '.'||l_api_name||'.',
5016: l_progress,'REL 13: GL date check ');
5017: END IF;
5018:
5019: check_gl_date(
5028:
5029: ELSE
5030: l_progress := '630';
5031: IF g_debug_stmt THEN
5032: PO_DEBUG.debug_stmt(g_log_head || '.'||l_api_name||'.',
5033: l_progress,'REL 13: release encumbrance not on');
5034: END IF;
5035: END IF;
5036:
8784: THEN
8785:
8786: l_progress := '610';
8787: IF g_debug_stmt THEN
8788: PO_DEBUG.debug_stmt(g_log_head || '.'||l_api_name||'.',
8789: l_progress,'PO 11: GL date');
8790: END IF;
8791:
8792: check_gl_date(
8801:
8802: ELSE
8803: l_progress := '630';
8804: IF g_debug_stmt THEN
8805: PO_DEBUG.debug_stmt(g_log_head || '.'||l_api_name||'.',
8806: l_progress,'PO 11: PO encumbrance not on');
8807: END IF;
8808: END IF;
8809:
10052: )
10053: THEN
10054:
10055: IF g_debug_stmt THEN
10056: PO_DEBUG.debug_stmt(g_log_head || '.'||l_api_name||'.',
10057: l_progress,'PO 26: Funded Value Should be less than or equal to Total Order Value');
10058: END IF;
10059:
10060: INSERT INTO po_online_report_text_gt
10104:
10105: ELSE
10106: l_progress := '031';
10107: IF g_debug_stmt THEN
10108: PO_DEBUG.debug_stmt(g_log_head || '.'||l_api_name||'.',
10109: l_progress,'PO 26: PO encumbrance not on or not a CLM document');
10110: END IF;
10111: END IF;
10112:
10126: )
10127: THEN
10128:
10129: IF g_debug_stmt THEN
10130: PO_DEBUG.debug_stmt(g_log_head || '.'||l_api_name||'.',
10131: l_progress,'PO 27: Total Funded Value for a Line should be less than that on the backing PR, based on tolerance specified');
10132: END IF;
10133:
10134: SELECT nvl(enforce_funds_change_allowance, 'NONE'),
10139: l_funds_change_amount
10140: FROM po_system_parameters;
10141:
10142: IF g_debug_stmt THEN
10143: PO_DEBUG.debug_stmt(g_log_head || '.'||l_api_name||'.', l_progress,
10144: 'Is Funds Change Allowance enforced ' || l_enf_funds_change_allowance
10145: || ' Funds Change Allowance ' || l_funds_change_allowance
10146: || ' Funds Change Amount ' || l_funds_change_amount);
10147: END IF;
10210:
10211: ELSE
10212: l_progress := '033';
10213: IF g_debug_stmt THEN
10214: PO_DEBUG.debug_stmt(g_log_head || '.'||l_api_name||'.',
10215: l_progress,'PO 27: PO encumbrance not on or not a CLM document');
10216: END IF;
10217: END IF;
10218:
10232: )
10233: THEN
10234:
10235: IF g_debug_stmt THEN
10236: PO_DEBUG.debug_stmt(g_log_head || '.'||l_api_name||'.',
10237: l_progress,'PO 28: Total Funded Value of Distributions should be less than Funds remaining on the backing Requisition');
10238: END IF;
10239:
10240: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUB_FUNDED_VAL_GT_REQ_FUNDS');
10277:
10278: ELSE
10279: l_progress := '034';
10280: IF g_debug_stmt THEN
10281: PO_DEBUG.debug_stmt(g_log_head || '.'||l_api_name||'.',
10282: l_progress,'PO 28: PO encumbrance not on or not a CLM document');
10283: END IF;
10284: END IF;
10285:
10879: THEN
10880:
10881: l_progress := '410';
10882: IF g_debug_stmt THEN
10883: PO_DEBUG.debug_stmt(g_log_head||'.'||l_api_name||'.',
10884: l_progress,'PA BLANKET 4: GL date');
10885: END IF;
10886:
10887: check_gl_date(
10896:
10897: ELSE
10898: l_progress := '430';
10899: IF g_debug_stmt THEN
10900: PO_DEBUG.debug_stmt(g_log_head||'.'||l_api_name||'.',
10901: l_progress,'PA BLANKET 4: PA encumbrance not on');
10902: END IF;
10903: END IF;
10904:
13468: BEGIN
13469: l_progress := '000';
13470:
13471: IF g_debug_stmt THEN
13472: PO_DEBUG.debug_begin(l_log_head);
13473: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type', p_doc_type);
13474: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level', p_doc_level);
13475: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
13476: END IF;
13469: l_progress := '000';
13470:
13471: IF g_debug_stmt THEN
13472: PO_DEBUG.debug_begin(l_log_head);
13473: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type', p_doc_type);
13474: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level', p_doc_level);
13475: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
13476: END IF;
13477:
13470:
13471: IF g_debug_stmt THEN
13472: PO_DEBUG.debug_begin(l_log_head);
13473: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type', p_doc_type);
13474: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level', p_doc_level);
13475: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
13476: END IF;
13477:
13478: l_progress := '500';
13471: IF g_debug_stmt THEN
13472: PO_DEBUG.debug_begin(l_log_head);
13473: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type', p_doc_type);
13474: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level', p_doc_level);
13475: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
13476: END IF;
13477:
13478: l_progress := '500';
13479:
17185: l_ret_sts VARCHAR2(1);
17186: BEGIN
17187:
17188: IF g_debug_stmt THEN
17189: PO_DEBUG.debug_begin(l_log_head);
17190: PO_DEBUG.debug_var(l_log_head,l_progress,'p_online_report_id',p_online_report_id);
17191: PO_DEBUG.debug_var(l_log_head,l_progress,'p_user_id',p_user_id);
17192: PO_DEBUG.debug_var(l_log_head,l_progress,'p_login_id',p_login_id);
17193: PO_DEBUG.debug_var(l_log_head,l_progress,'p_sequence',p_sequence);
17186: BEGIN
17187:
17188: IF g_debug_stmt THEN
17189: PO_DEBUG.debug_begin(l_log_head);
17190: PO_DEBUG.debug_var(l_log_head,l_progress,'p_online_report_id',p_online_report_id);
17191: PO_DEBUG.debug_var(l_log_head,l_progress,'p_user_id',p_user_id);
17192: PO_DEBUG.debug_var(l_log_head,l_progress,'p_login_id',p_login_id);
17193: PO_DEBUG.debug_var(l_log_head,l_progress,'p_sequence',p_sequence);
17194: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
17187:
17188: IF g_debug_stmt THEN
17189: PO_DEBUG.debug_begin(l_log_head);
17190: PO_DEBUG.debug_var(l_log_head,l_progress,'p_online_report_id',p_online_report_id);
17191: PO_DEBUG.debug_var(l_log_head,l_progress,'p_user_id',p_user_id);
17192: PO_DEBUG.debug_var(l_log_head,l_progress,'p_login_id',p_login_id);
17193: PO_DEBUG.debug_var(l_log_head,l_progress,'p_sequence',p_sequence);
17194: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
17195: PO_DEBUG.debug_var(l_log_head,l_progress,'p_document_type',p_document_type);
17188: IF g_debug_stmt THEN
17189: PO_DEBUG.debug_begin(l_log_head);
17190: PO_DEBUG.debug_var(l_log_head,l_progress,'p_online_report_id',p_online_report_id);
17191: PO_DEBUG.debug_var(l_log_head,l_progress,'p_user_id',p_user_id);
17192: PO_DEBUG.debug_var(l_log_head,l_progress,'p_login_id',p_login_id);
17193: PO_DEBUG.debug_var(l_log_head,l_progress,'p_sequence',p_sequence);
17194: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
17195: PO_DEBUG.debug_var(l_log_head,l_progress,'p_document_type',p_document_type);
17196: END IF;
17189: PO_DEBUG.debug_begin(l_log_head);
17190: PO_DEBUG.debug_var(l_log_head,l_progress,'p_online_report_id',p_online_report_id);
17191: PO_DEBUG.debug_var(l_log_head,l_progress,'p_user_id',p_user_id);
17192: PO_DEBUG.debug_var(l_log_head,l_progress,'p_login_id',p_login_id);
17193: PO_DEBUG.debug_var(l_log_head,l_progress,'p_sequence',p_sequence);
17194: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
17195: PO_DEBUG.debug_var(l_log_head,l_progress,'p_document_type',p_document_type);
17196: END IF;
17197:
17190: PO_DEBUG.debug_var(l_log_head,l_progress,'p_online_report_id',p_online_report_id);
17191: PO_DEBUG.debug_var(l_log_head,l_progress,'p_user_id',p_user_id);
17192: PO_DEBUG.debug_var(l_log_head,l_progress,'p_login_id',p_login_id);
17193: PO_DEBUG.debug_var(l_log_head,l_progress,'p_sequence',p_sequence);
17194: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
17195: PO_DEBUG.debug_var(l_log_head,l_progress,'p_document_type',p_document_type);
17196: END IF;
17197:
17198: l_progress := '010';
17191: PO_DEBUG.debug_var(l_log_head,l_progress,'p_user_id',p_user_id);
17192: PO_DEBUG.debug_var(l_log_head,l_progress,'p_login_id',p_login_id);
17193: PO_DEBUG.debug_var(l_log_head,l_progress,'p_sequence',p_sequence);
17194: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
17195: PO_DEBUG.debug_var(l_log_head,l_progress,'p_document_type',p_document_type);
17196: END IF;
17197:
17198: l_progress := '010';
17199:
17197:
17198: l_progress := '010';
17199:
17200: IF g_debug_stmt THEN
17201: PO_DEBUG.debug_stmt(l_log_head,l_progress,
17202: 'UNRESERVE 1: Ship Qty billed greater than qty ordered');
17203: END IF;
17204:
17205: -- Check 1: Unreserve action not allowed if shipment quantity/amount billed is
17275: --Increment the p_sequence with number of errors reported in last query
17276: p_sequence := p_sequence + SQL%ROWCOUNT;
17277:
17278: IF g_debug_stmt THEN
17279: PO_DEBUG.debug_var(l_log_head,l_progress,'p_sequence',p_sequence);
17280: END IF;
17281:
17282: --------------------------------------------------------
17283:
17283:
17284: l_progress := '100';
17285:
17286: IF g_debug_stmt THEN
17287: PO_DEBUG.debug_stmt(l_log_head,l_progress,
17288: 'UNRESERVE 2: Dist qty billed greater than qty ordered');
17289: END IF;
17290:
17291: -- Check 2: Unreserve action not allowed if distribution quantity/amount billed
17362: --Increment the p_sequence with number of errors reported in last query
17363: p_sequence := p_sequence + SQL%ROWCOUNT;
17364:
17365: IF g_debug_stmt THEN
17366: PO_DEBUG.debug_var(l_log_head,l_progress,'p_sequence',p_sequence);
17367: END IF;
17368:
17369: ----------------------------------------------------------
17370:
17370:
17371: l_progress := '200';
17372:
17373: IF g_debug_stmt THEN
17374: PO_DEBUG.debug_stmt(l_log_head,l_progress,
17375: 'UNRESERVE 3: Dist qty delivered greater than qty ordered');
17376: END IF;
17377:
17378: -- Check 3: Unreserve action not allowed if distribution quantity/amount
17477: --Increment the p_sequence with number of errors reported in last query
17478: p_sequence := p_sequence + SQL%ROWCOUNT;
17479:
17480: IF g_debug_stmt THEN
17481: PO_DEBUG.debug_var(l_log_head,l_progress,'p_sequence',p_sequence);
17482: END IF;
17483:
17484: l_progress := '300';
17485:
17483:
17484: l_progress := '300';
17485:
17486: IF g_debug_stmt THEN
17487: PO_DEBUG.debug_end(l_log_head);
17488: END IF;
17489:
17490: EXCEPTION
17491: WHEN OTHERS THEN
17489:
17490: EXCEPTION
17491: WHEN OTHERS THEN
17492: IF g_debug_unexp THEN
17493: PO_DEBUG.debug_exc(l_log_head,l_progress);
17494: END IF;
17495: RAISE;
17496:
17497: END check_unreserve;
17546:
17547: BEGIN
17548:
17549: IF g_debug_stmt THEN
17550: PO_DEBUG.debug_begin(l_log_head);
17551: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type', p_doc_type);
17552: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level', p_doc_level);
17553: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
17554: PO_DEBUG.debug_var(l_log_head,l_progress,'p_draft_id',p_draft_id); -- CLM Aprvl
17547: BEGIN
17548:
17549: IF g_debug_stmt THEN
17550: PO_DEBUG.debug_begin(l_log_head);
17551: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type', p_doc_type);
17552: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level', p_doc_level);
17553: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
17554: PO_DEBUG.debug_var(l_log_head,l_progress,'p_draft_id',p_draft_id); -- CLM Aprvl
17555: END IF;
17548:
17549: IF g_debug_stmt THEN
17550: PO_DEBUG.debug_begin(l_log_head);
17551: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type', p_doc_type);
17552: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level', p_doc_level);
17553: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
17554: PO_DEBUG.debug_var(l_log_head,l_progress,'p_draft_id',p_draft_id); -- CLM Aprvl
17555: END IF;
17556:
17549: IF g_debug_stmt THEN
17550: PO_DEBUG.debug_begin(l_log_head);
17551: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type', p_doc_type);
17552: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level', p_doc_level);
17553: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
17554: PO_DEBUG.debug_var(l_log_head,l_progress,'p_draft_id',p_draft_id); -- CLM Aprvl
17555: END IF;
17556:
17557: l_progress := '010';
17550: PO_DEBUG.debug_begin(l_log_head);
17551: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type', p_doc_type);
17552: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level', p_doc_level);
17553: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
17554: PO_DEBUG.debug_var(l_log_head,l_progress,'p_draft_id',p_draft_id); -- CLM Aprvl
17555: END IF;
17556:
17557: l_progress := '010';
17558:
17899:
17900: l_progress := '900';
17901:
17902: IF g_debug_stmt THEN
17903: PO_DEBUG.debug_end(l_log_head);
17904: END IF;
17905:
17906: EXCEPTION
17907: WHEN OTHERS THEN
17905:
17906: EXCEPTION
17907: WHEN OTHERS THEN
17908: IF g_debug_unexp THEN
17909: PO_DEBUG.debug_exc(l_log_head,l_progress);
17910: END IF;
17911: RAISE;
17912:
17913: END populate_line_locations_gt;
17963:
17964: BEGIN
17965:
17966: IF g_debug_stmt THEN
17967: PO_DEBUG.debug_begin(l_log_head);
17968: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type', p_doc_type);
17969: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level', p_doc_level);
17970: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
17971: PO_DEBUG.debug_var(l_log_head,l_progress,'p_draft_id',p_draft_id); -- CLM Aprvl
17964: BEGIN
17965:
17966: IF g_debug_stmt THEN
17967: PO_DEBUG.debug_begin(l_log_head);
17968: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type', p_doc_type);
17969: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level', p_doc_level);
17970: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
17971: PO_DEBUG.debug_var(l_log_head,l_progress,'p_draft_id',p_draft_id); -- CLM Aprvl
17972: END IF;
17965:
17966: IF g_debug_stmt THEN
17967: PO_DEBUG.debug_begin(l_log_head);
17968: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type', p_doc_type);
17969: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level', p_doc_level);
17970: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
17971: PO_DEBUG.debug_var(l_log_head,l_progress,'p_draft_id',p_draft_id); -- CLM Aprvl
17972: END IF;
17973:
17966: IF g_debug_stmt THEN
17967: PO_DEBUG.debug_begin(l_log_head);
17968: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type', p_doc_type);
17969: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level', p_doc_level);
17970: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
17971: PO_DEBUG.debug_var(l_log_head,l_progress,'p_draft_id',p_draft_id); -- CLM Aprvl
17972: END IF;
17973:
17974: l_progress := '010';
17967: PO_DEBUG.debug_begin(l_log_head);
17968: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type', p_doc_type);
17969: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level', p_doc_level);
17970: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
17971: PO_DEBUG.debug_var(l_log_head,l_progress,'p_draft_id',p_draft_id); -- CLM Aprvl
17972: END IF;
17973:
17974: l_progress := '010';
17975:
17976: IF (p_doc_type = g_document_type_REQUISITION) THEN
17977:
17978: l_progress := '020';
17979: IF g_debug_stmt THEN
17980: PO_DEBUG.debug_stmt(l_log_head,l_progress,'requisition');
17981: END IF;
17982:
17983: populate_req_distributions_gt(
17984: p_document_id => p_doc_level_id
17989: ELSE
17990:
17991: l_progress := '040';
17992: IF g_debug_stmt THEN
17993: PO_DEBUG.debug_stmt(l_log_head,l_progress,'not requisition');
17994: END IF;
17995:
17996: PO_CORE_S.get_distribution_ids(
17997: p_doc_type => p_doc_type
18240:
18241: l_progress := '900';
18242:
18243: IF g_debug_stmt THEN
18244: PO_DEBUG.debug_end(l_log_head);
18245: END IF;
18246:
18247: EXCEPTION
18248: WHEN OTHERS THEN
18246:
18247: EXCEPTION
18248: WHEN OTHERS THEN
18249: IF g_debug_unexp THEN
18250: PO_DEBUG.debug_exc(l_log_head,l_progress);
18251: END IF;
18252: RAISE;
18253:
18254: END populate_distributions_gt;
18320:
18321: BEGIN
18322:
18323: IF g_debug_stmt THEN
18324: PO_DEBUG.debug_begin(l_log_head);
18325: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
18326: PO_DEBUG.debug_var(l_log_head,l_progress,'p_online_report_id',p_online_report_id);
18327: PO_DEBUG.debug_var(l_log_head,l_progress,'p_user_id',p_user_id);
18328: PO_DEBUG.debug_var(l_log_head,l_progress,'p_login_id',p_login_id);
18321: BEGIN
18322:
18323: IF g_debug_stmt THEN
18324: PO_DEBUG.debug_begin(l_log_head);
18325: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
18326: PO_DEBUG.debug_var(l_log_head,l_progress,'p_online_report_id',p_online_report_id);
18327: PO_DEBUG.debug_var(l_log_head,l_progress,'p_user_id',p_user_id);
18328: PO_DEBUG.debug_var(l_log_head,l_progress,'p_login_id',p_login_id);
18329: PO_DEBUG.debug_var(l_log_head,l_progress,'p_sequence',p_sequence);
18322:
18323: IF g_debug_stmt THEN
18324: PO_DEBUG.debug_begin(l_log_head);
18325: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
18326: PO_DEBUG.debug_var(l_log_head,l_progress,'p_online_report_id',p_online_report_id);
18327: PO_DEBUG.debug_var(l_log_head,l_progress,'p_user_id',p_user_id);
18328: PO_DEBUG.debug_var(l_log_head,l_progress,'p_login_id',p_login_id);
18329: PO_DEBUG.debug_var(l_log_head,l_progress,'p_sequence',p_sequence);
18330: END IF;
18323: IF g_debug_stmt THEN
18324: PO_DEBUG.debug_begin(l_log_head);
18325: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
18326: PO_DEBUG.debug_var(l_log_head,l_progress,'p_online_report_id',p_online_report_id);
18327: PO_DEBUG.debug_var(l_log_head,l_progress,'p_user_id',p_user_id);
18328: PO_DEBUG.debug_var(l_log_head,l_progress,'p_login_id',p_login_id);
18329: PO_DEBUG.debug_var(l_log_head,l_progress,'p_sequence',p_sequence);
18330: END IF;
18331:
18324: PO_DEBUG.debug_begin(l_log_head);
18325: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
18326: PO_DEBUG.debug_var(l_log_head,l_progress,'p_online_report_id',p_online_report_id);
18327: PO_DEBUG.debug_var(l_log_head,l_progress,'p_user_id',p_user_id);
18328: PO_DEBUG.debug_var(l_log_head,l_progress,'p_login_id',p_login_id);
18329: PO_DEBUG.debug_var(l_log_head,l_progress,'p_sequence',p_sequence);
18330: END IF;
18331:
18332: l_progress := '010';
18325: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
18326: PO_DEBUG.debug_var(l_log_head,l_progress,'p_online_report_id',p_online_report_id);
18327: PO_DEBUG.debug_var(l_log_head,l_progress,'p_user_id',p_user_id);
18328: PO_DEBUG.debug_var(l_log_head,l_progress,'p_login_id',p_login_id);
18329: PO_DEBUG.debug_var(l_log_head,l_progress,'p_sequence',p_sequence);
18330: END IF;
18331:
18332: l_progress := '010';
18333:
18346: END IF;
18347:
18348: l_progress := '030';
18349: IF g_debug_stmt THEN
18350: PO_DEBUG.debug_var(l_log_head,l_progress,'l_msg_name',l_msg_name);
18351: END IF;
18352:
18353: l_textline := FND_MESSAGE.get_string('PO',l_msg_name);
18354:
18353: l_textline := FND_MESSAGE.get_string('PO',l_msg_name);
18354:
18355: l_progress := '040';
18356: IF g_debug_stmt THEN
18357: PO_DEBUG.debug_var(l_log_head,l_progress,'l_textline',l_textline);
18358: END IF;
18359:
18360: -- Get the dates to validate.
18361:
18362: IF (p_doc_type = g_document_type_REQUISITION) THEN
18363:
18364: l_progress := '100';
18365: IF g_debug_stmt THEN
18366: PO_DEBUG.debug_stmt(l_log_head,l_progress,'requisition');
18367: END IF;
18368:
18369: SELECT
18370: PRD.gl_encumbered_date
18399: ELSE
18400:
18401: l_progress := '150';
18402: IF g_debug_stmt THEN
18403: PO_DEBUG.debug_stmt(l_log_head,l_progress,'not requisition');
18404: END IF;
18405:
18406: SELECT
18407: POD.gl_encumbered_date
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');
18468: END IF;
18469:
18470: -- Collect this information into the scratchpad,
18471: -- along with the info we need for error reporting.
18566:
18567: l_progress := '245';
18568:
18569: IF g_debug_stmt THEN
18570: PO_DEBUG.debug_var(l_log_head,l_progress,'l_textline',p_sequence);
18571: END IF;
18572:
18573: l_progress := '250';
18574:
18574:
18575: ELSE
18576: l_progress := '270';
18577: IF g_debug_stmt THEN
18578: PO_DEBUG.debug_stmt(l_log_head,l_progress,'No invalid periods.');
18579: END IF;
18580: END IF;
18581:
18582: l_progress := '900';
18581:
18582: l_progress := '900';
18583:
18584: IF g_debug_stmt THEN
18585: PO_DEBUG.debug_var(l_log_head,l_progress,'l_textline',p_sequence);
18586: PO_DEBUG.debug_end(l_log_head);
18587: END IF;
18588:
18589: EXCEPTION
18582: l_progress := '900';
18583:
18584: IF g_debug_stmt THEN
18585: PO_DEBUG.debug_var(l_log_head,l_progress,'l_textline',p_sequence);
18586: PO_DEBUG.debug_end(l_log_head);
18587: END IF;
18588:
18589: EXCEPTION
18590: WHEN OTHERS THEN
18588:
18589: EXCEPTION
18590: WHEN OTHERS THEN
18591: IF g_debug_unexp THEN
18592: PO_DEBUG.debug_exc(l_log_head,l_progress);
18593: END IF;
18594: RAISE;
18595:
18596: END check_gl_date;
18648:
18649: BEGIN
18650:
18651: IF g_debug_stmt THEN
18652: PO_DEBUG.debug_begin(l_log_head);
18653: END IF;
18654:
18655: x_header_id := PO_TBL_NUMBER();
18656: x_header_id.extend(p_count);
18684: AND type_lookup_code = p_type_lookup_code(i)
18685: AND po_header_id = NVL(x_header_id(i), po_header_id);
18686:
18687: IF g_debug_stmt THEN
18688: PO_DEBUG.debug_stmt(l_log_head,l_progress,
18689: 'After checking document_num. id = ' || x_header_id(i));
18690: END IF;
18691: END IF;
18692:
18705: WHERE vendor_order_num = p_vendor_order_num(i)
18706: AND po_header_id = NVL(x_header_id(i), po_header_id);
18707:
18708: IF g_debug_stmt THEN
18709: PO_DEBUG.debug_stmt(l_log_head,l_progress,
18710: 'After checking vendor_order_num. id = ' || x_header_id(i));
18711: END IF;
18712: END IF;
18713:
18719: x_header_id(i) := NULL;
18720: END IF;
18721:
18722: IF g_debug_stmt THEN
18723: PO_DEBUG.debug_stmt(l_log_head,l_progress,
18724: 'Final ID for rec ' ||i|| '= ' || x_header_id(i));
18725: END IF;
18726:
18727: END LOOP;
18726:
18727: END LOOP;
18728:
18729: IF g_debug_stmt THEN
18730: PO_DEBUG.debug_end(l_log_head);
18731: END IF;
18732:
18733: EXCEPTION
18734: WHEN OTHERS THEN
18732:
18733: EXCEPTION
18734: WHEN OTHERS THEN
18735: IF g_debug_unexp THEN
18736: PO_DEBUG.debug_exc(l_log_head,l_progress);
18737: END IF;
18738: RAISE;
18739:
18740: END complete_po_header_id_tbl;
21745: l_line_location_id po_line_locations_all.line_location_id%TYPE; --
21746:
21747: BEGIN
21748: IF g_debug_stmt THEN
21749: PO_DEBUG.debug_begin(l_log_head);
21750: PO_DEBUG.debug_var(l_log_head,l_progress,'p_line_location_id', p_line_location_id);
21751: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_check_status', p_doc_check_status);
21752: END IF;
21753:
21746:
21747: BEGIN
21748: IF g_debug_stmt THEN
21749: PO_DEBUG.debug_begin(l_log_head);
21750: PO_DEBUG.debug_var(l_log_head,l_progress,'p_line_location_id', p_line_location_id);
21751: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_check_status', p_doc_check_status);
21752: END IF;
21753:
21754: l_progress := '001';
21747: BEGIN
21748: IF g_debug_stmt THEN
21749: PO_DEBUG.debug_begin(l_log_head);
21750: PO_DEBUG.debug_var(l_log_head,l_progress,'p_line_location_id', p_line_location_id);
21751: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_check_status', p_doc_check_status);
21752: END IF;
21753:
21754: l_progress := '001';
21755: --
21783: NULL;
21784: END;
21785:
21786: IF g_debug_stmt THEN
21787: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_id',l_vendor_id);
21788: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id',l_vendor_site_id);
21789: PO_DEBUG.debug_var(l_log_head,l_progress,'l_inventory_item_id',l_inventory_item_id);
21790: PO_DEBUG.debug_var(l_log_head,l_progress,'l_ship_to_organization_id',l_ship_to_organization_id);
21791: PO_DEBUG.debug_var(l_log_head,l_progress,'l_consigned_flag',l_consigned_flag);
21784: END;
21785:
21786: IF g_debug_stmt THEN
21787: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_id',l_vendor_id);
21788: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id',l_vendor_site_id);
21789: PO_DEBUG.debug_var(l_log_head,l_progress,'l_inventory_item_id',l_inventory_item_id);
21790: PO_DEBUG.debug_var(l_log_head,l_progress,'l_ship_to_organization_id',l_ship_to_organization_id);
21791: PO_DEBUG.debug_var(l_log_head,l_progress,'l_consigned_flag',l_consigned_flag);
21792: PO_DEBUG.debug_var(l_log_head,l_progress,'l_outsourced_assembly',l_outsourced_assembly);
21785:
21786: IF g_debug_stmt THEN
21787: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_id',l_vendor_id);
21788: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id',l_vendor_site_id);
21789: PO_DEBUG.debug_var(l_log_head,l_progress,'l_inventory_item_id',l_inventory_item_id);
21790: PO_DEBUG.debug_var(l_log_head,l_progress,'l_ship_to_organization_id',l_ship_to_organization_id);
21791: PO_DEBUG.debug_var(l_log_head,l_progress,'l_consigned_flag',l_consigned_flag);
21792: PO_DEBUG.debug_var(l_log_head,l_progress,'l_outsourced_assembly',l_outsourced_assembly);
21793: PO_DEBUG.debug_var(l_log_head,l_progress,'l_line_location_id',l_line_location_id);
21786: IF g_debug_stmt THEN
21787: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_id',l_vendor_id);
21788: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id',l_vendor_site_id);
21789: PO_DEBUG.debug_var(l_log_head,l_progress,'l_inventory_item_id',l_inventory_item_id);
21790: PO_DEBUG.debug_var(l_log_head,l_progress,'l_ship_to_organization_id',l_ship_to_organization_id);
21791: PO_DEBUG.debug_var(l_log_head,l_progress,'l_consigned_flag',l_consigned_flag);
21792: PO_DEBUG.debug_var(l_log_head,l_progress,'l_outsourced_assembly',l_outsourced_assembly);
21793: PO_DEBUG.debug_var(l_log_head,l_progress,'l_line_location_id',l_line_location_id);
21794:
21787: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_id',l_vendor_id);
21788: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id',l_vendor_site_id);
21789: PO_DEBUG.debug_var(l_log_head,l_progress,'l_inventory_item_id',l_inventory_item_id);
21790: PO_DEBUG.debug_var(l_log_head,l_progress,'l_ship_to_organization_id',l_ship_to_organization_id);
21791: PO_DEBUG.debug_var(l_log_head,l_progress,'l_consigned_flag',l_consigned_flag);
21792: PO_DEBUG.debug_var(l_log_head,l_progress,'l_outsourced_assembly',l_outsourced_assembly);
21793: PO_DEBUG.debug_var(l_log_head,l_progress,'l_line_location_id',l_line_location_id);
21794:
21795: END IF;
21788: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id',l_vendor_site_id);
21789: PO_DEBUG.debug_var(l_log_head,l_progress,'l_inventory_item_id',l_inventory_item_id);
21790: PO_DEBUG.debug_var(l_log_head,l_progress,'l_ship_to_organization_id',l_ship_to_organization_id);
21791: PO_DEBUG.debug_var(l_log_head,l_progress,'l_consigned_flag',l_consigned_flag);
21792: PO_DEBUG.debug_var(l_log_head,l_progress,'l_outsourced_assembly',l_outsourced_assembly);
21793: PO_DEBUG.debug_var(l_log_head,l_progress,'l_line_location_id',l_line_location_id);
21794:
21795: END IF;
21796:
21789: PO_DEBUG.debug_var(l_log_head,l_progress,'l_inventory_item_id',l_inventory_item_id);
21790: PO_DEBUG.debug_var(l_log_head,l_progress,'l_ship_to_organization_id',l_ship_to_organization_id);
21791: PO_DEBUG.debug_var(l_log_head,l_progress,'l_consigned_flag',l_consigned_flag);
21792: PO_DEBUG.debug_var(l_log_head,l_progress,'l_outsourced_assembly',l_outsourced_assembly);
21793: PO_DEBUG.debug_var(l_log_head,l_progress,'l_line_location_id',l_line_location_id);
21794:
21795: END IF;
21796:
21797: l_progress:= '002';
21810:
21811: END IF;
21812:
21813:
21814: PO_DEBUG.debug_var(l_log_head,l_progress,'l_return_status',l_return_status);
21815:
21816: IF l_return_status = 'Y' THEN
21817: IF p_doc_check_status = 'BEFORE' THEN
21818: UPDATE po_line_locations_gt
21895:
21896: BEGIN
21897: l_progress := '010';
21898: IF g_debug_stmt THEN
21899: PO_DEBUG.debug_begin(l_log_head);
21900: PO_DEBUG.debug_var(l_log_head,l_progress,'p_draft_id', p_draft_id);
21901: PO_DEBUG.debug_var(l_log_head,l_progress,'p_header_id', p_header_id);
21902: PO_DEBUG.debug_var(l_log_head,l_progress,'p_online_report_id', p_online_report_id);
21903: PO_DEBUG.debug_var(l_log_head,l_progress,'p_sequence', p_sequence);
21896: BEGIN
21897: l_progress := '010';
21898: IF g_debug_stmt THEN
21899: PO_DEBUG.debug_begin(l_log_head);
21900: PO_DEBUG.debug_var(l_log_head,l_progress,'p_draft_id', p_draft_id);
21901: PO_DEBUG.debug_var(l_log_head,l_progress,'p_header_id', p_header_id);
21902: PO_DEBUG.debug_var(l_log_head,l_progress,'p_online_report_id', p_online_report_id);
21903: PO_DEBUG.debug_var(l_log_head,l_progress,'p_sequence', p_sequence);
21904: END IF;
21897: l_progress := '010';
21898: IF g_debug_stmt THEN
21899: PO_DEBUG.debug_begin(l_log_head);
21900: PO_DEBUG.debug_var(l_log_head,l_progress,'p_draft_id', p_draft_id);
21901: PO_DEBUG.debug_var(l_log_head,l_progress,'p_header_id', p_header_id);
21902: PO_DEBUG.debug_var(l_log_head,l_progress,'p_online_report_id', p_online_report_id);
21903: PO_DEBUG.debug_var(l_log_head,l_progress,'p_sequence', p_sequence);
21904: END IF;
21905:
21898: IF g_debug_stmt THEN
21899: PO_DEBUG.debug_begin(l_log_head);
21900: PO_DEBUG.debug_var(l_log_head,l_progress,'p_draft_id', p_draft_id);
21901: PO_DEBUG.debug_var(l_log_head,l_progress,'p_header_id', p_header_id);
21902: PO_DEBUG.debug_var(l_log_head,l_progress,'p_online_report_id', p_online_report_id);
21903: PO_DEBUG.debug_var(l_log_head,l_progress,'p_sequence', p_sequence);
21904: END IF;
21905:
21906: -- Check whether Supplier is debarred or not.
21899: PO_DEBUG.debug_begin(l_log_head);
21900: PO_DEBUG.debug_var(l_log_head,l_progress,'p_draft_id', p_draft_id);
21901: PO_DEBUG.debug_var(l_log_head,l_progress,'p_header_id', p_header_id);
21902: PO_DEBUG.debug_var(l_log_head,l_progress,'p_online_report_id', p_online_report_id);
21903: PO_DEBUG.debug_var(l_log_head,l_progress,'p_sequence', p_sequence);
21904: END IF;
21905:
21906: -- Check whether Supplier is debarred or not.
21907:
21920:
21921: END IF;
21922:
21923: l_progress := '020';
21924: PO_DEBUG.debug_var(l_log_head,l_progress,'l_vendor_site_id', l_vendor_site_id);
21925:
21926: IF l_vendor_site_id IS NOT NULL THEN
21927:
21928: SELECT PVSA.DEBARMENT_START_DATE, PVSA.DEBARMENT_END_DATE
21930: FROM PO_VENDOR_SITES_ALL PVSA
21931: WHERE PVSA.VENDOR_SITE_ID =l_vendor_site_id;
21932:
21933: l_progress := '030';
21934: PO_DEBUG.debug_var(l_log_head,l_progress,'l_debar_start_date', l_debar_start_date);
21935: PO_DEBUG.debug_var(l_log_head,l_progress,'l_debar_end_date', l_debar_end_date);
21936:
21937: IF (l_debar_start_date IS NULL) THEN
21938: debar_status := 'N';
21931: WHERE PVSA.VENDOR_SITE_ID =l_vendor_site_id;
21932:
21933: l_progress := '030';
21934: PO_DEBUG.debug_var(l_log_head,l_progress,'l_debar_start_date', l_debar_start_date);
21935: PO_DEBUG.debug_var(l_log_head,l_progress,'l_debar_end_date', l_debar_end_date);
21936:
21937: IF (l_debar_start_date IS NULL) THEN
21938: debar_status := 'N';
21939: ELSIF (l_debar_start_date > SYSDATE) THEN
21974: , FND_MESSAGE.GET_STRING('PO', 'PO_SUPPLIER_DEBAR_WARN')
21975: , 'PO_SUPPLIER_DEBAR_WARN'
21976: , 'W');
21977:
21978: PO_DEBUG.debug_var(l_log_head,l_progress,'p_sequence', 'inserted');
21979: END IF;
21980:
21981: l_progress := '050';
21982: P_SEQUENCE := P_SEQUENCE + SQL%ROWCOUNT;
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
21988: PO_DEBUG.debug_var(l_log_head,l_progress,'p_sequence', 'Supplier Debarred unexpected Error'||sqlcode);
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
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;
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
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:
22046: PO_WF_DEBUG_PKG.insert_debug( itemtype, itemkey,l_log_head||'p_sequence'|| p_sequence);
22047:
22048: ELSE
22049: IF g_debug_stmt THEN
22050: PO_DEBUG.debug_begin(l_log_head);
22051: PO_DEBUG.debug_var(l_log_head,l_progress,'p_draft_id', p_draft_id);
22052: PO_DEBUG.debug_var(l_log_head,l_progress,'p_header_id', p_header_id);
22053: PO_DEBUG.debug_var(l_log_head,l_progress,'p_contracting_officer', p_contracting_officer);
22054: PO_DEBUG.debug_var(l_log_head,l_progress,'p_online_report_id', p_online_report_id);
22047:
22048: ELSE
22049: IF g_debug_stmt THEN
22050: PO_DEBUG.debug_begin(l_log_head);
22051: PO_DEBUG.debug_var(l_log_head,l_progress,'p_draft_id', p_draft_id);
22052: PO_DEBUG.debug_var(l_log_head,l_progress,'p_header_id', p_header_id);
22053: PO_DEBUG.debug_var(l_log_head,l_progress,'p_contracting_officer', p_contracting_officer);
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);
22048: ELSE
22049: IF g_debug_stmt THEN
22050: PO_DEBUG.debug_begin(l_log_head);
22051: PO_DEBUG.debug_var(l_log_head,l_progress,'p_draft_id', p_draft_id);
22052: PO_DEBUG.debug_var(l_log_head,l_progress,'p_header_id', p_header_id);
22053: PO_DEBUG.debug_var(l_log_head,l_progress,'p_contracting_officer', p_contracting_officer);
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;
22049: IF g_debug_stmt THEN
22050: PO_DEBUG.debug_begin(l_log_head);
22051: PO_DEBUG.debug_var(l_log_head,l_progress,'p_draft_id', p_draft_id);
22052: PO_DEBUG.debug_var(l_log_head,l_progress,'p_header_id', p_header_id);
22053: PO_DEBUG.debug_var(l_log_head,l_progress,'p_contracting_officer', p_contracting_officer);
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;
22050: PO_DEBUG.debug_begin(l_log_head);
22051: PO_DEBUG.debug_var(l_log_head,l_progress,'p_draft_id', p_draft_id);
22052: PO_DEBUG.debug_var(l_log_head,l_progress,'p_header_id', p_header_id);
22053: PO_DEBUG.debug_var(l_log_head,l_progress,'p_contracting_officer', p_contracting_officer);
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;
22051: PO_DEBUG.debug_var(l_log_head,l_progress,'p_draft_id', p_draft_id);
22052: PO_DEBUG.debug_var(l_log_head,l_progress,'p_header_id', p_header_id);
22053: PO_DEBUG.debug_var(l_log_head,l_progress,'p_contracting_officer', p_contracting_officer);
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:
22110: 'PO_BUYER_INACTIVE',
22111: 'E'
22112: FROM dual;
22113:
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;
22136: --NVL(FND_PROFILE.VALUE('PO_CLM_KO_SIGNATURE_REQD'),'N');
22137: --We need to check the profile determine if the ko signature is required.
22138: IF l_ko_sign_required <> 'Y' THEN
22139: -- if Contract officer signature is not required, then there is no warrant check.
22140: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'Contracting Officer signature is not required');
22141: IF itemtype is not NULL and itemkey is not NULL THEN
22142: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,l_log_head || 'Contracting Officer signature is not required');
22143: END IF;
22144: return;
22171: , p_sequence
22172: , FND_MESSAGE.GET_STRING('PO', 'PO_CO_IS_NULL')
22173: , 'PO_CO_IS_NULL'
22174: , 'E');
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;
22199: WHEN OTHERS THEN
22200: null;
22201: END;
22202:
22203: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'Warrant enabled for the style');
22204: IF itemtype is not NULL and itemkey is not NULL THEN
22205: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,l_log_head || 'Warrant enabled for the style');
22206: END IF;
22207: IF l_warrant_enabled_flag = 'Y' THEN
22262: END;
22263: END IF;
22264:
22265: IF l_warrant_found THEN
22266: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'Warrant found');
22267: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'l_doc_currency '||l_doc_currency);
22268: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'l_type_lookup_code '||l_type_lookup_code);
22269: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'l_rate '||l_rate);
22270: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'l_warrant_currency '||l_warrant_currency);
22263: END IF;
22264:
22265: IF l_warrant_found THEN
22266: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'Warrant found');
22267: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'l_doc_currency '||l_doc_currency);
22268: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'l_type_lookup_code '||l_type_lookup_code);
22269: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'l_rate '||l_rate);
22270: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'l_warrant_currency '||l_warrant_currency);
22271: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'l_warrant_amount '||l_warrant_amount);
22264:
22265: IF l_warrant_found THEN
22266: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'Warrant found');
22267: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'l_doc_currency '||l_doc_currency);
22268: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'l_type_lookup_code '||l_type_lookup_code);
22269: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'l_rate '||l_rate);
22270: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'l_warrant_currency '||l_warrant_currency);
22271: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'l_warrant_amount '||l_warrant_amount);
22272: IF itemtype is not NULL and itemkey is not NULL THEN
22265: IF l_warrant_found THEN
22266: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'Warrant found');
22267: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'l_doc_currency '||l_doc_currency);
22268: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'l_type_lookup_code '||l_type_lookup_code);
22269: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'l_rate '||l_rate);
22270: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'l_warrant_currency '||l_warrant_currency);
22271: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'l_warrant_amount '||l_warrant_amount);
22272: IF itemtype is not NULL and itemkey is not NULL THEN
22273: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,l_log_head || 'Warrant found');
22266: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'Warrant found');
22267: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'l_doc_currency '||l_doc_currency);
22268: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'l_type_lookup_code '||l_type_lookup_code);
22269: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'l_rate '||l_rate);
22270: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'l_warrant_currency '||l_warrant_currency);
22271: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'l_warrant_amount '||l_warrant_amount);
22272: IF itemtype is not NULL and itemkey is not NULL THEN
22273: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,l_log_head || 'Warrant found');
22274: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,l_log_head || 'l_doc_currency '||l_doc_currency);
22267: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'l_doc_currency '||l_doc_currency);
22268: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'l_type_lookup_code '||l_type_lookup_code);
22269: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'l_rate '||l_rate);
22270: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'l_warrant_currency '||l_warrant_currency);
22271: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'l_warrant_amount '||l_warrant_amount);
22272: IF itemtype is not NULL and itemkey is not NULL THEN
22273: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,l_log_head || 'Warrant found');
22274: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,l_log_head || 'l_doc_currency '||l_doc_currency);
22275: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'l_type_lookup_code '||l_type_lookup_code);
22271: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'l_warrant_amount '||l_warrant_amount);
22272: IF itemtype is not NULL and itemkey is not NULL THEN
22273: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,l_log_head || 'Warrant found');
22274: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,l_log_head || 'l_doc_currency '||l_doc_currency);
22275: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'l_type_lookup_code '||l_type_lookup_code);
22276: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'l_rate '||l_rate);
22277: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,l_log_head || 'l_warrant_currency '||l_warrant_currency);
22278: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,l_log_head || 'l_doc_amount '||l_doc_amount);
22279: END IF;
22272: IF itemtype is not NULL and itemkey is not NULL THEN
22273: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,l_log_head || 'Warrant found');
22274: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,l_log_head || 'l_doc_currency '||l_doc_currency);
22275: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'l_type_lookup_code '||l_type_lookup_code);
22276: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'l_rate '||l_rate);
22277: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,l_log_head || 'l_warrant_currency '||l_warrant_currency);
22278: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,l_log_head || 'l_doc_amount '||l_doc_amount);
22279: END IF;
22280:
22279: END IF;
22280:
22281: -- Getting the ledger currency
22282: po_core_s2.get_po_currency(p_header_id, l_currency_code, l_doc_currency);
22283: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'ledger currency '||l_currency_code);
22284: IF itemtype is not NULL and itemkey is not NULL THEN
22285: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'ledger currency '||l_currency_code);
22286: END IF;
22287:
22281: -- Getting the ledger currency
22282: po_core_s2.get_po_currency(p_header_id, l_currency_code, l_doc_currency);
22283: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'ledger currency '||l_currency_code);
22284: IF itemtype is not NULL and itemkey is not NULL THEN
22285: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'ledger currency '||l_currency_code);
22286: END IF;
22287:
22288: IF l_type_lookup_code = 'STANDARD' THEN
22289: IF p_draft_id is NULL or p_draft_id = -1 THEN
22321: -- When warrant currency is same as ledger currency convert the amount
22322: l_doc_amount := l_doc_amount * l_rate;
22323: END IF;
22324:
22325: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'l_doc_currency '||l_doc_currency);
22326: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'l_doc_amount '||l_doc_amount);
22327: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'l_warrant_currency '||l_warrant_currency);
22328: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'l_warrant_amount '||l_warrant_amount);
22329: IF itemtype is not NULL and itemkey is not NULL THEN
22322: l_doc_amount := l_doc_amount * l_rate;
22323: END IF;
22324:
22325: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'l_doc_currency '||l_doc_currency);
22326: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'l_doc_amount '||l_doc_amount);
22327: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'l_warrant_currency '||l_warrant_currency);
22328: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'l_warrant_amount '||l_warrant_amount);
22329: IF itemtype is not NULL and itemkey is not NULL THEN
22330: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,l_log_head || 'l_doc_currency '||l_doc_currency);
22323: END IF;
22324:
22325: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'l_doc_currency '||l_doc_currency);
22326: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'l_doc_amount '||l_doc_amount);
22327: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'l_warrant_currency '||l_warrant_currency);
22328: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'l_warrant_amount '||l_warrant_amount);
22329: IF itemtype is not NULL and itemkey is not NULL THEN
22330: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,l_log_head || 'l_doc_currency '||l_doc_currency);
22331: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,l_log_head || 'l_doc_amount '||l_doc_amount);
22324:
22325: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'l_doc_currency '||l_doc_currency);
22326: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'l_doc_amount '||l_doc_amount);
22327: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'l_warrant_currency '||l_warrant_currency);
22328: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'l_warrant_amount '||l_warrant_amount);
22329: IF itemtype is not NULL and itemkey is not NULL THEN
22330: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,l_log_head || 'l_doc_currency '||l_doc_currency);
22331: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,l_log_head || 'l_doc_amount '||l_doc_amount);
22332: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,l_log_head || 'l_warrant_currency '||l_warrant_currency);
22333: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,l_log_head || 'l_doc_amount '||l_doc_amount);
22334: END IF;
22335:
22336: IF l_doc_currency <> l_warrant_currency AND l_currency_code <> l_warrant_currency THEN
22337: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'Warrant not found for the doc currency');
22338: IF itemtype is not NULL and itemkey is not NULL THEN
22339: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,l_log_head || 'Warrant not found for the doc currency');
22340: END IF;
22341: p_sequence := p_sequence + 1;
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
22400: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,l_log_head || 'Warrant not found');
22401: END IF;
22402: p_sequence := p_sequence + 1;
22478:
22479:
22480: BEGIN
22481: IF g_debug_stmt THEN
22482: PO_DEBUG.debug_begin(l_log_head);
22483: PO_DEBUG.debug_var(l_log_head,l_progress,'p_draft_id', p_draft_id);
22484: PO_DEBUG.debug_var(l_log_head,l_progress,'p_header_id', p_header_id);
22485: PO_DEBUG.debug_var(l_log_head,l_progress,'p_online_report_id', p_online_report_id);
22486: PO_DEBUG.debug_var(l_log_head,l_progress,'p_sequence', p_sequence);
22479:
22480: BEGIN
22481: IF g_debug_stmt THEN
22482: PO_DEBUG.debug_begin(l_log_head);
22483: PO_DEBUG.debug_var(l_log_head,l_progress,'p_draft_id', p_draft_id);
22484: PO_DEBUG.debug_var(l_log_head,l_progress,'p_header_id', p_header_id);
22485: PO_DEBUG.debug_var(l_log_head,l_progress,'p_online_report_id', p_online_report_id);
22486: PO_DEBUG.debug_var(l_log_head,l_progress,'p_sequence', p_sequence);
22487: END IF;
22480: BEGIN
22481: IF g_debug_stmt THEN
22482: PO_DEBUG.debug_begin(l_log_head);
22483: PO_DEBUG.debug_var(l_log_head,l_progress,'p_draft_id', p_draft_id);
22484: PO_DEBUG.debug_var(l_log_head,l_progress,'p_header_id', p_header_id);
22485: PO_DEBUG.debug_var(l_log_head,l_progress,'p_online_report_id', p_online_report_id);
22486: PO_DEBUG.debug_var(l_log_head,l_progress,'p_sequence', p_sequence);
22487: END IF;
22488:
22481: IF g_debug_stmt THEN
22482: PO_DEBUG.debug_begin(l_log_head);
22483: PO_DEBUG.debug_var(l_log_head,l_progress,'p_draft_id', p_draft_id);
22484: PO_DEBUG.debug_var(l_log_head,l_progress,'p_header_id', p_header_id);
22485: PO_DEBUG.debug_var(l_log_head,l_progress,'p_online_report_id', p_online_report_id);
22486: PO_DEBUG.debug_var(l_log_head,l_progress,'p_sequence', p_sequence);
22487: END IF;
22488:
22489: -- Check whether the change description is generated or not
22482: PO_DEBUG.debug_begin(l_log_head);
22483: PO_DEBUG.debug_var(l_log_head,l_progress,'p_draft_id', p_draft_id);
22484: PO_DEBUG.debug_var(l_log_head,l_progress,'p_header_id', p_header_id);
22485: PO_DEBUG.debug_var(l_log_head,l_progress,'p_online_report_id', p_online_report_id);
22486: PO_DEBUG.debug_var(l_log_head,l_progress,'p_sequence', p_sequence);
22487: END IF;
22488:
22489: -- Check whether the change description is generated or not
22490: SELECT cd_generated_flag, concurrent_reqid
22491: INTO changedesc_gen_flag, concurrent_request_id
22492: FROM PO_DRAFTS
22493: WHERE DRAFT_ID = p_draft_id;
22494:
22495: PO_DEBUG.debug_var(l_log_head,l_progress,'changedesc_gen_flag', changedesc_gen_flag);
22496: PO_DEBUG.debug_var(l_log_head,l_progress,'concurrent_request_id', concurrent_request_id);
22497:
22498: IF changedesc_gen_flag IS NULL THEN
22499: changedesc_gen_flag := 'N';
22492: FROM PO_DRAFTS
22493: WHERE DRAFT_ID = p_draft_id;
22494:
22495: PO_DEBUG.debug_var(l_log_head,l_progress,'changedesc_gen_flag', changedesc_gen_flag);
22496: PO_DEBUG.debug_var(l_log_head,l_progress,'concurrent_request_id', concurrent_request_id);
22497:
22498: IF changedesc_gen_flag IS NULL THEN
22499: changedesc_gen_flag := 'N';
22500: END IF;
22498: IF changedesc_gen_flag IS NULL THEN
22499: changedesc_gen_flag := 'N';
22500: END IF;
22501:
22502: PO_DEBUG.debug_var(l_log_head,l_progress,'changedesc_gen_flag', changedesc_gen_flag);
22503: -- If change description is not generated, throw the error message to generate it
22504: IF changedesc_gen_flag = 'N' THEN
22505: msg_name :='PO_CHG_DESC_GENERATE_ERROR';
22506: msg_type :='E';
22510: INTO changedesc_gen_date, changedesc_edit_flag
22511: FROM po_drafts
22512: WHERE draft_id = p_draft_id;
22513:
22514: PO_DEBUG.debug_var(l_log_head,l_progress,'changedesc_gen_date', changedesc_gen_date);
22515: PO_DEBUG.debug_var(l_log_head,l_progress,'changedesc_edit_flag', changedesc_edit_flag);
22516:
22517: --find the latest date of the modification document
22518: mod_last_update_date := PO_CORE_S.get_last_update_date_for_mod(p_draft_id);
22511: FROM po_drafts
22512: WHERE draft_id = p_draft_id;
22513:
22514: PO_DEBUG.debug_var(l_log_head,l_progress,'changedesc_gen_date', changedesc_gen_date);
22515: PO_DEBUG.debug_var(l_log_head,l_progress,'changedesc_edit_flag', changedesc_edit_flag);
22516:
22517: --find the latest date of the modification document
22518: mod_last_update_date := PO_CORE_S.get_last_update_date_for_mod(p_draft_id);
22519:
22516:
22517: --find the latest date of the modification document
22518: mod_last_update_date := PO_CORE_S.get_last_update_date_for_mod(p_draft_id);
22519:
22520: PO_DEBUG.debug_var(l_log_head,l_progress,'mod_last_update_date', mod_last_update_date);
22521: --IF edited_by_user flag is Y, throw the warning message saying that
22522: -- change description is edited and out of sync with mod document
22523: --ELSE throw warning message just saying that mod document
22524: -- has been updated after change description generated
22537: -- completed or completed with error, should not allow the user to submit
22538: -- the document
22539: IF concurrent_request_id IS NOT NULL THEN
22540:
22541: PO_DEBUG.debug_var(l_log_head,l_progress,'concurrent_request_id', concurrent_request_id);
22542:
22543: SELECT Count(*)
22544: INTO l_isCompletedCount
22545: FROM fnd_concurrent_requests
22546: WHERE request_id = To_Number(concurrent_request_id)
22547: AND phase_code = 'C'
22548: AND status_code = 'C';
22549:
22550: PO_DEBUG.debug_var(l_log_head,l_progress,'l_isCompletedCount', l_isCompletedCount);
22551: IF l_isCompletedCount <= 0 THEN
22552: msg_type :='E';
22553: msg_name :='PO_CHG_DESC_GEN_NOTCOMPLETED';
22554: END IF;
22555:
22556: END IF;
22557: -- Bug 9950717 - Fix ends
22558:
22559: PO_DEBUG.debug_var(l_log_head,l_progress,'changedesc_gen_date', changedesc_gen_date);
22560: PO_DEBUG.debug_var(l_log_head,l_progress,'changedesc_edit_flag', changedesc_edit_flag);
22561:
22562: END IF;
22563:
22556: END IF;
22557: -- Bug 9950717 - Fix ends
22558:
22559: PO_DEBUG.debug_var(l_log_head,l_progress,'changedesc_gen_date', changedesc_gen_date);
22560: PO_DEBUG.debug_var(l_log_head,l_progress,'changedesc_edit_flag', changedesc_edit_flag);
22561:
22562: END IF;
22563:
22564: IF msg_name IS NOT NULL THEN
22561:
22562: END IF;
22563:
22564: IF msg_name IS NOT NULL THEN
22565: PO_DEBUG.debug_var(l_log_head,l_progress,'msg_name', msg_name);
22566: FND_MESSAGE.set_name('PO', msg_name);
22567: l_err_msg_txt := FND_MESSAGE.GET;
22568:
22569:
22590: , l_err_msg_txt
22591: , msg_name
22592: , msg_type);
22593:
22594: PO_DEBUG.debug_var(l_log_head,l_progress,'p_sequence', 'inserted');
22595: END IF;
22596:
22597:
22598: p_sequence := p_sequence + SQL%ROWCOUNT;
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
22604: PO_DEBUG.debug_var(l_log_head,l_progress,'p_sequence', 'SGD Unexpected Error'||sqlcode);
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
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;
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
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:
22763: L_PROGRESS := '000';
22764:
22765: L_PROGRESS := '001';
22766: IF G_DEBUG_STMT THEN
22767: PO_DEBUG.DEBUG_STMT(G_LOG_HEAD || '.'||L_API_NAME||'.',
22768: L_PROGRESS,'PO_CHARGE_NOT_NULL');
22769: END IF;
22770:
22771: IF p_document_type IN ('PO') THEN
22810: P_SEQUENCE := P_SEQUENCE + SQL%ROWCOUNT;
22811:
22812: L_PROGRESS := '002';
22813: IF G_DEBUG_STMT THEN
22814: PO_DEBUG.DEBUG_STMT(G_LOG_HEAD || '.'||L_API_NAME||'.',
22815: L_PROGRESS,'PO_ALL_NO_BUDGET_FLEX');
22816: END IF;
22817:
22818: IF (PO_CORE_S.is_encumbrance_on(
22916: L_PROGRESS := '000';
22917:
22918: L_PROGRESS := '001';
22919: IF G_DEBUG_STMT THEN
22920: PO_DEBUG.DEBUG_STMT(G_LOG_HEAD || '.'||L_API_NAME||'.',
22921: L_PROGRESS,'PO_LINE_SHIP_UOM_MISMATCH');
22922: END IF;
22923:
22924: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_LINE_SHIP_UOM_MISMATCH');
23117: );
23118:
23119: L_PROGRESS := '001';
23120: IF G_DEBUG_STMT THEN
23121: PO_DEBUG.DEBUG_STMT(G_LOG_HEAD || '.' || L_API_NAME || '.',
23122: L_PROGRESS,
23123: 'PO_CHARGE_NOT_NULL');
23124: END IF;
23125:
23225: P_SEQUENCE := p_sequence + SQL%ROWCOUNT;
23226:
23227: L_PROGRESS := '002';
23228: IF G_DEBUG_STMT THEN
23229: PO_DEBUG.DEBUG_STMT(G_LOG_HEAD || '.' || L_API_NAME || '.',
23230: L_PROGRESS,
23231: 'PO_CHARGE_NOT_NULL');
23232: END IF;
23233:
23318: p_sequence := p_sequence + SQL%ROWCOUNT;
23319:
23320: L_PROGRESS := '003';
23321: IF G_DEBUG_STMT THEN
23322: PO_DEBUG.DEBUG_STMT(G_LOG_HEAD || '.' || L_API_NAME || '.',
23323: L_PROGRESS,
23324: 'PO_CHARGE_NOT_NULL');
23325: END IF;
23326:
23613: BEGIN
23614:
23615: L_PROGRESS := '001';
23616: IF G_DEBUG_STMT THEN
23617: PO_DEBUG.DEBUG_STMT( G_LOG_HEAD ||'.'||L_API_NAME||'.', L_PROGRESS, 'PO_VALIDATE_ACCOUNTS' );
23618: END IF;
23619:
23620:
23621: IF( P_DOCUMENT_TYPE = 'REQUISITION' ) THEN
23621: IF( P_DOCUMENT_TYPE = 'REQUISITION' ) THEN
23622:
23623: L_PROGRESS := '002';
23624: IF G_DEBUG_STMT THEN
23625: PO_DEBUG.DEBUG_STMT( G_LOG_HEAD ||'.' || L_API_NAME ||'.', L_PROGRESS, 'REQUISITION' );
23626: END IF;
23627:
23628: -- Validate Req Charge Account
23629: INSERT INTO PO_ONLINE_REPORT_TEXT_GT(
23857: ELSIF( P_DOCUMENT_TYPE = 'RELEASE' ) THEN
23858:
23859: L_PROGRESS := '003';
23860: IF G_DEBUG_STMT THEN
23861: PO_DEBUG.DEBUG_STMT( G_LOG_HEAD ||'.'|| L_API_NAME ||'.', L_PROGRESS, 'RELEASE' );
23862: END IF;
23863:
23864:
23865: -- Validate Release Charge Account for non cancelled, non finally closed, not approved shipments.
24103:
24104:
24105: L_PROGRESS := '004';
24106: IF G_DEBUG_STMT THEN
24107: PO_DEBUG.DEBUG_STMT( G_LOG_HEAD ||'.'|| L_API_NAME ||'.', L_PROGRESS, 'PO or BPA' );
24108: END IF;
24109:
24110: -- Validate PO Charge Account
24111: INSERT INTO PO_ONLINE_REPORT_TEXT_GT(
24416: BEGIN
24417:
24418: L_PROGRESS := '001';
24419: IF G_DEBUG_STMT THEN
24420: PO_DEBUG.DEBUG_STMT( G_LOG_HEAD ||'.'|| L_API_NAME ||'.', L_PROGRESS, 'p_structure_number :'||p_structure_number );
24421: PO_DEBUG.DEBUG_STMT( G_LOG_HEAD ||'.'|| L_API_NAME ||'.', L_PROGRESS, 'p_combination_id :'||p_combination_id );
24422: PO_DEBUG.DEBUG_STMT( G_LOG_HEAD ||'.'|| L_API_NAME ||'.', L_PROGRESS, 'p_val_date :'||p_val_date );
24423: END IF;
24424:
24417:
24418: L_PROGRESS := '001';
24419: IF G_DEBUG_STMT THEN
24420: PO_DEBUG.DEBUG_STMT( G_LOG_HEAD ||'.'|| L_API_NAME ||'.', L_PROGRESS, 'p_structure_number :'||p_structure_number );
24421: PO_DEBUG.DEBUG_STMT( G_LOG_HEAD ||'.'|| L_API_NAME ||'.', L_PROGRESS, 'p_combination_id :'||p_combination_id );
24422: PO_DEBUG.DEBUG_STMT( G_LOG_HEAD ||'.'|| L_API_NAME ||'.', L_PROGRESS, 'p_val_date :'||p_val_date );
24423: END IF;
24424:
24425: l_concat_segs := fnd_flex_ext.get_segs(
24418: L_PROGRESS := '001';
24419: IF G_DEBUG_STMT THEN
24420: PO_DEBUG.DEBUG_STMT( G_LOG_HEAD ||'.'|| L_API_NAME ||'.', L_PROGRESS, 'p_structure_number :'||p_structure_number );
24421: PO_DEBUG.DEBUG_STMT( G_LOG_HEAD ||'.'|| L_API_NAME ||'.', L_PROGRESS, 'p_combination_id :'||p_combination_id );
24422: PO_DEBUG.DEBUG_STMT( G_LOG_HEAD ||'.'|| L_API_NAME ||'.', L_PROGRESS, 'p_val_date :'||p_val_date );
24423: END IF;
24424:
24425: l_concat_segs := fnd_flex_ext.get_segs(
24426: application_short_name => 'SQLGL',
24430: ) ;
24431:
24432: L_PROGRESS := '002';
24433: IF G_DEBUG_STMT THEN
24434: PO_DEBUG.DEBUG_STMT( G_LOG_HEAD ||'.'|| L_API_NAME ||'.', L_PROGRESS, 'l_concat_segs :'||l_concat_segs );
24435: END IF;
24436:
24437: IF( l_concat_segs IS NULL)
24438: then
24440: else
24441: L_PROGRESS := '003';
24442:
24443: IF G_DEBUG_STMT THEN
24444: PO_DEBUG.DEBUG_STMT( G_LOG_HEAD ||'.'|| L_API_NAME ||'.', L_PROGRESS, 'calling fnd_flex_keyval.validate_segs');
24445: END IF;
24446:
24447: --Start of code changes added as part of bug 16021525 fix
24448: l_application_id := PO_REQAPPROVAL_ACTION.application_id;
24449: l_responsibility_id := PO_REQAPPROVAL_ACTION.responsibility_id;
24450: l_user_id := PO_REQAPPROVAL_ACTION.user_id;
24451:
24452: IF G_DEBUG_STMT THEN
24453: PO_DEBUG.DEBUG_STMT( G_LOG_HEAD ||'.'|| L_API_NAME ||'.', L_PROGRESS, 'l_application_id : '||l_application_id);
24454: PO_DEBUG.DEBUG_STMT( G_LOG_HEAD ||'.'|| L_API_NAME ||'.', L_PROGRESS, 'l_responsibility_id : '||l_responsibility_id);
24455: PO_DEBUG.DEBUG_STMT( G_LOG_HEAD ||'.'|| L_API_NAME ||'.', L_PROGRESS, 'l_user_id : '||l_user_id);
24456: END IF;
24457:
24450: l_user_id := PO_REQAPPROVAL_ACTION.user_id;
24451:
24452: IF G_DEBUG_STMT THEN
24453: PO_DEBUG.DEBUG_STMT( G_LOG_HEAD ||'.'|| L_API_NAME ||'.', L_PROGRESS, 'l_application_id : '||l_application_id);
24454: PO_DEBUG.DEBUG_STMT( G_LOG_HEAD ||'.'|| L_API_NAME ||'.', L_PROGRESS, 'l_responsibility_id : '||l_responsibility_id);
24455: PO_DEBUG.DEBUG_STMT( G_LOG_HEAD ||'.'|| L_API_NAME ||'.', L_PROGRESS, 'l_user_id : '||l_user_id);
24456: END IF;
24457:
24458: gl_global.set_aff_validation('XX',null);
24451:
24452: IF G_DEBUG_STMT THEN
24453: PO_DEBUG.DEBUG_STMT( G_LOG_HEAD ||'.'|| L_API_NAME ||'.', L_PROGRESS, 'l_application_id : '||l_application_id);
24454: PO_DEBUG.DEBUG_STMT( G_LOG_HEAD ||'.'|| L_API_NAME ||'.', L_PROGRESS, 'l_responsibility_id : '||l_responsibility_id);
24455: PO_DEBUG.DEBUG_STMT( G_LOG_HEAD ||'.'|| L_API_NAME ||'.', L_PROGRESS, 'l_user_id : '||l_user_id);
24456: END IF;
24457:
24458: gl_global.set_aff_validation('XX',null);
24459:
26282: BEGIN
26283:
26284: L_PROGRESS := '001';
26285: IF G_DEBUG_STMT THEN
26286: PO_DEBUG.DEBUG_STMT( G_LOG_HEAD ||'.'||L_API_NAME||'.', L_PROGRESS, 'check_accrue_on_receipt' );
26287: END IF;
26288:
26289: IF ( P_DOCUMENT_TYPE = 'PO') THEN
26290: