14: -- ===============================================================
15:
16: G_PKG_NAME CONSTANT VARCHAR2(30):= 'OZF_Ae_Line_PVT';
17: G_FILE_NAME CONSTANT VARCHAR2(12) := 'ozfvaelb.pls';
18: G_DEBUG BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
19:
20: -- Hint: Primary key needs to be returned.
21: PROCEDURE Create_Ae_Line(
22: p_api_version_number IN NUMBER,
63:
64: -- Initialize message list if p_init_msg_list is set to TRUE.
65: IF FND_API.to_Boolean( p_init_msg_list )
66: THEN
67: FND_MSG_PUB.initialize;
68: END IF;
69:
70: -- Debug Message
71: IF G_DEBUG THEN
213: p_attribute14 => p_ae_line_tbl(i).attribute14,
214: p_attribute15 => p_ae_line_tbl(i).attribute15);
215: EXCEPTION
216: WHEN OTHERS THEN
217: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
218: FND_MESSAGE.set_name('OZF', 'OZF_TABLE_HANDLER_ERROR');
219: FND_MSG_PUB.add;
220: END IF;
221: IF G_DEBUG THEN
215: EXCEPTION
216: WHEN OTHERS THEN
217: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
218: FND_MESSAGE.set_name('OZF', 'OZF_TABLE_HANDLER_ERROR');
219: FND_MSG_PUB.add;
220: END IF;
221: IF G_DEBUG THEN
222: OZF_UTILITY_PVT.debug_message(sqlerrm);
223: END IF;
241: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
242: END IF;
243:
244: -- Standard call to get message count and if count is 1, get message info.
245: FND_MSG_PUB.Count_And_Get
246: (p_count => x_msg_count,
247: p_data => x_msg_data
248: );
249: EXCEPTION
253: WHEN FND_API.G_EXC_ERROR THEN
254: ROLLBACK TO CREATE_Ae_Line_PVT;
255: x_return_status := FND_API.G_RET_STS_ERROR;
256: -- Standard call to get message count and if count=1, get the message
257: FND_MSG_PUB.Count_And_Get (
258: p_encoded => FND_API.G_FALSE,
259: p_count => x_msg_count,
260: p_data => x_msg_data
261: );
262: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
263: ROLLBACK TO CREATE_Ae_Line_PVT;
264: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
265: -- Standard call to get message count and if count=1, get the message
266: FND_MSG_PUB.Count_And_Get (
267: p_encoded => FND_API.G_FALSE,
268: p_count => x_msg_count,
269: p_data => x_msg_data
270: );
270: );
271: WHEN OTHERS THEN
272: ROLLBACK TO CREATE_Ae_Line_PVT;
273: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
274: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
275: THEN
276: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
277: END IF;
278: -- Standard call to get message count and if count=1, get the message
272: ROLLBACK TO CREATE_Ae_Line_PVT;
273: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
274: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
275: THEN
276: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
277: END IF;
278: -- Standard call to get message count and if count=1, get the message
279: FND_MSG_PUB.Count_And_Get (
280: p_encoded => FND_API.G_FALSE,
275: THEN
276: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
277: END IF;
278: -- Standard call to get message count and if count=1, get the message
279: FND_MSG_PUB.Count_And_Get (
280: p_encoded => FND_API.G_FALSE,
281: p_count => x_msg_count,
282: p_data => x_msg_data
283: );
328:
329: -- Initialize message list if p_init_msg_list is set to TRUE.
330: IF FND_API.to_Boolean( p_init_msg_list )
331: THEN
332: FND_MSG_PUB.initialize;
333: END IF;
334:
335: -- Debug Message
336: IF G_DEBUG THEN
397:
398:
399: -- Debug Message
400: IF G_DEBUG THEN
401: OZF_UTILITY_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: Calling update table handler');
402: END IF;
403:
404: -- Invoke table handler(OZF_AE_LINES_PKG.Update_Row)
405: OZF_AE_LINES_PKG.Update_Row(
490: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
491: END IF;
492:
493: -- Standard call to get message count and if count is 1, get message info.
494: FND_MSG_PUB.Count_And_Get
495: (p_count => x_msg_count,
496: p_data => x_msg_data
497: );
498: EXCEPTION
504: WHEN FND_API.G_EXC_ERROR THEN
505: ROLLBACK TO UPDATE_Ae_Line_PVT;
506: x_return_status := FND_API.G_RET_STS_ERROR;
507: -- Standard call to get message count and if count=1, get the message
508: FND_MSG_PUB.Count_And_Get (
509: p_encoded => FND_API.G_FALSE,
510: p_count => x_msg_count,
511: p_data => x_msg_data
512: );
514: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
515: ROLLBACK TO UPDATE_Ae_Line_PVT;
516: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
517: -- Standard call to get message count and if count=1, get the message
518: FND_MSG_PUB.Count_And_Get (
519: p_encoded => FND_API.G_FALSE,
520: p_count => x_msg_count,
521: p_data => x_msg_data
522: );
523:
524: WHEN OTHERS THEN
525: ROLLBACK TO UPDATE_Ae_Line_PVT;
526: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
527: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
528: THEN
529: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
530: END IF;
531: -- Standard call to get message count and if count=1, get the message
525: ROLLBACK TO UPDATE_Ae_Line_PVT;
526: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
527: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
528: THEN
529: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
530: END IF;
531: -- Standard call to get message count and if count=1, get the message
532: FND_MSG_PUB.Count_And_Get (
533: p_encoded => FND_API.G_FALSE,
528: THEN
529: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
530: END IF;
531: -- Standard call to get message count and if count=1, get the message
532: FND_MSG_PUB.Count_And_Get (
533: p_encoded => FND_API.G_FALSE,
534: p_count => x_msg_count,
535: p_data => x_msg_data
536: );
569:
570: -- Initialize message list if p_init_msg_list is set to TRUE.
571: IF FND_API.to_Boolean( p_init_msg_list )
572: THEN
573: FND_MSG_PUB.initialize;
574: END IF;
575:
576: -- Debug Message
577: IF G_DEBUG THEN
609: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
610: END IF;
611:
612: -- Standard call to get message count and if count is 1, get message info.
613: FND_MSG_PUB.Count_And_Get
614: (p_count => x_msg_count,
615: p_data => x_msg_data
616: );
617: EXCEPTION
623: WHEN FND_API.G_EXC_ERROR THEN
624: ROLLBACK TO DELETE_Ae_Line_PVT;
625: x_return_status := FND_API.G_RET_STS_ERROR;
626: -- Standard call to get message count and if count=1, get the message
627: FND_MSG_PUB.Count_And_Get (
628: p_encoded => FND_API.G_FALSE,
629: p_count => x_msg_count,
630: p_data => x_msg_data
631: );
633: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
634: ROLLBACK TO DELETE_Ae_Line_PVT;
635: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
636: -- Standard call to get message count and if count=1, get the message
637: FND_MSG_PUB.Count_And_Get (
638: p_encoded => FND_API.G_FALSE,
639: p_count => x_msg_count,
640: p_data => x_msg_data
641: );
642:
643: WHEN OTHERS THEN
644: ROLLBACK TO DELETE_Ae_Line_PVT;
645: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
646: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
647: THEN
648: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
649: END IF;
650: -- Standard call to get message count and if count=1, get the message
644: ROLLBACK TO DELETE_Ae_Line_PVT;
645: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
646: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
647: THEN
648: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
649: END IF;
650: -- Standard call to get message count and if count=1, get the message
651: FND_MSG_PUB.Count_And_Get (
652: p_encoded => FND_API.G_FALSE,
647: THEN
648: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
649: END IF;
650: -- Standard call to get message count and if count=1, get the message
651: FND_MSG_PUB.Count_And_Get (
652: p_encoded => FND_API.G_FALSE,
653: p_count => x_msg_count,
654: p_data => x_msg_data
655: );
692:
693: -- Initialize message list if p_init_msg_list is set to TRUE.
694: IF FND_API.to_Boolean( p_init_msg_list )
695: THEN
696: FND_MSG_PUB.initialize;
697: END IF;
698:
699: -- Standard call to check for call compatibility.
700: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
720: FETCH c_Ae_Line INTO l_AE_LINE_ID;
721:
722: IF (c_Ae_Line%NOTFOUND) THEN
723: CLOSE c_Ae_Line;
724: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
725: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
726: FND_MSG_PUB.add;
727: END IF;
728: RAISE FND_API.g_exc_error;
722: IF (c_Ae_Line%NOTFOUND) THEN
723: CLOSE c_Ae_Line;
724: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
725: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
726: FND_MSG_PUB.add;
727: END IF;
728: RAISE FND_API.g_exc_error;
729: END IF;
730:
730:
731: CLOSE c_Ae_Line;
732:
733: -------------------- finish --------------------------
734: FND_MSG_PUB.count_and_get(
735: p_encoded => FND_API.g_false,
736: p_count => x_msg_count,
737: p_data => x_msg_data);
738: IF G_DEBUG THEN
747: WHEN FND_API.G_EXC_ERROR THEN
748: ROLLBACK TO LOCK_Ae_Line_PVT;
749: x_return_status := FND_API.G_RET_STS_ERROR;
750: -- Standard call to get message count and if count=1, get the message
751: FND_MSG_PUB.Count_And_Get (
752: p_encoded => FND_API.G_FALSE,
753: p_count => x_msg_count,
754: p_data => x_msg_data
755: );
757: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
758: ROLLBACK TO LOCK_Ae_Line_PVT;
759: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
760: -- Standard call to get message count and if count=1, get the message
761: FND_MSG_PUB.Count_And_Get (
762: p_encoded => FND_API.G_FALSE,
763: p_count => x_msg_count,
764: p_data => x_msg_data
765: );
766:
767: WHEN OTHERS THEN
768: ROLLBACK TO LOCK_Ae_Line_PVT;
769: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
770: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
771: THEN
772: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
773: END IF;
774: -- Standard call to get message count and if count=1, get the message
768: ROLLBACK TO LOCK_Ae_Line_PVT;
769: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
770: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
771: THEN
772: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
773: END IF;
774: -- Standard call to get message count and if count=1, get the message
775: FND_MSG_PUB.Count_And_Get (
776: p_encoded => FND_API.G_FALSE,
771: THEN
772: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
773: END IF;
774: -- Standard call to get message count and if count=1, get the message
775: FND_MSG_PUB.Count_And_Get (
776: p_encoded => FND_API.G_FALSE,
777: p_count => x_msg_count,
778: p_data => x_msg_data
779: );
1699:
1700: -- Initialize message list if p_init_msg_list is set to TRUE.
1701: IF FND_API.to_Boolean( p_init_msg_list )
1702: THEN
1703: FND_MSG_PUB.initialize;
1704: END IF;
1705: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
1706: Check_ae_line_Items(
1707: p_ae_line_rec => p_ae_line_rec,
1753: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
1754: END IF;
1755:
1756: -- Standard call to get message count and if count is 1, get message info.
1757: FND_MSG_PUB.Count_And_Get
1758: (p_count => x_msg_count,
1759: p_data => x_msg_data
1760: );
1761: EXCEPTION
1767: WHEN FND_API.G_EXC_ERROR THEN
1768: ROLLBACK TO VALIDATE_Ae_Line_;
1769: x_return_status := FND_API.G_RET_STS_ERROR;
1770: -- Standard call to get message count and if count=1, get the message
1771: FND_MSG_PUB.Count_And_Get (
1772: p_encoded => FND_API.G_FALSE,
1773: p_count => x_msg_count,
1774: p_data => x_msg_data
1775: );
1777: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1778: ROLLBACK TO VALIDATE_Ae_Line_;
1779: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1780: -- Standard call to get message count and if count=1, get the message
1781: FND_MSG_PUB.Count_And_Get (
1782: p_encoded => FND_API.G_FALSE,
1783: p_count => x_msg_count,
1784: p_data => x_msg_data
1785: );
1786:
1787: WHEN OTHERS THEN
1788: ROLLBACK TO VALIDATE_Ae_Line_;
1789: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1790: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1791: THEN
1792: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1793: END IF;
1794: -- Standard call to get message count and if count=1, get the message
1788: ROLLBACK TO VALIDATE_Ae_Line_;
1789: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1790: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1791: THEN
1792: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1793: END IF;
1794: -- Standard call to get message count and if count=1, get the message
1795: FND_MSG_PUB.Count_And_Get (
1796: p_encoded => FND_API.G_FALSE,
1791: THEN
1792: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1793: END IF;
1794: -- Standard call to get message count and if count=1, get the message
1795: FND_MSG_PUB.Count_And_Get (
1796: p_encoded => FND_API.G_FALSE,
1797: p_count => x_msg_count,
1798: p_data => x_msg_data
1799: );
1812: BEGIN
1813: -- Initialize message list if p_init_msg_list is set to TRUE.
1814: IF FND_API.to_Boolean( p_init_msg_list )
1815: THEN
1816: FND_MSG_PUB.initialize;
1817: END IF;
1818:
1819: -- Initialize API return status to SUCCESS
1820: x_return_status := FND_API.G_RET_STS_SUCCESS;
1828: IF G_DEBUG THEN
1829: OZF_UTILITY_PVT.debug_message('Private API: Validate_ae_line_rec');
1830: END IF;
1831: -- Standard call to get message count and if count is 1, get message info.
1832: FND_MSG_PUB.Count_And_Get
1833: (p_count => x_msg_count,
1834: p_data => x_msg_data
1835: );
1836: END Validate_ae_line_Rec;