208: , p_doc_id => l_doc_id
209: , x_return_status => l_return_status
210: , x_approved_date => l_approved_date
211: );
212: IF (l_return_status <> FND_API.g_ret_sts_success) THEN
213: RAISE FND_API.g_exc_unexpected_error;
214: END IF;
215: --< Bug 3554754 End >
216:
209: , x_return_status => l_return_status
210: , x_approved_date => l_approved_date
211: );
212: IF (l_return_status <> FND_API.g_ret_sts_success) THEN
213: RAISE FND_API.g_exc_unexpected_error;
214: END IF;
215: --< Bug 3554754 End >
216:
217: /* If the doc does not have an approved date, then it's new */
1061: , x_unreservable_flag => p_action_flag);
1062:
1063: l_progress := '030';
1064:
1065: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1066: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1067: ELSIF p_return_status = FND_API.G_RET_STS_ERROR THEN
1068: RAISE FND_API.G_EXC_ERROR;
1069: END IF;
1062:
1063: l_progress := '030';
1064:
1065: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1066: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1067: ELSIF p_return_status = FND_API.G_RET_STS_ERROR THEN
1068: RAISE FND_API.G_EXC_ERROR;
1069: END IF;
1070:
1063: l_progress := '030';
1064:
1065: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1066: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1067: ELSIF p_return_status = FND_API.G_RET_STS_ERROR THEN
1068: RAISE FND_API.G_EXC_ERROR;
1069: END IF;
1070:
1071: l_progress := '040';
1064:
1065: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1066: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1067: ELSIF p_return_status = FND_API.G_RET_STS_ERROR THEN
1068: RAISE FND_API.G_EXC_ERROR;
1069: END IF;
1070:
1071: l_progress := '040';
1072:
1087: , x_reservable_flag => p_action_flag);
1088:
1089: l_progress := '050';
1090:
1091: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1092: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1093: ELSIF p_return_status = FND_API.G_RET_STS_ERROR THEN
1094: RAISE FND_API.G_EXC_ERROR;
1095: END IF;
1088:
1089: l_progress := '050';
1090:
1091: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1092: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1093: ELSIF p_return_status = FND_API.G_RET_STS_ERROR THEN
1094: RAISE FND_API.G_EXC_ERROR;
1095: END IF;
1096:
1089: l_progress := '050';
1090:
1091: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1092: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1093: ELSIF p_return_status = FND_API.G_RET_STS_ERROR THEN
1094: RAISE FND_API.G_EXC_ERROR;
1095: END IF;
1096:
1097: l_progress := '060';
1090:
1091: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1092: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1093: ELSIF p_return_status = FND_API.G_RET_STS_ERROR THEN
1094: RAISE FND_API.G_EXC_ERROR;
1095: END IF;
1096:
1097: l_progress := '060';
1098:
1759: -- 'PO', 'PA', or 'RELEASE'.
1760: --p_doc_id
1761: --OUT:
1762: --x_return_status
1763: -- FND_API.g_ret_sts_success - on success
1764: -- FND_API.g_ret_sts_error - when p_doc_type is not 'PO', 'PA', or 'RELEASE'.
1765: -- FND_API.g_ret_sts_unexp_error - unexpected error
1766: --x_approved_date
1767: --End of Comments
1760: --p_doc_id
1761: --OUT:
1762: --x_return_status
1763: -- FND_API.g_ret_sts_success - on success
1764: -- FND_API.g_ret_sts_error - when p_doc_type is not 'PO', 'PA', or 'RELEASE'.
1765: -- FND_API.g_ret_sts_unexp_error - unexpected error
1766: --x_approved_date
1767: --End of Comments
1768: --------------------------------------------------------------------------------
1761: --OUT:
1762: --x_return_status
1763: -- FND_API.g_ret_sts_success - on success
1764: -- FND_API.g_ret_sts_error - when p_doc_type is not 'PO', 'PA', or 'RELEASE'.
1765: -- FND_API.g_ret_sts_unexp_error - unexpected error
1766: --x_approved_date
1767: --End of Comments
1768: --------------------------------------------------------------------------------
1769: PROCEDURE get_approved_date
1773: , x_approved_date OUT NOCOPY DATE
1774: )
1775: IS
1776: BEGIN
1777: x_return_status := FND_API.g_ret_sts_success;
1778:
1779: -- Validate the input parameters
1780: IF (p_doc_type NOT IN ('PO','PA','RELEASE')) OR
1781: (p_doc_id IS NULL)
1779: -- Validate the input parameters
1780: IF (p_doc_type NOT IN ('PO','PA','RELEASE')) OR
1781: (p_doc_id IS NULL)
1782: THEN
1783: RAISE FND_API.g_exc_error;
1784: END IF;
1785:
1786: IF (p_doc_type = 'RELEASE') THEN
1787: SELECT approved_date
1799: PO_DEBUG.debug_var(g_module_prefix||'get_approved_date','END','x_approved_date',x_approved_date);
1800: END IF;
1801:
1802: EXCEPTION
1803: WHEN FND_API.g_exc_error THEN
1804: x_return_status := FND_API.g_ret_sts_error;
1805: IF g_debug_stmt THEN
1806: PO_DEBUG.debug_stmt(g_module_prefix||'get_approved_date','ERROR','Invalid input params');
1807: END IF;
1800: END IF;
1801:
1802: EXCEPTION
1803: WHEN FND_API.g_exc_error THEN
1804: x_return_status := FND_API.g_ret_sts_error;
1805: IF g_debug_stmt THEN
1806: PO_DEBUG.debug_stmt(g_module_prefix||'get_approved_date','ERROR','Invalid input params');
1807: END IF;
1808: WHEN OTHERS THEN
1805: IF g_debug_stmt THEN
1806: PO_DEBUG.debug_stmt(g_module_prefix||'get_approved_date','ERROR','Invalid input params');
1807: END IF;
1808: WHEN OTHERS THEN
1809: x_return_status := FND_API.g_ret_sts_unexp_error;
1810: PO_DEBUG.handle_unexp_error( p_pkg_name => g_pkg_name
1811: , p_proc_name => 'get_approved_date'
1812: );
1813: END get_approved_date;