[Home] [Help]
201: ,l_cle_id
202: ,l_lse_id
203: ,l_orig_system_id1;
204: EXIT WHEN gettemptablelines%NOTFOUND;
205: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
206: FND_LOG.string(FND_LOG.level_statement
207: ,'OKS.plsql.OKS_COPY_CONTRACT_PVT.printtemptable'
208: ,'ID:'||l_id||' : CLE_ID:'||l_cle_id||' : LSE_ID:'||l_lse_id||' : ORIG ID:'||l_orig_system_id1
209: );
202: ,l_lse_id
203: ,l_orig_system_id1;
204: EXIT WHEN gettemptablelines%NOTFOUND;
205: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
206: FND_LOG.string(FND_LOG.level_statement
207: ,'OKS.plsql.OKS_COPY_CONTRACT_PVT.printtemptable'
208: ,'ID:'||l_id||' : CLE_ID:'||l_cle_id||' : LSE_ID:'||l_lse_id||' : ORIG ID:'||l_orig_system_id1
209: );
210: END IF;
1047: x_return_status := l_return_status;
1048: RAISE G_EXCEPTION_HALT_VALIDATION;
1049: ELSE
1050: x_return_status := OKC_API.G_RET_STS_WARNING;
1051: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1052: FND_LOG.string(FND_LOG.level_statement
1053: ,'OKS.plsql.OKS_COPY_CONTRACT_PVT.copy_events'
1054: ,'After call to OKC_CONDITIONS_PUB.create_cond_hdrs'
1055: ||' x_return_status:'||l_return_status
1048: RAISE G_EXCEPTION_HALT_VALIDATION;
1049: ELSE
1050: x_return_status := OKC_API.G_RET_STS_WARNING;
1051: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1052: FND_LOG.string(FND_LOG.level_statement
1053: ,'OKS.plsql.OKS_COPY_CONTRACT_PVT.copy_events'
1054: ,'After call to OKC_CONDITIONS_PUB.create_cond_hdrs'
1055: ||' x_return_status:'||l_return_status
1056: ||' x_err_msg='||fnd_msg_pub.get(p_encoded=>'F')
1360: p_source_object_id_instance => p_new_cle_id,--new line id
1361: x_ctr_grp_id_template => l_ctr_grp_id_template,
1362: x_ctr_grp_id_instance => l_ctr_grp_id_instance);
1363:
1364: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1365: FND_LOG.string(FND_LOG.level_statement
1366: ,'OKS.plsql.OKS_COPY_CONTRACT_PVT.instantiate_counters'
1367: ,'After call to CS_COUNTERS_PUB.AUTOINSTANTIATE_COUNTERS'
1368: ||'p_new_cle_id='||p_new_cle_id
1361: x_ctr_grp_id_template => l_ctr_grp_id_template,
1362: x_ctr_grp_id_instance => l_ctr_grp_id_instance);
1363:
1364: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1365: FND_LOG.string(FND_LOG.level_statement
1366: ,'OKS.plsql.OKS_COPY_CONTRACT_PVT.instantiate_counters'
1367: ,'After call to CS_COUNTERS_PUB.AUTOINSTANTIATE_COUNTERS'
1368: ||'p_new_cle_id='||p_new_cle_id
1369: ||'x_ctr_grp_id_template='||l_ctr_grp_id_template
1644: x_return_status := l_return_status;
1645: l_return_status := get_chrv_rec( p_chr_id => p_from_chr_id,
1646: x_chrv_rec => l_chrv_rec);
1647:
1648: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1649: FND_LOG.string(FND_LOG.level_statement
1650: ,l_module_name||'.get_chrv_rec'
1651: ,'Contract ID='||l_chrv_rec.ID||', Contract Number='||l_chrv_rec.contract_number
1652: );
1645: l_return_status := get_chrv_rec( p_chr_id => p_from_chr_id,
1646: x_chrv_rec => l_chrv_rec);
1647:
1648: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1649: FND_LOG.string(FND_LOG.level_statement
1650: ,l_module_name||'.get_chrv_rec'
1651: ,'Contract ID='||l_chrv_rec.ID||', Contract Number='||l_chrv_rec.contract_number
1652: );
1653: END IF;
1786: -- Bug 2836000 end commented out as copy api should copy header amoutn as well in all the cases
1787: -- Bug 2027165 - Added user_estimated amount as this is new column
1788: l_chrv_rec.user_estimated_amount := NULL;
1789:
1790: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1791: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
1792: FND_LOG.string(FND_LOG.level_statement
1793: ,l_module_name||'.okc_contract_pub.create_contract_header'
1794: ,'Before call to okc_contract_pub.create_contract_header:'
1787: -- Bug 2027165 - Added user_estimated amount as this is new column
1788: l_chrv_rec.user_estimated_amount := NULL;
1789:
1790: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1791: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
1792: FND_LOG.string(FND_LOG.level_statement
1793: ,l_module_name||'.okc_contract_pub.create_contract_header'
1794: ,'Before call to okc_contract_pub.create_contract_header:'
1795: ||'l_Chrv_rec.ID='||l_chrv_rec.id
1788: l_chrv_rec.user_estimated_amount := NULL;
1789:
1790: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1791: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
1792: FND_LOG.string(FND_LOG.level_statement
1793: ,l_module_name||'.okc_contract_pub.create_contract_header'
1794: ,'Before call to okc_contract_pub.create_contract_header:'
1795: ||'l_Chrv_rec.ID='||l_chrv_rec.id
1796: );
1836: p_chrv_rec => l_chrv_rec,
1837: x_chrv_rec => x_chrv_rec);
1838:
1839:
1840: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1841: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
1842: FND_LOG.string(FND_LOG.level_statement
1843: ,l_module_name||'.okc_contract_pub.create_contract_header'
1844: ,'After call to okc_contract_pub.create_contract_header: x_return_status:'||l_return_status
1837: x_chrv_rec => x_chrv_rec);
1838:
1839:
1840: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1841: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
1842: FND_LOG.string(FND_LOG.level_statement
1843: ,l_module_name||'.okc_contract_pub.create_contract_header'
1844: ,'After call to okc_contract_pub.create_contract_header: x_return_status:'||l_return_status
1845: ||' '||SQLERRM
1838:
1839:
1840: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1841: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
1842: FND_LOG.string(FND_LOG.level_statement
1843: ,l_module_name||'.okc_contract_pub.create_contract_header'
1844: ,'After call to okc_contract_pub.create_contract_header: x_return_status:'||l_return_status
1845: ||' '||SQLERRM
1846: );
1865: x_msg_data => x_msg_data,
1866: p_chrv_rec => l_chrv_rec,
1867: p_to_chr_id => x_to_chr_id);
1868: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1869: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1870: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
1871: FND_LOG.string(FND_LOG.level_statement
1872: ,l_module_name||'.create_renewal_header_link'
1873: ,'After call to Create_Renewal_Header_Link: x_return_status:'||l_return_status
1866: p_chrv_rec => l_chrv_rec,
1867: p_to_chr_id => x_to_chr_id);
1868: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1869: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1870: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
1871: FND_LOG.string(FND_LOG.level_statement
1872: ,l_module_name||'.create_renewal_header_link'
1873: ,'After call to Create_Renewal_Header_Link: x_return_status:'||l_return_status
1874: ||' '||SQLERRM
1867: p_to_chr_id => x_to_chr_id);
1868: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1869: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1870: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
1871: FND_LOG.string(FND_LOG.level_statement
1872: ,l_module_name||'.create_renewal_header_link'
1873: ,'After call to Create_Renewal_Header_Link: x_return_status:'||l_return_status
1874: ||' '||SQLERRM
1875: );
1896: l_entity_name := 'OKC_K_HEADERS_V';
1897: l_from_entity_name := 'OKC_K_HEADERS_V';
1898: l_to_entity_name := 'OKC_K_HEADERS_V';
1899:
1900: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1901: FND_LOG.string(FND_LOG.level_statement
1902: ,l_module_name||'.fnd_attachment_util_pkg.get_atchmt_exists'
1903: ,'Before call to fnd_attachment_util_pkg.get_atchmt_exists'
1904: ||' l_entity_name='||l_entity_name
1897: l_from_entity_name := 'OKC_K_HEADERS_V';
1898: l_to_entity_name := 'OKC_K_HEADERS_V';
1899:
1900: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1901: FND_LOG.string(FND_LOG.level_statement
1902: ,l_module_name||'.fnd_attachment_util_pkg.get_atchmt_exists'
1903: ,'Before call to fnd_attachment_util_pkg.get_atchmt_exists'
1904: ||' l_entity_name='||l_entity_name
1905: ||',l_pkey1='||p_from_chr_id
1919: -- bug 1553916 completes
1920: -- ,l_pkey2 => l_from_version) = 'Y')
1921: -- also below remove the comments
1922: -- in fnd_attached_documents2_pkg.copy_attachments call
1923: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1924: FND_LOG.string(FND_LOG.level_statement
1925: ,l_module_name
1926: ,'After call to fnd_attachment_util_pkg.get_atchmt_exists'
1927: );
1920: -- ,l_pkey2 => l_from_version) = 'Y')
1921: -- also below remove the comments
1922: -- in fnd_attached_documents2_pkg.copy_attachments call
1923: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1924: FND_LOG.string(FND_LOG.level_statement
1925: ,l_module_name
1926: ,'After call to fnd_attachment_util_pkg.get_atchmt_exists'
1927: );
1928: END IF;
1935: x_to_entity_name => l_to_entity_name,
1936: x_to_pk1_value => x_to_chr_id
1937: --x_to_pk2_value => '0'
1938: );
1939: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1940: FND_LOG.string(FND_LOG.level_statement
1941: ,l_module_name
1942: ,'After call to fnd_attached_documents2_pkg.copy_attachments'
1943: );
1936: x_to_pk1_value => x_to_chr_id
1937: --x_to_pk2_value => '0'
1938: );
1939: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1940: FND_LOG.string(FND_LOG.level_statement
1941: ,l_module_name
1942: ,'After call to fnd_attached_documents2_pkg.copy_attachments'
1943: );
1944: END IF;
1944: END IF;
1945:
1946: EXCEPTION
1947: WHEN OTHERS THEN
1948: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
1949: IF (FND_LOG.test(FND_LOG.level_unexpected, l_module_name)) THEN
1950: FND_LOG.string(FND_LOG.level_unexpected
1951: ,l_module_name||'.fnd_attached_documents2_pkg.copy_attachments'
1952: ,'After call to fnd_attached_documents2_pkg.copy_attachments'
1945:
1946: EXCEPTION
1947: WHEN OTHERS THEN
1948: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
1949: IF (FND_LOG.test(FND_LOG.level_unexpected, l_module_name)) THEN
1950: FND_LOG.string(FND_LOG.level_unexpected
1951: ,l_module_name||'.fnd_attached_documents2_pkg.copy_attachments'
1952: ,'After call to fnd_attached_documents2_pkg.copy_attachments'
1953: ||' '||SQLERRM
1946: EXCEPTION
1947: WHEN OTHERS THEN
1948: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
1949: IF (FND_LOG.test(FND_LOG.level_unexpected, l_module_name)) THEN
1950: FND_LOG.string(FND_LOG.level_unexpected
1951: ,l_module_name||'.fnd_attached_documents2_pkg.copy_attachments'
1952: ,'After call to fnd_attached_documents2_pkg.copy_attachments'
1953: ||' '||SQLERRM
1954: );
1967: p_from_chr_id => p_from_chr_id,
1968: p_to_chr_id => x_chrv_rec.id);
1969:
1970: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1971: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1972: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
1973: FND_LOG.string(FND_LOG.level_statement
1974: ,l_module_name||'.copy_accesses'
1975: ,'After call to copy_acceses: x_return_status:'||l_return_status
1968: p_to_chr_id => x_chrv_rec.id);
1969:
1970: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1971: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1972: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
1973: FND_LOG.string(FND_LOG.level_statement
1974: ,l_module_name||'.copy_accesses'
1975: ,'After call to copy_acceses: x_return_status:'||l_return_status
1976: ||' '||SQLERRM
1969:
1970: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1971: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1972: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
1973: FND_LOG.string(FND_LOG.level_statement
1974: ,l_module_name||'.copy_accesses'
1975: ,'After call to copy_acceses: x_return_status:'||l_return_status
1976: ||' '||SQLERRM
1977: );
1994: p_from_chr_id => p_from_chr_id,
1995: p_to_chr_id => x_chrv_rec.id);
1996:
1997: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1998: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1999: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
2000: FND_LOG.string(FND_LOG.level_statement
2001: ,l_module_name||'.copy_processes'
2002: ,'After call to copy_processes : x_return_status:'||l_return_status
1995: p_to_chr_id => x_chrv_rec.id);
1996:
1997: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1998: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1999: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
2000: FND_LOG.string(FND_LOG.level_statement
2001: ,l_module_name||'.copy_processes'
2002: ,'After call to copy_processes : x_return_status:'||l_return_status
2003: ||' '||SQLERRM
1996:
1997: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1998: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1999: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
2000: FND_LOG.string(FND_LOG.level_statement
2001: ,l_module_name||'.copy_processes'
2002: ,'After call to copy_processes : x_return_status:'||l_return_status
2003: ||' '||SQLERRM
2004: );
2021: p_from_chr_id => p_from_chr_id,
2022: p_to_chr_id => x_chrv_rec.id);
2023:
2024: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2025: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2026: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
2027: FND_LOG.string(FND_LOG.level_statement
2028: ,l_module_name||'.copy_grpings'
2029: ,'After call to copy_grpings: x_return_status:'||l_return_status
2022: p_to_chr_id => x_chrv_rec.id);
2023:
2024: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2025: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2026: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
2027: FND_LOG.string(FND_LOG.level_statement
2028: ,l_module_name||'.copy_grpings'
2029: ,'After call to copy_grpings: x_return_status:'||l_return_status
2030: ||' '||SQLERRM
2023:
2024: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2025: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2026: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
2027: FND_LOG.string(FND_LOG.level_statement
2028: ,l_module_name||'.copy_grpings'
2029: ,'After call to copy_grpings: x_return_status:'||l_return_status
2030: ||' '||SQLERRM
2031: );
3844:
3845: LOOP
3846: If (P_Partial_Copy_YN = 'N') then
3847: /*
3848: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
3849: FND_LOG.string(FND_LOG.level_statement
3850: ,l_module_name
3851: ,'Inside GenerateNewLineNumber, FETCHing from allLines'
3852: );
3845: LOOP
3846: If (P_Partial_Copy_YN = 'N') then
3847: /*
3848: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
3849: FND_LOG.string(FND_LOG.level_statement
3850: ,l_module_name
3851: ,'Inside GenerateNewLineNumber, FETCHing from allLines'
3852: );
3853: End If;
3854: */
3855: FETCH allLines into l_id,l_line_number,l_cle_id;
3856: Elsif (P_Partial_Copy_YN = 'Y') then
3857: /*
3858: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
3859: FND_LOG.string(FND_LOG.level_statement
3860: ,l_module_name
3861: ,'Inside GenerateNewLineNumber, FETCHing from partialLines'
3862: );
3855: FETCH allLines into l_id,l_line_number,l_cle_id;
3856: Elsif (P_Partial_Copy_YN = 'Y') then
3857: /*
3858: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
3859: FND_LOG.string(FND_LOG.level_statement
3860: ,l_module_name
3861: ,'Inside GenerateNewLineNumber, FETCHing from partialLines'
3862: );
3863: End If;
3870: Elsif (P_Partial_Copy_YN = 'Y') then
3871: EXIT WHEN partialLines%NOTFOUND;
3872: End If;
3873:
3874: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
3875: FND_LOG.string(FND_LOG.level_statement
3876: ,l_module_name
3877: ,'ID='||l_id||',Line Num='||l_line_number||', Cle ID='||l_cle_id
3878: );
3871: EXIT WHEN partialLines%NOTFOUND;
3872: End If;
3873:
3874: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
3875: FND_LOG.string(FND_LOG.level_statement
3876: ,l_module_name
3877: ,'ID='||l_id||',Line Num='||l_line_number||', Cle ID='||l_cle_id
3878: );
3879: End If;
3953:
3954: EXCEPTION
3955: WHEN OTHERS THEN
3956: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
3957: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
3958: IF (FND_LOG.test(FND_LOG.level_unexpected, l_module_name)) THEN
3959: FND_LOG.string(FND_LOG.level_unexpected
3960: ,l_module_name||'.GenerateNewLineNumber'
3961: ,'EXCEPTION in GenerateNewLineNumber '||SQLERRM
3954: EXCEPTION
3955: WHEN OTHERS THEN
3956: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
3957: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
3958: IF (FND_LOG.test(FND_LOG.level_unexpected, l_module_name)) THEN
3959: FND_LOG.string(FND_LOG.level_unexpected
3960: ,l_module_name||'.GenerateNewLineNumber'
3961: ,'EXCEPTION in GenerateNewLineNumber '||SQLERRM
3962: );
3955: WHEN OTHERS THEN
3956: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
3957: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
3958: IF (FND_LOG.test(FND_LOG.level_unexpected, l_module_name)) THEN
3959: FND_LOG.string(FND_LOG.level_unexpected
3960: ,l_module_name||'.GenerateNewLineNumber'
3961: ,'EXCEPTION in GenerateNewLineNumber '||SQLERRM
3962: );
3963: END IF;
4034: AND okcBT.DNZ_CHR_ID = P_To_Chr_ID;
4035:
4036:
4037: Begin
4038: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
4039: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
4040: FND_LOG.string(FND_LOG.level_procedure
4041: ,l_module_name
4042: ,'begin: '
4035:
4036:
4037: Begin
4038: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
4039: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
4040: FND_LOG.string(FND_LOG.level_procedure
4041: ,l_module_name
4042: ,'begin: '
4043: ||',P_From_Chr_ID='||P_From_Chr_ID
4036:
4037: Begin
4038: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
4039: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
4040: FND_LOG.string(FND_LOG.level_procedure
4041: ,l_module_name
4042: ,'begin: '
4043: ||',P_From_Chr_ID='||P_From_Chr_ID
4044: ||',P_To_Chr_ID='||P_To_Chr_ID
4048: END IF;
4049: x_return_status := l_return_status;
4050:
4051: IF (P_Partial_Copy_YN = 'N') THEN
4052: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
4053: FND_LOG.string(FND_LOG.level_statement,l_module_name,'Opening GetOkcLinesTLFull');
4054: End If;
4055: OPEN GetOkcLinesTLFull(P_To_Chr_ID => P_To_Chr_ID);
4056: ELSIF (P_Partial_Copy_YN = 'Y' and P_Lines_Count > 0) THEN
4049: x_return_status := l_return_status;
4050:
4051: IF (P_Partial_Copy_YN = 'N') THEN
4052: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
4053: FND_LOG.string(FND_LOG.level_statement,l_module_name,'Opening GetOkcLinesTLFull');
4054: End If;
4055: OPEN GetOkcLinesTLFull(P_To_Chr_ID => P_To_Chr_ID);
4056: ELSIF (P_Partial_Copy_YN = 'Y' and P_Lines_Count > 0) THEN
4057: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
4053: FND_LOG.string(FND_LOG.level_statement,l_module_name,'Opening GetOkcLinesTLFull');
4054: End If;
4055: OPEN GetOkcLinesTLFull(P_To_Chr_ID => P_To_Chr_ID);
4056: ELSIF (P_Partial_Copy_YN = 'Y' and P_Lines_Count > 0) THEN
4057: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
4058: FND_LOG.string(FND_LOG.level_statement,l_module_name,'Opening GetOkcLinesTLPartial');
4059: End If;
4060: OPEN GetOkcLinesTLPartial(P_To_Chr_ID => P_To_Chr_ID);
4061: END IF;
4054: End If;
4055: OPEN GetOkcLinesTLFull(P_To_Chr_ID => P_To_Chr_ID);
4056: ELSIF (P_Partial_Copy_YN = 'Y' and P_Lines_Count > 0) THEN
4057: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
4058: FND_LOG.string(FND_LOG.level_statement,l_module_name,'Opening GetOkcLinesTLPartial');
4059: End If;
4060: OPEN GetOkcLinesTLPartial(P_To_Chr_ID => P_To_Chr_ID);
4061: END IF;
4062:
4061: END IF;
4062:
4063: LOOP
4064: IF (P_Partial_Copy_YN = 'N') THEN
4065: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
4066: FND_LOG.string(FND_LOG.level_statement,l_module_name,'FETCHing from GetOkcLinesTLFull');
4067: End If;
4068: FETCH GetOkcLinesTLFull BULK COLLECT INTO
4069: OKCLinesTLRecTab.OkcTL_OldID
4062:
4063: LOOP
4064: IF (P_Partial_Copy_YN = 'N') THEN
4065: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
4066: FND_LOG.string(FND_LOG.level_statement,l_module_name,'FETCHing from GetOkcLinesTLFull');
4067: End If;
4068: FETCH GetOkcLinesTLFull BULK COLLECT INTO
4069: OKCLinesTLRecTab.OkcTL_OldID
4070: ,OKCLinesTLRecTab.OkcTL_NewID
4078: ,OKCLinesTLRecTab.OkcTL_SECURITY_GROUP_ID
4079: ,OKCLinesTLRecTab.OkcTL_OKE_BOE_DESCRIPTION
4080: ,OKCLinesTLRecTab.OkcTL_COGNOMEN LIMIT G_BULK_FETCH_LIMIT;
4081: ELSIF (P_Partial_Copy_YN = 'Y' and P_Lines_Count > 0) then
4082: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
4083: FND_LOG.string(FND_LOG.level_statement,l_module_name,'FETCHing from GetOkcLinesTLPartial');
4084: End If;
4085: FETCH GetOkcLinesTLPartial BULK COLLECT INTO
4086: OKCLinesTLRecTab.OkcTL_OldID
4079: ,OKCLinesTLRecTab.OkcTL_OKE_BOE_DESCRIPTION
4080: ,OKCLinesTLRecTab.OkcTL_COGNOMEN LIMIT G_BULK_FETCH_LIMIT;
4081: ELSIF (P_Partial_Copy_YN = 'Y' and P_Lines_Count > 0) then
4082: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
4083: FND_LOG.string(FND_LOG.level_statement,l_module_name,'FETCHing from GetOkcLinesTLPartial');
4084: End If;
4085: FETCH GetOkcLinesTLPartial BULK COLLECT INTO
4086: OKCLinesTLRecTab.OkcTL_OldID
4087: ,OKCLinesTLRecTab.OkcTL_NewID
5544: Begin
5545: x_return_status := l_return_status;
5546:
5547: IF (P_Partial_Copy_YN = 'N') THEN
5548: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5549: FND_LOG.string(FND_LOG.level_statement
5550: ,l_module_name
5551: ,'OPENing GetOkcPAVFull'
5552: );
5545: x_return_status := l_return_status;
5546:
5547: IF (P_Partial_Copy_YN = 'N') THEN
5548: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5549: FND_LOG.string(FND_LOG.level_statement
5550: ,l_module_name
5551: ,'OPENing GetOkcPAVFull'
5552: );
5553: END IF;
5554:
5555: OPEN GetOkcPAVFull;
5556: ELSIF (P_Partial_Copy_YN = 'Y') THEN
5557: IF (P_Target_Contract_New_YN = 'Y' and P_Lines_Count = 0) THEN
5558: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5559: FND_LOG.string(FND_LOG.level_statement
5560: ,l_module_name
5561: ,'OPENing GetOkcPAVPartial_H'
5562: );
5555: OPEN GetOkcPAVFull;
5556: ELSIF (P_Partial_Copy_YN = 'Y') THEN
5557: IF (P_Target_Contract_New_YN = 'Y' and P_Lines_Count = 0) THEN
5558: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5559: FND_LOG.string(FND_LOG.level_statement
5560: ,l_module_name
5561: ,'OPENing GetOkcPAVPartial_H'
5562: );
5563: END IF;
5562: );
5563: END IF;
5564: OPEN GetOkcPAVPartial_H;
5565: ELSIF (P_Target_Contract_New_YN = 'Y' and P_Lines_Count > 0) THEN
5566: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5567: FND_LOG.string(FND_LOG.level_statement
5568: ,l_module_name
5569: ,'OPENing GetOkcPAVPartial_HNL'
5570: );
5563: END IF;
5564: OPEN GetOkcPAVPartial_H;
5565: ELSIF (P_Target_Contract_New_YN = 'Y' and P_Lines_Count > 0) THEN
5566: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5567: FND_LOG.string(FND_LOG.level_statement
5568: ,l_module_name
5569: ,'OPENing GetOkcPAVPartial_HNL'
5570: );
5571: END IF;
5570: );
5571: END IF;
5572: OPEN GetOkcPAVPartial_HNL;
5573: ELSIF (P_Target_Contract_New_YN = 'N' and P_Lines_Count > 0) THEN
5574: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5575: FND_LOG.string(FND_LOG.level_statement
5576: ,l_module_name
5577: ,'OPENing GetOkcPAVPartial_L'
5578: );
5571: END IF;
5572: OPEN GetOkcPAVPartial_HNL;
5573: ELSIF (P_Target_Contract_New_YN = 'N' and P_Lines_Count > 0) THEN
5574: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5575: FND_LOG.string(FND_LOG.level_statement
5576: ,l_module_name
5577: ,'OPENing GetOkcPAVPartial_L'
5578: );
5579: END IF;
5585: END IF;
5586:
5587: LOOP
5588: IF (P_Partial_Copy_YN = 'N') then
5589: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5590: FND_LOG.string(FND_LOG.level_statement
5591: ,l_module_name
5592: ,'FETCHing GetOkcPAVFull'
5593: );
5586:
5587: LOOP
5588: IF (P_Partial_Copy_YN = 'N') then
5589: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5590: FND_LOG.string(FND_LOG.level_statement
5591: ,l_module_name
5592: ,'FETCHing GetOkcPAVFull'
5593: );
5594: END IF;
5810: LIMIT G_BULK_FETCH_LIMIT;
5811:
5812: ELSIF (P_Partial_Copy_YN = 'Y') THEN
5813: IF (P_Target_Contract_New_YN = 'Y' and P_Lines_Count = 0) THEN
5814: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5815: FND_LOG.string(FND_LOG.level_statement
5816: ,l_module_name
5817: ,'FETCHing GetOkcPAVPartial_H'
5818: );
5811:
5812: ELSIF (P_Partial_Copy_YN = 'Y') THEN
5813: IF (P_Target_Contract_New_YN = 'Y' and P_Lines_Count = 0) THEN
5814: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5815: FND_LOG.string(FND_LOG.level_statement
5816: ,l_module_name
5817: ,'FETCHing GetOkcPAVPartial_H'
5818: );
5819: END IF;
6033: ,OkcPAVRecTab.OkcPAV_REQUEST_ID
6034: ,OkcPAVRecTab.OkcPAV_OBJECT_VERSION_NUMBER
6035: LIMIT G_BULK_FETCH_LIMIT;
6036: ELSIF (P_Target_Contract_New_YN = 'Y' and P_Lines_Count > 0) THEN
6037: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
6038: FND_LOG.string(FND_LOG.level_statement
6039: ,l_module_name
6040: ,'FETCHing GetOkcPAVPartial_HNL'
6041: );
6034: ,OkcPAVRecTab.OkcPAV_OBJECT_VERSION_NUMBER
6035: LIMIT G_BULK_FETCH_LIMIT;
6036: ELSIF (P_Target_Contract_New_YN = 'Y' and P_Lines_Count > 0) THEN
6037: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
6038: FND_LOG.string(FND_LOG.level_statement
6039: ,l_module_name
6040: ,'FETCHing GetOkcPAVPartial_HNL'
6041: );
6042: END IF;
6257: ,OkcPAVRecTab.OkcPAV_OBJECT_VERSION_NUMBER
6258: LIMIT G_BULK_FETCH_LIMIT;
6259: ELSIF (P_Target_Contract_New_YN = 'N' and P_Lines_Count > 0) THEN
6260:
6261: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
6262: FND_LOG.string(FND_LOG.level_statement
6263: ,l_module_name
6264: ,'FETCHing GetOkcPAVPartial_L'
6265: );
6258: LIMIT G_BULK_FETCH_LIMIT;
6259: ELSIF (P_Target_Contract_New_YN = 'N' and P_Lines_Count > 0) THEN
6260:
6261: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
6262: FND_LOG.string(FND_LOG.level_statement
6263: ,l_module_name
6264: ,'FETCHing GetOkcPAVPartial_L'
6265: );
6266: END IF;
7462: Begin
7463: x_return_status := l_return_status;
7464:
7465: IF (P_Partial_Copy_YN = 'N') THEN
7466: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
7467: FND_LOG.string(FND_LOG.level_statement
7468: ,l_module_name
7469: ,'OPENing GetOkcPAFull'
7470: );
7463: x_return_status := l_return_status;
7464:
7465: IF (P_Partial_Copy_YN = 'N') THEN
7466: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
7467: FND_LOG.string(FND_LOG.level_statement
7468: ,l_module_name
7469: ,'OPENing GetOkcPAFull'
7470: );
7471: END IF;
7471: END IF;
7472: OPEN GetOkcPAFull;
7473: ELSIF (P_Partial_Copy_YN = 'Y') THEN
7474: IF (P_Target_Contract_New_YN = 'Y' and P_Lines_Count = 0) THEN
7475: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
7476: FND_LOG.string(FND_LOG.level_statement
7477: ,l_module_name
7478: ,'OPENing GetOkcPAPartial_H'
7479: );
7472: OPEN GetOkcPAFull;
7473: ELSIF (P_Partial_Copy_YN = 'Y') THEN
7474: IF (P_Target_Contract_New_YN = 'Y' and P_Lines_Count = 0) THEN
7475: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
7476: FND_LOG.string(FND_LOG.level_statement
7477: ,l_module_name
7478: ,'OPENing GetOkcPAPartial_H'
7479: );
7480: END IF;
7480: END IF;
7481:
7482: OPEN GetOkcPAPartial_H;
7483: ELSIF (P_Target_Contract_New_YN = 'Y' and P_Lines_Count > 0) then
7484: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
7485: FND_LOG.string(FND_LOG.level_statement
7486: ,l_module_name
7487: ,'OPENing GetOkcPAPartial_HNL'
7488: );
7481:
7482: OPEN GetOkcPAPartial_H;
7483: ELSIF (P_Target_Contract_New_YN = 'Y' and P_Lines_Count > 0) then
7484: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
7485: FND_LOG.string(FND_LOG.level_statement
7486: ,l_module_name
7487: ,'OPENing GetOkcPAPartial_HNL'
7488: );
7489: END IF;
7489: END IF;
7490:
7491: OPEN GetOkcPAPartial_HNL;
7492: ELSIF (P_Target_Contract_New_YN = 'N' and P_Lines_Count > 0) then
7493: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
7494: FND_LOG.string(FND_LOG.level_statement
7495: ,l_module_name
7496: ,'OPENing GetOkcPAPartial_L'
7497: );
7490:
7491: OPEN GetOkcPAPartial_HNL;
7492: ELSIF (P_Target_Contract_New_YN = 'N' and P_Lines_Count > 0) then
7493: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
7494: FND_LOG.string(FND_LOG.level_statement
7495: ,l_module_name
7496: ,'OPENing GetOkcPAPartial_L'
7497: );
7498: END IF;
7506:
7507:
7508: LOOP
7509: IF (P_Partial_Copy_YN = 'N') THEN
7510: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
7511: FND_LOG.string(FND_LOG.level_statement
7512: ,l_module_name
7513: ,'FETCHing from GetOkcPAFull'
7514: );
7507:
7508: LOOP
7509: IF (P_Partial_Copy_YN = 'N') THEN
7510: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
7511: FND_LOG.string(FND_LOG.level_statement
7512: ,l_module_name
7513: ,'FETCHing from GetOkcPAFull'
7514: );
7515: END IF;
7581: ,okcPARecTab.OkcPA_REBATE_TRXN_TYPE_CODE LIMIT G_BULK_FETCH_LIMIT;
7582:
7583: ELSIF (P_Partial_Copy_YN = 'Y') THEN
7584: IF (P_Target_Contract_New_YN = 'Y' and P_Lines_Count = 0) THEN
7585: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
7586: FND_LOG.string(FND_LOG.level_statement
7587: ,l_module_name
7588: ,'FETCHing from GetOkcPAPartial_H'
7589: );
7582:
7583: ELSIF (P_Partial_Copy_YN = 'Y') THEN
7584: IF (P_Target_Contract_New_YN = 'Y' and P_Lines_Count = 0) THEN
7585: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
7586: FND_LOG.string(FND_LOG.level_statement
7587: ,l_module_name
7588: ,'FETCHing from GetOkcPAPartial_H'
7589: );
7590: END IF;
7655: ,okcPARecTab.OkcPA_INCLUDE_ON_RETURNS_FLAG
7656: ,okcPARecTab.OkcPA_REBATE_TRXN_TYPE_CODE LIMIT G_BULK_FETCH_LIMIT;
7657:
7658: ELSIF (P_Target_Contract_New_YN = 'Y' and P_Lines_Count > 0) then
7659: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
7660: FND_LOG.string(FND_LOG.level_statement
7661: ,l_module_name
7662: ,'FETCHing from GetOkcPAPartial_HNL'
7663: );
7656: ,okcPARecTab.OkcPA_REBATE_TRXN_TYPE_CODE LIMIT G_BULK_FETCH_LIMIT;
7657:
7658: ELSIF (P_Target_Contract_New_YN = 'Y' and P_Lines_Count > 0) then
7659: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
7660: FND_LOG.string(FND_LOG.level_statement
7661: ,l_module_name
7662: ,'FETCHing from GetOkcPAPartial_HNL'
7663: );
7664: END IF;
7729: ,okcPARecTab.OkcPA_INCLUDE_ON_RETURNS_FLAG
7730: ,okcPARecTab.OkcPA_REBATE_TRXN_TYPE_CODE LIMIT G_BULK_FETCH_LIMIT;
7731:
7732: ELSIF (P_Target_Contract_New_YN = 'N' and P_Lines_Count > 0) then
7733: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
7734: FND_LOG.string(FND_LOG.level_statement
7735: ,l_module_name
7736: ,'FETCHing GetOkcPAPartial_L'
7737: );
7730: ,okcPARecTab.OkcPA_REBATE_TRXN_TYPE_CODE LIMIT G_BULK_FETCH_LIMIT;
7731:
7732: ELSIF (P_Target_Contract_New_YN = 'N' and P_Lines_Count > 0) then
7733: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
7734: FND_LOG.string(FND_LOG.level_statement
7735: ,l_module_name
7736: ,'FETCHing GetOkcPAPartial_L'
7737: );
7738: END IF;
8173: END IF;
8174:
8175: LOOP
8176: IF (P_Partial_Copy_YN = 'N') THEN
8177: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
8178: FND_LOG.string(FND_LOG.level_statement
8179: ,l_module_name
8180: ,'FETCHing from GetOkcPRBFull'
8181: );
8174:
8175: LOOP
8176: IF (P_Partial_Copy_YN = 'N') THEN
8177: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
8178: FND_LOG.string(FND_LOG.level_statement
8179: ,l_module_name
8180: ,'FETCHing from GetOkcPRBFull'
8181: );
8182: END IF;
8222: ,OkcPRBRecTab.OkcPRB_ORIG_SYSTEM_REFERENCE1
8223: ,OkcPRBRecTab.OkcPRB_ORIG_SYSTEM_SOURCE_CODE LIMIT G_BULK_FETCH_LIMIT;
8224:
8225: ELSIF (P_Partial_Copy_YN = 'Y' AND P_Lines_Count > 0) THEN
8226: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
8227: FND_LOG.string(FND_LOG.level_statement
8228: ,l_module_name
8229: ,'FETCHing from GetOkcPRBPartial'
8230: );
8223: ,OkcPRBRecTab.OkcPRB_ORIG_SYSTEM_SOURCE_CODE LIMIT G_BULK_FETCH_LIMIT;
8224:
8225: ELSIF (P_Partial_Copy_YN = 'Y' AND P_Lines_Count > 0) THEN
8226: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
8227: FND_LOG.string(FND_LOG.level_statement
8228: ,l_module_name
8229: ,'FETCHing from GetOkcPRBPartial'
8230: );
8231: END IF;
8364: ,FND_GLOBAL.LOGIN_ID
8365: FROM DUAL;
8366:
8367: IF (P_Partial_Copy_YN = 'N') THEN
8368: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
8369: FND_LOG.string(FND_LOG.level_statement
8370: ,l_module_name
8371: ,'EXITing from GetOkcPRBFull'
8372: );
8365: FROM DUAL;
8366:
8367: IF (P_Partial_Copy_YN = 'N') THEN
8368: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
8369: FND_LOG.string(FND_LOG.level_statement
8370: ,l_module_name
8371: ,'EXITing from GetOkcPRBFull'
8372: );
8373: END IF;
8373: END IF;
8374:
8375: EXIT WHEN GetOkcPRBFull%NOTFOUND;
8376: ELSIF (P_Partial_Copy_YN = 'Y' AND P_Lines_Count > 0) THEN
8377: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
8378: FND_LOG.string(FND_LOG.level_statement
8379: ,l_module_name
8380: ,'EXITing from GetOkcPRBPartial'
8381: );
8374:
8375: EXIT WHEN GetOkcPRBFull%NOTFOUND;
8376: ELSIF (P_Partial_Copy_YN = 'Y' AND P_Lines_Count > 0) THEN
8377: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
8378: FND_LOG.string(FND_LOG.level_statement
8379: ,l_module_name
8380: ,'EXITing from GetOkcPRBPartial'
8381: );
8382: END IF;
8455: OPEN getSourceHdrVendorPartyRoleID;
8456: FETCH getSourceHdrVendorPartyRoleID INTO l_Source_Vendor_PRole_ID;
8457: CLOSE getSourceHdrVendorPartyRoleID;
8458:
8459: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
8460: FND_LOG.string(FND_LOG.level_statement
8461: ,l_module_name
8462: ,'After fetching from getSourceHdrVendorPartyRoleID :'||l_Source_Vendor_PRole_ID
8463: );
8456: FETCH getSourceHdrVendorPartyRoleID INTO l_Source_Vendor_PRole_ID;
8457: CLOSE getSourceHdrVendorPartyRoleID;
8458:
8459: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
8460: FND_LOG.string(FND_LOG.level_statement
8461: ,l_module_name
8462: ,'After fetching from getSourceHdrVendorPartyRoleID :'||l_Source_Vendor_PRole_ID
8463: );
8464: END IF;
8480: x_msg_data => x_msg_data,
8481: p_cplv_rec => l_cplv_rec,
8482: x_cplv_rec => x_cplv_rec);
8483:
8484: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
8485: FND_LOG.string(FND_LOG.level_statement
8486: ,l_module_name
8487: ,'After call to OKC_CONTRACT_PARTY_PUB.create_k_party_role : x_return_status =' ||x_return_status
8488: ||'K-ID:'||x_cplv_rec.dnz_chr_id
8481: p_cplv_rec => l_cplv_rec,
8482: x_cplv_rec => x_cplv_rec);
8483:
8484: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
8485: FND_LOG.string(FND_LOG.level_statement
8486: ,l_module_name
8487: ,'After call to OKC_CONTRACT_PARTY_PUB.create_k_party_role : x_return_status =' ||x_return_status
8488: ||'K-ID:'||x_cplv_rec.dnz_chr_id
8489: ||'Cpl ID:'||x_cplv_rec.id
8500: WHEN OTHERS THEN
8501: IF getSourceHdrVendorPartyRoleID%ISOPEN THEN
8502: CLOSE getSourceHdrVendorPartyRoleID;
8503: END IF;
8504: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
8505: FND_LOG.string(FND_LOG.level_unexpected
8506: ,l_module_name||'.EXCEPTION'
8507: ,'Exception in create_vendor_if_missing: In call to OKC_CONTRACT_PARTY_PUB.create_k_party_role, x_return_status ='
8508: ||x_return_status
8501: IF getSourceHdrVendorPartyRoleID%ISOPEN THEN
8502: CLOSE getSourceHdrVendorPartyRoleID;
8503: END IF;
8504: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
8505: FND_LOG.string(FND_LOG.level_unexpected
8506: ,l_module_name||'.EXCEPTION'
8507: ,'Exception in create_vendor_if_missing: In call to OKC_CONTRACT_PARTY_PUB.create_k_party_role, x_return_status ='
8508: ||x_return_status
8509: ||'SQLERRM ='||SQLERRM
8582:
8583: LOOP
8584:
8585: If (P_Partial_Copy_YN = 'N') then
8586: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
8587: FND_LOG.string(FND_LOG.level_statement
8588: ,l_module_name
8589: ,'FETCHing from GetOkcPRTLFull'
8590: );
8583: LOOP
8584:
8585: If (P_Partial_Copy_YN = 'N') then
8586: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
8587: FND_LOG.string(FND_LOG.level_statement
8588: ,l_module_name
8589: ,'FETCHing from GetOkcPRTLFull'
8590: );
8591: END IF;
8599: ,OkcPRTLRecTab.OkcPRTL_COGNOMEN
8600: ,OkcPRTLRecTab.OkcPRTL_ALIAS
8601: ,OkcPRTLRecTab.OkcPRTL_SECURITY_GROUP_ID LIMIT G_BULK_FETCH_LIMIT;
8602: Elsif (P_Partial_Copy_YN = 'Y' AND P_Lines_Count > 0) then
8603: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
8604: FND_LOG.string(FND_LOG.level_statement
8605: ,l_module_name
8606: ,'FETCHing from GetOkcPRTLPartial'
8607: );
8600: ,OkcPRTLRecTab.OkcPRTL_ALIAS
8601: ,OkcPRTLRecTab.OkcPRTL_SECURITY_GROUP_ID LIMIT G_BULK_FETCH_LIMIT;
8602: Elsif (P_Partial_Copy_YN = 'Y' AND P_Lines_Count > 0) then
8603: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
8604: FND_LOG.string(FND_LOG.level_statement
8605: ,l_module_name
8606: ,'FETCHing from GetOkcPRTLPartial'
8607: );
8608: END IF;
10967:
10968: --l_Target_Line_ID_WithDtsChngd NUMBER;
10969:
10970: Begin
10971: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
10972: FND_LOG.string(FND_LOG.level_procedure
10973: ,l_module_name
10974: ,'Entered copy_pm_for_SkippedLines'
10975: );
10968: --l_Target_Line_ID_WithDtsChngd NUMBER;
10969:
10970: Begin
10971: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
10972: FND_LOG.string(FND_LOG.level_procedure
10973: ,l_module_name
10974: ,'Entered copy_pm_for_SkippedLines'
10975: );
10976: END IF;
10980: FETCH GetLinesWithDatesChanged BULK COLLECT INTO l_lines_tbl LIMIT G_BULK_FETCH_LIMIT;
10981: IF (l_lines_tbl.COUNT > 0) then
10982: FOR i in l_lines_tbl.FIRST..l_lines_tbl.LAST LOOP
10983: Begin
10984: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
10985: FND_LOG.string(FND_LOG.level_statement
10986: ,l_module_name
10987: ,'Target Line ID : '||l_lines_tbl(i).LINE_ID
10988: );
10981: IF (l_lines_tbl.COUNT > 0) then
10982: FOR i in l_lines_tbl.FIRST..l_lines_tbl.LAST LOOP
10983: Begin
10984: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
10985: FND_LOG.string(FND_LOG.level_statement
10986: ,l_module_name
10987: ,'Target Line ID : '||l_lines_tbl(i).LINE_ID
10988: );
10989: END IF;
10995: ,x_msg_data => x_msg_data
10996: ,p_contract_line_id => l_lines_tbl(i).LINE_ID);
10997:
10998: If (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
10999: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
11000: FND_LOG.string(FND_LOG.level_statement
11001: ,l_module_name
11002: ,'Return status from OKS_PM_PROGRAMS_PVT.RENEW_PM_PROGRAM_SCHEDULE : x_return_status ='||x_return_status
11003: );
10996: ,p_contract_line_id => l_lines_tbl(i).LINE_ID);
10997:
10998: If (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
10999: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
11000: FND_LOG.string(FND_LOG.level_statement
11001: ,l_module_name
11002: ,'Return status from OKS_PM_PROGRAMS_PVT.RENEW_PM_PROGRAM_SCHEDULE : x_return_status ='||x_return_status
11003: );
11004: END IF;
11006: End If;
11007:
11008: EXCEPTION
11009: WHEN OTHERS THEN
11010: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
11011: FND_LOG.string(FND_LOG.level_unexpected
11012: ,l_module_name||'.EXCEPTION'
11013: ,'Exception in call to OKS_PM_PROGRAMS_PVT.RENEW_PM_PROGRAM_SCHEDULE, x_return_status ='||x_return_status
11014: ||'SQLERRM ='||SQLERRM
11007:
11008: EXCEPTION
11009: WHEN OTHERS THEN
11010: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
11011: FND_LOG.string(FND_LOG.level_unexpected
11012: ,l_module_name||'.EXCEPTION'
11013: ,'Exception in call to OKS_PM_PROGRAMS_PVT.RENEW_PM_PROGRAM_SCHEDULE, x_return_status ='||x_return_status
11014: ||'SQLERRM ='||SQLERRM
11015: );
13165: End If;
13166:
13167: LOOP
13168: If (P_Partial_Copy_YN = 'N') then
13169: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
13170: FND_LOG.string(FND_LOG.level_statement
13171: ,l_module_name
13172: ,'FETCHing from GetOksLEFull'
13173: );
13166:
13167: LOOP
13168: If (P_Partial_Copy_YN = 'N') then
13169: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
13170: FND_LOG.string(FND_LOG.level_statement
13171: ,l_module_name
13172: ,'FETCHing from GetOksLEFull'
13173: );
13174: END IF;
13195: ,OksLERecTab.OksLE_DATE_END
13196: LIMIT G_BULK_FETCH_LIMIT;
13197: Elsif (P_Partial_Copy_YN = 'Y') then
13198: If (P_Target_Contract_New_YN = 'Y' and P_Lines_Count = 0) then
13199: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
13200: FND_LOG.string(FND_LOG.level_statement
13201: ,l_module_name
13202: ,'FETCHing from GetOksLEPartial_H'
13203: );
13196: LIMIT G_BULK_FETCH_LIMIT;
13197: Elsif (P_Partial_Copy_YN = 'Y') then
13198: If (P_Target_Contract_New_YN = 'Y' and P_Lines_Count = 0) then
13199: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
13200: FND_LOG.string(FND_LOG.level_statement
13201: ,l_module_name
13202: ,'FETCHing from GetOksLEPartial_H'
13203: );
13204: END IF;
13225: ,OksLERecTab.OksLE_DATE_END
13226: LIMIT G_BULK_FETCH_LIMIT;
13227:
13228: Elsif (P_Target_Contract_New_YN = 'Y' and P_Lines_Count > 0) then
13229: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
13230: FND_LOG.string(FND_LOG.level_statement
13231: ,l_module_name
13232: ,'FETCHing from GetOksLEPartial_HNL'
13233: );
13226: LIMIT G_BULK_FETCH_LIMIT;
13227:
13228: Elsif (P_Target_Contract_New_YN = 'Y' and P_Lines_Count > 0) then
13229: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
13230: FND_LOG.string(FND_LOG.level_statement
13231: ,l_module_name
13232: ,'FETCHing from GetOksLEPartial_HNL'
13233: );
13234: END IF;
13255: ,OksLERecTab.OksLE_DATE_END
13256: LIMIT G_BULK_FETCH_LIMIT;
13257:
13258: Elsif (P_Target_Contract_New_YN = 'N' and P_Lines_Count > 0) then
13259: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
13260: FND_LOG.string(FND_LOG.level_statement
13261: ,l_module_name
13262: ,'FETCHing from GetOksLEPartial_L'
13263: );
13256: LIMIT G_BULK_FETCH_LIMIT;
13257:
13258: Elsif (P_Target_Contract_New_YN = 'N' and P_Lines_Count > 0) then
13259: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
13260: FND_LOG.string(FND_LOG.level_statement
13261: ,l_module_name
13262: ,'FETCHing from GetOksLEPartial_L'
13263: );
13264: END IF;
13721:
13722: l_stage varchar2(100) := null;
13723:
13724: BEGIN --Main Begin
13725: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
13726: FND_LOG.string(FND_LOG.level_procedure
13727: ,l_module_name
13728: ,'Entered copy_bsch_for_SkippedLines'
13729: ||' P_From_Chr_ID :'||P_From_Chr_ID
13722: l_stage varchar2(100) := null;
13723:
13724: BEGIN --Main Begin
13725: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
13726: FND_LOG.string(FND_LOG.level_procedure
13727: ,l_module_name
13728: ,'Entered copy_bsch_for_SkippedLines'
13729: ||' P_From_Chr_ID :'||P_From_Chr_ID
13730: ||' P_To_Chr_ID :'||P_To_Chr_ID
13764: ,TargetLinesRecTab.GEN_SUBLINE_BSCH_YN LIMIT G_BULK_FETCH_LIMIT;
13765:
13766: END IF;
13767:
13768: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
13769: FND_LOG.string(FND_LOG.level_statement,l_module_name,' Lines Count :'||TargetLinesRecTab.LINE_ID.COUNT);
13770: END IF;
13771:
13772: IF (TargetLinesRecTab.LINE_ID.COUNT > 0) then
13765:
13766: END IF;
13767:
13768: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
13769: FND_LOG.string(FND_LOG.level_statement,l_module_name,' Lines Count :'||TargetLinesRecTab.LINE_ID.COUNT);
13770: END IF;
13771:
13772: IF (TargetLinesRecTab.LINE_ID.COUNT > 0) then
13773: BEGIN --Begin for looping through TargetLinesRecTab
13772: IF (TargetLinesRecTab.LINE_ID.COUNT > 0) then
13773: BEGIN --Begin for looping through TargetLinesRecTab
13774: FOR i in TargetLinesRecTab.LINE_ID.FIRST..TargetLinesRecTab.LINE_ID.LAST LOOP --2)
13775:
13776: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
13777: FND_LOG.string(FND_LOG.level_statement
13778: ,l_module_name
13779: ,'Target Line ID : '||TargetLinesRecTab.LINE_ID(i)
13780: ||' Target Line Orig System ID1:'||TargetLinesRecTab.ORIG_SYSTEM_ID1(i)
13773: BEGIN --Begin for looping through TargetLinesRecTab
13774: FOR i in TargetLinesRecTab.LINE_ID.FIRST..TargetLinesRecTab.LINE_ID.LAST LOOP --2)
13775:
13776: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
13777: FND_LOG.string(FND_LOG.level_statement
13778: ,l_module_name
13779: ,'Target Line ID : '||TargetLinesRecTab.LINE_ID(i)
13780: ||' Target Line Orig System ID1:'||TargetLinesRecTab.ORIG_SYSTEM_ID1(i)
13781: ||' Target Line CLE_ID :'||TargetLinesRecTab.CLE_ID(i)
13850: ,p_invoice_rule_id => TargetLinesRecTab.INV_RULE_ID(i)
13851: ,x_bil_sch_out_tbl => l_bil_sch_out_tbl
13852: ,x_return_status => x_return_status);
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_rules'
13858: ||',x_return_status='||x_return_status
13851: ,x_bil_sch_out_tbl => l_bil_sch_out_tbl
13852: ,x_return_status => x_return_status);
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_rules'
13858: ||',x_return_status='||x_return_status
13859: );
13865:
13866:
13867: EXCEPTION
13868: WHEN OTHERS THEN
13869: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
13870: FND_LOG.string(FND_LOG.level_unexpected
13871: ,l_module_name||'.EXCEPTION'
13872: ,'Exception in call to OKS_BILL_SCH.create_bill_sch_rules, x_return_status ='||x_return_status
13873: ||'SQLERRM ='||SQLERRM
13866:
13867: EXCEPTION
13868: WHEN OTHERS THEN
13869: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
13870: FND_LOG.string(FND_LOG.level_unexpected
13871: ,l_module_name||'.EXCEPTION'
13872: ,'Exception in call to OKS_BILL_SCH.create_bill_sch_rules, x_return_status ='||x_return_status
13873: ||'SQLERRM ='||SQLERRM
13874: );
13895: ,x_return_status => x_return_status
13896: ,x_msg_count => x_msg_count
13897: ,x_msg_data => x_msg_data
13898: );
13899: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
13900: FND_LOG.string(FND_LOG.level_statement
13901: ,l_module_name
13902: ,'After call to OKS_BILL_SCH.Create_Bill_Sch_CP'
13903: ||',x_return_status='||x_return_status
13896: ,x_msg_count => x_msg_count
13897: ,x_msg_data => x_msg_data
13898: );
13899: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
13900: FND_LOG.string(FND_LOG.level_statement
13901: ,l_module_name
13902: ,'After call to OKS_BILL_SCH.Create_Bill_Sch_CP'
13903: ||',x_return_status='||x_return_status
13904: );
13912:
13913:
13914: EXCEPTION
13915: WHEN OTHERS THEN
13916: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
13917: FND_LOG.string(FND_LOG.level_unexpected
13918: ,l_module_name||'.EXCEPTION'
13919: ,'Exception in call to OKS_BILL_SCH.create_bill_sch_cp, x_return_status ='||x_return_status
13920: ||'SQLERRM ='||SQLERRM
13913:
13914: EXCEPTION
13915: WHEN OTHERS THEN
13916: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
13917: FND_LOG.string(FND_LOG.level_unexpected
13918: ,l_module_name||'.EXCEPTION'
13919: ,'Exception in call to OKS_BILL_SCH.create_bill_sch_cp, x_return_status ='||x_return_status
13920: ||'SQLERRM ='||SQLERRM
13921: );
13930:
13931: END IF; --End If for CLE_ID is NULL check
13932:
13933: If (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
13934: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
13935: FND_LOG.string(FND_LOG.level_statement
13936: ,l_module_name
13937: ,'Return status from OKS_BILL_SCH : x_return_status ='||x_return_status
13938: );
13931: END IF; --End If for CLE_ID is NULL check
13932:
13933: If (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
13934: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
13935: FND_LOG.string(FND_LOG.level_statement
13936: ,l_module_name
13937: ,'Return status from OKS_BILL_SCH : x_return_status ='||x_return_status
13938: );
13939: END IF;
14039:
14040: l_resultant_PriceUOM OKS_K_LINES_B.PRICE_UOM%TYPE;
14041:
14042: Begin
14043: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
14044: FND_LOG.string(FND_LOG.level_procedure
14045: ,l_module_name
14046: ,'Begin instantiate_bsch_using_PPSetup'
14047: ||' P_To_Chr_ID : '||P_To_Chr_ID
14040: l_resultant_PriceUOM OKS_K_LINES_B.PRICE_UOM%TYPE;
14041:
14042: Begin
14043: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
14044: FND_LOG.string(FND_LOG.level_procedure
14045: ,l_module_name
14046: ,'Begin instantiate_bsch_using_PPSetup'
14047: ||' P_To_Chr_ID : '||P_To_Chr_ID
14048: ||' P_To_Line_ID : '||P_To_Line_ID
14128: ,p_sll_tbl => l_HdrStreams_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_hdr_bill_sch'
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_hdr_bill_sch'
14136: ||',x_return_status='||x_return_status
14137: );
14173: ,p_sll_tbl => l_LineStreams_tbl
14174: ,p_invoice_rule_id => InvoiceRuleID
14175: ,x_bil_sch_out_tbl => l_bil_sch_out_tbl
14176: ,x_return_status => x_return_status);
14177: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
14178: FND_LOG.string(FND_LOG.level_statement
14179: ,l_module_name
14180: ,'After call to OKS_BILL_SCH.create_bill_sch_rules'
14181: ||',x_return_status='||x_return_status
14174: ,p_invoice_rule_id => InvoiceRuleID
14175: ,x_bil_sch_out_tbl => l_bil_sch_out_tbl
14176: ,x_return_status => x_return_status);
14177: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
14178: FND_LOG.string(FND_LOG.level_statement
14179: ,l_module_name
14180: ,'After call to OKS_BILL_SCH.create_bill_sch_rules'
14181: ||',x_return_status='||x_return_status
14182: );
14188: END IF; --End of P_To_Line_ID check
14189:
14190: EXCEPTION
14191: WHEN OTHERS THEN
14192: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
14193: FND_LOG.string(FND_LOG.level_unexpected
14194: ,l_module_name||'.EXCEPTION'
14195: ,'Exception in instantiate_bsch_using_PPSetup, x_return_status ='||x_return_status
14196: ||'SQLERRM ='||SQLERRM
14189:
14190: EXCEPTION
14191: WHEN OTHERS THEN
14192: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
14193: FND_LOG.string(FND_LOG.level_unexpected
14194: ,l_module_name||'.EXCEPTION'
14195: ,'Exception in instantiate_bsch_using_PPSetup, x_return_status ='||x_return_status
14196: ||'SQLERRM ='||SQLERRM
14197: );
14447: -- End hkamdar for Bug# 5458842.
14448:
14449: BEGIN --Main Begin
14450: --errorout_hk('Entered create_bsch_using_ppsetup, P_Partial_Copy_YN :'||P_Partial_Copy_YN);
14451: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
14452: FND_LOG.string(FND_LOG.level_procedure
14453: ,l_module_name
14454: ,'Entered create_bsch_using_PPSetup'
14455: ||' P_From_Chr_ID :'||P_From_Chr_ID
14448:
14449: BEGIN --Main Begin
14450: --errorout_hk('Entered create_bsch_using_ppsetup, P_Partial_Copy_YN :'||P_Partial_Copy_YN);
14451: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
14452: FND_LOG.string(FND_LOG.level_procedure
14453: ,l_module_name
14454: ,'Entered create_bsch_using_PPSetup'
14455: ||' P_From_Chr_ID :'||P_From_Chr_ID
14456: ||' P_To_Chr_ID :'||P_To_Chr_ID
14499: ,BillingScheduleType => nvl(G_TrgHdrBillingScheduleType,'T')
14500: ,x_return_status => x_return_status);*/
14501:
14502:
14503: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
14504: FND_LOG.string(FND_LOG.level_statement
14505: ,l_module_name
14506: ,'Before call to instantiate_bsch_using_PPSetup for HEADER'
14507: ||' : Line_Id : '||TargetLinesRecTab.LINE_ID(i)
14500: ,x_return_status => x_return_status);*/
14501:
14502:
14503: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
14504: FND_LOG.string(FND_LOG.level_statement
14505: ,l_module_name
14506: ,'Before call to instantiate_bsch_using_PPSetup for HEADER'
14507: ||' : Line_Id : '||TargetLinesRecTab.LINE_ID(i)
14508: ||' : TrgHdrStartdate : '||TargetLinesRecTab.start_date(i)
14604: ,x_return_status => x_return_status);
14605:
14606: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
14607: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'Exception in call to instantiate_bsch_using_PPSetup', substr(SQLERRM,1,240));
14608: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
14609: FND_LOG.string(FND_LOG.level_statement
14610: ,l_module_name
14611: ,'Return status from instantiate_bsch_using_PPSetup for HEADER : x_return_status ='||x_return_status
14612: );
14605:
14606: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
14607: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'Exception in call to instantiate_bsch_using_PPSetup', substr(SQLERRM,1,240));
14608: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
14609: FND_LOG.string(FND_LOG.level_statement
14610: ,l_module_name
14611: ,'Return status from instantiate_bsch_using_PPSetup for HEADER : x_return_status ='||x_return_status
14612: );
14613: END IF;
14613: END IF;
14614: RETURN;
14615: END IF;
14616:
14617: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
14618: FND_LOG.string(FND_LOG.level_statement
14619: ,l_module_name
14620: ,'Before call to instantiate_bsch_using_PPSetup for HEADER'
14621: ||' : Line_Id : '||TargetLinesRecTab.LINE_ID(i)
14614: RETURN;
14615: END IF;
14616:
14617: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
14618: FND_LOG.string(FND_LOG.level_statement
14619: ,l_module_name
14620: ,'Before call to instantiate_bsch_using_PPSetup for HEADER'
14621: ||' : Line_Id : '||TargetLinesRecTab.LINE_ID(i)
14622: ||' : TrgHdrStartdate : '||TargetLinesRecTab.start_date(i)
14788: ,p_sll_tbl => l_LineStreams_tbl
14789: ,p_invoice_rule_id => TargetLinesRecTab.INV_RULE_ID(i)
14790: ,x_bil_sch_out_tbl => l_bil_sch_out_tbl
14791: ,x_return_status => x_return_status);
14792: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
14793: FND_LOG.string(FND_LOG.level_statement
14794: ,l_module_name
14795: ,'After call to OKS_BILL_SCH.create_bill_sch_rules'
14796: ||',x_return_status='||x_return_status
14789: ,p_invoice_rule_id => TargetLinesRecTab.INV_RULE_ID(i)
14790: ,x_bil_sch_out_tbl => l_bil_sch_out_tbl
14791: ,x_return_status => x_return_status);
14792: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
14793: FND_LOG.string(FND_LOG.level_statement
14794: ,l_module_name
14795: ,'After call to OKS_BILL_SCH.create_bill_sch_rules'
14796: ||',x_return_status='||x_return_status
14797: );
14857: -- End NECHATUR Bug#5349539
14858: ,x_return_status => x_return_status);
14859: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
14860: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'Exception in call to instantiate_bsch_using_PPSetup', substr(SQLERRM,1,240));
14861: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
14862: FND_LOG.string(FND_LOG.level_statement
14863: ,l_module_name
14864: ,'Return status from instantiate_bsch_using_PPSetup for LINE : x_return_status ='||x_return_status
14865: );
14858: ,x_return_status => x_return_status);
14859: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
14860: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'Exception in call to instantiate_bsch_using_PPSetup', substr(SQLERRM,1,240));
14861: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
14862: FND_LOG.string(FND_LOG.level_statement
14863: ,l_module_name
14864: ,'Return status from instantiate_bsch_using_PPSetup for LINE : x_return_status ='||x_return_status
14865: );
14866: END IF;
14879: -- if duration of source line and target line are same then copy the source line billing schedule.
14880: ELSE -- target header partial period attributes does not exist
14881:
14882: -- check for line duration match
14883: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
14884: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
14885: FND_LOG.string(FND_LOG.level_statement
14886: ,l_module_name||'.chk_line_effectivity'
14887: ,'Before call to chk_line_effectivity'
14880: ELSE -- target header partial period attributes does not exist
14881:
14882: -- check for line duration match
14883: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
14884: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
14885: FND_LOG.string(FND_LOG.level_statement
14886: ,l_module_name||'.chk_line_effectivity'
14887: ,'Before call to chk_line_effectivity'
14888: );
14881:
14882: -- check for line duration match
14883: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
14884: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
14885: FND_LOG.string(FND_LOG.level_statement
14886: ,l_module_name||'.chk_line_effectivity'
14887: ,'Before call to chk_line_effectivity'
14888: );
14889: END IF;
14902:
14903: RAISE G_EXCEPTION_HALT_VALIDATION;
14904: End If;
14905:
14906: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
14907: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
14908: FND_LOG.string(FND_LOG.level_statement
14909: ,l_module_name||'.chk_line_effectivity'
14910: ,'After call to chk_line_effectivity'
14903: RAISE G_EXCEPTION_HALT_VALIDATION;
14904: End If;
14905:
14906: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
14907: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
14908: FND_LOG.string(FND_LOG.level_statement
14909: ,l_module_name||'.chk_line_effectivity'
14910: ,'After call to chk_line_effectivity'
14911: );
14904: End If;
14905:
14906: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
14907: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
14908: FND_LOG.string(FND_LOG.level_statement
14909: ,l_module_name||'.chk_line_effectivity'
14910: ,'After call to chk_line_effectivity'
14911: );
14912: END IF;
14988: ,p_sll_tbl => l_LineStreams_tbl
14989: ,p_invoice_rule_id => TargetLinesRecTab.INV_RULE_ID(i)
14990: ,x_bil_sch_out_tbl => l_bil_sch_out_tbl
14991: ,x_return_status => x_return_status);
14992: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
14993: FND_LOG.string(FND_LOG.level_statement
14994: ,l_module_name
14995: ,'After call to OKS_BILL_SCH.create_bill_sch_rules'
14996: ||',x_return_status='||x_return_status
14989: ,p_invoice_rule_id => TargetLinesRecTab.INV_RULE_ID(i)
14990: ,x_bil_sch_out_tbl => l_bil_sch_out_tbl
14991: ,x_return_status => x_return_status);
14992: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
14993: FND_LOG.string(FND_LOG.level_statement
14994: ,l_module_name
14995: ,'After call to OKS_BILL_SCH.create_bill_sch_rules'
14996: ||',x_return_status='||x_return_status
14997: );
15027: ,x_return_status => x_return_status
15028: ,x_msg_count => x_msg_count
15029: ,x_msg_data => x_msg_data
15030: );
15031: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
15032: FND_LOG.string(FND_LOG.level_statement
15033: ,l_module_name
15034: ,'After call to OKS_BILL_SCH.Create_Bill_Sch_CP'
15035: ||',x_return_status='||x_return_status
15028: ,x_msg_count => x_msg_count
15029: ,x_msg_data => x_msg_data
15030: );
15031: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
15032: FND_LOG.string(FND_LOG.level_statement
15033: ,l_module_name
15034: ,'After call to OKS_BILL_SCH.Create_Bill_Sch_CP'
15035: ||',x_return_status='||x_return_status
15036: );
15041: END IF;
15042:
15043: EXCEPTION
15044: WHEN OTHERS THEN
15045: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
15046: FND_LOG.string(FND_LOG.level_unexpected
15047: ,l_module_name||'.EXCEPTION'
15048: ,'Exception in call to OKS_BILL_SCH.create_bill_sch_cp, x_return_status ='||x_return_status
15049: ||'SQLERRM ='||SQLERRM
15042:
15043: EXCEPTION
15044: WHEN OTHERS THEN
15045: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
15046: FND_LOG.string(FND_LOG.level_unexpected
15047: ,l_module_name||'.EXCEPTION'
15048: ,'Exception in call to OKS_BILL_SCH.create_bill_sch_cp, x_return_status ='||x_return_status
15049: ||'SQLERRM ='||SQLERRM
15050: );
15057: --------End of BSCH Creation for Subline---------------
15058: END IF; --End If for CLE_ID is NULL check
15059:
15060: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
15061: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
15062: FND_LOG.string(FND_LOG.level_statement
15063: ,l_module_name
15064: ,'Return status from OKS_BILL_SCH : x_return_status ='||x_return_status
15065: );
15058: END IF; --End If for CLE_ID is NULL check
15059:
15060: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
15061: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
15062: FND_LOG.string(FND_LOG.level_statement
15063: ,l_module_name
15064: ,'Return status from OKS_BILL_SCH : x_return_status ='||x_return_status
15065: );
15066: END IF;
15186: Begin
15187: l_ext_entity_tab.DELETE;
15188: l_ext_entity_tab(0) := P_Source_Trx_Ext_ID;
15189:
15190: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
15191: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
15192: FND_LOG.string(FND_LOG.level_procedure
15193: ,l_module_name||'.Begin'
15194: ,'P_Source_Trx_Ext_ID='||P_Source_Trx_Ext_ID
15187: l_ext_entity_tab.DELETE;
15188: l_ext_entity_tab(0) := P_Source_Trx_Ext_ID;
15189:
15190: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
15191: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
15192: FND_LOG.string(FND_LOG.level_procedure
15193: ,l_module_name||'.Begin'
15194: ,'P_Source_Trx_Ext_ID='||P_Source_Trx_Ext_ID
15195: ||',P_Bill_To_Site_Use_ID='||P_Bill_To_Site_Use_ID
15188: l_ext_entity_tab(0) := P_Source_Trx_Ext_ID;
15189:
15190: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
15191: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
15192: FND_LOG.string(FND_LOG.level_procedure
15193: ,l_module_name||'.Begin'
15194: ,'P_Source_Trx_Ext_ID='||P_Source_Trx_Ext_ID
15195: ||',P_Bill_To_Site_Use_ID='||P_Bill_To_Site_Use_ID
15196: ||',P_Header_ID='||P_Header_ID
15253: l_Payer_Equivalency := IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_UPWARD;
15254: l_Pmt_Channel := 'CREDIT_CARD';
15255: l_instr_assignment := l_Instrument_Assignment_ID;
15256:
15257: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
15258: FND_LOG.string(FND_LOG.level_statement
15259: ,l_module_name
15260: ,'Org ID='||l_Authoring_Org_ID
15261: ||'Party ID='||l_Party_ID
15254: l_Pmt_Channel := 'CREDIT_CARD';
15255: l_instr_assignment := l_Instrument_Assignment_ID;
15256:
15257: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
15258: FND_LOG.string(FND_LOG.level_statement
15259: ,l_module_name
15260: ,'Org ID='||l_Authoring_Org_ID
15261: ||'Party ID='||l_Party_ID
15262: ||'Acct_Id ='||l_Cust_Account_ID
15322:
15323:
15324:
15325:
15326: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
15327: FND_LOG.string(FND_LOG.level_statement
15328: ,l_module_name
15329: ,'After call to IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension'
15330: ||',x_return_status='||x_return_status
15323:
15324:
15325:
15326: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
15327: FND_LOG.string(FND_LOG.level_statement
15328: ,l_module_name
15329: ,'After call to IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension'
15330: ||',x_return_status='||x_return_status
15331: ||',Result Code ='||l_response.result_code
15336:
15337:
15338: EXCEPTION
15339: WHEN OTHERS THEN
15340: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
15341: FND_LOG.string(FND_LOG.level_unexpected
15342: ,l_module_name||'.EXCEPTION'
15343: ,'Exception in call to IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension, x_return_status ='||x_return_status
15344: ||'SQLERRM ='||SQLERRM
15337:
15338: EXCEPTION
15339: WHEN OTHERS THEN
15340: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
15341: FND_LOG.string(FND_LOG.level_unexpected
15342: ,l_module_name||'.EXCEPTION'
15343: ,'Exception in call to IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension, x_return_status ='||x_return_status
15344: ||'SQLERRM ='||SQLERRM
15345: );
15351: End;
15352:
15353: END IF; --End of IF Check for l_CC_Expiry_Date--------------------------------------
15354:
15355: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
15356: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
15357: FND_LOG.string(FND_LOG.level_procedure
15358: ,l_module_name||'.End'
15359: ,'x_return_status ='||x_return_status
15352:
15353: END IF; --End of IF Check for l_CC_Expiry_Date--------------------------------------
15354:
15355: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
15356: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
15357: FND_LOG.string(FND_LOG.level_procedure
15358: ,l_module_name||'.End'
15359: ,'x_return_status ='||x_return_status
15360: );
15353: END IF; --End of IF Check for l_CC_Expiry_Date--------------------------------------
15354:
15355: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
15356: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
15357: FND_LOG.string(FND_LOG.level_procedure
15358: ,l_module_name||'.End'
15359: ,'x_return_status ='||x_return_status
15360: );
15361: END IF;
15362: END IF;
15363:
15364: EXCEPTION
15365: WHEN OTHERS THEN
15366: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
15367: FND_LOG.string(FND_LOG.level_unexpected
15368: ,l_module_name||'.EXCEPTION'
15369: ,'General Exception in Create_Transaction_Exception, x_return_status ='||x_return_status
15370: ||'SQLERRM ='||SQLERRM
15363:
15364: EXCEPTION
15365: WHEN OTHERS THEN
15366: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
15367: FND_LOG.string(FND_LOG.level_unexpected
15368: ,l_module_name||'.EXCEPTION'
15369: ,'General Exception in Create_Transaction_Exception, x_return_status ='||x_return_status
15370: ||'SQLERRM ='||SQLERRM
15371: );
15440: l_BP_Child_ID NUMBER;
15441:
15442: Begin
15443: x_return_status := FND_API.G_RET_STS_SUCCESS;
15444: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
15445: FND_LOG.string(FND_LOG.level_statement
15446: ,l_module_name
15447: ,'In Update_BP: P_To_Chr_ID :'||P_To_Chr_ID
15448: );
15441:
15442: Begin
15443: x_return_status := FND_API.G_RET_STS_SUCCESS;
15444: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
15445: FND_LOG.string(FND_LOG.level_statement
15446: ,l_module_name
15447: ,'In Update_BP: P_To_Chr_ID :'||P_To_Chr_ID
15448: );
15449: END IF;
15456: ,l_BP_End_Date
15457: ,l_BP_Offset_Duration
15458: ,l_BP_Offset_Period;
15459: EXIT WHEN getBPOffsetInformation%NOTFOUND;
15460: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
15461: FND_LOG.string(FND_LOG.level_statement
15462: ,l_module_name
15463: ,'OKS.plsql.OKS_COPY_CONTRACT_PVT.Update_BP'
15464: ||' BP ID : '||l_BP_ID
15457: ,l_BP_Offset_Duration
15458: ,l_BP_Offset_Period;
15459: EXIT WHEN getBPOffsetInformation%NOTFOUND;
15460: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
15461: FND_LOG.string(FND_LOG.level_statement
15462: ,l_module_name
15463: ,'OKS.plsql.OKS_COPY_CONTRACT_PVT.Update_BP'
15464: ||' BP ID : '||l_BP_ID
15465: ||' BP Start Date: '||l_BP_Start_Date
15483: l_Resultant_Start_Date := l_BP_End_Date;
15484: End If;
15485:
15486:
15487: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
15488: FND_LOG.string(FND_LOG.level_statement
15489: ,l_module_name
15490: ,'OKS.plsql.OKS_COPY_CONTRACT_PVT.Update_BP'
15491: ||' Resultant Date : '||l_Resultant_Start_Date
15484: End If;
15485:
15486:
15487: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
15488: FND_LOG.string(FND_LOG.level_statement
15489: ,l_module_name
15490: ,'OKS.plsql.OKS_COPY_CONTRACT_PVT.Update_BP'
15491: ||' Resultant Date : '||l_Resultant_Start_Date
15492: );
15514:
15515: EXCEPTION
15516: WHEN OTHERS THEN
15517: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
15518: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
15519: FND_LOG.string(FND_LOG.level_unexpected
15520: ,l_module_name
15521: ,SQLERRM
15522: );
15515: EXCEPTION
15516: WHEN OTHERS THEN
15517: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
15518: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
15519: FND_LOG.string(FND_LOG.level_unexpected
15520: ,l_module_name
15521: ,SQLERRM
15522: );
15523: END IF;
15561:
15562: EXCEPTION
15563: WHEN OTHERS THEN
15564: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
15565: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
15566: FND_LOG.string(FND_LOG.level_unexpected
15567: ,l_module_name
15568: ,SQLERRM
15569: );
15562: EXCEPTION
15563: WHEN OTHERS THEN
15564: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
15565: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
15566: FND_LOG.string(FND_LOG.level_unexpected
15567: ,l_module_name
15568: ,SQLERRM
15569: );
15570: END IF;
17036: /*end of bugfix for bug8826746*/
17037:
17038: Begin
17039:
17040: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
17041: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
17042: FND_LOG.string(FND_LOG.level_procedure
17043: ,l_module_name||'.Begin'
17044: ,',P_From_Chr_ID='||P_From_Chr_ID
17037:
17038: Begin
17039:
17040: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
17041: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
17042: FND_LOG.string(FND_LOG.level_procedure
17043: ,l_module_name||'.Begin'
17044: ,',P_From_Chr_ID='||P_From_Chr_ID
17045: ||',P_To_Chr_ID='||P_To_Chr_ID
17038: Begin
17039:
17040: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
17041: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
17042: FND_LOG.string(FND_LOG.level_procedure
17043: ,l_module_name||'.Begin'
17044: ,',P_From_Chr_ID='||P_From_Chr_ID
17045: ||',P_To_Chr_ID='||P_To_Chr_ID
17046: ||',p_renew_ref_yn='||p_renew_ref_yn
17082: OPEN get_new_contract_number(P_To_Chr_ID);
17083: FETCH get_new_contract_number into l_new_contract_number;
17084: CLOSE get_new_contract_number;
17085: If l_new_contract_number IS NULL then
17086: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
17087: FND_LOG.string(FND_LOG.level_statement
17088: ,l_module_name||':'||'Cursor get_new_contract_number'
17089: ,'Contract number of Target Contract is NULL'
17090: );
17083: FETCH get_new_contract_number into l_new_contract_number;
17084: CLOSE get_new_contract_number;
17085: If l_new_contract_number IS NULL then
17086: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
17087: FND_LOG.string(FND_LOG.level_statement
17088: ,l_module_name||':'||'Cursor get_new_contract_number'
17089: ,'Contract number of Target Contract is NULL'
17090: );
17091: END IF;
17099: OPEN get_default_status;
17100: FETCH get_default_status into l_Default_Sts_Code;
17101: CLOSE get_default_status;
17102: If l_Default_Sts_Code IS NULL then
17103: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
17104: FND_LOG.string(FND_LOG.level_statement
17105: ,l_module_name||':'||'Cursor get_default_status'
17106: ,'Default Status not found'
17107: );
17100: FETCH get_default_status into l_Default_Sts_Code;
17101: CLOSE get_default_status;
17102: If l_Default_Sts_Code IS NULL then
17103: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
17104: FND_LOG.string(FND_LOG.level_statement
17105: ,l_module_name||':'||'Cursor get_default_status'
17106: ,'Default Status not found'
17107: );
17108: END IF;
17112: End;
17113: ------------------------------------------
17114:
17115: IF (P_Renew_Ref_YN = 'N') then
17116: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
17117: FND_LOG.string(FND_LOG.level_statement
17118: ,l_module_name
17119: ,'Opening GetOKCOKSLinesB_Copy'
17120: );
17113: ------------------------------------------
17114:
17115: IF (P_Renew_Ref_YN = 'N') then
17116: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
17117: FND_LOG.string(FND_LOG.level_statement
17118: ,l_module_name
17119: ,'Opening GetOKCOKSLinesB_Copy'
17120: );
17121: END IF;
17133: p_include_terminated_lines = 'N' THEN
17134: OPEN GetOKCOKSLinesB_Copy_EXCLUDE(P_From_Chr_ID, P_To_Chr_ID);
17135: END IF;
17136: ELSIF (P_Renew_Ref_YN = 'Y') then
17137: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
17138: FND_LOG.string(FND_LOG.level_statement
17139: ,l_module_name
17140: ,'Opening GetOKCOKSLinesB_Renew'
17141: );
17134: OPEN GetOKCOKSLinesB_Copy_EXCLUDE(P_From_Chr_ID, P_To_Chr_ID);
17135: END IF;
17136: ELSIF (P_Renew_Ref_YN = 'Y') then
17137: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
17138: FND_LOG.string(FND_LOG.level_statement
17139: ,l_module_name
17140: ,'Opening GetOKCOKSLinesB_Renew'
17141: );
17142: END IF;
17144: END IF;
17145:
17146: LOOP
17147: IF (P_Renew_Ref_YN = 'N') THEN
17148: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
17149: FND_LOG.string(FND_LOG.level_statement
17150: ,l_module_name
17151: ,'FETCHING from GetOKCOKSLinesB_Copy'
17152: );
17145:
17146: LOOP
17147: IF (P_Renew_Ref_YN = 'N') THEN
17148: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
17149: FND_LOG.string(FND_LOG.level_statement
17150: ,l_module_name
17151: ,'FETCHING from GetOKCOKSLinesB_Copy'
17152: );
17153: END IF;
18009: END IF;
18010:
18011: ELSIF (P_Renew_Ref_YN = 'Y') then
18012:
18013: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
18014: FND_LOG.string(FND_LOG.level_statement
18015: ,l_module_name
18016: ,'FETCHING from GetOKCOKSLinesB_Renew'
18017: );
18010:
18011: ELSIF (P_Renew_Ref_YN = 'Y') then
18012:
18013: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
18014: FND_LOG.string(FND_LOG.level_statement
18015: ,l_module_name
18016: ,'FETCHING from GetOKCOKSLinesB_Renew'
18017: );
18018: END IF;
18227: ,OKCOKSLinesRecTab.OkcI_PROGRAM_UPDATE_DATE
18228: ,OKCOKSLinesRecTab.OkcI_REQUEST_ID
18229: ,OKCOKSLinesRecTab.OksB_COUNTER_VALUE_ID LIMIT G_BULK_FETCH_LIMIT;
18230:
18231: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
18232: FND_LOG.string(FND_LOG.level_statement
18233: ,l_module_name
18234: ,'After FETCH from GetOKCOKSLinesB_Renew'
18235: );
18228: ,OKCOKSLinesRecTab.OkcI_REQUEST_ID
18229: ,OKCOKSLinesRecTab.OksB_COUNTER_VALUE_ID LIMIT G_BULK_FETCH_LIMIT;
18230:
18231: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
18232: FND_LOG.string(FND_LOG.level_statement
18233: ,l_module_name
18234: ,'After FETCH from GetOKCOKSLinesB_Renew'
18235: );
18236: END IF;
18430: ,FND_GLOBAL.LOGIN_ID
18431: FROM
18432: DUAL;
18433:
18434: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
18435: FND_LOG.string(FND_LOG.level_statement
18436: ,l_module_name
18437: ,'AFTER INSERT into OKC_K_LINES_B '
18438: );
18431: FROM
18432: DUAL;
18433:
18434: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
18435: FND_LOG.string(FND_LOG.level_statement
18436: ,l_module_name
18437: ,'AFTER INSERT into OKC_K_LINES_B '
18438: );
18439: END IF;
18440:
18441: EXCEPTION
18442: WHEN OTHERS THEN
18443: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
18444: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
18445: FND_LOG.string(FND_LOG.level_unexpected
18446: ,l_module_name
18447: ,'EXCEPTION during insert into OKC_K_LINES_B '||SQLERRM
18448: );
18441: EXCEPTION
18442: WHEN OTHERS THEN
18443: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
18444: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
18445: FND_LOG.string(FND_LOG.level_unexpected
18446: ,l_module_name
18447: ,'EXCEPTION during insert into OKC_K_LINES_B '||SQLERRM
18448: );
18449: END IF;
18663: DUAL
18664: WHERE
18665: OKCOKSLinesRecTab.OksB_OldOksLineID(i) IS NOT NULL;
18666:
18667: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
18668: FND_LOG.string(FND_LOG.level_statement
18669: ,l_module_name
18670: ,'AFTER INSERT into OKS_K_LINES_B '
18671: );
18664: WHERE
18665: OKCOKSLinesRecTab.OksB_OldOksLineID(i) IS NOT NULL;
18666:
18667: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
18668: FND_LOG.string(FND_LOG.level_statement
18669: ,l_module_name
18670: ,'AFTER INSERT into OKS_K_LINES_B '
18671: );
18672: END IF;
18673:
18674: EXCEPTION
18675: WHEN OTHERS THEN
18676: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
18677: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
18678: FND_LOG.string(FND_LOG.level_unexpected
18679: ,l_module_name
18680: ,'EXCEPTION during insert into OKS_K_LINES_B '||SQLERRM
18681: );
18674: EXCEPTION
18675: WHEN OTHERS THEN
18676: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
18677: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
18678: FND_LOG.string(FND_LOG.level_unexpected
18679: ,l_module_name
18680: ,'EXCEPTION during insert into OKS_K_LINES_B '||SQLERRM
18681: );
18682: END IF;
18745: FROM
18746: DUAL
18747: where OKCOKSLinesRecTab.OkcI_OldOkcItemID(i) IS NOT NULL;
18748:
18749: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
18750: FND_LOG.string(FND_LOG.level_statement
18751: ,l_module_name
18752: ,'AFTER INSERT into OKC_K_ITEMS '
18753: );
18746: DUAL
18747: where OKCOKSLinesRecTab.OkcI_OldOkcItemID(i) IS NOT NULL;
18748:
18749: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
18750: FND_LOG.string(FND_LOG.level_statement
18751: ,l_module_name
18752: ,'AFTER INSERT into OKC_K_ITEMS '
18753: );
18754: END IF;
18755:
18756: EXCEPTION
18757: WHEN OTHERS THEN
18758: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
18759: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
18760: FND_LOG.string(FND_LOG.level_unexpected
18761: ,l_module_name
18762: ,'EXCEPTION during insert into OKC_K_ITEMS '||SQLERRM
18763: );
18756: EXCEPTION
18757: WHEN OTHERS THEN
18758: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
18759: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
18760: FND_LOG.string(FND_LOG.level_unexpected
18761: ,l_module_name
18762: ,'EXCEPTION during insert into OKC_K_ITEMS '||SQLERRM
18763: );
18764: END IF;
18769: End;
18770:
18771: -----------------Start of row by row processing---------------------
18772:
18773: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18774: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
18775: FND_LOG.string(FND_LOG.level_statement
18776: ,l_module_name
18777: ,'Before Start of Row by Row Processing , Count of rows being processed :'||OKCOKSLinesRecTab.OkcB_NewOKCLineID.COUNT
18770:
18771: -----------------Start of row by row processing---------------------
18772:
18773: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18774: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
18775: FND_LOG.string(FND_LOG.level_statement
18776: ,l_module_name
18777: ,'Before Start of Row by Row Processing , Count of rows being processed :'||OKCOKSLinesRecTab.OkcB_NewOKCLineID.COUNT
18778: );
18771: -----------------Start of row by row processing---------------------
18772:
18773: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18774: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
18775: FND_LOG.string(FND_LOG.level_statement
18776: ,l_module_name
18777: ,'Before Start of Row by Row Processing , Count of rows being processed :'||OKCOKSLinesRecTab.OkcB_NewOKCLineID.COUNT
18778: );
18779: END IF;
18800: ,p_AMOUNT => OKCOKSLinesRecTab.OkcB_PRICE_NEGOTIATED(i)
18801: ,x_CONVERSION_RATE => g_conversion_rate
18802: ,x_CONVERTED_AMOUNT => l_converted_price_negotiated
18803: );
18804: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18805: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
18806: FND_LOG.string(FND_LOG.level_statement
18807: ,l_module_name||'.OKC_CURRENCY_API.CONVERT_AMOUNT'
18808: ,'After call to convert_amount for Price_Negotiated: x_return_status:'||l_return_status
18801: ,x_CONVERSION_RATE => g_conversion_rate
18802: ,x_CONVERTED_AMOUNT => l_converted_price_negotiated
18803: );
18804: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18805: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
18806: FND_LOG.string(FND_LOG.level_statement
18807: ,l_module_name||'.OKC_CURRENCY_API.CONVERT_AMOUNT'
18808: ,'After call to convert_amount for Price_Negotiated: x_return_status:'||l_return_status
18809: ||'Orig Price_Negotiated='||OKCOKSLinesRecTab.OkcB_PRICE_NEGOTIATED(i)
18802: ,x_CONVERTED_AMOUNT => l_converted_price_negotiated
18803: );
18804: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18805: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
18806: FND_LOG.string(FND_LOG.level_statement
18807: ,l_module_name||'.OKC_CURRENCY_API.CONVERT_AMOUNT'
18808: ,'After call to convert_amount for Price_Negotiated: x_return_status:'||l_return_status
18809: ||'Orig Price_Negotiated='||OKCOKSLinesRecTab.OkcB_PRICE_NEGOTIATED(i)
18810: ||'Converted Price Negotiated='||l_converted_price_negotiated
18822: ,x_CONVERSION_RATE => g_conversion_rate
18823: ,x_CONVERTED_AMOUNT => l_converted_price_unit
18824: );
18825:
18826: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18827: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
18828: FND_LOG.string(FND_LOG.level_statement
18829: ,l_module_name||'.OKC_CURRENCY_API.CONVERT_AMOUNT'
18830: ,'After call to convert_amount for Price_Unit: x_return_status:'||l_return_status
18823: ,x_CONVERTED_AMOUNT => l_converted_price_unit
18824: );
18825:
18826: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18827: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
18828: FND_LOG.string(FND_LOG.level_statement
18829: ,l_module_name||'.OKC_CURRENCY_API.CONVERT_AMOUNT'
18830: ,'After call to convert_amount for Price_Unit: x_return_status:'||l_return_status
18831: ||'Orig Price_Negotiated='||OKCOKSLinesRecTab.OkcB_PRICE_UNIT(i)
18824: );
18825:
18826: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18827: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
18828: FND_LOG.string(FND_LOG.level_statement
18829: ,l_module_name||'.OKC_CURRENCY_API.CONVERT_AMOUNT'
18830: ,'After call to convert_amount for Price_Unit: x_return_status:'||l_return_status
18831: ||'Orig Price_Negotiated='||OKCOKSLinesRecTab.OkcB_PRICE_UNIT(i)
18832: ||'Converted Price Unit='||l_converted_price_unit
18852: End;
18853:
18854: END IF; --End of check P_Renew_Ref_YN = 'Y'
18855:
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
18859: ,'OKC LSE ID : '||OKCOKSLinesRecTab.OkcB_LSE_ID(i)
18860: );
18853:
18854: END IF; --End of check P_Renew_Ref_YN = 'Y'
18855:
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
18859: ,'OKC LSE ID : '||OKCOKSLinesRecTab.OkcB_LSE_ID(i)
18860: );
18861: END IF;
18866: --------------------------------------------------------------
18867: IF (OKCOKSLinesRecTab.OkcB_LSE_ID(i) = 1 OR OKCOKSLinesRecTab.OkcB_LSE_ID(i) = 19) THEN
18868: --Instantiate Counters Events
18869:
18870: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18871: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
18872: FND_LOG.string(FND_LOG.level_statement
18873: ,l_module_name||'.instantiate_counters_events'
18874: ,'Before call to instantiate_counters_events'
18867: IF (OKCOKSLinesRecTab.OkcB_LSE_ID(i) = 1 OR OKCOKSLinesRecTab.OkcB_LSE_ID(i) = 19) THEN
18868: --Instantiate Counters Events
18869:
18870: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18871: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
18872: FND_LOG.string(FND_LOG.level_statement
18873: ,l_module_name||'.instantiate_counters_events'
18874: ,'Before call to instantiate_counters_events'
18875: );
18868: --Instantiate Counters Events
18869:
18870: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18871: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
18872: FND_LOG.string(FND_LOG.level_statement
18873: ,l_module_name||'.instantiate_counters_events'
18874: ,'Before call to instantiate_counters_events'
18875: );
18876: END IF;
18897: RAISE G_EXCEPTION_HALT_VALIDATION;
18898: END IF;
18899:
18900:
18901: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18902: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
18903: FND_LOG.string(FND_LOG.level_statement
18904: ,l_module_name||'.instantiate_counters_events'
18905: ,'After call to instantiate_counters_events x_return_status:'||l_return_status
18898: END IF;
18899:
18900:
18901: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18902: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
18903: FND_LOG.string(FND_LOG.level_statement
18904: ,l_module_name||'.instantiate_counters_events'
18905: ,'After call to instantiate_counters_events x_return_status:'||l_return_status
18906: );
18899:
18900:
18901: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18902: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
18903: FND_LOG.string(FND_LOG.level_statement
18904: ,l_module_name||'.instantiate_counters_events'
18905: ,'After call to instantiate_counters_events x_return_status:'||l_return_status
18906: );
18907: END IF;
18906: );
18907: END IF;
18908: END IF;
18909:
18910: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18911: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
18912: FND_LOG.string(FND_LOG.level_statement
18913: ,l_module_name||'.OKS_COVERAGES_PVT.COPY_NOTES'
18914: ,'Before call to copy_notes for line:'||OKCOKSLinesRecTab.OkcB_NewOKCLineID(i)
18907: END IF;
18908: END IF;
18909:
18910: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18911: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
18912: FND_LOG.string(FND_LOG.level_statement
18913: ,l_module_name||'.OKS_COVERAGES_PVT.COPY_NOTES'
18914: ,'Before call to copy_notes for line:'||OKCOKSLinesRecTab.OkcB_NewOKCLineID(i)
18915: );
18908: END IF;
18909:
18910: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18911: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
18912: FND_LOG.string(FND_LOG.level_statement
18913: ,l_module_name||'.OKS_COVERAGES_PVT.COPY_NOTES'
18914: ,'Before call to copy_notes for line:'||OKCOKSLinesRecTab.OkcB_NewOKCLineID(i)
18915: );
18916: END IF;
18925: ,x_msg_data => x_msg_data
18926: ,x_return_status => l_return_status
18927: ,p_line_id => OKCOKSLinesRecTab.OkcB_NewOKCLineID(i)
18928: );
18929: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18930: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
18931: FND_LOG.string(FND_LOG.level_statement
18932: ,l_module_name||'.OKS_COVERAGES_PVT.COPY_NOTES'
18933: ,'After call to copy_notes for line: x_return_status:'||l_return_status
18926: ,x_return_status => l_return_status
18927: ,p_line_id => OKCOKSLinesRecTab.OkcB_NewOKCLineID(i)
18928: );
18929: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18930: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
18931: FND_LOG.string(FND_LOG.level_statement
18932: ,l_module_name||'.OKS_COVERAGES_PVT.COPY_NOTES'
18933: ,'After call to copy_notes for line: x_return_status:'||l_return_status
18934: );
18927: ,p_line_id => OKCOKSLinesRecTab.OkcB_NewOKCLineID(i)
18928: );
18929: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18930: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
18931: FND_LOG.string(FND_LOG.level_statement
18932: ,l_module_name||'.OKS_COVERAGES_PVT.COPY_NOTES'
18933: ,'After call to copy_notes for line: x_return_status:'||l_return_status
18934: );
18935: END IF;
18946:
18947: END IF; -----End of LSE_ID check in (1,19)
18948:
18949: ------------Re-compute TAX_AMOUNT for a subscription line if the line being copied is a cancelled line------------
18950: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18951: FND_LOG.string(FND_LOG.level_statement
18952: ,l_module_name||'.OKS_TAX_UTIL_PVT.Get_Tax'
18953: ,' LSE ID and LINE TERMINATED FLAG : '||OKCOKSLinesRecTab.OkcB_LSE_ID(i)||':'||OKCOKSLinesRecTab.OkcB_LINE_TERMINATED_FLAG(i)
18954: );
18947: END IF; -----End of LSE_ID check in (1,19)
18948:
18949: ------------Re-compute TAX_AMOUNT for a subscription line if the line being copied is a cancelled line------------
18950: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18951: FND_LOG.string(FND_LOG.level_statement
18952: ,l_module_name||'.OKS_TAX_UTIL_PVT.Get_Tax'
18953: ,' LSE ID and LINE TERMINATED FLAG : '||OKCOKSLinesRecTab.OkcB_LSE_ID(i)||':'||OKCOKSLinesRecTab.OkcB_LINE_TERMINATED_FLAG(i)
18954: );
18955: END IF;
18987: --npalepu added on 06-NOV-2006 for bug # 5636927
18988: lx_rail_rec.AMOUNT := NULL;
18989: --end npalepu
18990:
18991: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18992: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
18993: FND_LOG.string(FND_LOG.level_statement
18994: ,l_module_name
18995: ,'Before call to OKS_TAX_UTIL_PVT.Get_Tax '
18988: lx_rail_rec.AMOUNT := NULL;
18989: --end npalepu
18990:
18991: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18992: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
18993: FND_LOG.string(FND_LOG.level_statement
18994: ,l_module_name
18995: ,'Before call to OKS_TAX_UTIL_PVT.Get_Tax '
18996: );
18989: --end npalepu
18990:
18991: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
18992: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
18993: FND_LOG.string(FND_LOG.level_statement
18994: ,l_module_name
18995: ,'Before call to OKS_TAX_UTIL_PVT.Get_Tax '
18996: );
18997: END IF;
19006: ,x_msg_count => x_msg_count
19007: ,x_msg_data => x_msg_data
19008: ,x_return_status => l_return_status
19009: );
19010: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19011: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19012: FND_LOG.string(FND_LOG.level_statement
19013: ,l_module_name||'.OKS_TAX_UTIL_PVT.Get_Tax'
19014: ,'After call to Get Tax API for line: x_return_status :'||l_return_status
19007: ,x_msg_data => x_msg_data
19008: ,x_return_status => l_return_status
19009: );
19010: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19011: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19012: FND_LOG.string(FND_LOG.level_statement
19013: ,l_module_name||'.OKS_TAX_UTIL_PVT.Get_Tax'
19014: ,'After call to Get Tax API for line: x_return_status :'||l_return_status
19015: ||'Tax Amount '||lx_rail_rec.TAX_VALUE
19008: ,x_return_status => l_return_status
19009: );
19010: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19011: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19012: FND_LOG.string(FND_LOG.level_statement
19013: ,l_module_name||'.OKS_TAX_UTIL_PVT.Get_Tax'
19014: ,'After call to Get Tax API for line: x_return_status :'||l_return_status
19015: ||'Tax Amount '||lx_rail_rec.TAX_VALUE
19016: );
19072:
19073: IF (P_Renew_Ref_YN = 'N') THEN
19074: Begin
19075: If (OKCOKSLinesRecTab.OksB_OldOksLineID(i) IS NOT NULL AND OKCOKSLinesRecTab.OksB_LOCKED_PRICE_LIST_ID(i) IS NOT NULL) then
19076: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19077: FND_LOG.string(FND_LOG.level_statement
19078: ,l_module_name
19079: ,'Before call to QP_LOCK_PRICELIST_GRP.Lock_Price'
19080: );
19073: IF (P_Renew_Ref_YN = 'N') THEN
19074: Begin
19075: If (OKCOKSLinesRecTab.OksB_OldOksLineID(i) IS NOT NULL AND OKCOKSLinesRecTab.OksB_LOCKED_PRICE_LIST_ID(i) IS NOT NULL) then
19076: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19077: FND_LOG.string(FND_LOG.level_statement
19078: ,l_module_name
19079: ,'Before call to QP_LOCK_PRICELIST_GRP.Lock_Price'
19080: );
19081: END IF;
19088: ,x_return_status => l_return_status
19089: ,x_msg_count => x_msg_count
19090: ,x_msg_data => x_msg_data);
19091:
19092: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19093: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19094: FND_LOG.string(FND_LOG.level_statement
19095: ,l_module_name||'.QP_LOCK_PRICELIST_GRP.Lock_Price'
19096: ,'After call to Lock_Price API for line: x_return_status :'||l_return_status
19089: ,x_msg_count => x_msg_count
19090: ,x_msg_data => x_msg_data);
19091:
19092: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19093: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19094: FND_LOG.string(FND_LOG.level_statement
19095: ,l_module_name||'.QP_LOCK_PRICELIST_GRP.Lock_Price'
19096: ,'After call to Lock_Price API for line: x_return_status :'||l_return_status
19097: ||'Old Locked Price List Line ID='||OKCOKSLinesRecTab.OksB_LOCKED_PRICE_LIST_LINE_ID(i)
19090: ,x_msg_data => x_msg_data);
19091:
19092: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19093: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19094: FND_LOG.string(FND_LOG.level_statement
19095: ,l_module_name||'.QP_LOCK_PRICELIST_GRP.Lock_Price'
19096: ,'After call to Lock_Price API for line: x_return_status :'||l_return_status
19097: ||'Old Locked Price List Line ID='||OKCOKSLinesRecTab.OksB_LOCKED_PRICE_LIST_LINE_ID(i)
19098: ||'New Locked Price List Line ID='||l_locked_price_list_line_id
19115: WHERE ID = OKCOKSLinesRecTab.OksB_NewOksLineID(i)
19116: AND ORIG_SYSTEM_ID1 = OKCOKSLinesRecTab.OksB_OldOksLineID(i);
19117:
19118: If SQL%NOTFOUND then
19119: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19120: FND_LOG.string(FND_LOG.level_statement
19121: ,l_module_name||'.QP_LOCK_PRICELIST_GRP.Lock_Price'
19122: ,'After call to QP_LOCK_PRICELIST_GRP.Lock_Price, Error in Update OKS_K_LINES_B, row not found for update'
19123: );
19116: AND ORIG_SYSTEM_ID1 = OKCOKSLinesRecTab.OksB_OldOksLineID(i);
19117:
19118: If SQL%NOTFOUND then
19119: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19120: FND_LOG.string(FND_LOG.level_statement
19121: ,l_module_name||'.QP_LOCK_PRICELIST_GRP.Lock_Price'
19122: ,'After call to QP_LOCK_PRICELIST_GRP.Lock_Price, Error in Update OKS_K_LINES_B, row not found for update'
19123: );
19124: END IF;
19135:
19136: Begin
19137: If (OKCOKSLinesRecTab.OksB_OldOksLineID(i) IS NOT NULL AND OKCOKSLinesRecTab.OksB_TRXN_EXTENSION_ID(i) IS NOT NULL) then
19138: --Generate new transaction extension id;
19139: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19140: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19141: FND_LOG.string(FND_LOG.level_statement
19142: ,l_module_name||'.Create_Transaction_Extension'
19143: ,'Before call to Create_Transaction_Extension for line in COPY_LINES'
19136: Begin
19137: If (OKCOKSLinesRecTab.OksB_OldOksLineID(i) IS NOT NULL AND OKCOKSLinesRecTab.OksB_TRXN_EXTENSION_ID(i) IS NOT NULL) then
19138: --Generate new transaction extension id;
19139: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19140: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19141: FND_LOG.string(FND_LOG.level_statement
19142: ,l_module_name||'.Create_Transaction_Extension'
19143: ,'Before call to Create_Transaction_Extension for line in COPY_LINES'
19144: ||'Old Trxn ID='||OKCOKSLinesRecTab.OksB_TRXN_EXTENSION_ID(i)
19137: If (OKCOKSLinesRecTab.OksB_OldOksLineID(i) IS NOT NULL AND OKCOKSLinesRecTab.OksB_TRXN_EXTENSION_ID(i) IS NOT NULL) then
19138: --Generate new transaction extension id;
19139: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19140: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19141: FND_LOG.string(FND_LOG.level_statement
19142: ,l_module_name||'.Create_Transaction_Extension'
19143: ,'Before call to Create_Transaction_Extension for line in COPY_LINES'
19144: ||'Old Trxn ID='||OKCOKSLinesRecTab.OksB_TRXN_EXTENSION_ID(i)
19145: );
19159: ,x_return_status => l_return_status) ;
19160:
19161:
19162:
19163: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19164: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19165: FND_LOG.string(FND_LOG.level_statement
19166: ,l_module_name||'.Create_Transaction_Extension'
19167: ,'After call to Create_Transaction_Extension for line: x_return_status :'||l_return_status
19160:
19161:
19162:
19163: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19164: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19165: FND_LOG.string(FND_LOG.level_statement
19166: ,l_module_name||'.Create_Transaction_Extension'
19167: ,'After call to Create_Transaction_Extension for line: x_return_status :'||l_return_status
19168: ||'New Trxn ID='||l_trxn_extension_id
19161:
19162:
19163: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19164: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19165: FND_LOG.string(FND_LOG.level_statement
19166: ,l_module_name||'.Create_Transaction_Extension'
19167: ,'After call to Create_Transaction_Extension for line: x_return_status :'||l_return_status
19168: ||'New Trxn ID='||l_trxn_extension_id
19169: );
19183: WHERE ID = OKCOKSLinesRecTab.OksB_NewOksLineID(i)
19184: AND ORIG_SYSTEM_ID1 = OKCOKSLinesRecTab.OksB_OldOksLineID(i);
19185:
19186: If SQL%NOTFOUND then
19187: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19188: FND_LOG.string(FND_LOG.level_statement
19189: ,l_module_name||'.Create_Transaction_Extension'
19190: ,'After call to Create_Transaction_Extension, Error in Update OKS_K_LINES_B, row not found for update'
19191: );
19184: AND ORIG_SYSTEM_ID1 = OKCOKSLinesRecTab.OksB_OldOksLineID(i);
19185:
19186: If SQL%NOTFOUND then
19187: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19188: FND_LOG.string(FND_LOG.level_statement
19189: ,l_module_name||'.Create_Transaction_Extension'
19190: ,'After call to Create_Transaction_Extension, Error in Update OKS_K_LINES_B, row not found for update'
19191: );
19192: END IF;
19221: END LOOP;
19222: End If; --End of row count in OKCOKSLinesRecTab.OkcB_NewOKCLineID
19223:
19224: --------------------End of row by row processing------------------------
19225: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19226: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19227: FND_LOG.string(FND_LOG.level_statement
19228: ,l_module_name
19229: ,'End of Row by Row processing'
19222: End If; --End of row count in OKCOKSLinesRecTab.OkcB_NewOKCLineID
19223:
19224: --------------------End of row by row processing------------------------
19225: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19226: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19227: FND_LOG.string(FND_LOG.level_statement
19228: ,l_module_name
19229: ,'End of Row by Row processing'
19230: );
19223:
19224: --------------------End of row by row processing------------------------
19225: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19226: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19227: FND_LOG.string(FND_LOG.level_statement
19228: ,l_module_name
19229: ,'End of Row by Row processing'
19230: );
19231: END IF;
19252: END IF;
19253:
19254: END LOOP; --End of Bulk fetch and insert into OKC_K_LINES_B,OKS_K_LINES_B,OKC_K_ITEMS
19255:
19256: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19257: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19258: FND_LOG.string(FND_LOG.level_statement
19259: ,l_module_name
19260: ,'After BULK FETCH and BULK INSERT into OKC_K_LINES_B,OKS_K_LINES_B,OKC_K_ITEMS'
19253:
19254: END LOOP; --End of Bulk fetch and insert into OKC_K_LINES_B,OKS_K_LINES_B,OKC_K_ITEMS
19255:
19256: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19257: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19258: FND_LOG.string(FND_LOG.level_statement
19259: ,l_module_name
19260: ,'After BULK FETCH and BULK INSERT into OKC_K_LINES_B,OKS_K_LINES_B,OKC_K_ITEMS'
19261: );
19254: END LOOP; --End of Bulk fetch and insert into OKC_K_LINES_B,OKS_K_LINES_B,OKC_K_ITEMS
19255:
19256: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19257: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19258: FND_LOG.string(FND_LOG.level_statement
19259: ,l_module_name
19260: ,'After BULK FETCH and BULK INSERT into OKC_K_LINES_B,OKS_K_LINES_B,OKC_K_ITEMS'
19261: );
19262: END IF;
19392: GenerateNewLineNumber(P_To_Chr_ID => P_To_Chr_ID
19393: ,P_Partial_Copy_YN => 'N'
19394: ,x_return_status => l_return_Status);
19395:
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||'.GenerateNewLineNumber'
19400: ,'After call to GenerateNewLineNumber for line: x_return_status :'||l_return_status
19393: ,P_Partial_Copy_YN => 'N'
19394: ,x_return_status => l_return_Status);
19395:
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||'.GenerateNewLineNumber'
19400: ,'After call to GenerateNewLineNumber for line: x_return_status :'||l_return_status
19401: );
19394: ,x_return_status => l_return_Status);
19395:
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||'.GenerateNewLineNumber'
19400: ,'After call to GenerateNewLineNumber for line: x_return_status :'||l_return_status
19401: );
19402: END IF;
19413:
19414: Begin
19415: If (P_Renew_Ref_YN = 'N') then
19416:
19417: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19418: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19419: FND_LOG.string(FND_LOG.level_statement
19420: ,l_module_name||'.OKS_SETUP_UTIL_PUB.copy_subscr_inst for all Subscription Lines'
19421: ,'Before call to OKS_SETUP_UTIL_PUB.copy_subscr_inst for all Subscription Lines'
19414: Begin
19415: If (P_Renew_Ref_YN = 'N') then
19416:
19417: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19418: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19419: FND_LOG.string(FND_LOG.level_statement
19420: ,l_module_name||'.OKS_SETUP_UTIL_PUB.copy_subscr_inst for all Subscription Lines'
19421: ,'Before call to OKS_SETUP_UTIL_PUB.copy_subscr_inst for all Subscription Lines'
19422: ||to_char(sysdate,'DD/MM/YYYY HH:MI:SS')
19415: If (P_Renew_Ref_YN = 'N') then
19416:
19417: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19418: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19419: FND_LOG.string(FND_LOG.level_statement
19420: ,l_module_name||'.OKS_SETUP_UTIL_PUB.copy_subscr_inst for all Subscription Lines'
19421: ,'Before call to OKS_SETUP_UTIL_PUB.copy_subscr_inst for all Subscription Lines'
19422: ||to_char(sysdate,'DD/MM/YYYY HH:MI:SS')
19423: );
19428: ,p_cle_id => NULL
19429: ,p_intent => 'COPY'
19430: ,x_return_status => l_return_status);
19431:
19432: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19433: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19434: FND_LOG.string(FND_LOG.level_statement
19435: ,l_module_name||'.OKS_SETUP_UTIL_PUB.copy_subscr_inst'
19436: ,'After call to OKS_SETUP_UTIL_PUB.copy_subscr_inst: x_return_status:'||l_return_status
19429: ,p_intent => 'COPY'
19430: ,x_return_status => l_return_status);
19431:
19432: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19433: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19434: FND_LOG.string(FND_LOG.level_statement
19435: ,l_module_name||'.OKS_SETUP_UTIL_PUB.copy_subscr_inst'
19436: ,'After call to OKS_SETUP_UTIL_PUB.copy_subscr_inst: x_return_status:'||l_return_status
19437: ||to_char(sysdate,'DD/MM/YYYY HH:MI:SS')
19430: ,x_return_status => l_return_status);
19431:
19432: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19433: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19434: FND_LOG.string(FND_LOG.level_statement
19435: ,l_module_name||'.OKS_SETUP_UTIL_PUB.copy_subscr_inst'
19436: ,'After call to OKS_SETUP_UTIL_PUB.copy_subscr_inst: x_return_status:'||l_return_status
19437: ||to_char(sysdate,'DD/MM/YYYY HH:MI:SS')
19438: ||' '||SQLERRM
19448:
19449: ------------------------------------------------------------------------------------
19450: ------------Copy of OKC_K_LINES_TL--------------------------------------------------
19451: Begin
19452: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19453: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19454: FND_LOG.string(FND_LOG.level_statement
19455: ,l_module_name||'.copy_okc_k_lines_tl'
19456: ,'Before call to copy_okc_k_lines_tl'
19449: ------------------------------------------------------------------------------------
19450: ------------Copy of OKC_K_LINES_TL--------------------------------------------------
19451: Begin
19452: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19453: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19454: FND_LOG.string(FND_LOG.level_statement
19455: ,l_module_name||'.copy_okc_k_lines_tl'
19456: ,'Before call to copy_okc_k_lines_tl'
19457: );
19450: ------------Copy of OKC_K_LINES_TL--------------------------------------------------
19451: Begin
19452: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19453: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19454: FND_LOG.string(FND_LOG.level_statement
19455: ,l_module_name||'.copy_okc_k_lines_tl'
19456: ,'Before call to copy_okc_k_lines_tl'
19457: );
19458: END IF;
19461: ,P_To_Chr_ID => P_To_Chr_ID
19462: ,P_Partial_Copy_YN => 'N'
19463: ,x_return_status => l_return_status);
19464:
19465: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19466: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19467: FND_LOG.string(FND_LOG.level_statement
19468: ,l_module_name||'.copy_okc_k_lines_tl'
19469: ,'After call to copy_okc_k_lines_tl: x_return_status:'||l_return_status
19462: ,P_Partial_Copy_YN => 'N'
19463: ,x_return_status => l_return_status);
19464:
19465: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19466: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19467: FND_LOG.string(FND_LOG.level_statement
19468: ,l_module_name||'.copy_okc_k_lines_tl'
19469: ,'After call to copy_okc_k_lines_tl: x_return_status:'||l_return_status
19470: ||' '||SQLERRM
19463: ,x_return_status => l_return_status);
19464:
19465: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19466: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19467: FND_LOG.string(FND_LOG.level_statement
19468: ,l_module_name||'.copy_okc_k_lines_tl'
19469: ,'After call to copy_okc_k_lines_tl: x_return_status:'||l_return_status
19470: ||' '||SQLERRM
19471: );
19478: End;
19479: ------------------------------------------------------------------------------------
19480: -----------Copy of OKC_PARTY_ROLES_B--------------------------------
19481: Begin
19482: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19483: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19484: FND_LOG.string(FND_LOG.level_statement
19485: ,l_module_name||'.copy_okc_k_party_roles_b'
19486: ,'Before call to copy_okc_k_party_roles_b'
19479: ------------------------------------------------------------------------------------
19480: -----------Copy of OKC_PARTY_ROLES_B--------------------------------
19481: Begin
19482: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19483: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19484: FND_LOG.string(FND_LOG.level_statement
19485: ,l_module_name||'.copy_okc_k_party_roles_b'
19486: ,'Before call to copy_okc_k_party_roles_b'
19487: );
19480: -----------Copy of OKC_PARTY_ROLES_B--------------------------------
19481: Begin
19482: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19483: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19484: FND_LOG.string(FND_LOG.level_statement
19485: ,l_module_name||'.copy_okc_k_party_roles_b'
19486: ,'Before call to copy_okc_k_party_roles_b'
19487: );
19488: END IF;
19492: ,P_To_Chr_ID => P_To_Chr_ID
19493: ,P_Partial_Copy_YN => 'N'
19494: ,x_return_status => l_return_status);
19495:
19496: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19497: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19498: FND_LOG.string(FND_LOG.level_statement
19499: ,l_module_name||'.copy_okc_k_party_roles_b'
19500: ,'After call to copy_okc_k_party_roles_b: x_return_status:'||l_return_status
19493: ,P_Partial_Copy_YN => 'N'
19494: ,x_return_status => l_return_status);
19495:
19496: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19497: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19498: FND_LOG.string(FND_LOG.level_statement
19499: ,l_module_name||'.copy_okc_k_party_roles_b'
19500: ,'After call to copy_okc_k_party_roles_b: x_return_status:'||l_return_status
19501: ||' '||SQLERRM
19494: ,x_return_status => l_return_status);
19495:
19496: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19497: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19498: FND_LOG.string(FND_LOG.level_statement
19499: ,l_module_name||'.copy_okc_k_party_roles_b'
19500: ,'After call to copy_okc_k_party_roles_b: x_return_status:'||l_return_status
19501: ||' '||SQLERRM
19502: );
19509: End;
19510: ---------------------------------------------------------------------
19511: ------------Copy of OKC_PARTY_ROLES_TL------------------------------
19512: Begin
19513: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19514: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19515: FND_LOG.string(FND_LOG.level_statement
19516: ,l_module_name||'.copy_okc_k_party_roles_tl'
19517: ,'Before call to copy_okc_k_party_roles_tl'
19510: ---------------------------------------------------------------------
19511: ------------Copy of OKC_PARTY_ROLES_TL------------------------------
19512: Begin
19513: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19514: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19515: FND_LOG.string(FND_LOG.level_statement
19516: ,l_module_name||'.copy_okc_k_party_roles_tl'
19517: ,'Before call to copy_okc_k_party_roles_tl'
19518: );
19511: ------------Copy of OKC_PARTY_ROLES_TL------------------------------
19512: Begin
19513: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19514: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19515: FND_LOG.string(FND_LOG.level_statement
19516: ,l_module_name||'.copy_okc_k_party_roles_tl'
19517: ,'Before call to copy_okc_k_party_roles_tl'
19518: );
19519: END IF;
19522: ,P_To_Chr_ID => P_To_Chr_ID
19523: ,P_Partial_Copy_YN => 'N'
19524: ,x_return_status => l_return_status);
19525:
19526: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19527: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19528: FND_LOG.string(FND_LOG.level_statement
19529: ,l_module_name||'.copy_okc_k_party_roles_tl'
19530: ,'After call to copy_okc_party_roles_tl: x_return_status:'||l_return_status
19523: ,P_Partial_Copy_YN => 'N'
19524: ,x_return_status => l_return_status);
19525:
19526: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19527: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19528: FND_LOG.string(FND_LOG.level_statement
19529: ,l_module_name||'.copy_okc_k_party_roles_tl'
19530: ,'After call to copy_okc_party_roles_tl: x_return_status:'||l_return_status
19531: ||' '||SQLERRM
19524: ,x_return_status => l_return_status);
19525:
19526: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19527: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19528: FND_LOG.string(FND_LOG.level_statement
19529: ,l_module_name||'.copy_okc_k_party_roles_tl'
19530: ,'After call to copy_okc_party_roles_tl: x_return_status:'||l_return_status
19531: ||' '||SQLERRM
19532: );
19539: End;
19540: ----------------------------------------------------------------------
19541: ------------Copy of OKC_CONTACTS--------------------------------------
19542: Begin
19543: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19544: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19545: FND_LOG.string(FND_LOG.level_statement
19546: ,l_module_name||'.copy_okc_contacts'
19547: ,'Before call to copy_okc_contacts'
19540: ----------------------------------------------------------------------
19541: ------------Copy of OKC_CONTACTS--------------------------------------
19542: Begin
19543: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19544: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19545: FND_LOG.string(FND_LOG.level_statement
19546: ,l_module_name||'.copy_okc_contacts'
19547: ,'Before call to copy_okc_contacts'
19548: );
19541: ------------Copy of OKC_CONTACTS--------------------------------------
19542: Begin
19543: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19544: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19545: FND_LOG.string(FND_LOG.level_statement
19546: ,l_module_name||'.copy_okc_contacts'
19547: ,'Before call to copy_okc_contacts'
19548: );
19549: END IF;
19552: ,P_To_Chr_ID => P_To_Chr_ID
19553: ,P_Partial_Copy_YN => 'N'
19554: ,x_return_status => l_return_status);
19555:
19556: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19557: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19558: FND_LOG.string(FND_LOG.level_statement
19559: ,l_module_name||'.copy_okc_contacts'
19560: ,'After call to copy_okc_contacts: x_return_status:'||l_return_status
19553: ,P_Partial_Copy_YN => 'N'
19554: ,x_return_status => l_return_status);
19555:
19556: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19557: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19558: FND_LOG.string(FND_LOG.level_statement
19559: ,l_module_name||'.copy_okc_contacts'
19560: ,'After call to copy_okc_contacts: x_return_status:'||l_return_status
19561: ||' '||SQLERRM
19554: ,x_return_status => l_return_status);
19555:
19556: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19557: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19558: FND_LOG.string(FND_LOG.level_statement
19559: ,l_module_name||'.copy_okc_contacts'
19560: ,'After call to copy_okc_contacts: x_return_status:'||l_return_status
19561: ||' '||SQLERRM
19562: );
19568: End;
19569: -------------------------------------------------------------------------
19570: ------------Copy of OKC_PRICE_ATT_VALUES-----------------------------
19571: Begin
19572: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19573: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19574: FND_LOG.string(FND_LOG.level_statement
19575: ,l_module_name||'.copy_okc_price_att_values'
19576: ,'Before call to copy_okc_price_att_values'
19569: -------------------------------------------------------------------------
19570: ------------Copy of OKC_PRICE_ATT_VALUES-----------------------------
19571: Begin
19572: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19573: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19574: FND_LOG.string(FND_LOG.level_statement
19575: ,l_module_name||'.copy_okc_price_att_values'
19576: ,'Before call to copy_okc_price_att_values'
19577: );
19570: ------------Copy of OKC_PRICE_ATT_VALUES-----------------------------
19571: Begin
19572: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19573: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19574: FND_LOG.string(FND_LOG.level_statement
19575: ,l_module_name||'.copy_okc_price_att_values'
19576: ,'Before call to copy_okc_price_att_values'
19577: );
19578: END IF;
19581: ,P_To_Chr_ID => P_To_Chr_ID
19582: ,P_Partial_Copy_YN => 'N'
19583: ,x_return_status => l_return_status);
19584:
19585: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19586: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19587: FND_LOG.string(FND_LOG.level_statement
19588: ,l_module_name||'.copy_okc_price_att_values'
19589: ,'After call to copy_okc_price_att_values: x_return_status:'||l_return_status
19582: ,P_Partial_Copy_YN => 'N'
19583: ,x_return_status => l_return_status);
19584:
19585: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19586: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19587: FND_LOG.string(FND_LOG.level_statement
19588: ,l_module_name||'.copy_okc_price_att_values'
19589: ,'After call to copy_okc_price_att_values: x_return_status:'||l_return_status
19590: ||' '||SQLERRM
19583: ,x_return_status => l_return_status);
19584:
19585: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19586: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19587: FND_LOG.string(FND_LOG.level_statement
19588: ,l_module_name||'.copy_okc_price_att_values'
19589: ,'After call to copy_okc_price_att_values: x_return_status:'||l_return_status
19590: ||' '||SQLERRM
19591: );
19598: End;
19599: ---------------------------------------------------------------------
19600: -----------Copy of OKC_PRICE_ADJUSTMENTS---------------------------
19601: Begin
19602: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19603: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19604: FND_LOG.string(FND_LOG.level_statement
19605: ,l_module_name||'.copy_okc_price_adjustments'
19606: ,'Before call to copy_okc_price_adjustments'
19599: ---------------------------------------------------------------------
19600: -----------Copy of OKC_PRICE_ADJUSTMENTS---------------------------
19601: Begin
19602: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19603: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19604: FND_LOG.string(FND_LOG.level_statement
19605: ,l_module_name||'.copy_okc_price_adjustments'
19606: ,'Before call to copy_okc_price_adjustments'
19607: );
19600: -----------Copy of OKC_PRICE_ADJUSTMENTS---------------------------
19601: Begin
19602: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19603: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19604: FND_LOG.string(FND_LOG.level_statement
19605: ,l_module_name||'.copy_okc_price_adjustments'
19606: ,'Before call to copy_okc_price_adjustments'
19607: );
19608: END IF;
19612: ,P_To_Chr_ID => P_To_Chr_ID
19613: ,P_Partial_Copy_YN => 'N'
19614: ,x_return_status => l_return_status);
19615:
19616: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19617: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19618: FND_LOG.string(FND_LOG.level_statement
19619: ,l_module_name||'.copy_okc_price_adjustments'
19620: ,'After call to copy_okc_price_adjustments: x_return_status:'||l_return_status
19613: ,P_Partial_Copy_YN => 'N'
19614: ,x_return_status => l_return_status);
19615:
19616: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19617: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19618: FND_LOG.string(FND_LOG.level_statement
19619: ,l_module_name||'.copy_okc_price_adjustments'
19620: ,'After call to copy_okc_price_adjustments: x_return_status:'||l_return_status
19621: ||' '||SQLERRM
19614: ,x_return_status => l_return_status);
19615:
19616: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19617: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19618: FND_LOG.string(FND_LOG.level_statement
19619: ,l_module_name||'.copy_okc_price_adjustments'
19620: ,'After call to copy_okc_price_adjustments: x_return_status:'||l_return_status
19621: ||' '||SQLERRM
19622: );
19629: End;
19630: --------------------------------------------------------------------
19631: ------------Copy of OKS_K_LINES_TL---------------------------------
19632: Begin
19633: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19634: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19635: FND_LOG.string(FND_LOG.level_statement
19636: ,l_module_name||'.copy_oks_k_lines_tl'
19637: ,'Before call to copy_oks_k_lines_tl'
19630: --------------------------------------------------------------------
19631: ------------Copy of OKS_K_LINES_TL---------------------------------
19632: Begin
19633: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19634: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19635: FND_LOG.string(FND_LOG.level_statement
19636: ,l_module_name||'.copy_oks_k_lines_tl'
19637: ,'Before call to copy_oks_k_lines_tl'
19638: );
19631: ------------Copy of OKS_K_LINES_TL---------------------------------
19632: Begin
19633: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19634: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19635: FND_LOG.string(FND_LOG.level_statement
19636: ,l_module_name||'.copy_oks_k_lines_tl'
19637: ,'Before call to copy_oks_k_lines_tl'
19638: );
19639: END IF;
19642: ,P_To_Chr_ID => P_To_Chr_ID
19643: ,P_Partial_Copy_YN => 'N'
19644: ,x_return_status => l_return_status);
19645:
19646: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19647: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19648: FND_LOG.string(FND_LOG.level_statement
19649: ,l_module_name||'.copy_oks_k_lines_tl'
19650: ,'After call to copy_oks_k_lines_tl: x_return_status:'||l_return_status
19643: ,P_Partial_Copy_YN => 'N'
19644: ,x_return_status => l_return_status);
19645:
19646: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19647: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19648: FND_LOG.string(FND_LOG.level_statement
19649: ,l_module_name||'.copy_oks_k_lines_tl'
19650: ,'After call to copy_oks_k_lines_tl: x_return_status:'||l_return_status
19651: ||' '||SQLERRM
19644: ,x_return_status => l_return_status);
19645:
19646: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19647: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19648: FND_LOG.string(FND_LOG.level_statement
19649: ,l_module_name||'.copy_oks_k_lines_tl'
19650: ,'After call to copy_oks_k_lines_tl: x_return_status:'||l_return_status
19651: ||' '||SQLERRM
19652: );
19659: End;
19660: ---------------------------------------------------------------------
19661: ------------Copy of OKS_REV_DISTRIBUTIONS--------------------------
19662: Begin
19663: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19664: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19665: FND_LOG.string(FND_LOG.level_statement
19666: ,l_module_name||'.copy_oks_rev_distributions'
19667: ,'Before call to copy_oks_rev_distributions'
19660: ---------------------------------------------------------------------
19661: ------------Copy of OKS_REV_DISTRIBUTIONS--------------------------
19662: Begin
19663: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19664: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19665: FND_LOG.string(FND_LOG.level_statement
19666: ,l_module_name||'.copy_oks_rev_distributions'
19667: ,'Before call to copy_oks_rev_distributions'
19668: );
19661: ------------Copy of OKS_REV_DISTRIBUTIONS--------------------------
19662: Begin
19663: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19664: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19665: FND_LOG.string(FND_LOG.level_statement
19666: ,l_module_name||'.copy_oks_rev_distributions'
19667: ,'Before call to copy_oks_rev_distributions'
19668: );
19669: END IF;
19673: ,P_To_Chr_ID => P_To_Chr_ID
19674: ,P_Partial_Copy_YN => 'N'
19675: ,x_return_status => l_return_status);
19676:
19677: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19678: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19679: FND_LOG.string(FND_LOG.level_statement
19680: ,l_module_name||'.copy_oks_rev_distributions'
19681: ,'After call to copy_oks_rev_distributions: x_return_status:'||l_return_status
19674: ,P_Partial_Copy_YN => 'N'
19675: ,x_return_status => l_return_status);
19676:
19677: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19678: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19679: FND_LOG.string(FND_LOG.level_statement
19680: ,l_module_name||'.copy_oks_rev_distributions'
19681: ,'After call to copy_oks_rev_distributions: x_return_status:'||l_return_status
19682: ||' '||SQLERRM
19675: ,x_return_status => l_return_status);
19676:
19677: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19678: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19679: FND_LOG.string(FND_LOG.level_statement
19680: ,l_module_name||'.copy_oks_rev_distributions'
19681: ,'After call to copy_oks_rev_distributions: x_return_status:'||l_return_status
19682: ||' '||SQLERRM
19683: );
19690: End;
19691: ---------------------------------------------------------------------
19692: -------------Copy of OKS_QUALIFIERS----------------------------------
19693: Begin
19694: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19695: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19696: FND_LOG.string(FND_LOG.level_statement
19697: ,l_module_name||'.copy_oks_qualifiers'
19698: ,'Before call to copy_oks_qualifiers'
19691: ---------------------------------------------------------------------
19692: -------------Copy of OKS_QUALIFIERS----------------------------------
19693: Begin
19694: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19695: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19696: FND_LOG.string(FND_LOG.level_statement
19697: ,l_module_name||'.copy_oks_qualifiers'
19698: ,'Before call to copy_oks_qualifiers'
19699: );
19692: -------------Copy of OKS_QUALIFIERS----------------------------------
19693: Begin
19694: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19695: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19696: FND_LOG.string(FND_LOG.level_statement
19697: ,l_module_name||'.copy_oks_qualifiers'
19698: ,'Before call to copy_oks_qualifiers'
19699: );
19700: END IF;
19704: ,P_To_Chr_ID => P_To_Chr_ID
19705: ,P_Partial_Copy_YN => 'N'
19706: ,x_return_status => l_return_status);
19707:
19708: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19709: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19710: FND_LOG.string(FND_LOG.level_statement
19711: ,l_module_name||'.copy_oks_qualifiers'
19712: ,'After call to copy_oks_qualifiers: x_return_status:'||l_return_status
19705: ,P_Partial_Copy_YN => 'N'
19706: ,x_return_status => l_return_status);
19707:
19708: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19709: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19710: FND_LOG.string(FND_LOG.level_statement
19711: ,l_module_name||'.copy_oks_qualifiers'
19712: ,'After call to copy_oks_qualifiers: x_return_status:'||l_return_status
19713: ||' '||SQLERRM
19706: ,x_return_status => l_return_status);
19707:
19708: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19709: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19710: FND_LOG.string(FND_LOG.level_statement
19711: ,l_module_name||'.copy_oks_qualifiers'
19712: ,'After call to copy_oks_qualifiers: x_return_status:'||l_return_status
19713: ||' '||SQLERRM
19714: );
19737: ----Create Operation Lines in case when P_Renew_Ref_YN = 'Y'----------
19738:
19739: If (P_Renew_Ref_YN = 'Y') then
19740: Begin
19741: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19742: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19743: FND_LOG.string(FND_LOG.level_statement
19744: ,l_module_name||'.copy_okc_operation_lines'
19745: ,'Before call to copy_okc_operation_lines'
19738:
19739: If (P_Renew_Ref_YN = 'Y') then
19740: Begin
19741: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19742: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19743: FND_LOG.string(FND_LOG.level_statement
19744: ,l_module_name||'.copy_okc_operation_lines'
19745: ,'Before call to copy_okc_operation_lines'
19746: );
19739: If (P_Renew_Ref_YN = 'Y') then
19740: Begin
19741: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19742: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19743: FND_LOG.string(FND_LOG.level_statement
19744: ,l_module_name||'.copy_okc_operation_lines'
19745: ,'Before call to copy_okc_operation_lines'
19746: );
19747: END IF;
19750: copy_okc_operation_lines(P_From_Chr_ID => P_From_Chr_ID
19751: ,P_To_Chr_ID => P_To_Chr_ID
19752: ,x_return_status => l_return_status);
19753:
19754: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19755: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19756: FND_LOG.string(FND_LOG.level_statement
19757: ,l_module_name||'.copy_okc_operation_lines'
19758: ,'After call to copy_okc_operation_lines: x_return_status:'||l_return_status
19751: ,P_To_Chr_ID => P_To_Chr_ID
19752: ,x_return_status => l_return_status);
19753:
19754: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19755: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19756: FND_LOG.string(FND_LOG.level_statement
19757: ,l_module_name||'.copy_okc_operation_lines'
19758: ,'After call to copy_okc_operation_lines: x_return_status:'||l_return_status
19759: ||' '||SQLERRM
19752: ,x_return_status => l_return_status);
19753:
19754: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19755: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19756: FND_LOG.string(FND_LOG.level_statement
19757: ,l_module_name||'.copy_okc_operation_lines'
19758: ,'After call to copy_okc_operation_lines: x_return_status:'||l_return_status
19759: ||' '||SQLERRM
19760: );
19771: ---------------------------------------------------------
19772: --The following entities are copied only for regular Copy of a Contract, not during
19773: --Renewal. These get regenerated during post-renewal process
19774: ---------------------------------------------------------
19775: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19776: FND_LOG.string(FND_LOG.level_statement
19777: ,l_module_name||'.copy_lines'
19778: ,'Template YN:'||IsSourceContractTemplate(P_From_Chr_ID => P_From_Chr_ID)
19779: ||', l_SrcContractPPSetupExists_YN :'||l_SrcContractPPSetupExists_YN
19772: --The following entities are copied only for regular Copy of a Contract, not during
19773: --Renewal. These get regenerated during post-renewal process
19774: ---------------------------------------------------------
19775: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19776: FND_LOG.string(FND_LOG.level_statement
19777: ,l_module_name||'.copy_lines'
19778: ,'Template YN:'||IsSourceContractTemplate(P_From_Chr_ID => P_From_Chr_ID)
19779: ||', l_SrcContractPPSetupExists_YN :'||l_SrcContractPPSetupExists_YN
19780: ||', l_GCDPPSetupExists_YN:'||l_GCDPPSetupExists_YN
19807: --================Start of Billing Schedule copy for Header and Lines==========
19808:
19809: -------------Copy of OKS_STREAM_LEVELS_B---------------------------
19810: Begin
19811: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19812: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19813: FND_LOG.string(FND_LOG.level_statement
19814: ,l_module_name||'.copy_oks_stream_levels_b'
19815: ,'Before call to copy_oks_stream_levels_b'
19808:
19809: -------------Copy of OKS_STREAM_LEVELS_B---------------------------
19810: Begin
19811: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19812: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19813: FND_LOG.string(FND_LOG.level_statement
19814: ,l_module_name||'.copy_oks_stream_levels_b'
19815: ,'Before call to copy_oks_stream_levels_b'
19816: );
19809: -------------Copy of OKS_STREAM_LEVELS_B---------------------------
19810: Begin
19811: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19812: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19813: FND_LOG.string(FND_LOG.level_statement
19814: ,l_module_name||'.copy_oks_stream_levels_b'
19815: ,'Before call to copy_oks_stream_levels_b'
19816: );
19817: END IF;
19821: ,P_To_Chr_ID => P_To_Chr_ID
19822: ,P_Partial_Copy_YN => 'N'
19823: ,x_return_status => l_return_status);
19824:
19825: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19826: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19827: FND_LOG.string(FND_LOG.level_statement
19828: ,l_module_name||'.copy_oks_stream_levels_b'
19829: ,'After call to copy_oks_stream_levels_b: x_return_status:'||l_return_status
19822: ,P_Partial_Copy_YN => 'N'
19823: ,x_return_status => l_return_status);
19824:
19825: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19826: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19827: FND_LOG.string(FND_LOG.level_statement
19828: ,l_module_name||'.copy_oks_stream_levels_b'
19829: ,'After call to copy_oks_stream_levels_b: x_return_status:'||l_return_status
19830: ||' '||SQLERRM
19823: ,x_return_status => l_return_status);
19824:
19825: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19826: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19827: FND_LOG.string(FND_LOG.level_statement
19828: ,l_module_name||'.copy_oks_stream_levels_b'
19829: ,'After call to copy_oks_stream_levels_b: x_return_status:'||l_return_status
19830: ||' '||SQLERRM
19831: );
19838: End;
19839: -------------------------------------------------------------------
19840: -------------Copy of OKS_LEVEL_ELEMENTS---------------------------
19841: Begin
19842: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19843: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19844: FND_LOG.string(FND_LOG.level_statement
19845: ,l_module_name||'.copy_oks_level_elements'
19846: ,'Before call to copy_oks_level_elements'
19839: -------------------------------------------------------------------
19840: -------------Copy of OKS_LEVEL_ELEMENTS---------------------------
19841: Begin
19842: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19843: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19844: FND_LOG.string(FND_LOG.level_statement
19845: ,l_module_name||'.copy_oks_level_elements'
19846: ,'Before call to copy_oks_level_elements'
19847: );
19840: -------------Copy of OKS_LEVEL_ELEMENTS---------------------------
19841: Begin
19842: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19843: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19844: FND_LOG.string(FND_LOG.level_statement
19845: ,l_module_name||'.copy_oks_level_elements'
19846: ,'Before call to copy_oks_level_elements'
19847: );
19848: END IF;
19852: ,P_To_Chr_ID => P_To_Chr_ID
19853: ,P_Partial_Copy_YN => 'N'
19854: ,x_return_status => l_return_status);
19855:
19856: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19857: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19858: FND_LOG.string(FND_LOG.level_statement
19859: ,l_module_name||'.copy_oks_level_elements'
19860: ,'After call to copy_oks_level_elements: x_return_status:'||l_return_status
19853: ,P_Partial_Copy_YN => 'N'
19854: ,x_return_status => l_return_status);
19855:
19856: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19857: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19858: FND_LOG.string(FND_LOG.level_statement
19859: ,l_module_name||'.copy_oks_level_elements'
19860: ,'After call to copy_oks_level_elements: x_return_status:'||l_return_status
19861: ||' '||SQLERRM
19854: ,x_return_status => l_return_status);
19855:
19856: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19857: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19858: FND_LOG.string(FND_LOG.level_statement
19859: ,l_module_name||'.copy_oks_level_elements'
19860: ,'After call to copy_oks_level_elements: x_return_status:'||l_return_status
19861: ||' '||SQLERRM
19862: );
19870: --------------------------------------------------------------------
19871:
19872: --------------Copy of Billing schedules for Skipped Lines-----------
19873: Begin
19874: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19875: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19876: FND_LOG.string(FND_LOG.level_statement
19877: ,l_module_name||'.copy_bsch_for_SkippedLines'
19878: ,'Before call to copy_bsch_for_SkippedLines'
19871:
19872: --------------Copy of Billing schedules for Skipped Lines-----------
19873: Begin
19874: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19875: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19876: FND_LOG.string(FND_LOG.level_statement
19877: ,l_module_name||'.copy_bsch_for_SkippedLines'
19878: ,'Before call to copy_bsch_for_SkippedLines'
19879: );
19872: --------------Copy of Billing schedules for Skipped Lines-----------
19873: Begin
19874: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19875: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19876: FND_LOG.string(FND_LOG.level_statement
19877: ,l_module_name||'.copy_bsch_for_SkippedLines'
19878: ,'Before call to copy_bsch_for_SkippedLines'
19879: );
19880: END IF;
19889: ,x_return_status => l_return_status
19890: ,x_msg_count => x_msg_count
19891: ,x_msg_data => x_msg_data);
19892:
19893: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19894: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19895: FND_LOG.string(FND_LOG.level_statement
19896: ,l_module_name||'.copy_bsch_for_SkippedLines'
19897: ,'After call to copy_bsch_for_SkippedLines: x_return_status:'||l_return_status
19890: ,x_msg_count => x_msg_count
19891: ,x_msg_data => x_msg_data);
19892:
19893: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19894: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19895: FND_LOG.string(FND_LOG.level_statement
19896: ,l_module_name||'.copy_bsch_for_SkippedLines'
19897: ,'After call to copy_bsch_for_SkippedLines: x_return_status:'||l_return_status
19898: ||' '||SQLERRM
19891: ,x_msg_data => x_msg_data);
19892:
19893: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19894: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19895: FND_LOG.string(FND_LOG.level_statement
19896: ,l_module_name||'.copy_bsch_for_SkippedLines'
19897: ,'After call to copy_bsch_for_SkippedLines: x_return_status:'||l_return_status
19898: ||' '||SQLERRM
19899: );
19910: --------------------------------------------------------------------
19911:
19912:
19913: ELSIF (l_SrcContractPPSetupExists_YN = 'N' AND l_GCDPPSetupExists_YN = 'Y') THEN
19914: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19915: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19916: FND_LOG.string(FND_LOG.level_statement
19917: ,l_module_name||'.create_bsch_using_PPSetup'
19918: ,'Before call to create_bsch_using_PPSetup'
19911:
19912:
19913: ELSIF (l_SrcContractPPSetupExists_YN = 'N' AND l_GCDPPSetupExists_YN = 'Y') THEN
19914: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19915: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19916: FND_LOG.string(FND_LOG.level_statement
19917: ,l_module_name||'.create_bsch_using_PPSetup'
19918: ,'Before call to create_bsch_using_PPSetup'
19919: );
19912:
19913: ELSIF (l_SrcContractPPSetupExists_YN = 'N' AND l_GCDPPSetupExists_YN = 'Y') THEN
19914: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19915: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19916: FND_LOG.string(FND_LOG.level_statement
19917: ,l_module_name||'.create_bsch_using_PPSetup'
19918: ,'Before call to create_bsch_using_PPSetup'
19919: );
19920: END IF;
19927: ,x_return_status => l_return_status
19928: ,x_msg_count => x_msg_count
19929: ,x_msg_data => x_msg_data);
19930:
19931: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19932: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19933: FND_LOG.string(FND_LOG.level_statement
19934: ,l_module_name||'.create_bsch_using_PPSetup'
19935: ,'After call to create_bsch_using_PPSetup: x_return_status:'||l_return_status
19928: ,x_msg_count => x_msg_count
19929: ,x_msg_data => x_msg_data);
19930:
19931: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19932: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19933: FND_LOG.string(FND_LOG.level_statement
19934: ,l_module_name||'.create_bsch_using_PPSetup'
19935: ,'After call to create_bsch_using_PPSetup: x_return_status:'||l_return_status
19936: ||' '||SQLERRM
19929: ,x_msg_data => x_msg_data);
19930:
19931: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
19932: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
19933: FND_LOG.string(FND_LOG.level_statement
19934: ,l_module_name||'.create_bsch_using_PPSetup'
19935: ,'After call to create_bsch_using_PPSetup: x_return_status:'||l_return_status
19936: ||' '||SQLERRM
19937: );
20063:
20064: --=====================End of BillRate Schedule copy============================
20065:
20066:
20067: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
20068: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
20069: FND_LOG.string(FND_LOG.level_procedure
20070: ,l_module_name||'.End'
20071: ,',x_return_status='||x_return_status
20064: --=====================End of BillRate Schedule copy============================
20065:
20066:
20067: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
20068: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
20069: FND_LOG.string(FND_LOG.level_procedure
20070: ,l_module_name||'.End'
20071: ,',x_return_status='||x_return_status
20072: );
20065:
20066:
20067: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
20068: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
20069: FND_LOG.string(FND_LOG.level_procedure
20070: ,l_module_name||'.End'
20071: ,',x_return_status='||x_return_status
20072: );
20073: END IF;
20089: CLOSE GetOKCOKSLinesB_Renew;
20090: END IF;
20091:
20092: x_return_status := l_return_status;
20093: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) then
20094: FND_LOG.string(FND_LOG.level_procedure
20095: ,l_module_name||'.EXCEPTION'
20096: ,',x_return_status='||x_return_status
20097: ||'Error Msg='||SQLERRM
20090: END IF;
20091:
20092: x_return_status := l_return_status;
20093: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) then
20094: FND_LOG.string(FND_LOG.level_procedure
20095: ,l_module_name||'.EXCEPTION'
20096: ,',x_return_status='||x_return_status
20097: ||'Error Msg='||SQLERRM
20098: );
21495: j BINARY_INTEGER := 0;
21496:
21497: Begin
21498: x_return_status := l_return_status;
21499: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
21500: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
21501: FND_LOG.string(FND_LOG.level_procedure
21502: ,l_module_name||'.Begin'
21503: ,' P_From_Chr_ID='||P_From_Chr_ID
21496:
21497: Begin
21498: x_return_status := l_return_status;
21499: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
21500: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
21501: FND_LOG.string(FND_LOG.level_procedure
21502: ,l_module_name||'.Begin'
21503: ,' P_From_Chr_ID='||P_From_Chr_ID
21504: ||',P_To_Chr_ID='||P_To_Chr_ID
21497: Begin
21498: x_return_status := l_return_status;
21499: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
21500: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
21501: FND_LOG.string(FND_LOG.level_procedure
21502: ,l_module_name||'.Begin'
21503: ,' P_From_Chr_ID='||P_From_Chr_ID
21504: ||',P_To_Chr_ID='||P_To_Chr_ID
21505: ||',P_Lines_Tbl.COUNT ='||P_Lines_Tbl.COUNT
21555: End If;
21556: End;
21557: ------------------------------------------
21558: -----Convert PLSQL table of records P_Lines_Tbl into PLSQL Record of tables------
21559: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
21560: FND_LOG.string(FND_LOG.level_statement
21561: ,l_module_name
21562: ,'Count of rows in P_Lines_Tbl='||P_Lines_Tbl.COUNT);
21563: End If;
21556: End;
21557: ------------------------------------------
21558: -----Convert PLSQL table of records P_Lines_Tbl into PLSQL Record of tables------
21559: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
21560: FND_LOG.string(FND_LOG.level_statement
21561: ,l_module_name
21562: ,'Count of rows in P_Lines_Tbl='||P_Lines_Tbl.COUNT);
21563: End If;
21564:
21569: ApiLinesRecTab.ToLineTab(j) := P_Lines_Tbl(i).to_line;
21570: ApiLinesRecTab.LineExistsYNTab(j) := P_Lines_Tbl(i).line_exists_yn;
21571: ApiLinesRecTab.LineExpYNTab(j) := P_Lines_Tbl(i).line_exp_yn;
21572:
21573: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
21574: FND_LOG.string(FND_LOG.level_statement
21575: ,l_module_name
21576: ,'ID='||P_Lines_Tbl(i).id
21577: ||', TO_K='||P_Lines_Tbl(i).to_k
21570: ApiLinesRecTab.LineExistsYNTab(j) := P_Lines_Tbl(i).line_exists_yn;
21571: ApiLinesRecTab.LineExpYNTab(j) := P_Lines_Tbl(i).line_exp_yn;
21572:
21573: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
21574: FND_LOG.string(FND_LOG.level_statement
21575: ,l_module_name
21576: ,'ID='||P_Lines_Tbl(i).id
21577: ||', TO_K='||P_Lines_Tbl(i).to_k
21578: ||', TO_LINE='||P_Lines_Tbl(i).to_line
21585:
21586: EXCEPTION
21587: WHEN OTHERS THEN
21588: NULL;
21589: If (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
21590: FND_LOG.string(FND_LOG.level_unexpected
21591: ,l_module_name
21592: ,SQLERRM);
21593: End If;
21586: EXCEPTION
21587: WHEN OTHERS THEN
21588: NULL;
21589: If (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
21590: FND_LOG.string(FND_LOG.level_unexpected
21591: ,l_module_name
21592: ,SQLERRM);
21593: End If;
21594: End;
21838: START WITH okcB.ID = ApiLinesRecTab.IDTab(i);
21839:
21840: EXCEPTION
21841: WHEN OTHERS THEN
21842: If (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
21843: FND_LOG.string(FND_LOG.level_unexpected
21844: ,l_module_name
21845: ,'During Bulk Insert into OKC_K_LINES_B_TEMP : a) :'||SQLERRM);
21846: End If;
21839:
21840: EXCEPTION
21841: WHEN OTHERS THEN
21842: If (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
21843: FND_LOG.string(FND_LOG.level_unexpected
21844: ,l_module_name
21845: ,'During Bulk Insert into OKC_K_LINES_B_TEMP : a) :'||SQLERRM);
21846: End If;
21847:
22217: );
22218:
22219: EXCEPTION
22220: WHEN OTHERS THEN
22221: If (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
22222: FND_LOG.string(FND_LOG.level_unexpected
22223: ,l_module_name
22224: ,'During Bulk Insert into OKC_K_LINES_B_TEMP : b) :'||SQLERRM);
22225: End If;
22218:
22219: EXCEPTION
22220: WHEN OTHERS THEN
22221: If (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
22222: FND_LOG.string(FND_LOG.level_unexpected
22223: ,l_module_name
22224: ,'During Bulk Insert into OKC_K_LINES_B_TEMP : b) :'||SQLERRM);
22225: End If;
22226:
22468:
22469: EXCEPTION
22470: WHEN OTHERS THEN
22471:
22472: /* IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
22473: FND_LOG.string(FND_LOG.level_unexpected
22474: ,l_module_name
22475: ,'During Bulk Insert into OKC_K_LINES_B_TEMP : c) :'||SQLERRM);
22476: END IF; */
22469: EXCEPTION
22470: WHEN OTHERS THEN
22471:
22472: /* IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
22473: FND_LOG.string(FND_LOG.level_unexpected
22474: ,l_module_name
22475: ,'During Bulk Insert into OKC_K_LINES_B_TEMP : c) :'||SQLERRM);
22476: END IF; */
22477:
22759:
22760: EXCEPTION
22761: WHEN OTHERS THEN
22762: /*
22763: If (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
22764: FND_LOG.string(FND_LOG.level_unexpected
22765: ,l_module_name
22766: ,'During Bulk Insert into OKC_K_LINES_B_TEMP : d) :'||SQLERRM);
22767: End If;
22760: EXCEPTION
22761: WHEN OTHERS THEN
22762: /*
22763: If (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
22764: FND_LOG.string(FND_LOG.level_unexpected
22765: ,l_module_name
22766: ,'During Bulk Insert into OKC_K_LINES_B_TEMP : d) :'||SQLERRM);
22767: End If;
22768: */
22772: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
22773: RAISE G_EXCEPTION_HALT_VALIDATION;
22774: End;
22775:
22776: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
22777: FND_LOG.string(FND_LOG.level_statement
22778: ,l_module_name
22779: ,'After Bulk Insert into OKC_K_LINES_B_TEMP'
22780: );
22773: RAISE G_EXCEPTION_HALT_VALIDATION;
22774: End;
22775:
22776: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
22777: FND_LOG.string(FND_LOG.level_statement
22778: ,l_module_name
22779: ,'After Bulk Insert into OKC_K_LINES_B_TEMP'
22780: );
22781: End If;
22797: AND a.CLE_ID IS NOT NULL
22798: AND a.LINE_EXISTS_YN = 'N';
22799: EXCEPTION
22800: WHEN OTHERS THEN
22801: If (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
22802: FND_LOG.string(FND_LOG.level_unexpected
22803: ,l_module_name
22804: ,'During update of cle_id in OKC_K_LINES_B_TEMP :'
22805: ||SQLERRM
22798: AND a.LINE_EXISTS_YN = 'N';
22799: EXCEPTION
22800: WHEN OTHERS THEN
22801: If (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
22802: FND_LOG.string(FND_LOG.level_unexpected
22803: ,l_module_name
22804: ,'During update of cle_id in OKC_K_LINES_B_TEMP :'
22805: ||SQLERRM
22806: );
22841: IF (P_Lines_Tbl.COUNT > 0) then ---Start of Check of P_Lines_Tbl.COUNT > 0 *****************
22842: ---for bulk insert into OKC_K_LINES_B, *****************
22843: ---OKS_K_LINES_B,OKC_K_ITEMS *****************
22844:
22845: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
22846: FND_LOG.string(FND_LOG.level_statement
22847: ,l_module_name
22848: ,'Start of BULK FETCH from OKC_K_LINES_B_TEMP'
22849: ||'Count of Lines in P_Lines_Tbl='||P_Lines_Tbl.COUNT
22842: ---for bulk insert into OKC_K_LINES_B, *****************
22843: ---OKS_K_LINES_B,OKC_K_ITEMS *****************
22844:
22845: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
22846: FND_LOG.string(FND_LOG.level_statement
22847: ,l_module_name
22848: ,'Start of BULK FETCH from OKC_K_LINES_B_TEMP'
22849: ||'Count of Lines in P_Lines_Tbl='||P_Lines_Tbl.COUNT
22850: );
23926: ,FND_GLOBAL.LOGIN_ID
23927: FROM
23928: DUAL;
23929:
23930: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
23931: FND_LOG.string(FND_LOG.level_statement
23932: ,l_module_name
23933: ,'After BULK INSERT into OKC_K_LINES_B'
23934: );
23927: FROM
23928: DUAL;
23929:
23930: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
23931: FND_LOG.string(FND_LOG.level_statement
23932: ,l_module_name
23933: ,'After BULK INSERT into OKC_K_LINES_B'
23934: );
23935: End If;
24151: DUAL
24152: WHERE
24153: OKCOKSLinesRecTab.OksB_OldOksLineID(i) IS NOT NULL;
24154:
24155: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
24156: FND_LOG.string(FND_LOG.level_statement
24157: ,l_module_name
24158: ,'After BULK INSERT into OKS_K_LINES_B'
24159: );
24152: WHERE
24153: OKCOKSLinesRecTab.OksB_OldOksLineID(i) IS NOT NULL;
24154:
24155: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
24156: FND_LOG.string(FND_LOG.level_statement
24157: ,l_module_name
24158: ,'After BULK INSERT into OKS_K_LINES_B'
24159: );
24160: End If;
24216: FROM
24217: DUAL
24218: where OKCOKSLinesRecTab.OkcI_OldOkcItemID(i) IS NOT NULL;
24219:
24220: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
24221: FND_LOG.string(FND_LOG.level_statement
24222: ,l_module_name
24223: ,'After BULK INSERT into OKC_K_ITEMS'
24224: );
24217: DUAL
24218: where OKCOKSLinesRecTab.OkcI_OldOkcItemID(i) IS NOT NULL;
24219:
24220: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
24221: FND_LOG.string(FND_LOG.level_statement
24222: ,l_module_name
24223: ,'After BULK INSERT into OKC_K_ITEMS'
24224: );
24225: End If;
24281:
24282: /*Added for bug 14478599 */
24283: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
24284:
24285: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24286: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24287: FND_LOG.string(FND_LOG.level_statement
24288: ,l_module_name||'.OKS_TAX_UTIL_PVT.Get_Tax'
24289: ,'Error occured in Get Tax API for line: x_return_status :'||l_return_status
24282: /*Added for bug 14478599 */
24283: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
24284:
24285: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24286: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24287: FND_LOG.string(FND_LOG.level_statement
24288: ,l_module_name||'.OKS_TAX_UTIL_PVT.Get_Tax'
24289: ,'Error occured in Get Tax API for line: x_return_status :'||l_return_status
24290: );
24283: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
24284:
24285: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24286: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24287: FND_LOG.string(FND_LOG.level_statement
24288: ,l_module_name||'.OKS_TAX_UTIL_PVT.Get_Tax'
24289: ,'Error occured in Get Tax API for line: x_return_status :'||l_return_status
24290: );
24291: END IF;
24332: IF (OKCOKSLinesRecTab.OkcB_LSE_ID(i) = 1 OR OKCOKSLinesRecTab.OkcB_LSE_ID(i) = 19) THEN
24333:
24334: --Instantiate Counters Events
24335:
24336: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
24337: FND_LOG.string(FND_LOG.level_statement
24338: ,l_module_name
24339: ,'Before instantiate_counters_events'
24340: ||' p_old_cle_id='||OKCOKSLinesRecTab.OkcB_OldOKCLineID(i)
24333:
24334: --Instantiate Counters Events
24335:
24336: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
24337: FND_LOG.string(FND_LOG.level_statement
24338: ,l_module_name
24339: ,'Before instantiate_counters_events'
24340: ||' p_old_cle_id='||OKCOKSLinesRecTab.OkcB_OldOKCLineID(i)
24341: ||',p_old_lse_id='||OKCOKSLinesRecTab.OkcB_LSE_ID(i)
24362: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
24363: RAISE G_EXCEPTION_HALT_VALIDATION;
24364: END IF;
24365:
24366: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
24367: FND_LOG.string(FND_LOG.level_statement
24368: ,l_module_name
24369: ,'After instantiate_counters_events'
24370: ||', x_return_status ='||l_return_status
24363: RAISE G_EXCEPTION_HALT_VALIDATION;
24364: END IF;
24365:
24366: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
24367: FND_LOG.string(FND_LOG.level_statement
24368: ,l_module_name
24369: ,'After instantiate_counters_events'
24370: ||', x_return_status ='||l_return_status
24371: );
24379: ,x_msg_data => x_msg_data
24380: ,x_return_status => l_return_status
24381: ,p_line_id => OKCOKSLinesRecTab.OkcB_NewOKCLineID(i)
24382: );
24383: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24384: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24385: FND_LOG.string(FND_LOG.level_statement
24386: ,l_module_name||'.OKS_COVERAGES_PVT.COPY_NOTES'
24387: ,'After call to copy_notes for line: x_return_status:'||l_return_status
24380: ,x_return_status => l_return_status
24381: ,p_line_id => OKCOKSLinesRecTab.OkcB_NewOKCLineID(i)
24382: );
24383: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24384: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24385: FND_LOG.string(FND_LOG.level_statement
24386: ,l_module_name||'.OKS_COVERAGES_PVT.COPY_NOTES'
24387: ,'After call to copy_notes for line: x_return_status:'||l_return_status
24388: );
24381: ,p_line_id => OKCOKSLinesRecTab.OkcB_NewOKCLineID(i)
24382: );
24383: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24384: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24385: FND_LOG.string(FND_LOG.level_statement
24386: ,l_module_name||'.OKS_COVERAGES_PVT.COPY_NOTES'
24387: ,'After call to copy_notes for line: x_return_status:'||l_return_status
24388: );
24389: END IF;
24411: ,x_return_status => l_return_status
24412: ,x_msg_count => x_msg_count
24413: ,x_msg_data => x_msg_data);
24414:
24415: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24416: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24417: FND_LOG.string(FND_LOG.level_statement
24418: ,l_module_name||'.QP_LOCK_PRICELIST_GRP.Lock_Price'
24419: ,'After call to Lock_Price API for line: x_return_status :'||l_return_status
24412: ,x_msg_count => x_msg_count
24413: ,x_msg_data => x_msg_data);
24414:
24415: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24416: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24417: FND_LOG.string(FND_LOG.level_statement
24418: ,l_module_name||'.QP_LOCK_PRICELIST_GRP.Lock_Price'
24419: ,'After call to Lock_Price API for line: x_return_status :'||l_return_status
24420: ||'Old Locked Price List Line ID='||OKCOKSLinesRecTab.OksB_LOCKED_PRICE_LIST_LINE_ID(i)
24413: ,x_msg_data => x_msg_data);
24414:
24415: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24416: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24417: FND_LOG.string(FND_LOG.level_statement
24418: ,l_module_name||'.QP_LOCK_PRICELIST_GRP.Lock_Price'
24419: ,'After call to Lock_Price API for line: x_return_status :'||l_return_status
24420: ||'Old Locked Price List Line ID='||OKCOKSLinesRecTab.OksB_LOCKED_PRICE_LIST_LINE_ID(i)
24421: ||'New Locked Price List Line ID='||l_locked_price_list_line_id
24450:
24451: Begin
24452: If (OKCOKSLinesRecTab.OksB_OldOksLineID(i) IS NOT NULL AND OKCOKSLinesRecTab.OksB_TRXN_EXTENSION_ID(i) IS NOT NULL) then
24453: --Generate new transaction extension id;
24454: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24455: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24456: FND_LOG.string(FND_LOG.level_statement
24457: ,l_module_name||'.Create_Transaction_Extension'
24458: ,'Before call to Create_Transaction_Extension for line in COPY_LINE_COMPONENTS'
24451: Begin
24452: If (OKCOKSLinesRecTab.OksB_OldOksLineID(i) IS NOT NULL AND OKCOKSLinesRecTab.OksB_TRXN_EXTENSION_ID(i) IS NOT NULL) then
24453: --Generate new transaction extension id;
24454: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24455: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24456: FND_LOG.string(FND_LOG.level_statement
24457: ,l_module_name||'.Create_Transaction_Extension'
24458: ,'Before call to Create_Transaction_Extension for line in COPY_LINE_COMPONENTS'
24459: ||'Old Trxn ID='||OKCOKSLinesRecTab.OksB_TRXN_EXTENSION_ID(i)
24452: If (OKCOKSLinesRecTab.OksB_OldOksLineID(i) IS NOT NULL AND OKCOKSLinesRecTab.OksB_TRXN_EXTENSION_ID(i) IS NOT NULL) then
24453: --Generate new transaction extension id;
24454: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24455: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24456: FND_LOG.string(FND_LOG.level_statement
24457: ,l_module_name||'.Create_Transaction_Extension'
24458: ,'Before call to Create_Transaction_Extension for line in COPY_LINE_COMPONENTS'
24459: ||'Old Trxn ID='||OKCOKSLinesRecTab.OksB_TRXN_EXTENSION_ID(i)
24460: );
24474: ,x_return_status => l_return_status) ;
24475:
24476:
24477:
24478: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24479: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24480: FND_LOG.string(FND_LOG.level_statement
24481: ,l_module_name||'.Create_Transaction_Extension'
24482: ,'After call to Create_Transaction_Extension for line: x_return_status :'||l_return_status
24475:
24476:
24477:
24478: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24479: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24480: FND_LOG.string(FND_LOG.level_statement
24481: ,l_module_name||'.Create_Transaction_Extension'
24482: ,'After call to Create_Transaction_Extension for line: x_return_status :'||l_return_status
24483: ||'New Trxn ID='||l_trxn_extension_id
24476:
24477:
24478: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24479: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24480: FND_LOG.string(FND_LOG.level_statement
24481: ,l_module_name||'.Create_Transaction_Extension'
24482: ,'After call to Create_Transaction_Extension for line: x_return_status :'||l_return_status
24483: ||'New Trxn ID='||l_trxn_extension_id
24484: );
24498: WHERE ID = OKCOKSLinesRecTab.OksB_NewOksLineID(i)
24499: AND ORIG_SYSTEM_ID1 = OKCOKSLinesRecTab.OksB_OldOksLineID(i);
24500:
24501: If SQL%NOTFOUND then
24502: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24503: FND_LOG.string(FND_LOG.level_statement
24504: ,l_module_name||'.Create_Transaction_Extension'
24505: ,'After call to Create_Transaction_Extension, Error in Update OKS_K_LINES_B, row not found for update'
24506: );
24499: AND ORIG_SYSTEM_ID1 = OKCOKSLinesRecTab.OksB_OldOksLineID(i);
24500:
24501: If SQL%NOTFOUND then
24502: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24503: FND_LOG.string(FND_LOG.level_statement
24504: ,l_module_name||'.Create_Transaction_Extension'
24505: ,'After call to Create_Transaction_Extension, Error in Update OKS_K_LINES_B, row not found for update'
24506: );
24507: END IF;
24517: -------------------------------------------------------------------------------------------------
24518: -----------Copy subscription schedules for subscription lines chosen by user--------
24519: If (OKCOKSLinesRecTab.OkcB_LSE_ID(i) = 46) then
24520: Begin
24521: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24522: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24523: FND_LOG.string(FND_LOG.level_statement
24524: ,l_module_name||'.OKS_SETUP_UTIL_PUB.copy_subscr_inst for Lines chosen by user'
24525: ,'Before call to OKS_SETUP_UTIL_PUB.copy_subscr_inst for Lines chosen by user'
24518: -----------Copy subscription schedules for subscription lines chosen by user--------
24519: If (OKCOKSLinesRecTab.OkcB_LSE_ID(i) = 46) then
24520: Begin
24521: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24522: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24523: FND_LOG.string(FND_LOG.level_statement
24524: ,l_module_name||'.OKS_SETUP_UTIL_PUB.copy_subscr_inst for Lines chosen by user'
24525: ,'Before call to OKS_SETUP_UTIL_PUB.copy_subscr_inst for Lines chosen by user'
24526: ||':'||to_char(sysdate,'DD/MM/YY HH:MI:SS')
24519: If (OKCOKSLinesRecTab.OkcB_LSE_ID(i) = 46) then
24520: Begin
24521: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24522: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24523: FND_LOG.string(FND_LOG.level_statement
24524: ,l_module_name||'.OKS_SETUP_UTIL_PUB.copy_subscr_inst for Lines chosen by user'
24525: ,'Before call to OKS_SETUP_UTIL_PUB.copy_subscr_inst for Lines chosen by user'
24526: ||':'||to_char(sysdate,'DD/MM/YY HH:MI:SS')
24527: );
24532: ,p_cle_id => OKCOKSLinesRecTab.OkcB_NewOkcLineID(i)
24533: ,p_intent => 'COPY'
24534: ,x_return_status => l_return_status);
24535:
24536: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24537: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24538: FND_LOG.string(FND_LOG.level_statement
24539: ,l_module_name||'.OKS_SETUP_UTIL_PUB.copy_subscr_inst'
24540: ,'After call to OKS_SETUP_UTIL_PUB.copy_subscr_inst: x_return_status:'||l_return_status
24533: ,p_intent => 'COPY'
24534: ,x_return_status => l_return_status);
24535:
24536: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24537: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24538: FND_LOG.string(FND_LOG.level_statement
24539: ,l_module_name||'.OKS_SETUP_UTIL_PUB.copy_subscr_inst'
24540: ,'After call to OKS_SETUP_UTIL_PUB.copy_subscr_inst: x_return_status:'||l_return_status
24541: ||':'||to_char(sysdate,'DD/MM/YY HH:MI:SS')
24534: ,x_return_status => l_return_status);
24535:
24536: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24537: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24538: FND_LOG.string(FND_LOG.level_statement
24539: ,l_module_name||'.OKS_SETUP_UTIL_PUB.copy_subscr_inst'
24540: ,'After call to OKS_SETUP_UTIL_PUB.copy_subscr_inst: x_return_status:'||l_return_status
24541: ||':'||to_char(sysdate,'DD/MM/YY HH:MI:SS')
24542: ||' '||SQLERRM
24790: ,P_Partial_Copy_YN => 'Y'
24791: ,P_Target_Contract_New_YN => P_Target_Contract_New_YN
24792: ,x_return_status => l_return_Status);
24793:
24794: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24795: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24796: FND_LOG.string(FND_LOG.level_statement
24797: ,l_module_name||'.GenerateNewLineNumber'
24798: ,'After call to GenerateNewLineNumber for line: x_return_status :'||l_return_status
24791: ,P_Target_Contract_New_YN => P_Target_Contract_New_YN
24792: ,x_return_status => l_return_Status);
24793:
24794: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24795: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24796: FND_LOG.string(FND_LOG.level_statement
24797: ,l_module_name||'.GenerateNewLineNumber'
24798: ,'After call to GenerateNewLineNumber for line: x_return_status :'||l_return_status
24799: );
24792: ,x_return_status => l_return_Status);
24793:
24794: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24795: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24796: FND_LOG.string(FND_LOG.level_statement
24797: ,l_module_name||'.GenerateNewLineNumber'
24798: ,'After call to GenerateNewLineNumber for line: x_return_status :'||l_return_status
24799: );
24800: END IF;
24809:
24810: ------------Copy of OKC_K_LINES_TL--------------------------------------------------
24811: IF (P_Lines_Tbl.COUNT > 0) then
24812: Begin
24813: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24814: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24815: FND_LOG.string(FND_LOG.level_statement
24816: ,l_module_name||'.copy_okc_k_lines_tl'
24817: ,'Before call to copy_okc_k_lines_tl'
24810: ------------Copy of OKC_K_LINES_TL--------------------------------------------------
24811: IF (P_Lines_Tbl.COUNT > 0) then
24812: Begin
24813: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24814: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24815: FND_LOG.string(FND_LOG.level_statement
24816: ,l_module_name||'.copy_okc_k_lines_tl'
24817: ,'Before call to copy_okc_k_lines_tl'
24818: );
24811: IF (P_Lines_Tbl.COUNT > 0) then
24812: Begin
24813: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24814: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24815: FND_LOG.string(FND_LOG.level_statement
24816: ,l_module_name||'.copy_okc_k_lines_tl'
24817: ,'Before call to copy_okc_k_lines_tl'
24818: );
24819: END IF;
24823: ,P_Partial_Copy_YN => 'Y'
24824: ,P_Lines_Count => P_Lines_Tbl.COUNT
24825: ,x_return_status => l_return_status);
24826:
24827: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24828: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24829: FND_LOG.string(FND_LOG.level_statement
24830: ,l_module_name||'.copy_okc_k_lines_tl'
24831: ,'After call to copy_okc_k_lines_tl: x_return_status:'||l_return_status
24824: ,P_Lines_Count => P_Lines_Tbl.COUNT
24825: ,x_return_status => l_return_status);
24826:
24827: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24828: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24829: FND_LOG.string(FND_LOG.level_statement
24830: ,l_module_name||'.copy_okc_k_lines_tl'
24831: ,'After call to copy_okc_k_lines_tl: x_return_status:'||l_return_status
24832: ||' '||SQLERRM
24825: ,x_return_status => l_return_status);
24826:
24827: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24828: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24829: FND_LOG.string(FND_LOG.level_statement
24830: ,l_module_name||'.copy_okc_k_lines_tl'
24831: ,'After call to copy_okc_k_lines_tl: x_return_status:'||l_return_status
24832: ||' '||SQLERRM
24833: );
24843: --------------------------------------------------------------------------------------
24844: -----------Copy of OKC_PARTY_ROLES_B------------------------------------------------
24845: IF (P_Lines_Tbl.COUNT > 0) then
24846: Begin
24847: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24848: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24849: FND_LOG.string(FND_LOG.level_statement
24850: ,l_module_name||'.copy_okc_k_party_roles_b'
24851: ,'Before call to copy_okc_k_party_roles_b'
24844: -----------Copy of OKC_PARTY_ROLES_B------------------------------------------------
24845: IF (P_Lines_Tbl.COUNT > 0) then
24846: Begin
24847: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24848: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24849: FND_LOG.string(FND_LOG.level_statement
24850: ,l_module_name||'.copy_okc_k_party_roles_b'
24851: ,'Before call to copy_okc_k_party_roles_b'
24852: );
24845: IF (P_Lines_Tbl.COUNT > 0) then
24846: Begin
24847: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24848: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24849: FND_LOG.string(FND_LOG.level_statement
24850: ,l_module_name||'.copy_okc_k_party_roles_b'
24851: ,'Before call to copy_okc_k_party_roles_b'
24852: );
24853: END IF;
24858: ,P_Partial_Copy_YN => 'Y'
24859: ,P_Lines_Count => P_Lines_Tbl.COUNT
24860: ,x_return_status => l_return_status);
24861:
24862: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24863: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24864: FND_LOG.string(FND_LOG.level_statement
24865: ,l_module_name||'.copy_okc_k_party_roles_b'
24866: ,'After call to copy_okc_k_party_roles_b: x_return_status:'||l_return_status
24859: ,P_Lines_Count => P_Lines_Tbl.COUNT
24860: ,x_return_status => l_return_status);
24861:
24862: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24863: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24864: FND_LOG.string(FND_LOG.level_statement
24865: ,l_module_name||'.copy_okc_k_party_roles_b'
24866: ,'After call to copy_okc_k_party_roles_b: x_return_status:'||l_return_status
24867: ||' '||SQLERRM
24860: ,x_return_status => l_return_status);
24861:
24862: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24863: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24864: FND_LOG.string(FND_LOG.level_statement
24865: ,l_module_name||'.copy_okc_k_party_roles_b'
24866: ,'After call to copy_okc_k_party_roles_b: x_return_status:'||l_return_status
24867: ||' '||SQLERRM
24868: );
24877: -------------------------------------------------------------------------------------
24878: ------------Copy of OKC_PARTY_ROLES_TL------------------------------
24879: IF (P_Lines_Tbl.COUNT > 0) then
24880: Begin
24881: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24882: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24883: FND_LOG.string(FND_LOG.level_statement
24884: ,l_module_name||'.copy_okc_k_party_roles_tl'
24885: ,'Before call to copy_okc_k_party_roles_tl'
24878: ------------Copy of OKC_PARTY_ROLES_TL------------------------------
24879: IF (P_Lines_Tbl.COUNT > 0) then
24880: Begin
24881: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24882: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24883: FND_LOG.string(FND_LOG.level_statement
24884: ,l_module_name||'.copy_okc_k_party_roles_tl'
24885: ,'Before call to copy_okc_k_party_roles_tl'
24886: );
24879: IF (P_Lines_Tbl.COUNT > 0) then
24880: Begin
24881: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24882: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24883: FND_LOG.string(FND_LOG.level_statement
24884: ,l_module_name||'.copy_okc_k_party_roles_tl'
24885: ,'Before call to copy_okc_k_party_roles_tl'
24886: );
24887: END IF;
24891: ,P_Partial_Copy_YN => 'Y'
24892: ,P_Lines_Count => P_Lines_Tbl.COUNT
24893: ,x_return_status => l_return_status);
24894:
24895: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24896: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24897: FND_LOG.string(FND_LOG.level_statement
24898: ,l_module_name||'.copy_okc_k_party_roles_tl'
24899: ,'After call to copy_okc_k_party_roles_tl: x_return_status:'||l_return_status
24892: ,P_Lines_Count => P_Lines_Tbl.COUNT
24893: ,x_return_status => l_return_status);
24894:
24895: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24896: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24897: FND_LOG.string(FND_LOG.level_statement
24898: ,l_module_name||'.copy_okc_k_party_roles_tl'
24899: ,'After call to copy_okc_k_party_roles_tl: x_return_status:'||l_return_status
24900: ||' '||SQLERRM
24893: ,x_return_status => l_return_status);
24894:
24895: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24896: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24897: FND_LOG.string(FND_LOG.level_statement
24898: ,l_module_name||'.copy_okc_k_party_roles_tl'
24899: ,'After call to copy_okc_k_party_roles_tl: x_return_status:'||l_return_status
24900: ||' '||SQLERRM
24901: );
24910: ----------------------------------------------------------------------
24911: ------------Copy of OKC_CONTACTS--------------------------------------
24912: IF (P_Lines_Tbl.COUNT > 0) then
24913: Begin
24914: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24915: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24916: FND_LOG.string(FND_LOG.level_statement
24917: ,l_module_name||'.copy_okc_contacts'
24918: ,'Before call to copy_okc_contacts'
24911: ------------Copy of OKC_CONTACTS--------------------------------------
24912: IF (P_Lines_Tbl.COUNT > 0) then
24913: Begin
24914: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24915: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24916: FND_LOG.string(FND_LOG.level_statement
24917: ,l_module_name||'.copy_okc_contacts'
24918: ,'Before call to copy_okc_contacts'
24919: );
24912: IF (P_Lines_Tbl.COUNT > 0) then
24913: Begin
24914: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24915: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24916: FND_LOG.string(FND_LOG.level_statement
24917: ,l_module_name||'.copy_okc_contacts'
24918: ,'Before call to copy_okc_contacts'
24919: );
24920: END IF;
24924: ,P_Partial_Copy_YN => 'Y'
24925: ,P_Lines_Count => P_Lines_Tbl.COUNT
24926: ,x_return_status => l_return_status);
24927:
24928: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24929: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24930: FND_LOG.string(FND_LOG.level_statement
24931: ,l_module_name||'.copy_okc_contacts'
24932: ,'After call to copy_okc_contacts: x_return_status:'||l_return_status
24925: ,P_Lines_Count => P_Lines_Tbl.COUNT
24926: ,x_return_status => l_return_status);
24927:
24928: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24929: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24930: FND_LOG.string(FND_LOG.level_statement
24931: ,l_module_name||'.copy_okc_contacts'
24932: ,'After call to copy_okc_contacts: x_return_status:'||l_return_status
24933: ||' '||SQLERRM
24926: ,x_return_status => l_return_status);
24927:
24928: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24929: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24930: FND_LOG.string(FND_LOG.level_statement
24931: ,l_module_name||'.copy_okc_contacts'
24932: ,'After call to copy_okc_contacts: x_return_status:'||l_return_status
24933: ||' '||SQLERRM
24934: );
24941: END IF;
24942: -------------------------------------------------------------------------
24943: ------------Copy of OKC_PRICE_ATT_VALUES-----------------------------
24944: Begin
24945: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24946: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24947: FND_LOG.string(FND_LOG.level_statement
24948: ,l_module_name||'.copy_okc_price_att_values'
24949: ,'Before call to copy_okc_price_att_values'
24942: -------------------------------------------------------------------------
24943: ------------Copy of OKC_PRICE_ATT_VALUES-----------------------------
24944: Begin
24945: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24946: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24947: FND_LOG.string(FND_LOG.level_statement
24948: ,l_module_name||'.copy_okc_price_att_values'
24949: ,'Before call to copy_okc_price_att_values'
24950: );
24943: ------------Copy of OKC_PRICE_ATT_VALUES-----------------------------
24944: Begin
24945: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24946: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24947: FND_LOG.string(FND_LOG.level_statement
24948: ,l_module_name||'.copy_okc_price_att_values'
24949: ,'Before call to copy_okc_price_att_values'
24950: );
24951: END IF;
24956: ,P_Target_Contract_New_YN => P_Target_Contract_New_YN
24957: ,P_Lines_Count => P_Lines_Tbl.COUNT
24958: ,x_return_status => l_return_status) ;
24959:
24960: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24961: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24962: FND_LOG.string(FND_LOG.level_statement
24963: ,l_module_name||'.copy_okc_price_att_values'
24964: ,'After call to copy_okc_price_att_values: x_return_status:'||l_return_status
24957: ,P_Lines_Count => P_Lines_Tbl.COUNT
24958: ,x_return_status => l_return_status) ;
24959:
24960: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24961: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24962: FND_LOG.string(FND_LOG.level_statement
24963: ,l_module_name||'.copy_okc_price_att_values'
24964: ,'After call to copy_okc_price_att_values: x_return_status:'||l_return_status
24965: ||' '||SQLERRM
24958: ,x_return_status => l_return_status) ;
24959:
24960: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24961: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24962: FND_LOG.string(FND_LOG.level_statement
24963: ,l_module_name||'.copy_okc_price_att_values'
24964: ,'After call to copy_okc_price_att_values: x_return_status:'||l_return_status
24965: ||' '||SQLERRM
24966: );
24973: End;
24974: ---------------------------------------------------------------------
24975: -----------Copy of OKC_PRICE_ADJUSTMENTS---------------------------
24976: Begin
24977: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24978: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24979: FND_LOG.string(FND_LOG.level_statement
24980: ,l_module_name||'.copy_okc_price_adjustments'
24981: ,'Before call to copy_okc_price_adjustments'
24974: ---------------------------------------------------------------------
24975: -----------Copy of OKC_PRICE_ADJUSTMENTS---------------------------
24976: Begin
24977: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24978: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24979: FND_LOG.string(FND_LOG.level_statement
24980: ,l_module_name||'.copy_okc_price_adjustments'
24981: ,'Before call to copy_okc_price_adjustments'
24982: );
24975: -----------Copy of OKC_PRICE_ADJUSTMENTS---------------------------
24976: Begin
24977: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24978: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24979: FND_LOG.string(FND_LOG.level_statement
24980: ,l_module_name||'.copy_okc_price_adjustments'
24981: ,'Before call to copy_okc_price_adjustments'
24982: );
24983: END IF;
24989: ,P_Target_Contract_New_YN => P_Target_Contract_New_YN
24990: ,P_Lines_Count => P_Lines_Tbl.COUNT
24991: ,x_return_status => l_return_status);
24992:
24993: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24994: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24995: FND_LOG.string(FND_LOG.level_statement
24996: ,l_module_name||'.copy_okc_price_adjustments'
24997: ,'After call to copy_okc_price_adjustments: x_return_status:'||l_return_status
24990: ,P_Lines_Count => P_Lines_Tbl.COUNT
24991: ,x_return_status => l_return_status);
24992:
24993: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24994: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24995: FND_LOG.string(FND_LOG.level_statement
24996: ,l_module_name||'.copy_okc_price_adjustments'
24997: ,'After call to copy_okc_price_adjustments: x_return_status:'||l_return_status
24998: ||' '||SQLERRM
24991: ,x_return_status => l_return_status);
24992:
24993: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24994: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24995: FND_LOG.string(FND_LOG.level_statement
24996: ,l_module_name||'.copy_okc_price_adjustments'
24997: ,'After call to copy_okc_price_adjustments: x_return_status:'||l_return_status
24998: ||' '||SQLERRM
24999: );
25007: --------------------------------------------------------------------
25008: ------------Copy of OKS_K_LINES_TL---------------------------------
25009: IF (P_Lines_Tbl.COUNT > 0) then
25010: Begin
25011: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25012: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25013: FND_LOG.string(FND_LOG.level_statement
25014: ,l_module_name||'.copy_oks_k_lines_tl'
25015: ,'Before call to copy_oks_k_lines_tl'
25008: ------------Copy of OKS_K_LINES_TL---------------------------------
25009: IF (P_Lines_Tbl.COUNT > 0) then
25010: Begin
25011: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25012: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25013: FND_LOG.string(FND_LOG.level_statement
25014: ,l_module_name||'.copy_oks_k_lines_tl'
25015: ,'Before call to copy_oks_k_lines_tl'
25016: );
25009: IF (P_Lines_Tbl.COUNT > 0) then
25010: Begin
25011: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25012: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25013: FND_LOG.string(FND_LOG.level_statement
25014: ,l_module_name||'.copy_oks_k_lines_tl'
25015: ,'Before call to copy_oks_k_lines_tl'
25016: );
25017: END IF;
25021: ,P_Partial_Copy_YN => 'Y'
25022: ,P_Lines_Count => P_Lines_Tbl.COUNT
25023: ,x_return_status => l_return_status);
25024:
25025: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25026: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25027: FND_LOG.string(FND_LOG.level_statement
25028: ,l_module_name||'.copy_oks_k_lines_tl'
25029: ,'After call to copy_oks_k_lines_tl: x_return_status:'||l_return_status
25022: ,P_Lines_Count => P_Lines_Tbl.COUNT
25023: ,x_return_status => l_return_status);
25024:
25025: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25026: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25027: FND_LOG.string(FND_LOG.level_statement
25028: ,l_module_name||'.copy_oks_k_lines_tl'
25029: ,'After call to copy_oks_k_lines_tl: x_return_status:'||l_return_status
25030: ||' '||SQLERRM
25023: ,x_return_status => l_return_status);
25024:
25025: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25026: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25027: FND_LOG.string(FND_LOG.level_statement
25028: ,l_module_name||'.copy_oks_k_lines_tl'
25029: ,'After call to copy_oks_k_lines_tl: x_return_status:'||l_return_status
25030: ||' '||SQLERRM
25031: );
25040: ---------------------------------------------------------------------
25041: ------------Copy of OKS_REV_DISTRIBUTIONS--------------------------
25042: IF (P_Lines_Tbl.COUNT > 0) then
25043: Begin
25044: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25045: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25046: FND_LOG.string(FND_LOG.level_statement
25047: ,l_module_name||'.copy_oks_rev_distributions'
25048: ,'Before call to copy_oks_rev_distributions'
25041: ------------Copy of OKS_REV_DISTRIBUTIONS--------------------------
25042: IF (P_Lines_Tbl.COUNT > 0) then
25043: Begin
25044: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25045: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25046: FND_LOG.string(FND_LOG.level_statement
25047: ,l_module_name||'.copy_oks_rev_distributions'
25048: ,'Before call to copy_oks_rev_distributions'
25049: );
25042: IF (P_Lines_Tbl.COUNT > 0) then
25043: Begin
25044: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25045: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25046: FND_LOG.string(FND_LOG.level_statement
25047: ,l_module_name||'.copy_oks_rev_distributions'
25048: ,'Before call to copy_oks_rev_distributions'
25049: );
25050: END IF;
25055: ,P_Partial_Copy_YN => 'Y'
25056: ,P_Lines_Count => P_Lines_Tbl.COUNT
25057: ,x_return_status => l_return_status);
25058:
25059: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25060: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25061: FND_LOG.string(FND_LOG.level_statement
25062: ,l_module_name||'.copy_oks_rev_distributions'
25063: ,'After call to copy_oks_rev_distributions: x_return_status:'||l_return_status
25056: ,P_Lines_Count => P_Lines_Tbl.COUNT
25057: ,x_return_status => l_return_status);
25058:
25059: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25060: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25061: FND_LOG.string(FND_LOG.level_statement
25062: ,l_module_name||'.copy_oks_rev_distributions'
25063: ,'After call to copy_oks_rev_distributions: x_return_status:'||l_return_status
25064: ||' '||SQLERRM
25057: ,x_return_status => l_return_status);
25058:
25059: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25060: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25061: FND_LOG.string(FND_LOG.level_statement
25062: ,l_module_name||'.copy_oks_rev_distributions'
25063: ,'After call to copy_oks_rev_distributions: x_return_status:'||l_return_status
25064: ||' '||SQLERRM
25065: );
25074: ---------------------------------------------------------------------
25075: -------------Copy of OKS_QUALIFIERS----------------------------------
25076: IF (P_Lines_Tbl.COUNT > 0) then
25077: Begin
25078: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25079: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25080: FND_LOG.string(FND_LOG.level_statement
25081: ,l_module_name||'.copy_oks_qualifiers'
25082: ,'Before call to copy_oks_qualifiers'
25075: -------------Copy of OKS_QUALIFIERS----------------------------------
25076: IF (P_Lines_Tbl.COUNT > 0) then
25077: Begin
25078: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25079: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25080: FND_LOG.string(FND_LOG.level_statement
25081: ,l_module_name||'.copy_oks_qualifiers'
25082: ,'Before call to copy_oks_qualifiers'
25083: );
25076: IF (P_Lines_Tbl.COUNT > 0) then
25077: Begin
25078: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25079: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25080: FND_LOG.string(FND_LOG.level_statement
25081: ,l_module_name||'.copy_oks_qualifiers'
25082: ,'Before call to copy_oks_qualifiers'
25083: );
25084: END IF;
25089: ,P_Partial_Copy_YN => 'Y'
25090: ,P_Lines_Count => P_Lines_Tbl.COUNT
25091: ,x_return_status => l_return_status);
25092:
25093: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25094: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25095: FND_LOG.string(FND_LOG.level_statement
25096: ,l_module_name||'.copy_oks_qualifiers'
25097: ,'After call to copy_oks_qualifiers: x_return_status:'||l_return_status
25090: ,P_Lines_Count => P_Lines_Tbl.COUNT
25091: ,x_return_status => l_return_status);
25092:
25093: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25094: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25095: FND_LOG.string(FND_LOG.level_statement
25096: ,l_module_name||'.copy_oks_qualifiers'
25097: ,'After call to copy_oks_qualifiers: x_return_status:'||l_return_status
25098: ||' '||SQLERRM
25091: ,x_return_status => l_return_status);
25092:
25093: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25094: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25095: FND_LOG.string(FND_LOG.level_statement
25096: ,l_module_name||'.copy_oks_qualifiers'
25097: ,'After call to copy_oks_qualifiers: x_return_status:'||l_return_status
25098: ||' '||SQLERRM
25099: );
25125: -- Bulk Copy of Billing Schedule can be done from Source
25126: --errorout_hk('Copy Line Components, Copy of bill sch');
25127: -------------Copy of OKS_STREAM_LEVELS_B---------------------------
25128: Begin
25129: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25130: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25131: FND_LOG.string(FND_LOG.level_statement
25132: ,l_module_name||'.copy_oks_stream_levels_b'
25133: ,'Before call to copy_oks_stream_levels_b'
25126: --errorout_hk('Copy Line Components, Copy of bill sch');
25127: -------------Copy of OKS_STREAM_LEVELS_B---------------------------
25128: Begin
25129: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25130: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25131: FND_LOG.string(FND_LOG.level_statement
25132: ,l_module_name||'.copy_oks_stream_levels_b'
25133: ,'Before call to copy_oks_stream_levels_b'
25134: );
25127: -------------Copy of OKS_STREAM_LEVELS_B---------------------------
25128: Begin
25129: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25130: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25131: FND_LOG.string(FND_LOG.level_statement
25132: ,l_module_name||'.copy_oks_stream_levels_b'
25133: ,'Before call to copy_oks_stream_levels_b'
25134: );
25135: END IF;
25141: ,P_Target_Contract_New_YN => P_Target_Contract_New_YN
25142: ,P_Lines_Count => P_Lines_Tbl.COUNT
25143: ,x_return_status => l_return_status);
25144:
25145: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25146: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25147: FND_LOG.string(FND_LOG.level_statement
25148: ,l_module_name||'.copy_oks_stream_levels_b'
25149: ,'After call to copy_oks_stream_levels_b: x_return_status:'||l_return_status
25142: ,P_Lines_Count => P_Lines_Tbl.COUNT
25143: ,x_return_status => l_return_status);
25144:
25145: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25146: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25147: FND_LOG.string(FND_LOG.level_statement
25148: ,l_module_name||'.copy_oks_stream_levels_b'
25149: ,'After call to copy_oks_stream_levels_b: x_return_status:'||l_return_status
25150: ||' '||SQLERRM
25143: ,x_return_status => l_return_status);
25144:
25145: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25146: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25147: FND_LOG.string(FND_LOG.level_statement
25148: ,l_module_name||'.copy_oks_stream_levels_b'
25149: ,'After call to copy_oks_stream_levels_b: x_return_status:'||l_return_status
25150: ||' '||SQLERRM
25151: );
25159: -------------------------------------------------------------------
25160:
25161: -------------Copy of OKS_LEVEL_ELEMENTS---------------------------
25162: Begin
25163: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25164: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25165: FND_LOG.string(FND_LOG.level_statement
25166: ,l_module_name||'.copy_oks_level_elements'
25167: ,'Before call to copy_oks_level_elements'
25160:
25161: -------------Copy of OKS_LEVEL_ELEMENTS---------------------------
25162: Begin
25163: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25164: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25165: FND_LOG.string(FND_LOG.level_statement
25166: ,l_module_name||'.copy_oks_level_elements'
25167: ,'Before call to copy_oks_level_elements'
25168: );
25161: -------------Copy of OKS_LEVEL_ELEMENTS---------------------------
25162: Begin
25163: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25164: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25165: FND_LOG.string(FND_LOG.level_statement
25166: ,l_module_name||'.copy_oks_level_elements'
25167: ,'Before call to copy_oks_level_elements'
25168: );
25169: END IF;
25175: ,P_Target_Contract_New_YN => P_Target_Contract_New_YN
25176: ,P_Lines_Count => P_Lines_Tbl.COUNT
25177: ,x_return_status => l_return_status);
25178:
25179: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25180: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25181: FND_LOG.string(FND_LOG.level_statement
25182: ,l_module_name||'.copy_oks_level_elements'
25183: ,'After call to copy_oks_level_elements: x_return_status:'||l_return_status
25176: ,P_Lines_Count => P_Lines_Tbl.COUNT
25177: ,x_return_status => l_return_status);
25178:
25179: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25180: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25181: FND_LOG.string(FND_LOG.level_statement
25182: ,l_module_name||'.copy_oks_level_elements'
25183: ,'After call to copy_oks_level_elements: x_return_status:'||l_return_status
25184: ||' '||SQLERRM
25177: ,x_return_status => l_return_status);
25178:
25179: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25180: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25181: FND_LOG.string(FND_LOG.level_statement
25182: ,l_module_name||'.copy_oks_level_elements'
25183: ,'After call to copy_oks_level_elements: x_return_status:'||l_return_status
25184: ||' '||SQLERRM
25185: );
25192: End;
25193: --------------------------------------------------------------------
25194: --------------Copy of Billing schedules for Skipped Lines-----------
25195: Begin
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_bsch_for_SkippedLines'
25200: ,'Before call to copy_bsch_for_SkippedLines'
25193: --------------------------------------------------------------------
25194: --------------Copy of Billing schedules for Skipped Lines-----------
25195: Begin
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_bsch_for_SkippedLines'
25200: ,'Before call to copy_bsch_for_SkippedLines'
25201: );
25194: --------------Copy of Billing schedules for Skipped Lines-----------
25195: Begin
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_bsch_for_SkippedLines'
25200: ,'Before call to copy_bsch_for_SkippedLines'
25201: );
25202: END IF;
25208: ,p_init_msg_list => p_init_msg_list
25209: ,x_return_status => l_return_status
25210: ,x_msg_count => x_msg_count
25211: ,x_msg_data => x_msg_data);
25212: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25213: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25214: FND_LOG.string(FND_LOG.level_statement
25215: ,l_module_name||'.copy_bsch_for_SkippedLines'
25216: ,'After call to copy_bsch_for_SkippedLines: x_return_status:'||l_return_status
25209: ,x_return_status => l_return_status
25210: ,x_msg_count => x_msg_count
25211: ,x_msg_data => x_msg_data);
25212: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25213: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25214: FND_LOG.string(FND_LOG.level_statement
25215: ,l_module_name||'.copy_bsch_for_SkippedLines'
25216: ,'After call to copy_bsch_for_SkippedLines: x_return_status:'||l_return_status
25217: ||' '||SQLERRM
25210: ,x_msg_count => x_msg_count
25211: ,x_msg_data => x_msg_data);
25212: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25213: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25214: FND_LOG.string(FND_LOG.level_statement
25215: ,l_module_name||'.copy_bsch_for_SkippedLines'
25216: ,'After call to copy_bsch_for_SkippedLines: x_return_status:'||l_return_status
25217: ||' '||SQLERRM
25218: );
25270:
25271: IF (P_Lines_Tbl.COUNT > 0) then
25272: -------------Copy of OKS_COVERAGE_TIMEZONES------------------------
25273: Begin
25274: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25275: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25276: FND_LOG.string(FND_LOG.level_statement
25277: ,l_module_name||'.copy_oks_coverage_timezones'
25278: ,'Before call to copy_oks_coverage_timezones'
25271: IF (P_Lines_Tbl.COUNT > 0) then
25272: -------------Copy of OKS_COVERAGE_TIMEZONES------------------------
25273: Begin
25274: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25275: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25276: FND_LOG.string(FND_LOG.level_statement
25277: ,l_module_name||'.copy_oks_coverage_timezones'
25278: ,'Before call to copy_oks_coverage_timezones'
25279: );
25272: -------------Copy of OKS_COVERAGE_TIMEZONES------------------------
25273: Begin
25274: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25275: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25276: FND_LOG.string(FND_LOG.level_statement
25277: ,l_module_name||'.copy_oks_coverage_timezones'
25278: ,'Before call to copy_oks_coverage_timezones'
25279: );
25280: END IF;
25285: ,P_Partial_Copy_YN => 'Y'
25286: ,P_Lines_Count => P_Lines_Tbl.COUNT
25287: ,x_return_status => l_return_status);
25288:
25289: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25290: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25291: FND_LOG.string(FND_LOG.level_statement
25292: ,l_module_name||'.copy_oks_coverage_timezones'
25293: ,'After call to copy_oks_coverage_timezones: x_return_status:'||l_return_status
25286: ,P_Lines_Count => P_Lines_Tbl.COUNT
25287: ,x_return_status => l_return_status);
25288:
25289: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25290: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25291: FND_LOG.string(FND_LOG.level_statement
25292: ,l_module_name||'.copy_oks_coverage_timezones'
25293: ,'After call to copy_oks_coverage_timezones: x_return_status:'||l_return_status
25294: ||' '||SQLERRM
25287: ,x_return_status => l_return_status);
25288:
25289: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25290: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25291: FND_LOG.string(FND_LOG.level_statement
25292: ,l_module_name||'.copy_oks_coverage_timezones'
25293: ,'After call to copy_oks_coverage_timezones: x_return_status:'||l_return_status
25294: ||' '||SQLERRM
25295: );
25302: End;
25303: ---------------------------------------------------------------------
25304: -------------Copy of OKS_COVERAGE_TIMES-----------------------------
25305: Begin
25306: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25307: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25308: FND_LOG.string(FND_LOG.level_statement
25309: ,l_module_name||'.copy_oks_coverage_times'
25310: ,'Before call to copy_oks_coverage_times'
25303: ---------------------------------------------------------------------
25304: -------------Copy of OKS_COVERAGE_TIMES-----------------------------
25305: Begin
25306: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25307: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25308: FND_LOG.string(FND_LOG.level_statement
25309: ,l_module_name||'.copy_oks_coverage_times'
25310: ,'Before call to copy_oks_coverage_times'
25311: );
25304: -------------Copy of OKS_COVERAGE_TIMES-----------------------------
25305: Begin
25306: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25307: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25308: FND_LOG.string(FND_LOG.level_statement
25309: ,l_module_name||'.copy_oks_coverage_times'
25310: ,'Before call to copy_oks_coverage_times'
25311: );
25312: END IF;
25317: ,P_Partial_Copy_YN => 'Y'
25318: ,P_Lines_Count => P_Lines_Tbl.COUNT
25319: ,x_return_status => l_return_status);
25320:
25321: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25322: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25323: FND_LOG.string(FND_LOG.level_statement
25324: ,l_module_name||'.copy_oks_coverage_times'
25325: ,'After call to copy_oks_coverage_times: x_return_status:'||l_return_status
25318: ,P_Lines_Count => P_Lines_Tbl.COUNT
25319: ,x_return_status => l_return_status);
25320:
25321: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25322: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25323: FND_LOG.string(FND_LOG.level_statement
25324: ,l_module_name||'.copy_oks_coverage_times'
25325: ,'After call to copy_oks_coverage_times: x_return_status:'||l_return_status
25326: ||' '||SQLERRM
25319: ,x_return_status => l_return_status);
25320:
25321: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25322: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25323: FND_LOG.string(FND_LOG.level_statement
25324: ,l_module_name||'.copy_oks_coverage_times'
25325: ,'After call to copy_oks_coverage_times: x_return_status:'||l_return_status
25326: ||' '||SQLERRM
25327: );
25340:
25341: IF (P_Lines_Tbl.COUNT > 0) then
25342: -------------Copy of OKS_PM_ACTIVITIES-------------------------------
25343: Begin
25344: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25345: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25346: FND_LOG.string(FND_LOG.level_statement
25347: ,l_module_name||'.copy_oks_pm_activities'
25348: ,'Before call to copy_oks_pm_activities'
25341: IF (P_Lines_Tbl.COUNT > 0) then
25342: -------------Copy of OKS_PM_ACTIVITIES-------------------------------
25343: Begin
25344: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25345: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25346: FND_LOG.string(FND_LOG.level_statement
25347: ,l_module_name||'.copy_oks_pm_activities'
25348: ,'Before call to copy_oks_pm_activities'
25349: );
25342: -------------Copy of OKS_PM_ACTIVITIES-------------------------------
25343: Begin
25344: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25345: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25346: FND_LOG.string(FND_LOG.level_statement
25347: ,l_module_name||'.copy_oks_pm_activities'
25348: ,'Before call to copy_oks_pm_activities'
25349: );
25350: END IF;
25355: ,P_Partial_Copy_YN => 'Y'
25356: ,P_Lines_Count => P_Lines_Tbl.COUNT
25357: ,x_return_status => l_return_status);
25358:
25359: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25360: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25361: FND_LOG.string(FND_LOG.level_statement
25362: ,l_module_name||'.copy_oks_pm_activities'
25363: ,'After call to copy_oks_pm_activities: x_return_status:'||l_return_status
25356: ,P_Lines_Count => P_Lines_Tbl.COUNT
25357: ,x_return_status => l_return_status);
25358:
25359: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25360: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25361: FND_LOG.string(FND_LOG.level_statement
25362: ,l_module_name||'.copy_oks_pm_activities'
25363: ,'After call to copy_oks_pm_activities: x_return_status:'||l_return_status
25364: ||' '||SQLERRM
25357: ,x_return_status => l_return_status);
25358:
25359: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25360: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25361: FND_LOG.string(FND_LOG.level_statement
25362: ,l_module_name||'.copy_oks_pm_activities'
25363: ,'After call to copy_oks_pm_activities: x_return_status:'||l_return_status
25364: ||' '||SQLERRM
25365: );
25372: End;
25373: ---------------------------------------------------------------------
25374: --------------Copy of OKS_PM_STREAM_LEVELS---------------------------
25375: Begin
25376: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25377: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25378: FND_LOG.string(FND_LOG.level_statement
25379: ,l_module_name||'.copy_oks_pm_stream_levels'
25380: ,'Before call to copy_oks_pm_stream_levels'
25373: ---------------------------------------------------------------------
25374: --------------Copy of OKS_PM_STREAM_LEVELS---------------------------
25375: Begin
25376: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25377: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25378: FND_LOG.string(FND_LOG.level_statement
25379: ,l_module_name||'.copy_oks_pm_stream_levels'
25380: ,'Before call to copy_oks_pm_stream_levels'
25381: );
25374: --------------Copy of OKS_PM_STREAM_LEVELS---------------------------
25375: Begin
25376: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25377: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25378: FND_LOG.string(FND_LOG.level_statement
25379: ,l_module_name||'.copy_oks_pm_stream_levels'
25380: ,'Before call to copy_oks_pm_stream_levels'
25381: );
25382: END IF;
25387: ,P_Partial_Copy_YN => 'Y'
25388: ,P_Lines_Count => P_Lines_Tbl.COUNT
25389: ,x_return_status => l_return_status);
25390:
25391: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25392: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25393: FND_LOG.string(FND_LOG.level_statement
25394: ,l_module_name||'.copy_oks_pm_stream_levels'
25395: ,'After call to copy_oks_pm_stream_levels: x_return_status:'||l_return_status
25388: ,P_Lines_Count => P_Lines_Tbl.COUNT
25389: ,x_return_status => l_return_status);
25390:
25391: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25392: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25393: FND_LOG.string(FND_LOG.level_statement
25394: ,l_module_name||'.copy_oks_pm_stream_levels'
25395: ,'After call to copy_oks_pm_stream_levels: x_return_status:'||l_return_status
25396: ||' '||SQLERRM
25389: ,x_return_status => l_return_status);
25390:
25391: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25392: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25393: FND_LOG.string(FND_LOG.level_statement
25394: ,l_module_name||'.copy_oks_pm_stream_levels'
25395: ,'After call to copy_oks_pm_stream_levels: x_return_status:'||l_return_status
25396: ||' '||SQLERRM
25397: );
25405:
25406: ---------------------------------------------------------------------
25407: -------------Copy of OKS_PM_SCHEDULES--------------------------------
25408: Begin
25409: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25410: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25411: FND_LOG.string(FND_LOG.level_statement
25412: ,l_module_name||'.copy_oks_pm_schedules'
25413: ,'Before call to copy_oks_pm_schedules'
25406: ---------------------------------------------------------------------
25407: -------------Copy of OKS_PM_SCHEDULES--------------------------------
25408: Begin
25409: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25410: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25411: FND_LOG.string(FND_LOG.level_statement
25412: ,l_module_name||'.copy_oks_pm_schedules'
25413: ,'Before call to copy_oks_pm_schedules'
25414: );
25407: -------------Copy of OKS_PM_SCHEDULES--------------------------------
25408: Begin
25409: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25410: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25411: FND_LOG.string(FND_LOG.level_statement
25412: ,l_module_name||'.copy_oks_pm_schedules'
25413: ,'Before call to copy_oks_pm_schedules'
25414: );
25415: END IF;
25420: ,P_Partial_Copy_YN => 'Y'
25421: ,P_Lines_Count => P_Lines_Tbl.COUNT
25422: ,x_return_status => l_return_status);
25423:
25424: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25425: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25426: FND_LOG.string(FND_LOG.level_statement
25427: ,l_module_name||'.copy_oks_pm_schedules'
25428: ,'After call to copy_oks_pm_schedules: x_return_status:'||l_return_status
25421: ,P_Lines_Count => P_Lines_Tbl.COUNT
25422: ,x_return_status => l_return_status);
25423:
25424: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25425: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25426: FND_LOG.string(FND_LOG.level_statement
25427: ,l_module_name||'.copy_oks_pm_schedules'
25428: ,'After call to copy_oks_pm_schedules: x_return_status:'||l_return_status
25429: ||' '||SQLERRM
25422: ,x_return_status => l_return_status);
25423:
25424: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25425: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25426: FND_LOG.string(FND_LOG.level_statement
25427: ,l_module_name||'.copy_oks_pm_schedules'
25428: ,'After call to copy_oks_pm_schedules: x_return_status:'||l_return_status
25429: ||' '||SQLERRM
25430: );
25458:
25459: IF (P_Lines_Tbl.COUNT > 0) then
25460: --------------Copy of OKS_ACTION_TIME_TYPES-------------------------
25461: Begin
25462: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25463: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25464: FND_LOG.string(FND_LOG.level_statement
25465: ,l_module_name||'.copy_oks_action_time_types'
25466: ,'Before call to copy_oks_action_time_types'
25459: IF (P_Lines_Tbl.COUNT > 0) then
25460: --------------Copy of OKS_ACTION_TIME_TYPES-------------------------
25461: Begin
25462: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25463: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25464: FND_LOG.string(FND_LOG.level_statement
25465: ,l_module_name||'.copy_oks_action_time_types'
25466: ,'Before call to copy_oks_action_time_types'
25467: );
25460: --------------Copy of OKS_ACTION_TIME_TYPES-------------------------
25461: Begin
25462: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25463: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25464: FND_LOG.string(FND_LOG.level_statement
25465: ,l_module_name||'.copy_oks_action_time_types'
25466: ,'Before call to copy_oks_action_time_types'
25467: );
25468: END IF;
25474: ,P_Partial_Copy_YN => 'Y'
25475: ,P_Lines_Count => P_Lines_Tbl.COUNT
25476: ,x_return_status => l_return_status);
25477:
25478: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25479: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25480: FND_LOG.string(FND_LOG.level_statement
25481: ,l_module_name||'.copy_oks_action_time_types'
25482: ,'After call to copy_oks_action_time_types: x_return_status:'||l_return_status
25475: ,P_Lines_Count => P_Lines_Tbl.COUNT
25476: ,x_return_status => l_return_status);
25477:
25478: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25479: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25480: FND_LOG.string(FND_LOG.level_statement
25481: ,l_module_name||'.copy_oks_action_time_types'
25482: ,'After call to copy_oks_action_time_types: x_return_status:'||l_return_status
25483: ||' '||SQLERRM
25476: ,x_return_status => l_return_status);
25477:
25478: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25479: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25480: FND_LOG.string(FND_LOG.level_statement
25481: ,l_module_name||'.copy_oks_action_time_types'
25482: ,'After call to copy_oks_action_time_types: x_return_status:'||l_return_status
25483: ||' '||SQLERRM
25484: );
25491: End;
25492: ---------------------------------------------------------------------
25493: --------------Copy of OKS_ACTION_TIMES-------------------------------
25494: Begin
25495: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25496: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25497: FND_LOG.string(FND_LOG.level_statement
25498: ,l_module_name||'.copy_oks_action_times'
25499: ,'Before call to copy_oks_action_times'
25492: ---------------------------------------------------------------------
25493: --------------Copy of OKS_ACTION_TIMES-------------------------------
25494: Begin
25495: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25496: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25497: FND_LOG.string(FND_LOG.level_statement
25498: ,l_module_name||'.copy_oks_action_times'
25499: ,'Before call to copy_oks_action_times'
25500: );
25493: --------------Copy of OKS_ACTION_TIMES-------------------------------
25494: Begin
25495: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25496: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25497: FND_LOG.string(FND_LOG.level_statement
25498: ,l_module_name||'.copy_oks_action_times'
25499: ,'Before call to copy_oks_action_times'
25500: );
25501: END IF;
25506: ,P_Partial_Copy_YN => 'Y'
25507: ,P_Lines_Count => P_Lines_Tbl.COUNT
25508: ,x_return_status => l_return_status);
25509:
25510: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25511: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25512: FND_LOG.string(FND_LOG.level_statement
25513: ,l_module_name||'.copy_oks_action_times'
25514: ,'After call to copy_oks_action_times: x_return_status:'||l_return_status
25507: ,P_Lines_Count => P_Lines_Tbl.COUNT
25508: ,x_return_status => l_return_status);
25509:
25510: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25511: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25512: FND_LOG.string(FND_LOG.level_statement
25513: ,l_module_name||'.copy_oks_action_times'
25514: ,'After call to copy_oks_action_times: x_return_status:'||l_return_status
25515: ||' '||SQLERRM
25508: ,x_return_status => l_return_status);
25509:
25510: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25511: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25512: FND_LOG.string(FND_LOG.level_statement
25513: ,l_module_name||'.copy_oks_action_times'
25514: ,'After call to copy_oks_action_times: x_return_status:'||l_return_status
25515: ||' '||SQLERRM
25516: );
25530:
25531: IF (P_Lines_Tbl.COUNT > 0) then
25532: --------------Copy of OKS_BILLRATE_SCHEDULES-------------------------------
25533: Begin
25534: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25535: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25536: FND_LOG.string(FND_LOG.level_statement
25537: ,l_module_name||'.copy_oks_bill_rate_schedules'
25538: ,'Before call to copy_oks_bill_rate_schedules'
25531: IF (P_Lines_Tbl.COUNT > 0) then
25532: --------------Copy of OKS_BILLRATE_SCHEDULES-------------------------------
25533: Begin
25534: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25535: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25536: FND_LOG.string(FND_LOG.level_statement
25537: ,l_module_name||'.copy_oks_bill_rate_schedules'
25538: ,'Before call to copy_oks_bill_rate_schedules'
25539: );
25532: --------------Copy of OKS_BILLRATE_SCHEDULES-------------------------------
25533: Begin
25534: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25535: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25536: FND_LOG.string(FND_LOG.level_statement
25537: ,l_module_name||'.copy_oks_bill_rate_schedules'
25538: ,'Before call to copy_oks_bill_rate_schedules'
25539: );
25540: END IF;
25545: ,P_Partial_Copy_YN => 'Y'
25546: ,P_Lines_Count => P_Lines_Tbl.COUNT
25547: ,x_return_status => l_return_status);
25548:
25549: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25550: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25551: FND_LOG.string(FND_LOG.level_statement
25552: ,l_module_name||'.copy_oks_bill_rate_schedules'
25553: ,'After call to copy_oks_bill_rate_schedules: x_return_status:'||l_return_status
25546: ,P_Lines_Count => P_Lines_Tbl.COUNT
25547: ,x_return_status => l_return_status);
25548:
25549: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25550: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25551: FND_LOG.string(FND_LOG.level_statement
25552: ,l_module_name||'.copy_oks_bill_rate_schedules'
25553: ,'After call to copy_oks_bill_rate_schedules: x_return_status:'||l_return_status
25554: ||' '||SQLERRM
25547: ,x_return_status => l_return_status);
25548:
25549: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25550: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25551: FND_LOG.string(FND_LOG.level_statement
25552: ,l_module_name||'.copy_oks_bill_rate_schedules'
25553: ,'After call to copy_oks_bill_rate_schedules: x_return_status:'||l_return_status
25554: ||' '||SQLERRM
25555: );
25568:
25569:
25570: ---------------Copy of OKS_K_SALES_CREDITS---------------------------
25571: Begin
25572: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25573: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25574: FND_LOG.string(FND_LOG.level_statement
25575: ,l_module_name||'.copy_oks_k_sales_credits'
25576: ,'Before call to copy_oks_k_sales_credits'
25569:
25570: ---------------Copy of OKS_K_SALES_CREDITS---------------------------
25571: Begin
25572: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25573: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25574: FND_LOG.string(FND_LOG.level_statement
25575: ,l_module_name||'.copy_oks_k_sales_credits'
25576: ,'Before call to copy_oks_k_sales_credits'
25577: );
25570: ---------------Copy of OKS_K_SALES_CREDITS---------------------------
25571: Begin
25572: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25573: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25574: FND_LOG.string(FND_LOG.level_statement
25575: ,l_module_name||'.copy_oks_k_sales_credits'
25576: ,'Before call to copy_oks_k_sales_credits'
25577: );
25578: END IF;
25584: ,P_Target_Contract_New_YN => P_Target_Contract_New_YN
25585: ,P_Lines_Count => P_Lines_Tbl.COUNT
25586: ,x_return_status => l_return_status);
25587:
25588: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25589: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25590: FND_LOG.string(FND_LOG.level_statement
25591: ,l_module_name||'.copy_oks_k_sales_credits'
25592: ,'After call to copy_oks_k_sales_credits: x_return_status:'||l_return_status
25585: ,P_Lines_Count => P_Lines_Tbl.COUNT
25586: ,x_return_status => l_return_status);
25587:
25588: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25589: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25590: FND_LOG.string(FND_LOG.level_statement
25591: ,l_module_name||'.copy_oks_k_sales_credits'
25592: ,'After call to copy_oks_k_sales_credits: x_return_status:'||l_return_status
25593: ||' '||SQLERRM
25586: ,x_return_status => l_return_status);
25587:
25588: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25589: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25590: FND_LOG.string(FND_LOG.level_statement
25591: ,l_module_name||'.copy_oks_k_sales_credits'
25592: ,'After call to copy_oks_k_sales_credits: x_return_status:'||l_return_status
25593: ||' '||SQLERRM
25594: );
25601: End;
25602: ---------------------------------------------------------------------
25603:
25604:
25605: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
25606: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
25607: FND_LOG.string(FND_LOG.level_procedure
25608: ,l_module_name||'.End'
25609: ,',x_return_status='||x_return_status
25602: ---------------------------------------------------------------------
25603:
25604:
25605: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
25606: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
25607: FND_LOG.string(FND_LOG.level_procedure
25608: ,l_module_name||'.End'
25609: ,',x_return_status='||x_return_status
25610: ||', P_To_Chr_ID ='||P_To_Chr_ID
25603:
25604:
25605: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
25606: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
25607: FND_LOG.string(FND_LOG.level_procedure
25608: ,l_module_name||'.End'
25609: ,',x_return_status='||x_return_status
25610: ||', P_To_Chr_ID ='||P_To_Chr_ID
25611: );
25704:
25705: BEGIN
25706:
25707:
25708: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
25709: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
25710: FND_LOG.string(FND_LOG.level_procedure
25711: ,l_module_name||'.Begin'
25712: ,'p_chr_id='|| p_chr_id
25705: BEGIN
25706:
25707:
25708: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
25709: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
25710: FND_LOG.string(FND_LOG.level_procedure
25711: ,l_module_name||'.Begin'
25712: ,'p_chr_id='|| p_chr_id
25713: ||',p_contract_number='||p_contract_number
25706:
25707:
25708: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
25709: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
25710: FND_LOG.string(FND_LOG.level_procedure
25711: ,l_module_name||'.Begin'
25712: ,'p_chr_id='|| p_chr_id
25713: ||',p_contract_number='||p_contract_number
25714: ||',p_contract_number_modifier='||p_contract_number_modifier
25721: SAVEPOINT copy_contract;
25722:
25723:
25724: ----------------------------------------------------
25725: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
25726: FND_LOG.string(FND_LOG.level_statement
25727: ,l_module_name
25728: ,'Before Is_Copy_Allowed'
25729: );
25722:
25723:
25724: ----------------------------------------------------
25725: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
25726: FND_LOG.string(FND_LOG.level_statement
25727: ,l_module_name
25728: ,'Before Is_Copy_Allowed'
25729: );
25730: End If;
25730: End If;
25731:
25732: l_result := IS_COPY_ALLOWED(p_chr_id, NULL);
25733:
25734: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
25735: FND_LOG.string(FND_LOG.level_statement
25736: ,l_module_name
25737: ,'After Is_Copy_Allowed'
25738: );
25731:
25732: l_result := IS_COPY_ALLOWED(p_chr_id, NULL);
25733:
25734: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
25735: FND_LOG.string(FND_LOG.level_statement
25736: ,l_module_name
25737: ,'After Is_Copy_Allowed'
25738: );
25739: End If;
25758:
25759:
25760: x_return_status := l_return_status;
25761:
25762: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
25763: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
25764: FND_LOG.string(FND_LOG.level_procedure
25765: ,l_module_name||'.Copy_Contract_Header'
25766: ,'Before call to Copy_Contract_Header'
25759:
25760: x_return_status := l_return_status;
25761:
25762: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
25763: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
25764: FND_LOG.string(FND_LOG.level_procedure
25765: ,l_module_name||'.Copy_Contract_Header'
25766: ,'Before call to Copy_Contract_Header'
25767: );
25760: x_return_status := l_return_status;
25761:
25762: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
25763: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
25764: FND_LOG.string(FND_LOG.level_procedure
25765: ,l_module_name||'.Copy_Contract_Header'
25766: ,'Before call to Copy_Contract_Header'
25767: );
25768: END IF;
25780: p_to_template_yn => p_to_template_yn,
25781: p_renew_ref_yn => p_renew_ref_yn,
25782: x_to_chr_id => l_to_chr_id);
25783:
25784: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
25785: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
25786: FND_LOG.string(FND_LOG.level_procedure
25787: ,l_module_name||'.Copy_Contract_Header'
25788: ,'After call to Copy_Contract_Header x_return_status='||l_return_status
25781: p_renew_ref_yn => p_renew_ref_yn,
25782: x_to_chr_id => l_to_chr_id);
25783:
25784: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
25785: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
25786: FND_LOG.string(FND_LOG.level_procedure
25787: ,l_module_name||'.Copy_Contract_Header'
25788: ,'After call to Copy_Contract_Header x_return_status='||l_return_status
25789: );
25782: x_to_chr_id => l_to_chr_id);
25783:
25784: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
25785: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
25786: FND_LOG.string(FND_LOG.level_procedure
25787: ,l_module_name||'.Copy_Contract_Header'
25788: ,'After call to Copy_Contract_Header x_return_status='||l_return_status
25789: );
25790: END IF;
25846: OPEN c_art_eff_date(l_source_doc_type, l_source_doc_id);
25847: FETCH c_art_eff_date INTO l_eff_date;
25848: CLOSE c_art_eff_date;
25849:
25850: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25851: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25852: FND_LOG.string(FND_LOG.level_statement
25853: ,l_module_name||'.OKC_TERMS_COPY_GRP.copy_doc'
25854: ,'Before call to OKC_TERMS_COPY_GRP.copy_doc'
25847: FETCH c_art_eff_date INTO l_eff_date;
25848: CLOSE c_art_eff_date;
25849:
25850: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25851: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25852: FND_LOG.string(FND_LOG.level_statement
25853: ,l_module_name||'.OKC_TERMS_COPY_GRP.copy_doc'
25854: ,'Before call to OKC_TERMS_COPY_GRP.copy_doc'
25855: );
25848: CLOSE c_art_eff_date;
25849:
25850: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25851: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25852: FND_LOG.string(FND_LOG.level_statement
25853: ,l_module_name||'.OKC_TERMS_COPY_GRP.copy_doc'
25854: ,'Before call to OKC_TERMS_COPY_GRP.copy_doc'
25855: );
25856: END IF;
25869: p_article_effective_date => Nvl(l_eff_date,Sysdate),
25870: p_document_number => p_contract_number,
25871: p_allow_duplicate_terms=>'Y');
25872:
25873: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25874: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25875: FND_LOG.string(FND_LOG.level_statement
25876: ,l_module_name||'.OKC_TERMS_COPY_GRP.copy_doc'
25877: ,'After call to OKC_TERMS_COPY_GRP.copy_doc: x_return_status:'||l_return_status
25870: p_document_number => p_contract_number,
25871: p_allow_duplicate_terms=>'Y');
25872:
25873: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25874: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25875: FND_LOG.string(FND_LOG.level_statement
25876: ,l_module_name||'.OKC_TERMS_COPY_GRP.copy_doc'
25877: ,'After call to OKC_TERMS_COPY_GRP.copy_doc: x_return_status:'||l_return_status
25878: ||' '||SQLERRM
25871: p_allow_duplicate_terms=>'Y');
25872:
25873: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25874: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25875: FND_LOG.string(FND_LOG.level_statement
25876: ,l_module_name||'.OKC_TERMS_COPY_GRP.copy_doc'
25877: ,'After call to OKC_TERMS_COPY_GRP.copy_doc: x_return_status:'||l_return_status
25878: ||' '||SQLERRM
25879: );
25893: --================================End of Copy Contract Document===================================
25894:
25895: --===================-Start of Copy OKS Header attributes ========================================
25896: /*--Call to copy source contract record in OKS_K_HEADERS_B */
25897: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25898: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25899: FND_LOG.string(FND_LOG.level_statement
25900: ,l_module_name||'.oks_setup_util_pub.copy_hdr_attr'
25901: ,'Before call to oks_setup_util_pub.copy_hdr_attr'
25894:
25895: --===================-Start of Copy OKS Header attributes ========================================
25896: /*--Call to copy source contract record in OKS_K_HEADERS_B */
25897: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25898: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25899: FND_LOG.string(FND_LOG.level_statement
25900: ,l_module_name||'.oks_setup_util_pub.copy_hdr_attr'
25901: ,'Before call to oks_setup_util_pub.copy_hdr_attr'
25902: ||' P_From_Chr_ID = '||p_chr_id
25895: --===================-Start of Copy OKS Header attributes ========================================
25896: /*--Call to copy source contract record in OKS_K_HEADERS_B */
25897: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25898: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25899: FND_LOG.string(FND_LOG.level_statement
25900: ,l_module_name||'.oks_setup_util_pub.copy_hdr_attr'
25901: ,'Before call to oks_setup_util_pub.copy_hdr_attr'
25902: ||' P_From_Chr_ID = '||p_chr_id
25903: ||',P_To_Chr_ID = '||l_to_chr_id
25910: ,p_new_chr_id => l_to_chr_id --Target Contract Header ID
25911: ,p_duration_match => NULL
25912: ,p_renew_ref_YN => P_Renew_Ref_YN
25913: ,x_return_status => l_return_status);
25914: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25915: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25916: FND_LOG.string(FND_LOG.level_statement
25917: ,l_module_name||'.oks_setup_util_pub.copy_hdr_attr'
25918: ,'After call to oks_setup_util_pub.copy_hdr_attr: x_return_status:'||l_return_status
25911: ,p_duration_match => NULL
25912: ,p_renew_ref_YN => P_Renew_Ref_YN
25913: ,x_return_status => l_return_status);
25914: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25915: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25916: FND_LOG.string(FND_LOG.level_statement
25917: ,l_module_name||'.oks_setup_util_pub.copy_hdr_attr'
25918: ,'After call to oks_setup_util_pub.copy_hdr_attr: x_return_status:'||l_return_status
25919: ||' '||SQLERRM
25912: ,p_renew_ref_YN => P_Renew_Ref_YN
25913: ,x_return_status => l_return_status);
25914: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25915: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25916: FND_LOG.string(FND_LOG.level_statement
25917: ,l_module_name||'.oks_setup_util_pub.copy_hdr_attr'
25918: ,'After call to oks_setup_util_pub.copy_hdr_attr: x_return_status:'||l_return_status
25919: ||' '||SQLERRM
25920: );
25937: CLOSE GetHdrTrxnInfo;
25938:
25939: If (l_Hdr_Old_Trxn_Extn_ID IS NOT NULL AND l_Hdr_Bill_To_Site_Use_ID IS NOT NULL) then
25940:
25941: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25942: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25943: FND_LOG.string(FND_LOG.level_statement
25944: ,l_module_name||'.Create_Transaction_Extension'
25945: ,'Before call to Create_Transaction_Extension for Header in COPY_CONTRACT'
25938:
25939: If (l_Hdr_Old_Trxn_Extn_ID IS NOT NULL AND l_Hdr_Bill_To_Site_Use_ID IS NOT NULL) then
25940:
25941: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25942: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25943: FND_LOG.string(FND_LOG.level_statement
25944: ,l_module_name||'.Create_Transaction_Extension'
25945: ,'Before call to Create_Transaction_Extension for Header in COPY_CONTRACT'
25946: ||'Bill to site use id='||l_Hdr_Bill_To_Site_Use_ID
25939: If (l_Hdr_Old_Trxn_Extn_ID IS NOT NULL AND l_Hdr_Bill_To_Site_Use_ID IS NOT NULL) then
25940:
25941: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25942: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25943: FND_LOG.string(FND_LOG.level_statement
25944: ,l_module_name||'.Create_Transaction_Extension'
25945: ,'Before call to Create_Transaction_Extension for Header in COPY_CONTRACT'
25946: ||'Bill to site use id='||l_Hdr_Bill_To_Site_Use_ID
25947: ||'Old Trxn ID='||l_Hdr_Old_Trxn_Extn_ID
25961: ,x_msg_count => x_msg_count
25962: ,x_return_status => l_return_status) ;
25963:
25964:
25965: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25966: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25967: FND_LOG.string(FND_LOG.level_statement
25968: ,l_module_name||'.Create_Transaction_Extension'
25969: ,'After call to Create_Transaction_Extension for Header: x_return_status :'||l_return_status
25962: ,x_return_status => l_return_status) ;
25963:
25964:
25965: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25966: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25967: FND_LOG.string(FND_LOG.level_statement
25968: ,l_module_name||'.Create_Transaction_Extension'
25969: ,'After call to Create_Transaction_Extension for Header: x_return_status :'||l_return_status
25970: ||'New Trxn ID='||l_Hdr_New_Trxn_Extn_ID
25963:
25964:
25965: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25966: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
25967: FND_LOG.string(FND_LOG.level_statement
25968: ,l_module_name||'.Create_Transaction_Extension'
25969: ,'After call to Create_Transaction_Extension for Header: x_return_status :'||l_return_status
25970: ||'New Trxn ID='||l_Hdr_New_Trxn_Extn_ID
25971: );
25983: SET TRXN_EXTENSION_ID = l_Hdr_New_Trxn_Extn_ID
25984: WHERE CHR_ID = l_to_chr_id;
25985:
25986: If SQL%NOTFOUND then
25987: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25988: FND_LOG.string(FND_LOG.level_statement
25989: ,l_module_name||'.Create_Transaction_Extension'
25990: ,'Error in Update OKS_K_HEADERS_B, row not found for update'
25991: );
25984: WHERE CHR_ID = l_to_chr_id;
25985:
25986: If SQL%NOTFOUND then
25987: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
25988: FND_LOG.string(FND_LOG.level_statement
25989: ,l_module_name||'.Create_Transaction_Extension'
25990: ,'Error in Update OKS_K_HEADERS_B, row not found for update'
25991: );
25992: END IF;
26003: --===================Start of Copy OKS Header Notes=============================================
26004: IF l_profile_value ='Y' THEN --added for bugfix 14240229 by ansraj
26005:
26006: /*--Call to copy Header notes -----*/
26007: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26008: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
26009: FND_LOG.string(FND_LOG.level_statement
26010: ,l_module_name||'.oks_coverages_pvt.copy_k_hdr_notes'
26011: ,'Before call to oks_coverages_pvt.copy_k_hdr_notes'
26004: IF l_profile_value ='Y' THEN --added for bugfix 14240229 by ansraj
26005:
26006: /*--Call to copy Header notes -----*/
26007: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26008: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
26009: FND_LOG.string(FND_LOG.level_statement
26010: ,l_module_name||'.oks_coverages_pvt.copy_k_hdr_notes'
26011: ,'Before call to oks_coverages_pvt.copy_k_hdr_notes'
26012: );
26005:
26006: /*--Call to copy Header notes -----*/
26007: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26008: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
26009: FND_LOG.string(FND_LOG.level_statement
26010: ,l_module_name||'.oks_coverages_pvt.copy_k_hdr_notes'
26011: ,'Before call to oks_coverages_pvt.copy_k_hdr_notes'
26012: );
26013: END IF;
26020: x_return_status => l_return_status,
26021: x_msg_count => x_msg_count,
26022: x_msg_data => x_msg_data);
26023:
26024: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26025: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
26026: FND_LOG.string(FND_LOG.level_statement
26027: ,l_module_name||'.oks_coverages_pvt.copy_k_hdr_notes'
26028: ,'After call to oks_coverages_pvt.copy_k_hdr_notes: x_return_status:'||l_return_status
26021: x_msg_count => x_msg_count,
26022: x_msg_data => x_msg_data);
26023:
26024: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26025: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
26026: FND_LOG.string(FND_LOG.level_statement
26027: ,l_module_name||'.oks_coverages_pvt.copy_k_hdr_notes'
26028: ,'After call to oks_coverages_pvt.copy_k_hdr_notes: x_return_status:'||l_return_status
26029: ||' '||SQLERRM
26022: x_msg_data => x_msg_data);
26023:
26024: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26025: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
26026: FND_LOG.string(FND_LOG.level_statement
26027: ,l_module_name||'.oks_coverages_pvt.copy_k_hdr_notes'
26028: ,'After call to oks_coverages_pvt.copy_k_hdr_notes: x_return_status:'||l_return_status
26029: ||' '||SQLERRM
26030: );
26043: END IF;
26044: --=====================End of Copy OKS Header Notes=============================================
26045:
26046: --=====================Start of Copy Lines=====================================================
26047: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26048: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
26049: FND_LOG.string(FND_LOG.level_statement
26050: ,l_module_name||'.copy_lines'
26051: ,'Before call to copy_lines , P_From_Chr_ID='||p_chr_id
26044: --=====================End of Copy OKS Header Notes=============================================
26045:
26046: --=====================Start of Copy Lines=====================================================
26047: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26048: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
26049: FND_LOG.string(FND_LOG.level_statement
26050: ,l_module_name||'.copy_lines'
26051: ,'Before call to copy_lines , P_From_Chr_ID='||p_chr_id
26052: ||' P_To_Chr_ID='||l_to_chr_id
26045:
26046: --=====================Start of Copy Lines=====================================================
26047: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26048: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
26049: FND_LOG.string(FND_LOG.level_statement
26050: ,l_module_name||'.copy_lines'
26051: ,'Before call to copy_lines , P_From_Chr_ID='||p_chr_id
26052: ||' P_To_Chr_ID='||l_to_chr_id
26053: ||' P_Renew_Ref_YN='||P_Renew_Ref_YN
26067: ,P_Renew_Ref_YN => P_Renew_Ref_YN
26068: ,p_include_cancelled_lines => p_include_cancelled_lines
26069: ,p_include_terminated_lines => p_include_terminated_lines) ;
26070:
26071: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26072: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
26073: FND_LOG.string(FND_LOG.level_statement
26074: ,l_module_name||'.copy_lines'
26075: ,'After call to copy_lines: x_return_status:'||l_return_status
26068: ,p_include_cancelled_lines => p_include_cancelled_lines
26069: ,p_include_terminated_lines => p_include_terminated_lines) ;
26070:
26071: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26072: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
26073: FND_LOG.string(FND_LOG.level_statement
26074: ,l_module_name||'.copy_lines'
26075: ,'After call to copy_lines: x_return_status:'||l_return_status
26076: ||' '||SQLERRM
26069: ,p_include_terminated_lines => p_include_terminated_lines) ;
26070:
26071: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26072: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
26073: FND_LOG.string(FND_LOG.level_statement
26074: ,l_module_name||'.copy_lines'
26075: ,'After call to copy_lines: x_return_status:'||l_return_status
26076: ||' '||SQLERRM
26077: ||'Time Stamp after copy_lines:'||to_char(sysdate,'DD-MON-YYYY HH:MI:SS')
26103: */
26104:
26105:
26106:
26107: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
26108: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
26109: FND_LOG.string(FND_LOG.level_procedure
26110: ,l_module_name||'.End'
26111: ,'x_to_chr_id='||x_to_chr_id
26104:
26105:
26106:
26107: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
26108: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
26109: FND_LOG.string(FND_LOG.level_procedure
26110: ,l_module_name||'.End'
26111: ,'x_to_chr_id='||x_to_chr_id
26112: ||',x_return_status='||x_return_status);
26105:
26106:
26107: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
26108: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
26109: FND_LOG.string(FND_LOG.level_procedure
26110: ,l_module_name||'.End'
26111: ,'x_to_chr_id='||x_to_chr_id
26112: ||',x_return_status='||x_return_status);
26113: END IF;
26149: EXCEPTION
26150: WHEN OTHERS THEN
26151: l_result := NULL;
26152: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'Error in SeedStatus' , substr(SQLERRM,1,240));
26153: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
26154: FND_LOG.string(FND_LOG.level_unexpected
26155: ,'SeedStatus.EXCEPTION'
26156: ,'Exception in call to SeedStatus : SQLERRM ='||SQLERRM
26157: );
26150: WHEN OTHERS THEN
26151: l_result := NULL;
26152: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'Error in SeedStatus' , substr(SQLERRM,1,240));
26153: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
26154: FND_LOG.string(FND_LOG.level_unexpected
26155: ,'SeedStatus.EXCEPTION'
26156: ,'Exception in call to SeedStatus : SQLERRM ='||SQLERRM
26157: );
26158: END IF;
26508: IF (l_debug = 'Y') THEN
26509: OKC_DEBUG.log('200 : Calling IS_COPY_ALLOWED');
26510: END IF;
26511:
26512: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
26513: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
26514: FND_LOG.string(FND_LOG.level_procedure
26515: ,l_module_name||'.Begin'
26516: ,'p_from_chr_id='|| p_from_chr_id
26509: OKC_DEBUG.log('200 : Calling IS_COPY_ALLOWED');
26510: END IF;
26511:
26512: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
26513: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
26514: FND_LOG.string(FND_LOG.level_procedure
26515: ,l_module_name||'.Begin'
26516: ,'p_from_chr_id='|| p_from_chr_id
26517: ||',p_contract_number='||p_contract_number
26510: END IF;
26511:
26512: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
26513: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
26514: FND_LOG.string(FND_LOG.level_procedure
26515: ,l_module_name||'.Begin'
26516: ,'p_from_chr_id='|| p_from_chr_id
26517: ||',p_contract_number='||p_contract_number
26518: ||',p_contract_number_modifier='||p_contract_number_modifier
26519: ||',p_to_template_yn='||p_to_template_yn);
26520: END IF;
26521: END IF;
26522:
26523: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
26524: FND_LOG.string(FND_LOG.level_statement
26525: ,l_module_name
26526: ,'Before Is_Copy_Allowed'
26527: );
26520: END IF;
26521: END IF;
26522:
26523: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
26524: FND_LOG.string(FND_LOG.level_statement
26525: ,l_module_name
26526: ,'Before Is_Copy_Allowed'
26527: );
26528: End If;
26529:
26530: l_result := IS_COPY_ALLOWED(p_from_chr_id, NULL);
26531:
26532:
26533: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
26534: FND_LOG.string(FND_LOG.level_statement
26535: ,l_module_name
26536: ,'After Is_Copy_Allowed'
26537: );
26530: l_result := IS_COPY_ALLOWED(p_from_chr_id, NULL);
26531:
26532:
26533: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
26534: FND_LOG.string(FND_LOG.level_statement
26535: ,l_module_name
26536: ,'After Is_Copy_Allowed'
26537: );
26538: End If;
26567: l_Target_Contract_New_YN := 'Y'; --Indicates to copy_lines API
26568: --whether the Target Contract being copied to
26569: --was pre-existing or was created as part of Copy
26570:
26571: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
26572: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
26573: FND_LOG.string(FND_LOG.level_procedure
26574: ,l_module_name||'.Copy_Contract_Header'
26575: ,'Before call to Copy_Contract_Header'
26568: --whether the Target Contract being copied to
26569: --was pre-existing or was created as part of Copy
26570:
26571: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
26572: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
26573: FND_LOG.string(FND_LOG.level_procedure
26574: ,l_module_name||'.Copy_Contract_Header'
26575: ,'Before call to Copy_Contract_Header'
26576: );
26569: --was pre-existing or was created as part of Copy
26570:
26571: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
26572: IF (FND_LOG.test(FND_LOG.level_procedure, l_module_name)) THEN
26573: FND_LOG.string(FND_LOG.level_procedure
26574: ,l_module_name||'.Copy_Contract_Header'
26575: ,'Before call to Copy_Contract_Header'
26576: );
26577: END IF;
26589: p_to_template_yn => p_to_template_yn,
26590: p_renew_ref_yn => 'N',
26591: x_to_chr_id => l_to_chr_id);
26592:
26593: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26594: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
26595: FND_LOG.string(FND_LOG.level_statement
26596: ,l_module_name||'.copy_contract_header'
26597: ,'After call to copy_contract_header: x_return_status:'||l_return_status
26590: p_renew_ref_yn => 'N',
26591: x_to_chr_id => l_to_chr_id);
26592:
26593: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26594: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
26595: FND_LOG.string(FND_LOG.level_statement
26596: ,l_module_name||'.copy_contract_header'
26597: ,'After call to copy_contract_header: x_return_status:'||l_return_status
26598: ||' '||SQLERRM
26591: x_to_chr_id => l_to_chr_id);
26592:
26593: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26594: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
26595: FND_LOG.string(FND_LOG.level_statement
26596: ,l_module_name||'.copy_contract_header'
26597: ,'After call to copy_contract_header: x_return_status:'||l_return_status
26598: ||' '||SQLERRM
26599: );
26779:
26780: --===================-Start of Copy OKS Header attributes ========================================
26781: Begin
26782: /*--Call to copy source contract record in OKS_K_HEADERS_B */
26783: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26784: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
26785: FND_LOG.string(FND_LOG.level_statement
26786: ,l_module_name||'.oks_setup_util_pub.copy_hdr_attr'
26787: ,'Before call to oks_setup_util_pub.copy_hdr_attr'
26780: --===================-Start of Copy OKS Header attributes ========================================
26781: Begin
26782: /*--Call to copy source contract record in OKS_K_HEADERS_B */
26783: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26784: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
26785: FND_LOG.string(FND_LOG.level_statement
26786: ,l_module_name||'.oks_setup_util_pub.copy_hdr_attr'
26787: ,'Before call to oks_setup_util_pub.copy_hdr_attr'
26788: ||' P_From_Chr_ID = '||p_from_chr_id
26781: Begin
26782: /*--Call to copy source contract record in OKS_K_HEADERS_B */
26783: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26784: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
26785: FND_LOG.string(FND_LOG.level_statement
26786: ,l_module_name||'.oks_setup_util_pub.copy_hdr_attr'
26787: ,'Before call to oks_setup_util_pub.copy_hdr_attr'
26788: ||' P_From_Chr_ID = '||p_from_chr_id
26789: ||',P_To_Chr_ID = '||l_to_chr_id
26796: ,p_new_chr_id => l_to_chr_id --Target Contract Header ID
26797: ,p_duration_match => NULL
26798: ,p_renew_ref_YN => 'N'
26799: ,x_return_status => l_return_status);
26800: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26801: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
26802: FND_LOG.string(FND_LOG.level_statement
26803: ,l_module_name||'.oks_setup_util_pub.copy_hdr_attr'
26804: ,'After call to oks_setup_util_pub.copy_hdr_attr: x_return_status:'||l_return_status
26797: ,p_duration_match => NULL
26798: ,p_renew_ref_YN => 'N'
26799: ,x_return_status => l_return_status);
26800: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26801: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
26802: FND_LOG.string(FND_LOG.level_statement
26803: ,l_module_name||'.oks_setup_util_pub.copy_hdr_attr'
26804: ,'After call to oks_setup_util_pub.copy_hdr_attr: x_return_status:'||l_return_status
26805: ||' '||SQLERRM
26798: ,p_renew_ref_YN => 'N'
26799: ,x_return_status => l_return_status);
26800: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26801: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
26802: FND_LOG.string(FND_LOG.level_statement
26803: ,l_module_name||'.oks_setup_util_pub.copy_hdr_attr'
26804: ,'After call to oks_setup_util_pub.copy_hdr_attr: x_return_status:'||l_return_status
26805: ||' '||SQLERRM
26806: );
26825: CLOSE GetHdrTrxnInfo;
26826:
26827: If (l_Hdr_Old_Trxn_Extn_ID IS NOT NULL AND l_Hdr_Bill_To_Site_Use_ID IS NOT NULL) then
26828:
26829: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26830: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
26831: FND_LOG.string(FND_LOG.level_statement
26832: ,l_module_name||'.Create_Transaction_Extension'
26833: ,'Before call to Create_Transaction_Extension for Header in COPY_COMPONENTS'
26826:
26827: If (l_Hdr_Old_Trxn_Extn_ID IS NOT NULL AND l_Hdr_Bill_To_Site_Use_ID IS NOT NULL) then
26828:
26829: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26830: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
26831: FND_LOG.string(FND_LOG.level_statement
26832: ,l_module_name||'.Create_Transaction_Extension'
26833: ,'Before call to Create_Transaction_Extension for Header in COPY_COMPONENTS'
26834: ||'Bill to site use id='||l_Hdr_Bill_To_Site_Use_ID
26827: If (l_Hdr_Old_Trxn_Extn_ID IS NOT NULL AND l_Hdr_Bill_To_Site_Use_ID IS NOT NULL) then
26828:
26829: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26830: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
26831: FND_LOG.string(FND_LOG.level_statement
26832: ,l_module_name||'.Create_Transaction_Extension'
26833: ,'Before call to Create_Transaction_Extension for Header in COPY_COMPONENTS'
26834: ||'Bill to site use id='||l_Hdr_Bill_To_Site_Use_ID
26835: ||'Old Trxn ID='||l_Hdr_Old_Trxn_Extn_ID
26849: ,x_msg_count => x_msg_count
26850: ,x_return_status => l_return_status) ;
26851:
26852:
26853: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26854: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
26855: FND_LOG.string(FND_LOG.level_statement
26856: ,l_module_name||'.Create_Transaction_Extension'
26857: ,'After call to Create_Transaction_Extension for Header: x_return_status :'||l_return_status
26850: ,x_return_status => l_return_status) ;
26851:
26852:
26853: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26854: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
26855: FND_LOG.string(FND_LOG.level_statement
26856: ,l_module_name||'.Create_Transaction_Extension'
26857: ,'After call to Create_Transaction_Extension for Header: x_return_status :'||l_return_status
26858: ||'New Trxn ID='||l_Hdr_New_Trxn_Extn_ID
26851:
26852:
26853: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26854: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
26855: FND_LOG.string(FND_LOG.level_statement
26856: ,l_module_name||'.Create_Transaction_Extension'
26857: ,'After call to Create_Transaction_Extension for Header: x_return_status :'||l_return_status
26858: ||'New Trxn ID='||l_Hdr_New_Trxn_Extn_ID
26859: );
26871: SET TRXN_EXTENSION_ID = l_Hdr_New_Trxn_Extn_ID
26872: WHERE CHR_ID = l_to_chr_id;
26873:
26874: If SQL%NOTFOUND then
26875: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26876: FND_LOG.string(FND_LOG.level_statement
26877: ,l_module_name||'.Create_Transaction_Extension'
26878: ,'Error in Update OKS_K_HEADERS_B, row not found for update'
26879: );
26872: WHERE CHR_ID = l_to_chr_id;
26873:
26874: If SQL%NOTFOUND then
26875: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26876: FND_LOG.string(FND_LOG.level_statement
26877: ,l_module_name||'.Create_Transaction_Extension'
26878: ,'Error in Update OKS_K_HEADERS_B, row not found for update'
26879: );
26880: END IF;
26891:
26892: --===================Start of Copy OKS Header Notes=============================================
26893: Begin
26894: /*--Call to copy Header notes -----*/
26895: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26896: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
26897: FND_LOG.string(FND_LOG.level_statement
26898: ,l_module_name||'.oks_coverages_pvt.copy_k_hdr_notes'
26899: ,'Before call to oks_coverages_pvt.copy_k_hdr_notes'
26892: --===================Start of Copy OKS Header Notes=============================================
26893: Begin
26894: /*--Call to copy Header notes -----*/
26895: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26896: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
26897: FND_LOG.string(FND_LOG.level_statement
26898: ,l_module_name||'.oks_coverages_pvt.copy_k_hdr_notes'
26899: ,'Before call to oks_coverages_pvt.copy_k_hdr_notes'
26900: );
26893: Begin
26894: /*--Call to copy Header notes -----*/
26895: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26896: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
26897: FND_LOG.string(FND_LOG.level_statement
26898: ,l_module_name||'.oks_coverages_pvt.copy_k_hdr_notes'
26899: ,'Before call to oks_coverages_pvt.copy_k_hdr_notes'
26900: );
26901: END IF;
26908: x_return_status => l_return_status,
26909: x_msg_count => x_msg_count,
26910: x_msg_data => x_msg_data);
26911:
26912: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26913: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
26914: FND_LOG.string(FND_LOG.level_statement
26915: ,l_module_name||'.oks_coverages_pvt.copy_k_hdr_notes'
26916: ,'After call to oks_coverages_pvt.copy_k_hdr_notes: x_return_status:'||l_return_status
26909: x_msg_count => x_msg_count,
26910: x_msg_data => x_msg_data);
26911:
26912: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26913: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
26914: FND_LOG.string(FND_LOG.level_statement
26915: ,l_module_name||'.oks_coverages_pvt.copy_k_hdr_notes'
26916: ,'After call to oks_coverages_pvt.copy_k_hdr_notes: x_return_status:'||l_return_status
26917: ||' '||SQLERRM
26910: x_msg_data => x_msg_data);
26911:
26912: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26913: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
26914: FND_LOG.string(FND_LOG.level_statement
26915: ,l_module_name||'.oks_coverages_pvt.copy_k_hdr_notes'
26916: ,'After call to oks_coverages_pvt.copy_k_hdr_notes: x_return_status:'||l_return_status
26917: ||' '||SQLERRM
26918: );
26943: IF (
26944: l_Target_Contract_New_YN <> 'Y' AND
26945: (l_lines_tbl.COUNT > 0 OR l_components_tbl.COUNT > 0)
26946: ) THEN
26947: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26948: FND_LOG.string(FND_LOG.level_statement
26949: ,l_module_name
26950: ,'Current Target Contract Status : '||g_chrv_rec.sts_code
26951: );
26944: l_Target_Contract_New_YN <> 'Y' AND
26945: (l_lines_tbl.COUNT > 0 OR l_components_tbl.COUNT > 0)
26946: ) THEN
26947: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
26948: FND_LOG.string(FND_LOG.level_statement
26949: ,l_module_name
26950: ,'Current Target Contract Status : '||g_chrv_rec.sts_code
26951: );
26952: END IF;
27087: OKC_DEBUG.log('10000 : Exiting Procedure OKS_COPY_CONTRACT_PVT.copy_components ', 2);
27088: OKC_DEBUG.ReSet_Indentation;
27089: END IF;
27090:
27091: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
27092: FND_LOG.string(FND_LOG.level_procedure
27093: ,l_module_name||'.END'
27094: ,'Exiting copy_components '
27095: ||', x_return_status='||x_return_status
27088: OKC_DEBUG.ReSet_Indentation;
27089: END IF;
27090:
27091: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
27092: FND_LOG.string(FND_LOG.level_procedure
27093: ,l_module_name||'.END'
27094: ,'Exiting copy_components '
27095: ||', x_return_status='||x_return_status
27096: ||', x_to_chr_id = '||x_to_chr_id