1: Package Body IBE_MERGE_PVT As
2: /* $Header: IBEVMRGB.pls 120.0.12020000.2 2012/08/14 06:32:42 amaheshw ship $ */
3:
4: G_FETCH_LIMIT CONSTANT NUMBER := 1000;
5: /*----------------------------------------------------------------------------*
29: l_dup_party_id HZ_PARTIES.PARTY_ID%TYPE;
30: l_allow_merge_flag VARCHAR2(1) := 'Y';
31:
32: Begin
33: IBE_Util.Debug('IBE_MERGE_PVT.Allow_merge - Entering Allow merge with customer_id: '||p_customer_id||' and duplicate id: '||p_duplicate_id);
34:
35: l_allow_merge_flag := 'Y';
36:
37: Select party_type,party_id into l_party_type,l_party_id
43: From hz_parties
44: Where party_id in (Select party_id from hz_cust_accounts
45: Where cust_account_id = p_duplicate_id);
46:
47: IBE_Util.Debug('IBE_MERGE_PVT.Allow_merge -party_type: '||l_party_type||' party_id: '||l_party_id||' and duplicate party id: '||l_dup_party_id);
48:
49: If ((l_Party_type = 'ORGANIZATION') AND (l_party_id <> l_dup_party_id)) Then
50: BEGIN
51: select 'N' into l_allow_merge_flag from dual
58: l_allow_merge_flag := 'Y';
59: END;
60: End If;
61:
62: IBE_Util.Debug('IBE_MERGE_PVT.Allow_merge : returns '|| l_allow_merge_flag);
63: Return(l_allow_merge_flag);
64: End Allow_merge;
65:
66:
193: END IF;
194: EXCEPTION
195: WHEN OTHERS THEN
196: arp_message.set_line( 'acc_merge_oneclick');
197: IBE_UTIL.debug('IBE_MERGE_PVT.acc_merge_oneclick errored :' ||sqlerrm);
198: RAISE;
199: END acc_merge_oneclick;
200:
201:
349: END IF;
350: EXCEPTION
351: WHEN OTHERS THEN
352: arp_message.set_line( 'acc_merge_shp_lists');
353: IBE_UTIL.debug('IBE_MERGE_PVT.acc_merge_shp_lists errored :' ||sqlerrm);
354: RAISE;
355: END acc_merge_shp_lists;
356:
357:
481: END IF;
482: EXCEPTION
483: WHEN OTHERS THEN
484: arp_message.set_line( 'acc_merge_active_quotes');
485: IBE_UTIL.debug('IBE_MERGE_PVT.acc_merge_active_quotes errored :' ||sqlerrm);
486: RAISE;
487: END acc_merge_active_quotes;
488:
489:
753: IF l_debug is not null AND l_debug='Y' THEN
754: IBE_Util.enable_debug_new('N');
755: END IF;
756:
757: IBE_Util.Debug('IBE_MERGE_PVT.CUSTOMER_MERGE() entered with Request_id: '||Request_id||' Set Number: '||Set_Number
758: ||' and process_mode: '||Process_MODE);
759:
760: arp_message.set_line('IBE_MERGE_PVT.CUSTOMER_MERGE()+');
761:
756:
757: IBE_Util.Debug('IBE_MERGE_PVT.CUSTOMER_MERGE() entered with Request_id: '||Request_id||' Set Number: '||Set_Number
758: ||' and process_mode: '||Process_MODE);
759:
760: arp_message.set_line('IBE_MERGE_PVT.CUSTOMER_MERGE()+');
761:
762: IBE_Util.Debug('IBE_MERGE_PVT.CUSTOMER_MERGE()+');
763:
764: p_request_id := request_id;
758: ||' and process_mode: '||Process_MODE);
759:
760: arp_message.set_line('IBE_MERGE_PVT.CUSTOMER_MERGE()+');
761:
762: IBE_Util.Debug('IBE_MERGE_PVT.CUSTOMER_MERGE()+');
763:
764: p_request_id := request_id;
765:
766: /* Check to See if you can allow the customer merge to happen */
771: Fetch C_CUST into p_customer_id,p_duplicate_id,p_customer_type;
772: Exit When C_CUST%NOTFOUND;
773:
774: p_allow_merge := allow_merge(p_customer_id,p_duplicate_id);
775: IBE_Util.Debug('IBE_MERGE_PVT.CUSTOMER_MERGE - Checking if Merge is allowed');
776:
777: If p_allow_merge = 'N' Then
778: IBE_Util.Debug('IBE_MERGE_PVT.CUSTOMER_MERGE - Merge is not allowed');
779: Close c_cust;
774: p_allow_merge := allow_merge(p_customer_id,p_duplicate_id);
775: IBE_Util.Debug('IBE_MERGE_PVT.CUSTOMER_MERGE - Checking if Merge is allowed');
776:
777: If p_allow_merge = 'N' Then
778: IBE_Util.Debug('IBE_MERGE_PVT.CUSTOMER_MERGE - Merge is not allowed');
779: Close c_cust;
780: Raise MERGE_NOT_ALLOWED;
781: End IF;
782:
785:
786: arp_message.set_name('AR','AR_UPDATING_TABLE');
787: arp_message.set_token('TABLE_NAME','IBE_SH_SHP_LISTS_ALL',FALSE);
788:
789: IBE_Util.Debug('IBE_MERGE_PVT.CUSTOMER_MERGE - updating IBE_SH_SHP_LISTS_ALL table');
790: --2940366
791: acc_merge_shp_lists(request_id,set_number,process_mode,p_customer_type);
792: g_count := sql%rowcount;
793: arp_message.set_name('AR','AR_ROWS_UPDATED');
792: g_count := sql%rowcount;
793: arp_message.set_name('AR','AR_ROWS_UPDATED');
794: arp_message.set_token('NUM_ROWS',to_char(g_count));
795:
796: IBE_Util.Debug('IBE_MERGE_PVT.CUSTOMER_MERGE - updating IBE_ORD_ONECLICK_ALL table');
797: /* 4/8/02
798: If oneclick table already has entry for the merge to account, ignore and do nothing
799: */
800: acc_merge_oneclick(request_id,set_number,process_mode);
806: /* account merge for shared quote
807: 12/18/02
808: */
809: --2940366
810: IBE_Util.Debug('IBE_MERGE_PVT.CUSTOMER_MERGE - updating shared quote table');
811: acc_merge_shared_quote(request_id,set_number,process_mode,p_customer_type);
812: arp_message.set_name('AR','AR_UPDATING_TABLE');
813: arp_message.set_token('TABLE_NAME','IBE_SH_QUOTE_ACCESS',FALSE);
814: arp_message.set_name('AR','AR_ROWS_UPDATED');
817:
818: /*merge active cart
819: 12/18/02
820: */
821: IBE_Util.Debug('IBE_MERGE_PVT.CUSTOMER_MERGE - updating active cart table');
822: acc_merge_active_quotes(request_id,set_number,process_mode);
823: arp_message.set_name('AR','AR_UPDATING_TABLE');
824: arp_message.set_token('TABLE_NAME','IBE_ACTIVE_QUOTES_ALL',FALSE);
825: arp_message.set_name('AR','AR_ROWS_UPDATED');
825: arp_message.set_name('AR','AR_ROWS_UPDATED');
826: arp_message.set_token('NUM_ROWS',to_char(g_count));
827:
828:
829: arp_message.set_line('IBE_MERGE_PVT.CUSTOMER_MERGE()-');
830: IBE_Util.Debug('IBE_MERGE_PVT.CUSTOMER_MERGE()- exiting');
831: EXCEPTION
832:
833: WHEN MERGE_NOT_ALLOWED THEN
826: arp_message.set_token('NUM_ROWS',to_char(g_count));
827:
828:
829: arp_message.set_line('IBE_MERGE_PVT.CUSTOMER_MERGE()-');
830: IBE_Util.Debug('IBE_MERGE_PVT.CUSTOMER_MERGE()- exiting');
831: EXCEPTION
832:
833: WHEN MERGE_NOT_ALLOWED THEN
834: arp_message.set_name('IBE','IBE_MERGE_NOT_ALLOWED');
831: EXCEPTION
832:
833: WHEN MERGE_NOT_ALLOWED THEN
834: arp_message.set_name('IBE','IBE_MERGE_NOT_ALLOWED');
835: arp_message.set_error('IBE_MERGE_PVT.CUSTOMER_MERGE');
836: raise;
837:
838: WHEN OTHERS THEN
839: arp_message.set_error('IBE_MERGE_PVT.CUSTOMER_MERGE');
835: arp_message.set_error('IBE_MERGE_PVT.CUSTOMER_MERGE');
836: raise;
837:
838: WHEN OTHERS THEN
839: arp_message.set_error('IBE_MERGE_PVT.CUSTOMER_MERGE');
840: IBE_Util.Debug('IBE_MERGE_PVT.CUSTOMER_MERGE() caught an exception:'|| sqlerrm) ;
841: raise;
842:
843: End Customer_Merge;
836: raise;
837:
838: WHEN OTHERS THEN
839: arp_message.set_error('IBE_MERGE_PVT.CUSTOMER_MERGE');
840: IBE_Util.Debug('IBE_MERGE_PVT.CUSTOMER_MERGE() caught an exception:'|| sqlerrm) ;
841: raise;
842:
843: End Customer_Merge;
844:
893:
894:
895: Begin
896:
897: arp_message.set_line('IBE_MERGE_PVT.MERGE_SHIP_LISTS()+');
898: IBE_UTIL.debug('IBE_MERGE_PVT.MERGE_SHIP_LISTS()+');
899:
900: x_return_status := FND_API.G_RET_STS_SUCCESS;
901:
894:
895: Begin
896:
897: arp_message.set_line('IBE_MERGE_PVT.MERGE_SHIP_LISTS()+');
898: IBE_UTIL.debug('IBE_MERGE_PVT.MERGE_SHIP_LISTS()+');
899:
900: x_return_status := FND_API.G_RET_STS_SUCCESS;
901:
902:
964: return;
965:
966: End If;
967:
968: arp_message.set_line('IBE_MERGE_PVT.MERGE_SHIP_LISTS()-');
969: IBE_UTIL.debug('IBE_MERGE_PVT.MERGE_SHIP_LISTS()-');
970:
971: Exception
972: When RESOURCE_BUSY Then
965:
966: End If;
967:
968: arp_message.set_line('IBE_MERGE_PVT.MERGE_SHIP_LISTS()-');
969: IBE_UTIL.debug('IBE_MERGE_PVT.MERGE_SHIP_LISTS()-');
970:
971: Exception
972: When RESOURCE_BUSY Then
973: arp_message.set_line('IBE_MERGE_PVT.MERGE_SHIP_LISTS; Could not obtain lock'||
969: IBE_UTIL.debug('IBE_MERGE_PVT.MERGE_SHIP_LISTS()-');
970:
971: Exception
972: When RESOURCE_BUSY Then
973: arp_message.set_line('IBE_MERGE_PVT.MERGE_SHIP_LISTS; Could not obtain lock'||
974: 'on table IBE_SH_SHP_LISTS_ALL');
975: IBE_UTIL.debug('IBE_MERGE_PVT.MERGE_SHIP_LISTS; Could not obtain lock'||
976: 'on table IBE_SH_SHP_LISTS_ALL');
977: x_return_status := FND_API.G_RET_STS_ERROR;
971: Exception
972: When RESOURCE_BUSY Then
973: arp_message.set_line('IBE_MERGE_PVT.MERGE_SHIP_LISTS; Could not obtain lock'||
974: 'on table IBE_SH_SHP_LISTS_ALL');
975: IBE_UTIL.debug('IBE_MERGE_PVT.MERGE_SHIP_LISTS; Could not obtain lock'||
976: 'on table IBE_SH_SHP_LISTS_ALL');
977: x_return_status := FND_API.G_RET_STS_ERROR;
978: raise;
979: When Others Then
977: x_return_status := FND_API.G_RET_STS_ERROR;
978: raise;
979: When Others Then
980:
981: arp_message.set_line('IBE_MERGE_PVT.MERGE_SHIP_LISTS'||sqlerrm);
982: IBE_UTIL.debug('IBE_MERGE_PVT.MERGE_SHIP_LISTS'||sqlerrm);
983: x_return_status := FND_API.G_RET_STS_ERROR;
984: raise;
985:
978: raise;
979: When Others Then
980:
981: arp_message.set_line('IBE_MERGE_PVT.MERGE_SHIP_LISTS'||sqlerrm);
982: IBE_UTIL.debug('IBE_MERGE_PVT.MERGE_SHIP_LISTS'||sqlerrm);
983: x_return_status := FND_API.G_RET_STS_ERROR;
984: raise;
985:
986: End MERGE_SHIP_LISTS;
1042: PRAGMA EXCEPTION_INIT(RESOURCE_BUSY, -0054);
1043:
1044: Begin
1045:
1046: arp_message.set_line('IBE_MERGE_PVT.MERGE_ONECLICK()+');
1047: IBE_UTIL.debug('IBE_MERGE_PVT.MERGE_ONECLICK()+');
1048:
1049: x_return_status := FND_API.G_RET_STS_SUCCESS;
1050:
1043:
1044: Begin
1045:
1046: arp_message.set_line('IBE_MERGE_PVT.MERGE_ONECLICK()+');
1047: IBE_UTIL.debug('IBE_MERGE_PVT.MERGE_ONECLICK()+');
1048:
1049: x_return_status := FND_API.G_RET_STS_SUCCESS;
1050:
1051: --Do All Validations
1187: End If;
1188:
1189: End If;
1190:
1191: arp_message.set_line('IBE_MERGE_PVT.MERGE_ONECLICK()-');
1192: IBE_UTIL.debug('IBE_MERGE_PVT.MERGE_ONECLICK()-');
1193: Exception
1194: When RESOURCE_BUSY Then
1195: arp_message.set_line('IBE_MERGE_PVT.MERGE_ONECLICK; Could not obtain lock'||
1188:
1189: End If;
1190:
1191: arp_message.set_line('IBE_MERGE_PVT.MERGE_ONECLICK()-');
1192: IBE_UTIL.debug('IBE_MERGE_PVT.MERGE_ONECLICK()-');
1193: Exception
1194: When RESOURCE_BUSY Then
1195: arp_message.set_line('IBE_MERGE_PVT.MERGE_ONECLICK; Could not obtain lock'||
1196: 'on table IBE_ORD_ONECLICK_ALL');
1191: arp_message.set_line('IBE_MERGE_PVT.MERGE_ONECLICK()-');
1192: IBE_UTIL.debug('IBE_MERGE_PVT.MERGE_ONECLICK()-');
1193: Exception
1194: When RESOURCE_BUSY Then
1195: arp_message.set_line('IBE_MERGE_PVT.MERGE_ONECLICK; Could not obtain lock'||
1196: 'on table IBE_ORD_ONECLICK_ALL');
1197: IBE_UTIL.debug('IBE_MERGE_PVT.MERGE_ONECLICK; Could not obtain lock'||
1198: 'on table IBE_ORD_ONECLICK_ALL');
1199: x_return_status := FND_API.G_RET_STS_ERROR;
1193: Exception
1194: When RESOURCE_BUSY Then
1195: arp_message.set_line('IBE_MERGE_PVT.MERGE_ONECLICK; Could not obtain lock'||
1196: 'on table IBE_ORD_ONECLICK_ALL');
1197: IBE_UTIL.debug('IBE_MERGE_PVT.MERGE_ONECLICK; Could not obtain lock'||
1198: 'on table IBE_ORD_ONECLICK_ALL');
1199: x_return_status := FND_API.G_RET_STS_ERROR;
1200: raise;
1201: When Others Then
1198: 'on table IBE_ORD_ONECLICK_ALL');
1199: x_return_status := FND_API.G_RET_STS_ERROR;
1200: raise;
1201: When Others Then
1202: arp_message.set_line('IBE_MERGE_PVT.MERGE_ONECLICK'||sqlerrm);
1203: IBE_UTIL.debug('IBE_MERGE_PVT.MERGE_ONECLICK'||sqlerrm);
1204: x_return_status := FND_API.G_RET_STS_ERROR;
1205: raise;
1206:
1199: x_return_status := FND_API.G_RET_STS_ERROR;
1200: raise;
1201: When Others Then
1202: arp_message.set_line('IBE_MERGE_PVT.MERGE_ONECLICK'||sqlerrm);
1203: IBE_UTIL.debug('IBE_MERGE_PVT.MERGE_ONECLICK'||sqlerrm);
1204: x_return_status := FND_API.G_RET_STS_ERROR;
1205: raise;
1206:
1207:
1269: PRAGMA EXCEPTION_INIT(RESOURCE_BUSY, -0054);
1270:
1271: Begin
1272:
1273: arp_message.set_line('IBE_MERGE_PVT.MERGE_MSITE_PARTY_ACCESS()+');
1274: IBE_UTIL.debug('IBE_MERGE_PVT.MERGE_MSITE_PARTY_ACCESS()+');
1275:
1276: x_return_status := FND_API.G_RET_STS_SUCCESS;
1277:
1270:
1271: Begin
1272:
1273: arp_message.set_line('IBE_MERGE_PVT.MERGE_MSITE_PARTY_ACCESS()+');
1274: IBE_UTIL.debug('IBE_MERGE_PVT.MERGE_MSITE_PARTY_ACCESS()+');
1275:
1276: x_return_status := FND_API.G_RET_STS_SUCCESS;
1277:
1278:
1307: EXIT When merge_records%NOTFOUND;
1308: Begin
1309: arp_message.set_name('AR', 'AR_UPDATING_TABLE');
1310: arp_message.set_token('TABLE_NAME', 'IBE_MSITE_PRTY_ACCSS', FALSE);
1311: arp_message.set_line('IBE_MERGE_PVT.MERGE_MSITE_PARTY_ACCESS; '||
1312: ' merging msite:'||l_msite_id||' both
1313: IBE_UTIL.debug('IBE_MERGE_PVT.MERGE_MSITE_PARTY_ACCESS; '||
1314: ' merging msite:'||l_msite_id||' both
1315:
1309: arp_message.set_name('AR', 'AR_UPDATING_TABLE');
1310: arp_message.set_token('TABLE_NAME', 'IBE_MSITE_PRTY_ACCSS', FALSE);
1311: arp_message.set_line('IBE_MERGE_PVT.MERGE_MSITE_PARTY_ACCESS; '||
1312: ' merging msite:'||l_msite_id||' both
1313: IBE_UTIL.debug('IBE_MERGE_PVT.MERGE_MSITE_PARTY_ACCESS; '||
1314: ' merging msite:'||l_msite_id||' both
1315:
1316: -- only merge when both
1317: -- and
1340: end if;
1341:
1342: Exception
1343: When Others Then
1344: arp_message.set_line('IBE_MERGE_PVT.MERGE_MSITE_PARTY_ACCESS'||sqlerrm);
1345: IBE_UTIL.debug('IBE_MERGE_PVT.MERGE_MSITE_PARTY_ACCESS'||sqlerrm);
1346: x_return_status := FND_API.G_RET_STS_ERROR;
1347: raise;
1348: end;
1341:
1342: Exception
1343: When Others Then
1344: arp_message.set_line('IBE_MERGE_PVT.MERGE_MSITE_PARTY_ACCESS'||sqlerrm);
1345: IBE_UTIL.debug('IBE_MERGE_PVT.MERGE_MSITE_PARTY_ACCESS'||sqlerrm);
1346: x_return_status := FND_API.G_RET_STS_ERROR;
1347: raise;
1348: end;
1349: end loop;
1351:
1352: End If;
1353: End If;
1354:
1355: arp_message.set_line('IBE_MERGE_PVT.MERGE_MSITE_PARTY_ACCESS()-');
1356: IBE_UTIL.debug('IBE_MERGE_PVT.MERGE_MSITE_PARTY_ACCESS()-');
1357: Exception
1358: When RESOURCE_BUSY Then
1359: arp_message.set_line('IBE_MERGE_PVT.MERGE_MSITE_PARTY_ACCESS; Could not obtain lock'||
1352: End If;
1353: End If;
1354:
1355: arp_message.set_line('IBE_MERGE_PVT.MERGE_MSITE_PARTY_ACCESS()-');
1356: IBE_UTIL.debug('IBE_MERGE_PVT.MERGE_MSITE_PARTY_ACCESS()-');
1357: Exception
1358: When RESOURCE_BUSY Then
1359: arp_message.set_line('IBE_MERGE_PVT.MERGE_MSITE_PARTY_ACCESS; Could not obtain lock'||
1360: 'on table IBE_MSITE_PRTY_ACCSS');
1355: arp_message.set_line('IBE_MERGE_PVT.MERGE_MSITE_PARTY_ACCESS()-');
1356: IBE_UTIL.debug('IBE_MERGE_PVT.MERGE_MSITE_PARTY_ACCESS()-');
1357: Exception
1358: When RESOURCE_BUSY Then
1359: arp_message.set_line('IBE_MERGE_PVT.MERGE_MSITE_PARTY_ACCESS; Could not obtain lock'||
1360: 'on table IBE_MSITE_PRTY_ACCSS');
1361: IBE_UTIL.debug('IBE_MERGE_PVT.MERGE_MSITE_PARTY_ACCESS; Could not obtain lock'||
1362: 'on table IBE_MSITE_PRTY_ACCSS');
1363: x_return_status := FND_API.G_RET_STS_ERROR;
1357: Exception
1358: When RESOURCE_BUSY Then
1359: arp_message.set_line('IBE_MERGE_PVT.MERGE_MSITE_PARTY_ACCESS; Could not obtain lock'||
1360: 'on table IBE_MSITE_PRTY_ACCSS');
1361: IBE_UTIL.debug('IBE_MERGE_PVT.MERGE_MSITE_PARTY_ACCESS; Could not obtain lock'||
1362: 'on table IBE_MSITE_PRTY_ACCSS');
1363: x_return_status := FND_API.G_RET_STS_ERROR;
1364: raise;
1365: When Others Then
1362: 'on table IBE_MSITE_PRTY_ACCSS');
1363: x_return_status := FND_API.G_RET_STS_ERROR;
1364: raise;
1365: When Others Then
1366: arp_message.set_line('IBE_MERGE_PVT.MERGE_MSITE_PARTY_ACCESS'||sqlerrm);
1367: IBE_UTIL.debug('IBE_MERGE_PVT.MERGE_MSITE_PARTY_ACCESS'||sqlerrm);
1368: x_return_status := FND_API.G_RET_STS_ERROR;
1369: raise;
1370:
1363: x_return_status := FND_API.G_RET_STS_ERROR;
1364: raise;
1365: When Others Then
1366: arp_message.set_line('IBE_MERGE_PVT.MERGE_MSITE_PARTY_ACCESS'||sqlerrm);
1367: IBE_UTIL.debug('IBE_MERGE_PVT.MERGE_MSITE_PARTY_ACCESS'||sqlerrm);
1368: x_return_status := FND_API.G_RET_STS_ERROR;
1369: raise;
1370:
1371:
1433: PRAGMA EXCEPTION_INIT(RESOURCE_BUSY, -0054);
1434:
1435: Begin
1436:
1437: arp_message.set_line('IBE_MERGE_PVT.MERGE_SHARED_QUOTE()+');
1438: IBE_UTIL.debug('IBE_MERGE_PVT.MERGE_SHARED_QUOTE()+');
1439:
1440: x_return_status := FND_API.G_RET_STS_SUCCESS;
1441:
1434:
1435: Begin
1436:
1437: arp_message.set_line('IBE_MERGE_PVT.MERGE_SHARED_QUOTE()+');
1438: IBE_UTIL.debug('IBE_MERGE_PVT.MERGE_SHARED_QUOTE()+');
1439:
1440: x_return_status := FND_API.G_RET_STS_SUCCESS;
1441:
1442: /* Perform the merge operation */
1527:
1528:
1529: End If; --end if p_from_fk_id <> p_to_fk_id Then
1530:
1531: arp_message.set_line('IBE_MERGE_PVT.MERGE_SHARED_QUOTE()-');
1532: IBE_UTIL.debug('IBE_MERGE_PVT.MERGE_SHARED_QUOTE()-');
1533:
1534: Exception
1535: When RESOURCE_BUSY Then
1528:
1529: End If; --end if p_from_fk_id <> p_to_fk_id Then
1530:
1531: arp_message.set_line('IBE_MERGE_PVT.MERGE_SHARED_QUOTE()-');
1532: IBE_UTIL.debug('IBE_MERGE_PVT.MERGE_SHARED_QUOTE()-');
1533:
1534: Exception
1535: When RESOURCE_BUSY Then
1536: arp_message.set_line('IBE_MERGE_PVT.MERGE_SH_QUOTE_ACCESS; Could not obtain lock'||
1532: IBE_UTIL.debug('IBE_MERGE_PVT.MERGE_SHARED_QUOTE()-');
1533:
1534: Exception
1535: When RESOURCE_BUSY Then
1536: arp_message.set_line('IBE_MERGE_PVT.MERGE_SH_QUOTE_ACCESS; Could not obtain lock'||
1537: 'on table IBE_SH_QUOTE_ACCESS');
1538: IBE_UTIL.debug('IBE_MERGE_PVT.MERGE_SH_QUOTE_ACCESS; Could not obtain lock'||
1539: 'on table IBE_SH_QUOTE_ACCESS');
1540: x_return_status := FND_API.G_RET_STS_ERROR;
1534: Exception
1535: When RESOURCE_BUSY Then
1536: arp_message.set_line('IBE_MERGE_PVT.MERGE_SH_QUOTE_ACCESS; Could not obtain lock'||
1537: 'on table IBE_SH_QUOTE_ACCESS');
1538: IBE_UTIL.debug('IBE_MERGE_PVT.MERGE_SH_QUOTE_ACCESS; Could not obtain lock'||
1539: 'on table IBE_SH_QUOTE_ACCESS');
1540: x_return_status := FND_API.G_RET_STS_ERROR;
1541: raise;
1542: When Others Then
1539: 'on table IBE_SH_QUOTE_ACCESS');
1540: x_return_status := FND_API.G_RET_STS_ERROR;
1541: raise;
1542: When Others Then
1543: arp_message.set_line('IBE_MERGE_PVT.MERGE_SH_QUOTE_ACCESS'||sqlerrm);
1544: IBE_UTIL.debug('IBE_MERGE_PVT.MERGE_SH_QUOTE_ACCESS'||sqlerrm);
1545: x_return_status := FND_API.G_RET_STS_ERROR;
1546: raise;
1547: End MERGE_SHARED_QUOTE;
1540: x_return_status := FND_API.G_RET_STS_ERROR;
1541: raise;
1542: When Others Then
1543: arp_message.set_line('IBE_MERGE_PVT.MERGE_SH_QUOTE_ACCESS'||sqlerrm);
1544: IBE_UTIL.debug('IBE_MERGE_PVT.MERGE_SH_QUOTE_ACCESS'||sqlerrm);
1545: x_return_status := FND_API.G_RET_STS_ERROR;
1546: raise;
1547: End MERGE_SHARED_QUOTE;
1548:
1602:
1603:
1604: BEGIN
1605:
1606: arp_message.set_line('IBE_MERGE_PVT.MERGE_ACTIVE_QUOTE()+');
1607: IBE_UTIL.debug('IBE_MERGE_PVT.MERGE_ACTIVE_QUOTE()+');
1608:
1609: x_return_status := FND_API.G_RET_STS_SUCCESS;
1610:
1603:
1604: BEGIN
1605:
1606: arp_message.set_line('IBE_MERGE_PVT.MERGE_ACTIVE_QUOTE()+');
1607: IBE_UTIL.debug('IBE_MERGE_PVT.MERGE_ACTIVE_QUOTE()+');
1608:
1609: x_return_status := FND_API.G_RET_STS_SUCCESS;
1610:
1611:
1648: return;
1649:
1650: END IF;
1651:
1652: arp_message.set_line('IBE_MERGE_PVT.MERGE_ACTIVE_QUOTE()-');
1653: IBE_UTIL.debug('IBE_MERGE_PVT.MERGE_ACTIVE_QUOTE()-');
1654:
1655: Exception
1656: When RESOURCE_BUSY Then
1649:
1650: END IF;
1651:
1652: arp_message.set_line('IBE_MERGE_PVT.MERGE_ACTIVE_QUOTE()-');
1653: IBE_UTIL.debug('IBE_MERGE_PVT.MERGE_ACTIVE_QUOTE()-');
1654:
1655: Exception
1656: When RESOURCE_BUSY Then
1657: arp_message.set_line('IBE_MERGE_PVT.MERGE_ACTIVE_QUOTE; Could not obtain lock'||
1653: IBE_UTIL.debug('IBE_MERGE_PVT.MERGE_ACTIVE_QUOTE()-');
1654:
1655: Exception
1656: When RESOURCE_BUSY Then
1657: arp_message.set_line('IBE_MERGE_PVT.MERGE_ACTIVE_QUOTE; Could not obtain lock'||
1658: 'on table IBE_ACTIVE_QUOTES_ALL');
1659: IBE_UTIL.debug('IBE_MERGE_PVT.MERGE_ACTIVE_QUOTE; Could not obtain lock'||
1660: 'on table IBE_ACTIVE_QUOTES_ALL');
1661: x_return_status := FND_API.G_RET_STS_ERROR;
1655: Exception
1656: When RESOURCE_BUSY Then
1657: arp_message.set_line('IBE_MERGE_PVT.MERGE_ACTIVE_QUOTE; Could not obtain lock'||
1658: 'on table IBE_ACTIVE_QUOTES_ALL');
1659: IBE_UTIL.debug('IBE_MERGE_PVT.MERGE_ACTIVE_QUOTE; Could not obtain lock'||
1660: 'on table IBE_ACTIVE_QUOTES_ALL');
1661: x_return_status := FND_API.G_RET_STS_ERROR;
1662: raise;
1663: When Others Then
1660: 'on table IBE_ACTIVE_QUOTES_ALL');
1661: x_return_status := FND_API.G_RET_STS_ERROR;
1662: raise;
1663: When Others Then
1664: arp_message.set_line('IBE_MERGE_PVT.MERGE_ACTIVE_QUOTE'||sqlerrm);
1665: IBE_UTIL.debug('IBE_MERGE_PVT.MERGE_ACTIVE_QUOTE'||sqlerrm);
1666: x_return_status := FND_API.G_RET_STS_ERROR;
1667: raise;
1668: END MERGE_ACTIVE_QUOTE;
1661: x_return_status := FND_API.G_RET_STS_ERROR;
1662: raise;
1663: When Others Then
1664: arp_message.set_line('IBE_MERGE_PVT.MERGE_ACTIVE_QUOTE'||sqlerrm);
1665: IBE_UTIL.debug('IBE_MERGE_PVT.MERGE_ACTIVE_QUOTE'||sqlerrm);
1666: x_return_status := FND_API.G_RET_STS_ERROR;
1667: raise;
1668: END MERGE_ACTIVE_QUOTE;
1669:
1666: x_return_status := FND_API.G_RET_STS_ERROR;
1667: raise;
1668: END MERGE_ACTIVE_QUOTE;
1669:
1670: End IBE_MERGE_PVT;
1671: