[Home] [Help]
500: */
501: BEGIN
502:
503: IF (l_debug = 'Y') THEN
504: OKC_DEBUG.Set_Indentation(' IS_Copy_Allowed ');
505: OKC_DEBUG.log('1001 : Entering IS_Copy_Allowed ', 2);
506: END IF;
507:
508: OPEN c_template;
501: BEGIN
502:
503: IF (l_debug = 'Y') THEN
504: OKC_DEBUG.Set_Indentation(' IS_Copy_Allowed ');
505: OKC_DEBUG.log('1001 : Entering IS_Copy_Allowed ', 2);
506: END IF;
507:
508: OPEN c_template;
509: FETCH c_template INTO l_template_yn;
515: CLOSE invalid_template;
516:
517: If l_dummy = '1' Then
518: IF (l_debug = 'Y') THEN
519: OKC_DEBUG.ReSet_Indentation;
520: END IF;
521: RETURN(TRUE);
522: Else
523: OKC_API.SET_MESSAGE('OKC', 'OKC_INVALID_TEMPLATE');
521: RETURN(TRUE);
522: Else
523: OKC_API.SET_MESSAGE('OKC', 'OKC_INVALID_TEMPLATE');
524: IF (l_debug = 'Y') THEN
525: OKC_DEBUG.ReSet_Indentation;
526: END IF;
527: RETURN(FALSE);
528: End If;
529: Else
528: End If;
529: Else
530:
531: IF (l_debug = 'Y') THEN
532: OKC_DEBUG.ReSet_Indentation;
533: END IF;
534: RETURN(TRUE);
535: End If;
536:
534: RETURN(TRUE);
535: End If;
536:
537: IF (l_debug = 'Y') THEN
538: OKC_DEBUG.log('1001 : Exiting Function IS_Copy_Allowed ', 2);
539: OKC_DEBUG.ReSet_Indentation;
540: END IF;
541:
542: END is_copy_allowed;
535: End If;
536:
537: IF (l_debug = 'Y') THEN
538: OKC_DEBUG.log('1001 : Exiting Function IS_Copy_Allowed ', 2);
539: OKC_DEBUG.ReSet_Indentation;
540: END IF;
541:
542: END is_copy_allowed;
543:
1542: WHERE cat_id = p_cat_id;
1543:
1544: BEGIN
1545: IF (l_debug = 'Y') THEN
1546: OKC_DEBUG.Set_Indentation('OKC_COPY_CONTRACT_PVT.Copy_Articles ');
1547: OKC_DEBUG.log('100 : Entering Copy_Articles ', 2);
1548: OKC_DEBUG.log('101 : p_cat_id: '||p_cat_id, 2);
1549: OKC_DEBUG.log('101 : p_cle_id: '||p_cle_id, 2);
1550: OKC_DEBUG.log('101 : p_chr_id: '||p_chr_id, 2);
1543:
1544: BEGIN
1545: IF (l_debug = 'Y') THEN
1546: OKC_DEBUG.Set_Indentation('OKC_COPY_CONTRACT_PVT.Copy_Articles ');
1547: OKC_DEBUG.log('100 : Entering Copy_Articles ', 2);
1548: OKC_DEBUG.log('101 : p_cat_id: '||p_cat_id, 2);
1549: OKC_DEBUG.log('101 : p_cle_id: '||p_cle_id, 2);
1550: OKC_DEBUG.log('101 : p_chr_id: '||p_chr_id, 2);
1551: OKC_DEBUG.log('101 : p_sav_sav_release: '||p_sav_sav_release, 2);
1544: BEGIN
1545: IF (l_debug = 'Y') THEN
1546: OKC_DEBUG.Set_Indentation('OKC_COPY_CONTRACT_PVT.Copy_Articles ');
1547: OKC_DEBUG.log('100 : Entering Copy_Articles ', 2);
1548: OKC_DEBUG.log('101 : p_cat_id: '||p_cat_id, 2);
1549: OKC_DEBUG.log('101 : p_cle_id: '||p_cle_id, 2);
1550: OKC_DEBUG.log('101 : p_chr_id: '||p_chr_id, 2);
1551: OKC_DEBUG.log('101 : p_sav_sav_release: '||p_sav_sav_release, 2);
1552: END IF;
1545: IF (l_debug = 'Y') THEN
1546: OKC_DEBUG.Set_Indentation('OKC_COPY_CONTRACT_PVT.Copy_Articles ');
1547: OKC_DEBUG.log('100 : Entering Copy_Articles ', 2);
1548: OKC_DEBUG.log('101 : p_cat_id: '||p_cat_id, 2);
1549: OKC_DEBUG.log('101 : p_cle_id: '||p_cle_id, 2);
1550: OKC_DEBUG.log('101 : p_chr_id: '||p_chr_id, 2);
1551: OKC_DEBUG.log('101 : p_sav_sav_release: '||p_sav_sav_release, 2);
1552: END IF;
1553:
1546: OKC_DEBUG.Set_Indentation('OKC_COPY_CONTRACT_PVT.Copy_Articles ');
1547: OKC_DEBUG.log('100 : Entering Copy_Articles ', 2);
1548: OKC_DEBUG.log('101 : p_cat_id: '||p_cat_id, 2);
1549: OKC_DEBUG.log('101 : p_cle_id: '||p_cle_id, 2);
1550: OKC_DEBUG.log('101 : p_chr_id: '||p_chr_id, 2);
1551: OKC_DEBUG.log('101 : p_sav_sav_release: '||p_sav_sav_release, 2);
1552: END IF;
1553:
1554: x_return_status := l_return_status;
1547: OKC_DEBUG.log('100 : Entering Copy_Articles ', 2);
1548: OKC_DEBUG.log('101 : p_cat_id: '||p_cat_id, 2);
1549: OKC_DEBUG.log('101 : p_cle_id: '||p_cle_id, 2);
1550: OKC_DEBUG.log('101 : p_chr_id: '||p_chr_id, 2);
1551: OKC_DEBUG.log('101 : p_sav_sav_release: '||p_sav_sav_release, 2);
1552: END IF;
1553:
1554: x_return_status := l_return_status;
1555: l_return_status := get_catv_rec( p_cat_id => p_cat_id,
1555: l_return_status := get_catv_rec( p_cat_id => p_cat_id,
1556: x_catv_rec => l_catv_rec);
1557:
1558: IF (l_debug = 'Y') THEN
1559: OKC_DEBUG.log('200 : get_catv_rec returns ' || l_return_status, 2);
1560: END IF;
1561: If p_sav_sav_release IS NOT NULL Then
1562: l_catv_rec.sav_sav_release := p_sav_sav_release;
1563: End If;
1574: l_catv_rec.chr_id := p_chr_id;
1575: l_catv_rec.cle_id := p_cle_id;
1576:
1577: IF (l_debug = 'Y') THEN
1578: OKC_DEBUG.log('300 : calling OKC_K_ARTICLE_PUB.create_k_article ',2);
1579: END IF;
1580: OKC_K_ARTICLE_PUB.create_k_article(
1581: p_api_version => p_api_version,
1582: p_init_msg_list => p_init_msg_list,
1586: p_catv_rec => l_catv_rec,
1587: x_catv_rec => x_catv_rec);
1588:
1589: IF (l_debug = 'Y') THEN
1590: OKC_DEBUG.log('400 : create_k_article returns ' || l_return_status, 2);
1591: END IF;
1592:
1593: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1594: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1648: END IF;
1649: END LOOP;
1650: */
1651: IF (l_debug = 'Y') THEN
1652: OKC_DEBUG.log('500 : Exiting Procedure Copy_articles ', 2);
1653: OKC_DEBUG.ReSet_Indentation;
1654: END IF;
1655:
1656: EXCEPTION
1649: END LOOP;
1650: */
1651: IF (l_debug = 'Y') THEN
1652: OKC_DEBUG.log('500 : Exiting Procedure Copy_articles ', 2);
1653: OKC_DEBUG.ReSet_Indentation;
1654: END IF;
1655:
1656: EXCEPTION
1657: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1656: EXCEPTION
1657: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1658: NULL;
1659: IF (l_debug = 'Y') THEN
1660: OKC_DEBUG.ReSet_Indentation;
1661: END IF;
1662: WHEN OTHERS THEN
1663: -- store SQL error message on message stack for caller
1664: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
1664: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
1665: -- notify caller of an UNEXPECTED error
1666: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1667: IF (l_debug = 'Y') THEN
1668: OKC_DEBUG.ReSet_Indentation;
1669: END IF;
1670:
1671: END copy_articles;
1672:
1705:
1706: BEGIN
1707: --
1708: IF (l_debug = 'Y') THEN
1709: OKC_DEBUG.Set_Indentation(' --- Copy_Latest_Articles ');
1710: OKC_DEBUG.log('1001 : Entering Copy_Latest_Articles ', 2);
1711: END IF;
1712: --
1713: x_return_status := l_return_status;
1706: BEGIN
1707: --
1708: IF (l_debug = 'Y') THEN
1709: OKC_DEBUG.Set_Indentation(' --- Copy_Latest_Articles ');
1710: OKC_DEBUG.log('1001 : Entering Copy_Latest_Articles ', 2);
1711: END IF;
1712: --
1713: x_return_status := l_return_status;
1714: OPEN c_sav_sae_id(p_cat_id);
1719: FETCH c_latest_version INTO l_sav_release;
1720: CLOSE c_latest_version;
1721:
1722: IF (l_debug = 'Y') THEN
1723: OKC_DEBUG.log('1002 : Before OKC_COPY_CONTRACT_PUB.Copy_Articles ', 2);
1724: OKC_DEBUG.log('1003 : ID='|| to_char(p_cat_id) || ', l_sav_release = ' || l_sav_release, 2);
1725: OKC_DEBUG.log('1004 : CHR_ID='|| to_char(p_chr_id) , 2);
1726: END IF;
1727:
1720: CLOSE c_latest_version;
1721:
1722: IF (l_debug = 'Y') THEN
1723: OKC_DEBUG.log('1002 : Before OKC_COPY_CONTRACT_PUB.Copy_Articles ', 2);
1724: OKC_DEBUG.log('1003 : ID='|| to_char(p_cat_id) || ', l_sav_release = ' || l_sav_release, 2);
1725: OKC_DEBUG.log('1004 : CHR_ID='|| to_char(p_chr_id) , 2);
1726: END IF;
1727:
1728: IF (l_debug = 'Y') THEN
1721:
1722: IF (l_debug = 'Y') THEN
1723: OKC_DEBUG.log('1002 : Before OKC_COPY_CONTRACT_PUB.Copy_Articles ', 2);
1724: OKC_DEBUG.log('1003 : ID='|| to_char(p_cat_id) || ', l_sav_release = ' || l_sav_release, 2);
1725: OKC_DEBUG.log('1004 : CHR_ID='|| to_char(p_chr_id) , 2);
1726: END IF;
1727:
1728: IF (l_debug = 'Y') THEN
1729: OKC_DEBUG.log('1005 : p_cle_id='|| to_char(p_cle_id) , 2);
1725: OKC_DEBUG.log('1004 : CHR_ID='|| to_char(p_chr_id) , 2);
1726: END IF;
1727:
1728: IF (l_debug = 'Y') THEN
1729: OKC_DEBUG.log('1005 : p_cle_id='|| to_char(p_cle_id) , 2);
1730: END IF;
1731:
1732: OKC_COPY_CONTRACT_PUB.copy_articles(
1733: p_api_version => p_api_version,
1741: p_sav_sav_release => l_sav_release,
1742: x_cat_id => x_cat_id);
1743:
1744: IF (l_debug = 'Y') THEN
1745: OKC_DEBUG.log('1006 : After OKC_COPY_CONTRACT_PUB.Copy_Articles ' || l_return_status );
1746: END IF;
1747:
1748: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1749: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1754: END IF;
1755: END IF;
1756:
1757: IF (l_debug = 'Y') THEN
1758: OKC_DEBUG.log('1007 : Exiting Procedure Copy_Latest_Articles ', 2);
1759: OKC_DEBUG.ReSet_Indentation;
1760: END IF;
1761:
1762: EXCEPTION
1755: END IF;
1756:
1757: IF (l_debug = 'Y') THEN
1758: OKC_DEBUG.log('1007 : Exiting Procedure Copy_Latest_Articles ', 2);
1759: OKC_DEBUG.ReSet_Indentation;
1760: END IF;
1761:
1762: EXCEPTION
1763: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1761:
1762: EXCEPTION
1763: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1764: IF (l_debug = 'Y') THEN
1765: OKC_DEBUG.ReSet_Indentation;
1766: END IF;
1767: NULL;
1768: WHEN OTHERS THEN
1769: -- store SQL error message on message stack for caller
1770: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
1771: -- notify caller of an UNEXPECTED error
1772: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1773: IF (l_debug = 'Y') THEN
1774: OKC_DEBUG.ReSet_Indentation;
1775: END IF;
1776:
1777: END Copy_Latest_Articles;
1778:
2860:
2861: BEGIN
2862:
2863: IF (l_debug = 'Y') THEN
2864: OKC_DEBUG.Set_Indentation(' Copy_Rules ');
2865: OKC_DEBUG.log('2001 : Entering Copy_Rules ', 2);
2866: END IF;
2867:
2868: x_return_status := l_return_status;
2861: BEGIN
2862:
2863: IF (l_debug = 'Y') THEN
2864: OKC_DEBUG.Set_Indentation(' Copy_Rules ');
2865: OKC_DEBUG.log('2001 : Entering Copy_Rules ', 2);
2866: END IF;
2867:
2868: x_return_status := l_return_status;
2869: l_return_status := get_rgpv_rec( p_rgp_id => p_rgp_id,
2898: If (get_new_cpl_id(l_cpl_id,l_new_cpl_id)) Then
2899: null;
2900: Else
2901: IF (l_debug = 'Y') THEN
2902: OKC_DEBUG.ReSet_Indentation;
2903: END IF;
2904: return;
2905: End If;
2906: End If;
2913:
2914: IF l_result <> 'x' THEN
2915: -- Cannot be copied. Skip this rule group.
2916: IF (l_debug = 'Y') THEN
2917: OKC_DEBUG.ReSet_Indentation;
2918: END IF;
2919: return;
2920: END IF;
2921:
2935: l_rgpv_rec.rgp_type := 'KRG';
2936: l_rgpv_rec.sat_code := null;
2937:
2938: IF (l_debug = 'Y') THEN
2939: OKC_DEBUG.log('2001 : Before Procedure Create_Rule_Group : ' );
2940: END IF;
2941: OKC_RULE_PUB.create_rule_group(
2942: p_api_version => p_api_version,
2943: p_init_msg_list => p_init_msg_list,
2954:
2955: x_rgp_id := x_rgpv_rec.id; -- passes the new generated id to the caller.
2956:
2957: IF (l_debug = 'Y') THEN
2958: OKC_DEBUG.log('2001 : After Procedure Create_Rule_Group : ');
2959: END IF;
2960: FOR l_c_rmpv IN c_rmpv(p_rgp_id) LOOP
2961: l_old_return_status := x_return_status;
2962: l_rmpv_rec.dnz_chr_id := l_rgpv_rec.dnz_chr_id;
2965:
2966: IF get_new_cpl_id(l_c_rmpv.cpl_id,l_rmpv_rec.cpl_id) THEN
2967:
2968: IF (l_debug = 'Y') THEN
2969: OKC_DEBUG.log('2001 : Before Procedure Create_Rg_Mode_Pty_Role : ' );
2970: END IF;
2971: OKC_RULE_PUB.create_rg_mode_pty_role(
2972: p_api_version => p_api_version,
2973: p_init_msg_list => p_init_msg_list,
3252: g_rulv_rec := tmp_rulv_rec;
3253: END LOOP;
3254:
3255: IF (l_debug = 'Y') THEN
3256: OKC_DEBUG.log('1001 : Exiting Procedure Copy_Rules ', 2);
3257: OKC_DEBUG.ReSet_Indentation;
3258: END IF;
3259:
3260: EXCEPTION
3253: END LOOP;
3254:
3255: IF (l_debug = 'Y') THEN
3256: OKC_DEBUG.log('1001 : Exiting Procedure Copy_Rules ', 2);
3257: OKC_DEBUG.ReSet_Indentation;
3258: END IF;
3259:
3260: EXCEPTION
3261: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3259:
3260: EXCEPTION
3261: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3262: IF (l_debug = 'Y') THEN
3263: OKC_DEBUG.ReSet_Indentation;
3264: END IF;
3265: NULL;
3266: WHEN OTHERS THEN
3267: -- store SQL error message on message stack for caller
3268: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
3269: -- notify caller of an UNEXPECTED error
3270: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3271: IF (l_debug = 'Y') THEN
3272: OKC_DEBUG.ReSet_Indentation;
3273: END IF;
3274:
3275: END copy_rules;
3276:
4131:
4132: BEGIN
4133:
4134: IF (l_debug = 'Y') THEN
4135: OKC_DEBUG.Set_Indentation(' copy_contract_line ');
4136: OKC_DEBUG.log('100 : Entering copy_contract_line ', 2);
4137: OKC_DEBUG.log('100 : p_from_cle_id : '||p_from_cle_id);
4138: OKC_DEBUG.log('100 : p_from_chr_id : '||p_from_chr_id);
4139: OKC_DEBUG.log('100 : p_to_cle_id : '||p_to_cle_id);
4132: BEGIN
4133:
4134: IF (l_debug = 'Y') THEN
4135: OKC_DEBUG.Set_Indentation(' copy_contract_line ');
4136: OKC_DEBUG.log('100 : Entering copy_contract_line ', 2);
4137: OKC_DEBUG.log('100 : p_from_cle_id : '||p_from_cle_id);
4138: OKC_DEBUG.log('100 : p_from_chr_id : '||p_from_chr_id);
4139: OKC_DEBUG.log('100 : p_to_cle_id : '||p_to_cle_id);
4140: OKC_DEBUG.log('100 : p_to_chr_id : '||p_to_chr_id);
4133:
4134: IF (l_debug = 'Y') THEN
4135: OKC_DEBUG.Set_Indentation(' copy_contract_line ');
4136: OKC_DEBUG.log('100 : Entering copy_contract_line ', 2);
4137: OKC_DEBUG.log('100 : p_from_cle_id : '||p_from_cle_id);
4138: OKC_DEBUG.log('100 : p_from_chr_id : '||p_from_chr_id);
4139: OKC_DEBUG.log('100 : p_to_cle_id : '||p_to_cle_id);
4140: OKC_DEBUG.log('100 : p_to_chr_id : '||p_to_chr_id);
4141: OKC_DEBUG.log('100 : p_lse_id : '||p_lse_id);
4134: IF (l_debug = 'Y') THEN
4135: OKC_DEBUG.Set_Indentation(' copy_contract_line ');
4136: OKC_DEBUG.log('100 : Entering copy_contract_line ', 2);
4137: OKC_DEBUG.log('100 : p_from_cle_id : '||p_from_cle_id);
4138: OKC_DEBUG.log('100 : p_from_chr_id : '||p_from_chr_id);
4139: OKC_DEBUG.log('100 : p_to_cle_id : '||p_to_cle_id);
4140: OKC_DEBUG.log('100 : p_to_chr_id : '||p_to_chr_id);
4141: OKC_DEBUG.log('100 : p_lse_id : '||p_lse_id);
4142: OKC_DEBUG.log('100 : p_to_template_yn : '||p_to_template_yn);
4135: OKC_DEBUG.Set_Indentation(' copy_contract_line ');
4136: OKC_DEBUG.log('100 : Entering copy_contract_line ', 2);
4137: OKC_DEBUG.log('100 : p_from_cle_id : '||p_from_cle_id);
4138: OKC_DEBUG.log('100 : p_from_chr_id : '||p_from_chr_id);
4139: OKC_DEBUG.log('100 : p_to_cle_id : '||p_to_cle_id);
4140: OKC_DEBUG.log('100 : p_to_chr_id : '||p_to_chr_id);
4141: OKC_DEBUG.log('100 : p_lse_id : '||p_lse_id);
4142: OKC_DEBUG.log('100 : p_to_template_yn : '||p_to_template_yn);
4143: OKC_DEBUG.log('100 : p_copy_reference : '||p_copy_reference);
4136: OKC_DEBUG.log('100 : Entering copy_contract_line ', 2);
4137: OKC_DEBUG.log('100 : p_from_cle_id : '||p_from_cle_id);
4138: OKC_DEBUG.log('100 : p_from_chr_id : '||p_from_chr_id);
4139: OKC_DEBUG.log('100 : p_to_cle_id : '||p_to_cle_id);
4140: OKC_DEBUG.log('100 : p_to_chr_id : '||p_to_chr_id);
4141: OKC_DEBUG.log('100 : p_lse_id : '||p_lse_id);
4142: OKC_DEBUG.log('100 : p_to_template_yn : '||p_to_template_yn);
4143: OKC_DEBUG.log('100 : p_copy_reference : '||p_copy_reference);
4144: OKC_DEBUG.log('100 : p_copy_line_party_yn : '||p_copy_line_party_yn);
4137: OKC_DEBUG.log('100 : p_from_cle_id : '||p_from_cle_id);
4138: OKC_DEBUG.log('100 : p_from_chr_id : '||p_from_chr_id);
4139: OKC_DEBUG.log('100 : p_to_cle_id : '||p_to_cle_id);
4140: OKC_DEBUG.log('100 : p_to_chr_id : '||p_to_chr_id);
4141: OKC_DEBUG.log('100 : p_lse_id : '||p_lse_id);
4142: OKC_DEBUG.log('100 : p_to_template_yn : '||p_to_template_yn);
4143: OKC_DEBUG.log('100 : p_copy_reference : '||p_copy_reference);
4144: OKC_DEBUG.log('100 : p_copy_line_party_yn : '||p_copy_line_party_yn);
4145: OKC_DEBUG.log('100 : p_renew_ref_yn : '||p_renew_ref_yn);
4138: OKC_DEBUG.log('100 : p_from_chr_id : '||p_from_chr_id);
4139: OKC_DEBUG.log('100 : p_to_cle_id : '||p_to_cle_id);
4140: OKC_DEBUG.log('100 : p_to_chr_id : '||p_to_chr_id);
4141: OKC_DEBUG.log('100 : p_lse_id : '||p_lse_id);
4142: OKC_DEBUG.log('100 : p_to_template_yn : '||p_to_template_yn);
4143: OKC_DEBUG.log('100 : p_copy_reference : '||p_copy_reference);
4144: OKC_DEBUG.log('100 : p_copy_line_party_yn : '||p_copy_line_party_yn);
4145: OKC_DEBUG.log('100 : p_renew_ref_yn : '||p_renew_ref_yn);
4146: OKC_DEBUG.log('100 : p_generate_line_number : '||p_generate_line_number);
4139: OKC_DEBUG.log('100 : p_to_cle_id : '||p_to_cle_id);
4140: OKC_DEBUG.log('100 : p_to_chr_id : '||p_to_chr_id);
4141: OKC_DEBUG.log('100 : p_lse_id : '||p_lse_id);
4142: OKC_DEBUG.log('100 : p_to_template_yn : '||p_to_template_yn);
4143: OKC_DEBUG.log('100 : p_copy_reference : '||p_copy_reference);
4144: OKC_DEBUG.log('100 : p_copy_line_party_yn : '||p_copy_line_party_yn);
4145: OKC_DEBUG.log('100 : p_renew_ref_yn : '||p_renew_ref_yn);
4146: OKC_DEBUG.log('100 : p_generate_line_number : '||p_generate_line_number);
4147: OKC_DEBUG.log('100 : *************************************************** ');
4140: OKC_DEBUG.log('100 : p_to_chr_id : '||p_to_chr_id);
4141: OKC_DEBUG.log('100 : p_lse_id : '||p_lse_id);
4142: OKC_DEBUG.log('100 : p_to_template_yn : '||p_to_template_yn);
4143: OKC_DEBUG.log('100 : p_copy_reference : '||p_copy_reference);
4144: OKC_DEBUG.log('100 : p_copy_line_party_yn : '||p_copy_line_party_yn);
4145: OKC_DEBUG.log('100 : p_renew_ref_yn : '||p_renew_ref_yn);
4146: OKC_DEBUG.log('100 : p_generate_line_number : '||p_generate_line_number);
4147: OKC_DEBUG.log('100 : *************************************************** ');
4148: END IF;
4141: OKC_DEBUG.log('100 : p_lse_id : '||p_lse_id);
4142: OKC_DEBUG.log('100 : p_to_template_yn : '||p_to_template_yn);
4143: OKC_DEBUG.log('100 : p_copy_reference : '||p_copy_reference);
4144: OKC_DEBUG.log('100 : p_copy_line_party_yn : '||p_copy_line_party_yn);
4145: OKC_DEBUG.log('100 : p_renew_ref_yn : '||p_renew_ref_yn);
4146: OKC_DEBUG.log('100 : p_generate_line_number : '||p_generate_line_number);
4147: OKC_DEBUG.log('100 : *************************************************** ');
4148: END IF;
4149:
4142: OKC_DEBUG.log('100 : p_to_template_yn : '||p_to_template_yn);
4143: OKC_DEBUG.log('100 : p_copy_reference : '||p_copy_reference);
4144: OKC_DEBUG.log('100 : p_copy_line_party_yn : '||p_copy_line_party_yn);
4145: OKC_DEBUG.log('100 : p_renew_ref_yn : '||p_renew_ref_yn);
4146: OKC_DEBUG.log('100 : p_generate_line_number : '||p_generate_line_number);
4147: OKC_DEBUG.log('100 : *************************************************** ');
4148: END IF;
4149:
4150: IF g_price_adjustments.COUNT > 0 THEN
4143: OKC_DEBUG.log('100 : p_copy_reference : '||p_copy_reference);
4144: OKC_DEBUG.log('100 : p_copy_line_party_yn : '||p_copy_line_party_yn);
4145: OKC_DEBUG.log('100 : p_renew_ref_yn : '||p_renew_ref_yn);
4146: OKC_DEBUG.log('100 : p_generate_line_number : '||p_generate_line_number);
4147: OKC_DEBUG.log('100 : *************************************************** ');
4148: END IF;
4149:
4150: IF g_price_adjustments.COUNT > 0 THEN
4151: g_price_adjustments.DELETE;
4155: l_return_status := get_clev_rec(p_cle_id => p_from_cle_id,
4156: p_renew_ref_yn => p_renew_ref_yn, -- Added for bugfix 2307197
4157: x_clev_rec => l_clev_rec);
4158: IF (l_debug = 'Y') THEN
4159: OKC_DEBUG.log('110 : After get_clev_rec ',2);
4160: OKC_DEBUG.log('110 : l_return_status : '||l_return_status);
4161: OKC_DEBUG.log('110 : l_clev_rec.id : '||l_clev_rec.id);
4162: OKC_DEBUG.log('110 : l_clev_rec.chr_id : '||l_clev_rec.chr_id);
4163: OKC_DEBUG.log('110 : l_clev_rec.dnz_chr_id : '||l_clev_rec.dnz_chr_id);
4156: p_renew_ref_yn => p_renew_ref_yn, -- Added for bugfix 2307197
4157: x_clev_rec => l_clev_rec);
4158: IF (l_debug = 'Y') THEN
4159: OKC_DEBUG.log('110 : After get_clev_rec ',2);
4160: OKC_DEBUG.log('110 : l_return_status : '||l_return_status);
4161: OKC_DEBUG.log('110 : l_clev_rec.id : '||l_clev_rec.id);
4162: OKC_DEBUG.log('110 : l_clev_rec.chr_id : '||l_clev_rec.chr_id);
4163: OKC_DEBUG.log('110 : l_clev_rec.dnz_chr_id : '||l_clev_rec.dnz_chr_id);
4164: END IF;
4157: x_clev_rec => l_clev_rec);
4158: IF (l_debug = 'Y') THEN
4159: OKC_DEBUG.log('110 : After get_clev_rec ',2);
4160: OKC_DEBUG.log('110 : l_return_status : '||l_return_status);
4161: OKC_DEBUG.log('110 : l_clev_rec.id : '||l_clev_rec.id);
4162: OKC_DEBUG.log('110 : l_clev_rec.chr_id : '||l_clev_rec.chr_id);
4163: OKC_DEBUG.log('110 : l_clev_rec.dnz_chr_id : '||l_clev_rec.dnz_chr_id);
4164: END IF;
4165:
4158: IF (l_debug = 'Y') THEN
4159: OKC_DEBUG.log('110 : After get_clev_rec ',2);
4160: OKC_DEBUG.log('110 : l_return_status : '||l_return_status);
4161: OKC_DEBUG.log('110 : l_clev_rec.id : '||l_clev_rec.id);
4162: OKC_DEBUG.log('110 : l_clev_rec.chr_id : '||l_clev_rec.chr_id);
4163: OKC_DEBUG.log('110 : l_clev_rec.dnz_chr_id : '||l_clev_rec.dnz_chr_id);
4164: END IF;
4165:
4166: -- Bug 2489856
4159: OKC_DEBUG.log('110 : After get_clev_rec ',2);
4160: OKC_DEBUG.log('110 : l_return_status : '||l_return_status);
4161: OKC_DEBUG.log('110 : l_clev_rec.id : '||l_clev_rec.id);
4162: OKC_DEBUG.log('110 : l_clev_rec.chr_id : '||l_clev_rec.chr_id);
4163: OKC_DEBUG.log('110 : l_clev_rec.dnz_chr_id : '||l_clev_rec.dnz_chr_id);
4164: END IF;
4165:
4166: -- Bug 2489856
4167: -- If it is not a case of Renew and line numbers are required to be generated, then reset line_number to Null
4172: end if;
4173: -- End Bug 2489856
4174:
4175: IF (l_debug = 'Y') THEN
4176: OKC_DEBUG.log('200 : In copy_contract_line ',2);
4177: OKC_DEBUG.log('200 : p_renew_ref_yn : '||p_renew_ref_yn);
4178: END IF;
4179: --
4180: -- If copy called for renewal, do not copy renewed lines
4173: -- End Bug 2489856
4174:
4175: IF (l_debug = 'Y') THEN
4176: OKC_DEBUG.log('200 : In copy_contract_line ',2);
4177: OKC_DEBUG.log('200 : p_renew_ref_yn : '||p_renew_ref_yn);
4178: END IF;
4179: --
4180: -- If copy called for renewal, do not copy renewed lines
4181: --
4195:
4196: l_euro_currency := OKC_CURRENCY_API.GET_EURO_CURRENCY_CODE(l_clev_rec.currency_code);
4197:
4198: IF (l_debug = 'Y') THEN
4199: OKC_DEBUG.log('300 : l_euro_currency : '||l_euro_currency);
4200: END IF;
4201:
4202: if (l_euro_currency <> l_clev_rec.currency_code) then
4203:
4212: );
4213: l_clev_rec.price_negotiated := l_converted_amount;
4214:
4215: IF (l_debug = 'Y') THEN
4216: OKC_DEBUG.log('350 : l_converted_amount : '||l_converted_amount);
4217: END IF;
4218:
4219: OKC_CURRENCY_API.CONVERT_AMOUNT
4220: (p_FROM_CURRENCY => l_clev_rec.currency_code,
4227: );
4228: l_clev_rec.price_unit := l_converted_amount;
4229:
4230: IF (l_debug = 'Y') THEN
4231: OKC_DEBUG.log('400 : l_converted_amount : '||l_converted_amount);
4232: END IF;
4233:
4234:
4235: /* Commented out nocopy as line_list_price is in 11.5.6 and not available here
4254: End if;
4255:
4256:
4257: IF (l_debug = 'Y') THEN
4258: OKC_DEBUG.log('450 : l_euro_currency : '||l_euro_currency);
4259: END IF;
4260:
4261: end if;
4262: end if;
4305: l_clev_rec.sts_code := l_sts_code;
4306:
4307:
4308: IF (l_debug = 'Y') THEN
4309: OKC_DEBUG.log('500 : x_return_status : '||l_return_status);
4310: OKC_DEBUG.log('500 : l_sts_code : '||l_sts_code);
4311: END IF;
4312:
4313: IF NOT get_parent_date(p_from_start_date => l_clev_rec.start_date,
4306:
4307:
4308: IF (l_debug = 'Y') THEN
4309: OKC_DEBUG.log('500 : x_return_status : '||l_return_status);
4310: OKC_DEBUG.log('500 : l_sts_code : '||l_sts_code);
4311: END IF;
4312:
4313: IF NOT get_parent_date(p_from_start_date => l_clev_rec.start_date,
4314: p_from_end_date => l_clev_rec.end_date,
4355: l_clev_rec.ph_qp_reference_id := NULL;
4356: l_clev_rec.ph_integrated_with_qp := 'N';
4357:
4358: IF (l_debug = 'Y') THEN
4359: OKC_DEBUG.log('550 : Calling OKC_CONTRACT_PUB.create_contract_line ');
4360: OKC_DEBUG.log('550 : l_clev_rec.id : '||l_clev_rec.id);
4361: OKC_DEBUG.log('550 : l_clev_rec.chr_id : '||l_clev_rec.chr_id);
4362: OKC_DEBUG.log('550 : l_clev_rec.dnz_chr_id : '||l_clev_rec.dnz_chr_id);
4363: END IF;
4356: l_clev_rec.ph_integrated_with_qp := 'N';
4357:
4358: IF (l_debug = 'Y') THEN
4359: OKC_DEBUG.log('550 : Calling OKC_CONTRACT_PUB.create_contract_line ');
4360: OKC_DEBUG.log('550 : l_clev_rec.id : '||l_clev_rec.id);
4361: OKC_DEBUG.log('550 : l_clev_rec.chr_id : '||l_clev_rec.chr_id);
4362: OKC_DEBUG.log('550 : l_clev_rec.dnz_chr_id : '||l_clev_rec.dnz_chr_id);
4363: END IF;
4364:
4357:
4358: IF (l_debug = 'Y') THEN
4359: OKC_DEBUG.log('550 : Calling OKC_CONTRACT_PUB.create_contract_line ');
4360: OKC_DEBUG.log('550 : l_clev_rec.id : '||l_clev_rec.id);
4361: OKC_DEBUG.log('550 : l_clev_rec.chr_id : '||l_clev_rec.chr_id);
4362: OKC_DEBUG.log('550 : l_clev_rec.dnz_chr_id : '||l_clev_rec.dnz_chr_id);
4363: END IF;
4364:
4365: OKC_CONTRACT_PUB.create_contract_line(
4358: IF (l_debug = 'Y') THEN
4359: OKC_DEBUG.log('550 : Calling OKC_CONTRACT_PUB.create_contract_line ');
4360: OKC_DEBUG.log('550 : l_clev_rec.id : '||l_clev_rec.id);
4361: OKC_DEBUG.log('550 : l_clev_rec.chr_id : '||l_clev_rec.chr_id);
4362: OKC_DEBUG.log('550 : l_clev_rec.dnz_chr_id : '||l_clev_rec.dnz_chr_id);
4363: END IF;
4364:
4365: OKC_CONTRACT_PUB.create_contract_line(
4366: p_api_version => p_api_version,
4371: p_clev_rec => l_clev_rec,
4372: x_clev_rec => x_clev_rec);
4373:
4374: IF (l_debug = 'Y') THEN
4375: OKC_DEBUG.log('555 : After OKC_CONTRACT_PUB.create_contract_line ');
4376: OKC_DEBUG.log('555 : x_return_status : '||l_return_status);
4377: OKC_DEBUG.log('555 : x_msg_count : '||x_msg_count);
4378: OKC_DEBUG.log('555 : x_msg_data : '||x_msg_data);
4379: END IF;
4372: x_clev_rec => x_clev_rec);
4373:
4374: IF (l_debug = 'Y') THEN
4375: OKC_DEBUG.log('555 : After OKC_CONTRACT_PUB.create_contract_line ');
4376: OKC_DEBUG.log('555 : x_return_status : '||l_return_status);
4377: OKC_DEBUG.log('555 : x_msg_count : '||x_msg_count);
4378: OKC_DEBUG.log('555 : x_msg_data : '||x_msg_data);
4379: END IF;
4380:
4373:
4374: IF (l_debug = 'Y') THEN
4375: OKC_DEBUG.log('555 : After OKC_CONTRACT_PUB.create_contract_line ');
4376: OKC_DEBUG.log('555 : x_return_status : '||l_return_status);
4377: OKC_DEBUG.log('555 : x_msg_count : '||x_msg_count);
4378: OKC_DEBUG.log('555 : x_msg_data : '||x_msg_data);
4379: END IF;
4380:
4381: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
4374: IF (l_debug = 'Y') THEN
4375: OKC_DEBUG.log('555 : After OKC_CONTRACT_PUB.create_contract_line ');
4376: OKC_DEBUG.log('555 : x_return_status : '||l_return_status);
4377: OKC_DEBUG.log('555 : x_msg_count : '||x_msg_count);
4378: OKC_DEBUG.log('555 : x_msg_data : '||x_msg_data);
4379: END IF;
4380:
4381: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
4382: x_return_status := l_return_status;
4385:
4386: x_cle_id := x_clev_rec.id; -- passes the new generated id to the caller.
4387:
4388: IF (l_debug = 'Y') THEN
4389: OKC_DEBUG.log('650 : After OKC_CONTRACT_PUB.create_contract_line ');
4390: OKC_DEBUG.log('650 : x_return_status : '||l_return_status);
4391: OKC_DEBUG.log('650 : x_cle_id : '||x_cle_id);
4392: END IF;
4393:
4386: x_cle_id := x_clev_rec.id; -- passes the new generated id to the caller.
4387:
4388: IF (l_debug = 'Y') THEN
4389: OKC_DEBUG.log('650 : After OKC_CONTRACT_PUB.create_contract_line ');
4390: OKC_DEBUG.log('650 : x_return_status : '||l_return_status);
4391: OKC_DEBUG.log('650 : x_cle_id : '||x_cle_id);
4392: END IF;
4393:
4394: IF p_renew_ref_yn = 'Y' THEN
4387:
4388: IF (l_debug = 'Y') THEN
4389: OKC_DEBUG.log('650 : After OKC_CONTRACT_PUB.create_contract_line ');
4390: OKC_DEBUG.log('650 : x_return_status : '||l_return_status);
4391: OKC_DEBUG.log('650 : x_cle_id : '||x_cle_id);
4392: END IF;
4393:
4394: IF p_renew_ref_yn = 'Y' THEN
4395: --if the copy is for RENEW, create operation line
4411: -- copy associated attachments
4412: l_from_version := Get_Major_Version(p_from_chr_id);
4413:
4414: IF (l_debug = 'Y') THEN
4415: OKC_DEBUG.log('750 : l_from_version : '||l_from_version);
4416: END IF;
4417:
4418: IF (l_from_version = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4419: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4466: END IF;
4467: END IF;
4468:
4469: IF (l_debug = 'Y') THEN
4470: OKC_DEBUG.log('850 : ');
4471: END IF;
4472:
4473: --
4474: -- Bug 3611000
4530:
4531: l_old_return_status := l_return_status;
4532:
4533: IF (l_debug = 'Y') THEN
4534: OKC_DEBUG.log('950 : ');
4535: END IF;
4536:
4537: FOR l_c_pavv IN c_pavv LOOP
4538: copy_price_att_values (
4558:
4559: l_old_return_status := l_return_status;
4560:
4561: IF (l_debug = 'Y') THEN
4562: OKC_DEBUG.log('1100 : ');
4563: END IF;
4564:
4565: FOR l_c_patv IN c_patv LOOP
4566: copy_price_adjustments (
4584: END IF;
4585: END IF;
4586:
4587: IF (l_debug = 'Y') THEN
4588: OKC_DEBUG.log('1200 : ');
4589: END IF;
4590:
4591: copy_price_adj_attribs (
4592: p_api_version => p_api_version,
4610:
4611: l_old_return_status := l_return_status;
4612:
4613: IF (l_debug = 'Y') THEN
4614: OKC_DEBUG.log('1300 : ');
4615: END IF;
4616:
4617: FOR l_c_pacv IN c_pacv LOOP
4618: copy_price_adj_assocs (
4662: l_old_return_status := l_return_status;
4663: */
4664:
4665: IF (l_debug = 'Y') THEN
4666: OKC_DEBUG.log('1400 : ');
4667: END IF;
4668:
4669: FOR l_c_scrv IN c_scrv LOOP
4670: copy_sales_credits (
4688: END IF;
4689: END LOOP;
4690:
4691: IF (l_debug = 'Y') THEN
4692: OKC_DEBUG.log('1500 : ');
4693: END IF;
4694:
4695: /******* commented For Bug# 3052910 ***************************
4696: -- Copy_governance for lines is added for Price_hold. Bug#2399377 .
4725: -- price hold is added for Bug#2399377 and it is obsoleted ,
4726: -- hence the following code is commented.
4727:
4728: IF (l_debug = 'Y') THEN
4729: OKC_DEBUG.log('1600 : ');
4730: END IF;
4731:
4732: FOR l_c_okc_ph_line_breaks_v IN c_okc_ph_line_breaks_v LOOP
4733:
4753:
4754: *****Commented For Bug# 3052910 ************************************/
4755:
4756: IF (l_debug = 'Y') THEN
4757: OKC_DEBUG.log('1700 : ');
4758: END IF;
4759:
4760:
4761: IF p_copy_line_party_yn = 'Y' THEN
4788:
4789: l_old_return_status := l_return_status;
4790:
4791: IF (l_debug = 'Y') THEN
4792: OKC_DEBUG.log('1800 : ');
4793: END IF;
4794:
4795: copy_items (
4796: p_api_version => p_api_version,
4817: END IF;
4818: END IF;
4819:
4820: IF (l_debug = 'Y') THEN
4821: OKC_DEBUG.log('2000 : ');
4822: END IF;
4823:
4824:
4825: --Changes done for Bug 3764231 to execute the dynamic SQL only for service contracts
4843: x_string => l_string) ;
4844: CLOSE c_pdf;
4845:
4846: IF (l_debug = 'Y') THEN
4847: OKC_DEBUG.log('2100 : l_string : '||l_string);
4848: END IF;
4849: IF l_string is NOT NULL THEN -- Begin L_STRING IF
4850: proc_string := 'begin '||l_string || ' (:b1,:b2,:b3); end ;';
4851: EXECUTE IMMEDIATE proc_string using l_chr_id,l_cle_id1, out l_return_status; -- Bugfix 2151523(1917514) - changed l_cle_id to l_cle_id1.
4862: END IF; -- End l_category ='SERVICE'
4863: -- End - Changes done for Bug 1917514
4864:
4865: IF (l_debug = 'Y') THEN
4866: OKC_DEBUG.log('10000 : Exiting Procedure copy_contract_line ', 2);
4867: OKC_DEBUG.ReSet_Indentation;
4868: END IF;
4869:
4870: EXCEPTION
4863: -- End - Changes done for Bug 1917514
4864:
4865: IF (l_debug = 'Y') THEN
4866: OKC_DEBUG.log('10000 : Exiting Procedure copy_contract_line ', 2);
4867: OKC_DEBUG.ReSet_Indentation;
4868: END IF;
4869:
4870: EXCEPTION
4871: WHEN G_EXCEPTION_HALT_VALIDATION THEN
4869:
4870: EXCEPTION
4871: WHEN G_EXCEPTION_HALT_VALIDATION THEN
4872: IF (l_debug = 'Y') THEN
4873: OKC_DEBUG.log('20000 : Exiting Procedure copy_contract_line ', 2);
4874: OKC_DEBUG.ReSet_Indentation;
4875: END IF;
4876: NULL;
4877: WHEN OTHERS THEN
4870: EXCEPTION
4871: WHEN G_EXCEPTION_HALT_VALIDATION THEN
4872: IF (l_debug = 'Y') THEN
4873: OKC_DEBUG.log('20000 : Exiting Procedure copy_contract_line ', 2);
4874: OKC_DEBUG.ReSet_Indentation;
4875: END IF;
4876: NULL;
4877: WHEN OTHERS THEN
4878: -- store SQL error message on message stack for caller
4877: WHEN OTHERS THEN
4878: -- store SQL error message on message stack for caller
4879: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
4880: IF (l_debug = 'Y') THEN
4881: OKC_DEBUG.log('30000 : SQLCODE : '||SQLCODE);
4882: OKC_DEBUG.log('30000 : SQLERRM : '||SQLERRM);
4883: OKC_DEBUG.log('30000 : Exiting Procedure copy_contract_line ', 2);
4884: OKC_DEBUG.ReSet_Indentation;
4885: END IF;
4878: -- store SQL error message on message stack for caller
4879: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
4880: IF (l_debug = 'Y') THEN
4881: OKC_DEBUG.log('30000 : SQLCODE : '||SQLCODE);
4882: OKC_DEBUG.log('30000 : SQLERRM : '||SQLERRM);
4883: OKC_DEBUG.log('30000 : Exiting Procedure copy_contract_line ', 2);
4884: OKC_DEBUG.ReSet_Indentation;
4885: END IF;
4886: -- notify caller of an UNEXPECTED error
4879: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
4880: IF (l_debug = 'Y') THEN
4881: OKC_DEBUG.log('30000 : SQLCODE : '||SQLCODE);
4882: OKC_DEBUG.log('30000 : SQLERRM : '||SQLERRM);
4883: OKC_DEBUG.log('30000 : Exiting Procedure copy_contract_line ', 2);
4884: OKC_DEBUG.ReSet_Indentation;
4885: END IF;
4886: -- notify caller of an UNEXPECTED error
4887: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4880: IF (l_debug = 'Y') THEN
4881: OKC_DEBUG.log('30000 : SQLCODE : '||SQLCODE);
4882: OKC_DEBUG.log('30000 : SQLERRM : '||SQLERRM);
4883: OKC_DEBUG.log('30000 : Exiting Procedure copy_contract_line ', 2);
4884: OKC_DEBUG.ReSet_Indentation;
4885: END IF;
4886: -- notify caller of an UNEXPECTED error
4887: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4888:
4989: ----------------------------------------------------------------------------
4990: BEGIN
4991:
4992: IF (l_debug = 'Y') THEN
4993: OKC_DEBUG.Set_Indentation(' copy_contract_lines ');
4994: OKC_DEBUG.log('100 : Entering copy_contract_lines ', 2);
4995: END IF;
4996:
4997: x_return_status := l_return_status;
4990: BEGIN
4991:
4992: IF (l_debug = 'Y') THEN
4993: OKC_DEBUG.Set_Indentation(' copy_contract_lines ');
4994: OKC_DEBUG.log('100 : Entering copy_contract_lines ', 2);
4995: END IF;
4996:
4997: x_return_status := l_return_status;
4998:
5066:
5067: END IF;
5068:
5069: IF (l_debug = 'Y') THEN
5070: OKC_DEBUG.log('500 : copy_contract_line - x_return_status : '||l_return_status);
5071: END IF;
5072:
5073: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
5074: x_return_status := l_return_status;
5096: End If;
5097: End If;
5098:
5099: IF (l_debug = 'Y') THEN
5100: OKC_DEBUG.log('10000 : Exiting Procedure copy_contract_lines ', 2);
5101: OKC_DEBUG.ReSet_Indentation;
5102: END IF;
5103:
5104: EXCEPTION
5097: End If;
5098:
5099: IF (l_debug = 'Y') THEN
5100: OKC_DEBUG.log('10000 : Exiting Procedure copy_contract_lines ', 2);
5101: OKC_DEBUG.ReSet_Indentation;
5102: END IF;
5103:
5104: EXCEPTION
5105: WHEN G_EXCEPTION_HALT_VALIDATION THEN
5103:
5104: EXCEPTION
5105: WHEN G_EXCEPTION_HALT_VALIDATION THEN
5106: IF (l_debug = 'Y') THEN
5107: OKC_DEBUG.log('20000 : Exiting Procedure copy_contract_lines ', 2);
5108: OKC_DEBUG.ReSet_Indentation;
5109: END IF;
5110: NULL;
5111: WHEN OTHERS THEN
5104: EXCEPTION
5105: WHEN G_EXCEPTION_HALT_VALIDATION THEN
5106: IF (l_debug = 'Y') THEN
5107: OKC_DEBUG.log('20000 : Exiting Procedure copy_contract_lines ', 2);
5108: OKC_DEBUG.ReSet_Indentation;
5109: END IF;
5110: NULL;
5111: WHEN OTHERS THEN
5112: -- store SQL error message on message stack for caller
5111: WHEN OTHERS THEN
5112: -- store SQL error message on message stack for caller
5113: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
5114: IF (l_debug = 'Y') THEN
5115: OKC_DEBUG.log('30000 : SQLCODE : '||SQLCODE);
5116: OKC_DEBUG.log('30000 : SQLERRM : '||SQLERRM);
5117: OKC_DEBUG.log('30000 : Exiting Procedure copy_contract_lines ', 2);
5118: OKC_DEBUG.ReSet_Indentation;
5119: END IF;
5112: -- store SQL error message on message stack for caller
5113: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
5114: IF (l_debug = 'Y') THEN
5115: OKC_DEBUG.log('30000 : SQLCODE : '||SQLCODE);
5116: OKC_DEBUG.log('30000 : SQLERRM : '||SQLERRM);
5117: OKC_DEBUG.log('30000 : Exiting Procedure copy_contract_lines ', 2);
5118: OKC_DEBUG.ReSet_Indentation;
5119: END IF;
5120: -- notify caller of an UNEXPECTED error
5113: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
5114: IF (l_debug = 'Y') THEN
5115: OKC_DEBUG.log('30000 : SQLCODE : '||SQLCODE);
5116: OKC_DEBUG.log('30000 : SQLERRM : '||SQLERRM);
5117: OKC_DEBUG.log('30000 : Exiting Procedure copy_contract_lines ', 2);
5118: OKC_DEBUG.ReSet_Indentation;
5119: END IF;
5120: -- notify caller of an UNEXPECTED error
5121: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
5114: IF (l_debug = 'Y') THEN
5115: OKC_DEBUG.log('30000 : SQLCODE : '||SQLCODE);
5116: OKC_DEBUG.log('30000 : SQLERRM : '||SQLERRM);
5117: OKC_DEBUG.log('30000 : Exiting Procedure copy_contract_lines ', 2);
5118: OKC_DEBUG.ReSet_Indentation;
5119: END IF;
5120: -- notify caller of an UNEXPECTED error
5121: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
5122:
6141: AND G_COPY_HISTORY_YN = 'Y';
6142: ---------------------------------------------------
6143: BEGIN
6144: IF (l_debug = 'Y') THEN
6145: OKC_DEBUG.Set_Indentation('Copy_contract');
6146: OKC_DEBUG.log('1000 : Entering Copy_contract', 2);
6147: END IF;
6148: G_COPY_HISTORY_YN := NVL(upper(p_copy_from_history_yn),'N');
6149: IF G_COPY_HISTORY_YN = 'Y' THEN
6142: ---------------------------------------------------
6143: BEGIN
6144: IF (l_debug = 'Y') THEN
6145: OKC_DEBUG.Set_Indentation('Copy_contract');
6146: OKC_DEBUG.log('1000 : Entering Copy_contract', 2);
6147: END IF;
6148: G_COPY_HISTORY_YN := NVL(upper(p_copy_from_history_yn),'N');
6149: IF G_COPY_HISTORY_YN = 'Y' THEN
6150: IF p_from_version_number IS NOT NULL then
6148: G_COPY_HISTORY_YN := NVL(upper(p_copy_from_history_yn),'N');
6149: IF G_COPY_HISTORY_YN = 'Y' THEN
6150: IF p_from_version_number IS NOT NULL then
6151: IF (l_debug = 'Y') THEN
6152: OKC_DEBUG.log('1010 : G_COPY_HISTORY_YN = Y', 2);
6153: END IF;
6154: G_FROM_VERSION_NUMBER := p_from_version_number;
6155: ELSE
6156:
6154: G_FROM_VERSION_NUMBER := p_from_version_number;
6155: ELSE
6156:
6157: IF (l_debug = 'Y') THEN
6158: OKC_DEBUG.log('1020 : G_COPY_HISTORY_YN = N', 2);
6159: END IF;
6160: OKC_API.SET_MESSAGE(G_APP_NAME,'OKC_VERSION_NUMBER_MISSING');
6161: X_return_status := OKC_API.G_RET_STS_ERROR;
6162: raise G_EXCEPTION_HALT_VALIDATION;
6167:
6168: ----------------------------------------------------
6169: l_result := OKC_COPY_CONTRACT_PUB.IS_COPY_ALLOWED(p_chr_id, NULL);
6170: IF (l_debug = 'Y') THEN
6171: OKC_DEBUG.log('1301 : After OKC_COPY_CONTRACT_PUB ' || X_return_status );
6172: END IF;
6173: If NOT l_result Then
6174:
6175: IF (l_debug = 'Y') THEN
6172: END IF;
6173: If NOT l_result Then
6174:
6175: IF (l_debug = 'Y') THEN
6176: OKC_DEBUG.log('1040 : Inside If NOT l_result Then', 2);
6177: END IF;
6178: -- notify caller of an UNEXPECTED error
6179: x_return_status := OKC_API.G_RET_STS_ERROR;
6180: raise G_EXCEPTION_HALT_VALIDATION;
6211:
6212: x_return_status := l_return_status;
6213:
6214: IF (l_debug = 'Y') THEN
6215: OKC_DEBUG.log('1050 : Before Procedure : copy_contract_header ' ,1);
6216: END IF;
6217: copy_contract_header(
6218: p_api_version => p_api_version,
6219: p_init_msg_list => p_init_msg_list,
6234: x_chr_id => l_chr_id);
6235:
6236: l_oks_copy := 'N'; -- Bugfix 2151523(1917514)
6237: IF (l_debug = 'Y') THEN
6238: OKC_DEBUG.log('1003 : After Procedure : Copy_contract_header ', 1);
6239: END IF;
6240: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
6241: x_return_status := l_return_status;
6242: RAISE G_EXCEPTION_HALT_VALIDATION;
6247: FOR l_c_cnhv IN c_cnhv LOOP -- events procedure needs to be called before rules.
6248: l_old_return_status := l_return_status;
6249:
6250: IF (l_debug = 'Y') THEN
6251: OKC_DEBUG.log('Before Procedure : copy_events ' || l_return_status);
6252: END IF;
6253: copy_events(
6254: p_api_version => p_api_version,
6255: p_init_msg_list => p_init_msg_list,
6261: p_to_template_yn => p_to_template_yn,
6262: x_cnh_id => l_cnh_id);
6263:
6264: IF (l_debug = 'Y') THEN
6265: OKC_DEBUG.log(' After Procedure : copy_events ' || l_return_status);
6266: END IF;
6267: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
6268: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6269: x_return_status := l_return_status;
6279: FOR l_c_cplv IN c_cplv LOOP
6280: l_old_return_status := l_return_status;
6281:
6282: IF (l_debug = 'Y') THEN
6283: OKC_DEBUG.log(' Before Procedure : copy_party_roles ' || l_return_status);
6284: END IF;
6285: copy_party_roles (
6286: p_api_version => p_api_version,
6287: p_init_msg_list => p_init_msg_list,
6294: p_rle_code => NULL,
6295: x_cpl_id => l_cpl_id);
6296:
6297: IF (l_debug = 'Y') THEN
6298: OKC_DEBUG.log(' After Procedure : copy_party_roles ' || l_return_status);
6299: END IF;
6300: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
6301: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6302: x_return_status := l_return_status;
6319: FOR l_c_rgpv IN c_rgpv LOOP
6320: l_old_return_status := l_return_status;
6321:
6322: IF (l_debug = 'Y') THEN
6323: OKC_DEBUG.log(' Before Procedure : copy_rules ' || l_return_status);
6324: END IF;
6325:
6326: copy_rules (
6327: p_api_version => p_api_version,
6335: p_to_template_yn => p_to_template_yn,
6336: x_rgp_id => l_rgp_id);
6337:
6338: IF (l_debug = 'Y') THEN
6339: OKC_DEBUG.log(' After Procedure : copy_rules ' || l_return_status);
6340: END IF;
6341: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
6342: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6343: x_return_status := l_return_status;
6354:
6355: /* 11510
6356: -----Bug.No-1754245
6357: IF (l_debug = 'Y') THEN
6358: OKC_DEBUG.log('p_renew_ref_yn='||p_renew_ref_yn||' p_copy_latest_articles='||p_copy_latest_articles,2);
6359: END IF;
6360:
6361: IF p_renew_ref_yn = 'Y' OR
6362: p_copy_latest_articles = 'N' THEN
6363: FOR l_c_catv IN c_catv LOOP
6364: ---Current(may be an old verssion) release of article is copied here.
6365:
6366: IF (l_debug = 'Y') THEN
6367: OKC_DEBUG.log(' Before Procedure : copy_articles ' || l_return_status);
6368: END IF;
6369:
6370: copy_articles (
6371: p_api_version => p_api_version,
6378: p_chr_id => l_chr_id, -- the new generated contract header id
6379: x_cat_id => l_cat_id);
6380:
6381: IF (l_debug = 'Y') THEN
6382: OKC_DEBUG.log(' After Procedure : copy_articles ' || l_return_status);
6383: END IF;
6384: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
6385: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6386: x_return_status := l_return_status;
6392: END LOOP;
6393: ELSE ---> Copy Latest release of article.---
6394: FOR l_c_catv IN c_catv LOOP
6395: IF (l_debug = 'Y') THEN
6396: OKC_DEBUG.log('Before Procedure : copy_latest_articles : ' || l_return_status);
6397: END IF;
6398:
6399: copy_latest_articles(
6400: p_api_version => p_api_version,
6407: p_chr_id => l_chr_id,
6408: x_cat_id => l_cat_id);
6409:
6410: IF (l_debug = 'Y') THEN
6411: OKC_DEBUG.log(' After Procedure : copy_latest_articles : ' || l_return_status);
6412: END IF;
6413: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
6414: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6415: x_return_status := l_return_status;
6447: **************************************/
6448: -- Call to the procedure to copy all other remaining sections
6449: /* 11510 copy_other_sections(p_chr_id, l_chr_id);
6450: IF (l_debug = 'Y') THEN
6451: OKC_DEBUG.log(' After Procedure : copy_other_sections ' || l_return_status);
6452: END IF;
6453: */
6454:
6455: -- new 11510 code
6468: x_doc_type => l_source_doc_type
6469: );
6470:
6471: IF (l_debug = 'Y') THEN
6472: OKC_DEBUG.log(' After Procedure : Get_Contract_Document_Type for source chr_id ' || l_return_status);
6473: END IF;
6474: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
6475: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6476: x_return_status := l_return_status;
6490: x_doc_id => l_target_doc_id,
6491: x_doc_type => l_target_doc_type);
6492:
6493: IF (l_debug = 'Y') THEN
6494: OKC_DEBUG.log(' After Procedure : Get_Contract_Document_Type for target chr_id ' || l_return_status);
6495: END IF;
6496: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
6497: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6498: x_return_status := l_return_status;
6542: p_allow_duplicate_terms=>'Y'
6543: );
6544: END IF;
6545: IF (l_debug = 'Y') THEN
6546: OKC_DEBUG.log(' After Procedure : OKC_TERMS_COPY_GRP.copy_doc ' || l_return_status);
6547: END IF;
6548: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
6549: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6550: x_return_status := l_return_status;
6563: FOR l_c_lines IN c_lines LOOP
6564: IF l_c_lines.lty_code <> 'WARRANTY' THEN -- AND l_c_lines.lty_code <> 'EXT_WARRANTY' THEN
6565:
6566: IF (l_debug = 'Y') THEN
6567: OKC_DEBUG.log(' Before Procedure : copy_contract_lines ' || l_return_status);
6568: END IF;
6569: copy_contract_lines(
6570: p_api_version => p_api_version,
6571: p_init_msg_list => p_init_msg_list,
6583: x_cle_id => l_cle_id_out);
6584: -- DND p_change_status => 'Y'); --LLC
6585:
6586: IF (l_debug = 'Y') THEN
6587: OKC_DEBUG.log(' After Procedure : copy_contract_lines ' || l_return_status);
6588: END IF;
6589:
6590: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
6591: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6661: END IF;
6662: */
6663:
6664: IF (l_debug = 'Y') THEN
6665: OKC_DEBUG.log('10000 : Exiting Copy_contract ', 2);
6666: OKC_DEBUG.ReSet_Indentation;
6667: END IF;
6668:
6669: EXCEPTION
6662: */
6663:
6664: IF (l_debug = 'Y') THEN
6665: OKC_DEBUG.log('10000 : Exiting Copy_contract ', 2);
6666: OKC_DEBUG.ReSet_Indentation;
6667: END IF;
6668:
6669: EXCEPTION
6670: WHEN G_EXCEPTION_HALT_VALIDATION THEN
6668:
6669: EXCEPTION
6670: WHEN G_EXCEPTION_HALT_VALIDATION THEN
6671: IF (l_debug = 'Y') THEN
6672: OKC_DEBUG.ReSet_Indentation;
6673: END IF;
6674: NULL;
6675:
6676: WHEN OTHERS THEN
6681:
6682: ---Initialisation is not to create contract from History Tables
6683: G_COPY_HISTORY_YN := 'N';
6684: IF (l_debug = 'Y') THEN
6685: OKC_DEBUG.ReSet_Indentation;
6686: END IF;
6687:
6688: END COPY_CONTRACT;
6689:
8089: FROM OKC_K_LINES_V
8090: WHERE id = p_cle_id;
8091: BEGIN
8092: IF (l_debug = 'Y') THEN
8093: OKC_DEBUG.Set_Indentation(' get_clev_rec ');
8094: OKC_DEBUG.log('100 : Entering get_clev_rec ', 2);
8095: OKC_DEBUG.log('100 : p_cle_id : '||p_cle_id);
8096: END IF;
8097: OPEN c_clev_rec;
8090: WHERE id = p_cle_id;
8091: BEGIN
8092: IF (l_debug = 'Y') THEN
8093: OKC_DEBUG.Set_Indentation(' get_clev_rec ');
8094: OKC_DEBUG.log('100 : Entering get_clev_rec ', 2);
8095: OKC_DEBUG.log('100 : p_cle_id : '||p_cle_id);
8096: END IF;
8097: OPEN c_clev_rec;
8098: FETCH c_clev_rec
8091: BEGIN
8092: IF (l_debug = 'Y') THEN
8093: OKC_DEBUG.Set_Indentation(' get_clev_rec ');
8094: OKC_DEBUG.log('100 : Entering get_clev_rec ', 2);
8095: OKC_DEBUG.log('100 : p_cle_id : '||p_cle_id);
8096: END IF;
8097: OPEN c_clev_rec;
8098: FETCH c_clev_rec
8099: INTO x_clev_rec.ID,
8186: CLOSE c_clev_rec;
8187: IF l_no_data_found THEN
8188: l_return_status := OKC_API.G_RET_STS_ERROR;
8189: IF (l_debug = 'Y') THEN
8190: OKC_DEBUG.log('10000 : Exiting Procedure get_clev_rec ', 2);
8191: OKC_DEBUG.ReSet_Indentation;
8192: END IF;
8193: return(l_return_status);
8194: ELSE
8187: IF l_no_data_found THEN
8188: l_return_status := OKC_API.G_RET_STS_ERROR;
8189: IF (l_debug = 'Y') THEN
8190: OKC_DEBUG.log('10000 : Exiting Procedure get_clev_rec ', 2);
8191: OKC_DEBUG.ReSet_Indentation;
8192: END IF;
8193: return(l_return_status);
8194: ELSE
8195: IF (l_debug = 'Y') THEN
8192: END IF;
8193: return(l_return_status);
8194: ELSE
8195: IF (l_debug = 'Y') THEN
8196: OKC_DEBUG.log('30000 : Exiting Procedure get_clev_rec ', 2);
8197: OKC_DEBUG.ReSet_Indentation;
8198: END IF;
8199: return(l_return_status);
8200: END IF;
8193: return(l_return_status);
8194: ELSE
8195: IF (l_debug = 'Y') THEN
8196: OKC_DEBUG.log('30000 : Exiting Procedure get_clev_rec ', 2);
8197: OKC_DEBUG.ReSet_Indentation;
8198: END IF;
8199: return(l_return_status);
8200: END IF;
8201: EXCEPTION
8204: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
8205: -- notify caller of an UNEXPECTED error
8206: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
8207: IF (l_debug = 'Y') THEN
8208: OKC_DEBUG.log('40000 : Exiting Procedure get_clev_rec ', 2);
8209: OKC_DEBUG.ReSet_Indentation;
8210: END IF;
8211: return(l_return_status);
8212: END get_clev_rec;
8205: -- notify caller of an UNEXPECTED error
8206: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
8207: IF (l_debug = 'Y') THEN
8208: OKC_DEBUG.log('40000 : Exiting Procedure get_clev_rec ', 2);
8209: OKC_DEBUG.ReSet_Indentation;
8210: END IF;
8211: return(l_return_status);
8212: END get_clev_rec;
8213:
10512: /*********************************************************************************
10513: -- Following code is commented out for Bug#2855853.
10514:
10515: IF (l_debug = 'Y') THEN
10516: OKC_DEBUG.Set_Indentation(' copy_components ');
10517: OKC_DEBUG.log('100 : Entering OKC_COPY_CONTRACT_PVT.copy_components ', 2);
10518: OKC_DEBUG.log('l_components_tbl.COUNT : '||l_components_tbl.COUNT,2);
10519: For i IN NVL(l_components_tbl.FIRST,0)..NVL(l_components_tbl.LAST,-1)
10520: LOOP
10513: -- Following code is commented out for Bug#2855853.
10514:
10515: IF (l_debug = 'Y') THEN
10516: OKC_DEBUG.Set_Indentation(' copy_components ');
10517: OKC_DEBUG.log('100 : Entering OKC_COPY_CONTRACT_PVT.copy_components ', 2);
10518: OKC_DEBUG.log('l_components_tbl.COUNT : '||l_components_tbl.COUNT,2);
10519: For i IN NVL(l_components_tbl.FIRST,0)..NVL(l_components_tbl.LAST,-1)
10520: LOOP
10521: OKC_DEBUG.log('Component : '||i,2);
10514:
10515: IF (l_debug = 'Y') THEN
10516: OKC_DEBUG.Set_Indentation(' copy_components ');
10517: OKC_DEBUG.log('100 : Entering OKC_COPY_CONTRACT_PVT.copy_components ', 2);
10518: OKC_DEBUG.log('l_components_tbl.COUNT : '||l_components_tbl.COUNT,2);
10519: For i IN NVL(l_components_tbl.FIRST,0)..NVL(l_components_tbl.LAST,-1)
10520: LOOP
10521: OKC_DEBUG.log('Component : '||i,2);
10522: OKC_DEBUG.log('l_components_tbl(i).component_type : '||l_components_tbl(i).component_type,2);
10517: OKC_DEBUG.log('100 : Entering OKC_COPY_CONTRACT_PVT.copy_components ', 2);
10518: OKC_DEBUG.log('l_components_tbl.COUNT : '||l_components_tbl.COUNT,2);
10519: For i IN NVL(l_components_tbl.FIRST,0)..NVL(l_components_tbl.LAST,-1)
10520: LOOP
10521: OKC_DEBUG.log('Component : '||i,2);
10522: OKC_DEBUG.log('l_components_tbl(i).component_type : '||l_components_tbl(i).component_type,2);
10523: OKC_DEBUG.log('l_components_tbl(i).attribute1 : '||l_components_tbl(i).attribute1,2);
10524: OKC_DEBUG.log('l_components_tbl(i).id : '||l_components_tbl(i).id,2);
10525: OKC_DEBUG.log('l_components_tbl(i).to_k : '||l_components_tbl(i).to_k,2);
10518: OKC_DEBUG.log('l_components_tbl.COUNT : '||l_components_tbl.COUNT,2);
10519: For i IN NVL(l_components_tbl.FIRST,0)..NVL(l_components_tbl.LAST,-1)
10520: LOOP
10521: OKC_DEBUG.log('Component : '||i,2);
10522: OKC_DEBUG.log('l_components_tbl(i).component_type : '||l_components_tbl(i).component_type,2);
10523: OKC_DEBUG.log('l_components_tbl(i).attribute1 : '||l_components_tbl(i).attribute1,2);
10524: OKC_DEBUG.log('l_components_tbl(i).id : '||l_components_tbl(i).id,2);
10525: OKC_DEBUG.log('l_components_tbl(i).to_k : '||l_components_tbl(i).to_k,2);
10526: END LOOP;
10519: For i IN NVL(l_components_tbl.FIRST,0)..NVL(l_components_tbl.LAST,-1)
10520: LOOP
10521: OKC_DEBUG.log('Component : '||i,2);
10522: OKC_DEBUG.log('l_components_tbl(i).component_type : '||l_components_tbl(i).component_type,2);
10523: OKC_DEBUG.log('l_components_tbl(i).attribute1 : '||l_components_tbl(i).attribute1,2);
10524: OKC_DEBUG.log('l_components_tbl(i).id : '||l_components_tbl(i).id,2);
10525: OKC_DEBUG.log('l_components_tbl(i).to_k : '||l_components_tbl(i).to_k,2);
10526: END LOOP;
10527: END IF;
10520: LOOP
10521: OKC_DEBUG.log('Component : '||i,2);
10522: OKC_DEBUG.log('l_components_tbl(i).component_type : '||l_components_tbl(i).component_type,2);
10523: OKC_DEBUG.log('l_components_tbl(i).attribute1 : '||l_components_tbl(i).attribute1,2);
10524: OKC_DEBUG.log('l_components_tbl(i).id : '||l_components_tbl(i).id,2);
10525: OKC_DEBUG.log('l_components_tbl(i).to_k : '||l_components_tbl(i).to_k,2);
10526: END LOOP;
10527: END IF;
10528: ********************************************************************************/
10521: OKC_DEBUG.log('Component : '||i,2);
10522: OKC_DEBUG.log('l_components_tbl(i).component_type : '||l_components_tbl(i).component_type,2);
10523: OKC_DEBUG.log('l_components_tbl(i).attribute1 : '||l_components_tbl(i).attribute1,2);
10524: OKC_DEBUG.log('l_components_tbl(i).id : '||l_components_tbl(i).id,2);
10525: OKC_DEBUG.log('l_components_tbl(i).to_k : '||l_components_tbl(i).to_k,2);
10526: END LOOP;
10527: END IF;
10528: ********************************************************************************/
10529: --added for bug 2950549
10566: /* ---Initialisation is not to read records from History Tables
10567: G_COPY_HISTORY_YN := 'N';
10568:
10569: IF (l_debug = 'Y') THEN
10570: OKC_DEBUG.log('200 : Calling OKC_COPY_CONTRACT_PUB.IS_COPY_ALLOWED');
10571: END IF;
10572: l_result := OKC_COPY_CONTRACT_PUB.IS_COPY_ALLOWED(p_from_chr_id, NULL);
10573: If NOT l_result Then
10574: -- notify caller of an UNEXPECTED error
10599:
10600: x_return_status := l_return_status;
10601:
10602: IF (l_debug = 'Y') THEN
10603: OKC_DEBUG.log('250 : x_return_status : '||x_return_status);
10604: OKC_DEBUG.log('250 : p_to_chr_id : '||p_to_chr_id);
10605: END IF;
10606:
10607: IF p_to_chr_id IS NULL THEN
10600: x_return_status := l_return_status;
10601:
10602: IF (l_debug = 'Y') THEN
10603: OKC_DEBUG.log('250 : x_return_status : '||x_return_status);
10604: OKC_DEBUG.log('250 : p_to_chr_id : '||p_to_chr_id);
10605: END IF;
10606:
10607: IF p_to_chr_id IS NULL THEN
10608: copy_contract_header(
10636:
10637: x_chr_id := l_chr_id;
10638:
10639: IF (l_debug = 'Y') THEN
10640: OKC_DEBUG.log('300 : After copy_contract_header ');
10641: OKC_DEBUG.log('300 : x_chr_id : '||x_chr_id);
10642: OKC_DEBUG.log('300 : x_return_status : '||l_return_status);
10643: END IF;
10644:
10637: x_chr_id := l_chr_id;
10638:
10639: IF (l_debug = 'Y') THEN
10640: OKC_DEBUG.log('300 : After copy_contract_header ');
10641: OKC_DEBUG.log('300 : x_chr_id : '||x_chr_id);
10642: OKC_DEBUG.log('300 : x_return_status : '||l_return_status);
10643: END IF;
10644:
10645: IF l_components_tbl.COUNT >0 THEN
10638:
10639: IF (l_debug = 'Y') THEN
10640: OKC_DEBUG.log('300 : After copy_contract_header ');
10641: OKC_DEBUG.log('300 : x_chr_id : '||x_chr_id);
10642: OKC_DEBUG.log('300 : x_return_status : '||l_return_status);
10643: END IF;
10644:
10645: IF l_components_tbl.COUNT >0 THEN
10646: i := l_components_tbl.FIRST;
10676: i := l_components_tbl.NEXT(i);
10677: END LOOP;
10678:
10679: IF (l_debug = 'Y') THEN
10680: OKC_DEBUG.log('350 : After copy_events ');
10681: OKC_DEBUG.log('350 : x_return_status : '||l_return_status);
10682: END IF;
10683:
10684: i := l_components_tbl.FIRST;
10677: END LOOP;
10678:
10679: IF (l_debug = 'Y') THEN
10680: OKC_DEBUG.log('350 : After copy_events ');
10681: OKC_DEBUG.log('350 : x_return_status : '||l_return_status);
10682: END IF;
10683:
10684: i := l_components_tbl.FIRST;
10685: LOOP
10715: i := l_components_tbl.NEXT(i);
10716: END LOOP;
10717:
10718: IF (l_debug = 'Y') THEN
10719: OKC_DEBUG.log('400 : After copy_party_roles ');
10720: OKC_DEBUG.log('400 : x_return_status : '||l_return_status);
10721: END IF;
10722:
10723: --
10716: END LOOP;
10717:
10718: IF (l_debug = 'Y') THEN
10719: OKC_DEBUG.log('400 : After copy_party_roles ');
10720: OKC_DEBUG.log('400 : x_return_status : '||l_return_status);
10721: END IF;
10722:
10723: --
10724: -- Bug 3611000
10760: i := l_components_tbl.NEXT(i);
10761: END LOOP;
10762:
10763: IF (l_debug = 'Y') THEN
10764: OKC_DEBUG.log('450 : After copy_rules ');
10765: OKC_DEBUG.log('450 : x_return_status : '||l_return_status);
10766: END IF;
10767: END IF; --G_APPLICATION_ID <> 515
10768: */
10761: END LOOP;
10762:
10763: IF (l_debug = 'Y') THEN
10764: OKC_DEBUG.log('450 : After copy_rules ');
10765: OKC_DEBUG.log('450 : x_return_status : '||l_return_status);
10766: END IF;
10767: END IF; --G_APPLICATION_ID <> 515
10768: */
10769: /* 11510
10798: i := l_components_tbl.NEXT(i);
10799: END LOOP;
10800:
10801: IF (l_debug = 'Y') THEN
10802: OKC_DEBUG.log('500 : After copy_articles ');
10803: OKC_DEBUG.log('500 : x_return_status : '||l_return_status);
10804: END IF;
10805: */
10806: /*
10799: END LOOP;
10800:
10801: IF (l_debug = 'Y') THEN
10802: OKC_DEBUG.log('500 : After copy_articles ');
10803: OKC_DEBUG.log('500 : x_return_status : '||l_return_status);
10804: END IF;
10805: */
10806: /*
10807: -- new 11510 code
10820: x_doc_type => l_source_doc_type,
10821: x_doc_id => l_source_doc_id
10822: );
10823: IF (l_debug = 'Y') THEN
10824: OKC_DEBUG.log(' After Procedure : Get_Contract_Document_Type for source chr_id ' || l_return_status);
10825: END IF;
10826: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
10827: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
10828: x_return_status := l_return_status;
10843: x_doc_id => l_target_doc_id
10844: );
10845:
10846: IF (l_debug = 'Y') THEN
10847: OKC_DEBUG.log(' After Procedure : Get_Contract_Document_Type for target chr_id ' || l_return_status);
10848: END IF;
10849: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
10850: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
10851: x_return_status := l_return_status;
10876: p_document_number => p_contract_number,
10877: p_allow_duplicate_terms=>'Y'
10878: );
10879: IF (l_debug = 'Y') THEN
10880: OKC_DEBUG.log(' After Procedure : OKC_TERMS_COPY_GRP.copy_doc ' || l_return_status);
10881: END IF;
10882: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
10883: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
10884: x_return_status := l_return_status;
10945: end if;
10946: -- End Bug 2489856
10947:
10948: IF (l_debug = 'Y') THEN
10949: OKC_DEBUG.log('600 : Before copy_contract_line ');
10950: OKC_DEBUG.log('600 : l_copy_sublines : '||l_copy_sublines);
10951: END IF;
10952:
10953: IF l_copy_sublines = 'F' THEN
10946: -- End Bug 2489856
10947:
10948: IF (l_debug = 'Y') THEN
10949: OKC_DEBUG.log('600 : Before copy_contract_line ');
10950: OKC_DEBUG.log('600 : l_copy_sublines : '||l_copy_sublines);
10951: END IF;
10952:
10953: IF l_copy_sublines = 'F' THEN
10954: copy_contract_line(
10969: p_generate_line_number => l_generate_line_number, --Bug 2489856
10970: x_cle_id => l_cle_id_out);
10971:
10972: IF (l_debug = 'Y') THEN
10973: OKC_DEBUG.log('650 : After copy_contract_line ');
10974: OKC_DEBUG.log('650 : x_return_status : '||l_return_status);
10975: OKC_DEBUG.log('650 : x_msg_count : '||x_msg_count);
10976: OKC_DEBUG.log('650 : x_msg_data : '||x_msg_data);
10977: END IF;
10970: x_cle_id => l_cle_id_out);
10971:
10972: IF (l_debug = 'Y') THEN
10973: OKC_DEBUG.log('650 : After copy_contract_line ');
10974: OKC_DEBUG.log('650 : x_return_status : '||l_return_status);
10975: OKC_DEBUG.log('650 : x_msg_count : '||x_msg_count);
10976: OKC_DEBUG.log('650 : x_msg_data : '||x_msg_data);
10977: END IF;
10978: -- If any error happens it exits the loop or if it is a warning it still continues.
10971:
10972: IF (l_debug = 'Y') THEN
10973: OKC_DEBUG.log('650 : After copy_contract_line ');
10974: OKC_DEBUG.log('650 : x_return_status : '||l_return_status);
10975: OKC_DEBUG.log('650 : x_msg_count : '||x_msg_count);
10976: OKC_DEBUG.log('650 : x_msg_data : '||x_msg_data);
10977: END IF;
10978: -- If any error happens it exits the loop or if it is a warning it still continues.
10979: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
10972: IF (l_debug = 'Y') THEN
10973: OKC_DEBUG.log('650 : After copy_contract_line ');
10974: OKC_DEBUG.log('650 : x_return_status : '||l_return_status);
10975: OKC_DEBUG.log('650 : x_msg_count : '||x_msg_count);
10976: OKC_DEBUG.log('650 : x_msg_data : '||x_msg_data);
10977: END IF;
10978: -- If any error happens it exits the loop or if it is a warning it still continues.
10979: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
10980: IF (l_return_status = OKC_API.G_RET_STS_WARNING) THEN
11009: p_renew_ref_yn => 'N',
11010: p_generate_line_number => l_generate_line_number, --Bug 2489856
11011: x_cle_id => l_cle_id_out20);
11012: IF (l_debug = 'Y') THEN
11013: OKC_DEBUG.log('660 :after copy_contract_line');
11014: END IF;
11015: -- If any error happens it exits the loop or if it is a warning it still continues.
11016: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
11017: IF (l_return_status = OKC_API.G_RET_STS_WARNING) THEN
11041: x_cle_id => l_cle_id_out21);
11042: -- DND p_change_status => 'Y'); --LLC
11043:
11044: IF (l_debug = 'Y') THEN
11045: OKC_DEBUG.log('670 :after copy_contract_lines');
11046: END IF;
11047: -- If any error happens it exits the loop or if it is a warning it still continues.
11048: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
11049: IF (l_return_status = OKC_API.G_RET_STS_WARNING) THEN
11075: x_cle_id => l_cle_id_out);
11076: -- DND p_change_status => 'Y'); --LLC
11077:
11078: IF (l_debug = 'Y') THEN
11079: OKC_DEBUG.log('750 : After copy_contract_line ');
11080: OKC_DEBUG.log('750 : x_return_status : '||l_return_status);
11081: END IF;
11082:
11083: l_copy_sublines := 'F';
11076: -- DND p_change_status => 'Y'); --LLC
11077:
11078: IF (l_debug = 'Y') THEN
11079: OKC_DEBUG.log('750 : After copy_contract_line ');
11080: OKC_DEBUG.log('750 : x_return_status : '||l_return_status);
11081: END IF;
11082:
11083: l_copy_sublines := 'F';
11084: -- If any error happens it exits the loop or if it is a warning it still continues.
11116: p_generate_line_number => l_generate_line_number, --Bug 2489856
11117: x_cle_id => l_cle_id_out);
11118:
11119: IF (l_debug = 'Y') THEN
11120: OKC_DEBUG.log('850 : After copy_contract_line ');
11121: OKC_DEBUG.log('850 : x_return_status : '||l_return_status);
11122: END IF;
11123:
11124:
11117: x_cle_id => l_cle_id_out);
11118:
11119: IF (l_debug = 'Y') THEN
11120: OKC_DEBUG.log('850 : After copy_contract_line ');
11121: OKC_DEBUG.log('850 : x_return_status : '||l_return_status);
11122: END IF;
11123:
11124:
11125: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
11156: x_cle_id => l_cle_id_out);
11157:
11158:
11159: IF (l_debug = 'Y') THEN
11160: OKC_DEBUG.log('950 : After copy_contract_line ');
11161: OKC_DEBUG.log('950 : x_return_status : '||l_return_status);
11162: END IF;
11163:
11164:
11157:
11158:
11159: IF (l_debug = 'Y') THEN
11160: OKC_DEBUG.log('950 : After copy_contract_line ');
11161: OKC_DEBUG.log('950 : x_return_status : '||l_return_status);
11162: END IF;
11163:
11164:
11165: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
11202: END IF;
11203: END IF;
11204:
11205: IF (l_debug = 'Y') THEN
11206: OKC_DEBUG.log('1000 : After OKC_CFG_PUB.COPY_CONFIG ');
11207: OKC_DEBUG.log('1000 : x_return_status : '||l_return_status);
11208: END IF;
11209:
11210: -- Changes done for Bug 2054090
11203: END IF;
11204:
11205: IF (l_debug = 'Y') THEN
11206: OKC_DEBUG.log('1000 : After OKC_CFG_PUB.COPY_CONFIG ');
11207: OKC_DEBUG.log('1000 : x_return_status : '||l_return_status);
11208: END IF;
11209:
11210: -- Changes done for Bug 2054090
11211:
11226: CLOSE c_pdf;
11227:
11228:
11229: IF (l_debug = 'Y') THEN
11230: OKC_DEBUG.log('1100 : l_string : '||l_string);
11231: END IF;
11232:
11233: IF l_string is NOT NULL THEN
11234: proc_string := 'begin '||l_string || ' (:b1,:b2,:b3); end ;';
11292: -- End
11293: -- End - Changes done for Bug 1917514
11294: END IF;
11295: IF (l_debug = 'Y') THEN
11296: OKC_DEBUG.log('10000 : Exiting Procedure OKC_COPY_CONTRACT_PVT.copy_components ', 2);
11297: OKC_DEBUG.ReSet_Indentation;
11298: END IF;
11299:
11300: EXCEPTION
11293: -- End - Changes done for Bug 1917514
11294: END IF;
11295: IF (l_debug = 'Y') THEN
11296: OKC_DEBUG.log('10000 : Exiting Procedure OKC_COPY_CONTRACT_PVT.copy_components ', 2);
11297: OKC_DEBUG.ReSet_Indentation;
11298: END IF;
11299:
11300: EXCEPTION
11301: WHEN G_EXCEPTION_HALT_VALIDATION THEN
11299:
11300: EXCEPTION
11301: WHEN G_EXCEPTION_HALT_VALIDATION THEN
11302: IF (l_debug = 'Y') THEN
11303: OKC_DEBUG.log('20000 : Exiting Procedure OKC_COPY_CONTRACT_PVT.copy_components ', 2);
11304: OKC_DEBUG.ReSet_Indentation;
11305: END IF;
11306: NULL;
11307: WHEN OTHERS THEN
11300: EXCEPTION
11301: WHEN G_EXCEPTION_HALT_VALIDATION THEN
11302: IF (l_debug = 'Y') THEN
11303: OKC_DEBUG.log('20000 : Exiting Procedure OKC_COPY_CONTRACT_PVT.copy_components ', 2);
11304: OKC_DEBUG.ReSet_Indentation;
11305: END IF;
11306: NULL;
11307: WHEN OTHERS THEN
11308: -- store SQL error message on message stack for caller
11307: WHEN OTHERS THEN
11308: -- store SQL error message on message stack for caller
11309: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
11310: IF (l_debug = 'Y') THEN
11311: OKC_DEBUG.log('30000 : SQLCODE : '||SQLCODE);
11312: OKC_DEBUG.log('30000 : SQLERRM : '||SQLERRM);
11313: OKC_DEBUG.log('30000 : Exiting Procedure OKC_COPY_CONTRACT_PVT.copy_components ', 2);
11314: OKC_DEBUG.ReSet_Indentation;
11315: END IF;
11308: -- store SQL error message on message stack for caller
11309: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
11310: IF (l_debug = 'Y') THEN
11311: OKC_DEBUG.log('30000 : SQLCODE : '||SQLCODE);
11312: OKC_DEBUG.log('30000 : SQLERRM : '||SQLERRM);
11313: OKC_DEBUG.log('30000 : Exiting Procedure OKC_COPY_CONTRACT_PVT.copy_components ', 2);
11314: OKC_DEBUG.ReSet_Indentation;
11315: END IF;
11316: -- notify caller of an UNEXPECTED error
11309: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
11310: IF (l_debug = 'Y') THEN
11311: OKC_DEBUG.log('30000 : SQLCODE : '||SQLCODE);
11312: OKC_DEBUG.log('30000 : SQLERRM : '||SQLERRM);
11313: OKC_DEBUG.log('30000 : Exiting Procedure OKC_COPY_CONTRACT_PVT.copy_components ', 2);
11314: OKC_DEBUG.ReSet_Indentation;
11315: END IF;
11316: -- notify caller of an UNEXPECTED error
11317: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
11310: IF (l_debug = 'Y') THEN
11311: OKC_DEBUG.log('30000 : SQLCODE : '||SQLCODE);
11312: OKC_DEBUG.log('30000 : SQLERRM : '||SQLERRM);
11313: OKC_DEBUG.log('30000 : Exiting Procedure OKC_COPY_CONTRACT_PVT.copy_components ', 2);
11314: OKC_DEBUG.ReSet_Indentation;
11315: END IF;
11316: -- notify caller of an UNEXPECTED error
11317: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
11318:
11996: BEGIN
11997:
11998:
11999: IF (l_debug = 'Y') THEN
12000: okc_debug.log('1130: Inside Update Lines');
12001: END IF;
12002: -- Compare parent and child dates.
12003: --Bug 4698309: Added lse_id checks for 12 and 46 also
12004: IF ( ( p_lse_id = 1)
12033: l_clev_rec.inv_rule_id := l_hdr_inv_rule;
12034: END IF;
12035:
12036: IF (l_debug = 'Y') THEN
12037: okc_debug.log('1140: Before calling OKC_CONTRACT_PUB.update_contract_line '|| p_cle_id);
12038: okc_debug.log('1141: Line New Start Date ' || p_start_date);
12039: okc_debug.log('1142: Line New End Date ' || l_end_date);
12040: END IF;
12041:
12034: END IF;
12035:
12036: IF (l_debug = 'Y') THEN
12037: okc_debug.log('1140: Before calling OKC_CONTRACT_PUB.update_contract_line '|| p_cle_id);
12038: okc_debug.log('1141: Line New Start Date ' || p_start_date);
12039: okc_debug.log('1142: Line New End Date ' || l_end_date);
12040: END IF;
12041:
12042: OKC_CONTRACT_PUB.update_contract_line(p_api_version => l_api_version,
12035:
12036: IF (l_debug = 'Y') THEN
12037: okc_debug.log('1140: Before calling OKC_CONTRACT_PUB.update_contract_line '|| p_cle_id);
12038: okc_debug.log('1141: Line New Start Date ' || p_start_date);
12039: okc_debug.log('1142: Line New End Date ' || l_end_date);
12040: END IF;
12041:
12042: OKC_CONTRACT_PUB.update_contract_line(p_api_version => l_api_version,
12043: x_return_status => l_return_status ,
12059: IF line_cov_cur%Found THEN
12060:
12061:
12062: IF (l_debug = 'Y') THEN
12063: okc_debug.log('1150: Before Update Coverage');
12064: END IF;
12065:
12066: OKS_COVERAGES_PVT.Update_COVERAGE_Effectivity(
12067: p_api_version => l_api_version,
12074: p_New_End_Date => l_end_date );
12075: END IF;
12076: CLOSE line_cov_cur;
12077: IF (l_debug = 'Y') THEN
12078: okc_debug.log('1150: After Update Coverage ' || l_return_status);
12079: END IF;
12080:
12081:
12082: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
12096: x_msg_count => l_msg_count,
12097: x_msg_data => l_msg_data);
12098:
12099: IF (l_debug = 'Y') THEN
12100: okc_debug.log('1160: After Adjust PM Pgm ' || l_return_status);
12101: END IF;
12102:
12103: END IF;
12104: CLOSE check_pm_sch_csr;
12120: p_cle_id => p_cle_id,
12121: p_intent => null,
12122: x_quantity => l_quantity);
12123: IF (l_debug = 'Y') THEN
12124: okc_debug.log('1170: After Sucbscription recreate ' || l_return_status);
12125: END IF;
12126:
12127: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
12128: RAISE G_EXCEPTION_HALT_VALIDATION;
12158: l_msg_data VARCHAR2(2000);
12159: BEGIN
12160:
12161: IF (l_debug = 'Y') THEN
12162: okc_debug.log('1175: FUNCTION Create_Timevalue');
12163: END IF;
12164:
12165: l_p_tavv_tbl(1).id := NULL;
12166: l_p_tavv_tbl(1).object_version_number := NULL;
12231: l_GCDPPSetupExists_YN := 'N';
12232: END IF;
12233:
12234: IF (l_debug = 'Y') THEN
12235: okc_debug.Set_Indentation('UPDATE_TEMPLATE_CONTRACT ');
12236: okc_debug.log('1000: Entering Update Template Contract' || to_char(sysdate,'HH:MI:SS'));
12237: END IF;
12238:
12239: -- Get the current header start date and rule
12232: END IF;
12233:
12234: IF (l_debug = 'Y') THEN
12235: okc_debug.Set_Indentation('UPDATE_TEMPLATE_CONTRACT ');
12236: okc_debug.log('1000: Entering Update Template Contract' || to_char(sysdate,'HH:MI:SS'));
12237: END IF;
12238:
12239: -- Get the current header start date and rule
12240: OPEN get_hdr_date_csr(p_chr_id);
12243:
12244: IF p_end_date IS NOT NULL THEN
12245:
12246: IF (l_debug = 'Y') THEN
12247: okc_debug.log('1010: P_END_DATE is not null');
12248: END IF;
12249:
12250: l_chrv_rec.id := p_chr_id;
12251: l_chrv_rec.start_date := p_start_date;
12259: p_chrv_rec => l_chrv_rec,
12260: x_chrv_rec => x_chrv_rec);
12261:
12262: IF (l_debug = 'Y') THEN
12263: okc_debug.log('1020: After OKC_CONTRACT_PUB.update_contract_header call ' || l_return_status);
12264: END IF;
12265: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
12266: RAISE G_EXCEPTION_HALT_VALIDATION;
12267: END IF;
12318: END IF;
12319: END LOOP;
12320:
12321: IF (l_debug = 'Y') THEN
12322: okc_debug.log('1030: After Deleting security restriction');
12323: END IF;
12324: -- Update all the lines with the same start date and end date.
12325: FOR l_line_rec IN get_contract_lines_csr(p_chr_id)
12326: LOOP
12338:
12339: END LOOP;
12340:
12341: IF (l_debug = 'Y') THEN
12342: okc_debug.log('1040: Completed Line Updates');
12343: END IF;
12344:
12345: ELSE
12346:
12344:
12345: ELSE
12346:
12347: IF (l_debug = 'Y') THEN
12348: okc_debug.log('1050: End Date is NULL');
12349: END IF;
12350: -- Need to derive the end date based on template start date and UI start date
12351:
12352: OKC_TIME_UTIL_PUB.get_duration(p_start_date => l_hdr_start_date, -- Template Hdr Start Date
12359: RAISE G_EXCEPTION_HALT_VALIDATION;
12360: END IF;
12361:
12362: IF (l_debug = 'Y') THEN
12363: okc_debug.log('1060: after OKC_TIME_UTIL_PUB.get_duration Call');
12364: END IF;
12365: -- Get the new end date for header
12366: l_hdr_end_date := OKC_TIME_UTIL_PUB.get_enddate(p_start_date => p_start_date,
12367: p_timeunit => l_hdr_timeunit,
12366: l_hdr_end_date := OKC_TIME_UTIL_PUB.get_enddate(p_start_date => p_start_date,
12367: p_timeunit => l_hdr_timeunit,
12368: p_duration => l_hdr_duration);
12369: IF (l_debug = 'Y') THEN
12370: okc_debug.log('1065: after OKC_TIME_UTIL_PUB.get_end date Call'||l_hdr_end_date);
12371: END IF;
12372:
12373:
12374: l_chrv_rec.id := p_chr_id;
12386: RAISE G_EXCEPTION_HALT_VALIDATION;
12387: END IF;
12388:
12389: IF (l_debug = 'Y') THEN
12390: okc_debug.log('1070: Completed header update ' || l_return_status );
12391: END IF;
12392:
12393: -- Delete Header billing schedule bug# 4188236
12394: DELETE FROM OKS_LEVEL_ELEMENTS
12469: RAISE G_EXCEPTION_HALT_VALIDATION;
12470: END IF;
12471:
12472: IF (l_debug = 'Y') THEN
12473: okc_debug.log('1080: After contract access delete');
12474: END IF;
12475:
12476: END LOOP;
12477:
12491: RAISE G_EXCEPTION_HALT_VALIDATION;
12492: END IF;
12493:
12494: IF (l_debug = 'Y') THEN
12495: okc_debug.log('1090: After contract access delete');
12496: END IF;
12497:
12498:
12499: IF ( TRUNC(l_hdr_start_date) <> TRUNC(line_rec.start_date)) THEN
12498:
12499: IF ( TRUNC(l_hdr_start_date) <> TRUNC(line_rec.start_date)) THEN
12500:
12501: IF (l_debug = 'Y') THEN
12502: okc_debug.log('1100: Line start date and hdr date is different. '|| line_rec.id);
12503: END IF;
12504:
12505: -- Get the duratio b/n header start date and Line start date
12506: OKC_TIME_UTIL_PUB.get_duration(p_start_date => l_hdr_start_date,
12519: p_duration => l_line_duration);
12520:
12521: ELSE
12522: IF (l_debug = 'Y') THEN
12523: okc_debug.log('1110: Line start date and hdr start date is same. '|| line_rec.id);
12524: END IF;
12525: l_start_date := p_start_date;
12526: l_end_date := OKC_TIME_UTIL_PUB.get_enddate(p_start_date => l_start_date,
12527: p_timeunit => l_line_timeunit,
12542:
12543: END LOOP;
12544:
12545: IF (l_debug = 'Y') THEN
12546: okc_debug.log('1120: Completed Line update');
12547: END IF;
12548:
12549:
12550: END IF;
12555: qp_rec.chr_id := p_chr_id;
12556: qp_rec.intent := 'HP';
12557:
12558: IF (l_debug = 'Y') THEN
12559: okc_debug.log('1185: Before QP Call: Hdr ID: ' || p_chr_id);
12560: END IF;
12561: OKS_QP_INT_PVT.COMPUTE_PRICE( p_api_version => l_api_version,
12562: p_init_msg_list => l_init_msg_list,
12563: p_detail_rec => qp_rec,
12568: x_msg_count => l_msg_count,
12569: x_msg_data => l_msg_data);
12570:
12571: IF (l_debug = 'Y') THEN
12572: okc_debug.log('1190: After QP Call ' || l_return_status);
12573: END IF;
12574:
12575: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
12576: RAISE G_EXCEPTION_HALT_VALIDATION;
12678: CLOSE get_hdr_arl_csr;
12679: END IF;
12680:
12681: IF (l_debug = 'Y') THEN
12682: okc_debug.log('1190: Billing Type ' || l_billing_type);
12683: okc_debug.log('1191: Invoice rule id ' || l_invoice_rule_id);
12684: END IF;
12685:
12686: -- Delete SLL and level elements.
12679: END IF;
12680:
12681: IF (l_debug = 'Y') THEN
12682: okc_debug.log('1190: Billing Type ' || l_billing_type);
12683: okc_debug.log('1191: Invoice rule id ' || l_invoice_rule_id);
12684: END IF;
12685:
12686: -- Delete SLL and level elements.
12687:
12690: x_msg_count => l_msg_count,
12691: x_msg_data => l_msg_data);
12692:
12693: IF (l_debug = 'Y') THEN
12694: okc_debug.log('1200: After deleting SLL ' || l_return_status);
12695: END IF;
12696:
12697: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
12698: RAISE G_EXCEPTION_HALT_VALIDATION;
12757: x_return_status => l_return_status
12758: );
12759:
12760: IF (l_debug = 'Y') THEN
12761: okc_debug.log('1210: After Creating Billing Schedule ' || l_return_status);
12762: END IF;
12763:
12764: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) Then
12765: RAISE G_EXCEPTION_HALT_VALIDATION;
12825: ,p_invoice_rule_id => topline_rec.INV_RULE_ID
12826: ,x_bil_sch_out_tbl => l_bil_sch_out_tbl
12827: ,x_return_status => x_return_status);
12828: IF (l_debug = 'Y') THEN
12829: okc_debug.log('1210: After Creating Billing Schedule ' || l_return_status);
12830: END IF;
12831:
12832: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) Then
12833: RAISE G_EXCEPTION_HALT_VALIDATION;
12854: p_validate_yn => 'N'
12855: );
12856:
12857: IF (l_debug = 'Y') THEN
12858: okc_debug.log('1211: After Creating Accounting rule ' || l_return_status);
12859: END IF;
12860:
12861: END IF;
12862:
12871:
12872: END LOOP;
12873:
12874: IF (l_debug = 'Y') THEN
12875: okc_debug.log('1220: Exiting UPDATE_TEMPLATE_CONTRACT' || to_char(sysdate,'HH:MI:SS'));
12876: okc_debug.Reset_Indentation;
12877: END IF;
12878:
12879: --Partial Period Uptake changes
12872: END LOOP;
12873:
12874: IF (l_debug = 'Y') THEN
12875: okc_debug.log('1220: Exiting UPDATE_TEMPLATE_CONTRACT' || to_char(sysdate,'HH:MI:SS'));
12876: okc_debug.Reset_Indentation;
12877: END IF;
12878:
12879: --Partial Period Uptake changes
12880: ELSIF (l_SrcContractPPSetupExists_YN = 'N' AND l_GCDPPSetupExists_YN = 'Y') THEN
12913: IF get_estimation_date%ISOPEN THEN
12914: CLOSE get_estimation_date;
12915: END IF;
12916: IF (l_debug = 'Y') THEN
12917: okc_debug.log('1230: Exception: Return Status ' || x_return_status);
12918: okc_debug.Reset_Indentation;
12919: END IF;
12920:
12921: WHEN OTHERS THEN
12914: CLOSE get_estimation_date;
12915: END IF;
12916: IF (l_debug = 'Y') THEN
12917: okc_debug.log('1230: Exception: Return Status ' || x_return_status);
12918: okc_debug.Reset_Indentation;
12919: END IF;
12920:
12921: WHEN OTHERS THEN
12922: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
12923: IF get_estimation_date%ISOPEN THEN
12924: CLOSE get_estimation_date;
12925: END IF;
12926: IF (l_debug = 'Y') THEN
12927: okc_debug.log('1230: Unexpected Error');
12928: okc_debug.Reset_Indentation;
12929: END IF;
12930: OKC_API.set_message
12931: (G_APP_NAME,G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
12924: CLOSE get_estimation_date;
12925: END IF;
12926: IF (l_debug = 'Y') THEN
12927: okc_debug.log('1230: Unexpected Error');
12928: okc_debug.Reset_Indentation;
12929: END IF;
12930: OKC_API.set_message
12931: (G_APP_NAME,G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
12932: