[Home] [Help]
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')
1057: );
1058: END IF;
1059:
1060:
1693:
1694: if (g_pricelist is NULL) then
1695: fnd_message.set_name('OKC','OKC_PROFILE_CHECK');
1696: fnd_message.set_token('PROFILE','OKC_EURO_DEFAULT_PRICELIST');
1697: FND_MSG_PUB.add;
1698: x_return_status := FND_API.G_RET_STS_ERROR;
1699: RAISE G_EXCEPTION_HALT_VALIDATION;
1700: end if;
1701:
4157: ELSIF GetOkcLinesTLPartial%ISOPEN THEN
4158: CLOSE GetOkcLinesTLPartial;
4159: END IF;
4160: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4161: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
4162: RAISE;
4163:
4164: End copy_okc_k_lines_tl;
4165:
6965: ELSIF GetOkcPAVPartial_L%ISOPEN THEN
6966: CLOSE GetOkcPAVPartial_L;
6967: END IF;
6968: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6969: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
6970: RAISE;
6971:
6972: End copy_okc_price_att_values;
6973:
7987: ELSIF GetOkcPAPartial_L%ISOPEN THEN
7988: CLOSE GetOkcPAPartial_L;
7989: END IF;
7990: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7991: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
7992: RAISE;
7993:
7994: End copy_okc_price_adjustments;
7995:
8398: ELSIF GetOkcPRBPartial%ISOPEN THEN
8399: CLOSE GetOkcPRBPartial;
8400: END IF;
8401: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8402: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
8403: RAISE;
8404:
8405: End copy_okc_k_party_roles_b;
8406:
8489: ||'Cpl ID:'||x_cplv_rec.id
8490: );
8491: END IF;
8492: If (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
8493: FND_MSG_PUB.add_exc_msg(G_PKG_NAME
8494: , l_api_name||':OKC_CONTRACT_PARTY_PUB.create_k_party_role'
8495: , substr(x_msg_data,1,240));
8496: RETURN;
8497: End If;
8509: ||'SQLERRM ='||SQLERRM
8510: );
8511: END IF;
8512:
8513: FND_MSG_PUB.add_exc_msg(G_PKG_NAME,l_api_name||':OKC_CONTRACT_PARTY_PUB.create_k_party_role', substr(SQLERRM,1,240));
8514: RAISE;
8515:
8516: End;
8517:
8668: Elsif GetOkcPRTLPartial%ISOPEN then
8669: CLOSE GetOkcPRTLPartial;
8670: End If;
8671: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8672: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
8673: RAISE;
8674:
8675:
8676: End copy_okc_k_party_roles_tl;
8965: Elsif (GetOkcCPartial%ISOPEN) then
8966: CLOSE GetOkcCPartial;
8967: End If;
8968: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8969: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
8970: RAISE;
8971:
8972:
8973: End copy_okc_contacts;
9141: If GetOIEID%ISOPEN then
9142: CLOSE GetOIEID;
9143: End If;
9144: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9145: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
9146: RAISE;
9147:
9148: End copy_okc_operation_lines;
9149:
9296: CLOSE GetOksTLPartial;
9297: End If;
9298:
9299: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9300: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
9301: RAISE;
9302:
9303:
9304: END copy_oks_k_lines_tl;
9443: Elsif (GetOksRDPartial%ISOPEN) then
9444: CLOSE GetOksRDPartial;
9445: End If;
9446: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9447: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
9448: RAISE;
9449:
9450: End copy_oks_rev_distributions;
9451:
9788: Elsif (GetOksQPartial%ISOPEN) then
9789: CLOSE GetOksQPartial;
9790: End IF;
9791: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9792: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
9793: RAISE;
9794:
9795:
9796: End copy_oks_qualifiers;
9976: Elsif (GetOksCTZPartial%ISOPEN) then
9977: CLOSE GetOksCTZPartial;
9978: End IF;
9979: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9980: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
9981: RAISE;
9982:
9983: End copy_oks_coverage_timezones;
9984:
10205: CLOSE GetOksCTPartial;
10206: End IF;
10207:
10208: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10209: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
10210: RAISE;
10211:
10212: End copy_oks_coverage_times;
10213:
10406: CLOSE GetOksPMAPartial;
10407: End IF;
10408:
10409: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10410: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
10411: RAISE;
10412:
10413: End copy_oks_pm_activities;
10414:
10715: CLOSE GetOksPMSLPartial;
10716: End IF;
10717:
10718: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10719: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
10720: RAISE;
10721:
10722:
10723: End copy_oks_pm_stream_levels;
10931: Elsif (GetOksPMSCHPartial%ISOPEN) then
10932: CLOSE GetOksPMSCHPartial;
10933: End IF;
10934: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10935: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
10936: RAISE;
10937:
10938: End copy_oks_pm_schedules;
10939:
11014: ||'SQLERRM ='||SQLERRM
11015: );
11016: END IF;
11017: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11018: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'OKS_PM_PROGRAMS_PVT.RENEW_PM_PROGRAM_SCHEDULE', substr(SQLERRM,1,240));
11019: RAISE;
11020: End;
11021: END LOOP; --End LOOP for looping through l_lines_tbl rows
11022: END IF; --End of If check for l_lines_tbl.COUNT > 0
11032: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11033: If GetLinesWithDatesChanged%ISOPEN then
11034: CLOSE GetLinesWithDatesChanged;
11035: End If;
11036: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
11037: RAISE;
11038: End copy_pm_for_SkippedLines;
11039: --===================================================
11040: -- copy_oks_pm_action_time_types
11208: CLOSE GetOksATTPartial;
11209: End IF;
11210:
11211: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11212: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
11213: RAISE;
11214:
11215: End copy_oks_action_time_types;
11216:
11423: CLOSE GetOksATPartial;
11424: End IF;
11425:
11426: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11427: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
11428: RAISE;
11429:
11430:
11431: End copy_oks_action_times;
11735: CLOSE GetOksSCPartial_L;
11736: End If;
11737:
11738: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11739: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
11740: RAISE;
11741:
11742: End copy_oks_k_sales_credits;
11743:
12013: CLOSE GetOksBSCHPartial;
12014: End IF;
12015:
12016: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12017: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
12018: RAISE;
12019:
12020:
12021: End copy_oks_billrate_schedules;
12700: CLOSE GetOksSLPartial_L;
12701: End If;
12702:
12703: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12704: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
12705: RAISE;
12706:
12707: End copy_oks_stream_levels_b;
12708:
13378: CLOSE GetOksLEPartial_L;
13379: End If;
13380:
13381: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13382: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
13383: RAISE;
13384:
13385:
13386: End copy_oks_level_elements;
13508: IF GetTargetLines_P%ISOPEN THEN
13509: CLOSE GetTargetLines_P;
13510: End IF;
13511:
13512: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'Exception in update_line_inv_and_acct_rule', substr(SQLERRM,1,240));
13513:
13514:
13515: End update_line_inv_and_acct_rule;
13516:
13823: EXCEPTION
13824: WHEN OTHERS THEN
13825: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13826: l_stage := 'Looping through l_SourceStreams_tbl';
13827: FND_MSG_PUB.add_exc_msg(g_pkg_name,'OKS_COPY_CONTRACT_PVT: '||l_stage , substr(SQLERRM,1,240));
13828: END; --End of looping through l_SourceStreams_tbl
13829: END IF; -- End of if check for l_SourceStreams_tbl.COUNT > 0
13830:
13831: EXIT WHEN GetStreamsForSourceTopLine%NOTFOUND;
13836: EXCEPTION
13837: WHEN OTHERS THEN
13838: l_stage := 'Fetching from cursor GetStreamsForSourceTopLine';
13839: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13840: FND_MSG_PUB.add_exc_msg(g_pkg_name,'OKS_COPY_CONTRACT_PVT: '||l_stage , substr(SQLERRM,1,240));
13841:
13842: END; --End of Fetch from GetStreamsForSourceTopLine
13843:
13844: ---------Begin of BSCH Creation for Top Line----------
13858: ||',x_return_status='||x_return_status
13859: );
13860: END IF;
13861: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
13862: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'Exception in call to OKS_BILL_SCH.create_bill_sch_rules', substr(SQLERRM,1,240));
13863: RETURN;
13864: END IF;
13865:
13866:
13873: ||'SQLERRM ='||SQLERRM
13874: );
13875: END IF;
13876: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13877: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'Exception in call to OKS_BILL_SCH.create_bill_sch_rules', substr(SQLERRM,1,240));
13878: RAISE;
13879: END;
13880: --------End of BSCH Creation for Top Line
13881:
13903: ||',x_return_status='||x_return_status
13904: );
13905: END IF;
13906: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
13907: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'Exception in call to OKS_BILL_SCH.create_bill_sch_cp', substr(SQLERRM,1,240));
13908: RETURN;
13909: END IF;
13910:
13911:
13920: ||'SQLERRM ='||SQLERRM
13921: );
13922: END IF;
13923: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13924: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'OKS_PM_PROGRAMS_PVT.RENEW_PM_PROGRAM_SCHEDULE', substr(SQLERRM,1,240));
13925: RAISE;
13926: END;
13927: --------End of BSCH Creation for Subline---------------
13928:
13943: END LOOP; --End LOOP for looping through TargetLinesRecTab PLSQL table --2)
13944: EXCEPTION WHEN OTHERS THEN
13945: l_stage := 'Looping through TargetLinesRecTab';
13946: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13947: FND_MSG_PUB.add_exc_msg(g_pkg_name,'OKS_COPY_CONTRACT_PVT: '||l_stage , substr(SQLERRM,1,240));
13948: END; --End of Begin for looping through TargetLinesRecTab
13949: END IF; --End of If check for TargetLinesRecTab.LINE_ID.COUNT > 0
13950:
13951: IF (P_Partial_Copy_YN = 'Y') then
13978: CLOSE GetTargetLinesForBSCHRegen_P;
13979: ELSIF GetTargetLinesForBSCHRegen_F%ISOPEN THEN
13980: CLOSE GetTargetLinesForBSCHRegen_F;
13981: END IF;
13982: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
13983: RAISE;
13984: End copy_bsch_for_SkippedLines;
13985:
13986: --------------------------------
14082: ,x_timeunit => l_tce_code
14083: ,x_return_status => x_return_status);
14084:
14085: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
14086: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'Exception in call to OKS_BILL_UTIL_PUB.get_seeded_timeunit', substr(SQLERRM,1,240));
14087: RETURN;
14088: END IF;
14089:
14090: IF nvl(l_tce_code,'HOUR') NOT IN ('HOUR','MINUTE') THEN
14136: ||',x_return_status='||x_return_status
14137: );
14138: END IF;
14139: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
14140: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'Exception in call to OKS_BILL_SCH.create_hdr_bill_sch', substr(SQLERRM,1,240));
14141: RETURN;
14142: END IF;
14143:
14144: ELSIF P_To_Line_ID IS NOT NULL then
14181: ||',x_return_status='||x_return_status
14182: );
14183: END IF;
14184: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
14185: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'Exception in call to OKS_BILL_SCH.create_bill_sch_rules', substr(SQLERRM,1,240));
14186: RETURN;
14187: END IF;
14188: END IF; --End of P_To_Line_ID check
14189:
14196: ||'SQLERRM ='||SQLERRM
14197: );
14198: END IF;
14199: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14200: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'Exception in instantiate_bsch_using_PPSetup', substr(SQLERRM,1,240));
14201: RAISE;
14202:
14203: END;
14204: END IF; --End of If check for l_level_periods IS NOT NULL
14603: -- End NECHATUR Bug#5349539
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
14776: EXCEPTION
14777: WHEN OTHERS THEN
14778: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14779: l_stage := 'Looping through l_TrgHdrStreams_Tbl';
14780: FND_MSG_PUB.add_exc_msg(g_pkg_name,'OKS_COPY_CONTRACT_PVT: '||l_stage , substr(SQLERRM,1,240));
14781: RAISE;
14782: END; --End of looping through l_TrgHdrStreams_Tbl
14783:
14784: BEGIN --Begin for calling OKS_BILL_SCH.Create_Bill_Sch_Rules
14796: ||',x_return_status='||x_return_status
14797: );
14798: END IF;
14799: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
14800: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'Exception in call to OKS_BILL_SCH.create_bill_sch_rules', substr(SQLERRM,1,240));
14801: RETURN;
14802: END IF;
14803: EXCEPTION
14804: WHEN OTHERS THEN
14803: EXCEPTION
14804: WHEN OTHERS THEN
14805: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14806: l_stage := 'OKS_BILL_SCH.create_bill_sch_rules';
14807: FND_MSG_PUB.add_exc_msg(g_pkg_name,'OKS_COPY_CONTRACT_PVT: '||l_stage,substr(SQLERRM,1,240));
14808: RAISE;
14809: END;
14810:
14811: ELSIF (l_TrgHdrStreams_Exists_YN = 'N') THEN
14856: ,P_INTERFACE_OFFSET_DAYS =>L_INTERFACE_OFFSET_DAYS
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
14870: EXCEPTION
14871: WHEN OTHERS THEN
14872: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14873: l_stage := 'instantiate_bsch_using_PPSetup';
14874: FND_MSG_PUB.add_exc_msg(g_pkg_name,'OKS_COPY_CONTRACT_PVT: '||l_stage,substr(SQLERRM,1,240));
14875: RAISE;
14876: End;
14877: -- hkamdar 20-Apr-2006 Added based on Aaron's feedback on 07-Apr-2006. to PP CR03 ammendment.
14878: -- IF no target header bill schedule exists and no PP attributes are present on Target Header then
14975: EXCEPTION
14976: WHEN OTHERS THEN
14977: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14978: l_stage := 'Looping through l_SrcLnStreams_Tbl';
14979: FND_MSG_PUB.add_exc_msg(g_pkg_name,'OKS_COPY_CONTRACT_PVT: '||l_stage , substr(SQLERRM,1,240));
14980: RAISE;
14981: END; --End of looping through l_TrgHdrStreams_Tbl
14982:
14983: END IF; -- check for l_SrcLnStreams_Exists_YN = 'Y'
14996: ||',x_return_status='||x_return_status
14997: );
14998: END IF;
14999: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
15000: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'Exception in call to OKS_BILL_SCH.create_bill_sch_rules', substr(SQLERRM,1,240));
15001: RETURN;
15002: END IF;
15003: EXCEPTION
15004: WHEN OTHERS THEN
15003: EXCEPTION
15004: WHEN OTHERS THEN
15005: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15006: l_stage := 'OKS_BILL_SCH.create_bill_sch_rules';
15007: FND_MSG_PUB.add_exc_msg(g_pkg_name,'OKS_COPY_CONTRACT_PVT: '||l_stage,substr(SQLERRM,1,240));
15008: RAISE;
15009: END;
15010: --------------------------------------------------------------------
15011: END IF; -- l_duration_match check
15035: ||',x_return_status='||x_return_status
15036: );
15037: END IF;
15038: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
15039: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'Exception in call to OKS_BILL_SCH.create_bill_sch_cp', substr(SQLERRM,1,240));
15040: RETURN;
15041: END IF;
15042:
15043: EXCEPTION
15049: ||'SQLERRM ='||SQLERRM
15050: );
15051: END IF;
15052: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15053: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'OKS_PM_PROGRAMS_PVT.RENEW_PM_PROGRAM_SCHEDULE', substr(SQLERRM,1,240));
15054: RAISE;
15055: END;
15056: --+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
15057: --------End of BSCH Creation for Subline---------------
15081: END LOOP; --End LOOP for looping through TargetLinesRecTab PLSQL table --2)
15082: EXCEPTION WHEN OTHERS THEN
15083: l_stage := 'Looping through TargetLinesRecTab';
15084: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15085: FND_MSG_PUB.add_exc_msg(g_pkg_name,'OKS_COPY_CONTRACT_PVT: '||l_stage , substr(SQLERRM,1,240));
15086: END; --End of Begin for looping through TargetLinesRecTab
15087: END IF; --End of If check for TargetLinesRecTab.LINE_ID.COUNT > 0
15088:
15089: EXIT WHEN GetTrgLines_K_EXISTS_P%NOTFOUND;
15103: END IF;
15104: IF GetStreamsForTargetHeader%ISOPEN THEN
15105: CLOSE GetStreamsForTargetHeader;
15106: END IF;
15107: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
15108: RAISE;
15109:
15110: End create_bsch_using_PPSetup;
15111:
15307: fnd_message.set_token
15308: ('IBY_API_NAME',
15309: 'IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension : '||l_response.result_code);
15310: fnd_message.set_token ('ERROR_DTLS', l_response.result_message);
15311: fnd_msg_pub.ADD;
15312: RAISE fnd_api.g_exc_unexpected_error;
15313: ELSIF (x_return_status = FND_API.g_ret_sts_error) THEN
15314: fnd_message.set_name (g_app_name, 'OKS_IBY_API_ERROR');
15315: fnd_message.set_token
15315: fnd_message.set_token
15316: ('IBY_API_NAME',
15317: 'IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension :'||l_response.result_code);
15318: fnd_message.set_token ('ERROR_DTLS', l_response.result_message);
15319: fnd_msg_pub.ADD;
15320: RAISE fnd_api.g_exc_error;
15321: END IF;
15322:
15323:
15344: ||'SQLERRM ='||SQLERRM
15345: );
15346: END IF;
15347: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15348: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension', substr(SQLERRM,1,240));
15349: RAISE;
15350:
15351: End;
15352:
15379: END IF;
15380: IF GetCustAcctParty%ISOPEN then
15381: CLOSE GetCustAcctParty;
15382: END IF;
15383: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
15384: RAISE;
15385:
15386: End create_transaction_extension;
15387:
20112: ELSIF GetOKCOKSLinesB_Renew%ISOPEN THEN
20113: CLOSE GetOKCOKSLinesB_Renew;
20114: END IF;
20115: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
20116: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
20117: RAISE;
20118:
20119: END copy_lines;
20120: --=======================================End COPY_LINES=====================================
26126: -- store SQL error message on message stack for caller
26127: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
26128: -- notify caller of an UNEXPECTED error
26129: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
26130: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
26131:
26132: END COPY_CONTRACT;
26133: --=========================================End COPY_CONTRACT=============================================
26134:
26148:
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
26370: CLOSE l_party_comp_csr;
26371: End If;
26372: --end npalepu
26373: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
26374: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name||':'||l_stage, substr(SQLERRM,1,240));
26375:
26376: END Party_Cleanup;
26377:
26378: --==============================================================================
26389: Begin
26390: EXECUTE IMMEDIATE l_statement;
26391: EXCEPTION
26392: WHEN OTHERS THEN
26393: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
26394: RAISE;
26395:
26396: End PURGE_OKC_K_LINES_B_TEMP;
26397:
26503:
26504: SAVEPOINT copy_components;
26505:
26506: --added for bug 2950549
26507: fnd_msg_pub.initialize;
26508: IF (l_debug = 'Y') THEN
26509: OKC_DEBUG.log('200 : Calling IS_COPY_ALLOWED');
26510: END IF;
26511:
27105: WHEN OTHERS THEN
27106: -- store SQL error message on message stack for caller
27107: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
27108: ROLLBACK to copy_components;
27109: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
27110:
27111: END copy_components;
27112:
27113: --===============================End Copy_Components=====================================