[Home] [Help]
94: l_source_rec source_line_attrbs_csr%ROWTYPE;
95: l_merge_yn BOOLEAN := FALSE;
96: l_temp VARCHAR2 (3);
97: BEGIN
98: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
99: THEN
100: fnd_log.STRING (fnd_log.level_statement,
101: g_module_current || '.Check_merge_yn',
102: 'Warranty Flag ' || p_warranty_flag
96: l_temp VARCHAR2 (3);
97: BEGIN
98: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
99: THEN
100: fnd_log.STRING (fnd_log.level_statement,
101: g_module_current || '.Check_merge_yn',
102: 'Warranty Flag ' || p_warranty_flag
103: );
104: END IF;
293: FROM hz_cust_accounts_all ca
294: WHERE ca.cust_account_id = c_cust_acct_id;
295: BEGIN
296:
297: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
298: fnd_log.STRING (fnd_log.level_statement,g_module_current||'.get_cc_trxn_extn parameters',
299: 'p_context_level = '||p_context_level);
300:
301: fnd_log.STRING (fnd_log.level_statement,g_module_current||'.get_cc_trxn_extn parameters',
294: WHERE ca.cust_account_id = c_cust_acct_id;
295: BEGIN
296:
297: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
298: fnd_log.STRING (fnd_log.level_statement,g_module_current||'.get_cc_trxn_extn parameters',
299: 'p_context_level = '||p_context_level);
300:
301: fnd_log.STRING (fnd_log.level_statement,g_module_current||'.get_cc_trxn_extn parameters',
302: 'p_order_header_id = '||p_order_header_id);
297: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
298: fnd_log.STRING (fnd_log.level_statement,g_module_current||'.get_cc_trxn_extn parameters',
299: 'p_context_level = '||p_context_level);
300:
301: fnd_log.STRING (fnd_log.level_statement,g_module_current||'.get_cc_trxn_extn parameters',
302: 'p_order_header_id = '||p_order_header_id);
303:
304: fnd_log.STRING (fnd_log.level_statement,g_module_current||'.get_cc_trxn_extn parameters',
305: 'p_order_line_id = '||p_order_line_id);
300:
301: fnd_log.STRING (fnd_log.level_statement,g_module_current||'.get_cc_trxn_extn parameters',
302: 'p_order_header_id = '||p_order_header_id);
303:
304: fnd_log.STRING (fnd_log.level_statement,g_module_current||'.get_cc_trxn_extn parameters',
305: 'p_order_line_id = '||p_order_line_id);
306:
307: fnd_log.STRING (fnd_log.level_statement,g_module_current||'.get_cc_trxn_extn parameters',
308: 'p_contract_hdr_id = '||p_contract_hdr_id);
303:
304: fnd_log.STRING (fnd_log.level_statement,g_module_current||'.get_cc_trxn_extn parameters',
305: 'p_order_line_id = '||p_order_line_id);
306:
307: fnd_log.STRING (fnd_log.level_statement,g_module_current||'.get_cc_trxn_extn parameters',
308: 'p_contract_hdr_id = '||p_contract_hdr_id);
309:
310: fnd_log.STRING (fnd_log.level_statement,g_module_current||'.get_cc_trxn_extn parameters',
311: 'p_contract_line_id = '||p_contract_line_id);
306:
307: fnd_log.STRING (fnd_log.level_statement,g_module_current||'.get_cc_trxn_extn parameters',
308: 'p_contract_hdr_id = '||p_contract_hdr_id);
309:
310: fnd_log.STRING (fnd_log.level_statement,g_module_current||'.get_cc_trxn_extn parameters',
311: 'p_contract_line_id = '||p_contract_line_id);
312: END IF;
313:
314: IF p_context_level = G_CONTEXT_ORDER_HEADER THEN
332:
333: -- For a transaction extension id, an instrument assignment id
334: -- should always exist in iPayments.
335: IF l_instr_id IS NULL THEN
336: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
337: IF p_context_level = G_CONTEXT_ORDER_HEADER THEN
338: fnd_log.STRING (fnd_log.level_error,
339: g_module_current
340: || '.get_cc_trxn_extn-Header.ERROR',
334: -- should always exist in iPayments.
335: IF l_instr_id IS NULL THEN
336: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
337: IF p_context_level = G_CONTEXT_ORDER_HEADER THEN
338: fnd_log.STRING (fnd_log.level_error,
339: g_module_current
340: || '.get_cc_trxn_extn-Header.ERROR',
341: 'After CURSOR - c_InstrId'
342: || ' ,Payment Txn ID = '
344: || ' ,p_order_header_id = '
345: || p_order_header_id
346: );
347: ELSE
348: fnd_log.STRING (fnd_log.level_error,
349: g_module_current
350: || '.get_cc_trxn_extn-Line.ERROR',
351: 'After CURSOR - c_InstrId'
352: || ' ,Payment Txn ID = '
394:
395: l_trxnextension_rec.originating_application_id := g_app_id;
396: l_trxnextension_rec.trxn_ref_number1 := TO_CHAR (SYSDATE, 'ddmmyyyyhhmmssss');
397:
398: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
399: IF p_context_level = G_CONTEXT_ORDER_HEADER THEN
400: fnd_log.STRING(fnd_log.level_statement,g_module_current,' ');
401: fnd_log.STRING(
402: fnd_log.level_statement,
396: l_trxnextension_rec.trxn_ref_number1 := TO_CHAR (SYSDATE, 'ddmmyyyyhhmmssss');
397:
398: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
399: IF p_context_level = G_CONTEXT_ORDER_HEADER THEN
400: fnd_log.STRING(fnd_log.level_statement,g_module_current,' ');
401: fnd_log.STRING(
402: fnd_log.level_statement,
403: g_module_current || '.get_cc_trxn_extn-Header',
404: 'Before call to IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension for order header'
397:
398: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
399: IF p_context_level = G_CONTEXT_ORDER_HEADER THEN
400: fnd_log.STRING(fnd_log.level_statement,g_module_current,' ');
401: fnd_log.STRING(
402: fnd_log.level_statement,
403: g_module_current || '.get_cc_trxn_extn-Header',
404: 'Before call to IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension for order header'
405: || ' ,Party_Id = '
398: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
399: IF p_context_level = G_CONTEXT_ORDER_HEADER THEN
400: fnd_log.STRING(fnd_log.level_statement,g_module_current,' ');
401: fnd_log.STRING(
402: fnd_log.level_statement,
403: g_module_current || '.get_cc_trxn_extn-Header',
404: 'Before call to IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension for order header'
405: || ' ,Party_Id = '
406: || l_payercontext_rec.party_id
414: || l_instr_id
415: || ' ,application_id= '
416: || l_trxnextension_rec.originating_application_id
417: );
418: fnd_log.STRING(fnd_log.level_statement,g_module_current,' ');
419: ELSE
420: fnd_log.STRING(fnd_log.level_statement,g_module_current,' ');
421: fnd_log.STRING
422: (fnd_log.level_statement,
416: || l_trxnextension_rec.originating_application_id
417: );
418: fnd_log.STRING(fnd_log.level_statement,g_module_current,' ');
419: ELSE
420: fnd_log.STRING(fnd_log.level_statement,g_module_current,' ');
421: fnd_log.STRING
422: (fnd_log.level_statement,
423: g_module_current || '.get_cc_trxn_extn-Line',
424: 'Before call to IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension for order line'
417: );
418: fnd_log.STRING(fnd_log.level_statement,g_module_current,' ');
419: ELSE
420: fnd_log.STRING(fnd_log.level_statement,g_module_current,' ');
421: fnd_log.STRING
422: (fnd_log.level_statement,
423: g_module_current || '.get_cc_trxn_extn-Line',
424: 'Before call to IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension for order line'
425: || ' ,Party_Id = '
418: fnd_log.STRING(fnd_log.level_statement,g_module_current,' ');
419: ELSE
420: fnd_log.STRING(fnd_log.level_statement,g_module_current,' ');
421: fnd_log.STRING
422: (fnd_log.level_statement,
423: g_module_current || '.get_cc_trxn_extn-Line',
424: 'Before call to IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension for order line'
425: || ' ,Party_Id = '
426: || l_payercontext_rec.party_id
434: || l_instr_id
435: || ' ,application_id= '
436: || l_trxnextension_rec.originating_application_id
437: );
438: fnd_log.STRING(fnd_log.level_statement,g_module_current,' ');
439: END IF;
440: END IF;
441:
442: -- A payer equivalency level of full is provided for iPayments to be
459: x_response => l_response
460: );
461:
462: IF l_return_status <> 'S' THEN
463: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
464: IF p_context_level = G_CONTEXT_ORDER_HEADER THEN
465: fnd_log.STRING
466: (fnd_log.level_error,
467: g_module_current || '.get_cc_trxn_extn-Header.ERROR',
461:
462: IF l_return_status <> 'S' THEN
463: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
464: IF p_context_level = G_CONTEXT_ORDER_HEADER THEN
465: fnd_log.STRING
466: (fnd_log.level_error,
467: g_module_current || '.get_cc_trxn_extn-Header.ERROR',
468: 'After call to IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension'
469: || ' ,x_return_status= '
462: IF l_return_status <> 'S' THEN
463: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
464: IF p_context_level = G_CONTEXT_ORDER_HEADER THEN
465: fnd_log.STRING
466: (fnd_log.level_error,
467: g_module_current || '.get_cc_trxn_extn-Header.ERROR',
468: 'After call to IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension'
469: || ' ,x_return_status= '
470: || l_return_status
475: || ' ,Result Message= '
476: || l_response.result_message
477: );
478: ELSE
479: fnd_log.STRING
480: (fnd_log.level_error,
481: g_module_current || '.get_cc_trxn_extn-Line.ERROR',
482: 'After call to IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension'
483: || ' ,x_return_status= '
476: || l_response.result_message
477: );
478: ELSE
479: fnd_log.STRING
480: (fnd_log.level_error,
481: g_module_current || '.get_cc_trxn_extn-Line.ERROR',
482: 'After call to IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension'
483: || ' ,x_return_status= '
484: || l_return_status
506: END IF;
507: RAISE g_exception_halt_validation;
508: END IF;
509:
510: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
511: fnd_log.STRING (fnd_log.level_statement,
512: g_module_current||'.get_cc_trxn_extn ',
513: 'l_entity_id = '||l_entity_id);
514: END IF;
507: RAISE g_exception_halt_validation;
508: END IF;
509:
510: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
511: fnd_log.STRING (fnd_log.level_statement,
512: g_module_current||'.get_cc_trxn_extn ',
513: 'l_entity_id = '||l_entity_id);
514: END IF;
515:
548: g_sqlerrm_token,
549: SQLERRM
550: );
551:
552: IF fnd_log.level_unexpected >= fnd_log.g_current_runtime_level THEN
553: IF p_context_level = G_CONTEXT_ORDER_HEADER THEN
554: fnd_log.STRING (fnd_log.level_unexpected,
555: g_module_current
556: || '.get_cc_trxn_extn-Header.UNEXPECTED',
550: );
551:
552: IF fnd_log.level_unexpected >= fnd_log.g_current_runtime_level THEN
553: IF p_context_level = G_CONTEXT_ORDER_HEADER THEN
554: fnd_log.STRING (fnd_log.level_unexpected,
555: g_module_current
556: || '.get_cc_trxn_extn-Header.UNEXPECTED',
557: ' sqlcode = ' || SQLCODE || ', sqlerrm = '
558: || SQLERRM
557: ' sqlcode = ' || SQLCODE || ', sqlerrm = '
558: || SQLERRM
559: );
560: ELSE
561: fnd_log.STRING (fnd_log.level_unexpected,
562: g_module_current
563: || '.get_cc_trxn_extn-Line.UNEXPECTED',
564: ' sqlcode = ' || SQLCODE || ', sqlerrm = '
565: || SQLERRM
621: INTO l_roleid;
622:
623: CLOSE l_party_csr;
624:
625: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
626: THEN
627: fnd_log.STRING (fnd_log.level_statement,
628: g_module_current || '.PARTY_ROLE',
629: 'Party Role Id = ' || l_roleid
623: CLOSE l_party_csr;
624:
625: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
626: THEN
627: fnd_log.STRING (fnd_log.level_statement,
628: g_module_current || '.PARTY_ROLE',
629: 'Party Role Id = ' || l_roleid
630: );
631: END IF;
671: p_cplv_tbl => l_cplv_tbl_in,
672: x_cplv_tbl => l_cplv_tbl_out
673: );
674:
675: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
676: THEN
677: fnd_log.STRING
678: (fnd_log.level_event,
679: g_module_current || '.PARTY_ROLE.external_call.after',
673: );
674:
675: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
676: THEN
677: fnd_log.STRING
678: (fnd_log.level_event,
679: g_module_current || '.PARTY_ROLE.external_call.after',
680: 'okc_contract_party_pub.create_k_party_role(Return status ='
681: || l_return_status
674:
675: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
676: THEN
677: fnd_log.STRING
678: (fnd_log.level_event,
679: g_module_current || '.PARTY_ROLE.external_call.after',
680: 'okc_contract_party_pub.create_k_party_role(Return status ='
681: || l_return_status
682: || ')'
1665: p_clev_tbl => l_clev_tbl_in,
1666: x_clev_tbl => l_clev_tbl_out
1667: );
1668:
1669: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
1670: THEN
1671: fnd_log.STRING
1672: (fnd_log.level_event,
1673: g_module_current || '.Update_Line_Dates.external_call.after',
1667: );
1668:
1669: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
1670: THEN
1671: fnd_log.STRING
1672: (fnd_log.level_event,
1673: g_module_current || '.Update_Line_Dates.external_call.after',
1674: 'okc_contract_pub.update_contract_line(Return status = '
1675: || l_return_status
1668:
1669: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
1670: THEN
1671: fnd_log.STRING
1672: (fnd_log.level_event,
1673: g_module_current || '.Update_Line_Dates.external_call.after',
1674: 'okc_contract_pub.update_contract_line(Return status = '
1675: || l_return_status
1676: || ')'
1698: g_sqlerrm_token,
1699: SQLERRM
1700: );
1701:
1702: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level
1703: THEN
1704: fnd_log.STRING (fnd_log.level_exception,
1705: g_module_current
1706: || '.Update_Line_Dates.UNEXPECTED',
1700: );
1701:
1702: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level
1703: THEN
1704: fnd_log.STRING (fnd_log.level_exception,
1705: g_module_current
1706: || '.Update_Line_Dates.UNEXPECTED',
1707: 'sqlcode = ' || SQLCODE || ', sqlerrm = '
1708: || SQLERRM
1750: p_crjv_tbl => l_crjv_tbl_in,
1751: x_crjv_tbl => l_crjv_tbl_out
1752: );
1753:
1754: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
1755: THEN
1756: fnd_log.STRING
1757: (fnd_log.level_event,
1758: g_module_current
1752: );
1753:
1754: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
1755: THEN
1756: fnd_log.STRING
1757: (fnd_log.level_event,
1758: g_module_current
1759: || '.Create_Obj_Rel.external_call_hdr.after',
1760: 'okc_k_rel_objs_pub.create_row(Return status = '
1753:
1754: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
1755: THEN
1756: fnd_log.STRING
1757: (fnd_log.level_event,
1758: g_module_current
1759: || '.Create_Obj_Rel.external_call_hdr.after',
1760: 'okc_k_rel_objs_pub.create_row(Return status = '
1761: || l_return_status
1786: p_crjv_tbl => l_crjv_tbl_in,
1787: x_crjv_tbl => l_crjv_tbl_out
1788: );
1789:
1790: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
1791: THEN
1792: fnd_log.STRING
1793: (fnd_log.level_event,
1794: g_module_current
1788: );
1789:
1790: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
1791: THEN
1792: fnd_log.STRING
1793: (fnd_log.level_event,
1794: g_module_current
1795: || '.Create_Obj_Rel.external_call_line.after',
1796: 'okc_k_rel_objs_pub.create_row(Return status = '
1789:
1790: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
1791: THEN
1792: fnd_log.STRING
1793: (fnd_log.level_event,
1794: g_module_current
1795: || '.Create_Obj_Rel.external_call_line.after',
1796: 'okc_k_rel_objs_pub.create_row(Return status = '
1797: || l_return_status
1933: p_chrv_tbl => l_chrv_tbl_in,
1934: x_chrv_tbl => l_chrv_tbl_out
1935: );
1936:
1937: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
1938: THEN
1939: fnd_log.STRING
1940: (fnd_log.level_event,
1941: g_module_current || '.Update_Hdr_Dates.external_call.after',
1935: );
1936:
1937: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
1938: THEN
1939: fnd_log.STRING
1940: (fnd_log.level_event,
1941: g_module_current || '.Update_Hdr_Dates.external_call.after',
1942: 'okc_contract_pub.update_contract_header(Return status = '
1943: || l_return_status
1936:
1937: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
1938: THEN
1939: fnd_log.STRING
1940: (fnd_log.level_event,
1941: g_module_current || '.Update_Hdr_Dates.external_call.after',
1942: 'okc_contract_pub.update_contract_header(Return status = '
1943: || l_return_status
1944: || ')'
2078: p_clev_tbl => l_clev_tbl_in,
2079: x_clev_tbl => l_clev_tbl_out
2080: );
2081:
2082: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
2083: THEN
2084: fnd_log.STRING
2085: (fnd_log.level_event,
2086: g_module_current
2080: );
2081:
2082: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
2083: THEN
2084: fnd_log.STRING
2085: (fnd_log.level_event,
2086: g_module_current
2087: || '.update_contract_line.external_call.after',
2088: 'okc_contract_pub.update_contract_line(Return status = '
2081:
2082: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
2083: THEN
2084: fnd_log.STRING
2085: (fnd_log.level_event,
2086: g_module_current
2087: || '.update_contract_line.external_call.after',
2088: 'okc_contract_pub.update_contract_line(Return status = '
2089: || l_return_status
2118: p_clev_tbl => l_clev_tbl_in,
2119: x_clev_tbl => l_clev_tbl_out
2120: );
2121:
2122: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
2123: THEN
2124: fnd_log.STRING
2125: (fnd_log.level_event,
2126: g_module_current || '.Update_Cov_level.external_call.after',
2120: );
2121:
2122: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
2123: THEN
2124: fnd_log.STRING
2125: (fnd_log.level_event,
2126: g_module_current || '.Update_Cov_level.external_call.after',
2127: 'okc_contract_pub.update_contract_line(Return status = '
2128: || l_return_status
2121:
2122: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
2123: THEN
2124: fnd_log.STRING
2125: (fnd_log.level_event,
2126: g_module_current || '.Update_Cov_level.external_call.after',
2127: 'okc_contract_pub.update_contract_line(Return status = '
2128: || l_return_status
2129: || ')'
2151: p_cimv_tbl => l_cimv_tbl_in,
2152: x_cimv_tbl => l_cimv_tbl_out
2153: );
2154:
2155: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
2156: THEN
2157: fnd_log.STRING
2158: (fnd_log.level_event,
2159: g_module_current || '.Update_Cov_level.external_call.after',
2153: );
2154:
2155: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
2156: THEN
2157: fnd_log.STRING
2158: (fnd_log.level_event,
2159: g_module_current || '.Update_Cov_level.external_call.after',
2160: 'okc_contract_item_pub.update_contract_item(Return status = '
2161: || l_return_status
2154:
2155: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
2156: THEN
2157: fnd_log.STRING
2158: (fnd_log.level_event,
2159: g_module_current || '.Update_Cov_level.external_call.after',
2160: 'okc_contract_item_pub.update_contract_item(Return status = '
2161: || l_return_status
2162: || ')'
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,
2438: g_module_current || '.Create_K_Hdr.begin',
2439: 'Merge Type = '
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,
2438: g_module_current || '.Create_K_Hdr.begin',
2439: 'Merge Type = '
2440: || p_k_header_rec.merge_type
2441: || 'Merge Id'
2457: p_enddate => p_k_header_rec.end_date
2458: );
2459: END IF;
2460:
2461: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
2462: THEN
2463: fnd_log.STRING (fnd_log.level_statement,
2464: g_module_current || '.Create_K_Hdr',
2465: 'Chr id = ' || l_chrid
2459: END IF;
2460:
2461: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
2462: THEN
2463: fnd_log.STRING (fnd_log.level_statement,
2464: g_module_current || '.Create_K_Hdr',
2465: 'Chr id = ' || l_chrid
2466: );
2467: END IF;
2474: INTO l_sts_code;
2475:
2476: CLOSE l_sts_csr;
2477:
2478: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
2479: THEN
2480: fnd_log.STRING (fnd_log.level_statement,
2481: g_module_current || '.Create_K_Hdr',
2482: 'Status code = ' || l_sts_code
2476: CLOSE l_sts_csr;
2477:
2478: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
2479: THEN
2480: fnd_log.STRING (fnd_log.level_statement,
2481: g_module_current || '.Create_K_Hdr',
2482: 'Status code = ' || l_sts_code
2483: );
2484: END IF;
2614: p_chrv_tbl => l_chrv_tbl_in,
2615: x_chrv_tbl => l_chrv_tbl_out
2616: );
2617:
2618: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
2619: THEN
2620: fnd_log.STRING
2621: (fnd_log.level_event,
2622: g_module_current || '.Create_K_Hdr.external_call.after',
2616: );
2617:
2618: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
2619: THEN
2620: fnd_log.STRING
2621: (fnd_log.level_event,
2622: g_module_current || '.Create_K_Hdr.external_call.after',
2623: 'okc_contract_pub.create_contract_header(Return Status = '
2624: || l_return_status
2617:
2618: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
2619: THEN
2620: fnd_log.STRING
2621: (fnd_log.level_event,
2622: g_module_current || '.Create_K_Hdr.external_call.after',
2623: 'okc_contract_pub.create_contract_header(Return Status = '
2624: || l_return_status
2625: || ')'
2643: p_msg_index_out => l_ind
2644: );
2645: x_order_error := x_order_error || l_msg_data || '#';
2646:
2647: IF (g_fnd_log_option = 'Y')
2648: THEN
2649: fnd_message.set_encoded (l_msg_data);
2650: l_msg_data := fnd_message.get;
2651: fnd_file.put_line
2695: p_data => l_msg_data,
2696: p_msg_index_out => l_ind
2697: );
2698:
2699: IF (g_fnd_log_option = 'Y') THEN
2700: fnd_message.set_encoded (l_msg_data);
2701: l_msg_data := fnd_message.get;
2702: fnd_file.put_line
2703: (fnd_file.LOG,
2710: END IF;
2711: END IF;
2712:
2713:
2714: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
2715: THEN
2716: fnd_log.STRING (fnd_log.level_statement,
2717: g_module_current || '.Create_K_Hdr.oks_header_rules',
2718: 'Accounting id = '
2712:
2713:
2714: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
2715: THEN
2716: fnd_log.STRING (fnd_log.level_statement,
2717: g_module_current || '.Create_K_Hdr.oks_header_rules',
2718: 'Accounting id = '
2719: || p_k_header_rec.accounting_rule_id
2720: || ',renewal type = '
2725: || p_k_header_rec.renewal_po
2726: || ',ren price list = '
2727: || p_k_header_rec.renewal_price_list_id
2728: );
2729: fnd_log.STRING (fnd_log.level_statement,
2730: g_module_current || '.Create_K_Hdr.oks_header_rules',
2731: 'ren markup = '
2732: || p_k_header_rec.renewal_markup
2733: || ',qto contact = '
2854:
2855: --
2856:
2857: --Added in R12 by rsu
2858: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2859: THEN
2860: fnd_log.STRING (fnd_log.level_statement,
2861: g_module_current || '.Create_K_Hdr',
2862: 'Before calling oks_contract_hdr_pub.create_header'
2856:
2857: --Added in R12 by rsu
2858: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2859: THEN
2860: fnd_log.STRING (fnd_log.level_statement,
2861: g_module_current || '.Create_K_Hdr',
2862: 'Before calling oks_contract_hdr_pub.create_header'
2863: );
2864: fnd_log.STRING (fnd_log.level_statement,
2860: fnd_log.STRING (fnd_log.level_statement,
2861: g_module_current || '.Create_K_Hdr',
2862: 'Before calling oks_contract_hdr_pub.create_header'
2863: );
2864: fnd_log.STRING (fnd_log.level_statement,
2865: g_module_current || '.Create_K_Hdr',
2866: 'p_k_header_rec.tax_classification_code: '
2867: || p_k_header_rec.tax_classification_code
2868: );
2865: g_module_current || '.Create_K_Hdr',
2866: 'p_k_header_rec.tax_classification_code: '
2867: || p_k_header_rec.tax_classification_code
2868: );
2869: fnd_log.STRING (fnd_log.level_statement,
2870: g_module_current || '.Create_K_Hdr',
2871: 'p_k_header_rec.exemption_certificate_number: '
2872: || p_k_header_rec.exemption_certificate_number
2873: );
2870: g_module_current || '.Create_K_Hdr',
2871: 'p_k_header_rec.exemption_certificate_number: '
2872: || p_k_header_rec.exemption_certificate_number
2873: );
2874: fnd_log.STRING (fnd_log.level_statement,
2875: g_module_current || '.Create_K_Hdr',
2876: 'p_k_header_rec.exemption_reason_code: '
2877: || p_k_header_rec.exemption_reason_code
2878: );
2875: g_module_current || '.Create_K_Hdr',
2876: 'p_k_header_rec.exemption_reason_code: '
2877: || p_k_header_rec.exemption_reason_code
2878: );
2879: fnd_log.STRING (fnd_log.level_statement,
2880: g_module_current || '.Create_K_Hdr',
2881: 'p_k_header_rec.tax_status_flag: '
2882: || p_k_header_rec.tax_status_flag
2883: );
2899: x_khrv_tbl => l_khrv_tbl_out,
2900: p_validate_yn => 'N'
2901: );
2902:
2903: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
2904: THEN
2905: fnd_log.STRING
2906: (fnd_log.level_event,
2907: g_module_current || '.Create_K_Hdr.external_call.after',
2901: );
2902:
2903: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
2904: THEN
2905: fnd_log.STRING
2906: (fnd_log.level_event,
2907: g_module_current || '.Create_K_Hdr.external_call.after',
2908: ' oks_contract_hdr_pub.create_header(Return Status = '
2909: || l_return_status
2902:
2903: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
2904: THEN
2905: fnd_log.STRING
2906: (fnd_log.level_event,
2907: g_module_current || '.Create_K_Hdr.external_call.after',
2908: ' oks_contract_hdr_pub.create_header(Return Status = '
2909: || l_return_status
2910: || ')'
2926: p_msg_index_out => l_ind
2927: );
2928: x_order_error := x_order_error || l_msg_data || '#';
2929:
2930: IF (g_fnd_log_option = 'Y')
2931: THEN
2932: fnd_message.set_encoded (l_msg_data);
2933: l_msg_data := fnd_message.get;
2934: fnd_file.put_line
2979: x_msg_data => x_msg_data,
2980: x_return_status => l_return_status
2981: );
2982:
2983: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
2984: THEN
2985: fnd_log.STRING (fnd_log.level_event,
2986: g_module_current
2987: || '.Create_K_Hdr.Internal_call.after',
2981: );
2982:
2983: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
2984: THEN
2985: fnd_log.STRING (fnd_log.level_event,
2986: g_module_current
2987: || '.Create_K_Hdr.Internal_call.after',
2988: ' Party_role for Vendor(Return Status = '
2989: || l_return_status
3009: x_msg_data => x_msg_data,
3010: x_return_status => l_return_status
3011: );
3012:
3013: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
3014: THEN
3015: fnd_log.STRING (fnd_log.level_event,
3016: g_module_current
3017: || '.Create_K_Hdr.Internal_call.after',
3011: );
3012:
3013: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
3014: THEN
3015: fnd_log.STRING (fnd_log.level_event,
3016: g_module_current
3017: || '.Create_K_Hdr.Internal_call.after',
3018: ' Party_role for Customer(Return Status = '
3019: || l_return_status
3039: x_msg_data => x_msg_data,
3040: x_return_status => l_return_status
3041: );
3042:
3043: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
3044: THEN
3045: fnd_log.STRING (fnd_log.level_event,
3046: g_module_current
3047: || '.Create_K_Hdr.Internal_call.after',
3041: );
3042:
3043: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
3044: THEN
3045: fnd_log.STRING (fnd_log.level_event,
3046: g_module_current
3047: || '.Create_K_Hdr.Internal_call.after',
3048: ' Party_role for Merchant(Return Status = '
3049: || l_return_status
3069: x_msg_data => x_msg_data,
3070: x_return_status => l_return_status
3071: );
3072:
3073: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
3074: THEN
3075: fnd_log.STRING (fnd_log.level_event,
3076: g_module_current
3077: || '.Create_K_Hdr.Internal_call.after',
3071: );
3072:
3073: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
3074: THEN
3075: fnd_log.STRING (fnd_log.level_event,
3076: g_module_current
3077: || '.Create_K_Hdr.Internal_call.after',
3078: ' Party_role for Subscriber(Return Status = '
3079: || l_return_status
3132: x_msg_data => x_msg_data,
3133: x_return_status => l_return_status
3134: );
3135:
3136: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
3137: THEN
3138: fnd_log.STRING
3139: (fnd_log.level_event,
3140: g_module_current
3134: );
3135:
3136: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
3137: THEN
3138: fnd_log.STRING
3139: (fnd_log.level_event,
3140: g_module_current
3141: || '.Create_K_Hdr.Internal_call.after',
3142: ' Party_role for Third Party(Return Status = '
3135:
3136: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
3137: THEN
3138: fnd_log.STRING
3139: (fnd_log.level_event,
3140: g_module_current
3141: || '.Create_K_Hdr.Internal_call.after',
3142: ' Party_role for Third Party(Return Status = '
3143: || l_return_status
3157: ---Creating Vendor Contact
3158:
3159: -- Fix for the Bug3557612
3160: -- Create vendor contact role if the profile option is not null
3161: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
3162: THEN
3163: fnd_log.STRING (fnd_log.level_statement,
3164: g_module_current
3165: || '.Create_K_Hdr.before_vendor_contact',
3159: -- Fix for the Bug3557612
3160: -- Create vendor contact role if the profile option is not null
3161: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
3162: THEN
3163: fnd_log.STRING (fnd_log.level_statement,
3164: g_module_current
3165: || '.Create_K_Hdr.before_vendor_contact',
3166: ' Vendor contact profile option value = '
3167: || fnd_profile.VALUE ('OKS_VENDOR_CONTACT_ROLE')
3216: l_counter := l_counter + 1;
3217: l_count := l_count + 1;
3218: END LOOP;
3219:
3220: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
3221: THEN
3222: fnd_log.STRING (fnd_log.level_statement,
3223: g_module_current,
3224: 'Resource ID is : ' || l_derived_res_id
3218: END LOOP;
3219:
3220: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
3221: THEN
3222: fnd_log.STRING (fnd_log.level_statement,
3223: g_module_current,
3224: 'Resource ID is : ' || l_derived_res_id
3225: );
3226: END IF;
3310: p_ctcv_tbl => l_ctcv_tbl_in,
3311: x_ctcv_tbl => l_ctcv_tbl_out
3312: );
3313:
3314: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
3315: THEN
3316: fnd_log.STRING
3317: (fnd_log.level_event,
3318: g_module_current || '.Create_K_Hdr.External_call.after',
3312: );
3313:
3314: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
3315: THEN
3316: fnd_log.STRING
3317: (fnd_log.level_event,
3318: g_module_current || '.Create_K_Hdr.External_call.after',
3319: ' okc_contract_party_pub.create_contact(Return Status = '
3320: || l_return_status
3313:
3314: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
3315: THEN
3316: fnd_log.STRING
3317: (fnd_log.level_event,
3318: g_module_current || '.Create_K_Hdr.External_call.after',
3319: ' okc_contract_party_pub.create_contact(Return Status = '
3320: || l_return_status
3321: || ')'
3361: p_scrv_tbl => l_scrv_tbl_in,
3362: x_scrv_tbl => l_scrv_tbl_out
3363: );
3364:
3365: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
3366: THEN
3367: fnd_log.STRING
3368: (fnd_log.level_event,
3369: g_module_current || '.Create_K_Hdr.external_call.after',
3363: );
3364:
3365: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
3366: THEN
3367: fnd_log.STRING
3368: (fnd_log.level_event,
3369: g_module_current || '.Create_K_Hdr.external_call.after',
3370: 'oks_sales_credit_pub.insert_sales_credit(Return status = '
3371: || l_return_status
3364:
3365: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
3366: THEN
3367: fnd_log.STRING
3368: (fnd_log.level_event,
3369: g_module_current || '.Create_K_Hdr.external_call.after',
3370: 'oks_sales_credit_pub.insert_sales_credit(Return status = '
3371: || l_return_status
3372: || ')'
3397:
3398: LOOP
3399: l_ctcv_tbl_in.DELETE;
3400:
3401: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
3402: THEN
3403: fnd_log.STRING (fnd_log.level_statement,
3404: g_module_current
3405: || '.Create_K_Hdr.contact creation',
3399: l_ctcv_tbl_in.DELETE;
3400:
3401: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
3402: THEN
3403: fnd_log.STRING (fnd_log.level_statement,
3404: g_module_current
3405: || '.Create_K_Hdr.contact creation',
3406: ' Party Role = '
3407: || p_contact_tbl (i).party_role
3426:
3427: CLOSE l_ra_hcontacts_cur;
3428:
3429: --if l_findparty_id = l_thirdparty_id Then
3430: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
3431: THEN
3432: fnd_log.STRING (fnd_log.level_statement,
3433: g_module_current
3434: || '.Create_K_Hdr.contact creation',
3428:
3429: --if l_findparty_id = l_thirdparty_id Then
3430: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
3431: THEN
3432: fnd_log.STRING (fnd_log.level_statement,
3433: g_module_current
3434: || '.Create_K_Hdr.contact creation',
3435: ' Third Party = '
3436: || l_thirdparty_id
3464: );
3465: RAISE g_exception_halt_validation;
3466: END IF;
3467:
3468: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
3469: THEN
3470: fnd_log.STRING (fnd_log.level_statement,
3471: g_module_current
3472: || '.Create_K_Hdr.contact creation',
3466: END IF;
3467:
3468: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
3469: THEN
3470: fnd_log.STRING (fnd_log.level_statement,
3471: g_module_current
3472: || '.Create_K_Hdr.contact creation',
3473: ' FLAG = '
3474: || p_contact_tbl (i).flag
3507: p_ctcv_tbl => l_ctcv_tbl_in,
3508: x_ctcv_tbl => l_ctcv_tbl_out
3509: );
3510:
3511: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
3512: THEN
3513: fnd_log.STRING
3514: (fnd_log.level_event,
3515: g_module_current || '.Create_K_Hdr.external_call.after',
3509: );
3510:
3511: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
3512: THEN
3513: fnd_log.STRING
3514: (fnd_log.level_event,
3515: g_module_current || '.Create_K_Hdr.external_call.after',
3516: 'okc_contract_party_pub.create_contact(Return status = '
3517: || l_return_status
3510:
3511: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
3512: THEN
3513: fnd_log.STRING
3514: (fnd_log.level_event,
3515: g_module_current || '.Create_K_Hdr.external_call.after',
3516: 'okc_contract_party_pub.create_contact(Return status = '
3517: || l_return_status
3518: || ')'
3561: p_cgcv_tbl => l_cgcv_tbl_in,
3562: x_cgcv_tbl => l_cgcv_tbl_out
3563: );
3564:
3565: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
3566: THEN
3567: fnd_log.STRING
3568: (fnd_log.level_event,
3569: g_module_current || '.Create_K_Hdr.external_call.after',
3563: );
3564:
3565: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
3566: THEN
3567: fnd_log.STRING
3568: (fnd_log.level_event,
3569: g_module_current || '.Create_K_Hdr.external_call.after',
3570: 'okc_contract_group_pub.create_contract_grpngs(Return status = '
3571: || l_return_status
3564:
3565: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
3566: THEN
3567: fnd_log.STRING
3568: (fnd_log.level_event,
3569: g_module_current || '.Create_K_Hdr.external_call.after',
3570: 'okc_contract_group_pub.create_contract_grpngs(Return status = '
3571: || l_return_status
3572: || ')'
3606: p_cpsv_tbl => l_cpsv_tbl_in,
3607: x_cpsv_tbl => l_cpsv_tbl_out
3608: );
3609:
3610: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
3611: THEN
3612: fnd_log.STRING
3613: (fnd_log.level_event,
3614: g_module_current || '.Create_K_Hdr.external_call.after',
3608: );
3609:
3610: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
3611: THEN
3612: fnd_log.STRING
3613: (fnd_log.level_event,
3614: g_module_current || '.Create_K_Hdr.external_call.after',
3615: 'okc_contract_pub.create_contract_process(Return status = '
3616: || l_return_status
3609:
3610: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
3611: THEN
3612: fnd_log.STRING
3613: (fnd_log.level_event,
3614: g_module_current || '.Create_K_Hdr.external_call.after',
3615: 'okc_contract_pub.create_contract_process(Return status = '
3616: || l_return_status
3617: || ')'
3647: p_gvev_tbl => l_gvev_tbl_in,
3648: x_gvev_tbl => l_gvev_tbl_out
3649: );
3650:
3651: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
3652: THEN
3653: fnd_log.STRING
3654: (fnd_log.level_event,
3655: g_module_current || '.Create_K_Hdr.external_call.after',
3649: );
3650:
3651: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
3652: THEN
3653: fnd_log.STRING
3654: (fnd_log.level_event,
3655: g_module_current || '.Create_K_Hdr.external_call.after',
3656: 'okc_contract_pub.create_governance(Return status = '
3657: || l_return_status
3650:
3651: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
3652: THEN
3653: fnd_log.STRING
3654: (fnd_log.level_event,
3655: g_module_current || '.Create_K_Hdr.external_call.after',
3656: 'okc_contract_pub.create_governance(Return status = '
3657: || l_return_status
3658: || ')'
3682: x_msg_data => x_msg_data,
3683: x_crjv_tbl_out => l_crjv_tbl_out
3684: );
3685:
3686: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
3687: THEN
3688: fnd_log.STRING (fnd_log.level_event,
3689: g_module_current
3690: || '.Create_K_Hdr.internal_call.after',
3684: );
3685:
3686: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
3687: THEN
3688: fnd_log.STRING (fnd_log.level_event,
3689: g_module_current
3690: || '.Create_K_Hdr.internal_call.after',
3691: 'create_obj_rel(Return status = '
3692: || l_return_status
3897: p_invserviceid => p_k_line_rec.srv_id,
3898: p_cle_tbl => p_cle_tbl
3899: );
3900:
3901: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
3902: THEN
3903: fnd_log.STRING (fnd_log.level_statement,
3904: g_module_current || '.Create_K_Service_Lines',
3905: ' Top Lines Count = ' || p_cle_tbl.COUNT
3899: );
3900:
3901: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
3902: THEN
3903: fnd_log.STRING (fnd_log.level_statement,
3904: g_module_current || '.Create_K_Service_Lines',
3905: ' Top Lines Count = ' || p_cle_tbl.COUNT
3906: );
3907: END IF;
3975: x_hdr_edt => l_hdredt,
3976: x_status => l_hdrstatus
3977: );
3978:
3979: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
3980: THEN
3981: fnd_log.STRING (fnd_log.level_event,
3982: g_module_current
3983: || '.Create_K_Service_Lines.internal_call.after',
3977: );
3978:
3979: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
3980: THEN
3981: fnd_log.STRING (fnd_log.level_event,
3982: g_module_current
3983: || '.Create_K_Service_Lines.internal_call.after',
3984: 'check_hdr_effectivity(Return status = '
3985: || l_hdrstatus
3995: g_sqlerrm_token,
3996: 'line dates are not within header effectivity'
3997: );
3998:
3999: IF fnd_log.level_error >= fnd_log.g_current_runtime_level
4000: THEN
4001: fnd_log.STRING (fnd_log.level_error,
4002: g_module_current
4003: || '.Create_K_Service_Lines.ERROR',
3997: );
3998:
3999: IF fnd_log.level_error >= fnd_log.g_current_runtime_level
4000: THEN
4001: fnd_log.STRING (fnd_log.level_error,
4002: g_module_current
4003: || '.Create_K_Service_Lines.ERROR',
4004: 'Line dates are not withen header effectivity'
4005: );
4035: x_msg_count => x_msg_count,
4036: x_msg_data => x_msg_data
4037: );
4038:
4039: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
4040: THEN
4041: fnd_log.STRING (fnd_log.level_event,
4042: g_module_current
4043: || '.Create_K_Service_Lines.internal_call.after',
4037: );
4038:
4039: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
4040: THEN
4041: fnd_log.STRING (fnd_log.level_event,
4042: g_module_current
4043: || '.Create_K_Service_Lines.internal_call.after',
4044: 'update_hdr_dates(Return status = '
4045: || l_return_status
4136: p_clev_tbl => l_clev_tbl_in,
4137: x_clev_tbl => l_clev_tbl_out
4138: );
4139:
4140: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
4141: THEN
4142: fnd_log.STRING
4143: (fnd_log.level_event,
4144: g_module_current
4138: );
4139:
4140: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
4141: THEN
4142: fnd_log.STRING
4143: (fnd_log.level_event,
4144: g_module_current
4145: || '.Create_K_Service_Lines.External_call.after',
4146: 'okc_contract_pub.create_contract_line(Return status = '
4139:
4140: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
4141: THEN
4142: fnd_log.STRING
4143: (fnd_log.level_event,
4144: g_module_current
4145: || '.Create_K_Service_Lines.External_call.after',
4146: 'okc_contract_pub.create_contract_line(Return status = '
4147: || l_return_status
4165: p_msg_index_out => l_ind
4166: );
4167: x_order_error := x_order_error || l_msg_data || '#';
4168:
4169: IF (g_fnd_log_option = 'Y')
4170: THEN
4171: fnd_message.set_encoded (l_msg_data);
4172: l_msg_data := fnd_message.get;
4173: fnd_file.put_line
4189: RAISE g_exception_halt_validation;
4190: END IF;
4191: END IF;
4192:
4193: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
4194: THEN
4195: fnd_log.STRING (fnd_log.level_statement,
4196: g_module_current || '.Create_K_Service_Lines',
4197: 'Line Id= ' || l_line_id
4191: END IF;
4192:
4193: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
4194: THEN
4195: fnd_log.STRING (fnd_log.level_statement,
4196: g_module_current || '.Create_K_Service_Lines',
4197: 'Line Id= ' || l_line_id
4198: );
4199: END IF;
4227: p_data => l_msg_data,
4228: p_msg_index_out => l_ind
4229: );
4230:
4231: IF (g_fnd_log_option = 'Y') THEN
4232: fnd_message.set_encoded (l_msg_data);
4233: l_msg_data := fnd_message.get;
4234: fnd_file.put_line
4235: (fnd_file.LOG,
4244:
4245: -------------------------------------
4246: -- rules inserted by oks --IRT
4247: -------------------------------------
4248: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
4249: THEN
4250: fnd_log.STRING (fnd_log.level_statement,
4251: g_module_current || '.Create_K_Service_Lines',
4252: 'Accounting id = '
4246: -- rules inserted by oks --IRT
4247: -------------------------------------
4248: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
4249: THEN
4250: fnd_log.STRING (fnd_log.level_statement,
4251: g_module_current || '.Create_K_Service_Lines',
4252: 'Accounting id = '
4253: || p_k_line_rec.accounting_rule_id
4254: || ',Commitment id = '
4286: l_klnv_tbl_in (1).standard_cov_yn := p_k_line_rec.standard_cov_yn;
4287: l_klnv_tbl_in (1).price_uom := p_k_line_rec.price_uom;
4288:
4289: --Added in R12 by rsu
4290: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
4291: THEN
4292: fnd_log.STRING (fnd_log.level_statement,
4293: g_module_current || '.Create_K_Service_Lines',
4294: 'Before calling oks_contract_line_pub.create_line'
4288:
4289: --Added in R12 by rsu
4290: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
4291: THEN
4292: fnd_log.STRING (fnd_log.level_statement,
4293: g_module_current || '.Create_K_Service_Lines',
4294: 'Before calling oks_contract_line_pub.create_line'
4295: );
4296: fnd_log.STRING (fnd_log.level_statement,
4292: fnd_log.STRING (fnd_log.level_statement,
4293: g_module_current || '.Create_K_Service_Lines',
4294: 'Before calling oks_contract_line_pub.create_line'
4295: );
4296: fnd_log.STRING (fnd_log.level_statement,
4297: g_module_current || '.Create_K_Service_Lines',
4298: 'p_k_line_rec.tax_classification_code: '
4299: || p_k_line_rec.tax_classification_code
4300: );
4297: g_module_current || '.Create_K_Service_Lines',
4298: 'p_k_line_rec.tax_classification_code: '
4299: || p_k_line_rec.tax_classification_code
4300: );
4301: fnd_log.STRING (fnd_log.level_statement,
4302: g_module_current || '.Create_K_Service_Lines',
4303: 'p_k_line_rec.exempt_certificate_number: '
4304: || p_k_line_rec.exemption_certificate_number
4305: );
4302: g_module_current || '.Create_K_Service_Lines',
4303: 'p_k_line_rec.exempt_certificate_number: '
4304: || p_k_line_rec.exemption_certificate_number
4305: );
4306: fnd_log.STRING (fnd_log.level_statement,
4307: g_module_current || '.Create_K_Service_Lines',
4308: 'p_k_line_rec.exempt_reason_code: '
4309: || p_k_line_rec.exemption_reason_code
4310: );
4307: g_module_current || '.Create_K_Service_Lines',
4308: 'p_k_line_rec.exempt_reason_code: '
4309: || p_k_line_rec.exemption_reason_code
4310: );
4311: fnd_log.STRING (fnd_log.level_statement,
4312: g_module_current || '.Create_K_Service_Lines',
4313: 'p_k_line_rec.tax_status: '
4314: || p_k_line_rec.tax_status
4315: );
4351: p_msg_index_out => l_ind
4352: );
4353: x_order_error := x_order_error || l_msg_data || '#';
4354:
4355: IF (g_fnd_log_option = 'Y')
4356: THEN
4357: fnd_message.set_encoded (l_msg_data);
4358: l_msg_data := fnd_message.get;
4359: fnd_file.put_line
4375: RAISE g_exception_halt_validation;
4376: END IF;
4377: END IF;
4378:
4379: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
4380: THEN
4381: fnd_log.STRING
4382: (fnd_log.level_event,
4383: g_module_current
4377: END IF;
4378:
4379: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
4380: THEN
4381: fnd_log.STRING
4382: (fnd_log.level_event,
4383: g_module_current
4384: || '.Create_K_Service_Lines.external_call.after',
4385: 'oks_contract_line_pub.create_line (Return status = '
4378:
4379: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
4380: THEN
4381: fnd_log.STRING
4382: (fnd_log.level_event,
4383: g_module_current
4384: || '.Create_K_Service_Lines.external_call.after',
4385: 'oks_contract_line_pub.create_line (Return status = '
4386: || l_return_status
4394: x_timeunit => l_timeunits,
4395: x_return_status => l_return_status
4396: );
4397:
4398: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
4399: THEN
4400: fnd_log.STRING (fnd_log.level_event,
4401: g_module_current
4402: || '.Create_K_Service_Lines.external_call.after',
4396: );
4397:
4398: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
4399: THEN
4400: fnd_log.STRING (fnd_log.level_event,
4401: g_module_current
4402: || '.Create_K_Service_Lines.external_call.after',
4403: 'okc_time_util_pub.get_duration(Return status = '
4404: || l_return_status
4429: p_cimv_tbl => l_cimv_tbl_in,
4430: x_cimv_tbl => l_cimv_tbl_out
4431: );
4432:
4433: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
4434: THEN
4435: fnd_log.STRING
4436: (fnd_log.level_event,
4437: g_module_current || '.Create_K_Service_Lines.external_call.after',
4431: );
4432:
4433: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
4434: THEN
4435: fnd_log.STRING
4436: (fnd_log.level_event,
4437: g_module_current || '.Create_K_Service_Lines.external_call.after',
4438: 'okc_contract_item_pub.create_contract_item(Return status = '
4439: || l_return_status
4432:
4433: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
4434: THEN
4435: fnd_log.STRING
4436: (fnd_log.level_event,
4437: g_module_current || '.Create_K_Service_Lines.external_call.after',
4438: 'okc_contract_item_pub.create_contract_item(Return status = '
4439: || l_return_status
4440: || ')'
4480: p_scrv_tbl => l_scrv_tbl_in,
4481: x_scrv_tbl => l_scrv_tbl_out
4482: );
4483:
4484: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
4485: THEN
4486: fnd_log.STRING
4487: (fnd_log.level_event,
4488: g_module_current
4482: );
4483:
4484: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
4485: THEN
4486: fnd_log.STRING
4487: (fnd_log.level_event,
4488: g_module_current
4489: || '.Create_K_Service_Lines.external_call.after',
4490: 'oks_sales_credit_pub.insert_sales_credit(Return status = '
4483:
4484: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
4485: THEN
4486: fnd_log.STRING
4487: (fnd_log.level_event,
4488: g_module_current
4489: || '.Create_K_Service_Lines.external_call.after',
4490: 'oks_sales_credit_pub.insert_sales_credit(Return status = '
4491: || l_return_status
4547: x_msg_data => x_msg_data,
4548: x_return_status => l_return_status
4549: );
4550:
4551: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
4552: )
4553: THEN
4554: fnd_log.STRING
4555: (fnd_log.level_event,
4550:
4551: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
4552: )
4553: THEN
4554: fnd_log.STRING
4555: (fnd_log.level_event,
4556: g_module_current
4557: || '.Create_K_Service_Lines.contact_creation',
4558: 'party_role(Return status = '
4551: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
4552: )
4553: THEN
4554: fnd_log.STRING
4555: (fnd_log.level_event,
4556: g_module_current
4557: || '.Create_K_Service_Lines.contact_creation',
4558: 'party_role(Return status = '
4559: || l_return_status
4583: l_role := 'CUST_SHIPPING';
4584: l_obj := 'OKX_CONTSHIP';
4585: END IF;
4586:
4587: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
4588: THEN
4589: fnd_log.STRING (fnd_log.level_statement,
4590: g_module_current
4591: || '.Create_K_Service_Lines.before_contact',
4585: END IF;
4586:
4587: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
4588: THEN
4589: fnd_log.STRING (fnd_log.level_statement,
4590: g_module_current
4591: || '.Create_K_Service_Lines.before_contact',
4592: 'Line Party Id = '
4593: || l_lin_party_id
4650: x_msg_count => x_msg_count,
4651: x_msg_data => x_msg_data
4652: );
4653:
4654: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
4655: THEN
4656: fnd_log.STRING
4657: (fnd_log.level_event,
4658: g_module_current
4652: );
4653:
4654: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
4655: THEN
4656: fnd_log.STRING
4657: (fnd_log.level_event,
4658: g_module_current
4659: || '.Create_K_Service_Lines.after_coverage_ext',
4660: 'OKS_COVERAGES_PVT.Create_K_coverage_ext(Return status = '
4653:
4654: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
4655: THEN
4656: fnd_log.STRING
4657: (fnd_log.level_event,
4658: g_module_current
4659: || '.Create_K_Service_Lines.after_coverage_ext',
4660: 'OKS_COVERAGES_PVT.Create_K_coverage_ext(Return status = '
4661: || l_return_status
4684: RAISE g_exception_halt_validation;
4685: END IF;
4686: ELSIF p_k_line_rec.coverage_template_id IS NULL AND p_caller <> 'ST'
4687: THEN
4688: IF fnd_log.level_error >= fnd_log.g_current_runtime_level
4689: THEN
4690: fnd_log.STRING (fnd_log.level_error,
4691: g_module_current
4692: || '.Create_K_Service_Lines.ERROR',
4686: ELSIF p_k_line_rec.coverage_template_id IS NULL AND p_caller <> 'ST'
4687: THEN
4688: IF fnd_log.level_error >= fnd_log.g_current_runtime_level
4689: THEN
4690: fnd_log.STRING (fnd_log.level_error,
4691: g_module_current
4692: || '.Create_K_Service_Lines.ERROR',
4693: 'Coverage is not associated with '
4694: || p_k_line_rec.srv_id
4728: x_ctr_grp_id_template => l_ctr_grp_id_template,
4729: x_ctr_grp_id_instance => l_ctr_grp_id_instance
4730: );
4731:
4732: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
4733: THEN
4734: fnd_log.STRING
4735: (fnd_log.level_event,
4736: g_module_current
4730: );
4731:
4732: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
4733: THEN
4734: fnd_log.STRING
4735: (fnd_log.level_event,
4736: g_module_current
4737: || '.Create_K_Service_Lines.after_instantiate_counters',
4738: 'cs_counters_pub.autoinstantiate_counters(Return Status = '
4731:
4732: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
4733: THEN
4734: fnd_log.STRING
4735: (fnd_log.level_event,
4736: g_module_current
4737: || '.Create_K_Service_Lines.after_instantiate_counters',
4738: 'cs_counters_pub.autoinstantiate_counters(Return Status = '
4739: || l_return_status
4864: x_line_edt => l_line_edt,
4865: x_status => l_line_status
4866: );
4867:
4868: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
4869: THEN
4870: fnd_log.STRING (fnd_log.level_statement,
4871: g_module_current || '.Create_K_Covered_Levels',
4872: 'Check line effectivity status = ' || l_line_status
4866: );
4867:
4868: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
4869: THEN
4870: fnd_log.STRING (fnd_log.level_statement,
4871: g_module_current || '.Create_K_Covered_Levels',
4872: 'Check line effectivity status = ' || l_line_status
4873: );
4874: END IF;
4874: END IF;
4875:
4876: IF l_line_status = 'E'
4877: THEN
4878: IF fnd_log.level_error >= fnd_log.g_current_runtime_level
4879: THEN
4880: fnd_log.STRING
4881: (fnd_log.level_error,
4882: g_module_current || '.Create_K_Covered_Levels.ERROR',
4876: IF l_line_status = 'E'
4877: THEN
4878: IF fnd_log.level_error >= fnd_log.g_current_runtime_level
4879: THEN
4880: fnd_log.STRING
4881: (fnd_log.level_error,
4882: g_module_current || '.Create_K_Covered_Levels.ERROR',
4883: 'Covered level Dates are not within Line effectivity'
4884: );
4877: THEN
4878: IF fnd_log.level_error >= fnd_log.g_current_runtime_level
4879: THEN
4880: fnd_log.STRING
4881: (fnd_log.level_error,
4882: g_module_current || '.Create_K_Covered_Levels.ERROR',
4883: 'Covered level Dates are not within Line effectivity'
4884: );
4885: END IF;
4902: x_hdr_edt => l_hdredt,
4903: x_status => l_hdrstatus
4904: );
4905:
4906: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
4907: THEN
4908: fnd_log.STRING (fnd_log.level_statement,
4909: g_module_current || '.Create_K_Covered_Levels',
4910: 'Check Header effectivity status = '
4904: );
4905:
4906: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
4907: THEN
4908: fnd_log.STRING (fnd_log.level_statement,
4909: g_module_current || '.Create_K_Covered_Levels',
4910: 'Check Header effectivity status = '
4911: || l_hdrstatus
4912: );
4913: END IF;
4914:
4915: IF l_hdrstatus = 'E'
4916: THEN
4917: IF fnd_log.level_error >= fnd_log.g_current_runtime_level
4918: THEN
4919: fnd_log.STRING (fnd_log.level_error,
4920: g_module_current || '.Create_K_Covered_Levels',
4921: 'Line Dates are not within Header effectivity'
4915: IF l_hdrstatus = 'E'
4916: THEN
4917: IF fnd_log.level_error >= fnd_log.g_current_runtime_level
4918: THEN
4919: fnd_log.STRING (fnd_log.level_error,
4920: g_module_current || '.Create_K_Covered_Levels',
4921: 'Line Dates are not within Header effectivity'
4922: );
4923: END IF;
4954: x_msg_count => x_msg_count,
4955: x_msg_data => x_msg_data
4956: );
4957:
4958: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
4959: THEN
4960: fnd_log.STRING
4961: (fnd_log.level_event,
4962: g_module_current
4956: );
4957:
4958: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
4959: THEN
4960: fnd_log.STRING
4961: (fnd_log.level_event,
4962: g_module_current
4963: || '.Create_K_Covered_Levels.afterupdatehdrdtaes',
4964: 'update_hdr_dates(Return status = '
4957:
4958: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
4959: THEN
4960: fnd_log.STRING
4961: (fnd_log.level_event,
4962: g_module_current
4963: || '.Create_K_Covered_Levels.afterupdatehdrdtaes',
4964: 'update_hdr_dates(Return status = '
4965: || l_return_status
4996: x_msg_count => x_msg_count,
4997: x_msg_data => x_msg_data
4998: );
4999:
5000: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
5001: THEN
5002: fnd_log.STRING
5003: (fnd_log.level_event,
5004: g_module_current
4998: );
4999:
5000: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
5001: THEN
5002: fnd_log.STRING
5003: (fnd_log.level_event,
5004: g_module_current
5005: || '.Create_K_Covered_Levels.after_update.line_dtaes',
5006: 'update_hdr_dates(Return status = '
4999:
5000: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
5001: THEN
5002: fnd_log.STRING
5003: (fnd_log.level_event,
5004: g_module_current
5005: || '.Create_K_Covered_Levels.after_update.line_dtaes',
5006: 'update_hdr_dates(Return status = '
5007: || l_return_status
5140: p_clev_tbl => l_clev_tbl_in,
5141: x_clev_tbl => l_clev_tbl_out
5142: );
5143:
5144: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
5145: THEN
5146: fnd_log.STRING
5147: (fnd_log.level_event,
5148: g_module_current
5142: );
5143:
5144: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
5145: THEN
5146: fnd_log.STRING
5147: (fnd_log.level_event,
5148: g_module_current
5149: || '.Create_K_Covered_Levels.after_create.top_line',
5150: 'okc_contract_pub.create_contract_line(Return status = '
5143:
5144: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
5145: THEN
5146: fnd_log.STRING
5147: (fnd_log.level_event,
5148: g_module_current
5149: || '.Create_K_Covered_Levels.after_create.top_line',
5150: 'okc_contract_pub.create_contract_line(Return status = '
5151: || l_return_status
5170: p_msg_index_out => l_ind
5171: );
5172: x_order_error := x_order_error || l_msg_data || '#';
5173:
5174: IF (g_fnd_log_option = 'Y')
5175: THEN
5176: fnd_message.set_encoded (l_msg_data);
5177: l_msg_data := fnd_message.get;
5178: fnd_file.put_line
5212: x_msg_data => x_msg_data,
5213: x_return_status => l_return_status
5214: );
5215:
5216: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
5217: THEN
5218: fnd_log.STRING (fnd_log.level_event,
5219: g_module_current
5220: || '.Create_K_Covered_Levels.after_tax',
5214: );
5215:
5216: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
5217: THEN
5218: fnd_log.STRING (fnd_log.level_event,
5219: g_module_current
5220: || '.Create_K_Covered_Levels.after_tax',
5221: 'oks_tax_util_pvt.get_tax(Return status = '
5222: || l_return_status
5270: x_klnv_tbl => l_klnv_tbl_out,
5271: p_validate_yn => 'N'
5272: );
5273:
5274: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
5275: THEN
5276: fnd_log.STRING
5277: (fnd_log.level_event,
5278: g_module_current
5272: );
5273:
5274: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
5275: THEN
5276: fnd_log.STRING
5277: (fnd_log.level_event,
5278: g_module_current
5279: || '.Create_K_Covered_Levels.after_create.covered_line',
5280: 'oks_contract_line_pub.create_line(Return status = '
5273:
5274: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
5275: THEN
5276: fnd_log.STRING
5277: (fnd_log.level_event,
5278: g_module_current
5279: || '.Create_K_Covered_Levels.after_create.covered_line',
5280: 'oks_contract_line_pub.create_line(Return status = '
5281: || l_return_status
5298: p_msg_index_out => l_ind
5299: );
5300: x_order_error := x_order_error || l_msg_data || '#';
5301:
5302: IF (g_fnd_log_option = 'Y')
5303: THEN
5304: fnd_message.set_encoded (l_msg_data);
5305: l_msg_data := fnd_message.get;
5306: fnd_file.put_line
5351: okc_cim_pvt.insert_row_upg (x_return_status => l_return_status,
5352: p_cimv_tbl => l_cimv_tbl
5353: );
5354:
5355: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
5356: THEN
5357: fnd_log.STRING
5358: (fnd_log.level_event,
5359: g_module_current
5353: );
5354:
5355: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
5356: THEN
5357: fnd_log.STRING
5358: (fnd_log.level_event,
5359: g_module_current
5360: || '.Create_K_Covered_Levels.after_create.contract_item',
5361: 'okc_cim_pvt.insert_row_upg(Return status = '
5354:
5355: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
5356: THEN
5357: fnd_log.STRING
5358: (fnd_log.level_event,
5359: g_module_current
5360: || '.Create_K_Covered_Levels.after_create.contract_item',
5361: 'okc_cim_pvt.insert_row_upg(Return status = '
5362: || l_return_status
5389: x_msg_data => x_msg_data,
5390: x_crjv_tbl_out => l_crjv_tbl_out
5391: );
5392:
5393: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
5394: THEN
5395: fnd_log.STRING
5396: (fnd_log.level_event,
5397: g_module_current
5391: );
5392:
5393: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
5394: THEN
5395: fnd_log.STRING
5396: (fnd_log.level_event,
5397: g_module_current
5398: || '.Create_K_Covered_Levels.create.object_relation',
5399: 'create_obj_rel(Return status = '
5392:
5393: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
5394: THEN
5395: fnd_log.STRING
5396: (fnd_log.level_event,
5397: g_module_current
5398: || '.Create_K_Covered_Levels.create.object_relation',
5399: 'create_obj_rel(Return status = '
5400: || l_return_status
5628: p_pavv_tbl => l_pavv_tbl_in,
5629: x_pavv_tbl => l_pavv_tbl_out
5630: );
5631:
5632: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
5633: THEN
5634: fnd_log.STRING
5635: (fnd_log.level_event,
5636: g_module_current
5630: );
5631:
5632: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
5633: THEN
5634: fnd_log.STRING
5635: (fnd_log.level_event,
5636: g_module_current
5637: || '.Create_K_Covered_Levels.after_create.price_att',
5638: 'okc_price_adjustment_pvt.create_price_att_value(Return status = '
5631:
5632: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
5633: THEN
5634: fnd_log.STRING
5635: (fnd_log.level_event,
5636: g_module_current
5637: || '.Create_K_Covered_Levels.after_create.price_att',
5638: 'okc_price_adjustment_pvt.create_price_att_value(Return status = '
5639: || l_return_status
5826: x_msg_count => x_msg_count,
5827: x_msg_data => x_msg_data
5828: );
5829:
5830: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
5831: THEN
5832: fnd_log.STRING
5833: (fnd_log.level_event,
5834: g_module_current
5828: );
5829:
5830: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
5831: THEN
5832: fnd_log.STRING
5833: (fnd_log.level_event,
5834: g_module_current
5835: || '.Create_contract_Ibnew.after_create.header',
5836: 'oks_extwarprgm_pvt.create_k_hdr(Return status = '
5829:
5830: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
5831: THEN
5832: fnd_log.STRING
5833: (fnd_log.level_event,
5834: g_module_current
5835: || '.Create_contract_Ibnew.after_create.header',
5836: 'oks_extwarprgm_pvt.create_k_hdr(Return status = '
5837: || l_return_status
5864: x_msg_count => x_msg_count,
5865: x_msg_data => x_msg_data
5866: );
5867:
5868: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
5869: THEN
5870: fnd_log.STRING
5871: (fnd_log.level_event,
5872: g_module_current
5866: );
5867:
5868: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
5869: THEN
5870: fnd_log.STRING
5871: (fnd_log.level_event,
5872: g_module_current
5873: || '.Create_contract_Ibnew.after_create.header',
5874: 'okc_oc_int_pub.create_k_relationships(Return status = '
5867:
5868: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
5869: THEN
5870: fnd_log.STRING
5871: (fnd_log.level_event,
5872: g_module_current
5873: || '.Create_contract_Ibnew.after_create.header',
5874: 'okc_oc_int_pub.create_k_relationships(Return status = '
5875: || l_return_status
5930: x_msg_count => x_msg_count,
5931: x_msg_data => x_msg_data
5932: );
5933:
5934: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
5935: THEN
5936: fnd_log.STRING
5937: (fnd_log.level_event,
5938: g_module_current
5932: );
5933:
5934: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
5935: THEN
5936: fnd_log.STRING
5937: (fnd_log.level_event,
5938: g_module_current
5939: || '.Create_contract_Ibnew.after_create.service_line',
5940: 'oks_extwarprgm_pvt.create_k_service_lines(Return status = '
5933:
5934: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
5935: THEN
5936: fnd_log.STRING
5937: (fnd_log.level_event,
5938: g_module_current
5939: || '.Create_contract_Ibnew.after_create.service_line',
5940: 'oks_extwarprgm_pvt.create_k_service_lines(Return status = '
5941: || l_return_status
5997: x_msg_count => x_msg_count,
5998: x_msg_data => x_msg_data
5999: );
6000:
6001: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
6002: THEN
6003: fnd_log.STRING
6004: (fnd_log.level_event,
6005: g_module_current
5999: );
6000:
6001: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
6002: THEN
6003: fnd_log.STRING
6004: (fnd_log.level_event,
6005: g_module_current
6006: || '.Create_contract_Ibnew.after_create.covered_line',
6007: 'oks_extwarprgm_pvt.create_k_covered_levels(Return status = '
6000:
6001: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
6002: THEN
6003: fnd_log.STRING
6004: (fnd_log.level_event,
6005: g_module_current
6006: || '.Create_contract_Ibnew.after_create.covered_line',
6007: 'oks_extwarprgm_pvt.create_k_covered_levels(Return status = '
6008: || l_return_status
6073: x_timeunit => l_timeunits,
6074: x_return_status => l_return_status
6075: );
6076:
6077: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
6078: THEN
6079: fnd_log.STRING (fnd_log.level_statement,
6080: g_module_current
6081: || '.Create_contract_Ibnew.after.get_duration',
6075: );
6076:
6077: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
6078: THEN
6079: fnd_log.STRING (fnd_log.level_statement,
6080: g_module_current
6081: || '.Create_contract_Ibnew.after.get_duration',
6082: 'Get_Duration Status ='
6083: || l_return_status
6111: x_bil_sch_out_tbl => l_bil_sch_out,
6112: x_return_status => l_return_status
6113: );
6114:
6115: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
6116: THEN
6117: fnd_log.STRING
6118: (fnd_log.level_event,
6119: g_module_current
6113: );
6114:
6115: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
6116: THEN
6117: fnd_log.STRING
6118: (fnd_log.level_event,
6119: g_module_current
6120: || '.Create_contract_Ibnew.after.bill_sch',
6121: 'oks_bill_sch.create_bill_sch_rules(Return status = '
6114:
6115: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
6116: THEN
6117: fnd_log.STRING
6118: (fnd_log.level_event,
6119: g_module_current
6120: || '.Create_contract_Ibnew.after.bill_sch',
6121: 'oks_bill_sch.create_bill_sch_rules(Return status = '
6122: || l_return_status
6138: (p_line_id => l_lineid,
6139: x_return_status => l_return_status
6140: );
6141:
6142: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
6143: THEN
6144: fnd_log.STRING
6145: (fnd_log.level_event,
6146: g_module_current || '.Create_contract_Ibnew.after.bcl_om',
6140: );
6141:
6142: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
6143: THEN
6144: fnd_log.STRING
6145: (fnd_log.level_event,
6146: g_module_current || '.Create_contract_Ibnew.after.bcl_om',
6147: ' oks_bill_util_pub.create_bcl_for_om(Return status = '
6148: || l_return_status
6141:
6142: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
6143: THEN
6144: fnd_log.STRING
6145: (fnd_log.level_event,
6146: g_module_current || '.Create_contract_Ibnew.after.bcl_om',
6147: ' oks_bill_util_pub.create_bcl_for_om(Return status = '
6148: || l_return_status
6149: || ')'
6165: x_msg_count => x_msg_count,
6166: x_msg_data => x_msg_data
6167: );
6168:
6169: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
6170: )
6171: THEN
6172: fnd_log.STRING
6173: (fnd_log.level_event,
6168:
6169: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
6170: )
6171: THEN
6172: fnd_log.STRING
6173: (fnd_log.level_event,
6174: g_module_current
6175: || '.Create_contract_Ibnew.after.om_sll',
6176: 'oks_bill_sch.update_om_sll_date(Return status = '
6169: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
6170: )
6171: THEN
6172: fnd_log.STRING
6173: (fnd_log.level_event,
6174: g_module_current
6175: || '.Create_contract_Ibnew.after.om_sll',
6176: 'oks_bill_sch.update_om_sll_date(Return status = '
6177: || l_return_status
6192: x_msg_count => x_msg_count,
6193: x_msg_data => x_msg_data
6194: );
6195:
6196: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
6197: )
6198: THEN
6199: fnd_log.STRING
6200: (fnd_log.level_event,
6195:
6196: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
6197: )
6198: THEN
6199: fnd_log.STRING
6200: (fnd_log.level_event,
6201: g_module_current
6202: || '.Create_contract_Ibnew.after.sch_cp',
6203: 'oks_bill_sch.create_bill_sch_cp(Return status = '
6196: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
6197: )
6198: THEN
6199: fnd_log.STRING
6200: (fnd_log.level_event,
6201: g_module_current
6202: || '.Create_contract_Ibnew.after.sch_cp',
6203: 'oks_bill_sch.create_bill_sch_cp(Return status = '
6204: || l_return_status
6216: (p_line_id => l_lineid,
6217: x_return_status => l_return_status
6218: );
6219:
6220: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
6221: THEN
6222: fnd_log.STRING
6223: (fnd_log.level_event,
6224: g_module_current
6218: );
6219:
6220: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
6221: THEN
6222: fnd_log.STRING
6223: (fnd_log.level_event,
6224: g_module_current
6225: || '.Create_contract_Ibnew.after.bcl_om',
6226: 'oks_bill_util_pub.create_bcl_for_om(Return status = '
6219:
6220: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
6221: THEN
6222: fnd_log.STRING
6223: (fnd_log.level_event,
6224: g_module_current
6225: || '.Create_contract_Ibnew.after.bcl_om',
6226: 'oks_bill_util_pub.create_bcl_for_om(Return status = '
6227: || l_return_status
6342: p_oiev_tbl => l_oiev_tbl_in,
6343: x_oiev_tbl => l_oiev_tbl_out
6344: );
6345:
6346: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
6347: THEN
6348: fnd_log.STRING
6349: (fnd_log.level_event,
6350: g_module_current || '.CReate_transaction_source',
6344: );
6345:
6346: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
6347: THEN
6348: fnd_log.STRING
6349: (fnd_log.level_event,
6350: g_module_current || '.CReate_transaction_source',
6351: 'OKC_OPER_INST_PUB.Create_Operation_Instance (Return status = '
6352: || l_return_status
6345:
6346: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
6347: THEN
6348: fnd_log.STRING
6349: (fnd_log.level_event,
6350: g_module_current || '.CReate_transaction_source',
6351: 'OKC_OPER_INST_PUB.Create_Operation_Instance (Return status = '
6352: || l_return_status
6353: || ')'
6378: p_olev_tbl => l_olev_tbl_in,
6379: x_olev_tbl => l_olev_tbl_out
6380: );
6381:
6382: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
6383: THEN
6384: fnd_log.STRING
6385: (fnd_log.level_event,
6386: g_module_current || '.CReate_transaction_source',
6380: );
6381:
6382: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
6383: THEN
6384: fnd_log.STRING
6385: (fnd_log.level_event,
6386: g_module_current || '.CReate_transaction_source',
6387: 'OKC_OPER_INST_PUB.Create_Operation_Line (Return status = '
6388: || l_return_status
6381:
6382: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
6383: THEN
6384: fnd_log.STRING
6385: (fnd_log.level_event,
6386: g_module_current || '.CReate_transaction_source',
6387: 'OKC_OPER_INST_PUB.Create_Operation_Line (Return status = '
6388: || l_return_status
6389: || ')'
6575: x_msg_count => x_msg_count,
6576: x_msg_data => x_msg_data
6577: );
6578:
6579: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
6580: THEN
6581: fnd_log.STRING
6582: (fnd_log.level_event,
6583: g_module_current || '.CReate_transaction_source',
6577: );
6578:
6579: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
6580: THEN
6581: fnd_log.STRING
6582: (fnd_log.level_event,
6583: g_module_current || '.CReate_transaction_source',
6584: 'OKC_OPER_INST_PUB.Create_transaction_source(Return status = '
6585: || l_return_status
6578:
6579: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
6580: THEN
6581: fnd_log.STRING
6582: (fnd_log.level_event,
6583: g_module_current || '.CReate_transaction_source',
6584: 'OKC_OPER_INST_PUB.Create_transaction_source(Return status = '
6585: || l_return_status
6586: || ')'
6633: x_msg_count => x_msg_count,
6634: x_msg_data => x_msg_data
6635: );
6636:
6637: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
6638: THEN
6639: fnd_log.STRING
6640: (fnd_log.level_event,
6641: g_module_current || '.CReate_transaction_source',
6635: );
6636:
6637: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
6638: THEN
6639: fnd_log.STRING
6640: (fnd_log.level_event,
6641: g_module_current || '.CReate_transaction_source',
6642: 'OKC_OPER_INST_PUB.Create_transaction_source(Return status = '
6643: || l_return_status
6636:
6637: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
6638: THEN
6639: fnd_log.STRING
6640: (fnd_log.level_event,
6641: g_module_current || '.CReate_transaction_source',
6642: 'OKC_OPER_INST_PUB.Create_transaction_source(Return status = '
6643: || l_return_status
6644: || ')'
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)
6811: THEN
6812: fnd_log.STRING (fnd_log.level_event,
6813: g_module_current || '.CREATE_CONTRACT_IBSPLIT.',
6814: ', count = ' || p_kdtl_tbl.COUNT || ')'
6808: l_old_cp_id := 0;
6809:
6810: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
6811: THEN
6812: fnd_log.STRING (fnd_log.level_event,
6813: g_module_current || '.CREATE_CONTRACT_IBSPLIT.',
6814: ', count = ' || p_kdtl_tbl.COUNT || ')'
6815: );
6816: END IF;
6896: --bug start 3736860
6897: l_qtyltax := actual_tax / p_kdtl_tbl (l_ctr).old_cp_quantity;
6898:
6899: --bug end 3736860
6900: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
6901: THEN
6902: fnd_log.STRING (fnd_log.level_statement,
6903: g_module_current
6904: || '.CREATE_CONTRACT_IBSPLIT',
6898:
6899: --bug end 3736860
6900: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
6901: THEN
6902: fnd_log.STRING (fnd_log.level_statement,
6903: g_module_current
6904: || '.CREATE_CONTRACT_IBSPLIT',
6905: ' cp quantity = '
6906: || p_kdtl_tbl (l_ctr).old_cp_quantity
6930: --bug end 3736860
6931: END IF;
6932:
6933: -- end of change
6934: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
6935: THEN
6936: fnd_log.STRING (fnd_log.level_statement,
6937: g_module_current
6938: || '.CREATE_CONTRACT_IBSPLIT',
6932:
6933: -- end of change
6934: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
6935: THEN
6936: fnd_log.STRING (fnd_log.level_statement,
6937: g_module_current
6938: || '.CREATE_CONTRACT_IBSPLIT',
6939: ' l_old_qty = '
6940: || l_old_qty
6974: SET price_negotiated = NVL (l_oldamt, 0),
6975: price_unit = NVL (p_kdtl_tbl (l_ctr).service_unit_price, 0)
6976: WHERE ID = p_kdtl_tbl (l_ctr).object_line_id;
6977:
6978: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
6979: THEN
6980: fnd_log.STRING
6981: (fnd_log.level_event,
6982: g_module_current
6976: WHERE ID = p_kdtl_tbl (l_ctr).object_line_id;
6977:
6978: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
6979: THEN
6980: fnd_log.STRING
6981: (fnd_log.level_event,
6982: g_module_current
6983: || '.CREATE_CONTRACT_IBSPLIT.after_update.cov_lvl',
6984: ' update_cov_level(Return status = '
6977:
6978: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
6979: THEN
6980: fnd_log.STRING
6981: (fnd_log.level_event,
6982: g_module_current
6983: || '.CREATE_CONTRACT_IBSPLIT.after_update.cov_lvl',
6984: ' update_cov_level(Return status = '
6985: || l_return_status
7017: x_klnv_tbl => l_klnv_tbl_out,
7018: p_validate_yn => 'N'
7019: );
7020:
7021: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
7022: THEN
7023: fnd_log.STRING
7024: (fnd_log.level_event,
7025: g_module_current
7019: );
7020:
7021: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
7022: THEN
7023: fnd_log.STRING
7024: (fnd_log.level_event,
7025: g_module_current
7026: || '.CREATE_CONTRACT_IBSPLIT.after_cov_lvl_tax',
7027: 'oks_contract_line_pub.update_line(Return status = '
7020:
7021: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
7022: THEN
7023: fnd_log.STRING
7024: (fnd_log.level_event,
7025: g_module_current
7026: || '.CREATE_CONTRACT_IBSPLIT.after_cov_lvl_tax',
7027: 'oks_contract_line_pub.update_line(Return status = '
7028: || l_return_status
7158: x_pricing_att => l_price_attribs_in,
7159: x_return_status => l_return_status
7160: );
7161:
7162: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
7163: THEN
7164: fnd_log.STRING
7165: (fnd_log.level_event,
7166: g_module_current
7160: );
7161:
7162: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
7163: THEN
7164: fnd_log.STRING
7165: (fnd_log.level_event,
7166: g_module_current
7167: || '.CREATE_CONTRACT_IBSPLIT.after.price_att',
7168: 'oks_extwar_util_pvt.get_k_pricing_attributes(Return status = '
7161:
7162: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
7163: THEN
7164: fnd_log.STRING
7165: (fnd_log.level_event,
7166: g_module_current
7167: || '.CREATE_CONTRACT_IBSPLIT.after.price_att',
7168: 'oks_extwar_util_pvt.get_k_pricing_attributes(Return status = '
7169: || l_return_status
7187: x_msg_count => x_msg_count,
7188: x_msg_data => x_msg_data
7189: );
7190:
7191: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
7192: THEN
7193: fnd_log.STRING
7194: (fnd_log.level_event,
7195: g_module_current
7189: );
7190:
7191: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
7192: THEN
7193: fnd_log.STRING
7194: (fnd_log.level_event,
7195: g_module_current
7196: || '.CREATE_CONTRACT_IBSPLIT.after_create.cov_lvl',
7197: 'oks_extwarprgm_pvt.create_k_covered_levels(Return status = '
7190:
7191: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
7192: THEN
7193: fnd_log.STRING
7194: (fnd_log.level_event,
7195: g_module_current
7196: || '.CREATE_CONTRACT_IBSPLIT.after_create.cov_lvl',
7197: 'oks_extwarprgm_pvt.create_k_covered_levels(Return status = '
7198: || l_return_status
7271: x_msg_count => x_msg_count,
7272: x_msg_data => x_msg_data
7273: );
7274:
7275: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
7276: THEN
7277: fnd_log.STRING
7278: (fnd_log.level_event,
7279: g_module_current
7273: );
7274:
7275: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
7276: THEN
7277: fnd_log.STRING
7278: (fnd_log.level_event,
7279: g_module_current
7280: || '.CREATE_CONTRACT_IBSPLIT.ADJUST_SPLIT_BILL_SCH',
7281: 'Return status = ' || l_return_status
7274:
7275: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
7276: THEN
7277: fnd_log.STRING
7278: (fnd_log.level_event,
7279: g_module_current
7280: || '.CREATE_CONTRACT_IBSPLIT.ADJUST_SPLIT_BILL_SCH',
7281: 'Return status = ' || l_return_status
7282: );
7327: x_msg_count => x_msg_count,
7328: x_msg_data => x_msg_data
7329: );
7330:
7331: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
7332: THEN
7333: fnd_log.STRING
7334: (fnd_log.level_event,
7335: g_module_current
7329: );
7330:
7331: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
7332: THEN
7333: fnd_log.STRING
7334: (fnd_log.level_event,
7335: g_module_current
7336: || '.CREATE_CONTRACT_IBSPLIT.Create_transaction_source',
7337: 'Return status = ' || l_return_status
7330:
7331: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
7332: THEN
7333: fnd_log.STRING
7334: (fnd_log.level_event,
7335: g_module_current
7336: || '.CREATE_CONTRACT_IBSPLIT.Create_transaction_source',
7337: 'Return status = ' || l_return_status
7338: );
7355: x_msg_count => x_msg_count,
7356: x_msg_data => x_msg_data
7357: );
7358:
7359: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
7360: THEN
7361: fnd_log.STRING
7362: (fnd_log.level_event,
7363: g_module_current
7357: );
7358:
7359: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
7360: THEN
7361: fnd_log.STRING
7362: (fnd_log.level_event,
7363: g_module_current
7364: || '.CREATE_CONTRACT_IBSPLIT.Create_source_links',
7365: 'Return status = ' || l_return_status
7358:
7359: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
7360: THEN
7361: fnd_log.STRING
7362: (fnd_log.level_event,
7363: g_module_current
7364: || '.CREATE_CONTRACT_IBSPLIT.Create_source_links',
7365: 'Return status = ' || l_return_status
7366: );
7417: p_insv_rec => l_insthist_rec,
7418: x_insv_rec => x_insthist_rec
7419: );
7420:
7421: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
7422: )
7423: THEN
7424: fnd_log.STRING
7425: (fnd_log.level_event,
7420:
7421: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
7422: )
7423: THEN
7424: fnd_log.STRING
7425: (fnd_log.level_event,
7426: g_module_current || '.CREATE_K_IBSPLIT',
7427: 'oks_ins_pvt.insert_row(Return status = '
7428: || l_return_status
7421: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
7422: )
7423: THEN
7424: fnd_log.STRING
7425: (fnd_log.level_event,
7426: g_module_current || '.CREATE_K_IBSPLIT',
7427: 'oks_ins_pvt.insert_row(Return status = '
7428: || l_return_status
7429: || ')'
7455: p_ihdv_tbl => l_inst_dtls_tbl,
7456: x_ihdv_tbl => x_inst_dtls_tbl
7457: );
7458:
7459: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
7460: THEN
7461: fnd_log.STRING
7462: (fnd_log.level_event,
7463: g_module_current || '.CREATE_K_IBSPLIT',
7457: );
7458:
7459: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
7460: THEN
7461: fnd_log.STRING
7462: (fnd_log.level_event,
7463: g_module_current || '.CREATE_K_IBSPLIT',
7464: 'oks_ihd_pvt.insert_row(Return status = '
7465: || l_return_status
7458:
7459: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
7460: THEN
7461: fnd_log.STRING
7462: (fnd_log.level_event,
7463: g_module_current || '.CREATE_K_IBSPLIT',
7464: 'oks_ihd_pvt.insert_row(Return status = '
7465: || l_return_status
7466: || ')'
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)
7678: THEN
7679: fnd_log.STRING (fnd_log.level_event,
7680: g_module_current || '.CREATE_CONTRACT_IBREPLACE.',
7681: 'count = ' || p_kdtl_tbl.COUNT || ')'
7675: l_target_chr_id := 0;
7676:
7677: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
7678: THEN
7679: fnd_log.STRING (fnd_log.level_event,
7680: g_module_current || '.CREATE_CONTRACT_IBREPLACE.',
7681: 'count = ' || p_kdtl_tbl.COUNT || ')'
7682: );
7683: END IF;
7699: l_sts_code
7700: );
7701:
7702: --IF l_ste_code <> 'ENTERED' THEN
7703: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
7704: THEN
7705: fnd_log.STRING
7706: (fnd_log.level_statement,
7707: g_module_current || '.CREATE_CONTRACT_IBREPLACE',
7701:
7702: --IF l_ste_code <> 'ENTERED' THEN
7703: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
7704: THEN
7705: fnd_log.STRING
7706: (fnd_log.level_statement,
7707: g_module_current || '.CREATE_CONTRACT_IBREPLACE',
7708: 'Service Start Date = '
7709: || p_kdtl_tbl (l_ctr).service_sdt
7702: --IF l_ste_code <> 'ENTERED' THEN
7703: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
7704: THEN
7705: fnd_log.STRING
7706: (fnd_log.level_statement,
7707: g_module_current || '.CREATE_CONTRACT_IBREPLACE',
7708: 'Service Start Date = '
7709: || p_kdtl_tbl (l_ctr).service_sdt
7710: || '
7751: l_repl_rule := l_cov_rec.inheritance_type;
7752:
7753: CLOSE l_cov_csr;
7754:
7755: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
7756: THEN
7757: fnd_log.STRING (fnd_log.level_statement,
7758: g_module_current
7759: || '.CREATE_CONTRACT_IBREPLACE',
7753: CLOSE l_cov_csr;
7754:
7755: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
7756: THEN
7757: fnd_log.STRING (fnd_log.level_statement,
7758: g_module_current
7759: || '.CREATE_CONTRACT_IBREPLACE',
7760: 'Replace Rule = ' || l_repl_rule
7761: );
7779: x_timeunit => l_timeunits,
7780: x_return_status => l_return_status
7781: );
7782:
7783: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
7784: )
7785: THEN
7786: fnd_log.STRING
7787: (fnd_log.level_event,
7782:
7783: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
7784: )
7785: THEN
7786: fnd_log.STRING
7787: (fnd_log.level_event,
7788: g_module_current
7789: || '.CREATE_CONTRACT_IBREPLACE.after.get_duration',
7790: 'Return Status = ' || l_return_status
7783: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
7784: )
7785: THEN
7786: fnd_log.STRING
7787: (fnd_log.level_event,
7788: g_module_current
7789: || '.CREATE_CONTRACT_IBREPLACE.after.get_duration',
7790: 'Return Status = ' || l_return_status
7791: );
7820: l_termdt := TRUNC (p_kdtl_tbl (l_ctr).prod_sdt);
7821: END IF;
7822: END IF;
7823:
7824: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
7825: THEN
7826: fnd_log.STRING (fnd_log.level_statement,
7827: g_module_current
7828: || '.CREATE_CONTRACT_IBREPLACE',
7822: END IF;
7823:
7824: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
7825: THEN
7826: fnd_log.STRING (fnd_log.level_statement,
7827: g_module_current
7828: || '.CREATE_CONTRACT_IBREPLACE',
7829: 'New amount = '
7830: || l_newamt
7832: || l_oldamt
7833: );
7834: END IF;
7835:
7836: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
7837: THEN
7838: fnd_log.STRING (fnd_log.level_statement,
7839: g_module_current
7840: || '.CREATE_CONTRACT_IBREPLACE',
7834: END IF;
7835:
7836: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
7837: THEN
7838: fnd_log.STRING (fnd_log.level_statement,
7839: g_module_current
7840: || '.CREATE_CONTRACT_IBREPLACE',
7841: 'New tax = '
7842: || l_newtax
7893: p_clev_tbl => l_clev_tbl_in,
7894: x_clev_tbl => l_clev_tbl_out
7895: );
7896:
7897: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
7898: THEN
7899: fnd_log.STRING
7900: (fnd_log.level_event,
7901: g_module_current
7895: );
7896:
7897: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
7898: THEN
7899: fnd_log.STRING
7900: (fnd_log.level_event,
7901: g_module_current
7902: || '.CREATE_CONTRACT_IBREPLACE.update_cov_lvl',
7903: 'okc_contract_pub.update_contract_line(Return status = '
7896:
7897: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
7898: THEN
7899: fnd_log.STRING
7900: (fnd_log.level_event,
7901: g_module_current
7902: || '.CREATE_CONTRACT_IBREPLACE.update_cov_lvl',
7903: 'okc_contract_pub.update_contract_line(Return status = '
7904: || l_return_status
7937: x_klnv_tbl => l_klnv_tbl_out,
7938: p_validate_yn => 'N'
7939: );
7940:
7941: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
7942: THEN
7943: fnd_log.STRING
7944: (fnd_log.level_event,
7945: g_module_current
7939: );
7940:
7941: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
7942: THEN
7943: fnd_log.STRING
7944: (fnd_log.level_event,
7945: g_module_current
7946: || '.CREATE_CONTRACT_IBREPLACE.after_update.cov_lvl_tax',
7947: 'oks_contract_line_pub.update_line(Return status = '
7940:
7941: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
7942: THEN
7943: fnd_log.STRING
7944: (fnd_log.level_event,
7945: g_module_current
7946: || '.CREATE_CONTRACT_IBREPLACE.after_update.cov_lvl_tax',
7947: 'oks_contract_line_pub.update_line(Return status = '
7948: || l_return_status
7985: p_comments => NULL,
7986: p_validate_status => 'N'
7987: );
7988:
7989: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
7990: THEN
7991: fnd_log.STRING
7992: (fnd_log.level_event,
7993: g_module_current || '.CREATE_CONTRACT_IBTERMINATE',
7987: );
7988:
7989: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
7990: THEN
7991: fnd_log.STRING
7992: (fnd_log.level_event,
7993: g_module_current || '.CREATE_CONTRACT_IBTERMINATE',
7994: 'okc_contract_pub.update_contract_line(Return status ='
7995: || l_return_status
7988:
7989: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
7990: THEN
7991: fnd_log.STRING
7992: (fnd_log.level_event,
7993: g_module_current || '.CREATE_CONTRACT_IBTERMINATE',
7994: 'okc_contract_pub.update_contract_line(Return status ='
7995: || l_return_status
7996: || ')'
8069: l_inst_dtls_tbl (l_ctr1).new_customer :=
8070: p_kdtl_tbl (l_ctr).cust_account;
8071: l_inst_dtls_tbl (l_ctr1).new_k_status := l_sts_code;
8072:
8073: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
8074: THEN
8075: fnd_log.STRING (fnd_log.level_statement,
8076: g_module_current
8077: || '.CREATE_CONTRACT_IBREPLACE',
8071: l_inst_dtls_tbl (l_ctr1).new_k_status := l_sts_code;
8072:
8073: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
8074: THEN
8075: fnd_log.STRING (fnd_log.level_statement,
8076: g_module_current
8077: || '.CREATE_CONTRACT_IBREPLACE',
8078: 'New End date = '
8079: || l_newedt
8165: x_msg_count => x_msg_count,
8166: x_msg_data => x_msg_data
8167: );
8168:
8169: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
8170: THEN
8171: fnd_log.STRING
8172: (fnd_log.level_event,
8173: g_module_current
8167: );
8168:
8169: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
8170: THEN
8171: fnd_log.STRING
8172: (fnd_log.level_event,
8173: g_module_current
8174: || '.CREATE_CONTRACT_IBREPLACE.create_cov_lvl',
8175: 'oks_extwarprgm_pvt.create_k_covered_levels(Return status = '
8168:
8169: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
8170: THEN
8171: fnd_log.STRING
8172: (fnd_log.level_event,
8173: g_module_current
8174: || '.CREATE_CONTRACT_IBREPLACE.create_cov_lvl',
8175: 'oks_extwarprgm_pvt.create_k_covered_levels(Return status = '
8176: || l_return_status
8268: x_msg_count => x_msg_count,
8269: x_msg_data => x_msg_data
8270: );
8271:
8272: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
8273: THEN
8274: fnd_log.STRING
8275: (fnd_log.level_event,
8276: g_module_current
8270: );
8271:
8272: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
8273: THEN
8274: fnd_log.STRING
8275: (fnd_log.level_event,
8276: g_module_current
8277: || '.CREATE_CONTRACT_IBREPLACE.OKS_BILL_SCH.ADJUST_REPLACE_PRODUCT_BS',
8278: 'ADJUST_REPLACE_PRODUCT_BS(Return status = '
8271:
8272: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
8273: THEN
8274: fnd_log.STRING
8275: (fnd_log.level_event,
8276: g_module_current
8277: || '.CREATE_CONTRACT_IBREPLACE.OKS_BILL_SCH.ADJUST_REPLACE_PRODUCT_BS',
8278: 'ADJUST_REPLACE_PRODUCT_BS(Return status = '
8279: || l_return_status
8307: x_msg_count => x_msg_count,
8308: x_msg_data => x_msg_data
8309: );
8310:
8311: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
8312: THEN
8313: fnd_log.STRING
8314: (fnd_log.level_event,
8315: g_module_current
8309: );
8310:
8311: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
8312: THEN
8313: fnd_log.STRING
8314: (fnd_log.level_event,
8315: g_module_current
8316: || '.CREATE_CONTRACT_IBREPLACE.Create_transaction_source',
8317: 'ADJUST_REPLACE_PRODUCT_BS(Return status = '
8310:
8311: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
8312: THEN
8313: fnd_log.STRING
8314: (fnd_log.level_event,
8315: g_module_current
8316: || '.CREATE_CONTRACT_IBREPLACE.Create_transaction_source',
8317: 'ADJUST_REPLACE_PRODUCT_BS(Return status = '
8318: || l_return_status
8336: x_msg_count => x_msg_count,
8337: x_msg_data => x_msg_data
8338: );
8339:
8340: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
8341: THEN
8342: fnd_log.STRING
8343: (fnd_log.level_event,
8344: g_module_current
8338: );
8339:
8340: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
8341: THEN
8342: fnd_log.STRING
8343: (fnd_log.level_event,
8344: g_module_current
8345: || '.CREATE_CONTRACT_IBREPLACE.Create_source_links',
8346: 'ADJUST_REPLACE_PRODUCT_BS(Return status = '
8339:
8340: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
8341: THEN
8342: fnd_log.STRING
8343: (fnd_log.level_event,
8344: g_module_current
8345: || '.CREATE_CONTRACT_IBREPLACE.Create_source_links',
8346: 'ADJUST_REPLACE_PRODUCT_BS(Return status = '
8347: || l_return_status
8398: p_insv_rec => l_insthist_rec,
8399: x_insv_rec => x_insthist_rec
8400: );
8401:
8402: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
8403: )
8404: THEN
8405: fnd_log.STRING
8406: (fnd_log.level_event,
8401:
8402: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
8403: )
8404: THEN
8405: fnd_log.STRING
8406: (fnd_log.level_event,
8407: g_module_current || '.CREATE_IBREPLACE',
8408: 'oks_ins_pvt.insert_row(Return status = '
8409: || l_return_status
8402: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
8403: )
8404: THEN
8405: fnd_log.STRING
8406: (fnd_log.level_event,
8407: g_module_current || '.CREATE_IBREPLACE',
8408: 'oks_ins_pvt.insert_row(Return status = '
8409: || l_return_status
8410: || ')'
8436: p_ihdv_tbl => l_inst_dtls_tbl,
8437: x_ihdv_tbl => x_inst_dtls_tbl
8438: );
8439:
8440: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
8441: THEN
8442: fnd_log.STRING
8443: (fnd_log.level_event,
8444: g_module_current || '.CREATE_K_IBREPLACE',
8438: );
8439:
8440: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
8441: THEN
8442: fnd_log.STRING
8443: (fnd_log.level_event,
8444: g_module_current || '.CREATE_K_IBREPLACE',
8445: 'oks_ihd_pvt.insert_row(Return status = '
8446: || l_return_status
8439:
8440: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
8441: THEN
8442: fnd_log.STRING
8443: (fnd_log.level_event,
8444: g_module_current || '.CREATE_K_IBREPLACE',
8445: 'oks_ihd_pvt.insert_row(Return status = '
8446: || l_return_status
8447: || ')'
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
8572: fnd_log.STRING (fnd_log.level_event,
8573: g_module_current || '.Create_Contract_IBRETURN.',
8574: 'count = ' || p_kdtl_tbl.COUNT || ')'
8568: l_old_cp_id := 0;
8569:
8570: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
8571: THEN
8572: fnd_log.STRING (fnd_log.level_event,
8573: g_module_current || '.Create_Contract_IBRETURN.',
8574: 'count = ' || p_kdtl_tbl.COUNT || ')'
8575: );
8576: END IF;
8588: );
8589:
8590: IF l_ste_code = 'HOLD'
8591: THEN
8592: IF fnd_log.level_error >= fnd_log.g_current_runtime_level
8593: THEN
8594: fnd_log.STRING (fnd_log.level_error,
8595: g_module_current
8596: || '.CREATE_CONTRACT_IBRETURN.ERROR',
8590: IF l_ste_code = 'HOLD'
8591: THEN
8592: IF fnd_log.level_error >= fnd_log.g_current_runtime_level
8593: THEN
8594: fnd_log.STRING (fnd_log.level_error,
8595: g_module_current
8596: || '.CREATE_CONTRACT_IBRETURN.ERROR',
8597: ' Contract '
8598: || p_kdtl_tbl (l_ctr).contract_number
8645: THEN
8646: l_retdt := p_kdtl_tbl (l_ctr).prod_sdt;
8647: END IF;
8648:
8649: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
8650: THEN
8651: fnd_log.STRING (fnd_log.level_statement,
8652: g_module_current
8653: || '.CREATE_CONTRACT_IBRETURN',
8647: END IF;
8648:
8649: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
8650: THEN
8651: fnd_log.STRING (fnd_log.level_statement,
8652: g_module_current
8653: || '.CREATE_CONTRACT_IBRETURN',
8654: 'Credit option = '
8655: || p_kdtl_tbl (l_ctr).raise_credit
8686: (l_ctr).hdr_org_id,
8687: p_transaction_date => TRUNC (l_retdt)
8688: );
8689:
8690: IF fnd_log.level_statement >=
8691: fnd_log.g_current_runtime_level
8692: THEN
8693: fnd_log.STRING (fnd_log.level_statement,
8694: g_module_current
8687: p_transaction_date => TRUNC (l_retdt)
8688: );
8689:
8690: IF fnd_log.level_statement >=
8691: fnd_log.g_current_runtime_level
8692: THEN
8693: fnd_log.STRING (fnd_log.level_statement,
8694: g_module_current
8695: || '.CREATE_CONTRACT_IBRETURN',
8689:
8690: IF fnd_log.level_statement >=
8691: fnd_log.g_current_runtime_level
8692: THEN
8693: fnd_log.STRING (fnd_log.level_statement,
8694: g_module_current
8695: || '.CREATE_CONTRACT_IBRETURN',
8696: 'Credit option from GCD = '
8697: || l_credit_amount
8714: END IF;
8715: END IF;
8716: END IF;
8717:
8718: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
8719: THEN
8720: fnd_log.STRING (fnd_log.level_statement,
8721: g_module_current
8722: || '.CREATE_CONTRACT_IBRETURN',
8716: END IF;
8717:
8718: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
8719: THEN
8720: fnd_log.STRING (fnd_log.level_statement,
8721: g_module_current
8722: || '.CREATE_CONTRACT_IBRETURN',
8723: 'Suppress credit = '
8724: || l_suppress_credit
8743: p_term_cancel_source => 'IBRETURN',
8744: x_return_status => l_return_status
8745: );
8746:
8747: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
8748: THEN
8749: fnd_log.STRING
8750: (fnd_log.level_event,
8751: g_module_current
8745: );
8746:
8747: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
8748: THEN
8749: fnd_log.STRING
8750: (fnd_log.level_event,
8751: g_module_current
8752: || '.CREATE_CONTRACT_IBRETURN.terminate_cp',
8753: 'oks_bill_rec_pub.pre_terminate_cp(Return status = '
8746:
8747: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
8748: THEN
8749: fnd_log.STRING
8750: (fnd_log.level_event,
8751: g_module_current
8752: || '.CREATE_CONTRACT_IBRETURN.terminate_cp',
8753: 'oks_bill_rec_pub.pre_terminate_cp(Return status = '
8754: || l_return_status
8833: p_chrv_tbl => l_chrv_tbl_in,
8834: x_chrv_tbl => l_chrv_tbl_out
8835: );
8836:
8837: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
8838: )
8839: THEN
8840: fnd_log.STRING
8841: (fnd_log.level_event,
8836:
8837: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
8838: )
8839: THEN
8840: fnd_log.STRING
8841: (fnd_log.level_event,
8842: g_module_current
8843: || '.CREATE_CONTRACT_IBRETURN.external_call.after',
8844: 'okc_contract_pub.update_contract_header(Return status =
8837: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
8838: )
8839: THEN
8840: fnd_log.STRING
8841: (fnd_log.level_event,
8842: g_module_current
8843: || '.CREATE_CONTRACT_IBRETURN.external_call.after',
8844: 'okc_contract_pub.update_contract_header(Return status =
8845: '
8884: p_comments => NULL,
8885: p_validate_status => 'N'
8886: );
8887:
8888: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
8889: THEN
8890: fnd_log.STRING
8891: (fnd_log.level_event,
8892: g_module_current || '.CREATE_CONTRACT_IBRETURN',
8886: );
8887:
8888: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
8889: THEN
8890: fnd_log.STRING
8891: (fnd_log.level_event,
8892: g_module_current || '.CREATE_CONTRACT_IBRETURN',
8893: 'oks_change_status_pvt.Update_line_status (Return status ='
8894: || l_return_status
8887:
8888: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
8889: THEN
8890: fnd_log.STRING
8891: (fnd_log.level_event,
8892: g_module_current || '.CREATE_CONTRACT_IBRETURN',
8893: 'oks_change_status_pvt.Update_line_status (Return status ='
8894: || l_return_status
8895: || ')'
8933: p_comments => NULL,
8934: p_validate_status => 'N'
8935: );
8936:
8937: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
8938: )
8939: THEN
8940: fnd_log.STRING
8941: (fnd_log.level_event,
8936:
8937: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
8938: )
8939: THEN
8940: fnd_log.STRING
8941: (fnd_log.level_event,
8942: g_module_current || '.CREATE_CONTRACT_IBRETURN',
8943: 'oks_change_status_pvt.Update_line_status (Return status = '
8944: || l_return_status
8937: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
8938: )
8939: THEN
8940: fnd_log.STRING
8941: (fnd_log.level_event,
8942: g_module_current || '.CREATE_CONTRACT_IBRETURN',
8943: 'oks_change_status_pvt.Update_line_status (Return status = '
8944: || l_return_status
8945: || ')'
8980: p_date_cancelled => TRUNC (date_cancelled),
8981: p_validate_status => 'N'
8982: );
8983:
8984: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
8985: )
8986: THEN
8987: fnd_log.STRING
8988: (fnd_log.level_event,
8983:
8984: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
8985: )
8986: THEN
8987: fnd_log.STRING
8988: (fnd_log.level_event,
8989: g_module_current || '.CREATE_CONTRACT_IBRETURN',
8990: 'OKS_WF_K_PROCESS_PVT.cancel_contract(Return status =
8991: '
8984: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
8985: )
8986: THEN
8987: fnd_log.STRING
8988: (fnd_log.level_event,
8989: g_module_current || '.CREATE_CONTRACT_IBRETURN',
8990: 'OKS_WF_K_PROCESS_PVT.cancel_contract(Return status =
8991: '
8992: || l_return_status
9105: p_insv_rec => l_insthist_rec,
9106: x_insv_rec => x_insthist_rec
9107: );
9108:
9109: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
9110: )
9111: THEN
9112: fnd_log.STRING
9113: (fnd_log.level_event,
9108:
9109: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
9110: )
9111: THEN
9112: fnd_log.STRING
9113: (fnd_log.level_event,
9114: g_module_current || '.CREATE_K_IBRETURN',
9115: 'oks_ins_pvt.insert_row(Return status = '
9116: || l_return_status
9109: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
9110: )
9111: THEN
9112: fnd_log.STRING
9113: (fnd_log.level_event,
9114: g_module_current || '.CREATE_K_IBRETURN',
9115: 'oks_ins_pvt.insert_row(Return status = '
9116: || l_return_status
9117: || ')'
9139: p_ihdv_tbl => l_inst_dtls_tbl,
9140: x_ihdv_tbl => x_inst_dtls_tbl
9141: );
9142:
9143: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
9144: THEN
9145: fnd_log.STRING
9146: (fnd_log.level_event,
9147: g_module_current || '.CREATE_IBRETURN',
9141: );
9142:
9143: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
9144: THEN
9145: fnd_log.STRING
9146: (fnd_log.level_event,
9147: g_module_current || '.CREATE_IBRETURN',
9148: 'oks_ihd_pvt.insert_row(Return status = '
9149: || l_return_status
9142:
9143: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
9144: THEN
9145: fnd_log.STRING
9146: (fnd_log.level_event,
9147: g_module_current || '.CREATE_IBRETURN',
9148: 'oks_ihd_pvt.insert_row(Return status = '
9149: || l_return_status
9150: || ')'
9625:
9626: get_party_id (p_kdtl_rec.new_account_id, l_party_id, l_party_name);
9627: l_hdr_rec.party_id := l_party_id;
9628:
9629: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
9630: THEN
9631: fnd_log.STRING (fnd_log.level_statement,
9632: g_module_current
9633: || '.CREATE_K_SYSTEM_TRF.create_contract_header',
9627: l_hdr_rec.party_id := l_party_id;
9628:
9629: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
9630: THEN
9631: fnd_log.STRING (fnd_log.level_statement,
9632: g_module_current
9633: || '.CREATE_K_SYSTEM_TRF.create_contract_header',
9634: 'Party id = ' || l_hdr_rec.party_id
9635: );
9648: p_rnrl_rec => NULL,
9649: x_rnrl_rec => l_rnrl_rec_out
9650: );
9651:
9652: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
9653: THEN
9654: fnd_log.STRING
9655: (fnd_log.level_event,
9656: g_module_current
9650: );
9651:
9652: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
9653: THEN
9654: fnd_log.STRING
9655: (fnd_log.level_event,
9656: g_module_current
9657: || '.CREATE_K_SYSTEM_TRF.create_contract_header',
9658: 'oks_renew_util_pub.get_renew_rules(Return status = '
9651:
9652: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
9653: THEN
9654: fnd_log.STRING
9655: (fnd_log.level_event,
9656: g_module_current
9657: || '.CREATE_K_SYSTEM_TRF.create_contract_header',
9658: 'oks_renew_util_pub.get_renew_rules(Return status = '
9659: || l_return_status
9680: END IF;
9681:
9682: l_hdr_rec.start_date := TRUNC (l_trfdt);
9683:
9684: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
9685: THEN
9686: fnd_log.STRING (fnd_log.level_statement,
9687: g_module_current
9688: || '.CREATE_K_SYSTEM_TRF.create_contract_header',
9682: l_hdr_rec.start_date := TRUNC (l_trfdt);
9683:
9684: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
9685: THEN
9686: fnd_log.STRING (fnd_log.level_statement,
9687: g_module_current
9688: || '.CREATE_K_SYSTEM_TRF.create_contract_header',
9689: 'Transfer status Profile = '
9690: || fnd_profile.VALUE ('OKS_TRANSFER_STATUS')
9745: l_hdr_rec.sts_code := l_sts_code;
9746: END IF;
9747: END IF;
9748:
9749: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
9750: THEN
9751: fnd_log.STRING (fnd_log.level_statement,
9752: g_module_current
9753: || '.CREATE_K_SYSTEM_TRF.create_contract_header',
9747: END IF;
9748:
9749: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
9750: THEN
9751: fnd_log.STRING (fnd_log.level_statement,
9752: g_module_current
9753: || '.CREATE_K_SYSTEM_TRF.create_contract_header',
9754: 'Header Status = '
9755: || l_hdr_rec.sts_code
9767: INTO l_bill_to_id, l_ship_to_id;
9768:
9769: CLOSE l_get_bill_ship_csr;
9770:
9771: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
9772: THEN
9773: fnd_log.STRING (fnd_log.level_statement,
9774: g_module_current
9775: || '.CREATE_K_SYSTEM_TRF.create_contract_header',
9769: CLOSE l_get_bill_ship_csr;
9770:
9771: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
9772: THEN
9773: fnd_log.STRING (fnd_log.level_statement,
9774: g_module_current
9775: || '.CREATE_K_SYSTEM_TRF.create_contract_header',
9776: ' Bill to Id = '
9777: || l_bill_to_id
9793: IF validate_bill_ship_ids%NOTFOUND
9794: THEN
9795: CLOSE validate_bill_ship_ids;
9796:
9797: IF fnd_log.level_error >= fnd_log.g_current_runtime_level
9798: THEN
9799: fnd_log.STRING (fnd_log.level_error,
9800: g_module_current
9801: || '.CREATE_K_SYSTEM_TRF.ERROR',
9795: CLOSE validate_bill_ship_ids;
9796:
9797: IF fnd_log.level_error >= fnd_log.g_current_runtime_level
9798: THEN
9799: fnd_log.STRING (fnd_log.level_error,
9800: g_module_current
9801: || '.CREATE_K_SYSTEM_TRF.ERROR',
9802: ' Bill to Id ('
9803: || l_bill_to_id
9830: IF validate_bill_ship_ids%NOTFOUND
9831: THEN
9832: CLOSE validate_bill_ship_ids;
9833:
9834: IF fnd_log.level_error >= fnd_log.g_current_runtime_level
9835: THEN
9836: fnd_log.STRING (fnd_log.level_error,
9837: g_module_current
9838: || '.CREATE_K_SYSTEM_TRF.ERROR',
9832: CLOSE validate_bill_ship_ids;
9833:
9834: IF fnd_log.level_error >= fnd_log.g_current_runtime_level
9835: THEN
9836: fnd_log.STRING (fnd_log.level_error,
9837: g_module_current
9838: || '.CREATE_K_SYSTEM_TRF.ERROR',
9839: ' Bill to Id ('
9840: || l_ship_to_id
9929: x_msg_count => x_msg_count,
9930: x_msg_data => x_msg_data
9931: );
9932:
9933: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
9934: THEN
9935: fnd_log.STRING
9936: (fnd_log.level_statement,
9937: g_module_current
9931: );
9932:
9933: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
9934: THEN
9935: fnd_log.STRING
9936: (fnd_log.level_statement,
9937: g_module_current
9938: || '.CREATE_K_SYSTEM_TRF.create_contract_header',
9939: 'OKS_EXTWARPRGM_PVT.create_k_hdr(Return status = '
9932:
9933: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
9934: THEN
9935: fnd_log.STRING
9936: (fnd_log.level_statement,
9937: g_module_current
9938: || '.CREATE_K_SYSTEM_TRF.create_contract_header',
9939: 'OKS_EXTWARPRGM_PVT.create_k_hdr(Return status = '
9940: || l_return_status
9976: p_cacv_tbl => l_cacv_tbl_in,
9977: x_cacv_tbl => l_cacv_tbl_out
9978: );
9979:
9980: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
9981: THEN
9982: fnd_log.STRING
9983: (fnd_log.level_statement,
9984: g_module_current
9978: );
9979:
9980: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
9981: THEN
9982: fnd_log.STRING
9983: (fnd_log.level_statement,
9984: g_module_current
9985: || '.CREATE_K_SYSTEM_TRF.create_contract_header',
9986: 'okc_contract_pub.create_contract_access(Return status = '
9979:
9980: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
9981: THEN
9982: fnd_log.STRING
9983: (fnd_log.level_statement,
9984: g_module_current
9985: || '.CREATE_K_SYSTEM_TRF.create_contract_header',
9986: 'okc_contract_pub.create_contract_access(Return status = '
9987: || l_return_status
10118:
10119: l_line_rec.srv_sdt := TRUNC (l_trfdt);
10120: l_line_rec.srv_edt := TRUNC (p_kdtl_rec.service_edt);
10121:
10122: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
10123: THEN
10124: fnd_log.STRING (fnd_log.level_statement,
10125: g_module_current
10126: || '.CREATE_K_SYSTEM_TRF.create_k_service_line',
10120: l_line_rec.srv_edt := TRUNC (p_kdtl_rec.service_edt);
10121:
10122: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
10123: THEN
10124: fnd_log.STRING (fnd_log.level_statement,
10125: g_module_current
10126: || '.CREATE_K_SYSTEM_TRF.create_k_service_line',
10127: 'Start date = '
10128: || l_line_rec.srv_sdt
10245: x_msg_count => x_msg_count,
10246: x_msg_data => x_msg_data
10247: );
10248:
10249: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
10250: THEN
10251: fnd_log.STRING
10252: (fnd_log.level_statement,
10253: g_module_current
10247: );
10248:
10249: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
10250: THEN
10251: fnd_log.STRING
10252: (fnd_log.level_statement,
10253: g_module_current
10254: || '.CREATE_K_SYSTEM_TRF.create_k_service_line',
10255: 'oks_extwarprgm_pvt.create_k_service_lines(Return status = '
10248:
10249: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
10250: THEN
10251: fnd_log.STRING
10252: (fnd_log.level_statement,
10253: g_module_current
10254: || '.CREATE_K_SYSTEM_TRF.create_k_service_line',
10255: 'oks_extwarprgm_pvt.create_k_service_lines(Return status = '
10256: || l_return_status
10356: /* Open l_Cust_csr;
10357: Fetch l_Cust_csr into l_Cust_rec;
10358: If l_Cust_csr%notfound Then
10359: Close l_Cust_Csr;
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;
10357: Fetch l_Cust_csr into l_Cust_rec;
10358: If l_Cust_csr%notfound Then
10359: Close l_Cust_Csr;
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);
10445: ELSE
10446: l_newamt := 0;
10447: END IF;
10448:
10449: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
10450: THEN
10451: fnd_log.STRING (fnd_log.level_statement,
10452: g_module_current
10453: || '.CREATE_K_SYSTEM_TRF.Create_Contract_subline',
10447: END IF;
10448:
10449: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
10450: THEN
10451: fnd_log.STRING (fnd_log.level_statement,
10452: g_module_current
10453: || '.CREATE_K_SYSTEM_TRF.Create_Contract_subline',
10454: 'New amount = ' || l_newamt
10455: );
10554: x_msg_count => x_msg_count,
10555: x_msg_data => x_msg_data
10556: );
10557:
10558: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
10559: THEN
10560: fnd_log.STRING (fnd_log.level_event,
10561: g_module_current
10562: || '.CREATE_K_SYSTEM_TRF.Create_Contract_subline',
10556: );
10557:
10558: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
10559: THEN
10560: fnd_log.STRING (fnd_log.level_event,
10561: g_module_current
10562: || '.CREATE_K_SYSTEM_TRF.Create_Contract_subline',
10563: 'New amount = ' || l_newamt
10564: );
10650: x_timeunit => l_timeunits,
10651: x_return_status => l_return_status
10652: );
10653:
10654: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
10655: THEN
10656: fnd_log.STRING
10657: (fnd_log.level_event,
10658: g_module_current
10652: );
10653:
10654: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
10655: THEN
10656: fnd_log.STRING
10657: (fnd_log.level_event,
10658: g_module_current
10659: || '.CREATE_K_SYSTEM_TRF.Create_billing_schedule',
10660: 'Okc_time_util_pub.get_duration(Return status = '
10653:
10654: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
10655: THEN
10656: fnd_log.STRING
10657: (fnd_log.level_event,
10658: g_module_current
10659: || '.CREATE_K_SYSTEM_TRF.Create_billing_schedule',
10660: 'Okc_time_util_pub.get_duration(Return status = '
10661: || l_return_status
10692: x_bil_sch_out_tbl => l_bil_sch_out,
10693: x_return_status => l_return_status
10694: );
10695:
10696: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
10697: THEN
10698: fnd_log.STRING
10699: (fnd_log.level_event,
10700: g_module_current
10694: );
10695:
10696: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
10697: THEN
10698: fnd_log.STRING
10699: (fnd_log.level_event,
10700: g_module_current
10701: || '.CREATE_K_SYSTEM_TRF.Create_billing_schedule',
10702: 'oks_bill_sch.create_bill_sch_rules(Return status = '
10695:
10696: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
10697: THEN
10698: fnd_log.STRING
10699: (fnd_log.level_event,
10700: g_module_current
10701: || '.CREATE_K_SYSTEM_TRF.Create_billing_schedule',
10702: 'oks_bill_sch.create_bill_sch_rules(Return status = '
10703: || l_return_status
10718: (
10719: P_LINE_ID => p_line_id ,
10720: X_RETURN_STATUS => l_return_status
10721: );
10722: If(G_FND_LOG_OPTION = 'Y') Then
10723: FND_FILE.PUT_LINE (FND_FILE.LOG,'IBNEW :- CREATE_BCL_FOR_OM ' || l_return_status );
10724: OKS_RENEW_PVT.DEBUG_LOG( 'OKS_EXTWARPRGM_PVT.CREATE_K_SYSTEM_TRF :: CREATE_BCL_FOR_OM '|| l_return_status);
10725: End if;
10726:
10740: x_msg_data => x_msg_data
10741: );
10742:
10743: -- FND_FILE.PUT_LINE( fnd_file.LOG, 'IBNEW :- Update_OM_SLL_Date ' || l_return_status );
10744: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
10745: )
10746: THEN
10747: fnd_log.STRING
10748: (fnd_log.level_event,
10743: -- FND_FILE.PUT_LINE( fnd_file.LOG, 'IBNEW :- Update_OM_SLL_Date ' || l_return_status );
10744: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
10745: )
10746: THEN
10747: fnd_log.STRING
10748: (fnd_log.level_event,
10749: g_module_current
10750: || '.CREATE_K_SYSTEM_TRF.Create_billing_schedule',
10751: 'oks_bill_sch.update_om_sll_date(Return status = '
10744: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
10745: )
10746: THEN
10747: fnd_log.STRING
10748: (fnd_log.level_event,
10749: g_module_current
10750: || '.CREATE_K_SYSTEM_TRF.Create_billing_schedule',
10751: 'oks_bill_sch.update_om_sll_date(Return status = '
10752: || l_return_status
10767: x_msg_count => x_msg_count,
10768: x_msg_data => x_msg_data
10769: );
10770:
10771: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
10772: )
10773: THEN
10774: fnd_log.STRING
10775: (fnd_log.level_event,
10770:
10771: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
10772: )
10773: THEN
10774: fnd_log.STRING
10775: (fnd_log.level_event,
10776: g_module_current
10777: || '.CREATE_K_SYSTEM_TRF.Create_billing_schedule',
10778: 'oks_bill_sch.create_bill_sch_cp(Return status = '
10771: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
10772: )
10773: THEN
10774: fnd_log.STRING
10775: (fnd_log.level_event,
10776: g_module_current
10777: || '.CREATE_K_SYSTEM_TRF.Create_billing_schedule',
10778: 'oks_bill_sch.create_bill_sch_cp(Return status = '
10779: || l_return_status
10791: P_LINE_ID => p_line_id ,
10792: X_RETURN_STATUS => l_return_status
10793: );
10794: -- FND_FILE.PUT_LINE (FND_FILE.LOG,'IBNEW :- CREATE_BCL_FOR_OM ' || l_return_status );
10795: If(G_FND_LOG_OPTION = 'Y') Then
10796: OKS_RENEW_PVT.DEBUG_LOG( 'OKS_EXTWARPRGM_PVT.CREATE_K_SYSTEM_TRF :: CREATE_BCL_FOR_OM '|| l_return_status);
10797: End if;
10798: If Not l_return_status = 'S' then
10799: Raise G_EXCEPTION_HALT_VALIDATION;
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,
10853: g_module_current
10854: || '.CREATE_CONTRACT_IBTERMINATE.ERROR',
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,
10853: g_module_current
10854: || '.CREATE_CONTRACT_IBTERMINATE.ERROR',
10855: 'Contract in QA_HOLD status'
10856: );
10895: INTO l_service_name;
10896:
10897: CLOSE l_serv_csr;
10898:
10899: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
10900: THEN
10901: fnd_log.STRING (fnd_log.level_statement,
10902: g_module_current || '.CREATE_K_SYSTEM_TRF',
10903: 'new cust acct id = '
10897: CLOSE l_serv_csr;
10898:
10899: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
10900: THEN
10901: fnd_log.STRING (fnd_log.level_statement,
10902: g_module_current || '.CREATE_K_SYSTEM_TRF',
10903: 'new cust acct id = '
10904: || p_kdtl_tbl (l_ctr).new_account_id
10905: || ',party id = '
10932: THEN
10933: l_trfdt := p_kdtl_tbl (l_ctr).prod_sdt;
10934: END IF;
10935:
10936: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
10937: THEN
10938: fnd_log.STRING (fnd_log.level_statement,
10939: g_module_current || '.CREATE_K_SYSTEM_TRF',
10940: 'Transfer Option = '
10934: END IF;
10935:
10936: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
10937: THEN
10938: fnd_log.STRING (fnd_log.level_statement,
10939: g_module_current || '.CREATE_K_SYSTEM_TRF',
10940: 'Transfer Option = '
10941: || l_trf_option
10942: || ',For service line = '
10987: INTO l_relationship;
10988:
10989: CLOSE l_cust_rel_csr;
10990:
10991: IF fnd_log.level_statement >=
10992: fnd_log.g_current_runtime_level
10993: THEN
10994: fnd_log.STRING
10995: (fnd_log.level_statement,
10988:
10989: CLOSE l_cust_rel_csr;
10990:
10991: IF fnd_log.level_statement >=
10992: fnd_log.g_current_runtime_level
10993: THEN
10994: fnd_log.STRING
10995: (fnd_log.level_statement,
10996: g_module_current
10990:
10991: IF fnd_log.level_statement >=
10992: fnd_log.g_current_runtime_level
10993: THEN
10994: fnd_log.STRING
10995: (fnd_log.level_statement,
10996: g_module_current
10997: || '.CREATE_K_SYSTEM_TRF',
10998: 'TERM_NO_REL profile relationship = '
10991: IF fnd_log.level_statement >=
10992: fnd_log.g_current_runtime_level
10993: THEN
10994: fnd_log.STRING
10995: (fnd_log.level_statement,
10996: g_module_current
10997: || '.CREATE_K_SYSTEM_TRF',
10998: 'TERM_NO_REL profile relationship = '
10999: || l_relationship_type
11013: l_ste_code,
11014: l_sts_code
11015: );
11016:
11017: IF fnd_log.level_statement >=
11018: fnd_log.g_current_runtime_level
11019: THEN
11020: fnd_log.STRING (fnd_log.level_statement,
11021: g_module_current
11014: l_sts_code
11015: );
11016:
11017: IF fnd_log.level_statement >=
11018: fnd_log.g_current_runtime_level
11019: THEN
11020: fnd_log.STRING (fnd_log.level_statement,
11021: g_module_current
11022: || '.CREATE_K_SYSTEM_TRF',
11016:
11017: IF fnd_log.level_statement >=
11018: fnd_log.g_current_runtime_level
11019: THEN
11020: fnd_log.STRING (fnd_log.level_statement,
11021: g_module_current
11022: || '.CREATE_K_SYSTEM_TRF',
11023: 'Product status Code = '
11024: || p_kdtl_tbl (l_ctr).prod_sts_code
11029:
11030: IF l_ste_code <> 'ENTERED'
11031: THEN
11032: --Terminate the CUrrent Owners Contract subline with date terminated as Transfer date
11033: IF fnd_log.level_statement >=
11034: fnd_log.g_current_runtime_level
11035: THEN
11036: fnd_log.STRING
11037: (fnd_log.level_statement,
11030: IF l_ste_code <> 'ENTERED'
11031: THEN
11032: --Terminate the CUrrent Owners Contract subline with date terminated as Transfer date
11033: IF fnd_log.level_statement >=
11034: fnd_log.g_current_runtime_level
11035: THEN
11036: fnd_log.STRING
11037: (fnd_log.level_statement,
11038: g_module_current || '.CREATE_K_SYSTEM_TRF',
11032: --Terminate the CUrrent Owners Contract subline with date terminated as Transfer date
11033: IF fnd_log.level_statement >=
11034: fnd_log.g_current_runtime_level
11035: THEN
11036: fnd_log.STRING
11037: (fnd_log.level_statement,
11038: g_module_current || '.CREATE_K_SYSTEM_TRF',
11039: 'OKS Raise credit memo profile option value ='
11040: || fnd_profile.VALUE
11033: IF fnd_log.level_statement >=
11034: fnd_log.g_current_runtime_level
11035: THEN
11036: fnd_log.STRING
11037: (fnd_log.level_statement,
11038: g_module_current || '.CREATE_K_SYSTEM_TRF',
11039: 'OKS Raise credit memo profile option value ='
11040: || fnd_profile.VALUE
11041: ('OKS_RAISE_CREDIT_MEMO_FOR_IB_INT')
11101: p_term_cancel_source => 'IBTRANSFER',
11102: x_return_status => l_return_status
11103: );
11104:
11105: IF (fnd_log.level_event >=
11106: fnd_log.g_current_runtime_level
11107: )
11108: THEN
11109: fnd_log.STRING
11102: x_return_status => l_return_status
11103: );
11104:
11105: IF (fnd_log.level_event >=
11106: fnd_log.g_current_runtime_level
11107: )
11108: THEN
11109: fnd_log.STRING
11110: (fnd_log.level_event,
11105: IF (fnd_log.level_event >=
11106: fnd_log.g_current_runtime_level
11107: )
11108: THEN
11109: fnd_log.STRING
11110: (fnd_log.level_event,
11111: g_module_current || '.CREATE_K_SYSTEM_TRF',
11112: 'oks_bill_rec_pub.Pre_terminate_cp(Return status ='
11113: || l_return_status
11106: fnd_log.g_current_runtime_level
11107: )
11108: THEN
11109: fnd_log.STRING
11110: (fnd_log.level_event,
11111: g_module_current || '.CREATE_K_SYSTEM_TRF',
11112: 'oks_bill_rec_pub.Pre_terminate_cp(Return status ='
11113: || l_return_status
11114: || ')'
11153: p_clev_tbl => l_clev_tbl_in,
11154: x_clev_tbl => l_clev_tbl_out
11155: );
11156:
11157: IF (fnd_log.level_event >=
11158: fnd_log.g_current_runtime_level
11159: )
11160: THEN
11161: fnd_log.STRING
11154: x_clev_tbl => l_clev_tbl_out
11155: );
11156:
11157: IF (fnd_log.level_event >=
11158: fnd_log.g_current_runtime_level
11159: )
11160: THEN
11161: fnd_log.STRING
11162: (fnd_log.level_event,
11157: IF (fnd_log.level_event >=
11158: fnd_log.g_current_runtime_level
11159: )
11160: THEN
11161: fnd_log.STRING
11162: (fnd_log.level_event,
11163: g_module_current || '.CREATE_K_SYSTEM_TRF',
11164: 'okc_contract_pub.update_contract_line(Return status = '
11165: || l_return_status
11158: fnd_log.g_current_runtime_level
11159: )
11160: THEN
11161: fnd_log.STRING
11162: (fnd_log.level_event,
11163: g_module_current || '.CREATE_K_SYSTEM_TRF',
11164: 'okc_contract_pub.update_contract_line(Return status = '
11165: || l_return_status
11166: || ')'
11203: p_chrv_tbl => l_chrv_tbl_in,
11204: x_chrv_tbl => l_chrv_tbl_out
11205: );
11206:
11207: IF (fnd_log.level_event >=
11208: fnd_log.g_current_runtime_level
11209: )
11210: THEN
11211: fnd_log.STRING
11204: x_chrv_tbl => l_chrv_tbl_out
11205: );
11206:
11207: IF (fnd_log.level_event >=
11208: fnd_log.g_current_runtime_level
11209: )
11210: THEN
11211: fnd_log.STRING
11212: (fnd_log.level_event,
11207: IF (fnd_log.level_event >=
11208: fnd_log.g_current_runtime_level
11209: )
11210: THEN
11211: fnd_log.STRING
11212: (fnd_log.level_event,
11213: g_module_current
11214: || '.Update_Hdr_Dates.external_call.after',
11215: 'okc_contract_pub.update_contract_header(Return status = '
11208: fnd_log.g_current_runtime_level
11209: )
11210: THEN
11211: fnd_log.STRING
11212: (fnd_log.level_event,
11213: g_module_current
11214: || '.Update_Hdr_Dates.external_call.after',
11215: 'okc_contract_pub.update_contract_header(Return status = '
11216: || l_return_status
11262: p_comments => NULL,
11263: p_validate_status => 'N'
11264: );
11265:
11266: IF (fnd_log.level_event >=
11267: fnd_log.g_current_runtime_level
11268: )
11269: THEN
11270: fnd_log.STRING
11263: p_validate_status => 'N'
11264: );
11265:
11266: IF (fnd_log.level_event >=
11267: fnd_log.g_current_runtime_level
11268: )
11269: THEN
11270: fnd_log.STRING
11271: (fnd_log.level_event,
11266: IF (fnd_log.level_event >=
11267: fnd_log.g_current_runtime_level
11268: )
11269: THEN
11270: fnd_log.STRING
11271: (fnd_log.level_event,
11272: g_module_current || '.CREATE_K_SYSTEM_TRF',
11273: 'okc_contract_pub.update_contract_line(Return status ='
11274: || l_return_status
11267: fnd_log.g_current_runtime_level
11268: )
11269: THEN
11270: fnd_log.STRING
11271: (fnd_log.level_event,
11272: g_module_current || '.CREATE_K_SYSTEM_TRF',
11273: 'okc_contract_pub.update_contract_line(Return status ='
11274: || l_return_status
11275: || ')'
11315: p_comments => NULL,
11316: p_validate_status => 'N'
11317: );
11318:
11319: IF (fnd_log.level_event >=
11320: fnd_log.g_current_runtime_level
11321: )
11322: THEN
11323: fnd_log.STRING
11316: p_validate_status => 'N'
11317: );
11318:
11319: IF (fnd_log.level_event >=
11320: fnd_log.g_current_runtime_level
11321: )
11322: THEN
11323: fnd_log.STRING
11324: (fnd_log.level_event,
11319: IF (fnd_log.level_event >=
11320: fnd_log.g_current_runtime_level
11321: )
11322: THEN
11323: fnd_log.STRING
11324: (fnd_log.level_event,
11325: g_module_current || '.CREATE_K_SYSTEM_TRF',
11326: 'okc_contract_pub.update_contract_line(Return status = '
11327: || l_return_status
11320: fnd_log.g_current_runtime_level
11321: )
11322: THEN
11323: fnd_log.STRING
11324: (fnd_log.level_event,
11325: g_module_current || '.CREATE_K_SYSTEM_TRF',
11326: 'okc_contract_pub.update_contract_line(Return status = '
11327: || l_return_status
11328: || ')'
11364: (date_cancelled),
11365: p_validate_status => 'N'
11366: );
11367:
11368: IF (fnd_log.level_event >=
11369: fnd_log.g_current_runtime_level
11370: )
11371: THEN
11372: fnd_log.STRING
11365: p_validate_status => 'N'
11366: );
11367:
11368: IF (fnd_log.level_event >=
11369: fnd_log.g_current_runtime_level
11370: )
11371: THEN
11372: fnd_log.STRING
11373: (fnd_log.level_event,
11368: IF (fnd_log.level_event >=
11369: fnd_log.g_current_runtime_level
11370: )
11371: THEN
11372: fnd_log.STRING
11373: (fnd_log.level_event,
11374: g_module_current || '.CREATE_K_SYSTEM_TRF',
11375: 'oks_change_status_pvt.Update_header_status(Return status = '
11376: || l_return_status
11369: fnd_log.g_current_runtime_level
11370: )
11371: THEN
11372: fnd_log.STRING
11373: (fnd_log.level_event,
11374: g_module_current || '.CREATE_K_SYSTEM_TRF',
11375: 'oks_change_status_pvt.Update_header_status(Return status = '
11376: || l_return_status
11377: || ')'
11501: CLOSE l_cust_rel_csr;
11502: /*E1*/
11503: END IF;
11504:
11505: IF fnd_log.level_statement >=
11506: fnd_log.g_current_runtime_level
11507: THEN
11508: fnd_log.STRING
11509: (fnd_log.level_statement,
11502: /*E1*/
11503: END IF;
11504:
11505: IF fnd_log.level_statement >=
11506: fnd_log.g_current_runtime_level
11507: THEN
11508: fnd_log.STRING
11509: (fnd_log.level_statement,
11510: g_module_current || '.CREATE_K_SYSTEM_TRF',
11504:
11505: IF fnd_log.level_statement >=
11506: fnd_log.g_current_runtime_level
11507: THEN
11508: fnd_log.STRING
11509: (fnd_log.level_statement,
11510: g_module_current || '.CREATE_K_SYSTEM_TRF',
11511: 'TRANS_NO_REL profile relationship = '
11512: || l_relationship_type
11505: IF fnd_log.level_statement >=
11506: fnd_log.g_current_runtime_level
11507: THEN
11508: fnd_log.STRING
11509: (fnd_log.level_statement,
11510: g_module_current || '.CREATE_K_SYSTEM_TRF',
11511: 'TRANS_NO_REL profile relationship = '
11512: || l_relationship_type
11513: || ', Actual Relationship = '
11519: IF l_relationship IS NULL OR l_trf_option = 'TRANS'
11520: THEN
11521: -- If Contract is in Entered Status then no updates on the original Contract
11522: -- but Create a Contract for New Owner in Entered Status.
11523: IF fnd_log.level_statement >=
11524: fnd_log.g_current_runtime_level
11525: THEN
11526: fnd_log.STRING (fnd_log.level_statement,
11527: g_module_current
11520: THEN
11521: -- If Contract is in Entered Status then no updates on the original Contract
11522: -- but Create a Contract for New Owner in Entered Status.
11523: IF fnd_log.level_statement >=
11524: fnd_log.g_current_runtime_level
11525: THEN
11526: fnd_log.STRING (fnd_log.level_statement,
11527: g_module_current
11528: || '.CREATE_K_SYSTEM_TRF',
11522: -- but Create a Contract for New Owner in Entered Status.
11523: IF fnd_log.level_statement >=
11524: fnd_log.g_current_runtime_level
11525: THEN
11526: fnd_log.STRING (fnd_log.level_statement,
11527: g_module_current
11528: || '.CREATE_K_SYSTEM_TRF',
11529: 'Product Status code = '
11530: || p_kdtl_tbl (l_ctr).prod_sts_code
11537:
11538: /*4*/
11539: IF l_ste_code <> 'ENTERED'
11540: THEN
11541: IF fnd_log.level_statement >=
11542: fnd_log.g_current_runtime_level
11543: THEN
11544: fnd_log.STRING
11545: (fnd_log.level_statement,
11538: /*4*/
11539: IF l_ste_code <> 'ENTERED'
11540: THEN
11541: IF fnd_log.level_statement >=
11542: fnd_log.g_current_runtime_level
11543: THEN
11544: fnd_log.STRING
11545: (fnd_log.level_statement,
11546: g_module_current || '.CREATE_K_SYSTEM_TRF',
11540: THEN
11541: IF fnd_log.level_statement >=
11542: fnd_log.g_current_runtime_level
11543: THEN
11544: fnd_log.STRING
11545: (fnd_log.level_statement,
11546: g_module_current || '.CREATE_K_SYSTEM_TRF',
11547: 'OKS Raise credit memo profile option value ='
11548: || fnd_profile.VALUE
11541: IF fnd_log.level_statement >=
11542: fnd_log.g_current_runtime_level
11543: THEN
11544: fnd_log.STRING
11545: (fnd_log.level_statement,
11546: g_module_current || '.CREATE_K_SYSTEM_TRF',
11547: 'OKS Raise credit memo profile option value ='
11548: || fnd_profile.VALUE
11549: ('OKS_RAISE_CREDIT_MEMO_FOR_IB_INT')
11609: p_term_cancel_source => 'IBTRANSFER',
11610: x_return_status => l_return_status
11611: );
11612:
11613: IF (fnd_log.level_event >=
11614: fnd_log.g_current_runtime_level
11615: )
11616: THEN
11617: fnd_log.STRING
11610: x_return_status => l_return_status
11611: );
11612:
11613: IF (fnd_log.level_event >=
11614: fnd_log.g_current_runtime_level
11615: )
11616: THEN
11617: fnd_log.STRING
11618: (fnd_log.level_event,
11613: IF (fnd_log.level_event >=
11614: fnd_log.g_current_runtime_level
11615: )
11616: THEN
11617: fnd_log.STRING
11618: (fnd_log.level_event,
11619: g_module_current || '.CREATE_K_SYSTEM_TRF',
11620: 'oks_bill_rec_pub.Pre_terminate_cp(Return status ='
11621: || l_return_status
11614: fnd_log.g_current_runtime_level
11615: )
11616: THEN
11617: fnd_log.STRING
11618: (fnd_log.level_event,
11619: g_module_current || '.CREATE_K_SYSTEM_TRF',
11620: 'oks_bill_rec_pub.Pre_terminate_cp(Return status ='
11621: || l_return_status
11622: || ')'
11663: p_clev_tbl => l_clev_tbl_in,
11664: x_clev_tbl => l_clev_tbl_out
11665: );
11666:
11667: IF (fnd_log.level_event >=
11668: fnd_log.g_current_runtime_level
11669: )
11670: THEN
11671: fnd_log.STRING
11664: x_clev_tbl => l_clev_tbl_out
11665: );
11666:
11667: IF (fnd_log.level_event >=
11668: fnd_log.g_current_runtime_level
11669: )
11670: THEN
11671: fnd_log.STRING
11672: (fnd_log.level_event,
11667: IF (fnd_log.level_event >=
11668: fnd_log.g_current_runtime_level
11669: )
11670: THEN
11671: fnd_log.STRING
11672: (fnd_log.level_event,
11673: g_module_current || '.CREATE_K_SYSTEM_TRF',
11674: 'okc_contract_pub.update_contract_line(Return status = '
11675: || l_return_status
11668: fnd_log.g_current_runtime_level
11669: )
11670: THEN
11671: fnd_log.STRING
11672: (fnd_log.level_event,
11673: g_module_current || '.CREATE_K_SYSTEM_TRF',
11674: 'okc_contract_pub.update_contract_line(Return status = '
11675: || l_return_status
11676: || ')'
11713: p_chrv_tbl => l_chrv_tbl_in,
11714: x_chrv_tbl => l_chrv_tbl_out
11715: );
11716:
11717: IF (fnd_log.level_event >=
11718: fnd_log.g_current_runtime_level
11719: )
11720: THEN
11721: fnd_log.STRING
11714: x_chrv_tbl => l_chrv_tbl_out
11715: );
11716:
11717: IF (fnd_log.level_event >=
11718: fnd_log.g_current_runtime_level
11719: )
11720: THEN
11721: fnd_log.STRING
11722: (fnd_log.level_event,
11717: IF (fnd_log.level_event >=
11718: fnd_log.g_current_runtime_level
11719: )
11720: THEN
11721: fnd_log.STRING
11722: (fnd_log.level_event,
11723: g_module_current
11724: || '.Update_Hdr_Dates.external_call.after',
11725: 'okc_contract_pub.update_contract_header(Return status = '
11718: fnd_log.g_current_runtime_level
11719: )
11720: THEN
11721: fnd_log.STRING
11722: (fnd_log.level_event,
11723: g_module_current
11724: || '.Update_Hdr_Dates.external_call.after',
11725: 'okc_contract_pub.update_contract_header(Return status = '
11726: || l_return_status
11764: p_comments => NULL,
11765: p_validate_status => 'N'
11766: );
11767:
11768: IF (fnd_log.level_event >=
11769: fnd_log.g_current_runtime_level
11770: )
11771: THEN
11772: fnd_log.STRING
11765: p_validate_status => 'N'
11766: );
11767:
11768: IF (fnd_log.level_event >=
11769: fnd_log.g_current_runtime_level
11770: )
11771: THEN
11772: fnd_log.STRING
11773: (fnd_log.level_event,
11768: IF (fnd_log.level_event >=
11769: fnd_log.g_current_runtime_level
11770: )
11771: THEN
11772: fnd_log.STRING
11773: (fnd_log.level_event,
11774: g_module_current || '.CREATE_K_SYSTEM_TRF',
11775: 'oks_change_status_pvt.Update_line_status(Return status ='
11776: || l_return_status
11769: fnd_log.g_current_runtime_level
11770: )
11771: THEN
11772: fnd_log.STRING
11773: (fnd_log.level_event,
11774: g_module_current || '.CREATE_K_SYSTEM_TRF',
11775: 'oks_change_status_pvt.Update_line_status(Return status ='
11776: || l_return_status
11777: || ')'
11817: p_comments => NULL,
11818: p_validate_status => 'N'
11819: );
11820:
11821: IF (fnd_log.level_event >=
11822: fnd_log.g_current_runtime_level
11823: )
11824: THEN
11825: fnd_log.STRING
11818: p_validate_status => 'N'
11819: );
11820:
11821: IF (fnd_log.level_event >=
11822: fnd_log.g_current_runtime_level
11823: )
11824: THEN
11825: fnd_log.STRING
11826: (fnd_log.level_event,
11821: IF (fnd_log.level_event >=
11822: fnd_log.g_current_runtime_level
11823: )
11824: THEN
11825: fnd_log.STRING
11826: (fnd_log.level_event,
11827: g_module_current || '.CREATE_K_SYSTEM_TRF',
11828: 'okc_contract_pub.update_contract_line(Return status = '
11829: || l_return_status
11822: fnd_log.g_current_runtime_level
11823: )
11824: THEN
11825: fnd_log.STRING
11826: (fnd_log.level_event,
11827: g_module_current || '.CREATE_K_SYSTEM_TRF',
11828: 'okc_contract_pub.update_contract_line(Return status = '
11829: || l_return_status
11830: || ')'
11866: (date_cancelled),
11867: p_validate_status => 'N'
11868: );
11869:
11870: IF (fnd_log.level_event >=
11871: fnd_log.g_current_runtime_level
11872: )
11873: THEN
11874: fnd_log.STRING
11867: p_validate_status => 'N'
11868: );
11869:
11870: IF (fnd_log.level_event >=
11871: fnd_log.g_current_runtime_level
11872: )
11873: THEN
11874: fnd_log.STRING
11875: (fnd_log.level_event,
11870: IF (fnd_log.level_event >=
11871: fnd_log.g_current_runtime_level
11872: )
11873: THEN
11874: fnd_log.STRING
11875: (fnd_log.level_event,
11876: g_module_current || '.CREATE_K_SYSTEM_TRF',
11877: 'OKS_WF_K_PROCESS_PVT.cancel_contract(Return status = '
11878: || l_return_status
11871: fnd_log.g_current_runtime_level
11872: )
11873: THEN
11874: fnd_log.STRING
11875: (fnd_log.level_event,
11876: g_module_current || '.CREATE_K_SYSTEM_TRF',
11877: 'OKS_WF_K_PROCESS_PVT.cancel_contract(Return status = '
11878: || l_return_status
11879: || ')'
11975: is a part of System Transfer.
11976: If SYstem id is Not null then SYsytem transfer
11977: else Customer product Transfer.
11978: -----------------------------------------------------------*/
11979: IF fnd_log.level_statement >=
11980: fnd_log.g_current_runtime_level
11981: THEN
11982: fnd_log.STRING (fnd_log.level_statement,
11983: g_module_current
11976: If SYstem id is Not null then SYsytem transfer
11977: else Customer product Transfer.
11978: -----------------------------------------------------------*/
11979: IF fnd_log.level_statement >=
11980: fnd_log.g_current_runtime_level
11981: THEN
11982: fnd_log.STRING (fnd_log.level_statement,
11983: g_module_current
11984: || '.CREATE_K_SYSTEM_TRF.system_trf',
11978: -----------------------------------------------------------*/
11979: IF fnd_log.level_statement >=
11980: fnd_log.g_current_runtime_level
11981: THEN
11982: fnd_log.STRING (fnd_log.level_statement,
11983: g_module_current
11984: || '.CREATE_K_SYSTEM_TRF.system_trf',
11985: 'System Id = '
11986: || p_kdtl_tbl (l_ctr).system_id
12015: p_kdtl_tbl (l_ctr).old_account_id
12016: )
12017: /*5*/
12018: LOOP
12019: IF fnd_log.level_statement >=
12020: fnd_log.g_current_runtime_level
12021: THEN
12022: fnd_log.STRING
12023: (fnd_log.level_statement,
12016: )
12017: /*5*/
12018: LOOP
12019: IF fnd_log.level_statement >=
12020: fnd_log.g_current_runtime_level
12021: THEN
12022: fnd_log.STRING
12023: (fnd_log.level_statement,
12024: g_module_current
12018: LOOP
12019: IF fnd_log.level_statement >=
12020: fnd_log.g_current_runtime_level
12021: THEN
12022: fnd_log.STRING
12023: (fnd_log.level_statement,
12024: g_module_current
12025: || '.CREATE_K_SYSTEM_TRF.system_trf',
12026: 'In Contracts_rec Loop'
12019: IF fnd_log.level_statement >=
12020: fnd_log.g_current_runtime_level
12021: THEN
12022: fnd_log.STRING
12023: (fnd_log.level_statement,
12024: g_module_current
12025: || '.CREATE_K_SYSTEM_TRF.system_trf',
12026: 'In Contracts_rec Loop'
12027: );
12026: 'In Contracts_rec Loop'
12027: );
12028: END IF;
12029:
12030: IF fnd_log.level_statement >=
12031: fnd_log.g_current_runtime_level
12032: THEN
12033: fnd_log.STRING
12034: (fnd_log.level_statement,
12027: );
12028: END IF;
12029:
12030: IF fnd_log.level_statement >=
12031: fnd_log.g_current_runtime_level
12032: THEN
12033: fnd_log.STRING
12034: (fnd_log.level_statement,
12035: g_module_current
12029:
12030: IF fnd_log.level_statement >=
12031: fnd_log.g_current_runtime_level
12032: THEN
12033: fnd_log.STRING
12034: (fnd_log.level_statement,
12035: g_module_current
12036: || '.CREATE_K_SYSTEM_TRF.system_trf',
12037: 'Source chr_id = '
12030: IF fnd_log.level_statement >=
12031: fnd_log.g_current_runtime_level
12032: THEN
12033: fnd_log.STRING
12034: (fnd_log.level_statement,
12035: g_module_current
12036: || '.CREATE_K_SYSTEM_TRF.system_trf',
12037: 'Source chr_id = '
12038: || p_kdtl_tbl (l_ctr).hdr_id
12038: || p_kdtl_tbl (l_ctr).hdr_id
12039: );
12040: END IF;
12041:
12042: IF fnd_log.level_statement >=
12043: fnd_log.g_current_runtime_level
12044: THEN
12045: fnd_log.STRING
12046: (fnd_log.level_statement,
12039: );
12040: END IF;
12041:
12042: IF fnd_log.level_statement >=
12043: fnd_log.g_current_runtime_level
12044: THEN
12045: fnd_log.STRING
12046: (fnd_log.level_statement,
12047: g_module_current
12041:
12042: IF fnd_log.level_statement >=
12043: fnd_log.g_current_runtime_level
12044: THEN
12045: fnd_log.STRING
12046: (fnd_log.level_statement,
12047: g_module_current
12048: || '.CREATE_K_SYSTEM_TRF.system_trf',
12049: 'Target chr Id = '
12042: IF fnd_log.level_statement >=
12043: fnd_log.g_current_runtime_level
12044: THEN
12045: fnd_log.STRING
12046: (fnd_log.level_statement,
12047: g_module_current
12048: || '.CREATE_K_SYSTEM_TRF.system_trf',
12049: 'Target chr Id = '
12050: || l_contracts_rec.new_contract_id
12068: x_msg_data => x_msg_data,
12069: x_return_status => l_return_status
12070: );
12071:
12072: IF (fnd_log.level_event >=
12073: fnd_log.g_current_runtime_level
12074: )
12075: THEN
12076: fnd_log.STRING
12069: x_return_status => l_return_status
12070: );
12071:
12072: IF (fnd_log.level_event >=
12073: fnd_log.g_current_runtime_level
12074: )
12075: THEN
12076: fnd_log.STRING
12077: (fnd_log.level_event,
12072: IF (fnd_log.level_event >=
12073: fnd_log.g_current_runtime_level
12074: )
12075: THEN
12076: fnd_log.STRING
12077: (fnd_log.level_event,
12078: g_module_current
12079: || '.CREATE_K_SYSTEM_TRF',
12080: 'header_merge_yn(Return status ='
12073: fnd_log.g_current_runtime_level
12074: )
12075: THEN
12076: fnd_log.STRING
12077: (fnd_log.level_event,
12078: g_module_current
12079: || '.CREATE_K_SYSTEM_TRF',
12080: 'header_merge_yn(Return status ='
12081: || l_return_status
12100: )
12101: LOOP
12102: l_line_found := 'T';
12103:
12104: IF fnd_log.level_statement >=
12105: fnd_log.g_current_runtime_level
12106: THEN
12107: fnd_log.STRING
12108: (fnd_log.level_statement,
12101: LOOP
12102: l_line_found := 'T';
12103:
12104: IF fnd_log.level_statement >=
12105: fnd_log.g_current_runtime_level
12106: THEN
12107: fnd_log.STRING
12108: (fnd_log.level_statement,
12109: g_module_current
12103:
12104: IF fnd_log.level_statement >=
12105: fnd_log.g_current_runtime_level
12106: THEN
12107: fnd_log.STRING
12108: (fnd_log.level_statement,
12109: g_module_current
12110: || '.CREATE_K_SYSTEM_TRF.system_trf',
12111: 'Source line_id = '
12104: IF fnd_log.level_statement >=
12105: fnd_log.g_current_runtime_level
12106: THEN
12107: fnd_log.STRING
12108: (fnd_log.level_statement,
12109: g_module_current
12110: || '.CREATE_K_SYSTEM_TRF.system_trf',
12111: 'Source line_id = '
12112: || p_kdtl_tbl (l_ctr).service_line_id
12112: || p_kdtl_tbl (l_ctr).service_line_id
12113: );
12114: END IF;
12115:
12116: IF fnd_log.level_statement >=
12117: fnd_log.g_current_runtime_level
12118: THEN
12119: fnd_log.STRING
12120: (fnd_log.level_statement,
12113: );
12114: END IF;
12115:
12116: IF fnd_log.level_statement >=
12117: fnd_log.g_current_runtime_level
12118: THEN
12119: fnd_log.STRING
12120: (fnd_log.level_statement,
12121: g_module_current
12115:
12116: IF fnd_log.level_statement >=
12117: fnd_log.g_current_runtime_level
12118: THEN
12119: fnd_log.STRING
12120: (fnd_log.level_statement,
12121: g_module_current
12122: || '.CREATE_K_SYSTEM_TRF.system_trf',
12123: 'Target line_id = '
12116: IF fnd_log.level_statement >=
12117: fnd_log.g_current_runtime_level
12118: THEN
12119: fnd_log.STRING
12120: (fnd_log.level_statement,
12121: g_module_current
12122: || '.CREATE_K_SYSTEM_TRF.system_trf',
12123: 'Target line_id = '
12124: || l_topline_rec.cle_id
12135: x_msg_data => x_msg_data,
12136: x_return_status => l_return_status
12137: );
12138:
12139: IF (fnd_log.level_event >=
12140: fnd_log.g_current_runtime_level
12141: )
12142: THEN
12143: fnd_log.STRING
12136: x_return_status => l_return_status
12137: );
12138:
12139: IF (fnd_log.level_event >=
12140: fnd_log.g_current_runtime_level
12141: )
12142: THEN
12143: fnd_log.STRING
12144: (fnd_log.level_event,
12139: IF (fnd_log.level_event >=
12140: fnd_log.g_current_runtime_level
12141: )
12142: THEN
12143: fnd_log.STRING
12144: (fnd_log.level_event,
12145: g_module_current
12146: || '.CREATE_K_SYSTEM_TRF',
12147: 'line_merge_yn(Return status ='
12140: fnd_log.g_current_runtime_level
12141: )
12142: THEN
12143: fnd_log.STRING
12144: (fnd_log.level_event,
12145: g_module_current
12146: || '.CREATE_K_SYSTEM_TRF',
12147: 'line_merge_yn(Return status ='
12148: || l_return_status
12169: x_msg_data => x_msg_data,
12170: x_msg_count => x_msg_count
12171: );
12172:
12173: IF (fnd_log.level_event >=
12174: fnd_log.g_current_runtime_level
12175: )
12176: THEN
12177: fnd_log.STRING
12170: x_msg_count => x_msg_count
12171: );
12172:
12173: IF (fnd_log.level_event >=
12174: fnd_log.g_current_runtime_level
12175: )
12176: THEN
12177: fnd_log.STRING
12178: (fnd_log.level_event,
12173: IF (fnd_log.level_event >=
12174: fnd_log.g_current_runtime_level
12175: )
12176: THEN
12177: fnd_log.STRING
12178: (fnd_log.level_event,
12179: g_module_current
12180: || '.CREATE_K_SYSTEM_TRF',
12181: 'Create_contract_subline(Return status ='
12174: fnd_log.g_current_runtime_level
12175: )
12176: THEN
12177: fnd_log.STRING
12178: (fnd_log.level_event,
12179: g_module_current
12180: || '.CREATE_K_SYSTEM_TRF',
12181: 'Create_contract_subline(Return status ='
12182: || l_return_status
12211: x_msg_count => x_msg_count,
12212: x_msg_data => x_msg_data
12213: );
12214:
12215: IF (fnd_log.level_event >=
12216: fnd_log.g_current_runtime_level
12217: )
12218: THEN
12219: fnd_log.STRING
12212: x_msg_data => x_msg_data
12213: );
12214:
12215: IF (fnd_log.level_event >=
12216: fnd_log.g_current_runtime_level
12217: )
12218: THEN
12219: fnd_log.STRING
12220: (fnd_log.level_event,
12215: IF (fnd_log.level_event >=
12216: fnd_log.g_current_runtime_level
12217: )
12218: THEN
12219: fnd_log.STRING
12220: (fnd_log.level_event,
12221: g_module_current
12222: || '.CREATE_K_SYSTEM_TRF',
12223: 'Create_transaction_source(Return status ='
12216: fnd_log.g_current_runtime_level
12217: )
12218: THEN
12219: fnd_log.STRING
12220: (fnd_log.level_event,
12221: g_module_current
12222: || '.CREATE_K_SYSTEM_TRF',
12223: 'Create_transaction_source(Return status ='
12224: || l_return_status
12260: x_msg_count => x_msg_count,
12261: x_msg_data => x_msg_data
12262: );
12263:
12264: IF (fnd_log.level_event >=
12265: fnd_log.g_current_runtime_level
12266: )
12267: THEN
12268: fnd_log.STRING
12261: x_msg_data => x_msg_data
12262: );
12263:
12264: IF (fnd_log.level_event >=
12265: fnd_log.g_current_runtime_level
12266: )
12267: THEN
12268: fnd_log.STRING
12269: (fnd_log.level_event,
12264: IF (fnd_log.level_event >=
12265: fnd_log.g_current_runtime_level
12266: )
12267: THEN
12268: fnd_log.STRING
12269: (fnd_log.level_event,
12270: g_module_current
12271: || '.CREATE_K_SYSTEM_TRF',
12272: 'Create_source_links(Return status ='
12265: fnd_log.g_current_runtime_level
12266: )
12267: THEN
12268: fnd_log.STRING
12269: (fnd_log.level_event,
12270: g_module_current
12271: || '.CREATE_K_SYSTEM_TRF',
12272: 'Create_source_links(Return status ='
12273: || l_return_status
12286: INTO l_start_date, l_end_date;
12287:
12288: CLOSE l_hdrdt_csr;
12289:
12290: IF fnd_log.level_statement >=
12291: fnd_log.g_current_runtime_level
12292: THEN
12293: fnd_log.STRING
12294: (fnd_log.level_statement,
12287:
12288: CLOSE l_hdrdt_csr;
12289:
12290: IF fnd_log.level_statement >=
12291: fnd_log.g_current_runtime_level
12292: THEN
12293: fnd_log.STRING
12294: (fnd_log.level_statement,
12295: g_module_current
12289:
12290: IF fnd_log.level_statement >=
12291: fnd_log.g_current_runtime_level
12292: THEN
12293: fnd_log.STRING
12294: (fnd_log.level_statement,
12295: g_module_current
12296: || '.CREATE_K_SYSTEM_TRF',
12297: 'Header start date = '
12290: IF fnd_log.level_statement >=
12291: fnd_log.g_current_runtime_level
12292: THEN
12293: fnd_log.STRING
12294: (fnd_log.level_statement,
12295: g_module_current
12296: || '.CREATE_K_SYSTEM_TRF',
12297: 'Header start date = '
12298: || l_start_date
12307: INTO l_srv_sdt, l_srv_edt;
12308:
12309: CLOSE l_srvdt_csr;
12310:
12311: IF fnd_log.level_statement >=
12312: fnd_log.g_current_runtime_level
12313: THEN
12314: fnd_log.STRING
12315: (fnd_log.level_statement,
12308:
12309: CLOSE l_srvdt_csr;
12310:
12311: IF fnd_log.level_statement >=
12312: fnd_log.g_current_runtime_level
12313: THEN
12314: fnd_log.STRING
12315: (fnd_log.level_statement,
12316: g_module_current
12310:
12311: IF fnd_log.level_statement >=
12312: fnd_log.g_current_runtime_level
12313: THEN
12314: fnd_log.STRING
12315: (fnd_log.level_statement,
12316: g_module_current
12317: || '.CREATE_K_SYSTEM_TRF',
12318: 'Line start date = '
12311: IF fnd_log.level_statement >=
12312: fnd_log.g_current_runtime_level
12313: THEN
12314: fnd_log.STRING
12315: (fnd_log.level_statement,
12316: g_module_current
12317: || '.CREATE_K_SYSTEM_TRF',
12318: 'Line start date = '
12319: || l_srv_sdt
12366: x_msg_data => x_msg_data,
12367: x_msg_count => x_msg_count
12368: );
12369:
12370: IF (fnd_log.level_event >=
12371: fnd_log.g_current_runtime_level
12372: )
12373: THEN
12374: fnd_log.STRING
12367: x_msg_count => x_msg_count
12368: );
12369:
12370: IF (fnd_log.level_event >=
12371: fnd_log.g_current_runtime_level
12372: )
12373: THEN
12374: fnd_log.STRING
12375: (fnd_log.level_event,
12370: IF (fnd_log.level_event >=
12371: fnd_log.g_current_runtime_level
12372: )
12373: THEN
12374: fnd_log.STRING
12375: (fnd_log.level_event,
12376: g_module_current
12377: || '.CREATE_K_SYSTEM_TRF',
12378: 'Create_billing_schedule(Return status ='
12371: fnd_log.g_current_runtime_level
12372: )
12373: THEN
12374: fnd_log.STRING
12375: (fnd_log.level_event,
12376: g_module_current
12377: || '.CREATE_K_SYSTEM_TRF',
12378: 'Create_billing_schedule(Return status ='
12379: || l_return_status
12463: p_chr_id => l_merge_chr_id,
12464: x_msg_tbl => l_msg_tbl
12465: );
12466:
12467: IF (fnd_log.level_event >=
12468: fnd_log.g_current_runtime_level
12469: )
12470: THEN
12471: fnd_log.STRING
12464: x_msg_tbl => l_msg_tbl
12465: );
12466:
12467: IF (fnd_log.level_event >=
12468: fnd_log.g_current_runtime_level
12469: )
12470: THEN
12471: fnd_log.STRING
12472: (fnd_log.level_event,
12467: IF (fnd_log.level_event >=
12468: fnd_log.g_current_runtime_level
12469: )
12470: THEN
12471: fnd_log.STRING
12472: (fnd_log.level_event,
12473: g_module_current
12474: || '.CREATE_K_SYSTEM_TRF',
12475: 'okc_qa_check_pub.execute_qa_check_list(Return status ='
12468: fnd_log.g_current_runtime_level
12469: )
12470: THEN
12471: fnd_log.STRING
12472: (fnd_log.level_event,
12473: g_module_current
12474: || '.CREATE_K_SYSTEM_TRF',
12475: 'okc_qa_check_pub.execute_qa_check_list(Return status ='
12476: || x_return_status
12502: i := l_msg_tbl.NEXT (i);
12503: END LOOP;
12504: END IF; --table count
12505:
12506: IF fnd_log.level_error >=
12507: fnd_log.g_current_runtime_level
12508: THEN
12509: fnd_log.STRING
12510: (fnd_log.level_error,
12503: END LOOP;
12504: END IF; --table count
12505:
12506: IF fnd_log.level_error >=
12507: fnd_log.g_current_runtime_level
12508: THEN
12509: fnd_log.STRING
12510: (fnd_log.level_error,
12511: g_module_current
12505:
12506: IF fnd_log.level_error >=
12507: fnd_log.g_current_runtime_level
12508: THEN
12509: fnd_log.STRING
12510: (fnd_log.level_error,
12511: g_module_current
12512: || '.CREATE_K_SYSTEM_TRF',
12513: 'qa Check list error'
12506: IF fnd_log.level_error >=
12507: fnd_log.g_current_runtime_level
12508: THEN
12509: fnd_log.STRING
12510: (fnd_log.level_error,
12511: g_module_current
12512: || '.CREATE_K_SYSTEM_TRF',
12513: 'qa Check list error'
12514: || l_msg_tbl (i).error_status
12603: x_line_id => l_line_id,
12604: x_msg_count => x_msg_count
12605: );
12606:
12607: IF (fnd_log.level_event >=
12608: fnd_log.g_current_runtime_level
12609: )
12610: THEN
12611: fnd_log.STRING
12604: x_msg_count => x_msg_count
12605: );
12606:
12607: IF (fnd_log.level_event >=
12608: fnd_log.g_current_runtime_level
12609: )
12610: THEN
12611: fnd_log.STRING
12612: (fnd_log.level_event,
12607: IF (fnd_log.level_event >=
12608: fnd_log.g_current_runtime_level
12609: )
12610: THEN
12611: fnd_log.STRING
12612: (fnd_log.level_event,
12613: g_module_current
12614: || '.CREATE_K_SYSTEM_TRF',
12615: 'Create_Contract_line(Return status = '
12608: fnd_log.g_current_runtime_level
12609: )
12610: THEN
12611: fnd_log.STRING
12612: (fnd_log.level_event,
12613: g_module_current
12614: || '.CREATE_K_SYSTEM_TRF',
12615: 'Create_Contract_line(Return status = '
12616: || l_return_status
12639: p_target_contract_line_id => l_line_id,
12640: x_actual_coverage_id => l_coverage_id
12641: );
12642:
12643: IF (fnd_log.level_event >=
12644: fnd_log.g_current_runtime_level
12645: )
12646: THEN
12647: fnd_log.STRING
12640: x_actual_coverage_id => l_coverage_id
12641: );
12642:
12643: IF (fnd_log.level_event >=
12644: fnd_log.g_current_runtime_level
12645: )
12646: THEN
12647: fnd_log.STRING
12648: (fnd_log.level_event,
12643: IF (fnd_log.level_event >=
12644: fnd_log.g_current_runtime_level
12645: )
12646: THEN
12647: fnd_log.STRING
12648: (fnd_log.level_event,
12649: g_module_current
12650: || '.CREATE_K_SYSTEM_TRF',
12651: 'Oks_coverages_pub.create_adjusted_coverage(Return status = '
12644: fnd_log.g_current_runtime_level
12645: )
12646: THEN
12647: fnd_log.STRING
12648: (fnd_log.level_event,
12649: g_module_current
12650: || '.CREATE_K_SYSTEM_TRF',
12651: 'Oks_coverages_pub.create_adjusted_coverage(Return status = '
12652: || l_return_status
12677: x_msg_count => x_msg_count,
12678: x_msg_data => x_msg_data
12679: );
12680:
12681: IF (fnd_log.level_event >=
12682: fnd_log.g_current_runtime_level
12683: )
12684: THEN
12685: fnd_log.STRING
12678: x_msg_data => x_msg_data
12679: );
12680:
12681: IF (fnd_log.level_event >=
12682: fnd_log.g_current_runtime_level
12683: )
12684: THEN
12685: fnd_log.STRING
12686: (fnd_log.level_event,
12681: IF (fnd_log.level_event >=
12682: fnd_log.g_current_runtime_level
12683: )
12684: THEN
12685: fnd_log.STRING
12686: (fnd_log.level_event,
12687: g_module_current
12688: || '..after_coverage_ext',
12689: 'OKS_COVERAGES_PVT.Create_K_coverage_ext(Return status = '
12682: fnd_log.g_current_runtime_level
12683: )
12684: THEN
12685: fnd_log.STRING
12686: (fnd_log.level_event,
12687: g_module_current
12688: || '..after_coverage_ext',
12689: 'OKS_COVERAGES_PVT.Create_K_coverage_ext(Return status = '
12690: || l_return_status
12715: x_msg_data => x_msg_data,
12716: x_msg_count => x_msg_count
12717: );
12718:
12719: IF (fnd_log.level_event >=
12720: fnd_log.g_current_runtime_level
12721: )
12722: THEN
12723: fnd_log.STRING
12716: x_msg_count => x_msg_count
12717: );
12718:
12719: IF (fnd_log.level_event >=
12720: fnd_log.g_current_runtime_level
12721: )
12722: THEN
12723: fnd_log.STRING
12724: (fnd_log.level_event,
12719: IF (fnd_log.level_event >=
12720: fnd_log.g_current_runtime_level
12721: )
12722: THEN
12723: fnd_log.STRING
12724: (fnd_log.level_event,
12725: g_module_current
12726: || '.CREATE_K_SYSTEM_TRF',
12727: 'Create_contract_subline(Return status = '
12720: fnd_log.g_current_runtime_level
12721: )
12722: THEN
12723: fnd_log.STRING
12724: (fnd_log.level_event,
12725: g_module_current
12726: || '.CREATE_K_SYSTEM_TRF',
12727: 'Create_contract_subline(Return status = '
12728: || l_return_status
12754: x_msg_count => x_msg_count,
12755: x_msg_data => x_msg_data
12756: );
12757:
12758: IF (fnd_log.level_event >=
12759: fnd_log.g_current_runtime_level
12760: )
12761: THEN
12762: fnd_log.STRING
12755: x_msg_data => x_msg_data
12756: );
12757:
12758: IF (fnd_log.level_event >=
12759: fnd_log.g_current_runtime_level
12760: )
12761: THEN
12762: fnd_log.STRING
12763: (fnd_log.level_event,
12758: IF (fnd_log.level_event >=
12759: fnd_log.g_current_runtime_level
12760: )
12761: THEN
12762: fnd_log.STRING
12763: (fnd_log.level_event,
12764: g_module_current
12765: || '.CREATE_K_SYSTEM_TRF',
12766: 'Create_transaction_source(Return status ='
12759: fnd_log.g_current_runtime_level
12760: )
12761: THEN
12762: fnd_log.STRING
12763: (fnd_log.level_event,
12764: g_module_current
12765: || '.CREATE_K_SYSTEM_TRF',
12766: 'Create_transaction_source(Return status ='
12767: || l_return_status
12800: x_msg_count => x_msg_count,
12801: x_msg_data => x_msg_data
12802: );
12803:
12804: IF (fnd_log.level_event >=
12805: fnd_log.g_current_runtime_level
12806: )
12807: THEN
12808: fnd_log.STRING
12801: x_msg_data => x_msg_data
12802: );
12803:
12804: IF (fnd_log.level_event >=
12805: fnd_log.g_current_runtime_level
12806: )
12807: THEN
12808: fnd_log.STRING
12809: (fnd_log.level_event,
12804: IF (fnd_log.level_event >=
12805: fnd_log.g_current_runtime_level
12806: )
12807: THEN
12808: fnd_log.STRING
12809: (fnd_log.level_event,
12810: g_module_current
12811: || '.CREATE_K_SYSTEM_TRF',
12812: 'Create_source_links(Return status ='
12805: fnd_log.g_current_runtime_level
12806: )
12807: THEN
12808: fnd_log.STRING
12809: (fnd_log.level_event,
12810: g_module_current
12811: || '.CREATE_K_SYSTEM_TRF',
12812: 'Create_source_links(Return status ='
12813: || l_return_status
12826: INTO l_start_date, l_end_date;
12827:
12828: CLOSE l_hdrdt_csr;
12829:
12830: IF fnd_log.level_statement >=
12831: fnd_log.g_current_runtime_level
12832: THEN
12833: fnd_log.STRING
12834: (fnd_log.level_statement,
12827:
12828: CLOSE l_hdrdt_csr;
12829:
12830: IF fnd_log.level_statement >=
12831: fnd_log.g_current_runtime_level
12832: THEN
12833: fnd_log.STRING
12834: (fnd_log.level_statement,
12835: g_module_current
12829:
12830: IF fnd_log.level_statement >=
12831: fnd_log.g_current_runtime_level
12832: THEN
12833: fnd_log.STRING
12834: (fnd_log.level_statement,
12835: g_module_current
12836: || '.CREATE_K_SYSTEM_TRF',
12837: 'Header start date = '
12830: IF fnd_log.level_statement >=
12831: fnd_log.g_current_runtime_level
12832: THEN
12833: fnd_log.STRING
12834: (fnd_log.level_statement,
12835: g_module_current
12836: || '.CREATE_K_SYSTEM_TRF',
12837: 'Header start date = '
12838: || l_start_date
12847: INTO l_srv_sdt, l_srv_edt;
12848:
12849: CLOSE l_srvdt_csr;
12850:
12851: IF fnd_log.level_statement >=
12852: fnd_log.g_current_runtime_level
12853: THEN
12854: fnd_log.STRING
12855: (fnd_log.level_statement,
12848:
12849: CLOSE l_srvdt_csr;
12850:
12851: IF fnd_log.level_statement >=
12852: fnd_log.g_current_runtime_level
12853: THEN
12854: fnd_log.STRING
12855: (fnd_log.level_statement,
12856: g_module_current
12850:
12851: IF fnd_log.level_statement >=
12852: fnd_log.g_current_runtime_level
12853: THEN
12854: fnd_log.STRING
12855: (fnd_log.level_statement,
12856: g_module_current
12857: || '.CREATE_K_SYSTEM_TRF',
12858: 'Line start date = '
12851: IF fnd_log.level_statement >=
12852: fnd_log.g_current_runtime_level
12853: THEN
12854: fnd_log.STRING
12855: (fnd_log.level_statement,
12856: g_module_current
12857: || '.CREATE_K_SYSTEM_TRF',
12858: 'Line start date = '
12859: || l_srv_sdt
12906: x_msg_data => x_msg_data,
12907: x_msg_count => x_msg_count
12908: );
12909:
12910: IF (fnd_log.level_event >=
12911: fnd_log.g_current_runtime_level
12912: )
12913: THEN
12914: fnd_log.STRING
12907: x_msg_count => x_msg_count
12908: );
12909:
12910: IF (fnd_log.level_event >=
12911: fnd_log.g_current_runtime_level
12912: )
12913: THEN
12914: fnd_log.STRING
12915: (fnd_log.level_event,
12910: IF (fnd_log.level_event >=
12911: fnd_log.g_current_runtime_level
12912: )
12913: THEN
12914: fnd_log.STRING
12915: (fnd_log.level_event,
12916: g_module_current
12917: || '.CREATE_K_SYSTEM_TRF',
12918: 'Create_billing_schedule(Return status = '
12911: fnd_log.g_current_runtime_level
12912: )
12913: THEN
12914: fnd_log.STRING
12915: (fnd_log.level_event,
12916: g_module_current
12917: || '.CREATE_K_SYSTEM_TRF',
12918: 'Create_billing_schedule(Return status = '
12919: || l_return_status
13001: p_chr_id => l_merge_chr_id,
13002: x_msg_tbl => l_msg_tbl
13003: );
13004:
13005: IF (fnd_log.level_event >=
13006: fnd_log.g_current_runtime_level
13007: )
13008: THEN
13009: fnd_log.STRING
13002: x_msg_tbl => l_msg_tbl
13003: );
13004:
13005: IF (fnd_log.level_event >=
13006: fnd_log.g_current_runtime_level
13007: )
13008: THEN
13009: fnd_log.STRING
13010: (fnd_log.level_event,
13005: IF (fnd_log.level_event >=
13006: fnd_log.g_current_runtime_level
13007: )
13008: THEN
13009: fnd_log.STRING
13010: (fnd_log.level_event,
13011: g_module_current
13012: || '.CREATE_K_SYSTEM_TRF',
13013: 'okc_qa_check_pub.execute_qa_check_list(Return status = '
13006: fnd_log.g_current_runtime_level
13007: )
13008: THEN
13009: fnd_log.STRING
13010: (fnd_log.level_event,
13011: g_module_current
13012: || '.CREATE_K_SYSTEM_TRF',
13013: 'okc_qa_check_pub.execute_qa_check_list(Return status = '
13014: || x_return_status
13039: i := l_msg_tbl.NEXT (i);
13040: END LOOP;
13041: END IF; --table count
13042:
13043: IF fnd_log.level_error >=
13044: fnd_log.g_current_runtime_level
13045: THEN
13046: fnd_log.STRING
13047: (fnd_log.level_error,
13040: END LOOP;
13041: END IF; --table count
13042:
13043: IF fnd_log.level_error >=
13044: fnd_log.g_current_runtime_level
13045: THEN
13046: fnd_log.STRING
13047: (fnd_log.level_error,
13048: g_module_current
13042:
13043: IF fnd_log.level_error >=
13044: fnd_log.g_current_runtime_level
13045: THEN
13046: fnd_log.STRING
13047: (fnd_log.level_error,
13048: g_module_current
13049: || '.CREATE_K_SYSTEM_TRF',
13050: 'qa Check list error'
13043: IF fnd_log.level_error >=
13044: fnd_log.g_current_runtime_level
13045: THEN
13046: fnd_log.STRING
13047: (fnd_log.level_error,
13048: g_module_current
13049: || '.CREATE_K_SYSTEM_TRF',
13050: 'qa Check list error'
13051: || l_msg_tbl (i).error_status
13131: -- Create New Contract
13132: /*8*/
13133: IF l_contract_exist = 'F' OR l_contract_merge = 'F'
13134: THEN
13135: IF fnd_log.level_statement >=
13136: fnd_log.g_current_runtime_level
13137: THEN
13138: fnd_log.STRING
13139: (fnd_log.level_statement,
13132: /*8*/
13133: IF l_contract_exist = 'F' OR l_contract_merge = 'F'
13134: THEN
13135: IF fnd_log.level_statement >=
13136: fnd_log.g_current_runtime_level
13137: THEN
13138: fnd_log.STRING
13139: (fnd_log.level_statement,
13140: g_module_current || '.CREATE_K_SYSTEM_TRF',
13134: THEN
13135: IF fnd_log.level_statement >=
13136: fnd_log.g_current_runtime_level
13137: THEN
13138: fnd_log.STRING
13139: (fnd_log.level_statement,
13140: g_module_current || '.CREATE_K_SYSTEM_TRF',
13141: 'Header merge failed, Create a new contract.'
13142: );
13135: IF fnd_log.level_statement >=
13136: fnd_log.g_current_runtime_level
13137: THEN
13138: fnd_log.STRING
13139: (fnd_log.level_statement,
13140: g_module_current || '.CREATE_K_SYSTEM_TRF',
13141: 'Header merge failed, Create a new contract.'
13142: );
13143: END IF;
13151: x_msg_count => x_msg_count,
13152: x_return_status => l_return_status
13153: );
13154:
13155: IF (fnd_log.level_event >=
13156: fnd_log.g_current_runtime_level
13157: )
13158: THEN
13159: fnd_log.STRING
13152: x_return_status => l_return_status
13153: );
13154:
13155: IF (fnd_log.level_event >=
13156: fnd_log.g_current_runtime_level
13157: )
13158: THEN
13159: fnd_log.STRING
13160: (fnd_log.level_event,
13155: IF (fnd_log.level_event >=
13156: fnd_log.g_current_runtime_level
13157: )
13158: THEN
13159: fnd_log.STRING
13160: (fnd_log.level_event,
13161: g_module_current || '.CREATE_K_SYSTEM_TRF',
13162: 'Create_Contract_header(Return status = '
13163: || l_return_status
13156: fnd_log.g_current_runtime_level
13157: )
13158: THEN
13159: fnd_log.STRING
13160: (fnd_log.level_event,
13161: g_module_current || '.CREATE_K_SYSTEM_TRF',
13162: 'Create_Contract_header(Return status = '
13163: || l_return_status
13164: || ')'
13203: x_line_id => l_line_id,
13204: x_msg_count => x_msg_count
13205: );
13206:
13207: IF (fnd_log.level_event >=
13208: fnd_log.g_current_runtime_level
13209: )
13210: THEN
13211: fnd_log.STRING
13204: x_msg_count => x_msg_count
13205: );
13206:
13207: IF (fnd_log.level_event >=
13208: fnd_log.g_current_runtime_level
13209: )
13210: THEN
13211: fnd_log.STRING
13212: (fnd_log.level_event,
13207: IF (fnd_log.level_event >=
13208: fnd_log.g_current_runtime_level
13209: )
13210: THEN
13211: fnd_log.STRING
13212: (fnd_log.level_event,
13213: g_module_current || '.CREATE_K_SYSTEM_TRF',
13214: 'Create_Contract_line(Return status = '
13215: || l_return_status
13208: fnd_log.g_current_runtime_level
13209: )
13210: THEN
13211: fnd_log.STRING
13212: (fnd_log.level_event,
13213: g_module_current || '.CREATE_K_SYSTEM_TRF',
13214: 'Create_Contract_line(Return status = '
13215: || l_return_status
13216: || ')'
13236: p_target_contract_line_id => l_line_id,
13237: x_actual_coverage_id => l_coverage_id
13238: );
13239:
13240: IF (fnd_log.level_event >=
13241: fnd_log.g_current_runtime_level
13242: )
13243: THEN
13244: fnd_log.STRING
13237: x_actual_coverage_id => l_coverage_id
13238: );
13239:
13240: IF (fnd_log.level_event >=
13241: fnd_log.g_current_runtime_level
13242: )
13243: THEN
13244: fnd_log.STRING
13245: (fnd_log.level_event,
13240: IF (fnd_log.level_event >=
13241: fnd_log.g_current_runtime_level
13242: )
13243: THEN
13244: fnd_log.STRING
13245: (fnd_log.level_event,
13246: g_module_current
13247: || '.CREATE_K_SYSTEM_TRF',
13248: 'oks_coverages_pub.create_adjusted_coverage(Return status = '
13241: fnd_log.g_current_runtime_level
13242: )
13243: THEN
13244: fnd_log.STRING
13245: (fnd_log.level_event,
13246: g_module_current
13247: || '.CREATE_K_SYSTEM_TRF',
13248: 'oks_coverages_pub.create_adjusted_coverage(Return status = '
13249: || l_return_status
13273: x_msg_count => x_msg_count,
13274: x_msg_data => x_msg_data
13275: );
13276:
13277: IF (fnd_log.level_event >=
13278: fnd_log.g_current_runtime_level
13279: )
13280: THEN
13281: fnd_log.STRING
13274: x_msg_data => x_msg_data
13275: );
13276:
13277: IF (fnd_log.level_event >=
13278: fnd_log.g_current_runtime_level
13279: )
13280: THEN
13281: fnd_log.STRING
13282: (fnd_log.level_event,
13277: IF (fnd_log.level_event >=
13278: fnd_log.g_current_runtime_level
13279: )
13280: THEN
13281: fnd_log.STRING
13282: (fnd_log.level_event,
13283: g_module_current
13284: || '..after_coverage_ext',
13285: 'OKS_COVERAGES_PVT.Create_K_coverage_ext(Return status = '
13278: fnd_log.g_current_runtime_level
13279: )
13280: THEN
13281: fnd_log.STRING
13282: (fnd_log.level_event,
13283: g_module_current
13284: || '..after_coverage_ext',
13285: 'OKS_COVERAGES_PVT.Create_K_coverage_ext(Return status = '
13286: || l_return_status
13311: x_msg_data => x_msg_data,
13312: x_msg_count => x_msg_count
13313: );
13314:
13315: IF (fnd_log.level_event >=
13316: fnd_log.g_current_runtime_level
13317: )
13318: THEN
13319: fnd_log.STRING
13312: x_msg_count => x_msg_count
13313: );
13314:
13315: IF (fnd_log.level_event >=
13316: fnd_log.g_current_runtime_level
13317: )
13318: THEN
13319: fnd_log.STRING
13320: (fnd_log.level_event,
13315: IF (fnd_log.level_event >=
13316: fnd_log.g_current_runtime_level
13317: )
13318: THEN
13319: fnd_log.STRING
13320: (fnd_log.level_event,
13321: g_module_current || '.CREATE_K_SYSTEM_TRF',
13322: 'create_contract_subline(Return status = '
13323: || l_return_status
13316: fnd_log.g_current_runtime_level
13317: )
13318: THEN
13319: fnd_log.STRING
13320: (fnd_log.level_event,
13321: g_module_current || '.CREATE_K_SYSTEM_TRF',
13322: 'create_contract_subline(Return status = '
13323: || l_return_status
13324: || ')'
13342: x_msg_count => x_msg_count,
13343: x_msg_data => x_msg_data
13344: );
13345:
13346: IF (fnd_log.level_event >=
13347: fnd_log.g_current_runtime_level
13348: )
13349: THEN
13350: fnd_log.STRING
13343: x_msg_data => x_msg_data
13344: );
13345:
13346: IF (fnd_log.level_event >=
13347: fnd_log.g_current_runtime_level
13348: )
13349: THEN
13350: fnd_log.STRING
13351: (fnd_log.level_event,
13346: IF (fnd_log.level_event >=
13347: fnd_log.g_current_runtime_level
13348: )
13349: THEN
13350: fnd_log.STRING
13351: (fnd_log.level_event,
13352: g_module_current || '.CREATE_K_SYSTEM_TRF',
13353: 'Create_transaction_source(Return status ='
13354: || l_return_status
13347: fnd_log.g_current_runtime_level
13348: )
13349: THEN
13350: fnd_log.STRING
13351: (fnd_log.level_event,
13352: g_module_current || '.CREATE_K_SYSTEM_TRF',
13353: 'Create_transaction_source(Return status ='
13354: || l_return_status
13355: || ')'
13373: x_msg_count => x_msg_count,
13374: x_msg_data => x_msg_data
13375: );
13376:
13377: IF (fnd_log.level_event >=
13378: fnd_log.g_current_runtime_level
13379: )
13380: THEN
13381: fnd_log.STRING
13374: x_msg_data => x_msg_data
13375: );
13376:
13377: IF (fnd_log.level_event >=
13378: fnd_log.g_current_runtime_level
13379: )
13380: THEN
13381: fnd_log.STRING
13382: (fnd_log.level_event,
13377: IF (fnd_log.level_event >=
13378: fnd_log.g_current_runtime_level
13379: )
13380: THEN
13381: fnd_log.STRING
13382: (fnd_log.level_event,
13383: g_module_current || '.CREATE_K_SYSTEM_TRF',
13384: 'Create_transaction_source(Return status ='
13385: || l_return_status
13378: fnd_log.g_current_runtime_level
13379: )
13380: THEN
13381: fnd_log.STRING
13382: (fnd_log.level_event,
13383: g_module_current || '.CREATE_K_SYSTEM_TRF',
13384: 'Create_transaction_source(Return status ='
13385: || l_return_status
13386: || ')'
13490: x_msg_count => x_msg_count,
13491: x_return_status => l_return_status
13492: );
13493:
13494: IF (fnd_log.level_event >=
13495: fnd_log.g_current_runtime_level
13496: )
13497: THEN
13498: fnd_log.STRING
13491: x_return_status => l_return_status
13492: );
13493:
13494: IF (fnd_log.level_event >=
13495: fnd_log.g_current_runtime_level
13496: )
13497: THEN
13498: fnd_log.STRING
13499: (fnd_log.level_event,
13494: IF (fnd_log.level_event >=
13495: fnd_log.g_current_runtime_level
13496: )
13497: THEN
13498: fnd_log.STRING
13499: (fnd_log.level_event,
13500: g_module_current
13501: || '.CREATE_K_SYSTEM_TRF',
13502: 'Create_billing_schedule(Return status = '
13495: fnd_log.g_current_runtime_level
13496: )
13497: THEN
13498: fnd_log.STRING
13499: (fnd_log.level_event,
13500: g_module_current
13501: || '.CREATE_K_SYSTEM_TRF',
13502: 'Create_billing_schedule(Return status = '
13503: || l_return_status
13543: p_chr_id => l_chr_id,
13544: x_msg_tbl => l_msg_tbl
13545: );
13546:
13547: IF (fnd_log.level_event >=
13548: fnd_log.g_current_runtime_level
13549: )
13550: THEN
13551: fnd_log.STRING
13544: x_msg_tbl => l_msg_tbl
13545: );
13546:
13547: IF (fnd_log.level_event >=
13548: fnd_log.g_current_runtime_level
13549: )
13550: THEN
13551: fnd_log.STRING
13552: (fnd_log.level_event,
13547: IF (fnd_log.level_event >=
13548: fnd_log.g_current_runtime_level
13549: )
13550: THEN
13551: fnd_log.STRING
13552: (fnd_log.level_event,
13553: g_module_current
13554: || '.CREATE_K_SYSTEM_TRF',
13555: 'okc_qa_check_pub.execute_qa_check_list(Return status = '
13548: fnd_log.g_current_runtime_level
13549: )
13550: THEN
13551: fnd_log.STRING
13552: (fnd_log.level_event,
13553: g_module_current
13554: || '.CREATE_K_SYSTEM_TRF',
13555: 'okc_qa_check_pub.execute_qa_check_list(Return status = '
13556: || x_return_status
13580: i := l_msg_tbl.NEXT (i);
13581: END LOOP;
13582: END IF; --table count
13583:
13584: IF fnd_log.level_error >=
13585: fnd_log.g_current_runtime_level
13586: THEN
13587: fnd_log.STRING (fnd_log.level_error,
13588: g_module_current
13581: END LOOP;
13582: END IF; --table count
13583:
13584: IF fnd_log.level_error >=
13585: fnd_log.g_current_runtime_level
13586: THEN
13587: fnd_log.STRING (fnd_log.level_error,
13588: g_module_current
13589: || '.CREATE_K_SYSTEM_TRF',
13583:
13584: IF fnd_log.level_error >=
13585: fnd_log.g_current_runtime_level
13586: THEN
13587: fnd_log.STRING (fnd_log.level_error,
13588: g_module_current
13589: || '.CREATE_K_SYSTEM_TRF',
13590: 'qa Check list error'
13591: || l_msg_tbl (i).error_status
13760: p_insv_rec => l_insthist_rec,
13761: x_insv_rec => x_insthist_rec
13762: );
13763:
13764: IF (fnd_log.level_event >=
13765: fnd_log.g_current_runtime_level
13766: )
13767: THEN
13768: fnd_log.STRING
13761: x_insv_rec => x_insthist_rec
13762: );
13763:
13764: IF (fnd_log.level_event >=
13765: fnd_log.g_current_runtime_level
13766: )
13767: THEN
13768: fnd_log.STRING
13769: (fnd_log.level_event,
13764: IF (fnd_log.level_event >=
13765: fnd_log.g_current_runtime_level
13766: )
13767: THEN
13768: fnd_log.STRING
13769: (fnd_log.level_event,
13770: g_module_current || '.CREATE_K_SYSTEM_TRF',
13771: 'oks_ins_pvt.insert_row(Return status = '
13772: || l_return_status
13765: fnd_log.g_current_runtime_level
13766: )
13767: THEN
13768: fnd_log.STRING
13769: (fnd_log.level_event,
13770: g_module_current || '.CREATE_K_SYSTEM_TRF',
13771: 'oks_ins_pvt.insert_row(Return status = '
13772: || l_return_status
13773: || ')'
13812: p_ihdv_tbl => l_inst_dtls_tbl,
13813: x_ihdv_tbl => x_inst_dtls_tbl
13814: );
13815:
13816: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
13817: )
13818: THEN
13819: fnd_log.STRING
13820: (fnd_log.level_event,
13815:
13816: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
13817: )
13818: THEN
13819: fnd_log.STRING
13820: (fnd_log.level_event,
13821: g_module_current || '.CREATE_K_SYSTEM_TRF',
13822: 'oks_ihd_pvt.insert_row(Return status = '
13823: || l_return_status
13816: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
13817: )
13818: THEN
13819: fnd_log.STRING
13820: (fnd_log.level_event,
13821: g_module_current || '.CREATE_K_SYSTEM_TRF',
13822: 'oks_ihd_pvt.insert_row(Return status = '
13823: || l_return_status
13824: || ')'
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,
13960: g_module_current || '.CREATE_CONTRACT_IBTERMINATE.',
13961: 'count = ' || p_kdtl_tbl.COUNT || ')'
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,
13960: g_module_current || '.CREATE_CONTRACT_IBTERMINATE.',
13961: 'count = ' || p_kdtl_tbl.COUNT || ')'
13962: );
13963: END IF;
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,
13986: g_module_current
13987: || '.CREATE_CONTRACT_IBTERMINATE.ERROR',
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,
13986: g_module_current
13987: || '.CREATE_CONTRACT_IBTERMINATE.ERROR',
13988: 'Contract in QA_HOLD status'
13989: );
14035: THEN
14036: l_trmdt := p_kdtl_tbl (l_ctr).prod_sdt;
14037: END IF;
14038:
14039: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
14040: THEN
14041: fnd_log.STRING
14042: (fnd_log.level_statement,
14043: g_module_current || '.CREATE_CONTRACT_IBTERMINATE',
14037: END IF;
14038:
14039: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
14040: THEN
14041: fnd_log.STRING
14042: (fnd_log.level_statement,
14043: g_module_current || '.CREATE_CONTRACT_IBTERMINATE',
14044: 'OKS Raise credit memo profile option value ='
14045: || fnd_profile.VALUE
14038:
14039: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
14040: THEN
14041: fnd_log.STRING
14042: (fnd_log.level_statement,
14043: g_module_current || '.CREATE_CONTRACT_IBTERMINATE',
14044: 'OKS Raise credit memo profile option value ='
14045: || fnd_profile.VALUE
14046: ('OKS_RAISE_CREDIT_MEMO_FOR_IB_INT')
14102: p_term_cancel_source => 'IBTERMINATE',
14103: x_return_status => l_return_status
14104: );
14105:
14106: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
14107: THEN
14108: fnd_log.STRING
14109: (fnd_log.level_event,
14110: g_module_current || '.CREATE_CONTRACT_IBTERMINATE',
14104: );
14105:
14106: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
14107: THEN
14108: fnd_log.STRING
14109: (fnd_log.level_event,
14110: g_module_current || '.CREATE_CONTRACT_IBTERMINATE',
14111: 'oks_bill_rec_pub.Pre_terminate_cp(Return status = '
14112: || l_return_status
14105:
14106: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
14107: THEN
14108: fnd_log.STRING
14109: (fnd_log.level_event,
14110: g_module_current || '.CREATE_CONTRACT_IBTERMINATE',
14111: 'oks_bill_rec_pub.Pre_terminate_cp(Return status = '
14112: || l_return_status
14113: || ')'
14153: p_clev_tbl => l_clev_tbl_in,
14154: x_clev_tbl => l_clev_tbl_out
14155: );
14156:
14157: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
14158: )
14159: THEN
14160: fnd_log.STRING
14161: (fnd_log.level_event,
14156:
14157: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
14158: )
14159: THEN
14160: fnd_log.STRING
14161: (fnd_log.level_event,
14162: g_module_current || '.CREATE_CONTRACT_IBTERMINATE',
14163: 'oks_bill_rec_pub.update_contract_line(Return status = '
14164: || l_return_status
14157: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
14158: )
14159: THEN
14160: fnd_log.STRING
14161: (fnd_log.level_event,
14162: g_module_current || '.CREATE_CONTRACT_IBTERMINATE',
14163: 'oks_bill_rec_pub.update_contract_line(Return status = '
14164: || l_return_status
14165: || ')'
14203: p_chrv_tbl => l_chrv_tbl_in,
14204: x_chrv_tbl => l_chrv_tbl_out
14205: );
14206:
14207: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
14208: )
14209: THEN
14210: fnd_log.STRING
14211: (fnd_log.level_event,
14206:
14207: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
14208: )
14209: THEN
14210: fnd_log.STRING
14211: (fnd_log.level_event,
14212: g_module_current
14213: || '.Update_Hdr_Dates.external_call.after',
14214: 'okc_contract_pub.update_contract_header(Return status = '
14207: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
14208: )
14209: THEN
14210: fnd_log.STRING
14211: (fnd_log.level_event,
14212: g_module_current
14213: || '.Update_Hdr_Dates.external_call.after',
14214: 'okc_contract_pub.update_contract_header(Return status = '
14215: || l_return_status
14251: p_comments => NULL,
14252: p_validate_status => 'N'
14253: );
14254:
14255: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
14256: THEN
14257: fnd_log.STRING
14258: (fnd_log.level_event,
14259: g_module_current || '.CREATE_CONTRACT_IBTERMINATE',
14253: );
14254:
14255: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
14256: THEN
14257: fnd_log.STRING
14258: (fnd_log.level_event,
14259: g_module_current || '.CREATE_CONTRACT_IBTERMINATE',
14260: 'okc_contract_pub.update_contract_line(Return status ='
14261: || l_return_status
14254:
14255: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
14256: THEN
14257: fnd_log.STRING
14258: (fnd_log.level_event,
14259: g_module_current || '.CREATE_CONTRACT_IBTERMINATE',
14260: 'okc_contract_pub.update_contract_line(Return status ='
14261: || l_return_status
14262: || ')'
14300: p_comments => NULL,
14301: p_validate_status => 'N'
14302: );
14303:
14304: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
14305: )
14306: THEN
14307: fnd_log.STRING
14308: (fnd_log.level_event,
14303:
14304: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
14305: )
14306: THEN
14307: fnd_log.STRING
14308: (fnd_log.level_event,
14309: g_module_current || '.CREATE_CONTRACT_IBTERMINATE',
14310: 'okc_contract_pub.update_contract_line(Return status = '
14311: || l_return_status
14304: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
14305: )
14306: THEN
14307: fnd_log.STRING
14308: (fnd_log.level_event,
14309: g_module_current || '.CREATE_CONTRACT_IBTERMINATE',
14310: 'okc_contract_pub.update_contract_line(Return status = '
14311: || l_return_status
14312: || ')'
14348: p_date_cancelled => TRUNC (date_cancelled),
14349: p_validate_status => 'N'
14350: );
14351:
14352: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
14353: )
14354: THEN
14355: fnd_log.STRING
14356: (fnd_log.level_event,
14351:
14352: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
14353: )
14354: THEN
14355: fnd_log.STRING
14356: (fnd_log.level_event,
14357: g_module_current || '.CREATE_CONTRACT_IBTERMINATE',
14358: 'OKS_WF_K_PROCESS_PVT.cancel_contract(Return status = '
14359: || l_return_status
14352: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
14353: )
14354: THEN
14355: fnd_log.STRING
14356: (fnd_log.level_event,
14357: g_module_current || '.CREATE_CONTRACT_IBTERMINATE',
14358: 'OKS_WF_K_PROCESS_PVT.cancel_contract(Return status = '
14359: || l_return_status
14360: || ')'
14495: p_insv_rec => l_insthist_rec,
14496: x_insv_rec => x_insthist_rec
14497: );
14498:
14499: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
14500: )
14501: THEN
14502: fnd_log.STRING
14503: (fnd_log.level_event,
14498:
14499: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
14500: )
14501: THEN
14502: fnd_log.STRING
14503: (fnd_log.level_event,
14504: g_module_current || '.CREATE_K_SYSTEM_TRF',
14505: 'oks_ins_pvt.insert_row(Return status = '
14506: || l_return_status
14499: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
14500: )
14501: THEN
14502: fnd_log.STRING
14503: (fnd_log.level_event,
14504: g_module_current || '.CREATE_K_SYSTEM_TRF',
14505: 'oks_ins_pvt.insert_row(Return status = '
14506: || l_return_status
14507: || ')'
14529: p_ihdv_tbl => l_inst_dtls_tbl,
14530: x_ihdv_tbl => x_inst_dtls_tbl
14531: );
14532:
14533: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
14534: THEN
14535: fnd_log.STRING
14536: (fnd_log.level_event,
14537: g_module_current || '.CREATE_IBTERMINATE',
14531: );
14532:
14533: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
14534: THEN
14535: fnd_log.STRING
14536: (fnd_log.level_event,
14537: g_module_current || '.CREATE_IBTERMINATE',
14538: 'oks_ihd_pvt.insert_row(Return status = '
14539: || l_return_status
14532:
14533: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
14534: THEN
14535: fnd_log.STRING
14536: (fnd_log.level_event,
14537: g_module_current || '.CREATE_IBTERMINATE',
14538: 'oks_ihd_pvt.insert_row(Return status = '
14539: || l_return_status
14540: || ')'
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,
14731: g_module_current || '.UPDATE_CONTRACT_IDC.after.',
14732: 'count = ' || p_kdtl_tbl.COUNT || ')'
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,
14731: g_module_current || '.UPDATE_CONTRACT_IDC.after.',
14732: 'count = ' || p_kdtl_tbl.COUNT || ')'
14733: );
14734: END IF;
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,
14755: g_module_current || '.IB_INTERFACE',
14756: 'Installation date changed to null '
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,
14755: g_module_current || '.IB_INTERFACE',
14756: 'Installation date changed to null '
14757: );
14758: END IF;
14812: x_timeunit => l_timeunits,
14813: x_return_status => l_return_status
14814: );
14815:
14816: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
14817: THEN
14818: fnd_log.STRING
14819: (fnd_log.level_event,
14820: g_module_current
14814: );
14815:
14816: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
14817: THEN
14818: fnd_log.STRING
14819: (fnd_log.level_event,
14820: g_module_current
14821: || '.UPDATE_CONTRACT_IDC.after.get_k_dtls',
14822: 'Okc_time_util_pub.get_duration(Return status = '
14815:
14816: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
14817: THEN
14818: fnd_log.STRING
14819: (fnd_log.level_event,
14820: g_module_current
14821: || '.UPDATE_CONTRACT_IDC.after.get_k_dtls',
14822: 'Okc_time_util_pub.get_duration(Return status = '
14823: || l_return_status
14850: INTO l_cov_att;
14851:
14852: CLOSE l_cov_csr;
14853:
14854: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
14855: THEN
14856: fnd_log.STRING (fnd_log.level_statement,
14857: g_module_current || '.UPDATE_CONTRACT_IDC',
14858: 'Coverage attribute = ' || l_cov_att
14852: CLOSE l_cov_csr;
14853:
14854: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
14855: THEN
14856: fnd_log.STRING (fnd_log.level_statement,
14857: g_module_current || '.UPDATE_CONTRACT_IDC',
14858: 'Coverage attribute = ' || l_cov_att
14859: );
14860: END IF;
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,
14885: g_module_current
14886: || '.UPDATE_CONTRACT_IDC.ERROR',
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,
14885: g_module_current
14886: || '.UPDATE_CONTRACT_IDC.ERROR',
14887: 'SR is logged '
14888: || ',status = '
14982: IF l_hdr_flag = 'T'
14983: THEN
14984: l_sts_flag := 'Y';
14985:
14986: IF fnd_log.level_statement >=
14987: fnd_log.g_current_runtime_level
14988: THEN
14989: fnd_log.STRING (fnd_log.level_statement,
14990: g_module_current
14983: THEN
14984: l_sts_flag := 'Y';
14985:
14986: IF fnd_log.level_statement >=
14987: fnd_log.g_current_runtime_level
14988: THEN
14989: fnd_log.STRING (fnd_log.level_statement,
14990: g_module_current
14991: || '.UPDATE_CONTRACT_IDC',
14985:
14986: IF fnd_log.level_statement >=
14987: fnd_log.g_current_runtime_level
14988: THEN
14989: fnd_log.STRING (fnd_log.level_statement,
14990: g_module_current
14991: || '.UPDATE_CONTRACT_IDC',
14992: 'Header start date = '
14993: || l_hdr_sdt
15007: x_msg_count => x_msg_count,
15008: x_msg_data => x_msg_data
15009: );
15010:
15011: IF (fnd_log.level_event >=
15012: fnd_log.g_current_runtime_level
15013: )
15014: THEN
15015: fnd_log.STRING
15008: x_msg_data => x_msg_data
15009: );
15010:
15011: IF (fnd_log.level_event >=
15012: fnd_log.g_current_runtime_level
15013: )
15014: THEN
15015: fnd_log.STRING
15016: (fnd_log.level_event,
15011: IF (fnd_log.level_event >=
15012: fnd_log.g_current_runtime_level
15013: )
15014: THEN
15015: fnd_log.STRING
15016: (fnd_log.level_event,
15017: g_module_current
15018: || '.UPDATE_CONTRACT_IDC',
15019: 'Update_hdr_dates(Return status = '
15012: fnd_log.g_current_runtime_level
15013: )
15014: THEN
15015: fnd_log.STRING
15016: (fnd_log.level_event,
15017: g_module_current
15018: || '.UPDATE_CONTRACT_IDC',
15019: 'Update_hdr_dates(Return status = '
15020: || l_return_status
15029: END IF; --hdrflag
15030:
15031: l_sts_flag := 'Y';
15032:
15033: IF fnd_log.level_statement >=
15034: fnd_log.g_current_runtime_level
15035: THEN
15036: fnd_log.STRING (fnd_log.level_statement,
15037: g_module_current
15030:
15031: l_sts_flag := 'Y';
15032:
15033: IF fnd_log.level_statement >=
15034: fnd_log.g_current_runtime_level
15035: THEN
15036: fnd_log.STRING (fnd_log.level_statement,
15037: g_module_current
15038: || '.UPDATE_CONTRACT_IDC',
15032:
15033: IF fnd_log.level_statement >=
15034: fnd_log.g_current_runtime_level
15035: THEN
15036: fnd_log.STRING (fnd_log.level_statement,
15037: g_module_current
15038: || '.UPDATE_CONTRACT_IDC',
15039: 'Top line start date = '
15040: || l_top_sdt
15056: x_msg_count => x_msg_count,
15057: x_msg_data => x_msg_data
15058: );
15059:
15060: IF (fnd_log.level_event >=
15061: fnd_log.g_current_runtime_level
15062: )
15063: THEN
15064: fnd_log.STRING
15057: x_msg_data => x_msg_data
15058: );
15059:
15060: IF (fnd_log.level_event >=
15061: fnd_log.g_current_runtime_level
15062: )
15063: THEN
15064: fnd_log.STRING
15065: (fnd_log.level_event,
15060: IF (fnd_log.level_event >=
15061: fnd_log.g_current_runtime_level
15062: )
15063: THEN
15064: fnd_log.STRING
15065: (fnd_log.level_event,
15066: g_module_current
15067: || '.UPDATE_CONTRACT_IDC',
15068: 'Update_Line_dates(Return status = '
15061: fnd_log.g_current_runtime_level
15062: )
15063: THEN
15064: fnd_log.STRING
15065: (fnd_log.level_event,
15066: g_module_current
15067: || '.UPDATE_CONTRACT_IDC',
15068: 'Update_Line_dates(Return status = '
15069: || l_return_status
15117: x_klnv_tbl => l_klnv_tbl_out,
15118: p_validate_yn => 'N'
15119: );
15120:
15121: IF (fnd_log.level_event >=
15122: fnd_log.g_current_runtime_level
15123: )
15124: THEN
15125: fnd_log.STRING
15118: p_validate_yn => 'N'
15119: );
15120:
15121: IF (fnd_log.level_event >=
15122: fnd_log.g_current_runtime_level
15123: )
15124: THEN
15125: fnd_log.STRING
15126: (fnd_log.level_event,
15121: IF (fnd_log.level_event >=
15122: fnd_log.g_current_runtime_level
15123: )
15124: THEN
15125: fnd_log.STRING
15126: (fnd_log.level_event,
15127: g_module_current || '.UPDATE_CONTRACT_IDC',
15128: 'oks_contract_line_pub.update_line(Return status = '
15129: || l_return_status
15122: fnd_log.g_current_runtime_level
15123: )
15124: THEN
15125: fnd_log.STRING
15126: (fnd_log.level_event,
15127: g_module_current || '.UPDATE_CONTRACT_IDC',
15128: 'oks_contract_line_pub.update_line(Return status = '
15129: || l_return_status
15130: || ')'
15152: p_new_start_date => l_top_sdt,
15153: p_new_end_date => l_top_edt
15154: );
15155:
15156: IF (fnd_log.level_event >=
15157: fnd_log.g_current_runtime_level
15158: )
15159: THEN
15160: fnd_log.STRING
15153: p_new_end_date => l_top_edt
15154: );
15155:
15156: IF (fnd_log.level_event >=
15157: fnd_log.g_current_runtime_level
15158: )
15159: THEN
15160: fnd_log.STRING
15161: (fnd_log.level_event,
15156: IF (fnd_log.level_event >=
15157: fnd_log.g_current_runtime_level
15158: )
15159: THEN
15160: fnd_log.STRING
15161: (fnd_log.level_event,
15162: g_module_current || '.UPDATE_CONTRACT_IDC',
15163: 'oks_coverages_pub.update_cov_eff(Return status = '
15164: || l_return_status
15157: fnd_log.g_current_runtime_level
15158: )
15159: THEN
15160: fnd_log.STRING
15161: (fnd_log.level_event,
15162: g_module_current || '.UPDATE_CONTRACT_IDC',
15163: 'oks_coverages_pub.update_cov_eff(Return status = '
15164: || l_return_status
15165: || ')'
15181: x_msg_count => x_msg_count,
15182: x_msg_data => x_msg_data
15183: );
15184:
15185: IF (fnd_log.level_event >=
15186: fnd_log.g_current_runtime_level
15187: )
15188: THEN
15189: fnd_log.STRING
15182: x_msg_data => x_msg_data
15183: );
15184:
15185: IF (fnd_log.level_event >=
15186: fnd_log.g_current_runtime_level
15187: )
15188: THEN
15189: fnd_log.STRING
15190: (fnd_log.level_event,
15185: IF (fnd_log.level_event >=
15186: fnd_log.g_current_runtime_level
15187: )
15188: THEN
15189: fnd_log.STRING
15190: (fnd_log.level_event,
15191: g_module_current || '.UPDATE_CONTRACT_IDC',
15192: 'oks_pm_programs_pvt.ADJUST_PM_PROGRAM_SCHEDULE(Return status = '
15193: || l_return_status
15186: fnd_log.g_current_runtime_level
15187: )
15188: THEN
15189: fnd_log.STRING
15190: (fnd_log.level_event,
15191: g_module_current || '.UPDATE_CONTRACT_IDC',
15192: 'oks_pm_programs_pvt.ADJUST_PM_PROGRAM_SCHEDULE(Return status = '
15193: || l_return_status
15194: || ')'
15200: RAISE g_exception_halt_validation;
15201: END IF;
15202: END IF; --topflag
15203:
15204: IF fnd_log.level_statement >=
15205: fnd_log.g_current_runtime_level
15206: THEN
15207: fnd_log.STRING (fnd_log.level_statement,
15208: g_module_current
15201: END IF;
15202: END IF; --topflag
15203:
15204: IF fnd_log.level_statement >=
15205: fnd_log.g_current_runtime_level
15206: THEN
15207: fnd_log.STRING (fnd_log.level_statement,
15208: g_module_current
15209: || '.UPDATE_CONTRACT_IDC',
15203:
15204: IF fnd_log.level_statement >=
15205: fnd_log.g_current_runtime_level
15206: THEN
15207: fnd_log.STRING (fnd_log.level_statement,
15208: g_module_current
15209: || '.UPDATE_CONTRACT_IDC',
15210: 'sub line start date = '
15211: || l_sub_sdt
15225: x_msg_count => x_msg_count,
15226: x_msg_data => x_msg_data
15227: );
15228:
15229: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
15230: )
15231: THEN
15232: fnd_log.STRING (fnd_log.level_event,
15233: g_module_current
15228:
15229: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
15230: )
15231: THEN
15232: fnd_log.STRING (fnd_log.level_event,
15233: g_module_current
15234: || '.UPDATE_CONTRACT_IDC',
15235: 'Update_line_dates(Return status = '
15236: || l_return_status
15274: x_klnv_tbl => l_klnv_tbl_out,
15275: p_validate_yn => 'N'
15276: );
15277:
15278: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
15279: )
15280: THEN
15281: fnd_log.STRING
15282: (fnd_log.level_event,
15277:
15278: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
15279: )
15280: THEN
15281: fnd_log.STRING
15282: (fnd_log.level_event,
15283: g_module_current || '.UPDATE_CONTRACT_IDC',
15284: 'oks_contract_line_pub.update_line(Return status = '
15285: || l_return_status
15278: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
15279: )
15280: THEN
15281: fnd_log.STRING
15282: (fnd_log.level_event,
15283: g_module_current || '.UPDATE_CONTRACT_IDC',
15284: 'oks_contract_line_pub.update_line(Return status = '
15285: || l_return_status
15286: || ')'
15341: l_inst_dtls_tbl (1).new_customer :=
15342: p_kdtl_tbl (l_ctr).cust_account;
15343: END IF; --SR logged
15344: ELSE
15345: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
15346: THEN
15347: fnd_log.STRING (fnd_log.level_statement,
15348: g_module_current || '.UPDATE_CONTRACT_IDC',
15349: 'coverage attribute not set'
15343: END IF; --SR logged
15344: ELSE
15345: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
15346: THEN
15347: fnd_log.STRING (fnd_log.level_statement,
15348: g_module_current || '.UPDATE_CONTRACT_IDC',
15349: 'coverage attribute not set'
15350: );
15351: END IF;
15396: p_insv_rec => l_insthist_rec,
15397: x_insv_rec => x_insthist_rec
15398: );
15399:
15400: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
15401: )
15402: THEN
15403: fnd_log.STRING
15404: (fnd_log.level_event,
15399:
15400: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
15401: )
15402: THEN
15403: fnd_log.STRING
15404: (fnd_log.level_event,
15405: g_module_current || '.UPDATE_CONTRACT_IDC',
15406: 'oks_ins_pvt.insert_row(Return status = '
15407: || l_return_status
15400: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
15401: )
15402: THEN
15403: fnd_log.STRING
15404: (fnd_log.level_event,
15405: g_module_current || '.UPDATE_CONTRACT_IDC',
15406: 'oks_ins_pvt.insert_row(Return status = '
15407: || l_return_status
15408: || ')'
15430: p_ihdv_tbl => l_inst_dtls_tbl,
15431: x_ihdv_tbl => x_inst_dtls_tbl
15432: );
15433:
15434: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
15435: THEN
15436: fnd_log.STRING
15437: (fnd_log.level_event,
15438: g_module_current || '.UPDATE_CONTRACT_IDC',
15432: );
15433:
15434: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
15435: THEN
15436: fnd_log.STRING
15437: (fnd_log.level_event,
15438: g_module_current || '.UPDATE_CONTRACT_IDC',
15439: 'oks_ihd_pvt.insert_row(Return status = '
15440: || l_return_status
15433:
15434: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
15435: THEN
15436: fnd_log.STRING
15437: (fnd_log.level_event,
15438: g_module_current || '.UPDATE_CONTRACT_IDC',
15439: 'oks_ihd_pvt.insert_row(Return status = '
15440: || l_return_status
15441: || ')'
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)
15595: THEN
15596: fnd_log.STRING (fnd_log.level_event,
15597: g_module_current || '.CREATE_CONTRACT_IBUPDATE.',
15598: 'count = ' || p_kdtl_tbl.COUNT || ')'
15592: l_target_chr_id := 0;
15593:
15594: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
15595: THEN
15596: fnd_log.STRING (fnd_log.level_event,
15597: g_module_current || '.CREATE_CONTRACT_IBUPDATE.',
15598: 'count = ' || p_kdtl_tbl.COUNT || ')'
15599: );
15600: END IF;
15630: l_ste_code,
15631: l_sts_code
15632: );
15633:
15634: IF fnd_log.level_statement >=
15635: fnd_log.g_current_runtime_level
15636: THEN
15637: fnd_log.STRING (fnd_log.level_statement,
15638: g_module_current
15631: l_sts_code
15632: );
15633:
15634: IF fnd_log.level_statement >=
15635: fnd_log.g_current_runtime_level
15636: THEN
15637: fnd_log.STRING (fnd_log.level_statement,
15638: g_module_current
15639: || '.CREATE_CONTRACT_IBUPDATE',
15633:
15634: IF fnd_log.level_statement >=
15635: fnd_log.g_current_runtime_level
15636: THEN
15637: fnd_log.STRING (fnd_log.level_statement,
15638: g_module_current
15639: || '.CREATE_CONTRACT_IBUPDATE',
15640: 'lse_id= ' || p_kdtl_tbl (l_ctr).lse_id
15641: );
15715: INTO l_billed_amount;
15716:
15717: CLOSE l_bill_csr;
15718:
15719: IF fnd_log.level_statement >=
15720: fnd_log.g_current_runtime_level
15721: THEN
15722: fnd_log.STRING (fnd_log.level_statement,
15723: g_module_current
15716:
15717: CLOSE l_bill_csr;
15718:
15719: IF fnd_log.level_statement >=
15720: fnd_log.g_current_runtime_level
15721: THEN
15722: fnd_log.STRING (fnd_log.level_statement,
15723: g_module_current
15724: || '.CREATE_CONTRACT_IBUPDATE',
15718:
15719: IF fnd_log.level_statement >=
15720: fnd_log.g_current_runtime_level
15721: THEN
15722: fnd_log.STRING (fnd_log.level_statement,
15723: g_module_current
15724: || '.CREATE_CONTRACT_IBUPDATE',
15725: 'Billed amount = '
15726: || l_billed_amount
15754: x_msg_count => x_msg_count,
15755: x_msg_data => x_msg_data
15756: );
15757:
15758: IF (fnd_log.level_event >=
15759: fnd_log.g_current_runtime_level
15760: )
15761: THEN
15762: fnd_log.STRING
15755: x_msg_data => x_msg_data
15756: );
15757:
15758: IF (fnd_log.level_event >=
15759: fnd_log.g_current_runtime_level
15760: )
15761: THEN
15762: fnd_log.STRING
15763: (fnd_log.level_event,
15758: IF (fnd_log.level_event >=
15759: fnd_log.g_current_runtime_level
15760: )
15761: THEN
15762: fnd_log.STRING
15763: (fnd_log.level_event,
15764: g_module_current || '.CREATE_CONTRACT_IBUPDATE',
15765: 'oks_qp_int_pvt.compute_price(Return status = '
15766: || l_return_status
15759: fnd_log.g_current_runtime_level
15760: )
15761: THEN
15762: fnd_log.STRING
15763: (fnd_log.level_event,
15764: g_module_current || '.CREATE_CONTRACT_IBUPDATE',
15765: 'oks_qp_int_pvt.compute_price(Return status = '
15766: || l_return_status
15767: || ',Repriced amount = '
15784: x_msg_count => x_msg_count,
15785: x_msg_data => x_msg_data
15786: );
15787:
15788: IF (fnd_log.level_event >=
15789: fnd_log.g_current_runtime_level
15790: )
15791: THEN
15792: fnd_log.STRING
15785: x_msg_data => x_msg_data
15786: );
15787:
15788: IF (fnd_log.level_event >=
15789: fnd_log.g_current_runtime_level
15790: )
15791: THEN
15792: fnd_log.STRING
15793: (fnd_log.level_event,
15788: IF (fnd_log.level_event >=
15789: fnd_log.g_current_runtime_level
15790: )
15791: THEN
15792: fnd_log.STRING
15793: (fnd_log.level_event,
15794: g_module_current || '.CREATE_CONTRACT_IBUPDATE',
15795: 'Oks_bill_sch.Create_Bill_Sch_CP(Return status = '
15796: || l_return_status
15789: fnd_log.g_current_runtime_level
15790: )
15791: THEN
15792: fnd_log.STRING
15793: (fnd_log.level_event,
15794: g_module_current || '.CREATE_CONTRACT_IBUPDATE',
15795: 'Oks_bill_sch.Create_Bill_Sch_CP(Return status = '
15796: || l_return_status
15797: || ')'
15920: IF l_billed_amount =
15921: p_kdtl_tbl (l_ctr).service_amount
15922: THEN
15923: -- Terminate the subline and create a New Subline with the update qty
15924: IF fnd_log.level_statement >=
15925: fnd_log.g_current_runtime_level
15926: THEN
15927: fnd_log.STRING (fnd_log.level_statement,
15928: g_module_current
15921: p_kdtl_tbl (l_ctr).service_amount
15922: THEN
15923: -- Terminate the subline and create a New Subline with the update qty
15924: IF fnd_log.level_statement >=
15925: fnd_log.g_current_runtime_level
15926: THEN
15927: fnd_log.STRING (fnd_log.level_statement,
15928: g_module_current
15929: || '.CREATE_CONTRACT_IBUPDATE',
15923: -- Terminate the subline and create a New Subline with the update qty
15924: IF fnd_log.level_statement >=
15925: fnd_log.g_current_runtime_level
15926: THEN
15927: fnd_log.STRING (fnd_log.level_statement,
15928: g_module_current
15929: || '.CREATE_CONTRACT_IBUPDATE',
15930: 'The Line is fully billed'
15931: );
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
15947: fnd_log.STRING
15948: (fnd_log.level_error,
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
15947: fnd_log.STRING
15948: (fnd_log.level_error,
15949: g_module_current
15943:
15944: IF fnd_log.level_error >=
15945: fnd_log.g_current_runtime_level
15946: THEN
15947: fnd_log.STRING
15948: (fnd_log.level_error,
15949: g_module_current
15950: || '.CREATE_CONTRACT_IBUPDATE.ERROR',
15951: ' Contract in QA_HOLD status'
15944: IF fnd_log.level_error >=
15945: fnd_log.g_current_runtime_level
15946: THEN
15947: fnd_log.STRING
15948: (fnd_log.level_error,
15949: g_module_current
15950: || '.CREATE_CONTRACT_IBUPDATE.ERROR',
15951: ' Contract in QA_HOLD status'
15952: );
15982: p_term_cancel_source => 'IBUPDATE',
15983: x_return_status => l_return_status
15984: );
15985:
15986: IF (fnd_log.level_event >=
15987: fnd_log.g_current_runtime_level
15988: )
15989: THEN
15990: fnd_log.STRING
15983: x_return_status => l_return_status
15984: );
15985:
15986: IF (fnd_log.level_event >=
15987: fnd_log.g_current_runtime_level
15988: )
15989: THEN
15990: fnd_log.STRING
15991: (fnd_log.level_event,
15986: IF (fnd_log.level_event >=
15987: fnd_log.g_current_runtime_level
15988: )
15989: THEN
15990: fnd_log.STRING
15991: (fnd_log.level_event,
15992: g_module_current
15993: || '.CREATE_CONTRACT_IBUPDATE',
15994: ' oks_bill_rec_pub.Pre_terminate_cp(Retun status = '
15987: fnd_log.g_current_runtime_level
15988: )
15989: THEN
15990: fnd_log.STRING
15991: (fnd_log.level_event,
15992: g_module_current
15993: || '.CREATE_CONTRACT_IBUPDATE',
15994: ' oks_bill_rec_pub.Pre_terminate_cp(Retun status = '
15995: || l_return_status
16133: x_msg_data => x_msg_data
16134: );
16135:
16136: --errorout_n('in update Create_K_Covered_Levels l_return_status'||l_return_status);
16137: IF (fnd_log.level_event >=
16138: fnd_log.g_current_runtime_level
16139: )
16140: THEN
16141: fnd_log.STRING
16134: );
16135:
16136: --errorout_n('in update Create_K_Covered_Levels l_return_status'||l_return_status);
16137: IF (fnd_log.level_event >=
16138: fnd_log.g_current_runtime_level
16139: )
16140: THEN
16141: fnd_log.STRING
16142: (fnd_log.level_event,
16137: IF (fnd_log.level_event >=
16138: fnd_log.g_current_runtime_level
16139: )
16140: THEN
16141: fnd_log.STRING
16142: (fnd_log.level_event,
16143: g_module_current
16144: || '.CREATE_CONTRACT_IBUPDATE',
16145: 'oks_extwarprgm_pvt.create_k_covered_levels(Retun status = '
16138: fnd_log.g_current_runtime_level
16139: )
16140: THEN
16141: fnd_log.STRING
16142: (fnd_log.level_event,
16143: g_module_current
16144: || '.CREATE_CONTRACT_IBUPDATE',
16145: 'oks_extwarprgm_pvt.create_k_covered_levels(Retun status = '
16146: || l_return_status
16174: x_msg_count => x_msg_count,
16175: x_msg_data => x_msg_data
16176: );
16177:
16178: IF (fnd_log.level_event >=
16179: fnd_log.g_current_runtime_level
16180: )
16181: THEN
16182: fnd_log.STRING
16175: x_msg_data => x_msg_data
16176: );
16177:
16178: IF (fnd_log.level_event >=
16179: fnd_log.g_current_runtime_level
16180: )
16181: THEN
16182: fnd_log.STRING
16183: (fnd_log.level_event,
16178: IF (fnd_log.level_event >=
16179: fnd_log.g_current_runtime_level
16180: )
16181: THEN
16182: fnd_log.STRING
16183: (fnd_log.level_event,
16184: g_module_current
16185: || '.CREATE_CONTRACT_IBUPDATE',
16186: 'Create_transaction_source(Retun status = '
16179: fnd_log.g_current_runtime_level
16180: )
16181: THEN
16182: fnd_log.STRING
16183: (fnd_log.level_event,
16184: g_module_current
16185: || '.CREATE_CONTRACT_IBUPDATE',
16186: 'Create_transaction_source(Retun status = '
16187: || l_return_status
16219: THEN
16220: RAISE g_exception_halt_validation;
16221: END IF;
16222:
16223: IF (fnd_log.level_event >=
16224: fnd_log.g_current_runtime_level
16225: )
16226: THEN
16227: fnd_log.STRING
16220: RAISE g_exception_halt_validation;
16221: END IF;
16222:
16223: IF (fnd_log.level_event >=
16224: fnd_log.g_current_runtime_level
16225: )
16226: THEN
16227: fnd_log.STRING
16228: (fnd_log.level_event,
16223: IF (fnd_log.level_event >=
16224: fnd_log.g_current_runtime_level
16225: )
16226: THEN
16227: fnd_log.STRING
16228: (fnd_log.level_event,
16229: g_module_current
16230: || '.CREATE_CONTRACT_IBUPDATE',
16231: 'Create_source_links(Retun status = '
16224: fnd_log.g_current_runtime_level
16225: )
16226: THEN
16227: fnd_log.STRING
16228: (fnd_log.level_event,
16229: g_module_current
16230: || '.CREATE_CONTRACT_IBUPDATE',
16231: 'Create_source_links(Retun status = '
16232: || l_return_status
16249: x_msg_count => l_msg_count,
16250: x_msg_data => l_msg_data
16251: );
16252:
16253: IF (fnd_log.level_event >=
16254: fnd_log.g_current_runtime_level
16255: )
16256: THEN
16257: fnd_log.STRING
16250: x_msg_data => l_msg_data
16251: );
16252:
16253: IF (fnd_log.level_event >=
16254: fnd_log.g_current_runtime_level
16255: )
16256: THEN
16257: fnd_log.STRING
16258: (fnd_log.level_event,
16253: IF (fnd_log.level_event >=
16254: fnd_log.g_current_runtime_level
16255: )
16256: THEN
16257: fnd_log.STRING
16258: (fnd_log.level_event,
16259: g_module_current
16260: || '.CREATE_CONTRACT_IBUPDATE',
16261: 'oks_qp_int_pvt.compute_price(Retun status = '
16254: fnd_log.g_current_runtime_level
16255: )
16256: THEN
16257: fnd_log.STRING
16258: (fnd_log.level_event,
16259: g_module_current
16260: || '.CREATE_CONTRACT_IBUPDATE',
16261: 'oks_qp_int_pvt.compute_price(Retun status = '
16262: || l_return_status
16279: INTO l_subline_amount;
16280:
16281: CLOSE l_amount_csr;
16282:
16283: IF fnd_log.level_statement >=
16284: fnd_log.g_current_runtime_level
16285: THEN
16286: fnd_log.STRING (fnd_log.level_statement,
16287: g_module_current
16280:
16281: CLOSE l_amount_csr;
16282:
16283: IF fnd_log.level_statement >=
16284: fnd_log.g_current_runtime_level
16285: THEN
16286: fnd_log.STRING (fnd_log.level_statement,
16287: g_module_current
16288: || '.CREATE_CONTRACT_IBUPDATE',
16282:
16283: IF fnd_log.level_statement >=
16284: fnd_log.g_current_runtime_level
16285: THEN
16286: fnd_log.STRING (fnd_log.level_statement,
16287: g_module_current
16288: || '.CREATE_CONTRACT_IBUPDATE',
16289: 'Subline Amount = '
16290: || l_subline_amount
16408: x_msg_count => l_msg_count,
16409: x_msg_data => l_msg_data
16410: );
16411:
16412: IF (fnd_log.level_event >=
16413: fnd_log.g_current_runtime_level
16414: )
16415: THEN
16416: fnd_log.STRING
16409: x_msg_data => l_msg_data
16410: );
16411:
16412: IF (fnd_log.level_event >=
16413: fnd_log.g_current_runtime_level
16414: )
16415: THEN
16416: fnd_log.STRING
16417: (fnd_log.level_event,
16412: IF (fnd_log.level_event >=
16413: fnd_log.g_current_runtime_level
16414: )
16415: THEN
16416: fnd_log.STRING
16417: (fnd_log.level_event,
16418: g_module_current
16419: || '.CREATE_CONTRACT_IBUPDATE',
16420: 'oks_bill_sch.create_bill_sch_cp(Retun status = '
16413: fnd_log.g_current_runtime_level
16414: )
16415: THEN
16416: fnd_log.STRING
16417: (fnd_log.level_event,
16418: g_module_current
16419: || '.CREATE_CONTRACT_IBUPDATE',
16420: 'oks_bill_sch.create_bill_sch_cp(Retun status = '
16421: || l_return_status
16456: x_msg_count => l_msg_count,
16457: x_msg_data => l_msg_data
16458: );
16459:
16460: IF (fnd_log.level_event >=
16461: fnd_log.g_current_runtime_level
16462: )
16463: THEN
16464: fnd_log.STRING
16457: x_msg_data => l_msg_data
16458: );
16459:
16460: IF (fnd_log.level_event >=
16461: fnd_log.g_current_runtime_level
16462: )
16463: THEN
16464: fnd_log.STRING
16465: (fnd_log.level_event,
16460: IF (fnd_log.level_event >=
16461: fnd_log.g_current_runtime_level
16462: )
16463: THEN
16464: fnd_log.STRING
16465: (fnd_log.level_event,
16466: g_module_current
16467: || '.CREATE_CONTRACT_IBUPDATE',
16468: 'oks_qp_int_pvt.compute_price(Retun status = '
16461: fnd_log.g_current_runtime_level
16462: )
16463: THEN
16464: fnd_log.STRING
16465: (fnd_log.level_event,
16466: g_module_current
16467: || '.CREATE_CONTRACT_IBUPDATE',
16468: 'oks_qp_int_pvt.compute_price(Retun status = '
16469: || l_return_status
16563: x_msg_count => l_msg_count,
16564: x_msg_data => l_msg_data
16565: );
16566:
16567: IF (fnd_log.level_event >=
16568: fnd_log.g_current_runtime_level
16569: )
16570: THEN
16571: fnd_log.STRING
16564: x_msg_data => l_msg_data
16565: );
16566:
16567: IF (fnd_log.level_event >=
16568: fnd_log.g_current_runtime_level
16569: )
16570: THEN
16571: fnd_log.STRING
16572: (fnd_log.level_event,
16567: IF (fnd_log.level_event >=
16568: fnd_log.g_current_runtime_level
16569: )
16570: THEN
16571: fnd_log.STRING
16572: (fnd_log.level_event,
16573: g_module_current
16574: || '.CREATE_CONTRACT_IBUPDATE',
16575: 'oks_bill_sch.create_bill_sch_cp(Retun status = '
16568: fnd_log.g_current_runtime_level
16569: )
16570: THEN
16571: fnd_log.STRING
16572: (fnd_log.level_event,
16573: g_module_current
16574: || '.CREATE_CONTRACT_IBUPDATE',
16575: 'oks_bill_sch.create_bill_sch_cp(Retun status = '
16576: || l_return_status
16700: p_insv_rec => l_insthist_rec,
16701: x_insv_rec => x_insthist_rec
16702: );
16703:
16704: IF (fnd_log.level_event >=
16705: fnd_log.g_current_runtime_level
16706: )
16707: THEN
16708: fnd_log.STRING
16701: x_insv_rec => x_insthist_rec
16702: );
16703:
16704: IF (fnd_log.level_event >=
16705: fnd_log.g_current_runtime_level
16706: )
16707: THEN
16708: fnd_log.STRING
16709: (fnd_log.level_event,
16704: IF (fnd_log.level_event >=
16705: fnd_log.g_current_runtime_level
16706: )
16707: THEN
16708: fnd_log.STRING
16709: (fnd_log.level_event,
16710: g_module_current
16711: || '.CREATE_CONTRACT_IBUPDATE',
16712: 'oks_ins_pvt.insert_row(Return status = '
16705: fnd_log.g_current_runtime_level
16706: )
16707: THEN
16708: fnd_log.STRING
16709: (fnd_log.level_event,
16710: g_module_current
16711: || '.CREATE_CONTRACT_IBUPDATE',
16712: 'oks_ins_pvt.insert_row(Return status = '
16713: || l_return_status
16740: p_ihdv_tbl => l_inst_dtls_tbl,
16741: x_ihdv_tbl => x_inst_dtls_tbl
16742: );
16743:
16744: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
16745: )
16746: THEN
16747: fnd_log.STRING
16748: (fnd_log.level_event,
16743:
16744: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
16745: )
16746: THEN
16747: fnd_log.STRING
16748: (fnd_log.level_event,
16749: g_module_current
16750: || '.CREATE_CONTRACT_IBUPDATE',
16751: 'oks_ihd_pvt.insert_row(Return status = '
16744: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
16745: )
16746: THEN
16747: fnd_log.STRING
16748: (fnd_log.level_event,
16749: g_module_current
16750: || '.CREATE_CONTRACT_IBUPDATE',
16751: 'oks_ihd_pvt.insert_row(Return status = '
16752: || l_return_status
16848: l_gen_bulk_rec.squal_char04.EXTEND;
16849: l_gen_bulk_rec.squal_char07.EXTEND;
16850: l_gen_bulk_rec.squal_num01.EXTEND;
16851:
16852: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
16853: THEN
16854: fnd_log.STRING (fnd_log.level_statement,
16855: g_module_current,
16856: 'Values passed to JTF API : '
16850: l_gen_bulk_rec.squal_num01.EXTEND;
16851:
16852: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
16853: THEN
16854: fnd_log.STRING (fnd_log.level_statement,
16855: g_module_current,
16856: 'Values passed to JTF API : '
16857: || ' Party ID '
16858: || p_party_id
16874: l_gen_bulk_rec.squal_char07 (1) := l_country_code;
16875: l_gen_bulk_rec.squal_num01 (1) := p_party_id;
16876: l_use_type := 'RESOURCE';
16877:
16878: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
16879: THEN
16880: fnd_log.STRING (fnd_log.level_statement,
16881: g_module_current
16882: || '.JTF_TERR_ASSIGN_PUB.get_winners',
16876: l_use_type := 'RESOURCE';
16877:
16878: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
16879: THEN
16880: fnd_log.STRING (fnd_log.level_statement,
16881: g_module_current
16882: || '.JTF_TERR_ASSIGN_PUB.get_winners',
16883: 'Before JTF API call '
16884: );
16901: x_winners_rec => l_gen_return_rec
16902: );
16903: x_winners_rec := l_gen_return_rec;
16904:
16905: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
16906: THEN
16907: fnd_log.STRING (fnd_log.level_statement,
16908: g_module_current
16909: || '.JTF_TERR_ASSIGN_PUB.get_winners',
16903: x_winners_rec := l_gen_return_rec;
16904:
16905: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
16906: THEN
16907: fnd_log.STRING (fnd_log.level_statement,
16908: g_module_current
16909: || '.JTF_TERR_ASSIGN_PUB.get_winners',
16910: 'After JTF call '
16911: );
16948: l_msg VARCHAR2 (1000);
16949: l_user_name VARCHAR2 (100);
16950: l_order_num_prompt VARCHAR2 (100);
16951: BEGIN
16952: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
16953: THEN
16954: fnd_log.STRING (fnd_log.level_statement,
16955: g_module_current,
16956: 'Inside SEND_NOTIFICATION : '
16950: l_order_num_prompt VARCHAR2 (100);
16951: BEGIN
16952: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
16953: THEN
16954: fnd_log.STRING (fnd_log.level_statement,
16955: g_module_current,
16956: 'Inside SEND_NOTIFICATION : '
16957: );
16958: END IF;
16973: INTO l_user_name;
16974:
16975: CLOSE l_fnd_csr;
16976:
16977: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
16978: THEN
16979: fnd_log.STRING (fnd_log.level_statement,
16980: g_module_current,
16981: 'Territory Admin is not null - ' || l_user_name
16975: CLOSE l_fnd_csr;
16976:
16977: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
16978: THEN
16979: fnd_log.STRING (fnd_log.level_statement,
16980: g_module_current,
16981: 'Territory Admin is not null - ' || l_user_name
16982: );
16983: END IF;
16989: INTO l_user_name;
16990:
16991: CLOSE l_fnd_csr;
16992:
16993: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
16994: THEN
16995: fnd_log.STRING (fnd_log.level_statement,
16996: g_module_current,
16997: 'Contract Admin is not null - ' || l_user_name
16991: CLOSE l_fnd_csr;
16992:
16993: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
16994: THEN
16995: fnd_log.STRING (fnd_log.level_statement,
16996: g_module_current,
16997: 'Contract Admin is not null - ' || l_user_name
16998: );
16999: END IF;
16999: END IF;
17000: ELSE
17001: l_user_name := fnd_profile.VALUE ('OKC_K_APPROVER');
17002:
17003: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
17004: THEN
17005: fnd_log.STRING (fnd_log.level_statement,
17006: g_module_current,
17007: 'Contract Approver is not null - ' || l_user_name
17001: l_user_name := fnd_profile.VALUE ('OKC_K_APPROVER');
17002:
17003: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
17004: THEN
17005: fnd_log.STRING (fnd_log.level_statement,
17006: g_module_current,
17007: 'Contract Approver is not null - ' || l_user_name
17008: );
17009: END IF;
17047: ELSE
17048: l_msg := fnd_message.get_string ('OKS', 'OKS_TERR_SETUP_ERR_SUB');
17049: END IF;
17050:
17051: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
17052: THEN
17053: fnd_log.STRING (fnd_log.level_statement,
17054: g_module_current,
17055: 'p_recipient is '
17049: END IF;
17050:
17051: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
17052: THEN
17053: fnd_log.STRING (fnd_log.level_statement,
17054: g_module_current,
17055: 'p_recipient is '
17056: || l_user_name
17057: || ' Order no is '
17072: p_contract_id
17073: )
17074: );
17075:
17076: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
17077: THEN
17078: fnd_log.STRING (fnd_log.level_statement,
17079: g_module_current,
17080: 'Exiting Send_notification ' || l_return_status
17074: );
17075:
17076: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
17077: THEN
17078: fnd_log.STRING (fnd_log.level_statement,
17079: g_module_current,
17080: 'Exiting Send_notification ' || l_return_status
17081: );
17082: END IF;