1493: current_org_id := l_org_id;
1494: end if;
1495: end if;
1496:
1497: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1498: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||'GET_CONTACT_INFO','current_org_id => ' || current_org_id);
1499: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||'GET_CONTACT_INFO','p_page => ' || p_page);
1500: end if;
1501:
1494: end if;
1495: end if;
1496:
1497: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1498: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||'GET_CONTACT_INFO','current_org_id => ' || current_org_id);
1499: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||'GET_CONTACT_INFO','p_page => ' || p_page);
1500: end if;
1501:
1502: IF (FUN_RULE_OBJECTS_PUB.rule_object_instance_exists(222,'ARI_CONTACT_INFO', NULL,current_org_id) ) THEN
1495: end if;
1496:
1497: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1498: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||'GET_CONTACT_INFO','current_org_id => ' || current_org_id);
1499: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||'GET_CONTACT_INFO','p_page => ' || p_page);
1500: end if;
1501:
1502: IF (FUN_RULE_OBJECTS_PUB.rule_object_instance_exists(222,'ARI_CONTACT_INFO', NULL,current_org_id) ) THEN
1503:
1524: ELSE
1525: SELECT WEB_HTML_CALL INTO p_output_string FROM FND_FORM_FUNCTIONS WHERE FUNCTION_NAME LIKE 'ARICONTACTUS';
1526: END IF ;
1527:
1528: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1529: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||'GET_CONTACT_INFO','p_output_string => ' || p_output_string);
1530: end if;
1531:
1532: END get_contact_info;
1525: SELECT WEB_HTML_CALL INTO p_output_string FROM FND_FORM_FUNCTIONS WHERE FUNCTION_NAME LIKE 'ARICONTACTUS';
1526: END IF ;
1527:
1528: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1529: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||'GET_CONTACT_INFO','p_output_string => ' || p_output_string);
1530: end if;
1531:
1532: END get_contact_info;
1533:
1736: BEGIN
1737:
1738: l_procedure_name := '.validate_ACH_routing_number';
1739:
1740: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1741: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name,'Begin validate_ACH_routing_number');
1742: end if;
1743:
1744:
1737:
1738: l_procedure_name := '.validate_ACH_routing_number';
1739:
1740: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1741: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name,'Begin validate_ACH_routing_number');
1742: end if;
1743:
1744:
1745: /*--------------------------------------------------------------------+
1746: | Validate that the routing number cheksum is correct |
1747: | bug # 9283134 - canadian transit numbers are not accepted in irec |
1748: +--------------------------------------------------------------------*/
1749: l_routing_number_validation := FND_PROFILE.value('OIR_SKIP_ROUT_NUM_VALID');
1750: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1751: fnd_log.string(fnd_log.LEVEL_STATEMENT,'.validate_ACH_routing_number',
1752: ' OIR: Skip Routing Number Validation :: '||l_routing_number_validation);
1753: end if;
1754:
1747: | bug # 9283134 - canadian transit numbers are not accepted in irec |
1748: +--------------------------------------------------------------------*/
1749: l_routing_number_validation := FND_PROFILE.value('OIR_SKIP_ROUT_NUM_VALID');
1750: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1751: fnd_log.string(fnd_log.LEVEL_STATEMENT,'.validate_ACH_routing_number',
1752: ' OIR: Skip Routing Number Validation :: '||l_routing_number_validation);
1753: end if;
1754:
1755: if l_routing_number_validation = 'Y' then
1767: +-------------------------------------------------------------*/
1768: OPEN bank_branch_cur;
1769: FETCH bank_branch_cur INTO bank_branch_rec;
1770: IF (bank_branch_cur%FOUND) then
1771: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1772: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name,'Found routing number in ce_bank_branches_v');
1773: end if;
1774: CLOSE bank_branch_cur;
1775: RETURN 1;
1768: OPEN bank_branch_cur;
1769: FETCH bank_branch_cur INTO bank_branch_rec;
1770: IF (bank_branch_cur%FOUND) then
1771: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1772: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name,'Found routing number in ce_bank_branches_v');
1773: end if;
1774: CLOSE bank_branch_cur;
1775: RETURN 1;
1776: ELSE
1778: END IF;
1779:
1780: l_routing_number_validation := NVL(FND_PROFILE.value('AR_BANK_DIRECTORY_SOURCE'),'NONE');
1781:
1782: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1783: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name,'profile AR_BANK_DIRECTORY_SOURCE value :: '||l_routing_number_validation);
1784: end if;
1785:
1786: /*-----------------------------------------------------+
1779:
1780: l_routing_number_validation := NVL(FND_PROFILE.value('AR_BANK_DIRECTORY_SOURCE'),'NONE');
1781:
1782: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1783: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name,'profile AR_BANK_DIRECTORY_SOURCE value :: '||l_routing_number_validation);
1784: end if;
1785:
1786: /*-----------------------------------------------------+
1787: | If source is 'NONE' then no validate routing number against AR_BANKD_DIRECTORY |
1790:
1791: OPEN bank_directory_cur;
1792: FETCH bank_directory_cur INTO bank_directory_rec;
1793: IF (bank_directory_cur%FOUND) then
1794: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1795: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name,'Found routing number in AR_BANK_DIRECTORY');
1796: end if;
1797: CLOSE bank_directory_cur;
1798: RETURN 1;
1791: OPEN bank_directory_cur;
1792: FETCH bank_directory_cur INTO bank_directory_rec;
1793: IF (bank_directory_cur%FOUND) then
1794: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1795: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name,'Found routing number in AR_BANK_DIRECTORY');
1796: end if;
1797: CLOSE bank_directory_cur;
1798: RETURN 1;
1799: ELSE
1796: end if;
1797: CLOSE bank_directory_cur;
1798: RETURN 1;
1799: ELSE
1800: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1801: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name,'Routing Number not found in AR_BANK_DIRECTORY');
1802: end if;
1803: CLOSE bank_directory_cur;
1804: RETURN 0;
1797: CLOSE bank_directory_cur;
1798: RETURN 1;
1799: ELSE
1800: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1801: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name,'Routing Number not found in AR_BANK_DIRECTORY');
1802: end if;
1803: CLOSE bank_directory_cur;
1804: RETURN 0;
1805: END IF;
1804: RETURN 0;
1805: END IF;
1806:
1807: ELSE
1808: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1809: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name,'Routing Number not found in ce_bank_branches_v');
1810: end if;
1811: RETURN 0;
1812: END IF;
1805: END IF;
1806:
1807: ELSE
1808: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1809: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name,'Routing Number not found in ce_bank_branches_v');
1810: end if;
1811: RETURN 0;
1812: END IF;
1813:
1846: p_routing_number_type IN VARCHAR2 DEFAULT 'ABA') RETURN NUMBER IS
1847:
1848: BEGIN
1849:
1850: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1851: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME,' Begin is_routing_number_valid ');
1852: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME,' p_routing_number_type :: '||p_routing_number_type);
1853: end if;
1854:
1847:
1848: BEGIN
1849:
1850: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1851: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME,' Begin is_routing_number_valid ');
1852: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME,' p_routing_number_type :: '||p_routing_number_type);
1853: end if;
1854:
1855: if p_routing_number_type = 'ABA' then
1848: BEGIN
1849:
1850: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1851: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME,' Begin is_routing_number_valid ');
1852: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME,' p_routing_number_type :: '||p_routing_number_type);
1853: end if;
1854:
1855: if p_routing_number_type = 'ABA' then
1856:
1915: counter NUMBER := 1;
1916:
1917: BEGIN
1918:
1919: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1920: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME,' Begin validate_ACH_checksum ');
1921: end if;
1922:
1923: /*---------------------------------+
1916:
1917: BEGIN
1918:
1919: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1920: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME,' Begin validate_ACH_checksum ');
1921: end if;
1922:
1923: /*---------------------------------+
1924: | Remove all non-digit characters |
1922:
1923: /*---------------------------------+
1924: | Remove all non-digit characters |
1925: +---------------------------------*/
1926: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1927: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME,' calling ari_utilities.strip_white_spaces p_routing_number ::'||p_routing_number);
1928: end if;
1929:
1930: ari_utilities.strip_white_spaces (p_routing_number,
1923: /*---------------------------------+
1924: | Remove all non-digit characters |
1925: +---------------------------------*/
1926: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1927: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME,' calling ari_utilities.strip_white_spaces p_routing_number ::'||p_routing_number);
1928: end if;
1929:
1930: ari_utilities.strip_white_spaces (p_routing_number,
1931: l_routing_num_stripped);
1929:
1930: ari_utilities.strip_white_spaces (p_routing_number,
1931: l_routing_num_stripped);
1932:
1933: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1934: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME,' Stripped Routing number l_routing_num_stripped ::'||l_routing_num_stripped);
1935: end if;
1936:
1937: /*--------------------------------------------+
1930: ari_utilities.strip_white_spaces (p_routing_number,
1931: l_routing_num_stripped);
1932:
1933: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1934: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME,' Stripped Routing number l_routing_num_stripped ::'||l_routing_num_stripped);
1935: end if;
1936:
1937: /*--------------------------------------------+
1938: | ACH routing number has to be 9 digits long |
1955: counter := counter + 3;
1956:
1957: end loop;
1958:
1959: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1960: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME,' Routing number checksum ::'||cheksum);
1961: end if; /*-------------------------------------------------+
1962: | If the resulting sum is an even multiple of ten |
1963: | (but not zero), the ach routing number is good. |
1956:
1957: end loop;
1958:
1959: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1960: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME,' Routing number checksum ::'||cheksum);
1961: end if; /*-------------------------------------------------+
1962: | If the resulting sum is an even multiple of ten |
1963: | (but not zero), the ach routing number is good. |
1964: +-------------------------------------------------*/
3048: BEGIN
3049:
3050: l_procedure_name := '.get_pending_cmreq_amount';
3051:
3052: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
3053: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name,'Begin+');
3054: end if;
3055:
3056: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
3049:
3050: l_procedure_name := '.get_pending_cmreq_amount';
3051:
3052: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
3053: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name,'Begin+');
3054: end if;
3055:
3056: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
3057: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name,'p_customer_id '||p_customer_id);
3052: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
3053: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name,'Begin+');
3054: end if;
3055:
3056: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
3057: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name,'p_customer_id '||p_customer_id);
3058: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name,'p_customer_site_use_id '||p_customer_site_use_id);
3059: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name,'p_session_id '||p_session_id);
3060: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name,'p_currency_code '||p_currency_code);
3053: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name,'Begin+');
3054: end if;
3055:
3056: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
3057: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name,'p_customer_id '||p_customer_id);
3058: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name,'p_customer_site_use_id '||p_customer_site_use_id);
3059: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name,'p_session_id '||p_session_id);
3060: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name,'p_currency_code '||p_currency_code);
3061: end if;
3054: end if;
3055:
3056: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
3057: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name,'p_customer_id '||p_customer_id);
3058: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name,'p_customer_site_use_id '||p_customer_site_use_id);
3059: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name,'p_session_id '||p_session_id);
3060: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name,'p_currency_code '||p_currency_code);
3061: end if;
3062:
3055:
3056: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
3057: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name,'p_customer_id '||p_customer_id);
3058: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name,'p_customer_site_use_id '||p_customer_site_use_id);
3059: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name,'p_session_id '||p_session_id);
3060: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name,'p_currency_code '||p_currency_code);
3061: end if;
3062:
3063: if(p_customer_id IS NULL OR p_customer_id = -1) then
3056: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
3057: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name,'p_customer_id '||p_customer_id);
3058: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name,'p_customer_site_use_id '||p_customer_site_use_id);
3059: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name,'p_session_id '||p_session_id);
3060: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name,'p_currency_code '||p_currency_code);
3061: end if;
3062:
3063: if(p_customer_id IS NULL OR p_customer_id = -1) then
3064: SELECT /*+ LEADING(RaCmRequests)*/ nvl(sum ( total_amount ), 0) into pending_cmreq_amt
3094: AND(TRUNC(ArPaymentSchedules.trx_date)) >= trunc(decode( nvl(FND_PROFILE.VALUE('ARI_FILTER_TRXDATE_OLDER'), 0), 0, ArPaymentSchedules.trx_date, (sysdate-FND_PROFILE.VALUE('ARI_FILTER_TRXDATE_OLDER'))))
3095: AND ct.printing_option = decode(nvl(FND_PROFILE.VALUE('ARI_FILTER_DONOTPRINT_TRX'), 'NOT'), 'Y', 'PRI', ct.printing_option) ;
3096: end if;
3097:
3098: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
3099: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name,'pending_cmreq_amt '||pending_cmreq_amt);
3100: end if;
3101:
3102: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
3095: AND ct.printing_option = decode(nvl(FND_PROFILE.VALUE('ARI_FILTER_DONOTPRINT_TRX'), 'NOT'), 'Y', 'PRI', ct.printing_option) ;
3096: end if;
3097:
3098: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
3099: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name,'pending_cmreq_amt '||pending_cmreq_amt);
3100: end if;
3101:
3102: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
3103: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name,'End-');
3098: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
3099: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name,'pending_cmreq_amt '||pending_cmreq_amt);
3100: end if;
3101:
3102: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
3103: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name,'End-');
3104: end if;
3105: RETURN pending_cmreq_amt;
3106: EXCEPTION
3099: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name,'pending_cmreq_amt '||pending_cmreq_amt);
3100: end if;
3101:
3102: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
3103: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name,'End-');
3104: end if;
3105: RETURN pending_cmreq_amt;
3106: EXCEPTION
3107: WHEN OTHERS THEN