[Home] [Help]
199: ,l_cle_id
200: ,l_lse_id
201: ,l_orig_system_id1;
202: EXIT WHEN gettemptablelines%NOTFOUND;
203: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
204: FND_LOG.string(FND_LOG.level_statement
205: ,'OKS.plsql.OKS_COPY_CONTRACT_PVT.printtemptable'
206: ,'ID:'||l_id||' : CLE_ID:'||l_cle_id||' : LSE_ID:'||l_lse_id||' : ORIG ID:'||l_orig_system_id1
207: );
200: ,l_lse_id
201: ,l_orig_system_id1;
202: EXIT WHEN gettemptablelines%NOTFOUND;
203: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
204: FND_LOG.string(FND_LOG.level_statement
205: ,'OKS.plsql.OKS_COPY_CONTRACT_PVT.printtemptable'
206: ,'ID:'||l_id||' : CLE_ID:'||l_cle_id||' : LSE_ID:'||l_lse_id||' : ORIG ID:'||l_orig_system_id1
207: );
208: END IF;
1045: x_return_status := l_return_status;
1046: RAISE G_EXCEPTION_HALT_VALIDATION;
1047: ELSE
1048: x_return_status := OKC_API.G_RET_STS_WARNING;
1049: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1050: FND_LOG.string(FND_LOG.level_statement
1051: ,'OKS.plsql.OKS_COPY_CONTRACT_PVT.copy_events'
1052: ,'After call to OKC_CONDITIONS_PUB.create_cond_hdrs'
1053: ||' x_return_status:'||l_return_status
1046: RAISE G_EXCEPTION_HALT_VALIDATION;
1047: ELSE
1048: x_return_status := OKC_API.G_RET_STS_WARNING;
1049: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1050: FND_LOG.string(FND_LOG.level_statement
1051: ,'OKS.plsql.OKS_COPY_CONTRACT_PVT.copy_events'
1052: ,'After call to OKC_CONDITIONS_PUB.create_cond_hdrs'
1053: ||' x_return_status:'||l_return_status
1054: ||' x_err_msg='||fnd_msg_pub.get(p_encoded=>'F')
1358: p_source_object_id_instance => p_new_cle_id,--new line id
1359: x_ctr_grp_id_template => l_ctr_grp_id_template,
1360: x_ctr_grp_id_instance => l_ctr_grp_id_instance);
1361:
1362: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1363: FND_LOG.string(FND_LOG.level_statement
1364: ,'OKS.plsql.OKS_COPY_CONTRACT_PVT.instantiate_counters'
1365: ,'After call to CS_COUNTERS_PUB.AUTOINSTANTIATE_COUNTERS'
1366: ||'p_new_cle_id='||p_new_cle_id
1359: x_ctr_grp_id_template => l_ctr_grp_id_template,
1360: x_ctr_grp_id_instance => l_ctr_grp_id_instance);
1361:
1362: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1363: FND_LOG.string(FND_LOG.level_statement
1364: ,'OKS.plsql.OKS_COPY_CONTRACT_PVT.instantiate_counters'
1365: ,'After call to CS_COUNTERS_PUB.AUTOINSTANTIATE_COUNTERS'
1366: ||'p_new_cle_id='||p_new_cle_id
1367: ||'x_ctr_grp_id_template='||l_ctr_grp_id_template
1637: x_return_status := l_return_status;
1638: l_return_status := get_chrv_rec( p_chr_id => p_from_chr_id,
1639: x_chrv_rec => l_chrv_rec);
1640:
1641: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1642: FND_LOG.string(FND_LOG.level_statement
1643: ,l_module_name||'.get_chrv_rec'
1644: ,'Contract ID='||l_chrv_rec.ID||', Contract Number='||l_chrv_rec.contract_number
1645: );
1638: l_return_status := get_chrv_rec( p_chr_id => p_from_chr_id,
1639: x_chrv_rec => l_chrv_rec);
1640:
1641: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1642: FND_LOG.string(FND_LOG.level_statement
1643: ,l_module_name||'.get_chrv_rec'
1644: ,'Contract ID='||l_chrv_rec.ID||', Contract Number='||l_chrv_rec.contract_number
1645: );
1646: END IF;
1779: -- Bug 2836000 end commented out as copy api should copy header amoutn as well in all the cases
1780: -- Bug 2027165 - Added user_estimated amount as this is new column
1781: l_chrv_rec.user_estimated_amount := NULL;
1782:
1783: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1784: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
1785: FND_LOG.string(FND_LOG.level_statement
1786: ,l_module_name||'.okc_contract_pub.create_contract_header'
1787: ,'Before call to okc_contract_pub.create_contract_header:'
1780: -- Bug 2027165 - Added user_estimated amount as this is new column
1781: l_chrv_rec.user_estimated_amount := NULL;
1782:
1783: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1784: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
1785: FND_LOG.string(FND_LOG.level_statement
1786: ,l_module_name||'.okc_contract_pub.create_contract_header'
1787: ,'Before call to okc_contract_pub.create_contract_header:'
1788: ||'l_Chrv_rec.ID='||l_chrv_rec.id
1781: l_chrv_rec.user_estimated_amount := NULL;
1782:
1783: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1784: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
1785: FND_LOG.string(FND_LOG.level_statement
1786: ,l_module_name||'.okc_contract_pub.create_contract_header'
1787: ,'Before call to okc_contract_pub.create_contract_header:'
1788: ||'l_Chrv_rec.ID='||l_chrv_rec.id
1789: );
1799: p_chrv_rec => l_chrv_rec,
1800: x_chrv_rec => x_chrv_rec);
1801:
1802:
1803: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1804: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
1805: FND_LOG.string(FND_LOG.level_statement
1806: ,l_module_name||'.okc_contract_pub.create_contract_header'
1807: ,'After call to okc_contract_pub.create_contract_header: x_return_status:'||l_return_status
1800: x_chrv_rec => x_chrv_rec);
1801:
1802:
1803: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1804: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
1805: FND_LOG.string(FND_LOG.level_statement
1806: ,l_module_name||'.okc_contract_pub.create_contract_header'
1807: ,'After call to okc_contract_pub.create_contract_header: x_return_status:'||l_return_status
1808: ||' '||SQLERRM
1801:
1802:
1803: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1804: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
1805: FND_LOG.string(FND_LOG.level_statement
1806: ,l_module_name||'.okc_contract_pub.create_contract_header'
1807: ,'After call to okc_contract_pub.create_contract_header: x_return_status:'||l_return_status
1808: ||' '||SQLERRM
1809: );
1828: x_msg_data => x_msg_data,
1829: p_chrv_rec => l_chrv_rec,
1830: p_to_chr_id => x_to_chr_id);
1831: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1832: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1833: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
1834: FND_LOG.string(FND_LOG.level_statement
1835: ,l_module_name||'.create_renewal_header_link'
1836: ,'After call to Create_Renewal_Header_Link: x_return_status:'||l_return_status
1829: p_chrv_rec => l_chrv_rec,
1830: p_to_chr_id => x_to_chr_id);
1831: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1832: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1833: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
1834: FND_LOG.string(FND_LOG.level_statement
1835: ,l_module_name||'.create_renewal_header_link'
1836: ,'After call to Create_Renewal_Header_Link: x_return_status:'||l_return_status
1837: ||' '||SQLERRM
1830: p_to_chr_id => x_to_chr_id);
1831: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1832: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1833: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
1834: FND_LOG.string(FND_LOG.level_statement
1835: ,l_module_name||'.create_renewal_header_link'
1836: ,'After call to Create_Renewal_Header_Link: x_return_status:'||l_return_status
1837: ||' '||SQLERRM
1838: );
1859: l_entity_name := 'OKC_K_HEADERS_V';
1860: l_from_entity_name := 'OKC_K_HEADERS_V';
1861: l_to_entity_name := 'OKC_K_HEADERS_V';
1862:
1863: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1864: FND_LOG.string(FND_LOG.level_statement
1865: ,l_module_name||'.fnd_attachment_util_pkg.get_atchmt_exists'
1866: ,'Before call to fnd_attachment_util_pkg.get_atchmt_exists'
1867: ||' l_entity_name='||l_entity_name
1860: l_from_entity_name := 'OKC_K_HEADERS_V';
1861: l_to_entity_name := 'OKC_K_HEADERS_V';
1862:
1863: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1864: FND_LOG.string(FND_LOG.level_statement
1865: ,l_module_name||'.fnd_attachment_util_pkg.get_atchmt_exists'
1866: ,'Before call to fnd_attachment_util_pkg.get_atchmt_exists'
1867: ||' l_entity_name='||l_entity_name
1868: ||',l_pkey1='||p_from_chr_id
1882: -- bug 1553916 completes
1883: -- ,l_pkey2 => l_from_version) = 'Y')
1884: -- also below remove the comments
1885: -- in fnd_attached_documents2_pkg.copy_attachments call
1886: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1887: FND_LOG.string(FND_LOG.level_statement
1888: ,l_module_name
1889: ,'After call to fnd_attachment_util_pkg.get_atchmt_exists'
1890: );
1883: -- ,l_pkey2 => l_from_version) = 'Y')
1884: -- also below remove the comments
1885: -- in fnd_attached_documents2_pkg.copy_attachments call
1886: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1887: FND_LOG.string(FND_LOG.level_statement
1888: ,l_module_name
1889: ,'After call to fnd_attachment_util_pkg.get_atchmt_exists'
1890: );
1891: END IF;
1898: x_to_entity_name => l_to_entity_name,
1899: x_to_pk1_value => x_to_chr_id
1900: --x_to_pk2_value => '0'
1901: );
1902: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1903: FND_LOG.string(FND_LOG.level_statement
1904: ,l_module_name
1905: ,'After call to fnd_attached_documents2_pkg.copy_attachments'
1906: );
1899: x_to_pk1_value => x_to_chr_id
1900: --x_to_pk2_value => '0'
1901: );
1902: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1903: FND_LOG.string(FND_LOG.level_statement
1904: ,l_module_name
1905: ,'After call to fnd_attached_documents2_pkg.copy_attachments'
1906: );
1907: END IF;
1907: END IF;
1908:
1909: EXCEPTION
1910: WHEN OTHERS THEN
1911: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
1912: IF (FND_LOG.test(FND_LOG.level_unexpected, l_module_name)) THEN
1913: FND_LOG.string(FND_LOG.level_unexpected
1914: ,l_module_name||'.fnd_attached_documents2_pkg.copy_attachments'
1915: ,'After call to fnd_attached_documents2_pkg.copy_attachments'
1908:
1909: EXCEPTION
1910: WHEN OTHERS THEN
1911: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
1912: IF (FND_LOG.test(FND_LOG.level_unexpected, l_module_name)) THEN
1913: FND_LOG.string(FND_LOG.level_unexpected
1914: ,l_module_name||'.fnd_attached_documents2_pkg.copy_attachments'
1915: ,'After call to fnd_attached_documents2_pkg.copy_attachments'
1916: ||' '||SQLERRM
1909: EXCEPTION
1910: WHEN OTHERS THEN
1911: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
1912: IF (FND_LOG.test(FND_LOG.level_unexpected, l_module_name)) THEN
1913: FND_LOG.string(FND_LOG.level_unexpected
1914: ,l_module_name||'.fnd_attached_documents2_pkg.copy_attachments'
1915: ,'After call to fnd_attached_documents2_pkg.copy_attachments'
1916: ||' '||SQLERRM
1917: );
1930: p_from_chr_id => p_from_chr_id,
1931: p_to_chr_id => x_chrv_rec.id);
1932:
1933: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1934: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1935: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
1936: FND_LOG.string(FND_LOG.level_statement
1937: ,l_module_name||'.copy_accesses'
1938: ,'After call to copy_acceses: x_return_status:'||l_return_status
1931: p_to_chr_id => x_chrv_rec.id);
1932:
1933: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1934: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1935: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
1936: FND_LOG.string(FND_LOG.level_statement
1937: ,l_module_name||'.copy_accesses'
1938: ,'After call to copy_acceses: x_return_status:'||l_return_status
1939: ||' '||SQLERRM
1932:
1933: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1934: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1935: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
1936: FND_LOG.string(FND_LOG.level_statement
1937: ,l_module_name||'.copy_accesses'
1938: ,'After call to copy_acceses: x_return_status:'||l_return_status
1939: ||' '||SQLERRM
1940: );
1957: p_from_chr_id => p_from_chr_id,
1958: p_to_chr_id => x_chrv_rec.id);
1959:
1960: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1961: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1962: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
1963: FND_LOG.string(FND_LOG.level_statement
1964: ,l_module_name||'.copy_processes'
1965: ,'After call to copy_processes : x_return_status:'||l_return_status
1958: p_to_chr_id => x_chrv_rec.id);
1959:
1960: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1961: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1962: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
1963: FND_LOG.string(FND_LOG.level_statement
1964: ,l_module_name||'.copy_processes'
1965: ,'After call to copy_processes : x_return_status:'||l_return_status
1966: ||' '||SQLERRM
1959:
1960: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1961: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1962: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
1963: FND_LOG.string(FND_LOG.level_statement
1964: ,l_module_name||'.copy_processes'
1965: ,'After call to copy_processes : x_return_status:'||l_return_status
1966: ||' '||SQLERRM
1967: );
1984: p_from_chr_id => p_from_chr_id,
1985: p_to_chr_id => x_chrv_rec.id);
1986:
1987: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1988: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1989: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
1990: FND_LOG.string(FND_LOG.level_statement
1991: ,l_module_name||'.copy_grpings'
1992: ,'After call to copy_grpings: x_return_status:'||l_return_status
1985: p_to_chr_id => x_chrv_rec.id);
1986:
1987: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1988: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1989: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
1990: FND_LOG.string(FND_LOG.level_statement
1991: ,l_module_name||'.copy_grpings'
1992: ,'After call to copy_grpings: x_return_status:'||l_return_status
1993: ||' '||SQLERRM
1986:
1987: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1988: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1989: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
1990: FND_LOG.string(FND_LOG.level_statement
1991: ,l_module_name||'.copy_grpings'
1992: ,'After call to copy_grpings: x_return_status:'||l_return_status
1993: ||' '||SQLERRM
1994: );
3807:
3808: LOOP
3809: If (P_Partial_Copy_YN = 'N') then
3810: /*
3811: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
3812: FND_LOG.string(FND_LOG.level_statement
3813: ,l_module_name
3814: ,'Inside GenerateNewLineNumber, FETCHing from allLines'
3815: );
3808: LOOP
3809: If (P_Partial_Copy_YN = 'N') then
3810: /*
3811: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
3812: FND_LOG.string(FND_LOG.level_statement
3813: ,l_module_name
3814: ,'Inside GenerateNewLineNumber, FETCHing from allLines'
3815: );
3816: End If;
3817: */
3818: FETCH allLines into l_id,l_line_number,l_cle_id;
3819: Elsif (P_Partial_Copy_YN = 'Y') then
3820: /*
3821: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
3822: FND_LOG.string(FND_LOG.level_statement
3823: ,l_module_name
3824: ,'Inside GenerateNewLineNumber, FETCHing from partialLines'
3825: );
3818: FETCH allLines into l_id,l_line_number,l_cle_id;
3819: Elsif (P_Partial_Copy_YN = 'Y') then
3820: /*
3821: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
3822: FND_LOG.string(FND_LOG.level_statement
3823: ,l_module_name
3824: ,'Inside GenerateNewLineNumber, FETCHing from partialLines'
3825: );
3826: End If;
3833: Elsif (P_Partial_Copy_YN = 'Y') then
3834: EXIT WHEN partialLines%NOTFOUND;
3835: End If;
3836:
3837: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
3838: FND_LOG.string(FND_LOG.level_statement
3839: ,l_module_name
3840: ,'ID='||l_id||',Line Num='||l_line_number||', Cle ID='||l_cle_id
3841: );
3834: EXIT WHEN partialLines%NOTFOUND;
3835: End If;
3836:
3837: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
3838: FND_LOG.string(FND_LOG.level_statement
3839: ,l_module_name
3840: ,'ID='||l_id||',Line Num='||l_line_number||', Cle ID='||l_cle_id
3841: );
3842: End If;
3916:
3917: EXCEPTION
3918: WHEN OTHERS THEN
3919: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
3920: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
3921: IF (FND_LOG.test(FND_LOG.level_unexpected, l_module_name)) THEN
3922: FND_LOG.string(FND_LOG.level_unexpected
3923: ,l_module_name||'.GenerateNewLineNumber'
3924: ,'EXCEPTION in GenerateNewLineNumber '||SQLERRM
3917: EXCEPTION
3918: WHEN OTHERS THEN
3919: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
3920: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
3921: IF (FND_LOG.test(FND_LOG.level_unexpected, l_module_name)) THEN
3922: FND_LOG.string(FND_LOG.level_unexpected
3923: ,l_module_name||'.GenerateNewLineNumber'
3924: ,'EXCEPTION in GenerateNewLineNumber '||SQLERRM
3925: );
3918: WHEN OTHERS THEN
3919: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
3920: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
3921: IF (FND_LOG.test(FND_LOG.level_unexpected, l_module_name)) THEN
3922: FND_LOG.string(FND_LOG.level_unexpected
3923: ,l_module_name||'.GenerateNewLineNumber'
3924: ,'EXCEPTION in GenerateNewLineNumber '||SQLERRM
3925: );
3926: END IF;
3997: AND okcBT.DNZ_CHR_ID = P_To_Chr_ID;
3998:
3999:
4000: Begin
4001: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
4002: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
4003: FND_LOG.string(FND_LOG.level_procedure
4004: ,l_module_name
4005: ,'begin: '
3998:
3999:
4000: Begin
4001: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
4002: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
4003: FND_LOG.string(FND_LOG.level_procedure
4004: ,l_module_name
4005: ,'begin: '
4006: ||',P_From_Chr_ID='||P_From_Chr_ID
3999:
4000: Begin
4001: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
4002: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
4003: FND_LOG.string(FND_LOG.level_procedure
4004: ,l_module_name
4005: ,'begin: '
4006: ||',P_From_Chr_ID='||P_From_Chr_ID
4007: ||',P_To_Chr_ID='||P_To_Chr_ID
4011: END IF;
4012: x_return_status := l_return_status;
4013:
4014: IF (P_Partial_Copy_YN = 'N') THEN
4015: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
4016: FND_LOG.string(FND_LOG.level_statement,l_module_name,'Opening GetOkcLinesTLFull');
4017: End If;
4018: OPEN GetOkcLinesTLFull(P_To_Chr_ID => P_To_Chr_ID);
4019: ELSIF (P_Partial_Copy_YN = 'Y' and P_Lines_Count > 0) THEN
4012: x_return_status := l_return_status;
4013:
4014: IF (P_Partial_Copy_YN = 'N') THEN
4015: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
4016: FND_LOG.string(FND_LOG.level_statement,l_module_name,'Opening GetOkcLinesTLFull');
4017: End If;
4018: OPEN GetOkcLinesTLFull(P_To_Chr_ID => P_To_Chr_ID);
4019: ELSIF (P_Partial_Copy_YN = 'Y' and P_Lines_Count > 0) THEN
4020: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
4016: FND_LOG.string(FND_LOG.level_statement,l_module_name,'Opening GetOkcLinesTLFull');
4017: End If;
4018: OPEN GetOkcLinesTLFull(P_To_Chr_ID => P_To_Chr_ID);
4019: ELSIF (P_Partial_Copy_YN = 'Y' and P_Lines_Count > 0) THEN
4020: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
4021: FND_LOG.string(FND_LOG.level_statement,l_module_name,'Opening GetOkcLinesTLPartial');
4022: End If;
4023: OPEN GetOkcLinesTLPartial(P_To_Chr_ID => P_To_Chr_ID);
4024: END IF;
4017: End If;
4018: OPEN GetOkcLinesTLFull(P_To_Chr_ID => P_To_Chr_ID);
4019: ELSIF (P_Partial_Copy_YN = 'Y' and P_Lines_Count > 0) THEN
4020: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
4021: FND_LOG.string(FND_LOG.level_statement,l_module_name,'Opening GetOkcLinesTLPartial');
4022: End If;
4023: OPEN GetOkcLinesTLPartial(P_To_Chr_ID => P_To_Chr_ID);
4024: END IF;
4025:
4024: END IF;
4025:
4026: LOOP
4027: IF (P_Partial_Copy_YN = 'N') THEN
4028: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
4029: FND_LOG.string(FND_LOG.level_statement,l_module_name,'FETCHing from GetOkcLinesTLFull');
4030: End If;
4031: FETCH GetOkcLinesTLFull BULK COLLECT INTO
4032: OKCLinesTLRecTab.OkcTL_OldID
4025:
4026: LOOP
4027: IF (P_Partial_Copy_YN = 'N') THEN
4028: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
4029: FND_LOG.string(FND_LOG.level_statement,l_module_name,'FETCHing from GetOkcLinesTLFull');
4030: End If;
4031: FETCH GetOkcLinesTLFull BULK COLLECT INTO
4032: OKCLinesTLRecTab.OkcTL_OldID
4033: ,OKCLinesTLRecTab.OkcTL_NewID
4041: ,OKCLinesTLRecTab.OkcTL_SECURITY_GROUP_ID
4042: ,OKCLinesTLRecTab.OkcTL_OKE_BOE_DESCRIPTION
4043: ,OKCLinesTLRecTab.OkcTL_COGNOMEN LIMIT G_BULK_FETCH_LIMIT;
4044: ELSIF (P_Partial_Copy_YN = 'Y' and P_Lines_Count > 0) then
4045: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
4046: FND_LOG.string(FND_LOG.level_statement,l_module_name,'FETCHing from GetOkcLinesTLPartial');
4047: End If;
4048: FETCH GetOkcLinesTLPartial BULK COLLECT INTO
4049: OKCLinesTLRecTab.OkcTL_OldID
4042: ,OKCLinesTLRecTab.OkcTL_OKE_BOE_DESCRIPTION
4043: ,OKCLinesTLRecTab.OkcTL_COGNOMEN LIMIT G_BULK_FETCH_LIMIT;
4044: ELSIF (P_Partial_Copy_YN = 'Y' and P_Lines_Count > 0) then
4045: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
4046: FND_LOG.string(FND_LOG.level_statement,l_module_name,'FETCHing from GetOkcLinesTLPartial');
4047: End If;
4048: FETCH GetOkcLinesTLPartial BULK COLLECT INTO
4049: OKCLinesTLRecTab.OkcTL_OldID
4050: ,OKCLinesTLRecTab.OkcTL_NewID
5507: Begin
5508: x_return_status := l_return_status;
5509:
5510: IF (P_Partial_Copy_YN = 'N') THEN
5511: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5512: FND_LOG.string(FND_LOG.level_statement
5513: ,l_module_name
5514: ,'OPENing GetOkcPAVFull'
5515: );
5508: x_return_status := l_return_status;
5509:
5510: IF (P_Partial_Copy_YN = 'N') THEN
5511: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5512: FND_LOG.string(FND_LOG.level_statement
5513: ,l_module_name
5514: ,'OPENing GetOkcPAVFull'
5515: );
5516: END IF;
5517:
5518: OPEN GetOkcPAVFull;
5519: ELSIF (P_Partial_Copy_YN = 'Y') THEN
5520: IF (P_Target_Contract_New_YN = 'Y' and P_Lines_Count = 0) THEN
5521: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5522: FND_LOG.string(FND_LOG.level_statement
5523: ,l_module_name
5524: ,'OPENing GetOkcPAVPartial_H'
5525: );
5518: OPEN GetOkcPAVFull;
5519: ELSIF (P_Partial_Copy_YN = 'Y') THEN
5520: IF (P_Target_Contract_New_YN = 'Y' and P_Lines_Count = 0) THEN
5521: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5522: FND_LOG.string(FND_LOG.level_statement
5523: ,l_module_name
5524: ,'OPENing GetOkcPAVPartial_H'
5525: );
5526: END IF;
5525: );
5526: END IF;
5527: OPEN GetOkcPAVPartial_H;
5528: ELSIF (P_Target_Contract_New_YN = 'Y' and P_Lines_Count > 0) THEN
5529: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5530: FND_LOG.string(FND_LOG.level_statement
5531: ,l_module_name
5532: ,'OPENing GetOkcPAVPartial_HNL'
5533: );
5526: END IF;
5527: OPEN GetOkcPAVPartial_H;
5528: ELSIF (P_Target_Contract_New_YN = 'Y' and P_Lines_Count > 0) THEN
5529: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5530: FND_LOG.string(FND_LOG.level_statement
5531: ,l_module_name
5532: ,'OPENing GetOkcPAVPartial_HNL'
5533: );
5534: END IF;
5533: );
5534: END IF;
5535: OPEN GetOkcPAVPartial_HNL;
5536: ELSIF (P_Target_Contract_New_YN = 'N' and P_Lines_Count > 0) THEN
5537: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5538: FND_LOG.string(FND_LOG.level_statement
5539: ,l_module_name
5540: ,'OPENing GetOkcPAVPartial_L'
5541: );
5534: END IF;
5535: OPEN GetOkcPAVPartial_HNL;
5536: ELSIF (P_Target_Contract_New_YN = 'N' and P_Lines_Count > 0) THEN
5537: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5538: FND_LOG.string(FND_LOG.level_statement
5539: ,l_module_name
5540: ,'OPENing GetOkcPAVPartial_L'
5541: );
5542: END IF;
5548: END IF;
5549:
5550: LOOP
5551: IF (P_Partial_Copy_YN = 'N') then
5552: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5553: FND_LOG.string(FND_LOG.level_statement
5554: ,l_module_name
5555: ,'FETCHing GetOkcPAVFull'
5556: );
5549:
5550: LOOP
5551: IF (P_Partial_Copy_YN = 'N') then
5552: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5553: FND_LOG.string(FND_LOG.level_statement
5554: ,l_module_name
5555: ,'FETCHing GetOkcPAVFull'
5556: );
5557: END IF;
5773: LIMIT G_BULK_FETCH_LIMIT;
5774:
5775: ELSIF (P_Partial_Copy_YN = 'Y') THEN
5776: IF (P_Target_Contract_New_YN = 'Y' and P_Lines_Count = 0) THEN
5777: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5778: FND_LOG.string(FND_LOG.level_statement
5779: ,l_module_name
5780: ,'FETCHing GetOkcPAVPartial_H'
5781: );
5774:
5775: ELSIF (P_Partial_Copy_YN = 'Y') THEN
5776: IF (P_Target_Contract_New_YN = 'Y' and P_Lines_Count = 0) THEN
5777: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5778: FND_LOG.string(FND_LOG.level_statement
5779: ,l_module_name
5780: ,'FETCHing GetOkcPAVPartial_H'
5781: );
5782: END IF;
5996: ,OkcPAVRecTab.OkcPAV_REQUEST_ID
5997: ,OkcPAVRecTab.OkcPAV_OBJECT_VERSION_NUMBER
5998: LIMIT G_BULK_FETCH_LIMIT;
5999: ELSIF (P_Target_Contract_New_YN = 'Y' and P_Lines_Count > 0) THEN
6000: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
6001: FND_LOG.string(FND_LOG.level_statement
6002: ,l_module_name
6003: ,'FETCHing GetOkcPAVPartial_HNL'
6004: );
5997: ,OkcPAVRecTab.OkcPAV_OBJECT_VERSION_NUMBER
5998: LIMIT G_BULK_FETCH_LIMIT;
5999: ELSIF (P_Target_Contract_New_YN = 'Y' and P_Lines_Count > 0) THEN
6000: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
6001: FND_LOG.string(FND_LOG.level_statement
6002: ,l_module_name
6003: ,'FETCHing GetOkcPAVPartial_HNL'
6004: );
6005: END IF;
6220: ,OkcPAVRecTab.OkcPAV_OBJECT_VERSION_NUMBER
6221: LIMIT G_BULK_FETCH_LIMIT;
6222: ELSIF (P_Target_Contract_New_YN = 'N' and P_Lines_Count > 0) THEN
6223:
6224: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
6225: FND_LOG.string(FND_LOG.level_statement
6226: ,l_module_name
6227: ,'FETCHing GetOkcPAVPartial_L'
6228: );
6221: LIMIT G_BULK_FETCH_LIMIT;
6222: ELSIF (P_Target_Contract_New_YN = 'N' and P_Lines_Count > 0) THEN
6223:
6224: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
6225: FND_LOG.string(FND_LOG.level_statement
6226: ,l_module_name
6227: ,'FETCHing GetOkcPAVPartial_L'
6228: );
6229: END IF;
7425: Begin
7426: x_return_status := l_return_status;
7427:
7428: IF (P_Partial_Copy_YN = 'N') THEN
7429: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
7430: FND_LOG.string(FND_LOG.level_statement
7431: ,l_module_name
7432: ,'OPENing GetOkcPAFull'
7433: );
7426: x_return_status := l_return_status;
7427:
7428: IF (P_Partial_Copy_YN = 'N') THEN
7429: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
7430: FND_LOG.string(FND_LOG.level_statement
7431: ,l_module_name
7432: ,'OPENing GetOkcPAFull'
7433: );
7434: END IF;
7434: END IF;
7435: OPEN GetOkcPAFull;
7436: ELSIF (P_Partial_Copy_YN = 'Y') THEN
7437: IF (P_Target_Contract_New_YN = 'Y' and P_Lines_Count = 0) THEN
7438: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
7439: FND_LOG.string(FND_LOG.level_statement
7440: ,l_module_name
7441: ,'OPENing GetOkcPAPartial_H'
7442: );
7435: OPEN GetOkcPAFull;
7436: ELSIF (P_Partial_Copy_YN = 'Y') THEN
7437: IF (P_Target_Contract_New_YN = 'Y' and P_Lines_Count = 0) THEN
7438: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
7439: FND_LOG.string(FND_LOG.level_statement
7440: ,l_module_name
7441: ,'OPENing GetOkcPAPartial_H'
7442: );
7443: END IF;
7443: END IF;
7444:
7445: OPEN GetOkcPAPartial_H;
7446: ELSIF (P_Target_Contract_New_YN = 'Y' and P_Lines_Count > 0) then
7447: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
7448: FND_LOG.string(FND_LOG.level_statement
7449: ,l_module_name
7450: ,'OPENing GetOkcPAPartial_HNL'
7451: );
7444:
7445: OPEN GetOkcPAPartial_H;
7446: ELSIF (P_Target_Contract_New_YN = 'Y' and P_Lines_Count > 0) then
7447: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
7448: FND_LOG.string(FND_LOG.level_statement
7449: ,l_module_name
7450: ,'OPENing GetOkcPAPartial_HNL'
7451: );
7452: END IF;
7452: END IF;
7453:
7454: OPEN GetOkcPAPartial_HNL;
7455: ELSIF (P_Target_Contract_New_YN = 'N' and P_Lines_Count > 0) then
7456: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
7457: FND_LOG.string(FND_LOG.level_statement
7458: ,l_module_name
7459: ,'OPENing GetOkcPAPartial_L'
7460: );
7453:
7454: OPEN GetOkcPAPartial_HNL;
7455: ELSIF (P_Target_Contract_New_YN = 'N' and P_Lines_Count > 0) then
7456: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
7457: FND_LOG.string(FND_LOG.level_statement
7458: ,l_module_name
7459: ,'OPENing GetOkcPAPartial_L'
7460: );
7461: END IF;
7469:
7470:
7471: LOOP
7472: IF (P_Partial_Copy_YN = 'N') THEN
7473: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
7474: FND_LOG.string(FND_LOG.level_statement
7475: ,l_module_name
7476: ,'FETCHing from GetOkcPAFull'
7477: );
7470:
7471: LOOP
7472: IF (P_Partial_Copy_YN = 'N') THEN
7473: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
7474: FND_LOG.string(FND_LOG.level_statement
7475: ,l_module_name
7476: ,'FETCHing from GetOkcPAFull'
7477: );
7478: END IF;
7544: ,okcPARecTab.OkcPA_REBATE_TRXN_TYPE_CODE LIMIT G_BULK_FETCH_LIMIT;
7545:
7546: ELSIF (P_Partial_Copy_YN = 'Y') THEN
7547: IF (P_Target_Contract_New_YN = 'Y' and P_Lines_Count = 0) THEN
7548: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
7549: FND_LOG.string(FND_LOG.level_statement
7550: ,l_module_name
7551: ,'FETCHing from GetOkcPAPartial_H'
7552: );
7545:
7546: ELSIF (P_Partial_Copy_YN = 'Y') THEN
7547: IF (P_Target_Contract_New_YN = 'Y' and P_Lines_Count = 0) THEN
7548: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
7549: FND_LOG.string(FND_LOG.level_statement
7550: ,l_module_name
7551: ,'FETCHing from GetOkcPAPartial_H'
7552: );
7553: END IF;
7618: ,okcPARecTab.OkcPA_INCLUDE_ON_RETURNS_FLAG
7619: ,okcPARecTab.OkcPA_REBATE_TRXN_TYPE_CODE LIMIT G_BULK_FETCH_LIMIT;
7620:
7621: ELSIF (P_Target_Contract_New_YN = 'Y' and P_Lines_Count > 0) then
7622: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
7623: FND_LOG.string(FND_LOG.level_statement
7624: ,l_module_name
7625: ,'FETCHing from GetOkcPAPartial_HNL'
7626: );
7619: ,okcPARecTab.OkcPA_REBATE_TRXN_TYPE_CODE LIMIT G_BULK_FETCH_LIMIT;
7620:
7621: ELSIF (P_Target_Contract_New_YN = 'Y' and P_Lines_Count > 0) then
7622: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
7623: FND_LOG.string(FND_LOG.level_statement
7624: ,l_module_name
7625: ,'FETCHing from GetOkcPAPartial_HNL'
7626: );
7627: END IF;
7692: ,okcPARecTab.OkcPA_INCLUDE_ON_RETURNS_FLAG
7693: ,okcPARecTab.OkcPA_REBATE_TRXN_TYPE_CODE LIMIT G_BULK_FETCH_LIMIT;
7694:
7695: ELSIF (P_Target_Contract_New_YN = 'N' and P_Lines_Count > 0) then
7696: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
7697: FND_LOG.string(FND_LOG.level_statement
7698: ,l_module_name
7699: ,'FETCHing GetOkcPAPartial_L'
7700: );
7693: ,okcPARecTab.OkcPA_REBATE_TRXN_TYPE_CODE LIMIT G_BULK_FETCH_LIMIT;
7694:
7695: ELSIF (P_Target_Contract_New_YN = 'N' and P_Lines_Count > 0) then
7696: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
7697: FND_LOG.string(FND_LOG.level_statement
7698: ,l_module_name
7699: ,'FETCHing GetOkcPAPartial_L'
7700: );
7701: END IF;
8136: END IF;
8137:
8138: LOOP
8139: IF (P_Partial_Copy_YN = 'N') THEN
8140: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
8141: FND_LOG.string(FND_LOG.level_statement
8142: ,l_module_name
8143: ,'FETCHing from GetOkcPRBFull'
8144: );
8137:
8138: LOOP
8139: IF (P_Partial_Copy_YN = 'N') THEN
8140: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
8141: FND_LOG.string(FND_LOG.level_statement
8142: ,l_module_name
8143: ,'FETCHing from GetOkcPRBFull'
8144: );
8145: END IF;
8185: ,OkcPRBRecTab.OkcPRB_ORIG_SYSTEM_REFERENCE1
8186: ,OkcPRBRecTab.OkcPRB_ORIG_SYSTEM_SOURCE_CODE LIMIT G_BULK_FETCH_LIMIT;
8187:
8188: ELSIF (P_Partial_Copy_YN = 'Y' AND P_Lines_Count > 0) THEN
8189: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
8190: FND_LOG.string(FND_LOG.level_statement
8191: ,l_module_name
8192: ,'FETCHing from GetOkcPRBPartial'
8193: );
8186: ,OkcPRBRecTab.OkcPRB_ORIG_SYSTEM_SOURCE_CODE LIMIT G_BULK_FETCH_LIMIT;
8187:
8188: ELSIF (P_Partial_Copy_YN = 'Y' AND P_Lines_Count > 0) THEN
8189: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
8190: FND_LOG.string(FND_LOG.level_statement
8191: ,l_module_name
8192: ,'FETCHing from GetOkcPRBPartial'
8193: );
8194: END IF;
8327: ,FND_GLOBAL.LOGIN_ID
8328: FROM DUAL;
8329:
8330: IF (P_Partial_Copy_YN = 'N') THEN
8331: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
8332: FND_LOG.string(FND_LOG.level_statement
8333: ,l_module_name
8334: ,'EXITing from GetOkcPRBFull'
8335: );
8328: FROM DUAL;
8329:
8330: IF (P_Partial_Copy_YN = 'N') THEN
8331: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
8332: FND_LOG.string(FND_LOG.level_statement
8333: ,l_module_name
8334: ,'EXITing from GetOkcPRBFull'
8335: );
8336: END IF;
8336: END IF;
8337:
8338: EXIT WHEN GetOkcPRBFull%NOTFOUND;
8339: ELSIF (P_Partial_Copy_YN = 'Y' AND P_Lines_Count > 0) THEN
8340: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
8341: FND_LOG.string(FND_LOG.level_statement
8342: ,l_module_name
8343: ,'EXITing from GetOkcPRBPartial'
8344: );
8337:
8338: EXIT WHEN GetOkcPRBFull%NOTFOUND;
8339: ELSIF (P_Partial_Copy_YN = 'Y' AND P_Lines_Count > 0) THEN
8340: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
8341: FND_LOG.string(FND_LOG.level_statement
8342: ,l_module_name
8343: ,'EXITing from GetOkcPRBPartial'
8344: );
8345: END IF;
8418: OPEN getSourceHdrVendorPartyRoleID;
8419: FETCH getSourceHdrVendorPartyRoleID INTO l_Source_Vendor_PRole_ID;
8420: CLOSE getSourceHdrVendorPartyRoleID;
8421:
8422: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
8423: FND_LOG.string(FND_LOG.level_statement
8424: ,l_module_name
8425: ,'After fetching from getSourceHdrVendorPartyRoleID :'||l_Source_Vendor_PRole_ID
8426: );
8419: FETCH getSourceHdrVendorPartyRoleID INTO l_Source_Vendor_PRole_ID;
8420: CLOSE getSourceHdrVendorPartyRoleID;
8421:
8422: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
8423: FND_LOG.string(FND_LOG.level_statement
8424: ,l_module_name
8425: ,'After fetching from getSourceHdrVendorPartyRoleID :'||l_Source_Vendor_PRole_ID
8426: );
8427: END IF;
8443: x_msg_data => x_msg_data,
8444: p_cplv_rec => l_cplv_rec,
8445: x_cplv_rec => x_cplv_rec);
8446:
8447: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
8448: FND_LOG.string(FND_LOG.level_statement
8449: ,l_module_name
8450: ,'After call to OKC_CONTRACT_PARTY_PUB.create_k_party_role : x_return_status =' ||x_return_status
8451: ||'K-ID:'||x_cplv_rec.dnz_chr_id
8444: p_cplv_rec => l_cplv_rec,
8445: x_cplv_rec => x_cplv_rec);
8446:
8447: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
8448: FND_LOG.string(FND_LOG.level_statement
8449: ,l_module_name
8450: ,'After call to OKC_CONTRACT_PARTY_PUB.create_k_party_role : x_return_status =' ||x_return_status
8451: ||'K-ID:'||x_cplv_rec.dnz_chr_id
8452: ||'Cpl ID:'||x_cplv_rec.id
8463: WHEN OTHERS THEN
8464: IF getSourceHdrVendorPartyRoleID%ISOPEN THEN
8465: CLOSE getSourceHdrVendorPartyRoleID;
8466: END IF;
8467: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
8468: FND_LOG.string(FND_LOG.level_unexpected
8469: ,l_module_name||'.EXCEPTION'
8470: ,'Exception in create_vendor_if_missing: In call to OKC_CONTRACT_PARTY_PUB.create_k_party_role, x_return_status ='
8471: ||x_return_status
8464: IF getSourceHdrVendorPartyRoleID%ISOPEN THEN
8465: CLOSE getSourceHdrVendorPartyRoleID;
8466: END IF;
8467: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
8468: FND_LOG.string(FND_LOG.level_unexpected
8469: ,l_module_name||'.EXCEPTION'
8470: ,'Exception in create_vendor_if_missing: In call to OKC_CONTRACT_PARTY_PUB.create_k_party_role, x_return_status ='
8471: ||x_return_status
8472: ||'SQLERRM ='||SQLERRM
8545:
8546: LOOP
8547:
8548: If (P_Partial_Copy_YN = 'N') then
8549: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
8550: FND_LOG.string(FND_LOG.level_statement
8551: ,l_module_name
8552: ,'FETCHing from GetOkcPRTLFull'
8553: );
8546: LOOP
8547:
8548: If (P_Partial_Copy_YN = 'N') then
8549: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
8550: FND_LOG.string(FND_LOG.level_statement
8551: ,l_module_name
8552: ,'FETCHing from GetOkcPRTLFull'
8553: );
8554: END IF;
8562: ,OkcPRTLRecTab.OkcPRTL_COGNOMEN
8563: ,OkcPRTLRecTab.OkcPRTL_ALIAS
8564: ,OkcPRTLRecTab.OkcPRTL_SECURITY_GROUP_ID LIMIT G_BULK_FETCH_LIMIT;
8565: Elsif (P_Partial_Copy_YN = 'Y' AND P_Lines_Count > 0) then
8566: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
8567: FND_LOG.string(FND_LOG.level_statement
8568: ,l_module_name
8569: ,'FETCHing from GetOkcPRTLPartial'
8570: );
8563: ,OkcPRTLRecTab.OkcPRTL_ALIAS
8564: ,OkcPRTLRecTab.OkcPRTL_SECURITY_GROUP_ID LIMIT G_BULK_FETCH_LIMIT;
8565: Elsif (P_Partial_Copy_YN = 'Y' AND P_Lines_Count > 0) then
8566: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
8567: FND_LOG.string(FND_LOG.level_statement
8568: ,l_module_name
8569: ,'FETCHing from GetOkcPRTLPartial'
8570: );
8571: END IF;
10922:
10923: --l_Target_Line_ID_WithDtsChngd NUMBER;
10924:
10925: Begin
10926: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
10927: FND_LOG.string(FND_LOG.level_procedure
10928: ,l_module_name
10929: ,'Entered copy_pm_for_SkippedLines'
10930: );
10923: --l_Target_Line_ID_WithDtsChngd NUMBER;
10924:
10925: Begin
10926: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
10927: FND_LOG.string(FND_LOG.level_procedure
10928: ,l_module_name
10929: ,'Entered copy_pm_for_SkippedLines'
10930: );
10931: END IF;
10935: FETCH GetLinesWithDatesChanged BULK COLLECT INTO l_lines_tbl LIMIT G_BULK_FETCH_LIMIT;
10936: IF (l_lines_tbl.COUNT > 0) then
10937: FOR i in l_lines_tbl.FIRST..l_lines_tbl.LAST LOOP
10938: Begin
10939: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
10940: FND_LOG.string(FND_LOG.level_statement
10941: ,l_module_name
10942: ,'Target Line ID : '||l_lines_tbl(i).LINE_ID
10943: );
10936: IF (l_lines_tbl.COUNT > 0) then
10937: FOR i in l_lines_tbl.FIRST..l_lines_tbl.LAST LOOP
10938: Begin
10939: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
10940: FND_LOG.string(FND_LOG.level_statement
10941: ,l_module_name
10942: ,'Target Line ID : '||l_lines_tbl(i).LINE_ID
10943: );
10944: END IF;
10950: ,x_msg_data => x_msg_data
10951: ,p_contract_line_id => l_lines_tbl(i).LINE_ID);
10952:
10953: If (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
10954: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
10955: FND_LOG.string(FND_LOG.level_statement
10956: ,l_module_name
10957: ,'Return status from OKS_PM_PROGRAMS_PVT.RENEW_PM_PROGRAM_SCHEDULE : x_return_status ='||x_return_status
10958: );
10951: ,p_contract_line_id => l_lines_tbl(i).LINE_ID);
10952:
10953: If (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
10954: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
10955: FND_LOG.string(FND_LOG.level_statement
10956: ,l_module_name
10957: ,'Return status from OKS_PM_PROGRAMS_PVT.RENEW_PM_PROGRAM_SCHEDULE : x_return_status ='||x_return_status
10958: );
10959: END IF;
10961: End If;
10962:
10963: EXCEPTION
10964: WHEN OTHERS THEN
10965: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
10966: FND_LOG.string(FND_LOG.level_unexpected
10967: ,l_module_name||'.EXCEPTION'
10968: ,'Exception in call to OKS_PM_PROGRAMS_PVT.RENEW_PM_PROGRAM_SCHEDULE, x_return_status ='||x_return_status
10969: ||'SQLERRM ='||SQLERRM
10962:
10963: EXCEPTION
10964: WHEN OTHERS THEN
10965: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
10966: FND_LOG.string(FND_LOG.level_unexpected
10967: ,l_module_name||'.EXCEPTION'
10968: ,'Exception in call to OKS_PM_PROGRAMS_PVT.RENEW_PM_PROGRAM_SCHEDULE, x_return_status ='||x_return_status
10969: ||'SQLERRM ='||SQLERRM
10970: );
13120: End If;
13121:
13122: LOOP
13123: If (P_Partial_Copy_YN = 'N') then
13124: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
13125: FND_LOG.string(FND_LOG.level_statement
13126: ,l_module_name
13127: ,'FETCHing from GetOksLEFull'
13128: );
13121:
13122: LOOP
13123: If (P_Partial_Copy_YN = 'N') then
13124: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
13125: FND_LOG.string(FND_LOG.level_statement
13126: ,l_module_name
13127: ,'FETCHing from GetOksLEFull'
13128: );
13129: END IF;
13150: ,OksLERecTab.OksLE_DATE_END
13151: LIMIT G_BULK_FETCH_LIMIT;
13152: Elsif (P_Partial_Copy_YN = 'Y') then
13153: If (P_Target_Contract_New_YN = 'Y' and P_Lines_Count = 0) then
13154: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
13155: FND_LOG.string(FND_LOG.level_statement
13156: ,l_module_name
13157: ,'FETCHing from GetOksLEPartial_H'
13158: );
13151: LIMIT G_BULK_FETCH_LIMIT;
13152: Elsif (P_Partial_Copy_YN = 'Y') then
13153: If (P_Target_Contract_New_YN = 'Y' and P_Lines_Count = 0) then
13154: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
13155: FND_LOG.string(FND_LOG.level_statement
13156: ,l_module_name
13157: ,'FETCHing from GetOksLEPartial_H'
13158: );
13159: END IF;
13180: ,OksLERecTab.OksLE_DATE_END
13181: LIMIT G_BULK_FETCH_LIMIT;
13182:
13183: Elsif (P_Target_Contract_New_YN = 'Y' and P_Lines_Count > 0) then
13184: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
13185: FND_LOG.string(FND_LOG.level_statement
13186: ,l_module_name
13187: ,'FETCHing from GetOksLEPartial_HNL'
13188: );
13181: LIMIT G_BULK_FETCH_LIMIT;
13182:
13183: Elsif (P_Target_Contract_New_YN = 'Y' and P_Lines_Count > 0) then
13184: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
13185: FND_LOG.string(FND_LOG.level_statement
13186: ,l_module_name
13187: ,'FETCHing from GetOksLEPartial_HNL'
13188: );
13189: END IF;
13210: ,OksLERecTab.OksLE_DATE_END
13211: LIMIT G_BULK_FETCH_LIMIT;
13212:
13213: Elsif (P_Target_Contract_New_YN = 'N' and P_Lines_Count > 0) then
13214: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
13215: FND_LOG.string(FND_LOG.level_statement
13216: ,l_module_name
13217: ,'FETCHing from GetOksLEPartial_L'
13218: );
13211: LIMIT G_BULK_FETCH_LIMIT;
13212:
13213: Elsif (P_Target_Contract_New_YN = 'N' and P_Lines_Count > 0) then
13214: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
13215: FND_LOG.string(FND_LOG.level_statement
13216: ,l_module_name
13217: ,'FETCHing from GetOksLEPartial_L'
13218: );
13219: END IF;
13676:
13677: l_stage varchar2(100) := null;
13678:
13679: BEGIN --Main Begin
13680: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
13681: FND_LOG.string(FND_LOG.level_procedure
13682: ,l_module_name
13683: ,'Entered copy_bsch_for_SkippedLines'
13684: ||' P_From_Chr_ID :'||P_From_Chr_ID
13677: l_stage varchar2(100) := null;
13678:
13679: BEGIN --Main Begin
13680: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
13681: FND_LOG.string(FND_LOG.level_procedure
13682: ,l_module_name
13683: ,'Entered copy_bsch_for_SkippedLines'
13684: ||' P_From_Chr_ID :'||P_From_Chr_ID
13685: ||' P_To_Chr_ID :'||P_To_Chr_ID
13719: ,TargetLinesRecTab.GEN_SUBLINE_BSCH_YN LIMIT G_BULK_FETCH_LIMIT;
13720:
13721: END IF;
13722:
13723: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
13724: FND_LOG.string(FND_LOG.level_statement,l_module_name,' Lines Count :'||TargetLinesRecTab.LINE_ID.COUNT);
13725: END IF;
13726:
13727: IF (TargetLinesRecTab.LINE_ID.COUNT > 0) then
13720:
13721: END IF;
13722:
13723: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
13724: FND_LOG.string(FND_LOG.level_statement,l_module_name,' Lines Count :'||TargetLinesRecTab.LINE_ID.COUNT);
13725: END IF;
13726:
13727: IF (TargetLinesRecTab.LINE_ID.COUNT > 0) then
13728: BEGIN --Begin for looping through TargetLinesRecTab
13727: IF (TargetLinesRecTab.LINE_ID.COUNT > 0) then
13728: BEGIN --Begin for looping through TargetLinesRecTab
13729: FOR i in TargetLinesRecTab.LINE_ID.FIRST..TargetLinesRecTab.LINE_ID.LAST LOOP --2)
13730:
13731: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
13732: FND_LOG.string(FND_LOG.level_statement
13733: ,l_module_name
13734: ,'Target Line ID : '||TargetLinesRecTab.LINE_ID(i)
13735: ||' Target Line Orig System ID1:'||TargetLinesRecTab.ORIG_SYSTEM_ID1(i)
13728: BEGIN --Begin for looping through TargetLinesRecTab
13729: FOR i in TargetLinesRecTab.LINE_ID.FIRST..TargetLinesRecTab.LINE_ID.LAST LOOP --2)
13730:
13731: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
13732: FND_LOG.string(FND_LOG.level_statement
13733: ,l_module_name
13734: ,'Target Line ID : '||TargetLinesRecTab.LINE_ID(i)
13735: ||' Target Line Orig System ID1:'||TargetLinesRecTab.ORIG_SYSTEM_ID1(i)
13736: ||' Target Line CLE_ID :'||TargetLinesRecTab.CLE_ID(i)
13805: ,p_invoice_rule_id => TargetLinesRecTab.INV_RULE_ID(i)
13806: ,x_bil_sch_out_tbl => l_bil_sch_out_tbl
13807: ,x_return_status => x_return_status);
13808:
13809: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
13810: FND_LOG.string(FND_LOG.level_statement
13811: ,l_module_name
13812: ,'After call to OKS_BILL_SCH.create_bill_sch_rules'
13813: ||',x_return_status='||x_return_status
13806: ,x_bil_sch_out_tbl => l_bil_sch_out_tbl
13807: ,x_return_status => x_return_status);
13808:
13809: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
13810: FND_LOG.string(FND_LOG.level_statement
13811: ,l_module_name
13812: ,'After call to OKS_BILL_SCH.create_bill_sch_rules'
13813: ||',x_return_status='||x_return_status
13814: );
13820:
13821:
13822: EXCEPTION
13823: WHEN OTHERS THEN
13824: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
13825: FND_LOG.string(FND_LOG.level_unexpected
13826: ,l_module_name||'.EXCEPTION'
13827: ,'Exception in call to OKS_BILL_SCH.create_bill_sch_rules, x_return_status ='||x_return_status
13828: ||'SQLERRM ='||SQLERRM
13821:
13822: EXCEPTION
13823: WHEN OTHERS THEN
13824: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
13825: FND_LOG.string(FND_LOG.level_unexpected
13826: ,l_module_name||'.EXCEPTION'
13827: ,'Exception in call to OKS_BILL_SCH.create_bill_sch_rules, x_return_status ='||x_return_status
13828: ||'SQLERRM ='||SQLERRM
13829: );
13850: ,x_return_status => x_return_status
13851: ,x_msg_count => x_msg_count
13852: ,x_msg_data => x_msg_data
13853: );
13854: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
13855: FND_LOG.string(FND_LOG.level_statement
13856: ,l_module_name
13857: ,'After call to OKS_BILL_SCH.Create_Bill_Sch_CP'
13858: ||',x_return_status='||x_return_status
13851: ,x_msg_count => x_msg_count
13852: ,x_msg_data => x_msg_data
13853: );
13854: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
13855: FND_LOG.string(FND_LOG.level_statement
13856: ,l_module_name
13857: ,'After call to OKS_BILL_SCH.Create_Bill_Sch_CP'
13858: ||',x_return_status='||x_return_status
13859: );
13867:
13868:
13869: EXCEPTION
13870: WHEN OTHERS THEN
13871: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
13872: FND_LOG.string(FND_LOG.level_unexpected
13873: ,l_module_name||'.EXCEPTION'
13874: ,'Exception in call to OKS_BILL_SCH.create_bill_sch_cp, x_return_status ='||x_return_status
13875: ||'SQLERRM ='||SQLERRM
13868:
13869: EXCEPTION
13870: WHEN OTHERS THEN
13871: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
13872: FND_LOG.string(FND_LOG.level_unexpected
13873: ,l_module_name||'.EXCEPTION'
13874: ,'Exception in call to OKS_BILL_SCH.create_bill_sch_cp, x_return_status ='||x_return_status
13875: ||'SQLERRM ='||SQLERRM
13876: );
13885:
13886: END IF; --End If for CLE_ID is NULL check
13887:
13888: If (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
13889: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
13890: FND_LOG.string(FND_LOG.level_statement
13891: ,l_module_name
13892: ,'Return status from OKS_BILL_SCH : x_return_status ='||x_return_status
13893: );
13886: END IF; --End If for CLE_ID is NULL check
13887:
13888: If (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
13889: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
13890: FND_LOG.string(FND_LOG.level_statement
13891: ,l_module_name
13892: ,'Return status from OKS_BILL_SCH : x_return_status ='||x_return_status
13893: );
13894: END IF;
13994:
13995: l_resultant_PriceUOM OKS_K_LINES_B.PRICE_UOM%TYPE;
13996:
13997: Begin
13998: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
13999: FND_LOG.string(FND_LOG.level_procedure
14000: ,l_module_name
14001: ,'Begin instantiate_bsch_using_PPSetup'
14002: ||' P_To_Chr_ID : '||P_To_Chr_ID
13995: l_resultant_PriceUOM OKS_K_LINES_B.PRICE_UOM%TYPE;
13996:
13997: Begin
13998: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
13999: FND_LOG.string(FND_LOG.level_procedure
14000: ,l_module_name
14001: ,'Begin instantiate_bsch_using_PPSetup'
14002: ||' P_To_Chr_ID : '||P_To_Chr_ID
14003: ||' P_To_Line_ID : '||P_To_Line_ID
14083: ,p_sll_tbl => l_HdrStreams_tbl
14084: ,p_invoice_rule_id => InvoiceRuleID
14085: ,x_bil_sch_out_tbl => l_bil_sch_out_tbl
14086: ,x_return_status => x_return_status);
14087: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
14088: FND_LOG.string(FND_LOG.level_statement
14089: ,l_module_name
14090: ,'After call to OKS_BILL_SCH.create_hdr_bill_sch'
14091: ||',x_return_status='||x_return_status
14084: ,p_invoice_rule_id => InvoiceRuleID
14085: ,x_bil_sch_out_tbl => l_bil_sch_out_tbl
14086: ,x_return_status => x_return_status);
14087: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
14088: FND_LOG.string(FND_LOG.level_statement
14089: ,l_module_name
14090: ,'After call to OKS_BILL_SCH.create_hdr_bill_sch'
14091: ||',x_return_status='||x_return_status
14092: );
14128: ,p_sll_tbl => l_LineStreams_tbl
14129: ,p_invoice_rule_id => InvoiceRuleID
14130: ,x_bil_sch_out_tbl => l_bil_sch_out_tbl
14131: ,x_return_status => x_return_status);
14132: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
14133: FND_LOG.string(FND_LOG.level_statement
14134: ,l_module_name
14135: ,'After call to OKS_BILL_SCH.create_bill_sch_rules'
14136: ||',x_return_status='||x_return_status
14129: ,p_invoice_rule_id => InvoiceRuleID
14130: ,x_bil_sch_out_tbl => l_bil_sch_out_tbl
14131: ,x_return_status => x_return_status);
14132: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
14133: FND_LOG.string(FND_LOG.level_statement
14134: ,l_module_name
14135: ,'After call to OKS_BILL_SCH.create_bill_sch_rules'
14136: ||',x_return_status='||x_return_status
14137: );
14143: END IF; --End of P_To_Line_ID check
14144:
14145: EXCEPTION
14146: WHEN OTHERS THEN
14147: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
14148: FND_LOG.string(FND_LOG.level_unexpected
14149: ,l_module_name||'.EXCEPTION'
14150: ,'Exception in instantiate_bsch_using_PPSetup, x_return_status ='||x_return_status
14151: ||'SQLERRM ='||SQLERRM
14144:
14145: EXCEPTION
14146: WHEN OTHERS THEN
14147: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
14148: FND_LOG.string(FND_LOG.level_unexpected
14149: ,l_module_name||'.EXCEPTION'
14150: ,'Exception in instantiate_bsch_using_PPSetup, x_return_status ='||x_return_status
14151: ||'SQLERRM ='||SQLERRM
14152: );
14402: -- End hkamdar for Bug# 5458842.
14403:
14404: BEGIN --Main Begin
14405: --errorout_hk('Entered create_bsch_using_ppsetup, P_Partial_Copy_YN :'||P_Partial_Copy_YN);
14406: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
14407: FND_LOG.string(FND_LOG.level_procedure
14408: ,l_module_name
14409: ,'Entered create_bsch_using_PPSetup'
14410: ||' P_From_Chr_ID :'||P_From_Chr_ID
14403:
14404: BEGIN --Main Begin
14405: --errorout_hk('Entered create_bsch_using_ppsetup, P_Partial_Copy_YN :'||P_Partial_Copy_YN);
14406: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
14407: FND_LOG.string(FND_LOG.level_procedure
14408: ,l_module_name
14409: ,'Entered create_bsch_using_PPSetup'
14410: ||' P_From_Chr_ID :'||P_From_Chr_ID
14411: ||' P_To_Chr_ID :'||P_To_Chr_ID
14454: ,BillingScheduleType => nvl(G_TrgHdrBillingScheduleType,'T')
14455: ,x_return_status => x_return_status);*/
14456:
14457:
14458: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
14459: FND_LOG.string(FND_LOG.level_statement
14460: ,l_module_name
14461: ,'Before call to instantiate_bsch_using_PPSetup for HEADER'
14462: ||' : Line_Id : '||TargetLinesRecTab.LINE_ID(i)
14455: ,x_return_status => x_return_status);*/
14456:
14457:
14458: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
14459: FND_LOG.string(FND_LOG.level_statement
14460: ,l_module_name
14461: ,'Before call to instantiate_bsch_using_PPSetup for HEADER'
14462: ||' : Line_Id : '||TargetLinesRecTab.LINE_ID(i)
14463: ||' : TrgHdrStartdate : '||TargetLinesRecTab.start_date(i)
14559: ,x_return_status => x_return_status);
14560:
14561: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
14562: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'Exception in call to instantiate_bsch_using_PPSetup', substr(SQLERRM,1,240));
14563: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
14564: FND_LOG.string(FND_LOG.level_statement
14565: ,l_module_name
14566: ,'Return status from instantiate_bsch_using_PPSetup for HEADER : x_return_status ='||x_return_status
14567: );
14560:
14561: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
14562: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'Exception in call to instantiate_bsch_using_PPSetup', substr(SQLERRM,1,240));
14563: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
14564: FND_LOG.string(FND_LOG.level_statement
14565: ,l_module_name
14566: ,'Return status from instantiate_bsch_using_PPSetup for HEADER : x_return_status ='||x_return_status
14567: );
14568: END IF;
14568: END IF;
14569: RETURN;
14570: END IF;
14571:
14572: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
14573: FND_LOG.string(FND_LOG.level_statement
14574: ,l_module_name
14575: ,'Before call to instantiate_bsch_using_PPSetup for HEADER'
14576: ||' : Line_Id : '||TargetLinesRecTab.LINE_ID(i)
14569: RETURN;
14570: END IF;
14571:
14572: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
14573: FND_LOG.string(FND_LOG.level_statement
14574: ,l_module_name
14575: ,'Before call to instantiate_bsch_using_PPSetup for HEADER'
14576: ||' : Line_Id : '||TargetLinesRecTab.LINE_ID(i)
14577: ||' : TrgHdrStartdate : '||TargetLinesRecTab.start_date(i)
14743: ,p_sll_tbl => l_LineStreams_tbl
14744: ,p_invoice_rule_id => TargetLinesRecTab.INV_RULE_ID(i)
14745: ,x_bil_sch_out_tbl => l_bil_sch_out_tbl
14746: ,x_return_status => x_return_status);
14747: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
14748: FND_LOG.string(FND_LOG.level_statement
14749: ,l_module_name
14750: ,'After call to OKS_BILL_SCH.create_bill_sch_rules'
14751: ||',x_return_status='||x_return_status
14744: ,p_invoice_rule_id => TargetLinesRecTab.INV_RULE_ID(i)
14745: ,x_bil_sch_out_tbl => l_bil_sch_out_tbl
14746: ,x_return_status => x_return_status);
14747: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
14748: FND_LOG.string(FND_LOG.level_statement
14749: ,l_module_name
14750: ,'After call to OKS_BILL_SCH.create_bill_sch_rules'
14751: ||',x_return_status='||x_return_status
14752: );
14812: -- End NECHATUR Bug#5349539
14813: ,x_return_status => x_return_status);
14814: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
14815: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'Exception in call to instantiate_bsch_using_PPSetup', substr(SQLERRM,1,240));
14816: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
14817: FND_LOG.string(FND_LOG.level_statement
14818: ,l_module_name
14819: ,'Return status from instantiate_bsch_using_PPSetup for LINE : x_return_status ='||x_return_status
14820: );
14813: ,x_return_status => x_return_status);
14814: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
14815: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'Exception in call to instantiate_bsch_using_PPSetup', substr(SQLERRM,1,240));
14816: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
14817: FND_LOG.string(FND_LOG.level_statement
14818: ,l_module_name
14819: ,'Return status from instantiate_bsch_using_PPSetup for LINE : x_return_status ='||x_return_status
14820: );
14821: END IF;
14834: -- if duration of source line and target line are same then copy the source line billing schedule.
14835: ELSE -- target header partial period attributes does not exist
14836:
14837: -- check for line duration match
14838: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
14839: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
14840: FND_LOG.string(FND_LOG.level_statement
14841: ,l_module_name||'.chk_line_effectivity'
14842: ,'Before call to chk_line_effectivity'
14835: ELSE -- target header partial period attributes does not exist
14836:
14837: -- check for line duration match
14838: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
14839: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
14840: FND_LOG.string(FND_LOG.level_statement
14841: ,l_module_name||'.chk_line_effectivity'
14842: ,'Before call to chk_line_effectivity'
14843: );
14836:
14837: -- check for line duration match
14838: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
14839: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
14840: FND_LOG.string(FND_LOG.level_statement
14841: ,l_module_name||'.chk_line_effectivity'
14842: ,'Before call to chk_line_effectivity'
14843: );
14844: END IF;
14857:
14858: RAISE G_EXCEPTION_HALT_VALIDATION;
14859: End If;
14860:
14861: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
14862: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
14863: FND_LOG.string(FND_LOG.level_statement
14864: ,l_module_name||'.chk_line_effectivity'
14865: ,'After call to chk_line_effectivity'
14858: RAISE G_EXCEPTION_HALT_VALIDATION;
14859: End If;
14860:
14861: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
14862: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
14863: FND_LOG.string(FND_LOG.level_statement
14864: ,l_module_name||'.chk_line_effectivity'
14865: ,'After call to chk_line_effectivity'
14866: );
14859: End If;
14860:
14861: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
14862: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
14863: FND_LOG.string(FND_LOG.level_statement
14864: ,l_module_name||'.chk_line_effectivity'
14865: ,'After call to chk_line_effectivity'
14866: );
14867: END IF;
14943: ,p_sll_tbl => l_LineStreams_tbl
14944: ,p_invoice_rule_id => TargetLinesRecTab.INV_RULE_ID(i)
14945: ,x_bil_sch_out_tbl => l_bil_sch_out_tbl
14946: ,x_return_status => x_return_status);
14947: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
14948: FND_LOG.string(FND_LOG.level_statement
14949: ,l_module_name
14950: ,'After call to OKS_BILL_SCH.create_bill_sch_rules'
14951: ||',x_return_status='||x_return_status
14944: ,p_invoice_rule_id => TargetLinesRecTab.INV_RULE_ID(i)
14945: ,x_bil_sch_out_tbl => l_bil_sch_out_tbl
14946: ,x_return_status => x_return_status);
14947: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
14948: FND_LOG.string(FND_LOG.level_statement
14949: ,l_module_name
14950: ,'After call to OKS_BILL_SCH.create_bill_sch_rules'
14951: ||',x_return_status='||x_return_status
14952: );
14982: ,x_return_status => x_return_status
14983: ,x_msg_count => x_msg_count
14984: ,x_msg_data => x_msg_data
14985: );
14986: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
14987: FND_LOG.string(FND_LOG.level_statement
14988: ,l_module_name
14989: ,'After call to OKS_BILL_SCH.Create_Bill_Sch_CP'
14990: ||',x_return_status='||x_return_status
14983: ,x_msg_count => x_msg_count
14984: ,x_msg_data => x_msg_data
14985: );
14986: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
14987: FND_LOG.string(FND_LOG.level_statement
14988: ,l_module_name
14989: ,'After call to OKS_BILL_SCH.Create_Bill_Sch_CP'
14990: ||',x_return_status='||x_return_status
14991: );
14996: END IF;
14997:
14998: EXCEPTION
14999: WHEN OTHERS THEN
15000: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
15001: FND_LOG.string(FND_LOG.level_unexpected
15002: ,l_module_name||'.EXCEPTION'
15003: ,'Exception in call to OKS_BILL_SCH.create_bill_sch_cp, x_return_status ='||x_return_status
15004: ||'SQLERRM ='||SQLERRM
14997:
14998: EXCEPTION
14999: WHEN OTHERS THEN
15000: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
15001: FND_LOG.string(FND_LOG.level_unexpected
15002: ,l_module_name||'.EXCEPTION'
15003: ,'Exception in call to OKS_BILL_SCH.create_bill_sch_cp, x_return_status ='||x_return_status
15004: ||'SQLERRM ='||SQLERRM
15005: );
15012: --------End of BSCH Creation for Subline---------------
15013: END IF; --End If for CLE_ID is NULL check
15014:
15015: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
15016: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
15017: FND_LOG.string(FND_LOG.level_statement
15018: ,l_module_name
15019: ,'Return status from OKS_BILL_SCH : x_return_status ='||x_return_status
15020: );
15013: END IF; --End If for CLE_ID is NULL check
15014:
15015: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
15016: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
15017: FND_LOG.string(FND_LOG.level_statement
15018: ,l_module_name
15019: ,'Return status from OKS_BILL_SCH : x_return_status ='||x_return_status
15020: );
15021: END IF;
15141: Begin
15142: l_ext_entity_tab.DELETE;
15143: l_ext_entity_tab(0) := P_Source_Trx_Ext_ID;
15144:
15145: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
15146: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
15147: FND_LOG.string(FND_LOG.level_procedure
15148: ,l_module_name||'.Begin'
15149: ,'P_Source_Trx_Ext_ID='||P_Source_Trx_Ext_ID
15142: l_ext_entity_tab.DELETE;
15143: l_ext_entity_tab(0) := P_Source_Trx_Ext_ID;
15144:
15145: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
15146: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
15147: FND_LOG.string(FND_LOG.level_procedure
15148: ,l_module_name||'.Begin'
15149: ,'P_Source_Trx_Ext_ID='||P_Source_Trx_Ext_ID
15150: ||',P_Bill_To_Site_Use_ID='||P_Bill_To_Site_Use_ID
15143: l_ext_entity_tab(0) := P_Source_Trx_Ext_ID;
15144:
15145: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
15146: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
15147: FND_LOG.string(FND_LOG.level_procedure
15148: ,l_module_name||'.Begin'
15149: ,'P_Source_Trx_Ext_ID='||P_Source_Trx_Ext_ID
15150: ||',P_Bill_To_Site_Use_ID='||P_Bill_To_Site_Use_ID
15151: ||',P_Header_ID='||P_Header_ID
15208: l_Payer_Equivalency := IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_UPWARD;
15209: l_Pmt_Channel := 'CREDIT_CARD';
15210: l_instr_assignment := l_Instrument_Assignment_ID;
15211:
15212: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
15213: FND_LOG.string(FND_LOG.level_statement
15214: ,l_module_name
15215: ,'Org ID='||l_Authoring_Org_ID
15216: ||'Party ID='||l_Party_ID
15209: l_Pmt_Channel := 'CREDIT_CARD';
15210: l_instr_assignment := l_Instrument_Assignment_ID;
15211:
15212: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
15213: FND_LOG.string(FND_LOG.level_statement
15214: ,l_module_name
15215: ,'Org ID='||l_Authoring_Org_ID
15216: ||'Party ID='||l_Party_ID
15217: ||'Acct_Id ='||l_Cust_Account_ID
15277:
15278:
15279:
15280:
15281: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
15282: FND_LOG.string(FND_LOG.level_statement
15283: ,l_module_name
15284: ,'After call to IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension'
15285: ||',x_return_status='||x_return_status
15278:
15279:
15280:
15281: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
15282: FND_LOG.string(FND_LOG.level_statement
15283: ,l_module_name
15284: ,'After call to IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension'
15285: ||',x_return_status='||x_return_status
15286: ||',Result Code ='||l_response.result_code
15291:
15292:
15293: EXCEPTION
15294: WHEN OTHERS THEN
15295: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
15296: FND_LOG.string(FND_LOG.level_unexpected
15297: ,l_module_name||'.EXCEPTION'
15298: ,'Exception in call to IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension, x_return_status ='||x_return_status
15299: ||'SQLERRM ='||SQLERRM
15292:
15293: EXCEPTION
15294: WHEN OTHERS THEN
15295: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
15296: FND_LOG.string(FND_LOG.level_unexpected
15297: ,l_module_name||'.EXCEPTION'
15298: ,'Exception in call to IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension, x_return_status ='||x_return_status
15299: ||'SQLERRM ='||SQLERRM
15300: );
15306: End;
15307:
15308: END IF; --End of IF Check for l_CC_Expiry_Date--------------------------------------
15309:
15310: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
15311: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
15312: FND_LOG.string(FND_LOG.level_procedure
15313: ,l_module_name||'.End'
15314: ,'x_return_status ='||x_return_status
15307:
15308: END IF; --End of IF Check for l_CC_Expiry_Date--------------------------------------
15309:
15310: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
15311: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
15312: FND_LOG.string(FND_LOG.level_procedure
15313: ,l_module_name||'.End'
15314: ,'x_return_status ='||x_return_status
15315: );
15308: END IF; --End of IF Check for l_CC_Expiry_Date--------------------------------------
15309:
15310: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
15311: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
15312: FND_LOG.string(FND_LOG.level_procedure
15313: ,l_module_name||'.End'
15314: ,'x_return_status ='||x_return_status
15315: );
15316: END IF;
15317: END IF;
15318:
15319: EXCEPTION
15320: WHEN OTHERS THEN
15321: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
15322: FND_LOG.string(FND_LOG.level_unexpected
15323: ,l_module_name||'.EXCEPTION'
15324: ,'General Exception in Create_Transaction_Exception, x_return_status ='||x_return_status
15325: ||'SQLERRM ='||SQLERRM
15318:
15319: EXCEPTION
15320: WHEN OTHERS THEN
15321: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
15322: FND_LOG.string(FND_LOG.level_unexpected
15323: ,l_module_name||'.EXCEPTION'
15324: ,'General Exception in Create_Transaction_Exception, x_return_status ='||x_return_status
15325: ||'SQLERRM ='||SQLERRM
15326: );
15395: l_BP_Child_ID NUMBER;
15396:
15397: Begin
15398: x_return_status := FND_API.G_RET_STS_SUCCESS;
15399: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
15400: FND_LOG.string(FND_LOG.level_statement
15401: ,l_module_name
15402: ,'In Update_BP: P_To_Chr_ID :'||P_To_Chr_ID
15403: );
15396:
15397: Begin
15398: x_return_status := FND_API.G_RET_STS_SUCCESS;
15399: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
15400: FND_LOG.string(FND_LOG.level_statement
15401: ,l_module_name
15402: ,'In Update_BP: P_To_Chr_ID :'||P_To_Chr_ID
15403: );
15404: END IF;
15411: ,l_BP_End_Date
15412: ,l_BP_Offset_Duration
15413: ,l_BP_Offset_Period;
15414: EXIT WHEN getBPOffsetInformation%NOTFOUND;
15415: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
15416: FND_LOG.string(FND_LOG.level_statement
15417: ,l_module_name
15418: ,'OKS.plsql.OKS_COPY_CONTRACT_PVT.Update_BP'
15419: ||' BP ID : '||l_BP_ID
15412: ,l_BP_Offset_Duration
15413: ,l_BP_Offset_Period;
15414: EXIT WHEN getBPOffsetInformation%NOTFOUND;
15415: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
15416: FND_LOG.string(FND_LOG.level_statement
15417: ,l_module_name
15418: ,'OKS.plsql.OKS_COPY_CONTRACT_PVT.Update_BP'
15419: ||' BP ID : '||l_BP_ID
15420: ||' BP Start Date: '||l_BP_Start_Date
15438: l_Resultant_Start_Date := l_BP_End_Date;
15439: End If;
15440:
15441:
15442: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
15443: FND_LOG.string(FND_LOG.level_statement
15444: ,l_module_name
15445: ,'OKS.plsql.OKS_COPY_CONTRACT_PVT.Update_BP'
15446: ||' Resultant Date : '||l_Resultant_Start_Date
15439: End If;
15440:
15441:
15442: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
15443: FND_LOG.string(FND_LOG.level_statement
15444: ,l_module_name
15445: ,'OKS.plsql.OKS_COPY_CONTRACT_PVT.Update_BP'
15446: ||' Resultant Date : '||l_Resultant_Start_Date
15447: );
15469:
15470: EXCEPTION
15471: WHEN OTHERS THEN
15472: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
15473: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
15474: FND_LOG.string(FND_LOG.level_unexpected
15475: ,l_module_name
15476: ,SQLERRM
15477: );
15470: EXCEPTION
15471: WHEN OTHERS THEN
15472: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
15473: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
15474: FND_LOG.string(FND_LOG.level_unexpected
15475: ,l_module_name
15476: ,SQLERRM
15477: );
15478: END IF;
15516:
15517: EXCEPTION
15518: WHEN OTHERS THEN
15519: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
15520: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
15521: FND_LOG.string(FND_LOG.level_unexpected
15522: ,l_module_name
15523: ,SQLERRM
15524: );
15517: EXCEPTION
15518: WHEN OTHERS THEN
15519: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
15520: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
15521: FND_LOG.string(FND_LOG.level_unexpected
15522: ,l_module_name
15523: ,SQLERRM
15524: );
15525: END IF;
16952:
16953: lx_rail_rec OKS_TAX_UTIL_PVT.ra_rec_type;
16954: Begin
16955:
16956: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
16957: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
16958: FND_LOG.string(FND_LOG.level_procedure
16959: ,l_module_name||'.Begin'
16960: ,',P_From_Chr_ID='||P_From_Chr_ID
16953: lx_rail_rec OKS_TAX_UTIL_PVT.ra_rec_type;
16954: Begin
16955:
16956: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
16957: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
16958: FND_LOG.string(FND_LOG.level_procedure
16959: ,l_module_name||'.Begin'
16960: ,',P_From_Chr_ID='||P_From_Chr_ID
16961: ||',P_To_Chr_ID='||P_To_Chr_ID
16954: Begin
16955:
16956: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
16957: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
16958: FND_LOG.string(FND_LOG.level_procedure
16959: ,l_module_name||'.Begin'
16960: ,',P_From_Chr_ID='||P_From_Chr_ID
16961: ||',P_To_Chr_ID='||P_To_Chr_ID
16962: ||',p_renew_ref_yn='||p_renew_ref_yn
16998: OPEN get_new_contract_number(P_To_Chr_ID);
16999: FETCH get_new_contract_number into l_new_contract_number;
17000: CLOSE get_new_contract_number;
17001: If l_new_contract_number IS NULL then
17002: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
17003: FND_LOG.string(FND_LOG.level_statement
17004: ,l_module_name||':'||'Cursor get_new_contract_number'
17005: ,'Contract number of Target Contract is NULL'
17006: );
16999: FETCH get_new_contract_number into l_new_contract_number;
17000: CLOSE get_new_contract_number;
17001: If l_new_contract_number IS NULL then
17002: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
17003: FND_LOG.string(FND_LOG.level_statement
17004: ,l_module_name||':'||'Cursor get_new_contract_number'
17005: ,'Contract number of Target Contract is NULL'
17006: );
17007: END IF;
17015: OPEN get_default_status;
17016: FETCH get_default_status into l_Default_Sts_Code;
17017: CLOSE get_default_status;
17018: If l_Default_Sts_Code IS NULL then
17019: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
17020: FND_LOG.string(FND_LOG.level_statement
17021: ,l_module_name||':'||'Cursor get_default_status'
17022: ,'Default Status not found'
17023: );
17016: FETCH get_default_status into l_Default_Sts_Code;
17017: CLOSE get_default_status;
17018: If l_Default_Sts_Code IS NULL then
17019: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
17020: FND_LOG.string(FND_LOG.level_statement
17021: ,l_module_name||':'||'Cursor get_default_status'
17022: ,'Default Status not found'
17023: );
17024: END IF;
17028: End;
17029: ------------------------------------------
17030:
17031: IF (P_Renew_Ref_YN = 'N') then
17032: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
17033: FND_LOG.string(FND_LOG.level_statement
17034: ,l_module_name
17035: ,'Opening GetOKCOKSLinesB_Copy'
17036: );
17029: ------------------------------------------
17030:
17031: IF (P_Renew_Ref_YN = 'N') then
17032: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
17033: FND_LOG.string(FND_LOG.level_statement
17034: ,l_module_name
17035: ,'Opening GetOKCOKSLinesB_Copy'
17036: );
17037: END IF;
17049: p_include_terminated_lines = 'N' THEN
17050: OPEN GetOKCOKSLinesB_Copy_EXCLUDE(P_From_Chr_ID, P_To_Chr_ID);
17051: END IF;
17052: ELSIF (P_Renew_Ref_YN = 'Y') then
17053: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
17054: FND_LOG.string(FND_LOG.level_statement
17055: ,l_module_name
17056: ,'Opening GetOKCOKSLinesB_Renew'
17057: );
17050: OPEN GetOKCOKSLinesB_Copy_EXCLUDE(P_From_Chr_ID, P_To_Chr_ID);
17051: END IF;
17052: ELSIF (P_Renew_Ref_YN = 'Y') then
17053: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
17054: FND_LOG.string(FND_LOG.level_statement
17055: ,l_module_name
17056: ,'Opening GetOKCOKSLinesB_Renew'
17057: );
17058: END IF;
17060: END IF;
17061:
17062: LOOP
17063: IF (P_Renew_Ref_YN = 'N') THEN
17064: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
17065: FND_LOG.string(FND_LOG.level_statement
17066: ,l_module_name
17067: ,'FETCHING from GetOKCOKSLinesB_Copy'
17068: );
17061:
17062: LOOP
17063: IF (P_Renew_Ref_YN = 'N') THEN
17064: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
17065: FND_LOG.string(FND_LOG.level_statement
17066: ,l_module_name
17067: ,'FETCHING from GetOKCOKSLinesB_Copy'
17068: );
17069: END IF;
17921: END IF;
17922:
17923: ELSIF (P_Renew_Ref_YN = 'Y') then
17924:
17925: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
17926: FND_LOG.string(FND_LOG.level_statement
17927: ,l_module_name
17928: ,'FETCHING from GetOKCOKSLinesB_Renew'
17929: );
17922:
17923: ELSIF (P_Renew_Ref_YN = 'Y') then
17924:
17925: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
17926: FND_LOG.string(FND_LOG.level_statement
17927: ,l_module_name
17928: ,'FETCHING from GetOKCOKSLinesB_Renew'
17929: );
17930: END IF;
18138: ,OKCOKSLinesRecTab.OkcI_PROGRAM_ID
18139: ,OKCOKSLinesRecTab.OkcI_PROGRAM_UPDATE_DATE
18140: ,OKCOKSLinesRecTab.OkcI_REQUEST_ID LIMIT G_BULK_FETCH_LIMIT;
18141:
18142: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
18143: FND_LOG.string(FND_LOG.level_statement
18144: ,l_module_name
18145: ,'After FETCH from GetOKCOKSLinesB_Renew'
18146: );
18139: ,OKCOKSLinesRecTab.OkcI_PROGRAM_UPDATE_DATE
18140: ,OKCOKSLinesRecTab.OkcI_REQUEST_ID LIMIT G_BULK_FETCH_LIMIT;
18141:
18142: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
18143: FND_LOG.string(FND_LOG.level_statement
18144: ,l_module_name
18145: ,'After FETCH from GetOKCOKSLinesB_Renew'
18146: );
18147: END IF;
18341: ,FND_GLOBAL.LOGIN_ID
18342: FROM
18343: DUAL;
18344:
18345: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
18346: FND_LOG.string(FND_LOG.level_statement
18347: ,l_module_name
18348: ,'AFTER INSERT into OKC_K_LINES_B '
18349: );
18342: FROM
18343: DUAL;
18344:
18345: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
18346: FND_LOG.string(FND_LOG.level_statement
18347: ,l_module_name
18348: ,'AFTER INSERT into OKC_K_LINES_B '
18349: );
18350: END IF;
18351:
18352: EXCEPTION
18353: WHEN OTHERS THEN
18354: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
18355: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
18356: FND_LOG.string(FND_LOG.level_unexpected
18357: ,l_module_name
18358: ,'EXCEPTION during insert into OKC_K_LINES_B '||SQLERRM
18359: );
18352: EXCEPTION
18353: WHEN OTHERS THEN
18354: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
18355: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
18356: FND_LOG.string(FND_LOG.level_unexpected
18357: ,l_module_name
18358: ,'EXCEPTION during insert into OKC_K_LINES_B '||SQLERRM
18359: );
18360: END IF;
18572: DUAL
18573: WHERE
18574: OKCOKSLinesRecTab.OksB_OldOksLineID(i) IS NOT NULL;
18575:
18576: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
18577: FND_LOG.string(FND_LOG.level_statement
18578: ,l_module_name
18579: ,'AFTER INSERT into OKS_K_LINES_B '
18580: );
18573: WHERE
18574: OKCOKSLinesRecTab.OksB_OldOksLineID(i) IS NOT NULL;
18575:
18576: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
18577: FND_LOG.string(FND_LOG.level_statement
18578: ,l_module_name
18579: ,'AFTER INSERT into OKS_K_LINES_B '
18580: );
18581: END IF;
18582:
18583: EXCEPTION
18584: WHEN OTHERS THEN
18585: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
18586: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
18587: FND_LOG.string(FND_LOG.level_unexpected
18588: ,l_module_name
18589: ,'EXCEPTION during insert into OKS_K_LINES_B '||SQLERRM
18590: );
18583: EXCEPTION
18584: WHEN OTHERS THEN
18585: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
18586: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
18587: FND_LOG.string(FND_LOG.level_unexpected
18588: ,l_module_name
18589: ,'EXCEPTION during insert into OKS_K_LINES_B '||SQLERRM
18590: );
18591: END IF;
18654: FROM
18655: DUAL
18656: where OKCOKSLinesRecTab.OkcI_OldOkcItemID(i) IS NOT NULL;
18657:
18658: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
18659: FND_LOG.string(FND_LOG.level_statement
18660: ,l_module_name
18661: ,'AFTER INSERT into OKC_K_ITEMS '
18662: );
18655: DUAL
18656: where OKCOKSLinesRecTab.OkcI_OldOkcItemID(i) IS NOT NULL;
18657:
18658: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
18659: FND_LOG.string(FND_LOG.level_statement
18660: ,l_module_name
18661: ,'AFTER INSERT into OKC_K_ITEMS '
18662: );
18663: END IF;
18664:
18665: EXCEPTION
18666: WHEN OTHERS THEN
18667: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
18668: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
18669: FND_LOG.string(FND_LOG.level_unexpected
18670: ,l_module_name
18671: ,'EXCEPTION during insert into OKC_K_ITEMS '||SQLERRM
18672: );
18665: EXCEPTION
18666: WHEN OTHERS THEN
18667: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
18668: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
18669: FND_LOG.string(FND_LOG.level_unexpected
18670: ,l_module_name
18671: ,'EXCEPTION during insert into OKC_K_ITEMS '||SQLERRM
18672: );
18673: END IF;
18678: End;
18679:
18680: -----------------Start of row by row processing---------------------
18681:
18682: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18683: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
18684: FND_LOG.string(FND_LOG.level_statement
18685: ,l_module_name
18686: ,'Before Start of Row by Row Processing , Count of rows being processed :'||OKCOKSLinesRecTab.OkcB_NewOKCLineID.COUNT
18679:
18680: -----------------Start of row by row processing---------------------
18681:
18682: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18683: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
18684: FND_LOG.string(FND_LOG.level_statement
18685: ,l_module_name
18686: ,'Before Start of Row by Row Processing , Count of rows being processed :'||OKCOKSLinesRecTab.OkcB_NewOKCLineID.COUNT
18687: );
18680: -----------------Start of row by row processing---------------------
18681:
18682: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18683: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
18684: FND_LOG.string(FND_LOG.level_statement
18685: ,l_module_name
18686: ,'Before Start of Row by Row Processing , Count of rows being processed :'||OKCOKSLinesRecTab.OkcB_NewOKCLineID.COUNT
18687: );
18688: END IF;
18709: ,p_AMOUNT => OKCOKSLinesRecTab.OkcB_PRICE_NEGOTIATED(i)
18710: ,x_CONVERSION_RATE => g_conversion_rate
18711: ,x_CONVERTED_AMOUNT => l_converted_price_negotiated
18712: );
18713: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18714: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
18715: FND_LOG.string(FND_LOG.level_statement
18716: ,l_module_name||'.OKC_CURRENCY_API.CONVERT_AMOUNT'
18717: ,'After call to convert_amount for Price_Negotiated: x_return_status:'||l_return_status
18710: ,x_CONVERSION_RATE => g_conversion_rate
18711: ,x_CONVERTED_AMOUNT => l_converted_price_negotiated
18712: );
18713: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18714: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
18715: FND_LOG.string(FND_LOG.level_statement
18716: ,l_module_name||'.OKC_CURRENCY_API.CONVERT_AMOUNT'
18717: ,'After call to convert_amount for Price_Negotiated: x_return_status:'||l_return_status
18718: ||'Orig Price_Negotiated='||OKCOKSLinesRecTab.OkcB_PRICE_NEGOTIATED(i)
18711: ,x_CONVERTED_AMOUNT => l_converted_price_negotiated
18712: );
18713: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18714: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
18715: FND_LOG.string(FND_LOG.level_statement
18716: ,l_module_name||'.OKC_CURRENCY_API.CONVERT_AMOUNT'
18717: ,'After call to convert_amount for Price_Negotiated: x_return_status:'||l_return_status
18718: ||'Orig Price_Negotiated='||OKCOKSLinesRecTab.OkcB_PRICE_NEGOTIATED(i)
18719: ||'Converted Price Negotiated='||l_converted_price_negotiated
18731: ,x_CONVERSION_RATE => g_conversion_rate
18732: ,x_CONVERTED_AMOUNT => l_converted_price_unit
18733: );
18734:
18735: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18736: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
18737: FND_LOG.string(FND_LOG.level_statement
18738: ,l_module_name||'.OKC_CURRENCY_API.CONVERT_AMOUNT'
18739: ,'After call to convert_amount for Price_Unit: x_return_status:'||l_return_status
18732: ,x_CONVERTED_AMOUNT => l_converted_price_unit
18733: );
18734:
18735: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18736: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
18737: FND_LOG.string(FND_LOG.level_statement
18738: ,l_module_name||'.OKC_CURRENCY_API.CONVERT_AMOUNT'
18739: ,'After call to convert_amount for Price_Unit: x_return_status:'||l_return_status
18740: ||'Orig Price_Negotiated='||OKCOKSLinesRecTab.OkcB_PRICE_UNIT(i)
18733: );
18734:
18735: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18736: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
18737: FND_LOG.string(FND_LOG.level_statement
18738: ,l_module_name||'.OKC_CURRENCY_API.CONVERT_AMOUNT'
18739: ,'After call to convert_amount for Price_Unit: x_return_status:'||l_return_status
18740: ||'Orig Price_Negotiated='||OKCOKSLinesRecTab.OkcB_PRICE_UNIT(i)
18741: ||'Converted Price Unit='||l_converted_price_unit
18760: End;
18761:
18762: END IF; --End of check P_Renew_Ref_YN = 'Y'
18763:
18764: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18765: FND_LOG.string(FND_LOG.level_statement
18766: ,l_module_name
18767: ,'OKC LSE ID : '||OKCOKSLinesRecTab.OkcB_LSE_ID(i)
18768: );
18761:
18762: END IF; --End of check P_Renew_Ref_YN = 'Y'
18763:
18764: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18765: FND_LOG.string(FND_LOG.level_statement
18766: ,l_module_name
18767: ,'OKC LSE ID : '||OKCOKSLinesRecTab.OkcB_LSE_ID(i)
18768: );
18769: END IF;
18774: --------------------------------------------------------------
18775: IF (OKCOKSLinesRecTab.OkcB_LSE_ID(i) = 1 OR OKCOKSLinesRecTab.OkcB_LSE_ID(i) = 19) THEN
18776: --Instantiate Counters Events
18777:
18778: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18779: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
18780: FND_LOG.string(FND_LOG.level_statement
18781: ,l_module_name||'.instantiate_counters_events'
18782: ,'Before call to instantiate_counters_events'
18775: IF (OKCOKSLinesRecTab.OkcB_LSE_ID(i) = 1 OR OKCOKSLinesRecTab.OkcB_LSE_ID(i) = 19) THEN
18776: --Instantiate Counters Events
18777:
18778: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18779: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
18780: FND_LOG.string(FND_LOG.level_statement
18781: ,l_module_name||'.instantiate_counters_events'
18782: ,'Before call to instantiate_counters_events'
18783: );
18776: --Instantiate Counters Events
18777:
18778: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18779: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
18780: FND_LOG.string(FND_LOG.level_statement
18781: ,l_module_name||'.instantiate_counters_events'
18782: ,'Before call to instantiate_counters_events'
18783: );
18784: END IF;
18805: RAISE G_EXCEPTION_HALT_VALIDATION;
18806: END IF;
18807:
18808:
18809: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18810: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
18811: FND_LOG.string(FND_LOG.level_statement
18812: ,l_module_name||'.instantiate_counters_events'
18813: ,'After call to instantiate_counters_events x_return_status:'||l_return_status
18806: END IF;
18807:
18808:
18809: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18810: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
18811: FND_LOG.string(FND_LOG.level_statement
18812: ,l_module_name||'.instantiate_counters_events'
18813: ,'After call to instantiate_counters_events x_return_status:'||l_return_status
18814: );
18807:
18808:
18809: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18810: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
18811: FND_LOG.string(FND_LOG.level_statement
18812: ,l_module_name||'.instantiate_counters_events'
18813: ,'After call to instantiate_counters_events x_return_status:'||l_return_status
18814: );
18815: END IF;
18814: );
18815: END IF;
18816: END IF;
18817:
18818: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18819: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
18820: FND_LOG.string(FND_LOG.level_statement
18821: ,l_module_name||'.OKS_COVERAGES_PVT.COPY_NOTES'
18822: ,'Before call to copy_notes for line:'||OKCOKSLinesRecTab.OkcB_NewOKCLineID(i)
18815: END IF;
18816: END IF;
18817:
18818: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18819: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
18820: FND_LOG.string(FND_LOG.level_statement
18821: ,l_module_name||'.OKS_COVERAGES_PVT.COPY_NOTES'
18822: ,'Before call to copy_notes for line:'||OKCOKSLinesRecTab.OkcB_NewOKCLineID(i)
18823: );
18816: END IF;
18817:
18818: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18819: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
18820: FND_LOG.string(FND_LOG.level_statement
18821: ,l_module_name||'.OKS_COVERAGES_PVT.COPY_NOTES'
18822: ,'Before call to copy_notes for line:'||OKCOKSLinesRecTab.OkcB_NewOKCLineID(i)
18823: );
18824: END IF;
18832: ,x_msg_data => x_msg_data
18833: ,x_return_status => l_return_status
18834: ,p_line_id => OKCOKSLinesRecTab.OkcB_NewOKCLineID(i)
18835: );
18836: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18837: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
18838: FND_LOG.string(FND_LOG.level_statement
18839: ,l_module_name||'.OKS_COVERAGES_PVT.COPY_NOTES'
18840: ,'After call to copy_notes for line: x_return_status:'||l_return_status
18833: ,x_return_status => l_return_status
18834: ,p_line_id => OKCOKSLinesRecTab.OkcB_NewOKCLineID(i)
18835: );
18836: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18837: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
18838: FND_LOG.string(FND_LOG.level_statement
18839: ,l_module_name||'.OKS_COVERAGES_PVT.COPY_NOTES'
18840: ,'After call to copy_notes for line: x_return_status:'||l_return_status
18841: );
18834: ,p_line_id => OKCOKSLinesRecTab.OkcB_NewOKCLineID(i)
18835: );
18836: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18837: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
18838: FND_LOG.string(FND_LOG.level_statement
18839: ,l_module_name||'.OKS_COVERAGES_PVT.COPY_NOTES'
18840: ,'After call to copy_notes for line: x_return_status:'||l_return_status
18841: );
18842: END IF;
18852:
18853: END IF; -----End of LSE_ID check in (1,19)
18854:
18855: ------------Re-compute TAX_AMOUNT for a subscription line if the line being copied is a cancelled line------------
18856: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18857: FND_LOG.string(FND_LOG.level_statement
18858: ,l_module_name||'.OKS_TAX_UTIL_PVT.Get_Tax'
18859: ,' LSE ID and LINE TERMINATED FLAG : '||OKCOKSLinesRecTab.OkcB_LSE_ID(i)||':'||OKCOKSLinesRecTab.OkcB_LINE_TERMINATED_FLAG(i)
18860: );
18853: END IF; -----End of LSE_ID check in (1,19)
18854:
18855: ------------Re-compute TAX_AMOUNT for a subscription line if the line being copied is a cancelled line------------
18856: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18857: FND_LOG.string(FND_LOG.level_statement
18858: ,l_module_name||'.OKS_TAX_UTIL_PVT.Get_Tax'
18859: ,' LSE ID and LINE TERMINATED FLAG : '||OKCOKSLinesRecTab.OkcB_LSE_ID(i)||':'||OKCOKSLinesRecTab.OkcB_LINE_TERMINATED_FLAG(i)
18860: );
18861: END IF;
18880: --npalepu added on 06-NOV-2006 for bug # 5636927
18881: lx_rail_rec.AMOUNT := NULL;
18882: --end npalepu
18883:
18884: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18885: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
18886: FND_LOG.string(FND_LOG.level_statement
18887: ,l_module_name
18888: ,'Before call to OKS_TAX_UTIL_PVT.Get_Tax '
18881: lx_rail_rec.AMOUNT := NULL;
18882: --end npalepu
18883:
18884: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18885: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
18886: FND_LOG.string(FND_LOG.level_statement
18887: ,l_module_name
18888: ,'Before call to OKS_TAX_UTIL_PVT.Get_Tax '
18889: );
18882: --end npalepu
18883:
18884: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18885: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
18886: FND_LOG.string(FND_LOG.level_statement
18887: ,l_module_name
18888: ,'Before call to OKS_TAX_UTIL_PVT.Get_Tax '
18889: );
18890: END IF;
18899: ,x_msg_count => x_msg_count
18900: ,x_msg_data => x_msg_data
18901: ,x_return_status => l_return_status
18902: );
18903: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18904: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
18905: FND_LOG.string(FND_LOG.level_statement
18906: ,l_module_name||'.OKS_TAX_UTIL_PVT.Get_Tax'
18907: ,'After call to Get Tax API for line: x_return_status :'||l_return_status
18900: ,x_msg_data => x_msg_data
18901: ,x_return_status => l_return_status
18902: );
18903: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18904: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
18905: FND_LOG.string(FND_LOG.level_statement
18906: ,l_module_name||'.OKS_TAX_UTIL_PVT.Get_Tax'
18907: ,'After call to Get Tax API for line: x_return_status :'||l_return_status
18908: ||'Tax Amount '||lx_rail_rec.TAX_VALUE
18901: ,x_return_status => l_return_status
18902: );
18903: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18904: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
18905: FND_LOG.string(FND_LOG.level_statement
18906: ,l_module_name||'.OKS_TAX_UTIL_PVT.Get_Tax'
18907: ,'After call to Get Tax API for line: x_return_status :'||l_return_status
18908: ||'Tax Amount '||lx_rail_rec.TAX_VALUE
18909: );
18937:
18938: IF (P_Renew_Ref_YN = 'N') THEN
18939: Begin
18940: If (OKCOKSLinesRecTab.OksB_OldOksLineID(i) IS NOT NULL AND OKCOKSLinesRecTab.OksB_LOCKED_PRICE_LIST_ID(i) IS NOT NULL) then
18941: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18942: FND_LOG.string(FND_LOG.level_statement
18943: ,l_module_name
18944: ,'Before call to QP_LOCK_PRICELIST_GRP.Lock_Price'
18945: );
18938: IF (P_Renew_Ref_YN = 'N') THEN
18939: Begin
18940: If (OKCOKSLinesRecTab.OksB_OldOksLineID(i) IS NOT NULL AND OKCOKSLinesRecTab.OksB_LOCKED_PRICE_LIST_ID(i) IS NOT NULL) then
18941: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18942: FND_LOG.string(FND_LOG.level_statement
18943: ,l_module_name
18944: ,'Before call to QP_LOCK_PRICELIST_GRP.Lock_Price'
18945: );
18946: END IF;
18953: ,x_return_status => l_return_status
18954: ,x_msg_count => x_msg_count
18955: ,x_msg_data => x_msg_data);
18956:
18957: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18958: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
18959: FND_LOG.string(FND_LOG.level_statement
18960: ,l_module_name||'.QP_LOCK_PRICELIST_GRP.Lock_Price'
18961: ,'After call to Lock_Price API for line: x_return_status :'||l_return_status
18954: ,x_msg_count => x_msg_count
18955: ,x_msg_data => x_msg_data);
18956:
18957: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18958: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
18959: FND_LOG.string(FND_LOG.level_statement
18960: ,l_module_name||'.QP_LOCK_PRICELIST_GRP.Lock_Price'
18961: ,'After call to Lock_Price API for line: x_return_status :'||l_return_status
18962: ||'Old Locked Price List Line ID='||OKCOKSLinesRecTab.OksB_LOCKED_PRICE_LIST_LINE_ID(i)
18955: ,x_msg_data => x_msg_data);
18956:
18957: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18958: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
18959: FND_LOG.string(FND_LOG.level_statement
18960: ,l_module_name||'.QP_LOCK_PRICELIST_GRP.Lock_Price'
18961: ,'After call to Lock_Price API for line: x_return_status :'||l_return_status
18962: ||'Old Locked Price List Line ID='||OKCOKSLinesRecTab.OksB_LOCKED_PRICE_LIST_LINE_ID(i)
18963: ||'New Locked Price List Line ID='||l_locked_price_list_line_id
18980: WHERE ID = OKCOKSLinesRecTab.OksB_NewOksLineID(i)
18981: AND ORIG_SYSTEM_ID1 = OKCOKSLinesRecTab.OksB_OldOksLineID(i);
18982:
18983: If SQL%NOTFOUND then
18984: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18985: FND_LOG.string(FND_LOG.level_statement
18986: ,l_module_name||'.QP_LOCK_PRICELIST_GRP.Lock_Price'
18987: ,'After call to QP_LOCK_PRICELIST_GRP.Lock_Price, Error in Update OKS_K_LINES_B, row not found for update'
18988: );
18981: AND ORIG_SYSTEM_ID1 = OKCOKSLinesRecTab.OksB_OldOksLineID(i);
18982:
18983: If SQL%NOTFOUND then
18984: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18985: FND_LOG.string(FND_LOG.level_statement
18986: ,l_module_name||'.QP_LOCK_PRICELIST_GRP.Lock_Price'
18987: ,'After call to QP_LOCK_PRICELIST_GRP.Lock_Price, Error in Update OKS_K_LINES_B, row not found for update'
18988: );
18989: END IF;
19000:
19001: Begin
19002: If (OKCOKSLinesRecTab.OksB_OldOksLineID(i) IS NOT NULL AND OKCOKSLinesRecTab.OksB_TRXN_EXTENSION_ID(i) IS NOT NULL) then
19003: --Generate new transaction extension id;
19004: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19005: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19006: FND_LOG.string(FND_LOG.level_statement
19007: ,l_module_name||'.Create_Transaction_Extension'
19008: ,'Before call to Create_Transaction_Extension for line in COPY_LINES'
19001: Begin
19002: If (OKCOKSLinesRecTab.OksB_OldOksLineID(i) IS NOT NULL AND OKCOKSLinesRecTab.OksB_TRXN_EXTENSION_ID(i) IS NOT NULL) then
19003: --Generate new transaction extension id;
19004: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19005: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19006: FND_LOG.string(FND_LOG.level_statement
19007: ,l_module_name||'.Create_Transaction_Extension'
19008: ,'Before call to Create_Transaction_Extension for line in COPY_LINES'
19009: ||'Old Trxn ID='||OKCOKSLinesRecTab.OksB_TRXN_EXTENSION_ID(i)
19002: If (OKCOKSLinesRecTab.OksB_OldOksLineID(i) IS NOT NULL AND OKCOKSLinesRecTab.OksB_TRXN_EXTENSION_ID(i) IS NOT NULL) then
19003: --Generate new transaction extension id;
19004: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19005: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19006: FND_LOG.string(FND_LOG.level_statement
19007: ,l_module_name||'.Create_Transaction_Extension'
19008: ,'Before call to Create_Transaction_Extension for line in COPY_LINES'
19009: ||'Old Trxn ID='||OKCOKSLinesRecTab.OksB_TRXN_EXTENSION_ID(i)
19010: );
19024: ,x_return_status => l_return_status) ;
19025:
19026:
19027:
19028: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19029: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19030: FND_LOG.string(FND_LOG.level_statement
19031: ,l_module_name||'.Create_Transaction_Extension'
19032: ,'After call to Create_Transaction_Extension for line: x_return_status :'||l_return_status
19025:
19026:
19027:
19028: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19029: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19030: FND_LOG.string(FND_LOG.level_statement
19031: ,l_module_name||'.Create_Transaction_Extension'
19032: ,'After call to Create_Transaction_Extension for line: x_return_status :'||l_return_status
19033: ||'New Trxn ID='||l_trxn_extension_id
19026:
19027:
19028: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19029: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19030: FND_LOG.string(FND_LOG.level_statement
19031: ,l_module_name||'.Create_Transaction_Extension'
19032: ,'After call to Create_Transaction_Extension for line: x_return_status :'||l_return_status
19033: ||'New Trxn ID='||l_trxn_extension_id
19034: );
19048: WHERE ID = OKCOKSLinesRecTab.OksB_NewOksLineID(i)
19049: AND ORIG_SYSTEM_ID1 = OKCOKSLinesRecTab.OksB_OldOksLineID(i);
19050:
19051: If SQL%NOTFOUND then
19052: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19053: FND_LOG.string(FND_LOG.level_statement
19054: ,l_module_name||'.Create_Transaction_Extension'
19055: ,'After call to Create_Transaction_Extension, Error in Update OKS_K_LINES_B, row not found for update'
19056: );
19049: AND ORIG_SYSTEM_ID1 = OKCOKSLinesRecTab.OksB_OldOksLineID(i);
19050:
19051: If SQL%NOTFOUND then
19052: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19053: FND_LOG.string(FND_LOG.level_statement
19054: ,l_module_name||'.Create_Transaction_Extension'
19055: ,'After call to Create_Transaction_Extension, Error in Update OKS_K_LINES_B, row not found for update'
19056: );
19057: END IF;
19086: END LOOP;
19087: End If; --End of row count in OKCOKSLinesRecTab.OkcB_NewOKCLineID
19088:
19089: --------------------End of row by row processing------------------------
19090: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19091: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19092: FND_LOG.string(FND_LOG.level_statement
19093: ,l_module_name
19094: ,'End of Row by Row processing'
19087: End If; --End of row count in OKCOKSLinesRecTab.OkcB_NewOKCLineID
19088:
19089: --------------------End of row by row processing------------------------
19090: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19091: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19092: FND_LOG.string(FND_LOG.level_statement
19093: ,l_module_name
19094: ,'End of Row by Row processing'
19095: );
19088:
19089: --------------------End of row by row processing------------------------
19090: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19091: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19092: FND_LOG.string(FND_LOG.level_statement
19093: ,l_module_name
19094: ,'End of Row by Row processing'
19095: );
19096: END IF;
19117: END IF;
19118:
19119: END LOOP; --End of Bulk fetch and insert into OKC_K_LINES_B,OKS_K_LINES_B,OKC_K_ITEMS
19120:
19121: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19122: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19123: FND_LOG.string(FND_LOG.level_statement
19124: ,l_module_name
19125: ,'After BULK FETCH and BULK INSERT into OKC_K_LINES_B,OKS_K_LINES_B,OKC_K_ITEMS'
19118:
19119: END LOOP; --End of Bulk fetch and insert into OKC_K_LINES_B,OKS_K_LINES_B,OKC_K_ITEMS
19120:
19121: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19122: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19123: FND_LOG.string(FND_LOG.level_statement
19124: ,l_module_name
19125: ,'After BULK FETCH and BULK INSERT into OKC_K_LINES_B,OKS_K_LINES_B,OKC_K_ITEMS'
19126: );
19119: END LOOP; --End of Bulk fetch and insert into OKC_K_LINES_B,OKS_K_LINES_B,OKC_K_ITEMS
19120:
19121: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19122: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19123: FND_LOG.string(FND_LOG.level_statement
19124: ,l_module_name
19125: ,'After BULK FETCH and BULK INSERT into OKC_K_LINES_B,OKS_K_LINES_B,OKC_K_ITEMS'
19126: );
19127: END IF;
19246: GenerateNewLineNumber(P_To_Chr_ID => P_To_Chr_ID
19247: ,P_Partial_Copy_YN => 'N'
19248: ,x_return_status => l_return_Status);
19249:
19250: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19251: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19252: FND_LOG.string(FND_LOG.level_statement
19253: ,l_module_name||'.GenerateNewLineNumber'
19254: ,'After call to GenerateNewLineNumber for line: x_return_status :'||l_return_status
19247: ,P_Partial_Copy_YN => 'N'
19248: ,x_return_status => l_return_Status);
19249:
19250: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19251: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19252: FND_LOG.string(FND_LOG.level_statement
19253: ,l_module_name||'.GenerateNewLineNumber'
19254: ,'After call to GenerateNewLineNumber for line: x_return_status :'||l_return_status
19255: );
19248: ,x_return_status => l_return_Status);
19249:
19250: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19251: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19252: FND_LOG.string(FND_LOG.level_statement
19253: ,l_module_name||'.GenerateNewLineNumber'
19254: ,'After call to GenerateNewLineNumber for line: x_return_status :'||l_return_status
19255: );
19256: END IF;
19266:
19267: Begin
19268: If (P_Renew_Ref_YN = 'N') then
19269:
19270: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19271: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19272: FND_LOG.string(FND_LOG.level_statement
19273: ,l_module_name||'.OKS_SETUP_UTIL_PUB.copy_subscr_inst for all Subscription Lines'
19274: ,'Before call to OKS_SETUP_UTIL_PUB.copy_subscr_inst for all Subscription Lines'
19267: Begin
19268: If (P_Renew_Ref_YN = 'N') then
19269:
19270: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19271: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19272: FND_LOG.string(FND_LOG.level_statement
19273: ,l_module_name||'.OKS_SETUP_UTIL_PUB.copy_subscr_inst for all Subscription Lines'
19274: ,'Before call to OKS_SETUP_UTIL_PUB.copy_subscr_inst for all Subscription Lines'
19275: ||to_char(sysdate,'DD/MM/YYYY HH:MI:SS')
19268: If (P_Renew_Ref_YN = 'N') then
19269:
19270: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19271: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19272: FND_LOG.string(FND_LOG.level_statement
19273: ,l_module_name||'.OKS_SETUP_UTIL_PUB.copy_subscr_inst for all Subscription Lines'
19274: ,'Before call to OKS_SETUP_UTIL_PUB.copy_subscr_inst for all Subscription Lines'
19275: ||to_char(sysdate,'DD/MM/YYYY HH:MI:SS')
19276: );
19281: ,p_cle_id => NULL
19282: ,p_intent => 'COPY'
19283: ,x_return_status => l_return_status);
19284:
19285: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19286: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19287: FND_LOG.string(FND_LOG.level_statement
19288: ,l_module_name||'.OKS_SETUP_UTIL_PUB.copy_subscr_inst'
19289: ,'After call to OKS_SETUP_UTIL_PUB.copy_subscr_inst: x_return_status:'||l_return_status
19282: ,p_intent => 'COPY'
19283: ,x_return_status => l_return_status);
19284:
19285: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19286: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19287: FND_LOG.string(FND_LOG.level_statement
19288: ,l_module_name||'.OKS_SETUP_UTIL_PUB.copy_subscr_inst'
19289: ,'After call to OKS_SETUP_UTIL_PUB.copy_subscr_inst: x_return_status:'||l_return_status
19290: ||to_char(sysdate,'DD/MM/YYYY HH:MI:SS')
19283: ,x_return_status => l_return_status);
19284:
19285: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19286: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19287: FND_LOG.string(FND_LOG.level_statement
19288: ,l_module_name||'.OKS_SETUP_UTIL_PUB.copy_subscr_inst'
19289: ,'After call to OKS_SETUP_UTIL_PUB.copy_subscr_inst: x_return_status:'||l_return_status
19290: ||to_char(sysdate,'DD/MM/YYYY HH:MI:SS')
19291: ||' '||SQLERRM
19301:
19302: ------------------------------------------------------------------------------------
19303: ------------Copy of OKC_K_LINES_TL--------------------------------------------------
19304: Begin
19305: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19306: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19307: FND_LOG.string(FND_LOG.level_statement
19308: ,l_module_name||'.copy_okc_k_lines_tl'
19309: ,'Before call to copy_okc_k_lines_tl'
19302: ------------------------------------------------------------------------------------
19303: ------------Copy of OKC_K_LINES_TL--------------------------------------------------
19304: Begin
19305: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19306: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19307: FND_LOG.string(FND_LOG.level_statement
19308: ,l_module_name||'.copy_okc_k_lines_tl'
19309: ,'Before call to copy_okc_k_lines_tl'
19310: );
19303: ------------Copy of OKC_K_LINES_TL--------------------------------------------------
19304: Begin
19305: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19306: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19307: FND_LOG.string(FND_LOG.level_statement
19308: ,l_module_name||'.copy_okc_k_lines_tl'
19309: ,'Before call to copy_okc_k_lines_tl'
19310: );
19311: END IF;
19314: ,P_To_Chr_ID => P_To_Chr_ID
19315: ,P_Partial_Copy_YN => 'N'
19316: ,x_return_status => l_return_status);
19317:
19318: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19319: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19320: FND_LOG.string(FND_LOG.level_statement
19321: ,l_module_name||'.copy_okc_k_lines_tl'
19322: ,'After call to copy_okc_k_lines_tl: x_return_status:'||l_return_status
19315: ,P_Partial_Copy_YN => 'N'
19316: ,x_return_status => l_return_status);
19317:
19318: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19319: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19320: FND_LOG.string(FND_LOG.level_statement
19321: ,l_module_name||'.copy_okc_k_lines_tl'
19322: ,'After call to copy_okc_k_lines_tl: x_return_status:'||l_return_status
19323: ||' '||SQLERRM
19316: ,x_return_status => l_return_status);
19317:
19318: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19319: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19320: FND_LOG.string(FND_LOG.level_statement
19321: ,l_module_name||'.copy_okc_k_lines_tl'
19322: ,'After call to copy_okc_k_lines_tl: x_return_status:'||l_return_status
19323: ||' '||SQLERRM
19324: );
19331: End;
19332: ------------------------------------------------------------------------------------
19333: -----------Copy of OKC_PARTY_ROLES_B--------------------------------
19334: Begin
19335: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19336: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19337: FND_LOG.string(FND_LOG.level_statement
19338: ,l_module_name||'.copy_okc_k_party_roles_b'
19339: ,'Before call to copy_okc_k_party_roles_b'
19332: ------------------------------------------------------------------------------------
19333: -----------Copy of OKC_PARTY_ROLES_B--------------------------------
19334: Begin
19335: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19336: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19337: FND_LOG.string(FND_LOG.level_statement
19338: ,l_module_name||'.copy_okc_k_party_roles_b'
19339: ,'Before call to copy_okc_k_party_roles_b'
19340: );
19333: -----------Copy of OKC_PARTY_ROLES_B--------------------------------
19334: Begin
19335: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19336: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19337: FND_LOG.string(FND_LOG.level_statement
19338: ,l_module_name||'.copy_okc_k_party_roles_b'
19339: ,'Before call to copy_okc_k_party_roles_b'
19340: );
19341: END IF;
19345: ,P_To_Chr_ID => P_To_Chr_ID
19346: ,P_Partial_Copy_YN => 'N'
19347: ,x_return_status => l_return_status);
19348:
19349: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19350: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19351: FND_LOG.string(FND_LOG.level_statement
19352: ,l_module_name||'.copy_okc_k_party_roles_b'
19353: ,'After call to copy_okc_k_party_roles_b: x_return_status:'||l_return_status
19346: ,P_Partial_Copy_YN => 'N'
19347: ,x_return_status => l_return_status);
19348:
19349: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19350: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19351: FND_LOG.string(FND_LOG.level_statement
19352: ,l_module_name||'.copy_okc_k_party_roles_b'
19353: ,'After call to copy_okc_k_party_roles_b: x_return_status:'||l_return_status
19354: ||' '||SQLERRM
19347: ,x_return_status => l_return_status);
19348:
19349: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19350: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19351: FND_LOG.string(FND_LOG.level_statement
19352: ,l_module_name||'.copy_okc_k_party_roles_b'
19353: ,'After call to copy_okc_k_party_roles_b: x_return_status:'||l_return_status
19354: ||' '||SQLERRM
19355: );
19362: End;
19363: ---------------------------------------------------------------------
19364: ------------Copy of OKC_PARTY_ROLES_TL------------------------------
19365: Begin
19366: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19367: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19368: FND_LOG.string(FND_LOG.level_statement
19369: ,l_module_name||'.copy_okc_k_party_roles_tl'
19370: ,'Before call to copy_okc_k_party_roles_tl'
19363: ---------------------------------------------------------------------
19364: ------------Copy of OKC_PARTY_ROLES_TL------------------------------
19365: Begin
19366: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19367: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19368: FND_LOG.string(FND_LOG.level_statement
19369: ,l_module_name||'.copy_okc_k_party_roles_tl'
19370: ,'Before call to copy_okc_k_party_roles_tl'
19371: );
19364: ------------Copy of OKC_PARTY_ROLES_TL------------------------------
19365: Begin
19366: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19367: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19368: FND_LOG.string(FND_LOG.level_statement
19369: ,l_module_name||'.copy_okc_k_party_roles_tl'
19370: ,'Before call to copy_okc_k_party_roles_tl'
19371: );
19372: END IF;
19375: ,P_To_Chr_ID => P_To_Chr_ID
19376: ,P_Partial_Copy_YN => 'N'
19377: ,x_return_status => l_return_status);
19378:
19379: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19380: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19381: FND_LOG.string(FND_LOG.level_statement
19382: ,l_module_name||'.copy_okc_k_party_roles_tl'
19383: ,'After call to copy_okc_party_roles_tl: x_return_status:'||l_return_status
19376: ,P_Partial_Copy_YN => 'N'
19377: ,x_return_status => l_return_status);
19378:
19379: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19380: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19381: FND_LOG.string(FND_LOG.level_statement
19382: ,l_module_name||'.copy_okc_k_party_roles_tl'
19383: ,'After call to copy_okc_party_roles_tl: x_return_status:'||l_return_status
19384: ||' '||SQLERRM
19377: ,x_return_status => l_return_status);
19378:
19379: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19380: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19381: FND_LOG.string(FND_LOG.level_statement
19382: ,l_module_name||'.copy_okc_k_party_roles_tl'
19383: ,'After call to copy_okc_party_roles_tl: x_return_status:'||l_return_status
19384: ||' '||SQLERRM
19385: );
19392: End;
19393: ----------------------------------------------------------------------
19394: ------------Copy of OKC_CONTACTS--------------------------------------
19395: Begin
19396: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19397: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19398: FND_LOG.string(FND_LOG.level_statement
19399: ,l_module_name||'.copy_okc_contacts'
19400: ,'Before call to copy_okc_contacts'
19393: ----------------------------------------------------------------------
19394: ------------Copy of OKC_CONTACTS--------------------------------------
19395: Begin
19396: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19397: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19398: FND_LOG.string(FND_LOG.level_statement
19399: ,l_module_name||'.copy_okc_contacts'
19400: ,'Before call to copy_okc_contacts'
19401: );
19394: ------------Copy of OKC_CONTACTS--------------------------------------
19395: Begin
19396: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19397: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19398: FND_LOG.string(FND_LOG.level_statement
19399: ,l_module_name||'.copy_okc_contacts'
19400: ,'Before call to copy_okc_contacts'
19401: );
19402: END IF;
19405: ,P_To_Chr_ID => P_To_Chr_ID
19406: ,P_Partial_Copy_YN => 'N'
19407: ,x_return_status => l_return_status);
19408:
19409: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19410: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19411: FND_LOG.string(FND_LOG.level_statement
19412: ,l_module_name||'.copy_okc_contacts'
19413: ,'After call to copy_okc_contacts: x_return_status:'||l_return_status
19406: ,P_Partial_Copy_YN => 'N'
19407: ,x_return_status => l_return_status);
19408:
19409: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19410: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19411: FND_LOG.string(FND_LOG.level_statement
19412: ,l_module_name||'.copy_okc_contacts'
19413: ,'After call to copy_okc_contacts: x_return_status:'||l_return_status
19414: ||' '||SQLERRM
19407: ,x_return_status => l_return_status);
19408:
19409: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19410: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19411: FND_LOG.string(FND_LOG.level_statement
19412: ,l_module_name||'.copy_okc_contacts'
19413: ,'After call to copy_okc_contacts: x_return_status:'||l_return_status
19414: ||' '||SQLERRM
19415: );
19421: End;
19422: -------------------------------------------------------------------------
19423: ------------Copy of OKC_PRICE_ATT_VALUES-----------------------------
19424: Begin
19425: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19426: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19427: FND_LOG.string(FND_LOG.level_statement
19428: ,l_module_name||'.copy_okc_price_att_values'
19429: ,'Before call to copy_okc_price_att_values'
19422: -------------------------------------------------------------------------
19423: ------------Copy of OKC_PRICE_ATT_VALUES-----------------------------
19424: Begin
19425: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19426: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19427: FND_LOG.string(FND_LOG.level_statement
19428: ,l_module_name||'.copy_okc_price_att_values'
19429: ,'Before call to copy_okc_price_att_values'
19430: );
19423: ------------Copy of OKC_PRICE_ATT_VALUES-----------------------------
19424: Begin
19425: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19426: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19427: FND_LOG.string(FND_LOG.level_statement
19428: ,l_module_name||'.copy_okc_price_att_values'
19429: ,'Before call to copy_okc_price_att_values'
19430: );
19431: END IF;
19434: ,P_To_Chr_ID => P_To_Chr_ID
19435: ,P_Partial_Copy_YN => 'N'
19436: ,x_return_status => l_return_status);
19437:
19438: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19439: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19440: FND_LOG.string(FND_LOG.level_statement
19441: ,l_module_name||'.copy_okc_price_att_values'
19442: ,'After call to copy_okc_price_att_values: x_return_status:'||l_return_status
19435: ,P_Partial_Copy_YN => 'N'
19436: ,x_return_status => l_return_status);
19437:
19438: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19439: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19440: FND_LOG.string(FND_LOG.level_statement
19441: ,l_module_name||'.copy_okc_price_att_values'
19442: ,'After call to copy_okc_price_att_values: x_return_status:'||l_return_status
19443: ||' '||SQLERRM
19436: ,x_return_status => l_return_status);
19437:
19438: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19439: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19440: FND_LOG.string(FND_LOG.level_statement
19441: ,l_module_name||'.copy_okc_price_att_values'
19442: ,'After call to copy_okc_price_att_values: x_return_status:'||l_return_status
19443: ||' '||SQLERRM
19444: );
19451: End;
19452: ---------------------------------------------------------------------
19453: -----------Copy of OKC_PRICE_ADJUSTMENTS---------------------------
19454: Begin
19455: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19456: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19457: FND_LOG.string(FND_LOG.level_statement
19458: ,l_module_name||'.copy_okc_price_adjustments'
19459: ,'Before call to copy_okc_price_adjustments'
19452: ---------------------------------------------------------------------
19453: -----------Copy of OKC_PRICE_ADJUSTMENTS---------------------------
19454: Begin
19455: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19456: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19457: FND_LOG.string(FND_LOG.level_statement
19458: ,l_module_name||'.copy_okc_price_adjustments'
19459: ,'Before call to copy_okc_price_adjustments'
19460: );
19453: -----------Copy of OKC_PRICE_ADJUSTMENTS---------------------------
19454: Begin
19455: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19456: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19457: FND_LOG.string(FND_LOG.level_statement
19458: ,l_module_name||'.copy_okc_price_adjustments'
19459: ,'Before call to copy_okc_price_adjustments'
19460: );
19461: END IF;
19465: ,P_To_Chr_ID => P_To_Chr_ID
19466: ,P_Partial_Copy_YN => 'N'
19467: ,x_return_status => l_return_status);
19468:
19469: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19470: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19471: FND_LOG.string(FND_LOG.level_statement
19472: ,l_module_name||'.copy_okc_price_adjustments'
19473: ,'After call to copy_okc_price_adjustments: x_return_status:'||l_return_status
19466: ,P_Partial_Copy_YN => 'N'
19467: ,x_return_status => l_return_status);
19468:
19469: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19470: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19471: FND_LOG.string(FND_LOG.level_statement
19472: ,l_module_name||'.copy_okc_price_adjustments'
19473: ,'After call to copy_okc_price_adjustments: x_return_status:'||l_return_status
19474: ||' '||SQLERRM
19467: ,x_return_status => l_return_status);
19468:
19469: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19470: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19471: FND_LOG.string(FND_LOG.level_statement
19472: ,l_module_name||'.copy_okc_price_adjustments'
19473: ,'After call to copy_okc_price_adjustments: x_return_status:'||l_return_status
19474: ||' '||SQLERRM
19475: );
19482: End;
19483: --------------------------------------------------------------------
19484: ------------Copy of OKS_K_LINES_TL---------------------------------
19485: Begin
19486: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19487: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19488: FND_LOG.string(FND_LOG.level_statement
19489: ,l_module_name||'.copy_oks_k_lines_tl'
19490: ,'Before call to copy_oks_k_lines_tl'
19483: --------------------------------------------------------------------
19484: ------------Copy of OKS_K_LINES_TL---------------------------------
19485: Begin
19486: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19487: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19488: FND_LOG.string(FND_LOG.level_statement
19489: ,l_module_name||'.copy_oks_k_lines_tl'
19490: ,'Before call to copy_oks_k_lines_tl'
19491: );
19484: ------------Copy of OKS_K_LINES_TL---------------------------------
19485: Begin
19486: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19487: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19488: FND_LOG.string(FND_LOG.level_statement
19489: ,l_module_name||'.copy_oks_k_lines_tl'
19490: ,'Before call to copy_oks_k_lines_tl'
19491: );
19492: END IF;
19495: ,P_To_Chr_ID => P_To_Chr_ID
19496: ,P_Partial_Copy_YN => 'N'
19497: ,x_return_status => l_return_status);
19498:
19499: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19500: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19501: FND_LOG.string(FND_LOG.level_statement
19502: ,l_module_name||'.copy_oks_k_lines_tl'
19503: ,'After call to copy_oks_k_lines_tl: x_return_status:'||l_return_status
19496: ,P_Partial_Copy_YN => 'N'
19497: ,x_return_status => l_return_status);
19498:
19499: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19500: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19501: FND_LOG.string(FND_LOG.level_statement
19502: ,l_module_name||'.copy_oks_k_lines_tl'
19503: ,'After call to copy_oks_k_lines_tl: x_return_status:'||l_return_status
19504: ||' '||SQLERRM
19497: ,x_return_status => l_return_status);
19498:
19499: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19500: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19501: FND_LOG.string(FND_LOG.level_statement
19502: ,l_module_name||'.copy_oks_k_lines_tl'
19503: ,'After call to copy_oks_k_lines_tl: x_return_status:'||l_return_status
19504: ||' '||SQLERRM
19505: );
19512: End;
19513: ---------------------------------------------------------------------
19514: ------------Copy of OKS_REV_DISTRIBUTIONS--------------------------
19515: Begin
19516: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19517: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19518: FND_LOG.string(FND_LOG.level_statement
19519: ,l_module_name||'.copy_oks_rev_distributions'
19520: ,'Before call to copy_oks_rev_distributions'
19513: ---------------------------------------------------------------------
19514: ------------Copy of OKS_REV_DISTRIBUTIONS--------------------------
19515: Begin
19516: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19517: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19518: FND_LOG.string(FND_LOG.level_statement
19519: ,l_module_name||'.copy_oks_rev_distributions'
19520: ,'Before call to copy_oks_rev_distributions'
19521: );
19514: ------------Copy of OKS_REV_DISTRIBUTIONS--------------------------
19515: Begin
19516: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19517: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19518: FND_LOG.string(FND_LOG.level_statement
19519: ,l_module_name||'.copy_oks_rev_distributions'
19520: ,'Before call to copy_oks_rev_distributions'
19521: );
19522: END IF;
19526: ,P_To_Chr_ID => P_To_Chr_ID
19527: ,P_Partial_Copy_YN => 'N'
19528: ,x_return_status => l_return_status);
19529:
19530: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19531: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19532: FND_LOG.string(FND_LOG.level_statement
19533: ,l_module_name||'.copy_oks_rev_distributions'
19534: ,'After call to copy_oks_rev_distributions: x_return_status:'||l_return_status
19527: ,P_Partial_Copy_YN => 'N'
19528: ,x_return_status => l_return_status);
19529:
19530: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19531: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19532: FND_LOG.string(FND_LOG.level_statement
19533: ,l_module_name||'.copy_oks_rev_distributions'
19534: ,'After call to copy_oks_rev_distributions: x_return_status:'||l_return_status
19535: ||' '||SQLERRM
19528: ,x_return_status => l_return_status);
19529:
19530: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19531: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19532: FND_LOG.string(FND_LOG.level_statement
19533: ,l_module_name||'.copy_oks_rev_distributions'
19534: ,'After call to copy_oks_rev_distributions: x_return_status:'||l_return_status
19535: ||' '||SQLERRM
19536: );
19543: End;
19544: ---------------------------------------------------------------------
19545: -------------Copy of OKS_QUALIFIERS----------------------------------
19546: Begin
19547: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19548: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19549: FND_LOG.string(FND_LOG.level_statement
19550: ,l_module_name||'.copy_oks_qualifiers'
19551: ,'Before call to copy_oks_qualifiers'
19544: ---------------------------------------------------------------------
19545: -------------Copy of OKS_QUALIFIERS----------------------------------
19546: Begin
19547: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19548: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19549: FND_LOG.string(FND_LOG.level_statement
19550: ,l_module_name||'.copy_oks_qualifiers'
19551: ,'Before call to copy_oks_qualifiers'
19552: );
19545: -------------Copy of OKS_QUALIFIERS----------------------------------
19546: Begin
19547: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19548: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19549: FND_LOG.string(FND_LOG.level_statement
19550: ,l_module_name||'.copy_oks_qualifiers'
19551: ,'Before call to copy_oks_qualifiers'
19552: );
19553: END IF;
19557: ,P_To_Chr_ID => P_To_Chr_ID
19558: ,P_Partial_Copy_YN => 'N'
19559: ,x_return_status => l_return_status);
19560:
19561: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19562: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19563: FND_LOG.string(FND_LOG.level_statement
19564: ,l_module_name||'.copy_oks_qualifiers'
19565: ,'After call to copy_oks_qualifiers: x_return_status:'||l_return_status
19558: ,P_Partial_Copy_YN => 'N'
19559: ,x_return_status => l_return_status);
19560:
19561: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19562: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19563: FND_LOG.string(FND_LOG.level_statement
19564: ,l_module_name||'.copy_oks_qualifiers'
19565: ,'After call to copy_oks_qualifiers: x_return_status:'||l_return_status
19566: ||' '||SQLERRM
19559: ,x_return_status => l_return_status);
19560:
19561: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19562: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19563: FND_LOG.string(FND_LOG.level_statement
19564: ,l_module_name||'.copy_oks_qualifiers'
19565: ,'After call to copy_oks_qualifiers: x_return_status:'||l_return_status
19566: ||' '||SQLERRM
19567: );
19590: ----Create Operation Lines in case when P_Renew_Ref_YN = 'Y'----------
19591:
19592: If (P_Renew_Ref_YN = 'Y') then
19593: Begin
19594: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19595: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19596: FND_LOG.string(FND_LOG.level_statement
19597: ,l_module_name||'.copy_okc_operation_lines'
19598: ,'Before call to copy_okc_operation_lines'
19591:
19592: If (P_Renew_Ref_YN = 'Y') then
19593: Begin
19594: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19595: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19596: FND_LOG.string(FND_LOG.level_statement
19597: ,l_module_name||'.copy_okc_operation_lines'
19598: ,'Before call to copy_okc_operation_lines'
19599: );
19592: If (P_Renew_Ref_YN = 'Y') then
19593: Begin
19594: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19595: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19596: FND_LOG.string(FND_LOG.level_statement
19597: ,l_module_name||'.copy_okc_operation_lines'
19598: ,'Before call to copy_okc_operation_lines'
19599: );
19600: END IF;
19603: copy_okc_operation_lines(P_From_Chr_ID => P_From_Chr_ID
19604: ,P_To_Chr_ID => P_To_Chr_ID
19605: ,x_return_status => l_return_status);
19606:
19607: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19608: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19609: FND_LOG.string(FND_LOG.level_statement
19610: ,l_module_name||'.copy_okc_operation_lines'
19611: ,'After call to copy_okc_operation_lines: x_return_status:'||l_return_status
19604: ,P_To_Chr_ID => P_To_Chr_ID
19605: ,x_return_status => l_return_status);
19606:
19607: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19608: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19609: FND_LOG.string(FND_LOG.level_statement
19610: ,l_module_name||'.copy_okc_operation_lines'
19611: ,'After call to copy_okc_operation_lines: x_return_status:'||l_return_status
19612: ||' '||SQLERRM
19605: ,x_return_status => l_return_status);
19606:
19607: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19608: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19609: FND_LOG.string(FND_LOG.level_statement
19610: ,l_module_name||'.copy_okc_operation_lines'
19611: ,'After call to copy_okc_operation_lines: x_return_status:'||l_return_status
19612: ||' '||SQLERRM
19613: );
19624: ---------------------------------------------------------
19625: --The following entities are copied only for regular Copy of a Contract, not during
19626: --Renewal. These get regenerated during post-renewal process
19627: ---------------------------------------------------------
19628: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19629: FND_LOG.string(FND_LOG.level_statement
19630: ,l_module_name||'.copy_lines'
19631: ,'Template YN:'||IsSourceContractTemplate(P_From_Chr_ID => P_From_Chr_ID)
19632: ||', l_SrcContractPPSetupExists_YN :'||l_SrcContractPPSetupExists_YN
19625: --The following entities are copied only for regular Copy of a Contract, not during
19626: --Renewal. These get regenerated during post-renewal process
19627: ---------------------------------------------------------
19628: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19629: FND_LOG.string(FND_LOG.level_statement
19630: ,l_module_name||'.copy_lines'
19631: ,'Template YN:'||IsSourceContractTemplate(P_From_Chr_ID => P_From_Chr_ID)
19632: ||', l_SrcContractPPSetupExists_YN :'||l_SrcContractPPSetupExists_YN
19633: ||', l_GCDPPSetupExists_YN:'||l_GCDPPSetupExists_YN
19660: --================Start of Billing Schedule copy for Header and Lines==========
19661:
19662: -------------Copy of OKS_STREAM_LEVELS_B---------------------------
19663: Begin
19664: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19665: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19666: FND_LOG.string(FND_LOG.level_statement
19667: ,l_module_name||'.copy_oks_stream_levels_b'
19668: ,'Before call to copy_oks_stream_levels_b'
19661:
19662: -------------Copy of OKS_STREAM_LEVELS_B---------------------------
19663: Begin
19664: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19665: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19666: FND_LOG.string(FND_LOG.level_statement
19667: ,l_module_name||'.copy_oks_stream_levels_b'
19668: ,'Before call to copy_oks_stream_levels_b'
19669: );
19662: -------------Copy of OKS_STREAM_LEVELS_B---------------------------
19663: Begin
19664: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19665: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19666: FND_LOG.string(FND_LOG.level_statement
19667: ,l_module_name||'.copy_oks_stream_levels_b'
19668: ,'Before call to copy_oks_stream_levels_b'
19669: );
19670: END IF;
19674: ,P_To_Chr_ID => P_To_Chr_ID
19675: ,P_Partial_Copy_YN => 'N'
19676: ,x_return_status => l_return_status);
19677:
19678: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19679: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19680: FND_LOG.string(FND_LOG.level_statement
19681: ,l_module_name||'.copy_oks_stream_levels_b'
19682: ,'After call to copy_oks_stream_levels_b: x_return_status:'||l_return_status
19675: ,P_Partial_Copy_YN => 'N'
19676: ,x_return_status => l_return_status);
19677:
19678: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19679: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19680: FND_LOG.string(FND_LOG.level_statement
19681: ,l_module_name||'.copy_oks_stream_levels_b'
19682: ,'After call to copy_oks_stream_levels_b: x_return_status:'||l_return_status
19683: ||' '||SQLERRM
19676: ,x_return_status => l_return_status);
19677:
19678: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19679: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19680: FND_LOG.string(FND_LOG.level_statement
19681: ,l_module_name||'.copy_oks_stream_levels_b'
19682: ,'After call to copy_oks_stream_levels_b: x_return_status:'||l_return_status
19683: ||' '||SQLERRM
19684: );
19691: End;
19692: -------------------------------------------------------------------
19693: -------------Copy of OKS_LEVEL_ELEMENTS---------------------------
19694: Begin
19695: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19696: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19697: FND_LOG.string(FND_LOG.level_statement
19698: ,l_module_name||'.copy_oks_level_elements'
19699: ,'Before call to copy_oks_level_elements'
19692: -------------------------------------------------------------------
19693: -------------Copy of OKS_LEVEL_ELEMENTS---------------------------
19694: Begin
19695: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19696: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19697: FND_LOG.string(FND_LOG.level_statement
19698: ,l_module_name||'.copy_oks_level_elements'
19699: ,'Before call to copy_oks_level_elements'
19700: );
19693: -------------Copy of OKS_LEVEL_ELEMENTS---------------------------
19694: Begin
19695: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19696: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19697: FND_LOG.string(FND_LOG.level_statement
19698: ,l_module_name||'.copy_oks_level_elements'
19699: ,'Before call to copy_oks_level_elements'
19700: );
19701: END IF;
19705: ,P_To_Chr_ID => P_To_Chr_ID
19706: ,P_Partial_Copy_YN => 'N'
19707: ,x_return_status => l_return_status);
19708:
19709: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19710: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19711: FND_LOG.string(FND_LOG.level_statement
19712: ,l_module_name||'.copy_oks_level_elements'
19713: ,'After call to copy_oks_level_elements: x_return_status:'||l_return_status
19706: ,P_Partial_Copy_YN => 'N'
19707: ,x_return_status => l_return_status);
19708:
19709: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19710: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19711: FND_LOG.string(FND_LOG.level_statement
19712: ,l_module_name||'.copy_oks_level_elements'
19713: ,'After call to copy_oks_level_elements: x_return_status:'||l_return_status
19714: ||' '||SQLERRM
19707: ,x_return_status => l_return_status);
19708:
19709: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19710: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19711: FND_LOG.string(FND_LOG.level_statement
19712: ,l_module_name||'.copy_oks_level_elements'
19713: ,'After call to copy_oks_level_elements: x_return_status:'||l_return_status
19714: ||' '||SQLERRM
19715: );
19723: --------------------------------------------------------------------
19724:
19725: --------------Copy of Billing schedules for Skipped Lines-----------
19726: Begin
19727: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19728: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19729: FND_LOG.string(FND_LOG.level_statement
19730: ,l_module_name||'.copy_bsch_for_SkippedLines'
19731: ,'Before call to copy_bsch_for_SkippedLines'
19724:
19725: --------------Copy of Billing schedules for Skipped Lines-----------
19726: Begin
19727: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19728: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19729: FND_LOG.string(FND_LOG.level_statement
19730: ,l_module_name||'.copy_bsch_for_SkippedLines'
19731: ,'Before call to copy_bsch_for_SkippedLines'
19732: );
19725: --------------Copy of Billing schedules for Skipped Lines-----------
19726: Begin
19727: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19728: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19729: FND_LOG.string(FND_LOG.level_statement
19730: ,l_module_name||'.copy_bsch_for_SkippedLines'
19731: ,'Before call to copy_bsch_for_SkippedLines'
19732: );
19733: END IF;
19742: ,x_return_status => l_return_status
19743: ,x_msg_count => x_msg_count
19744: ,x_msg_data => x_msg_data);
19745:
19746: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19747: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19748: FND_LOG.string(FND_LOG.level_statement
19749: ,l_module_name||'.copy_bsch_for_SkippedLines'
19750: ,'After call to copy_bsch_for_SkippedLines: x_return_status:'||l_return_status
19743: ,x_msg_count => x_msg_count
19744: ,x_msg_data => x_msg_data);
19745:
19746: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19747: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19748: FND_LOG.string(FND_LOG.level_statement
19749: ,l_module_name||'.copy_bsch_for_SkippedLines'
19750: ,'After call to copy_bsch_for_SkippedLines: x_return_status:'||l_return_status
19751: ||' '||SQLERRM
19744: ,x_msg_data => x_msg_data);
19745:
19746: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19747: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19748: FND_LOG.string(FND_LOG.level_statement
19749: ,l_module_name||'.copy_bsch_for_SkippedLines'
19750: ,'After call to copy_bsch_for_SkippedLines: x_return_status:'||l_return_status
19751: ||' '||SQLERRM
19752: );
19763: --------------------------------------------------------------------
19764:
19765:
19766: ELSIF (l_SrcContractPPSetupExists_YN = 'N' AND l_GCDPPSetupExists_YN = 'Y') THEN
19767: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19768: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19769: FND_LOG.string(FND_LOG.level_statement
19770: ,l_module_name||'.create_bsch_using_PPSetup'
19771: ,'Before call to create_bsch_using_PPSetup'
19764:
19765:
19766: ELSIF (l_SrcContractPPSetupExists_YN = 'N' AND l_GCDPPSetupExists_YN = 'Y') THEN
19767: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19768: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19769: FND_LOG.string(FND_LOG.level_statement
19770: ,l_module_name||'.create_bsch_using_PPSetup'
19771: ,'Before call to create_bsch_using_PPSetup'
19772: );
19765:
19766: ELSIF (l_SrcContractPPSetupExists_YN = 'N' AND l_GCDPPSetupExists_YN = 'Y') THEN
19767: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19768: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19769: FND_LOG.string(FND_LOG.level_statement
19770: ,l_module_name||'.create_bsch_using_PPSetup'
19771: ,'Before call to create_bsch_using_PPSetup'
19772: );
19773: END IF;
19780: ,x_return_status => l_return_status
19781: ,x_msg_count => x_msg_count
19782: ,x_msg_data => x_msg_data);
19783:
19784: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19785: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19786: FND_LOG.string(FND_LOG.level_statement
19787: ,l_module_name||'.create_bsch_using_PPSetup'
19788: ,'After call to create_bsch_using_PPSetup: x_return_status:'||l_return_status
19781: ,x_msg_count => x_msg_count
19782: ,x_msg_data => x_msg_data);
19783:
19784: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19785: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19786: FND_LOG.string(FND_LOG.level_statement
19787: ,l_module_name||'.create_bsch_using_PPSetup'
19788: ,'After call to create_bsch_using_PPSetup: x_return_status:'||l_return_status
19789: ||' '||SQLERRM
19782: ,x_msg_data => x_msg_data);
19783:
19784: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19785: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19786: FND_LOG.string(FND_LOG.level_statement
19787: ,l_module_name||'.create_bsch_using_PPSetup'
19788: ,'After call to create_bsch_using_PPSetup: x_return_status:'||l_return_status
19789: ||' '||SQLERRM
19790: );
19916:
19917: --=====================End of BillRate Schedule copy============================
19918:
19919:
19920: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
19921: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
19922: FND_LOG.string(FND_LOG.level_procedure
19923: ,l_module_name||'.End'
19924: ,',x_return_status='||x_return_status
19917: --=====================End of BillRate Schedule copy============================
19918:
19919:
19920: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
19921: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
19922: FND_LOG.string(FND_LOG.level_procedure
19923: ,l_module_name||'.End'
19924: ,',x_return_status='||x_return_status
19925: );
19918:
19919:
19920: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
19921: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
19922: FND_LOG.string(FND_LOG.level_procedure
19923: ,l_module_name||'.End'
19924: ,',x_return_status='||x_return_status
19925: );
19926: END IF;
19942: CLOSE GetOKCOKSLinesB_Renew;
19943: END IF;
19944:
19945: x_return_status := l_return_status;
19946: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) then
19947: FND_LOG.string(FND_LOG.level_procedure
19948: ,l_module_name||'.EXCEPTION'
19949: ,',x_return_status='||x_return_status
19950: ||'Error Msg='||SQLERRM
19943: END IF;
19944:
19945: x_return_status := l_return_status;
19946: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) then
19947: FND_LOG.string(FND_LOG.level_procedure
19948: ,l_module_name||'.EXCEPTION'
19949: ,',x_return_status='||x_return_status
19950: ||'Error Msg='||SQLERRM
19951: );
21344: j BINARY_INTEGER := 0;
21345:
21346: Begin
21347: x_return_status := l_return_status;
21348: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
21349: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
21350: FND_LOG.string(FND_LOG.level_procedure
21351: ,l_module_name||'.Begin'
21352: ,' P_From_Chr_ID='||P_From_Chr_ID
21345:
21346: Begin
21347: x_return_status := l_return_status;
21348: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
21349: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
21350: FND_LOG.string(FND_LOG.level_procedure
21351: ,l_module_name||'.Begin'
21352: ,' P_From_Chr_ID='||P_From_Chr_ID
21353: ||',P_To_Chr_ID='||P_To_Chr_ID
21346: Begin
21347: x_return_status := l_return_status;
21348: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
21349: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
21350: FND_LOG.string(FND_LOG.level_procedure
21351: ,l_module_name||'.Begin'
21352: ,' P_From_Chr_ID='||P_From_Chr_ID
21353: ||',P_To_Chr_ID='||P_To_Chr_ID
21354: ||',P_Lines_Tbl.COUNT ='||P_Lines_Tbl.COUNT
21404: End If;
21405: End;
21406: ------------------------------------------
21407: -----Convert PLSQL table of records P_Lines_Tbl into PLSQL Record of tables------
21408: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
21409: FND_LOG.string(FND_LOG.level_statement
21410: ,l_module_name
21411: ,'Count of rows in P_Lines_Tbl='||P_Lines_Tbl.COUNT);
21412: End If;
21405: End;
21406: ------------------------------------------
21407: -----Convert PLSQL table of records P_Lines_Tbl into PLSQL Record of tables------
21408: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
21409: FND_LOG.string(FND_LOG.level_statement
21410: ,l_module_name
21411: ,'Count of rows in P_Lines_Tbl='||P_Lines_Tbl.COUNT);
21412: End If;
21413:
21418: ApiLinesRecTab.ToLineTab(j) := P_Lines_Tbl(i).to_line;
21419: ApiLinesRecTab.LineExistsYNTab(j) := P_Lines_Tbl(i).line_exists_yn;
21420: ApiLinesRecTab.LineExpYNTab(j) := P_Lines_Tbl(i).line_exp_yn;
21421:
21422: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
21423: FND_LOG.string(FND_LOG.level_statement
21424: ,l_module_name
21425: ,'ID='||P_Lines_Tbl(i).id
21426: ||', TO_K='||P_Lines_Tbl(i).to_k
21419: ApiLinesRecTab.LineExistsYNTab(j) := P_Lines_Tbl(i).line_exists_yn;
21420: ApiLinesRecTab.LineExpYNTab(j) := P_Lines_Tbl(i).line_exp_yn;
21421:
21422: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
21423: FND_LOG.string(FND_LOG.level_statement
21424: ,l_module_name
21425: ,'ID='||P_Lines_Tbl(i).id
21426: ||', TO_K='||P_Lines_Tbl(i).to_k
21427: ||', TO_LINE='||P_Lines_Tbl(i).to_line
21434:
21435: EXCEPTION
21436: WHEN OTHERS THEN
21437: NULL;
21438: If (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
21439: FND_LOG.string(FND_LOG.level_unexpected
21440: ,l_module_name
21441: ,SQLERRM);
21442: End If;
21435: EXCEPTION
21436: WHEN OTHERS THEN
21437: NULL;
21438: If (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
21439: FND_LOG.string(FND_LOG.level_unexpected
21440: ,l_module_name
21441: ,SQLERRM);
21442: End If;
21443: End;
21687: START WITH okcB.ID = ApiLinesRecTab.IDTab(i);
21688:
21689: EXCEPTION
21690: WHEN OTHERS THEN
21691: If (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
21692: FND_LOG.string(FND_LOG.level_unexpected
21693: ,l_module_name
21694: ,'During Bulk Insert into OKC_K_LINES_B_TEMP : a) :'||SQLERRM);
21695: End If;
21688:
21689: EXCEPTION
21690: WHEN OTHERS THEN
21691: If (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
21692: FND_LOG.string(FND_LOG.level_unexpected
21693: ,l_module_name
21694: ,'During Bulk Insert into OKC_K_LINES_B_TEMP : a) :'||SQLERRM);
21695: End If;
21696:
22066: );
22067:
22068: EXCEPTION
22069: WHEN OTHERS THEN
22070: If (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
22071: FND_LOG.string(FND_LOG.level_unexpected
22072: ,l_module_name
22073: ,'During Bulk Insert into OKC_K_LINES_B_TEMP : b) :'||SQLERRM);
22074: End If;
22067:
22068: EXCEPTION
22069: WHEN OTHERS THEN
22070: If (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
22071: FND_LOG.string(FND_LOG.level_unexpected
22072: ,l_module_name
22073: ,'During Bulk Insert into OKC_K_LINES_B_TEMP : b) :'||SQLERRM);
22074: End If;
22075:
22317:
22318: EXCEPTION
22319: WHEN OTHERS THEN
22320:
22321: /* IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
22322: FND_LOG.string(FND_LOG.level_unexpected
22323: ,l_module_name
22324: ,'During Bulk Insert into OKC_K_LINES_B_TEMP : c) :'||SQLERRM);
22325: END IF; */
22318: EXCEPTION
22319: WHEN OTHERS THEN
22320:
22321: /* IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
22322: FND_LOG.string(FND_LOG.level_unexpected
22323: ,l_module_name
22324: ,'During Bulk Insert into OKC_K_LINES_B_TEMP : c) :'||SQLERRM);
22325: END IF; */
22326:
22608:
22609: EXCEPTION
22610: WHEN OTHERS THEN
22611: /*
22612: If (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
22613: FND_LOG.string(FND_LOG.level_unexpected
22614: ,l_module_name
22615: ,'During Bulk Insert into OKC_K_LINES_B_TEMP : d) :'||SQLERRM);
22616: End If;
22609: EXCEPTION
22610: WHEN OTHERS THEN
22611: /*
22612: If (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
22613: FND_LOG.string(FND_LOG.level_unexpected
22614: ,l_module_name
22615: ,'During Bulk Insert into OKC_K_LINES_B_TEMP : d) :'||SQLERRM);
22616: End If;
22617: */
22621: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
22622: RAISE G_EXCEPTION_HALT_VALIDATION;
22623: End;
22624:
22625: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
22626: FND_LOG.string(FND_LOG.level_statement
22627: ,l_module_name
22628: ,'After Bulk Insert into OKC_K_LINES_B_TEMP'
22629: );
22622: RAISE G_EXCEPTION_HALT_VALIDATION;
22623: End;
22624:
22625: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
22626: FND_LOG.string(FND_LOG.level_statement
22627: ,l_module_name
22628: ,'After Bulk Insert into OKC_K_LINES_B_TEMP'
22629: );
22630: End If;
22646: AND a.CLE_ID IS NOT NULL
22647: AND a.LINE_EXISTS_YN = 'N';
22648: EXCEPTION
22649: WHEN OTHERS THEN
22650: If (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
22651: FND_LOG.string(FND_LOG.level_unexpected
22652: ,l_module_name
22653: ,'During update of cle_id in OKC_K_LINES_B_TEMP :'
22654: ||SQLERRM
22647: AND a.LINE_EXISTS_YN = 'N';
22648: EXCEPTION
22649: WHEN OTHERS THEN
22650: If (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
22651: FND_LOG.string(FND_LOG.level_unexpected
22652: ,l_module_name
22653: ,'During update of cle_id in OKC_K_LINES_B_TEMP :'
22654: ||SQLERRM
22655: );
22690: IF (P_Lines_Tbl.COUNT > 0) then ---Start of Check of P_Lines_Tbl.COUNT > 0 *****************
22691: ---for bulk insert into OKC_K_LINES_B, *****************
22692: ---OKS_K_LINES_B,OKC_K_ITEMS *****************
22693:
22694: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
22695: FND_LOG.string(FND_LOG.level_statement
22696: ,l_module_name
22697: ,'Start of BULK FETCH from OKC_K_LINES_B_TEMP'
22698: ||'Count of Lines in P_Lines_Tbl='||P_Lines_Tbl.COUNT
22691: ---for bulk insert into OKC_K_LINES_B, *****************
22692: ---OKS_K_LINES_B,OKC_K_ITEMS *****************
22693:
22694: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
22695: FND_LOG.string(FND_LOG.level_statement
22696: ,l_module_name
22697: ,'Start of BULK FETCH from OKC_K_LINES_B_TEMP'
22698: ||'Count of Lines in P_Lines_Tbl='||P_Lines_Tbl.COUNT
22699: );
23771: ,FND_GLOBAL.LOGIN_ID
23772: FROM
23773: DUAL;
23774:
23775: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
23776: FND_LOG.string(FND_LOG.level_statement
23777: ,l_module_name
23778: ,'After BULK INSERT into OKC_K_LINES_B'
23779: );
23772: FROM
23773: DUAL;
23774:
23775: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
23776: FND_LOG.string(FND_LOG.level_statement
23777: ,l_module_name
23778: ,'After BULK INSERT into OKC_K_LINES_B'
23779: );
23780: End If;
23994: DUAL
23995: WHERE
23996: OKCOKSLinesRecTab.OksB_OldOksLineID(i) IS NOT NULL;
23997:
23998: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
23999: FND_LOG.string(FND_LOG.level_statement
24000: ,l_module_name
24001: ,'After BULK INSERT into OKS_K_LINES_B'
24002: );
23995: WHERE
23996: OKCOKSLinesRecTab.OksB_OldOksLineID(i) IS NOT NULL;
23997:
23998: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
23999: FND_LOG.string(FND_LOG.level_statement
24000: ,l_module_name
24001: ,'After BULK INSERT into OKS_K_LINES_B'
24002: );
24003: End If;
24059: FROM
24060: DUAL
24061: where OKCOKSLinesRecTab.OkcI_OldOkcItemID(i) IS NOT NULL;
24062:
24063: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
24064: FND_LOG.string(FND_LOG.level_statement
24065: ,l_module_name
24066: ,'After BULK INSERT into OKC_K_ITEMS'
24067: );
24060: DUAL
24061: where OKCOKSLinesRecTab.OkcI_OldOkcItemID(i) IS NOT NULL;
24062:
24063: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
24064: FND_LOG.string(FND_LOG.level_statement
24065: ,l_module_name
24066: ,'After BULK INSERT into OKC_K_ITEMS'
24067: );
24068: End If;
24137: IF (OKCOKSLinesRecTab.OkcB_LSE_ID(i) = 1 OR OKCOKSLinesRecTab.OkcB_LSE_ID(i) = 19) THEN
24138:
24139: --Instantiate Counters Events
24140:
24141: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
24142: FND_LOG.string(FND_LOG.level_statement
24143: ,l_module_name
24144: ,'Before instantiate_counters_events'
24145: ||' p_old_cle_id='||OKCOKSLinesRecTab.OkcB_OldOKCLineID(i)
24138:
24139: --Instantiate Counters Events
24140:
24141: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
24142: FND_LOG.string(FND_LOG.level_statement
24143: ,l_module_name
24144: ,'Before instantiate_counters_events'
24145: ||' p_old_cle_id='||OKCOKSLinesRecTab.OkcB_OldOKCLineID(i)
24146: ||',p_old_lse_id='||OKCOKSLinesRecTab.OkcB_LSE_ID(i)
24167: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
24168: RAISE G_EXCEPTION_HALT_VALIDATION;
24169: END IF;
24170:
24171: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
24172: FND_LOG.string(FND_LOG.level_statement
24173: ,l_module_name
24174: ,'After instantiate_counters_events'
24175: ||', x_return_status ='||l_return_status
24168: RAISE G_EXCEPTION_HALT_VALIDATION;
24169: END IF;
24170:
24171: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
24172: FND_LOG.string(FND_LOG.level_statement
24173: ,l_module_name
24174: ,'After instantiate_counters_events'
24175: ||', x_return_status ='||l_return_status
24176: );
24184: ,x_msg_data => x_msg_data
24185: ,x_return_status => l_return_status
24186: ,p_line_id => OKCOKSLinesRecTab.OkcB_NewOKCLineID(i)
24187: );
24188: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24189: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24190: FND_LOG.string(FND_LOG.level_statement
24191: ,l_module_name||'.OKS_COVERAGES_PVT.COPY_NOTES'
24192: ,'After call to copy_notes for line: x_return_status:'||l_return_status
24185: ,x_return_status => l_return_status
24186: ,p_line_id => OKCOKSLinesRecTab.OkcB_NewOKCLineID(i)
24187: );
24188: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24189: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24190: FND_LOG.string(FND_LOG.level_statement
24191: ,l_module_name||'.OKS_COVERAGES_PVT.COPY_NOTES'
24192: ,'After call to copy_notes for line: x_return_status:'||l_return_status
24193: );
24186: ,p_line_id => OKCOKSLinesRecTab.OkcB_NewOKCLineID(i)
24187: );
24188: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24189: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24190: FND_LOG.string(FND_LOG.level_statement
24191: ,l_module_name||'.OKS_COVERAGES_PVT.COPY_NOTES'
24192: ,'After call to copy_notes for line: x_return_status:'||l_return_status
24193: );
24194: END IF;
24216: ,x_return_status => l_return_status
24217: ,x_msg_count => x_msg_count
24218: ,x_msg_data => x_msg_data);
24219:
24220: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24221: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24222: FND_LOG.string(FND_LOG.level_statement
24223: ,l_module_name||'.QP_LOCK_PRICELIST_GRP.Lock_Price'
24224: ,'After call to Lock_Price API for line: x_return_status :'||l_return_status
24217: ,x_msg_count => x_msg_count
24218: ,x_msg_data => x_msg_data);
24219:
24220: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24221: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24222: FND_LOG.string(FND_LOG.level_statement
24223: ,l_module_name||'.QP_LOCK_PRICELIST_GRP.Lock_Price'
24224: ,'After call to Lock_Price API for line: x_return_status :'||l_return_status
24225: ||'Old Locked Price List Line ID='||OKCOKSLinesRecTab.OksB_LOCKED_PRICE_LIST_LINE_ID(i)
24218: ,x_msg_data => x_msg_data);
24219:
24220: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24221: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24222: FND_LOG.string(FND_LOG.level_statement
24223: ,l_module_name||'.QP_LOCK_PRICELIST_GRP.Lock_Price'
24224: ,'After call to Lock_Price API for line: x_return_status :'||l_return_status
24225: ||'Old Locked Price List Line ID='||OKCOKSLinesRecTab.OksB_LOCKED_PRICE_LIST_LINE_ID(i)
24226: ||'New Locked Price List Line ID='||l_locked_price_list_line_id
24255:
24256: Begin
24257: If (OKCOKSLinesRecTab.OksB_OldOksLineID(i) IS NOT NULL AND OKCOKSLinesRecTab.OksB_TRXN_EXTENSION_ID(i) IS NOT NULL) then
24258: --Generate new transaction extension id;
24259: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24260: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24261: FND_LOG.string(FND_LOG.level_statement
24262: ,l_module_name||'.Create_Transaction_Extension'
24263: ,'Before call to Create_Transaction_Extension for line in COPY_LINE_COMPONENTS'
24256: Begin
24257: If (OKCOKSLinesRecTab.OksB_OldOksLineID(i) IS NOT NULL AND OKCOKSLinesRecTab.OksB_TRXN_EXTENSION_ID(i) IS NOT NULL) then
24258: --Generate new transaction extension id;
24259: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24260: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24261: FND_LOG.string(FND_LOG.level_statement
24262: ,l_module_name||'.Create_Transaction_Extension'
24263: ,'Before call to Create_Transaction_Extension for line in COPY_LINE_COMPONENTS'
24264: ||'Old Trxn ID='||OKCOKSLinesRecTab.OksB_TRXN_EXTENSION_ID(i)
24257: If (OKCOKSLinesRecTab.OksB_OldOksLineID(i) IS NOT NULL AND OKCOKSLinesRecTab.OksB_TRXN_EXTENSION_ID(i) IS NOT NULL) then
24258: --Generate new transaction extension id;
24259: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24260: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24261: FND_LOG.string(FND_LOG.level_statement
24262: ,l_module_name||'.Create_Transaction_Extension'
24263: ,'Before call to Create_Transaction_Extension for line in COPY_LINE_COMPONENTS'
24264: ||'Old Trxn ID='||OKCOKSLinesRecTab.OksB_TRXN_EXTENSION_ID(i)
24265: );
24279: ,x_return_status => l_return_status) ;
24280:
24281:
24282:
24283: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24284: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24285: FND_LOG.string(FND_LOG.level_statement
24286: ,l_module_name||'.Create_Transaction_Extension'
24287: ,'After call to Create_Transaction_Extension for line: x_return_status :'||l_return_status
24280:
24281:
24282:
24283: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24284: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24285: FND_LOG.string(FND_LOG.level_statement
24286: ,l_module_name||'.Create_Transaction_Extension'
24287: ,'After call to Create_Transaction_Extension for line: x_return_status :'||l_return_status
24288: ||'New Trxn ID='||l_trxn_extension_id
24281:
24282:
24283: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24284: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24285: FND_LOG.string(FND_LOG.level_statement
24286: ,l_module_name||'.Create_Transaction_Extension'
24287: ,'After call to Create_Transaction_Extension for line: x_return_status :'||l_return_status
24288: ||'New Trxn ID='||l_trxn_extension_id
24289: );
24303: WHERE ID = OKCOKSLinesRecTab.OksB_NewOksLineID(i)
24304: AND ORIG_SYSTEM_ID1 = OKCOKSLinesRecTab.OksB_OldOksLineID(i);
24305:
24306: If SQL%NOTFOUND then
24307: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24308: FND_LOG.string(FND_LOG.level_statement
24309: ,l_module_name||'.Create_Transaction_Extension'
24310: ,'After call to Create_Transaction_Extension, Error in Update OKS_K_LINES_B, row not found for update'
24311: );
24304: AND ORIG_SYSTEM_ID1 = OKCOKSLinesRecTab.OksB_OldOksLineID(i);
24305:
24306: If SQL%NOTFOUND then
24307: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24308: FND_LOG.string(FND_LOG.level_statement
24309: ,l_module_name||'.Create_Transaction_Extension'
24310: ,'After call to Create_Transaction_Extension, Error in Update OKS_K_LINES_B, row not found for update'
24311: );
24312: END IF;
24322: -------------------------------------------------------------------------------------------------
24323: -----------Copy subscription schedules for subscription lines chosen by user--------
24324: If (OKCOKSLinesRecTab.OkcB_LSE_ID(i) = 46) then
24325: Begin
24326: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24327: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24328: FND_LOG.string(FND_LOG.level_statement
24329: ,l_module_name||'.OKS_SETUP_UTIL_PUB.copy_subscr_inst for Lines chosen by user'
24330: ,'Before call to OKS_SETUP_UTIL_PUB.copy_subscr_inst for Lines chosen by user'
24323: -----------Copy subscription schedules for subscription lines chosen by user--------
24324: If (OKCOKSLinesRecTab.OkcB_LSE_ID(i) = 46) then
24325: Begin
24326: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24327: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24328: FND_LOG.string(FND_LOG.level_statement
24329: ,l_module_name||'.OKS_SETUP_UTIL_PUB.copy_subscr_inst for Lines chosen by user'
24330: ,'Before call to OKS_SETUP_UTIL_PUB.copy_subscr_inst for Lines chosen by user'
24331: ||':'||to_char(sysdate,'DD/MM/YY HH:MI:SS')
24324: If (OKCOKSLinesRecTab.OkcB_LSE_ID(i) = 46) then
24325: Begin
24326: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24327: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24328: FND_LOG.string(FND_LOG.level_statement
24329: ,l_module_name||'.OKS_SETUP_UTIL_PUB.copy_subscr_inst for Lines chosen by user'
24330: ,'Before call to OKS_SETUP_UTIL_PUB.copy_subscr_inst for Lines chosen by user'
24331: ||':'||to_char(sysdate,'DD/MM/YY HH:MI:SS')
24332: );
24337: ,p_cle_id => OKCOKSLinesRecTab.OkcB_NewOkcLineID(i)
24338: ,p_intent => 'COPY'
24339: ,x_return_status => l_return_status);
24340:
24341: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24342: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24343: FND_LOG.string(FND_LOG.level_statement
24344: ,l_module_name||'.OKS_SETUP_UTIL_PUB.copy_subscr_inst'
24345: ,'After call to OKS_SETUP_UTIL_PUB.copy_subscr_inst: x_return_status:'||l_return_status
24338: ,p_intent => 'COPY'
24339: ,x_return_status => l_return_status);
24340:
24341: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24342: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24343: FND_LOG.string(FND_LOG.level_statement
24344: ,l_module_name||'.OKS_SETUP_UTIL_PUB.copy_subscr_inst'
24345: ,'After call to OKS_SETUP_UTIL_PUB.copy_subscr_inst: x_return_status:'||l_return_status
24346: ||':'||to_char(sysdate,'DD/MM/YY HH:MI:SS')
24339: ,x_return_status => l_return_status);
24340:
24341: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24342: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24343: FND_LOG.string(FND_LOG.level_statement
24344: ,l_module_name||'.OKS_SETUP_UTIL_PUB.copy_subscr_inst'
24345: ,'After call to OKS_SETUP_UTIL_PUB.copy_subscr_inst: x_return_status:'||l_return_status
24346: ||':'||to_char(sysdate,'DD/MM/YY HH:MI:SS')
24347: ||' '||SQLERRM
24595: ,P_Partial_Copy_YN => 'Y'
24596: ,P_Target_Contract_New_YN => P_Target_Contract_New_YN
24597: ,x_return_status => l_return_Status);
24598:
24599: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24600: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24601: FND_LOG.string(FND_LOG.level_statement
24602: ,l_module_name||'.GenerateNewLineNumber'
24603: ,'After call to GenerateNewLineNumber for line: x_return_status :'||l_return_status
24596: ,P_Target_Contract_New_YN => P_Target_Contract_New_YN
24597: ,x_return_status => l_return_Status);
24598:
24599: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24600: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24601: FND_LOG.string(FND_LOG.level_statement
24602: ,l_module_name||'.GenerateNewLineNumber'
24603: ,'After call to GenerateNewLineNumber for line: x_return_status :'||l_return_status
24604: );
24597: ,x_return_status => l_return_Status);
24598:
24599: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24600: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24601: FND_LOG.string(FND_LOG.level_statement
24602: ,l_module_name||'.GenerateNewLineNumber'
24603: ,'After call to GenerateNewLineNumber for line: x_return_status :'||l_return_status
24604: );
24605: END IF;
24614:
24615: ------------Copy of OKC_K_LINES_TL--------------------------------------------------
24616: IF (P_Lines_Tbl.COUNT > 0) then
24617: Begin
24618: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24619: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24620: FND_LOG.string(FND_LOG.level_statement
24621: ,l_module_name||'.copy_okc_k_lines_tl'
24622: ,'Before call to copy_okc_k_lines_tl'
24615: ------------Copy of OKC_K_LINES_TL--------------------------------------------------
24616: IF (P_Lines_Tbl.COUNT > 0) then
24617: Begin
24618: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24619: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24620: FND_LOG.string(FND_LOG.level_statement
24621: ,l_module_name||'.copy_okc_k_lines_tl'
24622: ,'Before call to copy_okc_k_lines_tl'
24623: );
24616: IF (P_Lines_Tbl.COUNT > 0) then
24617: Begin
24618: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24619: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24620: FND_LOG.string(FND_LOG.level_statement
24621: ,l_module_name||'.copy_okc_k_lines_tl'
24622: ,'Before call to copy_okc_k_lines_tl'
24623: );
24624: END IF;
24628: ,P_Partial_Copy_YN => 'Y'
24629: ,P_Lines_Count => P_Lines_Tbl.COUNT
24630: ,x_return_status => l_return_status);
24631:
24632: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24633: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24634: FND_LOG.string(FND_LOG.level_statement
24635: ,l_module_name||'.copy_okc_k_lines_tl'
24636: ,'After call to copy_okc_k_lines_tl: x_return_status:'||l_return_status
24629: ,P_Lines_Count => P_Lines_Tbl.COUNT
24630: ,x_return_status => l_return_status);
24631:
24632: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24633: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24634: FND_LOG.string(FND_LOG.level_statement
24635: ,l_module_name||'.copy_okc_k_lines_tl'
24636: ,'After call to copy_okc_k_lines_tl: x_return_status:'||l_return_status
24637: ||' '||SQLERRM
24630: ,x_return_status => l_return_status);
24631:
24632: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24633: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24634: FND_LOG.string(FND_LOG.level_statement
24635: ,l_module_name||'.copy_okc_k_lines_tl'
24636: ,'After call to copy_okc_k_lines_tl: x_return_status:'||l_return_status
24637: ||' '||SQLERRM
24638: );
24648: --------------------------------------------------------------------------------------
24649: -----------Copy of OKC_PARTY_ROLES_B------------------------------------------------
24650: IF (P_Lines_Tbl.COUNT > 0) then
24651: Begin
24652: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24653: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24654: FND_LOG.string(FND_LOG.level_statement
24655: ,l_module_name||'.copy_okc_k_party_roles_b'
24656: ,'Before call to copy_okc_k_party_roles_b'
24649: -----------Copy of OKC_PARTY_ROLES_B------------------------------------------------
24650: IF (P_Lines_Tbl.COUNT > 0) then
24651: Begin
24652: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24653: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24654: FND_LOG.string(FND_LOG.level_statement
24655: ,l_module_name||'.copy_okc_k_party_roles_b'
24656: ,'Before call to copy_okc_k_party_roles_b'
24657: );
24650: IF (P_Lines_Tbl.COUNT > 0) then
24651: Begin
24652: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24653: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24654: FND_LOG.string(FND_LOG.level_statement
24655: ,l_module_name||'.copy_okc_k_party_roles_b'
24656: ,'Before call to copy_okc_k_party_roles_b'
24657: );
24658: END IF;
24663: ,P_Partial_Copy_YN => 'Y'
24664: ,P_Lines_Count => P_Lines_Tbl.COUNT
24665: ,x_return_status => l_return_status);
24666:
24667: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24668: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24669: FND_LOG.string(FND_LOG.level_statement
24670: ,l_module_name||'.copy_okc_k_party_roles_b'
24671: ,'After call to copy_okc_k_party_roles_b: x_return_status:'||l_return_status
24664: ,P_Lines_Count => P_Lines_Tbl.COUNT
24665: ,x_return_status => l_return_status);
24666:
24667: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24668: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24669: FND_LOG.string(FND_LOG.level_statement
24670: ,l_module_name||'.copy_okc_k_party_roles_b'
24671: ,'After call to copy_okc_k_party_roles_b: x_return_status:'||l_return_status
24672: ||' '||SQLERRM
24665: ,x_return_status => l_return_status);
24666:
24667: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24668: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24669: FND_LOG.string(FND_LOG.level_statement
24670: ,l_module_name||'.copy_okc_k_party_roles_b'
24671: ,'After call to copy_okc_k_party_roles_b: x_return_status:'||l_return_status
24672: ||' '||SQLERRM
24673: );
24682: -------------------------------------------------------------------------------------
24683: ------------Copy of OKC_PARTY_ROLES_TL------------------------------
24684: IF (P_Lines_Tbl.COUNT > 0) then
24685: Begin
24686: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24687: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24688: FND_LOG.string(FND_LOG.level_statement
24689: ,l_module_name||'.copy_okc_k_party_roles_tl'
24690: ,'Before call to copy_okc_k_party_roles_tl'
24683: ------------Copy of OKC_PARTY_ROLES_TL------------------------------
24684: IF (P_Lines_Tbl.COUNT > 0) then
24685: Begin
24686: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24687: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24688: FND_LOG.string(FND_LOG.level_statement
24689: ,l_module_name||'.copy_okc_k_party_roles_tl'
24690: ,'Before call to copy_okc_k_party_roles_tl'
24691: );
24684: IF (P_Lines_Tbl.COUNT > 0) then
24685: Begin
24686: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24687: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24688: FND_LOG.string(FND_LOG.level_statement
24689: ,l_module_name||'.copy_okc_k_party_roles_tl'
24690: ,'Before call to copy_okc_k_party_roles_tl'
24691: );
24692: END IF;
24696: ,P_Partial_Copy_YN => 'Y'
24697: ,P_Lines_Count => P_Lines_Tbl.COUNT
24698: ,x_return_status => l_return_status);
24699:
24700: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24701: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24702: FND_LOG.string(FND_LOG.level_statement
24703: ,l_module_name||'.copy_okc_k_party_roles_tl'
24704: ,'After call to copy_okc_k_party_roles_tl: x_return_status:'||l_return_status
24697: ,P_Lines_Count => P_Lines_Tbl.COUNT
24698: ,x_return_status => l_return_status);
24699:
24700: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24701: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24702: FND_LOG.string(FND_LOG.level_statement
24703: ,l_module_name||'.copy_okc_k_party_roles_tl'
24704: ,'After call to copy_okc_k_party_roles_tl: x_return_status:'||l_return_status
24705: ||' '||SQLERRM
24698: ,x_return_status => l_return_status);
24699:
24700: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24701: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24702: FND_LOG.string(FND_LOG.level_statement
24703: ,l_module_name||'.copy_okc_k_party_roles_tl'
24704: ,'After call to copy_okc_k_party_roles_tl: x_return_status:'||l_return_status
24705: ||' '||SQLERRM
24706: );
24715: ----------------------------------------------------------------------
24716: ------------Copy of OKC_CONTACTS--------------------------------------
24717: IF (P_Lines_Tbl.COUNT > 0) then
24718: Begin
24719: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24720: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24721: FND_LOG.string(FND_LOG.level_statement
24722: ,l_module_name||'.copy_okc_contacts'
24723: ,'Before call to copy_okc_contacts'
24716: ------------Copy of OKC_CONTACTS--------------------------------------
24717: IF (P_Lines_Tbl.COUNT > 0) then
24718: Begin
24719: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24720: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24721: FND_LOG.string(FND_LOG.level_statement
24722: ,l_module_name||'.copy_okc_contacts'
24723: ,'Before call to copy_okc_contacts'
24724: );
24717: IF (P_Lines_Tbl.COUNT > 0) then
24718: Begin
24719: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24720: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24721: FND_LOG.string(FND_LOG.level_statement
24722: ,l_module_name||'.copy_okc_contacts'
24723: ,'Before call to copy_okc_contacts'
24724: );
24725: END IF;
24729: ,P_Partial_Copy_YN => 'Y'
24730: ,P_Lines_Count => P_Lines_Tbl.COUNT
24731: ,x_return_status => l_return_status);
24732:
24733: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24734: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24735: FND_LOG.string(FND_LOG.level_statement
24736: ,l_module_name||'.copy_okc_contacts'
24737: ,'After call to copy_okc_contacts: x_return_status:'||l_return_status
24730: ,P_Lines_Count => P_Lines_Tbl.COUNT
24731: ,x_return_status => l_return_status);
24732:
24733: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24734: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24735: FND_LOG.string(FND_LOG.level_statement
24736: ,l_module_name||'.copy_okc_contacts'
24737: ,'After call to copy_okc_contacts: x_return_status:'||l_return_status
24738: ||' '||SQLERRM
24731: ,x_return_status => l_return_status);
24732:
24733: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24734: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24735: FND_LOG.string(FND_LOG.level_statement
24736: ,l_module_name||'.copy_okc_contacts'
24737: ,'After call to copy_okc_contacts: x_return_status:'||l_return_status
24738: ||' '||SQLERRM
24739: );
24746: END IF;
24747: -------------------------------------------------------------------------
24748: ------------Copy of OKC_PRICE_ATT_VALUES-----------------------------
24749: Begin
24750: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24751: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24752: FND_LOG.string(FND_LOG.level_statement
24753: ,l_module_name||'.copy_okc_price_att_values'
24754: ,'Before call to copy_okc_price_att_values'
24747: -------------------------------------------------------------------------
24748: ------------Copy of OKC_PRICE_ATT_VALUES-----------------------------
24749: Begin
24750: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24751: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24752: FND_LOG.string(FND_LOG.level_statement
24753: ,l_module_name||'.copy_okc_price_att_values'
24754: ,'Before call to copy_okc_price_att_values'
24755: );
24748: ------------Copy of OKC_PRICE_ATT_VALUES-----------------------------
24749: Begin
24750: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24751: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24752: FND_LOG.string(FND_LOG.level_statement
24753: ,l_module_name||'.copy_okc_price_att_values'
24754: ,'Before call to copy_okc_price_att_values'
24755: );
24756: END IF;
24761: ,P_Target_Contract_New_YN => P_Target_Contract_New_YN
24762: ,P_Lines_Count => P_Lines_Tbl.COUNT
24763: ,x_return_status => l_return_status) ;
24764:
24765: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24766: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24767: FND_LOG.string(FND_LOG.level_statement
24768: ,l_module_name||'.copy_okc_price_att_values'
24769: ,'After call to copy_okc_price_att_values: x_return_status:'||l_return_status
24762: ,P_Lines_Count => P_Lines_Tbl.COUNT
24763: ,x_return_status => l_return_status) ;
24764:
24765: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24766: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24767: FND_LOG.string(FND_LOG.level_statement
24768: ,l_module_name||'.copy_okc_price_att_values'
24769: ,'After call to copy_okc_price_att_values: x_return_status:'||l_return_status
24770: ||' '||SQLERRM
24763: ,x_return_status => l_return_status) ;
24764:
24765: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24766: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24767: FND_LOG.string(FND_LOG.level_statement
24768: ,l_module_name||'.copy_okc_price_att_values'
24769: ,'After call to copy_okc_price_att_values: x_return_status:'||l_return_status
24770: ||' '||SQLERRM
24771: );
24778: End;
24779: ---------------------------------------------------------------------
24780: -----------Copy of OKC_PRICE_ADJUSTMENTS---------------------------
24781: Begin
24782: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24783: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24784: FND_LOG.string(FND_LOG.level_statement
24785: ,l_module_name||'.copy_okc_price_adjustments'
24786: ,'Before call to copy_okc_price_adjustments'
24779: ---------------------------------------------------------------------
24780: -----------Copy of OKC_PRICE_ADJUSTMENTS---------------------------
24781: Begin
24782: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24783: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24784: FND_LOG.string(FND_LOG.level_statement
24785: ,l_module_name||'.copy_okc_price_adjustments'
24786: ,'Before call to copy_okc_price_adjustments'
24787: );
24780: -----------Copy of OKC_PRICE_ADJUSTMENTS---------------------------
24781: Begin
24782: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24783: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24784: FND_LOG.string(FND_LOG.level_statement
24785: ,l_module_name||'.copy_okc_price_adjustments'
24786: ,'Before call to copy_okc_price_adjustments'
24787: );
24788: END IF;
24794: ,P_Target_Contract_New_YN => P_Target_Contract_New_YN
24795: ,P_Lines_Count => P_Lines_Tbl.COUNT
24796: ,x_return_status => l_return_status);
24797:
24798: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24799: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24800: FND_LOG.string(FND_LOG.level_statement
24801: ,l_module_name||'.copy_okc_price_adjustments'
24802: ,'After call to copy_okc_price_adjustments: x_return_status:'||l_return_status
24795: ,P_Lines_Count => P_Lines_Tbl.COUNT
24796: ,x_return_status => l_return_status);
24797:
24798: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24799: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24800: FND_LOG.string(FND_LOG.level_statement
24801: ,l_module_name||'.copy_okc_price_adjustments'
24802: ,'After call to copy_okc_price_adjustments: x_return_status:'||l_return_status
24803: ||' '||SQLERRM
24796: ,x_return_status => l_return_status);
24797:
24798: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24799: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24800: FND_LOG.string(FND_LOG.level_statement
24801: ,l_module_name||'.copy_okc_price_adjustments'
24802: ,'After call to copy_okc_price_adjustments: x_return_status:'||l_return_status
24803: ||' '||SQLERRM
24804: );
24812: --------------------------------------------------------------------
24813: ------------Copy of OKS_K_LINES_TL---------------------------------
24814: IF (P_Lines_Tbl.COUNT > 0) then
24815: Begin
24816: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24817: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24818: FND_LOG.string(FND_LOG.level_statement
24819: ,l_module_name||'.copy_oks_k_lines_tl'
24820: ,'Before call to copy_oks_k_lines_tl'
24813: ------------Copy of OKS_K_LINES_TL---------------------------------
24814: IF (P_Lines_Tbl.COUNT > 0) then
24815: Begin
24816: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24817: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24818: FND_LOG.string(FND_LOG.level_statement
24819: ,l_module_name||'.copy_oks_k_lines_tl'
24820: ,'Before call to copy_oks_k_lines_tl'
24821: );
24814: IF (P_Lines_Tbl.COUNT > 0) then
24815: Begin
24816: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24817: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24818: FND_LOG.string(FND_LOG.level_statement
24819: ,l_module_name||'.copy_oks_k_lines_tl'
24820: ,'Before call to copy_oks_k_lines_tl'
24821: );
24822: END IF;
24826: ,P_Partial_Copy_YN => 'Y'
24827: ,P_Lines_Count => P_Lines_Tbl.COUNT
24828: ,x_return_status => l_return_status);
24829:
24830: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24831: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24832: FND_LOG.string(FND_LOG.level_statement
24833: ,l_module_name||'.copy_oks_k_lines_tl'
24834: ,'After call to copy_oks_k_lines_tl: x_return_status:'||l_return_status
24827: ,P_Lines_Count => P_Lines_Tbl.COUNT
24828: ,x_return_status => l_return_status);
24829:
24830: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24831: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24832: FND_LOG.string(FND_LOG.level_statement
24833: ,l_module_name||'.copy_oks_k_lines_tl'
24834: ,'After call to copy_oks_k_lines_tl: x_return_status:'||l_return_status
24835: ||' '||SQLERRM
24828: ,x_return_status => l_return_status);
24829:
24830: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24831: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24832: FND_LOG.string(FND_LOG.level_statement
24833: ,l_module_name||'.copy_oks_k_lines_tl'
24834: ,'After call to copy_oks_k_lines_tl: x_return_status:'||l_return_status
24835: ||' '||SQLERRM
24836: );
24845: ---------------------------------------------------------------------
24846: ------------Copy of OKS_REV_DISTRIBUTIONS--------------------------
24847: IF (P_Lines_Tbl.COUNT > 0) then
24848: Begin
24849: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24850: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24851: FND_LOG.string(FND_LOG.level_statement
24852: ,l_module_name||'.copy_oks_rev_distributions'
24853: ,'Before call to copy_oks_rev_distributions'
24846: ------------Copy of OKS_REV_DISTRIBUTIONS--------------------------
24847: IF (P_Lines_Tbl.COUNT > 0) then
24848: Begin
24849: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24850: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24851: FND_LOG.string(FND_LOG.level_statement
24852: ,l_module_name||'.copy_oks_rev_distributions'
24853: ,'Before call to copy_oks_rev_distributions'
24854: );
24847: IF (P_Lines_Tbl.COUNT > 0) then
24848: Begin
24849: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24850: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24851: FND_LOG.string(FND_LOG.level_statement
24852: ,l_module_name||'.copy_oks_rev_distributions'
24853: ,'Before call to copy_oks_rev_distributions'
24854: );
24855: END IF;
24860: ,P_Partial_Copy_YN => 'Y'
24861: ,P_Lines_Count => P_Lines_Tbl.COUNT
24862: ,x_return_status => l_return_status);
24863:
24864: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24865: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24866: FND_LOG.string(FND_LOG.level_statement
24867: ,l_module_name||'.copy_oks_rev_distributions'
24868: ,'After call to copy_oks_rev_distributions: x_return_status:'||l_return_status
24861: ,P_Lines_Count => P_Lines_Tbl.COUNT
24862: ,x_return_status => l_return_status);
24863:
24864: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24865: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24866: FND_LOG.string(FND_LOG.level_statement
24867: ,l_module_name||'.copy_oks_rev_distributions'
24868: ,'After call to copy_oks_rev_distributions: x_return_status:'||l_return_status
24869: ||' '||SQLERRM
24862: ,x_return_status => l_return_status);
24863:
24864: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24865: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24866: FND_LOG.string(FND_LOG.level_statement
24867: ,l_module_name||'.copy_oks_rev_distributions'
24868: ,'After call to copy_oks_rev_distributions: x_return_status:'||l_return_status
24869: ||' '||SQLERRM
24870: );
24879: ---------------------------------------------------------------------
24880: -------------Copy of OKS_QUALIFIERS----------------------------------
24881: IF (P_Lines_Tbl.COUNT > 0) then
24882: Begin
24883: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24884: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24885: FND_LOG.string(FND_LOG.level_statement
24886: ,l_module_name||'.copy_oks_qualifiers'
24887: ,'Before call to copy_oks_qualifiers'
24880: -------------Copy of OKS_QUALIFIERS----------------------------------
24881: IF (P_Lines_Tbl.COUNT > 0) then
24882: Begin
24883: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24884: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24885: FND_LOG.string(FND_LOG.level_statement
24886: ,l_module_name||'.copy_oks_qualifiers'
24887: ,'Before call to copy_oks_qualifiers'
24888: );
24881: IF (P_Lines_Tbl.COUNT > 0) then
24882: Begin
24883: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24884: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24885: FND_LOG.string(FND_LOG.level_statement
24886: ,l_module_name||'.copy_oks_qualifiers'
24887: ,'Before call to copy_oks_qualifiers'
24888: );
24889: END IF;
24894: ,P_Partial_Copy_YN => 'Y'
24895: ,P_Lines_Count => P_Lines_Tbl.COUNT
24896: ,x_return_status => l_return_status);
24897:
24898: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24899: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24900: FND_LOG.string(FND_LOG.level_statement
24901: ,l_module_name||'.copy_oks_qualifiers'
24902: ,'After call to copy_oks_qualifiers: x_return_status:'||l_return_status
24895: ,P_Lines_Count => P_Lines_Tbl.COUNT
24896: ,x_return_status => l_return_status);
24897:
24898: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24899: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24900: FND_LOG.string(FND_LOG.level_statement
24901: ,l_module_name||'.copy_oks_qualifiers'
24902: ,'After call to copy_oks_qualifiers: x_return_status:'||l_return_status
24903: ||' '||SQLERRM
24896: ,x_return_status => l_return_status);
24897:
24898: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24899: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24900: FND_LOG.string(FND_LOG.level_statement
24901: ,l_module_name||'.copy_oks_qualifiers'
24902: ,'After call to copy_oks_qualifiers: x_return_status:'||l_return_status
24903: ||' '||SQLERRM
24904: );
24930: -- Bulk Copy of Billing Schedule can be done from Source
24931: --errorout_hk('Copy Line Components, Copy of bill sch');
24932: -------------Copy of OKS_STREAM_LEVELS_B---------------------------
24933: Begin
24934: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24935: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24936: FND_LOG.string(FND_LOG.level_statement
24937: ,l_module_name||'.copy_oks_stream_levels_b'
24938: ,'Before call to copy_oks_stream_levels_b'
24931: --errorout_hk('Copy Line Components, Copy of bill sch');
24932: -------------Copy of OKS_STREAM_LEVELS_B---------------------------
24933: Begin
24934: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24935: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24936: FND_LOG.string(FND_LOG.level_statement
24937: ,l_module_name||'.copy_oks_stream_levels_b'
24938: ,'Before call to copy_oks_stream_levels_b'
24939: );
24932: -------------Copy of OKS_STREAM_LEVELS_B---------------------------
24933: Begin
24934: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24935: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24936: FND_LOG.string(FND_LOG.level_statement
24937: ,l_module_name||'.copy_oks_stream_levels_b'
24938: ,'Before call to copy_oks_stream_levels_b'
24939: );
24940: END IF;
24946: ,P_Target_Contract_New_YN => P_Target_Contract_New_YN
24947: ,P_Lines_Count => P_Lines_Tbl.COUNT
24948: ,x_return_status => l_return_status);
24949:
24950: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24951: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24952: FND_LOG.string(FND_LOG.level_statement
24953: ,l_module_name||'.copy_oks_stream_levels_b'
24954: ,'After call to copy_oks_stream_levels_b: x_return_status:'||l_return_status
24947: ,P_Lines_Count => P_Lines_Tbl.COUNT
24948: ,x_return_status => l_return_status);
24949:
24950: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24951: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24952: FND_LOG.string(FND_LOG.level_statement
24953: ,l_module_name||'.copy_oks_stream_levels_b'
24954: ,'After call to copy_oks_stream_levels_b: x_return_status:'||l_return_status
24955: ||' '||SQLERRM
24948: ,x_return_status => l_return_status);
24949:
24950: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24951: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24952: FND_LOG.string(FND_LOG.level_statement
24953: ,l_module_name||'.copy_oks_stream_levels_b'
24954: ,'After call to copy_oks_stream_levels_b: x_return_status:'||l_return_status
24955: ||' '||SQLERRM
24956: );
24964: -------------------------------------------------------------------
24965:
24966: -------------Copy of OKS_LEVEL_ELEMENTS---------------------------
24967: Begin
24968: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24969: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24970: FND_LOG.string(FND_LOG.level_statement
24971: ,l_module_name||'.copy_oks_level_elements'
24972: ,'Before call to copy_oks_level_elements'
24965:
24966: -------------Copy of OKS_LEVEL_ELEMENTS---------------------------
24967: Begin
24968: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24969: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24970: FND_LOG.string(FND_LOG.level_statement
24971: ,l_module_name||'.copy_oks_level_elements'
24972: ,'Before call to copy_oks_level_elements'
24973: );
24966: -------------Copy of OKS_LEVEL_ELEMENTS---------------------------
24967: Begin
24968: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24969: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24970: FND_LOG.string(FND_LOG.level_statement
24971: ,l_module_name||'.copy_oks_level_elements'
24972: ,'Before call to copy_oks_level_elements'
24973: );
24974: END IF;
24980: ,P_Target_Contract_New_YN => P_Target_Contract_New_YN
24981: ,P_Lines_Count => P_Lines_Tbl.COUNT
24982: ,x_return_status => l_return_status);
24983:
24984: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24985: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24986: FND_LOG.string(FND_LOG.level_statement
24987: ,l_module_name||'.copy_oks_level_elements'
24988: ,'After call to copy_oks_level_elements: x_return_status:'||l_return_status
24981: ,P_Lines_Count => P_Lines_Tbl.COUNT
24982: ,x_return_status => l_return_status);
24983:
24984: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24985: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24986: FND_LOG.string(FND_LOG.level_statement
24987: ,l_module_name||'.copy_oks_level_elements'
24988: ,'After call to copy_oks_level_elements: x_return_status:'||l_return_status
24989: ||' '||SQLERRM
24982: ,x_return_status => l_return_status);
24983:
24984: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24985: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24986: FND_LOG.string(FND_LOG.level_statement
24987: ,l_module_name||'.copy_oks_level_elements'
24988: ,'After call to copy_oks_level_elements: x_return_status:'||l_return_status
24989: ||' '||SQLERRM
24990: );
24997: End;
24998: --------------------------------------------------------------------
24999: --------------Copy of Billing schedules for Skipped Lines-----------
25000: Begin
25001: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25002: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25003: FND_LOG.string(FND_LOG.level_statement
25004: ,l_module_name||'.copy_bsch_for_SkippedLines'
25005: ,'Before call to copy_bsch_for_SkippedLines'
24998: --------------------------------------------------------------------
24999: --------------Copy of Billing schedules for Skipped Lines-----------
25000: Begin
25001: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25002: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25003: FND_LOG.string(FND_LOG.level_statement
25004: ,l_module_name||'.copy_bsch_for_SkippedLines'
25005: ,'Before call to copy_bsch_for_SkippedLines'
25006: );
24999: --------------Copy of Billing schedules for Skipped Lines-----------
25000: Begin
25001: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25002: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25003: FND_LOG.string(FND_LOG.level_statement
25004: ,l_module_name||'.copy_bsch_for_SkippedLines'
25005: ,'Before call to copy_bsch_for_SkippedLines'
25006: );
25007: END IF;
25013: ,p_init_msg_list => p_init_msg_list
25014: ,x_return_status => l_return_status
25015: ,x_msg_count => x_msg_count
25016: ,x_msg_data => x_msg_data);
25017: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25018: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25019: FND_LOG.string(FND_LOG.level_statement
25020: ,l_module_name||'.copy_bsch_for_SkippedLines'
25021: ,'After call to copy_bsch_for_SkippedLines: x_return_status:'||l_return_status
25014: ,x_return_status => l_return_status
25015: ,x_msg_count => x_msg_count
25016: ,x_msg_data => x_msg_data);
25017: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25018: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25019: FND_LOG.string(FND_LOG.level_statement
25020: ,l_module_name||'.copy_bsch_for_SkippedLines'
25021: ,'After call to copy_bsch_for_SkippedLines: x_return_status:'||l_return_status
25022: ||' '||SQLERRM
25015: ,x_msg_count => x_msg_count
25016: ,x_msg_data => x_msg_data);
25017: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25018: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25019: FND_LOG.string(FND_LOG.level_statement
25020: ,l_module_name||'.copy_bsch_for_SkippedLines'
25021: ,'After call to copy_bsch_for_SkippedLines: x_return_status:'||l_return_status
25022: ||' '||SQLERRM
25023: );
25075:
25076: IF (P_Lines_Tbl.COUNT > 0) then
25077: -------------Copy of OKS_COVERAGE_TIMEZONES------------------------
25078: Begin
25079: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25080: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25081: FND_LOG.string(FND_LOG.level_statement
25082: ,l_module_name||'.copy_oks_coverage_timezones'
25083: ,'Before call to copy_oks_coverage_timezones'
25076: IF (P_Lines_Tbl.COUNT > 0) then
25077: -------------Copy of OKS_COVERAGE_TIMEZONES------------------------
25078: Begin
25079: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25080: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25081: FND_LOG.string(FND_LOG.level_statement
25082: ,l_module_name||'.copy_oks_coverage_timezones'
25083: ,'Before call to copy_oks_coverage_timezones'
25084: );
25077: -------------Copy of OKS_COVERAGE_TIMEZONES------------------------
25078: Begin
25079: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25080: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25081: FND_LOG.string(FND_LOG.level_statement
25082: ,l_module_name||'.copy_oks_coverage_timezones'
25083: ,'Before call to copy_oks_coverage_timezones'
25084: );
25085: END IF;
25090: ,P_Partial_Copy_YN => 'Y'
25091: ,P_Lines_Count => P_Lines_Tbl.COUNT
25092: ,x_return_status => l_return_status);
25093:
25094: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25095: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25096: FND_LOG.string(FND_LOG.level_statement
25097: ,l_module_name||'.copy_oks_coverage_timezones'
25098: ,'After call to copy_oks_coverage_timezones: x_return_status:'||l_return_status
25091: ,P_Lines_Count => P_Lines_Tbl.COUNT
25092: ,x_return_status => l_return_status);
25093:
25094: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25095: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25096: FND_LOG.string(FND_LOG.level_statement
25097: ,l_module_name||'.copy_oks_coverage_timezones'
25098: ,'After call to copy_oks_coverage_timezones: x_return_status:'||l_return_status
25099: ||' '||SQLERRM
25092: ,x_return_status => l_return_status);
25093:
25094: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25095: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25096: FND_LOG.string(FND_LOG.level_statement
25097: ,l_module_name||'.copy_oks_coverage_timezones'
25098: ,'After call to copy_oks_coverage_timezones: x_return_status:'||l_return_status
25099: ||' '||SQLERRM
25100: );
25107: End;
25108: ---------------------------------------------------------------------
25109: -------------Copy of OKS_COVERAGE_TIMES-----------------------------
25110: Begin
25111: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25112: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25113: FND_LOG.string(FND_LOG.level_statement
25114: ,l_module_name||'.copy_oks_coverage_times'
25115: ,'Before call to copy_oks_coverage_times'
25108: ---------------------------------------------------------------------
25109: -------------Copy of OKS_COVERAGE_TIMES-----------------------------
25110: Begin
25111: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25112: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25113: FND_LOG.string(FND_LOG.level_statement
25114: ,l_module_name||'.copy_oks_coverage_times'
25115: ,'Before call to copy_oks_coverage_times'
25116: );
25109: -------------Copy of OKS_COVERAGE_TIMES-----------------------------
25110: Begin
25111: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25112: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25113: FND_LOG.string(FND_LOG.level_statement
25114: ,l_module_name||'.copy_oks_coverage_times'
25115: ,'Before call to copy_oks_coverage_times'
25116: );
25117: END IF;
25122: ,P_Partial_Copy_YN => 'Y'
25123: ,P_Lines_Count => P_Lines_Tbl.COUNT
25124: ,x_return_status => l_return_status);
25125:
25126: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25127: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25128: FND_LOG.string(FND_LOG.level_statement
25129: ,l_module_name||'.copy_oks_coverage_times'
25130: ,'After call to copy_oks_coverage_times: x_return_status:'||l_return_status
25123: ,P_Lines_Count => P_Lines_Tbl.COUNT
25124: ,x_return_status => l_return_status);
25125:
25126: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25127: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25128: FND_LOG.string(FND_LOG.level_statement
25129: ,l_module_name||'.copy_oks_coverage_times'
25130: ,'After call to copy_oks_coverage_times: x_return_status:'||l_return_status
25131: ||' '||SQLERRM
25124: ,x_return_status => l_return_status);
25125:
25126: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25127: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25128: FND_LOG.string(FND_LOG.level_statement
25129: ,l_module_name||'.copy_oks_coverage_times'
25130: ,'After call to copy_oks_coverage_times: x_return_status:'||l_return_status
25131: ||' '||SQLERRM
25132: );
25145:
25146: IF (P_Lines_Tbl.COUNT > 0) then
25147: -------------Copy of OKS_PM_ACTIVITIES-------------------------------
25148: Begin
25149: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25150: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25151: FND_LOG.string(FND_LOG.level_statement
25152: ,l_module_name||'.copy_oks_pm_activities'
25153: ,'Before call to copy_oks_pm_activities'
25146: IF (P_Lines_Tbl.COUNT > 0) then
25147: -------------Copy of OKS_PM_ACTIVITIES-------------------------------
25148: Begin
25149: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25150: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25151: FND_LOG.string(FND_LOG.level_statement
25152: ,l_module_name||'.copy_oks_pm_activities'
25153: ,'Before call to copy_oks_pm_activities'
25154: );
25147: -------------Copy of OKS_PM_ACTIVITIES-------------------------------
25148: Begin
25149: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25150: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25151: FND_LOG.string(FND_LOG.level_statement
25152: ,l_module_name||'.copy_oks_pm_activities'
25153: ,'Before call to copy_oks_pm_activities'
25154: );
25155: END IF;
25160: ,P_Partial_Copy_YN => 'Y'
25161: ,P_Lines_Count => P_Lines_Tbl.COUNT
25162: ,x_return_status => l_return_status);
25163:
25164: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25165: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25166: FND_LOG.string(FND_LOG.level_statement
25167: ,l_module_name||'.copy_oks_pm_activities'
25168: ,'After call to copy_oks_pm_activities: x_return_status:'||l_return_status
25161: ,P_Lines_Count => P_Lines_Tbl.COUNT
25162: ,x_return_status => l_return_status);
25163:
25164: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25165: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25166: FND_LOG.string(FND_LOG.level_statement
25167: ,l_module_name||'.copy_oks_pm_activities'
25168: ,'After call to copy_oks_pm_activities: x_return_status:'||l_return_status
25169: ||' '||SQLERRM
25162: ,x_return_status => l_return_status);
25163:
25164: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25165: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25166: FND_LOG.string(FND_LOG.level_statement
25167: ,l_module_name||'.copy_oks_pm_activities'
25168: ,'After call to copy_oks_pm_activities: x_return_status:'||l_return_status
25169: ||' '||SQLERRM
25170: );
25177: End;
25178: ---------------------------------------------------------------------
25179: --------------Copy of OKS_PM_STREAM_LEVELS---------------------------
25180: Begin
25181: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25182: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25183: FND_LOG.string(FND_LOG.level_statement
25184: ,l_module_name||'.copy_oks_pm_stream_levels'
25185: ,'Before call to copy_oks_pm_stream_levels'
25178: ---------------------------------------------------------------------
25179: --------------Copy of OKS_PM_STREAM_LEVELS---------------------------
25180: Begin
25181: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25182: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25183: FND_LOG.string(FND_LOG.level_statement
25184: ,l_module_name||'.copy_oks_pm_stream_levels'
25185: ,'Before call to copy_oks_pm_stream_levels'
25186: );
25179: --------------Copy of OKS_PM_STREAM_LEVELS---------------------------
25180: Begin
25181: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25182: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25183: FND_LOG.string(FND_LOG.level_statement
25184: ,l_module_name||'.copy_oks_pm_stream_levels'
25185: ,'Before call to copy_oks_pm_stream_levels'
25186: );
25187: END IF;
25192: ,P_Partial_Copy_YN => 'Y'
25193: ,P_Lines_Count => P_Lines_Tbl.COUNT
25194: ,x_return_status => l_return_status);
25195:
25196: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25197: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25198: FND_LOG.string(FND_LOG.level_statement
25199: ,l_module_name||'.copy_oks_pm_stream_levels'
25200: ,'After call to copy_oks_pm_stream_levels: x_return_status:'||l_return_status
25193: ,P_Lines_Count => P_Lines_Tbl.COUNT
25194: ,x_return_status => l_return_status);
25195:
25196: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25197: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25198: FND_LOG.string(FND_LOG.level_statement
25199: ,l_module_name||'.copy_oks_pm_stream_levels'
25200: ,'After call to copy_oks_pm_stream_levels: x_return_status:'||l_return_status
25201: ||' '||SQLERRM
25194: ,x_return_status => l_return_status);
25195:
25196: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25197: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25198: FND_LOG.string(FND_LOG.level_statement
25199: ,l_module_name||'.copy_oks_pm_stream_levels'
25200: ,'After call to copy_oks_pm_stream_levels: x_return_status:'||l_return_status
25201: ||' '||SQLERRM
25202: );
25210:
25211: ---------------------------------------------------------------------
25212: -------------Copy of OKS_PM_SCHEDULES--------------------------------
25213: Begin
25214: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25215: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25216: FND_LOG.string(FND_LOG.level_statement
25217: ,l_module_name||'.copy_oks_pm_schedules'
25218: ,'Before call to copy_oks_pm_schedules'
25211: ---------------------------------------------------------------------
25212: -------------Copy of OKS_PM_SCHEDULES--------------------------------
25213: Begin
25214: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25215: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25216: FND_LOG.string(FND_LOG.level_statement
25217: ,l_module_name||'.copy_oks_pm_schedules'
25218: ,'Before call to copy_oks_pm_schedules'
25219: );
25212: -------------Copy of OKS_PM_SCHEDULES--------------------------------
25213: Begin
25214: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25215: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25216: FND_LOG.string(FND_LOG.level_statement
25217: ,l_module_name||'.copy_oks_pm_schedules'
25218: ,'Before call to copy_oks_pm_schedules'
25219: );
25220: END IF;
25225: ,P_Partial_Copy_YN => 'Y'
25226: ,P_Lines_Count => P_Lines_Tbl.COUNT
25227: ,x_return_status => l_return_status);
25228:
25229: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25230: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25231: FND_LOG.string(FND_LOG.level_statement
25232: ,l_module_name||'.copy_oks_pm_schedules'
25233: ,'After call to copy_oks_pm_schedules: x_return_status:'||l_return_status
25226: ,P_Lines_Count => P_Lines_Tbl.COUNT
25227: ,x_return_status => l_return_status);
25228:
25229: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25230: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25231: FND_LOG.string(FND_LOG.level_statement
25232: ,l_module_name||'.copy_oks_pm_schedules'
25233: ,'After call to copy_oks_pm_schedules: x_return_status:'||l_return_status
25234: ||' '||SQLERRM
25227: ,x_return_status => l_return_status);
25228:
25229: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25230: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25231: FND_LOG.string(FND_LOG.level_statement
25232: ,l_module_name||'.copy_oks_pm_schedules'
25233: ,'After call to copy_oks_pm_schedules: x_return_status:'||l_return_status
25234: ||' '||SQLERRM
25235: );
25263:
25264: IF (P_Lines_Tbl.COUNT > 0) then
25265: --------------Copy of OKS_ACTION_TIME_TYPES-------------------------
25266: Begin
25267: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25268: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25269: FND_LOG.string(FND_LOG.level_statement
25270: ,l_module_name||'.copy_oks_action_time_types'
25271: ,'Before call to copy_oks_action_time_types'
25264: IF (P_Lines_Tbl.COUNT > 0) then
25265: --------------Copy of OKS_ACTION_TIME_TYPES-------------------------
25266: Begin
25267: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25268: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25269: FND_LOG.string(FND_LOG.level_statement
25270: ,l_module_name||'.copy_oks_action_time_types'
25271: ,'Before call to copy_oks_action_time_types'
25272: );
25265: --------------Copy of OKS_ACTION_TIME_TYPES-------------------------
25266: Begin
25267: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25268: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25269: FND_LOG.string(FND_LOG.level_statement
25270: ,l_module_name||'.copy_oks_action_time_types'
25271: ,'Before call to copy_oks_action_time_types'
25272: );
25273: END IF;
25279: ,P_Partial_Copy_YN => 'Y'
25280: ,P_Lines_Count => P_Lines_Tbl.COUNT
25281: ,x_return_status => l_return_status);
25282:
25283: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25284: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25285: FND_LOG.string(FND_LOG.level_statement
25286: ,l_module_name||'.copy_oks_action_time_types'
25287: ,'After call to copy_oks_action_time_types: x_return_status:'||l_return_status
25280: ,P_Lines_Count => P_Lines_Tbl.COUNT
25281: ,x_return_status => l_return_status);
25282:
25283: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25284: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25285: FND_LOG.string(FND_LOG.level_statement
25286: ,l_module_name||'.copy_oks_action_time_types'
25287: ,'After call to copy_oks_action_time_types: x_return_status:'||l_return_status
25288: ||' '||SQLERRM
25281: ,x_return_status => l_return_status);
25282:
25283: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25284: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25285: FND_LOG.string(FND_LOG.level_statement
25286: ,l_module_name||'.copy_oks_action_time_types'
25287: ,'After call to copy_oks_action_time_types: x_return_status:'||l_return_status
25288: ||' '||SQLERRM
25289: );
25296: End;
25297: ---------------------------------------------------------------------
25298: --------------Copy of OKS_ACTION_TIMES-------------------------------
25299: Begin
25300: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25301: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25302: FND_LOG.string(FND_LOG.level_statement
25303: ,l_module_name||'.copy_oks_action_times'
25304: ,'Before call to copy_oks_action_times'
25297: ---------------------------------------------------------------------
25298: --------------Copy of OKS_ACTION_TIMES-------------------------------
25299: Begin
25300: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25301: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25302: FND_LOG.string(FND_LOG.level_statement
25303: ,l_module_name||'.copy_oks_action_times'
25304: ,'Before call to copy_oks_action_times'
25305: );
25298: --------------Copy of OKS_ACTION_TIMES-------------------------------
25299: Begin
25300: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25301: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25302: FND_LOG.string(FND_LOG.level_statement
25303: ,l_module_name||'.copy_oks_action_times'
25304: ,'Before call to copy_oks_action_times'
25305: );
25306: END IF;
25311: ,P_Partial_Copy_YN => 'Y'
25312: ,P_Lines_Count => P_Lines_Tbl.COUNT
25313: ,x_return_status => l_return_status);
25314:
25315: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25316: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25317: FND_LOG.string(FND_LOG.level_statement
25318: ,l_module_name||'.copy_oks_action_times'
25319: ,'After call to copy_oks_action_times: x_return_status:'||l_return_status
25312: ,P_Lines_Count => P_Lines_Tbl.COUNT
25313: ,x_return_status => l_return_status);
25314:
25315: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25316: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25317: FND_LOG.string(FND_LOG.level_statement
25318: ,l_module_name||'.copy_oks_action_times'
25319: ,'After call to copy_oks_action_times: x_return_status:'||l_return_status
25320: ||' '||SQLERRM
25313: ,x_return_status => l_return_status);
25314:
25315: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25316: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25317: FND_LOG.string(FND_LOG.level_statement
25318: ,l_module_name||'.copy_oks_action_times'
25319: ,'After call to copy_oks_action_times: x_return_status:'||l_return_status
25320: ||' '||SQLERRM
25321: );
25335:
25336: IF (P_Lines_Tbl.COUNT > 0) then
25337: --------------Copy of OKS_BILLRATE_SCHEDULES-------------------------------
25338: Begin
25339: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25340: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25341: FND_LOG.string(FND_LOG.level_statement
25342: ,l_module_name||'.copy_oks_bill_rate_schedules'
25343: ,'Before call to copy_oks_bill_rate_schedules'
25336: IF (P_Lines_Tbl.COUNT > 0) then
25337: --------------Copy of OKS_BILLRATE_SCHEDULES-------------------------------
25338: Begin
25339: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25340: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25341: FND_LOG.string(FND_LOG.level_statement
25342: ,l_module_name||'.copy_oks_bill_rate_schedules'
25343: ,'Before call to copy_oks_bill_rate_schedules'
25344: );
25337: --------------Copy of OKS_BILLRATE_SCHEDULES-------------------------------
25338: Begin
25339: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25340: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25341: FND_LOG.string(FND_LOG.level_statement
25342: ,l_module_name||'.copy_oks_bill_rate_schedules'
25343: ,'Before call to copy_oks_bill_rate_schedules'
25344: );
25345: END IF;
25350: ,P_Partial_Copy_YN => 'Y'
25351: ,P_Lines_Count => P_Lines_Tbl.COUNT
25352: ,x_return_status => l_return_status);
25353:
25354: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25355: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25356: FND_LOG.string(FND_LOG.level_statement
25357: ,l_module_name||'.copy_oks_bill_rate_schedules'
25358: ,'After call to copy_oks_bill_rate_schedules: x_return_status:'||l_return_status
25351: ,P_Lines_Count => P_Lines_Tbl.COUNT
25352: ,x_return_status => l_return_status);
25353:
25354: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25355: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25356: FND_LOG.string(FND_LOG.level_statement
25357: ,l_module_name||'.copy_oks_bill_rate_schedules'
25358: ,'After call to copy_oks_bill_rate_schedules: x_return_status:'||l_return_status
25359: ||' '||SQLERRM
25352: ,x_return_status => l_return_status);
25353:
25354: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25355: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25356: FND_LOG.string(FND_LOG.level_statement
25357: ,l_module_name||'.copy_oks_bill_rate_schedules'
25358: ,'After call to copy_oks_bill_rate_schedules: x_return_status:'||l_return_status
25359: ||' '||SQLERRM
25360: );
25373:
25374:
25375: ---------------Copy of OKS_K_SALES_CREDITS---------------------------
25376: Begin
25377: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25378: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25379: FND_LOG.string(FND_LOG.level_statement
25380: ,l_module_name||'.copy_oks_k_sales_credits'
25381: ,'Before call to copy_oks_k_sales_credits'
25374:
25375: ---------------Copy of OKS_K_SALES_CREDITS---------------------------
25376: Begin
25377: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25378: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25379: FND_LOG.string(FND_LOG.level_statement
25380: ,l_module_name||'.copy_oks_k_sales_credits'
25381: ,'Before call to copy_oks_k_sales_credits'
25382: );
25375: ---------------Copy of OKS_K_SALES_CREDITS---------------------------
25376: Begin
25377: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25378: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25379: FND_LOG.string(FND_LOG.level_statement
25380: ,l_module_name||'.copy_oks_k_sales_credits'
25381: ,'Before call to copy_oks_k_sales_credits'
25382: );
25383: END IF;
25389: ,P_Target_Contract_New_YN => P_Target_Contract_New_YN
25390: ,P_Lines_Count => P_Lines_Tbl.COUNT
25391: ,x_return_status => l_return_status);
25392:
25393: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25394: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25395: FND_LOG.string(FND_LOG.level_statement
25396: ,l_module_name||'.copy_oks_k_sales_credits'
25397: ,'After call to copy_oks_k_sales_credits: x_return_status:'||l_return_status
25390: ,P_Lines_Count => P_Lines_Tbl.COUNT
25391: ,x_return_status => l_return_status);
25392:
25393: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25394: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25395: FND_LOG.string(FND_LOG.level_statement
25396: ,l_module_name||'.copy_oks_k_sales_credits'
25397: ,'After call to copy_oks_k_sales_credits: x_return_status:'||l_return_status
25398: ||' '||SQLERRM
25391: ,x_return_status => l_return_status);
25392:
25393: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25394: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25395: FND_LOG.string(FND_LOG.level_statement
25396: ,l_module_name||'.copy_oks_k_sales_credits'
25397: ,'After call to copy_oks_k_sales_credits: x_return_status:'||l_return_status
25398: ||' '||SQLERRM
25399: );
25406: End;
25407: ---------------------------------------------------------------------
25408:
25409:
25410: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
25411: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
25412: FND_LOG.string(FND_LOG.level_procedure
25413: ,l_module_name||'.End'
25414: ,',x_return_status='||x_return_status
25407: ---------------------------------------------------------------------
25408:
25409:
25410: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
25411: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
25412: FND_LOG.string(FND_LOG.level_procedure
25413: ,l_module_name||'.End'
25414: ,',x_return_status='||x_return_status
25415: ||', P_To_Chr_ID ='||P_To_Chr_ID
25408:
25409:
25410: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
25411: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
25412: FND_LOG.string(FND_LOG.level_procedure
25413: ,l_module_name||'.End'
25414: ,',x_return_status='||x_return_status
25415: ||', P_To_Chr_ID ='||P_To_Chr_ID
25416: );
25508:
25509: BEGIN
25510:
25511:
25512: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
25513: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
25514: FND_LOG.string(FND_LOG.level_procedure
25515: ,l_module_name||'.Begin'
25516: ,'p_chr_id='|| p_chr_id
25509: BEGIN
25510:
25511:
25512: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
25513: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
25514: FND_LOG.string(FND_LOG.level_procedure
25515: ,l_module_name||'.Begin'
25516: ,'p_chr_id='|| p_chr_id
25517: ||',p_contract_number='||p_contract_number
25510:
25511:
25512: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
25513: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
25514: FND_LOG.string(FND_LOG.level_procedure
25515: ,l_module_name||'.Begin'
25516: ,'p_chr_id='|| p_chr_id
25517: ||',p_contract_number='||p_contract_number
25518: ||',p_contract_number_modifier='||p_contract_number_modifier
25525: SAVEPOINT copy_contract;
25526:
25527:
25528: ----------------------------------------------------
25529: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
25530: FND_LOG.string(FND_LOG.level_statement
25531: ,l_module_name
25532: ,'Before Is_Copy_Allowed'
25533: );
25526:
25527:
25528: ----------------------------------------------------
25529: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
25530: FND_LOG.string(FND_LOG.level_statement
25531: ,l_module_name
25532: ,'Before Is_Copy_Allowed'
25533: );
25534: End If;
25534: End If;
25535:
25536: l_result := IS_COPY_ALLOWED(p_chr_id, NULL);
25537:
25538: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
25539: FND_LOG.string(FND_LOG.level_statement
25540: ,l_module_name
25541: ,'After Is_Copy_Allowed'
25542: );
25535:
25536: l_result := IS_COPY_ALLOWED(p_chr_id, NULL);
25537:
25538: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
25539: FND_LOG.string(FND_LOG.level_statement
25540: ,l_module_name
25541: ,'After Is_Copy_Allowed'
25542: );
25543: End If;
25562:
25563:
25564: x_return_status := l_return_status;
25565:
25566: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
25567: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
25568: FND_LOG.string(FND_LOG.level_procedure
25569: ,l_module_name||'.Copy_Contract_Header'
25570: ,'Before call to Copy_Contract_Header'
25563:
25564: x_return_status := l_return_status;
25565:
25566: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
25567: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
25568: FND_LOG.string(FND_LOG.level_procedure
25569: ,l_module_name||'.Copy_Contract_Header'
25570: ,'Before call to Copy_Contract_Header'
25571: );
25564: x_return_status := l_return_status;
25565:
25566: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
25567: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
25568: FND_LOG.string(FND_LOG.level_procedure
25569: ,l_module_name||'.Copy_Contract_Header'
25570: ,'Before call to Copy_Contract_Header'
25571: );
25572: END IF;
25584: p_to_template_yn => p_to_template_yn,
25585: p_renew_ref_yn => p_renew_ref_yn,
25586: x_to_chr_id => l_to_chr_id);
25587:
25588: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
25589: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
25590: FND_LOG.string(FND_LOG.level_procedure
25591: ,l_module_name||'.Copy_Contract_Header'
25592: ,'After call to Copy_Contract_Header x_return_status='||l_return_status
25585: p_renew_ref_yn => p_renew_ref_yn,
25586: x_to_chr_id => l_to_chr_id);
25587:
25588: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
25589: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
25590: FND_LOG.string(FND_LOG.level_procedure
25591: ,l_module_name||'.Copy_Contract_Header'
25592: ,'After call to Copy_Contract_Header x_return_status='||l_return_status
25593: );
25586: x_to_chr_id => l_to_chr_id);
25587:
25588: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
25589: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
25590: FND_LOG.string(FND_LOG.level_procedure
25591: ,l_module_name||'.Copy_Contract_Header'
25592: ,'After call to Copy_Contract_Header x_return_status='||l_return_status
25593: );
25594: END IF;
25650: OPEN c_art_eff_date(l_source_doc_type, l_source_doc_id);
25651: FETCH c_art_eff_date INTO l_eff_date;
25652: CLOSE c_art_eff_date;
25653:
25654: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25655: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25656: FND_LOG.string(FND_LOG.level_statement
25657: ,l_module_name||'.OKC_TERMS_COPY_GRP.copy_doc'
25658: ,'Before call to OKC_TERMS_COPY_GRP.copy_doc'
25651: FETCH c_art_eff_date INTO l_eff_date;
25652: CLOSE c_art_eff_date;
25653:
25654: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25655: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25656: FND_LOG.string(FND_LOG.level_statement
25657: ,l_module_name||'.OKC_TERMS_COPY_GRP.copy_doc'
25658: ,'Before call to OKC_TERMS_COPY_GRP.copy_doc'
25659: );
25652: CLOSE c_art_eff_date;
25653:
25654: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25655: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25656: FND_LOG.string(FND_LOG.level_statement
25657: ,l_module_name||'.OKC_TERMS_COPY_GRP.copy_doc'
25658: ,'Before call to OKC_TERMS_COPY_GRP.copy_doc'
25659: );
25660: END IF;
25673: p_article_effective_date => Nvl(l_eff_date,Sysdate),
25674: p_document_number => p_contract_number,
25675: p_allow_duplicate_terms=>'Y');
25676:
25677: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25678: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25679: FND_LOG.string(FND_LOG.level_statement
25680: ,l_module_name||'.OKC_TERMS_COPY_GRP.copy_doc'
25681: ,'After call to OKC_TERMS_COPY_GRP.copy_doc: x_return_status:'||l_return_status
25674: p_document_number => p_contract_number,
25675: p_allow_duplicate_terms=>'Y');
25676:
25677: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25678: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25679: FND_LOG.string(FND_LOG.level_statement
25680: ,l_module_name||'.OKC_TERMS_COPY_GRP.copy_doc'
25681: ,'After call to OKC_TERMS_COPY_GRP.copy_doc: x_return_status:'||l_return_status
25682: ||' '||SQLERRM
25675: p_allow_duplicate_terms=>'Y');
25676:
25677: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25678: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25679: FND_LOG.string(FND_LOG.level_statement
25680: ,l_module_name||'.OKC_TERMS_COPY_GRP.copy_doc'
25681: ,'After call to OKC_TERMS_COPY_GRP.copy_doc: x_return_status:'||l_return_status
25682: ||' '||SQLERRM
25683: );
25697: --================================End of Copy Contract Document===================================
25698:
25699: --===================-Start of Copy OKS Header attributes ========================================
25700: /*--Call to copy source contract record in OKS_K_HEADERS_B */
25701: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25702: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25703: FND_LOG.string(FND_LOG.level_statement
25704: ,l_module_name||'.oks_setup_util_pub.copy_hdr_attr'
25705: ,'Before call to oks_setup_util_pub.copy_hdr_attr'
25698:
25699: --===================-Start of Copy OKS Header attributes ========================================
25700: /*--Call to copy source contract record in OKS_K_HEADERS_B */
25701: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25702: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25703: FND_LOG.string(FND_LOG.level_statement
25704: ,l_module_name||'.oks_setup_util_pub.copy_hdr_attr'
25705: ,'Before call to oks_setup_util_pub.copy_hdr_attr'
25706: ||' P_From_Chr_ID = '||p_chr_id
25699: --===================-Start of Copy OKS Header attributes ========================================
25700: /*--Call to copy source contract record in OKS_K_HEADERS_B */
25701: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25702: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25703: FND_LOG.string(FND_LOG.level_statement
25704: ,l_module_name||'.oks_setup_util_pub.copy_hdr_attr'
25705: ,'Before call to oks_setup_util_pub.copy_hdr_attr'
25706: ||' P_From_Chr_ID = '||p_chr_id
25707: ||',P_To_Chr_ID = '||l_to_chr_id
25714: ,p_new_chr_id => l_to_chr_id --Target Contract Header ID
25715: ,p_duration_match => NULL
25716: ,p_renew_ref_YN => P_Renew_Ref_YN
25717: ,x_return_status => l_return_status);
25718: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25719: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25720: FND_LOG.string(FND_LOG.level_statement
25721: ,l_module_name||'.oks_setup_util_pub.copy_hdr_attr'
25722: ,'After call to oks_setup_util_pub.copy_hdr_attr: x_return_status:'||l_return_status
25715: ,p_duration_match => NULL
25716: ,p_renew_ref_YN => P_Renew_Ref_YN
25717: ,x_return_status => l_return_status);
25718: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25719: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25720: FND_LOG.string(FND_LOG.level_statement
25721: ,l_module_name||'.oks_setup_util_pub.copy_hdr_attr'
25722: ,'After call to oks_setup_util_pub.copy_hdr_attr: x_return_status:'||l_return_status
25723: ||' '||SQLERRM
25716: ,p_renew_ref_YN => P_Renew_Ref_YN
25717: ,x_return_status => l_return_status);
25718: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25719: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25720: FND_LOG.string(FND_LOG.level_statement
25721: ,l_module_name||'.oks_setup_util_pub.copy_hdr_attr'
25722: ,'After call to oks_setup_util_pub.copy_hdr_attr: x_return_status:'||l_return_status
25723: ||' '||SQLERRM
25724: );
25741: CLOSE GetHdrTrxnInfo;
25742:
25743: If (l_Hdr_Old_Trxn_Extn_ID IS NOT NULL AND l_Hdr_Bill_To_Site_Use_ID IS NOT NULL) then
25744:
25745: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25746: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25747: FND_LOG.string(FND_LOG.level_statement
25748: ,l_module_name||'.Create_Transaction_Extension'
25749: ,'Before call to Create_Transaction_Extension for Header in COPY_CONTRACT'
25742:
25743: If (l_Hdr_Old_Trxn_Extn_ID IS NOT NULL AND l_Hdr_Bill_To_Site_Use_ID IS NOT NULL) then
25744:
25745: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25746: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25747: FND_LOG.string(FND_LOG.level_statement
25748: ,l_module_name||'.Create_Transaction_Extension'
25749: ,'Before call to Create_Transaction_Extension for Header in COPY_CONTRACT'
25750: ||'Bill to site use id='||l_Hdr_Bill_To_Site_Use_ID
25743: If (l_Hdr_Old_Trxn_Extn_ID IS NOT NULL AND l_Hdr_Bill_To_Site_Use_ID IS NOT NULL) then
25744:
25745: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25746: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25747: FND_LOG.string(FND_LOG.level_statement
25748: ,l_module_name||'.Create_Transaction_Extension'
25749: ,'Before call to Create_Transaction_Extension for Header in COPY_CONTRACT'
25750: ||'Bill to site use id='||l_Hdr_Bill_To_Site_Use_ID
25751: ||'Old Trxn ID='||l_Hdr_Old_Trxn_Extn_ID
25765: ,x_msg_count => x_msg_count
25766: ,x_return_status => l_return_status) ;
25767:
25768:
25769: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25770: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25771: FND_LOG.string(FND_LOG.level_statement
25772: ,l_module_name||'.Create_Transaction_Extension'
25773: ,'After call to Create_Transaction_Extension for Header: x_return_status :'||l_return_status
25766: ,x_return_status => l_return_status) ;
25767:
25768:
25769: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25770: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25771: FND_LOG.string(FND_LOG.level_statement
25772: ,l_module_name||'.Create_Transaction_Extension'
25773: ,'After call to Create_Transaction_Extension for Header: x_return_status :'||l_return_status
25774: ||'New Trxn ID='||l_Hdr_New_Trxn_Extn_ID
25767:
25768:
25769: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25770: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25771: FND_LOG.string(FND_LOG.level_statement
25772: ,l_module_name||'.Create_Transaction_Extension'
25773: ,'After call to Create_Transaction_Extension for Header: x_return_status :'||l_return_status
25774: ||'New Trxn ID='||l_Hdr_New_Trxn_Extn_ID
25775: );
25787: SET TRXN_EXTENSION_ID = l_Hdr_New_Trxn_Extn_ID
25788: WHERE CHR_ID = l_to_chr_id;
25789:
25790: If SQL%NOTFOUND then
25791: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25792: FND_LOG.string(FND_LOG.level_statement
25793: ,l_module_name||'.Create_Transaction_Extension'
25794: ,'Error in Update OKS_K_HEADERS_B, row not found for update'
25795: );
25788: WHERE CHR_ID = l_to_chr_id;
25789:
25790: If SQL%NOTFOUND then
25791: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25792: FND_LOG.string(FND_LOG.level_statement
25793: ,l_module_name||'.Create_Transaction_Extension'
25794: ,'Error in Update OKS_K_HEADERS_B, row not found for update'
25795: );
25796: END IF;
25805: --==================End of Generate new transaction extension for Header=========================
25806:
25807: --===================Start of Copy OKS Header Notes=============================================
25808: /*--Call to copy Header notes -----*/
25809: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25810: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25811: FND_LOG.string(FND_LOG.level_statement
25812: ,l_module_name||'.oks_coverages_pvt.copy_k_hdr_notes'
25813: ,'Before call to oks_coverages_pvt.copy_k_hdr_notes'
25806:
25807: --===================Start of Copy OKS Header Notes=============================================
25808: /*--Call to copy Header notes -----*/
25809: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25810: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25811: FND_LOG.string(FND_LOG.level_statement
25812: ,l_module_name||'.oks_coverages_pvt.copy_k_hdr_notes'
25813: ,'Before call to oks_coverages_pvt.copy_k_hdr_notes'
25814: );
25807: --===================Start of Copy OKS Header Notes=============================================
25808: /*--Call to copy Header notes -----*/
25809: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25810: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25811: FND_LOG.string(FND_LOG.level_statement
25812: ,l_module_name||'.oks_coverages_pvt.copy_k_hdr_notes'
25813: ,'Before call to oks_coverages_pvt.copy_k_hdr_notes'
25814: );
25815: END IF;
25822: x_return_status => l_return_status,
25823: x_msg_count => x_msg_count,
25824: x_msg_data => x_msg_data);
25825:
25826: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25827: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25828: FND_LOG.string(FND_LOG.level_statement
25829: ,l_module_name||'.oks_coverages_pvt.copy_k_hdr_notes'
25830: ,'After call to oks_coverages_pvt.copy_k_hdr_notes: x_return_status:'||l_return_status
25823: x_msg_count => x_msg_count,
25824: x_msg_data => x_msg_data);
25825:
25826: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25827: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25828: FND_LOG.string(FND_LOG.level_statement
25829: ,l_module_name||'.oks_coverages_pvt.copy_k_hdr_notes'
25830: ,'After call to oks_coverages_pvt.copy_k_hdr_notes: x_return_status:'||l_return_status
25831: ||' '||SQLERRM
25824: x_msg_data => x_msg_data);
25825:
25826: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25827: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25828: FND_LOG.string(FND_LOG.level_statement
25829: ,l_module_name||'.oks_coverages_pvt.copy_k_hdr_notes'
25830: ,'After call to oks_coverages_pvt.copy_k_hdr_notes: x_return_status:'||l_return_status
25831: ||' '||SQLERRM
25832: );
25844: END IF;
25845: --=====================End of Copy OKS Header Notes=============================================
25846:
25847: --=====================Start of Copy Lines=====================================================
25848: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25849: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25850: FND_LOG.string(FND_LOG.level_statement
25851: ,l_module_name||'.copy_lines'
25852: ,'Before call to copy_lines , P_From_Chr_ID='||p_chr_id
25845: --=====================End of Copy OKS Header Notes=============================================
25846:
25847: --=====================Start of Copy Lines=====================================================
25848: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25849: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25850: FND_LOG.string(FND_LOG.level_statement
25851: ,l_module_name||'.copy_lines'
25852: ,'Before call to copy_lines , P_From_Chr_ID='||p_chr_id
25853: ||' P_To_Chr_ID='||l_to_chr_id
25846:
25847: --=====================Start of Copy Lines=====================================================
25848: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25849: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25850: FND_LOG.string(FND_LOG.level_statement
25851: ,l_module_name||'.copy_lines'
25852: ,'Before call to copy_lines , P_From_Chr_ID='||p_chr_id
25853: ||' P_To_Chr_ID='||l_to_chr_id
25854: ||' P_Renew_Ref_YN='||P_Renew_Ref_YN
25868: ,P_Renew_Ref_YN => P_Renew_Ref_YN
25869: ,p_include_cancelled_lines => p_include_cancelled_lines
25870: ,p_include_terminated_lines => p_include_terminated_lines) ;
25871:
25872: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25873: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25874: FND_LOG.string(FND_LOG.level_statement
25875: ,l_module_name||'.copy_lines'
25876: ,'After call to copy_lines: x_return_status:'||l_return_status
25869: ,p_include_cancelled_lines => p_include_cancelled_lines
25870: ,p_include_terminated_lines => p_include_terminated_lines) ;
25871:
25872: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25873: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25874: FND_LOG.string(FND_LOG.level_statement
25875: ,l_module_name||'.copy_lines'
25876: ,'After call to copy_lines: x_return_status:'||l_return_status
25877: ||' '||SQLERRM
25870: ,p_include_terminated_lines => p_include_terminated_lines) ;
25871:
25872: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25873: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25874: FND_LOG.string(FND_LOG.level_statement
25875: ,l_module_name||'.copy_lines'
25876: ,'After call to copy_lines: x_return_status:'||l_return_status
25877: ||' '||SQLERRM
25878: ||'Time Stamp after copy_lines:'||to_char(sysdate,'DD-MON-YYYY HH:MI:SS')
25904: */
25905:
25906:
25907:
25908: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
25909: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
25910: FND_LOG.string(FND_LOG.level_procedure
25911: ,l_module_name||'.End'
25912: ,'x_to_chr_id='||x_to_chr_id
25905:
25906:
25907:
25908: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
25909: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
25910: FND_LOG.string(FND_LOG.level_procedure
25911: ,l_module_name||'.End'
25912: ,'x_to_chr_id='||x_to_chr_id
25913: ||',x_return_status='||x_return_status);
25906:
25907:
25908: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
25909: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
25910: FND_LOG.string(FND_LOG.level_procedure
25911: ,l_module_name||'.End'
25912: ,'x_to_chr_id='||x_to_chr_id
25913: ||',x_return_status='||x_return_status);
25914: END IF;
25950: EXCEPTION
25951: WHEN OTHERS THEN
25952: l_result := NULL;
25953: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'Error in SeedStatus' , substr(SQLERRM,1,240));
25954: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
25955: FND_LOG.string(FND_LOG.level_unexpected
25956: ,'SeedStatus.EXCEPTION'
25957: ,'Exception in call to SeedStatus : SQLERRM ='||SQLERRM
25958: );
25951: WHEN OTHERS THEN
25952: l_result := NULL;
25953: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'Error in SeedStatus' , substr(SQLERRM,1,240));
25954: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
25955: FND_LOG.string(FND_LOG.level_unexpected
25956: ,'SeedStatus.EXCEPTION'
25957: ,'Exception in call to SeedStatus : SQLERRM ='||SQLERRM
25958: );
25959: END IF;
26309: IF (l_debug = 'Y') THEN
26310: OKC_DEBUG.log('200 : Calling IS_COPY_ALLOWED');
26311: END IF;
26312:
26313: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
26314: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
26315: FND_LOG.string(FND_LOG.level_procedure
26316: ,l_module_name||'.Begin'
26317: ,'p_from_chr_id='|| p_from_chr_id
26310: OKC_DEBUG.log('200 : Calling IS_COPY_ALLOWED');
26311: END IF;
26312:
26313: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
26314: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
26315: FND_LOG.string(FND_LOG.level_procedure
26316: ,l_module_name||'.Begin'
26317: ,'p_from_chr_id='|| p_from_chr_id
26318: ||',p_contract_number='||p_contract_number
26311: END IF;
26312:
26313: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
26314: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
26315: FND_LOG.string(FND_LOG.level_procedure
26316: ,l_module_name||'.Begin'
26317: ,'p_from_chr_id='|| p_from_chr_id
26318: ||',p_contract_number='||p_contract_number
26319: ||',p_contract_number_modifier='||p_contract_number_modifier
26320: ||',p_to_template_yn='||p_to_template_yn);
26321: END IF;
26322: END IF;
26323:
26324: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
26325: FND_LOG.string(FND_LOG.level_statement
26326: ,l_module_name
26327: ,'Before Is_Copy_Allowed'
26328: );
26321: END IF;
26322: END IF;
26323:
26324: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
26325: FND_LOG.string(FND_LOG.level_statement
26326: ,l_module_name
26327: ,'Before Is_Copy_Allowed'
26328: );
26329: End If;
26330:
26331: l_result := IS_COPY_ALLOWED(p_from_chr_id, NULL);
26332:
26333:
26334: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
26335: FND_LOG.string(FND_LOG.level_statement
26336: ,l_module_name
26337: ,'After Is_Copy_Allowed'
26338: );
26331: l_result := IS_COPY_ALLOWED(p_from_chr_id, NULL);
26332:
26333:
26334: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
26335: FND_LOG.string(FND_LOG.level_statement
26336: ,l_module_name
26337: ,'After Is_Copy_Allowed'
26338: );
26339: End If;
26368: l_Target_Contract_New_YN := 'Y'; --Indicates to copy_lines API
26369: --whether the Target Contract being copied to
26370: --was pre-existing or was created as part of Copy
26371:
26372: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
26373: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
26374: FND_LOG.string(FND_LOG.level_procedure
26375: ,l_module_name||'.Copy_Contract_Header'
26376: ,'Before call to Copy_Contract_Header'
26369: --whether the Target Contract being copied to
26370: --was pre-existing or was created as part of Copy
26371:
26372: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
26373: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
26374: FND_LOG.string(FND_LOG.level_procedure
26375: ,l_module_name||'.Copy_Contract_Header'
26376: ,'Before call to Copy_Contract_Header'
26377: );
26370: --was pre-existing or was created as part of Copy
26371:
26372: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
26373: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
26374: FND_LOG.string(FND_LOG.level_procedure
26375: ,l_module_name||'.Copy_Contract_Header'
26376: ,'Before call to Copy_Contract_Header'
26377: );
26378: END IF;
26390: p_to_template_yn => p_to_template_yn,
26391: p_renew_ref_yn => 'N',
26392: x_to_chr_id => l_to_chr_id);
26393:
26394: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26395: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
26396: FND_LOG.string(FND_LOG.level_statement
26397: ,l_module_name||'.copy_contract_header'
26398: ,'After call to copy_contract_header: x_return_status:'||l_return_status
26391: p_renew_ref_yn => 'N',
26392: x_to_chr_id => l_to_chr_id);
26393:
26394: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26395: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
26396: FND_LOG.string(FND_LOG.level_statement
26397: ,l_module_name||'.copy_contract_header'
26398: ,'After call to copy_contract_header: x_return_status:'||l_return_status
26399: ||' '||SQLERRM
26392: x_to_chr_id => l_to_chr_id);
26393:
26394: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26395: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
26396: FND_LOG.string(FND_LOG.level_statement
26397: ,l_module_name||'.copy_contract_header'
26398: ,'After call to copy_contract_header: x_return_status:'||l_return_status
26399: ||' '||SQLERRM
26400: );
26580:
26581: --===================-Start of Copy OKS Header attributes ========================================
26582: Begin
26583: /*--Call to copy source contract record in OKS_K_HEADERS_B */
26584: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26585: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
26586: FND_LOG.string(FND_LOG.level_statement
26587: ,l_module_name||'.oks_setup_util_pub.copy_hdr_attr'
26588: ,'Before call to oks_setup_util_pub.copy_hdr_attr'
26581: --===================-Start of Copy OKS Header attributes ========================================
26582: Begin
26583: /*--Call to copy source contract record in OKS_K_HEADERS_B */
26584: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26585: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
26586: FND_LOG.string(FND_LOG.level_statement
26587: ,l_module_name||'.oks_setup_util_pub.copy_hdr_attr'
26588: ,'Before call to oks_setup_util_pub.copy_hdr_attr'
26589: ||' P_From_Chr_ID = '||p_from_chr_id
26582: Begin
26583: /*--Call to copy source contract record in OKS_K_HEADERS_B */
26584: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26585: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
26586: FND_LOG.string(FND_LOG.level_statement
26587: ,l_module_name||'.oks_setup_util_pub.copy_hdr_attr'
26588: ,'Before call to oks_setup_util_pub.copy_hdr_attr'
26589: ||' P_From_Chr_ID = '||p_from_chr_id
26590: ||',P_To_Chr_ID = '||l_to_chr_id
26597: ,p_new_chr_id => l_to_chr_id --Target Contract Header ID
26598: ,p_duration_match => NULL
26599: ,p_renew_ref_YN => 'N'
26600: ,x_return_status => l_return_status);
26601: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26602: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
26603: FND_LOG.string(FND_LOG.level_statement
26604: ,l_module_name||'.oks_setup_util_pub.copy_hdr_attr'
26605: ,'After call to oks_setup_util_pub.copy_hdr_attr: x_return_status:'||l_return_status
26598: ,p_duration_match => NULL
26599: ,p_renew_ref_YN => 'N'
26600: ,x_return_status => l_return_status);
26601: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26602: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
26603: FND_LOG.string(FND_LOG.level_statement
26604: ,l_module_name||'.oks_setup_util_pub.copy_hdr_attr'
26605: ,'After call to oks_setup_util_pub.copy_hdr_attr: x_return_status:'||l_return_status
26606: ||' '||SQLERRM
26599: ,p_renew_ref_YN => 'N'
26600: ,x_return_status => l_return_status);
26601: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26602: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
26603: FND_LOG.string(FND_LOG.level_statement
26604: ,l_module_name||'.oks_setup_util_pub.copy_hdr_attr'
26605: ,'After call to oks_setup_util_pub.copy_hdr_attr: x_return_status:'||l_return_status
26606: ||' '||SQLERRM
26607: );
26626: CLOSE GetHdrTrxnInfo;
26627:
26628: If (l_Hdr_Old_Trxn_Extn_ID IS NOT NULL AND l_Hdr_Bill_To_Site_Use_ID IS NOT NULL) then
26629:
26630: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26631: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
26632: FND_LOG.string(FND_LOG.level_statement
26633: ,l_module_name||'.Create_Transaction_Extension'
26634: ,'Before call to Create_Transaction_Extension for Header in COPY_COMPONENTS'
26627:
26628: If (l_Hdr_Old_Trxn_Extn_ID IS NOT NULL AND l_Hdr_Bill_To_Site_Use_ID IS NOT NULL) then
26629:
26630: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26631: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
26632: FND_LOG.string(FND_LOG.level_statement
26633: ,l_module_name||'.Create_Transaction_Extension'
26634: ,'Before call to Create_Transaction_Extension for Header in COPY_COMPONENTS'
26635: ||'Bill to site use id='||l_Hdr_Bill_To_Site_Use_ID
26628: If (l_Hdr_Old_Trxn_Extn_ID IS NOT NULL AND l_Hdr_Bill_To_Site_Use_ID IS NOT NULL) then
26629:
26630: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26631: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
26632: FND_LOG.string(FND_LOG.level_statement
26633: ,l_module_name||'.Create_Transaction_Extension'
26634: ,'Before call to Create_Transaction_Extension for Header in COPY_COMPONENTS'
26635: ||'Bill to site use id='||l_Hdr_Bill_To_Site_Use_ID
26636: ||'Old Trxn ID='||l_Hdr_Old_Trxn_Extn_ID
26650: ,x_msg_count => x_msg_count
26651: ,x_return_status => l_return_status) ;
26652:
26653:
26654: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26655: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
26656: FND_LOG.string(FND_LOG.level_statement
26657: ,l_module_name||'.Create_Transaction_Extension'
26658: ,'After call to Create_Transaction_Extension for Header: x_return_status :'||l_return_status
26651: ,x_return_status => l_return_status) ;
26652:
26653:
26654: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26655: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
26656: FND_LOG.string(FND_LOG.level_statement
26657: ,l_module_name||'.Create_Transaction_Extension'
26658: ,'After call to Create_Transaction_Extension for Header: x_return_status :'||l_return_status
26659: ||'New Trxn ID='||l_Hdr_New_Trxn_Extn_ID
26652:
26653:
26654: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26655: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
26656: FND_LOG.string(FND_LOG.level_statement
26657: ,l_module_name||'.Create_Transaction_Extension'
26658: ,'After call to Create_Transaction_Extension for Header: x_return_status :'||l_return_status
26659: ||'New Trxn ID='||l_Hdr_New_Trxn_Extn_ID
26660: );
26672: SET TRXN_EXTENSION_ID = l_Hdr_New_Trxn_Extn_ID
26673: WHERE CHR_ID = l_to_chr_id;
26674:
26675: If SQL%NOTFOUND then
26676: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26677: FND_LOG.string(FND_LOG.level_statement
26678: ,l_module_name||'.Create_Transaction_Extension'
26679: ,'Error in Update OKS_K_HEADERS_B, row not found for update'
26680: );
26673: WHERE CHR_ID = l_to_chr_id;
26674:
26675: If SQL%NOTFOUND then
26676: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26677: FND_LOG.string(FND_LOG.level_statement
26678: ,l_module_name||'.Create_Transaction_Extension'
26679: ,'Error in Update OKS_K_HEADERS_B, row not found for update'
26680: );
26681: END IF;
26692:
26693: --===================Start of Copy OKS Header Notes=============================================
26694: Begin
26695: /*--Call to copy Header notes -----*/
26696: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26697: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
26698: FND_LOG.string(FND_LOG.level_statement
26699: ,l_module_name||'.oks_coverages_pvt.copy_k_hdr_notes'
26700: ,'Before call to oks_coverages_pvt.copy_k_hdr_notes'
26693: --===================Start of Copy OKS Header Notes=============================================
26694: Begin
26695: /*--Call to copy Header notes -----*/
26696: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26697: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
26698: FND_LOG.string(FND_LOG.level_statement
26699: ,l_module_name||'.oks_coverages_pvt.copy_k_hdr_notes'
26700: ,'Before call to oks_coverages_pvt.copy_k_hdr_notes'
26701: );
26694: Begin
26695: /*--Call to copy Header notes -----*/
26696: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26697: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
26698: FND_LOG.string(FND_LOG.level_statement
26699: ,l_module_name||'.oks_coverages_pvt.copy_k_hdr_notes'
26700: ,'Before call to oks_coverages_pvt.copy_k_hdr_notes'
26701: );
26702: END IF;
26709: x_return_status => l_return_status,
26710: x_msg_count => x_msg_count,
26711: x_msg_data => x_msg_data);
26712:
26713: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26714: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
26715: FND_LOG.string(FND_LOG.level_statement
26716: ,l_module_name||'.oks_coverages_pvt.copy_k_hdr_notes'
26717: ,'After call to oks_coverages_pvt.copy_k_hdr_notes: x_return_status:'||l_return_status
26710: x_msg_count => x_msg_count,
26711: x_msg_data => x_msg_data);
26712:
26713: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26714: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
26715: FND_LOG.string(FND_LOG.level_statement
26716: ,l_module_name||'.oks_coverages_pvt.copy_k_hdr_notes'
26717: ,'After call to oks_coverages_pvt.copy_k_hdr_notes: x_return_status:'||l_return_status
26718: ||' '||SQLERRM
26711: x_msg_data => x_msg_data);
26712:
26713: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26714: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
26715: FND_LOG.string(FND_LOG.level_statement
26716: ,l_module_name||'.oks_coverages_pvt.copy_k_hdr_notes'
26717: ,'After call to oks_coverages_pvt.copy_k_hdr_notes: x_return_status:'||l_return_status
26718: ||' '||SQLERRM
26719: );
26744: IF (
26745: l_Target_Contract_New_YN <> 'Y' AND
26746: (l_lines_tbl.COUNT > 0 OR l_components_tbl.COUNT > 0)
26747: ) THEN
26748: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26749: FND_LOG.string(FND_LOG.level_statement
26750: ,l_module_name
26751: ,'Current Target Contract Status : '||g_chrv_rec.sts_code
26752: );
26745: l_Target_Contract_New_YN <> 'Y' AND
26746: (l_lines_tbl.COUNT > 0 OR l_components_tbl.COUNT > 0)
26747: ) THEN
26748: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26749: FND_LOG.string(FND_LOG.level_statement
26750: ,l_module_name
26751: ,'Current Target Contract Status : '||g_chrv_rec.sts_code
26752: );
26753: END IF;
26878: OKC_DEBUG.log('10000 : Exiting Procedure OKS_COPY_CONTRACT_PVT.copy_components ', 2);
26879: OKC_DEBUG.ReSet_Indentation;
26880: END IF;
26881:
26882: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
26883: FND_LOG.string(FND_LOG.level_procedure
26884: ,l_module_name||'.END'
26885: ,'Exiting copy_components '
26886: ||', x_return_status='||x_return_status
26879: OKC_DEBUG.ReSet_Indentation;
26880: END IF;
26881:
26882: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
26883: FND_LOG.string(FND_LOG.level_procedure
26884: ,l_module_name||'.END'
26885: ,'Exiting copy_components '
26886: ||', x_return_status='||x_return_status
26887: ||', x_to_chr_id = '||x_to_chr_id