153: --
154: -- API body
155: --
156: IF l_hdr_rec.org_id IS NULL THEN
157: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
158: FND_MESSAGE.set_token('ID', 'Org ID');
159: FND_MSG_PUB.add;
160: RAISE FND_API.G_EXC_ERROR;
161: ELSIF l_hdr_rec.effective_start_date IS NULL THEN
154: -- API body
155: --
156: IF l_hdr_rec.org_id IS NULL THEN
157: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
158: FND_MESSAGE.set_token('ID', 'Org ID');
159: FND_MSG_PUB.add;
160: RAISE FND_API.G_EXC_ERROR;
161: ELSIF l_hdr_rec.effective_start_date IS NULL THEN
162: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
158: FND_MESSAGE.set_token('ID', 'Org ID');
159: FND_MSG_PUB.add;
160: RAISE FND_API.G_EXC_ERROR;
161: ELSIF l_hdr_rec.effective_start_date IS NULL THEN
162: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
163: FND_MESSAGE.set_token('ID', 'Effective Start Date');
164: FND_MSG_PUB.add;
165: RAISE FND_API.G_EXC_ERROR;
166: ELSIF l_hdr_rec.effective_end_date IS NULL THEN
159: FND_MSG_PUB.add;
160: RAISE FND_API.G_EXC_ERROR;
161: ELSIF l_hdr_rec.effective_start_date IS NULL THEN
162: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
163: FND_MESSAGE.set_token('ID', 'Effective Start Date');
164: FND_MSG_PUB.add;
165: RAISE FND_API.G_EXC_ERROR;
166: ELSIF l_hdr_rec.effective_end_date IS NULL THEN
167: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
163: FND_MESSAGE.set_token('ID', 'Effective Start Date');
164: FND_MSG_PUB.add;
165: RAISE FND_API.G_EXC_ERROR;
166: ELSIF l_hdr_rec.effective_end_date IS NULL THEN
167: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
168: FND_MESSAGE.set_token('ID', 'Effective End Date');
169: FND_MSG_PUB.add;
170: RAISE FND_API.G_EXC_ERROR;
171: ELSE
164: FND_MSG_PUB.add;
165: RAISE FND_API.G_EXC_ERROR;
166: ELSIF l_hdr_rec.effective_end_date IS NULL THEN
167: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
168: FND_MESSAGE.set_token('ID', 'Effective End Date');
169: FND_MSG_PUB.add;
170: RAISE FND_API.G_EXC_ERROR;
171: ELSE
172: FOR i IN l_covered_inv_tbl.FIRST..l_covered_inv_tbl.LAST LOOP
170: RAISE FND_API.G_EXC_ERROR;
171: ELSE
172: FOR i IN l_covered_inv_tbl.FIRST..l_covered_inv_tbl.LAST LOOP
173: IF l_covered_inv_tbl(i).Transaction_Line_Id IS NULL THEN
174: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
175: FND_MESSAGE.set_token('ID', 'Transaction Line ID');
176: FND_MSG_PUB.add;
177: RAISE FND_API.G_EXC_ERROR;
178: ELSIF l_covered_inv_tbl(i).inventory_item_id IS NULL THEN
171: ELSE
172: FOR i IN l_covered_inv_tbl.FIRST..l_covered_inv_tbl.LAST LOOP
173: IF l_covered_inv_tbl(i).Transaction_Line_Id IS NULL THEN
174: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
175: FND_MESSAGE.set_token('ID', 'Transaction Line ID');
176: FND_MSG_PUB.add;
177: RAISE FND_API.G_EXC_ERROR;
178: ELSIF l_covered_inv_tbl(i).inventory_item_id IS NULL THEN
179: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
175: FND_MESSAGE.set_token('ID', 'Transaction Line ID');
176: FND_MSG_PUB.add;
177: RAISE FND_API.G_EXC_ERROR;
178: ELSIF l_covered_inv_tbl(i).inventory_item_id IS NULL THEN
179: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
180: FND_MESSAGE.set_token('ID', 'Inventory Item ID');
181: FND_MSG_PUB.add;
182: RAISE FND_API.G_EXC_ERROR;
183: ELSE
176: FND_MSG_PUB.add;
177: RAISE FND_API.G_EXC_ERROR;
178: ELSIF l_covered_inv_tbl(i).inventory_item_id IS NULL THEN
179: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
180: FND_MESSAGE.set_token('ID', 'Inventory Item ID');
181: FND_MSG_PUB.add;
182: RAISE FND_API.G_EXC_ERROR;
183: ELSE
184: 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)
302:
303: WHEN OTHERS THEN
304: ROLLBACK TO Select_CoveredInventory_PVT;
305: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
306: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
307: fnd_message.set_token('ROUTINE', 'DPP_COVEREDINVENTORY_PVT.Select_CoveredInventory');
308: fnd_message.set_token('ERRNO', sqlcode);
309: fnd_message.set_token('REASON', sqlerrm);
310: FND_MSG_PUB.add;
303: WHEN OTHERS THEN
304: ROLLBACK TO Select_CoveredInventory_PVT;
305: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
306: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
307: fnd_message.set_token('ROUTINE', 'DPP_COVEREDINVENTORY_PVT.Select_CoveredInventory');
308: fnd_message.set_token('ERRNO', sqlcode);
309: fnd_message.set_token('REASON', sqlerrm);
310: FND_MSG_PUB.add;
311: -- Standard call to get message count and if count=1, get the message
304: ROLLBACK TO Select_CoveredInventory_PVT;
305: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
306: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
307: fnd_message.set_token('ROUTINE', 'DPP_COVEREDINVENTORY_PVT.Select_CoveredInventory');
308: fnd_message.set_token('ERRNO', sqlcode);
309: fnd_message.set_token('REASON', sqlerrm);
310: FND_MSG_PUB.add;
311: -- Standard call to get message count and if count=1, get the message
312: FND_MSG_PUB.Count_And_Get (
305: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
306: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
307: fnd_message.set_token('ROUTINE', 'DPP_COVEREDINVENTORY_PVT.Select_CoveredInventory');
308: fnd_message.set_token('ERRNO', sqlcode);
309: fnd_message.set_token('REASON', sqlerrm);
310: FND_MSG_PUB.add;
311: -- Standard call to get message count and if count=1, get the message
312: FND_MSG_PUB.Count_And_Get (
313: p_encoded => FND_API.G_FALSE,
501:
502: WHEN OTHERS THEN
503: ROLLBACK TO Populate_CoveredInventory_PVT;
504: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
505: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
506: fnd_message.set_token('ROUTINE', 'DPP_COVEREDINVENTORY_PVT.Populate_CoveredInventory');
507: fnd_message.set_token('ERRNO', sqlcode);
508: fnd_message.set_token('REASON', sqlerrm);
509: FND_MSG_PUB.add;
502: WHEN OTHERS THEN
503: ROLLBACK TO Populate_CoveredInventory_PVT;
504: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
505: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
506: fnd_message.set_token('ROUTINE', 'DPP_COVEREDINVENTORY_PVT.Populate_CoveredInventory');
507: fnd_message.set_token('ERRNO', sqlcode);
508: fnd_message.set_token('REASON', sqlerrm);
509: FND_MSG_PUB.add;
510: -- Standard call to get message count and if count=1, get the message
503: ROLLBACK TO Populate_CoveredInventory_PVT;
504: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
505: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
506: fnd_message.set_token('ROUTINE', 'DPP_COVEREDINVENTORY_PVT.Populate_CoveredInventory');
507: fnd_message.set_token('ERRNO', sqlcode);
508: fnd_message.set_token('REASON', sqlerrm);
509: FND_MSG_PUB.add;
510: -- Standard call to get message count and if count=1, get the message
511: FND_MSG_PUB.Count_And_Get (
504: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
505: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
506: fnd_message.set_token('ROUTINE', 'DPP_COVEREDINVENTORY_PVT.Populate_CoveredInventory');
507: fnd_message.set_token('ERRNO', sqlcode);
508: fnd_message.set_token('REASON', sqlerrm);
509: FND_MSG_PUB.add;
510: -- Standard call to get message count and if count=1, get the message
511: FND_MSG_PUB.Count_And_Get (
512: p_encoded => FND_API.G_FALSE,
584: -- API body
585: --
586: --Check whether the last updated by value is passed
587: IF l_inv_hdr_rec.Last_Updated_By IS NULL THEN
588: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
589: FND_MESSAGE.set_token('ID', 'Last Updated By');
590: FND_MSG_PUB.add;
591: RAISE FND_API.G_EXC_ERROR;
592: ELSIF l_inv_hdr_rec.effective_start_date IS NULL THEN
585: --
586: --Check whether the last updated by value is passed
587: IF l_inv_hdr_rec.Last_Updated_By IS NULL THEN
588: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
589: FND_MESSAGE.set_token('ID', 'Last Updated By');
590: FND_MSG_PUB.add;
591: RAISE FND_API.G_EXC_ERROR;
592: ELSIF l_inv_hdr_rec.effective_start_date IS NULL THEN
593: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
589: FND_MESSAGE.set_token('ID', 'Last Updated By');
590: FND_MSG_PUB.add;
591: RAISE FND_API.G_EXC_ERROR;
592: ELSIF l_inv_hdr_rec.effective_start_date IS NULL THEN
593: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
594: FND_MESSAGE.set_token('ID', 'Effective Start Date');
595: FND_MSG_PUB.add;
596: RAISE FND_API.G_EXC_ERROR;
597: ELSIF l_inv_hdr_rec.effective_end_date IS NULL THEN
590: FND_MSG_PUB.add;
591: RAISE FND_API.G_EXC_ERROR;
592: ELSIF l_inv_hdr_rec.effective_start_date IS NULL THEN
593: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
594: FND_MESSAGE.set_token('ID', 'Effective Start Date');
595: FND_MSG_PUB.add;
596: RAISE FND_API.G_EXC_ERROR;
597: ELSIF l_inv_hdr_rec.effective_end_date IS NULL THEN
598: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
594: FND_MESSAGE.set_token('ID', 'Effective Start Date');
595: FND_MSG_PUB.add;
596: RAISE FND_API.G_EXC_ERROR;
597: ELSIF l_inv_hdr_rec.effective_end_date IS NULL THEN
598: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
599: FND_MESSAGE.set_token('ID', 'Effective End Date');
600: FND_MSG_PUB.add;
601: RAISE FND_API.G_EXC_ERROR;
602: END IF;
595: FND_MSG_PUB.add;
596: RAISE FND_API.G_EXC_ERROR;
597: ELSIF l_inv_hdr_rec.effective_end_date IS NULL THEN
598: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
599: FND_MESSAGE.set_token('ID', 'Effective End Date');
600: FND_MSG_PUB.add;
601: RAISE FND_API.G_EXC_ERROR;
602: END IF;
603:
602: END IF;
603:
604: FOR i IN l_covered_inv_tbl.FIRST..l_covered_inv_tbl.LAST LOOP
605: IF l_covered_inv_tbl(i).Transaction_Line_Id IS NULL THEN
606: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
607: FND_MESSAGE.set_token('ID', 'Transaction Line ID');
608: FND_MSG_PUB.add;
609: RAISE FND_API.G_EXC_ERROR;
610: ELSIF
603:
604: FOR i IN l_covered_inv_tbl.FIRST..l_covered_inv_tbl.LAST LOOP
605: IF l_covered_inv_tbl(i).Transaction_Line_Id IS NULL THEN
606: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
607: FND_MESSAGE.set_token('ID', 'Transaction Line ID');
608: FND_MSG_PUB.add;
609: RAISE FND_API.G_EXC_ERROR;
610: ELSIF
611: l_covered_inv_tbl(i).inventory_item_id IS NULL THEN
608: FND_MSG_PUB.add;
609: RAISE FND_API.G_EXC_ERROR;
610: ELSIF
611: l_covered_inv_tbl(i).inventory_item_id IS NULL THEN
612: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
613: FND_MESSAGE.set_token('ID', 'Inventory Item ID');
614: FND_MSG_PUB.add;
615: RAISE FND_API.G_EXC_ERROR;
616: ELSIF
609: RAISE FND_API.G_EXC_ERROR;
610: ELSIF
611: l_covered_inv_tbl(i).inventory_item_id IS NULL THEN
612: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
613: FND_MESSAGE.set_token('ID', 'Inventory Item ID');
614: FND_MSG_PUB.add;
615: RAISE FND_API.G_EXC_ERROR;
616: ELSIF
617: l_covered_inv_tbl(i).UOM_Code IS NULL THEN
614: FND_MSG_PUB.add;
615: RAISE FND_API.G_EXC_ERROR;
616: ELSIF
617: l_covered_inv_tbl(i).UOM_Code IS NULL THEN
618: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
619: FND_MESSAGE.set_token('ID', 'UOM Code');
620: FND_MSG_PUB.add;
621: RAISE FND_API.G_EXC_ERROR;
622: ELSE
615: RAISE FND_API.G_EXC_ERROR;
616: ELSIF
617: l_covered_inv_tbl(i).UOM_Code IS NULL THEN
618: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
619: FND_MESSAGE.set_token('ID', 'UOM Code');
620: FND_MSG_PUB.add;
621: RAISE FND_API.G_EXC_ERROR;
622: ELSE
623: BEGIN
687: WHEN NO_DATA_FOUND THEN
688: NULL;
689: WHEN OTHERS THEN
690: IF g_debug THEN
691: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
692: fnd_message.set_token('ROUTINE', 'DPP_COVEREDINVENTORY_PVT.Update_CoveredInventory - Delete rows');
693: fnd_message.set_token('ERRNO', sqlcode);
694: fnd_message.set_token('REASON', sqlerrm);
695: FND_MSG_PUB.add;
688: NULL;
689: WHEN OTHERS THEN
690: IF g_debug THEN
691: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
692: fnd_message.set_token('ROUTINE', 'DPP_COVEREDINVENTORY_PVT.Update_CoveredInventory - Delete rows');
693: fnd_message.set_token('ERRNO', sqlcode);
694: fnd_message.set_token('REASON', sqlerrm);
695: FND_MSG_PUB.add;
696: END IF;
689: WHEN OTHERS THEN
690: IF g_debug THEN
691: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
692: fnd_message.set_token('ROUTINE', 'DPP_COVEREDINVENTORY_PVT.Update_CoveredInventory - Delete rows');
693: fnd_message.set_token('ERRNO', sqlcode);
694: fnd_message.set_token('REASON', sqlerrm);
695: FND_MSG_PUB.add;
696: END IF;
697: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
690: IF g_debug THEN
691: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
692: fnd_message.set_token('ROUTINE', 'DPP_COVEREDINVENTORY_PVT.Update_CoveredInventory - Delete rows');
693: fnd_message.set_token('ERRNO', sqlcode);
694: fnd_message.set_token('REASON', sqlerrm);
695: FND_MSG_PUB.add;
696: END IF;
697: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
698: END;
883:
884: WHEN OTHERS THEN
885: ROLLBACK TO Update_CoveredInventory_PVT;
886: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
887: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
888: fnd_message.set_token('ROUTINE', 'DPP_COVEREDINVENTORY_PVT.Update_CoveredInventory');
889: fnd_message.set_token('ERRNO', sqlcode);
890: fnd_message.set_token('REASON', sqlerrm);
891: FND_MSG_PUB.add;
884: WHEN OTHERS THEN
885: ROLLBACK TO Update_CoveredInventory_PVT;
886: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
887: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
888: fnd_message.set_token('ROUTINE', 'DPP_COVEREDINVENTORY_PVT.Update_CoveredInventory');
889: fnd_message.set_token('ERRNO', sqlcode);
890: fnd_message.set_token('REASON', sqlerrm);
891: FND_MSG_PUB.add;
892: -- Standard call to get message count and if count=1, get the message
885: ROLLBACK TO Update_CoveredInventory_PVT;
886: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
887: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
888: fnd_message.set_token('ROUTINE', 'DPP_COVEREDINVENTORY_PVT.Update_CoveredInventory');
889: fnd_message.set_token('ERRNO', sqlcode);
890: fnd_message.set_token('REASON', sqlerrm);
891: FND_MSG_PUB.add;
892: -- Standard call to get message count and if count=1, get the message
893: FND_MSG_PUB.Count_And_Get (
886: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
887: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
888: fnd_message.set_token('ROUTINE', 'DPP_COVEREDINVENTORY_PVT.Update_CoveredInventory');
889: fnd_message.set_token('ERRNO', sqlcode);
890: fnd_message.set_token('REASON', sqlerrm);
891: FND_MSG_PUB.add;
892: -- Standard call to get message count and if count=1, get the message
893: FND_MSG_PUB.Count_And_Get (
894: p_encoded => FND_API.G_FALSE,