[Home] [Help]
196: END IF;
197: EXCEPTION
198: WHEN OTHERS
199: THEN
200: okc_api.set_message (g_app_name,
201: g_unexpected_error,
202: g_sqlcode_token,
203: SQLCODE,
204: g_sqlerrm_token,
356: );
357: END IF;
358: END IF;
359: IF p_context_level = G_CONTEXT_ORDER_HEADER THEN
360: okc_api.set_message(g_app_name,
361: 'OKS_CC_INS_ASSG_NOT_FOUND',
362: 'ORDER_NUMBER',
363: l_order_number
364: );
362: 'ORDER_NUMBER',
363: l_order_number
364: );
365: ELSE
366: okc_api.set_message(g_app_name,
367: 'OKS_LINE_CC_INS_ASSG_NOT_FOUND',
368: 'ORDER_LINE_ID',
369: p_order_line_id
370: );
491: );
492: END IF;
493: END IF;
494: IF p_context_level = G_CONTEXT_ORDER_HEADER THEN
495: okc_api.set_message(g_app_name,
496: 'OKS_CC_EXTN_CREATN_FAILED',
497: 'ORDER_NUMBER',
498: l_order_number
499: );
497: 'ORDER_NUMBER',
498: l_order_number
499: );
500: ELSE
501: okc_api.set_message(g_app_name,
502: 'OKS_LINE_CC_EXTN_CREATN_FAILED',
503: 'ORDER_LINE_ID',
504: p_order_line_id
505: );
539: IF c_party%ISOPEN THEN
540: CLOSE c_party;
541: END IF;
542:
543: x_return_status := okc_api.g_ret_sts_unexp_error;
544: okc_api.set_message (g_app_name,
545: g_unexpected_error,
546: g_sqlcode_token,
547: SQLCODE,
540: CLOSE c_party;
541: END IF;
542:
543: x_return_status := okc_api.g_ret_sts_unexp_error;
544: okc_api.set_message (g_app_name,
545: g_unexpected_error,
546: g_sqlcode_token,
547: SQLCODE,
548: g_sqlerrm_token,
582: )
583: IS
584: l_api_version CONSTANT NUMBER := 1.0;
585: l_init_msg_list CONSTANT VARCHAR2 (1) := 'F';
586: l_return_status VARCHAR2 (1) := okc_api.g_ret_sts_success;
587: l_index VARCHAR2 (240);
588: --Party Role
589: l_cplv_tbl_in okc_contract_party_pub.cplv_tbl_type;
590: l_cplv_tbl_out okc_contract_party_pub.cplv_tbl_type;
608: AND rle_code = p_rle_code;
609:
610: l_roleid NUMBER;
611: BEGIN
612: l_return_status := okc_api.g_ret_sts_success;
613:
614: IF p_cleid IS NULL
615: THEN
616: l_roleid := NULL;
688: IF l_return_status = 'S'
689: THEN
690: x_roleid := l_cplv_tbl_out (1).ID;
691: ELSE
692: okc_api.set_message (g_app_name,
693: g_required_value,
694: g_col_name_token,
695: p_rle_code || ' Party Role (HEADER)'
696: );
702: x_return_status := l_return_status;
703: NULL;
704: WHEN OTHERS
705: THEN
706: x_return_status := okc_api.g_ret_sts_unexp_error;
707: okc_api.set_message (g_app_name,
708: g_unexpected_error,
709: g_sqlcode_token,
710: SQLCODE,
703: NULL;
704: WHEN OTHERS
705: THEN
706: x_return_status := okc_api.g_ret_sts_unexp_error;
707: okc_api.set_message (g_app_name,
708: g_unexpected_error,
709: g_sqlcode_token,
710: SQLCODE,
711: g_sqlerrm_token,
1010: x_return_status := l_return_status;
1011: EXCEPTION
1012: WHEN OTHERS
1013: THEN
1014: x_return_status := okc_api.g_ret_sts_unexp_error;
1015: okc_api.set_message (g_app_name,
1016: g_unexpected_error,
1017: g_sqlcode_token,
1018: SQLCODE,
1011: EXCEPTION
1012: WHEN OTHERS
1013: THEN
1014: x_return_status := okc_api.g_ret_sts_unexp_error;
1015: okc_api.set_message (g_app_name,
1016: g_unexpected_error,
1017: g_sqlcode_token,
1018: SQLCODE,
1019: g_sqlerrm_token,
1062: x_return_status := l_return_status;
1063: EXCEPTION
1064: WHEN OTHERS
1065: THEN
1066: x_return_status := okc_api.g_ret_sts_unexp_error;
1067: okc_api.set_message (g_app_name,
1068: g_unexpected_error,
1069: g_sqlcode_token,
1070: SQLCODE,
1063: EXCEPTION
1064: WHEN OTHERS
1065: THEN
1066: x_return_status := okc_api.g_ret_sts_unexp_error;
1067: okc_api.set_message (g_app_name,
1068: g_unexpected_error,
1069: g_sqlcode_token,
1070: SQLCODE,
1071: g_sqlerrm_token,
1194:
1195: l_target_rec target_csr%ROWTYPE;
1196: l_source_rec source_csr%ROWTYPE;
1197: BEGIN
1198: x_return_status := okc_api.g_ret_sts_success;
1199:
1200: OPEN source_csr (p_source_chr_id);
1201:
1202: FETCH source_csr
1241: CLOSE target_csr;
1242: EXCEPTION
1243: WHEN OTHERS
1244: THEN
1245: x_return_status := okc_api.g_ret_sts_unexp_error;
1246: okc_api.set_message (g_app_name,
1247: g_unexpected_error,
1248: g_sqlcode_token,
1249: SQLCODE,
1242: EXCEPTION
1243: WHEN OTHERS
1244: THEN
1245: x_return_status := okc_api.g_ret_sts_unexp_error;
1246: okc_api.set_message (g_app_name,
1247: g_unexpected_error,
1248: g_sqlcode_token,
1249: SQLCODE,
1250: g_sqlerrm_token,
1377: l_source_bill_completed DATE;
1378: l_source_service_item_id NUMBER;
1379: l_target_service_item_id NUMBER;
1380: l_api_version CONSTANT NUMBER := 1.0;
1381: l_init_msg_list VARCHAR2 (2000) := okc_api.g_false;
1382: l_return_status VARCHAR2 (1);
1383: BEGIN
1384: l_return_status := okc_api.g_ret_sts_success;
1385:
1380: l_api_version CONSTANT NUMBER := 1.0;
1381: l_init_msg_list VARCHAR2 (2000) := okc_api.g_false;
1382: l_return_status VARCHAR2 (1);
1383: BEGIN
1384: l_return_status := okc_api.g_ret_sts_success;
1385:
1386: OPEN source_line (p_source_line_id);
1387:
1388: FETCH source_line
1447: p_target_contract_line_id => p_target_line_id,
1448: x_coverage_match => x_eligible_yn
1449: );
1450:
1451: IF l_return_status <> okc_api.g_ret_sts_success
1452: THEN
1453: CLOSE target_line;
1454:
1455: RAISE g_exception_halt_validation;
1538: THEN
1539: x_return_status := l_return_status;
1540: WHEN OTHERS
1541: THEN
1542: x_return_status := okc_api.g_ret_sts_unexp_error;
1543: okc_api.set_message (g_app_name,
1544: g_unexpected_error,
1545: g_sqlcode_token,
1546: SQLCODE,
1539: x_return_status := l_return_status;
1540: WHEN OTHERS
1541: THEN
1542: x_return_status := okc_api.g_ret_sts_unexp_error;
1543: okc_api.set_message (g_app_name,
1544: g_unexpected_error,
1545: g_sqlcode_token,
1546: SQLCODE,
1547: g_sqlerrm_token,
1618: WHERE cle_id = p_cle_id AND dnz_chr_id = p_chr_id;
1619:
1620: --General
1621: l_api_version CONSTANT NUMBER := 1.0;
1622: l_init_msg_list CONSTANT VARCHAR2 (1) := okc_api.g_false;
1623: l_return_status VARCHAR2 (1) := 'S';
1624: l_index VARCHAR2 (2000);
1625: --Contract Line
1626: l_clev_tbl_in okc_contract_pub.clev_tbl_type;
1631: l_invoice_rule_id NUMBER;
1632: l_ste_code VARCHAR2 (30);
1633: l_sts_code VARCHAR2 (30);
1634: BEGIN
1635: x_status := okc_api.g_ret_sts_success;
1636:
1637: IF p_sts_flag = 'Y'
1638: THEN
1639: IF p_new_sdt > SYSDATE
1657: l_clev_tbl_in (1).end_date := p_new_edt;
1658: okc_contract_pub.update_contract_line
1659: (p_api_version => l_api_version,
1660: p_init_msg_list => l_init_msg_list,
1661: p_restricted_update => okc_api.g_true,
1662: x_return_status => l_return_status,
1663: x_msg_count => x_msg_count,
1664: x_msg_data => x_msg_data,
1665: p_clev_tbl => l_clev_tbl_in,
1689: THEN
1690: NULL;
1691: WHEN OTHERS
1692: THEN
1693: x_status := okc_api.g_ret_sts_unexp_error;
1694: okc_api.set_message (g_app_name,
1695: g_unexpected_error,
1696: g_sqlcode_token,
1697: SQLCODE,
1690: NULL;
1691: WHEN OTHERS
1692: THEN
1693: x_status := okc_api.g_ret_sts_unexp_error;
1694: okc_api.set_message (g_app_name,
1695: g_unexpected_error,
1696: g_sqlcode_token,
1697: SQLCODE,
1698: g_sqlerrm_token,
1808: END IF;
1809: EXCEPTION
1810: WHEN OTHERS
1811: THEN
1812: x_return_status := okc_api.g_ret_sts_unexp_error;
1813: okc_api.set_message (g_app_name,
1814: g_unexpected_error,
1815: g_sqlcode_token,
1816: SQLCODE,
1809: EXCEPTION
1810: WHEN OTHERS
1811: THEN
1812: x_return_status := okc_api.g_ret_sts_unexp_error;
1813: okc_api.set_message (g_app_name,
1814: g_unexpected_error,
1815: g_sqlcode_token,
1816: SQLCODE,
1817: g_sqlerrm_token,
1880: )
1881: IS
1882: --General
1883: l_api_version CONSTANT NUMBER := 1.0;
1884: l_init_msg_list CONSTANT VARCHAR2 (1) := okc_api.g_false;
1885: l_return_status VARCHAR2 (1) := 'S';
1886: l_index VARCHAR2 (2000);
1887: --Contract Header
1888: l_chrv_tbl_in okc_contract_pub.chrv_tbl_type;
1899: l_rule_id NUMBER;
1900: l_ste_code VARCHAR2 (30);
1901: l_sts_code VARCHAR2 (30);
1902: BEGIN
1903: x_status := okc_api.g_ret_sts_success;
1904:
1905: IF p_sts_flag = 'Y'
1906: THEN
1907: IF p_new_sdt > SYSDATE
1925: l_chrv_tbl_in (1).end_date := p_new_edt;
1926: okc_contract_pub.update_contract_header
1927: (p_api_version => l_api_version,
1928: p_init_msg_list => l_init_msg_list,
1929: p_restricted_update => okc_api.g_true,
1930: x_return_status => l_return_status,
1931: x_msg_count => x_msg_count,
1932: x_msg_data => x_msg_data,
1933: p_chrv_tbl => l_chrv_tbl_in,
1958: THEN
1959: NULL;
1960: WHEN OTHERS
1961: THEN
1962: x_status := okc_api.g_ret_sts_unexp_error;
1963: okc_api.set_message (g_app_name,
1964: g_unexpected_error,
1965: g_sqlcode_token,
1966: SQLCODE,
1959: NULL;
1960: WHEN OTHERS
1961: THEN
1962: x_status := okc_api.g_ret_sts_unexp_error;
1963: okc_api.set_message (g_app_name,
1964: g_unexpected_error,
1965: g_sqlcode_token,
1966: SQLCODE,
1967: g_sqlerrm_token,
2049: FROM okc_k_lines_b
2050: WHERE ID = p_covered_line_id;
2051:
2052: l_api_version CONSTANT NUMBER := 1.0;
2053: l_init_msg_list CONSTANT VARCHAR2 (1) := okc_api.g_false;
2054: l_return_status VARCHAR2 (1) := 'S';
2055: l_index VARCHAR2 (2000);
2056: --Contract Line Table
2057: l_clev_tbl_in okc_contract_pub.clev_tbl_type;
2064: l_line_item_id NUMBER;
2065: BEGIN
2066: IF p_new_end_date IS NOT NULL
2067: THEN
2068: x_return_status := okc_api.g_ret_sts_success;
2069: l_clev_tbl_in (1).ID := p_covered_line_id;
2070: l_clev_tbl_in (1).end_date := p_new_end_date;
2071: okc_contract_pub.update_contract_line
2072: (p_api_version => l_api_version,
2070: l_clev_tbl_in (1).end_date := p_new_end_date;
2071: okc_contract_pub.update_contract_line
2072: (p_api_version => l_api_version,
2073: p_init_msg_list => l_init_msg_list,
2074: p_restricted_update => okc_api.g_true,
2075: x_return_status => l_return_status,
2076: x_msg_count => x_msg_count,
2077: x_msg_data => x_msg_data,
2078: p_clev_tbl => l_clev_tbl_in,
2092: END IF;
2093:
2094: IF l_return_status <> 'S'
2095: THEN
2096: okc_api.set_message (g_app_name,
2097: g_required_value,
2098: g_col_name_token,
2099: 'Contract Line Update(UPDATE SUB LINE)'
2100: );
2103: END IF;
2104:
2105: IF p_new_negotiated_amt IS NOT NULL
2106: THEN
2107: x_return_status := okc_api.g_ret_sts_success;
2108: l_clev_tbl_in (1).ID := p_covered_line_id;
2109: l_clev_tbl_in (1).price_negotiated := p_new_negotiated_amt;
2110: l_clev_tbl_in (1).price_unit := p_list_price;
2111: okc_contract_pub.update_contract_line
2110: l_clev_tbl_in (1).price_unit := p_list_price;
2111: okc_contract_pub.update_contract_line
2112: (p_api_version => l_api_version,
2113: p_init_msg_list => l_init_msg_list,
2114: p_restricted_update => okc_api.g_true,
2115: x_return_status => l_return_status,
2116: x_msg_count => x_msg_count,
2117: x_msg_data => x_msg_data,
2118: p_clev_tbl => l_clev_tbl_in,
2176: x_return_status := l_return_status;
2177: NULL;
2178: WHEN OTHERS
2179: THEN
2180: x_return_status := okc_api.g_ret_sts_unexp_error;
2181: okc_api.set_message (g_app_name,
2182: g_unexpected_error,
2183: g_sqlcode_token,
2184: SQLCODE,
2177: NULL;
2178: WHEN OTHERS
2179: THEN
2180: x_return_status := okc_api.g_ret_sts_unexp_error;
2181: okc_api.set_message (g_app_name,
2182: g_unexpected_error,
2183: g_sqlcode_token,
2184: SQLCODE,
2185: g_sqlerrm_token,
2351: l_rah_hdr_object1_id1 NUMBER;
2352: l_thirdparty_id NUMBER;
2353: l_thirdparty_role VARCHAR2 (30);
2354: l_api_version CONSTANT NUMBER := 1.0;
2355: l_init_msg_list CONSTANT VARCHAR2 (1) := okc_api.g_false;
2356: l_return_status VARCHAR2 (1) := 'S';
2357: l_index VARCHAR2 (2000);
2358: i NUMBER;
2359: --Contract Header
2429: l_salesrep_id NUMBER;
2430: l_new_org_id NUMBER;
2431: l_entity_id NUMBER;
2432: BEGIN
2433: x_return_status := okc_api.g_ret_sts_success;
2434:
2435: IF fnd_log.level_procedure >= fnd_log.g_current_runtime_level
2436: THEN
2437: fnd_log.STRING (fnd_log.level_procedure,
2494: WHERE ID = l_chrid;
2495: END IF;
2496:
2497: x_chr_id := l_chrid;
2498: l_return_status := okc_api.g_ret_sts_success;
2499: RAISE g_exception_halt_validation;
2500: END IF;
2501: END IF;
2502:
2575: NVL (p_k_header_rec.short_description, 'Warranty/Extended Warranty');
2576: l_chrv_tbl_in (1).template_yn := 'N';
2577: l_chrv_tbl_in (1).start_date := p_k_header_rec.start_date;
2578: l_chrv_tbl_in (1).end_date := p_k_header_rec.end_date;
2579: l_chrv_tbl_in (1).chr_type := okc_api.g_miss_char;
2580: l_chrv_tbl_in (1).archived_yn := 'N';
2581: l_chrv_tbl_in (1).deleted_yn := 'N';
2582: l_chrv_tbl_in (1).created_by := okc_api.g_miss_num;
2583: l_chrv_tbl_in (1).creation_date := okc_api.g_miss_date;
2578: l_chrv_tbl_in (1).end_date := p_k_header_rec.end_date;
2579: l_chrv_tbl_in (1).chr_type := okc_api.g_miss_char;
2580: l_chrv_tbl_in (1).archived_yn := 'N';
2581: l_chrv_tbl_in (1).deleted_yn := 'N';
2582: l_chrv_tbl_in (1).created_by := okc_api.g_miss_num;
2583: l_chrv_tbl_in (1).creation_date := okc_api.g_miss_date;
2584: l_chrv_tbl_in (1).currency_code := p_k_header_rec.currency;
2585: l_chrv_tbl_in (1).buy_or_sell := 'S';
2586: l_chrv_tbl_in (1).issue_or_receive := 'I';
2579: l_chrv_tbl_in (1).chr_type := okc_api.g_miss_char;
2580: l_chrv_tbl_in (1).archived_yn := 'N';
2581: l_chrv_tbl_in (1).deleted_yn := 'N';
2582: l_chrv_tbl_in (1).created_by := okc_api.g_miss_num;
2583: l_chrv_tbl_in (1).creation_date := okc_api.g_miss_date;
2584: l_chrv_tbl_in (1).currency_code := p_k_header_rec.currency;
2585: l_chrv_tbl_in (1).buy_or_sell := 'S';
2586: l_chrv_tbl_in (1).issue_or_receive := 'I';
2587: l_chrv_tbl_in (1).attribute1 := p_k_header_rec.attribute1;
2658:
2659: RAISE g_exception_halt_validation;
2660: ELSE
2661: --mmadhavi
2662: okc_api.set_message (g_app_name,
2663: g_required_value,
2664: g_col_name_token,
2665: 'HEADER (HEADER)'
2666: );
2832: l_khrv_tbl_in (1).tax_status := p_k_header_rec.tax_status_flag; --TAX
2833: l_khrv_tbl_in (1).tax_code := NULL; --TAX
2834: l_khrv_tbl_in (1).tax_exemption_id := p_k_header_rec.tax_exemption_id;
2835: --TAX
2836: l_khrv_tbl_in (1).created_by := okc_api.g_miss_num;
2837: l_khrv_tbl_in (1).creation_date := okc_api.g_miss_date;
2838:
2839: IF p_k_header_rec.ccr_number IS NOT NULL
2840: THEN
2833: l_khrv_tbl_in (1).tax_code := NULL; --TAX
2834: l_khrv_tbl_in (1).tax_exemption_id := p_k_header_rec.tax_exemption_id;
2835: --TAX
2836: l_khrv_tbl_in (1).created_by := okc_api.g_miss_num;
2837: l_khrv_tbl_in (1).creation_date := okc_api.g_miss_date;
2838:
2839: IF p_k_header_rec.ccr_number IS NOT NULL
2840: THEN
2841: l_khrv_tbl_in (1).payment_type := 'CCR';
2910: || ')'
2911: );
2912: END IF;
2913:
2914: IF NOT l_return_status = okc_api.g_ret_sts_success
2915: THEN
2916: --mmadhavi
2917: IF (p_caller = 'OC')
2918: THEN
2941:
2942: RAISE g_exception_halt_validation;
2943: ELSE
2944: --mmadhavi
2945: okc_api.set_message (g_app_name,
2946: g_required_value,
2947: g_col_name_token,
2948: 'OKS (HEADER)'
2949: );
2958: p_k_header_rec.order_line_id,
2959: l_return_status
2960: );
2961:
2962: IF NOT l_return_status = okc_api.g_ret_sts_success
2963: THEN
2964: x_return_status := l_return_status;
2965: RAISE g_exception_halt_validation;
2966: END IF;
2991: || l_partyid_v
2992: );
2993: END IF;
2994:
2995: IF NOT l_return_status = okc_api.g_ret_sts_success
2996: THEN
2997: x_return_status := l_return_status;
2998: RAISE g_exception_halt_validation;
2999: END IF;
3021: || l_partyid
3022: );
3023: END IF;
3024:
3025: IF NOT l_return_status = okc_api.g_ret_sts_success
3026: THEN
3027: x_return_status := l_return_status;
3028: RAISE g_exception_halt_validation;
3029: END IF;
3051: || l_partyid_v
3052: );
3053: END IF;
3054:
3055: IF NOT l_return_status = okc_api.g_ret_sts_success
3056: THEN
3057: x_return_status := l_return_status;
3058: RAISE g_exception_halt_validation;
3059: END IF;
3081: || l_partyid
3082: );
3083: END IF;
3084:
3085: IF NOT l_return_status = okc_api.g_ret_sts_success
3086: THEN
3087: x_return_status := l_return_status;
3088: RAISE g_exception_halt_validation;
3089: END IF;
3115: fnd_message.set_name (g_app_name,
3116: 'OKS_INVD_THIRD_PARTY_ROLE'
3117: );
3118: x_order_error := '#' || fnd_message.get_encoded || '#';
3119: l_return_status := okc_api.g_ret_sts_error;
3120: RAISE g_exception_halt_validation;
3121: END IF;
3122: END IF;
3123:
3145: || l_partyid_t
3146: );
3147: END IF;
3148:
3149: IF NOT l_return_status = okc_api.g_ret_sts_success
3150: THEN
3151: x_return_status := l_return_status;
3152: RAISE g_exception_halt_validation;
3153: END IF;
3181: x_msg_data => l_msg_data,
3182: x_return_status => l_return_status
3183: );
3184:
3185: IF (l_return_status <> okc_api.g_ret_sts_success)
3186: THEN
3187: -- Setup error
3188: If p_caller = 'ST' Then
3189: send_notification (null, l_chrid, 'SER');
3285: IF object_code_csr%NOTFOUND
3286: THEN
3287: CLOSE object_code_csr;
3288:
3289: okc_api.set_message (g_app_name,
3290: g_unexpected_error,
3291: g_sqlcode_token,
3292: SQLCODE,
3293: g_sqlerrm_token,
3292: SQLCODE,
3293: g_sqlerrm_token,
3294: 'Wrong vendor contact role assigned'
3295: );
3296: l_return_status := okc_api.g_ret_sts_error;
3297: RAISE g_exception_halt_validation;
3298: END IF;
3299:
3300: CLOSE object_code_csr;
3325: IF l_return_status = 'S'
3326: THEN
3327: l_contact_id := l_ctcv_tbl_out (1).ID;
3328: ELSE
3329: okc_api.set_message (g_app_name,
3330: g_required_value,
3331: g_col_name_token,
3332: l_ctcv_tbl_in (1).cro_code
3333: || 'Vendor Contact (HEADER) '
3353: l_scrv_tbl_in (1).sales_group_id :=
3354: p_salescredit_tbl_in (j).sales_group_id;
3355: oks_sales_credit_pub.insert_sales_credit
3356: (p_api_version => 1.0,
3357: p_init_msg_list => okc_api.g_false,
3358: x_return_status => l_return_status,
3359: x_msg_count => x_msg_count,
3360: x_msg_data => x_msg_data,
3361: p_scrv_tbl => l_scrv_tbl_in,
3376: IF l_return_status = 'S'
3377: THEN
3378: l_salescredit_id := l_scrv_tbl_out (1).ID;
3379: ELSE
3380: okc_api.set_message (g_app_name,
3381: g_required_value,
3382: g_col_name_token,
3383: 'Sales Credit Failure'
3384: );
3454: END IF;
3455:
3456: IF l_add2partyid IS NULL
3457: THEN
3458: okc_api.set_message (g_app_name,
3459: g_required_value,
3460: g_col_name_token,
3461: p_contact_tbl (i).contact_role
3462: || ' Contact (HEADER) Missing Role Id '
3522: IF l_return_status = 'S'
3523: THEN
3524: l_contact_id := l_ctcv_tbl_out (1).ID;
3525: ELSE
3526: okc_api.set_message (g_app_name,
3527: g_required_value,
3528: g_col_name_token,
3529: p_contact_tbl (i).contact_role
3530: || ' Contact (HEADER) '
3544: NVL (fnd_profile.VALUE ('OKS_WARR_CONTRACT_GROUP'), 2)
3545: );
3546: l_cgcv_tbl_in (1).cgp_parent_id := l_ctrgrp;
3547: l_cgcv_tbl_in (1).included_chr_id := l_chrid;
3548: l_cgcv_tbl_in (1).object_version_number := okc_api.g_miss_num;
3549: l_cgcv_tbl_in (1).created_by := okc_api.g_miss_num;
3550: l_cgcv_tbl_in (1).creation_date := okc_api.g_miss_date;
3551: l_cgcv_tbl_in (1).last_updated_by := okc_api.g_miss_num;
3552: l_cgcv_tbl_in (1).last_update_date := okc_api.g_miss_date;
3545: );
3546: l_cgcv_tbl_in (1).cgp_parent_id := l_ctrgrp;
3547: l_cgcv_tbl_in (1).included_chr_id := l_chrid;
3548: l_cgcv_tbl_in (1).object_version_number := okc_api.g_miss_num;
3549: l_cgcv_tbl_in (1).created_by := okc_api.g_miss_num;
3550: l_cgcv_tbl_in (1).creation_date := okc_api.g_miss_date;
3551: l_cgcv_tbl_in (1).last_updated_by := okc_api.g_miss_num;
3552: l_cgcv_tbl_in (1).last_update_date := okc_api.g_miss_date;
3553: l_cgcv_tbl_in (1).last_update_login := okc_api.g_miss_num;
3546: l_cgcv_tbl_in (1).cgp_parent_id := l_ctrgrp;
3547: l_cgcv_tbl_in (1).included_chr_id := l_chrid;
3548: l_cgcv_tbl_in (1).object_version_number := okc_api.g_miss_num;
3549: l_cgcv_tbl_in (1).created_by := okc_api.g_miss_num;
3550: l_cgcv_tbl_in (1).creation_date := okc_api.g_miss_date;
3551: l_cgcv_tbl_in (1).last_updated_by := okc_api.g_miss_num;
3552: l_cgcv_tbl_in (1).last_update_date := okc_api.g_miss_date;
3553: l_cgcv_tbl_in (1).last_update_login := okc_api.g_miss_num;
3554: l_cgcv_tbl_in (1).included_cgp_id := NULL;
3547: l_cgcv_tbl_in (1).included_chr_id := l_chrid;
3548: l_cgcv_tbl_in (1).object_version_number := okc_api.g_miss_num;
3549: l_cgcv_tbl_in (1).created_by := okc_api.g_miss_num;
3550: l_cgcv_tbl_in (1).creation_date := okc_api.g_miss_date;
3551: l_cgcv_tbl_in (1).last_updated_by := okc_api.g_miss_num;
3552: l_cgcv_tbl_in (1).last_update_date := okc_api.g_miss_date;
3553: l_cgcv_tbl_in (1).last_update_login := okc_api.g_miss_num;
3554: l_cgcv_tbl_in (1).included_cgp_id := NULL;
3555: okc_contract_group_pub.create_contract_grpngs
3548: l_cgcv_tbl_in (1).object_version_number := okc_api.g_miss_num;
3549: l_cgcv_tbl_in (1).created_by := okc_api.g_miss_num;
3550: l_cgcv_tbl_in (1).creation_date := okc_api.g_miss_date;
3551: l_cgcv_tbl_in (1).last_updated_by := okc_api.g_miss_num;
3552: l_cgcv_tbl_in (1).last_update_date := okc_api.g_miss_date;
3553: l_cgcv_tbl_in (1).last_update_login := okc_api.g_miss_num;
3554: l_cgcv_tbl_in (1).included_cgp_id := NULL;
3555: okc_contract_group_pub.create_contract_grpngs
3556: (p_api_version => l_api_version,
3549: l_cgcv_tbl_in (1).created_by := okc_api.g_miss_num;
3550: l_cgcv_tbl_in (1).creation_date := okc_api.g_miss_date;
3551: l_cgcv_tbl_in (1).last_updated_by := okc_api.g_miss_num;
3552: l_cgcv_tbl_in (1).last_update_date := okc_api.g_miss_date;
3553: l_cgcv_tbl_in (1).last_update_login := okc_api.g_miss_num;
3554: l_cgcv_tbl_in (1).included_cgp_id := NULL;
3555: okc_contract_group_pub.create_contract_grpngs
3556: (p_api_version => l_api_version,
3557: p_init_msg_list => l_init_msg_list,
3576: IF l_return_status = 'S'
3577: THEN
3578: l_grpid := l_cgcv_tbl_out (1).ID;
3579: ELSE
3580: okc_api.set_message (g_app_name,
3581: g_required_value,
3582: g_col_name_token,
3583: 'Contract Group (HEADER)'
3584: );
3589: THEN
3590: l_cpsv_tbl_in (1).pdf_id := p_k_header_rec.pdf_id;
3591: l_cpsv_tbl_in (1).chr_id := l_chrid;
3592: l_cpsv_tbl_in (1).user_id := fnd_global.user_id;
3593: l_cpsv_tbl_in (1).in_process_yn := okc_api.g_miss_char;
3594: l_cpsv_tbl_in (1).object_version_number := okc_api.g_miss_num;
3595: l_cpsv_tbl_in (1).created_by := okc_api.g_miss_num;
3596: l_cpsv_tbl_in (1).creation_date := okc_api.g_miss_date;
3597: l_cpsv_tbl_in (1).last_updated_by := okc_api.g_miss_num;
3590: l_cpsv_tbl_in (1).pdf_id := p_k_header_rec.pdf_id;
3591: l_cpsv_tbl_in (1).chr_id := l_chrid;
3592: l_cpsv_tbl_in (1).user_id := fnd_global.user_id;
3593: l_cpsv_tbl_in (1).in_process_yn := okc_api.g_miss_char;
3594: l_cpsv_tbl_in (1).object_version_number := okc_api.g_miss_num;
3595: l_cpsv_tbl_in (1).created_by := okc_api.g_miss_num;
3596: l_cpsv_tbl_in (1).creation_date := okc_api.g_miss_date;
3597: l_cpsv_tbl_in (1).last_updated_by := okc_api.g_miss_num;
3598: l_cpsv_tbl_in (1).last_update_date := okc_api.g_miss_date;
3591: l_cpsv_tbl_in (1).chr_id := l_chrid;
3592: l_cpsv_tbl_in (1).user_id := fnd_global.user_id;
3593: l_cpsv_tbl_in (1).in_process_yn := okc_api.g_miss_char;
3594: l_cpsv_tbl_in (1).object_version_number := okc_api.g_miss_num;
3595: l_cpsv_tbl_in (1).created_by := okc_api.g_miss_num;
3596: l_cpsv_tbl_in (1).creation_date := okc_api.g_miss_date;
3597: l_cpsv_tbl_in (1).last_updated_by := okc_api.g_miss_num;
3598: l_cpsv_tbl_in (1).last_update_date := okc_api.g_miss_date;
3599: l_cpsv_tbl_in (1).last_update_login := okc_api.g_miss_num;
3592: l_cpsv_tbl_in (1).user_id := fnd_global.user_id;
3593: l_cpsv_tbl_in (1).in_process_yn := okc_api.g_miss_char;
3594: l_cpsv_tbl_in (1).object_version_number := okc_api.g_miss_num;
3595: l_cpsv_tbl_in (1).created_by := okc_api.g_miss_num;
3596: l_cpsv_tbl_in (1).creation_date := okc_api.g_miss_date;
3597: l_cpsv_tbl_in (1).last_updated_by := okc_api.g_miss_num;
3598: l_cpsv_tbl_in (1).last_update_date := okc_api.g_miss_date;
3599: l_cpsv_tbl_in (1).last_update_login := okc_api.g_miss_num;
3600: okc_contract_pub.create_contract_process
3593: l_cpsv_tbl_in (1).in_process_yn := okc_api.g_miss_char;
3594: l_cpsv_tbl_in (1).object_version_number := okc_api.g_miss_num;
3595: l_cpsv_tbl_in (1).created_by := okc_api.g_miss_num;
3596: l_cpsv_tbl_in (1).creation_date := okc_api.g_miss_date;
3597: l_cpsv_tbl_in (1).last_updated_by := okc_api.g_miss_num;
3598: l_cpsv_tbl_in (1).last_update_date := okc_api.g_miss_date;
3599: l_cpsv_tbl_in (1).last_update_login := okc_api.g_miss_num;
3600: okc_contract_pub.create_contract_process
3601: (p_api_version => l_api_version,
3594: l_cpsv_tbl_in (1).object_version_number := okc_api.g_miss_num;
3595: l_cpsv_tbl_in (1).created_by := okc_api.g_miss_num;
3596: l_cpsv_tbl_in (1).creation_date := okc_api.g_miss_date;
3597: l_cpsv_tbl_in (1).last_updated_by := okc_api.g_miss_num;
3598: l_cpsv_tbl_in (1).last_update_date := okc_api.g_miss_date;
3599: l_cpsv_tbl_in (1).last_update_login := okc_api.g_miss_num;
3600: okc_contract_pub.create_contract_process
3601: (p_api_version => l_api_version,
3602: p_init_msg_list => l_init_msg_list,
3595: l_cpsv_tbl_in (1).created_by := okc_api.g_miss_num;
3596: l_cpsv_tbl_in (1).creation_date := okc_api.g_miss_date;
3597: l_cpsv_tbl_in (1).last_updated_by := okc_api.g_miss_num;
3598: l_cpsv_tbl_in (1).last_update_date := okc_api.g_miss_date;
3599: l_cpsv_tbl_in (1).last_update_login := okc_api.g_miss_num;
3600: okc_contract_pub.create_contract_process
3601: (p_api_version => l_api_version,
3602: p_init_msg_list => l_init_msg_list,
3603: x_return_status => l_return_status,
3621: IF l_return_status = 'S'
3622: THEN
3623: l_pdfid := l_cpsv_tbl_out (1).ID;
3624: ELSE
3625: okc_api.set_message (g_app_name,
3626: g_required_value,
3627: g_col_name_token,
3628: 'Contract WorkFlow (HEADER)'
3629: );
3662: IF l_return_status = 'S'
3663: THEN
3664: l_govern_id := l_gvev_tbl_out (1).ID;
3665: ELSE
3666: okc_api.set_message (g_app_name,
3667: g_required_value,
3668: g_col_name_token,
3669: 'Agreement Id (HEADER)'
3670: );
3693: || ')'
3694: );
3695: END IF;
3696:
3697: IF NOT l_return_status = okc_api.g_ret_sts_success
3698: THEN
3699: okc_api.set_message (g_app_name,
3700: g_required_value,
3701: g_col_name_token,
3695: END IF;
3696:
3697: IF NOT l_return_status = okc_api.g_ret_sts_success
3698: THEN
3699: okc_api.set_message (g_app_name,
3700: g_required_value,
3701: g_col_name_token,
3702: 'Order Header Id (HEADER)'
3703: );
3710: THEN
3711: x_return_status := l_return_status;
3712: WHEN OTHERS
3713: THEN
3714: x_return_status := okc_api.g_ret_sts_unexp_error;
3715: okc_api.set_message (g_app_name,
3716: g_unexpected_error,
3717: g_sqlcode_token,
3718: SQLCODE,
3711: x_return_status := l_return_status;
3712: WHEN OTHERS
3713: THEN
3714: x_return_status := okc_api.g_ret_sts_unexp_error;
3715: okc_api.set_message (g_app_name,
3716: g_unexpected_error,
3717: g_sqlcode_token,
3718: SQLCODE,
3719: g_sqlerrm_token,
3777: x_msg_data OUT NOCOPY VARCHAR2
3778: )
3779: IS
3780: l_api_version CONSTANT NUMBER := 1.0;
3781: l_init_msg_list CONSTANT VARCHAR2 (1) := okc_api.g_false;
3782: l_return_status VARCHAR2 (1) := 'S';
3783: l_index VARCHAR2 (2000);
3784: l_ctcv_tbl_in okc_contract_party_pub.ctcv_tbl_type;
3785: l_ctcv_tbl_out okc_contract_party_pub.ctcv_tbl_type;
3888: l_ctr NUMBER;
3889: l_inp_rec okc_inst_cnd_pub.instcnd_inp_rec;
3890: l_entity_id NUMBER;
3891: BEGIN
3892: x_return_status := okc_api.g_ret_sts_success;
3893:
3894: IF p_k_line_rec.SOURCE = 'NEW'
3895: THEN
3896: get_k_cle_id (p_chrid => p_k_line_rec.k_id,
3949:
3950: IF l_line_id IS NOT NULL
3951: THEN
3952: x_service_line_id := l_line_id;
3953: l_return_status := okc_api.g_ret_sts_success;
3954: RAISE g_exception_halt_validation;
3955: END IF;
3956:
3957: IF p_k_line_rec.warranty_flag = 'W'
3987: END IF;
3988:
3989: IF l_hdrstatus = 'E'
3990: THEN
3991: okc_api.set_message (g_app_name,
3992: g_unexpected_error,
3993: g_sqlcode_token,
3994: SQLCODE,
3995: g_sqlerrm_token,
4015: x_order_error := '#' || fnd_message.get_encoded || '#';
4016: END IF;
4017:
4018: --mmadhavi
4019: l_return_status := okc_api.g_ret_sts_error;
4020: RAISE g_exception_halt_validation;
4021: ELSIF l_hdrstatus = 'Y'
4022: THEN
4023: IF p_k_line_rec.line_sts_code = 'ENTERED'
4047: END IF;
4048:
4049: IF NOT l_return_status = 'S'
4050: THEN
4051: l_return_status := okc_api.g_ret_sts_error;
4052: okc_api.set_message (g_app_name,
4053: g_required_value,
4054: g_col_name_token,
4055: 'Header Effectivity Update (LINE)'
4048:
4049: IF NOT l_return_status = 'S'
4050: THEN
4051: l_return_status := okc_api.g_ret_sts_error;
4052: okc_api.set_message (g_app_name,
4053: g_required_value,
4054: g_col_name_token,
4055: 'Header Effectivity Update (LINE)'
4056: );
4128: -- price list
4129: okc_contract_pub.create_contract_line
4130: (p_api_version => l_api_version,
4131: p_init_msg_list => l_init_msg_list,
4132: p_restricted_update => okc_api.g_true,
4133: x_return_status => l_return_status,
4134: x_msg_count => x_msg_count,
4135: x_msg_data => x_msg_data,
4136: p_clev_tbl => l_clev_tbl_in,
4180:
4181: RAISE g_exception_halt_validation;
4182: ELSE
4183: --mmadhavi
4184: okc_api.set_message (g_app_name,
4185: g_required_value,
4186: g_col_name_token,
4187: 'Line (LINE)'
4188: );
4264: || ':'
4265: || to_char(p_k_line_rec.srv_sdt,'DD-MON-YYYY')
4266: || ':'
4267: || to_char(p_k_line_rec.srv_edt,'DD-MON-YYYY');
4268: l_klnv_tbl_in (1).created_by := okc_api.g_miss_num;
4269: l_klnv_tbl_in (1).creation_date := okc_api.g_miss_date;
4270: l_klnv_tbl_in (1).acct_rule_id := p_k_line_rec.accounting_rule_id; --ARL
4271:
4272: IF p_k_line_rec.commitment_id IS NOT NULL
4265: || to_char(p_k_line_rec.srv_sdt,'DD-MON-YYYY')
4266: || ':'
4267: || to_char(p_k_line_rec.srv_edt,'DD-MON-YYYY');
4268: l_klnv_tbl_in (1).created_by := okc_api.g_miss_num;
4269: l_klnv_tbl_in (1).creation_date := okc_api.g_miss_date;
4270: l_klnv_tbl_in (1).acct_rule_id := p_k_line_rec.accounting_rule_id; --ARL
4271:
4272: IF p_k_line_rec.commitment_id IS NOT NULL
4273: THEN
4366:
4367: RAISE g_exception_halt_validation;
4368: ELSE
4369: --mmadhavi
4370: okc_api.set_message (g_app_name,
4371: g_required_value,
4372: g_col_name_token,
4373: 'OKS Contract LINE'
4374: );
4444: IF l_return_status = 'S'
4445: THEN
4446: l_line_item_id := l_cimv_tbl_out (1).ID;
4447: ELSE
4448: okc_api.set_message (g_app_name,
4449: g_required_value,
4450: g_col_name_token,
4451: 'Service Inventory Item ID '
4452: || p_k_line_rec.srv_id
4472: l_scrv_tbl_in (1).sales_group_id :=
4473: p_salescredit_tbl_in (i).sales_group_id;
4474: oks_sales_credit_pub.insert_sales_credit
4475: (p_api_version => 1.0,
4476: p_init_msg_list => okc_api.g_false,
4477: x_return_status => x_return_status,
4478: x_msg_count => x_msg_count,
4479: x_msg_data => x_msg_data,
4480: p_scrv_tbl => l_scrv_tbl_in,
4496: IF l_return_status = 'S'
4497: THEN
4498: l_salescredit_id := l_scrv_tbl_out (1).ID;
4499: ELSE
4500: okc_api.set_message (g_app_name,
4501: g_required_value,
4502: g_col_name_token,
4503: 'Sales Credit Failure'
4504: );
4562: || l_line_party_role_id
4563: );
4564: END IF;
4565:
4566: IF NOT l_return_status = okc_api.g_ret_sts_success
4567: THEN
4568: x_return_status := l_return_status;
4569: RAISE g_exception_halt_validation;
4570: END IF;
4621: IF l_return_status = 'S'
4622: THEN
4623: l_line_contact_id := l_ctcv_tbl_out (1).ID;
4624: ELSE
4625: okc_api.set_message (g_app_name,
4626: g_required_value,
4627: g_col_name_token,
4628: p_contact_tbl (i).contact_role
4629: || ' Contact (LINE) '
4662: || ')'
4663: );
4664: END IF;
4665:
4666: IF NOT l_return_status = okc_api.g_ret_sts_success
4667: THEN
4668: IF (p_caller = 'OC')
4669: THEN
4670: fnd_message.set_name (g_app_name, 'OKS_INVD_COV_TEMP');
4672: VALUE => p_k_line_rec.srv_id
4673: );
4674: x_order_error := '#' || fnd_message.get_encoded || '#';
4675: ELSE
4676: okc_api.set_message (g_app_name,
4677: g_required_value,
4678: g_col_name_token,
4679: 'Invalid Coverage Associated with '
4680: || p_k_line_rec.srv_id
4694: || p_k_line_rec.srv_id
4695: );
4696: END IF;
4697:
4698: l_return_status := okc_api.g_ret_sts_error;
4699: okc_api.set_message (g_app_name,
4700: g_required_value,
4701: g_col_name_token,
4702: 'Coverage Not Associated with '
4695: );
4696: END IF;
4697:
4698: l_return_status := okc_api.g_ret_sts_error;
4699: okc_api.set_message (g_app_name,
4700: g_required_value,
4701: g_col_name_token,
4702: 'Coverage Not Associated with '
4703: || p_k_line_rec.srv_id
4717: IF l_ctr_grpid IS NOT NULL
4718: THEN
4719: cs_counters_pub.autoinstantiate_counters
4720: (p_api_version => 1.0,
4721: p_init_msg_list => okc_api.g_false,
4722: p_commit => 'F',
4723: x_return_status => l_return_status,
4724: x_msg_count => x_msg_count,
4725: x_msg_data => x_msg_data,
4740: || ')'
4741: );
4742: END IF;
4743:
4744: IF NOT l_return_status = okc_api.g_ret_sts_success
4745: THEN
4746: okc_api.set_message (g_app_name,
4747: g_required_value,
4748: g_col_name_token,
4742: END IF;
4743:
4744: IF NOT l_return_status = okc_api.g_ret_sts_success
4745: THEN
4746: okc_api.set_message (g_app_name,
4747: g_required_value,
4748: g_col_name_token,
4749: 'Counter Instantiate (LINE)'
4750: );
4773: THEN
4774: x_return_status := l_return_status;
4775: WHEN OTHERS
4776: THEN
4777: x_return_status := okc_api.g_ret_sts_unexp_error;
4778: okc_api.set_message (g_app_name,
4779: g_unexpected_error,
4780: g_sqlcode_token,
4781: SQLCODE,
4774: x_return_status := l_return_status;
4775: WHEN OTHERS
4776: THEN
4777: x_return_status := okc_api.g_ret_sts_unexp_error;
4778: okc_api.set_message (g_app_name,
4779: g_unexpected_error,
4780: g_sqlcode_token,
4781: SQLCODE,
4782: g_sqlerrm_token,
4796: x_msg_data OUT NOCOPY VARCHAR2
4797: )
4798: IS
4799: l_api_version CONSTANT NUMBER := 1.0;
4800: l_init_msg_list CONSTANT VARCHAR2 (1) := okc_api.g_false;
4801: l_return_status VARCHAR2 (1) := 'S';
4802: l_index VARCHAR2 (2000);
4803: --Contract Line Table
4804: l_clev_tbl_in okc_contract_pub.clev_tbl_type;
4854: l_end_date DATE;
4855: l_invoice_rule_id VARCHAR2 (10);
4856: l_sts_flag VARCHAR2 (1);
4857: BEGIN
4858: x_return_status := okc_api.g_ret_sts_success;
4859: x_update_line := 'N';
4860: check_line_effectivity (p_cle_id => p_k_covd_rec.attach_2_line_id,
4861: p_srv_sdt => p_k_covd_rec.product_start_date,
4862: p_srv_edt => p_k_covd_rec.product_end_date,
4883: 'Covered level Dates are not within Line effectivity'
4884: );
4885: END IF;
4886:
4887: okc_api.set_message (g_app_name,
4888: g_unexpected_error,
4889: g_sqlcode_token,
4890: SQLCODE,
4891: g_sqlerrm_token,
4890: SQLCODE,
4891: g_sqlerrm_token,
4892: 'Covlvl Dates not within Line effectivity'
4893: );
4894: l_return_status := okc_api.g_ret_sts_error;
4895: RAISE g_exception_halt_validation;
4896: ELSIF l_line_status = 'Y'
4897: THEN
4898: check_hdr_effectivity (p_chr_id => p_k_covd_rec.k_id,
4921: 'Line Dates are not within Header effectivity'
4922: );
4923: END IF;
4924:
4925: okc_api.set_message (g_app_name,
4926: g_unexpected_error,
4927: g_sqlcode_token,
4928: SQLCODE,
4929: g_sqlerrm_token,
4928: SQLCODE,
4929: g_sqlerrm_token,
4930: 'line Dates not within Hdr effectivity'
4931: );
4932: l_return_status := okc_api.g_ret_sts_error;
4933: RAISE g_exception_halt_validation;
4934: ELSIF l_hdrstatus = 'Y'
4935: THEN
4936: get_sts_code (NULL,
4968: END IF;
4969:
4970: IF NOT l_return_status = 'S'
4971: THEN
4972: l_return_status := okc_api.g_ret_sts_error;
4973: okc_api.set_message (g_app_name,
4974: g_required_value,
4975: g_col_name_token,
4976: 'Header Effectivity Update (SUB LINE)'
4969:
4970: IF NOT l_return_status = 'S'
4971: THEN
4972: l_return_status := okc_api.g_ret_sts_error;
4973: okc_api.set_message (g_app_name,
4974: g_required_value,
4975: g_col_name_token,
4976: 'Header Effectivity Update (SUB LINE)'
4977: );
5010: END IF;
5011:
5012: IF NOT l_return_status = 'S'
5013: THEN
5014: l_return_status := okc_api.g_ret_sts_error;
5015: okc_api.set_message (g_app_name,
5016: g_required_value,
5017: g_col_name_token,
5018: 'LINE Effectivity Update (SUB LINE)'
5011:
5012: IF NOT l_return_status = 'S'
5013: THEN
5014: l_return_status := okc_api.g_ret_sts_error;
5015: okc_api.set_message (g_app_name,
5016: g_required_value,
5017: g_col_name_token,
5018: 'LINE Effectivity Update (SUB LINE)'
5019: );
5034: );
5035:
5036: IF NOT l_return_status = 'S'
5037: THEN
5038: l_return_status := okc_api.g_ret_sts_error;
5039: okc_api.set_message (g_app_name,
5040: g_required_value,
5041: g_col_name_token,
5042: 'Adjust PM Program Schedule(SUB LINE)'
5035:
5036: IF NOT l_return_status = 'S'
5037: THEN
5038: l_return_status := okc_api.g_ret_sts_error;
5039: okc_api.set_message (g_app_name,
5040: g_required_value,
5041: g_col_name_token,
5042: 'Adjust PM Program Schedule(SUB LINE)'
5043: );
5058: );
5059:
5060: IF NOT l_return_status = 'S'
5061: THEN
5062: l_return_status := okc_api.g_ret_sts_error;
5063: okc_api.set_message (g_app_name,
5064: g_required_value,
5065: g_col_name_token,
5066: 'Coverage Effectivity Update (SUB LINE)'
5059:
5060: IF NOT l_return_status = 'S'
5061: THEN
5062: l_return_status := okc_api.g_ret_sts_error;
5063: okc_api.set_message (g_app_name,
5064: g_required_value,
5065: g_col_name_token,
5066: 'Coverage Effectivity Update (SUB LINE)'
5067: );
5132: --LRT
5133: okc_contract_pub.create_contract_line
5134: (p_api_version => l_api_version,
5135: p_init_msg_list => l_init_msg_list,
5136: p_restricted_update => okc_api.g_true,
5137: x_return_status => l_return_status,
5138: x_msg_count => x_msg_count,
5139: x_msg_data => x_msg_data,
5140: p_clev_tbl => l_clev_tbl_in,
5185:
5186: RAISE g_exception_halt_validation;
5187: ELSE
5188: --mmadhavi
5189: okc_api.set_message (g_app_name,
5190: g_required_value,
5191: g_col_name_token,
5192: 'K LINE (SUB LINE)'
5193: );
5203: -- 30-jan-2004 Vigandhi
5204: IF p_caller = 'ST' AND p_k_covd_rec.warranty_flag <> 'W'
5205: THEN
5206: oks_tax_util_pvt.get_tax (p_api_version => 1.0,
5207: p_init_msg_list => okc_api.g_true,
5208: p_chr_id => p_k_covd_rec.k_id,
5209: p_cle_id => l_line_id,
5210: px_rail_rec => g_rail_rec,
5211: x_msg_count => x_msg_count,
5225: END IF;
5226:
5227: -- Fixed Bug 5035571
5228: /*
5229: IF (l_return_status <> okc_api.g_ret_sts_success)
5230: THEN
5231: RAISE g_exception_halt_validation;
5232: END IF;
5233: */
5251: );
5252: l_klnv_tbl_in (1).cle_id := l_line_id; --p_k_covd_rec.attach_2_line_id;
5253: l_klnv_tbl_in (1).dnz_chr_id := p_k_covd_rec.k_id;
5254: l_klnv_tbl_in (1).invoice_text := l_invoice_text; --IRT
5255: l_klnv_tbl_in (1).created_by := okc_api.g_miss_num;
5256: l_klnv_tbl_in (1).creation_date := okc_api.g_miss_date;
5257: l_klnv_tbl_in (1).status_text := 'Subline created from OM/IB';
5258: l_klnv_tbl_in (1).price_uom := p_k_covd_rec.price_uom;
5259: l_klnv_tbl_in (1).toplvl_uom_code := p_k_covd_rec.toplvl_uom_code;
5252: l_klnv_tbl_in (1).cle_id := l_line_id; --p_k_covd_rec.attach_2_line_id;
5253: l_klnv_tbl_in (1).dnz_chr_id := p_k_covd_rec.k_id;
5254: l_klnv_tbl_in (1).invoice_text := l_invoice_text; --IRT
5255: l_klnv_tbl_in (1).created_by := okc_api.g_miss_num;
5256: l_klnv_tbl_in (1).creation_date := okc_api.g_miss_date;
5257: l_klnv_tbl_in (1).status_text := 'Subline created from OM/IB';
5258: l_klnv_tbl_in (1).price_uom := p_k_covd_rec.price_uom;
5259: l_klnv_tbl_in (1).toplvl_uom_code := p_k_covd_rec.toplvl_uom_code;
5260: l_klnv_tbl_in (1).inv_print_flag := 'Y'; --Bug# 5655521
5313:
5314: RAISE g_exception_halt_validation;
5315: ELSE
5316: --mmadhavi
5317: okc_api.set_message (g_app_name,
5318: g_required_value,
5319: g_col_name_token,
5320: 'OKS Contract COV LINE'
5321: );
5367: IF l_return_status = 'S'
5368: THEN
5369: l_line_item_id := l_cimv_tbl (1).ID;
5370: ELSE
5371: okc_api.set_message (g_app_name,
5372: g_required_value,
5373: g_col_name_token,
5374: 'KItem (SUB LINE)'
5375: );
5401: || ')'
5402: );
5403: END IF;
5404:
5405: IF NOT l_return_status = okc_api.g_ret_sts_success
5406: THEN
5407: okc_api.set_message (g_app_name,
5408: g_required_value,
5409: g_col_name_token,
5403: END IF;
5404:
5405: IF NOT l_return_status = okc_api.g_ret_sts_success
5406: THEN
5407: okc_api.set_message (g_app_name,
5408: g_required_value,
5409: g_col_name_token,
5410: 'Order Line Id (SUB LINE)'
5411: );
5644: IF l_return_status = 'S'
5645: THEN
5646: l_priceattrib_id := l_pavv_tbl_out (1).ID;
5647: ELSE
5648: okc_api.set_message (g_app_name,
5649: g_required_value,
5650: g_col_name_token,
5651: 'PRICE ATTRIBUTES (SUB LINE)'
5652: );
5659: x_return_status := l_return_status;
5660: NULL;
5661: WHEN OTHERS
5662: THEN
5663: x_return_status := okc_api.g_ret_sts_unexp_error;
5664: okc_api.set_message (g_app_name,
5665: g_unexpected_error,
5666: g_sqlcode_token,
5667: SQLCODE,
5660: NULL;
5661: WHEN OTHERS
5662: THEN
5663: x_return_status := okc_api.g_ret_sts_unexp_error;
5664: okc_api.set_message (g_app_name,
5665: g_unexpected_error,
5666: g_sqlcode_token,
5667: SQLCODE,
5668: g_sqlerrm_token,
5704:
5705: l_hdr_rec k_header_rec_type;
5706: l_line_rec k_line_service_rec_type;
5707: l_covd_rec k_line_covered_level_rec_type;
5708: l_return_status VARCHAR2 (5) := okc_api.g_ret_sts_success;
5709: l_chrid NUMBER := NULL;
5710: l_lineid NUMBER := NULL;
5711: l_covlvl_id NUMBER := NULL;
5712: l_party_name okx_parties_v.NAME%TYPE;
5718: l_contact_tbl_in oks_extwarprgm_pvt.contact_tbl;
5719: --SalesCredit
5720: l_salescredit_tbl oks_extwarprgm_pvt.salescredit_tbl;
5721: l_api_version CONSTANT NUMBER := 1.0;
5722: l_init_msg_list CONSTANT VARCHAR2 (1) := okc_api.g_false;
5723: l_index VARCHAR2 (2000);
5724: l_rule_group_id NUMBER;
5725: l_rule_id NUMBER;
5726: l_sts_code VARCHAR2 (30);
5732: l_strmlvl_id NUMBER := NULL;
5733: l_update_line VARCHAR2 (1);
5734: l_temp VARCHAR2 (2000);
5735: BEGIN
5736: x_return_status := okc_api.g_ret_sts_success;
5737:
5738: OPEN l_party_csr;
5739:
5740: FETCH l_party_csr
5752: || l_party_name
5753: || ' Warranty/Extended Warranty Contract';
5754: END IF;
5755:
5756: l_hdr_rec.contract_number := okc_api.g_miss_char;
5757: l_hdr_rec.rty_code := p_extwar_rec.rty_code;
5758: l_hdr_rec.start_date := p_extwar_rec.hdr_sdt;
5759: l_hdr_rec.end_date := p_extwar_rec.hdr_edt;
5760: --l_hdr_rec.sts_code := 'ACTIVE';
5851: THEN
5852: okc_oc_int_pub.create_k_relationships
5853: (p_api_version => l_api_version,
5854: p_init_msg_list => l_init_msg_list,
5855: p_commit => okc_api.g_false,
5856: p_sales_contract_id => okc_api.g_miss_num,
5857: p_service_contract_id => x_chrid,
5858: p_quote_id => okc_api.g_miss_num,
5859: p_quote_line_tab => okc_oc_int_pub.g_miss_ql_tab,
5852: okc_oc_int_pub.create_k_relationships
5853: (p_api_version => l_api_version,
5854: p_init_msg_list => l_init_msg_list,
5855: p_commit => okc_api.g_false,
5856: p_sales_contract_id => okc_api.g_miss_num,
5857: p_service_contract_id => x_chrid,
5858: p_quote_id => okc_api.g_miss_num,
5859: p_quote_line_tab => okc_oc_int_pub.g_miss_ql_tab,
5860: p_order_id => p_extwar_rec.hdr_order_hdr_id,
5854: p_init_msg_list => l_init_msg_list,
5855: p_commit => okc_api.g_false,
5856: p_sales_contract_id => okc_api.g_miss_num,
5857: p_service_contract_id => x_chrid,
5858: p_quote_id => okc_api.g_miss_num,
5859: p_quote_line_tab => okc_oc_int_pub.g_miss_ql_tab,
5860: p_order_id => p_extwar_rec.hdr_order_hdr_id,
5861: p_order_line_tab => okc_oc_int_pub.g_miss_ol_tab,
5862: p_trace_mode => NULL,
5883: END IF;
5884: END IF;
5885:
5886: l_line_rec.k_id := l_chrid;
5887: l_line_rec.k_line_number := okc_api.g_miss_char;
5888: l_line_rec.org_id := p_extwar_rec.hdr_org_id;
5889: l_line_rec.accounting_rule_id := p_extwar_rec.line_accounting_rule_id;
5890: l_line_rec.invoicing_rule_id := p_extwar_rec.line_invoicing_rule_id;
5891: l_line_rec.srv_id := p_extwar_rec.srv_id;
5950:
5951: l_covd_rec.k_id := l_chrid;
5952: l_covd_rec.rty_code := p_extwar_rec.rty_code;
5953: l_covd_rec.attach_2_line_id := l_lineid;
5954: l_covd_rec.line_number := okc_api.g_miss_char;
5955: l_covd_rec.customer_product_id := p_extwar_rec.lvl_cp_id;
5956: -- l_covd_rec.product_segment1 := p_extwar_rec.lvl_inventory_name;
5957: -- l_covd_rec.product_desc := p_extwar_rec.lvl_inventory_desc;
5958: l_covd_rec.product_start_date := p_extwar_rec.srv_sdt;
6123: || ')'
6124: );
6125: END IF;
6126:
6127: IF l_return_status <> okc_api.g_ret_sts_success
6128: THEN
6129: okc_api.set_message (g_app_name,
6130: g_required_value,
6131: g_col_name_token,
6125: END IF;
6126:
6127: IF l_return_status <> okc_api.g_ret_sts_success
6128: THEN
6129: okc_api.set_message (g_app_name,
6130: g_required_value,
6131: g_col_name_token,
6132: 'Sched Billing Rule (LINE)'
6133: );
6233: THEN
6234: RAISE g_exception_halt_validation;
6235: END IF;
6236: ELSE
6237: okc_api.set_message (g_app_name,
6238: g_required_value,
6239: g_col_name_token,
6240: 'level elements NOT EXIST'
6241: );
6275: x_return_status := l_return_status;
6276: NULL;
6277: WHEN OTHERS
6278: THEN
6279: x_return_status := okc_api.g_ret_sts_unexp_error;
6280: okc_api.set_message (g_app_name,
6281: g_unexpected_error,
6282: g_sqlcode_token,
6283: SQLCODE,
6276: NULL;
6277: WHEN OTHERS
6278: THEN
6279: x_return_status := okc_api.g_ret_sts_unexp_error;
6280: okc_api.set_message (g_app_name,
6281: g_unexpected_error,
6282: g_sqlcode_token,
6283: SQLCODE,
6284: g_sqlerrm_token,
6402: x_return_status := l_return_status;
6403: NULL;
6404: WHEN OTHERS
6405: THEN
6406: x_return_status := okc_api.g_ret_sts_unexp_error;
6407: okc_api.set_message (g_app_name,
6408: g_unexpected_error,
6409: g_sqlcode_token,
6410: SQLCODE,
6403: NULL;
6404: WHEN OTHERS
6405: THEN
6406: x_return_status := okc_api.g_ret_sts_unexp_error;
6407: okc_api.set_message (g_app_name,
6408: g_unexpected_error,
6409: g_sqlcode_token,
6410: SQLCODE,
6411: g_sqlerrm_token,
6655: x_return_status := l_return_status;
6656: NULL;
6657: WHEN OTHERS
6658: THEN
6659: x_return_status := okc_api.g_ret_sts_unexp_error;
6660: okc_api.set_message (g_app_name,
6661: g_unexpected_error,
6662: g_sqlcode_token,
6663: SQLCODE,
6656: NULL;
6657: WHEN OTHERS
6658: THEN
6659: x_return_status := okc_api.g_ret_sts_unexp_error;
6660: okc_api.set_message (g_app_name,
6661: g_unexpected_error,
6662: g_sqlcode_token,
6663: SQLCODE,
6664: g_sqlerrm_token,
6739: l_renewal_id NUMBER;
6740: l_line_rec k_line_service_rec_type;
6741: l_covd_rec k_line_covered_level_rec_type;
6742: l_available_yn VARCHAR2 (1);
6743: l_return_status VARCHAR2 (5) := okc_api.g_ret_sts_success;
6744: l_chrid NUMBER := NULL;
6745: l_lineid NUMBER := NULL;
6746: l_ctr NUMBER := 0;
6747: l_ctr1 NUMBER := 0;
6802: l_create_oper_instance VARCHAR2 (1);
6803: l_new_sdate DATE;
6804: l_order_line_id Number;
6805: BEGIN
6806: x_return_status := okc_api.g_ret_sts_success;
6807: l_target_chr_id := 0;
6808: l_old_cp_id := 0;
6809:
6810: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
6986: || ')'
6987: );
6988: END IF;
6989:
6990: IF NOT l_return_status = okc_api.g_ret_sts_success
6991: THEN
6992: RAISE g_exception_halt_validation;
6993: END IF;
6994:
7031: END IF;
7032:
7033: IF NOT l_return_status = 'S'
7034: THEN
7035: okc_api.set_message (g_app_name,
7036: g_required_value,
7037: g_col_name_token,
7038: 'OKS Contract COV LINE'
7039: );
7112: END IF;
7113:
7114: l_covd_rec.k_id := p_kdtl_tbl (l_ctr).hdr_id;
7115: l_covd_rec.attach_2_line_id := p_kdtl_tbl (l_ctr).service_line_id;
7116: l_covd_rec.line_number := okc_api.g_miss_char;
7117: l_covd_rec.customer_product_id := p_kdtl_tbl (l_ctr).new_cp_id;
7118: l_covd_rec.product_segment1 := p_kdtl_tbl (l_ctr).prod_name;
7119: l_covd_rec.product_desc := p_kdtl_tbl (l_ctr).prod_description;
7120: l_covd_rec.product_start_date := l_new_sdate;
7170: || ')'
7171: );
7172: END IF;
7173:
7174: IF NOT l_return_status = okc_api.g_ret_sts_success
7175: THEN
7176: RAISE g_exception_halt_validation;
7177: END IF;
7178:
7431: END IF;
7432:
7433: x_return_status := l_return_status;
7434:
7435: IF NOT l_return_status = okc_api.g_ret_sts_success
7436: THEN
7437: x_return_status := l_return_status;
7438: RAISE g_exception_halt_validation;
7439: END IF;
7468: END IF;
7469:
7470: x_return_status := l_return_status;
7471:
7472: IF NOT l_return_status = okc_api.g_ret_sts_success
7473: THEN
7474: x_return_status := l_return_status;
7475: RAISE g_exception_halt_validation;
7476: END IF;
7498: x_return_status := l_return_status;
7499: NULL;
7500: WHEN OTHERS
7501: THEN
7502: x_return_status := okc_api.g_ret_sts_unexp_error;
7503: okc_api.set_message (g_app_name,
7504: g_unexpected_error,
7505: g_sqlcode_token,
7506: SQLCODE,
7499: NULL;
7500: WHEN OTHERS
7501: THEN
7502: x_return_status := okc_api.g_ret_sts_unexp_error;
7503: okc_api.set_message (g_app_name,
7504: g_unexpected_error,
7505: g_sqlcode_token,
7506: SQLCODE,
7507: g_sqlerrm_token,
7617: -- l_salescredit_tbl_hdr oks_extwarprgm_pvt.salescredit_tbl;
7618: l_line_rec k_line_service_rec_type;
7619: l_covd_rec k_line_covered_level_rec_type;
7620: l_available_yn CHAR;
7621: l_return_status VARCHAR2 (5) := okc_api.g_ret_sts_success;
7622: l_chrid NUMBER := NULL;
7623: l_lineid NUMBER := NULL;
7624: l_days NUMBER := 0;
7625: l_day1price NUMBER := 0;
7639: l_clev_tbl_out okc_contract_pub.clev_tbl_type;
7640: l_price_attribs_in oks_extwarprgm_pvt.pricing_attributes_type;
7641: l_cov_rec l_cov_csr%ROWTYPE;
7642: l_api_version CONSTANT NUMBER := 1.0;
7643: l_init_msg_list CONSTANT VARCHAR2 (1) := okc_api.g_false;
7644: l_list_price NUMBER;
7645: l_no_of_days NUMBER;
7646: l_billed_amount NUMBER;
7647: l_billed_upto_dt DATE;
7669: l_create_oper_instance VARCHAR2 (1);
7670: l_termdt DATE;
7671: l_order_line_id Number;
7672: BEGIN
7673: x_return_status := okc_api.g_ret_sts_success;
7674: l_old_cp_id := 0;
7675: l_target_chr_id := 0;
7676:
7677: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
7885:
7886: okc_contract_pub.update_contract_line
7887: (p_api_version => l_api_version,
7888: p_init_msg_list => l_init_msg_list,
7889: p_restricted_update => okc_api.g_true,
7890: x_return_status => l_return_status,
7891: x_msg_count => x_msg_count,
7892: x_msg_data => x_msg_data,
7893: p_clev_tbl => l_clev_tbl_in,
7907: || ')'
7908: );
7909: END IF;
7910:
7911: IF NOT l_return_status = okc_api.g_ret_sts_success
7912: THEN
7913: RAISE g_exception_halt_validation;
7914: END IF;
7915:
7951: END IF;
7952:
7953: IF NOT l_return_status = 'S'
7954: THEN
7955: okc_api.set_message (g_app_name,
7956: g_required_value,
7957: g_col_name_token,
7958: 'OKS Contract COV LINE'
7959: );
7996: || ')'
7997: );
7998: END IF;
7999:
8000: IF NOT l_return_status = okc_api.g_ret_sts_success
8001: THEN
8002: RAISE g_exception_halt_validation;
8003: END IF;
8004:
8412: END IF;
8413:
8414: x_return_status := l_return_status;
8415:
8416: IF NOT l_return_status = okc_api.g_ret_sts_success
8417: THEN
8418: x_return_status := l_return_status;
8419: RAISE g_exception_halt_validation;
8420: END IF;
8449: END IF;
8450:
8451: x_return_status := l_return_status;
8452:
8453: IF NOT l_return_status = okc_api.g_ret_sts_success
8454: THEN
8455: x_return_status := l_return_status;
8456: RAISE g_exception_halt_validation;
8457: END IF;
8480: x_return_status := l_return_status;
8481: NULL;
8482: WHEN OTHERS
8483: THEN
8484: x_return_status := okc_api.g_ret_sts_unexp_error;
8485: okc_api.set_message (g_app_name,
8486: g_unexpected_error,
8487: g_sqlcode_token,
8488: SQLCODE,
8481: NULL;
8482: WHEN OTHERS
8483: THEN
8484: x_return_status := okc_api.g_ret_sts_unexp_error;
8485: okc_api.set_message (g_app_name,
8486: g_unexpected_error,
8487: g_sqlcode_token,
8488: SQLCODE,
8489: g_sqlerrm_token,
8534: l_salescredit_tbl_hdr oks_extwarprgm_pvt.salescredit_tbl;
8535: l_line_rec k_line_service_rec_type;
8536: l_covd_rec k_line_covered_level_rec_type;
8537: l_available_yn CHAR;
8538: l_return_status VARCHAR2 (5) := okc_api.g_ret_sts_success;
8539: l_chrid NUMBER := NULL;
8540: l_lineid NUMBER := NULL;
8541: l_days NUMBER := 0;
8542: l_day1price NUMBER := 0;
8546: --Contract Line Table
8547: l_clev_tbl_in okc_contract_pub.clev_tbl_type;
8548: l_clev_tbl_out okc_contract_pub.clev_tbl_type;
8549: l_api_version CONSTANT NUMBER := 1.0;
8550: l_init_msg_list CONSTANT VARCHAR2 (1) := okc_api.g_false;
8551: l_retdt DATE;
8552: l_ste_code VARCHAR2 (30);
8553: l_sts_code VARCHAR2 (30);
8554: l_suppress_credit VARCHAR2 (2) := 'N';
8563: l_alllines_cancelled VARCHAR2 (1);
8564: l_term_date_flag VARCHAR2 (1);
8565: l_credit_amount VARCHAR2 (30);
8566: BEGIN
8567: x_return_status := okc_api.g_ret_sts_success;
8568: l_old_cp_id := 0;
8569:
8570: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
8571: THEN
8599: || ' in QA_HOLD status'
8600: );
8601: END IF;
8602:
8603: l_return_status := okc_api.g_ret_sts_error;
8604: okc_api.set_message (g_app_name,
8605: g_invalid_value,
8606: g_col_name_token,
8607: 'Return not allowed. Contract '
8600: );
8601: END IF;
8602:
8603: l_return_status := okc_api.g_ret_sts_error;
8604: okc_api.set_message (g_app_name,
8605: g_invalid_value,
8606: g_col_name_token,
8607: 'Return not allowed. Contract '
8608: || p_kdtl_tbl (l_ctr).contract_number
8755: || ')'
8756: );
8757: END IF;
8758:
8759: IF NOT l_return_status = okc_api.g_ret_sts_success
8760: THEN
8761: RAISE g_exception_halt_validation;
8762: END IF;
8763:
8785:
8786: okc_contract_pub.update_contract_line
8787: (p_api_version => l_api_version,
8788: p_init_msg_list => l_init_msg_list,
8789: p_restricted_update => okc_api.g_true,
8790: x_return_status => l_return_status,
8791: x_msg_count => x_msg_count,
8792: x_msg_data => x_msg_data,
8793: p_clev_tbl => l_clev_tbl_in,
8793: p_clev_tbl => l_clev_tbl_in,
8794: x_clev_tbl => l_clev_tbl_out
8795: );
8796:
8797: IF NOT l_return_status = okc_api.g_ret_sts_success
8798: THEN
8799: RAISE g_exception_halt_validation;
8800: END IF;
8801: END IF;
8825:
8826: okc_contract_pub.update_contract_header
8827: (p_api_version => l_api_version,
8828: p_init_msg_list => l_init_msg_list,
8829: p_restricted_update => okc_api.g_true,
8830: x_return_status => l_return_status,
8831: x_msg_count => x_msg_count,
8832: x_msg_data => x_msg_data,
8833: p_chrv_tbl => l_chrv_tbl_in,
8847: || ')'
8848: );
8849: END IF;
8850:
8851: IF NOT l_return_status = okc_api.g_ret_sts_success
8852: THEN
8853: RAISE g_exception_halt_validation;
8854: END IF;
8855: END IF;
8895: || ')'
8896: );
8897: END IF;
8898:
8899: IF NOT l_return_status = okc_api.g_ret_sts_success
8900: THEN
8901: RAISE g_exception_halt_validation;
8902: END IF;
8903:
8945: || ')'
8946: );
8947: END IF;
8948:
8949: IF NOT l_return_status = okc_api.g_ret_sts_success
8950: THEN
8951: RAISE g_exception_halt_validation;
8952: END IF;
8953: END IF;
8993: || ')'
8994: );
8995: END IF;
8996:
8997: IF NOT l_return_status = okc_api.g_ret_sts_success
8998: THEN
8999: RAISE g_exception_halt_validation;
9000: END IF;
9001: END IF;
9119: END IF;
9120:
9121: x_return_status := l_return_status;
9122:
9123: IF NOT l_return_status = okc_api.g_ret_sts_success
9124: THEN
9125: x_return_status := l_return_status;
9126: RAISE g_exception_halt_validation;
9127: END IF;
9152: END IF;
9153:
9154: x_return_status := l_return_status;
9155:
9156: IF NOT l_return_status = okc_api.g_ret_sts_success
9157: THEN
9158: x_return_status := l_return_status;
9159: RAISE g_exception_halt_validation;
9160: END IF;
9195: x_return_status := l_return_status;
9196: NULL;
9197: WHEN OTHERS
9198: THEN
9199: x_return_status := okc_api.g_ret_sts_unexp_error;
9200: okc_api.set_message (g_app_name,
9201: g_unexpected_error,
9202: g_sqlcode_token,
9203: SQLCODE,
9196: NULL;
9197: WHEN OTHERS
9198: THEN
9199: x_return_status := okc_api.g_ret_sts_unexp_error;
9200: okc_api.set_message (g_app_name,
9201: g_unexpected_error,
9202: g_sqlcode_token,
9203: SQLCODE,
9204: g_sqlerrm_token,
9351: l_line_rec oks_extwarprgm_pvt.k_line_service_rec_type;
9352: l_covd_rec oks_extwarprgm_pvt.k_line_covered_level_rec_type;
9353: --l_kdtl_tbl oks_extwar_util_pvt.contract_tbl_type;
9354: l_available_yn CHAR;
9355: l_return_status VARCHAR2 (5) := okc_api.g_ret_sts_success;
9356: l_line_found VARCHAR2 (1);
9357: l_ste_code VARCHAR2 (40);
9358: l_sts_code VARCHAR2 (40);
9359: l_ctr NUMBER;
9486: CLOSE l_party_csr;
9487: EXCEPTION
9488: WHEN OTHERS
9489: THEN
9490: x_return_status := okc_api.g_ret_sts_unexp_error;
9491: okc_api.set_message (g_app_name,
9492: g_unexpected_error,
9493: g_sqlcode_token,
9494: SQLCODE,
9487: EXCEPTION
9488: WHEN OTHERS
9489: THEN
9490: x_return_status := okc_api.g_ret_sts_unexp_error;
9491: okc_api.set_message (g_app_name,
9492: g_unexpected_error,
9493: g_sqlcode_token,
9494: SQLCODE,
9495: g_sqlerrm_token,
9611: SELECT ctc_id, sales_credit_type_id1, PERCENT, sales_group_id
9612: FROM oks_k_sales_credits_v
9613: WHERE chr_id = p_chr_id AND cle_id IS NULL;
9614: BEGIN
9615: x_return_status := okc_api.g_ret_sts_success;
9616:
9617: OPEN l_get_agrid_csr (p_kdtl_rec.hdr_id); --07-May-2003
9618:
9619: FETCH l_get_agrid_csr
9659: || l_return_status
9660: );
9661: END IF;
9662:
9663: IF NOT l_return_status = okc_api.g_ret_sts_success
9664: THEN
9665: x_return_status := l_return_status;
9666: RAISE g_exception_halt_validation;
9667: END IF;
9804: || ') is not valid'
9805: );
9806: END IF;
9807:
9808: l_return_status := okc_api.g_ret_sts_error;
9809: okc_api.set_message (g_app_name,
9810: g_required_value,
9811: g_col_name_token,
9812: 'Bill to id is not Valid'
9805: );
9806: END IF;
9807:
9808: l_return_status := okc_api.g_ret_sts_error;
9809: okc_api.set_message (g_app_name,
9810: g_required_value,
9811: g_col_name_token,
9812: 'Bill to id is not Valid'
9813: );
9841: || ') is not valid'
9842: );
9843: END IF;
9844:
9845: l_return_status := okc_api.g_ret_sts_error;
9846: okc_api.set_message (g_app_name,
9847: g_required_value,
9848: g_col_name_token,
9849: 'Ship to id is not Valid'
9842: );
9843: END IF;
9844:
9845: l_return_status := okc_api.g_ret_sts_error;
9846: okc_api.set_message (g_app_name,
9847: g_required_value,
9848: g_col_name_token,
9849: 'Ship to id is not Valid'
9850: );
9871: )
9872: );
9873: -- Fix for bug 3588355 End
9874: l_hdr_rec.order_line_id := NULL;
9875: l_hdr_rec.contract_number := okc_api.g_miss_char;
9876: l_hdr_rec.rty_code := 'CONTRACTTRANSFERORDER';
9877: --l_hdr_rec.start_date := trunc(l_trfdt);
9878: l_hdr_rec.end_date := p_kdtl_rec.service_edt;
9879: l_hdr_rec.class_code := 'SVC';
10002: x_return_status := l_return_status;
10003: NULL;
10004: WHEN OTHERS
10005: THEN
10006: x_return_status := okc_api.g_ret_sts_unexp_error;
10007: okc_api.set_message (g_app_name,
10008: g_unexpected_error,
10009: g_sqlcode_token,
10010: SQLCODE,
10003: NULL;
10004: WHEN OTHERS
10005: THEN
10006: x_return_status := okc_api.g_ret_sts_unexp_error;
10007: okc_api.set_message (g_app_name,
10008: g_unexpected_error,
10009: g_sqlcode_token,
10010: SQLCODE,
10011: g_sqlerrm_token,
10083:
10084: l_sc_ctr NUMBER;
10085: l_salescredit_tbl oks_extwarprgm_pvt.salescredit_tbl;
10086: BEGIN
10087: x_return_status := okc_api.g_ret_sts_success;
10088:
10089: OPEN l_line_rule_csr (p_kdtl_rec.service_line_id);
10090:
10091: FETCH l_line_rule_csr
10102:
10103: CLOSE l_get_bill_ship_csr;
10104:
10105: l_line_rec.k_id := p_hdr_id;
10106: l_line_rec.k_line_number := okc_api.g_miss_char;
10107: l_line_rec.org_id := p_kdtl_rec.hdr_org_id;
10108: l_line_rec.accounting_rule_id := l_acct_id;
10109: l_line_rec.invoicing_rule_id := -2;
10110: --l_inv_id; -- fix for bug 3451440
10270: x_return_status := l_return_status;
10271: NULL;
10272: WHEN OTHERS
10273: THEN
10274: x_return_status := okc_api.g_ret_sts_unexp_error;
10275: okc_api.set_message (g_app_name,
10276: g_unexpected_error,
10277: g_sqlcode_token,
10278: SQLCODE,
10271: NULL;
10272: WHEN OTHERS
10273: THEN
10274: x_return_status := okc_api.g_ret_sts_unexp_error;
10275: okc_api.set_message (g_app_name,
10276: g_unexpected_error,
10277: g_sqlcode_token,
10278: SQLCODE,
10279: g_sqlerrm_token,
10350: l_duration NUMBER;
10351: l_timeunits VARCHAR2 (25);
10352: --l_xfer_timeunits VARCHAR2(25);
10353: BEGIN
10354: x_return_status := okc_api.g_ret_sts_success;
10355:
10356: /* Open l_Cust_csr;
10357: Fetch l_Cust_csr into l_Cust_rec;
10358: If l_Cust_csr%notfound Then
10360: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
10361: fnd_log.string(FND_LOG.LEVEL_ERROR,G_MODULE_CURRENT||'.CREATE_K_SYSTEM_TRF.ERROR',
10362: 'l_Cust_csr Not Found ' );
10363: END IF;
10364: l_return_status := OKC_API.G_RET_STS_ERROR;
10365: OKC_API.set_message(G_APP_NAME,'OKS_CUST_PROD_DTLS_NOT_FOUND','CUSTOMER_PRODUCT',p_kdtl_rec.old_cp_id);
10366: Raise G_EXCEPTION_HALT_VALIDATION;
10367: End if;
10368: Close l_Cust_csr;
10361: fnd_log.string(FND_LOG.LEVEL_ERROR,G_MODULE_CURRENT||'.CREATE_K_SYSTEM_TRF.ERROR',
10362: 'l_Cust_csr Not Found ' );
10363: END IF;
10364: l_return_status := OKC_API.G_RET_STS_ERROR;
10365: OKC_API.set_message(G_APP_NAME,'OKS_CUST_PROD_DTLS_NOT_FOUND','CUSTOMER_PRODUCT',p_kdtl_rec.old_cp_id);
10366: Raise G_EXCEPTION_HALT_VALIDATION;
10367: End if;
10368: Close l_Cust_csr;
10369: */ -- Amount to be prorated
10457:
10458: l_covd_rec.k_id := p_hdr_id;
10459: l_covd_rec.rty_code := 'CONTRACTTRANSFERORDER';
10460: l_covd_rec.attach_2_line_id := p_line_id;
10461: l_covd_rec.line_number := okc_api.g_miss_char;
10462: l_covd_rec.customer_product_id := p_kdtl_rec.old_cp_id;
10463: l_covd_rec.product_segment1 := p_kdtl_rec.prod_name;
10464: l_covd_rec.product_desc := p_kdtl_rec.prod_description;
10465: l_covd_rec.product_start_date := TRUNC (l_trfdt);
10577: x_return_status := l_return_status;
10578: NULL;
10579: WHEN OTHERS
10580: THEN
10581: x_return_status := okc_api.g_ret_sts_unexp_error;
10582: okc_api.set_message (g_app_name,
10583: g_unexpected_error,
10584: g_sqlcode_token,
10585: SQLCODE,
10578: NULL;
10579: WHEN OTHERS
10580: THEN
10581: x_return_status := okc_api.g_ret_sts_unexp_error;
10582: okc_api.set_message (g_app_name,
10583: g_unexpected_error,
10584: g_sqlcode_token,
10585: SQLCODE,
10586: g_sqlerrm_token,
10704: || ')'
10705: );
10706: END IF;
10707:
10708: IF l_return_status <> okc_api.g_ret_sts_success
10709: THEN
10710: okc_api.set_message (g_app_name,
10711: g_required_value,
10712: g_col_name_token,
10706: END IF;
10707:
10708: IF l_return_status <> okc_api.g_ret_sts_success
10709: THEN
10710: okc_api.set_message (g_app_name,
10711: g_required_value,
10712: g_col_name_token,
10713: 'Sched Billing Rule (LINE)'
10714: );
10799: Raise G_EXCEPTION_HALT_VALIDATION;
10800: End if;
10801: */
10802: ELSE
10803: okc_api.set_message (g_app_name,
10804: g_required_value,
10805: g_col_name_token,
10806: 'level elements NOT EXIST'
10807: );
10816: x_return_status := l_return_status;
10817: NULL;
10818: WHEN OTHERS
10819: THEN
10820: x_return_status := okc_api.g_ret_sts_unexp_error;
10821: okc_api.set_message (g_app_name,
10822: g_unexpected_error,
10823: g_sqlcode_token,
10824: SQLCODE,
10817: NULL;
10818: WHEN OTHERS
10819: THEN
10820: x_return_status := okc_api.g_ret_sts_unexp_error;
10821: okc_api.set_message (g_app_name,
10822: g_unexpected_error,
10823: g_sqlcode_token,
10824: SQLCODE,
10825: g_sqlerrm_token,
10826: SQLERRM
10827: );
10828: END;
10829: BEGIN
10830: x_return_status := okc_api.g_ret_sts_success;
10831: l_old_cp_id := 0;
10832:
10833: IF p_kdtl_tbl.COUNT > 0
10834: THEN
10844: );
10845:
10846: IF l_ste_code = 'HOLD'
10847: THEN
10848: l_return_status := okc_api.g_ret_sts_error;
10849:
10850: IF fnd_log.level_error >= fnd_log.g_current_runtime_level
10851: THEN
10852: fnd_log.STRING (fnd_log.level_error,
10855: 'Contract in QA_HOLD status'
10856: );
10857: END IF;
10858:
10859: okc_api.set_message (g_app_name,
10860: g_invalid_value,
10861: g_col_name_token,
10862: 'Termination not allowed .Contract '
10863: || p_kdtl_tbl (l_ctr).contract_number
11114: || ')'
11115: );
11116: END IF;
11117:
11118: IF NOT l_return_status = okc_api.g_ret_sts_success
11119: THEN
11120: RAISE g_exception_halt_validation;
11121: END IF;
11122:
11145:
11146: okc_contract_pub.update_contract_line
11147: (p_api_version => l_api_version,
11148: p_init_msg_list => l_init_msg_list,
11149: p_restricted_update => okc_api.g_true,
11150: x_return_status => l_return_status,
11151: x_msg_count => x_msg_count,
11152: x_msg_data => x_msg_data,
11153: p_clev_tbl => l_clev_tbl_in,
11166: || ')'
11167: );
11168: END IF;
11169:
11170: IF NOT l_return_status = okc_api.g_ret_sts_success
11171: THEN
11172: RAISE g_exception_halt_validation;
11173: END IF;
11174: END IF;
11195:
11196: okc_contract_pub.update_contract_header
11197: (p_api_version => l_api_version,
11198: p_init_msg_list => l_init_msg_list,
11199: p_restricted_update => okc_api.g_true,
11200: x_return_status => l_return_status,
11201: x_msg_count => x_msg_count,
11202: x_msg_data => x_msg_data,
11203: p_chrv_tbl => l_chrv_tbl_in,
11217: || ')'
11218: );
11219: END IF;
11220:
11221: IF NOT l_return_status = okc_api.g_ret_sts_success
11222: THEN
11223: RAISE g_exception_halt_validation;
11224: END IF;
11225: END IF;
11275: || ')'
11276: );
11277: END IF;
11278:
11279: IF NOT l_return_status = okc_api.g_ret_sts_success
11280: THEN
11281: RAISE g_exception_halt_validation;
11282: END IF;
11283:
11328: || ')'
11329: );
11330: END IF;
11331:
11332: IF NOT l_return_status = okc_api.g_ret_sts_success
11333: THEN
11334: RAISE g_exception_halt_validation;
11335: END IF;
11336: END IF;
11377: || ')'
11378: );
11379: END IF;
11380:
11381: IF NOT l_return_status = okc_api.g_ret_sts_success
11382: THEN
11383: RAISE g_exception_halt_validation;
11384: END IF;
11385: END IF; --Date_Cancelled Is Not Null
11622: || ')'
11623: );
11624: END IF;
11625:
11626: IF NOT l_return_status = okc_api.g_ret_sts_success
11627: THEN
11628: RAISE g_exception_halt_validation;
11629: END IF;
11630:
11655:
11656: okc_contract_pub.update_contract_line
11657: (p_api_version => l_api_version,
11658: p_init_msg_list => l_init_msg_list,
11659: p_restricted_update => okc_api.g_true,
11660: x_return_status => l_return_status,
11661: x_msg_count => x_msg_count,
11662: x_msg_data => x_msg_data,
11663: p_clev_tbl => l_clev_tbl_in,
11676: || ')'
11677: );
11678: END IF;
11679:
11680: IF NOT l_return_status = okc_api.g_ret_sts_success
11681: THEN
11682: RAISE g_exception_halt_validation;
11683: END IF;
11684: END IF;
11705:
11706: okc_contract_pub.update_contract_header
11707: (p_api_version => l_api_version,
11708: p_init_msg_list => l_init_msg_list,
11709: p_restricted_update => okc_api.g_true,
11710: x_return_status => l_return_status,
11711: x_msg_count => x_msg_count,
11712: x_msg_data => x_msg_data,
11713: p_chrv_tbl => l_chrv_tbl_in,
11727: || ')'
11728: );
11729: END IF;
11730:
11731: IF NOT l_return_status = okc_api.g_ret_sts_success
11732: THEN
11733: RAISE g_exception_halt_validation;
11734: END IF;
11735: END IF;
11777: || ')'
11778: );
11779: END IF;
11780:
11781: IF NOT l_return_status = okc_api.g_ret_sts_success
11782: THEN
11783: RAISE g_exception_halt_validation;
11784: END IF;
11785:
11830: || ')'
11831: );
11832: END IF;
11833:
11834: IF NOT l_return_status = okc_api.g_ret_sts_success
11835: THEN
11836: RAISE g_exception_halt_validation;
11837: END IF;
11838: END IF;
11879: || ')'
11880: );
11881: END IF;
11882:
11883: IF NOT l_return_status = okc_api.g_ret_sts_success
11884: THEN
11885: RAISE g_exception_halt_validation;
11886: END IF;
11887: END IF;
12184: );
12185: END IF;
12186:
12187: IF NOT l_return_status =
12188: okc_api.g_ret_sts_success
12189: THEN
12190: RAISE g_exception_halt_validation;
12191: END IF;
12192:
12381: );
12382: END IF;
12383:
12384: IF NOT l_return_status =
12385: okc_api.g_ret_sts_success
12386: THEN
12387: RAISE g_exception_halt_validation;
12388: END IF;
12389:
12454: CLOSE l_qa_csr;
12455:
12456: okc_qa_check_pub.execute_qa_check_list
12457: (p_api_version => l_api_version,
12458: p_init_msg_list => okc_api.g_false,
12459: x_return_status => x_return_status,
12460: x_msg_count => x_msg_count,
12461: x_msg_data => x_msg_data,
12462: p_qcl_id => l_qcl_id,
12478: );
12479: END IF;
12480:
12481: IF x_return_status <>
12482: okc_api.g_ret_sts_success
12483: THEN
12484: RAISE g_exception_halt_validation;
12485: END IF;
12486:
12617: );
12618: END IF;
12619:
12620: IF NOT l_return_status =
12621: okc_api.g_ret_sts_success
12622: THEN
12623: RAISE g_exception_halt_validation;
12624: END IF;
12625:
12654: );
12655: END IF;
12656:
12657: IF NOT l_return_status =
12658: okc_api.g_ret_sts_success
12659: THEN
12660: RAISE g_exception_halt_validation;
12661: END IF;
12662:
12692: );
12693: END IF;
12694:
12695: IF NOT l_return_status =
12696: okc_api.g_ret_sts_success
12697: THEN
12698: okc_api.set_message
12699: (g_app_name,
12700: g_required_value,
12694:
12695: IF NOT l_return_status =
12696: okc_api.g_ret_sts_success
12697: THEN
12698: okc_api.set_message
12699: (g_app_name,
12700: g_required_value,
12701: g_col_name_token,
12702: 'Coverage Extn creation error '
12730: );
12731: END IF;
12732:
12733: IF NOT l_return_status =
12734: okc_api.g_ret_sts_success
12735: THEN
12736: RAISE g_exception_halt_validation;
12737: END IF;
12738:
12921: );
12922: END IF;
12923:
12924: IF NOT l_return_status =
12925: okc_api.g_ret_sts_success
12926: THEN
12927: RAISE g_exception_halt_validation;
12928: END IF;
12929:
12992: CLOSE l_qa_csr;
12993:
12994: okc_qa_check_pub.execute_qa_check_list
12995: (p_api_version => l_api_version,
12996: p_init_msg_list => okc_api.g_false,
12997: x_return_status => x_return_status,
12998: x_msg_count => x_msg_count,
12999: x_msg_data => x_msg_data,
13000: p_qcl_id => l_qcl_id,
13016: );
13017: END IF;
13018:
13019: IF x_return_status <>
13020: okc_api.g_ret_sts_success
13021: THEN
13022: RAISE g_exception_halt_validation;
13023: END IF;
13024:
13164: || ')'
13165: );
13166: END IF;
13167:
13168: IF NOT l_return_status = okc_api.g_ret_sts_success
13169: THEN
13170: RAISE g_exception_halt_validation;
13171: END IF;
13172:
13216: || ')'
13217: );
13218: END IF;
13219:
13220: IF NOT l_return_status = okc_api.g_ret_sts_success
13221: THEN
13222: RAISE g_exception_halt_validation;
13223: END IF;
13224:
13251: );
13252: END IF;
13253:
13254: IF NOT l_return_status =
13255: okc_api.g_ret_sts_success
13256: THEN
13257: RAISE g_exception_halt_validation;
13258: END IF;
13259:
13288: );
13289: END IF;
13290:
13291: IF NOT l_return_status =
13292: okc_api.g_ret_sts_success
13293: THEN
13294: okc_api.set_message
13295: (g_app_name,
13296: g_required_value,
13290:
13291: IF NOT l_return_status =
13292: okc_api.g_ret_sts_success
13293: THEN
13294: okc_api.set_message
13295: (g_app_name,
13296: g_required_value,
13297: g_col_name_token,
13298: 'Coverage Extn creation error '
13324: || ')'
13325: );
13326: END IF;
13327:
13328: IF NOT l_return_status = okc_api.g_ret_sts_success
13329: THEN
13330: RAISE g_exception_halt_validation;
13331: END IF;
13332:
13505: );
13506: END IF;
13507:
13508: IF NOT l_return_status =
13509: okc_api.g_ret_sts_success
13510: THEN
13511: RAISE g_exception_halt_validation;
13512: END IF;
13513:
13534: CLOSE l_qa_csr;
13535:
13536: okc_qa_check_pub.execute_qa_check_list
13537: (p_api_version => l_api_version,
13538: p_init_msg_list => okc_api.g_false,
13539: x_return_status => x_return_status,
13540: x_msg_count => x_msg_count,
13541: x_msg_data => x_msg_data,
13542: p_qcl_id => l_qcl_id,
13557: || ')'
13558: );
13559: END IF;
13560:
13561: IF x_return_status <> okc_api.g_ret_sts_success
13562: THEN
13563: RAISE g_exception_halt_validation;
13564: END IF;
13565:
13775: END IF;
13776:
13777: x_return_status := l_return_status;
13778:
13779: IF NOT l_return_status = okc_api.g_ret_sts_success
13780: THEN
13781: x_return_status := l_return_status;
13782: RAISE g_exception_halt_validation;
13783: END IF;
13826: END IF;
13827:
13828: x_return_status := l_return_status;
13829:
13830: IF NOT l_return_status = okc_api.g_ret_sts_success
13831: THEN
13832: x_return_status := l_return_status;
13833: RAISE g_exception_halt_validation;
13834: END IF;
13866: x_return_status := l_return_status;
13867: NULL;
13868: WHEN OTHERS
13869: THEN
13870: x_return_status := okc_api.g_ret_sts_unexp_error;
13871: okc_api.set_message (g_app_name,
13872: g_unexpected_error,
13873: g_sqlcode_token,
13874: SQLCODE,
13867: NULL;
13868: WHEN OTHERS
13869: THEN
13870: x_return_status := okc_api.g_ret_sts_unexp_error;
13871: okc_api.set_message (g_app_name,
13872: g_unexpected_error,
13873: g_sqlcode_token,
13874: SQLCODE,
13875: g_sqlerrm_token,
13925: l_salescredit_tbl_hdr oks_extwarprgm_pvt.salescredit_tbl;
13926: l_line_rec k_line_service_rec_type;
13927: l_covd_rec k_line_covered_level_rec_type;
13928: l_available_yn CHAR;
13929: l_return_status VARCHAR2 (5) := okc_api.g_ret_sts_success;
13930: l_chrid NUMBER := NULL;
13931: l_lineid NUMBER := NULL;
13932: l_days NUMBER := 0;
13933: l_day1price NUMBER := 0;
13934: l_oldamt NUMBER := 0;
13935: l_ctr NUMBER := 0;
13936: l_terminate_rec okc_terminate_pvt.terminate_in_cle_rec;
13937: l_api_version CONSTANT NUMBER := 1.0;
13938: l_init_msg_list CONSTANT VARCHAR2 (1) := okc_api.g_false;
13939: l_index VARCHAR2 (2000);
13940: l_trmdt DATE;
13941: l_suppress_credit VARCHAR2 (2) := 'N';
13942: l_full_credit VARCHAR2 (2) := 'N';
13951: l_ptr NUMBER;
13952: l_term_date_flag VARCHAR2 (1);
13953: l_credit_amount VARCHAR2 (50);
13954: BEGIN
13955: x_return_status := okc_api.g_ret_sts_success;
13956:
13957: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
13958: THEN
13959: fnd_log.STRING (fnd_log.level_event,
13977: );
13978:
13979: IF l_ste_code = 'HOLD'
13980: THEN
13981: l_return_status := okc_api.g_ret_sts_error;
13982:
13983: IF fnd_log.level_error >= fnd_log.g_current_runtime_level
13984: THEN
13985: fnd_log.STRING (fnd_log.level_error,
13988: 'Contract in QA_HOLD status'
13989: );
13990: END IF;
13991:
13992: okc_api.set_message (g_app_name,
13993: g_invalid_value,
13994: g_col_name_token,
13995: 'Termination not allowed .Contract '
13996: || p_kdtl_tbl (l_ctr).contract_number
14113: || ')'
14114: );
14115: END IF;
14116:
14117: IF NOT l_return_status = okc_api.g_ret_sts_success
14118: THEN
14119: RAISE g_exception_halt_validation;
14120: END IF;
14121:
14145:
14146: okc_contract_pub.update_contract_line
14147: (p_api_version => l_api_version,
14148: p_init_msg_list => l_init_msg_list,
14149: p_restricted_update => okc_api.g_true,
14150: x_return_status => l_return_status,
14151: x_msg_count => x_msg_count,
14152: x_msg_data => x_msg_data,
14153: p_clev_tbl => l_clev_tbl_in,
14165: || ')'
14166: );
14167: END IF;
14168:
14169: IF NOT l_return_status = okc_api.g_ret_sts_success
14170: THEN
14171: RAISE g_exception_halt_validation;
14172: END IF;
14173: END IF;
14195:
14196: okc_contract_pub.update_contract_header
14197: (p_api_version => l_api_version,
14198: p_init_msg_list => l_init_msg_list,
14199: p_restricted_update => okc_api.g_true,
14200: x_return_status => l_return_status,
14201: x_msg_count => x_msg_count,
14202: x_msg_data => x_msg_data,
14203: p_chrv_tbl => l_chrv_tbl_in,
14216: || ')'
14217: );
14218: END IF;
14219:
14220: IF NOT l_return_status = okc_api.g_ret_sts_success
14221: THEN
14222: RAISE g_exception_halt_validation;
14223: END IF;
14224: END IF;
14262: || ')'
14263: );
14264: END IF;
14265:
14266: IF NOT l_return_status = okc_api.g_ret_sts_success
14267: THEN
14268: RAISE g_exception_halt_validation;
14269: END IF;
14270:
14312: || ')'
14313: );
14314: END IF;
14315:
14316: IF NOT l_return_status = okc_api.g_ret_sts_success
14317: THEN
14318: RAISE g_exception_halt_validation;
14319: END IF;
14320: END IF;
14360: || ')'
14361: );
14362: END IF;
14363:
14364: IF NOT l_return_status = okc_api.g_ret_sts_success
14365: THEN
14366: RAISE g_exception_halt_validation;
14367: END IF;
14368: END IF;
14509: END IF;
14510:
14511: x_return_status := l_return_status;
14512:
14513: IF NOT l_return_status = okc_api.g_ret_sts_success
14514: THEN
14515: x_return_status := l_return_status;
14516: RAISE g_exception_halt_validation;
14517: END IF;
14542: END IF;
14543:
14544: x_return_status := l_return_status;
14545:
14546: IF NOT l_return_status = okc_api.g_ret_sts_success
14547: THEN
14548: x_return_status := l_return_status;
14549: RAISE g_exception_halt_validation;
14550: END IF;
14570: x_return_status := l_return_status;
14571: NULL;
14572: WHEN OTHERS
14573: THEN
14574: x_return_status := okc_api.g_ret_sts_unexp_error;
14575: okc_api.set_message (g_app_name,
14576: g_unexpected_error,
14577: g_sqlcode_token,
14578: SQLCODE,
14571: NULL;
14572: WHEN OTHERS
14573: THEN
14574: x_return_status := okc_api.g_ret_sts_unexp_error;
14575: okc_api.set_message (g_app_name,
14576: g_unexpected_error,
14577: g_sqlcode_token,
14578: SQLCODE,
14579: g_sqlerrm_token,
14688: l_topline_rec l_topline_dates%ROWTYPE;
14689: l_duration NUMBER;
14690: l_timeunits VARCHAR2 (25);
14691: l_api_version CONSTANT NUMBER := 1.0;
14692: l_init_msg_list CONSTANT VARCHAR2 (1) := okc_api.g_false;
14693: l_available_yn VARCHAR2 (2);
14694: l_index VARCHAR2 (2000);
14695: l_return_status VARCHAR2 (1) := 'S';
14696: --l_kdtl_tbl oks_extwar_util_pvt.contract_tbl_type;
14722: l_invoice_text VARCHAR2 (2000);
14723: l_klnv_tbl_in oks_kln_pvt.klnv_tbl_type;
14724: l_klnv_tbl_out oks_kln_pvt.klnv_tbl_type;
14725: BEGIN
14726: x_return_status := okc_api.g_ret_sts_success;
14727:
14728: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
14729: THEN
14730: fnd_log.STRING (fnd_log.level_event,
14746: );
14747:
14748: IF p_kdtl_tbl (l_ctr).installation_date IS NULL
14749: THEN
14750: l_return_status := okc_api.g_ret_sts_warning;
14751:
14752: IF fnd_log.level_error >= fnd_log.g_current_runtime_level
14753: THEN
14754: fnd_log.STRING (fnd_log.level_error,
14756: 'Installation date changed to null '
14757: );
14758: END IF;
14759:
14760: okc_api.set_message (g_app_name, 'OKS_NULL_INSTALLATION_DATE');
14761: RAISE g_exception_halt_validation;
14762: END IF;
14763:
14764: l_inst_dtls_tbl.DELETE;
14876: IF l_checksr_csr%FOUND
14877: THEN
14878: CLOSE l_checksr_csr;
14879:
14880: l_return_status := okc_api.g_ret_sts_warning;
14881:
14882: IF fnd_log.level_error >= fnd_log.g_current_runtime_level
14883: THEN
14884: fnd_log.STRING (fnd_log.level_error,
14889: || l_return_status
14890: );
14891: END IF;
14892:
14893: okc_api.set_message (g_app_name, 'OKS_SR_EXISTS');
14894: RAISE g_exception_halt_validation;
14895: ELSE
14896: CLOSE l_checksr_csr;
14897:
15021: || ')'
15022: );
15023: END IF;
15024:
15025: IF NOT l_return_status = okc_api.g_ret_sts_success
15026: THEN
15027: RAISE g_exception_halt_validation;
15028: END IF;
15029: END IF; --hdrflag
15070: || ')'
15071: );
15072: END IF;
15073:
15074: IF NOT l_return_status = okc_api.g_ret_sts_success
15075: THEN
15076: RAISE g_exception_halt_validation;
15077: END IF;
15078:
15132: END IF;
15133:
15134: IF NOT l_return_status = 'S'
15135: THEN
15136: okc_api.set_message (g_app_name,
15137: g_required_value,
15138: g_col_name_token,
15139: 'OKS Contract COV LINE'
15140: );
15165: || ')'
15166: );
15167: END IF;
15168:
15169: IF NOT l_return_status = okc_api.g_ret_sts_success
15170: THEN
15171: RAISE g_exception_halt_validation;
15172: END IF;
15173:
15194: || ')'
15195: );
15196: END IF;
15197:
15198: IF NOT l_return_status = okc_api.g_ret_sts_success
15199: THEN
15200: RAISE g_exception_halt_validation;
15201: END IF;
15202: END IF; --topflag
15237: || ')'
15238: );
15239: END IF;
15240:
15241: IF NOT l_return_status = okc_api.g_ret_sts_success
15242: THEN
15243: RAISE g_exception_halt_validation;
15244: END IF;
15245:
15288: END IF;
15289:
15290: IF NOT l_return_status = 'S'
15291: THEN
15292: okc_api.set_message (g_app_name,
15293: g_required_value,
15294: g_col_name_token,
15295: 'OKS Contract COV LINE'
15296: );
15410: END IF;
15411:
15412: x_return_status := l_return_status;
15413:
15414: IF NOT l_return_status = okc_api.g_ret_sts_success
15415: THEN
15416: x_return_status := l_return_status;
15417: RAISE g_exception_halt_validation;
15418: END IF;
15443: END IF;
15444:
15445: x_return_status := l_return_status;
15446:
15447: IF NOT l_return_status = okc_api.g_ret_sts_success
15448: THEN
15449: x_return_status := l_return_status;
15450: RAISE g_exception_halt_validation;
15451: END IF;
15476: x_return_status := l_return_status;
15477: NULL;
15478: WHEN OTHERS
15479: THEN
15480: x_return_status := okc_api.g_ret_sts_unexp_error;
15481: okc_api.set_message (g_app_name,
15482: g_unexpected_error,
15483: g_sqlcode_token,
15484: SQLCODE,
15477: NULL;
15478: WHEN OTHERS
15479: THEN
15480: x_return_status := okc_api.g_ret_sts_unexp_error;
15481: okc_api.set_message (g_app_name,
15482: g_unexpected_error,
15483: g_sqlcode_token,
15484: SQLCODE,
15485: g_sqlerrm_token,
15531: l_line_rec k_line_service_rec_type;
15532: l_covd_rec k_line_covered_level_rec_type;
15533: -- l_kdtl_tbl OKS_EXTWAR_UTIL_PVT.Contract_tbl_type;
15534: l_available_yn VARCHAR2 (1);
15535: l_return_status VARCHAR2 (5) := okc_api.g_ret_sts_success;
15536: l_chrid NUMBER := NULL;
15537: l_lineid NUMBER := NULL;
15538: l_cust_rec l_cust_csr%ROWTYPE;
15539: l_terminate_rec okc_terminate_pvt.terminate_in_cle_rec;
15537: l_lineid NUMBER := NULL;
15538: l_cust_rec l_cust_csr%ROWTYPE;
15539: l_terminate_rec okc_terminate_pvt.terminate_in_cle_rec;
15540: l_api_version CONSTANT NUMBER := 1.0;
15541: l_init_msg_list CONSTANT VARCHAR2 (1) := okc_api.g_false;
15542: l_ste_code VARCHAR2 (40);
15543: l_sts_code VARCHAR2 (40);
15544: l_billed_amount NUMBER;
15545: l_update_top_line VARCHAR2 (1);
15586: l_update_id NUMBER;
15587: l_source_line_id NUMBER;
15588: l_create_oper_instance VARCHAR2 (1);
15589: BEGIN
15590: x_return_status := okc_api.g_ret_sts_success;
15591: l_old_cp_id := 0;
15592: l_target_chr_id := 0;
15593:
15594: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
15769: || ')'
15770: );
15771: END IF;
15772:
15773: IF l_return_status <> okc_api.g_ret_sts_success
15774: THEN
15775: RAISE g_exception_halt_validation;
15776: END IF;
15777:
15797: || ')'
15798: );
15799: END IF;
15800:
15801: IF l_return_status <> okc_api.g_ret_sts_success
15802: THEN
15803: okc_api.set_message (g_app_name,
15804: g_required_value,
15805: g_col_name_token,
15799: END IF;
15800:
15801: IF l_return_status <> okc_api.g_ret_sts_success
15802: THEN
15803: okc_api.set_message (g_app_name,
15804: g_required_value,
15805: g_col_name_token,
15806: 'Sched Billing Rule (LINE)'
15807: );
15938: );
15939:
15940: IF l_ste_code = 'HOLD'
15941: THEN
15942: l_return_status := okc_api.g_ret_sts_error;
15943:
15944: IF fnd_log.level_error >=
15945: fnd_log.g_current_runtime_level
15946: THEN
15951: ' Contract in QA_HOLD status'
15952: );
15953: END IF;
15954:
15955: okc_api.set_message
15956: (g_app_name,
15957: g_invalid_value,
15958: g_col_name_token,
15959: 'Quantity Update not allowed. Contract '
15996: || ')'
15997: );
15998: END IF;
15999:
16000: IF NOT l_return_status = okc_api.g_ret_sts_success
16001: THEN
16002: RAISE g_exception_halt_validation;
16003: END IF;
16004:
16265: || ')'
16266: );
16267: END IF;
16268:
16269: IF l_return_status <> okc_api.g_ret_sts_success
16270: THEN
16271: RAISE g_exception_halt_validation;
16272: END IF;
16273:
16422: || ')'
16423: );
16424: END IF;
16425:
16426: IF l_return_status <> okc_api.g_ret_sts_success
16427: THEN
16428: okc_api.set_message
16429: (g_app_name,
16430: g_required_value,
16424: END IF;
16425:
16426: IF l_return_status <> okc_api.g_ret_sts_success
16427: THEN
16428: okc_api.set_message
16429: (g_app_name,
16430: g_required_value,
16431: g_col_name_token,
16432: 'Sched Billing Rule (LINE)'
16472: || ')'
16473: );
16474: END IF;
16475:
16476: IF l_return_status <> okc_api.g_ret_sts_success
16477: THEN
16478: RAISE g_exception_halt_validation;
16479: END IF;
16480:
16577: || ')'
16578: );
16579: END IF;
16580:
16581: IF l_return_status <> okc_api.g_ret_sts_success
16582: THEN
16583: okc_api.set_message
16584: (g_app_name,
16585: g_required_value,
16579: END IF;
16580:
16581: IF l_return_status <> okc_api.g_ret_sts_success
16582: THEN
16583: okc_api.set_message
16584: (g_app_name,
16585: g_required_value,
16586: g_col_name_token,
16587: 'Sched Billing Rule (LINE)'
16716: END IF;
16717:
16718: x_return_status := l_return_status;
16719:
16720: IF NOT l_return_status = okc_api.g_ret_sts_success
16721: THEN
16722: x_return_status := l_return_status;
16723: RAISE g_exception_halt_validation;
16724: END IF;
16755: END IF;
16756:
16757: x_return_status := l_return_status;
16758:
16759: IF NOT l_return_status = okc_api.g_ret_sts_success
16760: THEN
16761: x_return_status := l_return_status;
16762: RAISE g_exception_halt_validation;
16763: END IF;
16776: x_return_status := l_return_status;
16777: NULL;
16778: WHEN OTHERS
16779: THEN
16780: x_return_status := okc_api.g_ret_sts_unexp_error;
16781: okc_api.set_message (g_app_name,
16782: g_unexpected_error,
16783: g_sqlcode_token,
16784: SQLCODE,
16777: NULL;
16778: WHEN OTHERS
16779: THEN
16780: x_return_status := okc_api.g_ret_sts_unexp_error;
16781: okc_api.set_message (g_app_name,
16782: g_unexpected_error,
16783: g_sqlcode_token,
16784: SQLCODE,
16785: g_sqlerrm_token,
16885: END IF;
16886:
16887: jtf_terr_assign_pub.get_winners
16888: (p_api_version_number => 1.0,
16889: p_init_msg_list => okc_api.g_false,
16890: p_use_type => l_use_type,
16891: p_source_id => -1500,
16892: p_trans_id => -1501,
16893: p_trans_rec => l_gen_bulk_rec,