1775: END IF;
1776: -- check if this operation is allowed
1777: -- on all the changed attributes
1778: IF l_debug_level > 0 THEN
1779: oe_debug_pub.add('Payment:before OE_Header_Payment_Security.Attributes', 5);
1780: END IF;
1781: OE_Header_Payment_Security.Attributes
1782: (p_header_payment_rec => l_header_payment_rec
1783: , p_old_header_payment_rec => l_old_header_payment_rec
1777: -- on all the changed attributes
1778: IF l_debug_level > 0 THEN
1779: oe_debug_pub.add('Payment:before OE_Header_Payment_Security.Attributes', 5);
1780: END IF;
1781: OE_Header_Payment_Security.Attributes
1782: (p_header_payment_rec => l_header_payment_rec
1783: , p_old_header_payment_rec => l_old_header_payment_rec
1784: , x_result => l_sec_result
1785: , x_return_status => l_return_status
1784: , x_result => l_sec_result
1785: , x_return_status => l_return_status
1786: );
1787: IF l_debug_level > 0 THEN
1788: oe_debug_pub.add('Payment:after OE_Header_Payment_Security.Attributes', 5);
1789: END IF;
1790:
1791: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1792: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1929: -- attributes was constrainable!. In such a case, the g_check_all_cols
1930: -- _constraint flag would still be 'Y' as the flag is reset only
1931: -- when checking for constraints.
1932: IF NOT (l_header_payment_rec.operation = OE_GLOBALS.G_OPR_UPDATE
1933: AND OE_Header_Payment_Security.g_check_all_cols_constraint = 'Y')
1934: AND l_control_rec.check_security
1935: THEN
1936: IF l_debug_level > 0 THEN
1937: oe_debug_pub.add( 'CHECK ENTITY SECURITY' ) ;
1936: IF l_debug_level > 0 THEN
1937: oe_debug_pub.add( 'CHECK ENTITY SECURITY' ) ;
1938: END IF;
1939: IF l_debug_level > 0 THEN
1940: oe_debug_pub.add('Payment:before OE_Header_Payment_Security.Entity', 5);
1941: END IF;
1942:
1943: OE_Header_Payment_Security.Entity
1944: (p_header_payment_rec => l_header_payment_rec
1939: IF l_debug_level > 0 THEN
1940: oe_debug_pub.add('Payment:before OE_Header_Payment_Security.Entity', 5);
1941: END IF;
1942:
1943: OE_Header_Payment_Security.Entity
1944: (p_header_payment_rec => l_header_payment_rec
1945: , x_result => l_sec_result
1946: , x_return_status => l_return_status
1947: );
1945: , x_result => l_sec_result
1946: , x_return_status => l_return_status
1947: );
1948: IF l_debug_level > 0 THEN
1949: oe_debug_pub.add('Payment:after OE_Header_Payment_Security.Entity', 5);
1950: END IF;
1951:
1952: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1953: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2020: END IF;
2021:
2022: END IF;
2023:
2024: OE_Header_Payment_Security.g_check_all_cols_constraint := 'Y';
2025: OE_MSG_PUB.reset_msg_context('HEADER_PAYMENT');
2026:
2027: -- loop exception handler.
2028: IF l_header_payment_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2046: x_return_status := FND_API.G_RET_STS_ERROR;
2047: p_x_Header_Payment_tbl(I) := l_Header_Payment_rec;
2048: p_x_old_Header_Payment_tbl(I) := l_old_Header_Payment_rec;
2049:
2050: OE_Header_Payment_Security.g_check_all_cols_constraint := 'Y';
2051: OE_MSG_PUB.reset_msg_context('HEADER_PAYMENT');
2052: IF l_control_Rec.Process_Partial THEN
2053: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
2054: IF l_debug_level > 0 THEN
2069: l_Header_Payment_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2070: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2071: p_x_Header_Payment_tbl(I) := l_Header_Payment_rec;
2072: p_x_old_Header_Payment_tbl(I) := l_old_Header_Payment_rec;
2073: OE_Header_Payment_Security.g_check_all_cols_constraint := 'Y';
2074: OE_MSG_PUB.reset_msg_context('HEADER_PAYMENT');
2075: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2076:
2077: WHEN OTHERS THEN
2080: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2081: p_x_Header_Payment_tbl(I) := l_Header_Payment_rec;
2082: p_x_old_Header_Payment_tbl(I) := l_old_Header_Payment_rec;
2083:
2084: OE_Header_Payment_Security.g_check_all_cols_constraint := 'Y';
2085: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2086: THEN
2087: OE_MSG_PUB.Add_Exc_Msg
2088: ( G_PKG_NAME