152: --
153: -- API body
154: --
155: IF l_hdr_rec.org_id IS NULL THEN
156: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
157: FND_MESSAGE.set_token('ID', 'Org ID');
158: FND_MSG_PUB.add;
159: RAISE FND_API.G_EXC_ERROR;
160: ELSIF l_hdr_rec.effective_start_date IS NULL THEN
153: -- API body
154: --
155: IF l_hdr_rec.org_id IS NULL THEN
156: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
157: FND_MESSAGE.set_token('ID', 'Org ID');
158: FND_MSG_PUB.add;
159: RAISE FND_API.G_EXC_ERROR;
160: ELSIF l_hdr_rec.effective_start_date IS NULL THEN
161: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
157: FND_MESSAGE.set_token('ID', 'Org ID');
158: FND_MSG_PUB.add;
159: RAISE FND_API.G_EXC_ERROR;
160: ELSIF l_hdr_rec.effective_start_date IS NULL THEN
161: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
162: FND_MESSAGE.set_token('ID', 'Effective Start Date');
163: FND_MSG_PUB.add;
164: RAISE FND_API.G_EXC_ERROR;
165: ELSIF l_hdr_rec.effective_end_date IS NULL THEN
158: FND_MSG_PUB.add;
159: RAISE FND_API.G_EXC_ERROR;
160: ELSIF l_hdr_rec.effective_start_date IS NULL THEN
161: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
162: FND_MESSAGE.set_token('ID', 'Effective Start Date');
163: FND_MSG_PUB.add;
164: RAISE FND_API.G_EXC_ERROR;
165: ELSIF l_hdr_rec.effective_end_date IS NULL THEN
166: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
162: FND_MESSAGE.set_token('ID', 'Effective Start Date');
163: FND_MSG_PUB.add;
164: RAISE FND_API.G_EXC_ERROR;
165: ELSIF l_hdr_rec.effective_end_date IS NULL THEN
166: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
167: FND_MESSAGE.set_token('ID', 'Effective End Date');
168: FND_MSG_PUB.add;
169: RAISE FND_API.G_EXC_ERROR;
170: ELSE
163: FND_MSG_PUB.add;
164: RAISE FND_API.G_EXC_ERROR;
165: ELSIF l_hdr_rec.effective_end_date IS NULL THEN
166: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
167: FND_MESSAGE.set_token('ID', 'Effective End Date');
168: FND_MSG_PUB.add;
169: RAISE FND_API.G_EXC_ERROR;
170: ELSE
171: FOR i IN l_covered_inv_tbl.FIRST..l_covered_inv_tbl.LAST LOOP
169: RAISE FND_API.G_EXC_ERROR;
170: ELSE
171: FOR i IN l_covered_inv_tbl.FIRST..l_covered_inv_tbl.LAST LOOP
172: IF l_covered_inv_tbl(i).Transaction_Line_Id IS NULL THEN
173: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
174: FND_MESSAGE.set_token('ID', 'Transaction Line ID');
175: FND_MSG_PUB.add;
176: RAISE FND_API.G_EXC_ERROR;
177: ELSIF l_covered_inv_tbl(i).inventory_item_id IS NULL THEN
170: ELSE
171: FOR i IN l_covered_inv_tbl.FIRST..l_covered_inv_tbl.LAST LOOP
172: IF l_covered_inv_tbl(i).Transaction_Line_Id IS NULL THEN
173: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
174: FND_MESSAGE.set_token('ID', 'Transaction Line ID');
175: FND_MSG_PUB.add;
176: RAISE FND_API.G_EXC_ERROR;
177: ELSIF l_covered_inv_tbl(i).inventory_item_id IS NULL THEN
178: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
174: FND_MESSAGE.set_token('ID', 'Transaction Line ID');
175: FND_MSG_PUB.add;
176: RAISE FND_API.G_EXC_ERROR;
177: ELSIF l_covered_inv_tbl(i).inventory_item_id IS NULL THEN
178: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
179: FND_MESSAGE.set_token('ID', 'Inventory Item ID');
180: FND_MSG_PUB.add;
181: RAISE FND_API.G_EXC_ERROR;
182: ELSE
175: FND_MSG_PUB.add;
176: RAISE FND_API.G_EXC_ERROR;
177: ELSIF l_covered_inv_tbl(i).inventory_item_id IS NULL THEN
178: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
179: FND_MESSAGE.set_token('ID', 'Inventory Item ID');
180: FND_MSG_PUB.add;
181: RAISE FND_API.G_EXC_ERROR;
182: ELSE
183: FOR get_covered_inventory_rec IN get_covered_inventory_csr(l_hdr_rec.org_id, l_hdr_rec.effective_start_date, l_hdr_rec.effective_end_date, l_covered_inv_tbl(i).Inventory_ITem_ID)
299:
300: WHEN OTHERS THEN
301: ROLLBACK TO Select_CoveredInventory_PVT;
302: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
303: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
304: fnd_message.set_token('ROUTINE', 'DPP_COVEREDINVENTORY_PVT.Select_CoveredInventory');
305: fnd_message.set_token('ERRNO', sqlcode);
306: fnd_message.set_token('REASON', sqlerrm);
307: FND_MSG_PUB.add;
300: WHEN OTHERS THEN
301: ROLLBACK TO Select_CoveredInventory_PVT;
302: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
303: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
304: fnd_message.set_token('ROUTINE', 'DPP_COVEREDINVENTORY_PVT.Select_CoveredInventory');
305: fnd_message.set_token('ERRNO', sqlcode);
306: fnd_message.set_token('REASON', sqlerrm);
307: FND_MSG_PUB.add;
308: -- Standard call to get message count and if count=1, get the message
301: ROLLBACK TO Select_CoveredInventory_PVT;
302: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
303: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
304: fnd_message.set_token('ROUTINE', 'DPP_COVEREDINVENTORY_PVT.Select_CoveredInventory');
305: fnd_message.set_token('ERRNO', sqlcode);
306: fnd_message.set_token('REASON', sqlerrm);
307: FND_MSG_PUB.add;
308: -- Standard call to get message count and if count=1, get the message
309: FND_MSG_PUB.Count_And_Get (
302: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
303: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
304: fnd_message.set_token('ROUTINE', 'DPP_COVEREDINVENTORY_PVT.Select_CoveredInventory');
305: fnd_message.set_token('ERRNO', sqlcode);
306: fnd_message.set_token('REASON', sqlerrm);
307: FND_MSG_PUB.add;
308: -- Standard call to get message count and if count=1, get the message
309: FND_MSG_PUB.Count_And_Get (
310: p_encoded => FND_API.G_FALSE,
493:
494: WHEN OTHERS THEN
495: ROLLBACK TO Populate_CoveredInventory_PVT;
496: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
497: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
498: fnd_message.set_token('ROUTINE', 'DPP_COVEREDINVENTORY_PVT.Populate_CoveredInventory');
499: fnd_message.set_token('ERRNO', sqlcode);
500: fnd_message.set_token('REASON', sqlerrm);
501: FND_MSG_PUB.add;
494: WHEN OTHERS THEN
495: ROLLBACK TO Populate_CoveredInventory_PVT;
496: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
497: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
498: fnd_message.set_token('ROUTINE', 'DPP_COVEREDINVENTORY_PVT.Populate_CoveredInventory');
499: fnd_message.set_token('ERRNO', sqlcode);
500: fnd_message.set_token('REASON', sqlerrm);
501: FND_MSG_PUB.add;
502: -- Standard call to get message count and if count=1, get the message
495: ROLLBACK TO Populate_CoveredInventory_PVT;
496: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
497: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
498: fnd_message.set_token('ROUTINE', 'DPP_COVEREDINVENTORY_PVT.Populate_CoveredInventory');
499: fnd_message.set_token('ERRNO', sqlcode);
500: fnd_message.set_token('REASON', sqlerrm);
501: FND_MSG_PUB.add;
502: -- Standard call to get message count and if count=1, get the message
503: FND_MSG_PUB.Count_And_Get (
496: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
497: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
498: fnd_message.set_token('ROUTINE', 'DPP_COVEREDINVENTORY_PVT.Populate_CoveredInventory');
499: fnd_message.set_token('ERRNO', sqlcode);
500: fnd_message.set_token('REASON', sqlerrm);
501: FND_MSG_PUB.add;
502: -- Standard call to get message count and if count=1, get the message
503: FND_MSG_PUB.Count_And_Get (
504: p_encoded => FND_API.G_FALSE,
578: -- API body
579: --
580: --Check whether the last updated by value is passed
581: IF l_inv_hdr_rec.Last_Updated_By IS NULL THEN
582: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
583: FND_MESSAGE.set_token('ID', 'Last Updated By');
584: FND_MSG_PUB.add;
585: RAISE FND_API.G_EXC_ERROR;
586: ELSIF l_inv_hdr_rec.effective_start_date IS NULL THEN
579: --
580: --Check whether the last updated by value is passed
581: IF l_inv_hdr_rec.Last_Updated_By IS NULL THEN
582: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
583: FND_MESSAGE.set_token('ID', 'Last Updated By');
584: FND_MSG_PUB.add;
585: RAISE FND_API.G_EXC_ERROR;
586: ELSIF l_inv_hdr_rec.effective_start_date IS NULL THEN
587: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
583: FND_MESSAGE.set_token('ID', 'Last Updated By');
584: FND_MSG_PUB.add;
585: RAISE FND_API.G_EXC_ERROR;
586: ELSIF l_inv_hdr_rec.effective_start_date IS NULL THEN
587: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
588: FND_MESSAGE.set_token('ID', 'Effective Start Date');
589: FND_MSG_PUB.add;
590: RAISE FND_API.G_EXC_ERROR;
591: ELSIF l_inv_hdr_rec.effective_end_date IS NULL THEN
584: FND_MSG_PUB.add;
585: RAISE FND_API.G_EXC_ERROR;
586: ELSIF l_inv_hdr_rec.effective_start_date IS NULL THEN
587: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
588: FND_MESSAGE.set_token('ID', 'Effective Start Date');
589: FND_MSG_PUB.add;
590: RAISE FND_API.G_EXC_ERROR;
591: ELSIF l_inv_hdr_rec.effective_end_date IS NULL THEN
592: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
588: FND_MESSAGE.set_token('ID', 'Effective Start Date');
589: FND_MSG_PUB.add;
590: RAISE FND_API.G_EXC_ERROR;
591: ELSIF l_inv_hdr_rec.effective_end_date IS NULL THEN
592: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
593: FND_MESSAGE.set_token('ID', 'Effective End Date');
594: FND_MSG_PUB.add;
595: RAISE FND_API.G_EXC_ERROR;
596: END IF;
589: FND_MSG_PUB.add;
590: RAISE FND_API.G_EXC_ERROR;
591: ELSIF l_inv_hdr_rec.effective_end_date IS NULL THEN
592: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
593: FND_MESSAGE.set_token('ID', 'Effective End Date');
594: FND_MSG_PUB.add;
595: RAISE FND_API.G_EXC_ERROR;
596: END IF;
597:
596: END IF;
597:
598: FOR i IN l_covered_inv_tbl.FIRST..l_covered_inv_tbl.LAST LOOP
599: IF l_covered_inv_tbl(i).Transaction_Line_Id IS NULL THEN
600: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
601: FND_MESSAGE.set_token('ID', 'Transaction Line ID');
602: FND_MSG_PUB.add;
603: RAISE FND_API.G_EXC_ERROR;
604: ELSIF
597:
598: FOR i IN l_covered_inv_tbl.FIRST..l_covered_inv_tbl.LAST LOOP
599: IF l_covered_inv_tbl(i).Transaction_Line_Id IS NULL THEN
600: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
601: FND_MESSAGE.set_token('ID', 'Transaction Line ID');
602: FND_MSG_PUB.add;
603: RAISE FND_API.G_EXC_ERROR;
604: ELSIF
605: l_covered_inv_tbl(i).inventory_item_id IS NULL THEN
602: FND_MSG_PUB.add;
603: RAISE FND_API.G_EXC_ERROR;
604: ELSIF
605: l_covered_inv_tbl(i).inventory_item_id IS NULL THEN
606: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
607: FND_MESSAGE.set_token('ID', 'Inventory Item ID');
608: FND_MSG_PUB.add;
609: RAISE FND_API.G_EXC_ERROR;
610: ELSIF
603: RAISE FND_API.G_EXC_ERROR;
604: ELSIF
605: l_covered_inv_tbl(i).inventory_item_id IS NULL THEN
606: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
607: FND_MESSAGE.set_token('ID', 'Inventory Item ID');
608: FND_MSG_PUB.add;
609: RAISE FND_API.G_EXC_ERROR;
610: ELSIF
611: l_covered_inv_tbl(i).UOM_Code IS NULL THEN
608: FND_MSG_PUB.add;
609: RAISE FND_API.G_EXC_ERROR;
610: ELSIF
611: l_covered_inv_tbl(i).UOM_Code IS NULL THEN
612: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
613: FND_MESSAGE.set_token('ID', 'UOM Code');
614: FND_MSG_PUB.add;
615: RAISE FND_API.G_EXC_ERROR;
616: ELSE
609: RAISE FND_API.G_EXC_ERROR;
610: ELSIF
611: l_covered_inv_tbl(i).UOM_Code IS NULL THEN
612: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
613: FND_MESSAGE.set_token('ID', 'UOM Code');
614: FND_MSG_PUB.add;
615: RAISE FND_API.G_EXC_ERROR;
616: ELSE
617: BEGIN
649: AND ostp.org_id = to_number(dtha.org_id)
650: AND dtha.transaction_header_id = l_inv_hdr_rec.transaction_header_id;
651: EXCEPTION
652: WHEN NO_DATA_FOUND THEN
653: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
654: fnd_message.set_token('ROUTINE', 'DPP_BUSINESSEVENTS_PVT');
655: fnd_message.set_token('ERRNO', sqlcode);
656: fnd_message.set_token('REASON', 'SUPPLIER TRADE PROFILE IS NOT FOUND'); --To be modified
657: FND_MSG_PUB.add;
650: AND dtha.transaction_header_id = l_inv_hdr_rec.transaction_header_id;
651: EXCEPTION
652: WHEN NO_DATA_FOUND THEN
653: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
654: fnd_message.set_token('ROUTINE', 'DPP_BUSINESSEVENTS_PVT');
655: fnd_message.set_token('ERRNO', sqlcode);
656: fnd_message.set_token('REASON', 'SUPPLIER TRADE PROFILE IS NOT FOUND'); --To be modified
657: FND_MSG_PUB.add;
658: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
651: EXCEPTION
652: WHEN NO_DATA_FOUND THEN
653: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
654: fnd_message.set_token('ROUTINE', 'DPP_BUSINESSEVENTS_PVT');
655: fnd_message.set_token('ERRNO', sqlcode);
656: fnd_message.set_token('REASON', 'SUPPLIER TRADE PROFILE IS NOT FOUND'); --To be modified
657: FND_MSG_PUB.add;
658: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
659: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
652: WHEN NO_DATA_FOUND THEN
653: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
654: fnd_message.set_token('ROUTINE', 'DPP_BUSINESSEVENTS_PVT');
655: fnd_message.set_token('ERRNO', sqlcode);
656: fnd_message.set_token('REASON', 'SUPPLIER TRADE PROFILE IS NOT FOUND'); --To be modified
657: FND_MSG_PUB.add;
658: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
659: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
660: END IF;
659: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
660: END IF;
661: RAISE FND_API.g_exc_error;
662: WHEN OTHERS THEN
663: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
664: fnd_message.set_token('ROUTINE', 'DPP_BUSINESSEVENTS_PVT');
665: fnd_message.set_token('ERRNO', sqlcode);
666: fnd_message.set_token('REASON', sqlerrm);
667: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
660: END IF;
661: RAISE FND_API.g_exc_error;
662: WHEN OTHERS THEN
663: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
664: fnd_message.set_token('ROUTINE', 'DPP_BUSINESSEVENTS_PVT');
665: fnd_message.set_token('ERRNO', sqlcode);
666: fnd_message.set_token('REASON', sqlerrm);
667: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
668: FND_MESSAGE.set_name('DPP', 'DPP_BUSEVT_INVALID_EXE_DET_ID'); --To be modified
661: RAISE FND_API.g_exc_error;
662: WHEN OTHERS THEN
663: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
664: fnd_message.set_token('ROUTINE', 'DPP_BUSINESSEVENTS_PVT');
665: fnd_message.set_token('ERRNO', sqlcode);
666: fnd_message.set_token('REASON', sqlerrm);
667: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
668: FND_MESSAGE.set_name('DPP', 'DPP_BUSEVT_INVALID_EXE_DET_ID'); --To be modified
669: fnd_message.set_token('SEQ_NAME', 'DPP_EXECUTION_DETAIL_ID_SEQ'); --To be modified
662: WHEN OTHERS THEN
663: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
664: fnd_message.set_token('ROUTINE', 'DPP_BUSINESSEVENTS_PVT');
665: fnd_message.set_token('ERRNO', sqlcode);
666: fnd_message.set_token('REASON', sqlerrm);
667: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
668: FND_MESSAGE.set_name('DPP', 'DPP_BUSEVT_INVALID_EXE_DET_ID'); --To be modified
669: fnd_message.set_token('SEQ_NAME', 'DPP_EXECUTION_DETAIL_ID_SEQ'); --To be modified
670: FND_MSG_PUB.add;
664: fnd_message.set_token('ROUTINE', 'DPP_BUSINESSEVENTS_PVT');
665: fnd_message.set_token('ERRNO', sqlcode);
666: fnd_message.set_token('REASON', sqlerrm);
667: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
668: FND_MESSAGE.set_name('DPP', 'DPP_BUSEVT_INVALID_EXE_DET_ID'); --To be modified
669: fnd_message.set_token('SEQ_NAME', 'DPP_EXECUTION_DETAIL_ID_SEQ'); --To be modified
670: FND_MSG_PUB.add;
671: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
672: END IF;
665: fnd_message.set_token('ERRNO', sqlcode);
666: fnd_message.set_token('REASON', sqlerrm);
667: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
668: FND_MESSAGE.set_name('DPP', 'DPP_BUSEVT_INVALID_EXE_DET_ID'); --To be modified
669: fnd_message.set_token('SEQ_NAME', 'DPP_EXECUTION_DETAIL_ID_SEQ'); --To be modified
670: FND_MSG_PUB.add;
671: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
672: END IF;
673: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
742: WHEN NO_DATA_FOUND THEN
743: NULL;
744: WHEN OTHERS THEN
745: IF g_debug THEN
746: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
747: fnd_message.set_token('ROUTINE', 'DPP_COVEREDINVENTORY_PVT.Update_CoveredInventory - Delete rows');
748: fnd_message.set_token('ERRNO', sqlcode);
749: fnd_message.set_token('REASON', sqlerrm);
750: FND_MSG_PUB.add;
743: NULL;
744: WHEN OTHERS THEN
745: IF g_debug THEN
746: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
747: fnd_message.set_token('ROUTINE', 'DPP_COVEREDINVENTORY_PVT.Update_CoveredInventory - Delete rows');
748: fnd_message.set_token('ERRNO', sqlcode);
749: fnd_message.set_token('REASON', sqlerrm);
750: FND_MSG_PUB.add;
751: END IF;
744: WHEN OTHERS THEN
745: IF g_debug THEN
746: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
747: fnd_message.set_token('ROUTINE', 'DPP_COVEREDINVENTORY_PVT.Update_CoveredInventory - Delete rows');
748: fnd_message.set_token('ERRNO', sqlcode);
749: fnd_message.set_token('REASON', sqlerrm);
750: FND_MSG_PUB.add;
751: END IF;
752: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
745: IF g_debug THEN
746: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
747: fnd_message.set_token('ROUTINE', 'DPP_COVEREDINVENTORY_PVT.Update_CoveredInventory - Delete rows');
748: fnd_message.set_token('ERRNO', sqlcode);
749: fnd_message.set_token('REASON', sqlerrm);
750: FND_MSG_PUB.add;
751: END IF;
752: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
753: END;
939:
940: WHEN OTHERS THEN
941: ROLLBACK TO Update_CoveredInventory_PVT;
942: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
943: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
944: fnd_message.set_token('ROUTINE', 'DPP_COVEREDINVENTORY_PVT.Update_CoveredInventory');
945: fnd_message.set_token('ERRNO', sqlcode);
946: fnd_message.set_token('REASON', sqlerrm);
947: FND_MSG_PUB.add;
940: WHEN OTHERS THEN
941: ROLLBACK TO Update_CoveredInventory_PVT;
942: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
943: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
944: fnd_message.set_token('ROUTINE', 'DPP_COVEREDINVENTORY_PVT.Update_CoveredInventory');
945: fnd_message.set_token('ERRNO', sqlcode);
946: fnd_message.set_token('REASON', sqlerrm);
947: FND_MSG_PUB.add;
948: -- Standard call to get message count and if count=1, get the message
941: ROLLBACK TO Update_CoveredInventory_PVT;
942: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
943: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
944: fnd_message.set_token('ROUTINE', 'DPP_COVEREDINVENTORY_PVT.Update_CoveredInventory');
945: fnd_message.set_token('ERRNO', sqlcode);
946: fnd_message.set_token('REASON', sqlerrm);
947: FND_MSG_PUB.add;
948: -- Standard call to get message count and if count=1, get the message
949: FND_MSG_PUB.Count_And_Get (
942: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
943: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
944: fnd_message.set_token('ROUTINE', 'DPP_COVEREDINVENTORY_PVT.Update_CoveredInventory');
945: fnd_message.set_token('ERRNO', sqlcode);
946: fnd_message.set_token('REASON', sqlerrm);
947: FND_MSG_PUB.add;
948: -- Standard call to get message count and if count=1, get the message
949: FND_MSG_PUB.Count_And_Get (
950: p_encoded => FND_API.G_FALSE,