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: --Bug 9323560 starts
1376: oe_debug_pub.add( 'p_header_adj_rec.applied_flag: ' || p_header_adj_rec.applied_flag );
1377:
1378: IF p_header_adj_rec.applied_flag = FND_API.G_MISS_CHAR THEN
1379: NULL;
1380: ELSIF NOT OE_GLOBALS.EQUAL(p_header_adj_rec.applied_flag,p_old_header_adj_rec.applied_flag) THEN
1381: oe_debug_pub.add( 'l_rowtype_rec.automatic_flag: ' || l_rowtype_rec.automatic_flag );
1382: oe_debug_pub.add( 'l_rowtype_rec.applied_flag: ' || l_rowtype_rec.applied_flag );
1400:
1401: -- Compare the new and old entity records and
1402: -- check constraints for all the changed attributes.
1403:
1404: IF p_header_adj_rec.automatic_flag = FND_API.G_MISS_CHAR THEN NULL;
1405: ELSIF NOT OE_GLOBALS.EQUAL(p_header_adj_rec.automatic_flag,p_old_header_adj_rec.automatic_flag) THEN
1406:
1407: l_result := AUTOMATIC
1408: (p_operation => l_operation
1416: END IF;
1417:
1418: END IF;
1419:
1420: IF p_header_adj_rec.discount_id = FND_API.G_MISS_NUM THEN NULL;
1421: ELSIF NOT OE_GLOBALS.EQUAL(p_header_adj_rec.discount_id,p_old_header_adj_rec.discount_id) THEN
1422:
1423: l_result := DISCOUNT
1424: (p_operation => l_operation
1432: END IF;
1433:
1434: END IF;
1435:
1436: IF p_header_adj_rec.operand = FND_API.G_MISS_NUM THEN NULL;
1437: ELSIF NOT OE_GLOBALS.EQUAL(p_header_adj_rec.operand,p_old_header_adj_rec.operand) THEN
1438:
1439: l_result := OPERAND
1440: (p_operation => l_operation
1448: END IF;
1449:
1450: END IF;
1451:
1452: IF p_header_adj_rec.discount_line_id = FND_API.G_MISS_NUM THEN NULL;
1453: ELSIF NOT OE_GLOBALS.EQUAL(p_header_adj_rec.discount_line_id,p_old_header_adj_rec.discount_line_id) THEN
1454:
1455: l_result := DISCOUNT_LINE
1456: (p_operation => l_operation
1464: END IF;
1465:
1466: END IF;
1467:
1468: IF p_header_adj_rec.percent = FND_API.G_MISS_NUM THEN NULL;
1469: ELSIF NOT OE_GLOBALS.EQUAL(p_header_adj_rec.percent,p_old_header_adj_rec.percent) THEN
1470:
1471: l_result := PERCENT
1472: (p_operation => l_operation
1480: END IF;
1481:
1482: END IF;
1483:
1484: IF p_header_adj_rec.request_id = FND_API.G_MISS_NUM THEN NULL;
1485: ELSIF NOT OE_GLOBALS.EQUAL(p_header_adj_rec.request_id,p_old_header_adj_rec.request_id) THEN
1486:
1487: l_result := REQUEST
1488: (p_operation => l_operation
1513: l_check_all_cols_constraint := g_check_all_cols_constraint;
1514: g_check_all_cols_constraint := 'N';
1515: END IF;
1516:
1517: IF p_header_adj_rec.context = FND_API.G_MISS_CHAR THEN NULL;
1518: ELSIF NOT OE_GLOBALS.EQUAL(p_header_adj_rec.context,p_old_header_adj_rec.context) THEN
1519:
1520: l_result := CONTEXT
1521: (p_operation => l_operation
1529: END IF;
1530:
1531: END IF;
1532:
1533: IF p_header_adj_rec.attribute1 = FND_API.G_MISS_CHAR THEN NULL;
1534: ELSIF NOT OE_GLOBALS.EQUAL(p_header_adj_rec.attribute1,p_old_header_adj_rec.attribute1) THEN
1535:
1536: l_result := ATTRIBUTE1
1537: (p_operation => l_operation
1545: END IF;
1546:
1547: END IF;
1548:
1549: IF p_header_adj_rec.attribute10 = FND_API.G_MISS_CHAR THEN NULL;
1550: ELSIF NOT OE_GLOBALS.EQUAL(p_header_adj_rec.attribute10,p_old_header_adj_rec.attribute10) THEN
1551:
1552: l_result := ATTRIBUTE10
1553: (p_operation => l_operation
1561: END IF;
1562:
1563: END IF;
1564:
1565: IF p_header_adj_rec.attribute11 = FND_API.G_MISS_CHAR THEN NULL;
1566: ELSIF NOT OE_GLOBALS.EQUAL(p_header_adj_rec.attribute11,p_old_header_adj_rec.attribute11) THEN
1567:
1568: l_result := ATTRIBUTE11
1569: (p_operation => l_operation
1577: END IF;
1578:
1579: END IF;
1580:
1581: IF p_header_adj_rec.attribute12 = FND_API.G_MISS_CHAR THEN NULL;
1582: ELSIF NOT OE_GLOBALS.EQUAL(p_header_adj_rec.attribute12,p_old_header_adj_rec.attribute12) THEN
1583:
1584: l_result := ATTRIBUTE12
1585: (p_operation => l_operation
1593: END IF;
1594:
1595: END IF;
1596:
1597: IF p_header_adj_rec.attribute13 = FND_API.G_MISS_CHAR THEN NULL;
1598: ELSIF NOT OE_GLOBALS.EQUAL(p_header_adj_rec.attribute13,p_old_header_adj_rec.attribute13) THEN
1599:
1600: l_result := ATTRIBUTE13
1601: (p_operation => l_operation
1609: END IF;
1610:
1611: END IF;
1612:
1613: IF p_header_adj_rec.attribute14 = FND_API.G_MISS_CHAR THEN NULL;
1614: ELSIF NOT OE_GLOBALS.EQUAL(p_header_adj_rec.attribute14,p_old_header_adj_rec.attribute14) THEN
1615:
1616: l_result := ATTRIBUTE14
1617: (p_operation => l_operation
1625: END IF;
1626:
1627: END IF;
1628:
1629: IF p_header_adj_rec.attribute15 = FND_API.G_MISS_CHAR THEN NULL;
1630: ELSIF NOT OE_GLOBALS.EQUAL(p_header_adj_rec.attribute15,p_old_header_adj_rec.attribute15) THEN
1631:
1632: l_result := ATTRIBUTE15
1633: (p_operation => l_operation
1641: END IF;
1642:
1643: END IF;
1644:
1645: IF p_header_adj_rec.attribute2 = FND_API.G_MISS_CHAR THEN NULL;
1646: ELSIF NOT OE_GLOBALS.EQUAL(p_header_adj_rec.attribute2,p_old_header_adj_rec.attribute2) THEN
1647:
1648: l_result := ATTRIBUTE2
1649: (p_operation => l_operation
1657: END IF;
1658:
1659: END IF;
1660:
1661: IF p_header_adj_rec.attribute3 = FND_API.G_MISS_CHAR THEN NULL;
1662: ELSIF NOT OE_GLOBALS.EQUAL(p_header_adj_rec.attribute3,p_old_header_adj_rec.attribute3) THEN
1663:
1664: l_result := ATTRIBUTE3
1665: (p_operation => l_operation
1673: END IF;
1674:
1675: END IF;
1676:
1677: IF p_header_adj_rec.attribute4 = FND_API.G_MISS_CHAR THEN NULL;
1678: ELSIF NOT OE_GLOBALS.EQUAL(p_header_adj_rec.attribute4,p_old_header_adj_rec.attribute4) THEN
1679:
1680: l_result := ATTRIBUTE4
1681: (p_operation => l_operation
1689: END IF;
1690:
1691: END IF;
1692:
1693: IF p_header_adj_rec.attribute5 = FND_API.G_MISS_CHAR THEN NULL;
1694: ELSIF NOT OE_GLOBALS.EQUAL(p_header_adj_rec.attribute5,p_old_header_adj_rec.attribute5) THEN
1695:
1696: l_result := ATTRIBUTE5
1697: (p_operation => l_operation
1705: END IF;
1706:
1707: END IF;
1708:
1709: IF p_header_adj_rec.attribute6 = FND_API.G_MISS_CHAR THEN NULL;
1710: ELSIF NOT OE_GLOBALS.EQUAL(p_header_adj_rec.attribute6,p_old_header_adj_rec.attribute6) THEN
1711:
1712: l_result := ATTRIBUTE6
1713: (p_operation => l_operation
1721: END IF;
1722:
1723: END IF;
1724:
1725: IF p_header_adj_rec.attribute7 = FND_API.G_MISS_CHAR THEN NULL;
1726: ELSIF NOT OE_GLOBALS.EQUAL(p_header_adj_rec.attribute7,p_old_header_adj_rec.attribute7) THEN
1727:
1728: l_result := ATTRIBUTE7
1729: (p_operation => l_operation
1737: END IF;
1738:
1739: END IF;
1740:
1741: IF p_header_adj_rec.attribute8 = FND_API.G_MISS_CHAR THEN NULL;
1742: ELSIF NOT OE_GLOBALS.EQUAL(p_header_adj_rec.attribute8,p_old_header_adj_rec.attribute8) THEN
1743:
1744: l_result := ATTRIBUTE8
1745: (p_operation => l_operation
1753: END IF;
1754:
1755: END IF;
1756:
1757: IF p_header_adj_rec.attribute9 = FND_API.G_MISS_CHAR THEN NULL;
1758: ELSIF NOT OE_GLOBALS.EQUAL(p_header_adj_rec.attribute9,p_old_header_adj_rec.attribute9) THEN
1759:
1760: l_result := ATTRIBUTE9
1761: (p_operation => l_operation
1785: oe_debug_pub.add( 'EXIT OE_HEADER_ADJ_SECURITY.ATTRIBUTES' , 1 ) ;
1786: END IF;
1787:
1788: EXCEPTION
1789: WHEN FND_API.G_EXC_ERROR THEN
1790: x_return_status := FND_API.G_RET_STS_ERROR;
1791: WHEN OTHERS THEN
1792: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1793: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1786: END IF;
1787:
1788: EXCEPTION
1789: WHEN FND_API.G_EXC_ERROR THEN
1790: x_return_status := FND_API.G_RET_STS_ERROR;
1791: WHEN OTHERS THEN
1792: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1793: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1794: OE_MSG_PUB.Add_Exc_Msg
1788: EXCEPTION
1789: WHEN FND_API.G_EXC_ERROR THEN
1790: x_return_status := FND_API.G_RET_STS_ERROR;
1791: WHEN OTHERS THEN
1792: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1793: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1794: OE_MSG_PUB.Add_Exc_Msg
1795: ( G_PKG_NAME
1796: , 'Attributes'