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