[Home] [Help]
1050: FND_LOG.string(FND_LOG.level_statement
1051: ,'OKS.plsql.OKS_COPY_CONTRACT_PVT.copy_events'
1052: ,'After call to OKC_CONDITIONS_PUB.create_cond_hdrs'
1053: ||' x_return_status:'||l_return_status
1054: ||' x_err_msg='||fnd_msg_pub.get(p_encoded=>'F')
1055: );
1056: END IF;
1057:
1058:
1686:
1687: if (g_pricelist is NULL) then
1688: fnd_message.set_name('OKC','OKC_PROFILE_CHECK');
1689: fnd_message.set_token('PROFILE','OKC_EURO_DEFAULT_PRICELIST');
1690: FND_MSG_PUB.add;
1691: x_return_status := FND_API.G_RET_STS_ERROR;
1692: RAISE G_EXCEPTION_HALT_VALIDATION;
1693: end if;
1694:
4120: ELSIF GetOkcLinesTLPartial%ISOPEN THEN
4121: CLOSE GetOkcLinesTLPartial;
4122: END IF;
4123: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4124: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
4125: RAISE;
4126:
4127: End copy_okc_k_lines_tl;
4128:
6928: ELSIF GetOkcPAVPartial_L%ISOPEN THEN
6929: CLOSE GetOkcPAVPartial_L;
6930: END IF;
6931: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6932: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
6933: RAISE;
6934:
6935: End copy_okc_price_att_values;
6936:
7950: ELSIF GetOkcPAPartial_L%ISOPEN THEN
7951: CLOSE GetOkcPAPartial_L;
7952: END IF;
7953: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7954: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
7955: RAISE;
7956:
7957: End copy_okc_price_adjustments;
7958:
8361: ELSIF GetOkcPRBPartial%ISOPEN THEN
8362: CLOSE GetOkcPRBPartial;
8363: END IF;
8364: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8365: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
8366: RAISE;
8367:
8368: End copy_okc_k_party_roles_b;
8369:
8452: ||'Cpl ID:'||x_cplv_rec.id
8453: );
8454: END IF;
8455: If (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
8456: FND_MSG_PUB.add_exc_msg(G_PKG_NAME
8457: , l_api_name||':OKC_CONTRACT_PARTY_PUB.create_k_party_role'
8458: , substr(x_msg_data,1,240));
8459: RETURN;
8460: End If;
8472: ||'SQLERRM ='||SQLERRM
8473: );
8474: END IF;
8475:
8476: FND_MSG_PUB.add_exc_msg(G_PKG_NAME,l_api_name||':OKC_CONTRACT_PARTY_PUB.create_k_party_role', substr(SQLERRM,1,240));
8477: RAISE;
8478:
8479: End;
8480:
8631: Elsif GetOkcPRTLPartial%ISOPEN then
8632: CLOSE GetOkcPRTLPartial;
8633: End If;
8634: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8635: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
8636: RAISE;
8637:
8638:
8639: End copy_okc_k_party_roles_tl;
8920: Elsif (GetOkcCPartial%ISOPEN) then
8921: CLOSE GetOkcCPartial;
8922: End If;
8923: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8924: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
8925: RAISE;
8926:
8927:
8928: End copy_okc_contacts;
9096: If GetOIEID%ISOPEN then
9097: CLOSE GetOIEID;
9098: End If;
9099: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9100: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
9101: RAISE;
9102:
9103: End copy_okc_operation_lines;
9104:
9251: CLOSE GetOksTLPartial;
9252: End If;
9253:
9254: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9255: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
9256: RAISE;
9257:
9258:
9259: END copy_oks_k_lines_tl;
9398: Elsif (GetOksRDPartial%ISOPEN) then
9399: CLOSE GetOksRDPartial;
9400: End If;
9401: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9402: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
9403: RAISE;
9404:
9405: End copy_oks_rev_distributions;
9406:
9743: Elsif (GetOksQPartial%ISOPEN) then
9744: CLOSE GetOksQPartial;
9745: End IF;
9746: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9747: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
9748: RAISE;
9749:
9750:
9751: End copy_oks_qualifiers;
9931: Elsif (GetOksCTZPartial%ISOPEN) then
9932: CLOSE GetOksCTZPartial;
9933: End IF;
9934: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9935: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
9936: RAISE;
9937:
9938: End copy_oks_coverage_timezones;
9939:
10160: CLOSE GetOksCTPartial;
10161: End IF;
10162:
10163: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10164: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
10165: RAISE;
10166:
10167: End copy_oks_coverage_times;
10168:
10361: CLOSE GetOksPMAPartial;
10362: End IF;
10363:
10364: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10365: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
10366: RAISE;
10367:
10368: End copy_oks_pm_activities;
10369:
10670: CLOSE GetOksPMSLPartial;
10671: End IF;
10672:
10673: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10674: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
10675: RAISE;
10676:
10677:
10678: End copy_oks_pm_stream_levels;
10886: Elsif (GetOksPMSCHPartial%ISOPEN) then
10887: CLOSE GetOksPMSCHPartial;
10888: End IF;
10889: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10890: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
10891: RAISE;
10892:
10893: End copy_oks_pm_schedules;
10894:
10969: ||'SQLERRM ='||SQLERRM
10970: );
10971: END IF;
10972: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10973: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'OKS_PM_PROGRAMS_PVT.RENEW_PM_PROGRAM_SCHEDULE', substr(SQLERRM,1,240));
10974: RAISE;
10975: End;
10976: END LOOP; --End LOOP for looping through l_lines_tbl rows
10977: END IF; --End of If check for l_lines_tbl.COUNT > 0
10987: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10988: If GetLinesWithDatesChanged%ISOPEN then
10989: CLOSE GetLinesWithDatesChanged;
10990: End If;
10991: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
10992: RAISE;
10993: End copy_pm_for_SkippedLines;
10994: --===================================================
10995: -- copy_oks_pm_action_time_types
11163: CLOSE GetOksATTPartial;
11164: End IF;
11165:
11166: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11167: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
11168: RAISE;
11169:
11170: End copy_oks_action_time_types;
11171:
11378: CLOSE GetOksATPartial;
11379: End IF;
11380:
11381: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11382: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
11383: RAISE;
11384:
11385:
11386: End copy_oks_action_times;
11690: CLOSE GetOksSCPartial_L;
11691: End If;
11692:
11693: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11694: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
11695: RAISE;
11696:
11697: End copy_oks_k_sales_credits;
11698:
11968: CLOSE GetOksBSCHPartial;
11969: End IF;
11970:
11971: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11972: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
11973: RAISE;
11974:
11975:
11976: End copy_oks_billrate_schedules;
12655: CLOSE GetOksSLPartial_L;
12656: End If;
12657:
12658: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12659: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
12660: RAISE;
12661:
12662: End copy_oks_stream_levels_b;
12663:
13333: CLOSE GetOksLEPartial_L;
13334: End If;
13335:
13336: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13337: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
13338: RAISE;
13339:
13340:
13341: End copy_oks_level_elements;
13463: IF GetTargetLines_P%ISOPEN THEN
13464: CLOSE GetTargetLines_P;
13465: End IF;
13466:
13467: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'Exception in update_line_inv_and_acct_rule', substr(SQLERRM,1,240));
13468:
13469:
13470: End update_line_inv_and_acct_rule;
13471:
13778: EXCEPTION
13779: WHEN OTHERS THEN
13780: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13781: l_stage := 'Looping through l_SourceStreams_tbl';
13782: FND_MSG_PUB.add_exc_msg(g_pkg_name,'OKS_COPY_CONTRACT_PVT: '||l_stage , substr(SQLERRM,1,240));
13783: END; --End of looping through l_SourceStreams_tbl
13784: END IF; -- End of if check for l_SourceStreams_tbl.COUNT > 0
13785:
13786: EXIT WHEN GetStreamsForSourceTopLine%NOTFOUND;
13791: EXCEPTION
13792: WHEN OTHERS THEN
13793: l_stage := 'Fetching from cursor GetStreamsForSourceTopLine';
13794: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13795: FND_MSG_PUB.add_exc_msg(g_pkg_name,'OKS_COPY_CONTRACT_PVT: '||l_stage , substr(SQLERRM,1,240));
13796:
13797: END; --End of Fetch from GetStreamsForSourceTopLine
13798:
13799: ---------Begin of BSCH Creation for Top Line----------
13813: ||',x_return_status='||x_return_status
13814: );
13815: END IF;
13816: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
13817: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'Exception in call to OKS_BILL_SCH.create_bill_sch_rules', substr(SQLERRM,1,240));
13818: RETURN;
13819: END IF;
13820:
13821:
13828: ||'SQLERRM ='||SQLERRM
13829: );
13830: END IF;
13831: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13832: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'Exception in call to OKS_BILL_SCH.create_bill_sch_rules', substr(SQLERRM,1,240));
13833: RAISE;
13834: END;
13835: --------End of BSCH Creation for Top Line
13836:
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_cp', substr(SQLERRM,1,240));
13863: RETURN;
13864: END IF;
13865:
13866:
13875: ||'SQLERRM ='||SQLERRM
13876: );
13877: END IF;
13878: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13879: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'OKS_PM_PROGRAMS_PVT.RENEW_PM_PROGRAM_SCHEDULE', substr(SQLERRM,1,240));
13880: RAISE;
13881: END;
13882: --------End of BSCH Creation for Subline---------------
13883:
13898: END LOOP; --End LOOP for looping through TargetLinesRecTab PLSQL table --2)
13899: EXCEPTION WHEN OTHERS THEN
13900: l_stage := 'Looping through TargetLinesRecTab';
13901: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13902: FND_MSG_PUB.add_exc_msg(g_pkg_name,'OKS_COPY_CONTRACT_PVT: '||l_stage , substr(SQLERRM,1,240));
13903: END; --End of Begin for looping through TargetLinesRecTab
13904: END IF; --End of If check for TargetLinesRecTab.LINE_ID.COUNT > 0
13905:
13906: IF (P_Partial_Copy_YN = 'Y') then
13933: CLOSE GetTargetLinesForBSCHRegen_P;
13934: ELSIF GetTargetLinesForBSCHRegen_F%ISOPEN THEN
13935: CLOSE GetTargetLinesForBSCHRegen_F;
13936: END IF;
13937: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
13938: RAISE;
13939: End copy_bsch_for_SkippedLines;
13940:
13941: --------------------------------
14037: ,x_timeunit => l_tce_code
14038: ,x_return_status => x_return_status);
14039:
14040: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
14041: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'Exception in call to OKS_BILL_UTIL_PUB.get_seeded_timeunit', substr(SQLERRM,1,240));
14042: RETURN;
14043: END IF;
14044:
14045: IF nvl(l_tce_code,'HOUR') NOT IN ('HOUR','MINUTE') THEN
14091: ||',x_return_status='||x_return_status
14092: );
14093: END IF;
14094: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
14095: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'Exception in call to OKS_BILL_SCH.create_hdr_bill_sch', substr(SQLERRM,1,240));
14096: RETURN;
14097: END IF;
14098:
14099: ELSIF P_To_Line_ID IS NOT NULL 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_bill_sch_rules', substr(SQLERRM,1,240));
14141: RETURN;
14142: END IF;
14143: END IF; --End of P_To_Line_ID check
14144:
14151: ||'SQLERRM ='||SQLERRM
14152: );
14153: END IF;
14154: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14155: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'Exception in instantiate_bsch_using_PPSetup', substr(SQLERRM,1,240));
14156: RAISE;
14157:
14158: END;
14159: END IF; --End of If check for l_level_periods IS NOT NULL
14558: -- End NECHATUR Bug#5349539
14559: ,x_return_status => x_return_status);
14560:
14561: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
14562: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'Exception in call to instantiate_bsch_using_PPSetup', substr(SQLERRM,1,240));
14563: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
14564: FND_LOG.string(FND_LOG.level_statement
14565: ,l_module_name
14566: ,'Return status from instantiate_bsch_using_PPSetup for HEADER : x_return_status ='||x_return_status
14731: EXCEPTION
14732: WHEN OTHERS THEN
14733: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14734: l_stage := 'Looping through l_TrgHdrStreams_Tbl';
14735: FND_MSG_PUB.add_exc_msg(g_pkg_name,'OKS_COPY_CONTRACT_PVT: '||l_stage , substr(SQLERRM,1,240));
14736: RAISE;
14737: END; --End of looping through l_TrgHdrStreams_Tbl
14738:
14739: BEGIN --Begin for calling OKS_BILL_SCH.Create_Bill_Sch_Rules
14751: ||',x_return_status='||x_return_status
14752: );
14753: END IF;
14754: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
14755: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'Exception in call to OKS_BILL_SCH.create_bill_sch_rules', substr(SQLERRM,1,240));
14756: RETURN;
14757: END IF;
14758: EXCEPTION
14759: WHEN OTHERS THEN
14758: EXCEPTION
14759: WHEN OTHERS THEN
14760: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14761: l_stage := 'OKS_BILL_SCH.create_bill_sch_rules';
14762: FND_MSG_PUB.add_exc_msg(g_pkg_name,'OKS_COPY_CONTRACT_PVT: '||l_stage,substr(SQLERRM,1,240));
14763: RAISE;
14764: END;
14765:
14766: ELSIF (l_TrgHdrStreams_Exists_YN = 'N') THEN
14811: ,P_INTERFACE_OFFSET_DAYS =>L_INTERFACE_OFFSET_DAYS
14812: -- End NECHATUR Bug#5349539
14813: ,x_return_status => x_return_status);
14814: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
14815: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'Exception in call to instantiate_bsch_using_PPSetup', substr(SQLERRM,1,240));
14816: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
14817: FND_LOG.string(FND_LOG.level_statement
14818: ,l_module_name
14819: ,'Return status from instantiate_bsch_using_PPSetup for LINE : x_return_status ='||x_return_status
14825: EXCEPTION
14826: WHEN OTHERS THEN
14827: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14828: l_stage := 'instantiate_bsch_using_PPSetup';
14829: FND_MSG_PUB.add_exc_msg(g_pkg_name,'OKS_COPY_CONTRACT_PVT: '||l_stage,substr(SQLERRM,1,240));
14830: RAISE;
14831: End;
14832: -- hkamdar 20-Apr-2006 Added based on Aaron's feedback on 07-Apr-2006. to PP CR03 ammendment.
14833: -- IF no target header bill schedule exists and no PP attributes are present on Target Header then
14930: EXCEPTION
14931: WHEN OTHERS THEN
14932: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14933: l_stage := 'Looping through l_SrcLnStreams_Tbl';
14934: FND_MSG_PUB.add_exc_msg(g_pkg_name,'OKS_COPY_CONTRACT_PVT: '||l_stage , substr(SQLERRM,1,240));
14935: RAISE;
14936: END; --End of looping through l_TrgHdrStreams_Tbl
14937:
14938: END IF; -- check for l_SrcLnStreams_Exists_YN = 'Y'
14951: ||',x_return_status='||x_return_status
14952: );
14953: END IF;
14954: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
14955: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'Exception in call to OKS_BILL_SCH.create_bill_sch_rules', substr(SQLERRM,1,240));
14956: RETURN;
14957: END IF;
14958: EXCEPTION
14959: WHEN OTHERS THEN
14958: EXCEPTION
14959: WHEN OTHERS THEN
14960: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14961: l_stage := 'OKS_BILL_SCH.create_bill_sch_rules';
14962: FND_MSG_PUB.add_exc_msg(g_pkg_name,'OKS_COPY_CONTRACT_PVT: '||l_stage,substr(SQLERRM,1,240));
14963: RAISE;
14964: END;
14965: --------------------------------------------------------------------
14966: END IF; -- l_duration_match check
14990: ||',x_return_status='||x_return_status
14991: );
14992: END IF;
14993: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
14994: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'Exception in call to OKS_BILL_SCH.create_bill_sch_cp', substr(SQLERRM,1,240));
14995: RETURN;
14996: END IF;
14997:
14998: EXCEPTION
15004: ||'SQLERRM ='||SQLERRM
15005: );
15006: END IF;
15007: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15008: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'OKS_PM_PROGRAMS_PVT.RENEW_PM_PROGRAM_SCHEDULE', substr(SQLERRM,1,240));
15009: RAISE;
15010: END;
15011: --+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
15012: --------End of BSCH Creation for Subline---------------
15036: END LOOP; --End LOOP for looping through TargetLinesRecTab PLSQL table --2)
15037: EXCEPTION WHEN OTHERS THEN
15038: l_stage := 'Looping through TargetLinesRecTab';
15039: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15040: FND_MSG_PUB.add_exc_msg(g_pkg_name,'OKS_COPY_CONTRACT_PVT: '||l_stage , substr(SQLERRM,1,240));
15041: END; --End of Begin for looping through TargetLinesRecTab
15042: END IF; --End of If check for TargetLinesRecTab.LINE_ID.COUNT > 0
15043:
15044: EXIT WHEN GetTrgLines_K_EXISTS_P%NOTFOUND;
15058: END IF;
15059: IF GetStreamsForTargetHeader%ISOPEN THEN
15060: CLOSE GetStreamsForTargetHeader;
15061: END IF;
15062: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
15063: RAISE;
15064:
15065: End create_bsch_using_PPSetup;
15066:
15262: fnd_message.set_token
15263: ('IBY_API_NAME',
15264: 'IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension : '||l_response.result_code);
15265: fnd_message.set_token ('ERROR_DTLS', l_response.result_message);
15266: fnd_msg_pub.ADD;
15267: RAISE fnd_api.g_exc_unexpected_error;
15268: ELSIF (x_return_status = FND_API.g_ret_sts_error) THEN
15269: fnd_message.set_name (g_app_name, 'OKS_IBY_API_ERROR');
15270: fnd_message.set_token
15270: fnd_message.set_token
15271: ('IBY_API_NAME',
15272: 'IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension :'||l_response.result_code);
15273: fnd_message.set_token ('ERROR_DTLS', l_response.result_message);
15274: fnd_msg_pub.ADD;
15275: RAISE fnd_api.g_exc_error;
15276: END IF;
15277:
15278:
15299: ||'SQLERRM ='||SQLERRM
15300: );
15301: END IF;
15302: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15303: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension', substr(SQLERRM,1,240));
15304: RAISE;
15305:
15306: End;
15307:
15334: END IF;
15335: IF GetCustAcctParty%ISOPEN then
15336: CLOSE GetCustAcctParty;
15337: END IF;
15338: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
15339: RAISE;
15340:
15341: End create_transaction_extension;
15342:
19965: ELSIF GetOKCOKSLinesB_Renew%ISOPEN THEN
19966: CLOSE GetOKCOKSLinesB_Renew;
19967: END IF;
19968: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
19969: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
19970: RAISE;
19971:
19972: END copy_lines;
19973: --=======================================End COPY_LINES=====================================
25927: -- store SQL error message on message stack for caller
25928: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
25929: -- notify caller of an UNEXPECTED error
25930: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
25931: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
25932:
25933: END COPY_CONTRACT;
25934: --=========================================End COPY_CONTRACT=============================================
25935:
25949:
25950: EXCEPTION
25951: WHEN OTHERS THEN
25952: l_result := NULL;
25953: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'Error in SeedStatus' , substr(SQLERRM,1,240));
25954: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
25955: FND_LOG.string(FND_LOG.level_unexpected
25956: ,'SeedStatus.EXCEPTION'
25957: ,'Exception in call to SeedStatus : SQLERRM ='||SQLERRM
26171: CLOSE l_party_comp_csr;
26172: End If;
26173: --end npalepu
26174: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
26175: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name||':'||l_stage, substr(SQLERRM,1,240));
26176:
26177: END Party_Cleanup;
26178:
26179: --==============================================================================
26190: Begin
26191: EXECUTE IMMEDIATE l_statement;
26192: EXCEPTION
26193: WHEN OTHERS THEN
26194: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
26195: RAISE;
26196:
26197: End PURGE_OKC_K_LINES_B_TEMP;
26198:
26304:
26305: SAVEPOINT copy_components;
26306:
26307: --added for bug 2950549
26308: fnd_msg_pub.initialize;
26309: IF (l_debug = 'Y') THEN
26310: OKC_DEBUG.log('200 : Calling IS_COPY_ALLOWED');
26311: END IF;
26312:
26896: WHEN OTHERS THEN
26897: -- store SQL error message on message stack for caller
26898: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
26899: ROLLBACK to copy_components;
26900: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
26901:
26902: END copy_components;
26903:
26904: --===============================End Copy_Components=====================================