[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';
690: ,QUOTE_APPROVER_DELAY_DAYS OKL_HEADER_INTERFACE.QUOTE_APPROVER_DELAY_DAYS%TYPE
691: ,ERT_SERV_MANT_FRML OKL_HEADER_INTERFACE.ERT_SERV_MANT_FRML%TYPE
692: ,EOT_SERV_MANT_FRML OKL_HEADER_INTERFACE.EOT_SERV_MANT_FRML%TYPE
693: --Added by dpsingh for LE Uptake
694: ,LEGAL_ENTITY_ID NUMBER := Okl_Api.G_MISS_NUM
695: -- Added by Punith for R12 ebtax
696: ,ST_TAX_SCHEDULE_APPLIES_FLAG OKL_HEADER_INTERFACE.ST_TAX_SCHEDULE_APPLIES_FLAG%TYPE
697: );
698:
753: ------------------------------------------------------------------------------
754: -- PROCEDURE Report_Error
755: -- It is a generalized routine to display error on Concurrent Manager Log file
756: -- Calls:
757: -- okl_api package
758: -- fnd_msg_pub package
759: -- Called by:
760: -- process_record
761: -- check_input_record
771: x_msg_out VARCHAR2(2000);
772:
773: BEGIN
774:
775: okl_api.end_activity(
776: X_msg_count => x_msg_count,
777: X_msg_data => x_msg_data
778: );
779:
828: FROM okc_k_headers_v
829: WHERE id = p_chr_id;
830:
831: BEGIN
832: x_return_status := OKL_API.G_RET_STS_SUCCESS;
833: OPEN can_bto_csr (p_chr_id);
834: FETCH can_bto_csr INTO x_bto_id,
835: x_can_id;
836: IF can_bto_csr%NOTFOUND THEN
833: OPEN can_bto_csr (p_chr_id);
834: FETCH can_bto_csr INTO x_bto_id,
835: x_can_id;
836: IF can_bto_csr%NOTFOUND THEN
837: x_return_status := OKL_API.G_RET_STS_ERROR;
838: END IF;
839: CLOSE can_bto_csr;
840:
841: END get_can_bto;
899: param_error EXCEPTION;
900: BEGIN
901:
902: X_Progress := '010';
903: X_return_status := OKL_API.G_RET_STS_SUCCESS;
904: g_instance_number := nvl(p_instance_number, 'NONE');
905:
906: --fnd_file.put_line(fnd_file.output, 'OKL Contract Open Interface Report');
907: --fnd_file.put_line(fnd_file.output, '==================================');
922: p_start_date_to IS NULL AND
923: p_contract_number IS NULL AND
924: p_customer_number IS NULL ) THEN -- All Null
925:
926: okl_api.set_message(
927: G_APP_NAME,
928: G_NULL_PARAMETER
929: );
930: RAISE param_error;
934: p_start_date_to IS NOT NULL OR
935: p_contract_number IS NOT NULL OR
936: p_customer_number IS NOT NULL)) THEN -- Provide Batch Number only
937:
938: okl_api.set_message(
939: G_APP_NAME,
940: G_INVALID_PARAMETER,
941: 'PARAM_NAME',
942: 'BATCH_NUMBER'
948: p_start_date_from IS NULL
949: AND
950: p_start_date_to IS NULL
951: ) THEN
952: okl_api.set_message(
953: G_APP_NAME,
954: G_INVALID_PARAMETER,
955: 'PARAM_NAME',
956: 'Customer Number And Start Date From To'
962: * Validations are moved to load procedure
963: *
964: *
965: * check_input_record(
966: * p_init_msg_list => OKL_API.G_TRUE,
967: * x_return_status => X_return_status,
968: * x_msg_count => X_msg_count,
969: * x_msg_data => X_msg_data,
970: * p_batch_number => p_batch_number,
990: * write_to_log('==================================');
991: * Bug 4350579
992: */
993: Load_Input_Record(
994: p_init_msg_list => OKL_API.G_TRUE,
995: x_return_status => X_return_status,
996: x_msg_count => X_msg_count,
997: x_msg_data => X_msg_data,
998: p_batch_number => p_batch_number,
1010: RETURN;
1011:
1012: EXCEPTION
1013: WHEN param_error THEN
1014: okl_api.end_activity(
1015: X_msg_count => X_msg_count,
1016: X_msg_data => X_msg_data
1017: );
1018:
1040: x_proc_name VARCHAR2(35) := 'UPDATE_INTERFACE_STATUS';
1041: update_failed EXCEPTION;
1042: BEGIN
1043:
1044: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1045:
1046: UPDATE okl_header_interface
1047: SET status = p_status,
1048: contract_number = p_new_contract_number,
1056: END IF;
1057:
1058: EXCEPTION
1059: WHEN update_failed THEN
1060: okl_api.set_message(
1061: G_APP_NAME,
1062: G_UNEXPECTED_ERROR,
1063: 'OKL_SQLCODE',
1064: SQLCODE,
1064: SQLCODE,
1065: 'OKL_SQLERRM',
1066: SQLERRM || ': '||G_PKG_NAME||'.'||x_proc_name
1067: );
1068: x_return_status := OKL_API.G_RET_STS_ERROR;
1069:
1070: END Update_Interface_Status;
1071:
1072: ------------------------------------------------------------------------------
1240:
1241: l_proc_name VARCHAR2(30) := 'GET_TEMPLATE';
1242: BEGIN
1243:
1244: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1245:
1246: OPEN t_header_csr (p_template_number);
1247: FETCH t_header_csr into l_t_header_rec;
1248: IF t_header_csr%NOTFOUND THEN
1245:
1246: OPEN t_header_csr (p_template_number);
1247: FETCH t_header_csr into l_t_header_rec;
1248: IF t_header_csr%NOTFOUND THEN
1249: okl_api.set_message(
1250: G_APP_NAME,
1251: G_INVALID_TEMPLATE,
1252: 'TEMPLATE_NUMBER',
1253: p_template_number
1262: WHEN template_failed THEN
1263: IF t_header_csr%ISOPEN THEN
1264: CLOSE t_header_csr;
1265: END IF;
1266: x_return_status := OKL_API.G_RET_STS_ERROR;
1267: END get_template;
1268:
1269:
1270: --*********************** check Interface **************************************
1479: l_name OKL_STRMTYP_SOURCE_V.NAME%TYPE;
1480: strm_failed EXCEPTION;
1481:
1482: BEGIN
1483: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1484:
1485: debug_message('p_stream_type_code=' || p_stream_type_code);
1486: debug_message('p_stream_purpose=' || p_stream_purpose);
1487: OPEN strm_csr(p_stream_type_code,
1497: RETURN;
1498:
1499: EXCEPTION
1500: WHEN strm_failed THEN
1501: x_return_status := OKL_API.G_RET_STS_ERROR;
1502:
1503: END check_stream_type_code;
1504:
1505: ------------------------------------------------------------------------------
1504:
1505: ------------------------------------------------------------------------------
1506: -- FUNCTION validate_currency_code
1507: -- It validates currency Code against database, FND_CURRENCIES
1508: -- Returns OKL_API.G_RET_STS_ERROR for unknown currency code
1509: -- OKL_API.G_RET_STS_SUCCESS for valid currency code
1510: -- Calls:
1511: -- None
1512: -- Called By:
1505: ------------------------------------------------------------------------------
1506: -- FUNCTION validate_currency_code
1507: -- It validates currency Code against database, FND_CURRENCIES
1508: -- Returns OKL_API.G_RET_STS_ERROR for unknown currency code
1509: -- OKL_API.G_RET_STS_SUCCESS for valid currency code
1510: -- Calls:
1511: -- None
1512: -- Called By:
1513: -- check_input_record
1522: FROM FND_CURRENCIES
1523: WHERE currency_code = p_curr_code
1524: AND NVL(end_date_active,SYSDATE) >= SYSDATE;
1525:
1526: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1527: l_currency_code FND_CURRENCIES.CURRENCY_CODE%TYPE;
1528:
1529: BEGIN
1530:
1528:
1529: BEGIN
1530:
1531: IF (p_currency_code IS NULL) THEN
1532: okl_api.set_message(
1533: G_APP_NAME,
1534: G_MISSING_VALUE,
1535: 'CONTRACT_NUM',
1536: p_contract_number,
1536: p_contract_number,
1537: 'COL_NAME',
1538: 'CURRENCY_CODE'
1539: );
1540: x_return_status := OKL_API.G_RET_STS_ERROR;
1541:
1542: return x_return_status;
1543: END IF;
1544:
1544:
1545: OPEN currency_csr(p_currency_code);
1546: FETCH currency_csr INTO l_currency_code;
1547: IF currency_csr%NOTFOUND THEN
1548: okl_api.set_message(
1549: G_APP_NAME,
1550: G_INVALID_VALUE,
1551: 'CONTRACT_NUM',
1552: p_contract_number,
1554: 'CURRENCY_CODE',
1555: 'COL_VALUE',
1556: p_currency_code
1557: );
1558: x_return_status := OKL_API.G_RET_STS_ERROR;
1559: END IF;
1560: CLOSE currency_csr;
1561:
1562: return x_return_status;
1571: -- review_invoice_flag, date_signed, date_approved, term,
1572: -- accepted_date, deal_type_code, bill_to_address, authoring_org_id,
1573: -- customer_account
1574: -- columns and reports error, if any
1575: -- Returns OKL_API.G_RET_STS_ERROR for any Error
1576: -- OKL_API.G_RET_STS_SUCCESS
1577: -- Calls:
1578: -- None
1579: -- Called By:
1572: -- accepted_date, deal_type_code, bill_to_address, authoring_org_id,
1573: -- customer_account
1574: -- columns and reports error, if any
1575: -- Returns OKL_API.G_RET_STS_ERROR for any Error
1576: -- OKL_API.G_RET_STS_SUCCESS
1577: -- Calls:
1578: -- None
1579: -- Called By:
1580: -- check_input_record
1607: p_currency_code IN okl_header_interface.currency_code%TYPE
1608: )
1609: RETURN VARCHAR2 IS
1610:
1611: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1612: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1613:
1614: l_rulv_tbl rulv_tbl_type;
1615: l_rule_count NUMBER;
1608: )
1609: RETURN VARCHAR2 IS
1610:
1611: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1612: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1613:
1614: l_rulv_tbl rulv_tbl_type;
1615: l_rule_count NUMBER;
1616: x_msg_count NUMBER;
1627:
1628: debug_message(l_proc_name);
1629:
1630: IF (UPPER(p_import_request_stage) NOT IN ( 'NEW','PASSED','COMPLETE','APPROVED','BOOKED' )) THEN
1631: okl_api.set_message(
1632: G_APP_NAME,
1633: G_LITERAL_MISMATCH,
1634: 'COL_NAME',
1635: 'IMPORT_REQUEST_STAGE',
1635: 'IMPORT_REQUEST_STAGE',
1636: 'COL_VALUE',
1637: p_import_request_stage
1638: );
1639: x_return_status := OKL_API.G_RET_STS_ERROR;
1640: END IF;
1641:
1642: IF (p_import_request_stage <> 'NEW'
1643: AND
1641:
1642: IF (p_import_request_stage <> 'NEW'
1643: AND
1644: p_date_signed IS NULL ) THEN
1645: okl_api.set_message(
1646: G_APP_NAME,
1647: G_MISSING_VALUE_FOR_STAGE,
1648: 'CONTRACT_NUM',
1649: p_contract_number,
1651: 'DATE_SIGNED',
1652: 'STAGE',
1653: p_import_request_stage
1654: );
1655: x_return_status := OKL_API.G_RET_STS_ERROR;
1656: END IF;
1657:
1658: IF (p_import_request_stage <> 'NEW'
1659: AND
1657:
1658: IF (p_import_request_stage <> 'NEW'
1659: AND
1660: p_date_signed >= NVL(p_start_date,SYSDATE) ) THEN
1661: okl_api.set_message(
1662: G_APP_NAME,
1663: G_DATESIGNED_LT_START
1664: );
1665: x_return_status := OKL_API.G_RET_STS_ERROR;
1661: okl_api.set_message(
1662: G_APP_NAME,
1663: G_DATESIGNED_LT_START
1664: );
1665: x_return_status := OKL_API.G_RET_STS_ERROR;
1666: END IF;
1667:
1668: IF (p_import_request_stage = 'BOOKED'
1669: AND
1667:
1668: IF (p_import_request_stage = 'BOOKED'
1669: AND
1670: p_date_approved IS NULL) THEN
1671: okl_api.set_message(
1672: G_APP_NAME,
1673: G_MISSING_VALUE_FOR_STAGE,
1674: 'CONTRACT_NUM',
1675: p_contract_number,
1677: 'DATE_APPROVED',
1678: 'STAGE',
1679: p_import_request_stage
1680: );
1681: x_return_status := OKL_API.G_RET_STS_ERROR;
1682: END IF;
1683:
1684: IF (p_import_request_stage <> 'NEW'
1685: AND
1683:
1684: IF (p_import_request_stage <> 'NEW'
1685: AND
1686: p_term IS NULL ) THEN
1687: okl_api.set_message(
1688: G_APP_NAME,
1689: G_MISSING_VALUE_FOR_STAGE,
1690: 'CONTRACT_NUM',
1691: p_contract_number,
1693: 'TERM',
1694: 'STAGE',
1695: p_import_request_stage
1696: );
1697: x_return_status := OKL_API.G_RET_STS_ERROR;
1698: END IF;
1699:
1700: IF (p_authoring_org_id IS NULL) THEN
1701: okl_api.set_message(
1697: x_return_status := OKL_API.G_RET_STS_ERROR;
1698: END IF;
1699:
1700: IF (p_authoring_org_id IS NULL) THEN
1701: okl_api.set_message(
1702: G_APP_NAME,
1703: G_MISSING_VALUE,
1704: 'CONTRACT_NUM',
1705: p_contract_number,
1705: p_contract_number,
1706: 'COL_NAME',
1707: 'AUTHORING_ORG_ID'
1708: );
1709: x_return_status := OKL_API.G_RET_STS_ERROR;
1710:
1711: END IF;
1712:
1713: IF (p_inv_organization_id IS NULL) THEN
1710:
1711: END IF;
1712:
1713: IF (p_inv_organization_id IS NULL) THEN
1714: okl_api.set_message(
1715: G_APP_NAME,
1716: G_MISSING_VALUE,
1717: 'CONTRACT_NUM',
1718: p_contract_number,
1718: p_contract_number,
1719: 'COL_NAME',
1720: 'INV_ORGANIZATION_ID'
1721: );
1722: x_return_status := OKL_API.G_RET_STS_ERROR;
1723:
1724: END IF;
1725:
1726: IF (UPPER(p_import_request_stage) <> 'NEW'
1725:
1726: IF (UPPER(p_import_request_stage) <> 'NEW'
1727: AND
1728: p_expected_delivery_date IS NULL) THEN
1729: okl_api.set_message(
1730: G_APP_NAME,
1731: G_MISSING_VALUE_FOR_STAGE,
1732: 'CONTRACT_NUM',
1733: p_contract_number,
1735: 'EXPECTED_DELIVERY_DATE',
1736: 'STAGE',
1737: p_import_request_stage
1738: );
1739: x_return_status := OKL_API.G_RET_STS_ERROR;
1740: END IF;
1741:
1742:
1743: l_return_status := validate_currency_code(p_contract_number => p_contract_number,
1742:
1743: l_return_status := validate_currency_code(p_contract_number => p_contract_number,
1744: p_currency_code => p_currency_code);
1745:
1746: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1747: x_return_status := l_return_status;
1748: END IF;
1749:
1750: return x_return_status;
1780: l_proc_name VARCHAR2(35) := 'CHECK_FOR_RELEASE_ASSET';
1781: l_release_yn VARCHAR2(1) := 'N';
1782: BEGIN
1783:
1784: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1785: debug_message(l_proc_name);
1786:
1787: x_asset_id := NULL;
1788: l_release_yn := 'N';
1802: x_release_asset := l_release_yn;
1803:
1804: EXCEPTION
1805: WHEN OTHERS THEN
1806: okl_api.set_message(
1807: G_APP_NAME,
1808: G_UNEXPECTED_ERROR,
1809: 'OKL_SQLCODE',
1810: SQLCODE,
1810: SQLCODE,
1811: 'OKL_SQLERRM',
1812: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
1813: );
1814: x_return_status := OKL_API.G_RET_STS_ERROR;
1815:
1816: END check_for_release_asset;
1817: ------------------------------------------------------------------------------
1818: -- PROCEDURE get_release_asset_flag
1909: l_released_assets_not_exist_yn VARCHAR2(1) := 'N';
1910: l_release_yn VARCHAR2(1) ;
1911: BEGIN
1912:
1913: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1914: debug_message(l_proc_name);
1915:
1916: OPEN release_csr (p_contract_number,
1917: p_org_id);
1945: -- 4539003
1946: ELSIF ((l_released_assets_exist_yn = 'N') AND (l_released_assets_not_exist_yn = 'N')) THEN
1947: l_release_yn := 'N';
1948: ELSE
1949: okl_api.set_message(
1950: G_APP_NAME,
1951: G_MIXED_ASSET,
1952: 'CONTRACT_NUM',
1953: p_contract_number
1951: G_MIXED_ASSET,
1952: 'CONTRACT_NUM',
1953: p_contract_number
1954: );
1955: x_return_status := OKL_API.G_RET_STS_ERROR;
1956: END IF;
1957: debug_message ('l_release_yn : '|| l_release_yn);
1958: RETURN l_release_yn;
1959:
1964: END IF;
1965: IF ( unrelease_csr%ISOPEN ) THEN
1966: CLOSE unrelease_csr;
1967: END IF;
1968: okl_api.set_message(
1969: G_APP_NAME,
1970: G_UNEXPECTED_ERROR,
1971: 'OKL_SQLCODE',
1972: SQLCODE,
1972: SQLCODE,
1973: 'OKL_SQLERRM',
1974: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
1975: );
1976: x_return_status := OKL_API.G_RET_STS_ERROR;
1977:
1978: END get_release_asset_flag;
1979: ------------------------------------------------------------------------------
1980: -- PROCEDURE check_line_literal
1983: -- asset_corporate_book, asset_category_segments, asset_location_segments,
1984: -- depreciation_method, life_in_months, fee_code, price_list_name,
1985: -- counter_group_name, usage_bill_frequency_code, base_reading_uom_code
1986: -- columns and reports error, if any
1987: -- Returns OKL_API.G_RET_STS_ERROR for any Error
1988: -- OKL_API.G_RET_STS_SUCCESS
1989: -- Calls:
1990: -- check_stream_type_code
1991: -- Called By:
1984: -- depreciation_method, life_in_months, fee_code, price_list_name,
1985: -- counter_group_name, usage_bill_frequency_code, base_reading_uom_code
1986: -- columns and reports error, if any
1987: -- Returns OKL_API.G_RET_STS_ERROR for any Error
1988: -- OKL_API.G_RET_STS_SUCCESS
1989: -- Calls:
1990: -- check_stream_type_code
1991: -- Called By:
1992: -- check_input_record
2087:
2088: BEGIN
2089: debug_message(l_proc_name);
2090:
2091: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2092: debug_message('Line type: '||p_line_type);
2093:
2094: IF (p_line_type NOT IN ('ASSET','SERVICE', 'FEE', 'USAGE', 'ASSET_SUBSIDY', 'ASSET_ADDON' )) THEN
2095: okl_api.set_message(
2091: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2092: debug_message('Line type: '||p_line_type);
2093:
2094: IF (p_line_type NOT IN ('ASSET','SERVICE', 'FEE', 'USAGE', 'ASSET_SUBSIDY', 'ASSET_ADDON' )) THEN
2095: okl_api.set_message(
2096: G_APP_NAME,
2097: G_INVALID_VALUE,
2098: 'CONTRACT_NUM',
2099: p_contract_number||'/'||TO_CHAR(p_line_number),
2102: 'COL_VALUE',
2103: p_line_type
2104: );
2105:
2106: x_return_status := OKL_API.G_RET_STS_ERROR;
2107: RAISE halt_validation; -- major error, don't proceed with other validation
2108: END IF;
2109:
2110: IF (p_line_type = 'ASSET'
2109:
2110: IF (p_line_type = 'ASSET'
2111: AND
2112: p_asset_number IS NULL) THEN
2113: okl_api.set_message(
2114: G_APP_NAME,
2115: G_MISSING_VALUE_FOR_LINE,
2116: 'CONTRACT_NUM',
2117: p_contract_number||'/'||TO_CHAR(p_line_number),
2120: 'LINE',
2121: p_line_type
2122: );
2123:
2124: x_return_status := OKL_API.G_RET_STS_ERROR;
2125: END IF;
2126: /* 4414408
2127: check_for_release_asset(
2128: x_return_status => l_return_status,
2134: x_release_asset => x_release_asset,
2135: x_asset_id => x_asset_id
2136: );
2137:
2138: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2139: x_return_status := OKL_API.G_RET_STS_ERROR;
2140: END IF;
2141:
2142: debug_message('------> Asset '||p_asset_number||': Released? :'||x_release_asset);
2135: x_asset_id => x_asset_id
2136: );
2137:
2138: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2139: x_return_status := OKL_API.G_RET_STS_ERROR;
2140: END IF;
2141:
2142: debug_message('------> Asset '||p_asset_number||': Released? :'||x_release_asset);
2143:
2147: AND
2148: p_tax_book IS NOT NULL
2149: AND
2150: p_asset_corporate_book IS NULL) THEN
2151: okl_api.set_message(
2152: G_APP_NAME,
2153: G_MISSING_VALUE_FOR_LINE,
2154: 'CONTRACT_NUM',
2155: p_contract_number||'/'||TO_CHAR(p_line_number),
2157: 'CORPORATE BOOK',
2158: 'LINE',
2159: p_line_type
2160: );
2161: x_return_status := OKL_API.G_RET_STS_ERROR;
2162:
2163: END IF;
2164: */
2165: IF (p_line_type = 'USAGE'
2166: AND
2167: p_asset_number IS NULL
2168: AND
2169: p_import_request_stage <> 'NEW') THEN
2170: okl_api.set_message(
2171: G_APP_NAME,
2172: G_MISSING_VALUE_STAGE_LINE,
2173: 'CONTRACT_NUM',
2174: p_contract_number||'/'||TO_CHAR(p_line_number),
2179: 'LINE',
2180: p_line_type
2181: );
2182:
2183: x_return_status := OKL_API.G_RET_STS_ERROR;
2184: END IF;
2185:
2186: IF (p_line_type IN ('SERVICE', 'FEE')
2187: AND
2185:
2186: IF (p_line_type IN ('SERVICE', 'FEE')
2187: AND
2188: p_amount IS NULL) THEN
2189: okl_api.set_message(
2190: G_APP_NAME,
2191: G_MISSING_VALUE_FOR_LINE,
2192: 'CONTRACT_NUM',
2193: p_contract_number||'/'||TO_CHAR(p_line_number),
2196: 'LINE',
2197: p_line_type
2198: );
2199:
2200: x_return_status := OKL_API.G_RET_STS_ERROR;
2201: END IF;
2202:
2203: /* 4414408
2204: IF (p_line_type = 'ASSET'
2207: AND
2208: p_inventory_item_name IS NULL
2209: AND
2210: p_inventory_item_id IS NULL) THEN
2211: okl_api.set_message(
2212: G_APP_NAME,
2213: G_MISSING_VALUE_FOR_LINE,
2214: 'CONTRACT_NUM',
2215: p_contract_number||'/'||TO_CHAR(p_line_number),
2218: 'LINE',
2219: p_line_type
2220: );
2221:
2222: x_return_status := OKL_API.G_RET_STS_ERROR;
2223: END IF;
2224: */
2225: IF (p_line_type IN ('SERVICE','USAGE')
2226: AND
2226: AND
2227: p_inventory_item_name IS NULL
2228: AND
2229: p_inventory_item_id IS NULL) THEN
2230: okl_api.set_message(
2231: G_APP_NAME,
2232: G_MISSING_VALUE_FOR_LINE,
2233: 'CONTRACT_NUM',
2234: p_contract_number||'/'||TO_CHAR(p_line_number),
2237: 'LINE',
2238: p_line_type
2239: );
2240:
2241: x_return_status := OKL_API.G_RET_STS_ERROR;
2242: END IF;
2243:
2244: /* 4414408
2245: IF (p_line_type = 'ASSET'
2248: AND
2249: p_install_site_number IS NULL
2250: AND
2251: p_install_site_id IS NULL) THEN
2252: okl_api.set_message(
2253: G_APP_NAME,
2254: G_MISSING_VALUE_FOR_LINE,
2255: 'CONTRACT_NUM',
2256: p_contract_number||'/'||TO_CHAR(p_line_number),
2259: 'LINE',
2260: p_line_type
2261: );
2262:
2263: x_return_status := OKL_API.G_RET_STS_ERROR;
2264: END IF;
2265: */
2266: IF (p_line_type = 'FEE') THEN
2267:
2265: */
2266: IF (p_line_type = 'FEE') THEN
2267:
2268: IF (p_fee_code IS NULL) THEN
2269: okl_api.set_message(
2270: G_APP_NAME,
2271: G_MISSING_VALUE_FOR_LINE,
2272: 'CONTRACT_NUM',
2273: p_contract_number||'/'||TO_CHAR(p_line_number),
2276: 'LINE',
2277: p_line_type
2278: );
2279:
2280: x_return_status := OKL_API.G_RET_STS_ERROR;
2281:
2282: ELSE
2283:
2284: check_stream_type_code(
2289: p_stream_purpose => p_stream_purpose,
2290: x_id1 => x_id1,
2291: x_name => l_fee_name
2292: );
2293: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2294: okl_api.set_message(
2295: G_APP_NAME,
2296: G_INVALID_VALUE,
2297: 'CONTRACT_NUM',
2290: x_id1 => x_id1,
2291: x_name => l_fee_name
2292: );
2293: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2294: okl_api.set_message(
2295: G_APP_NAME,
2296: G_INVALID_VALUE,
2297: 'CONTRACT_NUM',
2298: p_contract_number||'/'||TO_CHAR(p_line_number),
2300: 'FEE_CODE, STREAM_PURPOSE_CODE',
2301: 'COL_VALUE',
2302: p_fee_code||', '||p_stream_purpose
2303: );
2304: x_return_status := OKL_API.G_RET_STS_ERROR;
2305: END IF;
2306: END IF; --fee_code not null
2307:
2308: IF (p_fee_type IS NULL) THEN
2305: END IF;
2306: END IF; --fee_code not null
2307:
2308: IF (p_fee_type IS NULL) THEN
2309: okl_api.set_message(
2310: G_APP_NAME,
2311: G_MISSING_VALUE_FOR_LINE,
2312: 'CONTRACT_NUM',
2313: p_contract_number||'/'||TO_CHAR(p_line_number),
2316: 'LINE',
2317: p_line_type
2318: );
2319:
2320: x_return_status := OKL_API.G_RET_STS_ERROR;
2321:
2322: END IF; --Fee Type
2323:
2324: IF (p_fee_type = 'ROLLOVER'
2327: AND
2328: p_term_quote_number IS NULL)
2329: ) THEN
2330:
2331: okl_api.set_message(
2332: G_APP_NAME,
2333: G_MISSING_VALUE_FOR_LINE,
2334: 'CONTRACT_NUM',
2335: p_contract_number||'/'||p_line_number,
2337: 'TERMINATION_QUOTE_ID OR TERMINATION_QUOTE_NUMBER',
2338: 'LINE',
2339: p_line_type
2340: );
2341: x_return_status := OKL_API.G_RET_STS_ERROR;
2342: END IF;
2343:
2344: IF (p_fee_purpose_code is NOT NULL) THEN
2345: OPEN fnd_lookup_csr (p_fee_purpose_code, 'OKL_FEE_PURPOSE');
2344: IF (p_fee_purpose_code is NOT NULL) THEN
2345: OPEN fnd_lookup_csr (p_fee_purpose_code, 'OKL_FEE_PURPOSE');
2346: FETCH fnd_lookup_csr INTO l_exists_yn;
2347: IF (fnd_lookup_csr%NOTFOUND) THEN
2348: okl_api.set_message(
2349: G_APP_NAME,
2350: G_INVALID_VALUE,
2351: 'CONTRACT_NUM',
2352: p_contract_number||'/'||TO_CHAR(p_line_number),
2354: 'FEE_PURPOSE_CODE',
2355: 'COL_VALUE',
2356: p_fee_purpose_code
2357: );
2358: x_return_status := OKL_API.G_RET_STS_ERROR;
2359: END IF;
2360: CLOSE fnd_lookup_csr;
2361: END IF;
2362:
2366: AND
2367: p_price_list_name IS NULL
2368: AND
2369: p_price_list_id IS NULL) THEN
2370: okl_api.set_message(
2371: G_APP_NAME,
2372: G_MISSING_VALUE_FOR_LINE,
2373: 'CONTRACT_NUM',
2374: p_contract_number||'/'||TO_CHAR(p_line_number),
2377: 'LINE',
2378: p_line_type
2379: );
2380:
2381: x_return_status := OKL_API.G_RET_STS_ERROR;
2382: END IF;
2383:
2384: IF (p_line_type = 'USAGE'
2385: AND
2383:
2384: IF (p_line_type = 'USAGE'
2385: AND
2386: p_base_reading_uom_code IS NULL) THEN
2387: okl_api.set_message(
2388: G_APP_NAME,
2389: G_MISSING_VALUE_FOR_LINE,
2390: 'CONTRACT_NUM',
2391: p_contract_number||'/'||TO_CHAR(p_line_number),
2394: 'LINE',
2395: p_line_type
2396: );
2397:
2398: x_return_status := OKL_API.G_RET_STS_ERROR;
2399: END IF;
2400:
2401: IF (p_line_type = 'USAGE'
2402: AND
2400:
2401: IF (p_line_type = 'USAGE'
2402: AND
2403: p_usage_type_code IS NULL) THEN
2404: okl_api.set_message(
2405: G_APP_NAME,
2406: G_MISSING_VALUE_FOR_LINE,
2407: 'CONTRACT_NUM',
2408: p_contract_number||'/'||TO_CHAR(p_line_number),
2411: 'LINE',
2412: p_line_type
2413: );
2414:
2415: x_return_status := OKL_API.G_RET_STS_ERROR;
2416: END IF;
2417:
2418: IF (p_line_type = 'USAGE'
2419: AND
2417:
2418: IF (p_line_type = 'USAGE'
2419: AND
2420: p_usage_period IS NULL) THEN
2421: okl_api.set_message(
2422: G_APP_NAME,
2423: G_MISSING_VALUE_FOR_LINE,
2424: 'CONTRACT_NUM',
2425: p_contract_number||'/'||TO_CHAR(p_line_number),
2428: 'LINE',
2429: p_line_type
2430: );
2431:
2432: x_return_status := OKL_API.G_RET_STS_ERROR;
2433: END IF;
2434:
2435: IF (p_line_type = 'USAGE'
2436: AND
2434:
2435: IF (p_line_type = 'USAGE'
2436: AND
2437: p_usage_no_of_period IS NULL) THEN
2438: okl_api.set_message(
2439: G_APP_NAME,
2440: G_MISSING_VALUE_FOR_LINE,
2441: 'CONTRACT_NUM',
2442: p_contract_number||'/'||TO_CHAR(p_line_number),
2445: 'LINE',
2446: p_line_type
2447: );
2448:
2449: x_return_status := OKL_API.G_RET_STS_ERROR;
2450: END IF;
2451:
2452: IF (p_line_type = 'SERVICE') THEN
2453: --
2456: --
2457: IF (p_link_asset_amount IS NULL
2458: AND
2459: p_asset_number IS NOT NULL) THEN
2460: okl_api.set_message(
2461: G_APP_NAME,
2462: G_MISSING_VALUE_FOR_LINE,
2463: 'CONTRACT_NUM',
2464: p_contract_number||'/'||TO_CHAR(p_line_number),
2466: 'LINK ASSET AMOUNT',
2467: 'LINE',
2468: p_line_type
2469: );
2470: x_return_status := OKL_API.G_RET_STS_ERROR;
2471: END IF;
2472:
2473: /* 4475344
2474: l_supp_name := NULL;
2481:
2482: IF (l_supp_name IS NULL
2483: AND
2484: l_supp_id IS NULL) THEN
2485: okl_api.set_message(
2486: G_APP_NAME,
2487: G_MISSING_VALUE_FOR_LINE,
2488: 'CONTRACT_NUM',
2489: p_contract_number||'/'||TO_CHAR(p_line_number),
2492: 'LINE',
2493: p_line_type
2494: );
2495:
2496: x_return_status := OKL_API.G_RET_STS_ERROR;
2497: END IF;
2498: */
2499: END IF; -- SERVICE line
2500:
2503: return;
2504:
2505: EXCEPTION
2506: WHEN halt_validation THEN
2507: x_return_status := OKL_API.G_RET_STS_ERROR;
2508:
2509: END check_line_literal;
2510:
2511: ------------------------------------------------------------------------------
2510:
2511: ------------------------------------------------------------------------------
2512: -- FUNCTION validate_customer
2513: -- It validates customer against database, OKX_PARTIES_V
2514: -- Returns OKL_API.G_RET_STS_ERROR for unknown customer
2515: -- OKL_API.G_RET_STS_SUCCESS for existing customer
2516: -- Also outputs ID1 for corresponding Customer
2517: -- Calls:
2518: -- None
2511: ------------------------------------------------------------------------------
2512: -- FUNCTION validate_customer
2513: -- It validates customer against database, OKX_PARTIES_V
2514: -- Returns OKL_API.G_RET_STS_ERROR for unknown customer
2515: -- OKL_API.G_RET_STS_SUCCESS for existing customer
2516: -- Also outputs ID1 for corresponding Customer
2517: -- Calls:
2518: -- None
2519: -- Called By:
2545: FETCH customer_csr into x_id1;
2546: CLOSE customer_csr;
2547:
2548: IF (x_id1 IS NULL) THEN
2549: okl_api.set_message(
2550: G_APP_NAME,
2551: G_INVALID_VALUE,
2552: 'CONTRACT_NUM',
2553: p_contract_number,
2555: 'CUSTOMER_ID, NUMBER',
2556: 'COL_VALUE',
2557: p_customer_id||', '||p_customer_number
2558: );
2559: return OKL_API.G_RET_STS_ERROR; -- Customer Not found
2560: ELSE
2561: return OKL_API.G_RET_STS_SUCCESS;
2562: END IF;
2563:
2557: p_customer_id||', '||p_customer_number
2558: );
2559: return OKL_API.G_RET_STS_ERROR; -- Customer Not found
2560: ELSE
2561: return OKL_API.G_RET_STS_SUCCESS;
2562: END IF;
2563:
2564: END validate_customer;
2565:
2565:
2566: ------------------------------------------------------------------------------
2567: -- FUNCTION check_contract_number
2568: -- It checks for duplicate contract number in OKL.
2569: -- Returns OKL_API.G_RET_STS_ERROR for duplicate and
2570: -- OKL_API.G_RET_STS_SUCCESS for New
2571: -- Calls:
2572: -- None
2573: -- Called By:
2566: ------------------------------------------------------------------------------
2567: -- FUNCTION check_contract_number
2568: -- It checks for duplicate contract number in OKL.
2569: -- Returns OKL_API.G_RET_STS_ERROR for duplicate and
2570: -- OKL_API.G_RET_STS_SUCCESS for New
2571: -- Calls:
2572: -- None
2573: -- Called By:
2574: -- check_input_record
2581: SELECT contract_number
2582: FROM okc_k_headers_v
2583: WHERE contract_number = p_contract_number;
2584:
2585: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
2586: l_contract_number OKC_K_HEADERS_V.CONTRACT_NUMBER%TYPE;
2587:
2588: BEGIN
2589:
2589:
2590: OPEN khdr_csr(p_contract_number);
2591: FETCH khdr_csr INTO l_contract_number;
2592: IF khdr_csr%NOTFOUND THEN
2593: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2594: ELSE
2595: x_return_status := OKL_API.G_RET_STS_ERROR;
2596: END IF;
2597: CLOSE khdr_csr;
2591: FETCH khdr_csr INTO l_contract_number;
2592: IF khdr_csr%NOTFOUND THEN
2593: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2594: ELSE
2595: x_return_status := OKL_API.G_RET_STS_ERROR;
2596: END IF;
2597: CLOSE khdr_csr;
2598:
2599: IF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2595: x_return_status := OKL_API.G_RET_STS_ERROR;
2596: END IF;
2597: CLOSE khdr_csr;
2598:
2599: IF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2600: okl_api.set_message(
2601: G_APP_NAME,
2602: G_DUP_VALUE,
2603: 'COL_NAME',
2596: END IF;
2597: CLOSE khdr_csr;
2598:
2599: IF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2600: okl_api.set_message(
2601: G_APP_NAME,
2602: G_DUP_VALUE,
2603: 'COL_NAME',
2604: 'CONTRACT_NUMBER_OLD',
2650: l_uom_code okx_tuom_v.uom_code%TYPE;
2651:
2652: BEGIN
2653:
2654: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2655: OPEN freq_csr(p_payment_freq_code);
2656: FETCH freq_csr INTO l_id1,
2657: l_uom_code;
2658: IF freq_csr%NOTFOUND THEN
2655: OPEN freq_csr(p_payment_freq_code);
2656: FETCH freq_csr INTO l_id1,
2657: l_uom_code;
2658: IF freq_csr%NOTFOUND THEN
2659: x_return_status := OKL_API.G_RET_STS_ERROR;
2660: END IF;
2661:
2662: x_id1 := l_id1;
2663: x_uom_code := l_uom_code;
2690:
2691: l_dummy VARCHAR2(1);
2692: BEGIN
2693:
2694: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2695:
2696: OPEN line_csr (p_contract_number,
2697: p_line_number);
2698: FETCH line_csr INTO l_dummy;
2696: OPEN line_csr (p_contract_number,
2697: p_line_number);
2698: FETCH line_csr INTO l_dummy;
2699: IF line_csr%NOTFOUND THEN
2700: x_return_status := OKL_API.G_RET_STS_ERROR;
2701: END IF;
2702: CLOSE line_csr;
2703:
2704: return;
2751: /*
2752: IF (p_asset_number IS NULL
2753: AND
2754: p_line_number IS NOT NULL) THEN
2755: okl_api.set_message(
2756: G_APP_NAME,
2757: G_MISSING_VALUE,
2758: 'CONTRACT_NUM',
2759: p_contract_number_old||'/'||p_line_number,
2759: p_contract_number_old||'/'||p_line_number,
2760: 'COL_NAME',
2761: 'ASSET_NUMBER'
2762: );
2763: x_return_status := OKL_API.G_RET_STS_ERROR;
2764: END IF;
2765: */
2766:
2767: IF (p_payment_type_code IS NULL) THEN
2765: */
2766:
2767: IF (p_payment_type_code IS NULL) THEN
2768:
2769: okl_api.set_message(
2770: G_APP_NAME,
2771: G_MISSING_VALUE,
2772: 'CONTRACT_NUM',
2773: p_contract_number_old||'/'||p_line_number,
2773: p_contract_number_old||'/'||p_line_number,
2774: 'COL_NAME',
2775: 'PAYMENT_TYPE_CODE'
2776: );
2777: x_return_status := OKL_API.G_RET_STS_ERROR;
2778: ELSE
2779:
2780: check_stream_type_code(
2781: x_return_status => l_return_status,
2786: x_id1 => x_id2,
2787: x_name => l_payment_name
2788: );
2789:
2790: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2791: okl_api.set_message(
2792: G_APP_NAME,
2793: G_INVALID_VALUE,
2794: 'CONTRACT_NUM',
2787: x_name => l_payment_name
2788: );
2789:
2790: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2791: okl_api.set_message(
2792: G_APP_NAME,
2793: G_INVALID_VALUE,
2794: 'CONTRACT_NUM',
2795: p_contract_number_old||'/'||p_line_number,
2797: 'PAYMENT_TYPE_CODE, STREAM_PURPOSE_CODE',
2798: 'COL_VALUE',
2799: p_payment_type_code||', '||p_stream_purpose
2800: );
2801: x_return_status := OKL_API.G_RET_STS_ERROR;
2802: END IF;
2803: END IF;
2804:
2805: /*
2805: /*
2806: IF (p_payment_amount IS NULL
2807: AND
2808: p_rate IS NULL) THEN
2809: okl_api.set_message(
2810: G_APP_NAME,
2811: G_MISSING_VALUE,
2812: 'CONTRACT_NUM',
2813: p_contract_number_old||'/'||p_line_number,
2813: p_contract_number_old||'/'||p_line_number,
2814: 'COL_NAME',
2815: 'PAYMENT_AMOUNT or RATE'
2816: );
2817: x_return_status := OKL_API.G_RET_STS_ERROR;
2818: END IF;
2819: */
2820:
2821: IF (p_payment_frequency_code IS NULL) THEN
2819: */
2820:
2821: IF (p_payment_frequency_code IS NULL) THEN
2822:
2823: okl_api.set_message(
2824: G_APP_NAME,
2825: G_MISSING_VALUE,
2826: 'CONTRACT_NUM',
2827: p_contract_number_old||'/'||p_line_number,
2827: p_contract_number_old||'/'||p_line_number,
2828: 'COL_NAME',
2829: 'PAYMENT_FREQUENCY_CODE'
2830: );
2831: x_return_status := OKL_API.G_RET_STS_ERROR;
2832: ELSE
2833: check_payment_frequency_code(
2834: x_return_status => l_return_status,
2835: x_msg_count => x_msg_count,
2837: p_payment_freq_code => p_payment_frequency_code,
2838: x_id1 => x_id1,
2839: x_uom_code => x_uom_code
2840: );
2841: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2842: okl_api.set_message(
2843: G_APP_NAME,
2844: G_INVALID_VALUE,
2845: 'CONTRACT_NUM',
2838: x_id1 => x_id1,
2839: x_uom_code => x_uom_code
2840: );
2841: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2842: okl_api.set_message(
2843: G_APP_NAME,
2844: G_INVALID_VALUE,
2845: 'CONTRACT_NUM',
2846: p_contract_number_old||'/'||p_line_number,
2848: 'PAYMENT_FREQUENCY_CODE',
2849: 'COL_VALUE',
2850: p_payment_frequency_code
2851: );
2852: x_return_status := OKL_API.G_RET_STS_ERROR;
2853: END IF;
2854: END IF;
2855:
2856: IF (p_advance_payments IS NULL) THEN
2853: END IF;
2854: END IF;
2855:
2856: IF (p_advance_payments IS NULL) THEN
2857: okl_api.set_message(
2858: G_APP_NAME,
2859: G_MISSING_VALUE,
2860: 'CONTRACT_NUM',
2861: p_contract_number_old||'/'||p_line_number,
2861: p_contract_number_old||'/'||p_line_number,
2862: 'COL_NAME',
2863: 'ADVANCE_PAYMENTS'
2864: );
2865: x_return_status := OKL_API.G_RET_STS_ERROR;
2866: END IF;
2867:
2868: IF (p_arrears_flag <> 'Y'
2869: AND
2868: IF (p_arrears_flag <> 'Y'
2869: AND
2870: p_arrears_flag <> 'N') THEN
2871:
2872: okl_api.set_message(
2873: G_APP_NAME,
2874: G_INVALID_VALUE,
2875: 'CONTRACT_NUM',
2876: p_contract_number_old||'/'||p_line_number,
2878: 'ARREARS_FLAG',
2879: 'COL_VALUE',
2880: p_arrears_flag
2881: );
2882: x_return_status := OKL_API.G_RET_STS_ERROR;
2883: END IF;
2884:
2885: /*
2886: IF (p_start_date IS NULL) THEN
2883: END IF;
2884:
2885: /*
2886: IF (p_start_date IS NULL) THEN
2887: okl_api.set_message(
2888: G_APP_NAME,
2889: G_MISSING_VALUE,
2890: 'CONTRACT_NUM',
2891: p_contract_number_old||'/'||p_line_number,
2891: p_contract_number_old||'/'||p_line_number,
2892: 'COL_NAME',
2893: 'START_DATE'
2894: );
2895: x_return_status := OKL_API.G_RET_STS_ERROR;
2896: END IF;
2897: */
2898:
2899: IF (p_stub_days IS NOT NULL
2903: p_number_of_periods IS NOT NULL
2904: AND
2905: p_payment_amount IS NOT NULL
2906: ) THEN
2907: okl_api.set_message(
2908: G_APP_NAME,
2909: G_STUB_PMNT_BOTH,
2910: 'CONTRACT_NUM',
2911: p_contract_number_old||'/'||p_line_number
2909: G_STUB_PMNT_BOTH,
2910: 'CONTRACT_NUM',
2911: p_contract_number_old||'/'||p_line_number
2912: );
2913: x_return_status := OKL_API.G_RET_STS_ERROR;
2914: ELSIF (p_stub_days IS NULL AND p_stub_amount IS NOT NULL) THEN
2915: okl_api.set_message(
2916: G_APP_NAME,
2917: G_MISSING_VALUE,
2911: p_contract_number_old||'/'||p_line_number
2912: );
2913: x_return_status := OKL_API.G_RET_STS_ERROR;
2914: ELSIF (p_stub_days IS NULL AND p_stub_amount IS NOT NULL) THEN
2915: okl_api.set_message(
2916: G_APP_NAME,
2917: G_MISSING_VALUE,
2918: 'CONTRACT_NUM',
2919: p_contract_number_old||'/'||p_line_number,
2919: p_contract_number_old||'/'||p_line_number,
2920: 'COL_NAME',
2921: 'STUB_DAYS'
2922: );
2923: x_return_status := OKL_API.G_RET_STS_ERROR;
2924: ELSIF (p_stub_days IS NOT NULL AND p_stub_amount IS NULL) THEN
2925: okl_api.set_message(
2926: G_APP_NAME,
2927: G_MISSING_VALUE,
2921: 'STUB_DAYS'
2922: );
2923: x_return_status := OKL_API.G_RET_STS_ERROR;
2924: ELSIF (p_stub_days IS NOT NULL AND p_stub_amount IS NULL) THEN
2925: okl_api.set_message(
2926: G_APP_NAME,
2927: G_MISSING_VALUE,
2928: 'CONTRACT_NUM',
2929: p_contract_number_old||'/'||p_line_number,
2929: p_contract_number_old||'/'||p_line_number,
2930: 'COL_NAME',
2931: 'STUB_AMOUNT'
2932: );
2933: x_return_status := OKL_API.G_RET_STS_ERROR;
2934: ELSIF (p_number_of_periods IS NOT NULL AND p_payment_amount IS NULL) THEN
2935: okl_api.set_message(
2936: G_APP_NAME,
2937: G_MISSING_VALUE,
2931: 'STUB_AMOUNT'
2932: );
2933: x_return_status := OKL_API.G_RET_STS_ERROR;
2934: ELSIF (p_number_of_periods IS NOT NULL AND p_payment_amount IS NULL) THEN
2935: okl_api.set_message(
2936: G_APP_NAME,
2937: G_MISSING_VALUE,
2938: 'CONTRACT_NUM',
2939: p_contract_number_old||'/'||p_line_number,
2939: p_contract_number_old||'/'||p_line_number,
2940: 'COL_NAME',
2941: 'PAYMENT_AMOUNT'
2942: );
2943: x_return_status := OKL_API.G_RET_STS_ERROR;
2944: ELSIF (p_number_of_periods IS NULL AND p_payment_amount IS NOT NULL) THEN
2945: okl_api.set_message(
2946: G_APP_NAME,
2947: G_MISSING_VALUE,
2941: 'PAYMENT_AMOUNT'
2942: );
2943: x_return_status := OKL_API.G_RET_STS_ERROR;
2944: ELSIF (p_number_of_periods IS NULL AND p_payment_amount IS NOT NULL) THEN
2945: okl_api.set_message(
2946: G_APP_NAME,
2947: G_MISSING_VALUE,
2948: 'CONTRACT_NUM',
2949: p_contract_number_old||'/'||p_line_number,
2949: p_contract_number_old||'/'||p_line_number,
2950: 'COL_NAME',
2951: 'NUMBER_OF_PERIODS'
2952: );
2953: x_return_status := OKL_API.G_RET_STS_ERROR;
2954: END IF;
2955:
2956: RETURN;
2957:
2957:
2958: EXCEPTION
2959:
2960: WHEN payment_failed THEN
2961: x_return_status := OKL_API.G_RET_STS_ERROR;
2962:
2963: END check_payment_record;
2964:
2965: ------------------------------------------------------------------------------
2990: l_found VARCHAR2(1) := 'N';
2991: freq_failed EXCEPTION;
2992: BEGIN
2993:
2994: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2995:
2996: l_found := 'N';
2997: OPEN freq_csr (p_freq);
2998: FETCH freq_csr INTO l_found;
2998: FETCH freq_csr INTO l_found;
2999: CLOSE freq_csr;
3000:
3001: IF (l_found <> 'Y') THEN
3002: okl_api.set_message(
3003: G_APP_NAME,
3004: G_INVALID_VALUE,
3005: 'CONTRACT_NUM',
3006: p_contract_number||','||p_line_number,
3015: RETURN;
3016:
3017: EXCEPTION
3018: WHEN freq_failed THEN
3019: x_return_status := OKL_API.G_RET_STS_ERROR;
3020: END validate_usage_freq;
3021:
3022: ------------------------------------------------------------------------------
3023: -- PROCEDURE Check_Input_Record
3133: -- DO NOT CALL THIS PROCEDURE FOR IMPORT
3134: --
3135:
3136: l_proc_name := 'CHECK_INPUT_RECORD';
3137: x_return_status := OKL_API.G_RET_STS_SUCCESS; -- individual validaiton status
3138: l_record_status := OKL_API.G_RET_STS_SUCCESS; -- record level status
3139: l_batch_status := OKL_API.G_RET_STS_SUCCESS; -- batch level status
3140:
3141: okl_api.init_msg_list(p_init_msg_list => OKL_API.G_TRUE);
3134: --
3135:
3136: l_proc_name := 'CHECK_INPUT_RECORD';
3137: x_return_status := OKL_API.G_RET_STS_SUCCESS; -- individual validaiton status
3138: l_record_status := OKL_API.G_RET_STS_SUCCESS; -- record level status
3139: l_batch_status := OKL_API.G_RET_STS_SUCCESS; -- batch level status
3140:
3141: okl_api.init_msg_list(p_init_msg_list => OKL_API.G_TRUE);
3142: l_progress := '000';
3135:
3136: l_proc_name := 'CHECK_INPUT_RECORD';
3137: x_return_status := OKL_API.G_RET_STS_SUCCESS; -- individual validaiton status
3138: l_record_status := OKL_API.G_RET_STS_SUCCESS; -- record level status
3139: l_batch_status := OKL_API.G_RET_STS_SUCCESS; -- batch level status
3140:
3141: okl_api.init_msg_list(p_init_msg_list => OKL_API.G_TRUE);
3142: l_progress := '000';
3143:
3137: x_return_status := OKL_API.G_RET_STS_SUCCESS; -- individual validaiton status
3138: l_record_status := OKL_API.G_RET_STS_SUCCESS; -- record level status
3139: l_batch_status := OKL_API.G_RET_STS_SUCCESS; -- batch level status
3140:
3141: okl_api.init_msg_list(p_init_msg_list => OKL_API.G_TRUE);
3142: l_progress := '000';
3143:
3144: FOR okl_header_rec IN okl_header_csr (p_batch_number,
3145: p_start_date_from,
3156:
3157: x_total_checked := nvl(x_total_checked,0) + 1;
3158:
3159: l_progress := '010';
3160: l_record_status := OKL_API.G_RET_STS_SUCCESS;
3161:
3162:
3163: l_contract_number_old := okl_header_rec.contract_number_old;
3164:
3163: l_contract_number_old := okl_header_rec.contract_number_old;
3164:
3165: -- Validate CONTRACT_NUMBER_OLD
3166: IF ( okl_header_rec.contract_number_old IS NULL) THEN
3167: okl_api.set_message(
3168: G_APP_NAME,
3169: G_NULL_CONTRACT
3170: );
3171:
3172:
3173: raise header_validation_failed; -- Unable to continue further
3174:
3175: /* not required, bug 3798008
3176: * ELSIF ( check_contract_number (l_contract_number_old) = OKL_API.G_RET_STS_ERROR ) THEN
3177: *
3178: * raise header_validation_failed; -- Unable to continue further
3179: *
3180: */
3193: x_msg_data => x_msg_data,
3194: p_template_number => okl_header_rec.template_number
3195: );
3196:
3197: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3198: RAISE header_validation_failed;
3199: END IF;
3200:
3201: END IF;
3233: p_currency_code => NVL(okl_header_rec.currency_code,
3234: l_header_template.currency_code)
3235: );
3236:
3237: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3238: l_record_status := OKL_API.G_RET_STS_ERROR;
3239: END IF;
3240:
3241: l_progress := '030';
3234: l_header_template.currency_code)
3235: );
3236:
3237: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3238: l_record_status := OKL_API.G_RET_STS_ERROR;
3239: END IF;
3240:
3241: l_progress := '030';
3242:
3245: p_customer_id => okl_header_rec.customer_id,
3246: p_customer_number => okl_header_rec.customer_number,
3247: x_id1 => l_customer_id);
3248:
3249: IF (x_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
3250: okl_header_rec.customer_id := l_customer_id;
3251: END IF;
3252:
3253: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3249: IF (x_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
3250: okl_header_rec.customer_id := l_customer_id;
3251: END IF;
3252:
3253: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3254: l_record_status := OKL_API.G_RET_STS_ERROR;
3255: END IF;
3256:
3257: l_progress := '040';
3250: okl_header_rec.customer_id := l_customer_id;
3251: END IF;
3252:
3253: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3254: l_record_status := OKL_API.G_RET_STS_ERROR;
3255: END IF;
3256:
3257: l_progress := '040';
3258:
3263:
3264: l_progress := '050';
3265: -- Call Line Cursor to get Line detail
3266:
3267: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3268: l_record_status := OKL_API.G_RET_STS_ERROR;
3269: END IF;
3270:
3271:
3264: l_progress := '050';
3265: -- Call Line Cursor to get Line detail
3266:
3267: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3268: l_record_status := OKL_API.G_RET_STS_ERROR;
3269: END IF;
3270:
3271:
3272: FOR okl_line_rec IN okl_line_csr (okl_header_rec.contract_number_old)
3278: l_progress := '080';
3279:
3280: -- Validate Line Number
3281: IF (okl_line_rec.line_number IS NULL) THEN
3282: okl_api.set_message(
3283: G_APP_NAME,
3284: G_MISSING_VALUE,
3285: 'CONTRACT_NUM',
3286: okl_header_rec.contract_number_old,
3287: 'COL_NAME',
3288: 'CONTRACT_LINE_NUMBER'
3289: );
3290:
3291: x_return_status := OKL_API.G_RET_STS_ERROR;
3292:
3293: raise line_validation_failed; -- unable to continue with line validation, proceed with next line
3294:
3295: END IF;
3357: p_fee_purpose_code => okl_line_rec.fee_purpose_code
3358: );
3359:
3360:
3361: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3362: l_record_status := OKL_API.G_RET_STS_ERROR;
3363: END IF;
3364:
3365: EXCEPTION
3358: );
3359:
3360:
3361: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3362: l_record_status := OKL_API.G_RET_STS_ERROR;
3363: END IF;
3364:
3365: EXCEPTION
3366:
3364:
3365: EXCEPTION
3366:
3367: WHEN line_validation_failed THEN
3368: x_return_status := OKL_API.G_RET_STS_ERROR;
3369:
3370: END; -- of line begin
3371:
3372: END LOOP; -- okl_line_csr
3383: p_contract_number => okl_party_role_rec.contract_number_old,
3384: p_line_number => okl_party_role_rec.line_number
3385: );
3386:
3387: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3388: okl_api.set_message(
3389: G_APP_NAME,
3390: G_PARTY_ROLE_LINE_ERROR,
3391: 'CONTRACT_NUM',
3384: p_line_number => okl_party_role_rec.line_number
3385: );
3386:
3387: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3388: okl_api.set_message(
3389: G_APP_NAME,
3390: G_PARTY_ROLE_LINE_ERROR,
3391: 'CONTRACT_NUM',
3392: okl_party_role_rec.contract_number_old||'/'||okl_party_role_rec.line_number
3390: G_PARTY_ROLE_LINE_ERROR,
3391: 'CONTRACT_NUM',
3392: okl_party_role_rec.contract_number_old||'/'||okl_party_role_rec.line_number
3393: );
3394: x_return_status := OKL_API.G_RET_STS_ERROR;
3395: END IF;
3396:
3397: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3398: l_record_status := OKL_API.G_RET_STS_ERROR;
3393: );
3394: x_return_status := OKL_API.G_RET_STS_ERROR;
3395: END IF;
3396:
3397: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3398: l_record_status := OKL_API.G_RET_STS_ERROR;
3399: END IF;
3400: END IF;
3401: END;
3394: x_return_status := OKL_API.G_RET_STS_ERROR;
3395: END IF;
3396:
3397: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3398: l_record_status := OKL_API.G_RET_STS_ERROR;
3399: END IF;
3400: END IF;
3401: END;
3402:
3408:
3409: FOR okl_term_rec IN okl_term_csr (okl_header_rec.contract_number_old)
3410: LOOP
3411: BEGIN
3412: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3413:
3414: IF (okl_term_rec.line_number IS NULL) THEN
3415: okl_api.set_message(
3416: G_APP_NAME,
3411: BEGIN
3412: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3413:
3414: IF (okl_term_rec.line_number IS NULL) THEN
3415: okl_api.set_message(
3416: G_APP_NAME,
3417: G_TERM_NO_LINE_NUMBER,
3418: 'CONTRACT_NUM',
3419: okl_term_rec.contract_number_old||'/'||okl_term_rec.line_number
3423: p_contract_number => okl_term_rec.contract_number_old,
3424: p_line_number => okl_term_rec.line_number
3425: );
3426:
3427: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3428: okl_api.set_message(
3429: G_APP_NAME,
3430: G_TERM_LINE_ERROR,
3431: 'LINE_NUM',
3424: p_line_number => okl_term_rec.line_number
3425: );
3426:
3427: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3428: okl_api.set_message(
3429: G_APP_NAME,
3430: G_TERM_LINE_ERROR,
3431: 'LINE_NUM',
3432: okl_term_rec.line_number,
3432: okl_term_rec.line_number,
3433: 'CONTRACT_NUM',
3434: okl_term_rec.contract_number_old||'/'||okl_term_rec.line_number
3435: );
3436: x_return_status := OKL_API.G_RET_STS_ERROR;
3437: END IF;
3438:
3439: END IF;
3440:
3437: END IF;
3438:
3439: END IF;
3440:
3441: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3442: l_record_status := x_return_status;
3443: END IF;
3444:
3445: IF (okl_header_rec.import_request_stage <> 'NEW'
3447: okl_term_rec.bill_to_address_id IS NULL
3448: AND
3449: okl_term_rec.bill_to_address IS NULL) THEN
3450:
3451: okl_api.set_message(
3452: G_APP_NAME,
3453: G_MISSING_VALUE,
3454: 'CONTRACT_NUM',
3455: okl_term_rec.contract_number_old||'/'||okl_term_rec.line_number,
3456: 'COL_NAME',
3457: 'BILL_TO_ADDRESS'
3458: );
3459:
3460: x_return_status := OKL_API.G_RET_STS_ERROR;
3461: END IF;
3462:
3463: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3464: l_record_status := x_return_status;
3459:
3460: x_return_status := OKL_API.G_RET_STS_ERROR;
3461: END IF;
3462:
3463: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3464: l_record_status := x_return_status;
3465: END IF;
3466: END;
3467:
3470: l_progress := '120';
3471:
3472: FOR okl_payment_rec IN okl_payment_csr (okl_header_rec.contract_number_old)
3473: LOOP
3474: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3475: BEGIN
3476:
3477: check_payment_record(
3478: x_return_status => x_return_status,
3495: p_stub_days => okl_payment_rec.stub_days,
3496: p_stub_amount => okl_payment_rec.stub_amount
3497: );
3498:
3499: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3500: l_record_status := x_return_status;
3501: END IF;
3502:
3503: END;
3512: -- okl_open_interface_pvt.report_error (
3513: -- x_msg_count => x_msg_count,
3514: -- x_msg_data => x_msg_data
3515: -- );
3516: x_return_status := OKL_API.G_RET_STS_ERROR;
3517: l_record_status := OKL_API.G_RET_STS_ERROR;
3518:
3519: END; -- of Header Begin
3520:
3513: -- x_msg_count => x_msg_count,
3514: -- x_msg_data => x_msg_data
3515: -- );
3516: x_return_status := OKL_API.G_RET_STS_ERROR;
3517: l_record_status := OKL_API.G_RET_STS_ERROR;
3518:
3519: END; -- of Header Begin
3520:
3521: IF (l_record_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3517: l_record_status := OKL_API.G_RET_STS_ERROR;
3518:
3519: END; -- of Header Begin
3520:
3521: IF (l_record_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3522: l_batch_status := OKL_API.G_RET_STS_ERROR;
3523: x_return_status := OKL_API.G_RET_STS_ERROR;
3524: END IF;
3525:
3518:
3519: END; -- of Header Begin
3520:
3521: IF (l_record_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3522: l_batch_status := OKL_API.G_RET_STS_ERROR;
3523: x_return_status := OKL_API.G_RET_STS_ERROR;
3524: END IF;
3525:
3526: IF (l_record_status = OKL_API.G_RET_STS_SUCCESS) THEN
3519: END; -- of Header Begin
3520:
3521: IF (l_record_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3522: l_batch_status := OKL_API.G_RET_STS_ERROR;
3523: x_return_status := OKL_API.G_RET_STS_ERROR;
3524: END IF;
3525:
3526: IF (l_record_status = OKL_API.G_RET_STS_SUCCESS) THEN
3527: Update_Interface_Status(p_contract_number => okl_header_rec.contract_number_old,
3522: l_batch_status := OKL_API.G_RET_STS_ERROR;
3523: x_return_status := OKL_API.G_RET_STS_ERROR;
3524: END IF;
3525:
3526: IF (l_record_status = OKL_API.G_RET_STS_SUCCESS) THEN
3527: Update_Interface_Status(p_contract_number => okl_header_rec.contract_number_old,
3528: p_new_contract_number => okl_header_rec.contract_number,
3529: p_status => 'ELIGIBLE',
3530: x_return_status => x_return_status
3537: p_status => 'ERROR',
3538: x_return_status => x_return_status
3539: );
3540: COMMIT;
3541: x_return_status := OKL_API.G_RET_STS_ERROR;
3542: END IF;
3543:
3544: -- report_error (
3545: -- x_msg_count => x_msg_count,
3548: -- debug_message('========================done ');
3549:
3550: END LOOP; -- okl_header_csr
3551:
3552: IF (l_batch_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3553: x_return_status := l_batch_status; -- set final status to out variable for further processing
3554: END IF;
3555:
3556: EXCEPTION
3554: END IF;
3555:
3556: EXCEPTION
3557: WHEN OTHERS THEN
3558: okl_api.set_message(
3559: G_APP_NAME,
3560: G_UNEXPECTED_ERROR,
3561: 'OKL_SQLCODE',
3562: SQLCODE,
3562: SQLCODE,
3563: 'OKL_SQLERRM',
3564: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
3565: );
3566: x_return_status := OKL_API.G_RET_STS_ERROR;
3567:
3568: report_error (
3569: x_msg_count => x_msg_count,
3570: x_msg_data => x_msg_data
3588: p_product_name IN okl_products_v.name%TYPE,
3589: x_product_id OUT NOCOPY okl_products_v.id%TYPE )
3590: RETURN VARCHAR2 IS
3591:
3592: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
3593: l_product_id OKL_PRODUCTS_V.ID%TYPE;
3594: l_revenue_recognition_method okl_product_parameters_v.REVENUE_RECOGNITION_METHOD%TYPE;
3595: l_interest_calculation_basis okl_product_parameters_v.INTEREST_CALCULATION_BASIS%TYPE;
3596: l_deal_type okl_product_parameters_v.DEAL_TYPE%TYPE;
3618: AND A.id = B.id;
3619:
3620: BEGIN
3621:
3622: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3623:
3624: OPEN product_csr(p_product_name,
3625: p_product_id);
3626: FETCH product_csr INTO l_product_id,
3647: IF product_csr%ISOPEN THEN
3648: CLOSE product_csr;
3649: END IF;
3650:
3651: x_return_status := OKL_API.G_RET_STS_ERROR;
3652: return x_return_status;
3653:
3654: WHEN OTHERS THEN
3655: NULL;
3701: AND pqv.quality_val = 'LOAN';
3702:
3703: BEGIN
3704:
3705: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3706: debug_message(l_proc_name);
3707:
3708: l_type := 'N';
3709: OPEN prod_type_csr(p_prod_name,
3719: IF prod_type_csr%ISOPEN THEN
3720: CLOSE prod_type_csr;
3721: END IF;
3722:
3723: okl_api.set_message(
3724: G_APP_NAME,
3725: G_UNEXPECTED_ERROR,
3726: 'OKL_SQLCODE',
3727: SQLCODE,
3728: 'OKL_SQLERRM',
3729: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
3730: );
3731:
3732: x_return_status := OKL_API.G_RET_STS_ERROR;
3733:
3734: END check_product_type;
3735:
3736: ------------------------------------------------------------------------------
3749: p_auth_org_id IN okc_k_headers_v.authoring_org_id%TYPE,
3750: x_agreement_id OUT NOCOPY okc_k_headers_v.contract_number%TYPE
3751: ) RETURN VARCHAR2 IS
3752:
3753: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
3754: l_contract_id OKC_K_HEADERS_V.ID%TYPE;
3755: agreement_exception EXCEPTION;
3756:
3757: --Fixed Bug # 5484903
3778: AND authoring_org_id = p_auth_org_id;
3779:
3780: BEGIN
3781:
3782: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3783:
3784: OPEN contract_csr(p_scs_code,
3785: p_agreement_id,
3786: p_agreement_number,
3802: IF contract_csr%ISOPEN THEN
3803: CLOSE contract_csr;
3804: END IF;
3805:
3806: x_return_status := OKL_API.G_RET_STS_ERROR;
3807: return x_return_status;
3808:
3809: WHEN OTHERS THEN
3810: NULL;
3828: p_agreement_id IN okc_k_headers_v.id%TYPE,
3829: x_agreement_id OUT NOCOPY okc_k_headers_v.contract_number%TYPE
3830: ) RETURN VARCHAR2 IS
3831:
3832: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
3833: l_contract_id OKC_K_HEADERS_V.ID%TYPE;
3834: agreement_exception EXCEPTION;
3835: --Fixed Bug #5484903
3836: CURSOR contract_csr (
3856: AND sts_code <> 'TERMINATED';
3857:
3858: BEGIN
3859:
3860: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3861:
3862: debug_message('Org: '||p_auth_org_id);
3863: debug_message('SCS: '||p_scs_code);
3864: debug_message('Agreement :'||p_agreement_id||', '||p_agreement_number||'***');
3884: IF contract_csr%ISOPEN THEN
3885: CLOSE contract_csr;
3886: END IF;
3887:
3888: x_return_status := OKL_API.G_RET_STS_ERROR;
3889: return x_return_status;
3890:
3891: WHEN OTHERS THEN
3892: NULL;
3922: vendor_failed EXCEPTION;
3923:
3924: BEGIN
3925:
3926: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3927:
3928: OPEN vendor_csr(p_vendor_name);
3929: FETCH vendor_csr INTO l_id;
3930: IF vendor_csr%NOTFOUND THEN
3936:
3937: EXCEPTION
3938: WHEN vendor_failed THEN
3939: CLOSE vendor_csr;
3940: okl_api.set_message(
3941: G_APP_NAME,
3942: G_INVALID_VALUE,
3943: 'CONTRACT_NUM',
3944: p_contract_number||'/'||TO_CHAR(p_line_number),
3946: 'VENDOR_NAME',
3947: 'COL_VALUE',
3948: p_vendor_name
3949: );
3950: x_return_status := OKL_API.G_RET_STS_ERROR;
3951:
3952:
3953: WHEN OTHERS THEN
3954: IF vendor_csr%ISOPEN THEN
3954: IF vendor_csr%ISOPEN THEN
3955: CLOSE vendor_csr;
3956: END IF;
3957:
3958: okl_api.set_message(
3959: G_APP_NAME,
3960: G_UNEXPECTED_ERROR,
3961: 'OKL_SQLCODE',
3962: SQLCODE,
3963: 'OKL_SQLERRM',
3964: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
3965: );
3966:
3967: x_return_status := OKL_API.G_RET_STS_ERROR;
3968:
3969: END get_vendor_id;
3970:
3971: ------------------------------------------------------------------------------
4008: party_failed EXCEPTION;
4009:
4010: BEGIN
4011:
4012: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4013:
4014: OPEN party_csr(p_party_number,
4015: p_party_id);
4016: FETCH party_csr INTO l_id;
4023:
4024: EXCEPTION
4025: WHEN party_failed THEN
4026: CLOSE party_csr;
4027: okl_api.set_message(
4028: G_APP_NAME,
4029: G_INVALID_VALUE,
4030: 'CONTRACT_NUM',
4031: p_contract_number||'/'||TO_CHAR(p_line_number),
4033: 'PARTY_ID, NUMBER: ',
4034: 'COL_VALUE',
4035: p_party_id||', '||p_party_number
4036: );
4037: x_return_status := OKL_API.G_RET_STS_ERROR;
4038:
4039:
4040: WHEN OTHERS THEN
4041: IF party_csr%ISOPEN THEN
4041: IF party_csr%ISOPEN THEN
4042: CLOSE party_csr;
4043: END IF;
4044:
4045: okl_api.set_message(
4046: G_APP_NAME,
4047: G_UNEXPECTED_ERROR,
4048: 'OKL_SQLCODE',
4049: SQLCODE,
4050: 'OKL_SQLERRM',
4051: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
4052: );
4053:
4054: x_return_status := OKL_API.G_RET_STS_ERROR;
4055:
4056: END get_party_id;
4057:
4058: -- cklee start 02/23/2004
4118:
4119:
4120: BEGIN
4121:
4122: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4123:
4124: OPEN party_csr(p_intf_party_rec.party_name,
4125: p_intf_party_rec.party_id,
4126: p_intf_party_rec.party_number,
4152: IF party_csr%ISOPEN THEN
4153: CLOSE party_csr;
4154: END IF;
4155:
4156: okl_api.set_message(
4157: G_APP_NAME,
4158: G_INVALID_VALUE,
4159: 'CONTRACT_NUM',
4160: p_intf_party_rec.contract_number||'/'||TO_CHAR(p_intf_party_rec.line_number),
4169: || p_intf_party_rec.party_number || '/' ||
4170: p_intf_party_rec.party_site_id || ', ' || p_intf_party_rec.party_site_name || ', '
4171: || p_intf_party_rec.party_site_number || ': '
4172: );
4173: x_return_status := OKL_API.G_RET_STS_ERROR;
4174:
4175:
4176: WHEN OTHERS THEN
4177:
4178: IF party_csr%ISOPEN THEN
4179: CLOSE party_csr;
4180: END IF;
4181:
4182: okl_api.set_message(
4183: G_APP_NAME,
4184: G_UNEXPECTED_ERROR,
4185: 'OKL_SQLCODE',
4186: SQLCODE,
4187: 'OKL_SQLERRM',
4188: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
4189: );
4190:
4191: x_return_status := OKL_API.G_RET_STS_ERROR;
4192:
4193: END get_party;
4194: -- cklee end 02/23/2004
4195:
4237: x_kplv_rec kplv_rec_type;
4238:
4239: BEGIN
4240:
4241: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4242:
4243: /*
4244: OPEN customer_csr(p_customer_number,
4245: p_customer_id);
4263:
4264: --OKL_OKC_MIGRATION_PVT.create_k_party_role( -- Contract addl field, Bug 4558486
4265: OKL_K_PARTY_ROLES_PVT.create_k_party_role(
4266: p_api_version => 1.0,
4267: p_init_msg_list => OKL_API.G_FALSE,
4268: x_return_status => x_return_status,
4269: x_msg_count => x_msg_count,
4270: x_msg_data => x_msg_data,
4271: p_cplv_rec => p_cplv_rec,
4273: x_cplv_rec => x_cplv_rec,
4274: x_kplv_rec => x_kplv_rec
4275: );
4276:
4277: IF (x_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
4278: -- Create LESSOR
4279: p_cplv_rec.chr_id := p_contract_header_id;
4280: p_cplv_rec.dnz_chr_id := p_contract_header_id;
4281: p_cplv_rec.object1_id1 := TO_CHAR(p_authoring_org_id);
4285:
4286: -- OKL_OKC_MIGRATION_PVT.create_k_party_role( -- Contract addl field, Bug 4558486
4287: OKL_K_PARTY_ROLES_PVT.create_k_party_role(
4288: p_api_version => 1.0,
4289: p_init_msg_list => OKL_API.G_FALSE,
4290: x_return_status => x_return_status,
4291: x_msg_count => x_msg_count,
4292: x_msg_data => x_msg_data,
4293: p_cplv_rec => p_cplv_rec,
4296: x_kplv_rec => x_kplv_rec
4297: );
4298: END IF;
4299:
4300: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4301: RAISE party_role_failed;
4302: END IF;
4303:
4304: return;
4309: IF customer_csr%ISOPEN THEN
4310: CLOSE customer_csr;
4311: END IF;
4312:
4313: okl_api.set_message(
4314: G_APP_NAME,
4315: G_INVALID_VALUE,
4316: 'CONTRACT_NUM',
4317: p_contract_number_old,
4320: 'COL_VALUE',
4321: p_customer_id||', '||p_customer_number
4322: );
4323:
4324: x_return_status := OKL_API.G_RET_STS_ERROR;
4325:
4326: WHEN OTHERS THEN
4327:
4328: IF customer_csr%ISOPEN THEN
4328: IF customer_csr%ISOPEN THEN
4329: CLOSE customer_csr;
4330: END IF;
4331:
4332: okl_api.set_message(
4333: G_APP_NAME,
4334: G_UNEXPECTED_ERROR,
4335: 'OKL_SQLCODE',
4336: SQLCODE,
4337: 'OKL_SQLERRM',
4338: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
4339: );
4340:
4341: x_return_status := OKL_API.G_RET_STS_ERROR;
4342:
4343:
4344: END create_party_role;
4345:
4396: bill_failed EXCEPTION;
4397:
4398: BEGIN
4399:
4400: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4401:
4402:
4403: OPEN bill_csr(p_auth_org_id,
4404: p_bill_to_address,
4420: IF (bill_csr%ISOPEN) THEN
4421: CLOSE bill_csr;
4422: END IF;
4423:
4424: okl_api.set_message(
4425: G_APP_NAME,
4426: G_INVALID_VALUE,
4427: 'CONTRACT_NUM',
4428: p_contract_number,
4430: 'BILL_TO_ADDRESS_ID, NAME',
4431: 'COL_VALUE',
4432: p_bill_to_address_id||', '||p_bill_to_address
4433: );
4434: x_return_status := OKL_API.G_RET_STS_ERROR;
4435:
4436: WHEN OTHERS THEN
4437: okl_api.set_message(
4438: G_APP_NAME,
4433: );
4434: x_return_status := OKL_API.G_RET_STS_ERROR;
4435:
4436: WHEN OTHERS THEN
4437: okl_api.set_message(
4438: G_APP_NAME,
4439: G_UNEXPECTED_ERROR,
4440: 'OKL_SQLCODE',
4441: SQLCODE,
4442: 'OKL_SQLERRM',
4443: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
4444: );
4445:
4446: x_return_status := OKL_API.G_RET_STS_ERROR;
4447:
4448:
4449: END get_bill_to_address_id;
4450:
4503: l_proc_name VARCHAR2(35) := 'GET_BANK_ACCOUNT_ID';
4504:
4505: BEGIN
4506:
4507: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4508:
4509: OPEN bank_acct_csr(p_bank_account_number,
4510: p_bank_account_id,
4511: p_customer_account_id,
4527: IF (bank_acct_csr%ISOPEN) THEN
4528: CLOSE bank_acct_csr;
4529: END IF;
4530:
4531: okl_api.set_message(
4532: G_APP_NAME,
4533: G_INVALID_VALUE,
4534: 'CONTRACT_NUM',
4535: p_contract_number,
4537: 'BANK_ACCOUNT_ID, NUMBER: ',
4538: 'COL_VALUE',
4539: p_bank_account_id||', '||p_bank_account_number
4540: );
4541: x_return_status := OKL_API.G_RET_STS_ERROR;
4542:
4543: WHEN OTHERS THEN
4544:
4545: okl_api.set_message(
4541: x_return_status := OKL_API.G_RET_STS_ERROR;
4542:
4543: WHEN OTHERS THEN
4544:
4545: okl_api.set_message(
4546: G_APP_NAME,
4547: G_UNEXPECTED_ERROR,
4548: 'OKL_SQLCODE',
4549: SQLCODE,
4550: 'OKL_SQLERRM',
4551: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
4552: );
4553:
4554: x_return_status := OKL_API.G_RET_STS_ERROR;
4555:
4556: END get_bank_account_id;
4557:
4558: ------------------------------------------------------------------------------
4579: l_id okl_indices.id%TYPE;
4580: index_failed EXCEPTION;
4581:
4582: BEGIN
4583: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4584: OPEN index_csr (p_index_name);
4585: FETCH index_csr INTO l_id;
4586: IF index_csr%NOTFOUND THEN
4587: raise index_failed;
4593: RETURN;
4594:
4595: EXCEPTION
4596: WHEN index_failed THEN
4597: --x_return_status := OKL_API.G_RET_STS_SUCCESS;
4598: x_return_status := OKL_API.G_RET_STS_ERROR; -- Bug 5024651
4599: WHEN OTHERS THEN
4600: x_return_status := OKL_API.G_RET_STS_ERROR;
4601: END get_index_id;
4594:
4595: EXCEPTION
4596: WHEN index_failed THEN
4597: --x_return_status := OKL_API.G_RET_STS_SUCCESS;
4598: x_return_status := OKL_API.G_RET_STS_ERROR; -- Bug 5024651
4599: WHEN OTHERS THEN
4600: x_return_status := OKL_API.G_RET_STS_ERROR;
4601: END get_index_id;
4602:
4596: WHEN index_failed THEN
4597: --x_return_status := OKL_API.G_RET_STS_SUCCESS;
4598: x_return_status := OKL_API.G_RET_STS_ERROR; -- Bug 5024651
4599: WHEN OTHERS THEN
4600: x_return_status := OKL_API.G_RET_STS_ERROR;
4601: END get_index_id;
4602:
4603: ------------------------------------------------------------------------------
4604: -- PROCEDURE get_payment_term
4632:
4633: l_id1 OKX_PAYABLES_TERMS_V.ID1%TYPE;
4634: BEGIN
4635:
4636: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4637:
4638: OPEN term_csr (p_payment_term,
4639: p_payment_term_id);
4640: FETCH term_csr INTO l_id1;
4638: OPEN term_csr (p_payment_term,
4639: p_payment_term_id);
4640: FETCH term_csr INTO l_id1;
4641: IF term_csr%NOTFOUND THEN
4642: okl_api.set_message(
4643: G_APP_NAME,
4644: G_INVALID_VALUE,
4645: 'CONTRACT_NUM/LINE_NUMBER',
4646: p_contract_number||'/'||p_line_number,
4648: 'PAYMENT_TERM OR PAYMENT_TERM_ID',
4649: 'COL_VALUE',
4650: p_payment_term||', '||p_payment_term_id
4651: );
4652: x_return_status := OKL_API.G_RET_STS_ERROR;
4653: RETURN NULL;
4654: END IF;
4655: CLOSE term_csr;
4656:
4690:
4691: l_id1 okx_vendor_sites_v.id1%TYPE;
4692: BEGIN
4693:
4694: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4695:
4696: OPEN site_csr (p_vendor_paysite_name,
4697: p_vendor_paysite_id);
4698: FETCH site_csr INTO l_id1;
4696: OPEN site_csr (p_vendor_paysite_name,
4697: p_vendor_paysite_id);
4698: FETCH site_csr INTO l_id1;
4699: IF site_csr%NOTFOUND THEN
4700: okl_api.set_message(
4701: G_APP_NAME,
4702: G_INVALID_VALUE,
4703: 'CONTRACT_NUM/LINE_NUMBER',
4704: p_contract_number||'/'||p_line_number,
4706: 'VENDOR PAY SITE NAME OR VENDOR PAYSITE ID',
4707: 'COL_VALUE',
4708: p_vendor_paysite_name||', '||p_vendor_paysite_id
4709: );
4710: x_return_status := OKL_API.G_RET_STS_ERROR;
4711: RETURN NULL;
4712: END IF;
4713: CLOSE site_csr;
4714:
4760: l_proc_name VARCHAR2(35) := 'GET_INVOICE_FORMAT_ID';
4761:
4762: BEGIN
4763:
4764: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4765:
4766: OPEN inv_format_csr(p_invoice_format_code,
4767: p_invoice_format_id);
4768: FETCH inv_format_csr INTO l_id,
4782: IF (inv_format_csr%ISOPEN) THEN
4783: CLOSE inv_format_csr;
4784: END IF;
4785:
4786: okl_api.set_message(
4787: G_APP_NAME,
4788: G_INVALID_VALUE,
4789: 'CONTRACT_NUM',
4790: p_contract_number,
4792: 'INVOICE_FORMAT_ID, CODE',
4793: 'COL_VALUE',
4794: p_invoice_format_id||', '||p_invoice_format_code
4795: );
4796: x_return_status := OKL_API.G_RET_STS_ERROR;
4797:
4798: WHEN OTHERS THEN
4799:
4800: okl_api.set_message(
4796: x_return_status := OKL_API.G_RET_STS_ERROR;
4797:
4798: WHEN OTHERS THEN
4799:
4800: okl_api.set_message(
4801: G_APP_NAME,
4802: G_UNEXPECTED_ERROR,
4803: 'OKL_SQLCODE',
4804: SQLCODE,
4805: 'OKL_SQLERRM',
4806: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
4807: );
4808:
4809: x_return_status := OKL_API.G_RET_STS_ERROR;
4810:
4811: END get_invoice_format_id;
4812:
4813: ------------------------------------------------------------------------------
4857: l_proc_name VARCHAR2(35) := 'GET_PAYMENT_METHOD_ID';
4858:
4859: BEGIN
4860:
4861: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4862:
4863: debug_message(p_payment_method||','||p_customer_account_id||', '||p_bill_to_address_id);
4864: OPEN payment_csr(p_payment_method,
4865: p_payment_method_id,
4881: IF (payment_csr%ISOPEN) THEN
4882: CLOSE payment_csr;
4883: END IF;
4884:
4885: okl_api.set_message(
4886: G_APP_NAME,
4887: G_INVALID_VALUE,
4888: 'CONTRACT_NUM',
4889: p_contract_number,
4891: 'PAYMENT_METHOD, ID',
4892: 'COL_VALUE',
4893: p_payment_method||', '||p_payment_method_id
4894: );
4895: x_return_status := OKL_API.G_RET_STS_ERROR;
4896:
4897: WHEN OTHERS THEN
4898:
4899: okl_api.set_message(
4895: x_return_status := OKL_API.G_RET_STS_ERROR;
4896:
4897: WHEN OTHERS THEN
4898:
4899: okl_api.set_message(
4900: G_APP_NAME,
4901: G_UNEXPECTED_ERROR,
4902: 'OKL_SQLCODE',
4903: SQLCODE,
4904: 'OKL_SQLERRM',
4905: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
4906: );
4907:
4908: x_return_status := OKL_API.G_RET_STS_ERROR;
4909:
4910: END get_payment_method_id;
4911:
4912: ------------------------------------------------------------------------------
4953: l_proc_name VARCHAR2(35) := 'GET_CUSTOMER_ACCOUNT_ID';
4954:
4955: BEGIN
4956:
4957: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4958:
4959: debug_message('Customer Account ID: '||p_customer_account_id);
4960:
4961: OPEN cust_acct_csr(p_customer_id,
4977: IF (cust_acct_csr%ISOPEN) THEN
4978: CLOSE cust_acct_csr;
4979: END IF;
4980:
4981: okl_api.set_message(
4982: G_APP_NAME,
4983: G_INVALID_VALUE,
4984: 'CONTRACT_NUM',
4985: p_contract_number,
4987: 'CUSTOMER_ACCOUNT, ID',
4988: 'COL_VALUE',
4989: p_customer_account_number||', '||p_customer_account_id
4990: );
4991: x_return_status := OKL_API.G_RET_STS_ERROR;
4992:
4993: WHEN OTHERS THEN
4994:
4995: okl_api.set_message(
4991: x_return_status := OKL_API.G_RET_STS_ERROR;
4992:
4993: WHEN OTHERS THEN
4994:
4995: okl_api.set_message(
4996: G_APP_NAME,
4997: G_UNEXPECTED_ERROR,
4998: 'OKL_SQLCODE',
4999: SQLCODE,
5000: 'OKL_SQLERRM',
5001: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
5002: );
5003:
5004: x_return_status := OKL_API.G_RET_STS_ERROR;
5005:
5006: END get_customer_account_id;
5007:
5008: ------------------------------------------------------------------------------
5045: l_proc_name VARCHAR2(35) := 'GET_CUSTOMER_ACCOUNT_ID';
5046:
5047: BEGIN
5048:
5049: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5050:
5051: OPEN cust_acct_csr(p_customer_account_number,
5052: p_customer_account_id);
5053: FETCH cust_acct_csr INTO l_id;
5066: IF (cust_acct_csr%ISOPEN) THEN
5067: CLOSE cust_acct_csr;
5068: END IF;
5069:
5070: okl_api.set_message(
5071: G_APP_NAME,
5072: G_INVALID_VALUE,
5073: 'CONTRACT_NUM',
5074: p_contract_number,
5076: 'CUSTOMER_ACCOUNT, ID',
5077: 'COL_VALUE',
5078: p_customer_account_number||', '||p_customer_account_id
5079: );
5080: x_return_status := OKL_API.G_RET_STS_ERROR;
5081:
5082: WHEN OTHERS THEN
5083:
5084: okl_api.set_message(
5080: x_return_status := OKL_API.G_RET_STS_ERROR;
5081:
5082: WHEN OTHERS THEN
5083:
5084: okl_api.set_message(
5085: G_APP_NAME,
5086: G_UNEXPECTED_ERROR,
5087: 'OKL_SQLCODE',
5088: SQLCODE,
5089: 'OKL_SQLERRM',
5090: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
5091: );
5092:
5093: x_return_status := OKL_API.G_RET_STS_ERROR;
5094:
5095: END get_customer_account_id;
5096:
5097: ------------------------------------------------------------------------------
5116: uom_failed EXCEPTION;
5117: l_id okx_tuom_v.id1%TYPE;
5118:
5119: BEGIN
5120: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5121: OPEN uom_csr(p_base_uom_code);
5122: FETCH uom_csr INTO l_id;
5123: IF uom_csr%NOTFOUND THEN
5124: RAISE uom_failed;
5133: WHEN uom_failed THEN
5134: IF uom_csr%ISOPEN THEN
5135: CLOSE uom_csr;
5136: END IF;
5137: x_return_status := OKL_API.G_RET_STS_ERROR;
5138:
5139: END get_base_uom_id;
5140:
5141: ------------------------------------------------------------------------------
5174: l_id okx_list_headers_v.id1%TYPE;
5175: price_failed EXCEPTION;
5176:
5177: BEGIN
5178: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5179: OPEN price_csr(p_price_list_name,
5180: p_price_list_id);
5181: FETCH price_csr INTO l_id;
5182: IF price_csr%NOTFOUND THEN
5192: WHEN price_failed THEN
5193: IF price_csr%ISOPEN THEN
5194: CLOSE price_csr;
5195: END IF;
5196: x_return_status := OKL_API.G_RET_STS_ERROR;
5197: END get_price_list_id;
5198:
5199: ------------------------------------------------------------------------------
5200: -- PROCEDURE get_usage_item_id
5237: l_id1 okx_system_items_v.id1%TYPE;
5238: l_id2 okx_system_items_v.id2%TYPE;
5239:
5240: BEGIN
5241: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5242: OPEN uitem_csr(p_usage_item_name,
5243: p_usage_item_id,
5244: p_org_id);
5245: FETCH uitem_csr INTO l_id1,
5258: WHEN uitem_failed THEN
5259: IF uitem_csr%ISOPEN THEN
5260: CLOSE uitem_csr;
5261: END IF;
5262: x_return_status := OKL_API.G_RET_STS_ERROR;
5263: END get_usage_item_id;
5264:
5265: ------------------------------------------------------------------------------
5266: -- PROCEDURE create_rule_group_and_rule
5287: l_rulv_rec_in rulv_rec_type;
5288:
5289: BEGIN
5290:
5291: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5292:
5293: -- Check for presence of RULE info, if not RETURN with SUCCESS
5294: IF (p_rulv_rec.rule_information_category IS NULL) THEN
5295: RETURN;
5300: IF (p_rgp_id IS NULL or p_rgp_id = OKC_API.G_MISS_NUM) THEN -- create rule group
5301:
5302: OKL_RULE_PUB.create_rule_group(
5303: p_api_version => 1.0,
5304: p_init_msg_list => OKL_API.G_FALSE,
5305: x_return_status => x_return_status,
5306: x_msg_count => x_msg_count,
5307: x_msg_data => x_msg_data,
5308: p_rgpv_rec => p_rgpv_rec,
5307: x_msg_data => x_msg_data,
5308: p_rgpv_rec => p_rgpv_rec,
5309: x_rgpv_rec => x_rgpv_rec
5310: );
5311: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5312: x_return_status := OKL_API.G_RET_STS_ERROR;
5313: raise rg_failed;
5314: END IF;
5315:
5308: p_rgpv_rec => p_rgpv_rec,
5309: x_rgpv_rec => x_rgpv_rec
5310: );
5311: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5312: x_return_status := OKL_API.G_RET_STS_ERROR;
5313: raise rg_failed;
5314: END IF;
5315:
5316: l_id := x_rgpv_rec.id;
5325: l_rulv_rec_in.rgp_id := l_id;
5326:
5327: OKL_RULE_PUB.create_rule(
5328: p_api_version => 1.0,
5329: p_init_msg_list => OKL_API.G_FALSE,
5330: x_return_status => x_return_status,
5331: x_msg_count => x_msg_count,
5332: x_msg_data => x_msg_data,
5333: p_rulv_rec => l_rulv_rec_in,
5333: p_rulv_rec => l_rulv_rec_in,
5334: x_rulv_rec => x_rulv_rec
5335: );
5336:
5337: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5338: x_return_status := OKL_API.G_RET_STS_ERROR;
5339: raise rg_failed;
5340: END IF;
5341:
5334: x_rulv_rec => x_rulv_rec
5335: );
5336:
5337: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5338: x_return_status := OKL_API.G_RET_STS_ERROR;
5339: raise rg_failed;
5340: END IF;
5341:
5342: RETURN;
5342: RETURN;
5343:
5344: EXCEPTION
5345: WHEN rg_failed THEN
5346: x_return_status := OKL_API.G_RET_STS_ERROR;
5347: END create_rule_group_and_rule;
5348:
5349: ------------------------------------------------------------------------------
5350: -- PROCEDURE create_update_asset_rules
5462: lv_rec_populate_check VARCHAR2(1) := 'N';
5463:
5464: BEGIN
5465:
5466: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5467: debug_message(l_proc_name);
5468:
5469: OPEN get_rule_group_info(p_chr_id, p_cle_id);
5470: FETCH get_rule_group_info into ln_rgp_id;
5600: IF (lv_rec_populate_check = 'Y') THEN
5601: IF NOT(l_sales_tax_rule_found) THEN -- 5179119
5602: OKL_RULE_PUB.create_rule(
5603: p_api_version => 1.0,
5604: p_init_msg_list => OKL_API.G_FALSE,
5605: x_return_status => x_return_status,
5606: x_msg_count => x_msg_count,
5607: x_msg_data => x_msg_data,
5608: p_rulv_rec => l_rulv_rec,
5613: l_rulv_rec.created_by := OKC_API.G_MISS_NUM;
5614: l_rulv_rec.creation_date := OKC_API.G_MISS_DATE;
5615: OKL_RULE_PUB.update_rule(
5616: p_api_version => 1.0,
5617: p_init_msg_list => OKL_API.G_FALSE,
5618: x_return_status => x_return_status,
5619: x_msg_count => x_msg_count,
5620: x_msg_data => x_msg_data,
5621: p_rulv_rec => l_rulv_rec,
5622: x_rulv_rec => x_rulv_rec
5623: );
5624: END IF;
5625: l_progress := '1.1';
5626: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5627: x_return_status := OKL_API.G_RET_STS_ERROR;
5628: raise line_rule_failed;
5629: END IF;
5630: END IF;
5623: );
5624: END IF;
5625: l_progress := '1.1';
5626: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5627: x_return_status := OKL_API.G_RET_STS_ERROR;
5628: raise line_rule_failed;
5629: END IF;
5630: END IF;
5631:
5677:
5678: IF (lv_rec_populate_check = 'Y') THEN
5679: OKL_RULE_PUB.create_rule(
5680: p_api_version => 1.0,
5681: p_init_msg_list => OKL_API.G_FALSE,
5682: x_return_status => x_return_status,
5683: x_msg_count => x_msg_count,
5684: x_msg_data => x_msg_data,
5685: p_rulv_rec => l_rulv_rec,
5685: p_rulv_rec => l_rulv_rec,
5686: x_rulv_rec => x_rulv_rec
5687: );
5688: l_progress := '1.2';
5689: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5690: x_return_status := OKL_API.G_RET_STS_ERROR;
5691: raise line_rule_failed;
5692: END IF;
5693: END IF;
5686: x_rulv_rec => x_rulv_rec
5687: );
5688: l_progress := '1.2';
5689: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5690: x_return_status := OKL_API.G_RET_STS_ERROR;
5691: raise line_rule_failed;
5692: END IF;
5693: END IF;
5694:
5725: OR
5726: p_prop_tax_bill_method IS NOT NULL) THEN -- Bug# 3984890
5727: OKL_RULE_PUB.update_rule(
5728: p_api_version => 1.0,
5729: p_init_msg_list => OKL_API.G_FALSE,
5730: x_return_status => x_return_status,
5731: x_msg_count => x_msg_count,
5732: x_msg_data => x_msg_data,
5733: p_rulv_rec => lp_rulv_rec,
5733: p_rulv_rec => lp_rulv_rec,
5734: x_rulv_rec => xp_rulv_rec
5735: );
5736: l_progress := '1.3';
5737: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5738: x_return_status := OKL_API.G_RET_STS_ERROR;
5739: raise line_rule_failed;
5740: END IF;
5741:
5734: x_rulv_rec => xp_rulv_rec
5735: );
5736: l_progress := '1.3';
5737: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5738: x_return_status := OKL_API.G_RET_STS_ERROR;
5739: raise line_rule_failed;
5740: END IF;
5741:
5742: END IF;
5757:
5758: IF (lv_rec_populate_check = 'Y') THEN
5759: OKL_RULE_PUB.create_rule(
5760: p_api_version => 1.0,
5761: p_init_msg_list => OKL_API.G_FALSE,
5762: x_return_status => x_return_status,
5763: x_msg_count => x_msg_count,
5764: x_msg_data => x_msg_data,
5765: p_rulv_rec => l_rulv_rec,
5765: p_rulv_rec => l_rulv_rec,
5766: x_rulv_rec => x_rulv_rec
5767: );
5768: l_progress := '1.4';
5769: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5770: x_return_status := OKL_API.G_RET_STS_ERROR;
5771: raise line_rule_failed;
5772: END IF;
5773: END IF;
5766: x_rulv_rec => x_rulv_rec
5767: );
5768: l_progress := '1.4';
5769: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5770: x_return_status := OKL_API.G_RET_STS_ERROR;
5771: raise line_rule_failed;
5772: END IF;
5773: END IF;
5774:
5782: OPEN french_tax_csr (p_french_tax_code,
5783: p_french_tax_name);
5784: FETCH french_tax_csr INTO l_french_tax_code;
5785: IF french_tax_csr%NOTFOUND THEN
5786: okl_api.set_message(
5787: G_APP_NAME,
5788: G_INVALID_VALUE,
5789: 'CONTRACT_NUM',
5790: p_contract_number||'/'||p_line_number,
5811:
5812: IF (lv_rec_populate_check = 'Y') THEN
5813: OKL_RULE_PUB.create_rule(
5814: p_api_version => 1.0,
5815: p_init_msg_list => OKL_API.G_FALSE,
5816: x_return_status => x_return_status,
5817: x_msg_count => x_msg_count,
5818: x_msg_data => x_msg_data,
5819: p_rulv_rec => l_rulv_rec,
5819: p_rulv_rec => l_rulv_rec,
5820: x_rulv_rec => x_rulv_rec
5821: );
5822: l_progress := '1.5';
5823: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5824: x_return_status := OKL_API.G_RET_STS_ERROR;
5825: raise line_rule_failed;
5826: END IF;
5827: END IF;
5820: x_rulv_rec => x_rulv_rec
5821: );
5822: l_progress := '1.5';
5823: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5824: x_return_status := OKL_API.G_RET_STS_ERROR;
5825: raise line_rule_failed;
5826: END IF;
5827: END IF;
5828:
5829: RETURN;
5830:
5831: EXCEPTION
5832: WHEN line_rule_failed THEN
5833: x_return_status := OKL_API.G_RET_STS_ERROR;
5834: debug_message('Line rule failed : '||l_progress);
5835:
5836: WHEN rule_group_failed THEN
5837: IF get_rule_group_info%ISOPEN THEN
5836: WHEN rule_group_failed THEN
5837: IF get_rule_group_info%ISOPEN THEN
5838: CLOSE get_rule_group_info;
5839: END IF;
5840: x_return_status := OKL_API.G_RET_STS_ERROR;
5841:
5842: WHEN rule_failed THEN
5843: IF get_prop_tax_rule_info%ISOPEN THEN
5844: CLOSE get_prop_tax_rule_info;
5842: WHEN rule_failed THEN
5843: IF get_prop_tax_rule_info%ISOPEN THEN
5844: CLOSE get_prop_tax_rule_info;
5845: END IF;
5846: x_return_status := OKL_API.G_RET_STS_ERROR;
5847:
5848: WHEN OTHERS THEN
5849: okl_api.set_message(
5850: G_APP_NAME,
5845: END IF;
5846: x_return_status := OKL_API.G_RET_STS_ERROR;
5847:
5848: WHEN OTHERS THEN
5849: okl_api.set_message(
5850: G_APP_NAME,
5851: G_UNEXPECTED_ERROR,
5852: 'OKL_SQLCODE',
5853: SQLCODE,
5854: 'OKL_SQLERRM',
5855: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
5856: );
5857:
5858: x_return_status := OKL_API.G_RET_STS_ERROR;
5859: debug_message('line other : '||l_progress);
5860: END create_update_asset_rules;
5861:
5862: ------------------------------------------------------------------------------
6038: l_rgp_count NUMBER; --AKP
6039: l_rul_count NUMBER;
6040:
6041: BEGIN
6042: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6043: --debug_message('AKP:In create_line_rules.. p_cle_id=' || p_cle_id);
6044:
6045: l_rulv_rec := NULL; -- DDEY
6046:
6083: p_french_tax_code => p_french_tax_code,
6084: p_french_tax_name => p_french_tax_name,
6085: p_prop_tax_bill_method => p_prop_tax_bill_method,
6086: p_prop_tax_as_contract_yn => p_prop_tax_as_contract_yn);
6087: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
6088: raise line_rule_failed;
6089: END IF;
6090: ELSE
6091: -- End
6270: l_rulv_rec.rgp_id := l_sales_tax_rgp_id;
6271: IF NOT(l_sales_tax_rule_found) THEN
6272: OKL_RULE_PUB.create_rule(
6273: p_api_version => 1.0,
6274: p_init_msg_list => OKL_API.G_FALSE,
6275: x_return_status => x_return_status,
6276: x_msg_count => x_msg_count,
6277: x_msg_data => x_msg_data,
6278: p_rulv_rec => l_rulv_rec,
6283: l_rulv_rec.created_by := OKC_API.G_MISS_NUM;
6284: l_rulv_rec.creation_date := OKC_API.G_MISS_DATE;
6285: OKL_RULE_PUB.update_rule(
6286: p_api_version => 1.0,
6287: p_init_msg_list => OKL_API.G_FALSE,
6288: x_return_status => x_return_status,
6289: x_msg_count => x_msg_count,
6290: x_msg_data => x_msg_data,
6291: p_rulv_rec => l_rulv_rec,
6295: END IF;
6296: END IF;
6297:
6298: l_progress := '1.1';
6299: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
6300: raise line_rule_failed;
6301: END IF;
6302:
6303: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
6360: x_rulv_rec => x_rulv_rec
6361: );
6362:
6363: l_progress := '1.2';
6364: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
6365: raise line_rule_failed;
6366: END IF;
6367:
6368: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
6412: x_rulv_rec => x_rulv_rec
6413: );
6414:
6415: l_progress := '1.2';
6416: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
6417: raise line_rule_failed;
6418: END IF;
6419:
6420: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
6444: x_rulv_rec => x_rulv_rec
6445: );
6446:
6447: l_progress := '1.2';
6448: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
6449: raise line_rule_failed;
6450: END IF;
6451:
6452: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
6463: OPEN french_tax_csr (p_french_tax_code,
6464: p_french_tax_name);
6465: FETCH french_tax_csr INTO l_french_tax_code;
6466: IF french_tax_csr%NOTFOUND THEN
6467: okl_api.set_message(
6468: G_APP_NAME,
6469: G_INVALID_VALUE,
6470: 'CONTRACT_NUM',
6471: p_contract_number||'/'||p_line_number,
6502: x_rulv_rec => x_rulv_rec
6503: );
6504:
6505: l_progress := '1.2';
6506: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
6507: raise line_rule_failed;
6508: END IF;
6509:
6510: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
6576: p_party_id => p_lienholder_id,
6577: p_party_number => p_lienholder_number,
6578: x_party_id => x_lienholder_id
6579: );
6580: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
6581: raise line_rule_failed;
6582: END IF;
6583: END IF;
6584:
6650: x_rulv_rec => x_rulv_rec
6651: );
6652:
6653: l_progress := '1.3';
6654: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
6655: raise line_rule_failed;
6656: END IF;
6657:
6658: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
6682: p_party_id => p_title_issuer_id,
6683: p_party_number => p_title_issuer_number,
6684: x_party_id => x_title_issuer_id
6685: );
6686: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
6687: RAISE line_rule_failed;
6688: END IF;
6689: END IF;
6690:
6757: x_rulv_rec => x_rulv_rec
6758: );
6759:
6760: l_progress := '1.4';
6761: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
6762: raise line_rule_failed;
6763: END IF;
6764:
6765: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
6803: x_rulv_rec => x_rulv_rec
6804: );
6805:
6806: l_progress := '1.5';
6807: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
6808: raise line_rule_failed;
6809: END IF;
6810:
6811: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
6833: x_rulv_rec => x_rulv_rec
6834: );
6835:
6836: l_progress := '1.6';
6837: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
6838: raise line_rule_failed;
6839: END IF;
6840:
6841: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
6856: p_payment_term => p_payment_term,
6857: p_payment_term_id => p_payment_term_id
6858: );
6859:
6860: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
6861: raise line_rule_failed;
6862: END IF;
6863:
6864: l_rulv_rec := NULL;
6881: x_rgpv_rec => x_rgpv_rec,
6882: x_rulv_rec => x_rulv_rec
6883: );
6884:
6885: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
6886: raise line_rule_failed;
6887: END IF;
6888:
6889: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
6902: p_vendor_paysite_name => p_vendor_paysite_name,
6903: p_vendor_paysite_id => p_vendor_paysite_id
6904: );
6905:
6906: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
6907: raise line_rule_failed;
6908: END IF;
6909:
6910: l_rulv_rec := NULL;
6927: x_rgpv_rec => x_rgpv_rec,
6928: x_rulv_rec => x_rulv_rec
6929: );
6930:
6931: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
6932: raise line_rule_failed;
6933: END IF;
6934:
6935: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
6952: x_id1 => x_stream_id,
6953: x_name => l_service_name
6954: );
6955: l_progress := '1.61';
6956: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
6957: okl_api.set_message(
6958: G_APP_NAME,
6959: G_INVALID_VALUE,
6960: 'CONTRACT_NUM',
6953: x_name => l_service_name
6954: );
6955: l_progress := '1.61';
6956: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
6957: okl_api.set_message(
6958: G_APP_NAME,
6959: G_INVALID_VALUE,
6960: 'CONTRACT_NUM',
6961: p_contract_number||'/'||p_line_number,
6978: p_sty_id => x_stream_id
6979: );
6980:
6981: IF (l_present_yn <> 'Y') THEN
6982: okl_api.set_message(
6983: G_APP_NAME,
6984: G_NO_STRM_TMPL,
6985: 'CONTRACT_NUM',
6986: p_contract_number||'/'||p_line_number,
7015: x_rulv_rec => x_rulv_rec
7016: );
7017:
7018: l_progress := '1.7';
7019: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
7020: raise line_rule_failed;
7021: END IF;
7022:
7023: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
7029: IF (p_line_type = 'USAGE') THEN
7030:
7031: -- NPR is not supported on 11.5.9
7032: IF (p_usage_type_code = 'NPR') THEN
7033: okl_api.set_message(
7034: G_APP_NAME,
7035: G_UNSUPPORTED_VALUE,
7036: 'CONTRACT_NUM',
7037: p_contract_number||'/'||p_line_number,
7046: FETCH usage_type_csr INTO l_ok;
7047: CLOSE usage_type_csr;
7048:
7049: IF (l_ok <> 'Y') THEN
7050: okl_api.set_message(
7051: G_APP_NAME,
7052: G_INVALID_VALUE,
7053: 'CONTRACT_NUM',
7054: p_contract_number,
7064: AND
7065: (p_default_qty_usage IS NULL
7066: OR
7067: p_base_reading IS NULL)) THEN
7068: okl_api.set_message(
7069: G_APP_NAME,
7070: G_QA_USAGE_CHECK,
7071: 'LINE_NUM',
7072: p_line_number,
7078:
7079: IF (p_usage_type_code = 'FRT'
7080: AND
7081: p_fixed_usage_quantity IS NULL) THEN
7082: okl_api.set_message(
7083: G_APP_NAME,
7084: G_QA_FIXED_USAGE,
7085: 'LINE_NUM',
7086: p_line_number,
7111: p_org_id => p_inv_org_id,
7112: x_usage_item_id => x_usage_item_id,
7113: x_usage_id2 => x_usage_id2
7114: );
7115: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
7116: okl_api.set_message(
7117: G_APP_NAME,
7118: G_INVALID_VALUE,
7119: 'CONTRACT_NUM',
7112: x_usage_item_id => x_usage_item_id,
7113: x_usage_id2 => x_usage_id2
7114: );
7115: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
7116: okl_api.set_message(
7117: G_APP_NAME,
7118: G_INVALID_VALUE,
7119: 'CONTRACT_NUM',
7120: p_contract_number,
7146: p_price_list_id => p_price_list_id,
7147: x_price_list_id => x_price_list_id
7148: );
7149:
7150: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
7151: okl_api.set_message(
7152: G_APP_NAME,
7153: G_INVALID_VALUE,
7154: 'CONTRACT_NUM',
7147: x_price_list_id => x_price_list_id
7148: );
7149:
7150: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
7151: okl_api.set_message(
7152: G_APP_NAME,
7153: G_INVALID_VALUE,
7154: 'CONTRACT_NUM',
7155: p_contract_number,
7227: p_base_uom_code => p_base_reading_uom_code,
7228: x_base_uom_id => x_base_uom_id
7229: );
7230:
7231: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
7232: okl_api.set_message(
7233: G_APP_NAME,
7234: G_INVALID_VALUE,
7235: 'CONTRACT_NUM',
7228: x_base_uom_id => x_base_uom_id
7229: );
7230:
7231: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
7232: okl_api.set_message(
7233: G_APP_NAME,
7234: G_INVALID_VALUE,
7235: 'CONTRACT_NUM',
7236: p_contract_number,
7282: p_contract_number => p_contract_number,
7283: p_line_number => p_line_number
7284: );
7285:
7286: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
7287: raise line_rule_failed;
7288: END IF;
7289:
7290: l_rulv_rec.rule_information8 := p_usage_period;
7316: x_rulv_rec => x_rulv_rec
7317: );
7318:
7319: l_progress := '1.8';
7320: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
7321: raise line_rule_failed;
7322: END IF;
7323:
7324: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
7337: p_fee_amount_per_period IS NOT NULL) THEN
7338:
7339: okl_contract_top_line_pub.validate_fee_expense_rule(
7340: p_api_version => 1.0,
7341: p_init_msg_list => OKL_API.G_FALSE,
7342: x_return_status => x_return_status,
7343: x_msg_count => x_msg_count,
7344: x_msg_data => x_msg_data,
7345: p_chr_id => p_chr_id,
7348: p_frequency => p_fee_frequency,
7349: p_amount_per_period => p_fee_amount_per_period
7350: );
7351:
7352: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
7353: RAISE line_rule_failed;
7354: END IF;
7355:
7356: END IF;
7413: x_rgpv_rec => x_rgpv_rec,
7414: x_rulv_rec => x_rulv_rec
7415: );
7416: l_progress := '1.2';
7417: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
7418: raise line_rule_failed;
7419: END IF;
7420:
7421: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
7449: x_rgpv_rec => x_rgpv_rec,
7450: x_rulv_rec => x_rulv_rec
7451: );
7452: l_progress := '1.2';
7453: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
7454: raise line_rule_failed;
7455: END IF;
7456:
7457: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
7503: x_rgpv_rec => x_rgpv_rec,
7504: x_rulv_rec => x_rulv_rec
7505: );
7506:
7507: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
7508: raise line_rule_failed;
7509: END IF;
7510:
7511: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
7521:
7522: EXCEPTION
7523:
7524: WHEN line_rule_failed THEN
7525: x_return_status := OKL_API.G_RET_STS_ERROR;
7526: debug_message('Line rule failed : '||l_progress);
7527:
7528: WHEN OTHERS THEN
7529: okl_api.set_message(
7525: x_return_status := OKL_API.G_RET_STS_ERROR;
7526: debug_message('Line rule failed : '||l_progress);
7527:
7528: WHEN OTHERS THEN
7529: okl_api.set_message(
7530: G_APP_NAME,
7531: G_UNEXPECTED_ERROR,
7532: 'OKL_SQLCODE',
7533: SQLCODE,
7534: 'OKL_SQLERRM',
7535: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
7536: );
7537:
7538: x_return_status := OKL_API.G_RET_STS_ERROR;
7539: debug_message('line other : '||l_progress);
7540:
7541: END create_line_rules;
7542:
7568: );
7569:
7570: l_id NUMBER;
7571: BEGIN
7572: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7573:
7574: OPEN lien_csr (p_lien_holder_id,
7575: p_lien_holder_name);
7576: FETCH lien_csr INTO l_id;
7574: OPEN lien_csr (p_lien_holder_id,
7575: p_lien_holder_name);
7576: FETCH lien_csr INTO l_id;
7577: IF lien_csr%NOTFOUND THEN
7578: x_return_status := OKL_API.G_RET_STS_ERROR;
7579: RETURN NULL;
7580: END IF;
7581:
7582: CLOSE lien_csr;
7610: late_policy_type_code = p_policy_type );
7611:
7612: l_id NUMBER;
7613: BEGIN
7614: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7615:
7616: OPEN policy_csr (p_late_policy_code,
7617: p_org_id,
7618: p_late_policy_type
7618: p_late_policy_type
7619: );
7620: FETCH policy_csr INTO l_id;
7621: IF policy_csr%NOTFOUND THEN
7622: x_return_status := OKL_API.G_RET_STS_ERROR;
7623: RETURN NULL;
7624: END IF;
7625:
7626: CLOSE policy_csr;
7657: l_proc_name VARCHAR2(35) := 'GET_CASH_APPL_RULE_ID';
7658:
7659: BEGIN
7660:
7661: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7662: debug_message(l_proc_name);
7663:
7664: OPEN cash_csr (p_cash_appl_rule_name,
7665: p_org_id);
7675: IF (cash_csr%ISOPEN) THEN
7676: CLOSE cash_csr;
7677: END IF;
7678:
7679: okl_api.set_message(
7680: G_APP_NAME,
7681: G_INVALID_VALUE,
7682: 'CONTRACT_NUM',
7683: p_contract_number,
7685: 'CASH_APPL_RULE_NAME',
7686: 'COL_VALUE',
7687: p_cash_appl_rule_name
7688: );
7689: x_return_status := OKL_API.G_RET_STS_ERROR;
7690:
7691: WHEN OTHERS THEN
7692:
7693: okl_api.set_message(
7689: x_return_status := OKL_API.G_RET_STS_ERROR;
7690:
7691: WHEN OTHERS THEN
7692:
7693: okl_api.set_message(
7694: G_APP_NAME,
7695: G_UNEXPECTED_ERROR,
7696: 'OKL_SQLCODE',
7697: SQLCODE,
7698: 'OKL_SQLERRM',
7699: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
7700: );
7701:
7702: x_return_status := OKL_API.G_RET_STS_ERROR;
7703: END get_cash_appl_rule_id;
7704:
7705: function get_formula_id(p_name IN VARCHAR2,
7706: x_return_status OUT NOCOPY VARCHAR2) RETURN NUMBER IS
8124: l_tax_schedule_yn VARCHAR2(1);
8125:
8126: BEGIN
8127:
8128: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8129:
8130: --
8131: -- Always Create Re-leased asset rule
8132: -- with value = 'N'
8160: x_rgpv_rec => x_rgpv_rec,
8161: x_rulv_rec => x_rulv_rec
8162: );
8163:
8164: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8165: raise header_rule_failed;
8166: END IF;
8167:
8168: debug_message('------>Rule: LARLES/LARLES processed');
8182: p_customer_account_id => p_header_rec.customer_account_id,
8183: p_customer_account_number => p_header_rec.customer_account_number,
8184: x_customer_account_id => x_customer_account_id
8185: );
8186: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8187: x_return_status := OKL_API.G_RET_STS_ERROR;
8188: raise header_rule_failed;
8189: END IF;
8190:
8183: p_customer_account_number => p_header_rec.customer_account_number,
8184: x_customer_account_id => x_customer_account_id
8185: );
8186: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8187: x_return_status := OKL_API.G_RET_STS_ERROR;
8188: raise header_rule_failed;
8189: END IF;
8190:
8191: g_customer_account_id := x_customer_account_id; -- Used to get Bill to address at Terms Interface
8205: x_rulv_tbl => l_rulv_tbl,
8206: x_rule_count => l_rule_count
8207: );
8208:
8209: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8210: RAISE header_rule_failed;
8211: END IF;
8212:
8213: IF (l_rule_count > 0) THEN
8223: p_customer_account_id => x_customer_account_id,
8224: p_customer_account_number => NULL,
8225: x_customer_account_id => x_customer_account_id
8226: );
8227: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8228: x_return_status := OKL_API.G_RET_STS_ERROR;
8229: raise header_rule_failed;
8230: END IF;
8231:
8224: p_customer_account_number => NULL,
8225: x_customer_account_id => x_customer_account_id
8226: );
8227: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8228: x_return_status := OKL_API.G_RET_STS_ERROR;
8229: raise header_rule_failed;
8230: END IF;
8231:
8232: END IF;
8269: );
8270:
8271: l_progress := '1.3';
8272:
8273: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8274: raise header_rule_failed;
8275: END IF;
8276:
8277: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
8297: x_rulv_tbl => l_rulv_tbl,
8298: x_rule_count => l_rule_count
8299: );
8300:
8301: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8302: RAISE header_rule_failed;
8303: END IF;
8304:
8305: IF (l_rule_count > 0) THEN
8342: );
8343:
8344: l_progress := '1.5';
8345:
8346: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8347: raise header_rule_failed;
8348: END IF;
8349:
8350: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
8401: );
8402:
8403: l_progress := '1.7';
8404:
8405: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8406: raise header_rule_failed;
8407: END IF;
8408:
8409: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
8442: );
8443:
8444: l_progress := '1.8';
8445:
8446: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8447: raise header_rule_failed;
8448: END IF;
8449:
8450: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
8489: x_rulv_tbl => l_rulv_tbl,
8490: x_rule_count => l_rule_count
8491: );
8492:
8493: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8494: RAISE header_rule_failed;
8495: END IF;
8496:
8497: IF (l_rule_count > 0) THEN
8540: );
8541:
8542: l_progress := '1.9';
8543:
8544: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8545: raise header_rule_failed;
8546: END IF;
8547:
8548: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
8578: x_rulv_tbl => l_rulv_tbl,
8579: x_rule_count => l_rule_count
8580: );
8581:
8582: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8583: RAISE header_rule_failed;
8584: END IF;
8585:
8586: IF (l_rule_count > 0) THEN
8609: );
8610:
8611: l_progress := '1.10';
8612:
8613: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8614: raise header_rule_failed;
8615: END IF;
8616:
8617: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
8641: x_rulv_tbl => l_rulv_tbl,
8642: x_rule_count => l_rule_count
8643: );
8644:
8645: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8646: RAISE header_rule_failed;
8647: END IF;
8648:
8649: IF (l_rule_count > 0) THEN
8682: );
8683:
8684: l_progress := '1.11';
8685:
8686: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8687: raise header_rule_failed;
8688: END IF;
8689:
8690: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
8720: x_rulv_tbl => l_rulv_tbl,
8721: x_rule_count => l_rule_count
8722: );
8723:
8724: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8725: RAISE header_rule_failed;
8726: END IF;
8727:
8728: IF (l_rule_count > 0) THEN
8752: );
8753:
8754: l_progress := '1.11';
8755:
8756: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8757: raise header_rule_failed;
8758: END IF;
8759:
8760: -- IF (l_rgp_id IS NULL) THEN
8781: x_rulv_tbl => l_rulv_tbl,
8782: x_rule_count => l_rule_count
8783: );
8784:
8785: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8786: RAISE header_rule_failed;
8787: END IF;
8788:
8789: IF (l_rule_count > 0) THEN
8813: );
8814:
8815: l_progress := '1.11';
8816:
8817: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8818: raise header_rule_failed;
8819: END IF;
8820:
8821: --IF (l_rgp_id IS NULL) THEN
8843: x_rulv_tbl => l_rulv_tbl,
8844: x_rule_count => l_rule_count
8845: );
8846:
8847: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8848: RAISE header_rule_failed;
8849: END IF;
8850:
8851: IF (l_rule_count > 0) THEN
8860: p_org_id => p_header_rec.authoring_org_id,
8861: p_late_policy_type => 'INT'
8862: );
8863:
8864: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8865: okl_api.set_message(
8866: G_APP_NAME,
8867: G_INVALID_VALUE,
8868: 'CONTRACT_NUM',
8861: p_late_policy_type => 'INT'
8862: );
8863:
8864: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8865: okl_api.set_message(
8866: G_APP_NAME,
8867: G_INVALID_VALUE,
8868: 'CONTRACT_NUM',
8869: p_header_rec.contract_number_old,
8895: p_rulv_rec => l_rulv_rec,
8896: x_rgpv_rec => x_rgpv_rec,
8897: x_rulv_rec => x_rulv_rec
8898: );
8899: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8900: raise header_rule_failed;
8901: END IF;
8902:
8903: --IF (l_rgp_id IS NULL) THEN
8934: x_rulv_tbl => l_rulv_tbl,
8935: x_rule_count => l_rule_count
8936: );
8937:
8938: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8939: RAISE header_rule_failed;
8940: END IF;
8941:
8942: IF (l_rule_count > 0) THEN
8965: );
8966:
8967: l_progress := '1.12';
8968:
8969: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8970: raise header_rule_failed;
8971: END IF;
8972:
8973: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- Bug 5085099
8993: x_rulv_tbl => l_rulv_tbl,
8994: x_rule_count => l_rule_count
8995: );
8996:
8997: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8998: RAISE header_rule_failed;
8999: END IF;
9000:
9001: IF (l_rule_count > 0) THEN
9009: p_late_policy_code => l_late_charge_product_code,
9010: p_org_id => p_header_rec.authoring_org_id,
9011: p_late_policy_type => 'CHG'
9012: );
9013: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9014: okl_api.set_message(
9015: G_APP_NAME,
9016: G_INVALID_VALUE,
9017: 'CONTRACT_NUM',
9010: p_org_id => p_header_rec.authoring_org_id,
9011: p_late_policy_type => 'CHG'
9012: );
9013: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9014: okl_api.set_message(
9015: G_APP_NAME,
9016: G_INVALID_VALUE,
9017: 'CONTRACT_NUM',
9018: p_header_rec.contract_number_old,
9047: );
9048:
9049: l_progress := '1.13';
9050:
9051: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9052: raise header_rule_failed;
9053: END IF;
9054:
9055: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- Bug 5085099
9076: x_rulv_tbl => l_rulv_tbl,
9077: x_rule_count => l_rule_count
9078: );
9079:
9080: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9081: RAISE header_rule_failed;
9082: END IF;
9083:
9084: IF (l_rule_count > 0) THEN
9107: );
9108:
9109: l_progress := '1.14';
9110:
9111: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9112: raise header_rule_failed;
9113: END IF;
9114:
9115: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
9144: x_rulv_tbl => l_rulv_tbl,
9145: x_rule_count => l_rule_count
9146: );
9147:
9148: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9149: RAISE header_rule_failed;
9150: END IF;
9151:
9152: IF (l_rule_count > 0) THEN
9175: x_rulv_rec => x_rulv_rec
9176: );
9177:
9178: l_progress := '1.141';
9179: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9180: raise header_rule_failed;
9181: END IF;
9182:
9183: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
9214: x_rulv_tbl => l_rulv_tbl,
9215: x_rule_count => l_rule_count
9216: );
9217:
9218: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9219: RAISE header_rule_failed;
9220: END IF;
9221:
9222: IF (l_rule_count > 0) THEN
9275: );
9276:
9277: l_progress := '1.15';
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
9325: x_rulv_tbl => l_rulv_tbl,
9326: x_rule_count => l_rule_count
9327: );
9328:
9329: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9330: RAISE header_rule_failed;
9331: END IF;
9332:
9333: IF (l_rule_count > 0) THEN
9357: x_return_status => x_return_status,
9358: p_index_name => l_index_name,
9359: x_index_id => x_index_id
9360: );
9361: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9362: okl_api.set_message(
9363: G_APP_NAME,
9364: G_INVALID_VALUE,
9365: 'CONTRACT_NUM',
9358: p_index_name => l_index_name,
9359: x_index_id => x_index_id
9360: );
9361: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9362: okl_api.set_message(
9363: G_APP_NAME,
9364: G_INVALID_VALUE,
9365: 'CONTRACT_NUM',
9366: p_header_rec.contract_number_old,
9447: x_rulv_rec => x_rulv_rec
9448: );
9449:
9450: l_progress := '1.16';
9451: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9452: x_return_status := OKL_API.G_RET_STS_ERROR;
9453: raise header_rule_failed;
9454: END IF;
9455:
9448: );
9449:
9450: l_progress := '1.16';
9451: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9452: x_return_status := OKL_API.G_RET_STS_ERROR;
9453: raise header_rule_failed;
9454: END IF;
9455:
9456: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
9489: x_rulv_tbl => l_rulv_tbl,
9490: x_rule_count => l_rule_count
9491: );
9492:
9493: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9494: RAISE header_rule_failed;
9495: END IF;
9496:
9497: IF (l_rule_count > 0) THEN
9558: x_rulv_rec => x_rulv_rec
9559: );
9560:
9561: l_progress := '1.17';
9562: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9563: x_return_status := OKL_API.G_RET_STS_ERROR;
9564: raise header_rule_failed;
9565: END IF;
9566:
9559: );
9560:
9561: l_progress := '1.17';
9562: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9563: x_return_status := OKL_API.G_RET_STS_ERROR;
9564: raise header_rule_failed;
9565: END IF;
9566:
9567: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
9587: x_rulv_tbl => l_rulv_tbl,
9588: x_rule_count => l_rule_count
9589: );
9590:
9591: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9592: RAISE header_rule_failed;
9593: END IF;
9594:
9595: IF (l_rule_count > 0) THEN
9617: x_rulv_rec => x_rulv_rec
9618: );
9619:
9620: l_progress := '1.18';
9621: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9622: x_return_status := OKL_API.G_RET_STS_ERROR;
9623: raise header_rule_failed;
9624: END IF;
9625:
9618: );
9619:
9620: l_progress := '1.18';
9621: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9622: x_return_status := OKL_API.G_RET_STS_ERROR;
9623: raise header_rule_failed;
9624: END IF;
9625:
9626: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
9660: x_return_status => x_return_status,
9661: p_index_name => p_header_rec.INDEX_NAME,
9662: x_index_id => l_index_id
9663: );
9664: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9665: okl_api.set_message(
9666: G_APP_NAME,
9667: G_INVALID_VALUE,
9668: 'CONTRACT_NUM',
9661: p_index_name => p_header_rec.INDEX_NAME,
9662: x_index_id => l_index_id
9663: );
9664: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9665: okl_api.set_message(
9666: G_APP_NAME,
9667: G_INVALID_VALUE,
9668: 'CONTRACT_NUM',
9669: p_header_rec.contract_number_old,
9829: l_formula_id := get_formula_id(p_header_rec.FORMULA_NAME,
9830: x_return_status);
9831: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
9832: --AKP: Todo: set message: Invalid formula name 5024651
9833: okl_api.set_message(
9834: G_APP_NAME,
9835: G_INVALID_VALUE,
9836: 'CONTRACT_NUM',
9837: p_header_rec.contract_number_old,
10043: x_return_status => x_return_status,
10044: p_index_name => p_header_rec.INT_RATE_CON_INDEX_NAME,
10045: x_index_id => x_index_id
10046: );
10047: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10048: okl_api.set_message(
10049: G_APP_NAME,
10050: G_INVALID_VALUE,
10051: 'CONTRACT_NUM',
10044: p_index_name => p_header_rec.INT_RATE_CON_INDEX_NAME,
10045: x_index_id => x_index_id
10046: );
10047: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10048: okl_api.set_message(
10049: G_APP_NAME,
10050: G_INVALID_VALUE,
10051: 'CONTRACT_NUM',
10052: p_header_rec.contract_number_old,
10211: l_formula_id := get_formula_id(p_header_rec.INT_RATE_CON_FORMULA_NAME,
10212: x_return_status);
10213: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
10214: --AKP: Todo: set message: Invalid formula name 5024651
10215: okl_api.set_message(
10216: G_APP_NAME,
10217: G_INVALID_VALUE,
10218: 'CONTRACT_NUM',
10219: p_header_rec.contract_number_old,
10359: x_msg_count => x_msg_count,
10360: x_msg_data => x_msg_data,
10361: p_product_id => G_PRODUCT_ID,
10362: p_k_rate_tbl => l_k_rate_tbl);
10363: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10364: RAISE header_rule_failed;
10365: ELSE
10366: FOR krpv_rec_cnt IN l_k_rate_tbl.FIRST..l_k_rate_tbl.LAST
10367: LOOP
10373: x_msg_data => x_msg_data,
10374: p_krpv_rec => l_k_rate_tbl(krpv_rec_cnt),
10375: x_krpv_rec => x_krpv_rec,
10376: p_validate_flag => 'N');
10377: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10378: RAISE header_rule_failed;
10379: END IF;
10380: END LOOP;
10381: END IF;
10415: x_rulv_tbl => l_rulv_tbl,
10416: x_rule_count => l_rule_count
10417: );
10418:
10419: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10420: RAISE header_rule_failed;
10421: END IF;
10422:
10423: IF (l_rule_count > 0) THEN
10466: x_rulv_rec => x_rulv_rec
10467: );
10468:
10469: l_progress := '1.19';
10470: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10471: x_return_status := OKL_API.G_RET_STS_ERROR;
10472: raise header_rule_failed;
10473: END IF;
10474:
10467: );
10468:
10469: l_progress := '1.19';
10470: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10471: x_return_status := OKL_API.G_RET_STS_ERROR;
10472: raise header_rule_failed;
10473: END IF;
10474:
10475: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
10503: x_rulv_tbl => l_rulv_tbl,
10504: x_rule_count => l_rule_count
10505: );
10506:
10507: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10508: RAISE header_rule_failed;
10509: END IF;
10510:
10511: IF (l_rule_count > 0) THEN
10533: x_rulv_rec => x_rulv_rec
10534: );
10535:
10536: l_progress := '1.20';
10537: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10538: x_return_status := OKL_API.G_RET_STS_ERROR;
10539: raise header_rule_failed;
10540: END IF;
10541:
10534: );
10535:
10536: l_progress := '1.20';
10537: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10538: x_return_status := OKL_API.G_RET_STS_ERROR;
10539: raise header_rule_failed;
10540: END IF;
10541:
10542: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
10565: x_rulv_tbl => l_rulv_tbl,
10566: x_rule_count => l_rule_count
10567: );
10568:
10569: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10570: RAISE header_rule_failed;
10571: END IF;
10572:
10573: IF (l_rule_count > 0) THEN
10604: x_rgpv_rec => x_rgpv_rec,
10605: x_rulv_rec => x_rulv_rec
10606: );
10607:
10608: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10609: x_return_status := OKL_API.G_RET_STS_ERROR;
10610: raise header_rule_failed;
10611: END IF;
10612:
10605: x_rulv_rec => x_rulv_rec
10606: );
10607:
10608: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10609: x_return_status := OKL_API.G_RET_STS_ERROR;
10610: raise header_rule_failed;
10611: END IF;
10612:
10613: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
10643: p_customer_account_id => x_customer_account_id,
10644: x_bill_to_address_id => x_bill_to_address_id
10645: );
10646:
10647: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10648: x_return_status := OKL_API.G_RET_STS_ERROR;
10649: raise header_rule_failed;
10650: END IF;
10651:
10644: x_bill_to_address_id => x_bill_to_address_id
10645: );
10646:
10647: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10648: x_return_status := OKL_API.G_RET_STS_ERROR;
10649: raise header_rule_failed;
10650: END IF;
10651:
10652: ELSE
10662: x_rulv_tbl => l_rulv_tbl,
10663: x_rule_count => l_rule_count
10664: );
10665:
10666: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10667: RAISE header_rule_failed;
10668: END IF;
10669:
10670: IF (l_rule_count > 0) THEN
10703: x_rgpv_rec => x_rgpv_rec,
10704: x_rulv_rec => x_rulv_rec
10705: );
10706:
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: x_rulv_rec => x_rulv_rec
10705: );
10706:
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
10723: p_customer_id => p_header_rec.customer_id,
10724: p_customer_number => p_header_rec.customer_number,
10725: x_id1 => l_customer_id
10726: );
10727: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10728: x_return_status := OKL_API.G_RET_STS_ERROR;
10729: raise header_rule_failed;
10730: END IF;
10731: ELSE
10724: p_customer_number => p_header_rec.customer_number,
10725: x_id1 => l_customer_id
10726: );
10727: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10728: x_return_status := OKL_API.G_RET_STS_ERROR;
10729: raise header_rule_failed;
10730: END IF;
10731: ELSE
10732: -- Get customer info from template_contract
10752: p_cust_site_id => g_bill_to_address_id,
10753: x_bank_account_id => x_bank_account_id
10754: );
10755:
10756: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10757: x_return_status := OKL_API.G_RET_STS_ERROR;
10758: raise header_rule_failed;
10759: END IF;
10760:
10753: x_bank_account_id => x_bank_account_id
10754: );
10755:
10756: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10757: x_return_status := OKL_API.G_RET_STS_ERROR;
10758: raise header_rule_failed;
10759: END IF;
10760:
10761: ELSE
10771: x_rulv_tbl => l_rulv_tbl,
10772: x_rule_count => l_rule_count
10773: );
10774:
10775: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10776: RAISE header_rule_failed;
10777: END IF;
10778:
10779: IF (l_rule_count > 0) THEN
10803: x_rgpv_rec => x_rgpv_rec,
10804: x_rulv_rec => x_rulv_rec
10805: );
10806:
10807: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10808: x_return_status := OKL_API.G_RET_STS_ERROR;
10809: raise header_rule_failed;
10810: END IF;
10811:
10804: x_rulv_rec => x_rulv_rec
10805: );
10806:
10807: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10808: x_return_status := OKL_API.G_RET_STS_ERROR;
10809: raise header_rule_failed;
10810: END IF;
10811:
10812: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
10837: x_rulv_tbl => l_rulv_tbl,
10838: x_rule_count => l_rule_count
10839: );
10840:
10841: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10842: RAISE header_rule_failed;
10843: END IF;
10844:
10845: IF (l_rule_count > 0) THEN
10876: x_rgpv_rec => x_rgpv_rec,
10877: x_rulv_rec => x_rulv_rec
10878: );
10879:
10880: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10881: x_return_status := OKL_API.G_RET_STS_ERROR;
10882: raise header_rule_failed;
10883: END IF;
10884:
10877: x_rulv_rec => x_rulv_rec
10878: );
10879:
10880: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10881: x_return_status := OKL_API.G_RET_STS_ERROR;
10882: raise header_rule_failed;
10883: END IF;
10884:
10885: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
10901: x_invoice_format_id => x_invoice_format_id,
10902: x_invoice_format_name => x_invoice_format_name
10903: );
10904:
10905: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10906: x_return_status := OKL_API.G_RET_STS_ERROR;
10907: raise header_rule_failed;
10908: END IF;
10909: END IF;
10902: x_invoice_format_name => x_invoice_format_name
10903: );
10904:
10905: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10906: x_return_status := OKL_API.G_RET_STS_ERROR;
10907: raise header_rule_failed;
10908: END IF;
10909: END IF;
10910:
10919: p_cash_appl_rule_name => p_header_rec.cash_appl_rule_name,
10920: x_cash_appl_rule_id => x_cash_appl_rule_id
10921: );
10922:
10923: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10924: x_return_status := OKL_API.G_RET_STS_ERROR;
10925: raise header_rule_failed;
10926: END IF;
10927:
10920: x_cash_appl_rule_id => x_cash_appl_rule_id
10921: );
10922:
10923: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10924: x_return_status := OKL_API.G_RET_STS_ERROR;
10925: raise header_rule_failed;
10926: END IF;
10927:
10928: END IF;
10950: x_rulv_tbl => l_rulv_tbl,
10951: x_rule_count => l_rule_count
10952: );
10953:
10954: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10955: RAISE header_rule_failed;
10956: END IF;
10957:
10958: IF (l_rule_count > 0) THEN
11018: x_rgpv_rec => x_rgpv_rec,
11019: x_rulv_rec => x_rulv_rec
11020: );
11021:
11022: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11023: x_return_status := OKL_API.G_RET_STS_ERROR;
11024: raise header_rule_failed;
11025: END IF;
11026:
11019: x_rulv_rec => x_rulv_rec
11020: );
11021:
11022: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11023: x_return_status := OKL_API.G_RET_STS_ERROR;
11024: raise header_rule_failed;
11025: END IF;
11026:
11027: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- Bug 5085099
11044: p_payment_method => p_header_rec.payment_method,
11045: x_payment_method_id => x_payment_method_id
11046: );
11047:
11048: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11049: x_return_status := OKL_API.G_RET_STS_ERROR;
11050: raise header_rule_failed;
11051: END IF;
11052:
11045: x_payment_method_id => x_payment_method_id
11046: );
11047:
11048: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11049: x_return_status := OKL_API.G_RET_STS_ERROR;
11050: raise header_rule_failed;
11051: END IF;
11052:
11053: ELSE
11063: x_rulv_tbl => l_rulv_tbl,
11064: x_rule_count => l_rule_count
11065: );
11066:
11067: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11068: RAISE header_rule_failed;
11069: END IF;
11070:
11071: IF (l_rule_count > 0) THEN
11097: x_rgpv_rec => x_rgpv_rec,
11098: x_rulv_rec => x_rulv_rec
11099: );
11100:
11101: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11102: x_return_status := OKL_API.G_RET_STS_ERROR;
11103: raise header_rule_failed;
11104: END IF;
11105:
11098: x_rulv_rec => x_rulv_rec
11099: );
11100:
11101: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11102: x_return_status := OKL_API.G_RET_STS_ERROR;
11103: raise header_rule_failed;
11104: END IF;
11105:
11106: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
11133: x_rulv_tbl => l_rulv_tbl,
11134: x_rule_count => l_rule_count
11135: );
11136:
11137: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11138: RAISE header_rule_failed;
11139: END IF;
11140:
11141: IF (l_rule_count > 0) THEN
11163: x_rgpv_rec => x_rgpv_rec,
11164: x_rulv_rec => x_rulv_rec
11165: );
11166:
11167: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11168: raise header_rule_failed;
11169: END IF;
11170:
11171: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
11200: x_rulv_tbl => l_rulv_tbl,
11201: x_rule_count => l_rule_count
11202: );
11203:
11204: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11205: RAISE header_rule_failed;
11206: END IF;
11207:
11208: IF (l_rule_count > 0) THEN
11230: x_rgpv_rec => x_rgpv_rec,
11231: x_rulv_rec => x_rulv_rec
11232: );
11233:
11234: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11235: raise header_rule_failed;
11236: END IF;
11237:
11238: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
11268: x_rulv_tbl => l_rulv_tbl,
11269: x_rule_count => l_rule_count
11270: );
11271:
11272: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11273: RAISE header_rule_failed;
11274: END IF;
11275:
11276: IF (l_rule_count > 0) THEN
11286: OPEN contract_csr(p_chr_id);
11287: FETCH contract_csr INTO l_contract_number,l_contract_start_date;
11288:
11289: IF contract_csr%NOTFOUND THEN
11290: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
11291: CLOSE contract_csr;
11292: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
11293: p_msg_name => 'OKL_LLA_CHR_ID');
11294: RAISE header_rule_failed;
11288:
11289: IF contract_csr%NOTFOUND THEN
11290: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
11291: CLOSE contract_csr;
11292: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
11293: p_msg_name => 'OKL_LLA_CHR_ID');
11294: RAISE header_rule_failed;
11295: END IF;
11296:
11305: l_rvi_stream_purpose_code IS NULL) OR
11306: (l_rvi_stream_code IS NULL AND
11307: l_rvi_stream_purpose_code IS NOT NULL)) THEN
11308:
11309: okl_api.set_message(
11310: G_APP_NAME,
11311: G_INVALID_VALUE,
11312: 'CONTRACT_NUM',
11313: l_contract_number, --||'/'||TO_CHAR(p_line_number),
11315: 'RVI_STREAM_CODE, RVI_STREAM_PURPOSE_CODE',
11316: 'COL_VALUE',
11317: l_rvi_stream_code||', '||l_rvi_stream_purpose_code
11318: );
11319: x_return_status := OKL_API.G_RET_STS_ERROR;
11320: RAISE header_rule_failed;
11321:
11322: ELSIF (l_rvi_stream_code IS NOT NULL AND
11323: l_rvi_stream_purpose_code IS NOT NULL) THEN
11329: p_stream_purpose => l_rvi_stream_purpose_code,
11330: x_id1 => l_rvi_stream_type_id,
11331: x_name => l_rvi_stream_name
11332: );
11333: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11334: okl_api.set_message(
11335: G_APP_NAME,
11336: G_INVALID_VALUE,
11337: 'CONTRACT_NUM',
11330: x_id1 => l_rvi_stream_type_id,
11331: x_name => l_rvi_stream_name
11332: );
11333: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11334: okl_api.set_message(
11335: G_APP_NAME,
11336: G_INVALID_VALUE,
11337: 'CONTRACT_NUM',
11338: l_contract_number, --||'/'||TO_CHAR(p_line_number),
11340: 'RVI_STREAM_CODE, RVI_STREAM_PURPOSE_CODE',
11341: 'COL_VALUE',
11342: l_rvi_stream_code||', '||l_rvi_stream_purpose_code
11343: );
11344: x_return_status := OKL_API.G_RET_STS_ERROR;
11345: RAISE header_rule_failed;
11346: END IF;
11347:
11348: debug_message('l_rvi_stream_type_id=' || l_rvi_stream_type_id);
11351: FETCH rvi_stream_csr INTO l_yn;
11352:
11353: IF rvi_stream_csr%NOTFOUND THEN
11354: CLOSE rvi_stream_csr;
11355: okl_api.set_message(
11356: G_APP_NAME,
11357: G_NO_STRM_TMPL,
11358: 'CONTRACT_NUM',
11359: l_contract_number, --||'/'||p_line_number,
11371: l_fee_types_rec.dnz_chr_id := p_chr_id;
11372: l_fee_types_rec.item_id1 := l_rvi_stream_type_id;
11373: OKL_MAINTAIN_FEE_PVT.PROCESS_RVI_STREAM(
11374: p_api_version => 1.0,
11375: p_init_msg_list => OKL_API.G_FALSE,
11376: x_return_status => x_return_status,
11377: x_msg_count => x_msg_count,
11378: x_msg_data => x_msg_data,
11379: p_check_box_value => 'Y',
11379: p_check_box_value => 'Y',
11380: p_fee_types_rec => l_fee_types_rec,
11381: x_fee_types_rec => x_fee_types_rec);
11382:
11383: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11384: raise header_rule_failed;
11385: END IF;
11386:
11387:
11402: x_rgpv_rec => x_rgpv_rec,
11403: x_rulv_rec => x_rulv_rec
11404: );
11405:
11406: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11407: raise header_rule_failed;
11408: END IF;
11409:
11410: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
11470: x_rulv_tbl => l_rulv_tbl,
11471: x_rule_count => l_rule_count
11472: );
11473:
11474: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11475: RAISE header_rule_failed;
11476: END IF;
11477:
11478: IF (l_rule_count > 0) THEN
11501: x_rgpv_rec => x_rgpv_rec,
11502: x_rulv_rec => x_rulv_rec
11503: );
11504:
11505: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11506: raise header_rule_failed;
11507: END IF;
11508:
11509: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
11537: x_rulv_tbl => l_rulv_tbl,
11538: x_rule_count => l_rule_count
11539: );
11540:
11541: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11542: RAISE header_rule_failed;
11543: END IF;
11544:
11545: IF (l_rule_count > 0) THEN
11566: x_rgpv_rec => x_rgpv_rec,
11567: x_rulv_rec => x_rulv_rec
11568: );
11569:
11570: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11571: raise header_rule_failed;
11572: END IF;
11573:
11574: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
11596: x_rulv_tbl => l_rulv_tbl,
11597: x_rule_count => l_rule_count
11598: );
11599:
11600: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11601: RAISE header_rule_failed;
11602: END IF;
11603:
11604: IF (l_rule_count > 0) THEN
11625: x_rgpv_rec => x_rgpv_rec,
11626: x_rulv_rec => x_rulv_rec
11627: );
11628:
11629: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11630: raise header_rule_failed;
11631: END IF;
11632:
11633: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
11668: x_rulv_tbl => l_rulv_tbl,
11669: x_rule_count => l_rule_count
11670: );
11671:
11672: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11673: RAISE header_rule_failed;
11674: END IF;
11675:
11676: IF (l_rule_count > 0) THEN
11697: x_rgpv_rec => x_rgpv_rec,
11698: x_rulv_rec => x_rulv_rec
11699: );
11700:
11701: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11702: raise header_rule_failed;
11703: END IF;
11704:
11705: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
11737: x_rulv_tbl => l_rulv_tbl,
11738: x_rule_count => l_rule_count
11739: );
11740:
11741: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11742: RAISE header_rule_failed;
11743: END IF;
11744:
11745: IF (l_rule_count > 0) THEN
11767: x_rgpv_rec => x_rgpv_rec,
11768: x_rulv_rec => x_rulv_rec
11769: );
11770:
11771: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11772: raise header_rule_failed;
11773: END IF;
11774:
11775:
11808: x_rulv_tbl => l_rulv_tbl,
11809: x_rule_count => l_rule_count
11810: );
11811:
11812: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11813: RAISE header_rule_failed;
11814: END IF;
11815:
11816: IF (l_rule_count > 0) THEN
11847: x_rgpv_rec => x_rgpv_rec,
11848: x_rulv_rec => x_rulv_rec
11849: );
11850:
11851: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11852: raise header_rule_failed;
11853: END IF;
11854:
11855: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
11889: x_rulv_tbl => l_rulv_tbl,
11890: x_rule_count => l_rule_count
11891: );
11892:
11893: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11894: RAISE header_rule_failed;
11895: END IF;
11896:
11897: IF (l_rule_count > 0) THEN
11928: x_rgpv_rec => x_rgpv_rec,
11929: x_rulv_rec => x_rulv_rec
11930: );
11931:
11932: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11933: raise header_rule_failed;
11934: END IF;
11935:
11936: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
11964: x_rulv_tbl => l_rulv_tbl,
11965: x_rule_count => l_rule_count
11966: );
11967:
11968: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
11969: RAISE header_rule_failed;
11970: END IF;
11971:
11972: IF (l_rule_count > 0) THEN
12023: x_rgpv_rec => x_rgpv_rec,
12024: x_rulv_rec => x_rulv_rec
12025: );
12026:
12027: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
12028: raise header_rule_failed;
12029: END IF;
12030:
12031: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
12060: x_rulv_tbl => l_rulv_tbl,
12061: x_rule_count => l_rule_count
12062: );
12063:
12064: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
12065: RAISE header_rule_failed;
12066: END IF;
12067:
12068: IF (l_rule_count > 0) THEN
12119: x_rgpv_rec => x_rgpv_rec,
12120: x_rulv_rec => x_rulv_rec
12121: );
12122:
12123: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
12124: raise header_rule_failed;
12125: END IF;
12126:
12127: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
12155: x_rulv_tbl => l_rulv_tbl,
12156: x_rule_count => l_rule_count
12157: );
12158:
12159: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
12160: RAISE header_rule_failed;
12161: END IF;
12162:
12163: IF (l_rule_count > 0) THEN
12214: x_rgpv_rec => x_rgpv_rec,
12215: x_rulv_rec => x_rulv_rec
12216: );
12217:
12218: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
12219: raise header_rule_failed;
12220: END IF;
12221:
12222: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
12282: x_rulv_tbl => l_rulv_tbl,
12283: x_rule_count => l_rule_count
12284: );
12285:
12286: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
12287: RAISE header_rule_failed;
12288: END IF;
12289:
12290: IF (l_rule_count > 0) THEN
12411: x_rgpv_rec => x_rgpv_rec,
12412: x_rulv_rec => x_rulv_rec
12413: );
12414:
12415: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
12416: raise header_rule_failed;
12417: END IF;
12418:
12419: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
12479: x_rulv_tbl => l_rulv_tbl,
12480: x_rule_count => l_rule_count
12481: );
12482:
12483: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
12484: RAISE header_rule_failed;
12485: END IF;
12486:
12487: IF (l_rule_count > 0) THEN
12608: x_rgpv_rec => x_rgpv_rec,
12609: x_rulv_rec => x_rulv_rec
12610: );
12611:
12612: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
12613: raise header_rule_failed;
12614: END IF;
12615:
12616: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
12637: x_rulv_tbl => l_rulv_tbl,
12638: x_rule_count => l_rule_count
12639: );
12640:
12641: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
12642: RAISE header_rule_failed;
12643: END IF;
12644:
12645: IF (l_rule_count > 0) THEN
12666: x_rgpv_rec => x_rgpv_rec,
12667: x_rulv_rec => x_rulv_rec
12668: );
12669:
12670: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
12671: raise header_rule_failed;
12672: END IF;
12673:
12674: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
12690: l_rulv_rec := NULL;
12691:
12692: -- cklee bug# 3440442 bug# 3440442
12693: IF (NVL(p_header_rec.tqp_erl_termination_alwd_flag,'N') NOT IN ('Y','N')) THEN
12694: okl_api.set_message(
12695: G_APP_NAME,
12696: G_INVALID_VALUE,
12697: 'CONTRACT_NUM',
12698: p_header_rec.contract_number_old,
12701: 'COL_VALUE',
12702: p_header_rec.tqp_erl_termination_alwd_flag
12703: );
12704:
12705: x_return_status := OKL_API.G_RET_STS_ERROR;
12706:
12707: raise header_rule_failed;
12708: END IF;
12709: -- cklee bug# 3440442 bug# 3440442
12724: x_rulv_tbl => l_rulv_tbl,
12725: x_rule_count => l_rule_count
12726: );
12727:
12728: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
12729: RAISE header_rule_failed;
12730: END IF;
12731:
12732: IF (l_rule_count > 0) THEN
12753: x_rgpv_rec => x_rgpv_rec,
12754: x_rulv_rec => x_rulv_rec
12755: );
12756:
12757: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
12758: raise header_rule_failed;
12759: END IF;
12760:
12761: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
12780: x_rulv_tbl => l_rulv_tbl,
12781: x_rule_count => l_rule_count
12782: );
12783:
12784: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
12785: RAISE header_rule_failed;
12786: END IF;
12787:
12788: IF (l_rule_count > 0) THEN
12809: x_rgpv_rec => x_rgpv_rec,
12810: x_rulv_rec => x_rulv_rec
12811: );
12812:
12813: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
12814: raise header_rule_failed;
12815: END IF;
12816:
12817: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
12840: x_rulv_tbl => l_rulv_tbl,
12841: x_rule_count => l_rule_count
12842: );
12843:
12844: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
12845: RAISE header_rule_failed;
12846: END IF;
12847:
12848: IF (l_rule_count > 0) THEN
12879: x_rgpv_rec => x_rgpv_rec,
12880: x_rulv_rec => x_rulv_rec
12881: );
12882:
12883: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
12884: raise header_rule_failed;
12885: END IF;
12886:
12887: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
12906: x_rulv_tbl => l_rulv_tbl,
12907: x_rule_count => l_rule_count
12908: );
12909:
12910: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
12911: RAISE header_rule_failed;
12912: END IF;
12913:
12914: IF (l_rule_count > 0) THEN
12935: x_rgpv_rec => x_rgpv_rec,
12936: x_rulv_rec => x_rulv_rec
12937: );
12938:
12939: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
12940: raise header_rule_failed;
12941: END IF;
12942:
12943: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
12966: x_rulv_tbl => l_rulv_tbl,
12967: x_rule_count => l_rule_count
12968: );
12969:
12970: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
12971: RAISE header_rule_failed;
12972: END IF;
12973:
12974: IF (l_rule_count > 0) THEN
12995: x_rgpv_rec => x_rgpv_rec,
12996: x_rulv_rec => x_rulv_rec
12997: );
12998:
12999: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
13000: raise header_rule_failed;
13001: END IF;
13002:
13003: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
13023: x_rulv_tbl => l_rulv_tbl,
13024: x_rule_count => l_rule_count
13025: );
13026:
13027: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
13028: RAISE header_rule_failed;
13029: END IF;
13030:
13031: IF (l_rule_count > 0) THEN
13052: x_rgpv_rec => x_rgpv_rec,
13053: x_rulv_rec => x_rulv_rec
13054: );
13055:
13056: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
13057: raise header_rule_failed;
13058: END IF;
13059:
13060: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
13080: x_rulv_tbl => l_rulv_tbl,
13081: x_rule_count => l_rule_count
13082: );
13083:
13084: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
13085: RAISE header_rule_failed;
13086: END IF;
13087:
13088: IF (l_rule_count > 0) THEN
13109: x_rgpv_rec => x_rgpv_rec,
13110: x_rulv_rec => x_rulv_rec
13111: );
13112:
13113: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
13114: raise header_rule_failed;
13115: END IF;
13116:
13117: 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
13177: x_rgpv_rec => x_rgpv_rec,
13178: x_rulv_rec => x_rulv_rec
13179: );
13180:
13181: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
13182: raise header_rule_failed;
13183: END IF;
13184:
13185: 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
13234: x_rgpv_rec => x_rgpv_rec,
13235: x_rulv_rec => x_rulv_rec
13236: );
13237:
13238: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
13239: raise header_rule_failed;
13240: END IF;
13241:
13242: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
13273: x_rulv_tbl => l_rulv_tbl,
13274: x_rule_count => l_rule_count
13275: );
13276:
13277: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
13278: RAISE header_rule_failed;
13279: END IF;
13280:
13281: IF (l_rule_count > 0) THEN
13302: x_rgpv_rec => x_rgpv_rec,
13303: x_rulv_rec => x_rulv_rec
13304: );
13305:
13306: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
13307: raise header_rule_failed;
13308: END IF;
13309:
13310: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
13351: x_rulv_tbl => l_rulv_tbl,
13352: x_rule_count => l_rule_count
13353: );
13354:
13355: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
13356: RAISE header_rule_failed;
13357: END IF;
13358:
13359: IF (l_rule_count > 0) THEN
13450: x_rgpv_rec => x_rgpv_rec,
13451: x_rulv_rec => x_rulv_rec
13452: );
13453:
13454: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
13455: raise header_rule_failed;
13456: END IF;
13457:
13458: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
13487: x_rulv_tbl => l_rulv_tbl,
13488: x_rule_count => l_rule_count
13489: );
13490:
13491: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
13492: RAISE header_rule_failed;
13493: END IF;
13494:
13495: IF (l_rule_count > 0) THEN
13516: x_rgpv_rec => x_rgpv_rec,
13517: x_rulv_rec => x_rulv_rec
13518: );
13519:
13520: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
13521: raise header_rule_failed;
13522: END IF;
13523:
13524: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
13549: x_rulv_tbl => l_rulv_tbl,
13550: x_rule_count => l_rule_count
13551: );
13552:
13553: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
13554: RAISE header_rule_failed;
13555: END IF;
13556:
13557: IF (l_rule_count > 0) THEN
13588: x_rgpv_rec => x_rgpv_rec,
13589: x_rulv_rec => x_rulv_rec
13590: );
13591:
13592: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
13593: raise header_rule_failed;
13594: END IF;
13595:
13596: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
13626: x_rulv_tbl => l_rulv_tbl,
13627: x_rule_count => l_rule_count
13628: );
13629:
13630: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
13631: RAISE header_rule_failed;
13632: END IF;
13633:
13634: IF (l_rule_count > 0) THEN
13655: x_rgpv_rec => x_rgpv_rec,
13656: x_rulv_rec => x_rulv_rec
13657: );
13658:
13659: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
13660: raise header_rule_failed;
13661: END IF;
13662:
13663: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
13686: x_rulv_tbl => l_rulv_tbl,
13687: x_rule_count => l_rule_count
13688: );
13689:
13690: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
13691: RAISE header_rule_failed;
13692: END IF;
13693:
13694: IF (l_rule_count > 0) THEN
13725: x_rgpv_rec => x_rgpv_rec,
13726: x_rulv_rec => x_rulv_rec
13727: );
13728:
13729: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
13730: raise header_rule_failed;
13731: END IF;
13732:
13733: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
13763: x_rulv_tbl => l_rulv_tbl,
13764: x_rule_count => l_rule_count
13765: );
13766:
13767: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
13768: RAISE header_rule_failed;
13769: END IF;
13770:
13771: IF (l_rule_count > 0) THEN
13792: x_rgpv_rec => x_rgpv_rec,
13793: x_rulv_rec => x_rulv_rec
13794: );
13795:
13796: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
13797: raise header_rule_failed;
13798: END IF;
13799:
13800: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
13833: x_rulv_tbl => l_rulv_tbl,
13834: x_rule_count => l_rule_count
13835: );
13836:
13837: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
13838: RAISE header_rule_failed;
13839: END IF;
13840:
13841: IF (l_rule_count > 0) THEN
13872: x_rgpv_rec => x_rgpv_rec,
13873: x_rulv_rec => x_rulv_rec
13874: );
13875:
13876: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
13877: raise header_rule_failed;
13878: END IF;
13879:
13880: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
13908: x_rulv_tbl => l_rulv_tbl,
13909: x_rule_count => l_rule_count
13910: );
13911:
13912: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
13913: RAISE header_rule_failed;
13914: END IF;
13915:
13916: IF (l_rule_count > 0) THEN
13967: x_rgpv_rec => x_rgpv_rec,
13968: x_rulv_rec => x_rulv_rec
13969: );
13970:
13971: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
13972: raise header_rule_failed;
13973: END IF;
13974:
13975: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
14003: x_rulv_tbl => l_rulv_tbl,
14004: x_rule_count => l_rule_count
14005: );
14006:
14007: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
14008: RAISE header_rule_failed;
14009: END IF;
14010:
14011: IF (l_rule_count > 0) THEN
14062: x_rgpv_rec => x_rgpv_rec,
14063: x_rulv_rec => x_rulv_rec
14064: );
14065:
14066: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
14067: raise header_rule_failed;
14068: END IF;
14069:
14070: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
14098: x_rulv_tbl => l_rulv_tbl,
14099: x_rule_count => l_rule_count
14100: );
14101:
14102: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
14103: RAISE header_rule_failed;
14104: END IF;
14105:
14106: IF (l_rule_count > 0) THEN
14157: x_rgpv_rec => x_rgpv_rec,
14158: x_rulv_rec => x_rulv_rec
14159: );
14160:
14161: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
14162: raise header_rule_failed;
14163: END IF;
14164:
14165: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
14193: x_rulv_tbl => l_rulv_tbl,
14194: x_rule_count => l_rule_count
14195: );
14196:
14197: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
14198: RAISE header_rule_failed;
14199: END IF;
14200:
14201: IF (l_rule_count > 0) THEN
14252: x_rgpv_rec => x_rgpv_rec,
14253: x_rulv_rec => x_rulv_rec
14254: );
14255:
14256: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
14257: raise header_rule_failed;
14258: END IF;
14259:
14260: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
14288: x_rulv_tbl => l_rulv_tbl,
14289: x_rule_count => l_rule_count
14290: );
14291:
14292: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
14293: RAISE header_rule_failed;
14294: END IF;
14295:
14296: IF (l_rule_count > 0) THEN
14347: x_rgpv_rec => x_rgpv_rec,
14348: x_rulv_rec => x_rulv_rec
14349: );
14350:
14351: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
14352: raise header_rule_failed;
14353: END IF;
14354:
14355: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
14383: x_rulv_tbl => l_rulv_tbl,
14384: x_rule_count => l_rule_count
14385: );
14386:
14387: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
14388: RAISE header_rule_failed;
14389: END IF;
14390:
14391: IF (l_rule_count > 0) THEN
14442: x_rgpv_rec => x_rgpv_rec,
14443: x_rulv_rec => x_rulv_rec
14444: );
14445:
14446: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
14447: raise header_rule_failed;
14448: END IF;
14449:
14450: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
14487: x_rulv_tbl => l_rulv_tbl,
14488: x_rule_count => l_rule_count
14489: );
14490:
14491: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
14492: RAISE header_rule_failed;
14493: END IF;
14494:
14495: IF (l_rule_count > 0) THEN
14576: x_rgpv_rec => x_rgpv_rec,
14577: x_rulv_rec => x_rulv_rec
14578: );
14579:
14580: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
14581: raise header_rule_failed;
14582: END IF;
14583:
14584: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
14612: x_rulv_tbl => l_rulv_tbl,
14613: x_rule_count => l_rule_count
14614: );
14615:
14616: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
14617: RAISE header_rule_failed;
14618: END IF;
14619:
14620: IF (l_rule_count > 0) THEN
14671: x_rgpv_rec => x_rgpv_rec,
14672: x_rulv_rec => x_rulv_rec
14673: );
14674:
14675: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
14676: raise header_rule_failed;
14677: END IF;
14678:
14679: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
14698: x_rulv_tbl => l_rulv_tbl,
14699: x_rule_count => l_rule_count
14700: );
14701:
14702: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
14703: RAISE header_rule_failed;
14704: END IF;
14705:
14706: IF (l_rule_count > 0) THEN
14727: x_rgpv_rec => x_rgpv_rec,
14728: x_rulv_rec => x_rulv_rec
14729: );
14730:
14731: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
14732: raise header_rule_failed;
14733: END IF;
14734:
14735: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
14754: x_rulv_tbl => l_rulv_tbl,
14755: x_rule_count => l_rule_count
14756: );
14757:
14758: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
14759: RAISE header_rule_failed;
14760: END IF;
14761:
14762: IF (l_rule_count > 0) THEN
14783: x_rgpv_rec => x_rgpv_rec,
14784: x_rulv_rec => x_rulv_rec
14785: );
14786:
14787: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
14788: raise header_rule_failed;
14789: END IF;
14790:
14791: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
14814: x_rulv_tbl => l_rulv_tbl,
14815: x_rule_count => l_rule_count
14816: );
14817:
14818: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
14819: RAISE header_rule_failed;
14820: END IF;
14821:
14822: IF (l_rule_count > 0) THEN
14853: x_rgpv_rec => x_rgpv_rec,
14854: x_rulv_rec => x_rulv_rec
14855: );
14856:
14857: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
14858: raise header_rule_failed;
14859: END IF;
14860:
14861: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
14883: x_rulv_tbl => l_rulv_tbl,
14884: x_rule_count => l_rule_count
14885: );
14886:
14887: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
14888: RAISE header_rule_failed;
14889: END IF;
14890:
14891: IF (l_rule_count > 0) THEN
14912: x_rgpv_rec => x_rgpv_rec,
14913: x_rulv_rec => x_rulv_rec
14914: );
14915:
14916: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
14917: raise header_rule_failed;
14918: END IF;
14919:
14920: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
14941: x_rulv_tbl => l_rulv_tbl,
14942: x_rule_count => l_rule_count
14943: );
14944:
14945: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
14946: RAISE header_rule_failed;
14947: END IF;
14948:
14949: IF (l_rule_count > 0) THEN
14970: x_rgpv_rec => x_rgpv_rec,
14971: x_rulv_rec => x_rulv_rec
14972: );
14973:
14974: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
14975: raise header_rule_failed;
14976: END IF;
14977:
14978: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
14999: x_rulv_tbl => l_rulv_tbl,
15000: x_rule_count => l_rule_count
15001: );
15002:
15003: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
15004: RAISE header_rule_failed;
15005: END IF;
15006:
15007: IF (l_rule_count > 0) THEN
15028: x_rgpv_rec => x_rgpv_rec,
15029: x_rulv_rec => x_rulv_rec
15030: );
15031:
15032: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
15033: raise header_rule_failed;
15034: END IF;
15035:
15036: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
15057: x_rulv_tbl => l_rulv_tbl,
15058: x_rule_count => l_rule_count
15059: );
15060:
15061: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
15062: RAISE header_rule_failed;
15063: END IF;
15064:
15065: IF (l_rule_count > 0) THEN
15086: x_rgpv_rec => x_rgpv_rec,
15087: x_rulv_rec => x_rulv_rec
15088: );
15089:
15090: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
15091: raise header_rule_failed;
15092: END IF;
15093:
15094: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
15115: x_rulv_tbl => l_rulv_tbl,
15116: x_rule_count => l_rule_count
15117: );
15118:
15119: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
15120: RAISE header_rule_failed;
15121: END IF;
15122:
15123: IF (l_rule_count > 0) THEN
15144: x_rgpv_rec => x_rgpv_rec,
15145: x_rulv_rec => x_rulv_rec
15146: );
15147:
15148: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
15149: raise header_rule_failed;
15150: END IF;
15151:
15152: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
15173: x_rulv_tbl => l_rulv_tbl,
15174: x_rule_count => l_rule_count
15175: );
15176:
15177: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
15178: RAISE header_rule_failed;
15179: END IF;
15180:
15181: IF (l_rule_count > 0) THEN
15202: x_rgpv_rec => x_rgpv_rec,
15203: x_rulv_rec => x_rulv_rec
15204: );
15205:
15206: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
15207: raise header_rule_failed;
15208: END IF;
15209:
15210: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
15231: x_rulv_tbl => l_rulv_tbl,
15232: x_rule_count => l_rule_count
15233: );
15234:
15235: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
15236: RAISE header_rule_failed;
15237: END IF;
15238:
15239: IF (l_rule_count > 0) THEN
15260: x_rgpv_rec => x_rgpv_rec,
15261: x_rulv_rec => x_rulv_rec
15262: );
15263:
15264: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
15265: raise header_rule_failed;
15266: END IF;
15267:
15268: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
15289: x_rulv_tbl => l_rulv_tbl,
15290: x_rule_count => l_rule_count
15291: );
15292:
15293: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
15294: RAISE header_rule_failed;
15295: END IF;
15296:
15297: IF (l_rule_count > 0) THEN
15318: x_rgpv_rec => x_rgpv_rec,
15319: x_rulv_rec => x_rulv_rec
15320: );
15321:
15322: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
15323: raise header_rule_failed;
15324: END IF;
15325:
15326: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
15361: x_rulv_tbl => l_rulv_tbl,
15362: x_rule_count => l_rule_count
15363: );
15364:
15365: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
15366: RAISE header_rule_failed;
15367: END IF;
15368:
15369: IF (l_rule_count > 0) THEN
15400: x_rgpv_rec => x_rgpv_rec,
15401: x_rulv_rec => x_rulv_rec
15402: );
15403:
15404: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
15405: raise header_rule_failed;
15406: END IF;
15407:
15408: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
15436: x_rulv_tbl => l_rulv_tbl,
15437: x_rule_count => l_rule_count
15438: );
15439:
15440: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
15441: RAISE header_rule_failed;
15442: END IF;
15443:
15444: IF (l_rule_count > 0) THEN
15495: x_rgpv_rec => x_rgpv_rec,
15496: x_rulv_rec => x_rulv_rec
15497: );
15498:
15499: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
15500: raise header_rule_failed;
15501: END IF;
15502:
15503: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
15531: x_rulv_tbl => l_rulv_tbl,
15532: x_rule_count => l_rule_count
15533: );
15534:
15535: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
15536: RAISE header_rule_failed;
15537: END IF;
15538:
15539: IF (l_rule_count > 0) THEN
15590: x_rgpv_rec => x_rgpv_rec,
15591: x_rulv_rec => x_rulv_rec
15592: );
15593:
15594: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
15595: raise header_rule_failed;
15596: END IF;
15597:
15598: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
15626: x_rulv_tbl => l_rulv_tbl,
15627: x_rule_count => l_rule_count
15628: );
15629:
15630: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
15631: RAISE header_rule_failed;
15632: END IF;
15633:
15634: IF (l_rule_count > 0) THEN
15685: x_rgpv_rec => x_rgpv_rec,
15686: x_rulv_rec => x_rulv_rec
15687: );
15688:
15689: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
15690: raise header_rule_failed;
15691: END IF;
15692:
15693: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
15721: x_rulv_tbl => l_rulv_tbl,
15722: x_rule_count => l_rule_count
15723: );
15724:
15725: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
15726: RAISE header_rule_failed;
15727: END IF;
15728:
15729: IF (l_rule_count > 0) THEN
15780: x_rgpv_rec => x_rgpv_rec,
15781: x_rulv_rec => x_rulv_rec
15782: );
15783:
15784: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
15785: raise header_rule_failed;
15786: END IF;
15787:
15788: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
15816: x_rulv_tbl => l_rulv_tbl,
15817: x_rule_count => l_rule_count
15818: );
15819:
15820: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
15821: RAISE header_rule_failed;
15822: END IF;
15823:
15824: IF (l_rule_count > 0) THEN
15875: x_rgpv_rec => x_rgpv_rec,
15876: x_rulv_rec => x_rulv_rec
15877: );
15878:
15879: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
15880: raise header_rule_failed;
15881: END IF;
15882:
15883: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
15911: x_rulv_tbl => l_rulv_tbl,
15912: x_rule_count => l_rule_count
15913: );
15914:
15915: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
15916: RAISE header_rule_failed;
15917: END IF;
15918:
15919: IF (l_rule_count > 0) THEN
15970: x_rgpv_rec => x_rgpv_rec,
15971: x_rulv_rec => x_rulv_rec
15972: );
15973:
15974: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
15975: raise header_rule_failed;
15976: END IF;
15977:
15978: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
16015: x_rulv_tbl => l_rulv_tbl,
16016: x_rule_count => l_rule_count
16017: );
16018:
16019: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
16020: RAISE header_rule_failed;
16021: END IF;
16022:
16023: IF (l_rule_count > 0) THEN
16104: x_rgpv_rec => x_rgpv_rec,
16105: x_rulv_rec => x_rulv_rec
16106: );
16107:
16108: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
16109: raise header_rule_failed;
16110: END IF;
16111:
16112: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
16140: x_rulv_tbl => l_rulv_tbl,
16141: x_rule_count => l_rule_count
16142: );
16143:
16144: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
16145: RAISE header_rule_failed;
16146: END IF;
16147:
16148: IF (l_rule_count > 0) THEN
16199: x_rgpv_rec => x_rgpv_rec,
16200: x_rulv_rec => x_rulv_rec
16201: );
16202:
16203: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
16204: raise header_rule_failed;
16205: END IF;
16206:
16207: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
16226: x_rulv_tbl => l_rulv_tbl,
16227: x_rule_count => l_rule_count
16228: );
16229:
16230: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
16231: RAISE header_rule_failed;
16232: END IF;
16233:
16234: IF (l_rule_count > 0) THEN
16255: x_rgpv_rec => x_rgpv_rec,
16256: x_rulv_rec => x_rulv_rec
16257: );
16258:
16259: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
16260: raise header_rule_failed;
16261: END IF;
16262:
16263: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
16282: x_rulv_tbl => l_rulv_tbl,
16283: x_rule_count => l_rule_count
16284: );
16285:
16286: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
16287: RAISE header_rule_failed;
16288: END IF;
16289:
16290: IF (l_rule_count > 0) THEN
16311: x_rgpv_rec => x_rgpv_rec,
16312: x_rulv_rec => x_rulv_rec
16313: );
16314:
16315: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
16316: raise header_rule_failed;
16317: END IF;
16318:
16319: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
16342: x_rulv_tbl => l_rulv_tbl,
16343: x_rule_count => l_rule_count
16344: );
16345:
16346: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
16347: RAISE header_rule_failed;
16348: END IF;
16349:
16350: IF (l_rule_count > 0) THEN
16381: x_rgpv_rec => x_rgpv_rec,
16382: x_rulv_rec => x_rulv_rec
16383: );
16384:
16385: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
16386: raise header_rule_failed;
16387: END IF;
16388:
16389: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
16411: x_rulv_tbl => l_rulv_tbl,
16412: x_rule_count => l_rule_count
16413: );
16414:
16415: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
16416: RAISE header_rule_failed;
16417: END IF;
16418:
16419: IF (l_rule_count > 0) THEN
16440: x_rgpv_rec => x_rgpv_rec,
16441: x_rulv_rec => x_rulv_rec
16442: );
16443:
16444: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
16445: raise header_rule_failed;
16446: END IF;
16447:
16448: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
16469: x_rulv_tbl => l_rulv_tbl,
16470: x_rule_count => l_rule_count
16471: );
16472:
16473: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
16474: RAISE header_rule_failed;
16475: END IF;
16476:
16477: IF (l_rule_count > 0) THEN
16498: x_rgpv_rec => x_rgpv_rec,
16499: x_rulv_rec => x_rulv_rec
16500: );
16501:
16502: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
16503: raise header_rule_failed;
16504: END IF;
16505:
16506: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
16527: x_rulv_tbl => l_rulv_tbl,
16528: x_rule_count => l_rule_count
16529: );
16530:
16531: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
16532: RAISE header_rule_failed;
16533: END IF;
16534:
16535: IF (l_rule_count > 0) THEN
16556: x_rgpv_rec => x_rgpv_rec,
16557: x_rulv_rec => x_rulv_rec
16558: );
16559:
16560: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
16561: raise header_rule_failed;
16562: END IF;
16563:
16564: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
16585: x_rulv_tbl => l_rulv_tbl,
16586: x_rule_count => l_rule_count
16587: );
16588:
16589: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
16590: RAISE header_rule_failed;
16591: END IF;
16592:
16593: IF (l_rule_count > 0) THEN
16614: x_rgpv_rec => x_rgpv_rec,
16615: x_rulv_rec => x_rulv_rec
16616: );
16617:
16618: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
16619: raise header_rule_failed;
16620: END IF;
16621:
16622: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
16643: x_rulv_tbl => l_rulv_tbl,
16644: x_rule_count => l_rule_count
16645: );
16646:
16647: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
16648: RAISE header_rule_failed;
16649: END IF;
16650:
16651: IF (l_rule_count > 0) THEN
16672: x_rgpv_rec => x_rgpv_rec,
16673: x_rulv_rec => x_rulv_rec
16674: );
16675:
16676: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
16677: raise header_rule_failed;
16678: END IF;
16679:
16680: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
16701: x_rulv_tbl => l_rulv_tbl,
16702: x_rule_count => l_rule_count
16703: );
16704:
16705: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
16706: RAISE header_rule_failed;
16707: END IF;
16708:
16709: IF (l_rule_count > 0) THEN
16730: x_rgpv_rec => x_rgpv_rec,
16731: x_rulv_rec => x_rulv_rec
16732: );
16733:
16734: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
16735: raise header_rule_failed;
16736: END IF;
16737:
16738: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
16759: x_rulv_tbl => l_rulv_tbl,
16760: x_rule_count => l_rule_count
16761: );
16762:
16763: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
16764: RAISE header_rule_failed;
16765: END IF;
16766:
16767: IF (l_rule_count > 0) THEN
16788: x_rgpv_rec => x_rgpv_rec,
16789: x_rulv_rec => x_rulv_rec
16790: );
16791:
16792: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
16793: raise header_rule_failed;
16794: END IF;
16795:
16796: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
16817: x_rulv_tbl => l_rulv_tbl,
16818: x_rule_count => l_rule_count
16819: );
16820:
16821: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
16822: RAISE header_rule_failed;
16823: END IF;
16824:
16825: IF (l_rule_count > 0) THEN
16846: x_rgpv_rec => x_rgpv_rec,
16847: x_rulv_rec => x_rulv_rec
16848: );
16849:
16850: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
16851: raise header_rule_failed;
16852: END IF;
16853:
16854: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
16882: x_return_status => x_return_status,
16883: p_lien_holder_name => p_header_rec.lien_holder_name,
16884: p_lien_holder_id => p_header_rec.lien_holder_id
16885: );
16886: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
16887: okl_api.set_message(
16888: G_APP_NAME,
16889: G_INVALID_VALUE,
16890: 'CONTRACT_NUM',
16883: p_lien_holder_name => p_header_rec.lien_holder_name,
16884: p_lien_holder_id => p_header_rec.lien_holder_id
16885: );
16886: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
16887: okl_api.set_message(
16888: G_APP_NAME,
16889: G_INVALID_VALUE,
16890: 'CONTRACT_NUM',
16891: p_header_rec.contract_number_old,
16942: x_rulv_tbl => l_rulv_tbl,
16943: x_rule_count => l_rule_count
16944: );
16945:
16946: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
16947: RAISE header_rule_failed;
16948: END IF;
16949:
16950: IF (l_rule_count > 0) THEN
17063: x_rgpv_rec => x_rgpv_rec,
17064: x_rulv_rec => x_rulv_rec
17065: );
17066:
17067: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
17068: raise header_rule_failed;
17069: END IF;
17070:
17071: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
17102: p_party_number => l_title_issuer_name,
17103: x_party_id => x_title_issuer_id
17104: );
17105:
17106: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
17107: RAISE header_rule_failed;
17108: END IF;
17109: END IF;
17110:
17123: p_party_number => l_title_custodian_name,
17124: x_party_id => x_title_custodian_id
17125: );
17126:
17127: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
17128: RAISE header_rule_failed;
17129: END IF;
17130: END IF;
17131:
17161: x_rulv_tbl => l_rulv_tbl,
17162: x_rule_count => l_rule_count
17163: );
17164:
17165: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
17166: RAISE header_rule_failed;
17167: END IF;
17168:
17169: IF (l_rule_count > 0) THEN
17284: x_rgpv_rec => x_rgpv_rec,
17285: x_rulv_rec => x_rulv_rec
17286: );
17287:
17288: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
17289: raise header_rule_failed;
17290: END IF;
17291:
17292: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
17326: x_rulv_tbl => l_rulv_tbl,
17327: x_rule_count => l_rule_count
17328: );
17329:
17330: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
17331: RAISE header_rule_failed;
17332: END IF;
17333:
17334: IF (l_rule_count > 0) THEN
17355: x_rgpv_rec => x_rgpv_rec,
17356: x_rulv_rec => x_rulv_rec
17357: );
17358:
17359: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
17360: raise header_rule_failed;
17361: END IF;
17362:
17363: debug_message('------>Rule: AMCOPO/AMAPRE processed');
17383: x_rulv_tbl => l_rulv_tbl,
17384: x_rule_count => l_rule_count
17385: );
17386:
17387: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
17388: RAISE header_rule_failed;
17389: END IF;
17390:
17391: IF (l_rule_count > 0) THEN
17412: x_rgpv_rec => x_rgpv_rec,
17413: x_rulv_rec => x_rulv_rec
17414: );
17415:
17416: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
17417: raise header_rule_failed;
17418: END IF;
17419:
17420: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
17445: x_rulv_tbl => l_rulv_tbl,
17446: x_rule_count => l_rule_count
17447: );
17448:
17449: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
17450: RAISE header_rule_failed;
17451: END IF;
17452:
17453: IF (l_rule_count > 0) THEN
17499: x_rgpv_rec => x_rgpv_rec,
17500: x_rulv_rec => x_rulv_rec
17501: );
17502:
17503: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
17504: raise header_rule_failed;
17505: END IF;
17506:
17507: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
17526: x_rulv_tbl => l_rulv_tbl,
17527: x_rule_count => l_rule_count
17528: );
17529:
17530: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
17531: RAISE header_rule_failed;
17532: END IF;
17533:
17534: IF (l_rule_count > 0) THEN
17555: x_rgpv_rec => x_rgpv_rec,
17556: x_rulv_rec => x_rulv_rec
17557: );
17558:
17559: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
17560: raise header_rule_failed;
17561: END IF;
17562:
17563: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
17581: x_rulv_tbl => l_rulv_tbl,
17582: x_rule_count => l_rule_count
17583: );
17584:
17585: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
17586: RAISE header_rule_failed;
17587: END IF;
17588:
17589: IF (l_rule_count > 0) THEN
17610: x_rgpv_rec => x_rgpv_rec,
17611: x_rulv_rec => x_rulv_rec
17612: );
17613:
17614: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
17615: raise header_rule_failed;
17616: END IF;
17617:
17618: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
17663: x_rulv_tbl => l_rulv_tbl,
17664: x_rule_count => l_rule_count
17665: );
17666:
17667: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
17668: RAISE header_rule_failed;
17669: END IF;
17670:
17671: IF (l_rule_count > 0) THEN
17715: x_rgpv_rec => x_rgpv_rec,
17716: x_rulv_rec => x_rulv_rec
17717: );
17718:
17719: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
17720: raise header_rule_failed;
17721: END IF;
17722:
17723: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
17746: x_rulv_tbl => l_rulv_tbl,
17747: x_rule_count => l_rule_count
17748: );
17749:
17750: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
17751: RAISE header_rule_failed;
17752: END IF;
17753:
17754: IF (l_rule_count > 0) THEN
17785: x_rgpv_rec => x_rgpv_rec,
17786: x_rulv_rec => x_rulv_rec
17787: );
17788:
17789: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
17790: raise header_rule_failed;
17791: END IF;
17792:
17793: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
17812: x_rulv_tbl => l_rulv_tbl,
17813: x_rule_count => l_rule_count
17814: );
17815:
17816: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
17817: RAISE header_rule_failed;
17818: END IF;
17819:
17820: IF (l_rule_count > 0) THEN
17841: x_rgpv_rec => x_rgpv_rec,
17842: x_rulv_rec => x_rulv_rec
17843: );
17844:
17845: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
17846: raise header_rule_failed;
17847: END IF;
17848:
17849: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
17887: x_rulv_tbl => l_rulv_tbl,
17888: x_rule_count => l_rule_count
17889: );
17890:
17891: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
17892: RAISE header_rule_failed;
17893: END IF;
17894:
17895: IF (l_rule_count > 0) THEN
17976: x_rgpv_rec => x_rgpv_rec,
17977: x_rulv_rec => x_rulv_rec
17978: );
17979:
17980: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
17981: raise header_rule_failed;
17982: END IF;
17983:
17984: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
18014: x_name => l_st_stream_name
18015: );
18016: l_st_bill_stream_id := l_id1;
18017:
18018: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
18019: okl_api.set_message(
18020: G_APP_NAME,
18021: G_INVALID_VALUE,
18022: 'CONTRACT_NUM',
18015: );
18016: l_st_bill_stream_id := l_id1;
18017:
18018: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
18019: okl_api.set_message(
18020: G_APP_NAME,
18021: G_INVALID_VALUE,
18022: 'CONTRACT_NUM',
18023: p_header_rec.contract_number_old,
18025: 'ST_BILL_STREAM_TYPE_CODE, ST_BILL_STREAM_PURPOSE_CODE',
18026: 'COL_VALUE',
18027: l_st_bill_stream_type_code||', '||l_st_bill_stream_purpose_code
18028: );
18029: x_return_status := OKL_API.G_RET_STS_ERROR;
18030: RAISE header_rule_failed;
18031: END IF;
18032: END IF;
18033:
18044: x_name => l_st_stream_name
18045: );
18046: l_st_fin_stream_id := l_id1;
18047:
18048: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
18049: okl_api.set_message(
18050: G_APP_NAME,
18051: G_INVALID_VALUE,
18052: 'CONTRACT_NUM',
18045: );
18046: l_st_fin_stream_id := l_id1;
18047:
18048: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
18049: okl_api.set_message(
18050: G_APP_NAME,
18051: G_INVALID_VALUE,
18052: 'CONTRACT_NUM',
18053: p_header_rec.contract_number_old,
18055: 'ST_FIN_STREAM_TYPE_CODE, ST_FIN_STREAM_PURPOSE_CODE',
18056: 'COL_VALUE',
18057: l_st_fin_stream_type_code||', '||l_st_fin_stream_purpose_code
18058: );
18059: x_return_status := OKL_API.G_RET_STS_ERROR;
18060: RAISE header_rule_failed;
18061: END IF;
18062: END IF;
18063:
18074: x_name => l_st_stream_name
18075: );
18076: l_st_cap_stream_id := l_id1;
18077:
18078: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
18079: okl_api.set_message(
18080: G_APP_NAME,
18081: G_INVALID_VALUE,
18082: 'CONTRACT_NUM',
18075: );
18076: l_st_cap_stream_id := l_id1;
18077:
18078: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
18079: okl_api.set_message(
18080: G_APP_NAME,
18081: G_INVALID_VALUE,
18082: 'CONTRACT_NUM',
18083: p_header_rec.contract_number_old,
18085: 'ST_CAP_STREAM_TYPE_CODE, ST_CAP_STREAM_PURPOSE_CODE',
18086: 'COL_VALUE',
18087: l_st_cap_stream_type_code||', '||l_st_cap_stream_purpose_code
18088: );
18089: x_return_status := OKL_API.G_RET_STS_ERROR;
18090: RAISE header_rule_failed;
18091: END IF;
18092: END IF;
18093:
18114: x_rulv_tbl => l_rulv_tbl,
18115: x_rule_count => l_rule_count
18116: );
18117:
18118: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
18119: RAISE header_rule_failed;
18120: END IF;
18121:
18122: IF (l_rule_count > 0) THEN
18203: x_rgpv_rec => x_rgpv_rec,
18204: x_rulv_rec => x_rulv_rec
18205: );
18206:
18207: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
18208: raise header_rule_failed;
18209: END IF;
18210:
18211: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
18217:
18218: EXCEPTION
18219:
18220: WHEN header_rule_failed THEN
18221: x_return_status := OKL_API.G_RET_STS_ERROR;
18222: debug_message('------>Error with: '||l_rgpv_rec.rgd_code);
18223: debug_message('------>Rule Catg: '|| l_rulv_rec.rule_information_category);
18224:
18225: WHEN OTHERS THEN
18222: debug_message('------>Error with: '||l_rgpv_rec.rgd_code);
18223: debug_message('------>Rule Catg: '|| l_rulv_rec.rule_information_category);
18224:
18225: WHEN OTHERS THEN
18226: okl_api.set_message(
18227: G_APP_NAME,
18228: G_UNEXPECTED_ERROR,
18229: 'OKL_SQLCODE',
18230: SQLCODE,
18231: 'OKL_SQLERRM',
18232: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
18233: );
18234:
18235: x_return_status := OKL_API.G_RET_STS_ERROR;
18236: debug_message('Others : '||l_progress);
18237:
18238: END create_header_rules;
18239:
18291: p_salesperson_name,
18292: p_authoring_org_id);
18293: FETCH sale_csr INTO l_id;
18294: IF sale_csr%NOTFOUND THEN
18295: okl_api.set_message(
18296: G_APP_NAME,
18297: G_INVALID_VALUE,
18298: 'COL_NAME',
18299: 'SALESPERSON_NAME, ID',
18324: x_msg_count => x_msg_count,
18325: x_msg_data => x_msg_data,
18326: p_ctcv_rec => l_ctcv_rec,
18327: x_ctcv_rec => x_ctcv_rec);
18328: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
18329: x_return_status := OKL_API.G_RET_STS_ERROR;
18330: raise contact_failed;
18331: END IF;
18332:
18325: x_msg_data => x_msg_data,
18326: p_ctcv_rec => l_ctcv_rec,
18327: x_ctcv_rec => x_ctcv_rec);
18328: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
18329: x_return_status := OKL_API.G_RET_STS_ERROR;
18330: raise contact_failed;
18331: END IF;
18332:
18333: END IF;
18335: return;
18336:
18337: EXCEPTION
18338: WHEN contact_failed THEN
18339: x_return_status := OKL_API.G_RET_STS_ERROR;
18340:
18341: WHEN OTHERS THEN
18342: okl_api.set_message(
18343: G_APP_NAME,
18338: WHEN contact_failed THEN
18339: x_return_status := OKL_API.G_RET_STS_ERROR;
18340:
18341: WHEN OTHERS THEN
18342: okl_api.set_message(
18343: G_APP_NAME,
18344: G_UNEXPECTED_ERROR,
18345: 'OKL_SQLCODE',
18346: SQLCODE,
18347: 'OKL_SQLERRM',
18348: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
18349: );
18350:
18351: x_return_status := OKL_API.G_RET_STS_ERROR;
18352:
18353:
18354: END create_contact;
18355:
18413: ship_failed EXCEPTION;
18414:
18415: BEGIN
18416:
18417: x_return_status := OKL_API.G_RET_STS_SUCCESS;
18418: debug_message(l_proc_name);
18419: debug_message('Customer: '|| g_customer_id);
18420: debug_message('Cust Acc: '|| g_customer_account_id);
18421: debug_message('p_ship_to_site_id: '|| p_ship_to_site_id);
18452: END IF;
18453: IF (cust_ship_csr%ISOPEN) THEN
18454: CLOSE cust_ship_csr;
18455: END IF;
18456: okl_api.set_message(
18457: G_APP_NAME,
18458: G_INVALID_VALUE,
18459: 'COL_NAME',
18460: 'SHIP_TO_SITE, ID',
18462: p_ship_to_site_number||', '||p_ship_to_site_id,
18463: 'CONTRACT_NUM',
18464: p_contract_number||'/'||p_line_number
18465: );
18466: x_return_status := OKL_API.G_RET_STS_ERROR;
18467:
18468: END get_ship_to_site;
18469:
18470: ------------------------------------------------------------------------------
18502: gaddr_failed EXCEPTION;
18503:
18504: BEGIN
18505:
18506: x_return_status := OKL_API.G_RET_STS_SUCCESS;
18507: OPEN gaddr_csr (p_guarantor_site_id,
18508: p_guarantor_site_number);
18509: FETCH gaddr_csr INTO l_id;
18510: IF (gaddr_csr%NOTFOUND) THEN
18520: WHEN gaddr_failed THEN
18521: IF (gaddr_csr%ISOPEN) THEN
18522: CLOSE gaddr_csr;
18523: END IF;
18524: okl_api.set_message(
18525: G_APP_NAME,
18526: G_INVALID_VALUE,
18527: 'COL_NAME',
18528: 'GUARANTOR_SITE, ID',
18530: p_guarantor_site_number||', '||p_guarantor_site_id,
18531: 'CONTRACT_NUM',
18532: p_contract_number||'/'||p_line_number
18533: );
18534: x_return_status := OKL_API.G_RET_STS_ERROR;
18535:
18536: END get_guarantor_address;
18537:
18538: ------------------------------------------------------------------------------
18570: OPEN rrd_csr (p_rgd_code,
18571: p_rle_code);
18572: FETCH rrd_csr INTO l_id;
18573: IF rrd_csr%NOTFOUND THEN
18574: x_return_status := OKL_API.G_RET_STS_ERROR;
18575: END IF;
18576: CLOSE rrd_csr;
18577:
18578: x_rrd_id := l_id;
18579: return;
18580:
18581: EXCEPTION
18582: WHEN OTHERS THEN
18583: x_return_status := OKL_API.G_RET_STS_ERROR;
18584: END get_rrd_id;
18585:
18586:
18587:
18638: x_kplv_rec kplv_rec_type;
18639:
18640: BEGIN
18641:
18642: x_return_status := OKL_API.G_RET_STS_SUCCESS;
18643:
18644: IF (p_label_number IS NOT NULL
18645: OR
18646: p_label_id IS NOT NULL) THEN
18664: p_cplv_rec.rle_code := 'PRIVATE_LABEL';
18665:
18666: OKL_K_PARTY_ROLES_PVT.create_k_party_role(
18667: p_api_version => 1.0,
18668: p_init_msg_list => OKL_API.G_FALSE,
18669: x_return_status => x_return_status,
18670: x_msg_count => x_msg_count,
18671: x_msg_data => x_msg_data,
18672: p_cplv_rec => p_cplv_rec,
18674: x_cplv_rec => x_cplv_rec,
18675: x_kplv_rec => x_kplv_rec
18676: );
18677:
18678: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
18679: RAISE party_failed;
18680: END IF;
18681:
18682: l_rgpv_rec := NULL;
18708: x_rgpv_rec => x_rgpv_rec,
18709: x_rulv_rec => x_rulv_rec
18710: );
18711:
18712: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
18713: raise party_failed;
18714: END IF;
18715:
18716: get_rrd_id(
18718: p_rgd_code => 'LALABL',
18719: p_rle_code => 'PRIVATE_LABEL',
18720: x_rrd_id => x_rrd_id
18721: );
18722: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
18723: okl_api.set_message(
18724: G_APP_NAME,
18725: G_LABEL_SETUP_ERROR,
18726: 'CONTRACT_NUM',
18719: p_rle_code => 'PRIVATE_LABEL',
18720: x_rrd_id => x_rrd_id
18721: );
18722: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
18723: okl_api.set_message(
18724: G_APP_NAME,
18725: G_LABEL_SETUP_ERROR,
18726: 'CONTRACT_NUM',
18727: p_contract_number
18725: G_LABEL_SETUP_ERROR,
18726: 'CONTRACT_NUM',
18727: p_contract_number
18728: );
18729: x_return_status := OKL_API.G_RET_STS_ERROR;
18730: RAISE party_failed;
18731: END IF;
18732:
18733: l_rmpv_rec.rgp_id := x_rgpv_rec.id;
18736: l_rmpv_rec.dnz_chr_id := p_chr_id;
18737:
18738: okl_rule_pub.create_rg_mode_pty_role(
18739: p_api_version => 1.0,
18740: p_init_msg_list => OKL_API.G_FALSE,
18741: x_return_status => x_return_status,
18742: x_msg_count => x_msg_count,
18743: x_msg_data => x_msg_data,
18744: p_rmpv_rec => l_rmpv_rec,
18743: x_msg_data => x_msg_data,
18744: p_rmpv_rec => l_rmpv_rec,
18745: x_rmpv_rec => x_rmpv_rec
18746: );
18747: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
18748: x_return_status := OKL_API.G_RET_STS_ERROR;
18749: raise party_failed;
18750: END IF;
18751:
18744: p_rmpv_rec => l_rmpv_rec,
18745: x_rmpv_rec => x_rmpv_rec
18746: );
18747: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
18748: x_return_status := OKL_API.G_RET_STS_ERROR;
18749: raise party_failed;
18750: END IF;
18751:
18752: END IF; --label_url
18757: WHEN party_failed THEN
18758: IF party_csr%ISOPEN THEN
18759: CLOSE party_csr;
18760: END IF;
18761: okl_api.set_message(
18762: G_APP_NAME,
18763: G_INVALID_VALUE,
18764: 'COL_NAME',
18765: 'PRIVATE_LABEL_NUMBER, ID',
18767: p_label_number||', '||p_label_id,
18768: 'CONTRACT_NUM',
18769: p_contract_number
18770: );
18771: x_return_status := OKL_API.G_RET_STS_ERROR;
18772:
18773: END create_private_label;
18774:
18775: -- strat cklee 02/16/2004 bug# 3440442
18799: intf_party_rec intf_party_rec_type;
18800:
18801: BEGIN
18802:
18803: x_return_status := OKL_API.G_RET_STS_SUCCESS;
18804: --
18805: -- 1. validation
18806: --
18807: -- 3rd party insurace
18841: x_party_id => l_intf_header.insurance_company_id,
18842: x_party_site_id => l_intf_header.insurance_company_site_id
18843: );
18844:
18845: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
18846: RAISE v_3rd_party_insurance_failed;
18847: END IF;
18848: END IF;
18849: l_progress := 'validate insurance company name/site';
18884: x_party_id => l_intf_header.agent_id,
18885: x_party_site_id => l_intf_header.agent_address_site_id
18886: );
18887:
18888: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
18889: RAISE v_3rd_party_insurance_failed;
18890: END IF;
18891: END IF;
18892: l_progress := 'validate insurance agent name/address site';
18892: l_progress := 'validate insurance agent name/address site';
18893:
18894:
18895: IF (NVL(p_intf_header.LESSOR_INSURED_FLAG,'N') NOT IN ('Y','N')) THEN
18896: okl_api.set_message(
18897: G_APP_NAME,
18898: G_INVALID_VALUE,
18899: 'CONTRACT_NUM',
18900: p_intf_header.contract_number_old,
18903: 'COL_VALUE',
18904: p_intf_header.LESSOR_INSURED_FLAG
18905: );
18906:
18907: x_return_status := OKL_API.G_RET_STS_ERROR;
18908:
18909: RAISE v_3rd_party_insurance_failed;
18910: END IF;
18911: l_progress := 'validate LESSOR_INSURED_FLAG';
18910: END IF;
18911: l_progress := 'validate LESSOR_INSURED_FLAG';
18912:
18913: IF (NVL(p_intf_header.LESSOR_PAYEE_FLAG,'N') NOT IN ('Y','N')) THEN
18914: okl_api.set_message(
18915: G_APP_NAME,
18916: G_INVALID_VALUE,
18917: 'CONTRACT_NUM',
18918: p_intf_header.contract_number_old,
18921: 'COL_VALUE',
18922: p_intf_header.LESSOR_PAYEE_FLAG
18923: );
18924:
18925: x_return_status := OKL_API.G_RET_STS_ERROR;
18926:
18927: RAISE v_3rd_party_insurance_failed;
18928: END IF;
18929: l_progress := 'validate LESSOR_PAYEE_FLAG';
18932: x_intf_header := l_intf_header;
18933:
18934: EXCEPTION
18935: WHEN v_3rd_party_insurance_failed THEN
18936: x_return_status := OKL_API.G_RET_STS_ERROR;
18937: debug_message(l_proc_name ||': '||l_progress);
18938:
18939: WHEN OTHERS THEN
18940: x_return_status := OKL_API.G_RET_STS_ERROR;
18936: x_return_status := OKL_API.G_RET_STS_ERROR;
18937: debug_message(l_proc_name ||': '||l_progress);
18938:
18939: WHEN OTHERS THEN
18940: x_return_status := OKL_API.G_RET_STS_ERROR;
18941: debug_message(l_proc_name ||': '||l_progress);
18942:
18943: END validate_3rd_party_insurance;
18944:
18969: x_ipyv_rec okl_ipy_pvt.ipyv_rec_type;
18970:
18971: BEGIN
18972:
18973: x_return_status := OKL_API.G_RET_STS_SUCCESS;
18974: --
18975: -- 1. validation
18976: --
18977: validate_3rd_party_insurance(x_return_status => x_return_status,
18981: x_intf_header => x_intf_header
18982: );
18983:
18984:
18985: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
18986: raise e_3rd_party_insurance_failed;
18987: END IF;
18988:
18989: --
19013: l_ipyv_rec.date_proof_provided := x_intf_header.PROOF_PROVIDED_DATE;
19014:
19015: OKL_INS_POLICIES_PUB.INSERT_INS_POLICIES(
19016: p_api_version => 1.0,
19017: p_init_msg_list => OKL_API.G_FALSE,
19018: x_return_status => x_return_status,
19019: x_msg_count => x_msg_count,
19020: x_msg_data => x_msg_data,
19021: p_ipyv_rec => l_ipyv_rec,
19021: p_ipyv_rec => l_ipyv_rec,
19022: x_ipyv_rec => x_ipyv_rec
19023: );
19024:
19025: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
19026: RAISE e_3rd_party_insurance_failed;
19027: END IF;
19028: l_progress := 'Create 3rd insurance record';
19029:
19028: l_progress := 'Create 3rd insurance record';
19029:
19030: EXCEPTION
19031: WHEN e_3rd_party_insurance_failed THEN
19032: x_return_status := OKL_API.G_RET_STS_ERROR;
19033: debug_message(l_proc_name ||': '||l_progress);
19034:
19035: WHEN OTHERS THEN
19036: x_return_status := OKL_API.G_RET_STS_ERROR;
19032: x_return_status := OKL_API.G_RET_STS_ERROR;
19033: debug_message(l_proc_name ||': '||l_progress);
19034:
19035: WHEN OTHERS THEN
19036: x_return_status := OKL_API.G_RET_STS_ERROR;
19037: debug_message(l_proc_name ||': '||l_progress);
19038:
19039: END create_3rd_party_insurance;
19040:
19064:
19065: l_paygroup po_vendor_sites_all.pay_group_lookup_code%TYPE;
19066: BEGIN
19067:
19068: x_return_status := OKL_API.G_RET_STS_SUCCESS;
19069:
19070: OPEN paygroup_csr (p_vendor_paysite_id,
19071: p_auth_org_id);
19072: FETCH paygroup_csr INTO l_paygroup;
19284: l_cont_pmnt_dtls_tbl_in ppydv_tbl_type;
19285: l_cont_pmnt_dtls_tbl_out ppydv_tbl_type;
19286: BEGIN
19287:
19288: x_return_status := OKL_API.G_RET_STS_SUCCESS;
19289: debug_message(l_proc_name);
19290:
19291: IF (p_asset_vendor_id IS NOT NULL) THEN
19292: x_asset_vendor_id := p_asset_vendor_id;
19299: p_line_number => p_line_number,
19300: x_vendor_id => x_asset_vendor_id,
19301: p_vendor_name => p_asset_vendor_name
19302: );
19303: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
19304: RAISE party_role_failed;
19305: END IF;
19306: END IF;
19307:
19317: p_vend_as_customer_id);
19318:
19319: FETCH customer_csr INTO l_vend_cust_id;
19320: IF customer_csr%NOTFOUND THEN
19321: okl_api.set_message(
19322: G_APP_NAME,
19323: G_INVALID_VALUE,
19324: 'CONTRACT_NUM',
19325: p_contract_number,
19327: 'VENDOR AS CUSTOMER ACCOUNT',
19328: 'COL_VALUE',
19329: p_vend_as_customer_id||', '||p_vend_as_customer_number
19330: );
19331: x_return_status := OKL_API.G_RET_STS_ERROR;
19332: RAISE party_role_failed;
19333: END IF;
19334:
19335: CLOSE customer_csr;
19333: END IF;
19334:
19335: CLOSE customer_csr;
19336: ELSE
19337: okl_api.set_message(
19338: G_APP_NAME,
19339: G_MISSING_VALUE,
19340: 'CONTRACT_NUM',
19341: p_contract_number,
19341: p_contract_number,
19342: 'COL_NAME',
19343: 'VENDOR AS CUSTOMER'
19344: );
19345: x_return_status := OKL_API.G_RET_STS_ERROR;
19346: RAISE party_role_failed;
19347: END IF; -- Vend as customer
19348:
19349: IF (p_vend_as_cust_acc_id IS NOT NULL
19360: p_customer_account_number => p_vend_as_cust_acc_number,
19361: x_customer_account_id => l_vend_cust_acc_id
19362: );
19363:
19364: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
19365: x_return_status := OKL_API.G_RET_STS_ERROR;
19366: raise party_role_failed;
19367: END IF;
19368:
19361: x_customer_account_id => l_vend_cust_acc_id
19362: );
19363:
19364: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
19365: x_return_status := OKL_API.G_RET_STS_ERROR;
19366: raise party_role_failed;
19367: END IF;
19368:
19369: debug_message('------>l_vend_cust_acc_id : '||l_vend_cust_acc_id);
19367: END IF;
19368:
19369: debug_message('------>l_vend_cust_acc_id : '||l_vend_cust_acc_id);
19370: ELSE
19371: okl_api.set_message(
19372: G_APP_NAME,
19373: G_MISSING_VALUE,
19374: 'CONTRACT_NUM',
19375: p_contract_number,
19375: p_contract_number,
19376: 'COL_NAME',
19377: 'VENDOR AS CUSTOMER ACCOUNT'
19378: );
19379: x_return_status := OKL_API.G_RET_STS_ERROR;
19380: RAISE party_role_failed;
19381: END IF; -- vend as cust acct
19382:
19383: IF (p_vend_bill_to_addr_id IS NOT NULL
19394: p_customer_account_id => l_vend_cust_acc_id,
19395: x_bill_to_address_id => l_vend_bill_to_addr_id
19396: );
19397:
19398: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
19399: x_return_status := OKL_API.G_RET_STS_ERROR;
19400: raise party_role_failed;
19401: END IF;
19402: ELSE
19395: x_bill_to_address_id => l_vend_bill_to_addr_id
19396: );
19397:
19398: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
19399: x_return_status := OKL_API.G_RET_STS_ERROR;
19400: raise party_role_failed;
19401: END IF;
19402: ELSE
19403: okl_api.set_message(
19399: x_return_status := OKL_API.G_RET_STS_ERROR;
19400: raise party_role_failed;
19401: END IF;
19402: ELSE
19403: okl_api.set_message(
19404: G_APP_NAME,
19405: G_MISSING_VALUE,
19406: 'CONTRACT_NUM',
19407: p_contract_number,
19407: p_contract_number,
19408: 'COL_NAME',
19409: 'VENDOR BILL TO ADDRESS'
19410: );
19411: x_return_status := OKL_API.G_RET_STS_ERROR;
19412: RAISE party_role_failed;
19413: END IF; -- vend bill to addr
19414:
19415: END IF; -- billable vendor info
19472:
19473: --OKL_OKC_MIGRATION_PVT.create_k_party_role( -- Bug 4558486
19474: OKL_K_PARTY_ROLES_PVT.create_k_party_role(
19475: p_api_version => 1.0,
19476: p_init_msg_list => OKL_API.G_FALSE,
19477: x_return_status => x_return_status,
19478: x_msg_count => x_msg_count,
19479: x_msg_data => x_msg_data,
19480: p_cplv_rec => p_cplv_rec,
19482: x_cplv_rec => x_cplv_rec,
19483: x_kplv_rec => x_kplv_rec
19484: );
19485:
19486: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
19487: RAISE party_role_failed;
19488: END IF;
19489: END IF; -- asset vendor
19490:
19509: p_line_number => p_line_number,
19510: x_vendor_id => x_service_vendor_id,
19511: p_vendor_name => p_service_vendor_name
19512: );
19513: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
19514: RAISE party_role_failed;
19515: END IF;
19516: END IF;
19517:
19537: p_cplv_rec.cust_acct_id := l_vend_cust_acc_id;
19538:
19539: OKL_K_PARTY_ROLES_PVT.create_k_party_role(
19540: p_api_version => 1.0,
19541: p_init_msg_list => OKL_API.G_FALSE,
19542: x_return_status => x_return_status,
19543: x_msg_count => x_msg_count,
19544: x_msg_data => x_msg_data,
19545: p_cplv_rec => p_cplv_rec,
19547: x_cplv_rec => x_cplv_rec,
19548: x_kplv_rec => x_kplv_rec
19549: );
19550:
19551: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
19552: RAISE party_role_failed;
19553: END IF;
19554:
19555: debug_message('------>Party Roles Created');
19557: /* Passthru is moved to OKL table,do not need rule group LAPSTH
19558:
19559: okl_contract_top_line_pub.validate_passthru_rule(
19560: p_api_version => 1.0,
19561: p_init_msg_list => OKL_API.G_FALSE,
19562: x_return_status => x_return_status,
19563: x_msg_count => x_msg_count,
19564: x_msg_data => x_msg_data,
19565: p_line_id => p_service_line_id,
19573: x_pay_site_id1 => x_pay_site_id1,
19574: x_payment_method_id1 => x_payment_method_id1
19575: );
19576:
19577: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
19578: RAISE party_role_failed;
19579: END IF;
19580: -- Rule Group LAPSTH
19581: l_rgpv_rec := NULL;
19612: x_rgpv_rec => x_rgpv_rec,
19613: x_rulv_rec => x_rulv_rec
19614: );
19615: l_progress := '1.2';
19616: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
19617: raise party_role_failed;
19618: END IF;
19619:
19620: debug_message('------>Rule: LAPSTH/LAPTR processed');
19647: x_rgpv_rec => x_rgpv_rec,
19648: x_rulv_rec => x_rulv_rec
19649: );
19650: l_progress := '1.2';
19651: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
19652: raise party_role_failed;
19653: END IF;
19654:
19655: debug_message('------>Rule: LAPSTH/LAPTO processed');
19684: x_rgpv_rec => x_rgpv_rec,
19685: x_rulv_rec => x_rulv_rec
19686: );
19687: l_progress := '1.2';
19688: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
19689: raise party_role_failed;
19690: END IF;
19691:
19692: debug_message('------>Rule: LAPSTH/LAVPMT processed');
19716: x_rulv_rec => x_rulv_rec
19717: );
19718:
19719: l_progress := '1.5';
19720: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
19721: raise party_role_failed;
19722: END IF;
19723:
19724: debug_message('------>Rule: LAPSTH/LAPTRP processed');
19748: x_rulv_rec => x_rulv_rec
19749: );
19750:
19751: l_progress := '1.6';
19752: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
19753: raise party_role_failed;
19754: END IF;
19755:
19756: debug_message('------>Rule: LAPSTH/LAPTBC processed');
19778: p_line_number => p_line_number,
19779: x_vendor_id => x_fees_vendor_id,
19780: p_vendor_name => p_fees_vendor_name
19781: );
19782: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
19783: RAISE party_role_failed;
19784: END IF;
19785: END IF;
19786:
19808: p_cplv_rec.cust_acct_id := l_vend_cust_acc_id;
19809:
19810: OKL_K_PARTY_ROLES_PVT.create_k_party_role(
19811: p_api_version => 1.0,
19812: p_init_msg_list => OKL_API.G_FALSE,
19813: x_return_status => x_return_status,
19814: x_msg_count => x_msg_count,
19815: x_msg_data => x_msg_data,
19816: p_cplv_rec => p_cplv_rec,
19818: x_cplv_rec => x_cplv_rec,
19819: x_kplv_rec => x_kplv_rec
19820: );
19821:
19822: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
19823: RAISE party_role_failed;
19824: END IF;
19825:
19826: debug_message('------>Fee Vendor Processed');
19828: /* Passthru is moved to OKL table,do not need rule group LAPSTH
19829:
19830: okl_contract_top_line_pub.validate_passthru_rule(
19831: p_api_version => 1.0,
19832: p_init_msg_list => OKL_API.G_FALSE,
19833: x_return_status => x_return_status,
19834: x_msg_count => x_msg_count,
19835: x_msg_data => x_msg_data,
19836: p_line_id => p_fee_line_id,
19844: x_pay_site_id1 => x_pay_site_id1,
19845: x_payment_method_id1 => x_payment_method_id1
19846: );
19847:
19848: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
19849: RAISE party_role_failed;
19850: END IF;
19851:
19852: -- Rule Group LAPSTH
19884: x_rgpv_rec => x_rgpv_rec,
19885: x_rulv_rec => x_rulv_rec
19886: );
19887: l_progress := '1.2';
19888: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
19889: raise party_role_failed;
19890: END IF;
19891:
19892: debug_message('------>Fee Rule: LAPSTH/LAPTR processed');
19917: x_rgpv_rec => x_rgpv_rec,
19918: x_rulv_rec => x_rulv_rec
19919: );
19920: l_progress := '1.2';
19921: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
19922: raise party_role_failed;
19923: END IF;
19924:
19925: debug_message('------>Fee Rule: LAPSTH/LAPTO processed');
19954: x_rgpv_rec => x_rgpv_rec,
19955: x_rulv_rec => x_rulv_rec
19956: );
19957: l_progress := '1.2';
19958: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
19959: raise party_role_failed;
19960: END IF;
19961:
19962: debug_message('------>Fee Rule: LAPSTH/LAVPMT processed');
19986: x_rulv_rec => x_rulv_rec
19987: );
19988:
19989: l_progress := '1.5';
19990: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
19991: raise party_role_failed;
19992: END IF;
19993:
19994: debug_message('------>Fee Rule: LAPSTH/LAPTPR processed');
20017: x_rulv_rec => x_rulv_rec
20018: );
20019:
20020: l_progress := '1.6';
20021: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20022: raise party_role_failed;
20023: END IF;
20024:
20025: debug_message('------>Fee Rule: LAPSTH/LAPTBC processed');
20043: p_party_id => p_guarantor_id,
20044: p_party_number => p_guarantor_number,
20045: x_party_id => x_guarantor_id
20046: );
20047: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20048: RAISE party_role_failed;
20049: END IF;
20050: END IF;
20051:
20089: p_cplv_rec.rle_code := 'GUARANTOR';
20090:
20091: OKL_K_PARTY_ROLES_PVT.create_k_party_role(
20092: p_api_version => 1.0,
20093: p_init_msg_list => OKL_API.G_FALSE,
20094: x_return_status => x_return_status,
20095: x_msg_count => x_msg_count,
20096: x_msg_data => x_msg_data,
20097: p_cplv_rec => p_cplv_rec,
20099: x_cplv_rec => x_cplv_rec,
20100: x_kplv_rec => x_kplv_rec
20101: );
20102:
20103: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20104: RAISE party_role_failed;
20105: END IF;
20106:
20107: l_rgpv_rec := NULL;
20139: p_guarantor_site_id => p_guarantor_site_id,
20140: x_guarantor_site_id => x_guarantor_site_id
20141: );
20142:
20143: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20144: RAISE party_role_failed;
20145: END IF;
20146:
20147: l_rulv_rec.jtot_object1_code := 'OKL_PARTYSITE'; -- Bug 5024651 'OKX_PARTSITE';
20165: x_rgpv_rec => x_rgpv_rec,
20166: x_rulv_rec => x_rulv_rec
20167: );
20168:
20169: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20170: raise party_role_failed;
20171: END IF;
20172:
20173: debug_message('------>Fee Rule: LAGRDT/LAGRNP processed');
20183: p_rgd_code => 'LAGRDT',
20184: p_rle_code => 'GUARANTOR',
20185: x_rrd_id => x_rrd_id
20186: );
20187: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20188: okl_api.set_message(
20189: G_APP_NAME,
20190: G_GUARANTOR_SETUP_ERROR,
20191: 'CONTRACT_NUM',
20184: p_rle_code => 'GUARANTOR',
20185: x_rrd_id => x_rrd_id
20186: );
20187: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20188: okl_api.set_message(
20189: G_APP_NAME,
20190: G_GUARANTOR_SETUP_ERROR,
20191: 'CONTRACT_NUM',
20192: p_contract_number
20190: G_GUARANTOR_SETUP_ERROR,
20191: 'CONTRACT_NUM',
20192: p_contract_number
20193: );
20194: x_return_status := OKL_API.G_RET_STS_ERROR;
20195: RAISE party_role_failed;
20196: END IF;
20197:
20198: l_rmpv_rec.rgp_id := x_rgpv_rec.id;
20201: l_rmpv_rec.dnz_chr_id := p_chr_id;
20202:
20203: okl_rule_pub.create_rg_mode_pty_role(
20204: p_api_version => 1.0,
20205: p_init_msg_list => OKL_API.G_FALSE,
20206: x_return_status => x_return_status,
20207: x_msg_count => x_msg_count,
20208: x_msg_data => x_msg_data,
20209: p_rmpv_rec => l_rmpv_rec,
20208: x_msg_data => x_msg_data,
20209: p_rmpv_rec => l_rmpv_rec,
20210: x_rmpv_rec => x_rmpv_rec
20211: );
20212: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20213: x_return_status := OKL_API.G_RET_STS_ERROR;
20214: raise party_role_failed;
20215: END IF;
20216:
20209: p_rmpv_rec => l_rmpv_rec,
20210: x_rmpv_rec => x_rmpv_rec
20211: );
20212: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20213: x_return_status := OKL_API.G_RET_STS_ERROR;
20214: raise party_role_failed;
20215: END IF;
20216:
20217: debug_message('------>Guaraontor type processed');
20272: x_rgpv_rec => x_rgpv_rec,
20273: x_rulv_rec => x_rulv_rec
20274: );
20275:
20276: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20277: raise party_role_failed;
20278: END IF;
20279:
20280: debug_message('------>Rule: LAGRDT/LAGRNT processed');
20298: p_line_number => p_line_number,
20299: x_vendor_id => x_billable_vendor_id,
20300: p_vendor_name => p_billable_vendor_name
20301: );
20302: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20303: RAISE party_role_failed;
20304: END IF;
20305: END IF;
20306:
20309: IF (x_billable_vendor_id IS NOT NULL) THEN
20310:
20311: -- Create billing detail
20312: IF (x_billable_vendor_id <> x_asset_vendor_id) THEN
20313: okl_api.set_message(
20314: G_APP_NAME,
20315: G_BILL_VENDOR_INVALID,
20316: 'CONTRACT_NUM',
20317: p_contract_number,
20317: p_contract_number,
20318: 'VENDOR',
20319: p_billable_vendor_id||', '||p_billable_vendor_name
20320: );
20321: x_return_status := OKL_API.G_RET_STS_ERROR;
20322: RAISE party_role_failed;
20323: END IF;
20324:
20325: l_rgpv_rec := NULL;
20341: p_vend_as_customer_id);
20342:
20343: FETCH customer_csr INTO l_vend_cust_id;
20344: IF customer_csr%NOTFOUND THEN
20345: okl_api.set_message(
20346: G_APP_NAME,
20347: G_INVALID_VALUE,
20348: 'CONTRACT_NUM',
20349: p_contract_number,
20351: 'VENDOR AS CUSTOMER ACCOUNT',
20352: 'COL_VALUE',
20353: p_vend_as_customer_id||', '||p_vend_as_customer_number
20354: );
20355: x_return_status := OKL_API.G_RET_STS_ERROR;
20356: RAISE party_role_failed;
20357: END IF;
20358:
20359: CLOSE customer_csr;
20379: x_rgpv_rec => x_rgpv_rec,
20380: x_rulv_rec => x_rulv_rec
20381: );
20382:
20383: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20384: raise party_role_failed;
20385: END IF;
20386:
20387: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
20389: END IF;
20390: l_rulv_rec := NULL;
20391:
20392: ELSE
20393: okl_api.set_message(
20394: G_APP_NAME,
20395: G_MISSING_VALUE,
20396: 'CONTRACT_NUM',
20397: p_contract_number,
20397: p_contract_number,
20398: 'COL_NAME',
20399: 'VENDOR AS CUSTOMER'
20400: );
20401: x_return_status := OKL_API.G_RET_STS_ERROR;
20402: RAISE party_role_failed;
20403: END IF;
20404:
20405: /* Rule Migration
20417: p_customer_account_number => p_vend_as_cust_acc_number,
20418: x_customer_account_id => l_vend_cust_acc_id
20419: );
20420:
20421: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20422: x_return_status := OKL_API.G_RET_STS_ERROR;
20423: raise party_role_failed;
20424: END IF;
20425:
20418: x_customer_account_id => l_vend_cust_acc_id
20419: );
20420:
20421: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20422: x_return_status := OKL_API.G_RET_STS_ERROR;
20423: raise party_role_failed;
20424: END IF;
20425:
20426: debug_message('------>l_vend_cust_acc_id : '||l_vend_cust_acc_id);
20444: x_rgpv_rec => x_rgpv_rec,
20445: x_rulv_rec => x_rulv_rec
20446: );
20447:
20448: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20449: raise party_role_failed;
20450: END IF;
20451:
20452: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
20453: l_rgp_id := x_rgpv_rec.id;
20454: END IF;
20455: l_rulv_rec := NULL;
20456: ELSE
20457: okl_api.set_message(
20458: G_APP_NAME,
20459: G_MISSING_VALUE,
20460: 'CONTRACT_NUM',
20461: p_contract_number,
20461: p_contract_number,
20462: 'COL_NAME',
20463: 'VENDOR AS CUSTOMER ACCOUNT'
20464: );
20465: x_return_status := OKL_API.G_RET_STS_ERROR;
20466: RAISE party_role_failed;
20467: END IF;
20468: */
20469:
20482: p_customer_account_id => l_vend_cust_acc_id,
20483: x_bill_to_address_id => l_vend_bill_to_addr_id
20484: );
20485:
20486: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20487: x_return_status := OKL_API.G_RET_STS_ERROR;
20488: raise party_role_failed;
20489: END IF;
20490:
20483: x_bill_to_address_id => l_vend_bill_to_addr_id
20484: );
20485:
20486: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20487: x_return_status := OKL_API.G_RET_STS_ERROR;
20488: raise party_role_failed;
20489: END IF;
20490:
20491: debug_message('------>l_vend_bill_to_addr_id : '||l_vend_bill_to_addr_id);
20508: x_rgpv_rec => x_rgpv_rec,
20509: x_rulv_rec => x_rulv_rec
20510: );
20511:
20512: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20513: raise party_role_failed;
20514: END IF;
20515:
20516: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
20517: l_rgp_id := x_rgpv_rec.id;
20518: END IF;
20519: l_rulv_rec := NULL;
20520: ELSE
20521: okl_api.set_message(
20522: G_APP_NAME,
20523: G_MISSING_VALUE,
20524: 'CONTRACT_NUM',
20525: p_contract_number,
20525: p_contract_number,
20526: 'COL_NAME',
20527: 'VENDOR BILL TO ADDRESS'
20528: );
20529: x_return_status := OKL_API.G_RET_STS_ERROR;
20530: RAISE party_role_failed;
20531: END IF;
20532: */
20533:
20545: p_payment_method => p_vend_payment_method,
20546: x_payment_method_id => l_vend_payment_method_id
20547: );
20548:
20549: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20550: x_return_status := OKL_API.G_RET_STS_ERROR;
20551: raise party_role_failed;
20552: END IF;
20553:
20546: x_payment_method_id => l_vend_payment_method_id
20547: );
20548:
20549: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20550: x_return_status := OKL_API.G_RET_STS_ERROR;
20551: raise party_role_failed;
20552: END IF;
20553:
20554: IF (l_vend_payment_method_id IS NOT NULL) THEN
20574: x_rgpv_rec => x_rgpv_rec,
20575: x_rulv_rec => x_rulv_rec
20576: );
20577:
20578: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20579: x_return_status := OKL_API.G_RET_STS_ERROR;
20580: raise party_role_failed;
20581: END IF;
20582:
20575: x_rulv_rec => x_rulv_rec
20576: );
20577:
20578: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20579: x_return_status := OKL_API.G_RET_STS_ERROR;
20580: raise party_role_failed;
20581: END IF;
20582:
20583: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
20602: p_customer_account_id => l_vend_cust_acc_id,
20603: p_cust_site_id => l_vend_bill_to_addr_id,
20604: x_bank_account_id => l_vend_bank_acc_id
20605: );
20606: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20607: x_return_status := OKL_API.G_RET_STS_ERROR;
20608: raise party_role_failed;
20609: END IF;
20610:
20603: p_cust_site_id => l_vend_bill_to_addr_id,
20604: x_bank_account_id => l_vend_bank_acc_id
20605: );
20606: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20607: x_return_status := OKL_API.G_RET_STS_ERROR;
20608: raise party_role_failed;
20609: END IF;
20610:
20611: IF (l_vend_bank_acc_id IS NOT NULL) THEN
20631: x_rgpv_rec => x_rgpv_rec,
20632: x_rulv_rec => x_rulv_rec
20633: );
20634:
20635: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20636: x_return_status := OKL_API.G_RET_STS_ERROR;
20637: raise party_role_failed;
20638: END IF;
20639:
20632: x_rulv_rec => x_rulv_rec
20633: );
20634:
20635: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20636: x_return_status := OKL_API.G_RET_STS_ERROR;
20637: raise party_role_failed;
20638: END IF;
20639:
20640: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
20657: x_invoice_format_id => l_vend_invoice_format_id,
20658: x_invoice_format_name => l_vend_invoice_format_name
20659: );
20660:
20661: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20662: x_return_status := OKL_API.G_RET_STS_ERROR;
20663: raise party_role_failed;
20664: END IF;
20665:
20658: x_invoice_format_name => l_vend_invoice_format_name
20659: );
20660:
20661: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20662: x_return_status := OKL_API.G_RET_STS_ERROR;
20663: raise party_role_failed;
20664: END IF;
20665:
20666: debug_message('Invoice Format: '||l_vend_invoice_format_name);
20694: x_rgpv_rec => x_rgpv_rec,
20695: x_rulv_rec => x_rulv_rec
20696: );
20697:
20698: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20699: x_return_status := OKL_API.G_RET_STS_ERROR;
20700: raise party_role_failed;
20701: END IF;
20702:
20695: x_rulv_rec => x_rulv_rec
20696: );
20697:
20698: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20699: x_return_status := OKL_API.G_RET_STS_ERROR;
20700: raise party_role_failed;
20701: END IF;
20702:
20703: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
20733: x_rgpv_rec => x_rgpv_rec,
20734: x_rulv_rec => x_rulv_rec
20735: );
20736:
20737: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20738: x_return_status := OKL_API.G_RET_STS_ERROR;
20739: raise party_role_failed;
20740: END IF;
20741:
20734: x_rulv_rec => x_rulv_rec
20735: );
20736:
20737: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20738: x_return_status := OKL_API.G_RET_STS_ERROR;
20739: raise party_role_failed;
20740: END IF;
20741:
20742: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
20750: p_rgd_code => 'LAVENB',
20751: p_rle_code => 'OKL_VENDOR',
20752: x_rrd_id => x_rrd_id
20753: );
20754: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20755: okl_api.set_message(
20756: G_APP_NAME,
20757: G_GUARANTOR_SETUP_ERROR,
20758: 'CONTRACT_NUM',
20751: p_rle_code => 'OKL_VENDOR',
20752: x_rrd_id => x_rrd_id
20753: );
20754: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20755: okl_api.set_message(
20756: G_APP_NAME,
20757: G_GUARANTOR_SETUP_ERROR,
20758: 'CONTRACT_NUM',
20759: p_contract_number
20757: G_GUARANTOR_SETUP_ERROR,
20758: 'CONTRACT_NUM',
20759: p_contract_number
20760: );
20761: x_return_status := OKL_API.G_RET_STS_ERROR;
20762: RAISE party_role_failed;
20763: END IF;
20764:
20765: p_cplv_rec := NULL;
20783: l_rmpv_rec.dnz_chr_id := p_chr_id;
20784:
20785: okl_rule_pub.create_rg_mode_pty_role(
20786: p_api_version => 1.0,
20787: p_init_msg_list => OKL_API.G_FALSE,
20788: x_return_status => x_return_status,
20789: x_msg_count => x_msg_count,
20790: x_msg_data => x_msg_data,
20791: p_rmpv_rec => l_rmpv_rec,
20790: x_msg_data => x_msg_data,
20791: p_rmpv_rec => l_rmpv_rec,
20792: x_rmpv_rec => x_rmpv_rec
20793: );
20794: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20795: x_return_status := OKL_API.G_RET_STS_ERROR;
20796: raise party_role_failed;
20797: END IF;
20798: END IF;
20791: p_rmpv_rec => l_rmpv_rec,
20792: x_rmpv_rec => x_rmpv_rec
20793: );
20794: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20795: x_return_status := OKL_API.G_RET_STS_ERROR;
20796: raise party_role_failed;
20797: END IF;
20798: END IF;
20799: END IF; -- Billable Vendor process
20818: p_line_number => p_line_number,
20819: p_vendor_paysite_name => p_pth_base_vendor_site_code,
20820: p_vendor_paysite_id => p_pth_base_vendor_site_id
20821: );
20822: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20823: raise party_role_failed;
20824: END IF;
20825:
20826: IF (p_pth_base_pmnt_term_code is NOT NULL OR
20832: p_payment_term => p_pth_base_pmnt_term_code,
20833: p_payment_term_id => p_pth_base_pmnt_term_id
20834: );
20835:
20836: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20837: raise party_role_failed;
20838: END IF;
20839:
20840: ELSE
20837: raise party_role_failed;
20838: END IF;
20839:
20840: ELSE
20841: okl_api.set_message(
20842: G_APP_NAME,
20843: G_MISSING_VALUE,
20844: 'CONTRACT_NUM',
20845: p_contract_number,
20856: p_auth_org_id => p_auth_org_id,
20857: p_vendor_paysite_id => p_pth_base_vendor_site_id
20858: );
20859:
20860: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
20861: raise party_role_failed;
20862: END IF;
20863:
20864: IF (l_paygroup_code IS NOT NULL) THEN
20863:
20864: IF (l_paygroup_code IS NOT NULL) THEN
20865: l_base_pmnt_dtls_rec.pay_group_code := l_paygroup_code;
20866: ELSE
20867: okl_api.set_message(
20868: G_APP_NAME,
20869: G_MISSING_VALUE_FOR_LINE,
20870: 'CONTRACT_NUM',
20871: p_contract_number||'/'||TO_CHAR(p_line_number),
20887: ELSE
20888: OPEN pmnt_basis_csr(p_pth_base_pmnt_basis);
20889: FETCH pmnt_basis_csr INTO rec_exists_yn;
20890: IF (pmnt_basis_csr%NOTFOUND) THEN
20891: okl_api.set_message(
20892: G_APP_NAME,
20893: G_INVALID_VALUE,
20894: 'CONTRACT_NUM',
20895: p_contract_number||'/'||TO_CHAR(p_line_number),
20907: END IF;
20908:
20909: IF ((p_pth_base_pmnt_basis = 'SCHEDULED') AND
20910: (p_pth_base_pmnt_start_date IS NULL)) THEN
20911: okl_api.set_message(
20912: G_APP_NAME,
20913: G_MISSING_VALUE_FOR_LINE,
20914: 'CONTRACT_NUM',
20915: p_contract_number||'/'||TO_CHAR(p_line_number),
20924: END IF;
20925:
20926: IF ((p_pth_base_pmnt_basis = 'SCHEDULED') AND
20927: (p_pth_base_pmnt_freq IS NULL)) THEN
20928: okl_api.set_message(
20929: G_APP_NAME,
20930: G_MISSING_VALUE_FOR_LINE,
20931: 'CONTRACT_NUM',
20932: p_contract_number||'/'||TO_CHAR(p_line_number),
20943: l_base_pmnt_dtls_rec.payment_method_code := p_pth_base_pmnt_method_code;
20944:
20945: IF ((p_pth_base_pmnt_basis = 'PROCESS_DATE') AND
20946: (p_pth_base_pmnt_remit_days IS NULL)) THEN
20947: okl_api.set_message(
20948: G_APP_NAME,
20949: G_MISSING_VALUE_FOR_LINE,
20950: 'CONTRACT_NUM',
20951: p_contract_number||'/'||TO_CHAR(p_line_number),
20962: IF (p_pth_base_disb_basis is NOT NULL) THEN
20963: OPEN disb_basis_csr(p_pth_base_disb_basis);
20964: FETCH disb_basis_csr INTO rec_exists_yn;
20965: IF (disb_basis_csr%NOTFOUND) THEN
20966: okl_api.set_message(
20967: G_APP_NAME,
20968: G_INVALID_VALUE,
20969: 'CONTRACT_NUM',
20970: p_contract_number||'/'||TO_CHAR(p_line_number),
20979: l_base_pmnt_dtls_rec.disbursement_basis := p_pth_base_disb_basis;
20980: CLOSE disb_basis_csr;
20981: END IF;
20982: ELSE
20983: okl_api.set_message(
20984: G_APP_NAME,
20985: G_MISSING_VALUE_FOR_LINE,
20986: 'CONTRACT_NUM',
20987: p_contract_number||'/'||TO_CHAR(p_line_number),
20993: END IF;
20994:
20995: IF ((p_pth_base_disb_basis = 'AMOUNT')) THEN
20996: IF (p_pth_base_disb_fixed_amount IS NULL) THEN
20997: okl_api.set_message(
20998: G_APP_NAME,
20999: G_MISSING_VALUE_FOR_LINE,
21000: 'CONTRACT_NUM',
21001: p_contract_number||'/'||TO_CHAR(p_line_number),
21011: END IF;
21012:
21013: IF ((p_pth_base_disb_basis = 'PERCENT')) THEN
21014: IF (p_pth_base_disb_pct IS NULL) THEN
21015: okl_api.set_message(
21016: G_APP_NAME,
21017: G_MISSING_VALUE_FOR_LINE,
21018: 'CONTRACT_NUM',
21019: p_contract_number||'/'||TO_CHAR(p_line_number),
21031: IF (p_pth_base_proc_fee_basis is NOT NULL) THEN
21032: OPEN proc_fee_basis_csr(p_pth_base_proc_fee_basis);
21033: FETCH proc_fee_basis_csr INTO rec_exists_yn;
21034: IF (proc_fee_basis_csr%NOTFOUND) THEN
21035: okl_api.set_message(
21036: G_APP_NAME,
21037: G_INVALID_VALUE,
21038: 'CONTRACT_NUM',
21039: p_contract_number||'/'||TO_CHAR(p_line_number),
21051: END IF;
21052:
21053: IF ((p_pth_base_proc_fee_basis = 'AMOUNT')) THEN
21054: IF (p_pth_base_proc_fee_fixed_amt IS NULL) THEN
21055: okl_api.set_message(
21056: G_APP_NAME,
21057: G_MISSING_VALUE_FOR_LINE,
21058: 'CONTRACT_NUM',
21059: p_contract_number||'/'||TO_CHAR(p_line_number),
21069: END IF;
21070:
21071: IF ((p_pth_base_proc_fee_basis = 'PERCENT')) THEN
21072: IF (p_pth_base_proc_pct IS NULL) THEN
21073: okl_api.set_message(
21074: G_APP_NAME,
21075: G_MISSING_VALUE_FOR_LINE,
21076: 'CONTRACT_NUM',
21077: p_contract_number||'/'||TO_CHAR(p_line_number),
21110: p_line_number => p_line_number,
21111: p_vendor_paysite_name => p_pth_evg_vendor_site_code,
21112: p_vendor_paysite_id => p_pth_evg_vendor_site_id
21113: );
21114: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
21115: raise party_role_failed;
21116: END IF;
21117:
21118: IF (p_pth_evg_pmnt_term_code is NOT NULL OR
21124: p_payment_term => p_pth_evg_pmnt_term_code,
21125: p_payment_term_id => p_pth_evg_pmnt_term_id
21126: );
21127:
21128: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
21129: raise party_role_failed;
21130: END IF;
21131:
21132: ELSE
21129: raise party_role_failed;
21130: END IF;
21131:
21132: ELSE
21133: okl_api.set_message(
21134: G_APP_NAME,
21135: G_MISSING_VALUE,
21136: 'CONTRACT_NUM',
21137: p_contract_number,
21148: p_auth_org_id => p_auth_org_id,
21149: p_vendor_paysite_id => p_pth_evg_vendor_site_id
21150: );
21151:
21152: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
21153: raise party_role_failed;
21154: END IF;
21155:
21156: IF (l_paygroup_code IS NOT NULL) THEN
21155:
21156: IF (l_paygroup_code IS NOT NULL) THEN
21157: l_evg_pmnt_dtls_rec.pay_group_code := l_paygroup_code;
21158: ELSE
21159: okl_api.set_message(
21160: G_APP_NAME,
21161: G_MISSING_VALUE_FOR_LINE,
21162: 'CONTRACT_NUM',
21163: p_contract_number||'/'||TO_CHAR(p_line_number),
21176: ELSE
21177: OPEN pmnt_basis_csr(p_pth_evg_pmnt_basis);
21178: FETCH pmnt_basis_csr INTO rec_exists_yn;
21179: IF (pmnt_basis_csr%NOTFOUND) THEN
21180: okl_api.set_message(
21181: G_APP_NAME,
21182: G_INVALID_VALUE,
21183: 'CONTRACT_NUM',
21184: p_contract_number||'/'||TO_CHAR(p_line_number),
21198: l_evg_pmnt_dtls_rec.payment_method_code := p_pth_evg_pmnt_method_code;
21199:
21200: IF ((p_pth_evg_pmnt_basis = 'PROCESS_DATE') AND
21201: (p_pth_evg_pmnt_remit_days IS NULL)) THEN
21202: okl_api.set_message(
21203: G_APP_NAME,
21204: G_MISSING_VALUE_FOR_LINE,
21205: 'CONTRACT_NUM',
21206: p_contract_number||'/'||TO_CHAR(p_line_number),
21216: IF (p_pth_evg_disb_basis is NOT NULL) THEN
21217: OPEN disb_basis_csr(p_pth_evg_disb_basis);
21218: FETCH disb_basis_csr INTO rec_exists_yn;
21219: IF (disb_basis_csr%NOTFOUND) THEN
21220: okl_api.set_message(
21221: G_APP_NAME,
21222: G_INVALID_VALUE,
21223: 'CONTRACT_NUM',
21224: p_contract_number||'/'||TO_CHAR(p_line_number),
21233: l_evg_pmnt_dtls_rec.disbursement_basis := p_pth_evg_disb_basis;
21234: CLOSE disb_basis_csr;
21235: END IF;
21236: ELSE
21237: okl_api.set_message(
21238: G_APP_NAME,
21239: G_MISSING_VALUE_FOR_LINE,
21240: 'CONTRACT_NUM',
21241: p_contract_number||'/'||TO_CHAR(p_line_number),
21246: );
21247: END IF;
21248: IF ((p_pth_evg_disb_basis = 'AMOUNT')) THEN
21249: IF (p_pth_evg_disb_fixed_amount IS NULL) THEN
21250: okl_api.set_message(
21251: G_APP_NAME,
21252: G_MISSING_VALUE_FOR_LINE,
21253: 'CONTRACT_NUM',
21254: p_contract_number||'/'||TO_CHAR(p_line_number),
21263: END IF;
21264: END IF;
21265: IF ((p_pth_evg_disb_basis = 'PERCENT')) THEN
21266: IF (p_pth_evg_disb_pct IS NULL) THEN
21267: okl_api.set_message(
21268: G_APP_NAME,
21269: G_MISSING_VALUE_FOR_LINE,
21270: 'CONTRACT_NUM',
21271: p_contract_number||'/'||TO_CHAR(p_line_number),
21283: IF (p_pth_evg_proc_fee_basis is NOT NULL) THEN
21284: OPEN proc_fee_basis_csr(p_pth_evg_proc_fee_basis);
21285: FETCH proc_fee_basis_csr INTO rec_exists_yn;
21286: IF (proc_fee_basis_csr%NOTFOUND) THEN
21287: okl_api.set_message(
21288: G_APP_NAME,
21289: G_INVALID_VALUE,
21290: 'CONTRACT_NUM',
21291: p_contract_number||'/'||TO_CHAR(p_line_number),
21302: END IF;
21303: END IF;
21304: IF ((p_pth_evg_proc_fee_basis = 'AMOUNT')) THEN
21305: IF (p_pth_evg_proc_fee_fixed_amt IS NULL) THEN
21306: okl_api.set_message(
21307: G_APP_NAME,
21308: G_MISSING_VALUE_FOR_LINE,
21309: 'CONTRACT_NUM',
21310: p_contract_number||'/'||TO_CHAR(p_line_number),
21320: END IF;
21321:
21322: IF ((p_pth_evg_proc_fee_basis = 'PERCENT')) THEN
21323: IF (p_pth_evg_proc_pct IS NULL) THEN
21324: okl_api.set_message(
21325: G_APP_NAME,
21326: G_MISSING_VALUE_FOR_LINE,
21327: 'CONTRACT_NUM',
21328: p_contract_number||'/'||TO_CHAR(p_line_number),
21354: p_ppydv_tbl => l_pmnt_dtls_tbl_in,
21355: x_ppydv_tbl => l_pmnt_dtls_tbl_out
21356: );
21357:
21358: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
21359: x_return_status := OKL_API.G_RET_STS_ERROR;
21360: RAISE party_role_failed;
21361: END IF;
21362: END IF;
21355: x_ppydv_tbl => l_pmnt_dtls_tbl_out
21356: );
21357:
21358: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
21359: x_return_status := OKL_API.G_RET_STS_ERROR;
21360: RAISE party_role_failed;
21361: END IF;
21362: END IF;
21363:
21376: p_line_number => p_line_number,
21377: p_vendor_paysite_name => p_pth_evg_vendor_site_code,
21378: p_vendor_paysite_id => p_pth_evg_vendor_site_id
21379: );
21380: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
21381: raise party_role_failed;
21382: END IF;
21383:
21384: IF (p_pth_evg_pmnt_term_code is NOT NULL OR
21390: p_payment_term => p_pth_evg_pmnt_term_code,
21391: p_payment_term_id => p_pth_evg_pmnt_term_id
21392: );
21393:
21394: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
21395: raise party_role_failed;
21396: END IF;
21397:
21398: ELSE
21395: raise party_role_failed;
21396: END IF;
21397:
21398: ELSE
21399: okl_api.set_message(
21400: G_APP_NAME,
21401: G_MISSING_VALUE,
21402: 'CONTRACT_NUM',
21403: p_contract_number,
21414: p_auth_org_id => p_auth_org_id,
21415: p_vendor_paysite_id => p_pth_evg_vendor_site_id
21416: );
21417:
21418: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
21419: raise party_role_failed;
21420: END IF;
21421:
21422: IF (l_paygroup_code IS NOT NULL) THEN
21421:
21422: IF (l_paygroup_code IS NOT NULL) THEN
21423: l_evg_cont_pmnt_dtls_rec.pay_group_code := l_paygroup_code;
21424: ELSE
21425: okl_api.set_message(
21426: G_APP_NAME,
21427: G_MISSING_VALUE_FOR_LINE,
21428: 'CONTRACT_NUM',
21429: p_contract_number||'/'||TO_CHAR(p_line_number),
21442: ELSE
21443: OPEN pmnt_basis_csr(p_pth_evg_pmnt_basis);
21444: FETCH pmnt_basis_csr INTO rec_exists_yn;
21445: IF (pmnt_basis_csr%NOTFOUND) THEN
21446: okl_api.set_message(
21447: G_APP_NAME,
21448: G_INVALID_VALUE,
21449: 'CONTRACT_NUM',
21450: p_contract_number||'/'||TO_CHAR(p_line_number),
21464: l_evg_cont_pmnt_dtls_rec.payment_method_code := p_pth_evg_pmnt_method_code;
21465:
21466: IF ((p_pth_evg_pmnt_basis = 'PROCESS_DATE') AND
21467: (p_pth_evg_pmnt_remit_days IS NULL)) THEN
21468: okl_api.set_message(
21469: G_APP_NAME,
21470: G_MISSING_VALUE_FOR_LINE,
21471: 'CONTRACT_NUM',
21472: p_contract_number||'/'||TO_CHAR(p_line_number),
21482: IF (p_pth_evg_disb_basis is NOT NULL) THEN
21483: OPEN disb_basis_csr(p_pth_evg_disb_basis);
21484: FETCH disb_basis_csr INTO rec_exists_yn;
21485: IF (disb_basis_csr%NOTFOUND) THEN
21486: okl_api.set_message(
21487: G_APP_NAME,
21488: G_INVALID_VALUE,
21489: 'CONTRACT_NUM',
21490: p_contract_number||'/'||TO_CHAR(p_line_number),
21499: l_evg_cont_pmnt_dtls_rec.disbursement_basis := p_pth_evg_disb_basis;
21500: CLOSE disb_basis_csr;
21501: END IF;
21502: ELSE
21503: okl_api.set_message(
21504: G_APP_NAME,
21505: G_MISSING_VALUE_FOR_LINE,
21506: 'CONTRACT_NUM',
21507: p_contract_number||'/'||TO_CHAR(p_line_number),
21512: );
21513: END IF;
21514: IF ((p_pth_evg_disb_basis = 'AMOUNT')) THEN
21515: IF (p_pth_evg_disb_fixed_amount IS NULL) THEN
21516: okl_api.set_message(
21517: G_APP_NAME,
21518: G_MISSING_VALUE_FOR_LINE,
21519: 'CONTRACT_NUM',
21520: p_contract_number||'/'||TO_CHAR(p_line_number),
21529: END IF;
21530: END IF;
21531: IF ((p_pth_evg_disb_basis = 'PERCENT')) THEN
21532: IF (p_pth_evg_disb_pct IS NULL) THEN
21533: okl_api.set_message(
21534: G_APP_NAME,
21535: G_MISSING_VALUE_FOR_LINE,
21536: 'CONTRACT_NUM',
21537: p_contract_number||'/'||TO_CHAR(p_line_number),
21549: IF (p_pth_evg_proc_fee_basis is NOT NULL) THEN
21550: OPEN proc_fee_basis_csr(p_pth_evg_proc_fee_basis);
21551: FETCH proc_fee_basis_csr INTO rec_exists_yn;
21552: IF (proc_fee_basis_csr%NOTFOUND) THEN
21553: okl_api.set_message(
21554: G_APP_NAME,
21555: G_INVALID_VALUE,
21556: 'CONTRACT_NUM',
21557: p_contract_number||'/'||TO_CHAR(p_line_number),
21568: END IF;
21569: END IF;
21570: IF ((p_pth_evg_proc_fee_basis = 'AMOUNT')) THEN
21571: IF (p_pth_evg_proc_fee_fixed_amt IS NULL) THEN
21572: okl_api.set_message(
21573: G_APP_NAME,
21574: G_MISSING_VALUE_FOR_LINE,
21575: 'CONTRACT_NUM',
21576: p_contract_number||'/'||TO_CHAR(p_line_number),
21586: END IF;
21587:
21588: IF ((p_pth_evg_proc_fee_basis = 'PERCENT')) THEN
21589: IF (p_pth_evg_proc_pct IS NULL) THEN
21590: okl_api.set_message(
21591: G_APP_NAME,
21592: G_MISSING_VALUE_FOR_LINE,
21593: 'CONTRACT_NUM',
21594: p_contract_number||'/'||TO_CHAR(p_line_number),
21620: p_ppydv_tbl => l_cont_pmnt_dtls_tbl_in,
21621: x_ppydv_tbl => l_cont_pmnt_dtls_tbl_out
21622: );
21623:
21624: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
21625: x_return_status := OKL_API.G_RET_STS_ERROR;
21626: RAISE party_role_failed;
21627: END IF;
21628: END IF;
21621: x_ppydv_tbl => l_cont_pmnt_dtls_tbl_out
21622: );
21623:
21624: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
21625: x_return_status := OKL_API.G_RET_STS_ERROR;
21626: RAISE party_role_failed;
21627: END IF;
21628: END IF;
21629: debug_message('Contract evergreen dtls end.');
21634:
21635: EXCEPTION
21636:
21637: WHEN party_role_failed THEN
21638: x_return_status := OKL_API.G_RET_STS_ERROR;
21639: debug_message(l_proc_name ||': '||l_progress);
21640:
21641: WHEN OTHERS THEN
21642: debug_message(l_proc_name ||': '||l_progress);
21704:
21705: x_cash_appl_rule_id OKL_BPD_ACTIVE_CSH_RLS_V.ID1%TYPE;
21706: BEGIN
21707:
21708: x_return_status := OKL_API.G_RET_STS_SUCCESS;
21709: debug_message(l_proc_name);
21710:
21711: IF (p_line_type = 'ASSET') THEN
21712:
21732: p_customer_account_id => g_customer_account_id,
21733: x_bill_to_address_id => x_bill_to_address_id
21734: );
21735:
21736: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
21737: x_return_status := OKL_API.G_RET_STS_ERROR;
21738: raise term_failed;
21739: END IF;
21740:
21733: x_bill_to_address_id => x_bill_to_address_id
21734: );
21735:
21736: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
21737: x_return_status := OKL_API.G_RET_STS_ERROR;
21738: raise term_failed;
21739: END IF;
21740:
21741: END IF; --g_customer_account_id
21746: debug_message('------>prescribed_asset_flag: '||p_prescribed_asset_flag);
21747: IF (p_prescribed_asset_flag IS NOT NULL) THEN
21748:
21749: IF (NVL(p_prescribed_asset_flag,'N') NOT IN ('Y','N')) THEN
21750: okl_api.set_message(
21751: G_APP_NAME,
21752: G_INVALID_VALUE,
21753: 'CONTRACT_NUM',
21754: p_contract_number,
21757: 'COL_VALUE',
21758: p_prescribed_asset_flag
21759: );
21760:
21761: x_return_status := OKL_API.G_RET_STS_ERROR;
21762: raise term_failed;
21763:
21764: END IF;
21765:
21769: l_klev_rec.prescribed_asset_yn := p_prescribed_asset_flag;
21770:
21771: okl_contract_pub.update_contract_line(
21772: p_api_version => 1.0,
21773: p_init_msg_list => OKL_API.G_FALSE,
21774: x_return_status => x_return_status,
21775: x_msg_count => x_msg_count,
21776: x_msg_data => x_msg_data,
21777: p_clev_rec => l_clev_rec,
21779: x_clev_rec => x_clev_rec,
21780: x_klev_rec => x_klev_rec
21781: );
21782:
21783: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
21784: x_return_status := OKL_API.G_RET_STS_ERROR;
21785: raise term_failed;
21786: END IF;
21787:
21780: x_klev_rec => x_klev_rec
21781: );
21782:
21783: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
21784: x_return_status := OKL_API.G_RET_STS_ERROR;
21785: raise term_failed;
21786: END IF;
21787:
21788: debug_message('------>prescribed_asset_flag updated: '||x_klev_rec.prescribed_asset_yn);
21800: l_clev_rec.bill_to_site_use_id := x_bill_to_address_id;
21801:
21802: okl_contract_pub.update_contract_line(
21803: p_api_version => 1.0,
21804: p_init_msg_list => OKL_API.G_FALSE,
21805: x_return_status => x_return_status,
21806: x_msg_count => x_msg_count,
21807: x_msg_data => x_msg_data,
21808: p_clev_rec => l_clev_rec,
21810: x_clev_rec => x_clev_rec,
21811: x_klev_rec => x_klev_rec
21812: );
21813:
21814: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
21815: x_return_status := OKL_API.G_RET_STS_ERROR;
21816: raise term_failed;
21817: END IF;
21818:
21811: x_klev_rec => x_klev_rec
21812: );
21813:
21814: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
21815: x_return_status := OKL_API.G_RET_STS_ERROR;
21816: raise term_failed;
21817: END IF;
21818:
21819: debug_message('------>Bill to updated: '||x_clev_rec.bill_to_site_use_id);
21839: x_rgpv_rec => x_rgpv_rec,
21840: x_rulv_rec => x_rulv_rec
21841: );
21842:
21843: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
21844: raise term_failed;
21845: END IF;
21846:
21847: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
21862: p_customer_account_id => g_customer_account_id,
21863: p_cust_site_id => x_bill_to_address_id,
21864: x_bank_account_id => x_bank_account_id
21865: );
21866: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
21867: x_return_status := OKL_API.G_RET_STS_ERROR;
21868: raise term_failed;
21869: END IF;
21870: END IF;
21863: p_cust_site_id => x_bill_to_address_id,
21864: x_bank_account_id => x_bank_account_id
21865: );
21866: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
21867: x_return_status := OKL_API.G_RET_STS_ERROR;
21868: raise term_failed;
21869: END IF;
21870: END IF;
21871:
21891: x_rgpv_rec => x_rgpv_rec,
21892: x_rulv_rec => x_rulv_rec
21893: );
21894:
21895: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
21896: raise term_failed;
21897: END IF;
21898:
21899: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
21902:
21903: END IF; --bank_account
21904:
21905: IF (p_reason_for_invoice_review IS NOT NULL) THEN -- Bug# 3650522
21906: OKL_API.SET_MESSAGE(
21907: G_APP_NAME,
21908: G_VALUE_NOT_ALLOWED,
21909: 'CONTRACT_NUM',
21910: p_contract_number,
21913: 'COL_NAME',
21914: 'REASON_FOR_INVOICE_REVIEW'
21915: );
21916:
21917: x_return_status := OKL_API.G_RET_STS_ERROR;
21918:
21919: END IF;
21920:
21921: IF (p_invoice_review_until_date IS NOT NULL) THEN -- Bug# 3650522
21918:
21919: END IF;
21920:
21921: IF (p_invoice_review_until_date IS NOT NULL) THEN -- Bug# 3650522
21922: OKL_API.SET_MESSAGE(
21923: G_APP_NAME,
21924: G_VALUE_NOT_ALLOWED,
21925: 'CONTRACT_NUM',
21926: p_contract_number,
21929: 'COL_NAME',
21930: 'INVOICE_REVIEW_UNTIL_DATE'
21931: );
21932:
21933: x_return_status := OKL_API.G_RET_STS_ERROR;
21934:
21935: END IF;
21936:
21937: /* not required, Bug# 3650522
21969: x_rgpv_rec => x_rgpv_rec,
21970: x_rulv_rec => x_rulv_rec
21971: );
21972:
21973: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
21974: raise term_failed;
21975: END IF;
21976: */
21977: /* Bug# 4284166 : not required
21983:
21984: IF (p_invoice_format_id IS NOT NULL
21985: OR
21986: p_invoice_format_code IS NOT NULL) THEN -- Bug# 3650522
21987: OKL_API.SET_MESSAGE(
21988: G_APP_NAME,
21989: G_VALUE_NOT_ALLOWED,
21990: 'CONTRACT_NUM',
21991: p_contract_number,
21994: 'COL_NAME',
21995: 'INVOICE_FORMAT_ID/_CODE'
21996: );
21997:
21998: x_return_status := OKL_API.G_RET_STS_ERROR;
21999:
22000: END IF;
22001:
22002: /* not required, Bug# 3650522
22015: x_invoice_format_id => x_invoice_format_id,
22016: x_invoice_format_name => x_invoice_format_name
22017: );
22018:
22019: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
22020: x_return_status := OKL_API.G_RET_STS_ERROR;
22021: raise term_failed;
22022: END IF;
22023: END IF;
22016: x_invoice_format_name => x_invoice_format_name
22017: );
22018:
22019: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
22020: x_return_status := OKL_API.G_RET_STS_ERROR;
22021: raise term_failed;
22022: END IF;
22023: END IF;
22024:
22025: debug_message('------>Invoice format ID: '||x_invoice_format_id);
22026: */
22027:
22028: IF (p_cash_appl_rule_name IS NOT NULL) THEN -- Bug# 3650522
22029: OKL_API.SET_MESSAGE(
22030: G_APP_NAME,
22031: G_VALUE_NOT_ALLOWED,
22032: 'CONTRACT_NUM',
22033: p_contract_number,
22036: 'COL_NAME',
22037: 'CASH_APPL_RULE_NAME'
22038: );
22039:
22040: x_return_status := OKL_API.G_RET_STS_ERROR;
22041:
22042: END IF;
22043:
22044: IF (p_review_invoice_flag IS NOT NULL) THEN -- Bug# 3650522
22041:
22042: END IF;
22043:
22044: IF (p_review_invoice_flag IS NOT NULL) THEN -- Bug# 3650522
22045: OKL_API.SET_MESSAGE(
22046: G_APP_NAME,
22047: G_VALUE_NOT_ALLOWED,
22048: 'CONTRACT_NUM',
22049: p_contract_number,
22052: 'COL_NAME',
22053: 'REVIEW_INVOICE_FLAG'
22054: );
22055:
22056: x_return_status := OKL_API.G_RET_STS_ERROR;
22057:
22058: END IF;
22059:
22060: /* Not required, Bug# 3650522
22068: p_cash_appl_rule_name => p_cash_appl_rule_name,
22069: x_cash_appl_rule_id => x_cash_appl_rule_id
22070: );
22071:
22072: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
22073: x_return_status := OKL_API.G_RET_STS_ERROR;
22074: raise term_failed;
22075: END IF;
22076: END IF;
22069: x_cash_appl_rule_id => x_cash_appl_rule_id
22070: );
22071:
22072: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
22073: x_return_status := OKL_API.G_RET_STS_ERROR;
22074: raise term_failed;
22075: END IF;
22076: END IF;
22077:
22122: x_rgpv_rec => x_rgpv_rec,
22123: x_rulv_rec => x_rulv_rec
22124: );
22125:
22126: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
22127: raise term_failed;
22128: END IF;
22129: */
22130: /* Bug# 4284166 : not required
22141: -- 3. Review Invoice
22142: -- 4. Reason for Review
22143: -- 5. Review until Date
22144: --
22145: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN -- Bug# 3650522
22146: RAISE term_failed;
22147: END IF;
22148:
22149: debug_message('------>Before Payment Method');
22161: p_payment_method => p_payment_method,
22162: x_payment_method_id => x_payment_method_id
22163: );
22164:
22165: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
22166: x_return_status := OKL_API.G_RET_STS_ERROR;
22167: raise term_failed;
22168: END IF;
22169: END IF;
22162: x_payment_method_id => x_payment_method_id
22163: );
22164:
22165: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
22166: x_return_status := OKL_API.G_RET_STS_ERROR;
22167: raise term_failed;
22168: END IF;
22169: END IF;
22170:
22190: x_rgpv_rec => x_rgpv_rec,
22191: x_rulv_rec => x_rulv_rec
22192: );
22193:
22194: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
22195: raise term_failed;
22196: END IF;
22197:
22198: IF (l_rgp_id IS NULL OR l_rgp_id = OKC_API.G_MISS_NUM) THEN -- cklee bug #7429136
22209:
22210: EXCEPTION
22211:
22212: WHEN term_failed THEN
22213: x_return_status := OKL_API.G_RET_STS_ERROR;
22214:
22215: END process_term;
22216:
22217: ------------------------------------------------------------------------------
22265: --Bug# 6112766: End
22266:
22267: BEGIN
22268:
22269: x_return_status := OKL_API.G_RET_STS_SUCCESS;
22270:
22271: debug_message('------>create_payment_rule_group'); --cklee
22272:
22273: check_stream_type_code(
22279: x_id1 => x_id1,
22280: x_name => l_payment_stream_name
22281: );
22282:
22283: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
22284: okl_api.set_message(
22285: G_APP_NAME,
22286: G_INVALID_VALUE,
22287: 'CONTRACT_NUM',
22280: x_name => l_payment_stream_name
22281: );
22282:
22283: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
22284: okl_api.set_message(
22285: G_APP_NAME,
22286: G_INVALID_VALUE,
22287: 'CONTRACT_NUM',
22288: p_contract_number||'/'||p_line_number,
22290: 'PAYMENT_TYPE_CODE, STREAM_PURPOSE_CODE',
22291: 'COL_VALUE',
22292: p_payment_type_code||', '||p_stream_purpose
22293: );
22294: x_return_status := OKL_API.G_RET_STS_ERROR;
22295: RAISE pay_rule_failed;
22296: END IF;
22297:
22298: --
22305: p_sty_id => x_id1
22306: );
22307:
22308: IF (l_present_yn <> 'Y') THEN
22309: okl_api.set_message(
22310: G_APP_NAME,
22311: G_NO_STRM_TMPL,
22312: 'CONTRACT_NUM',
22313: p_contract_number||'/'||p_line_number,
22355: END IF;
22356:
22357: OKL_RULE_PUB.create_rule_group(
22358: p_api_version => 1.0,
22359: p_init_msg_list => OKL_API.G_FALSE,
22360: x_return_status => x_return_status,
22361: x_msg_count => x_msg_count,
22362: x_msg_data => x_msg_data,
22363: p_rgpv_rec => l_rgpv_rec,
22362: x_msg_data => x_msg_data,
22363: p_rgpv_rec => l_rgpv_rec,
22364: x_rgpv_rec => x_rgpv_rec
22365: );
22366: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
22367: raise pay_rule_failed;
22368: END IF;
22369:
22370: x_rgp_id := x_rgpv_rec.id;
22386: l_rulv_rec.warn_yn := 'N';
22387:
22388: OKL_RULE_PUB.create_rule(
22389: p_api_version => 1.0,
22390: p_init_msg_list => OKL_API.G_FALSE,
22391: x_return_status => x_return_status,
22392: x_msg_count => x_msg_count,
22393: x_msg_data => x_msg_data,
22394: p_rulv_rec => l_rulv_rec,
22394: p_rulv_rec => l_rulv_rec,
22395: x_rulv_rec => x_slh_rulv_rec
22396: );
22397:
22398: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
22399: x_return_status := OKL_API.G_RET_STS_ERROR;
22400: raise pay_rule_failed;
22401: END IF;
22402:
22395: x_rulv_rec => x_slh_rulv_rec
22396: );
22397:
22398: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
22399: x_return_status := OKL_API.G_RET_STS_ERROR;
22400: raise pay_rule_failed;
22401: END IF;
22402:
22403: RETURN;
22407: WHEN rule_group_failed THEN
22408: IF get_rule_group_info%ISOPEN THEN
22409: CLOSE get_rule_group_info;
22410: END IF;
22411: x_return_status := OKL_API.G_RET_STS_ERROR;
22412: --Bug# 6112766: End
22413: WHEN pay_rule_failed THEN
22414: x_return_status := OKL_API.G_RET_STS_ERROR;
22415: END create_payment_rule_group;
22410: END IF;
22411: x_return_status := OKL_API.G_RET_STS_ERROR;
22412: --Bug# 6112766: End
22413: WHEN pay_rule_failed THEN
22414: x_return_status := OKL_API.G_RET_STS_ERROR;
22415: END create_payment_rule_group;
22416:
22417:
22418: ------------------------------------------------------------------------------
22459: x_rulv_tbl rulv_tbl_type;
22460:
22461: BEGIN
22462:
22463: x_return_status := OKL_API.G_RET_STS_ERROR;
22464:
22465: l_rulv_rec := NULL;
22466: l_rulv_rec.rgp_id := p_rgp_id;
22467: l_rulv_rec.dnz_chr_id := p_chr_id;
22477: p_payment_freq_code => p_payment_freq_code,
22478: x_id1 => x_id1,
22479: x_uom_code => x_uom_code
22480: );
22481: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
22482: okl_api.set_message(
22483: G_APP_NAME,
22484: G_INVALID_VALUE,
22485: 'CONTRACT_NUM',
22478: x_id1 => x_id1,
22479: x_uom_code => x_uom_code
22480: );
22481: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
22482: okl_api.set_message(
22483: G_APP_NAME,
22484: G_INVALID_VALUE,
22485: 'CONTRACT_NUM',
22486: p_contract_number||'/'||p_line_number,
22488: 'PAYMENT_FREQUENCY_CODE',
22489: 'COL_VALUE',
22490: p_payment_freq_code
22491: );
22492: x_return_status := OKL_API.G_RET_STS_ERROR;
22493: RAISE pay_other_failed;
22494: END IF;
22495:
22496: l_rulv_rec.jtot_object1_code := 'OKL_TUOM';
22552: l_rulv_tbl(1).object2_id2 := l_rulv_rec.object2_id2;
22553:
22554: okl_la_payments_pvt_1.create_rule(
22555: p_api_version => 1.0,
22556: p_init_msg_list => OKL_API.G_FALSE,
22557: x_return_status => x_return_status,
22558: x_msg_count => x_msg_count,
22559: x_msg_data => x_msg_data,
22560: p_rulv_tbl => l_rulv_tbl,
22560: p_rulv_tbl => l_rulv_tbl,
22561: x_rulv_tbl => x_rulv_tbl
22562: );
22563:
22564: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
22565: x_return_status := OKL_API.G_RET_STS_ERROR;
22566: RAISE pay_other_failed;
22567: END IF;
22568: */
22561: x_rulv_tbl => x_rulv_tbl
22562: );
22563:
22564: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
22565: x_return_status := OKL_API.G_RET_STS_ERROR;
22566: RAISE pay_other_failed;
22567: END IF;
22568: */
22569:
22568: */
22569:
22570: OKL_RULE_PUB.create_rule(
22571: p_api_version => 1.0,
22572: p_init_msg_list => OKL_API.G_FALSE,
22573: x_return_status => x_return_status,
22574: x_msg_count => x_msg_count,
22575: x_msg_data => x_msg_data,
22576: p_rulv_rec => l_rulv_rec,
22576: p_rulv_rec => l_rulv_rec,
22577: x_rulv_rec => x_rulv_rec
22578: );
22579:
22580: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
22581: x_return_status := OKL_API.G_RET_STS_ERROR;
22582: RAISE pay_other_failed;
22583: END IF;
22584:
22577: x_rulv_rec => x_rulv_rec
22578: );
22579:
22580: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
22581: x_return_status := OKL_API.G_RET_STS_ERROR;
22582: RAISE pay_other_failed;
22583: END IF;
22584:
22585: -- Now calculate payment start date
22584:
22585: -- Now calculate payment start date
22586: OKL_LA_PAYMENTS_PVT.calculate_details(
22587: p_api_version => 1.0,
22588: p_init_msg_list => OKL_API.G_FALSE,
22589: x_return_status => x_return_status,
22590: x_msg_count => x_msg_count,
22591: x_msg_data => x_msg_data,
22592: p_chr_id => p_chr_id,
22598: -- Bug# 6438785
22599: p_validate_date_yn => 'N'
22600: );
22601:
22602: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
22603: x_return_status := OKL_API.G_RET_STS_ERROR;
22604: RAISE pay_other_failed;
22605: END IF;
22606:
22599: p_validate_date_yn => 'N'
22600: );
22601:
22602: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
22603: x_return_status := OKL_API.G_RET_STS_ERROR;
22604: RAISE pay_other_failed;
22605: END IF;
22606:
22607: RETURN;
22607: RETURN;
22608:
22609: EXCEPTION
22610: WHEN pay_other_failed THEN
22611: x_return_status := OKL_API.G_RET_STS_ERROR;
22612:
22613: END create_payment_other_rules;
22614:
22615: ------------------------------------------------------------------------------
22699: AND SYSDATE BETWEEN NVL(start_date_active, SYSDATE) AND NVL(end_date_active, SYSDATE);
22700:
22701: BEGIN
22702:
22703: x_return_status := OKL_API.G_RET_STS_SUCCESS;
22704:
22705: OPEN org_csr(p_inventory_org_id);
22706: FETCH org_csr INTO l_org_id;
22707:
22705: OPEN org_csr(p_inventory_org_id);
22706: FETCH org_csr INTO l_org_id;
22707:
22708: IF org_csr%NOTFOUND THEN
22709: okl_api.set_message(
22710: G_APP_NAME,
22711: G_INVALID_VALUE,
22712: 'CONTRACT_NUM',
22713: p_contract_number,
22726: p_inventory_item_id,
22727: p_inventory_item_name);
22728: FETCH item_csr into l_item_id;
22729: IF item_csr%NOTFOUND THEN
22730: okl_api.set_message(
22731: G_APP_NAME,
22732: G_INVALID_VALUE,
22733: 'CONTRACT_NUM',
22734: p_contract_number||'/'||p_line_number,
22745: p_inventory_item_id,
22746: p_inventory_item_name);
22747: FETCH service_item_csr into l_item_id;
22748: IF service_item_csr%NOTFOUND THEN
22749: okl_api.set_message(
22750: G_APP_NAME,
22751: G_INVALID_VALUE,
22752: 'CONTRACT_NUM',
22753: p_contract_number||'/'||p_line_number,
22775: END IF;
22776: IF service_item_csr%ISOPEN THEN
22777: CLOSE service_item_csr;
22778: END IF;
22779: x_return_status := OKL_API.G_RET_STS_ERROR;
22780:
22781: WHEN OTHERS THEN
22782: okl_api.set_message(
22783: G_APP_NAME,
22778: END IF;
22779: x_return_status := OKL_API.G_RET_STS_ERROR;
22780:
22781: WHEN OTHERS THEN
22782: okl_api.set_message(
22783: G_APP_NAME,
22784: G_UNEXPECTED_ERROR,
22785: 'OKL_SQLCODE',
22786: SQLCODE,
22786: SQLCODE,
22787: 'OKL_SQLERRM',
22788: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
22789: );
22790: x_return_status := OKL_API.G_RET_STS_ERROR;
22791:
22792: END get_inventory_org_item_id;
22793:
22794: ------------------------------------------------------------------------------
22823: WHERE asset_number = p_asset_number
22824: AND SYSDATE BETWEEN NVL(start_date_active, SYSDATE) AND NVL(end_date_active, SYSDATE);
22825:
22826: BEGIN
22827: x_return_status := OKL_API.G_RET_STS_SUCCESS;
22828:
22829: OPEN asset_csr (p_asset_number);
22830: FETCH asset_csr INTO l_id1,
22831: l_id2;
22829: OPEN asset_csr (p_asset_number);
22830: FETCH asset_csr INTO l_id1,
22831: l_id2;
22832: IF asset_csr%NOTFOUND THEN
22833: okl_api.set_message(
22834: G_APP_NAME,
22835: G_INVALID_VALUE,
22836: 'CONTRACT_NUM',
22837: p_contract_number||'/'||p_line_number,
22856: IF asset_csr%ISOPEN THEN
22857: CLOSE asset_csr;
22858: END IF;
22859:
22860: x_return_status := OKL_API.G_RET_STS_ERROR;
22861:
22862: END get_asset_id;
22863:
22864: ------------------------------------------------------------------------------
22943: l_proc_name VARCHAR2(35) := 'GET_ASSET_KEY_ID';
22944:
22945: BEGIN
22946:
22947: x_return_status := OKL_API.G_RET_STS_SUCCESS;
22948: debug_message(l_proc_name);
22949:
22950: IF (p_comb_id IS NOT NULL) THEN
22951: x_comb_id := p_comb_id;
22993: IF flex_asset_key_csr%ISOPEN THEN
22994: CLOSE flex_asset_key_csr;
22995: END IF;
22996:
22997: okl_api.set_message(
22998: G_APP_NAME,
22999: G_INVALID_COMBINATION,
23000: 'CONTRACT_NUM',
23001: p_contract_number||'/'||p_line_number,
23001: p_contract_number||'/'||p_line_number,
23002: 'COMB_TYPE',
23003: 'ASSET_KEY'
23004: );
23005: x_return_status := OKL_API.G_RET_STS_ERROR;
23006:
23007: WHEN OTHERS THEN
23008: okl_api.set_message(
23009: G_APP_NAME,
23004: );
23005: x_return_status := OKL_API.G_RET_STS_ERROR;
23006:
23007: WHEN OTHERS THEN
23008: okl_api.set_message(
23009: G_APP_NAME,
23010: G_UNEXPECTED_ERROR,
23011: 'OKL_SQLCODE',
23012: SQLCODE,
23012: SQLCODE,
23013: 'OKL_SQLERRM',
23014: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
23015: );
23016: x_return_status := OKL_API.G_RET_STS_ERROR;
23017:
23018: END get_asset_key_id;
23019:
23020: ------------------------------------------------------------------------------
23086: flex_failed EXCEPTION;
23087:
23088: BEGIN
23089:
23090: x_return_status := OKL_API.G_RET_STS_SUCCESS;
23091:
23092: IF (p_comb_id IS NOT NULL) THEN
23093: x_comb_id := p_comb_id;
23094: ELSIF (p_segment1 IS NOT NULL
23143: ELSIF flex_loc_csr%ISOPEN THEN
23144: CLOSE flex_loc_csr;
23145: END IF;
23146:
23147: okl_api.set_message(
23148: G_APP_NAME,
23149: G_INVALID_COMBINATION,
23150: 'CONTRACT_NUM',
23151: p_contract_number||'/'||p_line_number,
23151: p_contract_number||'/'||p_line_number,
23152: 'COMB_TYPE',
23153: p_type
23154: );
23155: x_return_status := OKL_API.G_RET_STS_ERROR;
23156:
23157: WHEN OTHERS THEN
23158: x_return_status := OKL_API.G_RET_STS_ERROR;
23159:
23154: );
23155: x_return_status := OKL_API.G_RET_STS_ERROR;
23156:
23157: WHEN OTHERS THEN
23158: x_return_status := OKL_API.G_RET_STS_ERROR;
23159:
23160: END get_flexid;
23161:
23162: ------------------------------------------------------------------------------
23199: AND party_id = g_customer_id
23200: AND status = 'A';
23201:
23202: BEGIN
23203: x_return_status := OKL_API.G_RET_STS_SUCCESS;
23204:
23205: OPEN install_csr (p_install_site_number,
23206: p_install_site_id);
23207: FETCH install_csr INTO l_id1;
23217: WHEN install_failed THEN
23218: IF install_csr%ISOPEN THEN
23219: CLOSE install_csr;
23220: END IF;
23221: okl_api.set_message(
23222: G_APP_NAME,
23223: G_INVALID_VALUE,
23224: 'CONTRACT_NUM',
23225: p_contract_number||'/'||p_line_number,
23227: 'INSTALL_SITE_ID, NAME: ',
23228: 'COL_VALUE',
23229: p_install_site_id||', '||p_install_site_number
23230: );
23231: x_return_status := OKL_API.G_RET_STS_ERROR;
23232:
23233: END get_install_site_id;
23234:
23235: ------------------------------------------------------------------------------
23277: AND ols2.lse_parent_id = ostl.lse_id;
23278:
23279: BEGIN
23280:
23281: x_return_status := OKL_API.G_RET_STS_SUCCESS;
23282:
23283: IF (p_top_line_lty_code IS NULL) THEN
23284: OPEN top_lse_csr(p_lty_code);
23285: FETCH top_lse_csr INTO l_id;
23283: IF (p_top_line_lty_code IS NULL) THEN
23284: OPEN top_lse_csr(p_lty_code);
23285: FETCH top_lse_csr INTO l_id;
23286: IF top_lse_csr%NOTFOUND THEN
23287: okl_api.set_message(
23288: G_APP_NAME,
23289: G_INVALID_LTY_CODE,
23290: 'LTY_CODE',
23291: p_lty_code,
23301: OPEN sub_lse_csr(p_lty_code,
23302: p_top_line_lty_code);
23303: FETCH sub_lse_csr INTO l_id;
23304: IF sub_lse_csr%NOTFOUND THEN
23305: okl_api.set_message(
23306: G_APP_NAME,
23307: G_INVALID_LTY_CODE,
23308: 'LTY_CODE',
23309: p_lty_code,
23326: END IF;
23327: IF sub_lse_csr%ISOPEN THEN
23328: CLOSE sub_lse_csr;
23329: END IF;
23330: x_return_status := OKL_API.G_RET_STS_ERROR;
23331: END get_lse_id;
23332:
23333: ------------------------------------------------------------------------------
23334: -- PROCEDURE validate_real_est
23361:
23362:
23363: BEGIN
23364:
23365: x_return_status := OKL_API.G_RET_STS_SUCCESS;
23366:
23367: -- real estate required columns check
23368: IF ((p_intf_line.real_est_init_direct_cost IS NOT NULL or
23369: p_intf_line.real_est_refinance_amt IS NOT NULL or
23377: p_intf_line.real_est_property_class_code IS NOT NULL and
23378: p_intf_line.real_est_gross_footage IS NOT NULL)) THEN
23379:
23380:
23381: okl_api.set_message(
23382: G_APP_NAME,
23383: G_MISSING_VALUE_FOR_LINE,
23384: 'CONTRACT_NUM',
23385: p_intf_line.contract_number_old||'/'||TO_CHAR(p_intf_line.line_number),
23408: CLOSE c_prc;
23409:
23410: IF (l_prc) THEN
23411:
23412: okl_api.set_message(
23413: G_APP_NAME,
23414: G_INVALID_VALUE,
23415: 'CONTRACT_NUM',
23416: p_intf_line.contract_number_old,
23428: return;
23429:
23430: EXCEPTION
23431: WHEN validate_real_est_failed THEN
23432: x_return_status := OKL_API.G_RET_STS_ERROR;
23433: debug_message(l_proc_name ||': '||l_progress);
23434: WHEN OTHERS THEN
23435: x_return_status := OKL_API.G_RET_STS_ERROR;
23436: debug_message(l_proc_name ||': '||l_progress);
23431: WHEN validate_real_est_failed THEN
23432: x_return_status := OKL_API.G_RET_STS_ERROR;
23433: debug_message(l_proc_name ||': '||l_progress);
23434: WHEN OTHERS THEN
23435: x_return_status := OKL_API.G_RET_STS_ERROR;
23436: debug_message(l_proc_name ||': '||l_progress);
23437:
23438: END validate_real_est;
23439:
23472: FROM okc_line_styles_v
23473: WHERE lty_code = 'FREE_FORM1' -- to determine TOP line
23474: );
23475: BEGIN
23476: x_return_status := OKL_API.G_RET_STS_SUCCESS;
23477: OPEN fin_csr (p_chr_id,
23478: p_asset_number);
23479: FETCH fin_csr INTO l_line_id;
23480:
23478: p_asset_number);
23479: FETCH fin_csr INTO l_line_id;
23480:
23481: IF fin_csr%NOTFOUND THEN
23482: okl_api.set_message(
23483: G_APP_NAME,
23484: G_FIN_ASSET_ERROR,
23485: 'CONTRACT_NUM',
23486: p_contract_number,
23502: WHEN fin_failed THEN
23503: IF fin_csr%ISOPEN THEN
23504: CLOSE fin_csr;
23505: END IF;
23506: x_return_status := OKL_API.G_RET_STS_ERROR;
23507:
23508: WHEN OTHERS THEN
23509: okl_api.set_message(
23510: G_APP_NAME,
23505: END IF;
23506: x_return_status := OKL_API.G_RET_STS_ERROR;
23507:
23508: WHEN OTHERS THEN
23509: okl_api.set_message(
23510: G_APP_NAME,
23511: G_UNEXPECTED_ERROR,
23512: 'OKL_SQLCODE',
23513: SQLCODE,
23513: SQLCODE,
23514: 'OKL_SQLERRM',
23515: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
23516: );
23517: x_return_status := OKL_API.G_RET_STS_ERROR;
23518: END get_link_asset_id;
23519:
23520: ------------------------------------------------------------------------------
23521: -- PROCEDURE validate_usage_other_line
23556: l_dummy VARCHAR2(1);
23557: BEGIN
23558:
23559: debug_message(l_proc_name);
23560: x_return_status := OKL_API.G_RET_STS_SUCCESS;
23561:
23562: l_dummy := 'N';
23563: OPEN assoc_csr(p_usage_item_id,
23564: p_asset_line_id);
23565: FETCH assoc_csr INTO l_dummy;
23566: IF (assoc_csr%NOTFOUND
23567: OR
23568: l_dummy = 'N') THEN
23569: okl_api.set_message(
23570: G_APP_NAME,
23571: G_INVALID_USAGE_ITEM_ASSOC,
23572: 'CONTRACT_NUM',
23573: p_contract_number||'/'||p_line_number,
23584: WHEN assoc_failed THEN
23585: IF assoc_csr%ISOPEN THEN
23586: CLOSE assoc_csr;
23587: END IF;
23588: x_return_status := OKL_API.G_RET_STS_ERROR;
23589: END validate_usage_item_assoc;
23590:
23591: ------------------------------------------------------------------------------
23592: -- PROCEDURE validate_term_quote
23618: WHERE quote_number = p_qte_number;
23619:
23620: BEGIN
23621:
23622: x_return_status := OKL_API.G_RET_STS_SUCCESS;
23623:
23624: IF (p_term_quote_number IS NOT NULL) THEN
23625: OPEN qte_csr (p_term_quote_number);
23626: FETCH qte_csr INTO l_quote_id;
23624: IF (p_term_quote_number IS NOT NULL) THEN
23625: OPEN qte_csr (p_term_quote_number);
23626: FETCH qte_csr INTO l_quote_id;
23627: IF (qte_csr%NOTFOUND) THEN
23628: okl_api.set_message(
23629: G_APP_NAME,
23630: G_INVALID_VALUE,
23631: 'CONTRACT_NUM',
23632: p_contract_number||'/'||p_line_number,
23645:
23646: -- validate quote
23647: okl_maintain_fee_pvt.validate_rollover_feeLine(
23648: p_api_version => 1.0,
23649: p_init_msg_list => OKL_API.G_FALSE,
23650: x_return_status => x_return_status,
23651: x_msg_count => x_msg_count,
23652: x_msg_data => x_msg_data,
23653: p_chr_id => p_chr_id,
23654: p_qte_id => l_quote_id
23655: --p_for_qa_check => 'T'
23656: );
23657:
23658: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
23659: RAISE quote_failed;
23660: END IF;
23661:
23662: x_term_quote_id := l_quote_id;
23664: RETURN;
23665:
23666: EXCEPTION
23667: WHEN quote_failed THEN
23668: x_return_status := OKL_API.G_RET_STS_ERROR;
23669: IF (qte_csr%ISOPEN) THEN
23670: CLOSE qte_csr;
23671: END IF;
23672:
23727: AND (STL.end_date >= p_contract_start_date OR STL.end_date IS NULL);
23728:
23729: BEGIN
23730:
23731: x_return_status := OKL_API.G_RET_STS_SUCCESS;
23732:
23733: OPEN contract_csr(p_contract_id);
23734: FETCH contract_csr INTO l_contract_number,l_contract_start_date;
23735:
23733: OPEN contract_csr(p_contract_id);
23734: FETCH contract_csr INTO l_contract_number,l_contract_start_date;
23735:
23736: IF contract_csr%NOTFOUND THEN
23737: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
23738: CLOSE contract_csr;
23739: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
23740: p_msg_name => G_LLA_CHR_ID);
23741: RAISE party_pmnt_header_failed;
23735:
23736: IF contract_csr%NOTFOUND THEN
23737: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
23738: CLOSE contract_csr;
23739: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
23740: p_msg_name => G_LLA_CHR_ID);
23741: RAISE party_pmnt_header_failed;
23742: END IF;
23743:
23754: p_stream_purpose => p_pth_base_stream_purpose_code,
23755: x_id1 => l_base_stream_type_id,
23756: x_name => l_stream_name
23757: );
23758: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
23759: okl_api.set_message(
23760: G_APP_NAME,
23761: G_INVALID_VALUE,
23762: 'CONTRACT_NUM',
23755: x_id1 => l_base_stream_type_id,
23756: x_name => l_stream_name
23757: );
23758: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
23759: okl_api.set_message(
23760: G_APP_NAME,
23761: G_INVALID_VALUE,
23762: 'CONTRACT_NUM',
23763: l_contract_number, --||'/'||TO_CHAR(p_line_number),
23765: 'PTH_BASE_STREAM_CODE, PTH_BASE_STREAM_PURPOSE_CODE',
23766: 'COL_VALUE',
23767: p_pth_base_stream_code||', '||p_pth_base_stream_purpose_code
23768: );
23769: x_return_status := OKL_API.G_RET_STS_ERROR;
23770: RAISE party_pmnt_header_failed;
23771: END IF;
23772:
23773: -- Check if the stream type is ID is effective
23775: FETCH passthru_stream_csr INTO l_yn;
23776:
23777: IF passthru_stream_csr%NOTFOUND THEN
23778: CLOSE passthru_stream_csr;
23779: okl_api.set_message(
23780: G_APP_NAME,
23781: G_NO_STRM_TMPL,
23782: 'CONTRACT_NUM',
23783: l_contract_number, --||'/'||p_line_number,
23803: p_stream_purpose => p_pth_evg_stream_purpose_code,
23804: x_id1 => l_evg_stream_type_id,
23805: x_name => l_stream_name
23806: );
23807: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
23808: okl_api.set_message(
23809: G_APP_NAME,
23810: G_INVALID_VALUE,
23811: 'CONTRACT_NUM',
23804: x_id1 => l_evg_stream_type_id,
23805: x_name => l_stream_name
23806: );
23807: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
23808: okl_api.set_message(
23809: G_APP_NAME,
23810: G_INVALID_VALUE,
23811: 'CONTRACT_NUM',
23812: l_contract_number, --||'/'||TO_CHAR(p_line_number),
23814: 'PTH_EVG_STREAM_CODE, PTH_EVG_STREAM_PURPOSE_CODE',
23815: 'COL_VALUE',
23816: p_pth_evg_stream_code||', '||p_pth_evg_stream_purpose_code
23817: );
23818: x_return_status := OKL_API.G_RET_STS_ERROR;
23819: RAISE party_pmnt_header_failed;
23820: END IF;
23821:
23822: -- Check if the stream type is ID is effective
23824: FETCH passthru_stream_csr INTO l_yn;
23825:
23826: IF passthru_stream_csr%NOTFOUND THEN
23827: CLOSE passthru_stream_csr;
23828: okl_api.set_message(
23829: G_APP_NAME,
23830: G_NO_STRM_TMPL,
23831: 'CONTRACT_NUM',
23832: l_contract_number, --||'/'||p_line_number,
23898: x_pphv_tbl => l_pmnt_hdr_tbl_out
23899: );
23900: x_party_pmnt_hdr_tbl := l_pmnt_hdr_tbl_out;
23901:
23902: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
23903: x_return_status := OKL_API.G_RET_STS_ERROR;
23904: RAISE party_pmnt_header_failed;
23905: END IF;
23906: END IF;
23899: );
23900: x_party_pmnt_hdr_tbl := l_pmnt_hdr_tbl_out;
23901:
23902: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
23903: x_return_status := OKL_API.G_RET_STS_ERROR;
23904: RAISE party_pmnt_header_failed;
23905: END IF;
23906: END IF;
23907:
23908: RETURN;
23909:
23910: EXCEPTION
23911: WHEN party_pmnt_header_failed THEN
23912: x_return_status := OKL_API.G_RET_STS_ERROR;
23913:
23914: END create_party_payment_hdr;
23915:
23916: ------------------------------------------------------------------------------
24033: l_stream_name OKL_STRMTYP_SOURCE_V.NAME%TYPE;
24034:
24035: BEGIN
24036:
24037: x_return_status := OKL_API.G_RET_STS_SUCCESS;
24038: p_klev_rec := NULL;
24039: p_clev_rec := NULL;
24040:
24041: -- Set line_type based parameters
24068: p_stream_purpose => p_stream_purpose,
24069: x_id1 => x_stream_type_id,
24070: x_name => l_stream_name
24071: );
24072: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24073: x_return_status := OKL_API.G_RET_STS_ERROR;
24074: RAISE service_failed;
24075: END IF;
24076:
24069: x_id1 => x_stream_type_id,
24070: x_name => l_stream_name
24071: );
24072: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24073: x_return_status := OKL_API.G_RET_STS_ERROR;
24074: RAISE service_failed;
24075: END IF;
24076:
24077:
24087: x_return_status => x_return_status,
24088: p_fee_type => p_fee_type
24089: );
24090:
24091: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24092: okl_api.set_message(
24093: G_APP_NAME,
24094: G_INVALID_VALUE,
24095: 'CONTRACT_NUM',
24088: p_fee_type => p_fee_type
24089: );
24090:
24091: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24092: okl_api.set_message(
24093: G_APP_NAME,
24094: G_INVALID_VALUE,
24095: 'CONTRACT_NUM',
24096: p_contract_number,
24111: p_org_id => p_inv_org_id,
24112: x_usage_item_id => x_usage_item_id,
24113: x_usage_id2 => x_usage_id2
24114: );
24115: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24116: okl_api.set_message(
24117: G_APP_NAME,
24118: G_INVALID_VALUE,
24119: 'CONTRACT_NUM',
24112: x_usage_item_id => x_usage_item_id,
24113: x_usage_id2 => x_usage_id2
24114: );
24115: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24116: okl_api.set_message(
24117: G_APP_NAME,
24118: G_INVALID_VALUE,
24119: 'CONTRACT_NUM',
24120: p_contract_number,
24148: OR
24149: p_line_type_prev <> p_line_type)
24150: AND
24151: p_new_line_flag = 'N') THEN
24152: okl_api.set_message(
24153: G_APP_NAME,
24154: G_INVALID_NEW_LINE_REQ,
24155: 'CONTRACT_NUM',
24156: p_contract_number,
24180: p_lty_code => l_lty_code,
24181: p_top_line_lty_code => NULL,
24182: x_lse_id => x_lse_id
24183: );
24184: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24185: x_return_status := OKL_API.G_RET_STS_ERROR;
24186: RAISE service_failed;
24187: END IF;
24188: p_clev_rec.chr_id := p_chr_id;
24181: p_top_line_lty_code => NULL,
24182: x_lse_id => x_lse_id
24183: );
24184: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24185: x_return_status := OKL_API.G_RET_STS_ERROR;
24186: RAISE service_failed;
24187: END IF;
24188: p_clev_rec.chr_id := p_chr_id;
24189: p_clev_rec.dnz_chr_id := p_chr_id;
24212: p_klev_rec.initial_direct_cost IS NOT NULL
24213: AND
24214: p_klev_rec.initial_direct_cost > p_klev_rec.amount) THEN
24215:
24216: OKL_API.SET_MESSAGE(
24217: G_APP_NAME,
24218: G_INIT_DIRC_COST,
24219: 'CONTRACT_NUM',
24220: p_contract_number,
24221: 'LINE_NUM',
24222: p_line_number
24223: );
24224:
24225: x_return_status := OKL_API.G_RET_STS_ERROR;
24226: RAISE service_failed;
24227:
24228: END IF;
24229:
24249: p_term_quote_number => p_term_quote_number,
24250: x_term_quote_id => x_term_quote_id
24251: );
24252:
24253: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24254: x_return_status := OKL_API.G_RET_STS_ERROR;
24255: RAISE service_failed;
24256: END IF;
24257:
24250: x_term_quote_id => x_term_quote_id
24251: );
24252:
24253: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24254: x_return_status := OKL_API.G_RET_STS_ERROR;
24255: RAISE service_failed;
24256: END IF;
24257:
24258: p_klev_rec.qte_id := x_term_quote_id;
24308: x_vendor_id => l_fee_vendor_id,
24309: p_vendor_name => l_fee_vendor_name
24310: );
24311:
24312: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24313: RAISE service_failed;
24314: END IF;
24315: END IF;
24316:
24321: l_fee_types_rec.qte_id := p_term_quote_id;
24322:
24323: okl_maintain_fee_pvt.validate_fee_type(
24324: p_api_version => 1.0,
24325: p_init_msg_list => OKL_API.G_FALSE,
24326: x_return_status => x_return_status,
24327: x_msg_count => x_msg_count,
24328: x_msg_data => x_msg_data,
24329: p_fee_types_rec => l_fee_types_rec,
24329: p_fee_types_rec => l_fee_types_rec,
24330: x_fee_types_rec => x_fee_types_rec
24331: );
24332:
24333: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24334: RAISE service_failed;
24335: END IF;
24336:
24337: debug_message('=====> Qte ID: '||x_fee_types_rec.qte_id);
24340: END IF; -- fee type validation
24341:
24342: okl_contract_pub.create_contract_line(
24343: p_api_version => 1.0,
24344: p_init_msg_list => OKL_API.G_FALSE,
24345: x_return_status => x_return_status,
24346: x_msg_count => x_msg_count,
24347: x_msg_data => x_msg_data,
24348: p_clev_rec => p_clev_rec,
24350: x_clev_rec => x_clev_rec,
24351: x_klev_rec => x_klev_rec
24352: );
24353:
24354: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24355: x_return_status := OKL_API.G_RET_STS_ERROR;
24356: RAISE service_failed;
24357: END IF;
24358:
24351: x_klev_rec => x_klev_rec
24352: );
24353:
24354: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24355: x_return_status := OKL_API.G_RET_STS_ERROR;
24356: RAISE service_failed;
24357: END IF;
24358:
24359: x_cle_id := x_clev_rec.id;
24383: p_cimv_rec.exception_yn := 'N';
24384:
24385: OKL_OKC_MIGRATION_PVT.create_contract_item(
24386: p_api_version => 1.0,
24387: p_init_msg_list => OKL_API.G_FALSE,
24388: x_return_status => x_return_status,
24389: x_msg_count => x_msg_count,
24390: x_msg_data => x_msg_data,
24391: p_cimv_rec => p_cimv_rec,
24391: p_cimv_rec => p_cimv_rec,
24392: x_cimv_rec => x_cimv_rec
24393: );
24394: l_progress := '100.5';
24395: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24396: x_return_status := OKL_API.G_RET_STS_ERROR;
24397: RAISE service_failed;
24398: END IF;
24399:
24392: x_cimv_rec => x_cimv_rec
24393: );
24394: l_progress := '100.5';
24395: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24396: x_return_status := OKL_API.G_RET_STS_ERROR;
24397: RAISE service_failed;
24398: END IF;
24399:
24400: debug_message('Top line created for line# : '|| p_line_number);
24420: p_pth_evg_stream_purpose_code => p_pth_evg_stream_purpose_code,
24421: x_party_pmnt_hdr_tbl => x_party_pmnt_hdr_tbl_out
24422: );
24423: debug_message('------>Create party payment ends '||x_return_status);
24424: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24425: x_return_status := OKL_API.G_RET_STS_ERROR;
24426: RAISE service_failed;
24427: END IF;
24428: END IF;
24421: x_party_pmnt_hdr_tbl => x_party_pmnt_hdr_tbl_out
24422: );
24423: debug_message('------>Create party payment ends '||x_return_status);
24424: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24425: x_return_status := OKL_API.G_RET_STS_ERROR;
24426: RAISE service_failed;
24427: END IF;
24428: END IF;
24429: IF (x_party_pmnt_hdr_tbl_out.COUNT > 0 )THEN
24457: p_lty_code => l_link_lty_code,
24458: p_top_line_lty_code => l_lty_code,
24459: x_lse_id => x_lse_id
24460: );
24461: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24462: x_return_status := OKL_API.G_RET_STS_ERROR;
24463: RAISE service_failed;
24464: END IF;
24465:
24458: p_top_line_lty_code => l_lty_code,
24459: x_lse_id => x_lse_id
24460: );
24461: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24462: x_return_status := OKL_API.G_RET_STS_ERROR;
24463: RAISE service_failed;
24464: END IF;
24465:
24466: p_clev_rec.cle_id := x_cle_id;
24496:
24497:
24498: okl_contract_pub.create_contract_line(
24499: p_api_version => 1.0,
24500: p_init_msg_list => OKL_API.G_FALSE,
24501: x_return_status => x_return_status,
24502: x_msg_count => x_msg_count,
24503: x_msg_data => x_msg_data,
24504: p_clev_rec => p_clev_rec,
24507: x_klev_rec => x_klev_rec
24508: );
24509: l_progress := '100.6';
24510:
24511: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24512: x_return_status := OKL_API.G_RET_STS_ERROR;
24513: RAISE service_failed;
24514: END IF;
24515:
24508: );
24509: l_progress := '100.6';
24510:
24511: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24512: x_return_status := OKL_API.G_RET_STS_ERROR;
24513: RAISE service_failed;
24514: END IF;
24515:
24516: x_sub_cle_id := x_clev_rec.id; -- ID of the sub-line, Bug# 3110115
24526: p_line_number => p_line_number,
24527: x_asset_line_id => x_asset_line_id
24528: );
24529:
24530: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24531: x_return_status := OKL_API.G_RET_STS_ERROR;
24532: RAISE service_failed;
24533: END IF;
24534:
24527: x_asset_line_id => x_asset_line_id
24528: );
24529:
24530: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24531: x_return_status := OKL_API.G_RET_STS_ERROR;
24532: RAISE service_failed;
24533: END IF;
24534:
24535: --
24548: p_usage_item_id => x_usage_item_id,
24549: p_inv_org_id => x_inv_org_id
24550: );
24551: l_progress := '100.7';
24552: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24553: RAISE service_failed;
24554: END IF;
24555: END IF;
24556:
24564: p_cimv_rec.exception_yn := 'N';
24565:
24566: okl_okc_migration_pvt.create_contract_item(
24567: p_api_version => 1.0,
24568: p_init_msg_list => OKL_API.G_FALSE,
24569: x_return_status => x_return_status,
24570: x_msg_count => x_msg_count,
24571: x_msg_data => x_msg_data,
24572: p_cimv_rec => p_cimv_rec,
24572: p_cimv_rec => p_cimv_rec,
24573: x_cimv_rec => x_cimv_rec
24574: );
24575: l_progress := '100.8';
24576: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24577: x_return_status := OKL_API.G_RET_STS_ERROR;
24578: RAISE service_failed;
24579: END IF;
24580:
24573: x_cimv_rec => x_cimv_rec
24574: );
24575: l_progress := '100.8';
24576: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24577: x_return_status := OKL_API.G_RET_STS_ERROR;
24578: RAISE service_failed;
24579: END IF;
24580:
24581: -- Bug 4190051 Start
24598: l_klev_rec.capital_amount := p_link_asset_amount + l_capital_amount;
24599:
24600: okl_contract_pub.update_contract_line
24601: (p_api_version => 1.0,
24602: p_init_msg_list => OKL_API.G_FALSE,
24603: x_return_status => x_return_status,
24604: x_msg_count => x_msg_count,
24605: x_msg_data => x_msg_data,
24606: p_clev_rec => l_clev_rec,
24606: p_clev_rec => l_clev_rec,
24607: p_klev_rec => l_klev_rec,
24608: x_clev_rec => x_clev_rec,
24609: x_klev_rec => x_klev_rec);
24610: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
24611: RAISE OKL_API.G_EXCEPTION_ERROR;
24612: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
24613: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
24614: END IF;
24607: p_klev_rec => l_klev_rec,
24608: x_clev_rec => x_clev_rec,
24609: x_klev_rec => x_klev_rec);
24610: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
24611: RAISE OKL_API.G_EXCEPTION_ERROR;
24612: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
24613: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
24614: END IF;
24615:
24608: x_clev_rec => x_clev_rec,
24609: x_klev_rec => x_klev_rec);
24610: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
24611: RAISE OKL_API.G_EXCEPTION_ERROR;
24612: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
24613: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
24614: END IF;
24615:
24616: END IF; -- capitalized fee
24609: x_klev_rec => x_klev_rec);
24610: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
24611: RAISE OKL_API.G_EXCEPTION_ERROR;
24612: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
24613: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
24614: END IF;
24615:
24616: END IF; -- capitalized fee
24617:
24630: RETURN;
24631:
24632: EXCEPTION
24633: WHEN service_failed THEN
24634: x_return_status := OKL_API.G_RET_STS_ERROR;
24635:
24636: WHEN OTHERS THEN
24637: debug_message(l_progress);
24638:
24635:
24636: WHEN OTHERS THEN
24637: debug_message(l_progress);
24638:
24639: okl_api.set_message(
24640: G_APP_NAME,
24641: G_UNEXPECTED_ERROR,
24642: 'OKL_SQLCODE',
24643: SQLCODE,
24643: SQLCODE,
24644: 'OKL_SQLERRM',
24645: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
24646: );
24647: x_return_status := OKL_API.G_RET_STS_ERROR;
24648:
24649: END process_other_line;
24650:
24651: ------------------------------------------------------------------------------
24668: l_id NUMBER;
24669:
24670: BEGIN
24671:
24672: x_return_status := OKL_API.G_RET_STS_SUCCESS;
24673:
24674: OPEN qcl_csr(p_qcl_name);
24675: FETCH qcl_csr INTO l_id;
24676: CLOSE qcl_csr;
24753: credit_line_failed EXCEPTION;
24754:
24755: BEGIN
24756:
24757: x_return_status := OKL_API.G_RET_STS_SUCCESS;
24758: /* 4414408
24759: IF (p_customer_id IS NULL
24760: AND
24761: p_customer_number IS NULL) THEN
24801: -- x_rulv_tbl => l_rulv_tbl,
24802: -- x_rule_count => l_rule_count
24803: -- );
24804:
24805: -- IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24806: -- RAISE credit_line_failed;
24807: -- END IF;
24808:
24809: -- IF (l_rule_count > 0) THEN
24821: p_customer_account_number => p_customer_account_number,
24822: x_customer_account_id => l_customer_account_id
24823: );
24824:
24825: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24826: x_return_status := OKL_API.G_RET_STS_ERROR;
24827: RAISE credit_line_failed;
24828: END IF;
24829: END IF;
24822: x_customer_account_id => l_customer_account_id
24823: );
24824:
24825: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24826: x_return_status := OKL_API.G_RET_STS_ERROR;
24827: RAISE credit_line_failed;
24828: END IF;
24829: END IF;
24830: */
24859: x_rulv_tbl => l_rulv_tbl,
24860: x_rule_count => l_rule_count
24861: );
24862:
24863: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
24864: RAISE credit_line_failed;
24865: END IF;
24866:
24867: IF (l_rule_count > 0) THEN
24891: END IF;
24892:
24893: EXCEPTION
24894: WHEN credit_line_failed THEN
24895: x_return_status := OKL_API.G_RET_STS_ERROR;
24896: END validate_credit_line;
24897:
24898: ------------------------------------------------------------------------------
24899: -- PROCEDURE contract_after_yield
24934: l_orig_contract OKC_K_HEADERS_V.ORIG_SYSTEM_REFERENCE1%TYPE;
24935: l_import_stage OKC_K_HEADERS_V.STS_CODE%TYPE;
24936: BEGIN
24937:
24938: x_return_status := OKL_API.G_RET_STS_SUCCESS;
24939: debug_message(l_proc_name);
24940: x_return_status := OKL_API.START_ACTIVITY(
24941: p_api_name => l_api_name,
24942: p_pkg_name => G_PKG_NAME,
24936: BEGIN
24937:
24938: x_return_status := OKL_API.G_RET_STS_SUCCESS;
24939: debug_message(l_proc_name);
24940: x_return_status := OKL_API.START_ACTIVITY(
24941: p_api_name => l_api_name,
24942: p_pkg_name => G_PKG_NAME,
24943: p_init_msg_list => p_init_msg_list,
24944: l_api_version => l_api_version,
24946: p_api_type => G_API_TYPE,
24947: x_return_status => x_return_status);
24948:
24949: -- check if activity started successfully
24950: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
24951: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
24952: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
24953: raise OKL_API.G_EXCEPTION_ERROR;
24954: END IF;
24947: x_return_status => x_return_status);
24948:
24949: -- check if activity started successfully
24950: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
24951: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
24952: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
24953: raise OKL_API.G_EXCEPTION_ERROR;
24954: END IF;
24955:
24948:
24949: -- check if activity started successfully
24950: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
24951: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
24952: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
24953: raise OKL_API.G_EXCEPTION_ERROR;
24954: END IF;
24955:
24956: l_contract_number := '?';
24949: -- check if activity started successfully
24950: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
24951: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
24952: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
24953: raise OKL_API.G_EXCEPTION_ERROR;
24954: END IF;
24955:
24956: l_contract_number := '?';
24957: OPEN contract_csr (p_chr_id);
24978: debug_message('Calling : okl_contract_book_pub.generate_journal_entries');
24979: okl_contract_book_pub.generate_journal_entries(
24980: p_api_version => p_api_version,
24981: p_init_msg_list => p_init_msg_list,
24982: p_commit => Okl_Api.G_FALSE,
24983: p_contract_id => p_chr_id,
24984: p_transaction_type => 'Booking',
24985: p_draft_yn => Okc_Api.G_TRUE,
24986: x_return_status => x_return_status,
24992: Do not want to handle and throw exception
24993: which might cause Yield Generation to go for toss
24994: --
24995: */
24996: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
24997: RAISE after_yield_failed;
24998: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
24999: RAISE after_yield_failed;
25000: END IF;
24994: --
24995: */
24996: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
24997: RAISE after_yield_failed;
24998: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
24999: RAISE after_yield_failed;
25000: END IF;
25001:
25002: ELSIF (l_import_stage = 'APPROVED') THEN
25006: debug_message('Calling : okl_contract_book_pub.generate_journal_entries');
25007: okl_contract_book_pub.generate_journal_entries(
25008: p_api_version => p_api_version,
25009: p_init_msg_list => p_init_msg_list,
25010: p_commit => Okl_Api.G_FALSE,
25011: p_contract_id => p_chr_id,
25012: p_transaction_type => 'Booking',
25013: p_draft_yn => Okc_Api.G_TRUE,
25014: x_return_status => x_return_status,
25015: x_msg_count => x_msg_count,
25016: x_msg_data => x_msg_data
25017: );
25018:
25019: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25020: RAISE after_yield_failed;
25021: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
25022: RAISE after_yield_failed;
25023: END IF;
25017: );
25018:
25019: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25020: RAISE after_yield_failed;
25021: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
25022: RAISE after_yield_failed;
25023: END IF;
25024:
25025: --Bug# 2566822 : AME/WF integration in approval process
25038: x_msg_data => x_msg_data,
25039: p_chr_id => p_chr_id
25040: );
25041:
25042: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25043: RAISE after_yield_failed;
25044: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
25045: RAISE after_yield_failed;
25046: END IF;
25040: );
25041:
25042: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25043: RAISE after_yield_failed;
25044: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
25045: RAISE after_yield_failed;
25046: END IF;
25047:
25048: ELSIF (l_import_stage = 'BOOKED') THEN
25053:
25054: okl_contract_book_pub.generate_journal_entries(
25055: p_api_version => p_api_version,
25056: p_init_msg_list => p_init_msg_list,
25057: p_commit => Okl_Api.G_FALSE,
25058: p_contract_id => p_chr_id,
25059: p_transaction_type => 'Booking',
25060: p_draft_yn => Okc_Api.G_TRUE,
25061: x_return_status => x_return_status,
25062: x_msg_count => x_msg_count,
25063: x_msg_data => x_msg_data
25064: );
25065:
25066: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25067: RAISE after_yield_failed;
25068: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
25069: RAISE after_yield_failed;
25070: END IF;
25064: );
25065:
25066: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25067: RAISE after_yield_failed;
25068: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
25069: RAISE after_yield_failed;
25070: END IF;
25071:
25072:
25086: x_msg_data => x_msg_data,
25087: p_chr_id => p_chr_id
25088: );
25089:
25090: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25091: RAISE after_yield_failed;
25092: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
25093: RAISE after_yield_failed;
25094: END IF;
25088: );
25089:
25090: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25091: RAISE after_yield_failed;
25092: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
25093: RAISE after_yield_failed;
25094: END IF;
25095:
25096:
25103: x_msg_data => x_msg_data,
25104: p_chr_id => p_chr_id
25105: );
25106:
25107: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25108: RAISE after_yield_failed;
25109: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
25110: RAISE after_yield_failed;
25111: END IF;
25105: );
25106:
25107: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25108: RAISE after_yield_failed;
25109: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
25110: RAISE after_yield_failed;
25111: END IF;
25112:
25113: -- R12B Authoring OA Migration
25121: p_khr_id => p_chr_id ,
25122: p_prog_short_name => OKL_BOOK_CONTROLLER_PVT.G_SUBMIT_CONTRACT,
25123: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE);
25124:
25125: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25126: RAISE after_yield_failed;
25127: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
25128: RAISE after_yield_failed;
25129: END IF;
25123: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE);
25124:
25125: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25126: RAISE after_yield_failed;
25127: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
25128: RAISE after_yield_failed;
25129: END IF;
25130:
25131: END IF; -- import_stage
25138: p_status => 'FINAL',
25139: x_return_status => x_return_status
25140: );
25141:
25142: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
25143: RAISE after_yield_failed;
25144: END IF;
25145:
25146: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
25142: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
25143: RAISE after_yield_failed;
25144: END IF;
25145:
25146: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
25147: x_msg_data => x_msg_data);
25148:
25149:
25150: RETURN;
25153: when after_yield_failed THEN
25154: IF contract_csr%ISOPEN THEN
25155: CLOSE contract_csr;
25156: END IF;
25157: x_return_status := OKL_API.G_RET_STS_SUCCESS; -- to allow Yield process to complete SUCCESSFULLY
25158:
25159: when OKL_API.G_EXCEPTION_ERROR then
25160: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
25161: p_api_name => l_api_name,
25155: CLOSE contract_csr;
25156: END IF;
25157: x_return_status := OKL_API.G_RET_STS_SUCCESS; -- to allow Yield process to complete SUCCESSFULLY
25158:
25159: when OKL_API.G_EXCEPTION_ERROR then
25160: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
25161: p_api_name => l_api_name,
25162: p_pkg_name => G_PKG_NAME,
25163: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
25156: END IF;
25157: x_return_status := OKL_API.G_RET_STS_SUCCESS; -- to allow Yield process to complete SUCCESSFULLY
25158:
25159: when OKL_API.G_EXCEPTION_ERROR then
25160: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
25161: p_api_name => l_api_name,
25162: p_pkg_name => G_PKG_NAME,
25163: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
25164: x_msg_count => x_msg_count,
25159: when OKL_API.G_EXCEPTION_ERROR then
25160: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
25161: p_api_name => l_api_name,
25162: p_pkg_name => G_PKG_NAME,
25163: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
25164: x_msg_count => x_msg_count,
25165: x_msg_data => x_msg_data,
25166: p_api_type => G_API_TYPE);
25167:
25165: x_msg_data => x_msg_data,
25166: p_api_type => G_API_TYPE);
25167:
25168:
25169: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
25170: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
25171: p_api_name => l_api_name,
25172: p_pkg_name => G_PKG_NAME,
25173: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
25166: p_api_type => G_API_TYPE);
25167:
25168:
25169: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
25170: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
25171: p_api_name => l_api_name,
25172: p_pkg_name => G_PKG_NAME,
25173: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
25174: x_msg_count => x_msg_count,
25169: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
25170: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
25171: p_api_name => l_api_name,
25172: p_pkg_name => G_PKG_NAME,
25173: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
25174: x_msg_count => x_msg_count,
25175: x_msg_data => x_msg_data,
25176: p_api_type => G_API_TYPE);
25177:
25175: x_msg_data => x_msg_data,
25176: p_api_type => G_API_TYPE);
25177:
25178: when OTHERS then
25179: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
25180: p_api_name => l_api_name,
25181: p_pkg_name => G_PKG_NAME,
25182: p_exc_name => 'OTHERS',
25183: x_msg_count => x_msg_count,
25217: l_upfront_tax_status VARCHAR2(1) := 'S';
25218:
25219: BEGIN
25220:
25221: x_return_status := OKL_API.G_RET_STS_SUCCESS;
25222:
25223: IF (p_import_stage IN ('PASSED','COMPLETE','APPROVED','BOOKED')) THEN
25224: /* 4414408
25225: get_qcl_id(
25227: p_qcl_name => 'OKL LA QA CHECK LIST',
25228: x_qcl_id => l_qcl_id);
25229:
25230: debug_message('ID : '||l_qcl_id);
25231: IF (x_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
25232: */
25233: --fnd_file.put_line(fnd_file.output, 'Running QA Checker...');
25234: debug_message('ID : '||g_qcl_id);
25235: write_to_log('Running QA Checker...');
25234: debug_message('ID : '||g_qcl_id);
25235: write_to_log('Running QA Checker...');
25236: okl_contract_book_pub.execute_qa_check_list(
25237: p_api_version => 1.0,
25238: p_init_msg_list => OKL_API.G_FALSE,
25239: x_return_status => x_return_status,
25240: x_msg_count => x_msg_count,
25241: x_msg_data => x_msg_data,
25242: p_qcl_id => g_qcl_id, -- 4414408
25270: IF (l_qa_check_status = 'S') THEN
25271:
25272: OKL_CONTRACT_BOOK_PVT.calculate_upfront_tax(
25273: p_api_version => 1.0,
25274: p_init_msg_list => OKL_API.G_FALSE,
25275: x_return_status => x_return_status,
25276: x_msg_count => x_msg_count,
25277: x_msg_data => x_msg_data,
25278: p_chr_id => p_chr_id,
25277: x_msg_data => x_msg_data,
25278: p_chr_id => p_chr_id,
25279: x_process_status => l_upfront_tax_status);
25280:
25281: IF (x_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
25282: commit;
25283: ELSE
25284: report_error(x_msg_count, x_msg_data);
25285: rollback;
25303:
25304: --OKL_GENERATE_STREAMS_PUB.GENERATE_STREAMS(
25305: OKL_LA_STREAM_PUB.GEN_INTR_EXTR_STREAM (
25306: p_api_version => 1.0,
25307: p_init_msg_list => OKL_API.G_FALSE,
25308: p_khr_id => p_chr_id,
25309: p_generation_ctx_code => 'AUTH',
25310: x_trx_number => x_trx_number,
25311: x_trx_status => x_trx_status,
25313: x_msg_count => x_msg_count,
25314: x_msg_data => x_msg_data
25315: );
25316:
25317: IF (x_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
25318: commit; -- required for stream generation
25319: --fnd_file.put_line(fnd_file.output,'Req ID: '||x_trx_number);
25320: write_to_log('Req ID: '||x_trx_number);
25321: ELSE
25330:
25331: EXCEPTION
25332: WHEN OTHERS THEN
25333:
25334: okl_api.set_message(
25335: G_APP_NAME,
25336: G_UNEXPECTED_ERROR,
25337: 'OKL_SQLCODE',
25338: SQLCODE,
25338: SQLCODE,
25339: 'OKL_SQLERRM',
25340: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
25341: );
25342: x_return_status := OKL_API.G_RET_STS_ERROR;
25343:
25344: report_error (
25345: x_msg_count => x_msg_count,
25346: x_msg_data => x_msg_data
25362: tal_failed EXCEPTION;
25363: l_id NUMBER;
25364:
25365: BEGIN
25366: x_return_status := OKL_API.G_RET_STS_SUCCESS;
25367: OPEN tal_csr(p_fa_line_id);
25368: FETCH tal_csr INTO l_id;
25369: IF tal_csr%NOTFOUND THEN
25370: RAISE tal_failed;
25376: WHEN tal_failed THEN
25377: IF tal_csr%ISOPEN THEN
25378: CLOSE tal_csr;
25379: END IF;
25380: okl_api.set_message(
25381: G_APP_NAME,
25382: G_OKL_TXD_ID
25383: );
25384: x_return_status := OKL_API.G_RET_STS_ERROR;
25380: okl_api.set_message(
25381: G_APP_NAME,
25382: G_OKL_TXD_ID
25383: );
25384: x_return_status := OKL_API.G_RET_STS_ERROR;
25385: END get_tal_id;
25386:
25387: ------------------------------------------------------------------------------
25388: -- PROCEDURE populate_header_rec
25462: p_currency_code => NVL(p_intf_header.currency_code,
25463: p_temp_header.currency_code)
25464: );
25465:
25466: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
25467: x_return_status := OKL_API.G_RET_STS_ERROR;
25468: RAISE pop_header_failed;
25469: END IF;
25470:
25463: p_temp_header.currency_code)
25464: );
25465:
25466: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
25467: x_return_status := OKL_API.G_RET_STS_ERROR;
25468: RAISE pop_header_failed;
25469: END IF;
25470:
25471:
25506:
25507: IF (l_id1 IS NOT NULL) THEN
25508: g_customer_id := l_id1;
25509: ELSE
25510: okl_api.set_message(
25511: G_APP_NAME,
25512: G_INVALID_VALUE,
25513: 'CONTRACT_NUM',
25514: p_intf_header.contract_number_old,
25517: 'COL_VALUE',
25518: p_intf_header.customer_id||', '||p_intf_header.customer_number
25519: );
25520:
25521: x_return_status := OKL_API.G_RET_STS_ERROR;
25522: RAISE pop_header_failed;
25523: END IF;
25524:
25525: x_customer_account_id := NULL;
25535: p_customer_account_id => p_intf_header.customer_account_id,
25536: p_customer_account_number => p_intf_header.customer_account_number,
25537: x_customer_account_id => x_customer_account_id
25538: );
25539: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
25540: x_return_status := OKL_API.G_RET_STS_ERROR;
25541: RAISE pop_header_failed;
25542: END IF;
25543: ELSIF (p_intf_header.template_number IS NOT NULL) THEN
25536: p_customer_account_number => p_intf_header.customer_account_number,
25537: x_customer_account_id => x_customer_account_id
25538: );
25539: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
25540: x_return_status := OKL_API.G_RET_STS_ERROR;
25541: RAISE pop_header_failed;
25542: END IF;
25543: ELSIF (p_intf_header.template_number IS NOT NULL) THEN
25544: x_customer_account_id := p_temp_header.cust_acct_id;
25546:
25547: IF (x_customer_account_id IS NULL
25548: AND
25549: p_intf_header.import_request_stage <> 'NEW') THEN
25550: okl_api.set_message(
25551: G_APP_NAME,
25552: G_MISSING_VALUE_FOR_STAGE,
25553: 'CONTRACT_NUM',
25554: p_intf_header.contract_number_old,
25556: 'CUSTOMER_ACCOUNT',
25557: 'STAGE',
25558: p_intf_header.import_request_stage
25559: );
25560: x_return_status := OKL_API.G_RET_STS_ERROR;
25561: RAISE pop_header_failed;
25562: END IF;
25563:
25564: x_chrv_rec.cust_acct_id := x_customer_account_id;
25578: p_bill_to_address => p_intf_header.bill_to_address,
25579: p_customer_account_id => x_customer_account_id,
25580: x_bill_to_address_id => x_bill_to_address_id
25581: );
25582: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
25583: x_return_status := OKL_API.G_RET_STS_ERROR;
25584: RAISE pop_header_failed;
25585: END IF;
25586:
25579: p_customer_account_id => x_customer_account_id,
25580: x_bill_to_address_id => x_bill_to_address_id
25581: );
25582: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
25583: x_return_status := OKL_API.G_RET_STS_ERROR;
25584: RAISE pop_header_failed;
25585: END IF;
25586:
25587: ELSIF (p_intf_header.template_number IS NOT NULL) THEN
25590:
25591: IF (x_bill_to_address_id IS NULL
25592: AND
25593: p_intf_header.import_request_stage <> 'NEW') THEN
25594: okl_api.set_message(
25595: G_APP_NAME,
25596: G_MISSING_VALUE_FOR_STAGE,
25597: 'CONTRACT_NUM',
25598: p_intf_header.contract_number_old,
25600: 'BILL_TO_ADDRESS',
25601: 'STAGE',
25602: p_intf_header.import_request_stage
25603: );
25604: x_return_status := OKL_API.G_RET_STS_ERROR;
25605: RAISE pop_header_failed;
25606: END IF;
25607:
25608: g_bill_to_address_id := x_bill_to_address_id;
25640: p_auth_org_id => x_chrv_rec.authoring_org_id,
25641: x_agreement_id => x_program_agreement_id
25642: );
25643:
25644: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
25645: okl_api.set_message(
25646: G_APP_NAME,
25647: G_INVALID_VALUE,
25648: 'CONTRACT_NUM',
25641: x_agreement_id => x_program_agreement_id
25642: );
25643:
25644: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
25645: okl_api.set_message(
25646: G_APP_NAME,
25647: G_INVALID_VALUE,
25648: 'CONTRACT_NUM',
25649: p_intf_header.contract_number_old,
25665: x_return_status := get_product_id(p_product_id => p_intf_header.product_id,
25666: p_product_name => p_intf_header.product_name,
25667: x_product_id => x_product_id );
25668:
25669: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
25670: okl_api.set_message(
25671: G_APP_NAME,
25672: G_INVALID_VALUE,
25673: 'CONTRACT_NUM',
25666: p_product_name => p_intf_header.product_name,
25667: x_product_id => x_product_id );
25668:
25669: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
25670: okl_api.set_message(
25671: G_APP_NAME,
25672: G_INVALID_VALUE,
25673: 'CONTRACT_NUM',
25674: p_intf_header.contract_number_old,
25677: 'COL_VALUE',
25678: p_intf_header.product_id||', '||p_intf_header.product_name
25679: );
25680:
25681: x_return_status := OKL_API.G_RET_STS_ERROR;
25682:
25683: RAISE pop_header_failed;
25684: END IF;
25685: x_khrv_rec.pdt_id := x_product_id;
25687: x_khrv_rec.pdt_id := p_temp_header.pdt_id;
25688: END IF;
25689:
25690: IF (NVL(p_intf_header.assignable_yn,'N') NOT IN ('Y','N')) THEN
25691: okl_api.set_message(
25692: G_APP_NAME,
25693: G_INVALID_VALUE,
25694: 'CONTRACT_NUM',
25695: p_intf_header.contract_number_old,
25698: 'COL_VALUE',
25699: p_intf_header.assignable_yn
25700: );
25701:
25702: x_return_status := OKL_API.G_RET_STS_ERROR;
25703:
25704: RAISE pop_header_failed;
25705: END IF;
25706:
25705: END IF;
25706:
25707: -- start cklee bug# 3440442
25708: IF (NVL(p_intf_header.prefunding_eligible_flag,'N') NOT IN ('Y','N')) THEN
25709: okl_api.set_message(
25710: G_APP_NAME,
25711: G_INVALID_VALUE,
25712: 'CONTRACT_NUM',
25713: p_intf_header.contract_number_old,
25716: 'COL_VALUE',
25717: p_intf_header.prefunding_eligible_flag
25718: );
25719:
25720: x_return_status := OKL_API.G_RET_STS_ERROR;
25721:
25722: RAISE pop_header_failed;
25723: END IF;
25724: -- end cklee bug# 3440442
25828: l_line_type OKL_LINES_INTERFACE.LINE_TYPE%TYPE;
25829: l_asset_number OKL_LINES_INTERFACE.ASSET_NUMBER%TYPE;
25830:
25831: BEGIN
25832: x_return_status := OKL_API.G_RET_STS_SUCCESS;
25833: debug_message(l_proc_name);
25834:
25835: x_payment_level := 'TOP'; -- default
25836:
25854: END IF;
25855:
25856: EXCEPTION
25857: WHEN OTHERS THEN
25858: okl_api.set_message(
25859: G_APP_NAME,
25860: G_UNEXPECTED_ERROR,
25861: 'OKL_SQLCODE',
25862: SQLCODE,
25862: SQLCODE,
25863: 'OKL_SQLERRM',
25864: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
25865: );
25866: x_return_status := OKL_API.G_RET_STS_ERROR;
25867:
25868: END check_payment_level;
25869:
25870:
25930: lessee_failed EXCEPTION;
25931:
25932: BEGIN
25933:
25934: x_return_status := OKL_API.G_RET_STS_SUCCESS;
25935: debug_message(l_proc_name);
25936:
25937: debug_message('------>Vendor: '||p_lessee_vendor_id||', '||p_lessee_vendor_name);
25938: debug_message('------>Vendor Site: '||p_lessee_site_id||', '||p_lessee_site_code);
25945: OPEN vendor_csr (p_lessee_vendor_id,
25946: p_lessee_vendor_name);
25947: FETCH vendor_csr INTO l_vendor_id;
25948: IF vendor_csr%NOTFOUND THEN
25949: okl_api.set_message(
25950: G_APP_NAME,
25951: G_INVALID_VALUE,
25952: 'CONTRACT_NUM',
25953: p_contract_num,
25968: p_authoring_org_id);
25969:
25970: FETCH vendor_site_csr INTO l_vendor_site_id;
25971: IF vendor_site_csr%NOTFOUND THEN
25972: okl_api.set_message(
25973: G_APP_NAME,
25974: G_INVALID_VALUE,
25975: 'CONTRACT_NUM',
25976: p_contract_num,
25991:
25992: debug_message('------> Before creation of lessee as vendor');
25993: okl_lessee_as_vendor_pvt.create_lessee_as_vendor(
25994: p_api_version => 1.0,
25995: p_init_msg_list => OKL_API.G_FALSE,
25996: x_return_status => x_return_status,
25997: x_msg_count => x_msg_count,
25998: x_msg_data => x_msg_data,
25999: p_chr_id => p_chr_id,
26000: p_ppydv_rec => l_ppydv_rec,
26001: x_ppydv_rec => x_ppydv_rec
26002: );
26003:
26004: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
26005: RAISE lessee_failed;
26006: END IF;
26007: debug_message('------> After creation of lessee as vendor '||x_return_status);
26008:
26015: END IF;
26016: IF vendor_site_csr%ISOPEN THEN
26017: CLOSE vendor_site_csr;
26018: END IF;
26019: x_return_status := OKL_API.G_RET_STS_ERROR;
26020:
26021: WHEN OTHERS THEN
26022: okl_api.set_message(
26023: G_APP_NAME,
26018: END IF;
26019: x_return_status := OKL_API.G_RET_STS_ERROR;
26020:
26021: WHEN OTHERS THEN
26022: okl_api.set_message(
26023: G_APP_NAME,
26024: G_UNEXPECTED_ERROR,
26025: 'OKL_SQLCODE',
26026: SQLCODE,
26026: SQLCODE,
26027: 'OKL_SQLERRM',
26028: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
26029: );
26030: x_return_status := OKL_API.G_RET_STS_ERROR;
26031:
26032: END create_lessee_as_vendor;
26033:
26034: ------------------------------------------------------------------------------
26058:
26059: l_proc_name VARCHAR2(35) := 'GET_TXD_ID';
26060: BEGIN
26061:
26062: x_return_status := OKL_API.G_RET_STS_SUCCESS;
26063: debug_message(l_proc_name);
26064:
26065: OPEN txd_csr (p_tal_id,
26066: p_tax_book);
26065: OPEN txd_csr (p_tal_id,
26066: p_tax_book);
26067: FETCH txd_csr INTO x_txd_id;
26068: IF (txd_csr%NOTFOUND) THEN
26069: okl_api.set_message(
26070: G_APP_NAME,
26071: G_INVALID_VALUE,
26072: 'CONTRACT_NUM',
26073: p_contract_number,
26076: 'COL_VALUE',
26077: p_tax_book
26078: );
26079:
26080: x_return_status := OKL_API.G_RET_STS_ERROR;
26081: END IF;
26082: CLOSE txd_csr;
26083:
26084: EXCEPTION
26084: EXCEPTION
26085:
26086: WHEN OTHERS THEN
26087:
26088: okl_api.set_message(
26089: G_APP_NAME,
26090: G_UNEXPECTED_ERROR,
26091: 'OKL_SQLCODE',
26092: SQLCODE,
26092: SQLCODE,
26093: 'OKL_SQLERRM',
26094: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
26095: );
26096: x_return_status := OKL_API.G_RET_STS_ERROR;
26097: END get_txd_id;
26098:
26099: ------------------------------------------------------------------------------
26100: -- PROCEDURE create_release_asset_rule
26123: rel_rule_failed EXCEPTION;
26124:
26125: BEGIN
26126:
26127: x_return_status := OKL_API.G_RET_STS_SUCCESS;
26128: debug_message(l_proc_name);
26129:
26130: l_rgpv_rec := NULL;
26131: l_rgp_id := NULL;
26154: x_rgpv_rec => x_rgpv_rec,
26155: x_rulv_rec => x_rulv_rec
26156: );
26157:
26158: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
26159: raise rel_rule_failed;
26160: END IF;
26161:
26162: debug_message('------>Rule: LARLES/LARLES processed');
26163:
26164: EXCEPTION
26165:
26166: WHEN rel_rule_failed THEN
26167: x_return_status := OKL_API.G_RET_STS_ERROR;
26168:
26169: WHEN OTHERS THEN
26170: okl_api.set_message(
26171: G_APP_NAME,
26166: WHEN rel_rule_failed THEN
26167: x_return_status := OKL_API.G_RET_STS_ERROR;
26168:
26169: WHEN OTHERS THEN
26170: okl_api.set_message(
26171: G_APP_NAME,
26172: G_UNEXPECTED_ERROR,
26173: 'OKL_SQLCODE',
26174: SQLCODE,
26174: SQLCODE,
26175: 'OKL_SQLERRM',
26176: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
26177: );
26178: x_return_status := OKL_API.G_RET_STS_ERROR;
26179: END create_release_asset_rule;
26180:
26181: ------------------------------------------------------------------------------
26182: -- PROCEDURE process_release_asset
26273: l_counter NUMBER;
26274:
26275: BEGIN
26276:
26277: x_return_status := OKL_API.G_RET_STS_SUCCESS;
26278: debug_message(l_proc_name);
26279:
26280: debug_message('------> Contract id: '||p_chr_id);
26281: debug_message('------> Asset id: '||p_asset_id);
26341: p_segment6 => p_asset_loc_segment6,
26342: p_segment7 => p_asset_loc_segment7,
26343: x_comb_id => x_comb_id
26344: );
26345: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
26346: x_return_status := OKL_API.G_RET_STS_ERROR;
26347: RAISE release_failed;
26348: END IF;
26349:
26342: p_segment7 => p_asset_loc_segment7,
26343: x_comb_id => x_comb_id
26344: );
26345: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
26346: x_return_status := OKL_API.G_RET_STS_ERROR;
26347: RAISE release_failed;
26348: END IF;
26349:
26350: IF (x_comb_id IS NOT NULL) THEN
26364: p_install_site_number => p_install_site_num,
26365: x_install_site_id => x_install_site_id
26366: );
26367:
26368: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
26369: x_return_status := OKL_API.G_RET_STS_ERROR;
26370: RAISE release_failed;
26371: END IF;
26372: l_itiv_ib_tbl(1).object_id1_new := x_install_site_id;
26365: x_install_site_id => x_install_site_id
26366: );
26367:
26368: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
26369: x_return_status := OKL_API.G_RET_STS_ERROR;
26370: RAISE release_failed;
26371: END IF;
26372: l_itiv_ib_tbl(1).object_id1_new := x_install_site_id;
26373: END IF;
26400:
26401: debug_message('======>Before calling create_all_line');
26402: okl_create_kle_pvt.Create_all_line(
26403: p_api_version => 1.0,
26404: p_init_msg_list => OKL_API.G_FALSE,
26405: x_return_status => x_return_status,
26406: x_msg_count => x_msg_count,
26407: x_msg_data => x_msg_data,
26408: p_new_yn => 'N',
26421: );
26422:
26423: debug_message('======>After calling create_all_line '||x_return_status);
26424:
26425: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
26426: x_return_status := OKL_API.G_RET_STS_ERROR;
26427: RAISE release_failed;
26428: END IF;
26429:
26422:
26423: debug_message('======>After calling create_all_line '||x_return_status);
26424:
26425: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
26426: x_return_status := OKL_API.G_RET_STS_ERROR;
26427: RAISE release_failed;
26428: END IF;
26429:
26430: debug_message('------> clev_fin_rec.id: '||x_clev_fin_rec.id);
26454: x_party_pmnt_hdr_tbl => x_party_pmnt_hdr_tbl_out
26455: );
26456:
26457: debug_message('------>Create party payment ends '||x_return_status);
26458: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
26459: x_return_status := OKL_API.G_RET_STS_ERROR;
26460: RAISE release_failed;
26461: END IF;
26462: IF (x_party_pmnt_hdr_tbl_out.COUNT > 0 )THEN
26455: );
26456:
26457: debug_message('------>Create party payment ends '||x_return_status);
26458: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
26459: x_return_status := OKL_API.G_RET_STS_ERROR;
26460: RAISE release_failed;
26461: END IF;
26462: IF (x_party_pmnt_hdr_tbl_out.COUNT > 0 )THEN
26463: l_counter := x_party_pmnt_hdr_tbl_out.FIRST;
26479: x_return_status => x_return_status,
26480: p_fa_line_id => x_clev_fa_rec.id,
26481: x_tal_id => l_tal_id);
26482:
26483: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
26484: x_return_status := OKL_API.G_RET_STS_ERROR;
26485: RAISE release_failed;
26486: END IF;
26487:
26480: p_fa_line_id => x_clev_fa_rec.id,
26481: x_tal_id => l_tal_id);
26482:
26483: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
26484: x_return_status := OKL_API.G_RET_STS_ERROR;
26485: RAISE release_failed;
26486: END IF;
26487:
26488: debug_message('------> tal_id : '||l_tal_id);
26496: p_tax_book => p_tax_book,
26497: x_txd_id => x_txd_id
26498: );
26499:
26500: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
26501: x_return_status := OKL_API.G_RET_STS_ERROR;
26502: RAISE release_failed;
26503: END IF;
26504:
26497: x_txd_id => x_txd_id
26498: );
26499:
26500: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
26501: x_return_status := OKL_API.G_RET_STS_ERROR;
26502: RAISE release_failed;
26503: END IF;
26504:
26505: l_adpv_rec.id := x_txd_id;
26519: END IF;
26520:
26521: okl_txd_assets_pub.update_txd_asset_def(
26522: p_api_version => 1.0,
26523: p_init_msg_list => OKL_API.G_FALSE,
26524: x_return_status => x_return_status,
26525: x_msg_count => x_msg_count,
26526: x_msg_data => x_msg_data,
26527: p_adpv_rec => l_adpv_rec,
26527: p_adpv_rec => l_adpv_rec,
26528: x_adpv_rec => x_adpv_rec
26529: );
26530:
26531: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
26532: x_return_status := OKL_API.G_RET_STS_ERROR;
26533: RAISE release_failed;
26534: END IF;
26535:
26528: x_adpv_rec => x_adpv_rec
26529: );
26530:
26531: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
26532: x_return_status := OKL_API.G_RET_STS_ERROR;
26533: RAISE release_failed;
26534: END IF;
26535:
26536: debug_message('------>TXD Line Updated');
26539:
26540: EXCEPTION
26541:
26542: WHEN release_failed THEN
26543: x_return_status := OKL_API.G_RET_STS_ERROR;
26544:
26545: WHEN OTHERS THEN
26546: okl_api.set_message(
26547: G_APP_NAME,
26542: WHEN release_failed THEN
26543: x_return_status := OKL_API.G_RET_STS_ERROR;
26544:
26545: WHEN OTHERS THEN
26546: okl_api.set_message(
26547: G_APP_NAME,
26548: G_UNEXPECTED_ERROR,
26549: 'OKL_SQLCODE',
26550: SQLCODE,
26550: SQLCODE,
26551: 'OKL_SQLERRM',
26552: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
26553: );
26554: x_return_status := OKL_API.G_RET_STS_ERROR;
26555:
26556: END process_release_asset;
26557:
26558: ------------------------------------------------------------------------------
26640: );
26641:
26642: BEGIN
26643:
26644: x_return_status := OKL_API.G_RET_STS_SUCCESS;
26645: debug_message(l_proc_name);
26646:
26647: FOR addon_rec IN addon_csr (p_contract_num,
26648: p_asset_num)
26667: x_inventory_org_id => x_inventory_org_id,
26668: x_inventory_item_id => x_inventory_item_id
26669: );
26670:
26671: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
26672: x_return_status := OKL_API.G_RET_STS_ERROR;
26673: RAISE addon_failed;
26674: END IF;
26675:
26668: x_inventory_item_id => x_inventory_item_id
26669: );
26670:
26671: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
26672: x_return_status := OKL_API.G_RET_STS_ERROR;
26673: RAISE addon_failed;
26674: END IF;
26675:
26676: -- Populate records and call create addon api
26716: --debug_message('x_fin_klev_tbl(1).id=' || x_fin_klev_tbl(1).ID);
26717: --debug_message('x_cimv_tbl(1).id=' || x_cimv_tbl(1).ID);
26718:
26719: debug_message('After create_add_on_line: x_return_status=' || x_return_status);
26720: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
26721: RAISE addon_failed;
26722: END IF;
26723:
26724: -- Do process party role
26736: x_vendor_id => x_asset_vendor_id,
26737: p_vendor_name => okl_party_rec.ASSET_VENDOR_NAME
26738: );
26739: debug_message('Addon:x_asset_vendor_id=' || x_asset_vendor_id);
26740: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
26741: RAISE addon_failed;
26742: END IF;
26743: END IF;
26744:
26752: p_cplv_rec.jtot_object1_code := 'OKX_VENDOR';
26753: p_cplv_rec.rle_code := 'OKL_VENDOR';
26754: OKL_K_PARTY_ROLES_PVT.create_k_party_role(
26755: p_api_version => 1.0,
26756: p_init_msg_list => OKL_API.G_FALSE,
26757: x_return_status => x_return_status,
26758: x_msg_count => x_msg_count,
26759: x_msg_data => x_msg_data,
26760: p_cplv_rec => p_cplv_rec,
26763: x_kplv_rec => x_kplv_rec
26764: );
26765:
26766: debug_message('x_cplv_rec.id=' || x_cplv_rec.ID);
26767: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
26768: RAISE addon_failed;
26769: END IF;
26770:
26771: END IF;
26793: p_ship_to_site_number => addon_rec.ship_to_site_number,
26794: p_ship_to_site_id => addon_rec.ship_to_site_id,
26795: x_ship_to_site_id => x_ship_to_site_id
26796: );
26797: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
26798: RAISE addon_failed;
26799: x_return_status := OKL_API.G_RET_STS_ERROR;
26800: END IF;
26801:
26795: x_ship_to_site_id => x_ship_to_site_id
26796: );
26797: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
26798: RAISE addon_failed;
26799: x_return_status := OKL_API.G_RET_STS_ERROR;
26800: END IF;
26801:
26802: debug_message('x_ship_to_site_id=' || x_ship_to_site_id);
26803: p_sidv_rec.shipping_address_id1 := x_ship_to_site_id;
26812: x_msg_data => x_msg_data,
26813: p_sidv_rec => p_sidv_rec,
26814: x_sidv_rec => x_sidv_rec
26815: );
26816: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
26817: x_return_status := OKL_API.G_RET_STS_ERROR;
26818: RAISE addon_failed;
26819: END IF;
26820: ELSE
26813: p_sidv_rec => p_sidv_rec,
26814: x_sidv_rec => x_sidv_rec
26815: );
26816: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
26817: x_return_status := OKL_API.G_RET_STS_ERROR;
26818: RAISE addon_failed;
26819: END IF;
26820: ELSE
26821: IF (addon_rec.vendor_invoice_number IS NOT NULL OR
26821: IF (addon_rec.vendor_invoice_number IS NOT NULL OR
26822: addon_rec.vendor_invoice_date IS NOT NULL OR
26823: addon_rec.ship_to_site_id IS NOT NULL OR
26824: addon_rec.ship_to_site_number IS NOT NULL) THEN
26825: okl_api.set_message(
26826: G_APP_NAME,
26827: G_MISSING_VALUE_FOR_LINE,
26828: 'CONTRACT_NUM',
26829: p_contract_num, --||'/'||addon_rec.line_number,
26848: END LOOP;
26849:
26850: EXCEPTION
26851: WHEN addon_failed THEN
26852: x_return_status := OKL_API.G_RET_STS_ERROR;
26853:
26854: END process_addon;
26855:
26856: ------------------------------------------------------------------------------
26919: WHERE NAME = p_name
26920: AND status = 'A';
26921:
26922: BEGIN
26923: x_return_status := OKL_API.G_RET_STS_SUCCESS;
26924: debug_message(l_proc_name);
26925:
26926: FOR subsidy_rec IN subsidy_csr (p_contract_num,
26927: p_asset_num)
26935: p_auth_org_id);
26936: FETCH sub_id_csr INTO l_subsidy_id;
26937: IF sub_id_csr%NOTFOUND THEN
26938: -- Error
26939: okl_api.set_message(
26940: G_APP_NAME,
26941: G_INVALID_VALUE,
26942: 'CONTRACT_NUM',
26943: p_contract_num||'/'||subsidy_rec.line_number,
26949: RAISE subsidy_failed;
26950: END IF;
26951: CLOSE sub_id_csr;
26952: ELSE
26953: okl_api.set_message(
26954: G_APP_NAME,
26955: G_MISSING_VALUE_FOR_LINE,
26956: 'CONTRACT_NUM',
26957: p_contract_num||'/'||subsidy_rec.line_number,
26967: ELSIF (subsidy_rec.subsidy_party_name IS NOT NULL) THEN
26968: OPEN vendor_csr (subsidy_rec.subsidy_party_name);
26969: FETCH vendor_csr INTO l_vendor_id;
26970: IF vendor_csr%NOTFOUND THEN
26971: okl_api.set_message(
26972: G_APP_NAME,
26973: G_INVALID_VALUE,
26974: 'CONTRACT_NUM',
26975: p_contract_num||'/'||subsidy_rec.line_number,
26997: debug_message('vendor: '||l_asb_rec.vendor_id);
26998:
26999: okl_asset_subsidy_pvt.create_asset_subsidy(
27000: p_api_version => 1.0,
27001: p_init_msg_list => OKL_API.G_FALSE,
27002: x_return_status => x_return_status,
27003: x_msg_count => x_msg_count,
27004: x_msg_data => x_msg_data,
27005: p_asb_rec => l_asb_rec,
27007: );
27008:
27009: debug_message('okl_asset_subsidy_pvt.create_asset_subsidy: '||x_return_status);
27010:
27011: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
27012: RAISE subsidy_failed;
27013: END IF;
27014:
27015: -- refund detail if any
27032: p_auth_org_id);
27033: FETCH paysite_csr INTO l_paysite_id;
27034: IF paysite_csr%NOTFOUND THEN
27035: -- error
27036: okl_api.set_message(
27037: G_APP_NAME,
27038: G_INVALID_VALUE,
27039: 'CONTRACT_NUM',
27040: p_contract_num||'/'||subsidy_rec.line_number,
27046: RAISE subsidy_failed;
27047: END IF;
27048: CLOSE paysite_csr;
27049: ELSE
27050: okl_api.set_message(
27051: G_APP_NAME,
27052: G_MISSING_VALUE_FOR_LINE,
27053: 'CONTRACT_NUM',
27054: p_contract_num||'/'||subsidy_rec.line_number,
27065: OPEN payterm_csr(subsidy_rec.subsidy_refnd_payterm_name);
27066: FETCH payterm_csr INTO l_payterm_id;
27067: IF payterm_csr%NOTFOUND THEN
27068: -- error
27069: okl_api.set_message(
27070: G_APP_NAME,
27071: G_INVALID_VALUE,
27072: 'CONTRACT_NUM',
27073: p_contract_num||'/'||subsidy_rec.line_number,
27079: RAISE subsidy_failed;
27080: END IF;
27081: CLOSE payterm_csr;
27082: ELSE
27083: okl_api.set_message(
27084: G_APP_NAME,
27085: G_MISSING_VALUE_FOR_LINE,
27086: 'CONTRACT_NUM',
27087: p_contract_num||'/'||subsidy_rec.line_number,
27106: debug_message('l_srfvv_rec.pay_group_code: '||l_srfvv_rec.pay_group_code);
27107:
27108: okl_subsidy_rfnd_dtls_pvt.create_refund_dtls(
27109: p_api_version => 1.0,
27110: p_init_msg_list => OKL_API.G_FALSE,
27111: x_return_status => x_return_status,
27112: x_msg_count => x_msg_count,
27113: x_msg_data => x_msg_data,
27114: p_srfvv_rec => l_srfvv_rec,
27115: x_srfvv_rec => x_srfvv_rec
27116: );
27117:
27118: debug_message('okl_subsidy_rfnd_dtls_pvt.create_refund_dtls: '||x_return_status);
27119: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
27120: RAISE subsidy_failed;
27121: END IF;
27122:
27123: END IF; -- refund detail
27125: END LOOP; --subsidy_rec
27126:
27127: EXCEPTION
27128: WHEN subsidy_failed THEN
27129: x_return_status := OKL_API.G_RET_STS_ERROR;
27130: END process_subsidy;
27131:
27132: ------------------------------------------------------------------------------
27133: -- PROCEDURE check_and_delete
27160: from okl_ins_policies_b where khr_id=p_khr_id;
27161: --Bug#5666768 end
27162:
27163: BEGIN
27164: x_return_status := OKL_API.G_RET_STS_SUCCESS;
27165: debug_message(l_proc_name);
27166:
27167: if (p_contract_number is null) then
27168: return;
27184:
27185: -- Call Delete API
27186: okl_contract_pub.delete_contract(
27187: p_api_version => 1.0,
27188: p_init_msg_list => OKL_API.G_FALSE,
27189: x_return_status => x_return_status,
27190: x_msg_count => x_msg_count,
27191: x_msg_data => x_msg_data,
27192: p_contract_id => l_contract_id );
27189: x_return_status => x_return_status,
27190: x_msg_count => x_msg_count,
27191: x_msg_data => x_msg_data,
27192: p_contract_id => l_contract_id );
27193: IF (x_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
27194: debug_message('Contract ' || p_contract_number || ' deleted from OLM...');
27195: ELSE
27196: debug_message('Error during delete contract ' || p_contract_number );
27197: END IF;
27206: end if;
27207: close get_ins_id_csr;
27208: l_ipyv_rec.id:=l_ins_id;
27209: OKL_INS_POLICIES_PUB.delete_ins_policies(p_api_version => 1.0,
27210: p_init_msg_list => OKL_API.G_FALSE,
27211: x_return_status => x_return_status,
27212: x_msg_count => x_msg_count,
27213: x_msg_data => x_msg_data,
27214: p_ipyv_rec => l_ipyv_rec);
27211: x_return_status => x_return_status,
27212: x_msg_count => x_msg_count,
27213: x_msg_data => x_msg_data,
27214: p_ipyv_rec => l_ipyv_rec);
27215: IF (x_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
27216: debug_message('Contract ' || p_contract_number || ' deleted from OLM after delete_ins_policies...');
27217: ELSE
27218: debug_message('Error during OKL_INS_POLICIES_PUB.delete_ins_policies ' || p_contract_number );
27219: END IF;
28382: , x_return_status OUT NOCOPY VARCHAR2
28383: ) IS
28384: l_parameter_list wf_parameter_list_t;
28385: BEGIN
28386: x_return_status := OKL_API.G_RET_STS_SUCCESS;
28387: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,p_chr_id,l_parameter_list);
28388:
28389: OKL_WF_PVT.raise_event (p_api_version => 1.0,
28390: p_init_msg_list => p_init_msg_list,
28395: p_parameters => l_parameter_list);
28396:
28397: EXCEPTION
28398: WHEN OTHERS THEN
28399: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
28400: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
28401: END raise_business_event;
28402: -- hariven - Bug#5393374 - Added - End
28403:
28396:
28397: EXCEPTION
28398: WHEN OTHERS THEN
28399: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
28400: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
28401: END raise_business_event;
28402: -- hariven - Bug#5393374 - Added - End
28403:
28404: BEGIN -- Actual Procedure Starts Here
28403:
28404: BEGIN -- Actual Procedure Starts Here
28405:
28406: l_proc_name := 'LOAD_INPUT_RECORD';
28407: x_return_status := OKL_API.G_RET_STS_SUCCESS; -- Assume Success at begining
28408: --okl_api.init_msg_list(p_init_msg_list => OKL_API.G_TRUE);
28409:
28410: l_progress := '000';
28411:
28404: BEGIN -- Actual Procedure Starts Here
28405:
28406: l_proc_name := 'LOAD_INPUT_RECORD';
28407: x_return_status := OKL_API.G_RET_STS_SUCCESS; -- Assume Success at begining
28408: --okl_api.init_msg_list(p_init_msg_list => OKL_API.G_TRUE);
28409:
28410: l_progress := '000';
28411:
28412: --okl_context.set_okc_org_context(204,204);
28429:
28430: BEGIN --1
28431: -- Populates Header Record before calling APIs
28432: --fnd_file.put_line(fnd_file.output, 'Loading... '||okl_header_rec.contract_number_old);
28433: okl_api.init_msg_list(p_init_msg_list => OKL_API.G_TRUE);
28434:
28435: debug_message(l_proc_name);
28436: debug_message('');
28437:
28443: x_msg_data => x_msg_data,
28444: p_contract_number => okl_header_rec.contract_number,
28445: p_delete_before_import_yn => okl_header_rec.delete_before_import_yn -- akp_delete
28446: );
28447: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
28448: RAISE load_failed;
28449: END IF;
28450: debug_message('check_and_delete done ' || to_char(sysdate,'HH24:MI:SS'));
28451:
28465: x_msg_data => x_msg_data,
28466: p_template_number => okl_header_rec.template_number
28467: );
28468:
28469: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
28470: RAISE load_failed;
28471: END IF;
28472:
28473: debug_message('--->Template information retrieved');
28486: x_chrv_rec => l_chrv_rec,
28487: x_khrv_rec => l_khrv_rec
28488: );
28489:
28490: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
28491: RAISE load_failed;
28492: END IF;
28493:
28494: -- Call API to create Contract Header
28497: l_progress := '010';
28498:
28499: --Added by dpsingh for LE Uptake
28500: IF (okl_header_rec.legal_entity_id IS NOT NULL) AND
28501: (okl_header_rec.legal_entity_id <> Okl_Api.G_MISS_NUM) THEN
28502:
28503: -- l_exists := OKL_LEGAL_ENTITY_UTIL.check_le_id_exists(okl_header_rec.legal_entity_id) ;
28504: OPEN le_entity(NVL(okl_header_rec.authoring_org_id,l_header_template.authoring_org_id),okl_header_rec.legal_entity_id);
28505: FETCH le_entity INTO l_exists;
28514: l_khrv_rec.legal_entity_id := okl_header_rec.legal_entity_id ;
28515: -- Call Header API to create header
28516: okl_contract_pub.create_contract_header(
28517: p_api_version => 1.0,
28518: p_init_msg_list => OKL_API.G_FALSE,
28519: x_return_status => x_return_status,
28520: x_msg_count => x_msg_count,
28521: x_msg_data => x_msg_data,
28522: p_chrv_rec => l_chrv_rec,
28526: );
28527: l_progress := '050';
28528:
28529: debug_message('Contract header call ends...'||x_return_status);
28530: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
28531:
28532: x_return_status := OKL_API.G_RET_STS_ERROR;
28533:
28534: RAISE load_failed;
28528:
28529: debug_message('Contract header call ends...'||x_return_status);
28530: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
28531:
28532: x_return_status := OKL_API.G_RET_STS_ERROR;
28533:
28534: RAISE load_failed;
28535: END IF;
28536:
28558: p_pth_evg_stream_purpose_code => okl_header_rec.pth_evg_stream_purpose_code,
28559: x_party_pmnt_hdr_tbl => x_evg_cont_pmnt_hdr_out
28560: );
28561: debug_message('------>Create evergreen at contract header ends'||x_return_status);
28562: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
28563: x_return_status := OKL_API.G_RET_STS_ERROR;
28564: RAISE load_failed;
28565: END IF;
28566:
28559: x_party_pmnt_hdr_tbl => x_evg_cont_pmnt_hdr_out
28560: );
28561: debug_message('------>Create evergreen at contract header ends'||x_return_status);
28562: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
28563: x_return_status := OKL_API.G_RET_STS_ERROR;
28564: RAISE load_failed;
28565: END IF;
28566:
28567: debug_message('x_evg_cont_pmnt_hdr_out.count: '||x_evg_cont_pmnt_hdr_out.COUNT);
28587: );
28588:
28589: l_master_lease_aggr_id := x_master_lease_id;
28590:
28591: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
28592: okl_api.set_message(
28593: G_APP_NAME,
28594: G_INVALID_VALUE,
28595: 'CONTRACT_NUM',
28588:
28589: l_master_lease_aggr_id := x_master_lease_id;
28590:
28591: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
28592: okl_api.set_message(
28593: G_APP_NAME,
28594: G_INVALID_VALUE,
28595: 'CONTRACT_NUM',
28596: okl_header_rec.contract_number_old,
28624: l_gvev_rec.copied_only_yn := 'Y';
28625:
28626: okl_okc_migration_pvt.create_governance(
28627: p_api_version => 1.0,
28628: p_init_msg_list => OKL_API.G_FALSE,
28629: x_return_status => x_return_status,
28630: x_msg_count => x_msg_count,
28631: x_msg_data => x_msg_data,
28632: p_gvev_rec => l_gvev_rec,
28631: x_msg_data => x_msg_data,
28632: p_gvev_rec => l_gvev_rec,
28633: x_gvev_rec => x_gvev_rec
28634: );
28635: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
28636: RAISE load_failed;
28637: END IF;
28638:
28639: debug_message('--->Master Lease agreement created');
28654: );
28655:
28656: l_credit_line_id := x_credit_line_id;
28657:
28658: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
28659: okl_api.set_message(
28660: G_APP_NAME,
28661: G_INVALID_VALUE,
28662: 'CONTRACT_NUM',
28655:
28656: l_credit_line_id := x_credit_line_id;
28657:
28658: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
28659: okl_api.set_message(
28660: G_APP_NAME,
28661: G_INVALID_VALUE,
28662: 'CONTRACT_NUM',
28663: okl_header_rec.contract_number_old,
28700: p_customer_account_number => okl_header_rec.customer_account_number,
28701: p_start_date => x_chrv_rec.start_date, -- 4414408
28702: p_template_start_date => l_header_template.start_date
28703: );
28704: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
28705: okl_api.set_message(
28706: G_APP_NAME,
28707: G_INVALID_VALUE,
28708: 'CONTRACT_NUM',
28701: p_start_date => x_chrv_rec.start_date, -- 4414408
28702: p_template_start_date => l_header_template.start_date
28703: );
28704: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
28705: okl_api.set_message(
28706: G_APP_NAME,
28707: G_INVALID_VALUE,
28708: 'CONTRACT_NUM',
28709: okl_header_rec.contract_number_old,
28723: l_gvev_rec.copied_only_yn := 'Y';
28724:
28725: okl_okc_migration_pvt.create_governance(
28726: p_api_version => 1.0,
28727: p_init_msg_list => OKL_API.G_FALSE,
28728: x_return_status => x_return_status,
28729: x_msg_count => x_msg_count,
28730: x_msg_data => x_msg_data,
28731: p_gvev_rec => l_gvev_rec,
28730: x_msg_data => x_msg_data,
28731: p_gvev_rec => l_gvev_rec,
28732: x_gvev_rec => x_gvev_rec
28733: );
28734: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
28735: RAISE load_failed;
28736: END IF;
28737: debug_message('--->Credit line created');
28738: END IF;
28771: x_cplv_rec => x_cplv_rec );
28772:
28773: l_progress := '070';
28774:
28775: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
28776: x_return_status := OKL_API.G_RET_STS_ERROR;
28777: raise load_failed;
28778: END IF;
28779:
28772:
28773: l_progress := '070';
28774:
28775: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
28776: x_return_status := OKL_API.G_RET_STS_ERROR;
28777: raise load_failed;
28778: END IF;
28779:
28780: debug_message('--->Party Role created');
28801: p_lessee_site_code => okl_header_rec.lessee_vendor_site_code,
28802: p_authoring_org_id => NVL(okl_header_rec.authoring_org_id,l_header_template.authoring_org_id)
28803: );
28804:
28805: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
28806: x_return_status := OKL_API.G_RET_STS_ERROR;
28807: raise load_failed;
28808: END IF;
28809:
28802: p_authoring_org_id => NVL(okl_header_rec.authoring_org_id,l_header_template.authoring_org_id)
28803: );
28804:
28805: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
28806: x_return_status := OKL_API.G_RET_STS_ERROR;
28807: raise load_failed;
28808: END IF;
28809:
28810: debug_message('--->Lessee as Vendor Created');
28856: p_header_rec => okl_header_rec --comment out. ckleel_intf_h_rec
28857: --p_header_rec => l_intf_h_rec
28858: );
28859:
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: debug_message('--->Header rule creation complete');
28857: --p_header_rec => l_intf_h_rec
28858: );
28859:
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: debug_message('--->Header rule creation complete');
28865:
28874: p_label_id => okl_header_rec.private_label_id,
28875: p_label_url => okl_header_rec.private_label_url
28876: );
28877:
28878: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
28879: x_return_status := OKL_API.G_RET_STS_ERROR;
28880: raise load_failed;
28881: END IF;
28882: debug_message('--->Private label created');
28875: p_label_url => okl_header_rec.private_label_url
28876: );
28877:
28878: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
28879: x_return_status := OKL_API.G_RET_STS_ERROR;
28880: raise load_failed;
28881: END IF;
28882: debug_message('--->Private label created');
28883:
28892:
28893: IF (x_khrv_rec.khr_id IS NOT NULL) THEN
28894: okl_deal_create_pub.copy_rules(
28895: p_api_version => 1.0,
28896: p_init_msg_list => OKL_API.G_FALSE,
28897: x_return_status => x_return_status,
28898: x_msg_count => x_msg_count,
28899: x_msg_data => x_msg_data,
28900: p_source_id => x_khrv_rec.khr_id,
28902: p_org_id => x_chrv_rec.authoring_org_id,
28903: p_organization_id => x_chrv_rec.inv_organization_id
28904: );
28905:
28906: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
28907: x_return_status := OKL_API.G_RET_STS_ERROR;
28908: raise load_failed;
28909: END IF;
28910:
28903: p_organization_id => x_chrv_rec.inv_organization_id
28904: );
28905:
28906: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
28907: x_return_status := OKL_API.G_RET_STS_ERROR;
28908: raise load_failed;
28909: END IF;
28910:
28911: debug_message('--->Program agreement copied');
28931: p_chr_id => x_chrv_rec.id -- imported Contract ID
28932: );
28933:
28934:
28935: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
28936: x_return_status := OKL_API.G_RET_STS_ERROR;
28937: raise load_failed;
28938: END IF;
28939:
28932: );
28933:
28934:
28935: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
28936: x_return_status := OKL_API.G_RET_STS_ERROR;
28937: raise load_failed;
28938: END IF;
28939:
28940: debug_message('--->3rd Party Insurance created');
28967: p_prod_name => okl_header_rec.product_name,
28968: p_prod_id => okl_header_rec.product_id,
28969: x_loan_yn => l_loan_yn
28970: );
28971: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
28972: x_return_status := OKL_API.G_RET_STS_ERROR;
28973: RAISE load_failed;
28974: END IF;
28975:
28968: p_prod_id => okl_header_rec.product_id,
28969: x_loan_yn => l_loan_yn
28970: );
28971: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
28972: x_return_status := OKL_API.G_RET_STS_ERROR;
28973: RAISE load_failed;
28974: END IF;
28975:
28976: -- 4414408
28980: x_msg_data => x_msg_data,
28981: p_contract_number => okl_header_rec.contract_number_old,
28982: p_org_id => okl_header_rec.inventory_organization_id
28983: ) ;
28984: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
28985: x_return_status := OKL_API.G_RET_STS_ERROR;
28986: RAISE load_failed;
28987: END IF;
28988:
28981: p_contract_number => okl_header_rec.contract_number_old,
28982: p_org_id => okl_header_rec.inventory_organization_id
28983: ) ;
28984: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
28985: x_return_status := OKL_API.G_RET_STS_ERROR;
28986: RAISE load_failed;
28987: END IF;
28988:
28989: FOR okl_line_rec IN okl_line_csr (okl_header_rec.contract_number_old)
29058: );
29059:
29060: debug_message('check_line_literal: '||x_return_status);
29061:
29062: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29063: x_return_status := OKL_API.G_RET_STS_ERROR;
29064: RAISE load_failed;
29065: END IF;
29066:
29059:
29060: debug_message('check_line_literal: '||x_return_status);
29061:
29062: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29063: x_return_status := OKL_API.G_RET_STS_ERROR;
29064: RAISE load_failed;
29065: END IF;
29066:
29067: -- Bug 4321621 end
29068:
29069: -- Populates Header Record before calling APIs
29070: l_no_of_lines := l_no_of_lines + 1;
29071: l_progress := '100';
29072: okl_api.init_msg_list(p_init_msg_list => OKL_API.G_TRUE); --Bug 3958519
29073:
29074: debug_message('------> Processing Line: '||okl_line_rec.line_type);
29075:
29076: l_service_line_id := NULL;
29097: x_inventory_org_id => x_inventory_org_id,
29098: x_inventory_item_id => x_inventory_item_id
29099: );
29100:
29101: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29102: x_return_status := OKL_API.G_RET_STS_ERROR;
29103: RAISE load_failed;
29104: END IF;
29105:
29098: x_inventory_item_id => x_inventory_item_id
29099: );
29100:
29101: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29102: x_return_status := OKL_API.G_RET_STS_ERROR;
29103: RAISE load_failed;
29104: END IF;
29105:
29106: debug_message('------>Inv Org ID: '||x_chrv_rec.inv_organization_id);
29128: x_release_asset => x_release_asset,
29129: x_asset_id => x_asset_id
29130: );
29131:
29132: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29133: x_return_status := OKL_API.G_RET_STS_ERROR;
29134: RAISE load_failed;
29135: END IF;
29136: */
29129: x_asset_id => x_asset_id
29130: );
29131:
29132: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29133: x_return_status := OKL_API.G_RET_STS_ERROR;
29134: RAISE load_failed;
29135: END IF;
29136: */
29137: IF (x_release_asset = 'N'
29138: AND
29139: okl_line_rec.tax_book IS NOT NULL
29140: AND
29141: okl_line_rec.asset_corporate_book IS NULL) THEN
29142: okl_api.set_message(
29143: G_APP_NAME,
29144: G_MISSING_VALUE_FOR_LINE,
29145: 'CONTRACT_NUM',
29146: okl_header_rec.contract_number_old||'/'||TO_CHAR(okl_line_rec.line_number),
29148: 'CORPORATE BOOK',
29149: 'LINE',
29150: 'ASSET'
29151: );
29152: x_return_status := OKL_API.G_RET_STS_ERROR;
29153:
29154: END IF;
29155:
29156: IF (x_release_asset = 'N'
29157: AND
29158: okl_line_rec.inventory_item_name IS NULL
29159: AND
29160: okl_line_rec.inventory_item_id IS NULL) THEN
29161: okl_api.set_message(
29162: G_APP_NAME,
29163: G_MISSING_VALUE_FOR_LINE,
29164: 'CONTRACT_NUM',
29165: okl_header_rec.contract_number_old||'/'||TO_CHAR(okl_line_rec.line_number),
29168: 'LINE',
29169: 'ASSET'
29170: );
29171:
29172: x_return_status := OKL_API.G_RET_STS_ERROR;
29173: END IF;
29174:
29175: IF (x_release_asset = 'N'
29176: AND
29176: AND
29177: okl_line_rec.install_site_number IS NULL
29178: AND
29179: okl_line_rec.install_site_id IS NULL) THEN
29180: okl_api.set_message(
29181: G_APP_NAME,
29182: G_MISSING_VALUE_FOR_LINE,
29183: 'CONTRACT_NUM',
29184: okl_header_rec.contract_number_old||'/'||TO_CHAR(okl_line_rec.line_number),
29187: 'LINE',
29188: 'ASSET'
29189: );
29190:
29191: x_return_status := OKL_API.G_RET_STS_ERROR;
29192: END IF;
29193:
29194: -- END IF;
29195:
29209: p_chr_id => x_chrv_rec.id,
29210: p_release_asset_flag => x_release_asset -- 4414408
29211: );
29212:
29213: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29214: x_return_status := OKL_API.G_RET_STS_ERROR;
29215: RAISE load_failed;
29216: END IF;
29217:
29210: p_release_asset_flag => x_release_asset -- 4414408
29211: );
29212:
29213: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29214: x_return_status := OKL_API.G_RET_STS_ERROR;
29215: RAISE load_failed;
29216: END IF;
29217:
29218: IF (x_release_asset = 'Y') THEN
29226: IF (okl_line_rec.asset_number <> l_prev_asset_number
29227: AND
29228: x_release_asset <> g_release_asset_flag) THEN
29229:
29230: okl_api.set_message(
29231: G_APP_NAME,
29232: G_MIXED_ASSET,
29233: 'CONTRACT_NUM',
29234: okl_line_rec.contract_number_old
29232: G_MIXED_ASSET,
29233: 'CONTRACT_NUM',
29234: okl_line_rec.contract_number_old
29235: );
29236: x_return_status := OKL_API.G_RET_STS_ERROR;
29237: RAISE load_failed;
29238: END IF;
29239: */
29240: END IF;
29251:
29252: -- Can not have more than one same Tax book
29253: -- for one corporate book, raise error
29254:
29255: okl_api.set_message(
29256: G_APP_NAME,
29257: G_DUP_TAX_BOOK,
29258: 'TAX_BOOK',
29259: okl_line_rec.tax_book,
29261: okl_line_rec.contract_number_old||'/'||okl_line_rec.line_number,
29262: 'ASSET_NUM',
29263: okl_line_rec.asset_number
29264: );
29265: x_return_status := OKL_API.G_RET_STS_ERROR;
29266: RAISE load_failed;
29267:
29268: END IF;
29269:
29273: x_return_status => x_return_status,
29274: p_fa_line_id => x_clev_fa_rec.id,
29275: x_tal_id => l_tal_id);
29276:
29277: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29278: x_return_status := OKL_API.G_RET_STS_ERROR;
29279: RAISE load_failed;
29280: END IF;
29281:
29274: p_fa_line_id => x_clev_fa_rec.id,
29275: x_tal_id => l_tal_id);
29276:
29277: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29278: x_return_status := OKL_API.G_RET_STS_ERROR;
29279: RAISE load_failed;
29280: END IF;
29281:
29282: get_txd_id (
29288: p_tax_book => okl_line_rec.tax_book,
29289: x_txd_id => x_txd_id
29290: );
29291:
29292: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29293: x_return_status := OKL_API.G_RET_STS_ERROR;
29294: RAISE load_failed;
29295: END IF;
29296:
29289: x_txd_id => x_txd_id
29290: );
29291:
29292: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29293: x_return_status := OKL_API.G_RET_STS_ERROR;
29294: RAISE load_failed;
29295: END IF;
29296:
29297: --l_adpv_rec := NULL;
29316: END IF;
29317:
29318: okl_txd_assets_pub.update_txd_asset_def(
29319: p_api_version => 1.0,
29320: p_init_msg_list => OKL_API.G_FALSE,
29321: x_return_status => x_return_status,
29322: x_msg_count => x_msg_count,
29323: x_msg_data => x_msg_data,
29324: p_adpv_rec => l_adpv_rec,
29324: p_adpv_rec => l_adpv_rec,
29325: x_adpv_rec => x_adpv_rec
29326: );
29327:
29328: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29329: x_return_status := OKL_API.G_RET_STS_ERROR;
29330: RAISE load_failed;
29331: END IF;
29332:
29325: x_adpv_rec => x_adpv_rec
29326: );
29327:
29328: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29329: x_return_status := OKL_API.G_RET_STS_ERROR;
29330: RAISE load_failed;
29331: END IF;
29332:
29333: debug_message('------>TXD Line Updated');
29403: x_clev_fa_rec => x_clev_fa_rec,
29404: x_clev_ib_rec => x_clev_ib_rec
29405: );
29406:
29407: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29408: x_return_status := OKL_API.G_RET_STS_ERROR;
29409: RAISE load_failed;
29410: END IF;
29411:
29404: x_clev_ib_rec => x_clev_ib_rec
29405: );
29406:
29407: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29408: x_return_status := OKL_API.G_RET_STS_ERROR;
29409: RAISE load_failed;
29410: END IF;
29411:
29412: x_cle_id := x_clev_fin_rec.id;
29432:
29433: -- Can not have more than one same Tax book
29434: -- for one corporate book, raise error
29435:
29436: okl_api.set_message(
29437: G_APP_NAME,
29438: G_DUP_TAX_BOOK,
29439: 'TAX_BOOK',
29440: okl_line_rec.tax_book,
29442: okl_line_rec.contract_number_old||'/'||okl_line_rec.line_number,
29443: 'ASSET_NUM',
29444: okl_line_rec.asset_number
29445: );
29446: x_return_status := OKL_API.G_RET_STS_ERROR;
29447: RAISE load_failed;
29448:
29449: END IF;
29450:
29467: l_adpv_rec.CURRENCY_CONVERSION_DATE := okl_header_rec.currency_conversion_date;
29468:
29469: okl_txd_assets_pub.create_txd_asset_def(
29470: p_api_version => 1.0,
29471: p_init_msg_list => OKL_API.G_FALSE,
29472: x_return_status => x_return_status,
29473: x_msg_count => x_msg_count,
29474: x_msg_data => x_msg_data,
29475: p_adpv_rec => l_adpv_rec,
29475: p_adpv_rec => l_adpv_rec,
29476: x_adpv_rec => x_adpv_rec
29477: );
29478:
29479: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29480: x_return_status := OKL_API.G_RET_STS_ERROR;
29481: RAISE load_failed;
29482: END IF;
29483:
29476: x_adpv_rec => x_adpv_rec
29477: );
29478:
29479: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29480: x_return_status := OKL_API.G_RET_STS_ERROR;
29481: RAISE load_failed;
29482: END IF;
29483:
29484: debug_message('------>Only TXD Line Created');
29513: p_lty_code => 'FREE_FORM1',
29514: p_top_line_lty_code => NULL,
29515: x_lse_id => x_lse_id
29516: );
29517: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29518: x_return_status := OKL_API.G_RET_STS_ERROR;
29519: RAISE load_failed;
29520: END IF;
29521: */
29514: p_top_line_lty_code => NULL,
29515: x_lse_id => x_lse_id
29516: );
29517: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29518: x_return_status := OKL_API.G_RET_STS_ERROR;
29519: RAISE load_failed;
29520: END IF;
29521: */
29522: l_progress := '101';
29530: x_msg_count => x_msg_count,
29531: x_msg_data => x_msg_data,
29532: p_intf_line => okl_line_rec
29533: );
29534: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29535: x_return_status := OKL_API.G_RET_STS_ERROR;
29536: RAISE load_failed;
29537: END IF;
29538:
29531: x_msg_data => x_msg_data,
29532: p_intf_line => okl_line_rec
29533: );
29534: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29535: x_return_status := OKL_API.G_RET_STS_ERROR;
29536: RAISE load_failed;
29537: END IF;
29538:
29539: -- end cklee 02/18/2004 bug# 3440442
29541: IF (okl_line_rec.CAPITALIZE_DOWN_PAYMENT_YN IS NOT NULL) AND
29542: (okl_line_rec.CAPITALIZE_DOWN_PAYMENT_YN = 'N') THEN
29543: IF (okl_line_rec.DOWN_PAYMENT_RECEIVER_CODE IS NOT NULL) AND
29544: (okl_line_rec.DOWN_PAYMENT_RECEIVER_CODE = 'VENDOR') THEN
29545: okl_api.set_message(
29546: G_APP_NAME,
29547: 'OKL_INVALID_COMBINATION',
29548: 'CONTRACT_NUM',
29549: okl_line_rec.contract_number_old||'/'||okl_line_rec.line_number,
29549: okl_line_rec.contract_number_old||'/'||okl_line_rec.line_number,
29550: 'ASSET_NUM',
29551: okl_line_rec.asset_number
29552: );
29553: x_return_status := OKL_API.G_RET_STS_ERROR;
29554: RAISE load_failed;
29555:
29556: END IF;
29557: END IF;
29644: p_lty_code => 'FIXED_ASSET',
29645: p_top_line_lty_code => 'FREE_FORM1',
29646: x_lse_id => x_lse_id
29647: );
29648: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29649: x_return_status := OKL_API.G_RET_STS_ERROR;
29650: RAISE load_failed;
29651: END IF;
29652: */
29645: p_top_line_lty_code => 'FREE_FORM1',
29646: x_lse_id => x_lse_id
29647: );
29648: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29649: x_return_status := OKL_API.G_RET_STS_ERROR;
29650: RAISE load_failed;
29651: END IF;
29652: */
29653: l_progress := '103';
29667: p_asset_number => okl_line_rec.asset_number,
29668: x_id1 => x_id1,
29669: x_id2 => x_id2
29670: );
29671: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29672: x_return_status := OKL_API.G_RET_STS_ERROR;
29673: RAISE load_failed;
29674: END IF;
29675:
29668: x_id1 => x_id1,
29669: x_id2 => x_id2
29670: );
29671: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29672: x_return_status := OKL_API.G_RET_STS_ERROR;
29673: RAISE load_failed;
29674: END IF;
29675:
29676: p_cimv_fa_rec.chr_id := x_chrv_rec.id;
29723: p_segment6 => okl_line_rec.asset_category_segment6,
29724: p_segment7 => okl_line_rec.asset_category_segment7,
29725: x_comb_id => x_comb_id
29726: );
29727: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29728: x_return_status := OKL_API.G_RET_STS_ERROR;
29729: RAISE load_failed;
29730: END IF;
29731: p_talv_fa_rec.depreciation_id := x_comb_id;
29724: p_segment7 => okl_line_rec.asset_category_segment7,
29725: x_comb_id => x_comb_id
29726: );
29727: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29728: x_return_status := OKL_API.G_RET_STS_ERROR;
29729: RAISE load_failed;
29730: END IF;
29731: p_talv_fa_rec.depreciation_id := x_comb_id;
29732:
29747: p_segment6 => okl_line_rec.asset_location_segment6,
29748: p_segment7 => okl_line_rec.asset_location_segment7,
29749: x_comb_id => x_comb_id
29750: );
29751: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29752: x_return_status := OKL_API.G_RET_STS_ERROR;
29753: RAISE load_failed;
29754: END IF;
29755: p_talv_fa_rec.fa_location_id := x_comb_id;
29748: p_segment7 => okl_line_rec.asset_location_segment7,
29749: x_comb_id => x_comb_id
29750: );
29751: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29752: x_return_status := OKL_API.G_RET_STS_ERROR;
29753: RAISE load_failed;
29754: END IF;
29755: p_talv_fa_rec.fa_location_id := x_comb_id;
29756:
29776: p_segment9 => okl_line_rec.asset_key_segment9,
29777: p_segment10 => okl_line_rec.asset_key_segment10,
29778: x_comb_id => x_comb_id
29779: );
29780: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29781: x_return_status := OKL_API.G_RET_STS_ERROR;
29782: RAISE load_failed;
29783: END IF;
29784: p_talv_fa_rec.asset_key_id := x_comb_id;
29777: p_segment10 => okl_line_rec.asset_key_segment10,
29778: x_comb_id => x_comb_id
29779: );
29780: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29781: x_return_status := OKL_API.G_RET_STS_ERROR;
29782: RAISE load_failed;
29783: END IF;
29784: p_talv_fa_rec.asset_key_id := x_comb_id;
29785: debug_message('Asset Key: '||x_comb_id);
29808: p_install_site_number => okl_line_rec.install_site_number,
29809: x_install_site_id => x_install_site_id
29810: );
29811:
29812: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29813: x_return_status := OKL_API.G_RET_STS_ERROR;
29814: RAISE load_failed;
29815: END IF;
29816:
29809: x_install_site_id => x_install_site_id
29810: );
29811:
29812: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29813: x_return_status := OKL_API.G_RET_STS_ERROR;
29814: RAISE load_failed;
29815: END IF;
29816:
29817: --debug_message('Install site id: '||x_install_site_id);
29873: debug_message('Before create_all_line');
29874:
29875: okl_create_kle_pvt.Create_all_line(
29876: p_api_version => 1.0,
29877: p_init_msg_list => OKL_API.G_FALSE,
29878: x_return_status => x_return_status,
29879: x_msg_count => x_msg_count,
29880: x_msg_data => x_msg_data,
29881: P_new_yn => 'Y', -- 4414408
29892: x_clev_fa_rec => x_clev_fa_rec,
29893: x_clev_ib_rec => x_clev_ib_rec
29894: );
29895:
29896: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29897: x_return_status := OKL_API.G_RET_STS_ERROR;
29898: RAISE load_failed;
29899: END IF;
29900: --rviriyal bug#6015423 start 27-Aug-2007
29893: x_clev_ib_rec => x_clev_ib_rec
29894: );
29895:
29896: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29897: x_return_status := OKL_API.G_RET_STS_ERROR;
29898: RAISE load_failed;
29899: END IF;
29900: --rviriyal bug#6015423 start 27-Aug-2007
29901: /* Added code to consider date_funding_expected field. If date_funding_expected
29909: END IF;
29910:
29911: OKL_LA_ASSET_PVT.update_contract_line(
29912: p_api_version =>1.0
29913: ,p_init_msg_list =>OKL_API.G_FALSE
29914: ,x_return_status =>x_return_status
29915: ,x_msg_count =>x_msg_count
29916: ,x_msg_data =>x_msg_data
29917: ,p_id =>x_clev_fin_rec.id
29919: ,p_date_funding_expected => p_klev_fin_rec.date_funding_expected
29920: ,p_org_id =>NULL
29921: ,p_organization_id =>NULL
29922: );
29923: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29924: x_return_status := OKL_API.G_RET_STS_ERROR;
29925: RAISE load_failed;
29926: END IF;
29927:
29920: ,p_org_id =>NULL
29921: ,p_organization_id =>NULL
29922: );
29923: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29924: x_return_status := OKL_API.G_RET_STS_ERROR;
29925: RAISE load_failed;
29926: END IF;
29927:
29928: --rviriyal bug#6015423 start 27-Aug-2007
29968: p_stub_days => okl_payment_rent_rec.stub_days,
29969: p_stub_amount => okl_payment_rent_rec.stub_amount
29970: );
29971:
29972: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
29973: RAISE load_failed;
29974: END IF;
29975:
29976: IF (l_contract_number_old_prev <> okl_payment_rent_rec.contract_number_old -- prev checking
29997: x_rgp_id => x_rgp_id,
29998: x_slh_rulv_rec => x_slh_rulv_rec
29999: );
30000:
30001: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30002: RAISE load_failed;
30003: END IF;
30004:
30005: ELSE
30006: l_progress := '170';
30007:
30008: -- Some more validation on Payment Lines
30009: IF (okl_payment_rent_rec.payment_schedule_number <= l_pmnt_sch_num_prev) THEN
30010: okl_api.set_message(
30011: G_APP_NAME,
30012: G_PAYMENT_SCHD_ERROR,
30013: 'COL_VALUE',
30014: okl_payment_rent_rec.payment_schedule_number,
30014: okl_payment_rent_rec.payment_schedule_number,
30015: 'CONTRACT_NUM',
30016: okl_header_rec.contract_number_old||'/'||okl_payment_rent_rec.line_number
30017: );
30018: x_return_status := OKL_API.G_RET_STS_ERROR;
30019: RAISE load_failed;
30020: END IF;
30021:
30022: check_payment_frequency_code(
30027: x_id1 => x_pmnt_freq_id,
30028: x_uom_code => x_uom_code
30029: );
30030:
30031: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30032: okl_api.set_message(
30033: G_APP_NAME,
30034: G_INVALID_VALUE,
30035: 'CONTRACT_NUM',
30028: x_uom_code => x_uom_code
30029: );
30030:
30031: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30032: okl_api.set_message(
30033: G_APP_NAME,
30034: G_INVALID_VALUE,
30035: 'CONTRACT_NUM',
30036: okl_payment_rent_rec.contract_number_old||'/'||okl_payment_rent_rec.line_number,
30050: l_mult_factor := 6;
30051: ELSIF (x_uom_code = 'A') THEN
30052: l_mult_factor := 12;
30053: ELSE
30054: okl_api.set_message(
30055: G_APP_NAME,
30056: G_UOM_SETUP_ERROR,
30057: 'COL_VALUE',
30058: okl_payment_rent_rec.payment_frequency_code
30063:
30064: l_current_start_date := add_months(l_start_date_prev, (l_number_of_periods_prev * l_mult_factor));
30065:
30066: IF (TRUNC(l_current_start_date) <> TRUNC(okl_payment_rent_rec.start_date)) THEN
30067: okl_api.set_message(
30068: G_APP_NAME,
30069: G_PAYMENT_START_DATE_ERROR,
30070: 'CONTRACT_NUM',
30071: okl_payment_rent_rec.contract_number_old||'/'||okl_payment_rent_rec.line_number
30103: p_cle_id => x_cle_id,
30104: p_rgp_id => x_rgp_id
30105: );
30106:
30107: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30108: RAISE load_failed;
30109: END IF;
30110:
30111: l_progress := '180';
30136: p_asset_num => okl_line_rec.asset_number
30137: );
30138:
30139: debug_message('------>Process Subsidy ends '||x_return_status);
30140: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30141: x_return_status := OKL_API.G_RET_STS_ERROR;
30142: RAISE load_failed;
30143: END IF;
30144:
30137: );
30138:
30139: debug_message('------>Process Subsidy ends '||x_return_status);
30140: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30141: x_return_status := OKL_API.G_RET_STS_ERROR;
30142: RAISE load_failed;
30143: END IF;
30144:
30145:
30163:
30164: --debug_message('AKP:NEEDED:x_clev_fa_rec.id=' || x_clev_fa_rec.id);
30165:
30166: debug_message('------>Process Addon ends '||x_return_status);
30167: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30168: x_return_status := OKL_API.G_RET_STS_ERROR;
30169: RAISE load_failed;
30170: END IF;
30171:
30164: --debug_message('AKP:NEEDED:x_clev_fa_rec.id=' || x_clev_fa_rec.id);
30165:
30166: debug_message('------>Process Addon ends '||x_return_status);
30167: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30168: x_return_status := OKL_API.G_RET_STS_ERROR;
30169: RAISE load_failed;
30170: END IF;
30171:
30172: /* OKL.H - Addon import end */
30191: x_party_pmnt_hdr_tbl => x_party_pmnt_hdr_tbl_out
30192: );
30193:
30194: debug_message('------>Create party payment ends '||x_return_status);
30195: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30196: x_return_status := OKL_API.G_RET_STS_ERROR;
30197: RAISE load_failed;
30198: END IF;
30199: IF (x_party_pmnt_hdr_tbl_out.COUNT > 0 )THEN
30192: );
30193:
30194: debug_message('------>Create party payment ends '||x_return_status);
30195: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30196: x_return_status := OKL_API.G_RET_STS_ERROR;
30197: RAISE load_failed;
30198: END IF;
30199: IF (x_party_pmnt_hdr_tbl_out.COUNT > 0 )THEN
30200: l_counter := x_party_pmnt_hdr_tbl_out.FIRST;
30224: END LOOP;
30225:
30226: okl_txl_assets_pub.update_txl_asset_def(
30227: p_api_version => 1.0,
30228: p_init_msg_list => OKL_API.G_FALSE,
30229: x_return_status => x_return_status,
30230: x_msg_count => x_msg_count,
30231: x_msg_data => x_msg_data,
30232: p_tlpv_rec => l_talv_rec,
30234: );
30235:
30236: debug_message('Depreciation Cost update: '||x_return_status);
30237:
30238: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30239: x_return_status := OKL_API.G_RET_STS_ERROR;
30240: RAISE load_failed;
30241: END IF;
30242:
30235:
30236: debug_message('Depreciation Cost update: '||x_return_status);
30237:
30238: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30239: x_return_status := OKL_API.G_RET_STS_ERROR;
30240: RAISE load_failed;
30241: END IF;
30242:
30243: END IF; -- depreciation_cost
30247: x_return_status => x_return_status,
30248: p_fa_line_id => x_clev_fa_rec.id,
30249: x_tal_id => l_tal_id);
30250:
30251: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30252: x_return_status := OKL_API.G_RET_STS_ERROR;
30253: RAISE load_failed;
30254: END IF;
30255:
30248: p_fa_line_id => x_clev_fa_rec.id,
30249: x_tal_id => l_tal_id);
30250:
30251: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30252: x_return_status := OKL_API.G_RET_STS_ERROR;
30253: RAISE load_failed;
30254: END IF;
30255:
30256: IF (l_loan_yn <> 'Y') THEN -- don't create txd for loan type contract
30272: l_adpv_rec.CURRENCY_CONVERSION_DATE := okl_header_rec.currency_conversion_date;
30273:
30274: okl_txd_assets_pub.create_txd_asset_def(
30275: p_api_version => 1.0,
30276: p_init_msg_list => OKL_API.G_FALSE,
30277: x_return_status => x_return_status,
30278: x_msg_count => x_msg_count,
30279: x_msg_data => x_msg_data,
30280: p_adpv_rec => l_adpv_rec,
30280: p_adpv_rec => l_adpv_rec,
30281: x_adpv_rec => x_adpv_rec
30282: );
30283:
30284: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30285: x_return_status := OKL_API.G_RET_STS_ERROR;
30286: RAISE load_failed;
30287: END IF;
30288:
30281: x_adpv_rec => x_adpv_rec
30282: );
30283:
30284: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30285: x_return_status := OKL_API.G_RET_STS_ERROR;
30286: RAISE load_failed;
30287: END IF;
30288:
30289: debug_message('------>TXD Line Created');
30314: p_ship_to_site_number => okl_line_rec.ship_to_site_number,
30315: p_ship_to_site_id => okl_line_rec.ship_to_site_id,
30316: x_ship_to_site_id => x_ship_to_site_id
30317: );
30318: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30319: RAISE load_failed;
30320: x_return_status := OKL_API.G_RET_STS_ERROR;
30321: END IF;
30322:
30316: x_ship_to_site_id => x_ship_to_site_id
30317: );
30318: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30319: RAISE load_failed;
30320: x_return_status := OKL_API.G_RET_STS_ERROR;
30321: END IF;
30322:
30323: p_sidv_rec.shipping_address_id1 := x_ship_to_site_id;
30324: p_sidv_rec.shipping_address_id2 := '#';
30332: x_msg_data => x_msg_data,
30333: p_sidv_rec => p_sidv_rec,
30334: x_sidv_rec => x_sidv_rec
30335: );
30336: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30337: x_return_status := OKL_API.G_RET_STS_ERROR;
30338: RAISE load_failed;
30339: END IF;
30340:
30333: p_sidv_rec => p_sidv_rec,
30334: x_sidv_rec => x_sidv_rec
30335: );
30336: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30337: x_return_status := OKL_API.G_RET_STS_ERROR;
30338: RAISE load_failed;
30339: END IF;
30340:
30341: END IF; -- multiple Tax Book
30397: p_pth_evg_stream_purpose_code => okl_line_rec.pth_evg_stream_purpose_code,
30398: p_fee_purpose_code => okl_line_rec.fee_purpose_code
30399: );
30400:
30401: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30402: x_return_status := OKL_API.G_RET_STS_ERROR;
30403: RAISE load_failed;
30404: END IF;
30405:
30398: p_fee_purpose_code => okl_line_rec.fee_purpose_code
30399: );
30400:
30401: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30402: x_return_status := OKL_API.G_RET_STS_ERROR;
30403: RAISE load_failed;
30404: END IF;
30405:
30406: l_service_line_id := x_cle_id;
30461: p_pth_evg_stream_purpose_code => okl_line_rec.pth_evg_stream_purpose_code,
30462: p_fee_purpose_code => okl_line_rec.fee_purpose_code
30463: );
30464:
30465: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30466: x_return_status := OKL_API.G_RET_STS_ERROR;
30467: RAISE load_failed;
30468: END IF;
30469:
30462: p_fee_purpose_code => okl_line_rec.fee_purpose_code
30463: );
30464:
30465: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30466: x_return_status := OKL_API.G_RET_STS_ERROR;
30467: RAISE load_failed;
30468: END IF;
30469:
30470: l_fee_line_id := x_cle_id;
30525: p_pth_evg_stream_purpose_code => NULL,
30526: p_fee_purpose_code => okl_line_rec.fee_purpose_code
30527: );
30528:
30529: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30530: x_return_status := OKL_API.G_RET_STS_ERROR;
30531: RAISE load_failed;
30532: END IF;
30533:
30526: p_fee_purpose_code => okl_line_rec.fee_purpose_code
30527: );
30528:
30529: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30530: x_return_status := OKL_API.G_RET_STS_ERROR;
30531: RAISE load_failed;
30532: END IF;
30533:
30534: l_usage_line_id := x_cle_id;
30625: p_prop_tax_as_contract_yn => okl_line_rec.prop_tax_as_contract_yn
30626: -- End
30627: );
30628:
30629: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30630: x_return_status := OKL_API.G_RET_STS_ERROR;
30631: raise load_failed;
30632: END IF;
30633:
30626: -- End
30627: );
30628:
30629: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30630: x_return_status := OKL_API.G_RET_STS_ERROR;
30631: raise load_failed;
30632: END IF;
30633:
30634: debug_message('------>Line rule complete');
30751: );
30752:
30753: debug_message('------>Party Role Status: '||x_return_status);
30754:
30755: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30756: RAISE load_failed;
30757: END IF;
30758: END IF; --rule create
30759: l_progress := '140';
30775: okl_term_rec.bill_to_address_id IS NULL
30776: AND
30777: okl_term_rec.bill_to_address IS NULL) THEN
30778:
30779: okl_api.set_message(
30780: G_APP_NAME,
30781: G_MISSING_VALUE,
30782: 'CONTRACT_NUM',
30783: okl_term_rec.contract_number_old||'/'||okl_term_rec.line_number,
30784: 'COL_NAME',
30785: 'BILL_TO_ADDRESS'
30786: );
30787:
30788: x_return_status := OKL_API.G_RET_STS_ERROR;
30789: RAISE load_failed;
30790: END IF;
30791:
30792: debug_message('------>Process term');
30814: p_prescribed_asset_flag => okl_term_rec.prescribed_asset_flag,
30815: p_cash_appl_rule_name => okl_term_rec.cash_appl_rule_name
30816: );
30817:
30818: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30819: RAISE load_failed;
30820: END IF;
30821:
30822: l_progress := '160';
30872: p_stub_days => okl_payment_rec.stub_days,
30873: p_stub_amount => okl_payment_rec.stub_amount
30874: );
30875:
30876: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30877: RAISE load_failed;
30878: END IF;
30879:
30880: IF (l_contract_number_old_prev <> okl_payment_rec.contract_number_old -- prev checking
30900: p_line_number => okl_line_rec.line_number,
30901: x_payment_level => l_payment_level
30902: );
30903:
30904: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30905: RAISE load_failed;
30906: END IF;
30907:
30908: IF (l_payment_level = 'SUB') THEN -- attach payment at sub-line
30925: x_rgp_id => x_rgp_id,
30926: x_slh_rulv_rec => x_slh_rulv_rec
30927: );
30928:
30929: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30930: RAISE load_failed;
30931: END IF;
30932:
30933: ELSE
30935:
30936: -- Some more validation on Payment Lines
30937: IF (okl_payment_rec.payment_schedule_number <= l_pmnt_sch_num_prev) THEN
30938: debug_message('First check error...');
30939: okl_api.set_message(
30940: G_APP_NAME,
30941: G_PAYMENT_SCHD_ERROR,
30942: 'COL_VALUE',
30943: okl_payment_rec.payment_schedule_number,
30943: okl_payment_rec.payment_schedule_number,
30944: 'CONTRACT_NUM',
30945: okl_header_rec.contract_number_old||'/'||okl_payment_rec.line_number
30946: );
30947: x_return_status := OKL_API.G_RET_STS_ERROR;
30948: RAISE load_failed;
30949: END IF;
30950:
30951: check_payment_frequency_code(
30956: x_id1 => x_pmnt_freq_id,
30957: x_uom_code => x_uom_code
30958: );
30959:
30960: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30961: okl_api.set_message(
30962: G_APP_NAME,
30963: G_INVALID_VALUE,
30964: 'CONTRACT_NUM',
30957: x_uom_code => x_uom_code
30958: );
30959:
30960: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
30961: okl_api.set_message(
30962: G_APP_NAME,
30963: G_INVALID_VALUE,
30964: 'CONTRACT_NUM',
30965: okl_payment_rec.contract_number_old||'/'||okl_payment_rec.line_number,
30979: l_mult_factor := 6;
30980: ELSIF (x_uom_code = 'A') THEN
30981: l_mult_factor := 12;
30982: ELSE
30983: okl_api.set_message(
30984: G_APP_NAME,
30985: G_UOM_SETUP_ERROR,
30986: 'COL_VALUE',
30987: okl_payment_rec.payment_frequency_code
30992:
30993: l_current_start_date := add_months(l_start_date_prev, (l_number_of_periods_prev * l_mult_factor));
30994:
30995: IF (TRUNC(l_current_start_date) <> TRUNC(okl_payment_rec.start_date)) THEN
30996: okl_api.set_message(
30997: G_APP_NAME,
30998: G_PAYMENT_START_DATE_ERROR,
30999: 'CONTRACT_NUM',
31000: okl_payment_rec.contract_number_old||'/'||okl_payment_rec.line_number
31032: p_cle_id => x_cle_id,
31033: p_rgp_id => x_rgp_id
31034: );
31035:
31036: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
31037: RAISE load_failed;
31038: END IF;
31039:
31040: l_progress := '180';
31173: p_attribute14 => okl_party_rec.attribute14,
31174: p_attribute15 => okl_party_rec.attribute15
31175: );
31176:
31177: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
31178: RAISE load_failed;
31179: END IF;
31180:
31181: l_progress := '210';
31219: p_stub_days => okl_payment_rec.stub_days,
31220: p_stub_amount => okl_payment_rec.stub_amount
31221: );
31222:
31223: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
31224: RAISE load_failed;
31225: END IF;
31226:
31227: IF (l_contract_number_old_prev <> okl_payment_rec.contract_number_old -- prev checking
31243: x_rgp_id => x_rgp_id,
31244: x_slh_rulv_rec => x_slh_rulv_rec
31245: );
31246:
31247: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
31248: RAISE load_failed;
31249: END IF;
31250:
31251: l_rg_id := x_rgp_id;
31255:
31256: -- Some more validation on Payment Lines
31257: IF (okl_payment_rec.payment_schedule_number <= l_pmnt_sch_num_prev) THEN
31258: debug_message('Second check error...');
31259: okl_api.set_message(
31260: G_APP_NAME,
31261: G_PAYMENT_SCHD_ERROR,
31262: 'COL_VALUE',
31263: okl_payment_rec.payment_schedule_number,
31263: okl_payment_rec.payment_schedule_number,
31264: 'CONTRACT_NUM',
31265: okl_header_rec.contract_number_old||'/'||okl_payment_rec.line_number
31266: );
31267: x_return_status := OKL_API.G_RET_STS_ERROR;
31268: RAISE load_failed;
31269: END IF;
31270:
31271: check_payment_frequency_code(
31276: x_id1 => x_pmnt_freq_id,
31277: x_uom_code => x_uom_code
31278: );
31279:
31280: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
31281: okl_api.set_message(
31282: G_APP_NAME,
31283: G_INVALID_VALUE,
31284: 'CONTRACT_NUM',
31277: x_uom_code => x_uom_code
31278: );
31279:
31280: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
31281: okl_api.set_message(
31282: G_APP_NAME,
31283: G_INVALID_VALUE,
31284: 'CONTRACT_NUM',
31285: okl_payment_rec.contract_number_old||'/'||okl_payment_rec.line_number,
31299: l_mult_factor := 6;
31300: ELSIF (x_uom_code = 'A') THEN
31301: l_mult_factor := 12;
31302: ELSE
31303: okl_api.set_message(
31304: G_APP_NAME,
31305: G_UOM_SETUP_ERROR,
31306: 'COL_VALUE',
31307: okl_payment_rec.payment_frequency_code
31312:
31313: l_current_start_date := add_months(l_start_date_prev, (l_number_of_periods_prev * l_mult_factor));
31314:
31315: IF (TRUNC(l_current_start_date) <> TRUNC(okl_payment_rec.start_date)) THEN
31316: okl_api.set_message(
31317: G_APP_NAME,
31318: G_PAYMENT_START_DATE_ERROR,
31319: 'CONTRACT_NUM',
31320: okl_payment_rec.contract_number_old||'/'||okl_payment_rec.line_number
31352: p_cle_id => NULL,
31353: p_rgp_id => l_rg_id
31354: );
31355:
31356: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
31357: RAISE load_failed;
31358: END IF;
31359:
31360: l_progress := '180';
31373: IF (l_no_of_lines = 0
31374: AND
31375: okl_header_rec.import_request_stage <> 'NEW') THEN -- There must be atleast one line, except for NEW contracts
31376:
31377: okl_api.set_message(
31378: G_APP_NAME,
31379: G_INVALID_CONTRACT,
31380: 'CONTRACT_NUM',
31381: okl_header_rec.contract_number_old
31379: G_INVALID_CONTRACT,
31380: 'CONTRACT_NUM',
31381: okl_header_rec.contract_number_old
31382: );
31383: x_return_status := OKL_API.G_RET_STS_ERROR;
31384: RAISE load_failed;
31385: END IF;
31386:
31387: COMMIT; -- commit after every Contract to avoid problem with Rollback segment
31388: /*
31389: --
31390: -- Process Contracts depending on import_request_stage
31391: --
31392: IF (x_return_status = OKL_API.G_RET_STS_SUCCESS
31393: AND
31394: okl_header_rec.import_request_stage <> 'NEW' ) THEN
31395: contract_further_process(
31396: p_init_msg_list => OKL_API.G_FALSE,
31392: IF (x_return_status = OKL_API.G_RET_STS_SUCCESS
31393: AND
31394: okl_header_rec.import_request_stage <> 'NEW' ) THEN
31395: contract_further_process(
31396: p_init_msg_list => OKL_API.G_FALSE,
31397: x_return_status => x_return_status,
31398: x_msg_count => x_msg_count,
31399: x_msg_data => x_msg_data,
31400: p_chr_id => x_chrv_rec.id,
31410: report_error (
31411: x_msg_count => x_msg_count,
31412: x_msg_data => x_msg_data
31413: );
31414: x_return_status := OKL_API.G_RET_STS_ERROR;
31415:
31416: END; -- of Header Begin
31417:
31418: IF (x_return_status = OKL_API.G_RET_STS_SUCCESS) THEN -- Final checking for SUCCESSFUL Processing
31414: x_return_status := OKL_API.G_RET_STS_ERROR;
31415:
31416: END; -- of Header Begin
31417:
31418: IF (x_return_status = OKL_API.G_RET_STS_SUCCESS) THEN -- Final checking for SUCCESSFUL Processing
31419:
31420: update_interface_status(
31421: p_contract_number => okl_header_rec.contract_number_old,
31422: p_new_contract_number => x_chrv_rec.contract_number,
31429: -- hariven - Bug#5393374 - Added - Start
31430: -- Raise Business event for "oracle.apps.okl.la.lease_contract.imported"
31431: raise_business_event( p_chr_id => x_chrv_rec.id
31432: , x_return_status => x_return_status);
31433: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
31434: write_to_log('Raising Business Event For Contract -' ||x_chrv_rec.contract_number ||' FAILED!');
31435: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
31436: END IF;
31437: -- hariven - Bug#5393374 - Added - End
31431: raise_business_event( p_chr_id => x_chrv_rec.id
31432: , x_return_status => x_return_status);
31433: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
31434: write_to_log('Raising Business Event For Contract -' ||x_chrv_rec.contract_number ||' FAILED!');
31435: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
31436: END IF;
31437: -- hariven - Bug#5393374 - Added - End
31438:
31439: ELSE
31451:
31452: --
31453: -- Process Contracts depending on import_request_stage
31454: --
31455: IF (x_return_status = OKL_API.G_RET_STS_SUCCESS
31456: AND
31457: okl_header_rec.import_request_stage <> 'NEW' ) THEN
31458: contract_further_process(
31459: p_init_msg_list => OKL_API.G_FALSE,
31455: IF (x_return_status = OKL_API.G_RET_STS_SUCCESS
31456: AND
31457: okl_header_rec.import_request_stage <> 'NEW' ) THEN
31458: contract_further_process(
31459: p_init_msg_list => OKL_API.G_FALSE,
31460: x_return_status => x_return_status,
31461: x_msg_count => x_msg_count,
31462: x_msg_data => x_msg_data,
31463: p_chr_id => x_chrv_rec.id,
31476: WHEN item_not_found_error THEN
31477: x_return_status := Okc_Api.G_RET_STS_ERROR;
31478:
31479: WHEN OTHERS THEN
31480: okl_api.set_message(
31481: G_APP_NAME,
31482: G_UNEXPECTED_ERROR,
31483: 'OKL_SQLCODE',
31484: SQLCODE,
31484: SQLCODE,
31485: 'OKL_SQLERRM',
31486: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
31487: );
31488: x_return_status := OKL_API.G_RET_STS_ERROR;
31489:
31490: report_error (
31491: x_msg_count => x_msg_count,
31492: x_msg_data => x_msg_data
31520:
31521:
31522: BEGIN
31523:
31524: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
31525:
31526: -- Convert the date to Varchar2
31527:
31528: l_start_date := Fnd_Date.date_to_canonical(p_start_date);
31548: p_msg_name => 'FA_DEPRN_TAX_ERROR',
31549: p_token1 => 'REQUEST_ID',
31550: p_token1_value => x_request_id);
31551:
31552: RAISE Okl_Api.g_exception_error;
31553: END IF;
31554:
31555: RETURN x_request_id;
31556:
31555: RETURN x_request_id;
31556:
31557: EXCEPTION
31558:
31559: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
31560: x_return_status := Okl_Api.G_RET_STS_ERROR;
31561: RETURN x_request_id;
31562:
31563: WHEN OTHERS THEN
31556:
31557: EXCEPTION
31558:
31559: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
31560: x_return_status := Okl_Api.G_RET_STS_ERROR;
31561: RETURN x_request_id;
31562:
31563: WHEN OTHERS THEN
31564: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
31560: x_return_status := Okl_Api.G_RET_STS_ERROR;
31561: RETURN x_request_id;
31562:
31563: WHEN OTHERS THEN
31564: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
31565: RETURN x_request_id;
31566:
31567: END Submit_Import_Contract;
31568: