[Home] [Help]
17: G_FIN_LINE_LTY_ID OKC_LINE_STYLES_V.ID%TYPE := 33;
18:
19: G_BULK_BATCH_SIZE NUMBER := 10000;
20: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_OPEN_INTERFACE_PVT';
21: G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
22:
23: G_API_TYPE CONSTANT VARCHAR2(4) := '_PVT';
24: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(1000) := 'OKL_UNEXPECTED_ERROR';
25: G_MISSING_VALUE CONSTANT VARCHAR2(1000) := 'OKL_MISSING_VALUE';
693: ,QUOTE_APPROVER_DELAY_DAYS OKL_HEADER_INTERFACE.QUOTE_APPROVER_DELAY_DAYS%TYPE
694: ,ERT_SERV_MANT_FRML OKL_HEADER_INTERFACE.ERT_SERV_MANT_FRML%TYPE
695: ,EOT_SERV_MANT_FRML OKL_HEADER_INTERFACE.EOT_SERV_MANT_FRML%TYPE
696: --Added by dpsingh for LE Uptake
697: ,LEGAL_ENTITY_ID NUMBER := Okl_Api.G_MISS_NUM
698: -- Added by Punith for R12 ebtax
699: ,ST_TAX_SCHEDULE_APPLIES_FLAG OKL_HEADER_INTERFACE.ST_TAX_SCHEDULE_APPLIES_FLAG%TYPE
700: );
701:
756: ------------------------------------------------------------------------------
757: -- PROCEDURE Report_Error
758: -- It is a generalized routine to display error on Concurrent Manager Log file
759: -- Calls:
760: -- okl_api package
761: -- fnd_msg_pub package
762: -- Called by:
763: -- process_record
764: -- check_input_record
774: x_msg_out VARCHAR2(2000);
775:
776: BEGIN
777:
778: okl_api.end_activity(
779: X_msg_count => x_msg_count,
780: X_msg_data => x_msg_data
781: );
782:
831: FROM okc_k_headers_v
832: WHERE id = p_chr_id;
833:
834: BEGIN
835: x_return_status := OKL_API.G_RET_STS_SUCCESS;
836: OPEN can_bto_csr (p_chr_id);
837: FETCH can_bto_csr INTO x_bto_id,
838: x_can_id;
839: IF can_bto_csr%NOTFOUND THEN
836: OPEN can_bto_csr (p_chr_id);
837: FETCH can_bto_csr INTO x_bto_id,
838: x_can_id;
839: IF can_bto_csr%NOTFOUND THEN
840: x_return_status := OKL_API.G_RET_STS_ERROR;
841: END IF;
842: CLOSE can_bto_csr;
843:
844: END get_can_bto;
902: param_error EXCEPTION;
903: BEGIN
904:
905: X_Progress := '010';
906: X_return_status := OKL_API.G_RET_STS_SUCCESS;
907: g_instance_number := nvl(p_instance_number, 'NONE');
908:
909: --fnd_file.put_line(fnd_file.output, 'OKL Contract Open Interface Report');
910: --fnd_file.put_line(fnd_file.output, '==================================');
925: p_start_date_to IS NULL AND
926: p_contract_number IS NULL AND
927: p_customer_number IS NULL ) THEN -- All Null
928:
929: okl_api.set_message(
930: G_APP_NAME,
931: G_NULL_PARAMETER
932: );
933: RAISE param_error;
937: p_start_date_to IS NOT NULL OR
938: p_contract_number IS NOT NULL OR
939: p_customer_number IS NOT NULL)) THEN -- Provide Batch Number only
940:
941: okl_api.set_message(
942: G_APP_NAME,
943: G_INVALID_PARAMETER,
944: 'PARAM_NAME',
945: 'BATCH_NUMBER'
951: p_start_date_from IS NULL
952: AND
953: p_start_date_to IS NULL
954: ) THEN
955: okl_api.set_message(
956: G_APP_NAME,
957: G_INVALID_PARAMETER,
958: 'PARAM_NAME',
959: 'Customer Number And Start Date From To'
965: * Validations are moved to load procedure
966: *
967: *
968: * check_input_record(
969: * p_init_msg_list => OKL_API.G_TRUE,
970: * x_return_status => X_return_status,
971: * x_msg_count => X_msg_count,
972: * x_msg_data => X_msg_data,
973: * p_batch_number => p_batch_number,
993: * write_to_log('==================================');
994: * Bug 4350579
995: */
996: Load_Input_Record(
997: p_init_msg_list => OKL_API.G_TRUE,
998: x_return_status => X_return_status,
999: x_msg_count => X_msg_count,
1000: x_msg_data => X_msg_data,
1001: p_batch_number => p_batch_number,
1013: RETURN;
1014:
1015: EXCEPTION
1016: WHEN param_error THEN
1017: okl_api.end_activity(
1018: X_msg_count => X_msg_count,
1019: X_msg_data => X_msg_data
1020: );
1021:
1043: x_proc_name VARCHAR2(35) := 'UPDATE_INTERFACE_STATUS';
1044: update_failed EXCEPTION;
1045: BEGIN
1046:
1047: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1048:
1049: UPDATE okl_header_interface
1050: SET status = p_status,
1051: contract_number = p_new_contract_number,
1059: END IF;
1060:
1061: EXCEPTION
1062: WHEN update_failed THEN
1063: okl_api.set_message(
1064: G_APP_NAME,
1065: G_UNEXPECTED_ERROR,
1066: 'OKL_SQLCODE',
1067: SQLCODE,
1067: SQLCODE,
1068: 'OKL_SQLERRM',
1069: SQLERRM || ': '||G_PKG_NAME||'.'||x_proc_name
1070: );
1071: x_return_status := OKL_API.G_RET_STS_ERROR;
1072:
1073: END Update_Interface_Status;
1074:
1075: ------------------------------------------------------------------------------
1243:
1244: l_proc_name VARCHAR2(30) := 'GET_TEMPLATE';
1245: BEGIN
1246:
1247: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1248:
1249: OPEN t_header_csr (p_template_number);
1250: FETCH t_header_csr into l_t_header_rec;
1251: IF t_header_csr%NOTFOUND THEN
1248:
1249: OPEN t_header_csr (p_template_number);
1250: FETCH t_header_csr into l_t_header_rec;
1251: IF t_header_csr%NOTFOUND THEN
1252: okl_api.set_message(
1253: G_APP_NAME,
1254: G_INVALID_TEMPLATE,
1255: 'TEMPLATE_NUMBER',
1256: p_template_number
1265: WHEN template_failed THEN
1266: IF t_header_csr%ISOPEN THEN
1267: CLOSE t_header_csr;
1268: END IF;
1269: x_return_status := OKL_API.G_RET_STS_ERROR;
1270: END get_template;
1271:
1272:
1273: --*********************** check Interface **************************************
1482: l_name OKL_STRMTYP_SOURCE_V.NAME%TYPE;
1483: strm_failed EXCEPTION;
1484:
1485: BEGIN
1486: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1487:
1488: debug_message('p_stream_type_code=' || p_stream_type_code);
1489: debug_message('p_stream_purpose=' || p_stream_purpose);
1490: OPEN strm_csr(p_stream_type_code,
1500: RETURN;
1501:
1502: EXCEPTION
1503: WHEN strm_failed THEN
1504: x_return_status := OKL_API.G_RET_STS_ERROR;
1505:
1506: END check_stream_type_code;
1507:
1508: ------------------------------------------------------------------------------
1507:
1508: ------------------------------------------------------------------------------
1509: -- FUNCTION validate_currency_code
1510: -- It validates currency Code against database, FND_CURRENCIES
1511: -- Returns OKL_API.G_RET_STS_ERROR for unknown currency code
1512: -- OKL_API.G_RET_STS_SUCCESS for valid currency code
1513: -- Calls:
1514: -- None
1515: -- Called By:
1508: ------------------------------------------------------------------------------
1509: -- FUNCTION validate_currency_code
1510: -- It validates currency Code against database, FND_CURRENCIES
1511: -- Returns OKL_API.G_RET_STS_ERROR for unknown currency code
1512: -- OKL_API.G_RET_STS_SUCCESS for valid currency code
1513: -- Calls:
1514: -- None
1515: -- Called By:
1516: -- check_input_record
1525: FROM FND_CURRENCIES
1526: WHERE currency_code = p_curr_code
1527: AND NVL(end_date_active,SYSDATE) >= SYSDATE;
1528:
1529: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1530: l_currency_code FND_CURRENCIES.CURRENCY_CODE%TYPE;
1531:
1532: BEGIN
1533:
1531:
1532: BEGIN
1533:
1534: IF (p_currency_code IS NULL) THEN
1535: okl_api.set_message(
1536: G_APP_NAME,
1537: G_MISSING_VALUE,
1538: 'CONTRACT_NUM',
1539: p_contract_number,
1539: p_contract_number,
1540: 'COL_NAME',
1541: 'CURRENCY_CODE'
1542: );
1543: x_return_status := OKL_API.G_RET_STS_ERROR;
1544:
1545: return x_return_status;
1546: END IF;
1547:
1547:
1548: OPEN currency_csr(p_currency_code);
1549: FETCH currency_csr INTO l_currency_code;
1550: IF currency_csr%NOTFOUND THEN
1551: okl_api.set_message(
1552: G_APP_NAME,
1553: G_INVALID_VALUE,
1554: 'CONTRACT_NUM',
1555: p_contract_number,
1557: 'CURRENCY_CODE',
1558: 'COL_VALUE',
1559: p_currency_code
1560: );
1561: x_return_status := OKL_API.G_RET_STS_ERROR;
1562: END IF;
1563: CLOSE currency_csr;
1564:
1565: return x_return_status;
1574: -- review_invoice_flag, date_signed, date_approved, term,
1575: -- accepted_date, deal_type_code, bill_to_address, authoring_org_id,
1576: -- customer_account
1577: -- columns and reports error, if any
1578: -- Returns OKL_API.G_RET_STS_ERROR for any Error
1579: -- OKL_API.G_RET_STS_SUCCESS
1580: -- Calls:
1581: -- None
1582: -- Called By:
1575: -- accepted_date, deal_type_code, bill_to_address, authoring_org_id,
1576: -- customer_account
1577: -- columns and reports error, if any
1578: -- Returns OKL_API.G_RET_STS_ERROR for any Error
1579: -- OKL_API.G_RET_STS_SUCCESS
1580: -- Calls:
1581: -- None
1582: -- Called By:
1583: -- check_input_record
1610: p_currency_code IN okl_header_interface.currency_code%TYPE
1611: )
1612: RETURN VARCHAR2 IS
1613:
1614: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1615: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1616:
1617: l_rulv_tbl rulv_tbl_type;
1618: l_rule_count NUMBER;
1611: )
1612: RETURN VARCHAR2 IS
1613:
1614: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1615: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1616:
1617: l_rulv_tbl rulv_tbl_type;
1618: l_rule_count NUMBER;
1619: x_msg_count NUMBER;
1630:
1631: debug_message(l_proc_name);
1632:
1633: IF (UPPER(p_import_request_stage) NOT IN ( 'NEW','PASSED','COMPLETE','APPROVED','BOOKED' )) THEN
1634: okl_api.set_message(
1635: G_APP_NAME,
1636: G_LITERAL_MISMATCH,
1637: 'COL_NAME',
1638: 'IMPORT_REQUEST_STAGE',
1638: 'IMPORT_REQUEST_STAGE',
1639: 'COL_VALUE',
1640: p_import_request_stage
1641: );
1642: x_return_status := OKL_API.G_RET_STS_ERROR;
1643: END IF;
1644:
1645: IF (p_import_request_stage <> 'NEW'
1646: AND
1644:
1645: IF (p_import_request_stage <> 'NEW'
1646: AND
1647: p_date_signed IS NULL ) THEN
1648: okl_api.set_message(
1649: G_APP_NAME,
1650: G_MISSING_VALUE_FOR_STAGE,
1651: 'CONTRACT_NUM',
1652: p_contract_number,
1654: 'DATE_SIGNED',
1655: 'STAGE',
1656: p_import_request_stage
1657: );
1658: x_return_status := OKL_API.G_RET_STS_ERROR;
1659: END IF;
1660:
1661: IF (p_import_request_stage <> 'NEW'
1662: AND
1660:
1661: IF (p_import_request_stage <> 'NEW'
1662: AND
1663: p_date_signed >= NVL(p_start_date,SYSDATE) ) THEN
1664: okl_api.set_message(
1665: G_APP_NAME,
1666: G_DATESIGNED_LT_START
1667: );
1668: x_return_status := OKL_API.G_RET_STS_ERROR;
1664: okl_api.set_message(
1665: G_APP_NAME,
1666: G_DATESIGNED_LT_START
1667: );
1668: x_return_status := OKL_API.G_RET_STS_ERROR;
1669: END IF;
1670:
1671: IF (p_import_request_stage = 'BOOKED'
1672: AND
1670:
1671: IF (p_import_request_stage = 'BOOKED'
1672: AND
1673: p_date_approved IS NULL) THEN
1674: okl_api.set_message(
1675: G_APP_NAME,
1676: G_MISSING_VALUE_FOR_STAGE,
1677: 'CONTRACT_NUM',
1678: p_contract_number,
1680: 'DATE_APPROVED',
1681: 'STAGE',
1682: p_import_request_stage
1683: );
1684: x_return_status := OKL_API.G_RET_STS_ERROR;
1685: END IF;
1686:
1687: IF (p_import_request_stage <> 'NEW'
1688: AND
1686:
1687: IF (p_import_request_stage <> 'NEW'
1688: AND
1689: p_term IS NULL ) THEN
1690: okl_api.set_message(
1691: G_APP_NAME,
1692: G_MISSING_VALUE_FOR_STAGE,
1693: 'CONTRACT_NUM',
1694: p_contract_number,
1696: 'TERM',
1697: 'STAGE',
1698: p_import_request_stage
1699: );
1700: x_return_status := OKL_API.G_RET_STS_ERROR;
1701: END IF;
1702:
1703: IF (p_authoring_org_id IS NULL) THEN
1704: okl_api.set_message(
1700: x_return_status := OKL_API.G_RET_STS_ERROR;
1701: END IF;
1702:
1703: IF (p_authoring_org_id IS NULL) THEN
1704: okl_api.set_message(
1705: G_APP_NAME,
1706: G_MISSING_VALUE,
1707: 'CONTRACT_NUM',
1708: p_contract_number,
1708: p_contract_number,
1709: 'COL_NAME',
1710: 'AUTHORING_ORG_ID'
1711: );
1712: x_return_status := OKL_API.G_RET_STS_ERROR;
1713:
1714: END IF;
1715:
1716: IF (p_inv_organization_id IS NULL) THEN
1713:
1714: END IF;
1715:
1716: IF (p_inv_organization_id IS NULL) THEN
1717: okl_api.set_message(
1718: G_APP_NAME,
1719: G_MISSING_VALUE,
1720: 'CONTRACT_NUM',
1721: p_contract_number,
1721: p_contract_number,
1722: 'COL_NAME',
1723: 'INV_ORGANIZATION_ID'
1724: );
1725: x_return_status := OKL_API.G_RET_STS_ERROR;
1726:
1727: END IF;
1728:
1729: IF (UPPER(p_import_request_stage) <> 'NEW'
1728:
1729: IF (UPPER(p_import_request_stage) <> 'NEW'
1730: AND
1731: p_expected_delivery_date IS NULL) THEN
1732: okl_api.set_message(
1733: G_APP_NAME,
1734: G_MISSING_VALUE_FOR_STAGE,
1735: 'CONTRACT_NUM',
1736: p_contract_number,
1738: 'EXPECTED_DELIVERY_DATE',
1739: 'STAGE',
1740: p_import_request_stage
1741: );
1742: x_return_status := OKL_API.G_RET_STS_ERROR;
1743: END IF;
1744:
1745:
1746: l_return_status := validate_currency_code(p_contract_number => p_contract_number,
1745:
1746: l_return_status := validate_currency_code(p_contract_number => p_contract_number,
1747: p_currency_code => p_currency_code);
1748:
1749: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1750: x_return_status := l_return_status;
1751: END IF;
1752:
1753: return x_return_status;
1783: l_proc_name VARCHAR2(35) := 'CHECK_FOR_RELEASE_ASSET';
1784: l_release_yn VARCHAR2(1) := 'N';
1785: BEGIN
1786:
1787: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1788: debug_message(l_proc_name);
1789:
1790: x_asset_id := NULL;
1791: l_release_yn := 'N';
1805: x_release_asset := l_release_yn;
1806:
1807: EXCEPTION
1808: WHEN OTHERS THEN
1809: okl_api.set_message(
1810: G_APP_NAME,
1811: G_UNEXPECTED_ERROR,
1812: 'OKL_SQLCODE',
1813: SQLCODE,
1813: SQLCODE,
1814: 'OKL_SQLERRM',
1815: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
1816: );
1817: x_return_status := OKL_API.G_RET_STS_ERROR;
1818:
1819: END check_for_release_asset;
1820: ------------------------------------------------------------------------------
1821: -- PROCEDURE get_release_asset_flag
1915: l_released_assets_not_exist_yn VARCHAR2(1) := 'N';
1916: l_release_yn VARCHAR2(1) ;
1917: BEGIN
1918:
1919: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1920: debug_message(l_proc_name);
1921:
1922: OPEN release_csr (p_contract_number, -- Bug #15992711: Added a new parameter
1923: p_asset_number,
1958: --Bug #15992711 : Dont show an error when the contract has mix of assets.
1959: /*ELSIF ((l_released_assets_exist_yn = 'N') AND (l_released_assets_not_exist_yn = 'N')) THEN
1960: l_release_yn := 'N';
1961: ELSE
1962: okl_api.set_message(
1963: G_APP_NAME,
1964: G_MIXED_ASSET,
1965: 'CONTRACT_NUM',
1966: p_contract_number
1964: G_MIXED_ASSET,
1965: 'CONTRACT_NUM',
1966: p_contract_number
1967: );
1968: x_return_status := OKL_API.G_RET_STS_ERROR;*/
1969: -- Bug #15992711 : End of modification
1970: END IF;
1971: debug_message ('l_release_yn : '|| l_release_yn);
1972: RETURN l_release_yn;
1978: END IF;
1979: IF ( unrelease_csr%ISOPEN ) THEN
1980: CLOSE unrelease_csr;
1981: END IF;
1982: okl_api.set_message(
1983: G_APP_NAME,
1984: G_UNEXPECTED_ERROR,
1985: 'OKL_SQLCODE',
1986: SQLCODE,
1986: SQLCODE,
1987: 'OKL_SQLERRM',
1988: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
1989: );
1990: x_return_status := OKL_API.G_RET_STS_ERROR;
1991:
1992: END get_release_asset_flag;
1993: ------------------------------------------------------------------------------
1994: ------------------------------------------------------------------------------
2026: l_proc_name VARCHAR2(35) := 'CHECK_BALANCE_LEGACY';
2027: l_multiple_bal_dates_yn VARCHAR2(1) := 'N';
2028: BEGIN
2029:
2030: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2031: debug_message(l_proc_name);
2032:
2033: OPEN legacy_balance_csr (p_contract_number);
2034:
2039: CLOSE legacy_balance_csr;
2040: debug_message ('l_multiple_bal_dates_yn :'|| l_multiple_bal_dates_yn);
2041:
2042: IF l_multiple_bal_dates_yn = 'Y' THEN
2043: okl_api.set_message(
2044: G_APP_NAME,
2045: G_MULTIPLE_LEGACY_BAL_DATE,
2046: 'CONTRACT_NUM',
2047: p_contract_number
2045: G_MULTIPLE_LEGACY_BAL_DATE,
2046: 'CONTRACT_NUM',
2047: p_contract_number
2048: );
2049: x_return_status := OKL_API.G_RET_STS_ERROR;
2050: END IF;
2051:
2052: EXCEPTION
2053: WHEN OTHERS THEN
2054: IF ( legacy_balance_csr%ISOPEN ) THEN
2055: CLOSE legacy_balance_csr;
2056: END IF;
2057:
2058: okl_api.set_message(
2059: G_APP_NAME,
2060: G_UNEXPECTED_ERROR,
2061: 'OKL_SQLCODE',
2062: SQLCODE,
2062: SQLCODE,
2063: 'OKL_SQLERRM',
2064: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
2065: );
2066: x_return_status := OKL_API.G_RET_STS_ERROR;
2067:
2068: END check_balance_legacy;
2069: --Bug# 16344245
2070: ------------------------------------------------------------------------------
2074: -- asset_corporate_book, asset_category_segments, asset_location_segments,
2075: -- depreciation_method, life_in_months, fee_code, price_list_name,
2076: -- counter_group_name, usage_bill_frequency_code, base_reading_uom_code
2077: -- columns and reports error, if any
2078: -- Returns OKL_API.G_RET_STS_ERROR for any Error
2079: -- OKL_API.G_RET_STS_SUCCESS
2080: -- Calls:
2081: -- check_stream_type_code
2082: -- Called By:
2075: -- depreciation_method, life_in_months, fee_code, price_list_name,
2076: -- counter_group_name, usage_bill_frequency_code, base_reading_uom_code
2077: -- columns and reports error, if any
2078: -- Returns OKL_API.G_RET_STS_ERROR for any Error
2079: -- OKL_API.G_RET_STS_SUCCESS
2080: -- Calls:
2081: -- check_stream_type_code
2082: -- Called By:
2083: -- check_input_record
2181:
2182: BEGIN
2183: debug_message(l_proc_name);
2184:
2185: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2186: debug_message('Line type: '||p_line_type);
2187:
2188: IF (p_line_type NOT IN ('ASSET','SERVICE', 'FEE', 'USAGE', 'ASSET_SUBSIDY', 'ASSET_ADDON' )) THEN
2189: okl_api.set_message(
2185: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2186: debug_message('Line type: '||p_line_type);
2187:
2188: IF (p_line_type NOT IN ('ASSET','SERVICE', 'FEE', 'USAGE', 'ASSET_SUBSIDY', 'ASSET_ADDON' )) THEN
2189: okl_api.set_message(
2190: G_APP_NAME,
2191: G_INVALID_VALUE,
2192: 'CONTRACT_NUM',
2193: p_contract_number||'/'||TO_CHAR(p_line_number),
2196: 'COL_VALUE',
2197: p_line_type
2198: );
2199:
2200: x_return_status := OKL_API.G_RET_STS_ERROR;
2201: RAISE halt_validation; -- major error, don't proceed with other validation
2202: END IF;
2203:
2204: IF (p_line_type = 'ASSET'
2203:
2204: IF (p_line_type = 'ASSET'
2205: AND
2206: p_asset_number IS NULL) THEN
2207: okl_api.set_message(
2208: G_APP_NAME,
2209: G_MISSING_VALUE_FOR_LINE,
2210: 'CONTRACT_NUM',
2211: p_contract_number||'/'||TO_CHAR(p_line_number),
2214: 'LINE',
2215: p_line_type
2216: );
2217:
2218: x_return_status := OKL_API.G_RET_STS_ERROR;
2219: END IF;
2220:
2221: --Bug# 16344245
2222:
2222:
2223: -- AMOUNT_BALANCE_LEGACY is supported only for Line Type - ASSET for contracts with Interest Calculation Basis - Reamort
2224: IF (p_line_type <> 'ASSET' AND p_amount_balance_legacy IS NOT NULL)
2225: OR (p_line_type = 'ASSET' AND p_amount_balance_legacy IS NOT NULL AND G_INTEREST_CALCULATION_BASIS <> 'REAMORT') THEN
2226: OKL_API.SET_MESSAGE(
2227: G_APP_NAME,
2228: G_LINE_VALUE_NOT_ALLOWED,
2229: 'CONTRACT_NUM',
2230: p_contract_number,
2233: 'COL_NAME',
2234: 'AMOUNT_BALANCE_LEGACY'
2235: );
2236:
2237: x_return_status := OKL_API.G_RET_STS_ERROR;
2238: END IF;
2239:
2240: -- DT_EFFECTIVE_BALANCE_LEGACY is supported only for Line Type - ASSET for contracts with Interest Calculation Basis - Reamort
2241: IF (p_line_type <> 'ASSET' AND p_dt_effective_balance_legacy IS NOT NULL)
2239:
2240: -- DT_EFFECTIVE_BALANCE_LEGACY is supported only for Line Type - ASSET for contracts with Interest Calculation Basis - Reamort
2241: IF (p_line_type <> 'ASSET' AND p_dt_effective_balance_legacy IS NOT NULL)
2242: OR (p_line_type = 'ASSET' AND p_dt_effective_balance_legacy IS NOT NULL AND G_INTEREST_CALCULATION_BASIS <> 'REAMORT') THEN
2243: OKL_API.SET_MESSAGE(
2244: G_APP_NAME,
2245: G_LINE_VALUE_NOT_ALLOWED,
2246: 'CONTRACT_NUM',
2247: p_contract_number,
2250: 'COL_NAME',
2251: 'DT_EFFECTIVE_BALANCE_LEGACY'
2252: );
2253:
2254: x_return_status := OKL_API.G_RET_STS_ERROR;
2255: END IF;
2256:
2257: -- AMOUNT_BALANCE_LEGACY is required if DF_EFFECTIVE_BALANCE_LEGACY has been poulated
2258: IF (p_line_type = 'ASSET' AND G_INTEREST_CALCULATION_BASIS = 'REAMORT' AND p_dt_effective_balance_legacy IS NOT NULL AND p_amount_balance_legacy IS NULL) THEN
2255: END IF;
2256:
2257: -- AMOUNT_BALANCE_LEGACY is required if DF_EFFECTIVE_BALANCE_LEGACY has been poulated
2258: IF (p_line_type = 'ASSET' AND G_INTEREST_CALCULATION_BASIS = 'REAMORT' AND p_dt_effective_balance_legacy IS NOT NULL AND p_amount_balance_legacy IS NULL) THEN
2259: OKL_API.SET_MESSAGE(
2260: G_APP_NAME,
2261: G_MISSING_VALUE_FOR_LINE,
2262: 'CONTRACT_NUM',
2263: p_contract_number||'/'||TO_CHAR(p_line_number),
2266: 'LINE',
2267: p_line_type
2268: );
2269:
2270: x_return_status := OKL_API.G_RET_STS_ERROR;
2271: END IF;
2272:
2273: -- DF_EFFECTIVE_BALANCE_LEGACY is required if AMOUNT_BALANCE_LEGACY has been poulated
2274: IF (p_line_type = 'ASSET' AND G_INTEREST_CALCULATION_BASIS = 'REAMORT' AND p_amount_balance_legacy IS NOT NULL AND p_dt_effective_balance_legacy IS NULL) THEN
2271: END IF;
2272:
2273: -- DF_EFFECTIVE_BALANCE_LEGACY is required if AMOUNT_BALANCE_LEGACY has been poulated
2274: IF (p_line_type = 'ASSET' AND G_INTEREST_CALCULATION_BASIS = 'REAMORT' AND p_amount_balance_legacy IS NOT NULL AND p_dt_effective_balance_legacy IS NULL) THEN
2275: OKL_API.SET_MESSAGE(
2276: G_APP_NAME,
2277: G_MISSING_VALUE_FOR_LINE,
2278: 'CONTRACT_NUM',
2279: p_contract_number||'/'||TO_CHAR(p_line_number),
2282: 'LINE',
2283: p_line_type
2284: );
2285:
2286: x_return_status := OKL_API.G_RET_STS_ERROR;
2287: END IF;
2288:
2289: --Bug# 16344245
2290:
2299: x_release_asset => x_release_asset,
2300: x_asset_id => x_asset_id
2301: );
2302:
2303: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2304: x_return_status := OKL_API.G_RET_STS_ERROR;
2305: END IF;
2306:
2307: debug_message('------> Asset '||p_asset_number||': Released? :'||x_release_asset);
2300: x_asset_id => x_asset_id
2301: );
2302:
2303: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2304: x_return_status := OKL_API.G_RET_STS_ERROR;
2305: END IF;
2306:
2307: debug_message('------> Asset '||p_asset_number||': Released? :'||x_release_asset);
2308:
2312: AND
2313: p_tax_book IS NOT NULL
2314: AND
2315: p_asset_corporate_book IS NULL) THEN
2316: okl_api.set_message(
2317: G_APP_NAME,
2318: G_MISSING_VALUE_FOR_LINE,
2319: 'CONTRACT_NUM',
2320: p_contract_number||'/'||TO_CHAR(p_line_number),
2322: 'CORPORATE BOOK',
2323: 'LINE',
2324: p_line_type
2325: );
2326: x_return_status := OKL_API.G_RET_STS_ERROR;
2327:
2328: END IF;
2329: */
2330: IF (p_line_type = 'USAGE'
2331: AND
2332: p_asset_number IS NULL
2333: AND
2334: p_import_request_stage <> 'NEW') THEN
2335: okl_api.set_message(
2336: G_APP_NAME,
2337: G_MISSING_VALUE_STAGE_LINE,
2338: 'CONTRACT_NUM',
2339: p_contract_number||'/'||TO_CHAR(p_line_number),
2344: 'LINE',
2345: p_line_type
2346: );
2347:
2348: x_return_status := OKL_API.G_RET_STS_ERROR;
2349: END IF;
2350:
2351: IF (p_line_type IN ('SERVICE', 'FEE')
2352: AND
2350:
2351: IF (p_line_type IN ('SERVICE', 'FEE')
2352: AND
2353: p_amount IS NULL) THEN
2354: okl_api.set_message(
2355: G_APP_NAME,
2356: G_MISSING_VALUE_FOR_LINE,
2357: 'CONTRACT_NUM',
2358: p_contract_number||'/'||TO_CHAR(p_line_number),
2361: 'LINE',
2362: p_line_type
2363: );
2364:
2365: x_return_status := OKL_API.G_RET_STS_ERROR;
2366: END IF;
2367:
2368: /* 4414408
2369: IF (p_line_type = 'ASSET'
2372: AND
2373: p_inventory_item_name IS NULL
2374: AND
2375: p_inventory_item_id IS NULL) THEN
2376: okl_api.set_message(
2377: G_APP_NAME,
2378: G_MISSING_VALUE_FOR_LINE,
2379: 'CONTRACT_NUM',
2380: p_contract_number||'/'||TO_CHAR(p_line_number),
2383: 'LINE',
2384: p_line_type
2385: );
2386:
2387: x_return_status := OKL_API.G_RET_STS_ERROR;
2388: END IF;
2389: */
2390: IF (p_line_type IN ('SERVICE','USAGE')
2391: AND
2391: AND
2392: p_inventory_item_name IS NULL
2393: AND
2394: p_inventory_item_id IS NULL) THEN
2395: okl_api.set_message(
2396: G_APP_NAME,
2397: G_MISSING_VALUE_FOR_LINE,
2398: 'CONTRACT_NUM',
2399: p_contract_number||'/'||TO_CHAR(p_line_number),
2402: 'LINE',
2403: p_line_type
2404: );
2405:
2406: x_return_status := OKL_API.G_RET_STS_ERROR;
2407: END IF;
2408:
2409: /* 4414408
2410: IF (p_line_type = 'ASSET'
2413: AND
2414: p_install_site_number IS NULL
2415: AND
2416: p_install_site_id IS NULL) THEN
2417: okl_api.set_message(
2418: G_APP_NAME,
2419: G_MISSING_VALUE_FOR_LINE,
2420: 'CONTRACT_NUM',
2421: p_contract_number||'/'||TO_CHAR(p_line_number),
2424: 'LINE',
2425: p_line_type
2426: );
2427:
2428: x_return_status := OKL_API.G_RET_STS_ERROR;
2429: END IF;
2430: */
2431: IF (p_line_type = 'FEE') THEN
2432:
2430: */
2431: IF (p_line_type = 'FEE') THEN
2432:
2433: IF (p_fee_code IS NULL) THEN
2434: okl_api.set_message(
2435: G_APP_NAME,
2436: G_MISSING_VALUE_FOR_LINE,
2437: 'CONTRACT_NUM',
2438: p_contract_number||'/'||TO_CHAR(p_line_number),
2441: 'LINE',
2442: p_line_type
2443: );
2444:
2445: x_return_status := OKL_API.G_RET_STS_ERROR;
2446:
2447: ELSE
2448:
2449: check_stream_type_code(
2454: p_stream_purpose => p_stream_purpose,
2455: x_id1 => x_id1,
2456: x_name => l_fee_name
2457: );
2458: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2459: okl_api.set_message(
2460: G_APP_NAME,
2461: G_INVALID_VALUE,
2462: 'CONTRACT_NUM',
2455: x_id1 => x_id1,
2456: x_name => l_fee_name
2457: );
2458: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2459: okl_api.set_message(
2460: G_APP_NAME,
2461: G_INVALID_VALUE,
2462: 'CONTRACT_NUM',
2463: p_contract_number||'/'||TO_CHAR(p_line_number),
2465: 'FEE_CODE, STREAM_PURPOSE_CODE',
2466: 'COL_VALUE',
2467: p_fee_code||', '||p_stream_purpose
2468: );
2469: x_return_status := OKL_API.G_RET_STS_ERROR;
2470: END IF;
2471: END IF; --fee_code not null
2472:
2473: IF (p_fee_type IS NULL) THEN
2470: END IF;
2471: END IF; --fee_code not null
2472:
2473: IF (p_fee_type IS NULL) THEN
2474: okl_api.set_message(
2475: G_APP_NAME,
2476: G_MISSING_VALUE_FOR_LINE,
2477: 'CONTRACT_NUM',
2478: p_contract_number||'/'||TO_CHAR(p_line_number),
2481: 'LINE',
2482: p_line_type
2483: );
2484:
2485: x_return_status := OKL_API.G_RET_STS_ERROR;
2486:
2487: END IF; --Fee Type
2488:
2489: IF (p_fee_type = 'ROLLOVER'
2492: AND
2493: p_term_quote_number IS NULL)
2494: ) THEN
2495:
2496: okl_api.set_message(
2497: G_APP_NAME,
2498: G_MISSING_VALUE_FOR_LINE,
2499: 'CONTRACT_NUM',
2500: p_contract_number||'/'||p_line_number,
2502: 'TERMINATION_QUOTE_ID OR TERMINATION_QUOTE_NUMBER',
2503: 'LINE',
2504: p_line_type
2505: );
2506: x_return_status := OKL_API.G_RET_STS_ERROR;
2507: END IF;
2508:
2509: IF (p_fee_purpose_code is NOT NULL) THEN
2510: OPEN fnd_lookup_csr (p_fee_purpose_code, 'OKL_FEE_PURPOSE');
2509: IF (p_fee_purpose_code is NOT NULL) THEN
2510: OPEN fnd_lookup_csr (p_fee_purpose_code, 'OKL_FEE_PURPOSE');
2511: FETCH fnd_lookup_csr INTO l_exists_yn;
2512: IF (fnd_lookup_csr%NOTFOUND) THEN
2513: okl_api.set_message(
2514: G_APP_NAME,
2515: G_INVALID_VALUE,
2516: 'CONTRACT_NUM',
2517: p_contract_number||'/'||TO_CHAR(p_line_number),
2519: 'FEE_PURPOSE_CODE',
2520: 'COL_VALUE',
2521: p_fee_purpose_code
2522: );
2523: x_return_status := OKL_API.G_RET_STS_ERROR;
2524: END IF;
2525: CLOSE fnd_lookup_csr;
2526: END IF;
2527:
2531: AND
2532: p_price_list_name IS NULL
2533: AND
2534: p_price_list_id IS NULL) THEN
2535: okl_api.set_message(
2536: G_APP_NAME,
2537: G_MISSING_VALUE_FOR_LINE,
2538: 'CONTRACT_NUM',
2539: p_contract_number||'/'||TO_CHAR(p_line_number),
2542: 'LINE',
2543: p_line_type
2544: );
2545:
2546: x_return_status := OKL_API.G_RET_STS_ERROR;
2547: END IF;
2548:
2549: IF (p_line_type = 'USAGE'
2550: AND
2548:
2549: IF (p_line_type = 'USAGE'
2550: AND
2551: p_base_reading_uom_code IS NULL) THEN
2552: okl_api.set_message(
2553: G_APP_NAME,
2554: G_MISSING_VALUE_FOR_LINE,
2555: 'CONTRACT_NUM',
2556: p_contract_number||'/'||TO_CHAR(p_line_number),
2559: 'LINE',
2560: p_line_type
2561: );
2562:
2563: x_return_status := OKL_API.G_RET_STS_ERROR;
2564: END IF;
2565:
2566: IF (p_line_type = 'USAGE'
2567: AND
2565:
2566: IF (p_line_type = 'USAGE'
2567: AND
2568: p_usage_type_code IS NULL) THEN
2569: okl_api.set_message(
2570: G_APP_NAME,
2571: G_MISSING_VALUE_FOR_LINE,
2572: 'CONTRACT_NUM',
2573: p_contract_number||'/'||TO_CHAR(p_line_number),
2576: 'LINE',
2577: p_line_type
2578: );
2579:
2580: x_return_status := OKL_API.G_RET_STS_ERROR;
2581: END IF;
2582:
2583: IF (p_line_type = 'USAGE'
2584: AND
2582:
2583: IF (p_line_type = 'USAGE'
2584: AND
2585: p_usage_period IS NULL) THEN
2586: okl_api.set_message(
2587: G_APP_NAME,
2588: G_MISSING_VALUE_FOR_LINE,
2589: 'CONTRACT_NUM',
2590: p_contract_number||'/'||TO_CHAR(p_line_number),
2593: 'LINE',
2594: p_line_type
2595: );
2596:
2597: x_return_status := OKL_API.G_RET_STS_ERROR;
2598: END IF;
2599:
2600: IF (p_line_type = 'USAGE'
2601: AND
2599:
2600: IF (p_line_type = 'USAGE'
2601: AND
2602: p_usage_no_of_period IS NULL) THEN
2603: okl_api.set_message(
2604: G_APP_NAME,
2605: G_MISSING_VALUE_FOR_LINE,
2606: 'CONTRACT_NUM',
2607: p_contract_number||'/'||TO_CHAR(p_line_number),
2610: 'LINE',
2611: p_line_type
2612: );
2613:
2614: x_return_status := OKL_API.G_RET_STS_ERROR;
2615: END IF;
2616:
2617: IF (p_line_type = 'SERVICE') THEN
2618: --
2621: --
2622: IF (p_link_asset_amount IS NULL
2623: AND
2624: p_asset_number IS NOT NULL) THEN
2625: okl_api.set_message(
2626: G_APP_NAME,
2627: G_MISSING_VALUE_FOR_LINE,
2628: 'CONTRACT_NUM',
2629: p_contract_number||'/'||TO_CHAR(p_line_number),
2631: 'LINK ASSET AMOUNT',
2632: 'LINE',
2633: p_line_type
2634: );
2635: x_return_status := OKL_API.G_RET_STS_ERROR;
2636: END IF;
2637:
2638: /* 4475344
2639: l_supp_name := NULL;
2646:
2647: IF (l_supp_name IS NULL
2648: AND
2649: l_supp_id IS NULL) THEN
2650: okl_api.set_message(
2651: G_APP_NAME,
2652: G_MISSING_VALUE_FOR_LINE,
2653: 'CONTRACT_NUM',
2654: p_contract_number||'/'||TO_CHAR(p_line_number),
2657: 'LINE',
2658: p_line_type
2659: );
2660:
2661: x_return_status := OKL_API.G_RET_STS_ERROR;
2662: END IF;
2663: */
2664: END IF; -- SERVICE line
2665:
2668: return;
2669:
2670: EXCEPTION
2671: WHEN halt_validation THEN
2672: x_return_status := OKL_API.G_RET_STS_ERROR;
2673:
2674: END check_line_literal;
2675:
2676: ------------------------------------------------------------------------------
2675:
2676: ------------------------------------------------------------------------------
2677: -- FUNCTION validate_customer
2678: -- It validates customer against database, OKX_PARTIES_V
2679: -- Returns OKL_API.G_RET_STS_ERROR for unknown customer
2680: -- OKL_API.G_RET_STS_SUCCESS for existing customer
2681: -- Also outputs ID1 for corresponding Customer
2682: -- Calls:
2683: -- None
2676: ------------------------------------------------------------------------------
2677: -- FUNCTION validate_customer
2678: -- It validates customer against database, OKX_PARTIES_V
2679: -- Returns OKL_API.G_RET_STS_ERROR for unknown customer
2680: -- OKL_API.G_RET_STS_SUCCESS for existing customer
2681: -- Also outputs ID1 for corresponding Customer
2682: -- Calls:
2683: -- None
2684: -- Called By:
2710: FETCH customer_csr into x_id1;
2711: CLOSE customer_csr;
2712:
2713: IF (x_id1 IS NULL) THEN
2714: okl_api.set_message(
2715: G_APP_NAME,
2716: G_INVALID_VALUE,
2717: 'CONTRACT_NUM',
2718: p_contract_number,
2720: 'CUSTOMER_ID, NUMBER',
2721: 'COL_VALUE',
2722: p_customer_id||', '||p_customer_number
2723: );
2724: return OKL_API.G_RET_STS_ERROR; -- Customer Not found
2725: ELSE
2726: return OKL_API.G_RET_STS_SUCCESS;
2727: END IF;
2728:
2722: p_customer_id||', '||p_customer_number
2723: );
2724: return OKL_API.G_RET_STS_ERROR; -- Customer Not found
2725: ELSE
2726: return OKL_API.G_RET_STS_SUCCESS;
2727: END IF;
2728:
2729: END validate_customer;
2730:
2730:
2731: ------------------------------------------------------------------------------
2732: -- FUNCTION check_contract_number
2733: -- It checks for duplicate contract number in OKL.
2734: -- Returns OKL_API.G_RET_STS_ERROR for duplicate and
2735: -- OKL_API.G_RET_STS_SUCCESS for New
2736: -- Calls:
2737: -- None
2738: -- Called By:
2731: ------------------------------------------------------------------------------
2732: -- FUNCTION check_contract_number
2733: -- It checks for duplicate contract number in OKL.
2734: -- Returns OKL_API.G_RET_STS_ERROR for duplicate and
2735: -- OKL_API.G_RET_STS_SUCCESS for New
2736: -- Calls:
2737: -- None
2738: -- Called By:
2739: -- check_input_record
2746: SELECT contract_number
2747: FROM okc_k_headers_v
2748: WHERE contract_number = p_contract_number;
2749:
2750: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
2751: l_contract_number OKC_K_HEADERS_V.CONTRACT_NUMBER%TYPE;
2752:
2753: BEGIN
2754:
2754:
2755: OPEN khdr_csr(p_contract_number);
2756: FETCH khdr_csr INTO l_contract_number;
2757: IF khdr_csr%NOTFOUND THEN
2758: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2759: ELSE
2760: x_return_status := OKL_API.G_RET_STS_ERROR;
2761: END IF;
2762: CLOSE khdr_csr;
2756: FETCH khdr_csr INTO l_contract_number;
2757: IF khdr_csr%NOTFOUND THEN
2758: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2759: ELSE
2760: x_return_status := OKL_API.G_RET_STS_ERROR;
2761: END IF;
2762: CLOSE khdr_csr;
2763:
2764: IF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2760: x_return_status := OKL_API.G_RET_STS_ERROR;
2761: END IF;
2762: CLOSE khdr_csr;
2763:
2764: IF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2765: okl_api.set_message(
2766: G_APP_NAME,
2767: G_DUP_VALUE,
2768: 'COL_NAME',
2761: END IF;
2762: CLOSE khdr_csr;
2763:
2764: IF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2765: okl_api.set_message(
2766: G_APP_NAME,
2767: G_DUP_VALUE,
2768: 'COL_NAME',
2769: 'CONTRACT_NUMBER_OLD',
2815: l_uom_code okx_tuom_v.uom_code%TYPE;
2816:
2817: BEGIN
2818:
2819: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2820: OPEN freq_csr(p_payment_freq_code);
2821: FETCH freq_csr INTO l_id1,
2822: l_uom_code;
2823: IF freq_csr%NOTFOUND THEN
2820: OPEN freq_csr(p_payment_freq_code);
2821: FETCH freq_csr INTO l_id1,
2822: l_uom_code;
2823: IF freq_csr%NOTFOUND THEN
2824: x_return_status := OKL_API.G_RET_STS_ERROR;
2825: END IF;
2826:
2827: x_id1 := l_id1;
2828: x_uom_code := l_uom_code;
2855:
2856: l_dummy VARCHAR2(1);
2857: BEGIN
2858:
2859: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2860:
2861: OPEN line_csr (p_contract_number,
2862: p_line_number);
2863: FETCH line_csr INTO l_dummy;
2861: OPEN line_csr (p_contract_number,
2862: p_line_number);
2863: FETCH line_csr INTO l_dummy;
2864: IF line_csr%NOTFOUND THEN
2865: x_return_status := OKL_API.G_RET_STS_ERROR;
2866: END IF;
2867: CLOSE line_csr;
2868:
2869: return;
2916: /*
2917: IF (p_asset_number IS NULL
2918: AND
2919: p_line_number IS NOT NULL) THEN
2920: okl_api.set_message(
2921: G_APP_NAME,
2922: G_MISSING_VALUE,
2923: 'CONTRACT_NUM',
2924: p_contract_number_old||'/'||p_line_number,
2924: p_contract_number_old||'/'||p_line_number,
2925: 'COL_NAME',
2926: 'ASSET_NUMBER'
2927: );
2928: x_return_status := OKL_API.G_RET_STS_ERROR;
2929: END IF;
2930: */
2931:
2932: IF (p_payment_type_code IS NULL) THEN
2930: */
2931:
2932: IF (p_payment_type_code IS NULL) THEN
2933:
2934: okl_api.set_message(
2935: G_APP_NAME,
2936: G_MISSING_VALUE,
2937: 'CONTRACT_NUM',
2938: p_contract_number_old||'/'||p_line_number,
2938: p_contract_number_old||'/'||p_line_number,
2939: 'COL_NAME',
2940: 'PAYMENT_TYPE_CODE'
2941: );
2942: x_return_status := OKL_API.G_RET_STS_ERROR;
2943: ELSE
2944:
2945: check_stream_type_code(
2946: x_return_status => l_return_status,
2951: x_id1 => x_id2,
2952: x_name => l_payment_name
2953: );
2954:
2955: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2956: okl_api.set_message(
2957: G_APP_NAME,
2958: G_INVALID_VALUE,
2959: 'CONTRACT_NUM',
2952: x_name => l_payment_name
2953: );
2954:
2955: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2956: okl_api.set_message(
2957: G_APP_NAME,
2958: G_INVALID_VALUE,
2959: 'CONTRACT_NUM',
2960: p_contract_number_old||'/'||p_line_number,
2962: 'PAYMENT_TYPE_CODE, STREAM_PURPOSE_CODE',
2963: 'COL_VALUE',
2964: p_payment_type_code||', '||p_stream_purpose
2965: );
2966: x_return_status := OKL_API.G_RET_STS_ERROR;
2967: END IF;
2968: END IF;
2969:
2970: /*
2970: /*
2971: IF (p_payment_amount IS NULL
2972: AND
2973: p_rate IS NULL) THEN
2974: okl_api.set_message(
2975: G_APP_NAME,
2976: G_MISSING_VALUE,
2977: 'CONTRACT_NUM',
2978: p_contract_number_old||'/'||p_line_number,
2978: p_contract_number_old||'/'||p_line_number,
2979: 'COL_NAME',
2980: 'PAYMENT_AMOUNT or RATE'
2981: );
2982: x_return_status := OKL_API.G_RET_STS_ERROR;
2983: END IF;
2984: */
2985:
2986: IF (p_payment_frequency_code IS NULL) THEN
2984: */
2985:
2986: IF (p_payment_frequency_code IS NULL) THEN
2987:
2988: okl_api.set_message(
2989: G_APP_NAME,
2990: G_MISSING_VALUE,
2991: 'CONTRACT_NUM',
2992: p_contract_number_old||'/'||p_line_number,
2992: p_contract_number_old||'/'||p_line_number,
2993: 'COL_NAME',
2994: 'PAYMENT_FREQUENCY_CODE'
2995: );
2996: x_return_status := OKL_API.G_RET_STS_ERROR;
2997: ELSE
2998: check_payment_frequency_code(
2999: x_return_status => l_return_status,
3000: x_msg_count => x_msg_count,
3002: p_payment_freq_code => p_payment_frequency_code,
3003: x_id1 => x_id1,
3004: x_uom_code => x_uom_code
3005: );
3006: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3007: okl_api.set_message(
3008: G_APP_NAME,
3009: G_INVALID_VALUE,
3010: 'CONTRACT_NUM',
3003: x_id1 => x_id1,
3004: x_uom_code => x_uom_code
3005: );
3006: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3007: okl_api.set_message(
3008: G_APP_NAME,
3009: G_INVALID_VALUE,
3010: 'CONTRACT_NUM',
3011: p_contract_number_old||'/'||p_line_number,
3013: 'PAYMENT_FREQUENCY_CODE',
3014: 'COL_VALUE',
3015: p_payment_frequency_code
3016: );
3017: x_return_status := OKL_API.G_RET_STS_ERROR;
3018: END IF;
3019: END IF;
3020:
3021: IF (p_advance_payments IS NULL) THEN
3018: END IF;
3019: END IF;
3020:
3021: IF (p_advance_payments IS NULL) THEN
3022: okl_api.set_message(
3023: G_APP_NAME,
3024: G_MISSING_VALUE,
3025: 'CONTRACT_NUM',
3026: p_contract_number_old||'/'||p_line_number,
3026: p_contract_number_old||'/'||p_line_number,
3027: 'COL_NAME',
3028: 'ADVANCE_PAYMENTS'
3029: );
3030: x_return_status := OKL_API.G_RET_STS_ERROR;
3031: END IF;
3032:
3033: IF (p_arrears_flag <> 'Y'
3034: AND
3033: IF (p_arrears_flag <> 'Y'
3034: AND
3035: p_arrears_flag <> 'N') THEN
3036:
3037: okl_api.set_message(
3038: G_APP_NAME,
3039: G_INVALID_VALUE,
3040: 'CONTRACT_NUM',
3041: p_contract_number_old||'/'||p_line_number,
3043: 'ARREARS_FLAG',
3044: 'COL_VALUE',
3045: p_arrears_flag
3046: );
3047: x_return_status := OKL_API.G_RET_STS_ERROR;
3048: END IF;
3049:
3050: /*
3051: IF (p_start_date IS NULL) THEN
3048: END IF;
3049:
3050: /*
3051: IF (p_start_date IS NULL) THEN
3052: okl_api.set_message(
3053: G_APP_NAME,
3054: G_MISSING_VALUE,
3055: 'CONTRACT_NUM',
3056: p_contract_number_old||'/'||p_line_number,
3056: p_contract_number_old||'/'||p_line_number,
3057: 'COL_NAME',
3058: 'START_DATE'
3059: );
3060: x_return_status := OKL_API.G_RET_STS_ERROR;
3061: END IF;
3062: */
3063:
3064: IF (p_stub_days IS NOT NULL
3068: p_number_of_periods IS NOT NULL
3069: AND
3070: p_payment_amount IS NOT NULL
3071: ) THEN
3072: okl_api.set_message(
3073: G_APP_NAME,
3074: G_STUB_PMNT_BOTH,
3075: 'CONTRACT_NUM',
3076: p_contract_number_old||'/'||p_line_number
3074: G_STUB_PMNT_BOTH,
3075: 'CONTRACT_NUM',
3076: p_contract_number_old||'/'||p_line_number
3077: );
3078: x_return_status := OKL_API.G_RET_STS_ERROR;
3079: ELSIF (p_stub_days IS NULL AND p_stub_amount IS NOT NULL) THEN
3080: okl_api.set_message(
3081: G_APP_NAME,
3082: G_MISSING_VALUE,
3076: p_contract_number_old||'/'||p_line_number
3077: );
3078: x_return_status := OKL_API.G_RET_STS_ERROR;
3079: ELSIF (p_stub_days IS NULL AND p_stub_amount IS NOT NULL) THEN
3080: okl_api.set_message(
3081: G_APP_NAME,
3082: G_MISSING_VALUE,
3083: 'CONTRACT_NUM',
3084: p_contract_number_old||'/'||p_line_number,
3084: p_contract_number_old||'/'||p_line_number,
3085: 'COL_NAME',
3086: 'STUB_DAYS'
3087: );
3088: x_return_status := OKL_API.G_RET_STS_ERROR;
3089: ELSIF (p_stub_days IS NOT NULL AND p_stub_amount IS NULL) THEN
3090: okl_api.set_message(
3091: G_APP_NAME,
3092: G_MISSING_VALUE,
3086: 'STUB_DAYS'
3087: );
3088: x_return_status := OKL_API.G_RET_STS_ERROR;
3089: ELSIF (p_stub_days IS NOT NULL AND p_stub_amount IS NULL) THEN
3090: okl_api.set_message(
3091: G_APP_NAME,
3092: G_MISSING_VALUE,
3093: 'CONTRACT_NUM',
3094: p_contract_number_old||'/'||p_line_number,
3094: p_contract_number_old||'/'||p_line_number,
3095: 'COL_NAME',
3096: 'STUB_AMOUNT'
3097: );
3098: x_return_status := OKL_API.G_RET_STS_ERROR;
3099: ELSIF (p_number_of_periods IS NOT NULL AND p_payment_amount IS NULL) THEN
3100: okl_api.set_message(
3101: G_APP_NAME,
3102: G_MISSING_VALUE,
3096: 'STUB_AMOUNT'
3097: );
3098: x_return_status := OKL_API.G_RET_STS_ERROR;
3099: ELSIF (p_number_of_periods IS NOT NULL AND p_payment_amount IS NULL) THEN
3100: okl_api.set_message(
3101: G_APP_NAME,
3102: G_MISSING_VALUE,
3103: 'CONTRACT_NUM',
3104: p_contract_number_old||'/'||p_line_number,
3104: p_contract_number_old||'/'||p_line_number,
3105: 'COL_NAME',
3106: 'PAYMENT_AMOUNT'
3107: );
3108: x_return_status := OKL_API.G_RET_STS_ERROR;
3109: ELSIF (p_number_of_periods IS NULL AND p_payment_amount IS NOT NULL) THEN
3110: okl_api.set_message(
3111: G_APP_NAME,
3112: G_MISSING_VALUE,
3106: 'PAYMENT_AMOUNT'
3107: );
3108: x_return_status := OKL_API.G_RET_STS_ERROR;
3109: ELSIF (p_number_of_periods IS NULL AND p_payment_amount IS NOT NULL) THEN
3110: okl_api.set_message(
3111: G_APP_NAME,
3112: G_MISSING_VALUE,
3113: 'CONTRACT_NUM',
3114: p_contract_number_old||'/'||p_line_number,
3114: p_contract_number_old||'/'||p_line_number,
3115: 'COL_NAME',
3116: 'NUMBER_OF_PERIODS'
3117: );
3118: x_return_status := OKL_API.G_RET_STS_ERROR;
3119: END IF;
3120:
3121: RETURN;
3122:
3122:
3123: EXCEPTION
3124:
3125: WHEN payment_failed THEN
3126: x_return_status := OKL_API.G_RET_STS_ERROR;
3127:
3128: END check_payment_record;
3129:
3130: ------------------------------------------------------------------------------
3155: l_found VARCHAR2(1) := 'N';
3156: freq_failed EXCEPTION;
3157: BEGIN
3158:
3159: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3160:
3161: l_found := 'N';
3162: OPEN freq_csr (p_freq);
3163: FETCH freq_csr INTO l_found;
3163: FETCH freq_csr INTO l_found;
3164: CLOSE freq_csr;
3165:
3166: IF (l_found <> 'Y') THEN
3167: okl_api.set_message(
3168: G_APP_NAME,
3169: G_INVALID_VALUE,
3170: 'CONTRACT_NUM',
3171: p_contract_number||','||p_line_number,
3180: RETURN;
3181:
3182: EXCEPTION
3183: WHEN freq_failed THEN
3184: x_return_status := OKL_API.G_RET_STS_ERROR;
3185: END validate_usage_freq;
3186:
3187: ------------------------------------------------------------------------------
3188: -- PROCEDURE Check_Input_Record
3298: -- DO NOT CALL THIS PROCEDURE FOR IMPORT
3299: --
3300:
3301: l_proc_name := 'CHECK_INPUT_RECORD';
3302: x_return_status := OKL_API.G_RET_STS_SUCCESS; -- individual validaiton status
3303: l_record_status := OKL_API.G_RET_STS_SUCCESS; -- record level status
3304: l_batch_status := OKL_API.G_RET_STS_SUCCESS; -- batch level status
3305:
3306: okl_api.init_msg_list(p_init_msg_list => OKL_API.G_TRUE);
3299: --
3300:
3301: l_proc_name := 'CHECK_INPUT_RECORD';
3302: x_return_status := OKL_API.G_RET_STS_SUCCESS; -- individual validaiton status
3303: l_record_status := OKL_API.G_RET_STS_SUCCESS; -- record level status
3304: l_batch_status := OKL_API.G_RET_STS_SUCCESS; -- batch level status
3305:
3306: okl_api.init_msg_list(p_init_msg_list => OKL_API.G_TRUE);
3307: l_progress := '000';
3300:
3301: l_proc_name := 'CHECK_INPUT_RECORD';
3302: x_return_status := OKL_API.G_RET_STS_SUCCESS; -- individual validaiton status
3303: l_record_status := OKL_API.G_RET_STS_SUCCESS; -- record level status
3304: l_batch_status := OKL_API.G_RET_STS_SUCCESS; -- batch level status
3305:
3306: okl_api.init_msg_list(p_init_msg_list => OKL_API.G_TRUE);
3307: l_progress := '000';
3308:
3302: x_return_status := OKL_API.G_RET_STS_SUCCESS; -- individual validaiton status
3303: l_record_status := OKL_API.G_RET_STS_SUCCESS; -- record level status
3304: l_batch_status := OKL_API.G_RET_STS_SUCCESS; -- batch level status
3305:
3306: okl_api.init_msg_list(p_init_msg_list => OKL_API.G_TRUE);
3307: l_progress := '000';
3308:
3309: FOR okl_header_rec IN okl_header_csr (p_batch_number,
3310: p_start_date_from,
3321:
3322: x_total_checked := nvl(x_total_checked,0) + 1;
3323:
3324: l_progress := '010';
3325: l_record_status := OKL_API.G_RET_STS_SUCCESS;
3326:
3327:
3328: l_contract_number_old := okl_header_rec.contract_number_old;
3329:
3328: l_contract_number_old := okl_header_rec.contract_number_old;
3329:
3330: -- Validate CONTRACT_NUMBER_OLD
3331: IF ( okl_header_rec.contract_number_old IS NULL) THEN
3332: okl_api.set_message(
3333: G_APP_NAME,
3334: G_NULL_CONTRACT
3335: );
3336:
3337:
3338: raise header_validation_failed; -- Unable to continue further
3339:
3340: /* not required, bug 3798008
3341: * ELSIF ( check_contract_number (l_contract_number_old) = OKL_API.G_RET_STS_ERROR ) THEN
3342: *
3343: * raise header_validation_failed; -- Unable to continue further
3344: *
3345: */
3358: x_msg_data => x_msg_data,
3359: p_template_number => okl_header_rec.template_number
3360: );
3361:
3362: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3363: RAISE header_validation_failed;
3364: END IF;
3365:
3366: END IF;
3398: p_currency_code => NVL(okl_header_rec.currency_code,
3399: l_header_template.currency_code)
3400: );
3401:
3402: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3403: l_record_status := OKL_API.G_RET_STS_ERROR;
3404: END IF;
3405:
3406: l_progress := '030';
3399: l_header_template.currency_code)
3400: );
3401:
3402: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3403: l_record_status := OKL_API.G_RET_STS_ERROR;
3404: END IF;
3405:
3406: l_progress := '030';
3407:
3410: p_customer_id => okl_header_rec.customer_id,
3411: p_customer_number => okl_header_rec.customer_number,
3412: x_id1 => l_customer_id);
3413:
3414: IF (x_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
3415: okl_header_rec.customer_id := l_customer_id;
3416: END IF;
3417:
3418: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3414: IF (x_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
3415: okl_header_rec.customer_id := l_customer_id;
3416: END IF;
3417:
3418: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3419: l_record_status := OKL_API.G_RET_STS_ERROR;
3420: END IF;
3421:
3422: l_progress := '040';
3415: okl_header_rec.customer_id := l_customer_id;
3416: END IF;
3417:
3418: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3419: l_record_status := OKL_API.G_RET_STS_ERROR;
3420: END IF;
3421:
3422: l_progress := '040';
3423:
3428:
3429: l_progress := '050';
3430: -- Call Line Cursor to get Line detail
3431:
3432: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3433: l_record_status := OKL_API.G_RET_STS_ERROR;
3434: END IF;
3435:
3436:
3429: l_progress := '050';
3430: -- Call Line Cursor to get Line detail
3431:
3432: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3433: l_record_status := OKL_API.G_RET_STS_ERROR;
3434: END IF;
3435:
3436:
3437: FOR okl_line_rec IN okl_line_csr (okl_header_rec.contract_number_old)
3443: l_progress := '080';
3444:
3445: -- Validate Line Number
3446: IF (okl_line_rec.line_number IS NULL) THEN
3447: okl_api.set_message(
3448: G_APP_NAME,
3449: G_MISSING_VALUE,
3450: 'CONTRACT_NUM',
3451: okl_header_rec.contract_number_old,
3452: 'COL_NAME',
3453: 'CONTRACT_LINE_NUMBER'
3454: );
3455:
3456: x_return_status := OKL_API.G_RET_STS_ERROR;
3457:
3458: raise line_validation_failed; -- unable to continue with line validation, proceed with next line
3459:
3460: END IF;
3525: p_dt_effective_balance_legacy => okl_line_rec.dt_effective_balance_legacy
3526: );
3527:
3528:
3529: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3530: l_record_status := OKL_API.G_RET_STS_ERROR;
3531: END IF;
3532:
3533: EXCEPTION
3526: );
3527:
3528:
3529: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3530: l_record_status := OKL_API.G_RET_STS_ERROR;
3531: END IF;
3532:
3533: EXCEPTION
3534:
3532:
3533: EXCEPTION
3534:
3535: WHEN line_validation_failed THEN
3536: x_return_status := OKL_API.G_RET_STS_ERROR;
3537:
3538: END; -- of line begin
3539:
3540: END LOOP; -- okl_line_csr
3551: p_contract_number => okl_party_role_rec.contract_number_old,
3552: p_line_number => okl_party_role_rec.line_number
3553: );
3554:
3555: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3556: okl_api.set_message(
3557: G_APP_NAME,
3558: G_PARTY_ROLE_LINE_ERROR,
3559: 'CONTRACT_NUM',
3552: p_line_number => okl_party_role_rec.line_number
3553: );
3554:
3555: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3556: okl_api.set_message(
3557: G_APP_NAME,
3558: G_PARTY_ROLE_LINE_ERROR,
3559: 'CONTRACT_NUM',
3560: okl_party_role_rec.contract_number_old||'/'||okl_party_role_rec.line_number
3558: G_PARTY_ROLE_LINE_ERROR,
3559: 'CONTRACT_NUM',
3560: okl_party_role_rec.contract_number_old||'/'||okl_party_role_rec.line_number
3561: );
3562: x_return_status := OKL_API.G_RET_STS_ERROR;
3563: END IF;
3564:
3565: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3566: l_record_status := OKL_API.G_RET_STS_ERROR;
3561: );
3562: x_return_status := OKL_API.G_RET_STS_ERROR;
3563: END IF;
3564:
3565: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3566: l_record_status := OKL_API.G_RET_STS_ERROR;
3567: END IF;
3568: END IF;
3569: END;
3562: x_return_status := OKL_API.G_RET_STS_ERROR;
3563: END IF;
3564:
3565: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3566: l_record_status := OKL_API.G_RET_STS_ERROR;
3567: END IF;
3568: END IF;
3569: END;
3570:
3576:
3577: FOR okl_term_rec IN okl_term_csr (okl_header_rec.contract_number_old)
3578: LOOP
3579: BEGIN
3580: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3581:
3582: IF (okl_term_rec.line_number IS NULL) THEN
3583: okl_api.set_message(
3584: G_APP_NAME,
3579: BEGIN
3580: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3581:
3582: IF (okl_term_rec.line_number IS NULL) THEN
3583: okl_api.set_message(
3584: G_APP_NAME,
3585: G_TERM_NO_LINE_NUMBER,
3586: 'CONTRACT_NUM',
3587: okl_term_rec.contract_number_old||'/'||okl_term_rec.line_number
3591: p_contract_number => okl_term_rec.contract_number_old,
3592: p_line_number => okl_term_rec.line_number
3593: );
3594:
3595: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3596: okl_api.set_message(
3597: G_APP_NAME,
3598: G_TERM_LINE_ERROR,
3599: 'LINE_NUM',
3592: p_line_number => okl_term_rec.line_number
3593: );
3594:
3595: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3596: okl_api.set_message(
3597: G_APP_NAME,
3598: G_TERM_LINE_ERROR,
3599: 'LINE_NUM',
3600: okl_term_rec.line_number,
3600: okl_term_rec.line_number,
3601: 'CONTRACT_NUM',
3602: okl_term_rec.contract_number_old||'/'||okl_term_rec.line_number
3603: );
3604: x_return_status := OKL_API.G_RET_STS_ERROR;
3605: END IF;
3606:
3607: END IF;
3608:
3605: END IF;
3606:
3607: END IF;
3608:
3609: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3610: l_record_status := x_return_status;
3611: END IF;
3612:
3613: IF (okl_header_rec.import_request_stage <> 'NEW'
3615: okl_term_rec.bill_to_address_id IS NULL
3616: AND
3617: okl_term_rec.bill_to_address IS NULL) THEN
3618:
3619: okl_api.set_message(
3620: G_APP_NAME,
3621: G_MISSING_VALUE,
3622: 'CONTRACT_NUM',
3623: okl_term_rec.contract_number_old||'/'||okl_term_rec.line_number,
3624: 'COL_NAME',
3625: 'BILL_TO_ADDRESS'
3626: );
3627:
3628: x_return_status := OKL_API.G_RET_STS_ERROR;
3629: END IF;
3630:
3631: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3632: l_record_status := x_return_status;
3627:
3628: x_return_status := OKL_API.G_RET_STS_ERROR;
3629: END IF;
3630:
3631: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3632: l_record_status := x_return_status;
3633: END IF;
3634: END;
3635:
3638: l_progress := '120';
3639:
3640: FOR okl_payment_rec IN okl_payment_csr (okl_header_rec.contract_number_old)
3641: LOOP
3642: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3643: BEGIN
3644:
3645: check_payment_record(
3646: x_return_status => x_return_status,
3663: p_stub_days => okl_payment_rec.stub_days,
3664: p_stub_amount => okl_payment_rec.stub_amount
3665: );
3666:
3667: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3668: l_record_status := x_return_status;
3669: END IF;
3670:
3671: END;
3680: -- okl_open_interface_pvt.report_error (
3681: -- x_msg_count => x_msg_count,
3682: -- x_msg_data => x_msg_data
3683: -- );
3684: x_return_status := OKL_API.G_RET_STS_ERROR;
3685: l_record_status := OKL_API.G_RET_STS_ERROR;
3686:
3687: END; -- of Header Begin
3688:
3681: -- x_msg_count => x_msg_count,
3682: -- x_msg_data => x_msg_data
3683: -- );
3684: x_return_status := OKL_API.G_RET_STS_ERROR;
3685: l_record_status := OKL_API.G_RET_STS_ERROR;
3686:
3687: END; -- of Header Begin
3688:
3689: IF (l_record_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3685: l_record_status := OKL_API.G_RET_STS_ERROR;
3686:
3687: END; -- of Header Begin
3688:
3689: IF (l_record_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3690: l_batch_status := OKL_API.G_RET_STS_ERROR;
3691: x_return_status := OKL_API.G_RET_STS_ERROR;
3692: END IF;
3693:
3686:
3687: END; -- of Header Begin
3688:
3689: IF (l_record_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3690: l_batch_status := OKL_API.G_RET_STS_ERROR;
3691: x_return_status := OKL_API.G_RET_STS_ERROR;
3692: END IF;
3693:
3694: IF (l_record_status = OKL_API.G_RET_STS_SUCCESS) THEN
3687: END; -- of Header Begin
3688:
3689: IF (l_record_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3690: l_batch_status := OKL_API.G_RET_STS_ERROR;
3691: x_return_status := OKL_API.G_RET_STS_ERROR;
3692: END IF;
3693:
3694: IF (l_record_status = OKL_API.G_RET_STS_SUCCESS) THEN
3695: Update_Interface_Status(p_contract_number => okl_header_rec.contract_number_old,
3690: l_batch_status := OKL_API.G_RET_STS_ERROR;
3691: x_return_status := OKL_API.G_RET_STS_ERROR;
3692: END IF;
3693:
3694: IF (l_record_status = OKL_API.G_RET_STS_SUCCESS) THEN
3695: Update_Interface_Status(p_contract_number => okl_header_rec.contract_number_old,
3696: p_new_contract_number => okl_header_rec.contract_number,
3697: p_status => 'ELIGIBLE',
3698: x_return_status => x_return_status
3705: p_status => 'ERROR',
3706: x_return_status => x_return_status
3707: );
3708: COMMIT;
3709: x_return_status := OKL_API.G_RET_STS_ERROR;
3710: END IF;
3711:
3712: -- report_error (
3713: -- x_msg_count => x_msg_count,
3716: -- debug_message('========================done ');
3717:
3718: END LOOP; -- okl_header_csr
3719:
3720: IF (l_batch_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3721: x_return_status := l_batch_status; -- set final status to out variable for further processing
3722: END IF;
3723:
3724: EXCEPTION
3722: END IF;
3723:
3724: EXCEPTION
3725: WHEN OTHERS THEN
3726: okl_api.set_message(
3727: G_APP_NAME,
3728: G_UNEXPECTED_ERROR,
3729: 'OKL_SQLCODE',
3730: SQLCODE,
3730: SQLCODE,
3731: 'OKL_SQLERRM',
3732: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
3733: );
3734: x_return_status := OKL_API.G_RET_STS_ERROR;
3735:
3736: report_error (
3737: x_msg_count => x_msg_count,
3738: x_msg_data => x_msg_data
3756: p_product_name IN okl_products_v.name%TYPE,
3757: x_product_id OUT NOCOPY okl_products_v.id%TYPE )
3758: RETURN VARCHAR2 IS
3759:
3760: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
3761: l_product_id OKL_PRODUCTS_V.ID%TYPE;
3762: l_revenue_recognition_method okl_product_parameters_v.REVENUE_RECOGNITION_METHOD%TYPE;
3763: l_interest_calculation_basis okl_product_parameters_v.INTEREST_CALCULATION_BASIS%TYPE;
3764: l_deal_type okl_product_parameters_v.DEAL_TYPE%TYPE;
3786: AND A.id = B.id;
3787:
3788: BEGIN
3789:
3790: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3791:
3792: OPEN product_csr(p_product_name,
3793: p_product_id);
3794: FETCH product_csr INTO l_product_id,
3815: IF product_csr%ISOPEN THEN
3816: CLOSE product_csr;
3817: END IF;
3818:
3819: x_return_status := OKL_API.G_RET_STS_ERROR;
3820: return x_return_status;
3821:
3822: WHEN OTHERS THEN
3823: NULL;
3869: AND pqv.quality_val = 'LOAN';
3870:
3871: BEGIN
3872:
3873: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3874: debug_message(l_proc_name);
3875:
3876: l_type := 'N';
3877: OPEN prod_type_csr(p_prod_name,
3887: IF prod_type_csr%ISOPEN THEN
3888: CLOSE prod_type_csr;
3889: END IF;
3890:
3891: okl_api.set_message(
3892: G_APP_NAME,
3893: G_UNEXPECTED_ERROR,
3894: 'OKL_SQLCODE',
3895: SQLCODE,
3896: 'OKL_SQLERRM',
3897: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
3898: );
3899:
3900: x_return_status := OKL_API.G_RET_STS_ERROR;
3901:
3902: END check_product_type;
3903:
3904: ------------------------------------------------------------------------------
3917: p_auth_org_id IN okc_k_headers_v.authoring_org_id%TYPE,
3918: x_agreement_id OUT NOCOPY okc_k_headers_v.contract_number%TYPE
3919: ) RETURN VARCHAR2 IS
3920:
3921: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
3922: l_contract_id OKC_K_HEADERS_V.ID%TYPE;
3923: agreement_exception EXCEPTION;
3924:
3925: --Fixed Bug # 5484903
3946: AND authoring_org_id = p_auth_org_id;
3947:
3948: BEGIN
3949:
3950: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3951:
3952: OPEN contract_csr(p_scs_code,
3953: p_agreement_id,
3954: p_agreement_number,
3970: IF contract_csr%ISOPEN THEN
3971: CLOSE contract_csr;
3972: END IF;
3973:
3974: x_return_status := OKL_API.G_RET_STS_ERROR;
3975: return x_return_status;
3976:
3977: WHEN OTHERS THEN
3978: NULL;
3996: p_agreement_id IN okc_k_headers_v.id%TYPE,
3997: x_agreement_id OUT NOCOPY okc_k_headers_v.contract_number%TYPE
3998: ) RETURN VARCHAR2 IS
3999:
4000: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
4001: l_contract_id OKC_K_HEADERS_V.ID%TYPE;
4002: agreement_exception EXCEPTION;
4003: --Fixed Bug #5484903
4004: CURSOR contract_csr (
4024: AND sts_code <> 'TERMINATED';
4025:
4026: BEGIN
4027:
4028: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4029:
4030: debug_message('Org: '||p_auth_org_id);
4031: debug_message('SCS: '||p_scs_code);
4032: debug_message('Agreement :'||p_agreement_id||', '||p_agreement_number||'***');
4052: IF contract_csr%ISOPEN THEN
4053: CLOSE contract_csr;
4054: END IF;
4055:
4056: x_return_status := OKL_API.G_RET_STS_ERROR;
4057: return x_return_status;
4058:
4059: WHEN OTHERS THEN
4060: NULL;
4090: vendor_failed EXCEPTION;
4091:
4092: BEGIN
4093:
4094: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4095:
4096: OPEN vendor_csr(p_vendor_name);
4097: FETCH vendor_csr INTO l_id;
4098: IF vendor_csr%NOTFOUND THEN
4104:
4105: EXCEPTION
4106: WHEN vendor_failed THEN
4107: CLOSE vendor_csr;
4108: okl_api.set_message(
4109: G_APP_NAME,
4110: G_INVALID_VALUE,
4111: 'CONTRACT_NUM',
4112: p_contract_number||'/'||TO_CHAR(p_line_number),
4114: 'VENDOR_NAME',
4115: 'COL_VALUE',
4116: p_vendor_name
4117: );
4118: x_return_status := OKL_API.G_RET_STS_ERROR;
4119:
4120:
4121: WHEN OTHERS THEN
4122: IF vendor_csr%ISOPEN THEN
4122: IF vendor_csr%ISOPEN THEN
4123: CLOSE vendor_csr;
4124: END IF;
4125:
4126: okl_api.set_message(
4127: G_APP_NAME,
4128: G_UNEXPECTED_ERROR,
4129: 'OKL_SQLCODE',
4130: SQLCODE,
4131: 'OKL_SQLERRM',
4132: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
4133: );
4134:
4135: x_return_status := OKL_API.G_RET_STS_ERROR;
4136:
4137: END get_vendor_id;
4138:
4139: ------------------------------------------------------------------------------
4176: party_failed EXCEPTION;
4177:
4178: BEGIN
4179:
4180: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4181:
4182: OPEN party_csr(p_party_number,
4183: p_party_id);
4184: FETCH party_csr INTO l_id;
4191:
4192: EXCEPTION
4193: WHEN party_failed THEN
4194: CLOSE party_csr;
4195: okl_api.set_message(
4196: G_APP_NAME,
4197: G_INVALID_VALUE,
4198: 'CONTRACT_NUM',
4199: p_contract_number||'/'||TO_CHAR(p_line_number),
4201: 'PARTY_ID, NUMBER: ',
4202: 'COL_VALUE',
4203: p_party_id||', '||p_party_number
4204: );
4205: x_return_status := OKL_API.G_RET_STS_ERROR;
4206:
4207:
4208: WHEN OTHERS THEN
4209: IF party_csr%ISOPEN THEN
4209: IF party_csr%ISOPEN THEN
4210: CLOSE party_csr;
4211: END IF;
4212:
4213: okl_api.set_message(
4214: G_APP_NAME,
4215: G_UNEXPECTED_ERROR,
4216: 'OKL_SQLCODE',
4217: SQLCODE,
4218: 'OKL_SQLERRM',
4219: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
4220: );
4221:
4222: x_return_status := OKL_API.G_RET_STS_ERROR;
4223:
4224: END get_party_id;
4225:
4226: -- cklee start 02/23/2004
4286:
4287:
4288: BEGIN
4289:
4290: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4291:
4292: OPEN party_csr(p_intf_party_rec.party_name,
4293: p_intf_party_rec.party_id,
4294: p_intf_party_rec.party_number,
4320: IF party_csr%ISOPEN THEN
4321: CLOSE party_csr;
4322: END IF;
4323:
4324: okl_api.set_message(
4325: G_APP_NAME,
4326: G_INVALID_VALUE,
4327: 'CONTRACT_NUM',
4328: p_intf_party_rec.contract_number||'/'||TO_CHAR(p_intf_party_rec.line_number),
4337: || p_intf_party_rec.party_number || '/' ||
4338: p_intf_party_rec.party_site_id || ', ' || p_intf_party_rec.party_site_name || ', '
4339: || p_intf_party_rec.party_site_number || ': '
4340: );
4341: x_return_status := OKL_API.G_RET_STS_ERROR;
4342:
4343:
4344: WHEN OTHERS THEN
4345:
4346: IF party_csr%ISOPEN THEN
4347: CLOSE party_csr;
4348: END IF;
4349:
4350: okl_api.set_message(
4351: G_APP_NAME,
4352: G_UNEXPECTED_ERROR,
4353: 'OKL_SQLCODE',
4354: SQLCODE,
4355: 'OKL_SQLERRM',
4356: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
4357: );
4358:
4359: x_return_status := OKL_API.G_RET_STS_ERROR;
4360:
4361: END get_party;
4362: -- cklee end 02/23/2004
4363:
4405: x_kplv_rec kplv_rec_type;
4406:
4407: BEGIN
4408:
4409: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4410:
4411: /*
4412: OPEN customer_csr(p_customer_number,
4413: p_customer_id);
4431:
4432: --OKL_OKC_MIGRATION_PVT.create_k_party_role( -- Contract addl field, Bug 4558486
4433: OKL_K_PARTY_ROLES_PVT.create_k_party_role(
4434: p_api_version => 1.0,
4435: p_init_msg_list => OKL_API.G_FALSE,
4436: x_return_status => x_return_status,
4437: x_msg_count => x_msg_count,
4438: x_msg_data => x_msg_data,
4439: p_cplv_rec => p_cplv_rec,
4441: x_cplv_rec => x_cplv_rec,
4442: x_kplv_rec => x_kplv_rec
4443: );
4444:
4445: IF (x_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
4446: -- Create LESSOR
4447: p_cplv_rec.chr_id := p_contract_header_id;
4448: p_cplv_rec.dnz_chr_id := p_contract_header_id;
4449: p_cplv_rec.object1_id1 := TO_CHAR(p_authoring_org_id);
4453:
4454: -- OKL_OKC_MIGRATION_PVT.create_k_party_role( -- Contract addl field, Bug 4558486
4455: OKL_K_PARTY_ROLES_PVT.create_k_party_role(
4456: p_api_version => 1.0,
4457: p_init_msg_list => OKL_API.G_FALSE,
4458: x_return_status => x_return_status,
4459: x_msg_count => x_msg_count,
4460: x_msg_data => x_msg_data,
4461: p_cplv_rec => p_cplv_rec,
4464: x_kplv_rec => x_kplv_rec
4465: );
4466: END IF;
4467:
4468: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4469: RAISE party_role_failed;
4470: END IF;
4471:
4472: return;
4477: IF customer_csr%ISOPEN THEN
4478: CLOSE customer_csr;
4479: END IF;
4480:
4481: okl_api.set_message(
4482: G_APP_NAME,
4483: G_INVALID_VALUE,
4484: 'CONTRACT_NUM',
4485: p_contract_number_old,
4488: 'COL_VALUE',
4489: p_customer_id||', '||p_customer_number
4490: );
4491:
4492: x_return_status := OKL_API.G_RET_STS_ERROR;
4493:
4494: WHEN OTHERS THEN
4495:
4496: IF customer_csr%ISOPEN THEN
4496: IF customer_csr%ISOPEN THEN
4497: CLOSE customer_csr;
4498: END IF;
4499:
4500: okl_api.set_message(
4501: G_APP_NAME,
4502: G_UNEXPECTED_ERROR,
4503: 'OKL_SQLCODE',
4504: SQLCODE,
4505: 'OKL_SQLERRM',
4506: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
4507: );
4508:
4509: x_return_status := OKL_API.G_RET_STS_ERROR;
4510:
4511:
4512: END create_party_role;
4513:
4564: bill_failed EXCEPTION;
4565:
4566: BEGIN
4567:
4568: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4569:
4570:
4571: OPEN bill_csr(p_auth_org_id,
4572: p_bill_to_address,
4588: IF (bill_csr%ISOPEN) THEN
4589: CLOSE bill_csr;
4590: END IF;
4591:
4592: okl_api.set_message(
4593: G_APP_NAME,
4594: G_INVALID_VALUE,
4595: 'CONTRACT_NUM',
4596: p_contract_number,
4598: 'BILL_TO_ADDRESS_ID, NAME',
4599: 'COL_VALUE',
4600: p_bill_to_address_id||', '||p_bill_to_address
4601: );
4602: x_return_status := OKL_API.G_RET_STS_ERROR;
4603:
4604: WHEN OTHERS THEN
4605: okl_api.set_message(
4606: G_APP_NAME,
4601: );
4602: x_return_status := OKL_API.G_RET_STS_ERROR;
4603:
4604: WHEN OTHERS THEN
4605: okl_api.set_message(
4606: G_APP_NAME,
4607: G_UNEXPECTED_ERROR,
4608: 'OKL_SQLCODE',
4609: SQLCODE,
4610: 'OKL_SQLERRM',
4611: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
4612: );
4613:
4614: x_return_status := OKL_API.G_RET_STS_ERROR;
4615:
4616:
4617: END get_bill_to_address_id;
4618:
4671: l_proc_name VARCHAR2(35) := 'GET_BANK_ACCOUNT_ID';
4672:
4673: BEGIN
4674:
4675: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4676:
4677: OPEN bank_acct_csr(p_bank_account_number,
4678: p_bank_account_id,
4679: p_customer_account_id,
4695: IF (bank_acct_csr%ISOPEN) THEN
4696: CLOSE bank_acct_csr;
4697: END IF;
4698:
4699: okl_api.set_message(
4700: G_APP_NAME,
4701: G_INVALID_VALUE,
4702: 'CONTRACT_NUM',
4703: p_contract_number,
4705: 'BANK_ACCOUNT_ID, NUMBER: ',
4706: 'COL_VALUE',
4707: p_bank_account_id||', '||p_bank_account_number
4708: );
4709: x_return_status := OKL_API.G_RET_STS_ERROR;
4710:
4711: WHEN OTHERS THEN
4712:
4713: okl_api.set_message(
4709: x_return_status := OKL_API.G_RET_STS_ERROR;
4710:
4711: WHEN OTHERS THEN
4712:
4713: okl_api.set_message(
4714: G_APP_NAME,
4715: G_UNEXPECTED_ERROR,
4716: 'OKL_SQLCODE',
4717: SQLCODE,
4718: 'OKL_SQLERRM',
4719: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
4720: );
4721:
4722: x_return_status := OKL_API.G_RET_STS_ERROR;
4723:
4724: END get_bank_account_id;
4725:
4726: ------------------------------------------------------------------------------
4747: l_id okl_indices.id%TYPE;
4748: index_failed EXCEPTION;
4749:
4750: BEGIN
4751: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4752: OPEN index_csr (p_index_name);
4753: FETCH index_csr INTO l_id;
4754: IF index_csr%NOTFOUND THEN
4755: raise index_failed;
4761: RETURN;
4762:
4763: EXCEPTION
4764: WHEN index_failed THEN
4765: --x_return_status := OKL_API.G_RET_STS_SUCCESS;
4766: x_return_status := OKL_API.G_RET_STS_ERROR; -- Bug 5024651
4767: WHEN OTHERS THEN
4768: x_return_status := OKL_API.G_RET_STS_ERROR;
4769: END get_index_id;
4762:
4763: EXCEPTION
4764: WHEN index_failed THEN
4765: --x_return_status := OKL_API.G_RET_STS_SUCCESS;
4766: x_return_status := OKL_API.G_RET_STS_ERROR; -- Bug 5024651
4767: WHEN OTHERS THEN
4768: x_return_status := OKL_API.G_RET_STS_ERROR;
4769: END get_index_id;
4770:
4764: WHEN index_failed THEN
4765: --x_return_status := OKL_API.G_RET_STS_SUCCESS;
4766: x_return_status := OKL_API.G_RET_STS_ERROR; -- Bug 5024651
4767: WHEN OTHERS THEN
4768: x_return_status := OKL_API.G_RET_STS_ERROR;
4769: END get_index_id;
4770:
4771: ------------------------------------------------------------------------------
4772: -- PROCEDURE get_payment_term
4800:
4801: l_id1 OKX_PAYABLES_TERMS_V.ID1%TYPE;
4802: BEGIN
4803:
4804: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4805:
4806: OPEN term_csr (p_payment_term,
4807: p_payment_term_id);
4808: FETCH term_csr INTO l_id1;
4806: OPEN term_csr (p_payment_term,
4807: p_payment_term_id);
4808: FETCH term_csr INTO l_id1;
4809: IF term_csr%NOTFOUND THEN
4810: okl_api.set_message(
4811: G_APP_NAME,
4812: G_INVALID_VALUE,
4813: 'CONTRACT_NUM/LINE_NUMBER',
4814: p_contract_number||'/'||p_line_number,
4816: 'PAYMENT_TERM OR PAYMENT_TERM_ID',
4817: 'COL_VALUE',
4818: p_payment_term||', '||p_payment_term_id
4819: );
4820: x_return_status := OKL_API.G_RET_STS_ERROR;
4821: RETURN NULL;
4822: END IF;
4823: CLOSE term_csr;
4824:
4858:
4859: l_id1 okx_vendor_sites_v.id1%TYPE;
4860: BEGIN
4861:
4862: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4863:
4864: OPEN site_csr (p_vendor_paysite_name,
4865: p_vendor_paysite_id);
4866: FETCH site_csr INTO l_id1;
4864: OPEN site_csr (p_vendor_paysite_name,
4865: p_vendor_paysite_id);
4866: FETCH site_csr INTO l_id1;
4867: IF site_csr%NOTFOUND THEN
4868: okl_api.set_message(
4869: G_APP_NAME,
4870: G_INVALID_VALUE,
4871: 'CONTRACT_NUM/LINE_NUMBER',
4872: p_contract_number||'/'||p_line_number,
4874: 'VENDOR PAY SITE NAME OR VENDOR PAYSITE ID',
4875: 'COL_VALUE',
4876: p_vendor_paysite_name||', '||p_vendor_paysite_id
4877: );
4878: x_return_status := OKL_API.G_RET_STS_ERROR;
4879: RETURN NULL;
4880: END IF;
4881: CLOSE site_csr;
4882:
4928: l_proc_name VARCHAR2(35) := 'GET_INVOICE_FORMAT_ID';
4929:
4930: BEGIN
4931:
4932: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4933:
4934: OPEN inv_format_csr(p_invoice_format_code,
4935: p_invoice_format_id);
4936: FETCH inv_format_csr INTO l_id,
4950: IF (inv_format_csr%ISOPEN) THEN
4951: CLOSE inv_format_csr;
4952: END IF;
4953:
4954: okl_api.set_message(
4955: G_APP_NAME,
4956: G_INVALID_VALUE,
4957: 'CONTRACT_NUM',
4958: p_contract_number,
4960: 'INVOICE_FORMAT_ID, CODE',
4961: 'COL_VALUE',
4962: p_invoice_format_id||', '||p_invoice_format_code
4963: );
4964: x_return_status := OKL_API.G_RET_STS_ERROR;
4965:
4966: WHEN OTHERS THEN
4967:
4968: okl_api.set_message(
4964: x_return_status := OKL_API.G_RET_STS_ERROR;
4965:
4966: WHEN OTHERS THEN
4967:
4968: okl_api.set_message(
4969: G_APP_NAME,
4970: G_UNEXPECTED_ERROR,
4971: 'OKL_SQLCODE',
4972: SQLCODE,
4973: 'OKL_SQLERRM',
4974: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
4975: );
4976:
4977: x_return_status := OKL_API.G_RET_STS_ERROR;
4978:
4979: END get_invoice_format_id;
4980:
4981: ------------------------------------------------------------------------------
5025: l_proc_name VARCHAR2(35) := 'GET_PAYMENT_METHOD_ID';
5026:
5027: BEGIN
5028:
5029: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5030:
5031: debug_message(p_payment_method||','||p_customer_account_id||', '||p_bill_to_address_id);
5032: OPEN payment_csr(p_payment_method,
5033: p_payment_method_id,
5049: IF (payment_csr%ISOPEN) THEN
5050: CLOSE payment_csr;
5051: END IF;
5052:
5053: okl_api.set_message(
5054: G_APP_NAME,
5055: G_INVALID_VALUE,
5056: 'CONTRACT_NUM',
5057: p_contract_number,
5059: 'PAYMENT_METHOD, ID',
5060: 'COL_VALUE',
5061: p_payment_method||', '||p_payment_method_id
5062: );
5063: x_return_status := OKL_API.G_RET_STS_ERROR;
5064:
5065: WHEN OTHERS THEN
5066:
5067: okl_api.set_message(
5063: x_return_status := OKL_API.G_RET_STS_ERROR;
5064:
5065: WHEN OTHERS THEN
5066:
5067: okl_api.set_message(
5068: G_APP_NAME,
5069: G_UNEXPECTED_ERROR,
5070: 'OKL_SQLCODE',
5071: SQLCODE,
5072: 'OKL_SQLERRM',
5073: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
5074: );
5075:
5076: x_return_status := OKL_API.G_RET_STS_ERROR;
5077:
5078: END get_payment_method_id;
5079:
5080: ------------------------------------------------------------------------------
5121: l_proc_name VARCHAR2(35) := 'GET_CUSTOMER_ACCOUNT_ID';
5122:
5123: BEGIN
5124:
5125: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5126:
5127: debug_message('Customer Account ID: '||p_customer_account_id);
5128:
5129: OPEN cust_acct_csr(p_customer_id,
5145: IF (cust_acct_csr%ISOPEN) THEN
5146: CLOSE cust_acct_csr;
5147: END IF;
5148:
5149: okl_api.set_message(
5150: G_APP_NAME,
5151: G_INVALID_VALUE,
5152: 'CONTRACT_NUM',
5153: p_contract_number,
5155: 'CUSTOMER_ACCOUNT, ID',
5156: 'COL_VALUE',
5157: p_customer_account_number||', '||p_customer_account_id
5158: );
5159: x_return_status := OKL_API.G_RET_STS_ERROR;
5160:
5161: WHEN OTHERS THEN
5162:
5163: okl_api.set_message(
5159: x_return_status := OKL_API.G_RET_STS_ERROR;
5160:
5161: WHEN OTHERS THEN
5162:
5163: okl_api.set_message(
5164: G_APP_NAME,
5165: G_UNEXPECTED_ERROR,
5166: 'OKL_SQLCODE',
5167: SQLCODE,
5168: 'OKL_SQLERRM',
5169: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
5170: );
5171:
5172: x_return_status := OKL_API.G_RET_STS_ERROR;
5173:
5174: END get_customer_account_id;
5175:
5176: ------------------------------------------------------------------------------
5213: l_proc_name VARCHAR2(35) := 'GET_CUSTOMER_ACCOUNT_ID';
5214:
5215: BEGIN
5216:
5217: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5218:
5219: OPEN cust_acct_csr(p_customer_account_number,
5220: p_customer_account_id);
5221: FETCH cust_acct_csr INTO l_id;
5234: IF (cust_acct_csr%ISOPEN) THEN
5235: CLOSE cust_acct_csr;
5236: END IF;
5237:
5238: okl_api.set_message(
5239: G_APP_NAME,
5240: G_INVALID_VALUE,
5241: 'CONTRACT_NUM',
5242: p_contract_number,
5244: 'CUSTOMER_ACCOUNT, ID',
5245: 'COL_VALUE',
5246: p_customer_account_number||', '||p_customer_account_id
5247: );
5248: x_return_status := OKL_API.G_RET_STS_ERROR;
5249:
5250: WHEN OTHERS THEN
5251:
5252: okl_api.set_message(
5248: x_return_status := OKL_API.G_RET_STS_ERROR;
5249:
5250: WHEN OTHERS THEN
5251:
5252: okl_api.set_message(
5253: G_APP_NAME,
5254: G_UNEXPECTED_ERROR,
5255: 'OKL_SQLCODE',
5256: SQLCODE,
5257: 'OKL_SQLERRM',
5258: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
5259: );
5260:
5261: x_return_status := OKL_API.G_RET_STS_ERROR;
5262:
5263: END get_customer_account_id;
5264:
5265: ------------------------------------------------------------------------------
5284: uom_failed EXCEPTION;
5285: l_id okx_tuom_v.id1%TYPE;
5286:
5287: BEGIN
5288: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5289: OPEN uom_csr(p_base_uom_code);
5290: FETCH uom_csr INTO l_id;
5291: IF uom_csr%NOTFOUND THEN
5292: RAISE uom_failed;
5301: WHEN uom_failed THEN
5302: IF uom_csr%ISOPEN THEN
5303: CLOSE uom_csr;
5304: END IF;
5305: x_return_status := OKL_API.G_RET_STS_ERROR;
5306:
5307: END get_base_uom_id;
5308:
5309: ------------------------------------------------------------------------------
5342: l_id okx_list_headers_v.id1%TYPE;
5343: price_failed EXCEPTION;
5344:
5345: BEGIN
5346: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5347: OPEN price_csr(p_price_list_name,
5348: p_price_list_id);
5349: FETCH price_csr INTO l_id;
5350: IF price_csr%NOTFOUND THEN
5360: WHEN price_failed THEN
5361: IF price_csr%ISOPEN THEN
5362: CLOSE price_csr;
5363: END IF;
5364: x_return_status := OKL_API.G_RET_STS_ERROR;
5365: END get_price_list_id;
5366:
5367: ------------------------------------------------------------------------------
5368: -- PROCEDURE get_usage_item_id
5405: l_id1 okx_system_items_v.id1%TYPE;
5406: l_id2 okx_system_items_v.id2%TYPE;
5407:
5408: BEGIN
5409: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5410: OPEN uitem_csr(p_usage_item_name,
5411: p_usage_item_id,
5412: p_org_id);
5413: FETCH uitem_csr INTO l_id1,
5426: WHEN uitem_failed THEN
5427: IF uitem_csr%ISOPEN THEN
5428: CLOSE uitem_csr;
5429: END IF;
5430: x_return_status := OKL_API.G_RET_STS_ERROR;
5431: END get_usage_item_id;
5432:
5433: ------------------------------------------------------------------------------
5434: -- PROCEDURE create_rule_group_and_rule
5455: l_rulv_rec_in rulv_rec_type;
5456:
5457: BEGIN
5458:
5459: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5460:
5461: -- Check for presence of RULE info, if not RETURN with SUCCESS
5462: IF (p_rulv_rec.rule_information_category IS NULL) THEN
5463: RETURN;
5468: IF (p_rgp_id IS NULL or p_rgp_id = OKC_API.G_MISS_NUM) THEN -- create rule group
5469:
5470: OKL_RULE_PUB.create_rule_group(
5471: p_api_version => 1.0,
5472: p_init_msg_list => OKL_API.G_FALSE,
5473: x_return_status => x_return_status,
5474: x_msg_count => x_msg_count,
5475: x_msg_data => x_msg_data,
5476: p_rgpv_rec => p_rgpv_rec,
5475: x_msg_data => x_msg_data,
5476: p_rgpv_rec => p_rgpv_rec,
5477: x_rgpv_rec => x_rgpv_rec
5478: );
5479: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5480: x_return_status := OKL_API.G_RET_STS_ERROR;
5481: raise rg_failed;
5482: END IF;
5483:
5476: p_rgpv_rec => p_rgpv_rec,
5477: x_rgpv_rec => x_rgpv_rec
5478: );
5479: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5480: x_return_status := OKL_API.G_RET_STS_ERROR;
5481: raise rg_failed;
5482: END IF;
5483:
5484: l_id := x_rgpv_rec.id;
5493: l_rulv_rec_in.rgp_id := l_id;
5494:
5495: OKL_RULE_PUB.create_rule(
5496: p_api_version => 1.0,
5497: p_init_msg_list => OKL_API.G_FALSE,
5498: x_return_status => x_return_status,
5499: x_msg_count => x_msg_count,
5500: x_msg_data => x_msg_data,
5501: p_rulv_rec => l_rulv_rec_in,
5501: p_rulv_rec => l_rulv_rec_in,
5502: x_rulv_rec => x_rulv_rec
5503: );
5504:
5505: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5506: x_return_status := OKL_API.G_RET_STS_ERROR;
5507: raise rg_failed;
5508: END IF;
5509:
5502: x_rulv_rec => x_rulv_rec
5503: );
5504:
5505: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5506: x_return_status := OKL_API.G_RET_STS_ERROR;
5507: raise rg_failed;
5508: END IF;
5509:
5510: RETURN;
5510: RETURN;
5511:
5512: EXCEPTION
5513: WHEN rg_failed THEN
5514: x_return_status := OKL_API.G_RET_STS_ERROR;
5515: END create_rule_group_and_rule;
5516:
5517: ------------------------------------------------------------------------------
5518: -- PROCEDURE create_update_asset_rules
5630: lv_rec_populate_check VARCHAR2(1) := 'N';
5631:
5632: BEGIN
5633:
5634: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5635: debug_message(l_proc_name);
5636:
5637: OPEN get_rule_group_info(p_chr_id, p_cle_id);
5638: FETCH get_rule_group_info into ln_rgp_id;
5768: IF (lv_rec_populate_check = 'Y') THEN
5769: IF NOT(l_sales_tax_rule_found) THEN -- 5179119
5770: OKL_RULE_PUB.create_rule(
5771: p_api_version => 1.0,
5772: p_init_msg_list => OKL_API.G_FALSE,
5773: x_return_status => x_return_status,
5774: x_msg_count => x_msg_count,
5775: x_msg_data => x_msg_data,
5776: p_rulv_rec => l_rulv_rec,
5781: l_rulv_rec.created_by := OKC_API.G_MISS_NUM;
5782: l_rulv_rec.creation_date := OKC_API.G_MISS_DATE;
5783: OKL_RULE_PUB.update_rule(
5784: p_api_version => 1.0,
5785: p_init_msg_list => OKL_API.G_FALSE,
5786: x_return_status => x_return_status,
5787: x_msg_count => x_msg_count,
5788: x_msg_data => x_msg_data,
5789: p_rulv_rec => l_rulv_rec,
5790: x_rulv_rec => x_rulv_rec
5791: );
5792: END IF;
5793: l_progress := '1.1';
5794: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5795: x_return_status := OKL_API.G_RET_STS_ERROR;
5796: raise line_rule_failed;
5797: END IF;
5798: END IF;
5791: );
5792: END IF;
5793: l_progress := '1.1';
5794: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5795: x_return_status := OKL_API.G_RET_STS_ERROR;
5796: raise line_rule_failed;
5797: END IF;
5798: END IF;
5799:
5845:
5846: IF (lv_rec_populate_check = 'Y') THEN
5847: OKL_RULE_PUB.create_rule(
5848: p_api_version => 1.0,
5849: p_init_msg_list => OKL_API.G_FALSE,
5850: x_return_status => x_return_status,
5851: x_msg_count => x_msg_count,
5852: x_msg_data => x_msg_data,
5853: p_rulv_rec => l_rulv_rec,
5853: p_rulv_rec => l_rulv_rec,
5854: x_rulv_rec => x_rulv_rec
5855: );
5856: l_progress := '1.2';
5857: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5858: x_return_status := OKL_API.G_RET_STS_ERROR;
5859: raise line_rule_failed;
5860: END IF;
5861: END IF;
5854: x_rulv_rec => x_rulv_rec
5855: );
5856: l_progress := '1.2';
5857: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5858: x_return_status := OKL_API.G_RET_STS_ERROR;
5859: raise line_rule_failed;
5860: END IF;
5861: END IF;
5862:
5893: OR
5894: p_prop_tax_bill_method IS NOT NULL) THEN -- Bug# 3984890
5895: OKL_RULE_PUB.update_rule(
5896: p_api_version => 1.0,
5897: p_init_msg_list => OKL_API.G_FALSE,
5898: x_return_status => x_return_status,
5899: x_msg_count => x_msg_count,
5900: x_msg_data => x_msg_data,
5901: p_rulv_rec => lp_rulv_rec,
5901: p_rulv_rec => lp_rulv_rec,
5902: x_rulv_rec => xp_rulv_rec
5903: );
5904: l_progress := '1.3';
5905: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5906: x_return_status := OKL_API.G_RET_STS_ERROR;
5907: raise line_rule_failed;
5908: END IF;
5909:
5902: x_rulv_rec => xp_rulv_rec
5903: );
5904: l_progress := '1.3';
5905: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5906: x_return_status := OKL_API.G_RET_STS_ERROR;
5907: raise line_rule_failed;
5908: END IF;
5909:
5910: END IF;
5925:
5926: IF (lv_rec_populate_check = 'Y') THEN
5927: OKL_RULE_PUB.create_rule(
5928: p_api_version => 1.0,
5929: p_init_msg_list => OKL_API.G_FALSE,
5930: x_return_status => x_return_status,
5931: x_msg_count => x_msg_count,
5932: x_msg_data => x_msg_data,
5933: p_rulv_rec => l_rulv_rec,
5933: p_rulv_rec => l_rulv_rec,
5934: x_rulv_rec => x_rulv_rec
5935: );
5936: l_progress := '1.4';
5937: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5938: x_return_status := OKL_API.G_RET_STS_ERROR;
5939: raise line_rule_failed;
5940: END IF;
5941: END IF;
5934: x_rulv_rec => x_rulv_rec
5935: );
5936: l_progress := '1.4';
5937: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5938: x_return_status := OKL_API.G_RET_STS_ERROR;
5939: raise line_rule_failed;
5940: END IF;
5941: END IF;
5942:
5950: OPEN french_tax_csr (p_french_tax_code,
5951: p_french_tax_name);
5952: FETCH french_tax_csr INTO l_french_tax_code;
5953: IF french_tax_csr%NOTFOUND THEN
5954: okl_api.set_message(
5955: G_APP_NAME,
5956: G_INVALID_VALUE,
5957: 'CONTRACT_NUM',
5958: p_contract_number||'/'||p_line_number,
5979:
5980: IF (lv_rec_populate_check = 'Y') THEN
5981: OKL_RULE_PUB.create_rule(
5982: p_api_version => 1.0,
5983: p_init_msg_list => OKL_API.G_FALSE,
5984: x_return_status => x_return_status,
5985: x_msg_count => x_msg_count,
5986: x_msg_data => x_msg_data,
5987: p_rulv_rec => l_rulv_rec,
5987: p_rulv_rec => l_rulv_rec,
5988: x_rulv_rec => x_rulv_rec
5989: );
5990: l_progress := '1.5';
5991: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5992: x_return_status := OKL_API.G_RET_STS_ERROR;
5993: raise line_rule_failed;
5994: END IF;
5995: END IF;
5988: x_rulv_rec => x_rulv_rec
5989: );
5990: l_progress := '1.5';
5991: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5992: x_return_status := OKL_API.G_RET_STS_ERROR;
5993: raise line_rule_failed;
5994: END IF;
5995: END IF;
5996:
5997: RETURN;
5998:
5999: EXCEPTION
6000: WHEN line_rule_failed THEN
6001: x_return_status := OKL_API.G_RET_STS_ERROR;
6002: debug_message('Line rule failed : '||l_progress);
6003:
6004: WHEN rule_group_failed THEN
6005: IF get_rule_group_info%ISOPEN THEN
6004: WHEN rule_group_failed THEN
6005: IF get_rule_group_info%ISOPEN THEN
6006: CLOSE get_rule_group_info;
6007: END IF;
6008: x_return_status := OKL_API.G_RET_STS_ERROR;
6009:
6010: WHEN rule_failed THEN
6011: IF get_prop_tax_rule_info%ISOPEN THEN
6012: CLOSE get_prop_tax_rule_info;
6010: WHEN rule_failed THEN
6011: IF get_prop_tax_rule_info%ISOPEN THEN
6012: CLOSE get_prop_tax_rule_info;
6013: END IF;
6014: x_return_status := OKL_API.G_RET_STS_ERROR;
6015:
6016: WHEN OTHERS THEN
6017: okl_api.set_message(
6018: G_APP_NAME,
6013: END IF;
6014: x_return_status := OKL_API.G_RET_STS_ERROR;
6015:
6016: WHEN OTHERS THEN
6017: okl_api.set_message(
6018: G_APP_NAME,
6019: G_UNEXPECTED_ERROR,
6020: 'OKL_SQLCODE',
6021: SQLCODE,
6022: 'OKL_SQLERRM',
6023: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
6024: );
6025:
6026: x_return_status := OKL_API.G_RET_STS_ERROR;
6027: debug_message('line other : '||l_progress);
6028: END create_update_asset_rules;
6029:
6030: ------------------------------------------------------------------------------
6206: l_rgp_count NUMBER; --AKP
6207: l_rul_count NUMBER;
6208:
6209: BEGIN
6210: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6211: --debug_message('AKP:In create_line_rules.. p_cle_id=' || p_cle_id);
6212:
6213: l_rulv_rec := NULL; -- DDEY
6214:
6251: p_french_tax_code => p_french_tax_code,
6252: p_french_tax_name => p_french_tax_name,
6253: p_prop_tax_bill_method => p_prop_tax_bill_method,
6254: p_prop_tax_as_contract_yn => p_prop_tax_as_contract_yn);
6255: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
6256: raise line_rule_failed;
6257: END IF;
6258: ELSE
6259: -- End
6438: l_rulv_rec.rgp_id := l_sales_tax_rgp_id;
6439: IF NOT(l_sales_tax_rule_found) THEN
6440: OKL_RULE_PUB.create_rule(
6441: p_api_version => 1.0,
6442: p_init_msg_list => OKL_API.G_FALSE,
6443: x_return_status => x_return_status,
6444: x_msg_count => x_msg_count,
6445: x_msg_data => x_msg_data,
6446: p_rulv_rec => l_rulv_rec,
6451: l_rulv_rec.created_by := OKC_API.G_MISS_NUM;
6452: l_rulv_rec.creation_date := OKC_API.G_MISS_DATE;
6453: OKL_RULE_PUB.update_rule(
6454: p_api_version => 1.0,
6455: p_init_msg_list => OKL_API.G_FALSE,
6456: x_return_status => x_return_status,
6457: x_msg_count => x_msg_count,
6458: x_msg_data => x_msg_data,
6459: p_rulv_rec => l_rulv_rec,
6463: END IF;
6464: END IF;
6465:
6466: l_progress := '1.1';
6467: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
6468: raise line_rule_failed;
6469: END IF;
6470:
6471: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
6528: x_rulv_rec => x_rulv_rec
6529: );
6530:
6531: l_progress := '1.2';
6532: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
6533: raise line_rule_failed;
6534: END IF;
6535:
6536: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
6580: x_rulv_rec => x_rulv_rec
6581: );
6582:
6583: l_progress := '1.2';
6584: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
6585: raise line_rule_failed;
6586: END IF;
6587:
6588: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
6612: x_rulv_rec => x_rulv_rec
6613: );
6614:
6615: l_progress := '1.2';
6616: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
6617: raise line_rule_failed;
6618: END IF;
6619:
6620: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
6631: OPEN french_tax_csr (p_french_tax_code,
6632: p_french_tax_name);
6633: FETCH french_tax_csr INTO l_french_tax_code;
6634: IF french_tax_csr%NOTFOUND THEN
6635: okl_api.set_message(
6636: G_APP_NAME,
6637: G_INVALID_VALUE,
6638: 'CONTRACT_NUM',
6639: p_contract_number||'/'||p_line_number,
6670: x_rulv_rec => x_rulv_rec
6671: );
6672:
6673: l_progress := '1.2';
6674: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
6675: raise line_rule_failed;
6676: END IF;
6677:
6678: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
6744: p_party_id => p_lienholder_id,
6745: p_party_number => p_lienholder_number,
6746: x_party_id => x_lienholder_id
6747: );
6748: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
6749: raise line_rule_failed;
6750: END IF;
6751: END IF;
6752:
6818: x_rulv_rec => x_rulv_rec
6819: );
6820:
6821: l_progress := '1.3';
6822: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
6823: raise line_rule_failed;
6824: END IF;
6825:
6826: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
6850: p_party_id => p_title_issuer_id,
6851: p_party_number => p_title_issuer_number,
6852: x_party_id => x_title_issuer_id
6853: );
6854: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
6855: RAISE line_rule_failed;
6856: END IF;
6857: END IF;
6858:
6925: x_rulv_rec => x_rulv_rec
6926: );
6927:
6928: l_progress := '1.4';
6929: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
6930: raise line_rule_failed;
6931: END IF;
6932:
6933: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
6971: x_rulv_rec => x_rulv_rec
6972: );
6973:
6974: l_progress := '1.5';
6975: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
6976: raise line_rule_failed;
6977: END IF;
6978:
6979: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
7001: x_rulv_rec => x_rulv_rec
7002: );
7003:
7004: l_progress := '1.6';
7005: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
7006: raise line_rule_failed;
7007: END IF;
7008:
7009: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
7024: p_payment_term => p_payment_term,
7025: p_payment_term_id => p_payment_term_id
7026: );
7027:
7028: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
7029: raise line_rule_failed;
7030: END IF;
7031:
7032: l_rulv_rec := NULL;
7049: x_rgpv_rec => x_rgpv_rec,
7050: x_rulv_rec => x_rulv_rec
7051: );
7052:
7053: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
7054: raise line_rule_failed;
7055: END IF;
7056:
7057: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
7070: p_vendor_paysite_name => p_vendor_paysite_name,
7071: p_vendor_paysite_id => p_vendor_paysite_id
7072: );
7073:
7074: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
7075: raise line_rule_failed;
7076: END IF;
7077:
7078: l_rulv_rec := NULL;
7095: x_rgpv_rec => x_rgpv_rec,
7096: x_rulv_rec => x_rulv_rec
7097: );
7098:
7099: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
7100: raise line_rule_failed;
7101: END IF;
7102:
7103: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
7120: x_id1 => x_stream_id,
7121: x_name => l_service_name
7122: );
7123: l_progress := '1.61';
7124: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
7125: okl_api.set_message(
7126: G_APP_NAME,
7127: G_INVALID_VALUE,
7128: 'CONTRACT_NUM',
7121: x_name => l_service_name
7122: );
7123: l_progress := '1.61';
7124: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
7125: okl_api.set_message(
7126: G_APP_NAME,
7127: G_INVALID_VALUE,
7128: 'CONTRACT_NUM',
7129: p_contract_number||'/'||p_line_number,
7146: p_sty_id => x_stream_id
7147: );
7148:
7149: IF (l_present_yn <> 'Y') THEN
7150: okl_api.set_message(
7151: G_APP_NAME,
7152: G_NO_STRM_TMPL,
7153: 'CONTRACT_NUM',
7154: p_contract_number||'/'||p_line_number,
7183: x_rulv_rec => x_rulv_rec
7184: );
7185:
7186: l_progress := '1.7';
7187: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
7188: raise line_rule_failed;
7189: END IF;
7190:
7191: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
7197: IF (p_line_type = 'USAGE') THEN
7198:
7199: -- NPR is not supported on 11.5.9
7200: IF (p_usage_type_code = 'NPR') THEN
7201: okl_api.set_message(
7202: G_APP_NAME,
7203: G_UNSUPPORTED_VALUE,
7204: 'CONTRACT_NUM',
7205: p_contract_number||'/'||p_line_number,
7214: FETCH usage_type_csr INTO l_ok;
7215: CLOSE usage_type_csr;
7216:
7217: IF (l_ok <> 'Y') THEN
7218: okl_api.set_message(
7219: G_APP_NAME,
7220: G_INVALID_VALUE,
7221: 'CONTRACT_NUM',
7222: p_contract_number,
7232: AND
7233: (p_default_qty_usage IS NULL
7234: OR
7235: p_base_reading IS NULL)) THEN
7236: okl_api.set_message(
7237: G_APP_NAME,
7238: G_QA_USAGE_CHECK,
7239: 'LINE_NUM',
7240: p_line_number,
7246:
7247: IF (p_usage_type_code = 'FRT'
7248: AND
7249: p_fixed_usage_quantity IS NULL) THEN
7250: okl_api.set_message(
7251: G_APP_NAME,
7252: G_QA_FIXED_USAGE,
7253: 'LINE_NUM',
7254: p_line_number,
7279: p_org_id => p_inv_org_id,
7280: x_usage_item_id => x_usage_item_id,
7281: x_usage_id2 => x_usage_id2
7282: );
7283: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
7284: okl_api.set_message(
7285: G_APP_NAME,
7286: G_INVALID_VALUE,
7287: 'CONTRACT_NUM',
7280: x_usage_item_id => x_usage_item_id,
7281: x_usage_id2 => x_usage_id2
7282: );
7283: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
7284: okl_api.set_message(
7285: G_APP_NAME,
7286: G_INVALID_VALUE,
7287: 'CONTRACT_NUM',
7288: p_contract_number,
7314: p_price_list_id => p_price_list_id,
7315: x_price_list_id => x_price_list_id
7316: );
7317:
7318: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
7319: okl_api.set_message(
7320: G_APP_NAME,
7321: G_INVALID_VALUE,
7322: 'CONTRACT_NUM',
7315: x_price_list_id => x_price_list_id
7316: );
7317:
7318: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
7319: okl_api.set_message(
7320: G_APP_NAME,
7321: G_INVALID_VALUE,
7322: 'CONTRACT_NUM',
7323: p_contract_number,
7395: p_base_uom_code => p_base_reading_uom_code,
7396: x_base_uom_id => x_base_uom_id
7397: );
7398:
7399: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
7400: okl_api.set_message(
7401: G_APP_NAME,
7402: G_INVALID_VALUE,
7403: 'CONTRACT_NUM',
7396: x_base_uom_id => x_base_uom_id
7397: );
7398:
7399: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
7400: okl_api.set_message(
7401: G_APP_NAME,
7402: G_INVALID_VALUE,
7403: 'CONTRACT_NUM',
7404: p_contract_number,
7450: p_contract_number => p_contract_number,
7451: p_line_number => p_line_number
7452: );
7453:
7454: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
7455: raise line_rule_failed;
7456: END IF;
7457:
7458: l_rulv_rec.rule_information8 := p_usage_period;
7484: x_rulv_rec => x_rulv_rec
7485: );
7486:
7487: l_progress := '1.8';
7488: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
7489: raise line_rule_failed;
7490: END IF;
7491:
7492: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
7505: p_fee_amount_per_period IS NOT NULL) THEN
7506:
7507: okl_contract_top_line_pub.validate_fee_expense_rule(
7508: p_api_version => 1.0,
7509: p_init_msg_list => OKL_API.G_FALSE,
7510: x_return_status => x_return_status,
7511: x_msg_count => x_msg_count,
7512: x_msg_data => x_msg_data,
7513: p_chr_id => p_chr_id,
7516: p_frequency => p_fee_frequency,
7517: p_amount_per_period => p_fee_amount_per_period
7518: );
7519:
7520: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
7521: RAISE line_rule_failed;
7522: END IF;
7523:
7524: END IF;
7581: x_rgpv_rec => x_rgpv_rec,
7582: x_rulv_rec => x_rulv_rec
7583: );
7584: l_progress := '1.2';
7585: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
7586: raise line_rule_failed;
7587: END IF;
7588:
7589: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
7617: x_rgpv_rec => x_rgpv_rec,
7618: x_rulv_rec => x_rulv_rec
7619: );
7620: l_progress := '1.2';
7621: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
7622: raise line_rule_failed;
7623: END IF;
7624:
7625: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
7671: x_rgpv_rec => x_rgpv_rec,
7672: x_rulv_rec => x_rulv_rec
7673: );
7674:
7675: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
7676: raise line_rule_failed;
7677: END IF;
7678:
7679: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
7689:
7690: EXCEPTION
7691:
7692: WHEN line_rule_failed THEN
7693: x_return_status := OKL_API.G_RET_STS_ERROR;
7694: debug_message('Line rule failed : '||l_progress);
7695:
7696: WHEN OTHERS THEN
7697: okl_api.set_message(
7693: x_return_status := OKL_API.G_RET_STS_ERROR;
7694: debug_message('Line rule failed : '||l_progress);
7695:
7696: WHEN OTHERS THEN
7697: okl_api.set_message(
7698: G_APP_NAME,
7699: G_UNEXPECTED_ERROR,
7700: 'OKL_SQLCODE',
7701: SQLCODE,
7702: 'OKL_SQLERRM',
7703: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
7704: );
7705:
7706: x_return_status := OKL_API.G_RET_STS_ERROR;
7707: debug_message('line other : '||l_progress);
7708:
7709: END create_line_rules;
7710:
7736: );
7737:
7738: l_id NUMBER;
7739: BEGIN
7740: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7741:
7742: OPEN lien_csr (p_lien_holder_id,
7743: p_lien_holder_name);
7744: FETCH lien_csr INTO l_id;
7742: OPEN lien_csr (p_lien_holder_id,
7743: p_lien_holder_name);
7744: FETCH lien_csr INTO l_id;
7745: IF lien_csr%NOTFOUND THEN
7746: x_return_status := OKL_API.G_RET_STS_ERROR;
7747: RETURN NULL;
7748: END IF;
7749:
7750: CLOSE lien_csr;
7778: late_policy_type_code = p_policy_type );
7779:
7780: l_id NUMBER;
7781: BEGIN
7782: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7783:
7784: OPEN policy_csr (p_late_policy_code,
7785: p_org_id,
7786: p_late_policy_type
7786: p_late_policy_type
7787: );
7788: FETCH policy_csr INTO l_id;
7789: IF policy_csr%NOTFOUND THEN
7790: x_return_status := OKL_API.G_RET_STS_ERROR;
7791: RETURN NULL;
7792: END IF;
7793:
7794: CLOSE policy_csr;
7825: l_proc_name VARCHAR2(35) := 'GET_CASH_APPL_RULE_ID';
7826:
7827: BEGIN
7828:
7829: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7830: debug_message(l_proc_name);
7831:
7832: OPEN cash_csr (p_cash_appl_rule_name,
7833: p_org_id);
7843: IF (cash_csr%ISOPEN) THEN
7844: CLOSE cash_csr;
7845: END IF;
7846:
7847: okl_api.set_message(
7848: G_APP_NAME,
7849: G_INVALID_VALUE,
7850: 'CONTRACT_NUM',
7851: p_contract_number,
7853: 'CASH_APPL_RULE_NAME',
7854: 'COL_VALUE',
7855: p_cash_appl_rule_name
7856: );
7857: x_return_status := OKL_API.G_RET_STS_ERROR;
7858:
7859: WHEN OTHERS THEN
7860:
7861: okl_api.set_message(
7857: x_return_status := OKL_API.G_RET_STS_ERROR;
7858:
7859: WHEN OTHERS THEN
7860:
7861: okl_api.set_message(
7862: G_APP_NAME,
7863: G_UNEXPECTED_ERROR,
7864: 'OKL_SQLCODE',
7865: SQLCODE,
7866: 'OKL_SQLERRM',
7867: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
7868: );
7869:
7870: x_return_status := OKL_API.G_RET_STS_ERROR;
7871: END get_cash_appl_rule_id;
7872:
7873: function get_formula_id(p_name IN VARCHAR2,
7874: x_return_status OUT NOCOPY VARCHAR2) RETURN NUMBER IS
8292: l_tax_schedule_yn VARCHAR2(1);
8293:
8294: BEGIN
8295:
8296: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8297:
8298: --
8299: -- Always Create Re-leased asset rule
8300: -- with value = 'N'
8328: x_rgpv_rec => x_rgpv_rec,
8329: x_rulv_rec => x_rulv_rec
8330: );
8331:
8332: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8333: raise header_rule_failed;
8334: END IF;
8335:
8336: debug_message('------>Rule: LARLES/LARLES processed');
8350: p_customer_account_id => p_header_rec.customer_account_id,
8351: p_customer_account_number => p_header_rec.customer_account_number,
8352: x_customer_account_id => x_customer_account_id
8353: );
8354: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8355: x_return_status := OKL_API.G_RET_STS_ERROR;
8356: raise header_rule_failed;
8357: END IF;
8358:
8351: p_customer_account_number => p_header_rec.customer_account_number,
8352: x_customer_account_id => x_customer_account_id
8353: );
8354: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8355: x_return_status := OKL_API.G_RET_STS_ERROR;
8356: raise header_rule_failed;
8357: END IF;
8358:
8359: g_customer_account_id := x_customer_account_id; -- Used to get Bill to address at Terms Interface
8373: x_rulv_tbl => l_rulv_tbl,
8374: x_rule_count => l_rule_count
8375: );
8376:
8377: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8378: RAISE header_rule_failed;
8379: END IF;
8380:
8381: IF (l_rule_count > 0) THEN
8391: p_customer_account_id => x_customer_account_id,
8392: p_customer_account_number => NULL,
8393: x_customer_account_id => x_customer_account_id
8394: );
8395: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8396: x_return_status := OKL_API.G_RET_STS_ERROR;
8397: raise header_rule_failed;
8398: END IF;
8399:
8392: p_customer_account_number => NULL,
8393: x_customer_account_id => x_customer_account_id
8394: );
8395: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8396: x_return_status := OKL_API.G_RET_STS_ERROR;
8397: raise header_rule_failed;
8398: END IF;
8399:
8400: END IF;
8437: );
8438:
8439: l_progress := '1.3';
8440:
8441: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8442: raise header_rule_failed;
8443: END IF;
8444:
8445: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
8465: x_rulv_tbl => l_rulv_tbl,
8466: x_rule_count => l_rule_count
8467: );
8468:
8469: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8470: RAISE header_rule_failed;
8471: END IF;
8472:
8473: IF (l_rule_count > 0) THEN
8510: );
8511:
8512: l_progress := '1.5';
8513:
8514: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8515: raise header_rule_failed;
8516: END IF;
8517:
8518: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
8569: );
8570:
8571: l_progress := '1.7';
8572:
8573: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8574: raise header_rule_failed;
8575: END IF;
8576:
8577: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
8610: );
8611:
8612: l_progress := '1.8';
8613:
8614: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8615: raise header_rule_failed;
8616: END IF;
8617:
8618: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
8657: x_rulv_tbl => l_rulv_tbl,
8658: x_rule_count => l_rule_count
8659: );
8660:
8661: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8662: RAISE header_rule_failed;
8663: END IF;
8664:
8665: IF (l_rule_count > 0) THEN
8708: );
8709:
8710: l_progress := '1.9';
8711:
8712: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8713: raise header_rule_failed;
8714: END IF;
8715:
8716: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
8746: x_rulv_tbl => l_rulv_tbl,
8747: x_rule_count => l_rule_count
8748: );
8749:
8750: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8751: RAISE header_rule_failed;
8752: END IF;
8753:
8754: IF (l_rule_count > 0) THEN
8777: );
8778:
8779: l_progress := '1.10';
8780:
8781: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8782: raise header_rule_failed;
8783: END IF;
8784:
8785: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
8809: x_rulv_tbl => l_rulv_tbl,
8810: x_rule_count => l_rule_count
8811: );
8812:
8813: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8814: RAISE header_rule_failed;
8815: END IF;
8816:
8817: IF (l_rule_count > 0) THEN
8850: );
8851:
8852: l_progress := '1.11';
8853:
8854: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8855: raise header_rule_failed;
8856: END IF;
8857:
8858: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
8888: x_rulv_tbl => l_rulv_tbl,
8889: x_rule_count => l_rule_count
8890: );
8891:
8892: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8893: RAISE header_rule_failed;
8894: END IF;
8895:
8896: IF (l_rule_count > 0) THEN
8920: );
8921:
8922: l_progress := '1.11';
8923:
8924: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8925: raise header_rule_failed;
8926: END IF;
8927:
8928: -- IF (l_rgp_id IS NULL) THEN
8949: x_rulv_tbl => l_rulv_tbl,
8950: x_rule_count => l_rule_count
8951: );
8952:
8953: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8954: RAISE header_rule_failed;
8955: END IF;
8956:
8957: IF (l_rule_count > 0) THEN
8981: );
8982:
8983: l_progress := '1.11';
8984:
8985: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8986: raise header_rule_failed;
8987: END IF;
8988:
8989: --IF (l_rgp_id IS NULL) THEN
9011: x_rulv_tbl => l_rulv_tbl,
9012: x_rule_count => l_rule_count
9013: );
9014:
9015: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9016: RAISE header_rule_failed;
9017: END IF;
9018:
9019: IF (l_rule_count > 0) THEN
9028: p_org_id => p_header_rec.authoring_org_id,
9029: p_late_policy_type => 'INT'
9030: );
9031:
9032: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9033: okl_api.set_message(
9034: G_APP_NAME,
9035: G_INVALID_VALUE,
9036: 'CONTRACT_NUM',
9029: p_late_policy_type => 'INT'
9030: );
9031:
9032: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9033: okl_api.set_message(
9034: G_APP_NAME,
9035: G_INVALID_VALUE,
9036: 'CONTRACT_NUM',
9037: p_header_rec.contract_number_old,
9063: p_rulv_rec => l_rulv_rec,
9064: x_rgpv_rec => x_rgpv_rec,
9065: x_rulv_rec => x_rulv_rec
9066: );
9067: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9068: raise header_rule_failed;
9069: END IF;
9070:
9071: --IF (l_rgp_id IS NULL) THEN
9102: x_rulv_tbl => l_rulv_tbl,
9103: x_rule_count => l_rule_count
9104: );
9105:
9106: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9107: RAISE header_rule_failed;
9108: END IF;
9109:
9110: IF (l_rule_count > 0) THEN
9133: );
9134:
9135: l_progress := '1.12';
9136:
9137: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9138: raise header_rule_failed;
9139: END IF;
9140:
9141: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- Bug 5085099
9161: x_rulv_tbl => l_rulv_tbl,
9162: x_rule_count => l_rule_count
9163: );
9164:
9165: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9166: RAISE header_rule_failed;
9167: END IF;
9168:
9169: IF (l_rule_count > 0) THEN
9177: p_late_policy_code => l_late_charge_product_code,
9178: p_org_id => p_header_rec.authoring_org_id,
9179: p_late_policy_type => 'CHG'
9180: );
9181: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9182: okl_api.set_message(
9183: G_APP_NAME,
9184: G_INVALID_VALUE,
9185: 'CONTRACT_NUM',
9178: p_org_id => p_header_rec.authoring_org_id,
9179: p_late_policy_type => 'CHG'
9180: );
9181: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9182: okl_api.set_message(
9183: G_APP_NAME,
9184: G_INVALID_VALUE,
9185: 'CONTRACT_NUM',
9186: p_header_rec.contract_number_old,
9215: );
9216:
9217: l_progress := '1.13';
9218:
9219: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9220: raise header_rule_failed;
9221: END IF;
9222:
9223: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- Bug 5085099
9244: x_rulv_tbl => l_rulv_tbl,
9245: x_rule_count => l_rule_count
9246: );
9247:
9248: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9249: RAISE header_rule_failed;
9250: END IF;
9251:
9252: IF (l_rule_count > 0) THEN
9275: );
9276:
9277: l_progress := '1.14';
9278:
9279: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9280: raise header_rule_failed;
9281: END IF;
9282:
9283: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
9312: x_rulv_tbl => l_rulv_tbl,
9313: x_rule_count => l_rule_count
9314: );
9315:
9316: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9317: RAISE header_rule_failed;
9318: END IF;
9319:
9320: IF (l_rule_count > 0) THEN
9343: x_rulv_rec => x_rulv_rec
9344: );
9345:
9346: l_progress := '1.141';
9347: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9348: raise header_rule_failed;
9349: END IF;
9350:
9351: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
9382: x_rulv_tbl => l_rulv_tbl,
9383: x_rule_count => l_rule_count
9384: );
9385:
9386: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9387: RAISE header_rule_failed;
9388: END IF;
9389:
9390: IF (l_rule_count > 0) THEN
9443: );
9444:
9445: l_progress := '1.15';
9446:
9447: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9448: raise header_rule_failed;
9449: END IF;
9450:
9451: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
9493: x_rulv_tbl => l_rulv_tbl,
9494: x_rule_count => l_rule_count
9495: );
9496:
9497: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9498: RAISE header_rule_failed;
9499: END IF;
9500:
9501: IF (l_rule_count > 0) THEN
9525: x_return_status => x_return_status,
9526: p_index_name => l_index_name,
9527: x_index_id => x_index_id
9528: );
9529: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9530: okl_api.set_message(
9531: G_APP_NAME,
9532: G_INVALID_VALUE,
9533: 'CONTRACT_NUM',
9526: p_index_name => l_index_name,
9527: x_index_id => x_index_id
9528: );
9529: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9530: okl_api.set_message(
9531: G_APP_NAME,
9532: G_INVALID_VALUE,
9533: 'CONTRACT_NUM',
9534: p_header_rec.contract_number_old,
9615: x_rulv_rec => x_rulv_rec
9616: );
9617:
9618: l_progress := '1.16';
9619: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9620: x_return_status := OKL_API.G_RET_STS_ERROR;
9621: raise header_rule_failed;
9622: END IF;
9623:
9616: );
9617:
9618: l_progress := '1.16';
9619: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9620: x_return_status := OKL_API.G_RET_STS_ERROR;
9621: raise header_rule_failed;
9622: END IF;
9623:
9624: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
9657: x_rulv_tbl => l_rulv_tbl,
9658: x_rule_count => l_rule_count
9659: );
9660:
9661: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9662: RAISE header_rule_failed;
9663: END IF;
9664:
9665: IF (l_rule_count > 0) THEN
9726: x_rulv_rec => x_rulv_rec
9727: );
9728:
9729: l_progress := '1.17';
9730: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9731: x_return_status := OKL_API.G_RET_STS_ERROR;
9732: raise header_rule_failed;
9733: END IF;
9734:
9727: );
9728:
9729: l_progress := '1.17';
9730: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9731: x_return_status := OKL_API.G_RET_STS_ERROR;
9732: raise header_rule_failed;
9733: END IF;
9734:
9735: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
9755: x_rulv_tbl => l_rulv_tbl,
9756: x_rule_count => l_rule_count
9757: );
9758:
9759: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9760: RAISE header_rule_failed;
9761: END IF;
9762:
9763: IF (l_rule_count > 0) THEN
9785: x_rulv_rec => x_rulv_rec
9786: );
9787:
9788: l_progress := '1.18';
9789: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9790: x_return_status := OKL_API.G_RET_STS_ERROR;
9791: raise header_rule_failed;
9792: END IF;
9793:
9786: );
9787:
9788: l_progress := '1.18';
9789: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9790: x_return_status := OKL_API.G_RET_STS_ERROR;
9791: raise header_rule_failed;
9792: END IF;
9793:
9794: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
9828: x_return_status => x_return_status,
9829: p_index_name => p_header_rec.INDEX_NAME,
9830: x_index_id => l_index_id
9831: );
9832: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9833: okl_api.set_message(
9834: G_APP_NAME,
9835: G_INVALID_VALUE,
9836: 'CONTRACT_NUM',
9829: p_index_name => p_header_rec.INDEX_NAME,
9830: x_index_id => l_index_id
9831: );
9832: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9833: okl_api.set_message(
9834: G_APP_NAME,
9835: G_INVALID_VALUE,
9836: 'CONTRACT_NUM',
9837: p_header_rec.contract_number_old,
9997: l_formula_id := get_formula_id(p_header_rec.FORMULA_NAME,
9998: x_return_status);
9999: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
10000: --AKP: Todo: set message: Invalid formula name 5024651
10001: okl_api.set_message(
10002: G_APP_NAME,
10003: G_INVALID_VALUE,
10004: 'CONTRACT_NUM',
10005: p_header_rec.contract_number_old,
10213: x_return_status => x_return_status,
10214: p_index_name => p_header_rec.INT_RATE_CON_INDEX_NAME,
10215: x_index_id => x_index_id
10216: );
10217: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10218: okl_api.set_message(
10219: G_APP_NAME,
10220: G_INVALID_VALUE,
10221: 'CONTRACT_NUM',
10214: p_index_name => p_header_rec.INT_RATE_CON_INDEX_NAME,
10215: x_index_id => x_index_id
10216: );
10217: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10218: okl_api.set_message(
10219: G_APP_NAME,
10220: G_INVALID_VALUE,
10221: 'CONTRACT_NUM',
10222: p_header_rec.contract_number_old,
10381: l_formula_id := get_formula_id(p_header_rec.INT_RATE_CON_FORMULA_NAME,
10382: x_return_status);
10383: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
10384: --AKP: Todo: set message: Invalid formula name 5024651
10385: okl_api.set_message(
10386: G_APP_NAME,
10387: G_INVALID_VALUE,
10388: 'CONTRACT_NUM',
10389: p_header_rec.contract_number_old,
10529: x_msg_count => x_msg_count,
10530: x_msg_data => x_msg_data,
10531: p_product_id => G_PRODUCT_ID,
10532: p_k_rate_tbl => l_k_rate_tbl);
10533: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10534: RAISE header_rule_failed;
10535: ELSE
10536: FOR krpv_rec_cnt IN l_k_rate_tbl.FIRST..l_k_rate_tbl.LAST
10537: LOOP
10543: x_msg_data => x_msg_data,
10544: p_krpv_rec => l_k_rate_tbl(krpv_rec_cnt),
10545: x_krpv_rec => x_krpv_rec,
10546: p_validate_flag => 'N');
10547: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10548: RAISE header_rule_failed;
10549: END IF;
10550: END LOOP;
10551: END IF;
10585: x_rulv_tbl => l_rulv_tbl,
10586: x_rule_count => l_rule_count
10587: );
10588:
10589: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10590: RAISE header_rule_failed;
10591: END IF;
10592:
10593: IF (l_rule_count > 0) THEN
10636: x_rulv_rec => x_rulv_rec
10637: );
10638:
10639: l_progress := '1.19';
10640: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10641: x_return_status := OKL_API.G_RET_STS_ERROR;
10642: raise header_rule_failed;
10643: END IF;
10644:
10637: );
10638:
10639: l_progress := '1.19';
10640: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10641: x_return_status := OKL_API.G_RET_STS_ERROR;
10642: raise header_rule_failed;
10643: END IF;
10644:
10645: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
10673: x_rulv_tbl => l_rulv_tbl,
10674: x_rule_count => l_rule_count
10675: );
10676:
10677: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10678: RAISE header_rule_failed;
10679: END IF;
10680:
10681: IF (l_rule_count > 0) THEN
10703: x_rulv_rec => x_rulv_rec
10704: );
10705:
10706: l_progress := '1.20';
10707: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10708: x_return_status := OKL_API.G_RET_STS_ERROR;
10709: raise header_rule_failed;
10710: END IF;
10711:
10704: );
10705:
10706: l_progress := '1.20';
10707: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10708: x_return_status := OKL_API.G_RET_STS_ERROR;
10709: raise header_rule_failed;
10710: END IF;
10711:
10712: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
10735: x_rulv_tbl => l_rulv_tbl,
10736: x_rule_count => l_rule_count
10737: );
10738:
10739: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10740: RAISE header_rule_failed;
10741: END IF;
10742:
10743: IF (l_rule_count > 0) THEN
10774: x_rgpv_rec => x_rgpv_rec,
10775: x_rulv_rec => x_rulv_rec
10776: );
10777:
10778: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10779: x_return_status := OKL_API.G_RET_STS_ERROR;
10780: raise header_rule_failed;
10781: END IF;
10782:
10775: x_rulv_rec => x_rulv_rec
10776: );
10777:
10778: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10779: x_return_status := OKL_API.G_RET_STS_ERROR;
10780: raise header_rule_failed;
10781: END IF;
10782:
10783: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
10813: p_customer_account_id => x_customer_account_id,
10814: x_bill_to_address_id => x_bill_to_address_id
10815: );
10816:
10817: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10818: x_return_status := OKL_API.G_RET_STS_ERROR;
10819: raise header_rule_failed;
10820: END IF;
10821:
10814: x_bill_to_address_id => x_bill_to_address_id
10815: );
10816:
10817: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10818: x_return_status := OKL_API.G_RET_STS_ERROR;
10819: raise header_rule_failed;
10820: END IF;
10821:
10822: ELSE
10832: x_rulv_tbl => l_rulv_tbl,
10833: x_rule_count => l_rule_count
10834: );
10835:
10836: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10837: RAISE header_rule_failed;
10838: END IF;
10839:
10840: IF (l_rule_count > 0) THEN
10873: x_rgpv_rec => x_rgpv_rec,
10874: x_rulv_rec => x_rulv_rec
10875: );
10876:
10877: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10878: x_return_status := OKL_API.G_RET_STS_ERROR;
10879: raise header_rule_failed;
10880: END IF;
10881:
10874: x_rulv_rec => x_rulv_rec
10875: );
10876:
10877: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10878: x_return_status := OKL_API.G_RET_STS_ERROR;
10879: raise header_rule_failed;
10880: END IF;
10881:
10882: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
10893: p_customer_id => p_header_rec.customer_id,
10894: p_customer_number => p_header_rec.customer_number,
10895: x_id1 => l_customer_id
10896: );
10897: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10898: x_return_status := OKL_API.G_RET_STS_ERROR;
10899: raise header_rule_failed;
10900: END IF;
10901: ELSE
10894: p_customer_number => p_header_rec.customer_number,
10895: x_id1 => l_customer_id
10896: );
10897: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10898: x_return_status := OKL_API.G_RET_STS_ERROR;
10899: raise header_rule_failed;
10900: END IF;
10901: ELSE
10902: -- Get customer info from template_contract
10922: p_cust_site_id => g_bill_to_address_id,
10923: x_bank_account_id => x_bank_account_id
10924: );
10925:
10926: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10927: x_return_status := OKL_API.G_RET_STS_ERROR;
10928: raise header_rule_failed;
10929: END IF;
10930:
10923: x_bank_account_id => x_bank_account_id
10924: );
10925:
10926: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10927: x_return_status := OKL_API.G_RET_STS_ERROR;
10928: raise header_rule_failed;
10929: END IF;
10930:
10931: ELSE
10941: x_rulv_tbl => l_rulv_tbl,
10942: x_rule_count => l_rule_count
10943: );
10944:
10945: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10946: RAISE header_rule_failed;
10947: END IF;
10948:
10949: IF (l_rule_count > 0) THEN
10973: x_rgpv_rec => x_rgpv_rec,
10974: x_rulv_rec => x_rulv_rec
10975: );
10976:
10977: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10978: x_return_status := OKL_API.G_RET_STS_ERROR;
10979: raise header_rule_failed;
10980: END IF;
10981:
10974: x_rulv_rec => x_rulv_rec
10975: );
10976:
10977: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10978: x_return_status := OKL_API.G_RET_STS_ERROR;
10979: raise header_rule_failed;
10980: END IF;
10981:
10982: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
11007: x_rulv_tbl => l_rulv_tbl,
11008: x_rule_count => l_rule_count
11009: );
11010:
11011: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11012: RAISE header_rule_failed;
11013: END IF;
11014:
11015: IF (l_rule_count > 0) THEN
11046: x_rgpv_rec => x_rgpv_rec,
11047: x_rulv_rec => x_rulv_rec
11048: );
11049:
11050: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11051: x_return_status := OKL_API.G_RET_STS_ERROR;
11052: raise header_rule_failed;
11053: END IF;
11054:
11047: x_rulv_rec => x_rulv_rec
11048: );
11049:
11050: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11051: x_return_status := OKL_API.G_RET_STS_ERROR;
11052: raise header_rule_failed;
11053: END IF;
11054:
11055: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
11071: x_invoice_format_id => x_invoice_format_id,
11072: x_invoice_format_name => x_invoice_format_name
11073: );
11074:
11075: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11076: x_return_status := OKL_API.G_RET_STS_ERROR;
11077: raise header_rule_failed;
11078: END IF;
11079: END IF;
11072: x_invoice_format_name => x_invoice_format_name
11073: );
11074:
11075: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11076: x_return_status := OKL_API.G_RET_STS_ERROR;
11077: raise header_rule_failed;
11078: END IF;
11079: END IF;
11080:
11089: p_cash_appl_rule_name => p_header_rec.cash_appl_rule_name,
11090: x_cash_appl_rule_id => x_cash_appl_rule_id
11091: );
11092:
11093: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11094: x_return_status := OKL_API.G_RET_STS_ERROR;
11095: raise header_rule_failed;
11096: END IF;
11097:
11090: x_cash_appl_rule_id => x_cash_appl_rule_id
11091: );
11092:
11093: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11094: x_return_status := OKL_API.G_RET_STS_ERROR;
11095: raise header_rule_failed;
11096: END IF;
11097:
11098: END IF;
11120: x_rulv_tbl => l_rulv_tbl,
11121: x_rule_count => l_rule_count
11122: );
11123:
11124: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11125: RAISE header_rule_failed;
11126: END IF;
11127:
11128: IF (l_rule_count > 0) THEN
11199: x_rgpv_rec => x_rgpv_rec,
11200: x_rulv_rec => x_rulv_rec
11201: );
11202:
11203: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11204: x_return_status := OKL_API.G_RET_STS_ERROR;
11205: raise header_rule_failed;
11206: END IF;
11207:
11200: x_rulv_rec => x_rulv_rec
11201: );
11202:
11203: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11204: x_return_status := OKL_API.G_RET_STS_ERROR;
11205: raise header_rule_failed;
11206: END IF;
11207:
11208: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- Bug 5085099
11225: p_payment_method => p_header_rec.payment_method,
11226: x_payment_method_id => x_payment_method_id
11227: );
11228:
11229: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11230: x_return_status := OKL_API.G_RET_STS_ERROR;
11231: raise header_rule_failed;
11232: END IF;
11233:
11226: x_payment_method_id => x_payment_method_id
11227: );
11228:
11229: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11230: x_return_status := OKL_API.G_RET_STS_ERROR;
11231: raise header_rule_failed;
11232: END IF;
11233:
11234: ELSE
11244: x_rulv_tbl => l_rulv_tbl,
11245: x_rule_count => l_rule_count
11246: );
11247:
11248: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11249: RAISE header_rule_failed;
11250: END IF;
11251:
11252: IF (l_rule_count > 0) THEN
11278: x_rgpv_rec => x_rgpv_rec,
11279: x_rulv_rec => x_rulv_rec
11280: );
11281:
11282: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11283: x_return_status := OKL_API.G_RET_STS_ERROR;
11284: raise header_rule_failed;
11285: END IF;
11286:
11279: x_rulv_rec => x_rulv_rec
11280: );
11281:
11282: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11283: x_return_status := OKL_API.G_RET_STS_ERROR;
11284: raise header_rule_failed;
11285: END IF;
11286:
11287: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
11314: x_rulv_tbl => l_rulv_tbl,
11315: x_rule_count => l_rule_count
11316: );
11317:
11318: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11319: RAISE header_rule_failed;
11320: END IF;
11321:
11322: IF (l_rule_count > 0) THEN
11344: x_rgpv_rec => x_rgpv_rec,
11345: x_rulv_rec => x_rulv_rec
11346: );
11347:
11348: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11349: raise header_rule_failed;
11350: END IF;
11351:
11352: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
11381: x_rulv_tbl => l_rulv_tbl,
11382: x_rule_count => l_rule_count
11383: );
11384:
11385: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11386: RAISE header_rule_failed;
11387: END IF;
11388:
11389: IF (l_rule_count > 0) THEN
11411: x_rgpv_rec => x_rgpv_rec,
11412: x_rulv_rec => x_rulv_rec
11413: );
11414:
11415: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11416: raise header_rule_failed;
11417: END IF;
11418:
11419: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
11449: x_rulv_tbl => l_rulv_tbl,
11450: x_rule_count => l_rule_count
11451: );
11452:
11453: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11454: RAISE header_rule_failed;
11455: END IF;
11456:
11457: IF (l_rule_count > 0) THEN
11467: OPEN contract_csr(p_chr_id);
11468: FETCH contract_csr INTO l_contract_number,l_contract_start_date;
11469:
11470: IF contract_csr%NOTFOUND THEN
11471: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
11472: CLOSE contract_csr;
11473: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
11474: p_msg_name => 'OKL_LLA_CHR_ID');
11475: RAISE header_rule_failed;
11469:
11470: IF contract_csr%NOTFOUND THEN
11471: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
11472: CLOSE contract_csr;
11473: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
11474: p_msg_name => 'OKL_LLA_CHR_ID');
11475: RAISE header_rule_failed;
11476: END IF;
11477:
11486: l_rvi_stream_purpose_code IS NULL) OR
11487: (l_rvi_stream_code IS NULL AND
11488: l_rvi_stream_purpose_code IS NOT NULL)) THEN
11489:
11490: okl_api.set_message(
11491: G_APP_NAME,
11492: G_INVALID_VALUE,
11493: 'CONTRACT_NUM',
11494: l_contract_number, --||'/'||TO_CHAR(p_line_number),
11496: 'RVI_STREAM_CODE, RVI_STREAM_PURPOSE_CODE',
11497: 'COL_VALUE',
11498: l_rvi_stream_code||', '||l_rvi_stream_purpose_code
11499: );
11500: x_return_status := OKL_API.G_RET_STS_ERROR;
11501: RAISE header_rule_failed;
11502:
11503: ELSIF (l_rvi_stream_code IS NOT NULL AND
11504: l_rvi_stream_purpose_code IS NOT NULL) THEN
11510: p_stream_purpose => l_rvi_stream_purpose_code,
11511: x_id1 => l_rvi_stream_type_id,
11512: x_name => l_rvi_stream_name
11513: );
11514: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11515: okl_api.set_message(
11516: G_APP_NAME,
11517: G_INVALID_VALUE,
11518: 'CONTRACT_NUM',
11511: x_id1 => l_rvi_stream_type_id,
11512: x_name => l_rvi_stream_name
11513: );
11514: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11515: okl_api.set_message(
11516: G_APP_NAME,
11517: G_INVALID_VALUE,
11518: 'CONTRACT_NUM',
11519: l_contract_number, --||'/'||TO_CHAR(p_line_number),
11521: 'RVI_STREAM_CODE, RVI_STREAM_PURPOSE_CODE',
11522: 'COL_VALUE',
11523: l_rvi_stream_code||', '||l_rvi_stream_purpose_code
11524: );
11525: x_return_status := OKL_API.G_RET_STS_ERROR;
11526: RAISE header_rule_failed;
11527: END IF;
11528:
11529: debug_message('l_rvi_stream_type_id=' || l_rvi_stream_type_id);
11532: FETCH rvi_stream_csr INTO l_yn;
11533:
11534: IF rvi_stream_csr%NOTFOUND THEN
11535: CLOSE rvi_stream_csr;
11536: okl_api.set_message(
11537: G_APP_NAME,
11538: G_NO_STRM_TMPL,
11539: 'CONTRACT_NUM',
11540: l_contract_number, --||'/'||p_line_number,
11552: l_fee_types_rec.dnz_chr_id := p_chr_id;
11553: l_fee_types_rec.item_id1 := l_rvi_stream_type_id;
11554: OKL_MAINTAIN_FEE_PVT.PROCESS_RVI_STREAM(
11555: p_api_version => 1.0,
11556: p_init_msg_list => OKL_API.G_FALSE,
11557: x_return_status => x_return_status,
11558: x_msg_count => x_msg_count,
11559: x_msg_data => x_msg_data,
11560: p_check_box_value => 'Y',
11560: p_check_box_value => 'Y',
11561: p_fee_types_rec => l_fee_types_rec,
11562: x_fee_types_rec => x_fee_types_rec);
11563:
11564: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11565: raise header_rule_failed;
11566: END IF;
11567:
11568:
11583: x_rgpv_rec => x_rgpv_rec,
11584: x_rulv_rec => x_rulv_rec
11585: );
11586:
11587: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11588: raise header_rule_failed;
11589: END IF;
11590:
11591: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
11651: x_rulv_tbl => l_rulv_tbl,
11652: x_rule_count => l_rule_count
11653: );
11654:
11655: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11656: RAISE header_rule_failed;
11657: END IF;
11658:
11659: IF (l_rule_count > 0) THEN
11682: x_rgpv_rec => x_rgpv_rec,
11683: x_rulv_rec => x_rulv_rec
11684: );
11685:
11686: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11687: raise header_rule_failed;
11688: END IF;
11689:
11690: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
11718: x_rulv_tbl => l_rulv_tbl,
11719: x_rule_count => l_rule_count
11720: );
11721:
11722: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11723: RAISE header_rule_failed;
11724: END IF;
11725:
11726: IF (l_rule_count > 0) THEN
11747: x_rgpv_rec => x_rgpv_rec,
11748: x_rulv_rec => x_rulv_rec
11749: );
11750:
11751: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11752: raise header_rule_failed;
11753: END IF;
11754:
11755: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
11777: x_rulv_tbl => l_rulv_tbl,
11778: x_rule_count => l_rule_count
11779: );
11780:
11781: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11782: RAISE header_rule_failed;
11783: END IF;
11784:
11785: IF (l_rule_count > 0) THEN
11806: x_rgpv_rec => x_rgpv_rec,
11807: x_rulv_rec => x_rulv_rec
11808: );
11809:
11810: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11811: raise header_rule_failed;
11812: END IF;
11813:
11814: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
11849: x_rulv_tbl => l_rulv_tbl,
11850: x_rule_count => l_rule_count
11851: );
11852:
11853: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11854: RAISE header_rule_failed;
11855: END IF;
11856:
11857: IF (l_rule_count > 0) THEN
11878: x_rgpv_rec => x_rgpv_rec,
11879: x_rulv_rec => x_rulv_rec
11880: );
11881:
11882: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11883: raise header_rule_failed;
11884: END IF;
11885:
11886: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
11918: x_rulv_tbl => l_rulv_tbl,
11919: x_rule_count => l_rule_count
11920: );
11921:
11922: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11923: RAISE header_rule_failed;
11924: END IF;
11925:
11926: IF (l_rule_count > 0) THEN
11948: x_rgpv_rec => x_rgpv_rec,
11949: x_rulv_rec => x_rulv_rec
11950: );
11951:
11952: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11953: raise header_rule_failed;
11954: END IF;
11955:
11956:
11989: x_rulv_tbl => l_rulv_tbl,
11990: x_rule_count => l_rule_count
11991: );
11992:
11993: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11994: RAISE header_rule_failed;
11995: END IF;
11996:
11997: IF (l_rule_count > 0) THEN
12028: x_rgpv_rec => x_rgpv_rec,
12029: x_rulv_rec => x_rulv_rec
12030: );
12031:
12032: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
12033: raise header_rule_failed;
12034: END IF;
12035:
12036: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
12070: x_rulv_tbl => l_rulv_tbl,
12071: x_rule_count => l_rule_count
12072: );
12073:
12074: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
12075: RAISE header_rule_failed;
12076: END IF;
12077:
12078: IF (l_rule_count > 0) THEN
12109: x_rgpv_rec => x_rgpv_rec,
12110: x_rulv_rec => x_rulv_rec
12111: );
12112:
12113: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
12114: raise header_rule_failed;
12115: END IF;
12116:
12117: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
12145: x_rulv_tbl => l_rulv_tbl,
12146: x_rule_count => l_rule_count
12147: );
12148:
12149: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
12150: RAISE header_rule_failed;
12151: END IF;
12152:
12153: IF (l_rule_count > 0) THEN
12204: x_rgpv_rec => x_rgpv_rec,
12205: x_rulv_rec => x_rulv_rec
12206: );
12207:
12208: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
12209: raise header_rule_failed;
12210: END IF;
12211:
12212: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
12241: x_rulv_tbl => l_rulv_tbl,
12242: x_rule_count => l_rule_count
12243: );
12244:
12245: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
12246: RAISE header_rule_failed;
12247: END IF;
12248:
12249: IF (l_rule_count > 0) THEN
12300: x_rgpv_rec => x_rgpv_rec,
12301: x_rulv_rec => x_rulv_rec
12302: );
12303:
12304: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
12305: raise header_rule_failed;
12306: END IF;
12307:
12308: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
12336: x_rulv_tbl => l_rulv_tbl,
12337: x_rule_count => l_rule_count
12338: );
12339:
12340: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
12341: RAISE header_rule_failed;
12342: END IF;
12343:
12344: IF (l_rule_count > 0) THEN
12395: x_rgpv_rec => x_rgpv_rec,
12396: x_rulv_rec => x_rulv_rec
12397: );
12398:
12399: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
12400: raise header_rule_failed;
12401: END IF;
12402:
12403: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
12463: x_rulv_tbl => l_rulv_tbl,
12464: x_rule_count => l_rule_count
12465: );
12466:
12467: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
12468: RAISE header_rule_failed;
12469: END IF;
12470:
12471: IF (l_rule_count > 0) THEN
12592: x_rgpv_rec => x_rgpv_rec,
12593: x_rulv_rec => x_rulv_rec
12594: );
12595:
12596: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
12597: raise header_rule_failed;
12598: END IF;
12599:
12600: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
12660: x_rulv_tbl => l_rulv_tbl,
12661: x_rule_count => l_rule_count
12662: );
12663:
12664: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
12665: RAISE header_rule_failed;
12666: END IF;
12667:
12668: IF (l_rule_count > 0) THEN
12789: x_rgpv_rec => x_rgpv_rec,
12790: x_rulv_rec => x_rulv_rec
12791: );
12792:
12793: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
12794: raise header_rule_failed;
12795: END IF;
12796:
12797: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
12818: x_rulv_tbl => l_rulv_tbl,
12819: x_rule_count => l_rule_count
12820: );
12821:
12822: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
12823: RAISE header_rule_failed;
12824: END IF;
12825:
12826: IF (l_rule_count > 0) THEN
12847: x_rgpv_rec => x_rgpv_rec,
12848: x_rulv_rec => x_rulv_rec
12849: );
12850:
12851: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
12852: raise header_rule_failed;
12853: END IF;
12854:
12855: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
12871: l_rulv_rec := NULL;
12872:
12873: -- cklee bug# 3440442 bug# 3440442
12874: IF (NVL(p_header_rec.tqp_erl_termination_alwd_flag,'N') NOT IN ('Y','N')) THEN
12875: okl_api.set_message(
12876: G_APP_NAME,
12877: G_INVALID_VALUE,
12878: 'CONTRACT_NUM',
12879: p_header_rec.contract_number_old,
12882: 'COL_VALUE',
12883: p_header_rec.tqp_erl_termination_alwd_flag
12884: );
12885:
12886: x_return_status := OKL_API.G_RET_STS_ERROR;
12887:
12888: raise header_rule_failed;
12889: END IF;
12890: -- cklee bug# 3440442 bug# 3440442
12905: x_rulv_tbl => l_rulv_tbl,
12906: x_rule_count => l_rule_count
12907: );
12908:
12909: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
12910: RAISE header_rule_failed;
12911: END IF;
12912:
12913: IF (l_rule_count > 0) THEN
12934: x_rgpv_rec => x_rgpv_rec,
12935: x_rulv_rec => x_rulv_rec
12936: );
12937:
12938: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
12939: raise header_rule_failed;
12940: END IF;
12941:
12942: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
12961: x_rulv_tbl => l_rulv_tbl,
12962: x_rule_count => l_rule_count
12963: );
12964:
12965: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
12966: RAISE header_rule_failed;
12967: END IF;
12968:
12969: IF (l_rule_count > 0) THEN
12990: x_rgpv_rec => x_rgpv_rec,
12991: x_rulv_rec => x_rulv_rec
12992: );
12993:
12994: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
12995: raise header_rule_failed;
12996: END IF;
12997:
12998: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
13021: x_rulv_tbl => l_rulv_tbl,
13022: x_rule_count => l_rule_count
13023: );
13024:
13025: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
13026: RAISE header_rule_failed;
13027: END IF;
13028:
13029: IF (l_rule_count > 0) THEN
13060: x_rgpv_rec => x_rgpv_rec,
13061: x_rulv_rec => x_rulv_rec
13062: );
13063:
13064: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
13065: raise header_rule_failed;
13066: END IF;
13067:
13068: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
13087: x_rulv_tbl => l_rulv_tbl,
13088: x_rule_count => l_rule_count
13089: );
13090:
13091: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
13092: RAISE header_rule_failed;
13093: END IF;
13094:
13095: IF (l_rule_count > 0) THEN
13116: x_rgpv_rec => x_rgpv_rec,
13117: x_rulv_rec => x_rulv_rec
13118: );
13119:
13120: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
13121: raise header_rule_failed;
13122: END IF;
13123:
13124: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
13147: x_rulv_tbl => l_rulv_tbl,
13148: x_rule_count => l_rule_count
13149: );
13150:
13151: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
13152: RAISE header_rule_failed;
13153: END IF;
13154:
13155: IF (l_rule_count > 0) THEN
13176: x_rgpv_rec => x_rgpv_rec,
13177: x_rulv_rec => x_rulv_rec
13178: );
13179:
13180: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
13181: raise header_rule_failed;
13182: END IF;
13183:
13184: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
13204: x_rulv_tbl => l_rulv_tbl,
13205: x_rule_count => l_rule_count
13206: );
13207:
13208: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
13209: RAISE header_rule_failed;
13210: END IF;
13211:
13212: IF (l_rule_count > 0) THEN
13233: x_rgpv_rec => x_rgpv_rec,
13234: x_rulv_rec => x_rulv_rec
13235: );
13236:
13237: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
13238: raise header_rule_failed;
13239: END IF;
13240:
13241: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
13261: x_rulv_tbl => l_rulv_tbl,
13262: x_rule_count => l_rule_count
13263: );
13264:
13265: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
13266: RAISE header_rule_failed;
13267: END IF;
13268:
13269: IF (l_rule_count > 0) THEN
13290: x_rgpv_rec => x_rgpv_rec,
13291: x_rulv_rec => x_rulv_rec
13292: );
13293:
13294: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
13295: raise header_rule_failed;
13296: END IF;
13297:
13298: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
13328: x_rulv_tbl => l_rulv_tbl,
13329: x_rule_count => l_rule_count
13330: );
13331:
13332: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
13333: RAISE header_rule_failed;
13334: END IF;
13335:
13336: IF (l_rule_count > 0) THEN
13358: x_rgpv_rec => x_rgpv_rec,
13359: x_rulv_rec => x_rulv_rec
13360: );
13361:
13362: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
13363: raise header_rule_failed;
13364: END IF;
13365:
13366: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
13385: x_rulv_tbl => l_rulv_tbl,
13386: x_rule_count => l_rule_count
13387: );
13388:
13389: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
13390: RAISE header_rule_failed;
13391: END IF;
13392:
13393: IF (l_rule_count > 0) THEN
13415: x_rgpv_rec => x_rgpv_rec,
13416: x_rulv_rec => x_rulv_rec
13417: );
13418:
13419: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
13420: raise header_rule_failed;
13421: END IF;
13422:
13423: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
13454: x_rulv_tbl => l_rulv_tbl,
13455: x_rule_count => l_rule_count
13456: );
13457:
13458: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
13459: RAISE header_rule_failed;
13460: END IF;
13461:
13462: IF (l_rule_count > 0) THEN
13483: x_rgpv_rec => x_rgpv_rec,
13484: x_rulv_rec => x_rulv_rec
13485: );
13486:
13487: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
13488: raise header_rule_failed;
13489: END IF;
13490:
13491: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
13532: x_rulv_tbl => l_rulv_tbl,
13533: x_rule_count => l_rule_count
13534: );
13535:
13536: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
13537: RAISE header_rule_failed;
13538: END IF;
13539:
13540: IF (l_rule_count > 0) THEN
13631: x_rgpv_rec => x_rgpv_rec,
13632: x_rulv_rec => x_rulv_rec
13633: );
13634:
13635: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
13636: raise header_rule_failed;
13637: END IF;
13638:
13639: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
13668: x_rulv_tbl => l_rulv_tbl,
13669: x_rule_count => l_rule_count
13670: );
13671:
13672: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
13673: RAISE header_rule_failed;
13674: END IF;
13675:
13676: IF (l_rule_count > 0) THEN
13697: x_rgpv_rec => x_rgpv_rec,
13698: x_rulv_rec => x_rulv_rec
13699: );
13700:
13701: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
13702: raise header_rule_failed;
13703: END IF;
13704:
13705: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
13730: x_rulv_tbl => l_rulv_tbl,
13731: x_rule_count => l_rule_count
13732: );
13733:
13734: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
13735: RAISE header_rule_failed;
13736: END IF;
13737:
13738: IF (l_rule_count > 0) THEN
13769: x_rgpv_rec => x_rgpv_rec,
13770: x_rulv_rec => x_rulv_rec
13771: );
13772:
13773: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
13774: raise header_rule_failed;
13775: END IF;
13776:
13777: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
13807: x_rulv_tbl => l_rulv_tbl,
13808: x_rule_count => l_rule_count
13809: );
13810:
13811: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
13812: RAISE header_rule_failed;
13813: END IF;
13814:
13815: IF (l_rule_count > 0) THEN
13836: x_rgpv_rec => x_rgpv_rec,
13837: x_rulv_rec => x_rulv_rec
13838: );
13839:
13840: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
13841: raise header_rule_failed;
13842: END IF;
13843:
13844: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
13867: x_rulv_tbl => l_rulv_tbl,
13868: x_rule_count => l_rule_count
13869: );
13870:
13871: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
13872: RAISE header_rule_failed;
13873: END IF;
13874:
13875: IF (l_rule_count > 0) THEN
13906: x_rgpv_rec => x_rgpv_rec,
13907: x_rulv_rec => x_rulv_rec
13908: );
13909:
13910: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
13911: raise header_rule_failed;
13912: END IF;
13913:
13914: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
13944: x_rulv_tbl => l_rulv_tbl,
13945: x_rule_count => l_rule_count
13946: );
13947:
13948: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
13949: RAISE header_rule_failed;
13950: END IF;
13951:
13952: IF (l_rule_count > 0) THEN
13973: x_rgpv_rec => x_rgpv_rec,
13974: x_rulv_rec => x_rulv_rec
13975: );
13976:
13977: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
13978: raise header_rule_failed;
13979: END IF;
13980:
13981: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
14014: x_rulv_tbl => l_rulv_tbl,
14015: x_rule_count => l_rule_count
14016: );
14017:
14018: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
14019: RAISE header_rule_failed;
14020: END IF;
14021:
14022: IF (l_rule_count > 0) THEN
14053: x_rgpv_rec => x_rgpv_rec,
14054: x_rulv_rec => x_rulv_rec
14055: );
14056:
14057: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
14058: raise header_rule_failed;
14059: END IF;
14060:
14061: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
14089: x_rulv_tbl => l_rulv_tbl,
14090: x_rule_count => l_rule_count
14091: );
14092:
14093: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
14094: RAISE header_rule_failed;
14095: END IF;
14096:
14097: IF (l_rule_count > 0) THEN
14148: x_rgpv_rec => x_rgpv_rec,
14149: x_rulv_rec => x_rulv_rec
14150: );
14151:
14152: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
14153: raise header_rule_failed;
14154: END IF;
14155:
14156: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
14184: x_rulv_tbl => l_rulv_tbl,
14185: x_rule_count => l_rule_count
14186: );
14187:
14188: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
14189: RAISE header_rule_failed;
14190: END IF;
14191:
14192: IF (l_rule_count > 0) THEN
14243: x_rgpv_rec => x_rgpv_rec,
14244: x_rulv_rec => x_rulv_rec
14245: );
14246:
14247: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
14248: raise header_rule_failed;
14249: END IF;
14250:
14251: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
14279: x_rulv_tbl => l_rulv_tbl,
14280: x_rule_count => l_rule_count
14281: );
14282:
14283: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
14284: RAISE header_rule_failed;
14285: END IF;
14286:
14287: IF (l_rule_count > 0) THEN
14338: x_rgpv_rec => x_rgpv_rec,
14339: x_rulv_rec => x_rulv_rec
14340: );
14341:
14342: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
14343: raise header_rule_failed;
14344: END IF;
14345:
14346: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
14374: x_rulv_tbl => l_rulv_tbl,
14375: x_rule_count => l_rule_count
14376: );
14377:
14378: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
14379: RAISE header_rule_failed;
14380: END IF;
14381:
14382: IF (l_rule_count > 0) THEN
14433: x_rgpv_rec => x_rgpv_rec,
14434: x_rulv_rec => x_rulv_rec
14435: );
14436:
14437: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
14438: raise header_rule_failed;
14439: END IF;
14440:
14441: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
14469: x_rulv_tbl => l_rulv_tbl,
14470: x_rule_count => l_rule_count
14471: );
14472:
14473: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
14474: RAISE header_rule_failed;
14475: END IF;
14476:
14477: IF (l_rule_count > 0) THEN
14528: x_rgpv_rec => x_rgpv_rec,
14529: x_rulv_rec => x_rulv_rec
14530: );
14531:
14532: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
14533: raise header_rule_failed;
14534: END IF;
14535:
14536: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
14564: x_rulv_tbl => l_rulv_tbl,
14565: x_rule_count => l_rule_count
14566: );
14567:
14568: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
14569: RAISE header_rule_failed;
14570: END IF;
14571:
14572: IF (l_rule_count > 0) THEN
14623: x_rgpv_rec => x_rgpv_rec,
14624: x_rulv_rec => x_rulv_rec
14625: );
14626:
14627: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
14628: raise header_rule_failed;
14629: END IF;
14630:
14631: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
14668: x_rulv_tbl => l_rulv_tbl,
14669: x_rule_count => l_rule_count
14670: );
14671:
14672: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
14673: RAISE header_rule_failed;
14674: END IF;
14675:
14676: IF (l_rule_count > 0) THEN
14757: x_rgpv_rec => x_rgpv_rec,
14758: x_rulv_rec => x_rulv_rec
14759: );
14760:
14761: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
14762: raise header_rule_failed;
14763: END IF;
14764:
14765: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
14793: x_rulv_tbl => l_rulv_tbl,
14794: x_rule_count => l_rule_count
14795: );
14796:
14797: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
14798: RAISE header_rule_failed;
14799: END IF;
14800:
14801: IF (l_rule_count > 0) THEN
14852: x_rgpv_rec => x_rgpv_rec,
14853: x_rulv_rec => x_rulv_rec
14854: );
14855:
14856: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
14857: raise header_rule_failed;
14858: END IF;
14859:
14860: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
14879: x_rulv_tbl => l_rulv_tbl,
14880: x_rule_count => l_rule_count
14881: );
14882:
14883: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
14884: RAISE header_rule_failed;
14885: END IF;
14886:
14887: IF (l_rule_count > 0) THEN
14908: x_rgpv_rec => x_rgpv_rec,
14909: x_rulv_rec => x_rulv_rec
14910: );
14911:
14912: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
14913: raise header_rule_failed;
14914: END IF;
14915:
14916: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
14935: x_rulv_tbl => l_rulv_tbl,
14936: x_rule_count => l_rule_count
14937: );
14938:
14939: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
14940: RAISE header_rule_failed;
14941: END IF;
14942:
14943: IF (l_rule_count > 0) THEN
14964: x_rgpv_rec => x_rgpv_rec,
14965: x_rulv_rec => x_rulv_rec
14966: );
14967:
14968: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
14969: raise header_rule_failed;
14970: END IF;
14971:
14972: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
14995: x_rulv_tbl => l_rulv_tbl,
14996: x_rule_count => l_rule_count
14997: );
14998:
14999: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
15000: RAISE header_rule_failed;
15001: END IF;
15002:
15003: IF (l_rule_count > 0) THEN
15034: x_rgpv_rec => x_rgpv_rec,
15035: x_rulv_rec => x_rulv_rec
15036: );
15037:
15038: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
15039: raise header_rule_failed;
15040: END IF;
15041:
15042: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
15064: x_rulv_tbl => l_rulv_tbl,
15065: x_rule_count => l_rule_count
15066: );
15067:
15068: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
15069: RAISE header_rule_failed;
15070: END IF;
15071:
15072: IF (l_rule_count > 0) THEN
15093: x_rgpv_rec => x_rgpv_rec,
15094: x_rulv_rec => x_rulv_rec
15095: );
15096:
15097: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
15098: raise header_rule_failed;
15099: END IF;
15100:
15101: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
15122: x_rulv_tbl => l_rulv_tbl,
15123: x_rule_count => l_rule_count
15124: );
15125:
15126: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
15127: RAISE header_rule_failed;
15128: END IF;
15129:
15130: IF (l_rule_count > 0) THEN
15151: x_rgpv_rec => x_rgpv_rec,
15152: x_rulv_rec => x_rulv_rec
15153: );
15154:
15155: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
15156: raise header_rule_failed;
15157: END IF;
15158:
15159: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
15180: x_rulv_tbl => l_rulv_tbl,
15181: x_rule_count => l_rule_count
15182: );
15183:
15184: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
15185: RAISE header_rule_failed;
15186: END IF;
15187:
15188: IF (l_rule_count > 0) THEN
15209: x_rgpv_rec => x_rgpv_rec,
15210: x_rulv_rec => x_rulv_rec
15211: );
15212:
15213: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
15214: raise header_rule_failed;
15215: END IF;
15216:
15217: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
15238: x_rulv_tbl => l_rulv_tbl,
15239: x_rule_count => l_rule_count
15240: );
15241:
15242: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
15243: RAISE header_rule_failed;
15244: END IF;
15245:
15246: IF (l_rule_count > 0) THEN
15267: x_rgpv_rec => x_rgpv_rec,
15268: x_rulv_rec => x_rulv_rec
15269: );
15270:
15271: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
15272: raise header_rule_failed;
15273: END IF;
15274:
15275: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
15296: x_rulv_tbl => l_rulv_tbl,
15297: x_rule_count => l_rule_count
15298: );
15299:
15300: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
15301: RAISE header_rule_failed;
15302: END IF;
15303:
15304: IF (l_rule_count > 0) THEN
15325: x_rgpv_rec => x_rgpv_rec,
15326: x_rulv_rec => x_rulv_rec
15327: );
15328:
15329: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
15330: raise header_rule_failed;
15331: END IF;
15332:
15333: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
15354: x_rulv_tbl => l_rulv_tbl,
15355: x_rule_count => l_rule_count
15356: );
15357:
15358: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
15359: RAISE header_rule_failed;
15360: END IF;
15361:
15362: IF (l_rule_count > 0) THEN
15383: x_rgpv_rec => x_rgpv_rec,
15384: x_rulv_rec => x_rulv_rec
15385: );
15386:
15387: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
15388: raise header_rule_failed;
15389: END IF;
15390:
15391: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
15412: x_rulv_tbl => l_rulv_tbl,
15413: x_rule_count => l_rule_count
15414: );
15415:
15416: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
15417: RAISE header_rule_failed;
15418: END IF;
15419:
15420: IF (l_rule_count > 0) THEN
15441: x_rgpv_rec => x_rgpv_rec,
15442: x_rulv_rec => x_rulv_rec
15443: );
15444:
15445: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
15446: raise header_rule_failed;
15447: END IF;
15448:
15449: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
15470: x_rulv_tbl => l_rulv_tbl,
15471: x_rule_count => l_rule_count
15472: );
15473:
15474: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
15475: RAISE header_rule_failed;
15476: END IF;
15477:
15478: IF (l_rule_count > 0) THEN
15499: x_rgpv_rec => x_rgpv_rec,
15500: x_rulv_rec => x_rulv_rec
15501: );
15502:
15503: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
15504: raise header_rule_failed;
15505: END IF;
15506:
15507: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
15542: x_rulv_tbl => l_rulv_tbl,
15543: x_rule_count => l_rule_count
15544: );
15545:
15546: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
15547: RAISE header_rule_failed;
15548: END IF;
15549:
15550: IF (l_rule_count > 0) THEN
15581: x_rgpv_rec => x_rgpv_rec,
15582: x_rulv_rec => x_rulv_rec
15583: );
15584:
15585: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
15586: raise header_rule_failed;
15587: END IF;
15588:
15589: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
15617: x_rulv_tbl => l_rulv_tbl,
15618: x_rule_count => l_rule_count
15619: );
15620:
15621: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
15622: RAISE header_rule_failed;
15623: END IF;
15624:
15625: IF (l_rule_count > 0) THEN
15676: x_rgpv_rec => x_rgpv_rec,
15677: x_rulv_rec => x_rulv_rec
15678: );
15679:
15680: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
15681: raise header_rule_failed;
15682: END IF;
15683:
15684: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
15712: x_rulv_tbl => l_rulv_tbl,
15713: x_rule_count => l_rule_count
15714: );
15715:
15716: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
15717: RAISE header_rule_failed;
15718: END IF;
15719:
15720: IF (l_rule_count > 0) THEN
15771: x_rgpv_rec => x_rgpv_rec,
15772: x_rulv_rec => x_rulv_rec
15773: );
15774:
15775: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
15776: raise header_rule_failed;
15777: END IF;
15778:
15779: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
15807: x_rulv_tbl => l_rulv_tbl,
15808: x_rule_count => l_rule_count
15809: );
15810:
15811: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
15812: RAISE header_rule_failed;
15813: END IF;
15814:
15815: IF (l_rule_count > 0) THEN
15866: x_rgpv_rec => x_rgpv_rec,
15867: x_rulv_rec => x_rulv_rec
15868: );
15869:
15870: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
15871: raise header_rule_failed;
15872: END IF;
15873:
15874: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
15902: x_rulv_tbl => l_rulv_tbl,
15903: x_rule_count => l_rule_count
15904: );
15905:
15906: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
15907: RAISE header_rule_failed;
15908: END IF;
15909:
15910: IF (l_rule_count > 0) THEN
15961: x_rgpv_rec => x_rgpv_rec,
15962: x_rulv_rec => x_rulv_rec
15963: );
15964:
15965: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
15966: raise header_rule_failed;
15967: END IF;
15968:
15969: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
15997: x_rulv_tbl => l_rulv_tbl,
15998: x_rule_count => l_rule_count
15999: );
16000:
16001: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
16002: RAISE header_rule_failed;
16003: END IF;
16004:
16005: IF (l_rule_count > 0) THEN
16056: x_rgpv_rec => x_rgpv_rec,
16057: x_rulv_rec => x_rulv_rec
16058: );
16059:
16060: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
16061: raise header_rule_failed;
16062: END IF;
16063:
16064: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
16092: x_rulv_tbl => l_rulv_tbl,
16093: x_rule_count => l_rule_count
16094: );
16095:
16096: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
16097: RAISE header_rule_failed;
16098: END IF;
16099:
16100: IF (l_rule_count > 0) THEN
16151: x_rgpv_rec => x_rgpv_rec,
16152: x_rulv_rec => x_rulv_rec
16153: );
16154:
16155: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
16156: raise header_rule_failed;
16157: END IF;
16158:
16159: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
16196: x_rulv_tbl => l_rulv_tbl,
16197: x_rule_count => l_rule_count
16198: );
16199:
16200: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
16201: RAISE header_rule_failed;
16202: END IF;
16203:
16204: IF (l_rule_count > 0) THEN
16285: x_rgpv_rec => x_rgpv_rec,
16286: x_rulv_rec => x_rulv_rec
16287: );
16288:
16289: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
16290: raise header_rule_failed;
16291: END IF;
16292:
16293: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
16321: x_rulv_tbl => l_rulv_tbl,
16322: x_rule_count => l_rule_count
16323: );
16324:
16325: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
16326: RAISE header_rule_failed;
16327: END IF;
16328:
16329: IF (l_rule_count > 0) THEN
16380: x_rgpv_rec => x_rgpv_rec,
16381: x_rulv_rec => x_rulv_rec
16382: );
16383:
16384: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
16385: raise header_rule_failed;
16386: END IF;
16387:
16388: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
16407: x_rulv_tbl => l_rulv_tbl,
16408: x_rule_count => l_rule_count
16409: );
16410:
16411: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
16412: RAISE header_rule_failed;
16413: END IF;
16414:
16415: IF (l_rule_count > 0) THEN
16436: x_rgpv_rec => x_rgpv_rec,
16437: x_rulv_rec => x_rulv_rec
16438: );
16439:
16440: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
16441: raise header_rule_failed;
16442: END IF;
16443:
16444: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
16463: x_rulv_tbl => l_rulv_tbl,
16464: x_rule_count => l_rule_count
16465: );
16466:
16467: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
16468: RAISE header_rule_failed;
16469: END IF;
16470:
16471: IF (l_rule_count > 0) THEN
16492: x_rgpv_rec => x_rgpv_rec,
16493: x_rulv_rec => x_rulv_rec
16494: );
16495:
16496: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
16497: raise header_rule_failed;
16498: END IF;
16499:
16500: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
16523: x_rulv_tbl => l_rulv_tbl,
16524: x_rule_count => l_rule_count
16525: );
16526:
16527: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
16528: RAISE header_rule_failed;
16529: END IF;
16530:
16531: IF (l_rule_count > 0) THEN
16562: x_rgpv_rec => x_rgpv_rec,
16563: x_rulv_rec => x_rulv_rec
16564: );
16565:
16566: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
16567: raise header_rule_failed;
16568: END IF;
16569:
16570: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
16592: x_rulv_tbl => l_rulv_tbl,
16593: x_rule_count => l_rule_count
16594: );
16595:
16596: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
16597: RAISE header_rule_failed;
16598: END IF;
16599:
16600: IF (l_rule_count > 0) THEN
16621: x_rgpv_rec => x_rgpv_rec,
16622: x_rulv_rec => x_rulv_rec
16623: );
16624:
16625: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
16626: raise header_rule_failed;
16627: END IF;
16628:
16629: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
16650: x_rulv_tbl => l_rulv_tbl,
16651: x_rule_count => l_rule_count
16652: );
16653:
16654: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
16655: RAISE header_rule_failed;
16656: END IF;
16657:
16658: IF (l_rule_count > 0) THEN
16679: x_rgpv_rec => x_rgpv_rec,
16680: x_rulv_rec => x_rulv_rec
16681: );
16682:
16683: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
16684: raise header_rule_failed;
16685: END IF;
16686:
16687: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
16708: x_rulv_tbl => l_rulv_tbl,
16709: x_rule_count => l_rule_count
16710: );
16711:
16712: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
16713: RAISE header_rule_failed;
16714: END IF;
16715:
16716: IF (l_rule_count > 0) THEN
16737: x_rgpv_rec => x_rgpv_rec,
16738: x_rulv_rec => x_rulv_rec
16739: );
16740:
16741: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
16742: raise header_rule_failed;
16743: END IF;
16744:
16745: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
16766: x_rulv_tbl => l_rulv_tbl,
16767: x_rule_count => l_rule_count
16768: );
16769:
16770: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
16771: RAISE header_rule_failed;
16772: END IF;
16773:
16774: IF (l_rule_count > 0) THEN
16795: x_rgpv_rec => x_rgpv_rec,
16796: x_rulv_rec => x_rulv_rec
16797: );
16798:
16799: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
16800: raise header_rule_failed;
16801: END IF;
16802:
16803: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
16824: x_rulv_tbl => l_rulv_tbl,
16825: x_rule_count => l_rule_count
16826: );
16827:
16828: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
16829: RAISE header_rule_failed;
16830: END IF;
16831:
16832: IF (l_rule_count > 0) THEN
16853: x_rgpv_rec => x_rgpv_rec,
16854: x_rulv_rec => x_rulv_rec
16855: );
16856:
16857: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
16858: raise header_rule_failed;
16859: END IF;
16860:
16861: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
16882: x_rulv_tbl => l_rulv_tbl,
16883: x_rule_count => l_rule_count
16884: );
16885:
16886: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
16887: RAISE header_rule_failed;
16888: END IF;
16889:
16890: IF (l_rule_count > 0) THEN
16911: x_rgpv_rec => x_rgpv_rec,
16912: x_rulv_rec => x_rulv_rec
16913: );
16914:
16915: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
16916: raise header_rule_failed;
16917: END IF;
16918:
16919: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
16940: x_rulv_tbl => l_rulv_tbl,
16941: x_rule_count => l_rule_count
16942: );
16943:
16944: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
16945: RAISE header_rule_failed;
16946: END IF;
16947:
16948: IF (l_rule_count > 0) THEN
16969: x_rgpv_rec => x_rgpv_rec,
16970: x_rulv_rec => x_rulv_rec
16971: );
16972:
16973: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
16974: raise header_rule_failed;
16975: END IF;
16976:
16977: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
16998: x_rulv_tbl => l_rulv_tbl,
16999: x_rule_count => l_rule_count
17000: );
17001:
17002: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
17003: RAISE header_rule_failed;
17004: END IF;
17005:
17006: IF (l_rule_count > 0) THEN
17027: x_rgpv_rec => x_rgpv_rec,
17028: x_rulv_rec => x_rulv_rec
17029: );
17030:
17031: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
17032: raise header_rule_failed;
17033: END IF;
17034:
17035: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
17063: x_return_status => x_return_status,
17064: p_lien_holder_name => p_header_rec.lien_holder_name,
17065: p_lien_holder_id => p_header_rec.lien_holder_id
17066: );
17067: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
17068: okl_api.set_message(
17069: G_APP_NAME,
17070: G_INVALID_VALUE,
17071: 'CONTRACT_NUM',
17064: p_lien_holder_name => p_header_rec.lien_holder_name,
17065: p_lien_holder_id => p_header_rec.lien_holder_id
17066: );
17067: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
17068: okl_api.set_message(
17069: G_APP_NAME,
17070: G_INVALID_VALUE,
17071: 'CONTRACT_NUM',
17072: p_header_rec.contract_number_old,
17123: x_rulv_tbl => l_rulv_tbl,
17124: x_rule_count => l_rule_count
17125: );
17126:
17127: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
17128: RAISE header_rule_failed;
17129: END IF;
17130:
17131: IF (l_rule_count > 0) THEN
17244: x_rgpv_rec => x_rgpv_rec,
17245: x_rulv_rec => x_rulv_rec
17246: );
17247:
17248: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
17249: raise header_rule_failed;
17250: END IF;
17251:
17252: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
17283: p_party_number => l_title_issuer_name,
17284: x_party_id => x_title_issuer_id
17285: );
17286:
17287: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
17288: RAISE header_rule_failed;
17289: END IF;
17290: END IF;
17291:
17304: p_party_number => l_title_custodian_name,
17305: x_party_id => x_title_custodian_id
17306: );
17307:
17308: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
17309: RAISE header_rule_failed;
17310: END IF;
17311: END IF;
17312:
17342: x_rulv_tbl => l_rulv_tbl,
17343: x_rule_count => l_rule_count
17344: );
17345:
17346: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
17347: RAISE header_rule_failed;
17348: END IF;
17349:
17350: IF (l_rule_count > 0) THEN
17465: x_rgpv_rec => x_rgpv_rec,
17466: x_rulv_rec => x_rulv_rec
17467: );
17468:
17469: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
17470: raise header_rule_failed;
17471: END IF;
17472:
17473: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
17507: x_rulv_tbl => l_rulv_tbl,
17508: x_rule_count => l_rule_count
17509: );
17510:
17511: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
17512: RAISE header_rule_failed;
17513: END IF;
17514:
17515: IF (l_rule_count > 0) THEN
17536: x_rgpv_rec => x_rgpv_rec,
17537: x_rulv_rec => x_rulv_rec
17538: );
17539:
17540: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
17541: raise header_rule_failed;
17542: END IF;
17543:
17544: debug_message('------>Rule: AMCOPO/AMAPRE processed');
17564: x_rulv_tbl => l_rulv_tbl,
17565: x_rule_count => l_rule_count
17566: );
17567:
17568: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
17569: RAISE header_rule_failed;
17570: END IF;
17571:
17572: IF (l_rule_count > 0) THEN
17593: x_rgpv_rec => x_rgpv_rec,
17594: x_rulv_rec => x_rulv_rec
17595: );
17596:
17597: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
17598: raise header_rule_failed;
17599: END IF;
17600:
17601: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
17626: x_rulv_tbl => l_rulv_tbl,
17627: x_rule_count => l_rule_count
17628: );
17629:
17630: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
17631: RAISE header_rule_failed;
17632: END IF;
17633:
17634: IF (l_rule_count > 0) THEN
17680: x_rgpv_rec => x_rgpv_rec,
17681: x_rulv_rec => x_rulv_rec
17682: );
17683:
17684: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
17685: raise header_rule_failed;
17686: END IF;
17687:
17688: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
17707: x_rulv_tbl => l_rulv_tbl,
17708: x_rule_count => l_rule_count
17709: );
17710:
17711: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
17712: RAISE header_rule_failed;
17713: END IF;
17714:
17715: IF (l_rule_count > 0) THEN
17736: x_rgpv_rec => x_rgpv_rec,
17737: x_rulv_rec => x_rulv_rec
17738: );
17739:
17740: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
17741: raise header_rule_failed;
17742: END IF;
17743:
17744: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
17762: x_rulv_tbl => l_rulv_tbl,
17763: x_rule_count => l_rule_count
17764: );
17765:
17766: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
17767: RAISE header_rule_failed;
17768: END IF;
17769:
17770: IF (l_rule_count > 0) THEN
17791: x_rgpv_rec => x_rgpv_rec,
17792: x_rulv_rec => x_rulv_rec
17793: );
17794:
17795: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
17796: raise header_rule_failed;
17797: END IF;
17798:
17799: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
17844: x_rulv_tbl => l_rulv_tbl,
17845: x_rule_count => l_rule_count
17846: );
17847:
17848: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
17849: RAISE header_rule_failed;
17850: END IF;
17851:
17852: IF (l_rule_count > 0) THEN
17896: x_rgpv_rec => x_rgpv_rec,
17897: x_rulv_rec => x_rulv_rec
17898: );
17899:
17900: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
17901: raise header_rule_failed;
17902: END IF;
17903:
17904: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
17927: x_rulv_tbl => l_rulv_tbl,
17928: x_rule_count => l_rule_count
17929: );
17930:
17931: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
17932: RAISE header_rule_failed;
17933: END IF;
17934:
17935: IF (l_rule_count > 0) THEN
17966: x_rgpv_rec => x_rgpv_rec,
17967: x_rulv_rec => x_rulv_rec
17968: );
17969:
17970: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
17971: raise header_rule_failed;
17972: END IF;
17973:
17974: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
17993: x_rulv_tbl => l_rulv_tbl,
17994: x_rule_count => l_rule_count
17995: );
17996:
17997: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
17998: RAISE header_rule_failed;
17999: END IF;
18000:
18001: IF (l_rule_count > 0) THEN
18022: x_rgpv_rec => x_rgpv_rec,
18023: x_rulv_rec => x_rulv_rec
18024: );
18025:
18026: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
18027: raise header_rule_failed;
18028: END IF;
18029:
18030: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
18068: x_rulv_tbl => l_rulv_tbl,
18069: x_rule_count => l_rule_count
18070: );
18071:
18072: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
18073: RAISE header_rule_failed;
18074: END IF;
18075:
18076: IF (l_rule_count > 0) THEN
18157: x_rgpv_rec => x_rgpv_rec,
18158: x_rulv_rec => x_rulv_rec
18159: );
18160:
18161: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
18162: raise header_rule_failed;
18163: END IF;
18164:
18165: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
18195: x_name => l_st_stream_name
18196: );
18197: l_st_bill_stream_id := l_id1;
18198:
18199: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
18200: okl_api.set_message(
18201: G_APP_NAME,
18202: G_INVALID_VALUE,
18203: 'CONTRACT_NUM',
18196: );
18197: l_st_bill_stream_id := l_id1;
18198:
18199: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
18200: okl_api.set_message(
18201: G_APP_NAME,
18202: G_INVALID_VALUE,
18203: 'CONTRACT_NUM',
18204: p_header_rec.contract_number_old,
18206: 'ST_BILL_STREAM_TYPE_CODE, ST_BILL_STREAM_PURPOSE_CODE',
18207: 'COL_VALUE',
18208: l_st_bill_stream_type_code||', '||l_st_bill_stream_purpose_code
18209: );
18210: x_return_status := OKL_API.G_RET_STS_ERROR;
18211: RAISE header_rule_failed;
18212: END IF;
18213: END IF;
18214:
18225: x_name => l_st_stream_name
18226: );
18227: l_st_fin_stream_id := l_id1;
18228:
18229: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
18230: okl_api.set_message(
18231: G_APP_NAME,
18232: G_INVALID_VALUE,
18233: 'CONTRACT_NUM',
18226: );
18227: l_st_fin_stream_id := l_id1;
18228:
18229: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
18230: okl_api.set_message(
18231: G_APP_NAME,
18232: G_INVALID_VALUE,
18233: 'CONTRACT_NUM',
18234: p_header_rec.contract_number_old,
18236: 'ST_FIN_STREAM_TYPE_CODE, ST_FIN_STREAM_PURPOSE_CODE',
18237: 'COL_VALUE',
18238: l_st_fin_stream_type_code||', '||l_st_fin_stream_purpose_code
18239: );
18240: x_return_status := OKL_API.G_RET_STS_ERROR;
18241: RAISE header_rule_failed;
18242: END IF;
18243: END IF;
18244:
18255: x_name => l_st_stream_name
18256: );
18257: l_st_cap_stream_id := l_id1;
18258:
18259: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
18260: okl_api.set_message(
18261: G_APP_NAME,
18262: G_INVALID_VALUE,
18263: 'CONTRACT_NUM',
18256: );
18257: l_st_cap_stream_id := l_id1;
18258:
18259: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
18260: okl_api.set_message(
18261: G_APP_NAME,
18262: G_INVALID_VALUE,
18263: 'CONTRACT_NUM',
18264: p_header_rec.contract_number_old,
18266: 'ST_CAP_STREAM_TYPE_CODE, ST_CAP_STREAM_PURPOSE_CODE',
18267: 'COL_VALUE',
18268: l_st_cap_stream_type_code||', '||l_st_cap_stream_purpose_code
18269: );
18270: x_return_status := OKL_API.G_RET_STS_ERROR;
18271: RAISE header_rule_failed;
18272: END IF;
18273: END IF;
18274:
18295: x_rulv_tbl => l_rulv_tbl,
18296: x_rule_count => l_rule_count
18297: );
18298:
18299: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
18300: RAISE header_rule_failed;
18301: END IF;
18302:
18303: IF (l_rule_count > 0) THEN
18384: x_rgpv_rec => x_rgpv_rec,
18385: x_rulv_rec => x_rulv_rec
18386: );
18387:
18388: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
18389: raise header_rule_failed;
18390: END IF;
18391:
18392: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
18398:
18399: EXCEPTION
18400:
18401: WHEN header_rule_failed THEN
18402: x_return_status := OKL_API.G_RET_STS_ERROR;
18403: debug_message('------>Error with: '||l_rgpv_rec.rgd_code);
18404: debug_message('------>Rule Catg: '|| l_rulv_rec.rule_information_category);
18405:
18406: WHEN OTHERS THEN
18403: debug_message('------>Error with: '||l_rgpv_rec.rgd_code);
18404: debug_message('------>Rule Catg: '|| l_rulv_rec.rule_information_category);
18405:
18406: WHEN OTHERS THEN
18407: okl_api.set_message(
18408: G_APP_NAME,
18409: G_UNEXPECTED_ERROR,
18410: 'OKL_SQLCODE',
18411: SQLCODE,
18412: 'OKL_SQLERRM',
18413: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
18414: );
18415:
18416: x_return_status := OKL_API.G_RET_STS_ERROR;
18417: debug_message('Others : '||l_progress);
18418:
18419: END create_header_rules;
18420:
18472: p_salesperson_name,
18473: p_authoring_org_id);
18474: FETCH sale_csr INTO l_id;
18475: IF sale_csr%NOTFOUND THEN
18476: okl_api.set_message(
18477: G_APP_NAME,
18478: G_INVALID_VALUE,
18479: 'COL_NAME',
18480: 'SALESPERSON_NAME, ID',
18505: x_msg_count => x_msg_count,
18506: x_msg_data => x_msg_data,
18507: p_ctcv_rec => l_ctcv_rec,
18508: x_ctcv_rec => x_ctcv_rec);
18509: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
18510: x_return_status := OKL_API.G_RET_STS_ERROR;
18511: raise contact_failed;
18512: END IF;
18513:
18506: x_msg_data => x_msg_data,
18507: p_ctcv_rec => l_ctcv_rec,
18508: x_ctcv_rec => x_ctcv_rec);
18509: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
18510: x_return_status := OKL_API.G_RET_STS_ERROR;
18511: raise contact_failed;
18512: END IF;
18513:
18514: END IF;
18516: return;
18517:
18518: EXCEPTION
18519: WHEN contact_failed THEN
18520: x_return_status := OKL_API.G_RET_STS_ERROR;
18521:
18522: WHEN OTHERS THEN
18523: okl_api.set_message(
18524: G_APP_NAME,
18519: WHEN contact_failed THEN
18520: x_return_status := OKL_API.G_RET_STS_ERROR;
18521:
18522: WHEN OTHERS THEN
18523: okl_api.set_message(
18524: G_APP_NAME,
18525: G_UNEXPECTED_ERROR,
18526: 'OKL_SQLCODE',
18527: SQLCODE,
18528: 'OKL_SQLERRM',
18529: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
18530: );
18531:
18532: x_return_status := OKL_API.G_RET_STS_ERROR;
18533:
18534:
18535: END create_contact;
18536:
18594: ship_failed EXCEPTION;
18595:
18596: BEGIN
18597:
18598: x_return_status := OKL_API.G_RET_STS_SUCCESS;
18599: debug_message(l_proc_name);
18600: debug_message('Customer: '|| g_customer_id);
18601: debug_message('Cust Acc: '|| g_customer_account_id);
18602: debug_message('p_ship_to_site_id: '|| p_ship_to_site_id);
18633: END IF;
18634: IF (cust_ship_csr%ISOPEN) THEN
18635: CLOSE cust_ship_csr;
18636: END IF;
18637: okl_api.set_message(
18638: G_APP_NAME,
18639: G_INVALID_VALUE,
18640: 'COL_NAME',
18641: 'SHIP_TO_SITE, ID',
18643: p_ship_to_site_number||', '||p_ship_to_site_id,
18644: 'CONTRACT_NUM',
18645: p_contract_number||'/'||p_line_number
18646: );
18647: x_return_status := OKL_API.G_RET_STS_ERROR;
18648:
18649: END get_ship_to_site;
18650:
18651: ------------------------------------------------------------------------------
18683: gaddr_failed EXCEPTION;
18684:
18685: BEGIN
18686:
18687: x_return_status := OKL_API.G_RET_STS_SUCCESS;
18688: OPEN gaddr_csr (p_guarantor_site_id,
18689: p_guarantor_site_number);
18690: FETCH gaddr_csr INTO l_id;
18691: IF (gaddr_csr%NOTFOUND) THEN
18701: WHEN gaddr_failed THEN
18702: IF (gaddr_csr%ISOPEN) THEN
18703: CLOSE gaddr_csr;
18704: END IF;
18705: okl_api.set_message(
18706: G_APP_NAME,
18707: G_INVALID_VALUE,
18708: 'COL_NAME',
18709: 'GUARANTOR_SITE, ID',
18711: p_guarantor_site_number||', '||p_guarantor_site_id,
18712: 'CONTRACT_NUM',
18713: p_contract_number||'/'||p_line_number
18714: );
18715: x_return_status := OKL_API.G_RET_STS_ERROR;
18716:
18717: END get_guarantor_address;
18718:
18719: ------------------------------------------------------------------------------
18751: OPEN rrd_csr (p_rgd_code,
18752: p_rle_code);
18753: FETCH rrd_csr INTO l_id;
18754: IF rrd_csr%NOTFOUND THEN
18755: x_return_status := OKL_API.G_RET_STS_ERROR;
18756: END IF;
18757: CLOSE rrd_csr;
18758:
18759: x_rrd_id := l_id;
18760: return;
18761:
18762: EXCEPTION
18763: WHEN OTHERS THEN
18764: x_return_status := OKL_API.G_RET_STS_ERROR;
18765: END get_rrd_id;
18766:
18767:
18768:
18819: x_kplv_rec kplv_rec_type;
18820:
18821: BEGIN
18822:
18823: x_return_status := OKL_API.G_RET_STS_SUCCESS;
18824:
18825: IF (p_label_number IS NOT NULL
18826: OR
18827: p_label_id IS NOT NULL) THEN
18845: p_cplv_rec.rle_code := 'PRIVATE_LABEL';
18846:
18847: OKL_K_PARTY_ROLES_PVT.create_k_party_role(
18848: p_api_version => 1.0,
18849: p_init_msg_list => OKL_API.G_FALSE,
18850: x_return_status => x_return_status,
18851: x_msg_count => x_msg_count,
18852: x_msg_data => x_msg_data,
18853: p_cplv_rec => p_cplv_rec,
18855: x_cplv_rec => x_cplv_rec,
18856: x_kplv_rec => x_kplv_rec
18857: );
18858:
18859: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
18860: RAISE party_failed;
18861: END IF;
18862:
18863: l_rgpv_rec := NULL;
18889: x_rgpv_rec => x_rgpv_rec,
18890: x_rulv_rec => x_rulv_rec
18891: );
18892:
18893: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
18894: raise party_failed;
18895: END IF;
18896:
18897: get_rrd_id(
18899: p_rgd_code => 'LALABL',
18900: p_rle_code => 'PRIVATE_LABEL',
18901: x_rrd_id => x_rrd_id
18902: );
18903: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
18904: okl_api.set_message(
18905: G_APP_NAME,
18906: G_LABEL_SETUP_ERROR,
18907: 'CONTRACT_NUM',
18900: p_rle_code => 'PRIVATE_LABEL',
18901: x_rrd_id => x_rrd_id
18902: );
18903: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
18904: okl_api.set_message(
18905: G_APP_NAME,
18906: G_LABEL_SETUP_ERROR,
18907: 'CONTRACT_NUM',
18908: p_contract_number
18906: G_LABEL_SETUP_ERROR,
18907: 'CONTRACT_NUM',
18908: p_contract_number
18909: );
18910: x_return_status := OKL_API.G_RET_STS_ERROR;
18911: RAISE party_failed;
18912: END IF;
18913:
18914: l_rmpv_rec.rgp_id := x_rgpv_rec.id;
18917: l_rmpv_rec.dnz_chr_id := p_chr_id;
18918:
18919: okl_rule_pub.create_rg_mode_pty_role(
18920: p_api_version => 1.0,
18921: p_init_msg_list => OKL_API.G_FALSE,
18922: x_return_status => x_return_status,
18923: x_msg_count => x_msg_count,
18924: x_msg_data => x_msg_data,
18925: p_rmpv_rec => l_rmpv_rec,
18924: x_msg_data => x_msg_data,
18925: p_rmpv_rec => l_rmpv_rec,
18926: x_rmpv_rec => x_rmpv_rec
18927: );
18928: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
18929: x_return_status := OKL_API.G_RET_STS_ERROR;
18930: raise party_failed;
18931: END IF;
18932:
18925: p_rmpv_rec => l_rmpv_rec,
18926: x_rmpv_rec => x_rmpv_rec
18927: );
18928: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
18929: x_return_status := OKL_API.G_RET_STS_ERROR;
18930: raise party_failed;
18931: END IF;
18932:
18933: END IF; --label_url
18938: WHEN party_failed THEN
18939: IF party_csr%ISOPEN THEN
18940: CLOSE party_csr;
18941: END IF;
18942: okl_api.set_message(
18943: G_APP_NAME,
18944: G_INVALID_VALUE,
18945: 'COL_NAME',
18946: 'PRIVATE_LABEL_NUMBER, ID',
18948: p_label_number||', '||p_label_id,
18949: 'CONTRACT_NUM',
18950: p_contract_number
18951: );
18952: x_return_status := OKL_API.G_RET_STS_ERROR;
18953:
18954: END create_private_label;
18955:
18956: -- strat cklee 02/16/2004 bug# 3440442
18980: intf_party_rec intf_party_rec_type;
18981:
18982: BEGIN
18983:
18984: x_return_status := OKL_API.G_RET_STS_SUCCESS;
18985: --
18986: -- 1. validation
18987: --
18988: -- 3rd party insurace
19022: x_party_id => l_intf_header.insurance_company_id,
19023: x_party_site_id => l_intf_header.insurance_company_site_id
19024: );
19025:
19026: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
19027: RAISE v_3rd_party_insurance_failed;
19028: END IF;
19029: END IF;
19030: l_progress := 'validate insurance company name/site';
19065: x_party_id => l_intf_header.agent_id,
19066: x_party_site_id => l_intf_header.agent_address_site_id
19067: );
19068:
19069: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
19070: RAISE v_3rd_party_insurance_failed;
19071: END IF;
19072: END IF;
19073: l_progress := 'validate insurance agent name/address site';
19073: l_progress := 'validate insurance agent name/address site';
19074:
19075:
19076: IF (NVL(p_intf_header.LESSOR_INSURED_FLAG,'N') NOT IN ('Y','N')) THEN
19077: okl_api.set_message(
19078: G_APP_NAME,
19079: G_INVALID_VALUE,
19080: 'CONTRACT_NUM',
19081: p_intf_header.contract_number_old,
19084: 'COL_VALUE',
19085: p_intf_header.LESSOR_INSURED_FLAG
19086: );
19087:
19088: x_return_status := OKL_API.G_RET_STS_ERROR;
19089:
19090: RAISE v_3rd_party_insurance_failed;
19091: END IF;
19092: l_progress := 'validate LESSOR_INSURED_FLAG';
19091: END IF;
19092: l_progress := 'validate LESSOR_INSURED_FLAG';
19093:
19094: IF (NVL(p_intf_header.LESSOR_PAYEE_FLAG,'N') NOT IN ('Y','N')) THEN
19095: okl_api.set_message(
19096: G_APP_NAME,
19097: G_INVALID_VALUE,
19098: 'CONTRACT_NUM',
19099: p_intf_header.contract_number_old,
19102: 'COL_VALUE',
19103: p_intf_header.LESSOR_PAYEE_FLAG
19104: );
19105:
19106: x_return_status := OKL_API.G_RET_STS_ERROR;
19107:
19108: RAISE v_3rd_party_insurance_failed;
19109: END IF;
19110: l_progress := 'validate LESSOR_PAYEE_FLAG';
19113: x_intf_header := l_intf_header;
19114:
19115: EXCEPTION
19116: WHEN v_3rd_party_insurance_failed THEN
19117: x_return_status := OKL_API.G_RET_STS_ERROR;
19118: debug_message(l_proc_name ||': '||l_progress);
19119:
19120: WHEN OTHERS THEN
19121: x_return_status := OKL_API.G_RET_STS_ERROR;
19117: x_return_status := OKL_API.G_RET_STS_ERROR;
19118: debug_message(l_proc_name ||': '||l_progress);
19119:
19120: WHEN OTHERS THEN
19121: x_return_status := OKL_API.G_RET_STS_ERROR;
19122: debug_message(l_proc_name ||': '||l_progress);
19123:
19124: END validate_3rd_party_insurance;
19125:
19150: x_ipyv_rec okl_ipy_pvt.ipyv_rec_type;
19151:
19152: BEGIN
19153:
19154: x_return_status := OKL_API.G_RET_STS_SUCCESS;
19155: --
19156: -- 1. validation
19157: --
19158: validate_3rd_party_insurance(x_return_status => x_return_status,
19162: x_intf_header => x_intf_header
19163: );
19164:
19165:
19166: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
19167: raise e_3rd_party_insurance_failed;
19168: END IF;
19169:
19170: --
19194: l_ipyv_rec.date_proof_provided := x_intf_header.PROOF_PROVIDED_DATE;
19195:
19196: OKL_INS_POLICIES_PUB.INSERT_INS_POLICIES(
19197: p_api_version => 1.0,
19198: p_init_msg_list => OKL_API.G_FALSE,
19199: x_return_status => x_return_status,
19200: x_msg_count => x_msg_count,
19201: x_msg_data => x_msg_data,
19202: p_ipyv_rec => l_ipyv_rec,
19202: p_ipyv_rec => l_ipyv_rec,
19203: x_ipyv_rec => x_ipyv_rec
19204: );
19205:
19206: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
19207: RAISE e_3rd_party_insurance_failed;
19208: END IF;
19209: l_progress := 'Create 3rd insurance record';
19210:
19209: l_progress := 'Create 3rd insurance record';
19210:
19211: EXCEPTION
19212: WHEN e_3rd_party_insurance_failed THEN
19213: x_return_status := OKL_API.G_RET_STS_ERROR;
19214: debug_message(l_proc_name ||': '||l_progress);
19215:
19216: WHEN OTHERS THEN
19217: x_return_status := OKL_API.G_RET_STS_ERROR;
19213: x_return_status := OKL_API.G_RET_STS_ERROR;
19214: debug_message(l_proc_name ||': '||l_progress);
19215:
19216: WHEN OTHERS THEN
19217: x_return_status := OKL_API.G_RET_STS_ERROR;
19218: debug_message(l_proc_name ||': '||l_progress);
19219:
19220: END create_3rd_party_insurance;
19221:
19246:
19247: l_paygroup po_vendor_sites_all.pay_group_lookup_code%TYPE;
19248: BEGIN
19249:
19250: x_return_status := OKL_API.G_RET_STS_SUCCESS;
19251:
19252: OPEN paygroup_csr (p_vendor_paysite_id,
19253: p_auth_org_id);
19254: FETCH paygroup_csr INTO l_paygroup;
19466: l_cont_pmnt_dtls_tbl_in ppydv_tbl_type;
19467: l_cont_pmnt_dtls_tbl_out ppydv_tbl_type;
19468: BEGIN
19469:
19470: x_return_status := OKL_API.G_RET_STS_SUCCESS;
19471: debug_message(l_proc_name);
19472:
19473: IF (p_asset_vendor_id IS NOT NULL) THEN
19474: x_asset_vendor_id := p_asset_vendor_id;
19481: p_line_number => p_line_number,
19482: x_vendor_id => x_asset_vendor_id,
19483: p_vendor_name => p_asset_vendor_name
19484: );
19485: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
19486: RAISE party_role_failed;
19487: END IF;
19488: END IF;
19489:
19499: p_vend_as_customer_id);
19500:
19501: FETCH customer_csr INTO l_vend_cust_id;
19502: IF customer_csr%NOTFOUND THEN
19503: okl_api.set_message(
19504: G_APP_NAME,
19505: G_INVALID_VALUE,
19506: 'CONTRACT_NUM',
19507: p_contract_number,
19509: 'VENDOR AS CUSTOMER ACCOUNT',
19510: 'COL_VALUE',
19511: p_vend_as_customer_id||', '||p_vend_as_customer_number
19512: );
19513: x_return_status := OKL_API.G_RET_STS_ERROR;
19514: RAISE party_role_failed;
19515: END IF;
19516:
19517: CLOSE customer_csr;
19515: END IF;
19516:
19517: CLOSE customer_csr;
19518: ELSE
19519: okl_api.set_message(
19520: G_APP_NAME,
19521: G_MISSING_VALUE,
19522: 'CONTRACT_NUM',
19523: p_contract_number,
19523: p_contract_number,
19524: 'COL_NAME',
19525: 'VENDOR AS CUSTOMER'
19526: );
19527: x_return_status := OKL_API.G_RET_STS_ERROR;
19528: RAISE party_role_failed;
19529: END IF; -- Vend as customer
19530:
19531: IF (p_vend_as_cust_acc_id IS NOT NULL
19542: p_customer_account_number => p_vend_as_cust_acc_number,
19543: x_customer_account_id => l_vend_cust_acc_id
19544: );
19545:
19546: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
19547: x_return_status := OKL_API.G_RET_STS_ERROR;
19548: raise party_role_failed;
19549: END IF;
19550:
19543: x_customer_account_id => l_vend_cust_acc_id
19544: );
19545:
19546: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
19547: x_return_status := OKL_API.G_RET_STS_ERROR;
19548: raise party_role_failed;
19549: END IF;
19550:
19551: debug_message('------>l_vend_cust_acc_id : '||l_vend_cust_acc_id);
19549: END IF;
19550:
19551: debug_message('------>l_vend_cust_acc_id : '||l_vend_cust_acc_id);
19552: ELSE
19553: okl_api.set_message(
19554: G_APP_NAME,
19555: G_MISSING_VALUE,
19556: 'CONTRACT_NUM',
19557: p_contract_number,
19557: p_contract_number,
19558: 'COL_NAME',
19559: 'VENDOR AS CUSTOMER ACCOUNT'
19560: );
19561: x_return_status := OKL_API.G_RET_STS_ERROR;
19562: RAISE party_role_failed;
19563: END IF; -- vend as cust acct
19564:
19565: IF (p_vend_bill_to_addr_id IS NOT NULL
19576: p_customer_account_id => l_vend_cust_acc_id,
19577: x_bill_to_address_id => l_vend_bill_to_addr_id
19578: );
19579:
19580: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
19581: x_return_status := OKL_API.G_RET_STS_ERROR;
19582: raise party_role_failed;
19583: END IF;
19584: ELSE
19577: x_bill_to_address_id => l_vend_bill_to_addr_id
19578: );
19579:
19580: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
19581: x_return_status := OKL_API.G_RET_STS_ERROR;
19582: raise party_role_failed;
19583: END IF;
19584: ELSE
19585: okl_api.set_message(
19581: x_return_status := OKL_API.G_RET_STS_ERROR;
19582: raise party_role_failed;
19583: END IF;
19584: ELSE
19585: okl_api.set_message(
19586: G_APP_NAME,
19587: G_MISSING_VALUE,
19588: 'CONTRACT_NUM',
19589: p_contract_number,
19589: p_contract_number,
19590: 'COL_NAME',
19591: 'VENDOR BILL TO ADDRESS'
19592: );
19593: x_return_status := OKL_API.G_RET_STS_ERROR;
19594: RAISE party_role_failed;
19595: END IF; -- vend bill to addr
19596:
19597: END IF; -- billable vendor info
19654:
19655: --OKL_OKC_MIGRATION_PVT.create_k_party_role( -- Bug 4558486
19656: OKL_K_PARTY_ROLES_PVT.create_k_party_role(
19657: p_api_version => 1.0,
19658: p_init_msg_list => OKL_API.G_FALSE,
19659: x_return_status => x_return_status,
19660: x_msg_count => x_msg_count,
19661: x_msg_data => x_msg_data,
19662: p_cplv_rec => p_cplv_rec,
19664: x_cplv_rec => x_cplv_rec,
19665: x_kplv_rec => x_kplv_rec
19666: );
19667:
19668: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
19669: RAISE party_role_failed;
19670: END IF;
19671: END IF; -- asset vendor
19672:
19691: p_line_number => p_line_number,
19692: x_vendor_id => x_service_vendor_id,
19693: p_vendor_name => p_service_vendor_name
19694: );
19695: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
19696: RAISE party_role_failed;
19697: END IF;
19698: END IF;
19699:
19719: p_cplv_rec.cust_acct_id := l_vend_cust_acc_id;
19720:
19721: OKL_K_PARTY_ROLES_PVT.create_k_party_role(
19722: p_api_version => 1.0,
19723: p_init_msg_list => OKL_API.G_FALSE,
19724: x_return_status => x_return_status,
19725: x_msg_count => x_msg_count,
19726: x_msg_data => x_msg_data,
19727: p_cplv_rec => p_cplv_rec,
19729: x_cplv_rec => x_cplv_rec,
19730: x_kplv_rec => x_kplv_rec
19731: );
19732:
19733: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
19734: RAISE party_role_failed;
19735: END IF;
19736:
19737: debug_message('------>Party Roles Created');
19739: /* Passthru is moved to OKL table,do not need rule group LAPSTH
19740:
19741: okl_contract_top_line_pub.validate_passthru_rule(
19742: p_api_version => 1.0,
19743: p_init_msg_list => OKL_API.G_FALSE,
19744: x_return_status => x_return_status,
19745: x_msg_count => x_msg_count,
19746: x_msg_data => x_msg_data,
19747: p_line_id => p_service_line_id,
19755: x_pay_site_id1 => x_pay_site_id1,
19756: x_payment_method_id1 => x_payment_method_id1
19757: );
19758:
19759: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
19760: RAISE party_role_failed;
19761: END IF;
19762: -- Rule Group LAPSTH
19763: l_rgpv_rec := NULL;
19794: x_rgpv_rec => x_rgpv_rec,
19795: x_rulv_rec => x_rulv_rec
19796: );
19797: l_progress := '1.2';
19798: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
19799: raise party_role_failed;
19800: END IF;
19801:
19802: debug_message('------>Rule: LAPSTH/LAPTR processed');
19829: x_rgpv_rec => x_rgpv_rec,
19830: x_rulv_rec => x_rulv_rec
19831: );
19832: l_progress := '1.2';
19833: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
19834: raise party_role_failed;
19835: END IF;
19836:
19837: debug_message('------>Rule: LAPSTH/LAPTO processed');
19866: x_rgpv_rec => x_rgpv_rec,
19867: x_rulv_rec => x_rulv_rec
19868: );
19869: l_progress := '1.2';
19870: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
19871: raise party_role_failed;
19872: END IF;
19873:
19874: debug_message('------>Rule: LAPSTH/LAVPMT processed');
19898: x_rulv_rec => x_rulv_rec
19899: );
19900:
19901: l_progress := '1.5';
19902: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
19903: raise party_role_failed;
19904: END IF;
19905:
19906: debug_message('------>Rule: LAPSTH/LAPTRP processed');
19930: x_rulv_rec => x_rulv_rec
19931: );
19932:
19933: l_progress := '1.6';
19934: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
19935: raise party_role_failed;
19936: END IF;
19937:
19938: debug_message('------>Rule: LAPSTH/LAPTBC processed');
19960: p_line_number => p_line_number,
19961: x_vendor_id => x_fees_vendor_id,
19962: p_vendor_name => p_fees_vendor_name
19963: );
19964: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
19965: RAISE party_role_failed;
19966: END IF;
19967: END IF;
19968:
19990: p_cplv_rec.cust_acct_id := l_vend_cust_acc_id;
19991:
19992: OKL_K_PARTY_ROLES_PVT.create_k_party_role(
19993: p_api_version => 1.0,
19994: p_init_msg_list => OKL_API.G_FALSE,
19995: x_return_status => x_return_status,
19996: x_msg_count => x_msg_count,
19997: x_msg_data => x_msg_data,
19998: p_cplv_rec => p_cplv_rec,
20000: x_cplv_rec => x_cplv_rec,
20001: x_kplv_rec => x_kplv_rec
20002: );
20003:
20004: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20005: RAISE party_role_failed;
20006: END IF;
20007:
20008: debug_message('------>Fee Vendor Processed');
20010: /* Passthru is moved to OKL table,do not need rule group LAPSTH
20011:
20012: okl_contract_top_line_pub.validate_passthru_rule(
20013: p_api_version => 1.0,
20014: p_init_msg_list => OKL_API.G_FALSE,
20015: x_return_status => x_return_status,
20016: x_msg_count => x_msg_count,
20017: x_msg_data => x_msg_data,
20018: p_line_id => p_fee_line_id,
20026: x_pay_site_id1 => x_pay_site_id1,
20027: x_payment_method_id1 => x_payment_method_id1
20028: );
20029:
20030: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20031: RAISE party_role_failed;
20032: END IF;
20033:
20034: -- Rule Group LAPSTH
20066: x_rgpv_rec => x_rgpv_rec,
20067: x_rulv_rec => x_rulv_rec
20068: );
20069: l_progress := '1.2';
20070: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20071: raise party_role_failed;
20072: END IF;
20073:
20074: debug_message('------>Fee Rule: LAPSTH/LAPTR processed');
20099: x_rgpv_rec => x_rgpv_rec,
20100: x_rulv_rec => x_rulv_rec
20101: );
20102: l_progress := '1.2';
20103: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20104: raise party_role_failed;
20105: END IF;
20106:
20107: debug_message('------>Fee Rule: LAPSTH/LAPTO processed');
20136: x_rgpv_rec => x_rgpv_rec,
20137: x_rulv_rec => x_rulv_rec
20138: );
20139: l_progress := '1.2';
20140: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20141: raise party_role_failed;
20142: END IF;
20143:
20144: debug_message('------>Fee Rule: LAPSTH/LAVPMT processed');
20168: x_rulv_rec => x_rulv_rec
20169: );
20170:
20171: l_progress := '1.5';
20172: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20173: raise party_role_failed;
20174: END IF;
20175:
20176: debug_message('------>Fee Rule: LAPSTH/LAPTPR processed');
20199: x_rulv_rec => x_rulv_rec
20200: );
20201:
20202: l_progress := '1.6';
20203: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20204: raise party_role_failed;
20205: END IF;
20206:
20207: debug_message('------>Fee Rule: LAPSTH/LAPTBC processed');
20225: p_party_id => p_guarantor_id,
20226: p_party_number => p_guarantor_number,
20227: x_party_id => x_guarantor_id
20228: );
20229: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20230: RAISE party_role_failed;
20231: END IF;
20232: END IF;
20233:
20271: p_cplv_rec.rle_code := 'GUARANTOR';
20272:
20273: OKL_K_PARTY_ROLES_PVT.create_k_party_role(
20274: p_api_version => 1.0,
20275: p_init_msg_list => OKL_API.G_FALSE,
20276: x_return_status => x_return_status,
20277: x_msg_count => x_msg_count,
20278: x_msg_data => x_msg_data,
20279: p_cplv_rec => p_cplv_rec,
20281: x_cplv_rec => x_cplv_rec,
20282: x_kplv_rec => x_kplv_rec
20283: );
20284:
20285: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20286: RAISE party_role_failed;
20287: END IF;
20288:
20289: l_rgpv_rec := NULL;
20321: p_guarantor_site_id => p_guarantor_site_id,
20322: x_guarantor_site_id => x_guarantor_site_id
20323: );
20324:
20325: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20326: RAISE party_role_failed;
20327: END IF;
20328:
20329: l_rulv_rec.jtot_object1_code := 'OKL_PARTYSITE'; -- Bug 5024651 'OKX_PARTSITE';
20347: x_rgpv_rec => x_rgpv_rec,
20348: x_rulv_rec => x_rulv_rec
20349: );
20350:
20351: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20352: raise party_role_failed;
20353: END IF;
20354:
20355: debug_message('------>Fee Rule: LAGRDT/LAGRNP processed');
20365: p_rgd_code => 'LAGRDT',
20366: p_rle_code => 'GUARANTOR',
20367: x_rrd_id => x_rrd_id
20368: );
20369: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20370: okl_api.set_message(
20371: G_APP_NAME,
20372: G_GUARANTOR_SETUP_ERROR,
20373: 'CONTRACT_NUM',
20366: p_rle_code => 'GUARANTOR',
20367: x_rrd_id => x_rrd_id
20368: );
20369: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20370: okl_api.set_message(
20371: G_APP_NAME,
20372: G_GUARANTOR_SETUP_ERROR,
20373: 'CONTRACT_NUM',
20374: p_contract_number
20372: G_GUARANTOR_SETUP_ERROR,
20373: 'CONTRACT_NUM',
20374: p_contract_number
20375: );
20376: x_return_status := OKL_API.G_RET_STS_ERROR;
20377: RAISE party_role_failed;
20378: END IF;
20379:
20380: l_rmpv_rec.rgp_id := x_rgpv_rec.id;
20383: l_rmpv_rec.dnz_chr_id := p_chr_id;
20384:
20385: okl_rule_pub.create_rg_mode_pty_role(
20386: p_api_version => 1.0,
20387: p_init_msg_list => OKL_API.G_FALSE,
20388: x_return_status => x_return_status,
20389: x_msg_count => x_msg_count,
20390: x_msg_data => x_msg_data,
20391: p_rmpv_rec => l_rmpv_rec,
20390: x_msg_data => x_msg_data,
20391: p_rmpv_rec => l_rmpv_rec,
20392: x_rmpv_rec => x_rmpv_rec
20393: );
20394: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20395: x_return_status := OKL_API.G_RET_STS_ERROR;
20396: raise party_role_failed;
20397: END IF;
20398:
20391: p_rmpv_rec => l_rmpv_rec,
20392: x_rmpv_rec => x_rmpv_rec
20393: );
20394: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20395: x_return_status := OKL_API.G_RET_STS_ERROR;
20396: raise party_role_failed;
20397: END IF;
20398:
20399: debug_message('------>Guaraontor type processed');
20454: x_rgpv_rec => x_rgpv_rec,
20455: x_rulv_rec => x_rulv_rec
20456: );
20457:
20458: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20459: raise party_role_failed;
20460: END IF;
20461:
20462: debug_message('------>Rule: LAGRDT/LAGRNT processed');
20480: p_line_number => p_line_number,
20481: x_vendor_id => x_billable_vendor_id,
20482: p_vendor_name => p_billable_vendor_name
20483: );
20484: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20485: RAISE party_role_failed;
20486: END IF;
20487: END IF;
20488:
20491: IF (x_billable_vendor_id IS NOT NULL) THEN
20492:
20493: -- Create billing detail
20494: IF (x_billable_vendor_id <> x_asset_vendor_id) THEN
20495: okl_api.set_message(
20496: G_APP_NAME,
20497: G_BILL_VENDOR_INVALID,
20498: 'CONTRACT_NUM',
20499: p_contract_number,
20499: p_contract_number,
20500: 'VENDOR',
20501: p_billable_vendor_id||', '||p_billable_vendor_name
20502: );
20503: x_return_status := OKL_API.G_RET_STS_ERROR;
20504: RAISE party_role_failed;
20505: END IF;
20506:
20507: l_rgpv_rec := NULL;
20523: p_vend_as_customer_id);
20524:
20525: FETCH customer_csr INTO l_vend_cust_id;
20526: IF customer_csr%NOTFOUND THEN
20527: okl_api.set_message(
20528: G_APP_NAME,
20529: G_INVALID_VALUE,
20530: 'CONTRACT_NUM',
20531: p_contract_number,
20533: 'VENDOR AS CUSTOMER ACCOUNT',
20534: 'COL_VALUE',
20535: p_vend_as_customer_id||', '||p_vend_as_customer_number
20536: );
20537: x_return_status := OKL_API.G_RET_STS_ERROR;
20538: RAISE party_role_failed;
20539: END IF;
20540:
20541: CLOSE customer_csr;
20561: x_rgpv_rec => x_rgpv_rec,
20562: x_rulv_rec => x_rulv_rec
20563: );
20564:
20565: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20566: raise party_role_failed;
20567: END IF;
20568:
20569: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
20571: END IF;
20572: l_rulv_rec := NULL;
20573:
20574: ELSE
20575: okl_api.set_message(
20576: G_APP_NAME,
20577: G_MISSING_VALUE,
20578: 'CONTRACT_NUM',
20579: p_contract_number,
20579: p_contract_number,
20580: 'COL_NAME',
20581: 'VENDOR AS CUSTOMER'
20582: );
20583: x_return_status := OKL_API.G_RET_STS_ERROR;
20584: RAISE party_role_failed;
20585: END IF;
20586:
20587: /* Rule Migration
20599: p_customer_account_number => p_vend_as_cust_acc_number,
20600: x_customer_account_id => l_vend_cust_acc_id
20601: );
20602:
20603: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20604: x_return_status := OKL_API.G_RET_STS_ERROR;
20605: raise party_role_failed;
20606: END IF;
20607:
20600: x_customer_account_id => l_vend_cust_acc_id
20601: );
20602:
20603: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20604: x_return_status := OKL_API.G_RET_STS_ERROR;
20605: raise party_role_failed;
20606: END IF;
20607:
20608: debug_message('------>l_vend_cust_acc_id : '||l_vend_cust_acc_id);
20626: x_rgpv_rec => x_rgpv_rec,
20627: x_rulv_rec => x_rulv_rec
20628: );
20629:
20630: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20631: raise party_role_failed;
20632: END IF;
20633:
20634: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
20635: l_rgp_id := x_rgpv_rec.id;
20636: END IF;
20637: l_rulv_rec := NULL;
20638: ELSE
20639: okl_api.set_message(
20640: G_APP_NAME,
20641: G_MISSING_VALUE,
20642: 'CONTRACT_NUM',
20643: p_contract_number,
20643: p_contract_number,
20644: 'COL_NAME',
20645: 'VENDOR AS CUSTOMER ACCOUNT'
20646: );
20647: x_return_status := OKL_API.G_RET_STS_ERROR;
20648: RAISE party_role_failed;
20649: END IF;
20650: */
20651:
20664: p_customer_account_id => l_vend_cust_acc_id,
20665: x_bill_to_address_id => l_vend_bill_to_addr_id
20666: );
20667:
20668: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20669: x_return_status := OKL_API.G_RET_STS_ERROR;
20670: raise party_role_failed;
20671: END IF;
20672:
20665: x_bill_to_address_id => l_vend_bill_to_addr_id
20666: );
20667:
20668: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20669: x_return_status := OKL_API.G_RET_STS_ERROR;
20670: raise party_role_failed;
20671: END IF;
20672:
20673: debug_message('------>l_vend_bill_to_addr_id : '||l_vend_bill_to_addr_id);
20690: x_rgpv_rec => x_rgpv_rec,
20691: x_rulv_rec => x_rulv_rec
20692: );
20693:
20694: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20695: raise party_role_failed;
20696: END IF;
20697:
20698: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
20699: l_rgp_id := x_rgpv_rec.id;
20700: END IF;
20701: l_rulv_rec := NULL;
20702: ELSE
20703: okl_api.set_message(
20704: G_APP_NAME,
20705: G_MISSING_VALUE,
20706: 'CONTRACT_NUM',
20707: p_contract_number,
20707: p_contract_number,
20708: 'COL_NAME',
20709: 'VENDOR BILL TO ADDRESS'
20710: );
20711: x_return_status := OKL_API.G_RET_STS_ERROR;
20712: RAISE party_role_failed;
20713: END IF;
20714: */
20715:
20727: p_payment_method => p_vend_payment_method,
20728: x_payment_method_id => l_vend_payment_method_id
20729: );
20730:
20731: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20732: x_return_status := OKL_API.G_RET_STS_ERROR;
20733: raise party_role_failed;
20734: END IF;
20735:
20728: x_payment_method_id => l_vend_payment_method_id
20729: );
20730:
20731: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20732: x_return_status := OKL_API.G_RET_STS_ERROR;
20733: raise party_role_failed;
20734: END IF;
20735:
20736: IF (l_vend_payment_method_id IS NOT NULL) THEN
20756: x_rgpv_rec => x_rgpv_rec,
20757: x_rulv_rec => x_rulv_rec
20758: );
20759:
20760: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20761: x_return_status := OKL_API.G_RET_STS_ERROR;
20762: raise party_role_failed;
20763: END IF;
20764:
20757: x_rulv_rec => x_rulv_rec
20758: );
20759:
20760: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20761: x_return_status := OKL_API.G_RET_STS_ERROR;
20762: raise party_role_failed;
20763: END IF;
20764:
20765: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
20784: p_customer_account_id => l_vend_cust_acc_id,
20785: p_cust_site_id => l_vend_bill_to_addr_id,
20786: x_bank_account_id => l_vend_bank_acc_id
20787: );
20788: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20789: x_return_status := OKL_API.G_RET_STS_ERROR;
20790: raise party_role_failed;
20791: END IF;
20792:
20785: p_cust_site_id => l_vend_bill_to_addr_id,
20786: x_bank_account_id => l_vend_bank_acc_id
20787: );
20788: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20789: x_return_status := OKL_API.G_RET_STS_ERROR;
20790: raise party_role_failed;
20791: END IF;
20792:
20793: IF (l_vend_bank_acc_id IS NOT NULL) THEN
20813: x_rgpv_rec => x_rgpv_rec,
20814: x_rulv_rec => x_rulv_rec
20815: );
20816:
20817: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20818: x_return_status := OKL_API.G_RET_STS_ERROR;
20819: raise party_role_failed;
20820: END IF;
20821:
20814: x_rulv_rec => x_rulv_rec
20815: );
20816:
20817: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20818: x_return_status := OKL_API.G_RET_STS_ERROR;
20819: raise party_role_failed;
20820: END IF;
20821:
20822: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
20839: x_invoice_format_id => l_vend_invoice_format_id,
20840: x_invoice_format_name => l_vend_invoice_format_name
20841: );
20842:
20843: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20844: x_return_status := OKL_API.G_RET_STS_ERROR;
20845: raise party_role_failed;
20846: END IF;
20847:
20840: x_invoice_format_name => l_vend_invoice_format_name
20841: );
20842:
20843: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20844: x_return_status := OKL_API.G_RET_STS_ERROR;
20845: raise party_role_failed;
20846: END IF;
20847:
20848: debug_message('Invoice Format: '||l_vend_invoice_format_name);
20880: x_rgpv_rec => x_rgpv_rec,
20881: x_rulv_rec => x_rulv_rec
20882: );
20883:
20884: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20885: x_return_status := OKL_API.G_RET_STS_ERROR;
20886: raise party_role_failed;
20887: END IF;
20888:
20881: x_rulv_rec => x_rulv_rec
20882: );
20883:
20884: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20885: x_return_status := OKL_API.G_RET_STS_ERROR;
20886: raise party_role_failed;
20887: END IF;
20888:
20889: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
20919: x_rgpv_rec => x_rgpv_rec,
20920: x_rulv_rec => x_rulv_rec
20921: );
20922:
20923: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20924: x_return_status := OKL_API.G_RET_STS_ERROR;
20925: raise party_role_failed;
20926: END IF;
20927:
20920: x_rulv_rec => x_rulv_rec
20921: );
20922:
20923: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20924: x_return_status := OKL_API.G_RET_STS_ERROR;
20925: raise party_role_failed;
20926: END IF;
20927:
20928: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
20936: p_rgd_code => 'LAVENB',
20937: p_rle_code => 'OKL_VENDOR',
20938: x_rrd_id => x_rrd_id
20939: );
20940: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20941: okl_api.set_message(
20942: G_APP_NAME,
20943: G_GUARANTOR_SETUP_ERROR,
20944: 'CONTRACT_NUM',
20937: p_rle_code => 'OKL_VENDOR',
20938: x_rrd_id => x_rrd_id
20939: );
20940: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20941: okl_api.set_message(
20942: G_APP_NAME,
20943: G_GUARANTOR_SETUP_ERROR,
20944: 'CONTRACT_NUM',
20945: p_contract_number
20943: G_GUARANTOR_SETUP_ERROR,
20944: 'CONTRACT_NUM',
20945: p_contract_number
20946: );
20947: x_return_status := OKL_API.G_RET_STS_ERROR;
20948: RAISE party_role_failed;
20949: END IF;
20950:
20951: p_cplv_rec := NULL;
20969: l_rmpv_rec.dnz_chr_id := p_chr_id;
20970:
20971: okl_rule_pub.create_rg_mode_pty_role(
20972: p_api_version => 1.0,
20973: p_init_msg_list => OKL_API.G_FALSE,
20974: x_return_status => x_return_status,
20975: x_msg_count => x_msg_count,
20976: x_msg_data => x_msg_data,
20977: p_rmpv_rec => l_rmpv_rec,
20976: x_msg_data => x_msg_data,
20977: p_rmpv_rec => l_rmpv_rec,
20978: x_rmpv_rec => x_rmpv_rec
20979: );
20980: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20981: x_return_status := OKL_API.G_RET_STS_ERROR;
20982: raise party_role_failed;
20983: END IF;
20984: END IF;
20977: p_rmpv_rec => l_rmpv_rec,
20978: x_rmpv_rec => x_rmpv_rec
20979: );
20980: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20981: x_return_status := OKL_API.G_RET_STS_ERROR;
20982: raise party_role_failed;
20983: END IF;
20984: END IF;
20985: END IF; -- Billable Vendor process
21004: p_line_number => p_line_number,
21005: p_vendor_paysite_name => p_pth_base_vendor_site_code,
21006: p_vendor_paysite_id => p_pth_base_vendor_site_id
21007: );
21008: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
21009: raise party_role_failed;
21010: END IF;
21011:
21012: IF (p_pth_base_pmnt_term_code is NOT NULL OR
21018: p_payment_term => p_pth_base_pmnt_term_code,
21019: p_payment_term_id => p_pth_base_pmnt_term_id
21020: );
21021:
21022: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
21023: raise party_role_failed;
21024: END IF;
21025:
21026: ELSE
21023: raise party_role_failed;
21024: END IF;
21025:
21026: ELSE
21027: okl_api.set_message(
21028: G_APP_NAME,
21029: G_MISSING_VALUE,
21030: 'CONTRACT_NUM',
21031: p_contract_number,
21042: p_auth_org_id => p_auth_org_id,
21043: p_vendor_paysite_id => p_pth_base_vendor_site_id
21044: );
21045:
21046: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
21047: raise party_role_failed;
21048: END IF;
21049:
21050: IF (l_paygroup_code IS NOT NULL) THEN
21049:
21050: IF (l_paygroup_code IS NOT NULL) THEN
21051: l_base_pmnt_dtls_rec.pay_group_code := l_paygroup_code;
21052: ELSE
21053: okl_api.set_message(
21054: G_APP_NAME,
21055: G_MISSING_VALUE_FOR_LINE,
21056: 'CONTRACT_NUM',
21057: p_contract_number||'/'||TO_CHAR(p_line_number),
21073: ELSE
21074: OPEN pmnt_basis_csr(p_pth_base_pmnt_basis);
21075: FETCH pmnt_basis_csr INTO rec_exists_yn;
21076: IF (pmnt_basis_csr%NOTFOUND) THEN
21077: okl_api.set_message(
21078: G_APP_NAME,
21079: G_INVALID_VALUE,
21080: 'CONTRACT_NUM',
21081: p_contract_number||'/'||TO_CHAR(p_line_number),
21093: END IF;
21094:
21095: IF ((p_pth_base_pmnt_basis = 'SCHEDULED') AND
21096: (p_pth_base_pmnt_start_date IS NULL)) THEN
21097: okl_api.set_message(
21098: G_APP_NAME,
21099: G_MISSING_VALUE_FOR_LINE,
21100: 'CONTRACT_NUM',
21101: p_contract_number||'/'||TO_CHAR(p_line_number),
21110: END IF;
21111:
21112: IF ((p_pth_base_pmnt_basis = 'SCHEDULED') AND
21113: (p_pth_base_pmnt_freq IS NULL)) THEN
21114: okl_api.set_message(
21115: G_APP_NAME,
21116: G_MISSING_VALUE_FOR_LINE,
21117: 'CONTRACT_NUM',
21118: p_contract_number||'/'||TO_CHAR(p_line_number),
21129: l_base_pmnt_dtls_rec.payment_method_code := p_pth_base_pmnt_method_code;
21130:
21131: IF ((p_pth_base_pmnt_basis = 'PROCESS_DATE') AND
21132: (p_pth_base_pmnt_remit_days IS NULL)) THEN
21133: okl_api.set_message(
21134: G_APP_NAME,
21135: G_MISSING_VALUE_FOR_LINE,
21136: 'CONTRACT_NUM',
21137: p_contract_number||'/'||TO_CHAR(p_line_number),
21148: IF (p_pth_base_disb_basis is NOT NULL) THEN
21149: OPEN disb_basis_csr(p_pth_base_disb_basis);
21150: FETCH disb_basis_csr INTO rec_exists_yn;
21151: IF (disb_basis_csr%NOTFOUND) THEN
21152: okl_api.set_message(
21153: G_APP_NAME,
21154: G_INVALID_VALUE,
21155: 'CONTRACT_NUM',
21156: p_contract_number||'/'||TO_CHAR(p_line_number),
21165: l_base_pmnt_dtls_rec.disbursement_basis := p_pth_base_disb_basis;
21166: CLOSE disb_basis_csr;
21167: END IF;
21168: ELSE
21169: okl_api.set_message(
21170: G_APP_NAME,
21171: G_MISSING_VALUE_FOR_LINE,
21172: 'CONTRACT_NUM',
21173: p_contract_number||'/'||TO_CHAR(p_line_number),
21179: END IF;
21180:
21181: IF ((p_pth_base_disb_basis = 'AMOUNT')) THEN
21182: IF (p_pth_base_disb_fixed_amount IS NULL) THEN
21183: okl_api.set_message(
21184: G_APP_NAME,
21185: G_MISSING_VALUE_FOR_LINE,
21186: 'CONTRACT_NUM',
21187: p_contract_number||'/'||TO_CHAR(p_line_number),
21197: END IF;
21198:
21199: IF ((p_pth_base_disb_basis = 'PERCENT')) THEN
21200: IF (p_pth_base_disb_pct IS NULL) THEN
21201: okl_api.set_message(
21202: G_APP_NAME,
21203: G_MISSING_VALUE_FOR_LINE,
21204: 'CONTRACT_NUM',
21205: p_contract_number||'/'||TO_CHAR(p_line_number),
21217: IF (p_pth_base_proc_fee_basis is NOT NULL) THEN
21218: OPEN proc_fee_basis_csr(p_pth_base_proc_fee_basis);
21219: FETCH proc_fee_basis_csr INTO rec_exists_yn;
21220: IF (proc_fee_basis_csr%NOTFOUND) THEN
21221: okl_api.set_message(
21222: G_APP_NAME,
21223: G_INVALID_VALUE,
21224: 'CONTRACT_NUM',
21225: p_contract_number||'/'||TO_CHAR(p_line_number),
21237: END IF;
21238:
21239: IF ((p_pth_base_proc_fee_basis = 'AMOUNT')) THEN
21240: IF (p_pth_base_proc_fee_fixed_amt IS NULL) THEN
21241: okl_api.set_message(
21242: G_APP_NAME,
21243: G_MISSING_VALUE_FOR_LINE,
21244: 'CONTRACT_NUM',
21245: p_contract_number||'/'||TO_CHAR(p_line_number),
21255: END IF;
21256:
21257: IF ((p_pth_base_proc_fee_basis = 'PERCENT')) THEN
21258: IF (p_pth_base_proc_pct IS NULL) THEN
21259: okl_api.set_message(
21260: G_APP_NAME,
21261: G_MISSING_VALUE_FOR_LINE,
21262: 'CONTRACT_NUM',
21263: p_contract_number||'/'||TO_CHAR(p_line_number),
21296: p_line_number => p_line_number,
21297: p_vendor_paysite_name => p_pth_evg_vendor_site_code,
21298: p_vendor_paysite_id => p_pth_evg_vendor_site_id
21299: );
21300: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
21301: raise party_role_failed;
21302: END IF;
21303:
21304: IF (p_pth_evg_pmnt_term_code is NOT NULL OR
21310: p_payment_term => p_pth_evg_pmnt_term_code,
21311: p_payment_term_id => p_pth_evg_pmnt_term_id
21312: );
21313:
21314: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
21315: raise party_role_failed;
21316: END IF;
21317:
21318: ELSE
21315: raise party_role_failed;
21316: END IF;
21317:
21318: ELSE
21319: okl_api.set_message(
21320: G_APP_NAME,
21321: G_MISSING_VALUE,
21322: 'CONTRACT_NUM',
21323: p_contract_number,
21334: p_auth_org_id => p_auth_org_id,
21335: p_vendor_paysite_id => p_pth_evg_vendor_site_id
21336: );
21337:
21338: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
21339: raise party_role_failed;
21340: END IF;
21341:
21342: IF (l_paygroup_code IS NOT NULL) THEN
21341:
21342: IF (l_paygroup_code IS NOT NULL) THEN
21343: l_evg_pmnt_dtls_rec.pay_group_code := l_paygroup_code;
21344: ELSE
21345: okl_api.set_message(
21346: G_APP_NAME,
21347: G_MISSING_VALUE_FOR_LINE,
21348: 'CONTRACT_NUM',
21349: p_contract_number||'/'||TO_CHAR(p_line_number),
21362: ELSE
21363: OPEN pmnt_basis_csr(p_pth_evg_pmnt_basis);
21364: FETCH pmnt_basis_csr INTO rec_exists_yn;
21365: IF (pmnt_basis_csr%NOTFOUND) THEN
21366: okl_api.set_message(
21367: G_APP_NAME,
21368: G_INVALID_VALUE,
21369: 'CONTRACT_NUM',
21370: p_contract_number||'/'||TO_CHAR(p_line_number),
21384: l_evg_pmnt_dtls_rec.payment_method_code := p_pth_evg_pmnt_method_code;
21385:
21386: IF ((p_pth_evg_pmnt_basis = 'PROCESS_DATE') AND
21387: (p_pth_evg_pmnt_remit_days IS NULL)) THEN
21388: okl_api.set_message(
21389: G_APP_NAME,
21390: G_MISSING_VALUE_FOR_LINE,
21391: 'CONTRACT_NUM',
21392: p_contract_number||'/'||TO_CHAR(p_line_number),
21402: IF (p_pth_evg_disb_basis is NOT NULL) THEN
21403: OPEN disb_basis_csr(p_pth_evg_disb_basis);
21404: FETCH disb_basis_csr INTO rec_exists_yn;
21405: IF (disb_basis_csr%NOTFOUND) THEN
21406: okl_api.set_message(
21407: G_APP_NAME,
21408: G_INVALID_VALUE,
21409: 'CONTRACT_NUM',
21410: p_contract_number||'/'||TO_CHAR(p_line_number),
21419: l_evg_pmnt_dtls_rec.disbursement_basis := p_pth_evg_disb_basis;
21420: CLOSE disb_basis_csr;
21421: END IF;
21422: ELSE
21423: okl_api.set_message(
21424: G_APP_NAME,
21425: G_MISSING_VALUE_FOR_LINE,
21426: 'CONTRACT_NUM',
21427: p_contract_number||'/'||TO_CHAR(p_line_number),
21432: );
21433: END IF;
21434: IF ((p_pth_evg_disb_basis = 'AMOUNT')) THEN
21435: IF (p_pth_evg_disb_fixed_amount IS NULL) THEN
21436: okl_api.set_message(
21437: G_APP_NAME,
21438: G_MISSING_VALUE_FOR_LINE,
21439: 'CONTRACT_NUM',
21440: p_contract_number||'/'||TO_CHAR(p_line_number),
21449: END IF;
21450: END IF;
21451: IF ((p_pth_evg_disb_basis = 'PERCENT')) THEN
21452: IF (p_pth_evg_disb_pct IS NULL) THEN
21453: okl_api.set_message(
21454: G_APP_NAME,
21455: G_MISSING_VALUE_FOR_LINE,
21456: 'CONTRACT_NUM',
21457: p_contract_number||'/'||TO_CHAR(p_line_number),
21469: IF (p_pth_evg_proc_fee_basis is NOT NULL) THEN
21470: OPEN proc_fee_basis_csr(p_pth_evg_proc_fee_basis);
21471: FETCH proc_fee_basis_csr INTO rec_exists_yn;
21472: IF (proc_fee_basis_csr%NOTFOUND) THEN
21473: okl_api.set_message(
21474: G_APP_NAME,
21475: G_INVALID_VALUE,
21476: 'CONTRACT_NUM',
21477: p_contract_number||'/'||TO_CHAR(p_line_number),
21488: END IF;
21489: END IF;
21490: IF ((p_pth_evg_proc_fee_basis = 'AMOUNT')) THEN
21491: IF (p_pth_evg_proc_fee_fixed_amt IS NULL) THEN
21492: okl_api.set_message(
21493: G_APP_NAME,
21494: G_MISSING_VALUE_FOR_LINE,
21495: 'CONTRACT_NUM',
21496: p_contract_number||'/'||TO_CHAR(p_line_number),
21506: END IF;
21507:
21508: IF ((p_pth_evg_proc_fee_basis = 'PERCENT')) THEN
21509: IF (p_pth_evg_proc_pct IS NULL) THEN
21510: okl_api.set_message(
21511: G_APP_NAME,
21512: G_MISSING_VALUE_FOR_LINE,
21513: 'CONTRACT_NUM',
21514: p_contract_number||'/'||TO_CHAR(p_line_number),
21540: p_ppydv_tbl => l_pmnt_dtls_tbl_in,
21541: x_ppydv_tbl => l_pmnt_dtls_tbl_out
21542: );
21543:
21544: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
21545: x_return_status := OKL_API.G_RET_STS_ERROR;
21546: RAISE party_role_failed;
21547: END IF;
21548: END IF;
21541: x_ppydv_tbl => l_pmnt_dtls_tbl_out
21542: );
21543:
21544: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
21545: x_return_status := OKL_API.G_RET_STS_ERROR;
21546: RAISE party_role_failed;
21547: END IF;
21548: END IF;
21549:
21562: p_line_number => p_line_number,
21563: p_vendor_paysite_name => p_pth_evg_vendor_site_code,
21564: p_vendor_paysite_id => p_pth_evg_vendor_site_id
21565: );
21566: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
21567: raise party_role_failed;
21568: END IF;
21569:
21570: IF (p_pth_evg_pmnt_term_code is NOT NULL OR
21576: p_payment_term => p_pth_evg_pmnt_term_code,
21577: p_payment_term_id => p_pth_evg_pmnt_term_id
21578: );
21579:
21580: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
21581: raise party_role_failed;
21582: END IF;
21583:
21584: ELSE
21581: raise party_role_failed;
21582: END IF;
21583:
21584: ELSE
21585: okl_api.set_message(
21586: G_APP_NAME,
21587: G_MISSING_VALUE,
21588: 'CONTRACT_NUM',
21589: p_contract_number,
21600: p_auth_org_id => p_auth_org_id,
21601: p_vendor_paysite_id => p_pth_evg_vendor_site_id
21602: );
21603:
21604: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
21605: raise party_role_failed;
21606: END IF;
21607:
21608: IF (l_paygroup_code IS NOT NULL) THEN
21607:
21608: IF (l_paygroup_code IS NOT NULL) THEN
21609: l_evg_cont_pmnt_dtls_rec.pay_group_code := l_paygroup_code;
21610: ELSE
21611: okl_api.set_message(
21612: G_APP_NAME,
21613: G_MISSING_VALUE_FOR_LINE,
21614: 'CONTRACT_NUM',
21615: p_contract_number||'/'||TO_CHAR(p_line_number),
21628: ELSE
21629: OPEN pmnt_basis_csr(p_pth_evg_pmnt_basis);
21630: FETCH pmnt_basis_csr INTO rec_exists_yn;
21631: IF (pmnt_basis_csr%NOTFOUND) THEN
21632: okl_api.set_message(
21633: G_APP_NAME,
21634: G_INVALID_VALUE,
21635: 'CONTRACT_NUM',
21636: p_contract_number||'/'||TO_CHAR(p_line_number),
21650: l_evg_cont_pmnt_dtls_rec.payment_method_code := p_pth_evg_pmnt_method_code;
21651:
21652: IF ((p_pth_evg_pmnt_basis = 'PROCESS_DATE') AND
21653: (p_pth_evg_pmnt_remit_days IS NULL)) THEN
21654: okl_api.set_message(
21655: G_APP_NAME,
21656: G_MISSING_VALUE_FOR_LINE,
21657: 'CONTRACT_NUM',
21658: p_contract_number||'/'||TO_CHAR(p_line_number),
21668: IF (p_pth_evg_disb_basis is NOT NULL) THEN
21669: OPEN disb_basis_csr(p_pth_evg_disb_basis);
21670: FETCH disb_basis_csr INTO rec_exists_yn;
21671: IF (disb_basis_csr%NOTFOUND) THEN
21672: okl_api.set_message(
21673: G_APP_NAME,
21674: G_INVALID_VALUE,
21675: 'CONTRACT_NUM',
21676: p_contract_number||'/'||TO_CHAR(p_line_number),
21685: l_evg_cont_pmnt_dtls_rec.disbursement_basis := p_pth_evg_disb_basis;
21686: CLOSE disb_basis_csr;
21687: END IF;
21688: ELSE
21689: okl_api.set_message(
21690: G_APP_NAME,
21691: G_MISSING_VALUE_FOR_LINE,
21692: 'CONTRACT_NUM',
21693: p_contract_number||'/'||TO_CHAR(p_line_number),
21698: );
21699: END IF;
21700: IF ((p_pth_evg_disb_basis = 'AMOUNT')) THEN
21701: IF (p_pth_evg_disb_fixed_amount IS NULL) THEN
21702: okl_api.set_message(
21703: G_APP_NAME,
21704: G_MISSING_VALUE_FOR_LINE,
21705: 'CONTRACT_NUM',
21706: p_contract_number||'/'||TO_CHAR(p_line_number),
21715: END IF;
21716: END IF;
21717: IF ((p_pth_evg_disb_basis = 'PERCENT')) THEN
21718: IF (p_pth_evg_disb_pct IS NULL) THEN
21719: okl_api.set_message(
21720: G_APP_NAME,
21721: G_MISSING_VALUE_FOR_LINE,
21722: 'CONTRACT_NUM',
21723: p_contract_number||'/'||TO_CHAR(p_line_number),
21735: IF (p_pth_evg_proc_fee_basis is NOT NULL) THEN
21736: OPEN proc_fee_basis_csr(p_pth_evg_proc_fee_basis);
21737: FETCH proc_fee_basis_csr INTO rec_exists_yn;
21738: IF (proc_fee_basis_csr%NOTFOUND) THEN
21739: okl_api.set_message(
21740: G_APP_NAME,
21741: G_INVALID_VALUE,
21742: 'CONTRACT_NUM',
21743: p_contract_number||'/'||TO_CHAR(p_line_number),
21754: END IF;
21755: END IF;
21756: IF ((p_pth_evg_proc_fee_basis = 'AMOUNT')) THEN
21757: IF (p_pth_evg_proc_fee_fixed_amt IS NULL) THEN
21758: okl_api.set_message(
21759: G_APP_NAME,
21760: G_MISSING_VALUE_FOR_LINE,
21761: 'CONTRACT_NUM',
21762: p_contract_number||'/'||TO_CHAR(p_line_number),
21772: END IF;
21773:
21774: IF ((p_pth_evg_proc_fee_basis = 'PERCENT')) THEN
21775: IF (p_pth_evg_proc_pct IS NULL) THEN
21776: okl_api.set_message(
21777: G_APP_NAME,
21778: G_MISSING_VALUE_FOR_LINE,
21779: 'CONTRACT_NUM',
21780: p_contract_number||'/'||TO_CHAR(p_line_number),
21806: p_ppydv_tbl => l_cont_pmnt_dtls_tbl_in,
21807: x_ppydv_tbl => l_cont_pmnt_dtls_tbl_out
21808: );
21809:
21810: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
21811: x_return_status := OKL_API.G_RET_STS_ERROR;
21812: RAISE party_role_failed;
21813: END IF;
21814: END IF;
21807: x_ppydv_tbl => l_cont_pmnt_dtls_tbl_out
21808: );
21809:
21810: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
21811: x_return_status := OKL_API.G_RET_STS_ERROR;
21812: RAISE party_role_failed;
21813: END IF;
21814: END IF;
21815: debug_message('Contract evergreen dtls end.');
21820:
21821: EXCEPTION
21822:
21823: WHEN party_role_failed THEN
21824: x_return_status := OKL_API.G_RET_STS_ERROR;
21825: debug_message(l_proc_name ||': '||l_progress);
21826:
21827: WHEN OTHERS THEN
21828: debug_message(l_proc_name ||': '||l_progress);
21890:
21891: x_cash_appl_rule_id OKL_BPD_ACTIVE_CSH_RLS_V.ID1%TYPE;
21892: BEGIN
21893:
21894: x_return_status := OKL_API.G_RET_STS_SUCCESS;
21895: debug_message(l_proc_name);
21896:
21897: IF (p_line_type = 'ASSET') THEN
21898:
21918: p_customer_account_id => g_customer_account_id,
21919: x_bill_to_address_id => x_bill_to_address_id
21920: );
21921:
21922: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
21923: x_return_status := OKL_API.G_RET_STS_ERROR;
21924: raise term_failed;
21925: END IF;
21926:
21919: x_bill_to_address_id => x_bill_to_address_id
21920: );
21921:
21922: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
21923: x_return_status := OKL_API.G_RET_STS_ERROR;
21924: raise term_failed;
21925: END IF;
21926:
21927: END IF; --g_customer_account_id
21932: debug_message('------>prescribed_asset_flag: '||p_prescribed_asset_flag);
21933: IF (p_prescribed_asset_flag IS NOT NULL) THEN
21934:
21935: IF (NVL(p_prescribed_asset_flag,'N') NOT IN ('Y','N')) THEN
21936: okl_api.set_message(
21937: G_APP_NAME,
21938: G_INVALID_VALUE,
21939: 'CONTRACT_NUM',
21940: p_contract_number,
21943: 'COL_VALUE',
21944: p_prescribed_asset_flag
21945: );
21946:
21947: x_return_status := OKL_API.G_RET_STS_ERROR;
21948: raise term_failed;
21949:
21950: END IF;
21951:
21955: l_klev_rec.prescribed_asset_yn := p_prescribed_asset_flag;
21956:
21957: okl_contract_pub.update_contract_line(
21958: p_api_version => 1.0,
21959: p_init_msg_list => OKL_API.G_FALSE,
21960: x_return_status => x_return_status,
21961: x_msg_count => x_msg_count,
21962: x_msg_data => x_msg_data,
21963: p_clev_rec => l_clev_rec,
21965: x_clev_rec => x_clev_rec,
21966: x_klev_rec => x_klev_rec
21967: );
21968:
21969: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
21970: x_return_status := OKL_API.G_RET_STS_ERROR;
21971: raise term_failed;
21972: END IF;
21973:
21966: x_klev_rec => x_klev_rec
21967: );
21968:
21969: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
21970: x_return_status := OKL_API.G_RET_STS_ERROR;
21971: raise term_failed;
21972: END IF;
21973:
21974: debug_message('------>prescribed_asset_flag updated: '||x_klev_rec.prescribed_asset_yn);
21986: l_clev_rec.bill_to_site_use_id := x_bill_to_address_id;
21987:
21988: okl_contract_pub.update_contract_line(
21989: p_api_version => 1.0,
21990: p_init_msg_list => OKL_API.G_FALSE,
21991: x_return_status => x_return_status,
21992: x_msg_count => x_msg_count,
21993: x_msg_data => x_msg_data,
21994: p_clev_rec => l_clev_rec,
21996: x_clev_rec => x_clev_rec,
21997: x_klev_rec => x_klev_rec
21998: );
21999:
22000: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
22001: x_return_status := OKL_API.G_RET_STS_ERROR;
22002: raise term_failed;
22003: END IF;
22004:
21997: x_klev_rec => x_klev_rec
21998: );
21999:
22000: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
22001: x_return_status := OKL_API.G_RET_STS_ERROR;
22002: raise term_failed;
22003: END IF;
22004:
22005: debug_message('------>Bill to updated: '||x_clev_rec.bill_to_site_use_id);
22025: x_rgpv_rec => x_rgpv_rec,
22026: x_rulv_rec => x_rulv_rec
22027: );
22028:
22029: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
22030: raise term_failed;
22031: END IF;
22032:
22033: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
22048: p_customer_account_id => g_customer_account_id,
22049: p_cust_site_id => x_bill_to_address_id,
22050: x_bank_account_id => x_bank_account_id
22051: );
22052: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
22053: x_return_status := OKL_API.G_RET_STS_ERROR;
22054: raise term_failed;
22055: END IF;
22056: END IF;
22049: p_cust_site_id => x_bill_to_address_id,
22050: x_bank_account_id => x_bank_account_id
22051: );
22052: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
22053: x_return_status := OKL_API.G_RET_STS_ERROR;
22054: raise term_failed;
22055: END IF;
22056: END IF;
22057:
22077: x_rgpv_rec => x_rgpv_rec,
22078: x_rulv_rec => x_rulv_rec
22079: );
22080:
22081: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
22082: raise term_failed;
22083: END IF;
22084:
22085: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
22088:
22089: END IF; --bank_account
22090:
22091: IF (p_reason_for_invoice_review IS NOT NULL) THEN -- Bug# 3650522
22092: OKL_API.SET_MESSAGE(
22093: G_APP_NAME,
22094: G_VALUE_NOT_ALLOWED,
22095: 'CONTRACT_NUM',
22096: p_contract_number,
22099: 'COL_NAME',
22100: 'REASON_FOR_INVOICE_REVIEW'
22101: );
22102:
22103: x_return_status := OKL_API.G_RET_STS_ERROR;
22104:
22105: END IF;
22106:
22107: IF (p_invoice_review_until_date IS NOT NULL) THEN -- Bug# 3650522
22104:
22105: END IF;
22106:
22107: IF (p_invoice_review_until_date IS NOT NULL) THEN -- Bug# 3650522
22108: OKL_API.SET_MESSAGE(
22109: G_APP_NAME,
22110: G_VALUE_NOT_ALLOWED,
22111: 'CONTRACT_NUM',
22112: p_contract_number,
22115: 'COL_NAME',
22116: 'INVOICE_REVIEW_UNTIL_DATE'
22117: );
22118:
22119: x_return_status := OKL_API.G_RET_STS_ERROR;
22120:
22121: END IF;
22122:
22123: /* not required, Bug# 3650522
22155: x_rgpv_rec => x_rgpv_rec,
22156: x_rulv_rec => x_rulv_rec
22157: );
22158:
22159: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
22160: raise term_failed;
22161: END IF;
22162: */
22163: /* Bug# 4284166 : not required
22169:
22170: IF (p_invoice_format_id IS NOT NULL
22171: OR
22172: p_invoice_format_code IS NOT NULL) THEN -- Bug# 3650522
22173: OKL_API.SET_MESSAGE(
22174: G_APP_NAME,
22175: G_VALUE_NOT_ALLOWED,
22176: 'CONTRACT_NUM',
22177: p_contract_number,
22180: 'COL_NAME',
22181: 'INVOICE_FORMAT_ID/_CODE'
22182: );
22183:
22184: x_return_status := OKL_API.G_RET_STS_ERROR;
22185:
22186: END IF;
22187:
22188: /* not required, Bug# 3650522
22201: x_invoice_format_id => x_invoice_format_id,
22202: x_invoice_format_name => x_invoice_format_name
22203: );
22204:
22205: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
22206: x_return_status := OKL_API.G_RET_STS_ERROR;
22207: raise term_failed;
22208: END IF;
22209: END IF;
22202: x_invoice_format_name => x_invoice_format_name
22203: );
22204:
22205: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
22206: x_return_status := OKL_API.G_RET_STS_ERROR;
22207: raise term_failed;
22208: END IF;
22209: END IF;
22210:
22211: debug_message('------>Invoice format ID: '||x_invoice_format_id);
22212: */
22213:
22214: IF (p_cash_appl_rule_name IS NOT NULL) THEN -- Bug# 3650522
22215: OKL_API.SET_MESSAGE(
22216: G_APP_NAME,
22217: G_VALUE_NOT_ALLOWED,
22218: 'CONTRACT_NUM',
22219: p_contract_number,
22222: 'COL_NAME',
22223: 'CASH_APPL_RULE_NAME'
22224: );
22225:
22226: x_return_status := OKL_API.G_RET_STS_ERROR;
22227:
22228: END IF;
22229:
22230: IF (p_review_invoice_flag IS NOT NULL) THEN -- Bug# 3650522
22227:
22228: END IF;
22229:
22230: IF (p_review_invoice_flag IS NOT NULL) THEN -- Bug# 3650522
22231: OKL_API.SET_MESSAGE(
22232: G_APP_NAME,
22233: G_VALUE_NOT_ALLOWED,
22234: 'CONTRACT_NUM',
22235: p_contract_number,
22238: 'COL_NAME',
22239: 'REVIEW_INVOICE_FLAG'
22240: );
22241:
22242: x_return_status := OKL_API.G_RET_STS_ERROR;
22243:
22244: END IF;
22245:
22246: /* Not required, Bug# 3650522
22254: p_cash_appl_rule_name => p_cash_appl_rule_name,
22255: x_cash_appl_rule_id => x_cash_appl_rule_id
22256: );
22257:
22258: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
22259: x_return_status := OKL_API.G_RET_STS_ERROR;
22260: raise term_failed;
22261: END IF;
22262: END IF;
22255: x_cash_appl_rule_id => x_cash_appl_rule_id
22256: );
22257:
22258: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
22259: x_return_status := OKL_API.G_RET_STS_ERROR;
22260: raise term_failed;
22261: END IF;
22262: END IF;
22263:
22309: x_rgpv_rec => x_rgpv_rec,
22310: x_rulv_rec => x_rulv_rec
22311: );
22312:
22313: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
22314: raise term_failed;
22315: END IF;
22316: */
22317: /* Bug# 4284166 : not required
22328: -- 3. Review Invoice
22329: -- 4. Reason for Review
22330: -- 5. Review until Date
22331: --
22332: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN -- Bug# 3650522
22333: RAISE term_failed;
22334: END IF;
22335:
22336: debug_message('------>Before Payment Method');
22348: p_payment_method => p_payment_method,
22349: x_payment_method_id => x_payment_method_id
22350: );
22351:
22352: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
22353: x_return_status := OKL_API.G_RET_STS_ERROR;
22354: raise term_failed;
22355: END IF;
22356: END IF;
22349: x_payment_method_id => x_payment_method_id
22350: );
22351:
22352: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
22353: x_return_status := OKL_API.G_RET_STS_ERROR;
22354: raise term_failed;
22355: END IF;
22356: END IF;
22357:
22377: x_rgpv_rec => x_rgpv_rec,
22378: x_rulv_rec => x_rulv_rec
22379: );
22380:
22381: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
22382: raise term_failed;
22383: END IF;
22384:
22385: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
22396:
22397: EXCEPTION
22398:
22399: WHEN term_failed THEN
22400: x_return_status := OKL_API.G_RET_STS_ERROR;
22401:
22402: END process_term;
22403:
22404: ------------------------------------------------------------------------------
22452: --Bug# 6112766: End
22453:
22454: BEGIN
22455:
22456: x_return_status := OKL_API.G_RET_STS_SUCCESS;
22457:
22458: debug_message('------>create_payment_rule_group'); --cklee
22459:
22460: check_stream_type_code(
22466: x_id1 => x_id1,
22467: x_name => l_payment_stream_name
22468: );
22469:
22470: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
22471: okl_api.set_message(
22472: G_APP_NAME,
22473: G_INVALID_VALUE,
22474: 'CONTRACT_NUM',
22467: x_name => l_payment_stream_name
22468: );
22469:
22470: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
22471: okl_api.set_message(
22472: G_APP_NAME,
22473: G_INVALID_VALUE,
22474: 'CONTRACT_NUM',
22475: p_contract_number||'/'||p_line_number,
22477: 'PAYMENT_TYPE_CODE, STREAM_PURPOSE_CODE',
22478: 'COL_VALUE',
22479: p_payment_type_code||', '||p_stream_purpose
22480: );
22481: x_return_status := OKL_API.G_RET_STS_ERROR;
22482: RAISE pay_rule_failed;
22483: END IF;
22484:
22485: --
22492: p_sty_id => x_id1
22493: );
22494:
22495: IF (l_present_yn <> 'Y') THEN
22496: okl_api.set_message(
22497: G_APP_NAME,
22498: G_NO_STRM_TMPL,
22499: 'CONTRACT_NUM',
22500: p_contract_number||'/'||p_line_number,
22542: END IF;
22543:
22544: OKL_RULE_PUB.create_rule_group(
22545: p_api_version => 1.0,
22546: p_init_msg_list => OKL_API.G_FALSE,
22547: x_return_status => x_return_status,
22548: x_msg_count => x_msg_count,
22549: x_msg_data => x_msg_data,
22550: p_rgpv_rec => l_rgpv_rec,
22549: x_msg_data => x_msg_data,
22550: p_rgpv_rec => l_rgpv_rec,
22551: x_rgpv_rec => x_rgpv_rec
22552: );
22553: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
22554: raise pay_rule_failed;
22555: END IF;
22556:
22557: x_rgp_id := x_rgpv_rec.id;
22573: l_rulv_rec.warn_yn := 'N';
22574:
22575: OKL_RULE_PUB.create_rule(
22576: p_api_version => 1.0,
22577: p_init_msg_list => OKL_API.G_FALSE,
22578: x_return_status => x_return_status,
22579: x_msg_count => x_msg_count,
22580: x_msg_data => x_msg_data,
22581: p_rulv_rec => l_rulv_rec,
22581: p_rulv_rec => l_rulv_rec,
22582: x_rulv_rec => x_slh_rulv_rec
22583: );
22584:
22585: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
22586: x_return_status := OKL_API.G_RET_STS_ERROR;
22587: raise pay_rule_failed;
22588: END IF;
22589:
22582: x_rulv_rec => x_slh_rulv_rec
22583: );
22584:
22585: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
22586: x_return_status := OKL_API.G_RET_STS_ERROR;
22587: raise pay_rule_failed;
22588: END IF;
22589:
22590: RETURN;
22594: WHEN rule_group_failed THEN
22595: IF get_rule_group_info%ISOPEN THEN
22596: CLOSE get_rule_group_info;
22597: END IF;
22598: x_return_status := OKL_API.G_RET_STS_ERROR;
22599: --Bug# 6112766: End
22600: WHEN pay_rule_failed THEN
22601: x_return_status := OKL_API.G_RET_STS_ERROR;
22602: END create_payment_rule_group;
22597: END IF;
22598: x_return_status := OKL_API.G_RET_STS_ERROR;
22599: --Bug# 6112766: End
22600: WHEN pay_rule_failed THEN
22601: x_return_status := OKL_API.G_RET_STS_ERROR;
22602: END create_payment_rule_group;
22603:
22604:
22605: ------------------------------------------------------------------------------
22646: x_rulv_tbl rulv_tbl_type;
22647:
22648: BEGIN
22649:
22650: x_return_status := OKL_API.G_RET_STS_ERROR;
22651:
22652: l_rulv_rec := NULL;
22653: l_rulv_rec.rgp_id := p_rgp_id;
22654: l_rulv_rec.dnz_chr_id := p_chr_id;
22664: p_payment_freq_code => p_payment_freq_code,
22665: x_id1 => x_id1,
22666: x_uom_code => x_uom_code
22667: );
22668: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
22669: okl_api.set_message(
22670: G_APP_NAME,
22671: G_INVALID_VALUE,
22672: 'CONTRACT_NUM',
22665: x_id1 => x_id1,
22666: x_uom_code => x_uom_code
22667: );
22668: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
22669: okl_api.set_message(
22670: G_APP_NAME,
22671: G_INVALID_VALUE,
22672: 'CONTRACT_NUM',
22673: p_contract_number||'/'||p_line_number,
22675: 'PAYMENT_FREQUENCY_CODE',
22676: 'COL_VALUE',
22677: p_payment_freq_code
22678: );
22679: x_return_status := OKL_API.G_RET_STS_ERROR;
22680: RAISE pay_other_failed;
22681: END IF;
22682:
22683: l_rulv_rec.jtot_object1_code := 'OKL_TUOM';
22739: l_rulv_tbl(1).object2_id2 := l_rulv_rec.object2_id2;
22740:
22741: okl_la_payments_pvt_1.create_rule(
22742: p_api_version => 1.0,
22743: p_init_msg_list => OKL_API.G_FALSE,
22744: x_return_status => x_return_status,
22745: x_msg_count => x_msg_count,
22746: x_msg_data => x_msg_data,
22747: p_rulv_tbl => l_rulv_tbl,
22747: p_rulv_tbl => l_rulv_tbl,
22748: x_rulv_tbl => x_rulv_tbl
22749: );
22750:
22751: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
22752: x_return_status := OKL_API.G_RET_STS_ERROR;
22753: RAISE pay_other_failed;
22754: END IF;
22755: */
22748: x_rulv_tbl => x_rulv_tbl
22749: );
22750:
22751: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
22752: x_return_status := OKL_API.G_RET_STS_ERROR;
22753: RAISE pay_other_failed;
22754: END IF;
22755: */
22756:
22755: */
22756:
22757: OKL_RULE_PUB.create_rule(
22758: p_api_version => 1.0,
22759: p_init_msg_list => OKL_API.G_FALSE,
22760: x_return_status => x_return_status,
22761: x_msg_count => x_msg_count,
22762: x_msg_data => x_msg_data,
22763: p_rulv_rec => l_rulv_rec,
22763: p_rulv_rec => l_rulv_rec,
22764: x_rulv_rec => x_rulv_rec
22765: );
22766:
22767: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
22768: x_return_status := OKL_API.G_RET_STS_ERROR;
22769: RAISE pay_other_failed;
22770: END IF;
22771:
22764: x_rulv_rec => x_rulv_rec
22765: );
22766:
22767: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
22768: x_return_status := OKL_API.G_RET_STS_ERROR;
22769: RAISE pay_other_failed;
22770: END IF;
22771:
22772: -- Now calculate payment start date
22769: RAISE pay_other_failed;
22770: END IF;
22771:
22772: -- Now calculate payment start date
22773: --Bug# 10257857: Modified call to send in arrears as OKL_API.G_MISS_CHAR
22774: -- so that it does not get updated to NULL
22775: OKL_LA_PAYMENTS_PVT.calculate_details(
22776: p_api_version => 1.0,
22777: p_init_msg_list => OKL_API.G_FALSE,
22773: --Bug# 10257857: Modified call to send in arrears as OKL_API.G_MISS_CHAR
22774: -- so that it does not get updated to NULL
22775: OKL_LA_PAYMENTS_PVT.calculate_details(
22776: p_api_version => 1.0,
22777: p_init_msg_list => OKL_API.G_FALSE,
22778: x_return_status => x_return_status,
22779: x_msg_count => x_msg_count,
22780: x_msg_data => x_msg_data,
22781: p_chr_id => p_chr_id,
22782: p_rgp_id => p_rgp_id,
22783: p_slh_id => p_slh_rulv_rec.id,
22784: structure => NULL,
22785: frequency => NULL,
22786: arrears => OKL_API.G_MISS_CHAR,
22787: -- Bug# 6438785
22788: p_validate_date_yn => 'N'
22789: );
22790:
22787: -- Bug# 6438785
22788: p_validate_date_yn => 'N'
22789: );
22790:
22791: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
22792: x_return_status := OKL_API.G_RET_STS_ERROR;
22793: RAISE pay_other_failed;
22794: END IF;
22795:
22788: p_validate_date_yn => 'N'
22789: );
22790:
22791: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
22792: x_return_status := OKL_API.G_RET_STS_ERROR;
22793: RAISE pay_other_failed;
22794: END IF;
22795:
22796: RETURN;
22796: RETURN;
22797:
22798: EXCEPTION
22799: WHEN pay_other_failed THEN
22800: x_return_status := OKL_API.G_RET_STS_ERROR;
22801:
22802: END create_payment_other_rules;
22803:
22804: ------------------------------------------------------------------------------
22888: AND SYSDATE BETWEEN NVL(start_date_active, SYSDATE) AND NVL(end_date_active, SYSDATE);
22889:
22890: BEGIN
22891:
22892: x_return_status := OKL_API.G_RET_STS_SUCCESS;
22893:
22894: OPEN org_csr(p_inventory_org_id);
22895: FETCH org_csr INTO l_org_id;
22896:
22894: OPEN org_csr(p_inventory_org_id);
22895: FETCH org_csr INTO l_org_id;
22896:
22897: IF org_csr%NOTFOUND THEN
22898: okl_api.set_message(
22899: G_APP_NAME,
22900: G_INVALID_VALUE,
22901: 'CONTRACT_NUM',
22902: p_contract_number,
22915: p_inventory_item_id,
22916: p_inventory_item_name);
22917: FETCH item_csr into l_item_id;
22918: IF item_csr%NOTFOUND THEN
22919: okl_api.set_message(
22920: G_APP_NAME,
22921: G_INVALID_VALUE,
22922: 'CONTRACT_NUM',
22923: p_contract_number||'/'||p_line_number,
22934: p_inventory_item_id,
22935: p_inventory_item_name);
22936: FETCH service_item_csr into l_item_id;
22937: IF service_item_csr%NOTFOUND THEN
22938: okl_api.set_message(
22939: G_APP_NAME,
22940: G_INVALID_VALUE,
22941: 'CONTRACT_NUM',
22942: p_contract_number||'/'||p_line_number,
22964: END IF;
22965: IF service_item_csr%ISOPEN THEN
22966: CLOSE service_item_csr;
22967: END IF;
22968: x_return_status := OKL_API.G_RET_STS_ERROR;
22969:
22970: WHEN OTHERS THEN
22971: okl_api.set_message(
22972: G_APP_NAME,
22967: END IF;
22968: x_return_status := OKL_API.G_RET_STS_ERROR;
22969:
22970: WHEN OTHERS THEN
22971: okl_api.set_message(
22972: G_APP_NAME,
22973: G_UNEXPECTED_ERROR,
22974: 'OKL_SQLCODE',
22975: SQLCODE,
22975: SQLCODE,
22976: 'OKL_SQLERRM',
22977: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
22978: );
22979: x_return_status := OKL_API.G_RET_STS_ERROR;
22980:
22981: END get_inventory_org_item_id;
22982:
22983: ------------------------------------------------------------------------------
23012: WHERE asset_number = p_asset_number
23013: AND SYSDATE BETWEEN NVL(start_date_active, SYSDATE) AND NVL(end_date_active, SYSDATE);
23014:
23015: BEGIN
23016: x_return_status := OKL_API.G_RET_STS_SUCCESS;
23017:
23018: OPEN asset_csr (p_asset_number);
23019: FETCH asset_csr INTO l_id1,
23020: l_id2;
23018: OPEN asset_csr (p_asset_number);
23019: FETCH asset_csr INTO l_id1,
23020: l_id2;
23021: IF asset_csr%NOTFOUND THEN
23022: okl_api.set_message(
23023: G_APP_NAME,
23024: G_INVALID_VALUE,
23025: 'CONTRACT_NUM',
23026: p_contract_number||'/'||p_line_number,
23045: IF asset_csr%ISOPEN THEN
23046: CLOSE asset_csr;
23047: END IF;
23048:
23049: x_return_status := OKL_API.G_RET_STS_ERROR;
23050:
23051: END get_asset_id;
23052:
23053: ------------------------------------------------------------------------------
23132: l_proc_name VARCHAR2(35) := 'GET_ASSET_KEY_ID';
23133:
23134: BEGIN
23135:
23136: x_return_status := OKL_API.G_RET_STS_SUCCESS;
23137: debug_message(l_proc_name);
23138:
23139: IF (p_comb_id IS NOT NULL) THEN
23140: x_comb_id := p_comb_id;
23182: IF flex_asset_key_csr%ISOPEN THEN
23183: CLOSE flex_asset_key_csr;
23184: END IF;
23185:
23186: okl_api.set_message(
23187: G_APP_NAME,
23188: G_INVALID_COMBINATION,
23189: 'CONTRACT_NUM',
23190: p_contract_number||'/'||p_line_number,
23190: p_contract_number||'/'||p_line_number,
23191: 'COMB_TYPE',
23192: 'ASSET_KEY'
23193: );
23194: x_return_status := OKL_API.G_RET_STS_ERROR;
23195:
23196: WHEN OTHERS THEN
23197: okl_api.set_message(
23198: G_APP_NAME,
23193: );
23194: x_return_status := OKL_API.G_RET_STS_ERROR;
23195:
23196: WHEN OTHERS THEN
23197: okl_api.set_message(
23198: G_APP_NAME,
23199: G_UNEXPECTED_ERROR,
23200: 'OKL_SQLCODE',
23201: SQLCODE,
23201: SQLCODE,
23202: 'OKL_SQLERRM',
23203: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
23204: );
23205: x_return_status := OKL_API.G_RET_STS_ERROR;
23206:
23207: END get_asset_key_id;
23208:
23209: ------------------------------------------------------------------------------
23275: flex_failed EXCEPTION;
23276:
23277: BEGIN
23278:
23279: x_return_status := OKL_API.G_RET_STS_SUCCESS;
23280:
23281: IF (p_comb_id IS NOT NULL) THEN
23282: x_comb_id := p_comb_id;
23283: ELSIF (p_segment1 IS NOT NULL
23332: ELSIF flex_loc_csr%ISOPEN THEN
23333: CLOSE flex_loc_csr;
23334: END IF;
23335:
23336: okl_api.set_message(
23337: G_APP_NAME,
23338: G_INVALID_COMBINATION,
23339: 'CONTRACT_NUM',
23340: p_contract_number||'/'||p_line_number,
23340: p_contract_number||'/'||p_line_number,
23341: 'COMB_TYPE',
23342: p_type
23343: );
23344: x_return_status := OKL_API.G_RET_STS_ERROR;
23345:
23346: WHEN OTHERS THEN
23347: x_return_status := OKL_API.G_RET_STS_ERROR;
23348:
23343: );
23344: x_return_status := OKL_API.G_RET_STS_ERROR;
23345:
23346: WHEN OTHERS THEN
23347: x_return_status := OKL_API.G_RET_STS_ERROR;
23348:
23349: END get_flexid;
23350:
23351: ------------------------------------------------------------------------------
23388: AND party_id = g_customer_id
23389: AND status = 'A';
23390:
23391: BEGIN
23392: x_return_status := OKL_API.G_RET_STS_SUCCESS;
23393:
23394: OPEN install_csr (p_install_site_number,
23395: p_install_site_id);
23396: FETCH install_csr INTO l_id1;
23406: WHEN install_failed THEN
23407: IF install_csr%ISOPEN THEN
23408: CLOSE install_csr;
23409: END IF;
23410: okl_api.set_message(
23411: G_APP_NAME,
23412: G_INVALID_VALUE,
23413: 'CONTRACT_NUM',
23414: p_contract_number||'/'||p_line_number,
23416: 'INSTALL_SITE_ID, NAME: ',
23417: 'COL_VALUE',
23418: p_install_site_id||', '||p_install_site_number
23419: );
23420: x_return_status := OKL_API.G_RET_STS_ERROR;
23421:
23422: END get_install_site_id;
23423:
23424: ------------------------------------------------------------------------------
23466: AND ols2.lse_parent_id = ostl.lse_id;
23467:
23468: BEGIN
23469:
23470: x_return_status := OKL_API.G_RET_STS_SUCCESS;
23471:
23472: IF (p_top_line_lty_code IS NULL) THEN
23473: OPEN top_lse_csr(p_lty_code);
23474: FETCH top_lse_csr INTO l_id;
23472: IF (p_top_line_lty_code IS NULL) THEN
23473: OPEN top_lse_csr(p_lty_code);
23474: FETCH top_lse_csr INTO l_id;
23475: IF top_lse_csr%NOTFOUND THEN
23476: okl_api.set_message(
23477: G_APP_NAME,
23478: G_INVALID_LTY_CODE,
23479: 'LTY_CODE',
23480: p_lty_code,
23490: OPEN sub_lse_csr(p_lty_code,
23491: p_top_line_lty_code);
23492: FETCH sub_lse_csr INTO l_id;
23493: IF sub_lse_csr%NOTFOUND THEN
23494: okl_api.set_message(
23495: G_APP_NAME,
23496: G_INVALID_LTY_CODE,
23497: 'LTY_CODE',
23498: p_lty_code,
23515: END IF;
23516: IF sub_lse_csr%ISOPEN THEN
23517: CLOSE sub_lse_csr;
23518: END IF;
23519: x_return_status := OKL_API.G_RET_STS_ERROR;
23520: END get_lse_id;
23521:
23522: ------------------------------------------------------------------------------
23523: -- PROCEDURE validate_real_est
23550:
23551:
23552: BEGIN
23553:
23554: x_return_status := OKL_API.G_RET_STS_SUCCESS;
23555:
23556: -- real estate required columns check
23557: IF ((p_intf_line.real_est_init_direct_cost IS NOT NULL or
23558: p_intf_line.real_est_refinance_amt IS NOT NULL or
23566: p_intf_line.real_est_property_class_code IS NOT NULL and
23567: p_intf_line.real_est_gross_footage IS NOT NULL)) THEN
23568:
23569:
23570: okl_api.set_message(
23571: G_APP_NAME,
23572: G_MISSING_VALUE_FOR_LINE,
23573: 'CONTRACT_NUM',
23574: p_intf_line.contract_number_old||'/'||TO_CHAR(p_intf_line.line_number),
23597: CLOSE c_prc;
23598:
23599: IF (l_prc) THEN
23600:
23601: okl_api.set_message(
23602: G_APP_NAME,
23603: G_INVALID_VALUE,
23604: 'CONTRACT_NUM',
23605: p_intf_line.contract_number_old,
23617: return;
23618:
23619: EXCEPTION
23620: WHEN validate_real_est_failed THEN
23621: x_return_status := OKL_API.G_RET_STS_ERROR;
23622: debug_message(l_proc_name ||': '||l_progress);
23623: WHEN OTHERS THEN
23624: x_return_status := OKL_API.G_RET_STS_ERROR;
23625: debug_message(l_proc_name ||': '||l_progress);
23620: WHEN validate_real_est_failed THEN
23621: x_return_status := OKL_API.G_RET_STS_ERROR;
23622: debug_message(l_proc_name ||': '||l_progress);
23623: WHEN OTHERS THEN
23624: x_return_status := OKL_API.G_RET_STS_ERROR;
23625: debug_message(l_proc_name ||': '||l_progress);
23626:
23627: END validate_real_est;
23628:
23661: FROM okc_line_styles_v
23662: WHERE lty_code = 'FREE_FORM1' -- to determine TOP line
23663: );
23664: BEGIN
23665: x_return_status := OKL_API.G_RET_STS_SUCCESS;
23666: OPEN fin_csr (p_chr_id,
23667: p_asset_number);
23668: FETCH fin_csr INTO l_line_id;
23669:
23667: p_asset_number);
23668: FETCH fin_csr INTO l_line_id;
23669:
23670: IF fin_csr%NOTFOUND THEN
23671: okl_api.set_message(
23672: G_APP_NAME,
23673: G_FIN_ASSET_ERROR,
23674: 'CONTRACT_NUM',
23675: p_contract_number,
23691: WHEN fin_failed THEN
23692: IF fin_csr%ISOPEN THEN
23693: CLOSE fin_csr;
23694: END IF;
23695: x_return_status := OKL_API.G_RET_STS_ERROR;
23696:
23697: WHEN OTHERS THEN
23698: okl_api.set_message(
23699: G_APP_NAME,
23694: END IF;
23695: x_return_status := OKL_API.G_RET_STS_ERROR;
23696:
23697: WHEN OTHERS THEN
23698: okl_api.set_message(
23699: G_APP_NAME,
23700: G_UNEXPECTED_ERROR,
23701: 'OKL_SQLCODE',
23702: SQLCODE,
23702: SQLCODE,
23703: 'OKL_SQLERRM',
23704: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
23705: );
23706: x_return_status := OKL_API.G_RET_STS_ERROR;
23707: END get_link_asset_id;
23708:
23709: ------------------------------------------------------------------------------
23710: -- PROCEDURE validate_usage_other_line
23745: l_dummy VARCHAR2(1);
23746: BEGIN
23747:
23748: debug_message(l_proc_name);
23749: x_return_status := OKL_API.G_RET_STS_SUCCESS;
23750:
23751: l_dummy := 'N';
23752: OPEN assoc_csr(p_usage_item_id,
23753: p_asset_line_id);
23754: FETCH assoc_csr INTO l_dummy;
23755: IF (assoc_csr%NOTFOUND
23756: OR
23757: l_dummy = 'N') THEN
23758: okl_api.set_message(
23759: G_APP_NAME,
23760: G_INVALID_USAGE_ITEM_ASSOC,
23761: 'CONTRACT_NUM',
23762: p_contract_number||'/'||p_line_number,
23773: WHEN assoc_failed THEN
23774: IF assoc_csr%ISOPEN THEN
23775: CLOSE assoc_csr;
23776: END IF;
23777: x_return_status := OKL_API.G_RET_STS_ERROR;
23778: END validate_usage_item_assoc;
23779:
23780: ------------------------------------------------------------------------------
23781: -- PROCEDURE validate_term_quote
23807: WHERE quote_number = p_qte_number;
23808:
23809: BEGIN
23810:
23811: x_return_status := OKL_API.G_RET_STS_SUCCESS;
23812:
23813: IF (p_term_quote_number IS NOT NULL) THEN
23814: OPEN qte_csr (p_term_quote_number);
23815: FETCH qte_csr INTO l_quote_id;
23813: IF (p_term_quote_number IS NOT NULL) THEN
23814: OPEN qte_csr (p_term_quote_number);
23815: FETCH qte_csr INTO l_quote_id;
23816: IF (qte_csr%NOTFOUND) THEN
23817: okl_api.set_message(
23818: G_APP_NAME,
23819: G_INVALID_VALUE,
23820: 'CONTRACT_NUM',
23821: p_contract_number||'/'||p_line_number,
23834:
23835: -- validate quote
23836: okl_maintain_fee_pvt.validate_rollover_feeLine(
23837: p_api_version => 1.0,
23838: p_init_msg_list => OKL_API.G_FALSE,
23839: x_return_status => x_return_status,
23840: x_msg_count => x_msg_count,
23841: x_msg_data => x_msg_data,
23842: p_chr_id => p_chr_id,
23843: p_qte_id => l_quote_id
23844: --p_for_qa_check => 'T'
23845: );
23846:
23847: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
23848: RAISE quote_failed;
23849: END IF;
23850:
23851: x_term_quote_id := l_quote_id;
23853: RETURN;
23854:
23855: EXCEPTION
23856: WHEN quote_failed THEN
23857: x_return_status := OKL_API.G_RET_STS_ERROR;
23858: IF (qte_csr%ISOPEN) THEN
23859: CLOSE qte_csr;
23860: END IF;
23861:
23916: AND (STL.end_date >= p_contract_start_date OR STL.end_date IS NULL);
23917:
23918: BEGIN
23919:
23920: x_return_status := OKL_API.G_RET_STS_SUCCESS;
23921:
23922: OPEN contract_csr(p_contract_id);
23923: FETCH contract_csr INTO l_contract_number,l_contract_start_date;
23924:
23922: OPEN contract_csr(p_contract_id);
23923: FETCH contract_csr INTO l_contract_number,l_contract_start_date;
23924:
23925: IF contract_csr%NOTFOUND THEN
23926: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
23927: CLOSE contract_csr;
23928: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
23929: p_msg_name => G_LLA_CHR_ID);
23930: RAISE party_pmnt_header_failed;
23924:
23925: IF contract_csr%NOTFOUND THEN
23926: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
23927: CLOSE contract_csr;
23928: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
23929: p_msg_name => G_LLA_CHR_ID);
23930: RAISE party_pmnt_header_failed;
23931: END IF;
23932:
23943: p_stream_purpose => p_pth_base_stream_purpose_code,
23944: x_id1 => l_base_stream_type_id,
23945: x_name => l_stream_name
23946: );
23947: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
23948: okl_api.set_message(
23949: G_APP_NAME,
23950: G_INVALID_VALUE,
23951: 'CONTRACT_NUM',
23944: x_id1 => l_base_stream_type_id,
23945: x_name => l_stream_name
23946: );
23947: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
23948: okl_api.set_message(
23949: G_APP_NAME,
23950: G_INVALID_VALUE,
23951: 'CONTRACT_NUM',
23952: l_contract_number, --||'/'||TO_CHAR(p_line_number),
23954: 'PTH_BASE_STREAM_CODE, PTH_BASE_STREAM_PURPOSE_CODE',
23955: 'COL_VALUE',
23956: p_pth_base_stream_code||', '||p_pth_base_stream_purpose_code
23957: );
23958: x_return_status := OKL_API.G_RET_STS_ERROR;
23959: RAISE party_pmnt_header_failed;
23960: END IF;
23961:
23962: -- Check if the stream type is ID is effective
23964: FETCH passthru_stream_csr INTO l_yn;
23965:
23966: IF passthru_stream_csr%NOTFOUND THEN
23967: CLOSE passthru_stream_csr;
23968: okl_api.set_message(
23969: G_APP_NAME,
23970: G_NO_STRM_TMPL,
23971: 'CONTRACT_NUM',
23972: l_contract_number, --||'/'||p_line_number,
23992: p_stream_purpose => p_pth_evg_stream_purpose_code,
23993: x_id1 => l_evg_stream_type_id,
23994: x_name => l_stream_name
23995: );
23996: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
23997: okl_api.set_message(
23998: G_APP_NAME,
23999: G_INVALID_VALUE,
24000: 'CONTRACT_NUM',
23993: x_id1 => l_evg_stream_type_id,
23994: x_name => l_stream_name
23995: );
23996: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
23997: okl_api.set_message(
23998: G_APP_NAME,
23999: G_INVALID_VALUE,
24000: 'CONTRACT_NUM',
24001: l_contract_number, --||'/'||TO_CHAR(p_line_number),
24003: 'PTH_EVG_STREAM_CODE, PTH_EVG_STREAM_PURPOSE_CODE',
24004: 'COL_VALUE',
24005: p_pth_evg_stream_code||', '||p_pth_evg_stream_purpose_code
24006: );
24007: x_return_status := OKL_API.G_RET_STS_ERROR;
24008: RAISE party_pmnt_header_failed;
24009: END IF;
24010:
24011: -- Check if the stream type is ID is effective
24013: FETCH passthru_stream_csr INTO l_yn;
24014:
24015: IF passthru_stream_csr%NOTFOUND THEN
24016: CLOSE passthru_stream_csr;
24017: okl_api.set_message(
24018: G_APP_NAME,
24019: G_NO_STRM_TMPL,
24020: 'CONTRACT_NUM',
24021: l_contract_number, --||'/'||p_line_number,
24087: x_pphv_tbl => l_pmnt_hdr_tbl_out
24088: );
24089: x_party_pmnt_hdr_tbl := l_pmnt_hdr_tbl_out;
24090:
24091: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24092: x_return_status := OKL_API.G_RET_STS_ERROR;
24093: RAISE party_pmnt_header_failed;
24094: END IF;
24095: END IF;
24088: );
24089: x_party_pmnt_hdr_tbl := l_pmnt_hdr_tbl_out;
24090:
24091: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24092: x_return_status := OKL_API.G_RET_STS_ERROR;
24093: RAISE party_pmnt_header_failed;
24094: END IF;
24095: END IF;
24096:
24097: RETURN;
24098:
24099: EXCEPTION
24100: WHEN party_pmnt_header_failed THEN
24101: x_return_status := OKL_API.G_RET_STS_ERROR;
24102:
24103: END create_party_payment_hdr;
24104:
24105: ------------------------------------------------------------------------------
24240: l_stream_name OKL_STRMTYP_SOURCE_V.NAME%TYPE;
24241:
24242: BEGIN
24243:
24244: x_return_status := OKL_API.G_RET_STS_SUCCESS;
24245: p_klev_rec := NULL;
24246: p_clev_rec := NULL;
24247:
24248: -- Set line_type based parameters
24275: p_stream_purpose => p_stream_purpose,
24276: x_id1 => x_stream_type_id,
24277: x_name => l_stream_name
24278: );
24279: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24280: x_return_status := OKL_API.G_RET_STS_ERROR;
24281: RAISE service_failed;
24282: END IF;
24283:
24276: x_id1 => x_stream_type_id,
24277: x_name => l_stream_name
24278: );
24279: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24280: x_return_status := OKL_API.G_RET_STS_ERROR;
24281: RAISE service_failed;
24282: END IF;
24283:
24284:
24294: x_return_status => x_return_status,
24295: p_fee_type => p_fee_type
24296: );
24297:
24298: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24299: okl_api.set_message(
24300: G_APP_NAME,
24301: G_INVALID_VALUE,
24302: 'CONTRACT_NUM',
24295: p_fee_type => p_fee_type
24296: );
24297:
24298: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24299: okl_api.set_message(
24300: G_APP_NAME,
24301: G_INVALID_VALUE,
24302: 'CONTRACT_NUM',
24303: p_contract_number,
24318: p_org_id => p_inv_org_id,
24319: x_usage_item_id => x_usage_item_id,
24320: x_usage_id2 => x_usage_id2
24321: );
24322: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24323: okl_api.set_message(
24324: G_APP_NAME,
24325: G_INVALID_VALUE,
24326: 'CONTRACT_NUM',
24319: x_usage_item_id => x_usage_item_id,
24320: x_usage_id2 => x_usage_id2
24321: );
24322: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24323: okl_api.set_message(
24324: G_APP_NAME,
24325: G_INVALID_VALUE,
24326: 'CONTRACT_NUM',
24327: p_contract_number,
24355: OR
24356: p_line_type_prev <> p_line_type)
24357: AND
24358: p_new_line_flag = 'N') THEN
24359: okl_api.set_message(
24360: G_APP_NAME,
24361: G_INVALID_NEW_LINE_REQ,
24362: 'CONTRACT_NUM',
24363: p_contract_number,
24387: p_lty_code => l_lty_code,
24388: p_top_line_lty_code => NULL,
24389: x_lse_id => x_lse_id
24390: );
24391: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24392: x_return_status := OKL_API.G_RET_STS_ERROR;
24393: RAISE service_failed;
24394: END IF;
24395: p_clev_rec.chr_id := p_chr_id;
24388: p_top_line_lty_code => NULL,
24389: x_lse_id => x_lse_id
24390: );
24391: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24392: x_return_status := OKL_API.G_RET_STS_ERROR;
24393: RAISE service_failed;
24394: END IF;
24395: p_clev_rec.chr_id := p_chr_id;
24396: p_clev_rec.dnz_chr_id := p_chr_id;
24424: p_klev_rec.initial_direct_cost IS NOT NULL
24425: AND
24426: p_klev_rec.initial_direct_cost > p_klev_rec.amount) THEN
24427:
24428: OKL_API.SET_MESSAGE(
24429: G_APP_NAME,
24430: G_INIT_DIRC_COST,
24431: 'CONTRACT_NUM',
24432: p_contract_number,
24433: 'LINE_NUM',
24434: p_line_number
24435: );
24436:
24437: x_return_status := OKL_API.G_RET_STS_ERROR;
24438: RAISE service_failed;
24439:
24440: END IF;
24441:
24461: p_term_quote_number => p_term_quote_number,
24462: x_term_quote_id => x_term_quote_id
24463: );
24464:
24465: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24466: x_return_status := OKL_API.G_RET_STS_ERROR;
24467: RAISE service_failed;
24468: END IF;
24469:
24462: x_term_quote_id => x_term_quote_id
24463: );
24464:
24465: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24466: x_return_status := OKL_API.G_RET_STS_ERROR;
24467: RAISE service_failed;
24468: END IF;
24469:
24470: p_klev_rec.qte_id := x_term_quote_id;
24521: x_vendor_id => l_fee_vendor_id,
24522: p_vendor_name => l_fee_vendor_name
24523: );
24524:
24525: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24526: RAISE service_failed;
24527: END IF;
24528: END IF;
24529:
24534: l_fee_types_rec.qte_id := p_term_quote_id;
24535:
24536: okl_maintain_fee_pvt.validate_fee_type(
24537: p_api_version => 1.0,
24538: p_init_msg_list => OKL_API.G_FALSE,
24539: x_return_status => x_return_status,
24540: x_msg_count => x_msg_count,
24541: x_msg_data => x_msg_data,
24542: p_fee_types_rec => l_fee_types_rec,
24542: p_fee_types_rec => l_fee_types_rec,
24543: x_fee_types_rec => x_fee_types_rec
24544: );
24545:
24546: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24547: RAISE service_failed;
24548: END IF;
24549:
24550: debug_message('=====> Qte ID: '||x_fee_types_rec.qte_id);
24582: --Bug# 11690042
24583:
24584: okl_contract_pub.create_contract_line(
24585: p_api_version => 1.0,
24586: p_init_msg_list => OKL_API.G_FALSE,
24587: x_return_status => x_return_status,
24588: x_msg_count => x_msg_count,
24589: x_msg_data => x_msg_data,
24590: p_clev_rec => p_clev_rec,
24592: x_clev_rec => x_clev_rec,
24593: x_klev_rec => x_klev_rec
24594: );
24595:
24596: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24597: x_return_status := OKL_API.G_RET_STS_ERROR;
24598: RAISE service_failed;
24599: END IF;
24600:
24593: x_klev_rec => x_klev_rec
24594: );
24595:
24596: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24597: x_return_status := OKL_API.G_RET_STS_ERROR;
24598: RAISE service_failed;
24599: END IF;
24600:
24601: x_cle_id := x_clev_rec.id;
24625: p_cimv_rec.exception_yn := 'N';
24626:
24627: OKL_OKC_MIGRATION_PVT.create_contract_item(
24628: p_api_version => 1.0,
24629: p_init_msg_list => OKL_API.G_FALSE,
24630: x_return_status => x_return_status,
24631: x_msg_count => x_msg_count,
24632: x_msg_data => x_msg_data,
24633: p_cimv_rec => p_cimv_rec,
24633: p_cimv_rec => p_cimv_rec,
24634: x_cimv_rec => x_cimv_rec
24635: );
24636: l_progress := '100.5';
24637: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24638: x_return_status := OKL_API.G_RET_STS_ERROR;
24639: RAISE service_failed;
24640: END IF;
24641:
24634: x_cimv_rec => x_cimv_rec
24635: );
24636: l_progress := '100.5';
24637: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24638: x_return_status := OKL_API.G_RET_STS_ERROR;
24639: RAISE service_failed;
24640: END IF;
24641:
24642: debug_message('Top line created for line# : '|| p_line_number);
24662: p_pth_evg_stream_purpose_code => p_pth_evg_stream_purpose_code,
24663: x_party_pmnt_hdr_tbl => x_party_pmnt_hdr_tbl_out
24664: );
24665: debug_message('------>Create party payment ends '||x_return_status);
24666: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24667: x_return_status := OKL_API.G_RET_STS_ERROR;
24668: RAISE service_failed;
24669: END IF;
24670: END IF;
24663: x_party_pmnt_hdr_tbl => x_party_pmnt_hdr_tbl_out
24664: );
24665: debug_message('------>Create party payment ends '||x_return_status);
24666: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24667: x_return_status := OKL_API.G_RET_STS_ERROR;
24668: RAISE service_failed;
24669: END IF;
24670: END IF;
24671: IF (x_party_pmnt_hdr_tbl_out.COUNT > 0 )THEN
24699: p_lty_code => l_link_lty_code,
24700: p_top_line_lty_code => l_lty_code,
24701: x_lse_id => x_lse_id
24702: );
24703: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24704: x_return_status := OKL_API.G_RET_STS_ERROR;
24705: RAISE service_failed;
24706: END IF;
24707:
24700: p_top_line_lty_code => l_lty_code,
24701: x_lse_id => x_lse_id
24702: );
24703: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24704: x_return_status := OKL_API.G_RET_STS_ERROR;
24705: RAISE service_failed;
24706: END IF;
24707:
24708: p_clev_rec.cle_id := x_cle_id;
24738:
24739:
24740: okl_contract_pub.create_contract_line(
24741: p_api_version => 1.0,
24742: p_init_msg_list => OKL_API.G_FALSE,
24743: x_return_status => x_return_status,
24744: x_msg_count => x_msg_count,
24745: x_msg_data => x_msg_data,
24746: p_clev_rec => p_clev_rec,
24749: x_klev_rec => x_klev_rec
24750: );
24751: l_progress := '100.6';
24752:
24753: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24754: x_return_status := OKL_API.G_RET_STS_ERROR;
24755: RAISE service_failed;
24756: END IF;
24757:
24750: );
24751: l_progress := '100.6';
24752:
24753: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24754: x_return_status := OKL_API.G_RET_STS_ERROR;
24755: RAISE service_failed;
24756: END IF;
24757:
24758: x_sub_cle_id := x_clev_rec.id; -- ID of the sub-line, Bug# 3110115
24768: p_line_number => p_line_number,
24769: x_asset_line_id => x_asset_line_id
24770: );
24771:
24772: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24773: x_return_status := OKL_API.G_RET_STS_ERROR;
24774: RAISE service_failed;
24775: END IF;
24776:
24769: x_asset_line_id => x_asset_line_id
24770: );
24771:
24772: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24773: x_return_status := OKL_API.G_RET_STS_ERROR;
24774: RAISE service_failed;
24775: END IF;
24776:
24777: --
24790: p_usage_item_id => x_usage_item_id,
24791: p_inv_org_id => x_inv_org_id
24792: );
24793: l_progress := '100.7';
24794: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24795: RAISE service_failed;
24796: END IF;
24797: END IF;
24798:
24806: p_cimv_rec.exception_yn := 'N';
24807:
24808: okl_okc_migration_pvt.create_contract_item(
24809: p_api_version => 1.0,
24810: p_init_msg_list => OKL_API.G_FALSE,
24811: x_return_status => x_return_status,
24812: x_msg_count => x_msg_count,
24813: x_msg_data => x_msg_data,
24814: p_cimv_rec => p_cimv_rec,
24814: p_cimv_rec => p_cimv_rec,
24815: x_cimv_rec => x_cimv_rec
24816: );
24817: l_progress := '100.8';
24818: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24819: x_return_status := OKL_API.G_RET_STS_ERROR;
24820: RAISE service_failed;
24821: END IF;
24822:
24815: x_cimv_rec => x_cimv_rec
24816: );
24817: l_progress := '100.8';
24818: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24819: x_return_status := OKL_API.G_RET_STS_ERROR;
24820: RAISE service_failed;
24821: END IF;
24822:
24823: -- Bug 4190051 Start
24840: l_klev_rec.capital_amount := p_link_asset_amount + l_capital_amount;
24841:
24842: okl_contract_pub.update_contract_line
24843: (p_api_version => 1.0,
24844: p_init_msg_list => OKL_API.G_FALSE,
24845: x_return_status => x_return_status,
24846: x_msg_count => x_msg_count,
24847: x_msg_data => x_msg_data,
24848: p_clev_rec => l_clev_rec,
24848: p_clev_rec => l_clev_rec,
24849: p_klev_rec => l_klev_rec,
24850: x_clev_rec => x_clev_rec,
24851: x_klev_rec => x_klev_rec);
24852: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
24853: RAISE OKL_API.G_EXCEPTION_ERROR;
24854: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
24855: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
24856: END IF;
24849: p_klev_rec => l_klev_rec,
24850: x_clev_rec => x_clev_rec,
24851: x_klev_rec => x_klev_rec);
24852: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
24853: RAISE OKL_API.G_EXCEPTION_ERROR;
24854: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
24855: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
24856: END IF;
24857:
24850: x_clev_rec => x_clev_rec,
24851: x_klev_rec => x_klev_rec);
24852: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
24853: RAISE OKL_API.G_EXCEPTION_ERROR;
24854: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
24855: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
24856: END IF;
24857:
24858: END IF; -- capitalized fee
24851: x_klev_rec => x_klev_rec);
24852: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
24853: RAISE OKL_API.G_EXCEPTION_ERROR;
24854: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
24855: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
24856: END IF;
24857:
24858: END IF; -- capitalized fee
24859:
24872: RETURN;
24873:
24874: EXCEPTION
24875: WHEN service_failed THEN
24876: x_return_status := OKL_API.G_RET_STS_ERROR;
24877:
24878: WHEN OTHERS THEN
24879: debug_message(l_progress);
24880:
24877:
24878: WHEN OTHERS THEN
24879: debug_message(l_progress);
24880:
24881: okl_api.set_message(
24882: G_APP_NAME,
24883: G_UNEXPECTED_ERROR,
24884: 'OKL_SQLCODE',
24885: SQLCODE,
24885: SQLCODE,
24886: 'OKL_SQLERRM',
24887: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
24888: );
24889: x_return_status := OKL_API.G_RET_STS_ERROR;
24890:
24891: END process_other_line;
24892:
24893: ------------------------------------------------------------------------------
24910: l_id NUMBER;
24911:
24912: BEGIN
24913:
24914: x_return_status := OKL_API.G_RET_STS_SUCCESS;
24915:
24916: OPEN qcl_csr(p_qcl_name);
24917: FETCH qcl_csr INTO l_id;
24918: CLOSE qcl_csr;
24995: credit_line_failed EXCEPTION;
24996:
24997: BEGIN
24998:
24999: x_return_status := OKL_API.G_RET_STS_SUCCESS;
25000: /* 4414408
25001: IF (p_customer_id IS NULL
25002: AND
25003: p_customer_number IS NULL) THEN
25043: -- x_rulv_tbl => l_rulv_tbl,
25044: -- x_rule_count => l_rule_count
25045: -- );
25046:
25047: -- IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
25048: -- RAISE credit_line_failed;
25049: -- END IF;
25050:
25051: -- IF (l_rule_count > 0) THEN
25063: p_customer_account_number => p_customer_account_number,
25064: x_customer_account_id => l_customer_account_id
25065: );
25066:
25067: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
25068: x_return_status := OKL_API.G_RET_STS_ERROR;
25069: RAISE credit_line_failed;
25070: END IF;
25071: END IF;
25064: x_customer_account_id => l_customer_account_id
25065: );
25066:
25067: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
25068: x_return_status := OKL_API.G_RET_STS_ERROR;
25069: RAISE credit_line_failed;
25070: END IF;
25071: END IF;
25072: */
25101: x_rulv_tbl => l_rulv_tbl,
25102: x_rule_count => l_rule_count
25103: );
25104:
25105: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
25106: RAISE credit_line_failed;
25107: END IF;
25108:
25109: IF (l_rule_count > 0) THEN
25133: END IF;
25134:
25135: EXCEPTION
25136: WHEN credit_line_failed THEN
25137: x_return_status := OKL_API.G_RET_STS_ERROR;
25138: END validate_credit_line;
25139:
25140: ------------------------------------------------------------------------------
25141: -- PROCEDURE contract_after_yield
25177: l_import_stage OKC_K_HEADERS_V.STS_CODE%TYPE;
25178: l_process_status VARCHAR2(1);
25179: BEGIN
25180:
25181: x_return_status := OKL_API.G_RET_STS_SUCCESS;
25182: debug_message(l_proc_name);
25183: x_return_status := OKL_API.START_ACTIVITY(
25184: p_api_name => l_api_name,
25185: p_pkg_name => G_PKG_NAME,
25179: BEGIN
25180:
25181: x_return_status := OKL_API.G_RET_STS_SUCCESS;
25182: debug_message(l_proc_name);
25183: x_return_status := OKL_API.START_ACTIVITY(
25184: p_api_name => l_api_name,
25185: p_pkg_name => G_PKG_NAME,
25186: p_init_msg_list => p_init_msg_list,
25187: l_api_version => l_api_version,
25189: p_api_type => G_API_TYPE,
25190: x_return_status => x_return_status);
25191:
25192: -- check if activity started successfully
25193: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
25194: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
25195: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
25196: raise OKL_API.G_EXCEPTION_ERROR;
25197: END IF;
25190: x_return_status => x_return_status);
25191:
25192: -- check if activity started successfully
25193: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
25194: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
25195: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
25196: raise OKL_API.G_EXCEPTION_ERROR;
25197: END IF;
25198:
25191:
25192: -- check if activity started successfully
25193: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
25194: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
25195: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
25196: raise OKL_API.G_EXCEPTION_ERROR;
25197: END IF;
25198:
25199: l_contract_number := '?';
25192: -- check if activity started successfully
25193: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
25194: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
25195: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
25196: raise OKL_API.G_EXCEPTION_ERROR;
25197: END IF;
25198:
25199: l_contract_number := '?';
25200: OPEN contract_csr (p_chr_id);
25221: debug_message('Calling : okl_contract_book_pub.generate_journal_entries');
25222: okl_contract_book_pub.generate_journal_entries(
25223: p_api_version => p_api_version,
25224: p_init_msg_list => p_init_msg_list,
25225: p_commit => Okl_Api.G_FALSE,
25226: p_contract_id => p_chr_id,
25227: p_transaction_type => 'Booking',
25228: p_draft_yn => Okc_Api.G_TRUE,
25229: x_return_status => x_return_status,
25235: Do not want to handle and throw exception
25236: which might cause Yield Generation to go for toss
25237: --
25238: */
25239: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25240: RAISE after_yield_failed;
25241: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
25242: RAISE after_yield_failed;
25243: END IF;
25237: --
25238: */
25239: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25240: RAISE after_yield_failed;
25241: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
25242: RAISE after_yield_failed;
25243: END IF;
25244:
25245: ELSIF (l_import_stage = 'APPROVED') THEN
25249: debug_message('Calling : okl_contract_book_pub.generate_journal_entries');
25250: okl_contract_book_pub.generate_journal_entries(
25251: p_api_version => p_api_version,
25252: p_init_msg_list => p_init_msg_list,
25253: p_commit => Okl_Api.G_FALSE,
25254: p_contract_id => p_chr_id,
25255: p_transaction_type => 'Booking',
25256: p_draft_yn => Okc_Api.G_TRUE,
25257: x_return_status => x_return_status,
25258: x_msg_count => x_msg_count,
25259: x_msg_data => x_msg_data
25260: );
25261:
25262: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25263: RAISE after_yield_failed;
25264: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
25265: RAISE after_yield_failed;
25266: END IF;
25260: );
25261:
25262: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25263: RAISE after_yield_failed;
25264: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
25265: RAISE after_yield_failed;
25266: END IF;
25267:
25268: --Bug# 2566822 : AME/WF integration in approval process
25287: p_chr_id => p_chr_id,
25288: x_process_status => l_process_status
25289: );
25290:
25291: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25292: RAISE after_yield_failed;
25293: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)
25294: OR (l_process_status = OKL_API.G_RET_STS_ERROR) THEN
25295: RAISE after_yield_failed;
25289: );
25290:
25291: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25292: RAISE after_yield_failed;
25293: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)
25294: OR (l_process_status = OKL_API.G_RET_STS_ERROR) THEN
25295: RAISE after_yield_failed;
25296: END IF;
25297:
25290:
25291: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25292: RAISE after_yield_failed;
25293: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)
25294: OR (l_process_status = OKL_API.G_RET_STS_ERROR) THEN
25295: RAISE after_yield_failed;
25296: END IF;
25297:
25298: ELSIF (l_import_stage = 'BOOKED') THEN
25303:
25304: okl_contract_book_pub.generate_journal_entries(
25305: p_api_version => p_api_version,
25306: p_init_msg_list => p_init_msg_list,
25307: p_commit => Okl_Api.G_FALSE,
25308: p_contract_id => p_chr_id,
25309: p_transaction_type => 'Booking',
25310: p_draft_yn => Okc_Api.G_TRUE,
25311: x_return_status => x_return_status,
25312: x_msg_count => x_msg_count,
25313: x_msg_data => x_msg_data
25314: );
25315:
25316: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25317: RAISE after_yield_failed;
25318: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
25319: RAISE after_yield_failed;
25320: END IF;
25314: );
25315:
25316: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25317: RAISE after_yield_failed;
25318: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
25319: RAISE after_yield_failed;
25320: END IF;
25321:
25322:
25336: x_msg_data => x_msg_data,
25337: p_chr_id => p_chr_id
25338: );
25339:
25340: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25341: RAISE after_yield_failed;
25342: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
25343: RAISE after_yield_failed;
25344: END IF;
25338: );
25339:
25340: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25341: RAISE after_yield_failed;
25342: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
25343: RAISE after_yield_failed;
25344: END IF;
25345:
25346:
25353: x_msg_data => x_msg_data,
25354: p_chr_id => p_chr_id
25355: );
25356:
25357: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25358: RAISE after_yield_failed;
25359: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
25360: RAISE after_yield_failed;
25361: END IF;
25355: );
25356:
25357: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25358: RAISE after_yield_failed;
25359: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
25360: RAISE after_yield_failed;
25361: END IF;
25362:
25363: -- R12B Authoring OA Migration
25371: p_khr_id => p_chr_id ,
25372: p_prog_short_name => OKL_BOOK_CONTROLLER_PVT.G_SUBMIT_CONTRACT,
25373: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE);
25374:
25375: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25376: RAISE after_yield_failed;
25377: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
25378: RAISE after_yield_failed;
25379: END IF;
25373: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE);
25374:
25375: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25376: RAISE after_yield_failed;
25377: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
25378: RAISE after_yield_failed;
25379: END IF;
25380:
25381: END IF; -- import_stage
25388: p_status => 'FINAL',
25389: x_return_status => x_return_status
25390: );
25391:
25392: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
25393: RAISE after_yield_failed;
25394: END IF;
25395:
25396: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
25392: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
25393: RAISE after_yield_failed;
25394: END IF;
25395:
25396: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
25397: x_msg_data => x_msg_data);
25398:
25399:
25400: RETURN;
25403: when after_yield_failed THEN
25404: IF contract_csr%ISOPEN THEN
25405: CLOSE contract_csr;
25406: END IF;
25407: x_return_status := OKL_API.G_RET_STS_SUCCESS; -- to allow Yield process to complete SUCCESSFULLY
25408:
25409: when OKL_API.G_EXCEPTION_ERROR then
25410: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
25411: p_api_name => l_api_name,
25405: CLOSE contract_csr;
25406: END IF;
25407: x_return_status := OKL_API.G_RET_STS_SUCCESS; -- to allow Yield process to complete SUCCESSFULLY
25408:
25409: when OKL_API.G_EXCEPTION_ERROR then
25410: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
25411: p_api_name => l_api_name,
25412: p_pkg_name => G_PKG_NAME,
25413: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
25406: END IF;
25407: x_return_status := OKL_API.G_RET_STS_SUCCESS; -- to allow Yield process to complete SUCCESSFULLY
25408:
25409: when OKL_API.G_EXCEPTION_ERROR then
25410: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
25411: p_api_name => l_api_name,
25412: p_pkg_name => G_PKG_NAME,
25413: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
25414: x_msg_count => x_msg_count,
25409: when OKL_API.G_EXCEPTION_ERROR then
25410: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
25411: p_api_name => l_api_name,
25412: p_pkg_name => G_PKG_NAME,
25413: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
25414: x_msg_count => x_msg_count,
25415: x_msg_data => x_msg_data,
25416: p_api_type => G_API_TYPE);
25417:
25415: x_msg_data => x_msg_data,
25416: p_api_type => G_API_TYPE);
25417:
25418:
25419: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
25420: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
25421: p_api_name => l_api_name,
25422: p_pkg_name => G_PKG_NAME,
25423: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
25416: p_api_type => G_API_TYPE);
25417:
25418:
25419: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
25420: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
25421: p_api_name => l_api_name,
25422: p_pkg_name => G_PKG_NAME,
25423: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
25424: x_msg_count => x_msg_count,
25419: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
25420: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
25421: p_api_name => l_api_name,
25422: p_pkg_name => G_PKG_NAME,
25423: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
25424: x_msg_count => x_msg_count,
25425: x_msg_data => x_msg_data,
25426: p_api_type => G_API_TYPE);
25427:
25425: x_msg_data => x_msg_data,
25426: p_api_type => G_API_TYPE);
25427:
25428: when OTHERS then
25429: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
25430: p_api_name => l_api_name,
25431: p_pkg_name => G_PKG_NAME,
25432: p_exc_name => 'OTHERS',
25433: x_msg_count => x_msg_count,
25467: l_upfront_tax_status VARCHAR2(1) := 'S';
25468:
25469: BEGIN
25470:
25471: x_return_status := OKL_API.G_RET_STS_SUCCESS;
25472:
25473: IF (p_import_stage IN ('PASSED','COMPLETE','APPROVED','BOOKED')) THEN
25474: /* 4414408
25475: get_qcl_id(
25477: p_qcl_name => 'OKL LA QA CHECK LIST',
25478: x_qcl_id => l_qcl_id);
25479:
25480: debug_message('ID : '||l_qcl_id);
25481: IF (x_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
25482: */
25483: --fnd_file.put_line(fnd_file.output, 'Running QA Checker...');
25484: debug_message('ID : '||g_qcl_id);
25485: write_to_log('Running QA Checker...');
25484: debug_message('ID : '||g_qcl_id);
25485: write_to_log('Running QA Checker...');
25486: okl_contract_book_pub.execute_qa_check_list(
25487: p_api_version => 1.0,
25488: p_init_msg_list => OKL_API.G_FALSE,
25489: x_return_status => x_return_status,
25490: x_msg_count => x_msg_count,
25491: x_msg_data => x_msg_data,
25492: p_qcl_id => g_qcl_id, -- 4414408
25520: IF (l_qa_check_status = 'S') THEN
25521:
25522: OKL_CONTRACT_BOOK_PVT.calculate_upfront_tax(
25523: p_api_version => 1.0,
25524: p_init_msg_list => OKL_API.G_FALSE,
25525: x_return_status => x_return_status,
25526: x_msg_count => x_msg_count,
25527: x_msg_data => x_msg_data,
25528: p_chr_id => p_chr_id,
25527: x_msg_data => x_msg_data,
25528: p_chr_id => p_chr_id,
25529: x_process_status => l_upfront_tax_status);
25530:
25531: IF (x_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
25532: commit;
25533: ELSE
25534: report_error(x_msg_count, x_msg_data);
25535: rollback;
25553:
25554: --OKL_GENERATE_STREAMS_PUB.GENERATE_STREAMS(
25555: OKL_LA_STREAM_PUB.GEN_INTR_EXTR_STREAM (
25556: p_api_version => 1.0,
25557: p_init_msg_list => OKL_API.G_FALSE,
25558: p_khr_id => p_chr_id,
25559: p_generation_ctx_code => 'AUTH',
25560: x_trx_number => x_trx_number,
25561: x_trx_status => x_trx_status,
25563: x_msg_count => x_msg_count,
25564: x_msg_data => x_msg_data
25565: );
25566:
25567: IF (x_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
25568: commit; -- required for stream generation
25569: --fnd_file.put_line(fnd_file.output,'Req ID: '||x_trx_number);
25570: write_to_log('Req ID: '||x_trx_number);
25571: ELSE
25580:
25581: EXCEPTION
25582: WHEN OTHERS THEN
25583:
25584: okl_api.set_message(
25585: G_APP_NAME,
25586: G_UNEXPECTED_ERROR,
25587: 'OKL_SQLCODE',
25588: SQLCODE,
25588: SQLCODE,
25589: 'OKL_SQLERRM',
25590: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
25591: );
25592: x_return_status := OKL_API.G_RET_STS_ERROR;
25593:
25594: report_error (
25595: x_msg_count => x_msg_count,
25596: x_msg_data => x_msg_data
25612: tal_failed EXCEPTION;
25613: l_id NUMBER;
25614:
25615: BEGIN
25616: x_return_status := OKL_API.G_RET_STS_SUCCESS;
25617: OPEN tal_csr(p_fa_line_id);
25618: FETCH tal_csr INTO l_id;
25619: IF tal_csr%NOTFOUND THEN
25620: RAISE tal_failed;
25626: WHEN tal_failed THEN
25627: IF tal_csr%ISOPEN THEN
25628: CLOSE tal_csr;
25629: END IF;
25630: okl_api.set_message(
25631: G_APP_NAME,
25632: G_OKL_TXD_ID
25633: );
25634: x_return_status := OKL_API.G_RET_STS_ERROR;
25630: okl_api.set_message(
25631: G_APP_NAME,
25632: G_OKL_TXD_ID
25633: );
25634: x_return_status := OKL_API.G_RET_STS_ERROR;
25635: END get_tal_id;
25636:
25637: ------------------------------------------------------------------------------
25638: -- PROCEDURE populate_header_rec
25712: p_currency_code => NVL(p_intf_header.currency_code,
25713: p_temp_header.currency_code)
25714: );
25715:
25716: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
25717: x_return_status := OKL_API.G_RET_STS_ERROR;
25718: RAISE pop_header_failed;
25719: END IF;
25720:
25713: p_temp_header.currency_code)
25714: );
25715:
25716: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
25717: x_return_status := OKL_API.G_RET_STS_ERROR;
25718: RAISE pop_header_failed;
25719: END IF;
25720:
25721:
25756:
25757: IF (l_id1 IS NOT NULL) THEN
25758: g_customer_id := l_id1;
25759: ELSE
25760: okl_api.set_message(
25761: G_APP_NAME,
25762: G_INVALID_VALUE,
25763: 'CONTRACT_NUM',
25764: p_intf_header.contract_number_old,
25767: 'COL_VALUE',
25768: p_intf_header.customer_id||', '||p_intf_header.customer_number
25769: );
25770:
25771: x_return_status := OKL_API.G_RET_STS_ERROR;
25772: RAISE pop_header_failed;
25773: END IF;
25774:
25775: x_customer_account_id := NULL;
25785: p_customer_account_id => p_intf_header.customer_account_id,
25786: p_customer_account_number => p_intf_header.customer_account_number,
25787: x_customer_account_id => x_customer_account_id
25788: );
25789: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
25790: x_return_status := OKL_API.G_RET_STS_ERROR;
25791: RAISE pop_header_failed;
25792: END IF;
25793: ELSIF (p_intf_header.template_number IS NOT NULL) THEN
25786: p_customer_account_number => p_intf_header.customer_account_number,
25787: x_customer_account_id => x_customer_account_id
25788: );
25789: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
25790: x_return_status := OKL_API.G_RET_STS_ERROR;
25791: RAISE pop_header_failed;
25792: END IF;
25793: ELSIF (p_intf_header.template_number IS NOT NULL) THEN
25794: x_customer_account_id := p_temp_header.cust_acct_id;
25796:
25797: IF (x_customer_account_id IS NULL
25798: AND
25799: p_intf_header.import_request_stage <> 'NEW') THEN
25800: okl_api.set_message(
25801: G_APP_NAME,
25802: G_MISSING_VALUE_FOR_STAGE,
25803: 'CONTRACT_NUM',
25804: p_intf_header.contract_number_old,
25806: 'CUSTOMER_ACCOUNT',
25807: 'STAGE',
25808: p_intf_header.import_request_stage
25809: );
25810: x_return_status := OKL_API.G_RET_STS_ERROR;
25811: RAISE pop_header_failed;
25812: END IF;
25813:
25814: x_chrv_rec.cust_acct_id := x_customer_account_id;
25828: p_bill_to_address => p_intf_header.bill_to_address,
25829: p_customer_account_id => x_customer_account_id,
25830: x_bill_to_address_id => x_bill_to_address_id
25831: );
25832: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
25833: x_return_status := OKL_API.G_RET_STS_ERROR;
25834: RAISE pop_header_failed;
25835: END IF;
25836:
25829: p_customer_account_id => x_customer_account_id,
25830: x_bill_to_address_id => x_bill_to_address_id
25831: );
25832: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
25833: x_return_status := OKL_API.G_RET_STS_ERROR;
25834: RAISE pop_header_failed;
25835: END IF;
25836:
25837: ELSIF (p_intf_header.template_number IS NOT NULL) THEN
25840:
25841: IF (x_bill_to_address_id IS NULL
25842: AND
25843: p_intf_header.import_request_stage <> 'NEW') THEN
25844: okl_api.set_message(
25845: G_APP_NAME,
25846: G_MISSING_VALUE_FOR_STAGE,
25847: 'CONTRACT_NUM',
25848: p_intf_header.contract_number_old,
25850: 'BILL_TO_ADDRESS',
25851: 'STAGE',
25852: p_intf_header.import_request_stage
25853: );
25854: x_return_status := OKL_API.G_RET_STS_ERROR;
25855: RAISE pop_header_failed;
25856: END IF;
25857:
25858: g_bill_to_address_id := x_bill_to_address_id;
25890: p_auth_org_id => x_chrv_rec.authoring_org_id,
25891: x_agreement_id => x_program_agreement_id
25892: );
25893:
25894: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
25895: okl_api.set_message(
25896: G_APP_NAME,
25897: G_INVALID_VALUE,
25898: 'CONTRACT_NUM',
25891: x_agreement_id => x_program_agreement_id
25892: );
25893:
25894: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
25895: okl_api.set_message(
25896: G_APP_NAME,
25897: G_INVALID_VALUE,
25898: 'CONTRACT_NUM',
25899: p_intf_header.contract_number_old,
25915: x_return_status := get_product_id(p_product_id => p_intf_header.product_id,
25916: p_product_name => p_intf_header.product_name,
25917: x_product_id => x_product_id );
25918:
25919: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
25920: okl_api.set_message(
25921: G_APP_NAME,
25922: G_INVALID_VALUE,
25923: 'CONTRACT_NUM',
25916: p_product_name => p_intf_header.product_name,
25917: x_product_id => x_product_id );
25918:
25919: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
25920: okl_api.set_message(
25921: G_APP_NAME,
25922: G_INVALID_VALUE,
25923: 'CONTRACT_NUM',
25924: p_intf_header.contract_number_old,
25927: 'COL_VALUE',
25928: p_intf_header.product_id||', '||p_intf_header.product_name
25929: );
25930:
25931: x_return_status := OKL_API.G_RET_STS_ERROR;
25932:
25933: RAISE pop_header_failed;
25934: END IF;
25935: x_khrv_rec.pdt_id := x_product_id;
25937: x_khrv_rec.pdt_id := p_temp_header.pdt_id;
25938: END IF;
25939:
25940: IF (NVL(p_intf_header.assignable_yn,'N') NOT IN ('Y','N')) THEN
25941: okl_api.set_message(
25942: G_APP_NAME,
25943: G_INVALID_VALUE,
25944: 'CONTRACT_NUM',
25945: p_intf_header.contract_number_old,
25948: 'COL_VALUE',
25949: p_intf_header.assignable_yn
25950: );
25951:
25952: x_return_status := OKL_API.G_RET_STS_ERROR;
25953:
25954: RAISE pop_header_failed;
25955: END IF;
25956:
25955: END IF;
25956:
25957: -- start cklee bug# 3440442
25958: IF (NVL(p_intf_header.prefunding_eligible_flag,'N') NOT IN ('Y','N')) THEN
25959: okl_api.set_message(
25960: G_APP_NAME,
25961: G_INVALID_VALUE,
25962: 'CONTRACT_NUM',
25963: p_intf_header.contract_number_old,
25966: 'COL_VALUE',
25967: p_intf_header.prefunding_eligible_flag
25968: );
25969:
25970: x_return_status := OKL_API.G_RET_STS_ERROR;
25971:
25972: RAISE pop_header_failed;
25973: END IF;
25974: -- end cklee bug# 3440442
26078: l_line_type OKL_LINES_INTERFACE.LINE_TYPE%TYPE;
26079: l_asset_number OKL_LINES_INTERFACE.ASSET_NUMBER%TYPE;
26080:
26081: BEGIN
26082: x_return_status := OKL_API.G_RET_STS_SUCCESS;
26083: debug_message(l_proc_name);
26084:
26085: x_payment_level := 'TOP'; -- default
26086:
26104: END IF;
26105:
26106: EXCEPTION
26107: WHEN OTHERS THEN
26108: okl_api.set_message(
26109: G_APP_NAME,
26110: G_UNEXPECTED_ERROR,
26111: 'OKL_SQLCODE',
26112: SQLCODE,
26112: SQLCODE,
26113: 'OKL_SQLERRM',
26114: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
26115: );
26116: x_return_status := OKL_API.G_RET_STS_ERROR;
26117:
26118: END check_payment_level;
26119:
26120:
26180: lessee_failed EXCEPTION;
26181:
26182: BEGIN
26183:
26184: x_return_status := OKL_API.G_RET_STS_SUCCESS;
26185: debug_message(l_proc_name);
26186:
26187: debug_message('------>Vendor: '||p_lessee_vendor_id||', '||p_lessee_vendor_name);
26188: debug_message('------>Vendor Site: '||p_lessee_site_id||', '||p_lessee_site_code);
26195: OPEN vendor_csr (p_lessee_vendor_id,
26196: p_lessee_vendor_name);
26197: FETCH vendor_csr INTO l_vendor_id;
26198: IF vendor_csr%NOTFOUND THEN
26199: okl_api.set_message(
26200: G_APP_NAME,
26201: G_INVALID_VALUE,
26202: 'CONTRACT_NUM',
26203: p_contract_num,
26218: p_authoring_org_id);
26219:
26220: FETCH vendor_site_csr INTO l_vendor_site_id;
26221: IF vendor_site_csr%NOTFOUND THEN
26222: okl_api.set_message(
26223: G_APP_NAME,
26224: G_INVALID_VALUE,
26225: 'CONTRACT_NUM',
26226: p_contract_num,
26241:
26242: debug_message('------> Before creation of lessee as vendor');
26243: okl_lessee_as_vendor_pvt.create_lessee_as_vendor(
26244: p_api_version => 1.0,
26245: p_init_msg_list => OKL_API.G_FALSE,
26246: x_return_status => x_return_status,
26247: x_msg_count => x_msg_count,
26248: x_msg_data => x_msg_data,
26249: p_chr_id => p_chr_id,
26250: p_ppydv_rec => l_ppydv_rec,
26251: x_ppydv_rec => x_ppydv_rec
26252: );
26253:
26254: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
26255: RAISE lessee_failed;
26256: END IF;
26257: debug_message('------> After creation of lessee as vendor '||x_return_status);
26258:
26265: END IF;
26266: IF vendor_site_csr%ISOPEN THEN
26267: CLOSE vendor_site_csr;
26268: END IF;
26269: x_return_status := OKL_API.G_RET_STS_ERROR;
26270:
26271: WHEN OTHERS THEN
26272: okl_api.set_message(
26273: G_APP_NAME,
26268: END IF;
26269: x_return_status := OKL_API.G_RET_STS_ERROR;
26270:
26271: WHEN OTHERS THEN
26272: okl_api.set_message(
26273: G_APP_NAME,
26274: G_UNEXPECTED_ERROR,
26275: 'OKL_SQLCODE',
26276: SQLCODE,
26276: SQLCODE,
26277: 'OKL_SQLERRM',
26278: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
26279: );
26280: x_return_status := OKL_API.G_RET_STS_ERROR;
26281:
26282: END create_lessee_as_vendor;
26283:
26284: ------------------------------------------------------------------------------
26308:
26309: l_proc_name VARCHAR2(35) := 'GET_TXD_ID';
26310: BEGIN
26311:
26312: x_return_status := OKL_API.G_RET_STS_SUCCESS;
26313: debug_message(l_proc_name);
26314:
26315: OPEN txd_csr (p_tal_id,
26316: p_tax_book);
26315: OPEN txd_csr (p_tal_id,
26316: p_tax_book);
26317: FETCH txd_csr INTO x_txd_id;
26318: IF (txd_csr%NOTFOUND) THEN
26319: okl_api.set_message(
26320: G_APP_NAME,
26321: G_INVALID_VALUE,
26322: 'CONTRACT_NUM',
26323: p_contract_number,
26326: 'COL_VALUE',
26327: p_tax_book
26328: );
26329:
26330: x_return_status := OKL_API.G_RET_STS_ERROR;
26331: END IF;
26332: CLOSE txd_csr;
26333:
26334: EXCEPTION
26334: EXCEPTION
26335:
26336: WHEN OTHERS THEN
26337:
26338: okl_api.set_message(
26339: G_APP_NAME,
26340: G_UNEXPECTED_ERROR,
26341: 'OKL_SQLCODE',
26342: SQLCODE,
26342: SQLCODE,
26343: 'OKL_SQLERRM',
26344: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
26345: );
26346: x_return_status := OKL_API.G_RET_STS_ERROR;
26347: END get_txd_id;
26348:
26349: ------------------------------------------------------------------------------
26350: -- PROCEDURE create_release_asset_rule
26373: rel_rule_failed EXCEPTION;
26374:
26375: BEGIN
26376:
26377: x_return_status := OKL_API.G_RET_STS_SUCCESS;
26378: debug_message(l_proc_name);
26379:
26380: l_rgpv_rec := NULL;
26381: l_rgp_id := NULL;
26409: x_rgpv_rec => x_rgpv_rec,
26410: x_rulv_rec => x_rulv_rec
26411: );
26412:
26413: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
26414: raise rel_rule_failed;
26415: END IF;
26416:
26417: debug_message('------>Rule: LARLES/LARLES processed');
26418:
26419: EXCEPTION
26420:
26421: WHEN rel_rule_failed THEN
26422: x_return_status := OKL_API.G_RET_STS_ERROR;
26423:
26424: WHEN OTHERS THEN
26425: okl_api.set_message(
26426: G_APP_NAME,
26421: WHEN rel_rule_failed THEN
26422: x_return_status := OKL_API.G_RET_STS_ERROR;
26423:
26424: WHEN OTHERS THEN
26425: okl_api.set_message(
26426: G_APP_NAME,
26427: G_UNEXPECTED_ERROR,
26428: 'OKL_SQLCODE',
26429: SQLCODE,
26429: SQLCODE,
26430: 'OKL_SQLERRM',
26431: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
26432: );
26433: x_return_status := OKL_API.G_RET_STS_ERROR;
26434: END create_release_asset_rule;
26435:
26436: ------------------------------------------------------------------------------
26437: -- PROCEDURE process_release_asset
26533: l_counter NUMBER;
26534:
26535: BEGIN
26536:
26537: x_return_status := OKL_API.G_RET_STS_SUCCESS;
26538: debug_message(l_proc_name);
26539:
26540: debug_message('------> Contract id: '||p_chr_id);
26541: debug_message('------> Asset id: '||p_asset_id);
26601: p_segment6 => p_asset_loc_segment6,
26602: p_segment7 => p_asset_loc_segment7,
26603: x_comb_id => x_comb_id
26604: );
26605: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
26606: x_return_status := OKL_API.G_RET_STS_ERROR;
26607: RAISE release_failed;
26608: END IF;
26609:
26602: p_segment7 => p_asset_loc_segment7,
26603: x_comb_id => x_comb_id
26604: );
26605: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
26606: x_return_status := OKL_API.G_RET_STS_ERROR;
26607: RAISE release_failed;
26608: END IF;
26609:
26610: IF (x_comb_id IS NOT NULL) THEN
26624: p_install_site_number => p_install_site_num,
26625: x_install_site_id => x_install_site_id
26626: );
26627:
26628: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
26629: x_return_status := OKL_API.G_RET_STS_ERROR;
26630: RAISE release_failed;
26631: END IF;
26632: l_itiv_ib_tbl(1).object_id1_new := x_install_site_id;
26625: x_install_site_id => x_install_site_id
26626: );
26627:
26628: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
26629: x_return_status := OKL_API.G_RET_STS_ERROR;
26630: RAISE release_failed;
26631: END IF;
26632: l_itiv_ib_tbl(1).object_id1_new := x_install_site_id;
26633: END IF;
26672:
26673: debug_message('======>Before calling create_all_line');
26674: okl_create_kle_pvt.Create_all_line(
26675: p_api_version => 1.0,
26676: p_init_msg_list => OKL_API.G_FALSE,
26677: x_return_status => x_return_status,
26678: x_msg_count => x_msg_count,
26679: x_msg_data => x_msg_data,
26680: p_new_yn => 'N',
26693: );
26694:
26695: debug_message('======>After calling create_all_line '||x_return_status);
26696:
26697: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
26698: x_return_status := OKL_API.G_RET_STS_ERROR;
26699: RAISE release_failed;
26700: END IF;
26701:
26694:
26695: debug_message('======>After calling create_all_line '||x_return_status);
26696:
26697: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
26698: x_return_status := OKL_API.G_RET_STS_ERROR;
26699: RAISE release_failed;
26700: END IF;
26701:
26702: debug_message('------> clev_fin_rec.id: '||x_clev_fin_rec.id);
26726: x_party_pmnt_hdr_tbl => x_party_pmnt_hdr_tbl_out
26727: );
26728:
26729: debug_message('------>Create party payment ends '||x_return_status);
26730: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
26731: x_return_status := OKL_API.G_RET_STS_ERROR;
26732: RAISE release_failed;
26733: END IF;
26734: IF (x_party_pmnt_hdr_tbl_out.COUNT > 0 )THEN
26727: );
26728:
26729: debug_message('------>Create party payment ends '||x_return_status);
26730: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
26731: x_return_status := OKL_API.G_RET_STS_ERROR;
26732: RAISE release_failed;
26733: END IF;
26734: IF (x_party_pmnt_hdr_tbl_out.COUNT > 0 )THEN
26735: l_counter := x_party_pmnt_hdr_tbl_out.FIRST;
26751: x_return_status => x_return_status,
26752: p_fa_line_id => x_clev_fa_rec.id,
26753: x_tal_id => l_tal_id);
26754:
26755: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
26756: x_return_status := OKL_API.G_RET_STS_ERROR;
26757: RAISE release_failed;
26758: END IF;
26759:
26752: p_fa_line_id => x_clev_fa_rec.id,
26753: x_tal_id => l_tal_id);
26754:
26755: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
26756: x_return_status := OKL_API.G_RET_STS_ERROR;
26757: RAISE release_failed;
26758: END IF;
26759:
26760: debug_message('------> tal_id : '||l_tal_id);
26768: p_tax_book => p_tax_book,
26769: x_txd_id => x_txd_id
26770: );
26771:
26772: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
26773: x_return_status := OKL_API.G_RET_STS_ERROR;
26774: RAISE release_failed;
26775: END IF;
26776:
26769: x_txd_id => x_txd_id
26770: );
26771:
26772: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
26773: x_return_status := OKL_API.G_RET_STS_ERROR;
26774: RAISE release_failed;
26775: END IF;
26776:
26777: l_adpv_rec.id := x_txd_id;
26791: END IF;
26792:
26793: okl_txd_assets_pub.update_txd_asset_def(
26794: p_api_version => 1.0,
26795: p_init_msg_list => OKL_API.G_FALSE,
26796: x_return_status => x_return_status,
26797: x_msg_count => x_msg_count,
26798: x_msg_data => x_msg_data,
26799: p_adpv_rec => l_adpv_rec,
26799: p_adpv_rec => l_adpv_rec,
26800: x_adpv_rec => x_adpv_rec
26801: );
26802:
26803: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
26804: x_return_status := OKL_API.G_RET_STS_ERROR;
26805: RAISE release_failed;
26806: END IF;
26807:
26800: x_adpv_rec => x_adpv_rec
26801: );
26802:
26803: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
26804: x_return_status := OKL_API.G_RET_STS_ERROR;
26805: RAISE release_failed;
26806: END IF;
26807:
26808: debug_message('------>TXD Line Updated');
26811:
26812: EXCEPTION
26813:
26814: WHEN release_failed THEN
26815: x_return_status := OKL_API.G_RET_STS_ERROR;
26816:
26817: WHEN OTHERS THEN
26818: okl_api.set_message(
26819: G_APP_NAME,
26814: WHEN release_failed THEN
26815: x_return_status := OKL_API.G_RET_STS_ERROR;
26816:
26817: WHEN OTHERS THEN
26818: okl_api.set_message(
26819: G_APP_NAME,
26820: G_UNEXPECTED_ERROR,
26821: 'OKL_SQLCODE',
26822: SQLCODE,
26822: SQLCODE,
26823: 'OKL_SQLERRM',
26824: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
26825: );
26826: x_return_status := OKL_API.G_RET_STS_ERROR;
26827:
26828: END process_release_asset;
26829:
26830: ------------------------------------------------------------------------------
26912: );
26913:
26914: BEGIN
26915:
26916: x_return_status := OKL_API.G_RET_STS_SUCCESS;
26917: debug_message(l_proc_name);
26918:
26919: FOR addon_rec IN addon_csr (p_contract_num,
26920: p_asset_num)
26939: x_inventory_org_id => x_inventory_org_id,
26940: x_inventory_item_id => x_inventory_item_id
26941: );
26942:
26943: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
26944: x_return_status := OKL_API.G_RET_STS_ERROR;
26945: RAISE addon_failed;
26946: END IF;
26947:
26940: x_inventory_item_id => x_inventory_item_id
26941: );
26942:
26943: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
26944: x_return_status := OKL_API.G_RET_STS_ERROR;
26945: RAISE addon_failed;
26946: END IF;
26947:
26948: -- Populate records and call create addon api
26988: --debug_message('x_fin_klev_tbl(1).id=' || x_fin_klev_tbl(1).ID);
26989: --debug_message('x_cimv_tbl(1).id=' || x_cimv_tbl(1).ID);
26990:
26991: debug_message('After create_add_on_line: x_return_status=' || x_return_status);
26992: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
26993: RAISE addon_failed;
26994: END IF;
26995:
26996: -- Do process party role
27008: x_vendor_id => x_asset_vendor_id,
27009: p_vendor_name => okl_party_rec.ASSET_VENDOR_NAME
27010: );
27011: debug_message('Addon:x_asset_vendor_id=' || x_asset_vendor_id);
27012: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
27013: RAISE addon_failed;
27014: END IF;
27015: END IF;
27016:
27024: p_cplv_rec.jtot_object1_code := 'OKX_VENDOR';
27025: p_cplv_rec.rle_code := 'OKL_VENDOR';
27026: OKL_K_PARTY_ROLES_PVT.create_k_party_role(
27027: p_api_version => 1.0,
27028: p_init_msg_list => OKL_API.G_FALSE,
27029: x_return_status => x_return_status,
27030: x_msg_count => x_msg_count,
27031: x_msg_data => x_msg_data,
27032: p_cplv_rec => p_cplv_rec,
27035: x_kplv_rec => x_kplv_rec
27036: );
27037:
27038: debug_message('x_cplv_rec.id=' || x_cplv_rec.ID);
27039: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
27040: RAISE addon_failed;
27041: END IF;
27042:
27043: END IF;
27065: p_ship_to_site_number => addon_rec.ship_to_site_number,
27066: p_ship_to_site_id => addon_rec.ship_to_site_id,
27067: x_ship_to_site_id => x_ship_to_site_id
27068: );
27069: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
27070: RAISE addon_failed;
27071: x_return_status := OKL_API.G_RET_STS_ERROR;
27072: END IF;
27073:
27067: x_ship_to_site_id => x_ship_to_site_id
27068: );
27069: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
27070: RAISE addon_failed;
27071: x_return_status := OKL_API.G_RET_STS_ERROR;
27072: END IF;
27073:
27074: debug_message('x_ship_to_site_id=' || x_ship_to_site_id);
27075: p_sidv_rec.shipping_address_id1 := x_ship_to_site_id;
27084: x_msg_data => x_msg_data,
27085: p_sidv_rec => p_sidv_rec,
27086: x_sidv_rec => x_sidv_rec
27087: );
27088: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
27089: x_return_status := OKL_API.G_RET_STS_ERROR;
27090: RAISE addon_failed;
27091: END IF;
27092: ELSE
27085: p_sidv_rec => p_sidv_rec,
27086: x_sidv_rec => x_sidv_rec
27087: );
27088: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
27089: x_return_status := OKL_API.G_RET_STS_ERROR;
27090: RAISE addon_failed;
27091: END IF;
27092: ELSE
27093: IF (addon_rec.vendor_invoice_number IS NOT NULL OR
27093: IF (addon_rec.vendor_invoice_number IS NOT NULL OR
27094: addon_rec.vendor_invoice_date IS NOT NULL OR
27095: addon_rec.ship_to_site_id IS NOT NULL OR
27096: addon_rec.ship_to_site_number IS NOT NULL) THEN
27097: okl_api.set_message(
27098: G_APP_NAME,
27099: G_MISSING_VALUE_FOR_LINE,
27100: 'CONTRACT_NUM',
27101: p_contract_num, --||'/'||addon_rec.line_number,
27120: END LOOP;
27121:
27122: EXCEPTION
27123: WHEN addon_failed THEN
27124: x_return_status := OKL_API.G_RET_STS_ERROR;
27125:
27126: END process_addon;
27127:
27128: ------------------------------------------------------------------------------
27191: WHERE NAME = p_name
27192: AND status = 'A';
27193:
27194: BEGIN
27195: x_return_status := OKL_API.G_RET_STS_SUCCESS;
27196: debug_message(l_proc_name);
27197:
27198: FOR subsidy_rec IN subsidy_csr (p_contract_num,
27199: p_asset_num)
27207: p_auth_org_id);
27208: FETCH sub_id_csr INTO l_subsidy_id;
27209: IF sub_id_csr%NOTFOUND THEN
27210: -- Error
27211: okl_api.set_message(
27212: G_APP_NAME,
27213: G_INVALID_VALUE,
27214: 'CONTRACT_NUM',
27215: p_contract_num||'/'||subsidy_rec.line_number,
27221: RAISE subsidy_failed;
27222: END IF;
27223: CLOSE sub_id_csr;
27224: ELSE
27225: okl_api.set_message(
27226: G_APP_NAME,
27227: G_MISSING_VALUE_FOR_LINE,
27228: 'CONTRACT_NUM',
27229: p_contract_num||'/'||subsidy_rec.line_number,
27239: ELSIF (subsidy_rec.subsidy_party_name IS NOT NULL) THEN
27240: OPEN vendor_csr (subsidy_rec.subsidy_party_name);
27241: FETCH vendor_csr INTO l_vendor_id;
27242: IF vendor_csr%NOTFOUND THEN
27243: okl_api.set_message(
27244: G_APP_NAME,
27245: G_INVALID_VALUE,
27246: 'CONTRACT_NUM',
27247: p_contract_num||'/'||subsidy_rec.line_number,
27269: debug_message('vendor: '||l_asb_rec.vendor_id);
27270:
27271: okl_asset_subsidy_pvt.create_asset_subsidy(
27272: p_api_version => 1.0,
27273: p_init_msg_list => OKL_API.G_FALSE,
27274: x_return_status => x_return_status,
27275: x_msg_count => x_msg_count,
27276: x_msg_data => x_msg_data,
27277: p_asb_rec => l_asb_rec,
27279: );
27280:
27281: debug_message('okl_asset_subsidy_pvt.create_asset_subsidy: '||x_return_status);
27282:
27283: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
27284: RAISE subsidy_failed;
27285: END IF;
27286:
27287: -- refund detail if any
27304: p_auth_org_id);
27305: FETCH paysite_csr INTO l_paysite_id;
27306: IF paysite_csr%NOTFOUND THEN
27307: -- error
27308: okl_api.set_message(
27309: G_APP_NAME,
27310: G_INVALID_VALUE,
27311: 'CONTRACT_NUM',
27312: p_contract_num||'/'||subsidy_rec.line_number,
27318: RAISE subsidy_failed;
27319: END IF;
27320: CLOSE paysite_csr;
27321: ELSE
27322: okl_api.set_message(
27323: G_APP_NAME,
27324: G_MISSING_VALUE_FOR_LINE,
27325: 'CONTRACT_NUM',
27326: p_contract_num||'/'||subsidy_rec.line_number,
27337: OPEN payterm_csr(subsidy_rec.subsidy_refnd_payterm_name);
27338: FETCH payterm_csr INTO l_payterm_id;
27339: IF payterm_csr%NOTFOUND THEN
27340: -- error
27341: okl_api.set_message(
27342: G_APP_NAME,
27343: G_INVALID_VALUE,
27344: 'CONTRACT_NUM',
27345: p_contract_num||'/'||subsidy_rec.line_number,
27351: RAISE subsidy_failed;
27352: END IF;
27353: CLOSE payterm_csr;
27354: ELSE
27355: okl_api.set_message(
27356: G_APP_NAME,
27357: G_MISSING_VALUE_FOR_LINE,
27358: 'CONTRACT_NUM',
27359: p_contract_num||'/'||subsidy_rec.line_number,
27378: debug_message('l_srfvv_rec.pay_group_code: '||l_srfvv_rec.pay_group_code);
27379:
27380: okl_subsidy_rfnd_dtls_pvt.create_refund_dtls(
27381: p_api_version => 1.0,
27382: p_init_msg_list => OKL_API.G_FALSE,
27383: x_return_status => x_return_status,
27384: x_msg_count => x_msg_count,
27385: x_msg_data => x_msg_data,
27386: p_srfvv_rec => l_srfvv_rec,
27387: x_srfvv_rec => x_srfvv_rec
27388: );
27389:
27390: debug_message('okl_subsidy_rfnd_dtls_pvt.create_refund_dtls: '||x_return_status);
27391: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
27392: RAISE subsidy_failed;
27393: END IF;
27394:
27395: END IF; -- refund detail
27397: END LOOP; --subsidy_rec
27398:
27399: EXCEPTION
27400: WHEN subsidy_failed THEN
27401: x_return_status := OKL_API.G_RET_STS_ERROR;
27402: END process_subsidy;
27403:
27404: ------------------------------------------------------------------------------
27405: -- PROCEDURE check_and_delete
27432: from okl_ins_policies_b where khr_id=p_khr_id;
27433: --Bug#5666768 end
27434:
27435: BEGIN
27436: x_return_status := OKL_API.G_RET_STS_SUCCESS;
27437: debug_message(l_proc_name);
27438:
27439: if (p_contract_number is null) then
27440: return;
27456:
27457: -- Call Delete API
27458: okl_contract_pub.delete_contract(
27459: p_api_version => 1.0,
27460: p_init_msg_list => OKL_API.G_FALSE,
27461: x_return_status => x_return_status,
27462: x_msg_count => x_msg_count,
27463: x_msg_data => x_msg_data,
27464: p_contract_id => l_contract_id );
27461: x_return_status => x_return_status,
27462: x_msg_count => x_msg_count,
27463: x_msg_data => x_msg_data,
27464: p_contract_id => l_contract_id );
27465: IF (x_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
27466: debug_message('Contract ' || p_contract_number || ' deleted from OLM...');
27467: ELSE
27468: debug_message('Error during delete contract ' || p_contract_number );
27469: END IF;
27478: end if;
27479: close get_ins_id_csr;
27480: l_ipyv_rec.id:=l_ins_id;
27481: OKL_INS_POLICIES_PUB.delete_ins_policies(p_api_version => 1.0,
27482: p_init_msg_list => OKL_API.G_FALSE,
27483: x_return_status => x_return_status,
27484: x_msg_count => x_msg_count,
27485: x_msg_data => x_msg_data,
27486: p_ipyv_rec => l_ipyv_rec);
27483: x_return_status => x_return_status,
27484: x_msg_count => x_msg_count,
27485: x_msg_data => x_msg_data,
27486: p_ipyv_rec => l_ipyv_rec);
27487: IF (x_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
27488: debug_message('Contract ' || p_contract_number || ' deleted from OLM after delete_ins_policies...');
27489: ELSE
27490: debug_message('Error during OKL_INS_POLICIES_PUB.delete_ins_policies ' || p_contract_number );
27491: END IF;
28679: , x_return_status OUT NOCOPY VARCHAR2
28680: ) IS
28681: l_parameter_list wf_parameter_list_t;
28682: BEGIN
28683: x_return_status := OKL_API.G_RET_STS_SUCCESS;
28684: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,p_chr_id,l_parameter_list);
28685:
28686: OKL_WF_PVT.raise_event (p_api_version => 1.0,
28687: p_init_msg_list => p_init_msg_list,
28692: p_parameters => l_parameter_list);
28693:
28694: EXCEPTION
28695: WHEN OTHERS THEN
28696: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
28697: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
28698: END raise_business_event;
28699: -- hariven - Bug#5393374 - Added - End
28700:
28693:
28694: EXCEPTION
28695: WHEN OTHERS THEN
28696: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
28697: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
28698: END raise_business_event;
28699: -- hariven - Bug#5393374 - Added - End
28700:
28701: BEGIN -- Actual Procedure Starts Here
28700:
28701: BEGIN -- Actual Procedure Starts Here
28702:
28703: l_proc_name := 'LOAD_INPUT_RECORD';
28704: x_return_status := OKL_API.G_RET_STS_SUCCESS; -- Assume Success at begining
28705: --okl_api.init_msg_list(p_init_msg_list => OKL_API.G_TRUE);
28706:
28707: l_progress := '000';
28708:
28701: BEGIN -- Actual Procedure Starts Here
28702:
28703: l_proc_name := 'LOAD_INPUT_RECORD';
28704: x_return_status := OKL_API.G_RET_STS_SUCCESS; -- Assume Success at begining
28705: --okl_api.init_msg_list(p_init_msg_list => OKL_API.G_TRUE);
28706:
28707: l_progress := '000';
28708:
28709: --okl_context.set_okc_org_context(204,204);
28727:
28728: BEGIN --1
28729: -- Populates Header Record before calling APIs
28730: --fnd_file.put_line(fnd_file.output, 'Loading... '||okl_header_rec.contract_number_old);
28731: okl_api.init_msg_list(p_init_msg_list => OKL_API.G_TRUE);
28732:
28733: debug_message(l_proc_name);
28734: debug_message('');
28735:
28741: x_msg_data => x_msg_data,
28742: p_contract_number => okl_header_rec.contract_number,
28743: p_delete_before_import_yn => okl_header_rec.delete_before_import_yn -- akp_delete
28744: );
28745: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
28746: RAISE load_failed;
28747: END IF;
28748: debug_message('check_and_delete done ' || to_char(sysdate,'HH24:MI:SS'));
28749:
28763: x_msg_data => x_msg_data,
28764: p_template_number => okl_header_rec.template_number
28765: );
28766:
28767: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
28768: RAISE load_failed;
28769: END IF;
28770:
28771: debug_message('--->Template information retrieved');
28784: x_chrv_rec => l_chrv_rec,
28785: x_khrv_rec => l_khrv_rec
28786: );
28787:
28788: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
28789: RAISE load_failed;
28790: END IF;
28791:
28792: -- Call API to create Contract Header
28795: l_progress := '010';
28796:
28797: --Added by dpsingh for LE Uptake
28798: IF (okl_header_rec.legal_entity_id IS NOT NULL) AND
28799: (okl_header_rec.legal_entity_id <> Okl_Api.G_MISS_NUM) THEN
28800:
28801: -- l_exists := OKL_LEGAL_ENTITY_UTIL.check_le_id_exists(okl_header_rec.legal_entity_id) ;
28802: OPEN le_entity(NVL(okl_header_rec.authoring_org_id,l_header_template.authoring_org_id),okl_header_rec.legal_entity_id);
28803: FETCH le_entity INTO l_exists;
28812: l_khrv_rec.legal_entity_id := okl_header_rec.legal_entity_id ;
28813: -- Call Header API to create header
28814: okl_contract_pub.create_contract_header(
28815: p_api_version => 1.0,
28816: p_init_msg_list => OKL_API.G_FALSE,
28817: x_return_status => x_return_status,
28818: x_msg_count => x_msg_count,
28819: x_msg_data => x_msg_data,
28820: p_chrv_rec => l_chrv_rec,
28824: );
28825: l_progress := '050';
28826:
28827: debug_message('Contract header call ends...'||x_return_status);
28828: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
28829:
28830: x_return_status := OKL_API.G_RET_STS_ERROR;
28831:
28832: RAISE load_failed;
28826:
28827: debug_message('Contract header call ends...'||x_return_status);
28828: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
28829:
28830: x_return_status := OKL_API.G_RET_STS_ERROR;
28831:
28832: RAISE load_failed;
28833: END IF;
28834:
28856: p_pth_evg_stream_purpose_code => okl_header_rec.pth_evg_stream_purpose_code,
28857: x_party_pmnt_hdr_tbl => x_evg_cont_pmnt_hdr_out
28858: );
28859: debug_message('------>Create evergreen at contract header ends'||x_return_status);
28860: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
28861: x_return_status := OKL_API.G_RET_STS_ERROR;
28862: RAISE load_failed;
28863: END IF;
28864:
28857: x_party_pmnt_hdr_tbl => x_evg_cont_pmnt_hdr_out
28858: );
28859: debug_message('------>Create evergreen at contract header ends'||x_return_status);
28860: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
28861: x_return_status := OKL_API.G_RET_STS_ERROR;
28862: RAISE load_failed;
28863: END IF;
28864:
28865: debug_message('x_evg_cont_pmnt_hdr_out.count: '||x_evg_cont_pmnt_hdr_out.COUNT);
28885: );
28886:
28887: l_master_lease_aggr_id := x_master_lease_id;
28888:
28889: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
28890: okl_api.set_message(
28891: G_APP_NAME,
28892: G_INVALID_VALUE,
28893: 'CONTRACT_NUM',
28886:
28887: l_master_lease_aggr_id := x_master_lease_id;
28888:
28889: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
28890: okl_api.set_message(
28891: G_APP_NAME,
28892: G_INVALID_VALUE,
28893: 'CONTRACT_NUM',
28894: okl_header_rec.contract_number_old,
28922: l_gvev_rec.copied_only_yn := 'Y';
28923:
28924: okl_okc_migration_pvt.create_governance(
28925: p_api_version => 1.0,
28926: p_init_msg_list => OKL_API.G_FALSE,
28927: x_return_status => x_return_status,
28928: x_msg_count => x_msg_count,
28929: x_msg_data => x_msg_data,
28930: p_gvev_rec => l_gvev_rec,
28929: x_msg_data => x_msg_data,
28930: p_gvev_rec => l_gvev_rec,
28931: x_gvev_rec => x_gvev_rec
28932: );
28933: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
28934: RAISE load_failed;
28935: END IF;
28936:
28937: debug_message('--->Master Lease agreement created');
28952: );
28953:
28954: l_credit_line_id := x_credit_line_id;
28955:
28956: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
28957: okl_api.set_message(
28958: G_APP_NAME,
28959: G_INVALID_VALUE,
28960: 'CONTRACT_NUM',
28953:
28954: l_credit_line_id := x_credit_line_id;
28955:
28956: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
28957: okl_api.set_message(
28958: G_APP_NAME,
28959: G_INVALID_VALUE,
28960: 'CONTRACT_NUM',
28961: okl_header_rec.contract_number_old,
28998: p_customer_account_number => okl_header_rec.customer_account_number,
28999: p_start_date => x_chrv_rec.start_date, -- 4414408
29000: p_template_start_date => l_header_template.start_date
29001: );
29002: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29003: okl_api.set_message(
29004: G_APP_NAME,
29005: G_INVALID_VALUE,
29006: 'CONTRACT_NUM',
28999: p_start_date => x_chrv_rec.start_date, -- 4414408
29000: p_template_start_date => l_header_template.start_date
29001: );
29002: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29003: okl_api.set_message(
29004: G_APP_NAME,
29005: G_INVALID_VALUE,
29006: 'CONTRACT_NUM',
29007: okl_header_rec.contract_number_old,
29021: l_gvev_rec.copied_only_yn := 'Y';
29022:
29023: okl_okc_migration_pvt.create_governance(
29024: p_api_version => 1.0,
29025: p_init_msg_list => OKL_API.G_FALSE,
29026: x_return_status => x_return_status,
29027: x_msg_count => x_msg_count,
29028: x_msg_data => x_msg_data,
29029: p_gvev_rec => l_gvev_rec,
29028: x_msg_data => x_msg_data,
29029: p_gvev_rec => l_gvev_rec,
29030: x_gvev_rec => x_gvev_rec
29031: );
29032: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29033: RAISE load_failed;
29034: END IF;
29035: debug_message('--->Credit line created');
29036: END IF;
29069: x_cplv_rec => x_cplv_rec );
29070:
29071: l_progress := '070';
29072:
29073: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29074: x_return_status := OKL_API.G_RET_STS_ERROR;
29075: raise load_failed;
29076: END IF;
29077:
29070:
29071: l_progress := '070';
29072:
29073: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29074: x_return_status := OKL_API.G_RET_STS_ERROR;
29075: raise load_failed;
29076: END IF;
29077:
29078: debug_message('--->Party Role created');
29099: p_lessee_site_code => okl_header_rec.lessee_vendor_site_code,
29100: p_authoring_org_id => NVL(okl_header_rec.authoring_org_id,l_header_template.authoring_org_id)
29101: );
29102:
29103: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29104: x_return_status := OKL_API.G_RET_STS_ERROR;
29105: raise load_failed;
29106: END IF;
29107:
29100: p_authoring_org_id => NVL(okl_header_rec.authoring_org_id,l_header_template.authoring_org_id)
29101: );
29102:
29103: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29104: x_return_status := OKL_API.G_RET_STS_ERROR;
29105: raise load_failed;
29106: END IF;
29107:
29108: debug_message('--->Lessee as Vendor Created');
29154: p_header_rec => okl_header_rec --comment out. ckleel_intf_h_rec
29155: --p_header_rec => l_intf_h_rec
29156: );
29157:
29158: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29159: x_return_status := OKL_API.G_RET_STS_ERROR;
29160: raise load_failed;
29161: END IF;
29162: debug_message('--->Header rule creation complete');
29155: --p_header_rec => l_intf_h_rec
29156: );
29157:
29158: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29159: x_return_status := OKL_API.G_RET_STS_ERROR;
29160: raise load_failed;
29161: END IF;
29162: debug_message('--->Header rule creation complete');
29163:
29172: p_label_id => okl_header_rec.private_label_id,
29173: p_label_url => okl_header_rec.private_label_url
29174: );
29175:
29176: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29177: x_return_status := OKL_API.G_RET_STS_ERROR;
29178: raise load_failed;
29179: END IF;
29180: debug_message('--->Private label created');
29173: p_label_url => okl_header_rec.private_label_url
29174: );
29175:
29176: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29177: x_return_status := OKL_API.G_RET_STS_ERROR;
29178: raise load_failed;
29179: END IF;
29180: debug_message('--->Private label created');
29181:
29190:
29191: IF (x_khrv_rec.khr_id IS NOT NULL) THEN
29192: okl_deal_create_pub.copy_rules(
29193: p_api_version => 1.0,
29194: p_init_msg_list => OKL_API.G_FALSE,
29195: x_return_status => x_return_status,
29196: x_msg_count => x_msg_count,
29197: x_msg_data => x_msg_data,
29198: p_source_id => x_khrv_rec.khr_id,
29200: p_org_id => x_chrv_rec.authoring_org_id,
29201: p_organization_id => x_chrv_rec.inv_organization_id
29202: );
29203:
29204: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29205: x_return_status := OKL_API.G_RET_STS_ERROR;
29206: raise load_failed;
29207: END IF;
29208:
29201: p_organization_id => x_chrv_rec.inv_organization_id
29202: );
29203:
29204: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29205: x_return_status := OKL_API.G_RET_STS_ERROR;
29206: raise load_failed;
29207: END IF;
29208:
29209: debug_message('--->Program agreement copied');
29229: p_chr_id => x_chrv_rec.id -- imported Contract ID
29230: );
29231:
29232:
29233: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29234: x_return_status := OKL_API.G_RET_STS_ERROR;
29235: raise load_failed;
29236: END IF;
29237:
29230: );
29231:
29232:
29233: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29234: x_return_status := OKL_API.G_RET_STS_ERROR;
29235: raise load_failed;
29236: END IF;
29237:
29238: debug_message('--->3rd Party Insurance created');
29265: p_prod_name => okl_header_rec.product_name,
29266: p_prod_id => okl_header_rec.product_id,
29267: x_loan_yn => l_loan_yn
29268: );
29269: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29270: x_return_status := OKL_API.G_RET_STS_ERROR;
29271: RAISE load_failed;
29272: END IF;
29273:
29266: p_prod_id => okl_header_rec.product_id,
29267: x_loan_yn => l_loan_yn
29268: );
29269: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29270: x_return_status := OKL_API.G_RET_STS_ERROR;
29271: RAISE load_failed;
29272: END IF;
29273:
29274: -- 4414408
29279: x_msg_data => x_msg_data,
29280: p_contract_number => okl_header_rec.contract_number_old,
29281: p_org_id => okl_header_rec.inventory_organization_id
29282: ) ;
29283: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29284: x_return_status := OKL_API.G_RET_STS_ERROR;
29285: RAISE load_failed;
29286: END IF;*/
29287: -- End: Bug #15992711
29280: p_contract_number => okl_header_rec.contract_number_old,
29281: p_org_id => okl_header_rec.inventory_organization_id
29282: ) ;
29283: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29284: x_return_status := OKL_API.G_RET_STS_ERROR;
29285: RAISE load_failed;
29286: END IF;*/
29287: -- End: Bug #15992711
29288:
29293: x_msg_count => x_msg_count,
29294: x_msg_data => x_msg_data,
29295: p_contract_number => okl_header_rec.contract_number_old
29296: ) ;
29297: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29298: x_return_status := OKL_API.G_RET_STS_ERROR;
29299: RAISE load_failed;
29300: END IF;
29301:
29294: x_msg_data => x_msg_data,
29295: p_contract_number => okl_header_rec.contract_number_old
29296: ) ;
29297: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29298: x_return_status := OKL_API.G_RET_STS_ERROR;
29299: RAISE load_failed;
29300: END IF;
29301:
29302: FOR okl_line_rec IN okl_line_csr (okl_header_rec.contract_number_old)
29312: p_contract_number => okl_header_rec.contract_number_old,
29313: p_asset_number => okl_line_rec.asset_number, -- Bug# 15992711
29314: p_org_id => okl_header_rec.inventory_organization_id
29315: ) ;
29316: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29317: x_return_status := OKL_API.G_RET_STS_ERROR;
29318: RAISE load_failed;
29319: END IF;
29320: -- End: Bug #15992711
29313: p_asset_number => okl_line_rec.asset_number, -- Bug# 15992711
29314: p_org_id => okl_header_rec.inventory_organization_id
29315: ) ;
29316: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29317: x_return_status := OKL_API.G_RET_STS_ERROR;
29318: RAISE load_failed;
29319: END IF;
29320: -- End: Bug #15992711
29321:
29389: );
29390:
29391: debug_message('check_line_literal: '||x_return_status);
29392:
29393: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29394: x_return_status := OKL_API.G_RET_STS_ERROR;
29395: RAISE load_failed;
29396: END IF;
29397:
29390:
29391: debug_message('check_line_literal: '||x_return_status);
29392:
29393: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29394: x_return_status := OKL_API.G_RET_STS_ERROR;
29395: RAISE load_failed;
29396: END IF;
29397:
29398: -- Bug 4321621 end
29399:
29400: -- Populates Header Record before calling APIs
29401: l_no_of_lines := l_no_of_lines + 1;
29402: l_progress := '100';
29403: okl_api.init_msg_list(p_init_msg_list => OKL_API.G_TRUE); --Bug 3958519
29404:
29405: debug_message('------> Processing Line: '||okl_line_rec.line_type);
29406:
29407: l_service_line_id := NULL;
29428: x_inventory_org_id => x_inventory_org_id,
29429: x_inventory_item_id => x_inventory_item_id
29430: );
29431:
29432: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29433: x_return_status := OKL_API.G_RET_STS_ERROR;
29434: RAISE load_failed;
29435: END IF;
29436:
29429: x_inventory_item_id => x_inventory_item_id
29430: );
29431:
29432: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29433: x_return_status := OKL_API.G_RET_STS_ERROR;
29434: RAISE load_failed;
29435: END IF;
29436:
29437: debug_message('------>Inv Org ID: '||x_chrv_rec.inv_organization_id);
29459: x_release_asset => x_release_asset,
29460: x_asset_id => x_asset_id
29461: );
29462:
29463: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29464: x_return_status := OKL_API.G_RET_STS_ERROR;
29465: RAISE load_failed;
29466: END IF;
29467: */
29460: x_asset_id => x_asset_id
29461: );
29462:
29463: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29464: x_return_status := OKL_API.G_RET_STS_ERROR;
29465: RAISE load_failed;
29466: END IF;
29467: */
29468: IF (x_release_asset = 'N'
29469: AND
29470: okl_line_rec.tax_book IS NOT NULL
29471: AND
29472: okl_line_rec.asset_corporate_book IS NULL) THEN
29473: okl_api.set_message(
29474: G_APP_NAME,
29475: G_MISSING_VALUE_FOR_LINE,
29476: 'CONTRACT_NUM',
29477: okl_header_rec.contract_number_old||'/'||TO_CHAR(okl_line_rec.line_number),
29479: 'CORPORATE BOOK',
29480: 'LINE',
29481: 'ASSET'
29482: );
29483: x_return_status := OKL_API.G_RET_STS_ERROR;
29484:
29485: END IF;
29486:
29487: IF (x_release_asset = 'N'
29488: AND
29489: okl_line_rec.inventory_item_name IS NULL
29490: AND
29491: okl_line_rec.inventory_item_id IS NULL) THEN
29492: okl_api.set_message(
29493: G_APP_NAME,
29494: G_MISSING_VALUE_FOR_LINE,
29495: 'CONTRACT_NUM',
29496: okl_header_rec.contract_number_old||'/'||TO_CHAR(okl_line_rec.line_number),
29499: 'LINE',
29500: 'ASSET'
29501: );
29502:
29503: x_return_status := OKL_API.G_RET_STS_ERROR;
29504: END IF;
29505:
29506: IF (x_release_asset = 'N'
29507: AND
29507: AND
29508: okl_line_rec.install_site_number IS NULL
29509: AND
29510: okl_line_rec.install_site_id IS NULL) THEN
29511: okl_api.set_message(
29512: G_APP_NAME,
29513: G_MISSING_VALUE_FOR_LINE,
29514: 'CONTRACT_NUM',
29515: okl_header_rec.contract_number_old||'/'||TO_CHAR(okl_line_rec.line_number),
29518: 'LINE',
29519: 'ASSET'
29520: );
29521:
29522: x_return_status := OKL_API.G_RET_STS_ERROR;
29523: END IF;
29524:
29525: -- END IF;
29526:
29544: p_chr_id => x_chrv_rec.id,
29545: p_release_asset_flag => x_release_asset -- 4414408
29546: );
29547:
29548: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29549: x_return_status := OKL_API.G_RET_STS_ERROR;
29550: RAISE load_failed;
29551: END IF;
29552:
29545: p_release_asset_flag => x_release_asset -- 4414408
29546: );
29547:
29548: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29549: x_return_status := OKL_API.G_RET_STS_ERROR;
29550: RAISE load_failed;
29551: END IF;
29552:
29553: IF (x_release_asset = 'Y') THEN
29561: IF (okl_line_rec.asset_number <> l_prev_asset_number
29562: AND
29563: x_release_asset <> g_release_asset_flag) THEN
29564:
29565: okl_api.set_message(
29566: G_APP_NAME,
29567: G_MIXED_ASSET,
29568: 'CONTRACT_NUM',
29569: okl_line_rec.contract_number_old
29567: G_MIXED_ASSET,
29568: 'CONTRACT_NUM',
29569: okl_line_rec.contract_number_old
29570: );
29571: x_return_status := OKL_API.G_RET_STS_ERROR;
29572: RAISE load_failed;
29573: END IF;
29574: */
29575: END IF;
29586:
29587: -- Can not have more than one same Tax book
29588: -- for one corporate book, raise error
29589:
29590: okl_api.set_message(
29591: G_APP_NAME,
29592: G_DUP_TAX_BOOK,
29593: 'TAX_BOOK',
29594: okl_line_rec.tax_book,
29596: okl_line_rec.contract_number_old||'/'||okl_line_rec.line_number,
29597: 'ASSET_NUM',
29598: okl_line_rec.asset_number
29599: );
29600: x_return_status := OKL_API.G_RET_STS_ERROR;
29601: RAISE load_failed;
29602:
29603: END IF;
29604:
29608: x_return_status => x_return_status,
29609: p_fa_line_id => x_clev_fa_rec.id,
29610: x_tal_id => l_tal_id);
29611:
29612: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29613: x_return_status := OKL_API.G_RET_STS_ERROR;
29614: RAISE load_failed;
29615: END IF;
29616:
29609: p_fa_line_id => x_clev_fa_rec.id,
29610: x_tal_id => l_tal_id);
29611:
29612: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29613: x_return_status := OKL_API.G_RET_STS_ERROR;
29614: RAISE load_failed;
29615: END IF;
29616:
29617: get_txd_id (
29623: p_tax_book => okl_line_rec.tax_book,
29624: x_txd_id => x_txd_id
29625: );
29626:
29627: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29628: x_return_status := OKL_API.G_RET_STS_ERROR;
29629: RAISE load_failed;
29630: END IF;
29631:
29624: x_txd_id => x_txd_id
29625: );
29626:
29627: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29628: x_return_status := OKL_API.G_RET_STS_ERROR;
29629: RAISE load_failed;
29630: END IF;
29631:
29632: --l_adpv_rec := NULL;
29651: END IF;
29652:
29653: okl_txd_assets_pub.update_txd_asset_def(
29654: p_api_version => 1.0,
29655: p_init_msg_list => OKL_API.G_FALSE,
29656: x_return_status => x_return_status,
29657: x_msg_count => x_msg_count,
29658: x_msg_data => x_msg_data,
29659: p_adpv_rec => l_adpv_rec,
29659: p_adpv_rec => l_adpv_rec,
29660: x_adpv_rec => x_adpv_rec
29661: );
29662:
29663: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29664: x_return_status := OKL_API.G_RET_STS_ERROR;
29665: RAISE load_failed;
29666: END IF;
29667:
29660: x_adpv_rec => x_adpv_rec
29661: );
29662:
29663: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29664: x_return_status := OKL_API.G_RET_STS_ERROR;
29665: RAISE load_failed;
29666: END IF;
29667:
29668: debug_message('------>TXD Line Updated');
29743: x_clev_fa_rec => x_clev_fa_rec,
29744: x_clev_ib_rec => x_clev_ib_rec
29745: );
29746:
29747: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29748: x_return_status := OKL_API.G_RET_STS_ERROR;
29749: RAISE load_failed;
29750: END IF;
29751:
29744: x_clev_ib_rec => x_clev_ib_rec
29745: );
29746:
29747: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29748: x_return_status := OKL_API.G_RET_STS_ERROR;
29749: RAISE load_failed;
29750: END IF;
29751:
29752: x_cle_id := x_clev_fin_rec.id;
29772:
29773: -- Can not have more than one same Tax book
29774: -- for one corporate book, raise error
29775:
29776: okl_api.set_message(
29777: G_APP_NAME,
29778: G_DUP_TAX_BOOK,
29779: 'TAX_BOOK',
29780: okl_line_rec.tax_book,
29782: okl_line_rec.contract_number_old||'/'||okl_line_rec.line_number,
29783: 'ASSET_NUM',
29784: okl_line_rec.asset_number
29785: );
29786: x_return_status := OKL_API.G_RET_STS_ERROR;
29787: RAISE load_failed;
29788:
29789: END IF;
29790:
29807: l_adpv_rec.CURRENCY_CONVERSION_DATE := okl_header_rec.currency_conversion_date;
29808:
29809: okl_txd_assets_pub.create_txd_asset_def(
29810: p_api_version => 1.0,
29811: p_init_msg_list => OKL_API.G_FALSE,
29812: x_return_status => x_return_status,
29813: x_msg_count => x_msg_count,
29814: x_msg_data => x_msg_data,
29815: p_adpv_rec => l_adpv_rec,
29815: p_adpv_rec => l_adpv_rec,
29816: x_adpv_rec => x_adpv_rec
29817: );
29818:
29819: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29820: x_return_status := OKL_API.G_RET_STS_ERROR;
29821: RAISE load_failed;
29822: END IF;
29823:
29816: x_adpv_rec => x_adpv_rec
29817: );
29818:
29819: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29820: x_return_status := OKL_API.G_RET_STS_ERROR;
29821: RAISE load_failed;
29822: END IF;
29823:
29824: debug_message('------>Only TXD Line Created');
29853: p_lty_code => 'FREE_FORM1',
29854: p_top_line_lty_code => NULL,
29855: x_lse_id => x_lse_id
29856: );
29857: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29858: x_return_status := OKL_API.G_RET_STS_ERROR;
29859: RAISE load_failed;
29860: END IF;
29861: */
29854: p_top_line_lty_code => NULL,
29855: x_lse_id => x_lse_id
29856: );
29857: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29858: x_return_status := OKL_API.G_RET_STS_ERROR;
29859: RAISE load_failed;
29860: END IF;
29861: */
29862: l_progress := '101';
29870: x_msg_count => x_msg_count,
29871: x_msg_data => x_msg_data,
29872: p_intf_line => okl_line_rec
29873: );
29874: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29875: x_return_status := OKL_API.G_RET_STS_ERROR;
29876: RAISE load_failed;
29877: END IF;
29878:
29871: x_msg_data => x_msg_data,
29872: p_intf_line => okl_line_rec
29873: );
29874: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29875: x_return_status := OKL_API.G_RET_STS_ERROR;
29876: RAISE load_failed;
29877: END IF;
29878:
29879: -- end cklee 02/18/2004 bug# 3440442
29881: IF (okl_line_rec.CAPITALIZE_DOWN_PAYMENT_YN IS NOT NULL) AND
29882: (okl_line_rec.CAPITALIZE_DOWN_PAYMENT_YN = 'N') THEN
29883: IF (okl_line_rec.DOWN_PAYMENT_RECEIVER_CODE IS NOT NULL) AND
29884: (okl_line_rec.DOWN_PAYMENT_RECEIVER_CODE = 'VENDOR') THEN
29885: okl_api.set_message(
29886: G_APP_NAME,
29887: 'OKL_INVALID_COMBINATION',
29888: 'CONTRACT_NUM',
29889: okl_line_rec.contract_number_old||'/'||okl_line_rec.line_number,
29889: okl_line_rec.contract_number_old||'/'||okl_line_rec.line_number,
29890: 'ASSET_NUM',
29891: okl_line_rec.asset_number
29892: );
29893: x_return_status := OKL_API.G_RET_STS_ERROR;
29894: RAISE load_failed;
29895:
29896: END IF;
29897: END IF;
29984: p_lty_code => 'FIXED_ASSET',
29985: p_top_line_lty_code => 'FREE_FORM1',
29986: x_lse_id => x_lse_id
29987: );
29988: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29989: x_return_status := OKL_API.G_RET_STS_ERROR;
29990: RAISE load_failed;
29991: END IF;
29992: */
29985: p_top_line_lty_code => 'FREE_FORM1',
29986: x_lse_id => x_lse_id
29987: );
29988: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29989: x_return_status := OKL_API.G_RET_STS_ERROR;
29990: RAISE load_failed;
29991: END IF;
29992: */
29993: l_progress := '103';
30007: p_asset_number => okl_line_rec.asset_number,
30008: x_id1 => x_id1,
30009: x_id2 => x_id2
30010: );
30011: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30012: x_return_status := OKL_API.G_RET_STS_ERROR;
30013: RAISE load_failed;
30014: END IF;
30015:
30008: x_id1 => x_id1,
30009: x_id2 => x_id2
30010: );
30011: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30012: x_return_status := OKL_API.G_RET_STS_ERROR;
30013: RAISE load_failed;
30014: END IF;
30015:
30016: p_cimv_fa_rec.chr_id := x_chrv_rec.id;
30063: p_segment6 => okl_line_rec.asset_category_segment6,
30064: p_segment7 => okl_line_rec.asset_category_segment7,
30065: x_comb_id => x_comb_id
30066: );
30067: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30068: x_return_status := OKL_API.G_RET_STS_ERROR;
30069: RAISE load_failed;
30070: END IF;
30071: p_talv_fa_rec.depreciation_id := x_comb_id;
30064: p_segment7 => okl_line_rec.asset_category_segment7,
30065: x_comb_id => x_comb_id
30066: );
30067: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30068: x_return_status := OKL_API.G_RET_STS_ERROR;
30069: RAISE load_failed;
30070: END IF;
30071: p_talv_fa_rec.depreciation_id := x_comb_id;
30072:
30087: p_segment6 => okl_line_rec.asset_location_segment6,
30088: p_segment7 => okl_line_rec.asset_location_segment7,
30089: x_comb_id => x_comb_id
30090: );
30091: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30092: x_return_status := OKL_API.G_RET_STS_ERROR;
30093: RAISE load_failed;
30094: END IF;
30095: p_talv_fa_rec.fa_location_id := x_comb_id;
30088: p_segment7 => okl_line_rec.asset_location_segment7,
30089: x_comb_id => x_comb_id
30090: );
30091: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30092: x_return_status := OKL_API.G_RET_STS_ERROR;
30093: RAISE load_failed;
30094: END IF;
30095: p_talv_fa_rec.fa_location_id := x_comb_id;
30096:
30116: p_segment9 => okl_line_rec.asset_key_segment9,
30117: p_segment10 => okl_line_rec.asset_key_segment10,
30118: x_comb_id => x_comb_id
30119: );
30120: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30121: x_return_status := OKL_API.G_RET_STS_ERROR;
30122: RAISE load_failed;
30123: END IF;
30124: p_talv_fa_rec.asset_key_id := x_comb_id;
30117: p_segment10 => okl_line_rec.asset_key_segment10,
30118: x_comb_id => x_comb_id
30119: );
30120: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30121: x_return_status := OKL_API.G_RET_STS_ERROR;
30122: RAISE load_failed;
30123: END IF;
30124: p_talv_fa_rec.asset_key_id := x_comb_id;
30125: debug_message('Asset Key: '||x_comb_id);
30148: p_install_site_number => okl_line_rec.install_site_number,
30149: x_install_site_id => x_install_site_id
30150: );
30151:
30152: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30153: x_return_status := OKL_API.G_RET_STS_ERROR;
30154: RAISE load_failed;
30155: END IF;
30156:
30149: x_install_site_id => x_install_site_id
30150: );
30151:
30152: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30153: x_return_status := OKL_API.G_RET_STS_ERROR;
30154: RAISE load_failed;
30155: END IF;
30156:
30157: --debug_message('Install site id: '||x_install_site_id);
30164: LOOP
30165:
30166: --Bug# 9299607
30167: IF (okl_ib_rec.serial_number IS NOT NULL AND LENGTH(okl_ib_rec.serial_number) > 30) THEN
30168: OKL_API.Set_Message(p_app_name => G_APP_NAME,
30169: p_msg_name => 'OKL_LLA_EXCEED_MAXIMUM_LENGTH',
30170: p_token1 => 'MAX_CHARS',
30171: p_token1_value => '30',
30172: p_token2 => 'COL_NAME',
30171: p_token1_value => '30',
30172: p_token2 => 'COL_NAME',
30173: p_token2_value => 'SERIAL_NUMBER');
30174:
30175: x_return_status := OKL_API.G_RET_STS_ERROR;
30176: RAISE load_failed;
30177: END IF;
30178:
30179: l_ib_line_count := l_ib_line_count + 1;
30238: debug_message('Before create_all_line');
30239:
30240: okl_create_kle_pvt.Create_all_line(
30241: p_api_version => 1.0,
30242: p_init_msg_list => OKL_API.G_FALSE,
30243: x_return_status => x_return_status,
30244: x_msg_count => x_msg_count,
30245: x_msg_data => x_msg_data,
30246: P_new_yn => 'Y', -- 4414408
30257: x_clev_fa_rec => x_clev_fa_rec,
30258: x_clev_ib_rec => x_clev_ib_rec
30259: );
30260:
30261: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30262: x_return_status := OKL_API.G_RET_STS_ERROR;
30263: RAISE load_failed;
30264: END IF;
30265: --rviriyal bug#6015423 start 27-Aug-2007
30258: x_clev_ib_rec => x_clev_ib_rec
30259: );
30260:
30261: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30262: x_return_status := OKL_API.G_RET_STS_ERROR;
30263: RAISE load_failed;
30264: END IF;
30265: --rviriyal bug#6015423 start 27-Aug-2007
30266: /* Added code to consider date_funding_expected field. If date_funding_expected
30274: END IF;
30275:
30276: OKL_LA_ASSET_PVT.update_contract_line(
30277: p_api_version =>1.0
30278: ,p_init_msg_list =>OKL_API.G_FALSE
30279: ,x_return_status =>x_return_status
30280: ,x_msg_count =>x_msg_count
30281: ,x_msg_data =>x_msg_data
30282: ,p_id =>x_clev_fin_rec.id
30284: ,p_date_funding_expected => p_klev_fin_rec.date_funding_expected
30285: ,p_org_id =>NULL
30286: ,p_organization_id =>NULL
30287: );
30288: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30289: x_return_status := OKL_API.G_RET_STS_ERROR;
30290: RAISE load_failed;
30291: END IF;
30292:
30285: ,p_org_id =>NULL
30286: ,p_organization_id =>NULL
30287: );
30288: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30289: x_return_status := OKL_API.G_RET_STS_ERROR;
30290: RAISE load_failed;
30291: END IF;
30292:
30293: --rviriyal bug#6015423 start 27-Aug-2007
30333: p_stub_days => okl_payment_rent_rec.stub_days,
30334: p_stub_amount => okl_payment_rent_rec.stub_amount
30335: );
30336:
30337: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30338: RAISE load_failed;
30339: END IF;
30340:
30341: IF (l_contract_number_old_prev <> okl_payment_rent_rec.contract_number_old -- prev checking
30362: x_rgp_id => x_rgp_id,
30363: x_slh_rulv_rec => x_slh_rulv_rec
30364: );
30365:
30366: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30367: RAISE load_failed;
30368: END IF;
30369:
30370: ELSE
30371: l_progress := '170';
30372:
30373: -- Some more validation on Payment Lines
30374: IF (okl_payment_rent_rec.payment_schedule_number <= l_pmnt_sch_num_prev) THEN
30375: okl_api.set_message(
30376: G_APP_NAME,
30377: G_PAYMENT_SCHD_ERROR,
30378: 'COL_VALUE',
30379: okl_payment_rent_rec.payment_schedule_number,
30379: okl_payment_rent_rec.payment_schedule_number,
30380: 'CONTRACT_NUM',
30381: okl_header_rec.contract_number_old||'/'||okl_payment_rent_rec.line_number
30382: );
30383: x_return_status := OKL_API.G_RET_STS_ERROR;
30384: RAISE load_failed;
30385: END IF;
30386:
30387: check_payment_frequency_code(
30392: x_id1 => x_pmnt_freq_id,
30393: x_uom_code => x_uom_code
30394: );
30395:
30396: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30397: okl_api.set_message(
30398: G_APP_NAME,
30399: G_INVALID_VALUE,
30400: 'CONTRACT_NUM',
30393: x_uom_code => x_uom_code
30394: );
30395:
30396: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30397: okl_api.set_message(
30398: G_APP_NAME,
30399: G_INVALID_VALUE,
30400: 'CONTRACT_NUM',
30401: okl_payment_rent_rec.contract_number_old||'/'||okl_payment_rent_rec.line_number,
30415: l_mult_factor := 6;
30416: ELSIF (x_uom_code = 'A') THEN
30417: l_mult_factor := 12;
30418: ELSE
30419: okl_api.set_message(
30420: G_APP_NAME,
30421: G_UOM_SETUP_ERROR,
30422: 'COL_VALUE',
30423: okl_payment_rent_rec.payment_frequency_code
30428:
30429: l_current_start_date := add_months(l_start_date_prev, (l_number_of_periods_prev * l_mult_factor));
30430:
30431: IF (TRUNC(l_current_start_date) <> TRUNC(okl_payment_rent_rec.start_date)) THEN
30432: okl_api.set_message(
30433: G_APP_NAME,
30434: G_PAYMENT_START_DATE_ERROR,
30435: 'CONTRACT_NUM',
30436: okl_payment_rent_rec.contract_number_old||'/'||okl_payment_rent_rec.line_number
30468: p_cle_id => x_cle_id,
30469: p_rgp_id => x_rgp_id
30470: );
30471:
30472: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30473: RAISE load_failed;
30474: END IF;
30475:
30476: l_progress := '180';
30501: p_asset_num => okl_line_rec.asset_number
30502: );
30503:
30504: debug_message('------>Process Subsidy ends '||x_return_status);
30505: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30506: x_return_status := OKL_API.G_RET_STS_ERROR;
30507: RAISE load_failed;
30508: END IF;
30509:
30502: );
30503:
30504: debug_message('------>Process Subsidy ends '||x_return_status);
30505: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30506: x_return_status := OKL_API.G_RET_STS_ERROR;
30507: RAISE load_failed;
30508: END IF;
30509:
30510:
30528:
30529: --debug_message('AKP:NEEDED:x_clev_fa_rec.id=' || x_clev_fa_rec.id);
30530:
30531: debug_message('------>Process Addon ends '||x_return_status);
30532: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30533: x_return_status := OKL_API.G_RET_STS_ERROR;
30534: RAISE load_failed;
30535: END IF;
30536:
30529: --debug_message('AKP:NEEDED:x_clev_fa_rec.id=' || x_clev_fa_rec.id);
30530:
30531: debug_message('------>Process Addon ends '||x_return_status);
30532: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30533: x_return_status := OKL_API.G_RET_STS_ERROR;
30534: RAISE load_failed;
30535: END IF;
30536:
30537: /* OKL.H - Addon import end */
30556: x_party_pmnt_hdr_tbl => x_party_pmnt_hdr_tbl_out
30557: );
30558:
30559: debug_message('------>Create party payment ends '||x_return_status);
30560: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30561: x_return_status := OKL_API.G_RET_STS_ERROR;
30562: RAISE load_failed;
30563: END IF;
30564: IF (x_party_pmnt_hdr_tbl_out.COUNT > 0 )THEN
30557: );
30558:
30559: debug_message('------>Create party payment ends '||x_return_status);
30560: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30561: x_return_status := OKL_API.G_RET_STS_ERROR;
30562: RAISE load_failed;
30563: END IF;
30564: IF (x_party_pmnt_hdr_tbl_out.COUNT > 0 )THEN
30565: l_counter := x_party_pmnt_hdr_tbl_out.FIRST;
30589: END LOOP;
30590:
30591: okl_txl_assets_pub.update_txl_asset_def(
30592: p_api_version => 1.0,
30593: p_init_msg_list => OKL_API.G_FALSE,
30594: x_return_status => x_return_status,
30595: x_msg_count => x_msg_count,
30596: x_msg_data => x_msg_data,
30597: p_tlpv_rec => l_talv_rec,
30599: );
30600:
30601: debug_message('Depreciation Cost update: '||x_return_status);
30602:
30603: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30604: x_return_status := OKL_API.G_RET_STS_ERROR;
30605: RAISE load_failed;
30606: END IF;
30607:
30600:
30601: debug_message('Depreciation Cost update: '||x_return_status);
30602:
30603: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30604: x_return_status := OKL_API.G_RET_STS_ERROR;
30605: RAISE load_failed;
30606: END IF;
30607:
30608: END IF; -- depreciation_cost
30612: x_return_status => x_return_status,
30613: p_fa_line_id => x_clev_fa_rec.id,
30614: x_tal_id => l_tal_id);
30615:
30616: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30617: x_return_status := OKL_API.G_RET_STS_ERROR;
30618: RAISE load_failed;
30619: END IF;
30620:
30613: p_fa_line_id => x_clev_fa_rec.id,
30614: x_tal_id => l_tal_id);
30615:
30616: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30617: x_return_status := OKL_API.G_RET_STS_ERROR;
30618: RAISE load_failed;
30619: END IF;
30620:
30621: IF (l_loan_yn <> 'Y') THEN -- don't create txd for loan type contract
30637: l_adpv_rec.CURRENCY_CONVERSION_DATE := okl_header_rec.currency_conversion_date;
30638:
30639: okl_txd_assets_pub.create_txd_asset_def(
30640: p_api_version => 1.0,
30641: p_init_msg_list => OKL_API.G_FALSE,
30642: x_return_status => x_return_status,
30643: x_msg_count => x_msg_count,
30644: x_msg_data => x_msg_data,
30645: p_adpv_rec => l_adpv_rec,
30645: p_adpv_rec => l_adpv_rec,
30646: x_adpv_rec => x_adpv_rec
30647: );
30648:
30649: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30650: x_return_status := OKL_API.G_RET_STS_ERROR;
30651: RAISE load_failed;
30652: END IF;
30653:
30646: x_adpv_rec => x_adpv_rec
30647: );
30648:
30649: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30650: x_return_status := OKL_API.G_RET_STS_ERROR;
30651: RAISE load_failed;
30652: END IF;
30653:
30654: debug_message('------>TXD Line Created');
30679: p_ship_to_site_number => okl_line_rec.ship_to_site_number,
30680: p_ship_to_site_id => okl_line_rec.ship_to_site_id,
30681: x_ship_to_site_id => x_ship_to_site_id
30682: );
30683: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30684: RAISE load_failed;
30685: x_return_status := OKL_API.G_RET_STS_ERROR;
30686: END IF;
30687:
30681: x_ship_to_site_id => x_ship_to_site_id
30682: );
30683: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30684: RAISE load_failed;
30685: x_return_status := OKL_API.G_RET_STS_ERROR;
30686: END IF;
30687:
30688: p_sidv_rec.shipping_address_id1 := x_ship_to_site_id;
30689: p_sidv_rec.shipping_address_id2 := '#';
30697: x_msg_data => x_msg_data,
30698: p_sidv_rec => p_sidv_rec,
30699: x_sidv_rec => x_sidv_rec
30700: );
30701: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30702: x_return_status := OKL_API.G_RET_STS_ERROR;
30703: RAISE load_failed;
30704: END IF;
30705:
30698: p_sidv_rec => p_sidv_rec,
30699: x_sidv_rec => x_sidv_rec
30700: );
30701: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30702: x_return_status := OKL_API.G_RET_STS_ERROR;
30703: RAISE load_failed;
30704: END IF;
30705:
30706: END IF; -- multiple Tax Book
30779: p_attribute14 => okl_line_rec.attribute14,
30780: p_attribute15 => okl_line_rec.attribute15
30781: );
30782:
30783: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30784: x_return_status := OKL_API.G_RET_STS_ERROR;
30785: RAISE load_failed;
30786: END IF;
30787:
30780: p_attribute15 => okl_line_rec.attribute15
30781: );
30782:
30783: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30784: x_return_status := OKL_API.G_RET_STS_ERROR;
30785: RAISE load_failed;
30786: END IF;
30787:
30788: l_service_line_id := x_cle_id;
30861: p_attribute15 => okl_line_rec.attribute15,
30862: p_origination_income => okl_line_rec.origination_income
30863: );
30864:
30865: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30866: x_return_status := OKL_API.G_RET_STS_ERROR;
30867: RAISE load_failed;
30868: END IF;
30869:
30862: p_origination_income => okl_line_rec.origination_income
30863: );
30864:
30865: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30866: x_return_status := OKL_API.G_RET_STS_ERROR;
30867: RAISE load_failed;
30868: END IF;
30869:
30870: l_fee_line_id := x_cle_id;
30925: p_pth_evg_stream_purpose_code => NULL,
30926: p_fee_purpose_code => okl_line_rec.fee_purpose_code
30927: );
30928:
30929: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30930: x_return_status := OKL_API.G_RET_STS_ERROR;
30931: RAISE load_failed;
30932: END IF;
30933:
30926: p_fee_purpose_code => okl_line_rec.fee_purpose_code
30927: );
30928:
30929: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30930: x_return_status := OKL_API.G_RET_STS_ERROR;
30931: RAISE load_failed;
30932: END IF;
30933:
30934: l_usage_line_id := x_cle_id;
31025: p_prop_tax_as_contract_yn => okl_line_rec.prop_tax_as_contract_yn
31026: -- End
31027: );
31028:
31029: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
31030: x_return_status := OKL_API.G_RET_STS_ERROR;
31031: raise load_failed;
31032: END IF;
31033:
31026: -- End
31027: );
31028:
31029: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
31030: x_return_status := OKL_API.G_RET_STS_ERROR;
31031: raise load_failed;
31032: END IF;
31033:
31034: debug_message('------>Line rule complete');
31151: );
31152:
31153: debug_message('------>Party Role Status: '||x_return_status);
31154:
31155: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
31156: RAISE load_failed;
31157: END IF;
31158: END IF; --rule create
31159: l_progress := '140';
31175: okl_term_rec.bill_to_address_id IS NULL
31176: AND
31177: okl_term_rec.bill_to_address IS NULL) THEN
31178:
31179: okl_api.set_message(
31180: G_APP_NAME,
31181: G_MISSING_VALUE,
31182: 'CONTRACT_NUM',
31183: okl_term_rec.contract_number_old||'/'||okl_term_rec.line_number,
31184: 'COL_NAME',
31185: 'BILL_TO_ADDRESS'
31186: );
31187:
31188: x_return_status := OKL_API.G_RET_STS_ERROR;
31189: RAISE load_failed;
31190: END IF;
31191:
31192: debug_message('------>Process term');
31214: p_prescribed_asset_flag => okl_term_rec.prescribed_asset_flag,
31215: p_cash_appl_rule_name => okl_term_rec.cash_appl_rule_name
31216: );
31217:
31218: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
31219: RAISE load_failed;
31220: END IF;
31221:
31222: l_progress := '160';
31274: p_stub_days => okl_payment_rec.stub_days,
31275: p_stub_amount => okl_payment_rec.stub_amount
31276: );
31277:
31278: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
31279: RAISE load_failed;
31280: END IF;
31281:
31282: IF (l_contract_number_old_prev <> okl_payment_rec.contract_number_old -- prev checking
31302: p_line_number => okl_line_rec.line_number,
31303: x_payment_level => l_payment_level
31304: );
31305:
31306: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
31307: RAISE load_failed;
31308: END IF;
31309:
31310: IF (l_payment_level = 'SUB') THEN -- attach payment at sub-line
31327: x_rgp_id => x_rgp_id,
31328: x_slh_rulv_rec => x_slh_rulv_rec
31329: );
31330:
31331: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
31332: RAISE load_failed;
31333: END IF;
31334:
31335: ELSE
31337:
31338: -- Some more validation on Payment Lines
31339: IF (okl_payment_rec.payment_schedule_number <= l_pmnt_sch_num_prev) THEN
31340: debug_message('First check error...');
31341: okl_api.set_message(
31342: G_APP_NAME,
31343: G_PAYMENT_SCHD_ERROR,
31344: 'COL_VALUE',
31345: okl_payment_rec.payment_schedule_number,
31345: okl_payment_rec.payment_schedule_number,
31346: 'CONTRACT_NUM',
31347: okl_header_rec.contract_number_old||'/'||okl_payment_rec.line_number
31348: );
31349: x_return_status := OKL_API.G_RET_STS_ERROR;
31350: RAISE load_failed;
31351: END IF;
31352:
31353: check_payment_frequency_code(
31358: x_id1 => x_pmnt_freq_id,
31359: x_uom_code => x_uom_code
31360: );
31361:
31362: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
31363: okl_api.set_message(
31364: G_APP_NAME,
31365: G_INVALID_VALUE,
31366: 'CONTRACT_NUM',
31359: x_uom_code => x_uom_code
31360: );
31361:
31362: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
31363: okl_api.set_message(
31364: G_APP_NAME,
31365: G_INVALID_VALUE,
31366: 'CONTRACT_NUM',
31367: okl_payment_rec.contract_number_old||'/'||okl_payment_rec.line_number,
31381: l_mult_factor := 6;
31382: ELSIF (x_uom_code = 'A') THEN
31383: l_mult_factor := 12;
31384: ELSE
31385: okl_api.set_message(
31386: G_APP_NAME,
31387: G_UOM_SETUP_ERROR,
31388: 'COL_VALUE',
31389: okl_payment_rec.payment_frequency_code
31394:
31395: l_current_start_date := add_months(l_start_date_prev, (l_number_of_periods_prev * l_mult_factor));
31396:
31397: IF (TRUNC(l_current_start_date) <> TRUNC(okl_payment_rec.start_date)) THEN
31398: okl_api.set_message(
31399: G_APP_NAME,
31400: G_PAYMENT_START_DATE_ERROR,
31401: 'CONTRACT_NUM',
31402: okl_payment_rec.contract_number_old||'/'||okl_payment_rec.line_number
31434: p_cle_id => x_cle_id,
31435: p_rgp_id => x_rgp_id
31436: );
31437:
31438: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
31439: RAISE load_failed;
31440: END IF;
31441:
31442: l_progress := '180';
31575: p_attribute14 => okl_party_rec.attribute14,
31576: p_attribute15 => okl_party_rec.attribute15
31577: );
31578:
31579: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
31580: RAISE load_failed;
31581: END IF;
31582:
31583: l_progress := '210';
31621: p_stub_days => okl_payment_rec.stub_days,
31622: p_stub_amount => okl_payment_rec.stub_amount
31623: );
31624:
31625: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
31626: RAISE load_failed;
31627: END IF;
31628:
31629: IF (l_contract_number_old_prev <> okl_payment_rec.contract_number_old -- prev checking
31645: x_rgp_id => x_rgp_id,
31646: x_slh_rulv_rec => x_slh_rulv_rec
31647: );
31648:
31649: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
31650: RAISE load_failed;
31651: END IF;
31652:
31653: l_rg_id := x_rgp_id;
31657:
31658: -- Some more validation on Payment Lines
31659: IF (okl_payment_rec.payment_schedule_number <= l_pmnt_sch_num_prev) THEN
31660: debug_message('Second check error...');
31661: okl_api.set_message(
31662: G_APP_NAME,
31663: G_PAYMENT_SCHD_ERROR,
31664: 'COL_VALUE',
31665: okl_payment_rec.payment_schedule_number,
31665: okl_payment_rec.payment_schedule_number,
31666: 'CONTRACT_NUM',
31667: okl_header_rec.contract_number_old||'/'||okl_payment_rec.line_number
31668: );
31669: x_return_status := OKL_API.G_RET_STS_ERROR;
31670: RAISE load_failed;
31671: END IF;
31672:
31673: check_payment_frequency_code(
31678: x_id1 => x_pmnt_freq_id,
31679: x_uom_code => x_uom_code
31680: );
31681:
31682: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
31683: okl_api.set_message(
31684: G_APP_NAME,
31685: G_INVALID_VALUE,
31686: 'CONTRACT_NUM',
31679: x_uom_code => x_uom_code
31680: );
31681:
31682: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
31683: okl_api.set_message(
31684: G_APP_NAME,
31685: G_INVALID_VALUE,
31686: 'CONTRACT_NUM',
31687: okl_payment_rec.contract_number_old||'/'||okl_payment_rec.line_number,
31701: l_mult_factor := 6;
31702: ELSIF (x_uom_code = 'A') THEN
31703: l_mult_factor := 12;
31704: ELSE
31705: okl_api.set_message(
31706: G_APP_NAME,
31707: G_UOM_SETUP_ERROR,
31708: 'COL_VALUE',
31709: okl_payment_rec.payment_frequency_code
31714:
31715: l_current_start_date := add_months(l_start_date_prev, (l_number_of_periods_prev * l_mult_factor));
31716:
31717: IF (TRUNC(l_current_start_date) <> TRUNC(okl_payment_rec.start_date)) THEN
31718: okl_api.set_message(
31719: G_APP_NAME,
31720: G_PAYMENT_START_DATE_ERROR,
31721: 'CONTRACT_NUM',
31722: okl_payment_rec.contract_number_old||'/'||okl_payment_rec.line_number
31754: p_cle_id => NULL,
31755: p_rgp_id => l_rg_id
31756: );
31757:
31758: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
31759: RAISE load_failed;
31760: END IF;
31761:
31762: l_progress := '180';
31774:
31775: --Bug# 13478101
31776: OKL_K_RATE_PARAMS_PVT.get_product(
31777: p_api_version => 1.0,
31778: p_init_msg_list => OKL_API.G_FALSE,
31779: x_return_status => x_return_status,
31780: x_msg_count => x_msg_count,
31781: x_msg_data => x_msg_data,
31782: p_khr_id => x_chrv_rec.id,
31798: IF l_var_int_sched_rec.rgp_id IS NOT NULL THEN
31799:
31800: OKL_LA_PAYMENTS_PVT.calculate_details(
31801: p_api_version => 1.0,
31802: p_init_msg_list => OKL_API.G_FALSE,
31803: x_return_status => x_return_status,
31804: x_msg_count => x_msg_count,
31805: x_msg_data => x_msg_data,
31806: p_chr_id => x_chrv_rec.id,
31807: p_rgp_id => l_var_int_sched_rec.rgp_id,
31808: p_slh_id => l_var_int_sched_rec.slh_id,
31809: structure => NULL,
31810: frequency => NULL,
31811: arrears => OKL_API.G_MISS_CHAR,
31812: p_validate_date_yn => 'N',
31813: p_update_type => 'IMPORT'
31814: );
31815:
31812: p_validate_date_yn => 'N',
31813: p_update_type => 'IMPORT'
31814: );
31815:
31816: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
31817: RAISE load_failed;
31818: END IF;
31819:
31820: ELSE
31820: ELSE
31821:
31822: OKL_LA_PAYMENTS_PVT.VARIABLE_INTEREST_SCHEDULE (
31823: p_api_version => 1.0,
31824: p_init_msg_list => OKL_API.G_FALSE,
31825: x_return_status => x_return_status,
31826: x_msg_count => x_msg_count,
31827: x_msg_data => x_msg_data,
31828: p_chr_id => x_chrv_rec.id,
31828: p_chr_id => x_chrv_rec.id,
31829: x_rulv_tbl => x_rulv_tbl
31830: );
31831:
31832: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
31833: RAISE load_failed;
31834: END IF;
31835: END IF;
31836: END IF;
31839: IF (l_no_of_lines = 0
31840: AND
31841: okl_header_rec.import_request_stage <> 'NEW') THEN -- There must be atleast one line, except for NEW contracts
31842:
31843: okl_api.set_message(
31844: G_APP_NAME,
31845: G_INVALID_CONTRACT,
31846: 'CONTRACT_NUM',
31847: okl_header_rec.contract_number_old
31845: G_INVALID_CONTRACT,
31846: 'CONTRACT_NUM',
31847: okl_header_rec.contract_number_old
31848: );
31849: x_return_status := OKL_API.G_RET_STS_ERROR;
31850: RAISE load_failed;
31851: END IF;
31852:
31853: COMMIT; -- commit after every Contract to avoid problem with Rollback segment
31854: /*
31855: --
31856: -- Process Contracts depending on import_request_stage
31857: --
31858: IF (x_return_status = OKL_API.G_RET_STS_SUCCESS
31859: AND
31860: okl_header_rec.import_request_stage <> 'NEW' ) THEN
31861: contract_further_process(
31862: p_init_msg_list => OKL_API.G_FALSE,
31858: IF (x_return_status = OKL_API.G_RET_STS_SUCCESS
31859: AND
31860: okl_header_rec.import_request_stage <> 'NEW' ) THEN
31861: contract_further_process(
31862: p_init_msg_list => OKL_API.G_FALSE,
31863: x_return_status => x_return_status,
31864: x_msg_count => x_msg_count,
31865: x_msg_data => x_msg_data,
31866: p_chr_id => x_chrv_rec.id,
31876: report_error (
31877: x_msg_count => x_msg_count,
31878: x_msg_data => x_msg_data
31879: );
31880: x_return_status := OKL_API.G_RET_STS_ERROR;
31881:
31882: END; -- of Header Begin
31883:
31884: IF (x_return_status = OKL_API.G_RET_STS_SUCCESS) THEN -- Final checking for SUCCESSFUL Processing
31880: x_return_status := OKL_API.G_RET_STS_ERROR;
31881:
31882: END; -- of Header Begin
31883:
31884: IF (x_return_status = OKL_API.G_RET_STS_SUCCESS) THEN -- Final checking for SUCCESSFUL Processing
31885:
31886: update_interface_status(
31887: p_contract_number => okl_header_rec.contract_number_old,
31888: p_new_contract_number => x_chrv_rec.contract_number,
31895: -- hariven - Bug#5393374 - Added - Start
31896: -- Raise Business event for "oracle.apps.okl.la.lease_contract.imported"
31897: raise_business_event( p_chr_id => x_chrv_rec.id
31898: , x_return_status => x_return_status);
31899: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
31900: write_to_log('Raising Business Event For Contract -' ||x_chrv_rec.contract_number ||' FAILED!');
31901: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
31902: END IF;
31903: -- hariven - Bug#5393374 - Added - End
31897: raise_business_event( p_chr_id => x_chrv_rec.id
31898: , x_return_status => x_return_status);
31899: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
31900: write_to_log('Raising Business Event For Contract -' ||x_chrv_rec.contract_number ||' FAILED!');
31901: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
31902: END IF;
31903: -- hariven - Bug#5393374 - Added - End
31904:
31905: ELSE
31917:
31918: --
31919: -- Process Contracts depending on import_request_stage
31920: --
31921: IF (x_return_status = OKL_API.G_RET_STS_SUCCESS
31922: AND
31923: okl_header_rec.import_request_stage <> 'NEW' ) THEN
31924: contract_further_process(
31925: p_init_msg_list => OKL_API.G_FALSE,
31921: IF (x_return_status = OKL_API.G_RET_STS_SUCCESS
31922: AND
31923: okl_header_rec.import_request_stage <> 'NEW' ) THEN
31924: contract_further_process(
31925: p_init_msg_list => OKL_API.G_FALSE,
31926: x_return_status => x_return_status,
31927: x_msg_count => x_msg_count,
31928: x_msg_data => x_msg_data,
31929: p_chr_id => x_chrv_rec.id,
31942: WHEN item_not_found_error THEN
31943: x_return_status := Okc_Api.G_RET_STS_ERROR;
31944:
31945: WHEN OTHERS THEN
31946: okl_api.set_message(
31947: G_APP_NAME,
31948: G_UNEXPECTED_ERROR,
31949: 'OKL_SQLCODE',
31950: SQLCODE,
31950: SQLCODE,
31951: 'OKL_SQLERRM',
31952: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
31953: );
31954: x_return_status := OKL_API.G_RET_STS_ERROR;
31955:
31956: report_error (
31957: x_msg_count => x_msg_count,
31958: x_msg_data => x_msg_data
31986:
31987:
31988: BEGIN
31989:
31990: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
31991:
31992: -- Convert the date to Varchar2
31993:
31994: l_start_date := Fnd_Date.date_to_canonical(p_start_date);
32014: p_msg_name => 'FA_DEPRN_TAX_ERROR',
32015: p_token1 => 'REQUEST_ID',
32016: p_token1_value => x_request_id);
32017:
32018: RAISE Okl_Api.g_exception_error;
32019: END IF;
32020:
32021: RETURN x_request_id;
32022:
32021: RETURN x_request_id;
32022:
32023: EXCEPTION
32024:
32025: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
32026: x_return_status := Okl_Api.G_RET_STS_ERROR;
32027: RETURN x_request_id;
32028:
32029: WHEN OTHERS THEN
32022:
32023: EXCEPTION
32024:
32025: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
32026: x_return_status := Okl_Api.G_RET_STS_ERROR;
32027: RETURN x_request_id;
32028:
32029: WHEN OTHERS THEN
32030: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
32026: x_return_status := Okl_Api.G_RET_STS_ERROR;
32027: RETURN x_request_id;
32028:
32029: WHEN OTHERS THEN
32030: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
32031: RETURN x_request_id;
32032:
32033: END Submit_Import_Contract;
32034: