5: -- Global constant holding the package name
6:
7: G_PKG_NAME CONSTANT VARCHAR2(30) := 'OE_Header_Adj_Security';
8:
9: g_header_id NUMBER := FND_API.G_MISS_NUM;
10:
11: -- LOCAL PROCEDURES
12:
13: FUNCTION Is_Op_Constrained
75: INTO l_constrained_column
76: FROM oe_pc_constraints
77: WHERE constraint_id = l_constraint_id;
78: if l_constrained_column is null then
79: RAISE FND_API.G_EXC_ERROR;
80: end if;
81: END IF;
82:
83: elsif l_result = OE_PC_GLOBALS.ERROR then
81: END IF;
82:
83: elsif l_result = OE_PC_GLOBALS.ERROR then
84:
85: raise FND_API.G_EXC_UNEXPECTED_ERROR;
86:
87: end if;
88:
89: g_check_all_cols_constraint := 'N';
1269: oe_debug_pub.add( 'ENTER OE_HEADER_ADJ_SECURITY.ENTITY' , 1 ) ;
1270: END IF;
1271:
1272: -- Initializing return status to SUCCESS
1273: x_return_status := FND_API.G_RET_STS_SUCCESS;
1274:
1275: IF p_HEADER_ADJ_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1276: l_operation := OE_PC_GLOBALS.CREATE_OP;
1277: ELSIF p_HEADER_ADJ_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
1281: ELSE
1282: IF l_debug_level > 0 THEN
1283: oe_debug_pub.add( 'INVALID OPERATION' , 1 ) ;
1284: END IF;
1285: RAISE FND_API.G_EXC_ERROR;
1286: END IF;
1287:
1288: OE_Header_Adj_Util.API_Rec_To_Rowtype_Rec(p_HEADER_ADJ_rec
1289: , l_rowtype_rec);
1302: END IF;
1303:
1304: EXCEPTION
1305: WHEN OTHERS THEN
1306: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1307: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1308: OE_MSG_PUB.Add_Exc_Msg
1309: ( G_PKG_NAME
1310: , 'Entity'
1336: oe_debug_pub.add( 'ENTER OE_HEADER_ADJ_SECURITY.ATTRIBUTES' , 1 ) ;
1337: END IF;
1338:
1339: -- Initializing return status to SUCCESS
1340: x_return_status := FND_API.G_RET_STS_SUCCESS;
1341:
1342: -- Initializing out result to NOT CONSTRAINED
1343: x_result := OE_PC_GLOBALS.NO;
1344:
1362: ELSE
1363: IF l_debug_level > 0 THEN
1364: oe_debug_pub.add( 'INVALID OPERATION' , 1 ) ;
1365: END IF;
1366: RAISE FND_API.G_EXC_ERROR;
1367: END IF;
1368:
1369: OE_Header_Adj_Util.API_Rec_To_Rowtype_Rec(p_HEADER_ADJ_rec
1370: , l_rowtype_rec);
1374:
1375: -- Compare the new and old entity records and
1376: -- check constraints for all the changed attributes.
1377:
1378: IF p_header_adj_rec.automatic_flag = FND_API.G_MISS_CHAR THEN NULL;
1379: ELSIF NOT OE_GLOBALS.EQUAL(p_header_adj_rec.automatic_flag,p_old_header_adj_rec.automatic_flag) THEN
1380:
1381: l_result := AUTOMATIC
1382: (p_operation => l_operation
1390: END IF;
1391:
1392: END IF;
1393:
1394: IF p_header_adj_rec.discount_id = FND_API.G_MISS_NUM THEN NULL;
1395: ELSIF NOT OE_GLOBALS.EQUAL(p_header_adj_rec.discount_id,p_old_header_adj_rec.discount_id) THEN
1396:
1397: l_result := DISCOUNT
1398: (p_operation => l_operation
1406: END IF;
1407:
1408: END IF;
1409:
1410: IF p_header_adj_rec.operand = FND_API.G_MISS_NUM THEN NULL;
1411: ELSIF NOT OE_GLOBALS.EQUAL(p_header_adj_rec.operand,p_old_header_adj_rec.operand) THEN
1412:
1413: l_result := OPERAND
1414: (p_operation => l_operation
1422: END IF;
1423:
1424: END IF;
1425:
1426: IF p_header_adj_rec.discount_line_id = FND_API.G_MISS_NUM THEN NULL;
1427: ELSIF NOT OE_GLOBALS.EQUAL(p_header_adj_rec.discount_line_id,p_old_header_adj_rec.discount_line_id) THEN
1428:
1429: l_result := DISCOUNT_LINE
1430: (p_operation => l_operation
1438: END IF;
1439:
1440: END IF;
1441:
1442: IF p_header_adj_rec.percent = FND_API.G_MISS_NUM THEN NULL;
1443: ELSIF NOT OE_GLOBALS.EQUAL(p_header_adj_rec.percent,p_old_header_adj_rec.percent) THEN
1444:
1445: l_result := PERCENT
1446: (p_operation => l_operation
1454: END IF;
1455:
1456: END IF;
1457:
1458: IF p_header_adj_rec.request_id = FND_API.G_MISS_NUM THEN NULL;
1459: ELSIF NOT OE_GLOBALS.EQUAL(p_header_adj_rec.request_id,p_old_header_adj_rec.request_id) THEN
1460:
1461: l_result := REQUEST
1462: (p_operation => l_operation
1487: l_check_all_cols_constraint := g_check_all_cols_constraint;
1488: g_check_all_cols_constraint := 'N';
1489: END IF;
1490:
1491: IF p_header_adj_rec.context = FND_API.G_MISS_CHAR THEN NULL;
1492: ELSIF NOT OE_GLOBALS.EQUAL(p_header_adj_rec.context,p_old_header_adj_rec.context) THEN
1493:
1494: l_result := CONTEXT
1495: (p_operation => l_operation
1503: END IF;
1504:
1505: END IF;
1506:
1507: IF p_header_adj_rec.attribute1 = FND_API.G_MISS_CHAR THEN NULL;
1508: ELSIF NOT OE_GLOBALS.EQUAL(p_header_adj_rec.attribute1,p_old_header_adj_rec.attribute1) THEN
1509:
1510: l_result := ATTRIBUTE1
1511: (p_operation => l_operation
1519: END IF;
1520:
1521: END IF;
1522:
1523: IF p_header_adj_rec.attribute10 = FND_API.G_MISS_CHAR THEN NULL;
1524: ELSIF NOT OE_GLOBALS.EQUAL(p_header_adj_rec.attribute10,p_old_header_adj_rec.attribute10) THEN
1525:
1526: l_result := ATTRIBUTE10
1527: (p_operation => l_operation
1535: END IF;
1536:
1537: END IF;
1538:
1539: IF p_header_adj_rec.attribute11 = FND_API.G_MISS_CHAR THEN NULL;
1540: ELSIF NOT OE_GLOBALS.EQUAL(p_header_adj_rec.attribute11,p_old_header_adj_rec.attribute11) THEN
1541:
1542: l_result := ATTRIBUTE11
1543: (p_operation => l_operation
1551: END IF;
1552:
1553: END IF;
1554:
1555: IF p_header_adj_rec.attribute12 = FND_API.G_MISS_CHAR THEN NULL;
1556: ELSIF NOT OE_GLOBALS.EQUAL(p_header_adj_rec.attribute12,p_old_header_adj_rec.attribute12) THEN
1557:
1558: l_result := ATTRIBUTE12
1559: (p_operation => l_operation
1567: END IF;
1568:
1569: END IF;
1570:
1571: IF p_header_adj_rec.attribute13 = FND_API.G_MISS_CHAR THEN NULL;
1572: ELSIF NOT OE_GLOBALS.EQUAL(p_header_adj_rec.attribute13,p_old_header_adj_rec.attribute13) THEN
1573:
1574: l_result := ATTRIBUTE13
1575: (p_operation => l_operation
1583: END IF;
1584:
1585: END IF;
1586:
1587: IF p_header_adj_rec.attribute14 = FND_API.G_MISS_CHAR THEN NULL;
1588: ELSIF NOT OE_GLOBALS.EQUAL(p_header_adj_rec.attribute14,p_old_header_adj_rec.attribute14) THEN
1589:
1590: l_result := ATTRIBUTE14
1591: (p_operation => l_operation
1599: END IF;
1600:
1601: END IF;
1602:
1603: IF p_header_adj_rec.attribute15 = FND_API.G_MISS_CHAR THEN NULL;
1604: ELSIF NOT OE_GLOBALS.EQUAL(p_header_adj_rec.attribute15,p_old_header_adj_rec.attribute15) THEN
1605:
1606: l_result := ATTRIBUTE15
1607: (p_operation => l_operation
1615: END IF;
1616:
1617: END IF;
1618:
1619: IF p_header_adj_rec.attribute2 = FND_API.G_MISS_CHAR THEN NULL;
1620: ELSIF NOT OE_GLOBALS.EQUAL(p_header_adj_rec.attribute2,p_old_header_adj_rec.attribute2) THEN
1621:
1622: l_result := ATTRIBUTE2
1623: (p_operation => l_operation
1631: END IF;
1632:
1633: END IF;
1634:
1635: IF p_header_adj_rec.attribute3 = FND_API.G_MISS_CHAR THEN NULL;
1636: ELSIF NOT OE_GLOBALS.EQUAL(p_header_adj_rec.attribute3,p_old_header_adj_rec.attribute3) THEN
1637:
1638: l_result := ATTRIBUTE3
1639: (p_operation => l_operation
1647: END IF;
1648:
1649: END IF;
1650:
1651: IF p_header_adj_rec.attribute4 = FND_API.G_MISS_CHAR THEN NULL;
1652: ELSIF NOT OE_GLOBALS.EQUAL(p_header_adj_rec.attribute4,p_old_header_adj_rec.attribute4) THEN
1653:
1654: l_result := ATTRIBUTE4
1655: (p_operation => l_operation
1663: END IF;
1664:
1665: END IF;
1666:
1667: IF p_header_adj_rec.attribute5 = FND_API.G_MISS_CHAR THEN NULL;
1668: ELSIF NOT OE_GLOBALS.EQUAL(p_header_adj_rec.attribute5,p_old_header_adj_rec.attribute5) THEN
1669:
1670: l_result := ATTRIBUTE5
1671: (p_operation => l_operation
1679: END IF;
1680:
1681: END IF;
1682:
1683: IF p_header_adj_rec.attribute6 = FND_API.G_MISS_CHAR THEN NULL;
1684: ELSIF NOT OE_GLOBALS.EQUAL(p_header_adj_rec.attribute6,p_old_header_adj_rec.attribute6) THEN
1685:
1686: l_result := ATTRIBUTE6
1687: (p_operation => l_operation
1695: END IF;
1696:
1697: END IF;
1698:
1699: IF p_header_adj_rec.attribute7 = FND_API.G_MISS_CHAR THEN NULL;
1700: ELSIF NOT OE_GLOBALS.EQUAL(p_header_adj_rec.attribute7,p_old_header_adj_rec.attribute7) THEN
1701:
1702: l_result := ATTRIBUTE7
1703: (p_operation => l_operation
1711: END IF;
1712:
1713: END IF;
1714:
1715: IF p_header_adj_rec.attribute8 = FND_API.G_MISS_CHAR THEN NULL;
1716: ELSIF NOT OE_GLOBALS.EQUAL(p_header_adj_rec.attribute8,p_old_header_adj_rec.attribute8) THEN
1717:
1718: l_result := ATTRIBUTE8
1719: (p_operation => l_operation
1727: END IF;
1728:
1729: END IF;
1730:
1731: IF p_header_adj_rec.attribute9 = FND_API.G_MISS_CHAR THEN NULL;
1732: ELSIF NOT OE_GLOBALS.EQUAL(p_header_adj_rec.attribute9,p_old_header_adj_rec.attribute9) THEN
1733:
1734: l_result := ATTRIBUTE9
1735: (p_operation => l_operation
1759: oe_debug_pub.add( 'EXIT OE_HEADER_ADJ_SECURITY.ATTRIBUTES' , 1 ) ;
1760: END IF;
1761:
1762: EXCEPTION
1763: WHEN FND_API.G_EXC_ERROR THEN
1764: x_return_status := FND_API.G_RET_STS_ERROR;
1765: WHEN OTHERS THEN
1766: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1767: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1760: END IF;
1761:
1762: EXCEPTION
1763: WHEN FND_API.G_EXC_ERROR THEN
1764: x_return_status := FND_API.G_RET_STS_ERROR;
1765: WHEN OTHERS THEN
1766: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1767: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1768: OE_MSG_PUB.Add_Exc_Msg
1762: EXCEPTION
1763: WHEN FND_API.G_EXC_ERROR THEN
1764: x_return_status := FND_API.G_RET_STS_ERROR;
1765: WHEN OTHERS THEN
1766: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1767: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1768: OE_MSG_PUB.Add_Exc_Msg
1769: ( G_PKG_NAME
1770: , 'Attributes'