[Home] [Help]
261: -- FND_MESSAGE.SET_NAME('CSI','CSI_H_DATE_BEFORE_CRE_DATE');
262: -- FND_MESSAGE.SET_TOKEN('CREATION_DATE',to_char(l_time_stamp, 'DD-MON-YYYY HH24:MI:SS'));
263: -- FND_MESSAGE.SET_TOKEN('USER_DATE',to_char(p_time_stamp, 'DD-MON-YYYY HH24:MI:SS'));
264: -- FND_MSG_PUB.Add;
265: -- RAISE FND_API.G_EXC_ERROR;
266: l_party_account_tbl.DELETE(i);
267: RAISE Process_next;
268: END IF;
269: END IF;
649: ) IS
650:
651: BEGIN
652: IF( (p_pty_acct_query_rec.ip_account_id IS NOT NULL)
653: AND (p_pty_acct_query_rec.ip_account_id <> FND_API.G_MISS_NUM)) THEN
654: DBMS_SQL.BIND_VARIABLE(p_get_acct_cursor_id, ':ip_account_id', p_pty_acct_query_rec.ip_account_id);
655: END IF;
656:
657: IF( (p_pty_acct_query_rec.instance_party_id IS NOT NULL)
654: DBMS_SQL.BIND_VARIABLE(p_get_acct_cursor_id, ':ip_account_id', p_pty_acct_query_rec.ip_account_id);
655: END IF;
656:
657: IF( (p_pty_acct_query_rec.instance_party_id IS NOT NULL)
658: AND (p_pty_acct_query_rec.instance_party_id <> FND_API.G_MISS_NUM)) THEN
659: DBMS_SQL.BIND_VARIABLE(p_get_acct_cursor_id, ':instance_party_id', p_pty_acct_query_rec.instance_party_id);
660: END IF;
661:
662: IF( (p_pty_acct_query_rec.party_account_id IS NOT NULL)
659: DBMS_SQL.BIND_VARIABLE(p_get_acct_cursor_id, ':instance_party_id', p_pty_acct_query_rec.instance_party_id);
660: END IF;
661:
662: IF( (p_pty_acct_query_rec.party_account_id IS NOT NULL)
663: AND (p_pty_acct_query_rec.party_account_id <> FND_API.G_MISS_NUM)) THEN
664: DBMS_SQL.BIND_VARIABLE(p_get_acct_cursor_id, ':party_account_id', p_pty_acct_query_rec.party_account_id);
665: END IF;
666:
667: IF( (p_pty_acct_query_rec.relationship_type_code IS NOT NULL)
664: DBMS_SQL.BIND_VARIABLE(p_get_acct_cursor_id, ':party_account_id', p_pty_acct_query_rec.party_account_id);
665: END IF;
666:
667: IF( (p_pty_acct_query_rec.relationship_type_code IS NOT NULL)
668: AND (p_pty_acct_query_rec.relationship_type_code <> FND_API.G_MISS_CHAR)) THEN
669: DBMS_SQL.BIND_VARIABLE(p_get_acct_cursor_id, ':relationship_type_code', p_pty_acct_query_rec.relationship_type_code);
670: END IF;
671:
672: END ;
689: -- Assign null at the start
690: x_where_clause := '';
691:
692: IF (( p_pty_acct_query_rec.ip_account_id IS NOT NULL) AND
693: ( p_pty_acct_query_rec.ip_account_id <> FND_API.G_MISS_NUM)) THEN
694: x_where_clause := ' ip_account_id = :ip_account_id ';
695: ELSIF ( p_pty_acct_query_rec.ip_account_id IS NULL) THEN
696: x_where_clause := ' ip_account_id IS NULL ';
697: END IF;
696: x_where_clause := ' ip_account_id IS NULL ';
697: END IF;
698:
699: IF ((p_pty_acct_query_rec.instance_party_id IS NOT NULL) AND
700: (p_pty_acct_query_rec.instance_party_id <> FND_API.G_MISS_NUM)) THEN
701: IF x_where_clause IS NULL THEN
702: x_where_clause := ' instance_party_id = :instance_party_id ';
703: ELSE
704: x_where_clause := x_where_clause||' AND '||' instance_party_id = :instance_party_id ';
711: END IF;
712: END IF;
713:
714: IF ((p_pty_acct_query_rec.party_account_id IS NOT NULL) AND
715: (p_pty_acct_query_rec.party_account_id <> FND_API.G_MISS_NUM)) THEN
716: IF x_where_clause IS NULL THEN
717: x_where_clause := ' party_account_id = :party_account_id ';
718: ELSE
719: x_where_clause := x_where_clause||' AND '||' party_account_id = :party_account_id ';
726: END IF;
727: END IF ;
728:
729: IF ((p_pty_acct_query_rec.relationship_type_code IS NOT NULL) AND
730: (p_pty_acct_query_rec.relationship_type_code <> FND_API.G_MISS_CHAR)) THEN
731: IF x_where_clause IS NULL THEN
732: x_where_clause := ' relationship_type_code = :relationship_type_code ';
733: ELSE
734: x_where_clause := x_where_clause||' AND '||
1024: -- FND_MESSAGE.SET_NAME('CSI','CSI_H_DATE_BEFORE_CRE_DATE');
1025: -- FND_MESSAGE.SET_TOKEN('CREATION_DATE',to_char(l_time_stamp, 'DD-MON-YYYY HH24:MI:SS'));
1026: -- FND_MESSAGE.SET_TOKEN('USER_DATE',to_char(p_time_stamp, 'DD-MON-YYYY HH24:MI:SS'));
1027: -- FND_MSG_PUB.Add;
1028: -- RAISE FND_API.G_EXC_ERROR;
1029: l_party_tbl.DELETE(i);
1030: RAISE Process_next;
1031: END IF;
1032:
1317:
1318: BEGIN
1319:
1320: IF( (p_party_query_rec.instance_party_id IS NOT NULL)
1321: AND (p_party_query_rec.instance_party_id <> FND_API.G_MISS_NUM)) THEN
1322: DBMS_SQL.BIND_VARIABLE(p_cur_get_pty_rel, ':instance_party_id', p_party_query_rec.instance_party_id);
1323: END IF;
1324:
1325: IF( (p_party_query_rec.instance_id IS NOT NULL)
1322: DBMS_SQL.BIND_VARIABLE(p_cur_get_pty_rel, ':instance_party_id', p_party_query_rec.instance_party_id);
1323: END IF;
1324:
1325: IF( (p_party_query_rec.instance_id IS NOT NULL)
1326: AND (p_party_query_rec.instance_id <> FND_API.G_MISS_NUM)) THEN
1327: DBMS_SQL.BIND_VARIABLE(p_cur_get_pty_rel, ':instance_id', p_party_query_rec.instance_id);
1328: END IF;
1329:
1330: IF( (p_party_query_rec.party_id IS NOT NULL)
1327: DBMS_SQL.BIND_VARIABLE(p_cur_get_pty_rel, ':instance_id', p_party_query_rec.instance_id);
1328: END IF;
1329:
1330: IF( (p_party_query_rec.party_id IS NOT NULL)
1331: AND (p_party_query_rec.party_id <> FND_API.G_MISS_NUM)) THEN
1332: DBMS_SQL.BIND_VARIABLE(p_cur_get_pty_rel, ':party_id', p_party_query_rec.party_id);
1333: END IF;
1334:
1335: IF( (p_party_query_rec.relationship_type_code IS NOT NULL)
1332: DBMS_SQL.BIND_VARIABLE(p_cur_get_pty_rel, ':party_id', p_party_query_rec.party_id);
1333: END IF;
1334:
1335: IF( (p_party_query_rec.relationship_type_code IS NOT NULL)
1336: AND (p_party_query_rec.relationship_type_code <> FND_API.G_MISS_CHAR)) THEN
1337: DBMS_SQL.BIND_VARIABLE(p_cur_get_pty_rel, ':relationship_type_code', p_party_query_rec.relationship_type_code);
1338: END IF;
1339:
1340: END Bind_Pty_variable;
1356: -- Assign null at the start
1357: x_where_clause := '';
1358:
1359: IF (( p_party_query_rec.instance_party_id IS NOT NULL) AND
1360: ( p_party_query_rec.instance_party_id <> FND_API.G_MISS_NUM)) THEN
1361: x_where_clause := ' instance_party_id = :instance_party_id ';
1362: ELSIF ( p_party_query_rec.instance_party_id IS NULL) THEN
1363: x_where_clause := ' instance_party_id IS NULL ';
1364: END IF;
1363: x_where_clause := ' instance_party_id IS NULL ';
1364: END IF;
1365:
1366: IF ((p_party_query_rec.instance_id IS NOT NULL) AND
1367: (p_party_query_rec.instance_id <> FND_API.G_MISS_NUM)) THEN
1368: IF x_where_clause IS NULL THEN
1369: x_where_clause := ' instance_id = :instance_id ';
1370: ELSE
1371: x_where_clause := x_where_clause||' AND '||' instance_id = :instance_id ';
1378: END IF;
1379: END IF;
1380:
1381: IF ((p_party_query_rec.party_id IS NOT NULL) AND
1382: (p_party_query_rec.party_id <> FND_API.G_MISS_NUM)) THEN
1383: IF x_where_clause IS NULL THEN
1384: x_where_clause := ' party_id = :party_id ';
1385: ELSE
1386: x_where_clause := x_where_clause||' AND '||' party_id = :party_id ';
1393: END IF;
1394: END IF ;
1395:
1396: IF ((p_party_query_rec.relationship_type_code IS NOT NULL) AND
1397: (p_party_query_rec.relationship_type_code <> FND_API.G_MISS_CHAR)) THEN
1398: IF x_where_clause IS NULL THEN
1399: x_where_clause := ' relationship_type_code = :relationship_type_code ';
1400: ELSE
1401: x_where_clause := x_where_clause||' AND '||
1455: -- Standard Start of API savepoint
1456: SAVEPOINT create_inst_party_rel_pvt;
1457:
1458: -- Standard call to check for call compatibility.
1459: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
1460: p_api_version ,
1461: l_api_name ,
1462: g_pkg_name )
1463: THEN
1460: p_api_version ,
1461: l_api_name ,
1462: g_pkg_name )
1463: THEN
1464: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1465: END IF;
1466:
1467: -- Initialize message list if p_init_msg_list is set to TRUE.
1468: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1464: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1465: END IF;
1466:
1467: -- Initialize message list if p_init_msg_list is set to TRUE.
1468: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1469: FND_MSG_PUB.initialize;
1470: END IF;
1471:
1472: -- Initialize API return status to success
1469: FND_MSG_PUB.initialize;
1470: END IF;
1471:
1472: -- Initialize API return status to success
1473: x_return_status := FND_API.G_RET_STS_SUCCESS;
1474:
1475: -- Check the profile option CSI_DEBUG_LEVEL for debug message reporting
1476: l_csi_debug_level:=fnd_profile.value('CSI_DEBUG_LEVEL');
1477:
1520: l_api_name );
1521:
1522: -- Initialize the count
1523: IF p_party_count_rec.party_source_count is NULL OR
1524: p_party_count_rec.party_source_count = FND_API.G_MISS_NUM THEN
1525: p_party_count_rec.party_source_count := 0;
1526: END IF;
1527: --
1528: IF p_party_count_rec.party_id_count is NULL OR
1525: p_party_count_rec.party_source_count := 0;
1526: END IF;
1527: --
1528: IF p_party_count_rec.party_id_count is NULL OR
1529: p_party_count_rec.party_id_count = FND_API.G_MISS_NUM THEN
1530: p_party_count_rec.party_id_count := 0;
1531: END IF;
1532: --
1533: IF p_party_count_rec.contact_id_count is NULL OR
1530: p_party_count_rec.party_id_count := 0;
1531: END IF;
1532: --
1533: IF p_party_count_rec.contact_id_count is NULL OR
1534: p_party_count_rec.contact_id_count = FND_API.G_MISS_NUM THEN
1535: p_party_count_rec.contact_id_count := 0;
1536: END IF;
1537: --
1538: IF p_party_count_rec.rel_type_count is NULL OR
1535: p_party_count_rec.contact_id_count := 0;
1536: END IF;
1537: --
1538: IF p_party_count_rec.rel_type_count is NULL OR
1539: p_party_count_rec.rel_type_count = FND_API.G_MISS_NUM THEN
1540: p_party_count_rec.rel_type_count := 0;
1541: END IF;
1542: --
1543: -- Check if the party is expired
1543: -- Check if the party is expired
1544: -- If so unexpire the instance party relationship
1545: -- Added by sk for bug 2232880
1546: l_record_found := FALSE;
1547: IF ( (p_called_from_grp <> FND_API.G_TRUE) AND
1548: (p_party_rec.instance_party_id IS NULL OR
1549: p_party_rec.instance_party_id = fnd_api.g_miss_num) )
1550: THEN
1551: BEGIN
1545: -- Added by sk for bug 2232880
1546: l_record_found := FALSE;
1547: IF ( (p_called_from_grp <> FND_API.G_TRUE) AND
1548: (p_party_rec.instance_party_id IS NULL OR
1549: p_party_rec.instance_party_id = fnd_api.g_miss_num) )
1550: THEN
1551: BEGIN
1552: SELECT instance_party_id,
1553: object_version_number,
1560: AND party_source_table = p_party_rec.party_source_table
1561: AND party_id = p_party_rec.party_id
1562: AND relationship_type_code = p_party_rec.relationship_type_code
1563: AND contact_flag = p_party_rec.contact_flag
1564: AND nvl(contact_ip_id,fnd_api.g_miss_num) = nvl(p_party_rec.contact_ip_id,fnd_api.g_miss_num)
1565: AND active_end_date < SYSDATE
1566: AND ROWNUM=1;
1567: l_record_found := TRUE;
1568: EXCEPTION
1574: IF l_record_found THEN
1575: /* -- Commented by sk for bug 2232880
1576: IF (CSI_Instance_parties_vld_pvt.Is_Party_Expired
1577: (p_party_rec)) THEN
1578: IF (p_party_rec.ACTIVE_END_DATE = FND_API.G_MISS_DATE) THEN
1579: p_party_rec.ACTIVE_END_DATE := NULL;
1580: END IF;
1581: */ --End commentation by sk for bug 2232880
1582: -- Unexpire the instance party relationship
1580: END IF;
1581: */ --End commentation by sk for bug 2232880
1582: -- Unexpire the instance party relationship
1583: -- Unexpire the instance party relationship
1584: IF p_party_rec.active_end_date = fnd_api.g_miss_date
1585: THEN
1586: p_party_rec.active_end_date := NULL;
1587: END IF;
1588: update_inst_party_relationship
1595: ,x_return_status => x_return_status
1596: ,x_msg_count => x_msg_count
1597: ,x_msg_data => x_msg_data ) ;
1598:
1599: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1600: l_msg_index := 1;
1601: l_msg_count := x_msg_count;
1602: WHILE l_msg_count > 0 LOOP
1603: x_msg_data := FND_MSG_PUB.GET(
1601: l_msg_count := x_msg_count;
1602: WHILE l_msg_count > 0 LOOP
1603: x_msg_data := FND_MSG_PUB.GET(
1604: l_msg_index,
1605: FND_API.G_FALSE );
1606: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
1607: l_msg_index := l_msg_index + 1;
1608: l_msg_count := l_msg_count - 1;
1609: END LOOP;
1606: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
1607: l_msg_index := l_msg_index + 1;
1608: l_msg_count := l_msg_count - 1;
1609: END LOOP;
1610: RAISE FND_API.G_EXC_ERROR;
1611: END IF;
1612: ELSE -- -- Added by sk for bug 2232880 l_record not found
1613: --END IF; -- commented by sk for bug 2232880
1614: -- Verify if the Party rel combination exists
1611: END IF;
1612: ELSE -- -- Added by sk for bug 2232880 l_record not found
1613: --END IF; -- commented by sk for bug 2232880
1614: -- Verify if the Party rel combination exists
1615: IF p_called_from_grp <> FND_API.G_TRUE THEN
1616: IF (CSI_Instance_parties_vld_pvt.Is_Party_Rel_Comb_Exists
1617: (p_party_rec.instance_id ,
1618: p_party_rec.party_source_table ,
1619: p_party_rec.party_id ,
1620: p_party_rec.relationship_type_code ,
1621: p_party_rec.contact_flag ,
1622: p_party_rec.contact_ip_id ,
1623: TRUE )) THEN
1624: RAISE FND_API.G_EXC_ERROR;
1625: END IF;
1626: END IF;
1627: --
1628: IF p_party_rec.INSTANCE_PARTY_ID is NULL OR
1625: END IF;
1626: END IF;
1627: --
1628: IF p_party_rec.INSTANCE_PARTY_ID is NULL OR
1629: p_party_rec.INSTANCE_PARTY_ID = FND_API.G_MISS_NUM THEN
1630:
1631: -- If the instance_party_id passed is null then generate from sequence
1632: -- and check if the value exists . If exists then generate
1633: -- again from the sequence till we get a value that does not exist
1641: ELSE
1642: -- Validate the instance_party_id if exist then raise CSI_API_INVALID_PRIMARY_KEY error
1643: IF CSI_Instance_parties_vld_pvt.Is_Inst_PartyID_exists(p_party_rec.INSTANCE_PARTY_ID,
1644: TRUE ) THEN
1645: RAISE FND_API.G_EXC_ERROR;
1646: END IF;
1647: END IF;
1648:
1649: -- Verify if the instance_id exists in csi_item_instances
1646: END IF;
1647: END IF;
1648:
1649: -- Verify if the instance_id exists in csi_item_instances
1650: IF p_called_from_grp <> FND_API.G_TRUE THEN
1651: IF NOT(CSI_Instance_parties_vld_pvt.Is_InstanceID_Valid(p_party_rec.INSTANCE_ID)) THEN
1652: RAISE FND_API.G_EXC_ERROR;
1653: END IF;
1654: END IF;
1648:
1649: -- Verify if the instance_id exists in csi_item_instances
1650: IF p_called_from_grp <> FND_API.G_TRUE THEN
1651: IF NOT(CSI_Instance_parties_vld_pvt.Is_InstanceID_Valid(p_party_rec.INSTANCE_ID)) THEN
1652: RAISE FND_API.G_EXC_ERROR;
1653: END IF;
1654: END IF;
1655:
1656: -- Verify if the party_source_table exists in CSI_LOOKUPS
1670: IF l_valid_flag <> 'Y' THEN
1671: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PARTY_SOURCE');
1672: FND_MESSAGE.SET_TOKEN('PARTY_SOURCE_TABLE',p_party_rec.PARTY_SOURCE_TABLE);
1673: FND_MSG_PUB.Add;
1674: RAISE FND_API.G_EXC_ERROR;
1675: END IF;
1676: END IF;
1677: --
1678: IF l_exists_flag = 'N' THEN
1679: p_party_count_rec.party_source_count := p_party_count_rec.party_source_count + 1;
1680: p_party_source_tbl(p_party_count_rec.party_source_count).party_source_table := p_party_rec.PARTY_SOURCE_TABLE;
1681: IF NOT(CSI_Instance_parties_vld_pvt.Is_Pty_Source_tab_Valid(p_party_rec.PARTY_SOURCE_TABLE)) THEN
1682: p_party_source_tbl(p_party_count_rec.party_source_count).valid_flag := 'N';
1683: RAISE FND_API.G_EXC_ERROR;
1684: ELSE
1685: p_party_source_tbl(p_party_count_rec.party_source_count).valid_flag := 'Y';
1686: END IF;
1687: END IF;
1705: IF l_valid_flag <> 'Y' THEN
1706: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PARTY_ID');
1707: FND_MESSAGE.SET_TOKEN('PARTY_ID',p_party_rec.PARTY_ID);
1708: FND_MSG_PUB.Add;
1709: RAISE FND_API.G_EXC_ERROR;
1710: END IF;
1711: END LOOP;
1712: END IF;
1713: --
1720: (p_party_rec.PARTY_SOURCE_TABLE ,
1721: p_party_rec.PARTY_ID ,
1722: p_party_rec.CONTACT_FLAG)) THEN
1723: p_party_id_tbl(p_party_count_rec.party_id_count).valid_flag := 'N';
1724: RAISE FND_API.G_EXC_ERROR;
1725: ELSE
1726: p_party_id_tbl(p_party_count_rec.party_id_count).valid_flag := 'Y';
1727: END IF;
1728: END IF;
1737: FND_MESSAGE.SET_NAME('CSI', 'CSI_INVALID_OWNER_CONTACT');
1738: FND_MESSAGE.SET_TOKEN('CONTACT_FLAG', p_party_rec.CONTACT_FLAG);
1739: FND_MESSAGE.SET_TOKEN('RELATIONSHIP_TYPE_CODE', p_party_rec.RELATIONSHIP_TYPE_CODE);
1740: FND_MSG_PUB.ADD;
1741: RAISE FND_API.G_EXC_ERROR;
1742: END IF;
1743: --
1744: -- Verify that the contact_ip_id is null, if the contact_flag is 'N'
1745: IF p_party_rec.CONTACT_FLAG = 'N'
1743: --
1744: -- Verify that the contact_ip_id is null, if the contact_flag is 'N'
1745: IF p_party_rec.CONTACT_FLAG = 'N'
1746: THEN
1747: IF ((p_party_rec.CONTACT_IP_ID <> FND_API.G_MISS_NUM)
1748: AND (p_party_rec.CONTACT_IP_ID IS NOT NULL))
1749: THEN
1750: FND_MESSAGE.SET_NAME('CSI', 'CSI_CANNOT_CREATE_CONTACT');
1751: FND_MESSAGE.SET_TOKEN('CONTACT_FLAG', p_party_rec.CONTACT_FLAG);
1750: FND_MESSAGE.SET_NAME('CSI', 'CSI_CANNOT_CREATE_CONTACT');
1751: FND_MESSAGE.SET_TOKEN('CONTACT_FLAG', p_party_rec.CONTACT_FLAG);
1752: FND_MESSAGE.SET_TOKEN('CONTACT_IP_ID', p_party_rec.CONTACT_IP_ID);
1753: FND_MSG_PUB.ADD;
1754: RAISE FND_API.G_EXC_ERROR;
1755: END IF;
1756: END IF;
1757: --
1758: -- Verify that the contact_ip_id used to create a contact
1756: END IF;
1757: --
1758: -- Verify that the contact_ip_id used to create a contact
1759: -- is not used by any other instance
1760: IF p_called_from_grp <> FND_API.G_TRUE THEN
1761: IF p_party_rec.CONTACT_FLAG = 'Y'
1762: THEN
1763: IF ((p_party_rec.CONTACT_IP_ID <> FND_API.G_MISS_NUM)
1764: AND (p_party_rec.CONTACT_IP_ID IS NOT NULL ))
1759: -- is not used by any other instance
1760: IF p_called_from_grp <> FND_API.G_TRUE THEN
1761: IF p_party_rec.CONTACT_FLAG = 'Y'
1762: THEN
1763: IF ((p_party_rec.CONTACT_IP_ID <> FND_API.G_MISS_NUM)
1764: AND (p_party_rec.CONTACT_IP_ID IS NOT NULL ))
1765: THEN
1766: l_exists := NULL;
1767: BEGIN
1775: FND_MESSAGE.SET_NAME('CSI', 'CSI_INVALID_CONTACT_ID');
1776: FND_MESSAGE.SET_TOKEN('CONTACT_FLAG', p_party_rec.CONTACT_FLAG);
1777: FND_MESSAGE.SET_TOKEN('CONTACT_IP_ID', p_party_rec.CONTACT_IP_ID);
1778: FND_MSG_PUB.Add;
1779: RAISE FND_API.G_EXC_ERROR;
1780: END IF;
1781: EXCEPTION
1782: WHEN NO_DATA_FOUND THEN
1783: NULL;
1786: FND_MESSAGE.SET_NAME('CSI', 'CSI_INVALID_CONTACT_ID');
1787: FND_MESSAGE.SET_TOKEN('CONTACT_FLAG', p_party_rec.CONTACT_FLAG);
1788: FND_MESSAGE.SET_TOKEN('CONTACT_IP_ID', p_party_rec.CONTACT_IP_ID);
1789: FND_MSG_PUB.Add;
1790: RAISE FND_API.G_EXC_ERROR;
1791: END IF;
1792: END IF;
1793: END IF;
1794: --
1796: --
1797:
1798: -- Verify the contact_ip_id is valid contact for Party if the contact_flag is 'Y'
1799: IF p_party_rec.contact_flag = 'Y' THEN
1800: IF p_called_from_grp <> FND_API.G_TRUE THEN
1801: -- Check the cache before hitting the database.
1802: l_exists_flag := 'N';
1803: l_valid_flag := 'Y';
1804: IF p_contact_tbl.count > 0 THEN
1818: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_CONTACT_INFO');
1819: FND_MESSAGE.SET_TOKEN('CONTACT_PARTY_ID',p_party_rec.PARTY_ID);
1820: FND_MESSAGE.SET_TOKEN('CONTACT_SOURCE_TABLE',p_party_rec.PARTY_SOURCE_TABLE);
1821: FND_MSG_PUB.Add;
1822: RAISE FND_API.G_EXC_ERROR;
1823: END IF;
1824: */ -- code commented by sguthiva for bug 2619247.
1825: END IF;
1826: --
1834: (p_party_rec.PARTY_ID,
1835: p_party_rec.PARTY_SOURCE_TABLE,
1836: p_party_rec.CONTACT_IP_ID)) THEN
1837: p_contact_tbl(p_party_count_rec.contact_id_count).valid_flag := 'N';
1838: RAISE FND_API.G_EXC_ERROR;
1839: ELSE
1840: p_contact_tbl(p_party_count_rec.contact_id_count).valid_flag := 'Y';
1841: END IF;
1842: end of code comment */
1860: IF l_valid_flag <> 'Y' THEN
1861: FND_MESSAGE.SET_NAME('CSI','CSI_API_INV_PARTY_TYPE_CODE');
1862: FND_MESSAGE.SET_TOKEN('RELATIONSHIP_TYPE_CODE',p_party_rec.RELATIONSHIP_TYPE_CODE);
1863: FND_MSG_PUB.Add;
1864: RAISE FND_API.G_EXC_ERROR;
1865: END IF;
1866: END IF;
1867: --
1868: IF l_exists_flag <> 'Y' THEN
1872: IF NOT(CSI_Instance_parties_vld_pvt.Is_Pty_Rel_type_Valid
1873: (p_party_rec.RELATIONSHIP_TYPE_CODE,
1874: 'C' )) THEN
1875: p_party_rel_type_tbl(p_party_count_rec.rel_type_count).valid_flag := 'N';
1876: RAISE FND_API.G_EXC_ERROR;
1877: ELSE
1878: p_party_rel_type_tbl(p_party_count_rec.rel_type_count).valid_flag := 'Y';
1879: END IF;
1880: END IF;
1897: IF l_valid_flag <> 'Y' THEN
1898: FND_MESSAGE.SET_NAME('CSI','CSI_API_INV_PARTY_TYPE_CODE');
1899: FND_MESSAGE.SET_TOKEN('RELATIONSHIP_TYPE_CODE',p_party_rec.RELATIONSHIP_TYPE_CODE);
1900: FND_MSG_PUB.Add;
1901: RAISE FND_API.G_EXC_ERROR;
1902: END IF;
1903: END IF;
1904: --
1905: IF l_exists_flag <> 'Y' THEN
1909: IF NOT(CSI_Instance_parties_vld_pvt.Is_Pty_Rel_type_Valid
1910: (p_party_rec.RELATIONSHIP_TYPE_CODE,
1911: 'P' )) THEN
1912: p_party_rel_type_tbl(p_party_count_rec.rel_type_count).valid_flag := 'N';
1913: RAISE FND_API.G_EXC_ERROR;
1914: ELSE
1915: p_party_rel_type_tbl(p_party_count_rec.rel_type_count).valid_flag := 'Y';
1916: END IF;
1917: END IF;
1919:
1920:
1921: -- If active_start_date is null or G_MISS value then assign sysdate
1922: IF ((p_party_rec.ACTIVE_START_DATE IS NULL ) OR
1923: ( p_party_rec.ACTIVE_START_DATE = FND_API.G_MISS_DATE)) THEN
1924: p_party_rec.ACTIVE_START_DATE := SYSDATE;
1925: END IF;
1926:
1927: -- verify if the active_start_date is valid
1924: p_party_rec.ACTIVE_START_DATE := SYSDATE;
1925: END IF;
1926:
1927: -- verify if the active_start_date is valid
1928: IF p_called_from_grp <> FND_API.G_TRUE THEN
1929: IF NOT(CSI_Instance_parties_vld_pvt.Is_StartDate_Valid
1930: (p_party_rec.ACTIVE_START_DATE,
1931: p_party_rec.ACTIVE_END_DATE ,
1932: p_party_rec.INSTANCE_ID )) THEN
1929: IF NOT(CSI_Instance_parties_vld_pvt.Is_StartDate_Valid
1930: (p_party_rec.ACTIVE_START_DATE,
1931: p_party_rec.ACTIVE_END_DATE ,
1932: p_party_rec.INSTANCE_ID )) THEN
1933: RAISE FND_API.G_EXC_ERROR;
1934: END IF;
1935: END IF;
1936:
1937: -- Verify if the active_end_date is valid
1934: END IF;
1935: END IF;
1936:
1937: -- Verify if the active_end_date is valid
1938: IF p_called_from_grp <> FND_API.G_TRUE THEN
1939: IF ((p_party_rec.ACTIVE_END_DATE is NOT NULL) AND
1940: ( p_party_rec.ACTIVE_END_DATE <> FND_API.G_MISS_DATE)) THEN
1941: IF NOT(CSI_Instance_parties_vld_pvt.Is_EndDate_Valid(p_party_rec.ACTIVE_START_DATE,
1942: p_party_rec.ACTIVE_END_DATE ,
1936:
1937: -- Verify if the active_end_date is valid
1938: IF p_called_from_grp <> FND_API.G_TRUE THEN
1939: IF ((p_party_rec.ACTIVE_END_DATE is NOT NULL) AND
1940: ( p_party_rec.ACTIVE_END_DATE <> FND_API.G_MISS_DATE)) THEN
1941: IF NOT(CSI_Instance_parties_vld_pvt.Is_EndDate_Valid(p_party_rec.ACTIVE_START_DATE,
1942: p_party_rec.ACTIVE_END_DATE ,
1943: p_party_rec.INSTANCE_ID,
1944: p_party_rec.INSTANCE_PARTY_ID,
1942: p_party_rec.ACTIVE_END_DATE ,
1943: p_party_rec.INSTANCE_ID,
1944: p_party_rec.INSTANCE_PARTY_ID,
1945: p_txn_rec.TRANSACTION_ID)) THEN
1946: RAISE FND_API.G_EXC_ERROR;
1947: END IF;
1948: END IF;
1949: END IF;
1950:
1948: END IF;
1949: END IF;
1950:
1951: -- Verify the instance owner exists already if exists then raise error
1952: IF p_called_from_grp <> FND_API.G_TRUE THEN
1953: IF p_party_rec.RELATIONSHIP_TYPE_CODE = 'OWNER' THEN
1954: IF CSI_Instance_parties_vld_pvt.Is_Inst_Owner_exists
1955: (p_instance_id => p_party_rec.INSTANCE_ID,
1956: p_instance_party_id => p_party_rec.instance_party_id ) THEN
1953: IF p_party_rec.RELATIONSHIP_TYPE_CODE = 'OWNER' THEN
1954: IF CSI_Instance_parties_vld_pvt.Is_Inst_Owner_exists
1955: (p_instance_id => p_party_rec.INSTANCE_ID,
1956: p_instance_party_id => p_party_rec.instance_party_id ) THEN
1957: RAISE FND_API.G_EXC_ERROR;
1958: END IF;
1959: END IF;
1960: END IF;
1961:
1967: FND_MESSAGE.SET_NAME('CSI','CSI_PREFERRED_PTY_TYPE');
1968: FND_MESSAGE.SET_TOKEN('PARTY_TYPE',p_party_rec.PARTY_SOURCE_TABLE);
1969: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_party_rec.INSTANCE_ID);
1970: FND_MSG_PUB.Add;
1971: RAISE FND_API.G_EXC_ERROR;
1972: END IF;
1973: END IF;
1974: END IF;
1975:
1974: END IF;
1975:
1976: -- Verify that there is only one Primary Party for a
1977: -- given instance party relationship
1978: IF p_called_from_grp <> FND_API.G_TRUE THEN
1979: IF p_party_rec.PRIMARY_FLAG = 'Y' THEN
1980: IF p_party_rec.CONTACT_FLAG = 'Y' THEN
1981: IF CSI_Instance_parties_vld_pvt.Is_Primary_Contact_Pty
1982: (p_party_rec.INSTANCE_ID,
1983: p_party_rec.CONTACT_IP_ID,
1984: p_party_rec.RELATIONSHIP_TYPE_CODE,
1985: p_party_rec.ACTIVE_START_DATE,
1986: p_party_rec.ACTIVE_END_DATE) THEN
1987: RAISE FND_API.G_EXC_ERROR;
1988: END IF;
1989: ELSE
1990: IF p_party_rec.PARTY_SOURCE_TABLE NOT IN ('GROUP','TEAM') THEN
1991: FND_MESSAGE.SET_NAME('CSI','CSI_PRIMARY_PTY_TYPE');
1991: FND_MESSAGE.SET_NAME('CSI','CSI_PRIMARY_PTY_TYPE');
1992: FND_MESSAGE.SET_TOKEN('PARTY_TYPE',p_party_rec.PARTY_SOURCE_TABLE);
1993: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_party_rec.INSTANCE_ID);
1994: FND_MSG_PUB.Add;
1995: RAISE FND_API.G_EXC_ERROR;
1996: ELSE
1997: IF CSI_Instance_parties_vld_pvt.Is_Primary_Pty
1998: (p_party_rec.INSTANCE_ID,
1999: p_party_rec.RELATIONSHIP_TYPE_CODE,
1998: (p_party_rec.INSTANCE_ID,
1999: p_party_rec.RELATIONSHIP_TYPE_CODE,
2000: p_party_rec.ACTIVE_START_DATE,
2001: p_party_rec.ACTIVE_END_DATE) THEN
2002: RAISE FND_API.G_EXC_ERROR;
2003: END IF;
2004: END IF;
2005: END IF;
2006: END IF;
2005: END IF;
2006: END IF;
2007: END IF;
2008: --
2009: IF p_called_from_grp <> fnd_api.g_true THEN
2010: -- If it is an owner party then update csi_item_instances
2011: IF p_party_rec.RELATIONSHIP_TYPE_CODE = 'OWNER' THEN
2012: update csi_item_instances
2013: set owner_party_source_table = p_party_rec.party_source_table,
2018:
2019: -- A contact marked as 'Primary' can also be marked as 'Preferred' or
2020: -- 'Non-Preferred' at the same time.
2021: IF p_party_rec.preferred_flag IS NULL OR
2022: p_party_rec.preferred_flag=fnd_api.g_miss_char
2023: THEN
2024: p_party_rec.preferred_flag:='N';
2025: END IF;
2026:
2031: END IF;
2032:
2033: -- A contact marked as Primary cannot be marked as 'Excluded'
2034: IF (p_party_rec.primary_flag IS NOT NULL AND
2035: p_party_rec.primary_flag <> fnd_api.g_miss_char AND
2036: p_party_rec.primary_flag = 'Y' ) AND
2037: p_party_rec.preferred_flag='E'
2038: THEN
2039: fnd_message.set_name('CSI','CSI_PRIMARY_PTY_EXC');
2037: p_party_rec.preferred_flag='E'
2038: THEN
2039: fnd_message.set_name('CSI','CSI_PRIMARY_PTY_EXC');
2040: fnd_msg_pub.Add;
2041: RAISE fnd_api.g_exc_error;
2042: END IF;
2043:
2044: -- Possible values for preferred flag are
2045: -- 'N','Y' and 'E'.
2051: ELSE
2052: fnd_message.set_name('CSI','CSI_PREFERRED_VALUES');
2053: fnd_message.set_token('PREFERRED_FLAG',p_party_rec.preferred_flag);
2054: fnd_msg_pub.Add;
2055: RAISE fnd_api.g_exc_error;
2056: END IF;
2057:
2058:
2059: -- Call table handlers to insert into the csi_i_parties table
2105: ,x_return_status => x_return_status
2106: ,x_msg_count => x_msg_count
2107: ,x_msg_data => x_msg_data );
2108:
2109: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
2110: l_msg_index := 1;
2111: l_msg_count := x_msg_count;
2112: WHILE l_msg_count > 0 LOOP
2113: x_msg_data := FND_MSG_PUB.GET(
2111: l_msg_count := x_msg_count;
2112: WHILE l_msg_count > 0 LOOP
2113: x_msg_data := FND_MSG_PUB.GET(
2114: l_msg_index,
2115: FND_API.G_FALSE );
2116: csi_gen_utility_pvt.put_line( 'message data = '||x_msg_data);
2117: l_msg_index := l_msg_index + 1;
2118: l_msg_count := l_msg_count - 1;
2119: END LOOP;
2116: csi_gen_utility_pvt.put_line( 'message data = '||x_msg_data);
2117: l_msg_index := l_msg_index + 1;
2118: l_msg_count := l_msg_count - 1;
2119: END LOOP;
2120: RAISE FND_API.G_EXC_ERROR;
2121: END IF;
2122:
2123: -- Generate a unique instance_party_history_id from the sequence
2124: l_inst_party_his_id := CSI_Instance_parties_vld_pvt.gen_inst_party_hist_id;
2194: --
2195: -- End of API body
2196:
2197: -- Standard check of p_commit.
2198: IF FND_API.To_Boolean( p_commit ) THEN
2199: COMMIT WORK;
2200: END IF;
2201:
2202:
2204: FND_MSG_PUB.Count_And_Get
2205: (p_count => x_msg_count ,
2206: p_data => x_msg_data );
2207: EXCEPTION
2208: WHEN FND_API.G_EXC_ERROR THEN
2209: ROLLBACK TO create_inst_party_rel_pvt;
2210: x_return_status := FND_API.G_RET_STS_ERROR ;
2211: FND_MSG_PUB.Count_And_Get
2212: ( p_count => x_msg_count,
2206: p_data => x_msg_data );
2207: EXCEPTION
2208: WHEN FND_API.G_EXC_ERROR THEN
2209: ROLLBACK TO create_inst_party_rel_pvt;
2210: x_return_status := FND_API.G_RET_STS_ERROR ;
2211: FND_MSG_PUB.Count_And_Get
2212: ( p_count => x_msg_count,
2213: p_data => x_msg_data );
2214:
2211: FND_MSG_PUB.Count_And_Get
2212: ( p_count => x_msg_count,
2213: p_data => x_msg_data );
2214:
2215: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2216: ROLLBACK TO create_inst_party_rel_pvt;
2217: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2218: FND_MSG_PUB.Count_And_Get
2219: ( p_count => x_msg_count,
2213: p_data => x_msg_data );
2214:
2215: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2216: ROLLBACK TO create_inst_party_rel_pvt;
2217: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2218: FND_MSG_PUB.Count_And_Get
2219: ( p_count => x_msg_count,
2220: p_data => x_msg_data );
2221:
2220: p_data => x_msg_data );
2221:
2222: WHEN OTHERS THEN
2223: ROLLBACK TO create_inst_party_rel_pvt;
2224: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2225: IF FND_MSG_PUB.Check_Msg_Level
2226: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2227: THEN
2228: FND_MSG_PUB.Add_Exc_Msg
2558: l_party_hist_rec csi_datastructures_pub.party_history_rec;
2559: l_ins_pty_found NUMBER;
2560: l_pty_end_date DATE;
2561:
2562: l_inst_just_expired VARCHAR2(1) := FND_API.G_FALSE; --Added for bug 7517240
2563: BEGIN
2564: -- Standard Start of API savepoint
2565: -- SAVEPOINT update_inst_party_rel_pvt ;
2566:
2564: -- Standard Start of API savepoint
2565: -- SAVEPOINT update_inst_party_rel_pvt ;
2566:
2567: -- Standard call to check for call compatibility.
2568: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
2569: p_api_version ,
2570: l_api_name ,
2571: g_pkg_name )
2572: THEN
2569: p_api_version ,
2570: l_api_name ,
2571: g_pkg_name )
2572: THEN
2573: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2574: END IF;
2575:
2576: -- Initialize message list if p_init_msg_list is set to TRUE.
2577: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2573: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2574: END IF;
2575:
2576: -- Initialize message list if p_init_msg_list is set to TRUE.
2577: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2578: FND_MSG_PUB.initialize;
2579: END IF;
2580:
2581: -- Initialize API return status to success
2578: FND_MSG_PUB.initialize;
2579: END IF;
2580:
2581: -- Initialize API return status to success
2582: x_return_status := FND_API.G_RET_STS_SUCCESS;
2583:
2584: -- Check the profile option CSI_DEBUG_LEVEL for debug message reporting
2585: l_csi_debug_level:=fnd_profile.value('CSI_DEBUG_LEVEL');
2586:
2609: --
2610: IF p_party_rec.party_id IS NULL THEN
2611: FND_MESSAGE.SET_NAME('CSI','CSI_API_MANDATORY_PARTY');
2612: FND_MSG_PUB.Add;
2613: RAISE FND_API.G_EXC_ERROR;
2614: END IF;
2615: --
2616: -- Check if the instance party id is valid
2617: -- End commentation by sk for bug 2232880
2615: --
2616: -- Check if the instance party id is valid
2617: -- End commentation by sk for bug 2232880
2618: -- Verify if the instance_id exists in csi_item_instances
2619: IF p_party_rec.INSTANCE_ID <> FND_API.G_MISS_NUM THEN
2620: --Added query for bug 7517240
2621: IF p_party_rec.ACTIVE_END_DATE IS NOT NULL AND p_party_rec.ACTIVE_END_DATE < SYSDATE THEN
2622: BEGIN
2623: SELECT 'T'
2629: AND NEW_ACTIVE_END_DATE < SYSDATE
2630: AND ROWNUM = 1;
2631: EXCEPTION
2632: WHEN NO_DATA_FOUND THEN
2633: l_inst_just_expired := FND_API.G_FALSE;
2634: END;
2635: END IF;
2636: IF l_inst_just_expired = FND_API.G_FALSE
2637: AND NOT(CSI_Instance_parties_vld_pvt.Is_InstanceID_Valid(p_party_rec.INSTANCE_ID)) THEN
2632: WHEN NO_DATA_FOUND THEN
2633: l_inst_just_expired := FND_API.G_FALSE;
2634: END;
2635: END IF;
2636: IF l_inst_just_expired = FND_API.G_FALSE
2637: AND NOT(CSI_Instance_parties_vld_pvt.Is_InstanceID_Valid(p_party_rec.INSTANCE_ID)) THEN
2638: RAISE FND_API.G_EXC_ERROR;
2639: END IF;
2640: END IF;
2634: END;
2635: END IF;
2636: IF l_inst_just_expired = FND_API.G_FALSE
2637: AND NOT(CSI_Instance_parties_vld_pvt.Is_InstanceID_Valid(p_party_rec.INSTANCE_ID)) THEN
2638: RAISE FND_API.G_EXC_ERROR;
2639: END IF;
2640: END IF;
2641: -- Verify the instance owner exists already if exists then raise error
2642: IF p_party_rec.RELATIONSHIP_TYPE_CODE = 'OWNER' THEN
2642: IF p_party_rec.RELATIONSHIP_TYPE_CODE = 'OWNER' THEN
2643: IF CSI_Instance_parties_vld_pvt.Is_Inst_Owner_exists
2644: (p_instance_id => p_party_rec.INSTANCE_ID,
2645: p_instance_party_id => p_party_rec.instance_party_id ) THEN
2646: RAISE FND_API.G_EXC_ERROR;
2647: END IF;
2648: END IF;
2649: -- start of addition of code by rtalluri for bugfix 2324745 on 04/23/02
2650: -- validating the owner
2649: -- start of addition of code by rtalluri for bugfix 2324745 on 04/23/02
2650: -- validating the owner
2651: IF l_curr_party_rec.instance_party_id = p_party_rec.instance_party_id
2652: AND l_curr_party_rec.party_id <> p_party_rec.party_id
2653: AND (p_party_rec.party_id is not null and p_party_rec.party_id <> fnd_api.g_miss_num)
2654: AND l_curr_party_rec.relationship_type_code = 'OWNER'
2655: THEN
2656: OPEN curr_instance_rec(p_party_rec.instance_id);
2657: FETCH curr_instance_rec INTO l_curr_instance_rec;
2658: IF NOT (csi_item_instance_vld_pvt.Validate_Uniqueness(p_instance_rec => l_curr_instance_rec,
2659: p_party_rec => p_party_rec,
2660: p_csi_txn_type_id => p_txn_rec.transaction_type_id
2661: )) THEN
2662: RAISE FND_API.G_EXC_ERROR;
2663: END IF;
2664: CLOSE curr_instance_rec;
2665: END IF;
2666: -- end of addition of code by rtalluri for bugfix 2324745 on 04/23/02
2678: WHERE instance_party_id=p_party_rec.instance_party_id;
2679: EXCEPTION
2680: WHEN NO_DATA_FOUND THEN
2681: csi_gen_utility_pvt.put_line('Passed instance_party_id : '||p_party_rec.instance_party_id||' is not found.');
2682: RAISE FND_API.G_EXC_ERROR;
2683: END;
2684: END IF;
2685: -- check if the object_version_number passed matches with the one
2686: -- in the database else raise error
2688: FETCH get_curr_party_rec INTO l_curr_party_rec;
2689: IF (l_curr_party_rec.object_version_number <> p_party_rec.OBJECT_VERSION_NUMBER) THEN
2690: FND_MESSAGE.Set_Name('CSI', 'CSI_API_OBJ_VER_MISMATCH');
2691: FND_MSG_PUB.ADD;
2692: RAISE FND_API.G_EXC_ERROR;
2693: END IF;
2694: --
2695: IF get_curr_party_rec%NOTFOUND THEN
2696: FND_MESSAGE.Set_Name('CSI', 'CSI_API_RECORD_LOCKED');
2694: --
2695: IF get_curr_party_rec%NOTFOUND THEN
2696: FND_MESSAGE.Set_Name('CSI', 'CSI_API_RECORD_LOCKED');
2697: FND_MSG_PUB.ADD;
2698: RAISE FND_API.G_EXC_ERROR;
2699: END IF;
2700: CLOSE get_curr_party_rec;
2701: --
2702: IF p_party_rec.instance_id <> FND_API.G_MISS_NUM THEN
2698: RAISE FND_API.G_EXC_ERROR;
2699: END IF;
2700: CLOSE get_curr_party_rec;
2701: --
2702: IF p_party_rec.instance_id <> FND_API.G_MISS_NUM THEN
2703: IF p_party_rec.instance_id <> l_curr_party_rec.instance_id THEN
2704: FND_MESSAGE.Set_Name('CSI', 'CSI_API_UPD_NOT_ALLOWED');
2705: FND_MESSAGE.Set_Token('COLUMN', 'INSTANCE_ID');
2706: FND_MSG_PUB.ADD;
2703: IF p_party_rec.instance_id <> l_curr_party_rec.instance_id THEN
2704: FND_MESSAGE.Set_Name('CSI', 'CSI_API_UPD_NOT_ALLOWED');
2705: FND_MESSAGE.Set_Token('COLUMN', 'INSTANCE_ID');
2706: FND_MSG_PUB.ADD;
2707: RAISE FND_API.G_EXC_ERROR;
2708: END IF;
2709: END IF;
2710: --
2711: IF p_party_rec.active_start_date IS NULL THEN
2711: IF p_party_rec.active_start_date IS NULL THEN
2712: FND_MESSAGE.Set_Name('CSI', 'CSI_API_UPD_NOT_ALLOWED');
2713: FND_MESSAGE.Set_Token('COLUMN', 'ACTIVE_START_DATE');
2714: FND_MSG_PUB.ADD;
2715: RAISE FND_API.G_EXC_ERROR;
2716: END IF;
2717: --
2718: IF p_party_rec.active_start_date <> FND_API.G_MISS_DATE THEN
2719: IF p_party_rec.active_start_date <> l_curr_party_rec.active_start_date THEN
2714: FND_MSG_PUB.ADD;
2715: RAISE FND_API.G_EXC_ERROR;
2716: END IF;
2717: --
2718: IF p_party_rec.active_start_date <> FND_API.G_MISS_DATE THEN
2719: IF p_party_rec.active_start_date <> l_curr_party_rec.active_start_date THEN
2720: FND_MESSAGE.Set_Name('CSI', 'CSI_API_UPD_NOT_ALLOWED');
2721: FND_MESSAGE.Set_Token('COLUMN', 'ACTIVE_START_DATE');
2722: FND_MSG_PUB.ADD;
2719: IF p_party_rec.active_start_date <> l_curr_party_rec.active_start_date THEN
2720: FND_MESSAGE.Set_Name('CSI', 'CSI_API_UPD_NOT_ALLOWED');
2721: FND_MESSAGE.Set_Token('COLUMN', 'ACTIVE_START_DATE');
2722: FND_MSG_PUB.ADD;
2723: RAISE FND_API.G_EXC_ERROR;
2724: END IF;
2725: END IF;
2726: -- Increment the object_version_number before updating
2727: l_OBJECT_VERSION_NUMBER := l_curr_party_rec.OBJECT_VERSION_NUMBER + 1 ;
2726: -- Increment the object_version_number before updating
2727: l_OBJECT_VERSION_NUMBER := l_curr_party_rec.OBJECT_VERSION_NUMBER + 1 ;
2728: -- Verify if the active_end_date is valid
2729: -- Don't allow expiry of owner parties
2730: IF p_party_rec.ACTIVE_END_DATE <> FND_API.G_MISS_DATE THEN
2731: IF l_curr_party_rec.relationship_type_code = 'OWNER' THEN
2732: FND_MESSAGE.Set_Name('CSI', 'CSI_API_EXP_NOT_ALLOWED');
2733: FND_MESSAGE.Set_Token('COLUMN', 'OWNER PARTY');
2734: FND_MSG_PUB.ADD;
2731: IF l_curr_party_rec.relationship_type_code = 'OWNER' THEN
2732: FND_MESSAGE.Set_Name('CSI', 'CSI_API_EXP_NOT_ALLOWED');
2733: FND_MESSAGE.Set_Token('COLUMN', 'OWNER PARTY');
2734: FND_MSG_PUB.ADD;
2735: RAISE FND_API.G_EXC_ERROR;
2736: ELSE
2737: -- Verify if the active_end_date is valid
2738: IF (g_expire_party_flag <> 'Y') THEN
2739: IF NOT(CSI_Instance_parties_vld_pvt.Is_EndDate_Valid
2741: p_party_rec.ACTIVE_END_DATE ,
2742: p_party_rec.INSTANCE_ID,
2743: p_party_rec.INSTANCE_PARTY_ID,
2744: p_txn_rec.TRANSACTION_ID)) THEN
2745: RAISE FND_API.G_EXC_ERROR;
2746: END IF;
2747: END IF;
2748: END IF;
2749: END IF;
2747: END IF;
2748: END IF;
2749: END IF;
2750: --
2751: IF p_party_rec.relationship_type_code <> FND_API.G_MISS_CHAR THEN
2752: IF ((p_party_rec.relationship_type_code <> l_curr_party_rec.relationship_type_code)
2753: AND l_curr_party_rec.relationship_type_code = 'OWNER' ) THEN
2754: FND_MESSAGE.Set_Name('CSI', 'CSI_API_UPD_NOT_ALLOWED');
2755: FND_MESSAGE.Set_Token('COLUMN', 'OWNER PARTY');
2754: FND_MESSAGE.Set_Name('CSI', 'CSI_API_UPD_NOT_ALLOWED');
2755: FND_MESSAGE.Set_Token('COLUMN', 'OWNER PARTY');
2756:
2757: FND_MSG_PUB.ADD;
2758: RAISE FND_API.G_EXC_ERROR;
2759: ELSE
2760:
2761:
2762: IF (l_csi_debug_level > 0) THEN
2777: IF p_party_rec.contact_flag = 'Y' THEN
2778: IF NOT(CSI_Instance_parties_vld_pvt.Is_Pty_Rel_type_Valid
2779: (p_party_rec.RELATIONSHIP_TYPE_CODE,
2780: 'C' )) THEN
2781: RAISE FND_API.G_EXC_ERROR;
2782: END IF;
2783: ELSE
2784: -- Verify the relationship_type_code is valid
2785: IF NOT(CSI_Instance_parties_vld_pvt.Is_Pty_Rel_type_Valid
2784: -- Verify the relationship_type_code is valid
2785: IF NOT(CSI_Instance_parties_vld_pvt.Is_Pty_Rel_type_Valid
2786: (p_party_rec.RELATIONSHIP_TYPE_CODE,
2787: 'P' )) THEN
2788: RAISE FND_API.G_EXC_ERROR;
2789: END IF;
2790: END IF;
2791: END IF;
2792: END IF;
2793:
2794: -- Verify that there is only one Preferred Party for a
2795: -- given instance party relationship
2796: -- Bug 9286516
2797: IF p_party_rec.preferred_flag <> FND_API.G_MISS_CHAR THEN
2798: IF ( ((p_party_rec.preferred_flag IS NULL AND l_curr_party_rec.preferred_flag IS NOT NULL)
2799: OR (p_party_rec.preferred_flag IS NOT NULL AND l_curr_party_rec.preferred_flag IS NULL)
2800: OR (p_party_rec.preferred_flag <> l_curr_party_rec.preferred_flag))
2801: AND (p_party_rec.preferred_flag = 'Y')) THEN
2799: OR (p_party_rec.preferred_flag IS NOT NULL AND l_curr_party_rec.preferred_flag IS NULL)
2800: OR (p_party_rec.preferred_flag <> l_curr_party_rec.preferred_flag))
2801: AND (p_party_rec.preferred_flag = 'Y')) THEN
2802: IF p_party_rec.CONTACT_FLAG <> 'Y' THEN
2803: IF (((p_party_rec.PARTY_SOURCE_TABLE <> FND_API.G_MISS_CHAR)
2804: AND (p_party_rec.PARTY_SOURCE_TABLE NOT IN ('GROUP','TEAM')))
2805: OR (l_curr_party_rec.PARTY_SOURCE_TABLE NOT IN ('GROUP','TEAM'))) THEN
2806: FND_MESSAGE.SET_NAME('CSI','CSI_PREFERRED_PTY_TYPE');
2807: FND_MESSAGE.SET_TOKEN('PARTY_TYPE',l_curr_party_rec.PARTY_SOURCE_TABLE);
2806: FND_MESSAGE.SET_NAME('CSI','CSI_PREFERRED_PTY_TYPE');
2807: FND_MESSAGE.SET_TOKEN('PARTY_TYPE',l_curr_party_rec.PARTY_SOURCE_TABLE);
2808: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',l_curr_party_rec.INSTANCE_ID);
2809: FND_MSG_PUB.Add;
2810: RAISE FND_API.G_EXC_ERROR;
2811: END IF;
2812: END IF;
2813: END IF;
2814: END IF;
2813: END IF;
2814: END IF;
2815: -- Verify that there is only one Primary Party for a
2816: -- given instance party relationship
2817: IF ((nvl(p_party_rec.primary_flag,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR)
2818: OR (nvl(p_party_rec.relationship_type_code,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR)) THEN
2819: IF (((p_party_rec.primary_flag IS NULL AND l_curr_party_rec.primary_flag IS NOT NULL)
2820: OR (p_party_rec.primary_flag IS NOT NULL AND l_curr_party_rec.primary_flag IS NULL)
2821: OR (p_party_rec.primary_flag <> l_curr_party_rec.primary_flag)
2814: END IF;
2815: -- Verify that there is only one Primary Party for a
2816: -- given instance party relationship
2817: IF ((nvl(p_party_rec.primary_flag,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR)
2818: OR (nvl(p_party_rec.relationship_type_code,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR)) THEN
2819: IF (((p_party_rec.primary_flag IS NULL AND l_curr_party_rec.primary_flag IS NOT NULL)
2820: OR (p_party_rec.primary_flag IS NOT NULL AND l_curr_party_rec.primary_flag IS NULL)
2821: OR (p_party_rec.primary_flag <> l_curr_party_rec.primary_flag)
2822: AND (p_party_rec.primary_flag = 'Y'))
2820: OR (p_party_rec.primary_flag IS NOT NULL AND l_curr_party_rec.primary_flag IS NULL)
2821: OR (p_party_rec.primary_flag <> l_curr_party_rec.primary_flag)
2822: AND (p_party_rec.primary_flag = 'Y'))
2823: OR (p_party_rec.relationship_type_code <> l_curr_party_rec.relationship_type_code)) THEN
2824: IF (((p_party_rec.CONTACT_FLAG <> FND_API.G_MISS_CHAR)
2825: AND (p_party_rec.CONTACT_FLAG = 'Y'))
2826: OR (l_curr_party_rec.CONTACT_FLAG = 'Y')) THEN
2827: -- SK ADDED
2828: -- following code 10 lines needs to be removed once
2828: -- following code 10 lines needs to be removed once
2829: -- html code is fixed
2830: IF p_party_rec.PARTY_SOURCE_TABLE IS NULL
2831: THEN
2832: p_party_rec.PARTY_SOURCE_TABLE:=fnd_api.g_miss_char;
2833: END IF;
2834: IF p_party_rec.primary_flag IS NULL THEN
2835: p_party_rec.primary_flag:='N';
2836: END IF;
2840: THEN
2841: NULL;
2842: ELSIF ((nvl(l_curr_party_rec.primary_flag,'N') = 'Y') OR (p_party_rec.primary_flag = 'Y')) THEN
2843: IF p_party_rec.ACTIVE_START_DATE IS NULL
2844: OR p_party_rec.ACTIVE_START_DATE = fnd_api.g_miss_date THEN
2845: p_party_rec.ACTIVE_START_DATE := l_curr_party_rec.ACTIVE_START_DATE;
2846: END IF;
2847: --
2848: IF /* p_party_rec.ACTIVE_END_DATE IS NULL
2846: END IF;
2847: --
2848: IF /* p_party_rec.ACTIVE_END_DATE IS NULL
2849: -- Commenting for Bug 14772562
2850: OR */ p_party_rec.ACTIVE_END_DATE = fnd_api.g_miss_date
2851: THEN
2852: p_party_rec.ACTIVE_END_DATE := l_curr_party_rec.ACTIVE_END_DATE;
2853: END IF;
2854: -- SK END ADDITION
2857: l_curr_party_rec.CONTACT_IP_ID,
2858: p_party_rec.RELATIONSHIP_TYPE_CODE,
2859: p_party_rec.ACTIVE_START_DATE,
2860: p_party_rec.ACTIVE_END_DATE) THEN
2861: RAISE FND_API.G_EXC_ERROR;
2862: END IF;
2863: END IF; --SK ADDED
2864: ELSE
2865: IF (((p_party_rec.PARTY_SOURCE_TABLE <> FND_API.G_MISS_CHAR)
2861: RAISE FND_API.G_EXC_ERROR;
2862: END IF;
2863: END IF; --SK ADDED
2864: ELSE
2865: IF (((p_party_rec.PARTY_SOURCE_TABLE <> FND_API.G_MISS_CHAR)
2866: AND (p_party_rec.PARTY_SOURCE_TABLE NOT IN ('GROUP','TEAM')))
2867: OR (l_curr_party_rec.PARTY_SOURCE_TABLE NOT IN ('GROUP','TEAM'))) THEN
2868: -- following code is commented by sk
2869: /*FND_MESSAGE.SET_NAME('CSI','CSI_HAHA2');
2870: --FND_MESSAGE.SET_NAME('CSI','CSI_PRIMARY_PTY_TYPE');
2871: FND_MESSAGE.SET_TOKEN('PARTY_TYPE',l_curr_party_rec.PARTY_SOURCE_TABLE);
2872: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',l_curr_party_rec.INSTANCE_ID);
2873: FND_MSG_PUB.Add;
2874: RAISE FND_API.G_EXC_ERROR; */
2875: NULL; --added by sk
2876: ELSE
2877: -- SK ADDED
2878: IF p_party_rec.primary_flag IS NULL
2885: THEN
2886: NULL;
2887: ELSIF ((nvl(l_curr_party_rec.primary_flag,'N') = 'Y') OR (p_party_rec.primary_flag = 'Y')) THEN
2888: IF p_party_rec.ACTIVE_START_DATE IS NULL
2889: OR p_party_rec.ACTIVE_START_DATE = fnd_api.g_miss_date
2890: THEN
2891: p_party_rec.ACTIVE_START_DATE := l_curr_party_rec.ACTIVE_START_DATE;
2892: END IF;
2893: IF /* p_party_rec.ACTIVE_END_DATE IS NULL
2891: p_party_rec.ACTIVE_START_DATE := l_curr_party_rec.ACTIVE_START_DATE;
2892: END IF;
2893: IF /* p_party_rec.ACTIVE_END_DATE IS NULL
2894: -- Commenting for Bug 14772562
2895: OR */ p_party_rec.ACTIVE_END_DATE = fnd_api.g_miss_date
2896: THEN
2897: p_party_rec.ACTIVE_END_DATE := l_curr_party_rec.ACTIVE_END_DATE;
2898: END IF;
2899: -- SK END ADDITION
2901: (l_curr_party_rec.INSTANCE_ID,
2902: p_party_rec.RELATIONSHIP_TYPE_CODE,
2903: p_party_rec.ACTIVE_START_DATE,
2904: p_party_rec.ACTIVE_END_DATE) THEN
2905: RAISE FND_API.G_EXC_ERROR;
2906: END IF;
2907: END IF; --SK ADDED
2908: END IF;
2909: END IF;
2910: END IF;
2911: END IF;
2912: -- Call table handlers to insert into the csi_i_parties table
2913: -- Verify if the party_source_table exists in CSI_LOOKUPS
2914: IF (p_party_rec.PARTY_SOURCE_TABLE <> FND_API.G_MISS_CHAR) THEN
2915: IF NOT(CSI_Instance_parties_vld_pvt.Is_Pty_Source_tab_Valid(p_party_rec.PARTY_SOURCE_TABLE)) THEN
2916: RAISE FND_API.G_EXC_ERROR;
2917: END IF;
2918: -- Verify if the party_id is valid based on the value of party_source_table
2912: -- Call table handlers to insert into the csi_i_parties table
2913: -- Verify if the party_source_table exists in CSI_LOOKUPS
2914: IF (p_party_rec.PARTY_SOURCE_TABLE <> FND_API.G_MISS_CHAR) THEN
2915: IF NOT(CSI_Instance_parties_vld_pvt.Is_Pty_Source_tab_Valid(p_party_rec.PARTY_SOURCE_TABLE)) THEN
2916: RAISE FND_API.G_EXC_ERROR;
2917: END IF;
2918: -- Verify if the party_id is valid based on the value of party_source_table
2919: IF (p_party_rec.PARTY_ID <> FND_API.G_MISS_NUM) THEN
2920: IF NOT(CSI_Instance_parties_vld_pvt.Is_Party_Valid
2915: IF NOT(CSI_Instance_parties_vld_pvt.Is_Pty_Source_tab_Valid(p_party_rec.PARTY_SOURCE_TABLE)) THEN
2916: RAISE FND_API.G_EXC_ERROR;
2917: END IF;
2918: -- Verify if the party_id is valid based on the value of party_source_table
2919: IF (p_party_rec.PARTY_ID <> FND_API.G_MISS_NUM) THEN
2920: IF NOT(CSI_Instance_parties_vld_pvt.Is_Party_Valid
2921: (p_party_rec.PARTY_SOURCE_TABLE ,
2922: p_party_rec.PARTY_ID ,
2923: p_party_rec.CONTACT_FLAG )) THEN
2920: IF NOT(CSI_Instance_parties_vld_pvt.Is_Party_Valid
2921: (p_party_rec.PARTY_SOURCE_TABLE ,
2922: p_party_rec.PARTY_ID ,
2923: p_party_rec.CONTACT_FLAG )) THEN
2924: RAISE FND_API.G_EXC_ERROR;
2925: END IF;
2926: END IF;
2927: ELSE
2928: IF (p_party_rec.PARTY_ID <> FND_API.G_MISS_NUM) THEN
2924: RAISE FND_API.G_EXC_ERROR;
2925: END IF;
2926: END IF;
2927: ELSE
2928: IF (p_party_rec.PARTY_ID <> FND_API.G_MISS_NUM) THEN
2929: IF NOT(CSI_Instance_parties_vld_pvt.Is_Party_Valid
2930: (l_curr_party_rec.PARTY_SOURCE_TABLE ,
2931: p_party_rec.PARTY_ID ,
2932: p_party_rec.CONTACT_FLAG )) THEN
2929: IF NOT(CSI_Instance_parties_vld_pvt.Is_Party_Valid
2930: (l_curr_party_rec.PARTY_SOURCE_TABLE ,
2931: p_party_rec.PARTY_ID ,
2932: p_party_rec.CONTACT_FLAG )) THEN
2933: RAISE FND_API.G_EXC_ERROR;
2934: END IF;
2935: END IF;
2936: END IF;
2937: -- Grab the internal party id from csi_installed paramters
2943: --
2944: IF l_internal_party_id IS NULL THEN
2945: FND_MESSAGE.SET_NAME('CSI','CSI_API_UNINSTALLED_PARAMETER');
2946: FND_MSG_PUB.ADD;
2947: RAISE FND_API.G_EXC_ERROR;
2948: END IF;
2949: -- Validate Tranfer Party rules in case of tranfer of instance
2950: IF ((p_party_rec.PARTY_ID <> FND_API.G_MISS_NUM)
2951: AND (p_party_rec.PARTY_ID IS NOT NULL)
2946: FND_MSG_PUB.ADD;
2947: RAISE FND_API.G_EXC_ERROR;
2948: END IF;
2949: -- Validate Tranfer Party rules in case of tranfer of instance
2950: IF ((p_party_rec.PARTY_ID <> FND_API.G_MISS_NUM)
2951: AND (p_party_rec.PARTY_ID IS NOT NULL)
2952: AND (p_party_rec.PARTY_ID <> l_curr_party_rec.PARTY_ID))
2953: --AND (p_party_rec.party_id <> l_internal_party_id)) -- commented for bug 3294748
2954: THEN
2965: ,x_return_status => x_return_status
2966: ,x_msg_count => x_msg_count
2967: ,x_msg_data => x_msg_data );
2968:
2969: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
2970: l_msg_index := 1;
2971: l_msg_count := x_msg_count;
2972: WHILE l_msg_count > 0 LOOP
2973: x_msg_data := FND_MSG_PUB.GET(
2971: l_msg_count := x_msg_count;
2972: WHILE l_msg_count > 0 LOOP
2973: x_msg_data := FND_MSG_PUB.GET(
2974: l_msg_index,
2975: FND_API.G_FALSE );
2976: csi_gen_utility_pvt.put_line( 'message data = '||x_msg_data);
2977: l_msg_index := l_msg_index + 1;
2978: l_msg_count := l_msg_count - 1;
2979: END LOOP;
2976: csi_gen_utility_pvt.put_line( 'message data = '||x_msg_data);
2977: l_msg_index := l_msg_index + 1;
2978: l_msg_count := l_msg_count - 1;
2979: END LOOP;
2980: RAISE FND_API.G_EXC_ERROR;
2981: END IF;
2982: END IF;
2983: -- Validate alternate primary key
2984: IF ((p_party_rec.instance_id IS NULL) OR (p_party_rec.instance_id = FND_API.G_MISS_NUM)) THEN
2980: RAISE FND_API.G_EXC_ERROR;
2981: END IF;
2982: END IF;
2983: -- Validate alternate primary key
2984: IF ((p_party_rec.instance_id IS NULL) OR (p_party_rec.instance_id = FND_API.G_MISS_NUM)) THEN
2985: l_alt_pk_instance_id := l_curr_party_rec.instance_id;
2986: ELSE
2987: l_alt_pk_instance_id := p_party_rec.instance_id;
2988: END IF;
2986: ELSE
2987: l_alt_pk_instance_id := p_party_rec.instance_id;
2988: END IF;
2989: --
2990: IF ((p_party_rec.party_source_table IS NULL) OR (p_party_rec.party_source_table = FND_API.G_MISS_CHAR)) THEN
2991: l_alt_pk_pty_source_tab := l_curr_party_rec.party_source_table;
2992: ELSE
2993: l_alt_pk_pty_source_tab := p_party_rec.party_source_table;
2994: END IF;
2992: ELSE
2993: l_alt_pk_pty_source_tab := p_party_rec.party_source_table;
2994: END IF;
2995: --
2996: IF ((p_party_rec.party_id IS NULL) OR (p_party_rec.party_id = FND_API.G_MISS_NUM)) THEN
2997: l_alt_pk_party_id := l_curr_party_rec.party_id;
2998: ELSE
2999: l_alt_pk_party_id := p_party_rec.party_id;
3000: END IF;
2999: l_alt_pk_party_id := p_party_rec.party_id;
3000: END IF;
3001: --
3002: IF ((p_party_rec.relationship_type_code IS NULL) OR
3003: (p_party_rec.relationship_type_code = FND_API.G_MISS_CHAR)) THEN
3004: l_alt_pk_rel_type_code := l_curr_party_rec.relationship_type_code ;
3005: ELSE
3006: l_alt_pk_rel_type_code := p_party_rec.relationship_type_code ;
3007: END IF;
3005: ELSE
3006: l_alt_pk_rel_type_code := p_party_rec.relationship_type_code ;
3007: END IF;
3008: --
3009: IF ((p_party_rec.contact_flag IS NULL) OR (p_party_rec.contact_flag = FND_API.G_MISS_CHAR)) THEN
3010: l_alt_pk_contact_flag := l_curr_party_rec.contact_flag ;
3011: ELSE
3012: l_alt_pk_contact_flag := p_party_rec.contact_flag ;
3013: END IF;
3035: AND party_source_table = l_alt_pk_pty_source_tab
3036: AND party_id = l_alt_pk_party_id
3037: AND relationship_type_code = l_alt_pk_rel_type_code
3038: AND contact_flag = l_alt_pk_contact_flag
3039: AND NVL(contact_ip_id,fnd_api.g_miss_num) = NVL(p_party_rec.contact_ip_id,fnd_api.g_miss_num)
3040: AND ((active_end_date IS NULL) OR (active_end_date >= sysdate));
3041: -- If found then there exists a record in csi_i_parties, Hence
3042: -- I need to expire(if active) this record.
3043: BEGIN
3057: csi_gen_utility_pvt.put_line('Too many rows exist in csi_i_parties with the same party rel combination.');
3058: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PARTY_REL_COMB');
3059: FND_MESSAGE.SET_TOKEN('PARTY_REL_COMB',to_char(l_alt_pk_instance_id) ||','||l_alt_pk_pty_source_tab||','||to_char(l_alt_pk_party_id)||','||l_alt_pk_rel_type_code||','||to_char(p_party_rec.contact_ip_id));
3060: FND_MSG_PUB.Add;
3061: RAISE FND_API.G_EXC_ERROR;
3062: WHEN OTHERS THEN
3063: NULL;
3064: END;
3065: ELSE
3070: l_alt_pk_rel_type_code ,
3071: l_alt_pk_contact_flag ,
3072: p_party_rec.contact_ip_id ,
3073: TRUE )) THEN
3074: RAISE FND_API.G_EXC_ERROR;
3075: END IF;
3076: END IF;
3077: END IF;
3078: --
3075: END IF;
3076: END IF;
3077: END IF;
3078: --
3079: IF p_party_rec.relationship_type_code <> FND_API.G_MISS_CHAR THEN
3080: IF (p_party_rec.relationship_type_code = 'OWNER' ) THEN
3081: update csi_item_instances
3082: set owner_party_source_table = l_alt_pk_pty_source_tab, --p_party_rec.party_source_table,--bug 2769176
3083: owner_party_id = l_alt_pk_party_id, --p_party_rec.party_id, --bug 2769176
3097: p_party_rec.preferred_flag:='E';
3098: END IF;
3099: -- A contact marked as Primary cannot be marked as 'Excluded'
3100: IF (p_party_rec.primary_flag='Y' AND p_party_rec.preferred_flag='E') OR
3101: (p_party_rec.primary_flag=fnd_api.g_miss_char AND nvl(l_curr_party_rec.primary_flag,'N') = 'Y' AND
3102: p_party_rec.preferred_flag='E') OR
3103: (p_party_rec.preferred_flag=fnd_api.g_miss_char AND nvl(l_curr_party_rec.preferred_flag,'N') = 'E' AND
3104: p_party_rec.primary_flag='Y')
3105: THEN
3099: -- A contact marked as Primary cannot be marked as 'Excluded'
3100: IF (p_party_rec.primary_flag='Y' AND p_party_rec.preferred_flag='E') OR
3101: (p_party_rec.primary_flag=fnd_api.g_miss_char AND nvl(l_curr_party_rec.primary_flag,'N') = 'Y' AND
3102: p_party_rec.preferred_flag='E') OR
3103: (p_party_rec.preferred_flag=fnd_api.g_miss_char AND nvl(l_curr_party_rec.preferred_flag,'N') = 'E' AND
3104: p_party_rec.primary_flag='Y')
3105: THEN
3106: fnd_message.set_name('CSI','CSI_PRIMARY_PTY_EXC');
3107: fnd_msg_pub.Add;
3104: p_party_rec.primary_flag='Y')
3105: THEN
3106: fnd_message.set_name('CSI','CSI_PRIMARY_PTY_EXC');
3107: fnd_msg_pub.Add;
3108: RAISE fnd_api.g_exc_error;
3109: END IF;
3110: -- Possible values for preferred flag are
3111: -- 'N','Y' and 'E'.
3112: IF p_party_rec.preferred_flag='Y' OR
3111: -- 'N','Y' and 'E'.
3112: IF p_party_rec.preferred_flag='Y' OR
3113: p_party_rec.preferred_flag='N' OR
3114: p_party_rec.preferred_flag='E' OR
3115: p_party_rec.preferred_flag=fnd_api.g_miss_char
3116: THEN
3117: NULL;
3118: ELSE
3119: fnd_message.set_name('CSI','CSI_PREFERRED_VALUES');
3118: ELSE
3119: fnd_message.set_name('CSI','CSI_PREFERRED_VALUES');
3120: fnd_message.set_token('PREFERRED_FLAG',p_party_rec.preferred_flag);
3121: fnd_msg_pub.Add;
3122: RAISE fnd_api.g_exc_error;
3123: END IF;
3124: -- Call table handlers to update the table
3125: CSI_I_PARTIES_PKG.Update_Row
3126: (
3148: p_ATTRIBUTE12 => p_party_rec.ATTRIBUTE12,
3149: p_ATTRIBUTE13 => p_party_rec.ATTRIBUTE13,
3150: p_ATTRIBUTE14 => p_party_rec.ATTRIBUTE14,
3151: p_ATTRIBUTE15 => p_party_rec.ATTRIBUTE15,
3152: p_CREATED_BY => FND_API.G_MISS_NUM, -- FND_GLOBAL.USER_ID,
3153: p_CREATION_DATE => FND_API.G_MISS_DATE, -- sysdate,
3154: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID,
3155: p_LAST_UPDATE_DATE => sysdate,
3156: p_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID,
3149: p_ATTRIBUTE13 => p_party_rec.ATTRIBUTE13,
3150: p_ATTRIBUTE14 => p_party_rec.ATTRIBUTE14,
3151: p_ATTRIBUTE15 => p_party_rec.ATTRIBUTE15,
3152: p_CREATED_BY => FND_API.G_MISS_NUM, -- FND_GLOBAL.USER_ID,
3153: p_CREATION_DATE => FND_API.G_MISS_DATE, -- sysdate,
3154: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID,
3155: p_LAST_UPDATE_DATE => sysdate,
3156: p_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID,
3157: p_OBJECT_VERSION_NUMBER => l_OBJECT_VERSION_NUMBER,
3170: ,x_return_status => x_return_status
3171: ,x_msg_count => x_msg_count
3172: ,x_msg_data => x_msg_data );
3173:
3174: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3175: l_msg_index := 1;
3176: l_msg_count := x_msg_count;
3177: WHILE l_msg_count > 0 LOOP
3178: x_msg_data := FND_MSG_PUB.GET(
3176: l_msg_count := x_msg_count;
3177: WHILE l_msg_count > 0 LOOP
3178: x_msg_data := FND_MSG_PUB.GET(
3179: l_msg_index,
3180: FND_API.G_FALSE );
3181: csi_gen_utility_pvt.put_line( 'message data = '||x_msg_data);
3182: l_msg_index := l_msg_index + 1;
3183: l_msg_count := l_msg_count - 1;
3184: END LOOP;
3181: csi_gen_utility_pvt.put_line( 'message data = '||x_msg_data);
3182: l_msg_index := l_msg_index + 1;
3183: l_msg_count := l_msg_count - 1;
3184: END LOOP;
3185: RAISE FND_API.G_EXC_ERROR;
3186: END IF;
3187:
3188: -- Get the full_dump_frequency from csi_install_parameter
3189: IF csi_datastructures_pub.g_install_param_rec.fetch_flag IS NULL THEN
3194: --
3195: IF l_full_dump_frequency IS NULL THEN
3196: FND_MESSAGE.SET_NAME('CSI','CSI_API_GET_FULL_DUMP_FAILED');
3197: FND_MSG_PUB.ADD;
3198: RAISE FND_API.G_EXC_ERROR;
3199: END IF;
3200: -- Generate a unique instance_party_history_id from the sequence
3201: l_inst_party_his_id := CSI_Instance_parties_vld_pvt.gen_inst_party_hist_id;
3202:
3223: THEN
3224: CSI_I_PARTIES_H_PKG.update_Row
3225: (
3226: p_INSTANCE_PARTY_HISTORY_ID => l_party_hist_id ,
3227: p_INSTANCE_PARTY_ID => fnd_api.g_miss_num ,
3228: p_TRANSACTION_ID => fnd_api.g_miss_num ,
3229: p_OLD_PARTY_SOURCE_TABLE => fnd_api.g_miss_char ,
3230: p_NEW_PARTY_SOURCE_TABLE => l_temp_party_rec.PARTY_SOURCE_TABLE,
3231: p_OLD_PARTY_ID => fnd_api.g_miss_num ,
3224: CSI_I_PARTIES_H_PKG.update_Row
3225: (
3226: p_INSTANCE_PARTY_HISTORY_ID => l_party_hist_id ,
3227: p_INSTANCE_PARTY_ID => fnd_api.g_miss_num ,
3228: p_TRANSACTION_ID => fnd_api.g_miss_num ,
3229: p_OLD_PARTY_SOURCE_TABLE => fnd_api.g_miss_char ,
3230: p_NEW_PARTY_SOURCE_TABLE => l_temp_party_rec.PARTY_SOURCE_TABLE,
3231: p_OLD_PARTY_ID => fnd_api.g_miss_num ,
3232: p_NEW_PARTY_ID => l_temp_party_rec.PARTY_ID ,
3225: (
3226: p_INSTANCE_PARTY_HISTORY_ID => l_party_hist_id ,
3227: p_INSTANCE_PARTY_ID => fnd_api.g_miss_num ,
3228: p_TRANSACTION_ID => fnd_api.g_miss_num ,
3229: p_OLD_PARTY_SOURCE_TABLE => fnd_api.g_miss_char ,
3230: p_NEW_PARTY_SOURCE_TABLE => l_temp_party_rec.PARTY_SOURCE_TABLE,
3231: p_OLD_PARTY_ID => fnd_api.g_miss_num ,
3232: p_NEW_PARTY_ID => l_temp_party_rec.PARTY_ID ,
3233: p_OLD_RELATIONSHIP_TYPE_CODE => fnd_api.g_miss_char ,
3227: p_INSTANCE_PARTY_ID => fnd_api.g_miss_num ,
3228: p_TRANSACTION_ID => fnd_api.g_miss_num ,
3229: p_OLD_PARTY_SOURCE_TABLE => fnd_api.g_miss_char ,
3230: p_NEW_PARTY_SOURCE_TABLE => l_temp_party_rec.PARTY_SOURCE_TABLE,
3231: p_OLD_PARTY_ID => fnd_api.g_miss_num ,
3232: p_NEW_PARTY_ID => l_temp_party_rec.PARTY_ID ,
3233: p_OLD_RELATIONSHIP_TYPE_CODE => fnd_api.g_miss_char ,
3234: p_NEW_RELATIONSHIP_TYPE_CODE => l_temp_party_rec.RELATIONSHIP_TYPE_CODE,
3235: p_OLD_CONTACT_FLAG => fnd_api.g_miss_char ,
3229: p_OLD_PARTY_SOURCE_TABLE => fnd_api.g_miss_char ,
3230: p_NEW_PARTY_SOURCE_TABLE => l_temp_party_rec.PARTY_SOURCE_TABLE,
3231: p_OLD_PARTY_ID => fnd_api.g_miss_num ,
3232: p_NEW_PARTY_ID => l_temp_party_rec.PARTY_ID ,
3233: p_OLD_RELATIONSHIP_TYPE_CODE => fnd_api.g_miss_char ,
3234: p_NEW_RELATIONSHIP_TYPE_CODE => l_temp_party_rec.RELATIONSHIP_TYPE_CODE,
3235: p_OLD_CONTACT_FLAG => fnd_api.g_miss_char ,
3236: p_NEW_CONTACT_FLAG => l_temp_party_rec.CONTACT_FLAG ,
3237: p_OLD_CONTACT_IP_ID => fnd_api.g_miss_num ,
3231: p_OLD_PARTY_ID => fnd_api.g_miss_num ,
3232: p_NEW_PARTY_ID => l_temp_party_rec.PARTY_ID ,
3233: p_OLD_RELATIONSHIP_TYPE_CODE => fnd_api.g_miss_char ,
3234: p_NEW_RELATIONSHIP_TYPE_CODE => l_temp_party_rec.RELATIONSHIP_TYPE_CODE,
3235: p_OLD_CONTACT_FLAG => fnd_api.g_miss_char ,
3236: p_NEW_CONTACT_FLAG => l_temp_party_rec.CONTACT_FLAG ,
3237: p_OLD_CONTACT_IP_ID => fnd_api.g_miss_num ,
3238: p_NEW_CONTACT_IP_ID => l_temp_party_rec.CONTACT_IP_ID ,
3239: p_OLD_ACTIVE_START_DATE => l_curr_party_rec.ACTIVE_START_DATE ,
3233: p_OLD_RELATIONSHIP_TYPE_CODE => fnd_api.g_miss_char ,
3234: p_NEW_RELATIONSHIP_TYPE_CODE => l_temp_party_rec.RELATIONSHIP_TYPE_CODE,
3235: p_OLD_CONTACT_FLAG => fnd_api.g_miss_char ,
3236: p_NEW_CONTACT_FLAG => l_temp_party_rec.CONTACT_FLAG ,
3237: p_OLD_CONTACT_IP_ID => fnd_api.g_miss_num ,
3238: p_NEW_CONTACT_IP_ID => l_temp_party_rec.CONTACT_IP_ID ,
3239: p_OLD_ACTIVE_START_DATE => l_curr_party_rec.ACTIVE_START_DATE ,
3240: p_NEW_ACTIVE_START_DATE => l_temp_party_rec.ACTIVE_START_DATE ,
3241: p_OLD_ACTIVE_END_DATE => l_curr_party_rec.ACTIVE_END_DATE ,
3239: p_OLD_ACTIVE_START_DATE => l_curr_party_rec.ACTIVE_START_DATE ,
3240: p_NEW_ACTIVE_START_DATE => l_temp_party_rec.ACTIVE_START_DATE ,
3241: p_OLD_ACTIVE_END_DATE => l_curr_party_rec.ACTIVE_END_DATE ,
3242: p_NEW_ACTIVE_END_DATE => l_temp_party_rec.ACTIVE_END_DATE ,
3243: p_OLD_CONTEXT => fnd_api.g_miss_char ,
3244: p_NEW_CONTEXT => l_temp_party_rec.context ,
3245: p_OLD_ATTRIBUTE1 => fnd_api.g_miss_char ,
3246: p_NEW_ATTRIBUTE1 => l_temp_party_rec.ATTRIBUTE1 ,
3247: p_OLD_ATTRIBUTE2 => fnd_api.g_miss_char ,
3241: p_OLD_ACTIVE_END_DATE => l_curr_party_rec.ACTIVE_END_DATE ,
3242: p_NEW_ACTIVE_END_DATE => l_temp_party_rec.ACTIVE_END_DATE ,
3243: p_OLD_CONTEXT => fnd_api.g_miss_char ,
3244: p_NEW_CONTEXT => l_temp_party_rec.context ,
3245: p_OLD_ATTRIBUTE1 => fnd_api.g_miss_char ,
3246: p_NEW_ATTRIBUTE1 => l_temp_party_rec.ATTRIBUTE1 ,
3247: p_OLD_ATTRIBUTE2 => fnd_api.g_miss_char ,
3248: p_NEW_ATTRIBUTE2 => l_temp_party_rec.ATTRIBUTE2 ,
3249: p_OLD_ATTRIBUTE3 => fnd_api.g_miss_char ,
3243: p_OLD_CONTEXT => fnd_api.g_miss_char ,
3244: p_NEW_CONTEXT => l_temp_party_rec.context ,
3245: p_OLD_ATTRIBUTE1 => fnd_api.g_miss_char ,
3246: p_NEW_ATTRIBUTE1 => l_temp_party_rec.ATTRIBUTE1 ,
3247: p_OLD_ATTRIBUTE2 => fnd_api.g_miss_char ,
3248: p_NEW_ATTRIBUTE2 => l_temp_party_rec.ATTRIBUTE2 ,
3249: p_OLD_ATTRIBUTE3 => fnd_api.g_miss_char ,
3250: p_NEW_ATTRIBUTE3 => l_temp_party_rec.ATTRIBUTE3 ,
3251: p_OLD_ATTRIBUTE4 => fnd_api.g_miss_char ,
3245: p_OLD_ATTRIBUTE1 => fnd_api.g_miss_char ,
3246: p_NEW_ATTRIBUTE1 => l_temp_party_rec.ATTRIBUTE1 ,
3247: p_OLD_ATTRIBUTE2 => fnd_api.g_miss_char ,
3248: p_NEW_ATTRIBUTE2 => l_temp_party_rec.ATTRIBUTE2 ,
3249: p_OLD_ATTRIBUTE3 => fnd_api.g_miss_char ,
3250: p_NEW_ATTRIBUTE3 => l_temp_party_rec.ATTRIBUTE3 ,
3251: p_OLD_ATTRIBUTE4 => fnd_api.g_miss_char ,
3252: p_NEW_ATTRIBUTE4 => l_temp_party_rec.ATTRIBUTE4 ,
3253: p_OLD_ATTRIBUTE5 => fnd_api.g_miss_char ,
3247: p_OLD_ATTRIBUTE2 => fnd_api.g_miss_char ,
3248: p_NEW_ATTRIBUTE2 => l_temp_party_rec.ATTRIBUTE2 ,
3249: p_OLD_ATTRIBUTE3 => fnd_api.g_miss_char ,
3250: p_NEW_ATTRIBUTE3 => l_temp_party_rec.ATTRIBUTE3 ,
3251: p_OLD_ATTRIBUTE4 => fnd_api.g_miss_char ,
3252: p_NEW_ATTRIBUTE4 => l_temp_party_rec.ATTRIBUTE4 ,
3253: p_OLD_ATTRIBUTE5 => fnd_api.g_miss_char ,
3254: p_NEW_ATTRIBUTE5 => l_temp_party_rec.ATTRIBUTE5 ,
3255: p_OLD_ATTRIBUTE6 => fnd_api.g_miss_char ,
3249: p_OLD_ATTRIBUTE3 => fnd_api.g_miss_char ,
3250: p_NEW_ATTRIBUTE3 => l_temp_party_rec.ATTRIBUTE3 ,
3251: p_OLD_ATTRIBUTE4 => fnd_api.g_miss_char ,
3252: p_NEW_ATTRIBUTE4 => l_temp_party_rec.ATTRIBUTE4 ,
3253: p_OLD_ATTRIBUTE5 => fnd_api.g_miss_char ,
3254: p_NEW_ATTRIBUTE5 => l_temp_party_rec.ATTRIBUTE5 ,
3255: p_OLD_ATTRIBUTE6 => fnd_api.g_miss_char ,
3256: p_NEW_ATTRIBUTE6 => l_temp_party_rec.ATTRIBUTE6 ,
3257: p_OLD_ATTRIBUTE7 => fnd_api.g_miss_char ,
3251: p_OLD_ATTRIBUTE4 => fnd_api.g_miss_char ,
3252: p_NEW_ATTRIBUTE4 => l_temp_party_rec.ATTRIBUTE4 ,
3253: p_OLD_ATTRIBUTE5 => fnd_api.g_miss_char ,
3254: p_NEW_ATTRIBUTE5 => l_temp_party_rec.ATTRIBUTE5 ,
3255: p_OLD_ATTRIBUTE6 => fnd_api.g_miss_char ,
3256: p_NEW_ATTRIBUTE6 => l_temp_party_rec.ATTRIBUTE6 ,
3257: p_OLD_ATTRIBUTE7 => fnd_api.g_miss_char ,
3258: p_NEW_ATTRIBUTE7 => l_temp_party_rec.ATTRIBUTE7 ,
3259: p_OLD_ATTRIBUTE8 => fnd_api.g_miss_char ,
3253: p_OLD_ATTRIBUTE5 => fnd_api.g_miss_char ,
3254: p_NEW_ATTRIBUTE5 => l_temp_party_rec.ATTRIBUTE5 ,
3255: p_OLD_ATTRIBUTE6 => fnd_api.g_miss_char ,
3256: p_NEW_ATTRIBUTE6 => l_temp_party_rec.ATTRIBUTE6 ,
3257: p_OLD_ATTRIBUTE7 => fnd_api.g_miss_char ,
3258: p_NEW_ATTRIBUTE7 => l_temp_party_rec.ATTRIBUTE7 ,
3259: p_OLD_ATTRIBUTE8 => fnd_api.g_miss_char ,
3260: p_NEW_ATTRIBUTE8 => l_temp_party_rec.ATTRIBUTE8 ,
3261: p_OLD_ATTRIBUTE9 => fnd_api.g_miss_char ,
3255: p_OLD_ATTRIBUTE6 => fnd_api.g_miss_char ,
3256: p_NEW_ATTRIBUTE6 => l_temp_party_rec.ATTRIBUTE6 ,
3257: p_OLD_ATTRIBUTE7 => fnd_api.g_miss_char ,
3258: p_NEW_ATTRIBUTE7 => l_temp_party_rec.ATTRIBUTE7 ,
3259: p_OLD_ATTRIBUTE8 => fnd_api.g_miss_char ,
3260: p_NEW_ATTRIBUTE8 => l_temp_party_rec.ATTRIBUTE8 ,
3261: p_OLD_ATTRIBUTE9 => fnd_api.g_miss_char ,
3262: p_NEW_ATTRIBUTE9 => l_temp_party_rec.ATTRIBUTE9 ,
3263: p_OLD_ATTRIBUTE10 => fnd_api.g_miss_char ,
3257: p_OLD_ATTRIBUTE7 => fnd_api.g_miss_char ,
3258: p_NEW_ATTRIBUTE7 => l_temp_party_rec.ATTRIBUTE7 ,
3259: p_OLD_ATTRIBUTE8 => fnd_api.g_miss_char ,
3260: p_NEW_ATTRIBUTE8 => l_temp_party_rec.ATTRIBUTE8 ,
3261: p_OLD_ATTRIBUTE9 => fnd_api.g_miss_char ,
3262: p_NEW_ATTRIBUTE9 => l_temp_party_rec.ATTRIBUTE9 ,
3263: p_OLD_ATTRIBUTE10 => fnd_api.g_miss_char ,
3264: p_NEW_ATTRIBUTE10 => l_temp_party_rec.ATTRIBUTE10 ,
3265: p_OLD_ATTRIBUTE11 => fnd_api.g_miss_char ,
3259: p_OLD_ATTRIBUTE8 => fnd_api.g_miss_char ,
3260: p_NEW_ATTRIBUTE8 => l_temp_party_rec.ATTRIBUTE8 ,
3261: p_OLD_ATTRIBUTE9 => fnd_api.g_miss_char ,
3262: p_NEW_ATTRIBUTE9 => l_temp_party_rec.ATTRIBUTE9 ,
3263: p_OLD_ATTRIBUTE10 => fnd_api.g_miss_char ,
3264: p_NEW_ATTRIBUTE10 => l_temp_party_rec.ATTRIBUTE10 ,
3265: p_OLD_ATTRIBUTE11 => fnd_api.g_miss_char ,
3266: p_NEW_ATTRIBUTE11 => l_temp_party_rec.ATTRIBUTE11 ,
3267: p_OLD_ATTRIBUTE12 => fnd_api.g_miss_char ,
3261: p_OLD_ATTRIBUTE9 => fnd_api.g_miss_char ,
3262: p_NEW_ATTRIBUTE9 => l_temp_party_rec.ATTRIBUTE9 ,
3263: p_OLD_ATTRIBUTE10 => fnd_api.g_miss_char ,
3264: p_NEW_ATTRIBUTE10 => l_temp_party_rec.ATTRIBUTE10 ,
3265: p_OLD_ATTRIBUTE11 => fnd_api.g_miss_char ,
3266: p_NEW_ATTRIBUTE11 => l_temp_party_rec.ATTRIBUTE11 ,
3267: p_OLD_ATTRIBUTE12 => fnd_api.g_miss_char ,
3268: p_NEW_ATTRIBUTE12 => l_temp_party_rec.ATTRIBUTE12 ,
3269: p_OLD_ATTRIBUTE13 => fnd_api.g_miss_char ,
3263: p_OLD_ATTRIBUTE10 => fnd_api.g_miss_char ,
3264: p_NEW_ATTRIBUTE10 => l_temp_party_rec.ATTRIBUTE10 ,
3265: p_OLD_ATTRIBUTE11 => fnd_api.g_miss_char ,
3266: p_NEW_ATTRIBUTE11 => l_temp_party_rec.ATTRIBUTE11 ,
3267: p_OLD_ATTRIBUTE12 => fnd_api.g_miss_char ,
3268: p_NEW_ATTRIBUTE12 => l_temp_party_rec.ATTRIBUTE12 ,
3269: p_OLD_ATTRIBUTE13 => fnd_api.g_miss_char ,
3270: p_NEW_ATTRIBUTE13 => l_temp_party_rec.ATTRIBUTE13 ,
3271: p_OLD_ATTRIBUTE14 => fnd_api.g_miss_char ,
3265: p_OLD_ATTRIBUTE11 => fnd_api.g_miss_char ,
3266: p_NEW_ATTRIBUTE11 => l_temp_party_rec.ATTRIBUTE11 ,
3267: p_OLD_ATTRIBUTE12 => fnd_api.g_miss_char ,
3268: p_NEW_ATTRIBUTE12 => l_temp_party_rec.ATTRIBUTE12 ,
3269: p_OLD_ATTRIBUTE13 => fnd_api.g_miss_char ,
3270: p_NEW_ATTRIBUTE13 => l_temp_party_rec.ATTRIBUTE13 ,
3271: p_OLD_ATTRIBUTE14 => fnd_api.g_miss_char ,
3272: p_NEW_ATTRIBUTE14 => l_temp_party_rec.ATTRIBUTE14 ,
3273: p_OLD_ATTRIBUTE15 => fnd_api.g_miss_char ,
3267: p_OLD_ATTRIBUTE12 => fnd_api.g_miss_char ,
3268: p_NEW_ATTRIBUTE12 => l_temp_party_rec.ATTRIBUTE12 ,
3269: p_OLD_ATTRIBUTE13 => fnd_api.g_miss_char ,
3270: p_NEW_ATTRIBUTE13 => l_temp_party_rec.ATTRIBUTE13 ,
3271: p_OLD_ATTRIBUTE14 => fnd_api.g_miss_char ,
3272: p_NEW_ATTRIBUTE14 => l_temp_party_rec.ATTRIBUTE14 ,
3273: p_OLD_ATTRIBUTE15 => fnd_api.g_miss_char ,
3274: p_NEW_ATTRIBUTE15 => l_temp_party_rec.ATTRIBUTE15 ,
3275: p_FULL_DUMP_FLAG => fnd_api.g_miss_char ,
3269: p_OLD_ATTRIBUTE13 => fnd_api.g_miss_char ,
3270: p_NEW_ATTRIBUTE13 => l_temp_party_rec.ATTRIBUTE13 ,
3271: p_OLD_ATTRIBUTE14 => fnd_api.g_miss_char ,
3272: p_NEW_ATTRIBUTE14 => l_temp_party_rec.ATTRIBUTE14 ,
3273: p_OLD_ATTRIBUTE15 => fnd_api.g_miss_char ,
3274: p_NEW_ATTRIBUTE15 => l_temp_party_rec.ATTRIBUTE15 ,
3275: p_FULL_DUMP_FLAG => fnd_api.g_miss_char ,
3276: p_CREATED_BY => FND_API.G_MISS_NUM ,
3277: p_CREATION_DATE => FND_API.G_MISS_DATE ,
3271: p_OLD_ATTRIBUTE14 => fnd_api.g_miss_char ,
3272: p_NEW_ATTRIBUTE14 => l_temp_party_rec.ATTRIBUTE14 ,
3273: p_OLD_ATTRIBUTE15 => fnd_api.g_miss_char ,
3274: p_NEW_ATTRIBUTE15 => l_temp_party_rec.ATTRIBUTE15 ,
3275: p_FULL_DUMP_FLAG => fnd_api.g_miss_char ,
3276: p_CREATED_BY => FND_API.G_MISS_NUM ,
3277: p_CREATION_DATE => FND_API.G_MISS_DATE ,
3278: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID ,
3279: p_LAST_UPDATE_DATE => SYSDATE ,
3272: p_NEW_ATTRIBUTE14 => l_temp_party_rec.ATTRIBUTE14 ,
3273: p_OLD_ATTRIBUTE15 => fnd_api.g_miss_char ,
3274: p_NEW_ATTRIBUTE15 => l_temp_party_rec.ATTRIBUTE15 ,
3275: p_FULL_DUMP_FLAG => fnd_api.g_miss_char ,
3276: p_CREATED_BY => FND_API.G_MISS_NUM ,
3277: p_CREATION_DATE => FND_API.G_MISS_DATE ,
3278: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID ,
3279: p_LAST_UPDATE_DATE => SYSDATE ,
3280: p_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID ,
3273: p_OLD_ATTRIBUTE15 => fnd_api.g_miss_char ,
3274: p_NEW_ATTRIBUTE15 => l_temp_party_rec.ATTRIBUTE15 ,
3275: p_FULL_DUMP_FLAG => fnd_api.g_miss_char ,
3276: p_CREATED_BY => FND_API.G_MISS_NUM ,
3277: p_CREATION_DATE => FND_API.G_MISS_DATE ,
3278: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID ,
3279: p_LAST_UPDATE_DATE => SYSDATE ,
3280: p_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID ,
3281: p_OBJECT_VERSION_NUMBER => fnd_api.g_miss_num ,
3277: p_CREATION_DATE => FND_API.G_MISS_DATE ,
3278: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID ,
3279: p_LAST_UPDATE_DATE => SYSDATE ,
3280: p_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID ,
3281: p_OBJECT_VERSION_NUMBER => fnd_api.g_miss_num ,
3282: p_OLD_PRIMARY_FLAG => fnd_api.g_miss_char ,
3283: p_NEW_PRIMARY_FLAG => l_temp_party_rec.PRIMARY_FLAG ,
3284: p_OLD_PREFERRED_FLAG => fnd_api.g_miss_char ,
3285: p_NEW_PREFERRED_FLAG => l_temp_party_rec.PREFERRED_FLAG );
3278: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID ,
3279: p_LAST_UPDATE_DATE => SYSDATE ,
3280: p_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID ,
3281: p_OBJECT_VERSION_NUMBER => fnd_api.g_miss_num ,
3282: p_OLD_PRIMARY_FLAG => fnd_api.g_miss_char ,
3283: p_NEW_PRIMARY_FLAG => l_temp_party_rec.PRIMARY_FLAG ,
3284: p_OLD_PREFERRED_FLAG => fnd_api.g_miss_char ,
3285: p_NEW_PREFERRED_FLAG => l_temp_party_rec.PREFERRED_FLAG );
3286:
3280: p_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID ,
3281: p_OBJECT_VERSION_NUMBER => fnd_api.g_miss_num ,
3282: p_OLD_PRIMARY_FLAG => fnd_api.g_miss_char ,
3283: p_NEW_PRIMARY_FLAG => l_temp_party_rec.PRIMARY_FLAG ,
3284: p_OLD_PREFERRED_FLAG => fnd_api.g_miss_char ,
3285: p_NEW_PREFERRED_FLAG => l_temp_party_rec.PREFERRED_FLAG );
3286:
3287: ELSE
3288:
3288:
3289: IF ( l_pty_hist_csr.old_party_source_table IS NULL
3290: AND l_pty_hist_csr.new_party_source_table IS NULL ) THEN
3291: IF ( l_temp_party_rec.party_source_table = l_curr_party_rec.party_source_table )
3292: OR ( l_temp_party_rec.party_source_table = fnd_api.g_miss_char ) THEN
3293: l_pty_hist_csr.old_party_source_table := NULL;
3294: l_pty_hist_csr.new_party_source_table := NULL;
3295: ELSE
3296: l_pty_hist_csr.old_party_source_table := fnd_api.g_miss_char;
3292: OR ( l_temp_party_rec.party_source_table = fnd_api.g_miss_char ) THEN
3293: l_pty_hist_csr.old_party_source_table := NULL;
3294: l_pty_hist_csr.new_party_source_table := NULL;
3295: ELSE
3296: l_pty_hist_csr.old_party_source_table := fnd_api.g_miss_char;
3297: l_pty_hist_csr.new_party_source_table := l_temp_party_rec.party_source_table;
3298: END IF;
3299: ELSE
3300: l_pty_hist_csr.old_party_source_table := fnd_api.g_miss_char;
3296: l_pty_hist_csr.old_party_source_table := fnd_api.g_miss_char;
3297: l_pty_hist_csr.new_party_source_table := l_temp_party_rec.party_source_table;
3298: END IF;
3299: ELSE
3300: l_pty_hist_csr.old_party_source_table := fnd_api.g_miss_char;
3301: l_pty_hist_csr.new_party_source_table := l_temp_party_rec.party_source_table;
3302: END IF;
3303: --
3304: IF ( l_pty_hist_csr.old_party_id IS NULL
3303: --
3304: IF ( l_pty_hist_csr.old_party_id IS NULL
3305: AND l_pty_hist_csr.new_party_id IS NULL ) THEN
3306: IF ( l_temp_party_rec.party_id = l_curr_party_rec.party_id )
3307: OR ( l_temp_party_rec.party_id = fnd_api.g_miss_num ) THEN
3308: l_pty_hist_csr.old_party_id := NULL;
3309: l_pty_hist_csr.new_party_id := NULL;
3310: ELSE
3311: l_pty_hist_csr.old_party_id := fnd_api.g_miss_num;
3307: OR ( l_temp_party_rec.party_id = fnd_api.g_miss_num ) THEN
3308: l_pty_hist_csr.old_party_id := NULL;
3309: l_pty_hist_csr.new_party_id := NULL;
3310: ELSE
3311: l_pty_hist_csr.old_party_id := fnd_api.g_miss_num;
3312: l_pty_hist_csr.new_party_id := l_temp_party_rec.party_id;
3313: END IF;
3314: ELSE
3315: l_pty_hist_csr.old_party_id := fnd_api.g_miss_num;
3311: l_pty_hist_csr.old_party_id := fnd_api.g_miss_num;
3312: l_pty_hist_csr.new_party_id := l_temp_party_rec.party_id;
3313: END IF;
3314: ELSE
3315: l_pty_hist_csr.old_party_id := fnd_api.g_miss_num;
3316: l_pty_hist_csr.new_party_id := l_temp_party_rec.party_id;
3317: END IF;
3318: --
3319: IF ( l_pty_hist_csr.old_relationship_type_code IS NULL
3318: --
3319: IF ( l_pty_hist_csr.old_relationship_type_code IS NULL
3320: AND l_pty_hist_csr.new_relationship_type_code IS NULL ) THEN
3321: IF ( l_temp_party_rec.relationship_type_code = l_curr_party_rec.relationship_type_code )
3322: OR ( l_temp_party_rec.relationship_type_code = fnd_api.g_miss_char ) THEN
3323: l_pty_hist_csr.old_relationship_type_code := NULL;
3324: l_pty_hist_csr.new_relationship_type_code := NULL;
3325: ELSE
3326: l_pty_hist_csr.old_relationship_type_code := fnd_api.g_miss_char;
3322: OR ( l_temp_party_rec.relationship_type_code = fnd_api.g_miss_char ) THEN
3323: l_pty_hist_csr.old_relationship_type_code := NULL;
3324: l_pty_hist_csr.new_relationship_type_code := NULL;
3325: ELSE
3326: l_pty_hist_csr.old_relationship_type_code := fnd_api.g_miss_char;
3327: l_pty_hist_csr.new_relationship_type_code := l_temp_party_rec.relationship_type_code;
3328: END IF;
3329: ELSE
3330: l_pty_hist_csr.old_relationship_type_code := fnd_api.g_miss_char;
3326: l_pty_hist_csr.old_relationship_type_code := fnd_api.g_miss_char;
3327: l_pty_hist_csr.new_relationship_type_code := l_temp_party_rec.relationship_type_code;
3328: END IF;
3329: ELSE
3330: l_pty_hist_csr.old_relationship_type_code := fnd_api.g_miss_char;
3331: l_pty_hist_csr.new_relationship_type_code := l_temp_party_rec.relationship_type_code;
3332: END IF;
3333: --
3334: IF ( l_pty_hist_csr.old_contact_flag IS NULL
3333: --
3334: IF ( l_pty_hist_csr.old_contact_flag IS NULL
3335: AND l_pty_hist_csr.new_contact_flag IS NULL ) THEN
3336: IF ( l_temp_party_rec.contact_flag = l_curr_party_rec.contact_flag )
3337: OR ( l_temp_party_rec.contact_flag = fnd_api.g_miss_char ) THEN
3338: l_pty_hist_csr.old_contact_flag := NULL;
3339: l_pty_hist_csr.new_contact_flag := NULL;
3340: ELSE
3341: l_pty_hist_csr.old_contact_flag := fnd_api.g_miss_char;
3337: OR ( l_temp_party_rec.contact_flag = fnd_api.g_miss_char ) THEN
3338: l_pty_hist_csr.old_contact_flag := NULL;
3339: l_pty_hist_csr.new_contact_flag := NULL;
3340: ELSE
3341: l_pty_hist_csr.old_contact_flag := fnd_api.g_miss_char;
3342: l_pty_hist_csr.new_contact_flag := l_temp_party_rec.contact_flag;
3343: END IF;
3344: ELSE
3345: l_pty_hist_csr.old_contact_flag := fnd_api.g_miss_char;
3341: l_pty_hist_csr.old_contact_flag := fnd_api.g_miss_char;
3342: l_pty_hist_csr.new_contact_flag := l_temp_party_rec.contact_flag;
3343: END IF;
3344: ELSE
3345: l_pty_hist_csr.old_contact_flag := fnd_api.g_miss_char;
3346: l_pty_hist_csr.new_contact_flag := l_temp_party_rec.contact_flag;
3347: END IF;
3348: --
3349: IF ( l_pty_hist_csr.old_contact_ip_id IS NULL
3348: --
3349: IF ( l_pty_hist_csr.old_contact_ip_id IS NULL
3350: AND l_pty_hist_csr.new_contact_ip_id IS NULL ) THEN
3351: IF ( l_temp_party_rec.contact_ip_id = l_curr_party_rec.contact_ip_id )
3352: OR ( l_temp_party_rec.contact_ip_id = fnd_api.g_miss_num ) THEN
3353: l_pty_hist_csr.old_contact_ip_id := NULL;
3354: l_pty_hist_csr.new_contact_ip_id := NULL;
3355: ELSE
3356: l_pty_hist_csr.old_contact_ip_id := fnd_api.g_miss_num;
3352: OR ( l_temp_party_rec.contact_ip_id = fnd_api.g_miss_num ) THEN
3353: l_pty_hist_csr.old_contact_ip_id := NULL;
3354: l_pty_hist_csr.new_contact_ip_id := NULL;
3355: ELSE
3356: l_pty_hist_csr.old_contact_ip_id := fnd_api.g_miss_num;
3357: l_pty_hist_csr.new_contact_ip_id := l_temp_party_rec.contact_ip_id;
3358: END IF;
3359: ELSE
3360: l_pty_hist_csr.old_contact_ip_id := fnd_api.g_miss_num;
3356: l_pty_hist_csr.old_contact_ip_id := fnd_api.g_miss_num;
3357: l_pty_hist_csr.new_contact_ip_id := l_temp_party_rec.contact_ip_id;
3358: END IF;
3359: ELSE
3360: l_pty_hist_csr.old_contact_ip_id := fnd_api.g_miss_num;
3361: l_pty_hist_csr.new_contact_ip_id := l_temp_party_rec.contact_ip_id;
3362: END IF;
3363: --
3364: IF ( l_pty_hist_csr.old_active_start_date IS NULL
3363: --
3364: IF ( l_pty_hist_csr.old_active_start_date IS NULL
3365: AND l_pty_hist_csr.new_active_start_date IS NULL ) THEN
3366: IF ( l_temp_party_rec.active_start_date = l_curr_party_rec.active_start_date )
3367: OR ( l_temp_party_rec.active_start_date = fnd_api.g_miss_date ) THEN
3368: l_pty_hist_csr.old_active_start_date := NULL;
3369: l_pty_hist_csr.new_active_start_date := NULL;
3370: ELSE
3371: l_pty_hist_csr.old_active_start_date := fnd_api.g_miss_date;
3367: OR ( l_temp_party_rec.active_start_date = fnd_api.g_miss_date ) THEN
3368: l_pty_hist_csr.old_active_start_date := NULL;
3369: l_pty_hist_csr.new_active_start_date := NULL;
3370: ELSE
3371: l_pty_hist_csr.old_active_start_date := fnd_api.g_miss_date;
3372: l_pty_hist_csr.new_active_start_date := l_temp_party_rec.active_start_date;
3373: END IF;
3374: ELSE
3375: l_pty_hist_csr.old_active_start_date := fnd_api.g_miss_date;
3371: l_pty_hist_csr.old_active_start_date := fnd_api.g_miss_date;
3372: l_pty_hist_csr.new_active_start_date := l_temp_party_rec.active_start_date;
3373: END IF;
3374: ELSE
3375: l_pty_hist_csr.old_active_start_date := fnd_api.g_miss_date;
3376: l_pty_hist_csr.new_active_start_date := l_temp_party_rec.active_start_date;
3377: END IF;
3378: --
3379: IF ( l_pty_hist_csr.old_active_end_date IS NULL
3378: --
3379: IF ( l_pty_hist_csr.old_active_end_date IS NULL
3380: AND l_pty_hist_csr.new_active_end_date IS NULL ) THEN
3381: IF ( l_temp_party_rec.active_end_date = l_curr_party_rec.active_end_date )
3382: OR ( l_temp_party_rec.active_end_date = fnd_api.g_miss_date ) THEN
3383: l_pty_hist_csr.old_active_end_date := NULL;
3384: l_pty_hist_csr.new_active_end_date := NULL;
3385: ELSE
3386: l_pty_hist_csr.old_active_end_date := fnd_api.g_miss_date;
3382: OR ( l_temp_party_rec.active_end_date = fnd_api.g_miss_date ) THEN
3383: l_pty_hist_csr.old_active_end_date := NULL;
3384: l_pty_hist_csr.new_active_end_date := NULL;
3385: ELSE
3386: l_pty_hist_csr.old_active_end_date := fnd_api.g_miss_date;
3387: l_pty_hist_csr.new_active_end_date := l_temp_party_rec.active_end_date;
3388: END IF;
3389: ELSE
3390: l_pty_hist_csr.old_active_end_date := fnd_api.g_miss_date;
3386: l_pty_hist_csr.old_active_end_date := fnd_api.g_miss_date;
3387: l_pty_hist_csr.new_active_end_date := l_temp_party_rec.active_end_date;
3388: END IF;
3389: ELSE
3390: l_pty_hist_csr.old_active_end_date := fnd_api.g_miss_date;
3391: l_pty_hist_csr.new_active_end_date := l_temp_party_rec.active_end_date;
3392: END IF;
3393: --
3394: IF ( l_pty_hist_csr.old_context IS NULL
3393: --
3394: IF ( l_pty_hist_csr.old_context IS NULL
3395: AND l_pty_hist_csr.new_context IS NULL ) THEN
3396: IF ( l_temp_party_rec.context = l_curr_party_rec.context )
3397: OR ( l_temp_party_rec.context = fnd_api.g_miss_char ) THEN
3398: l_pty_hist_csr.old_context := NULL;
3399: l_pty_hist_csr.new_context := NULL;
3400: ELSE
3401: l_pty_hist_csr.old_context := fnd_api.g_miss_char;
3397: OR ( l_temp_party_rec.context = fnd_api.g_miss_char ) THEN
3398: l_pty_hist_csr.old_context := NULL;
3399: l_pty_hist_csr.new_context := NULL;
3400: ELSE
3401: l_pty_hist_csr.old_context := fnd_api.g_miss_char;
3402: l_pty_hist_csr.new_context := l_temp_party_rec.context;
3403: END IF;
3404: ELSE
3405: l_pty_hist_csr.old_context := fnd_api.g_miss_char;
3401: l_pty_hist_csr.old_context := fnd_api.g_miss_char;
3402: l_pty_hist_csr.new_context := l_temp_party_rec.context;
3403: END IF;
3404: ELSE
3405: l_pty_hist_csr.old_context := fnd_api.g_miss_char;
3406: l_pty_hist_csr.new_context := l_temp_party_rec.context;
3407: END IF;
3408: --
3409: IF ( l_pty_hist_csr.old_attribute1 IS NULL
3408: --
3409: IF ( l_pty_hist_csr.old_attribute1 IS NULL
3410: AND l_pty_hist_csr.new_attribute1 IS NULL ) THEN
3411: IF ( l_temp_party_rec.attribute1 = l_curr_party_rec.attribute1 )
3412: OR ( l_temp_party_rec.attribute1 = fnd_api.g_miss_char ) THEN
3413: l_pty_hist_csr.old_attribute1 := NULL;
3414: l_pty_hist_csr.new_attribute1 := NULL;
3415: ELSE
3416: l_pty_hist_csr.old_attribute1 := fnd_api.g_miss_char;
3412: OR ( l_temp_party_rec.attribute1 = fnd_api.g_miss_char ) THEN
3413: l_pty_hist_csr.old_attribute1 := NULL;
3414: l_pty_hist_csr.new_attribute1 := NULL;
3415: ELSE
3416: l_pty_hist_csr.old_attribute1 := fnd_api.g_miss_char;
3417: l_pty_hist_csr.new_attribute1 := l_temp_party_rec.attribute1;
3418: END IF;
3419: ELSE
3420: l_pty_hist_csr.old_attribute1 := fnd_api.g_miss_char;
3416: l_pty_hist_csr.old_attribute1 := fnd_api.g_miss_char;
3417: l_pty_hist_csr.new_attribute1 := l_temp_party_rec.attribute1;
3418: END IF;
3419: ELSE
3420: l_pty_hist_csr.old_attribute1 := fnd_api.g_miss_char;
3421: l_pty_hist_csr.new_attribute1 := l_temp_party_rec.attribute1;
3422: END IF;
3423: --
3424: IF ( l_pty_hist_csr.old_attribute2 IS NULL
3423: --
3424: IF ( l_pty_hist_csr.old_attribute2 IS NULL
3425: AND l_pty_hist_csr.new_attribute2 IS NULL ) THEN
3426: IF ( l_temp_party_rec.attribute2 = l_curr_party_rec.attribute2 )
3427: OR ( l_temp_party_rec.attribute2 = fnd_api.g_miss_char ) THEN
3428: l_pty_hist_csr.old_attribute2 := NULL;
3429: l_pty_hist_csr.new_attribute2 := NULL;
3430: ELSE
3431: l_pty_hist_csr.old_attribute2 := fnd_api.g_miss_char;
3427: OR ( l_temp_party_rec.attribute2 = fnd_api.g_miss_char ) THEN
3428: l_pty_hist_csr.old_attribute2 := NULL;
3429: l_pty_hist_csr.new_attribute2 := NULL;
3430: ELSE
3431: l_pty_hist_csr.old_attribute2 := fnd_api.g_miss_char;
3432: l_pty_hist_csr.new_attribute2 := l_temp_party_rec.attribute2;
3433: END IF;
3434: ELSE
3435: l_pty_hist_csr.old_attribute2 := fnd_api.g_miss_char;
3431: l_pty_hist_csr.old_attribute2 := fnd_api.g_miss_char;
3432: l_pty_hist_csr.new_attribute2 := l_temp_party_rec.attribute2;
3433: END IF;
3434: ELSE
3435: l_pty_hist_csr.old_attribute2 := fnd_api.g_miss_char;
3436: l_pty_hist_csr.new_attribute2 := l_temp_party_rec.attribute2;
3437: END IF;
3438: --
3439: IF ( l_pty_hist_csr.old_attribute3 IS NULL
3438: --
3439: IF ( l_pty_hist_csr.old_attribute3 IS NULL
3440: AND l_pty_hist_csr.new_attribute3 IS NULL ) THEN
3441: IF ( l_temp_party_rec.attribute3 = l_curr_party_rec.attribute3 )
3442: OR ( l_temp_party_rec.attribute3 = fnd_api.g_miss_char ) THEN
3443: l_pty_hist_csr.old_attribute3 := NULL;
3444: l_pty_hist_csr.new_attribute3 := NULL;
3445: ELSE
3446: l_pty_hist_csr.old_attribute3 := fnd_api.g_miss_char;
3442: OR ( l_temp_party_rec.attribute3 = fnd_api.g_miss_char ) THEN
3443: l_pty_hist_csr.old_attribute3 := NULL;
3444: l_pty_hist_csr.new_attribute3 := NULL;
3445: ELSE
3446: l_pty_hist_csr.old_attribute3 := fnd_api.g_miss_char;
3447: l_pty_hist_csr.new_attribute3 := l_temp_party_rec.attribute3;
3448: END IF;
3449: ELSE
3450: l_pty_hist_csr.old_attribute3 := fnd_api.g_miss_char;
3446: l_pty_hist_csr.old_attribute3 := fnd_api.g_miss_char;
3447: l_pty_hist_csr.new_attribute3 := l_temp_party_rec.attribute3;
3448: END IF;
3449: ELSE
3450: l_pty_hist_csr.old_attribute3 := fnd_api.g_miss_char;
3451: l_pty_hist_csr.new_attribute3 := l_temp_party_rec.attribute3;
3452: END IF;
3453: --
3454: IF ( l_pty_hist_csr.old_attribute4 IS NULL
3453: --
3454: IF ( l_pty_hist_csr.old_attribute4 IS NULL
3455: AND l_pty_hist_csr.new_attribute4 IS NULL ) THEN
3456: IF ( l_temp_party_rec.attribute4 = l_curr_party_rec.attribute4 )
3457: OR ( l_temp_party_rec.attribute4 = fnd_api.g_miss_char ) THEN
3458: l_pty_hist_csr.old_attribute4 := NULL;
3459: l_pty_hist_csr.new_attribute4 := NULL;
3460: ELSE
3461: l_pty_hist_csr.old_attribute4 := fnd_api.g_miss_char;
3457: OR ( l_temp_party_rec.attribute4 = fnd_api.g_miss_char ) THEN
3458: l_pty_hist_csr.old_attribute4 := NULL;
3459: l_pty_hist_csr.new_attribute4 := NULL;
3460: ELSE
3461: l_pty_hist_csr.old_attribute4 := fnd_api.g_miss_char;
3462: l_pty_hist_csr.new_attribute4 := l_temp_party_rec.attribute4;
3463: END IF;
3464: ELSE
3465: l_pty_hist_csr.old_attribute4 := fnd_api.g_miss_char;
3461: l_pty_hist_csr.old_attribute4 := fnd_api.g_miss_char;
3462: l_pty_hist_csr.new_attribute4 := l_temp_party_rec.attribute4;
3463: END IF;
3464: ELSE
3465: l_pty_hist_csr.old_attribute4 := fnd_api.g_miss_char;
3466: l_pty_hist_csr.new_attribute4 := l_temp_party_rec.attribute4;
3467: END IF;
3468: --
3469: IF ( l_pty_hist_csr.old_attribute5 IS NULL
3468: --
3469: IF ( l_pty_hist_csr.old_attribute5 IS NULL
3470: AND l_pty_hist_csr.new_attribute5 IS NULL ) THEN
3471: IF ( l_temp_party_rec.attribute5 = l_curr_party_rec.attribute5 )
3472: OR ( l_temp_party_rec.attribute5 = fnd_api.g_miss_char ) THEN
3473: l_pty_hist_csr.old_attribute5 := NULL;
3474: l_pty_hist_csr.new_attribute5 := NULL;
3475: ELSE
3476: l_pty_hist_csr.old_attribute5 := fnd_api.g_miss_char;
3472: OR ( l_temp_party_rec.attribute5 = fnd_api.g_miss_char ) THEN
3473: l_pty_hist_csr.old_attribute5 := NULL;
3474: l_pty_hist_csr.new_attribute5 := NULL;
3475: ELSE
3476: l_pty_hist_csr.old_attribute5 := fnd_api.g_miss_char;
3477: l_pty_hist_csr.new_attribute5 := l_temp_party_rec.attribute5;
3478: END IF;
3479: ELSE
3480: l_pty_hist_csr.old_attribute5 := fnd_api.g_miss_char;
3476: l_pty_hist_csr.old_attribute5 := fnd_api.g_miss_char;
3477: l_pty_hist_csr.new_attribute5 := l_temp_party_rec.attribute5;
3478: END IF;
3479: ELSE
3480: l_pty_hist_csr.old_attribute5 := fnd_api.g_miss_char;
3481: l_pty_hist_csr.new_attribute5 := l_temp_party_rec.attribute5;
3482: END IF;
3483: --
3484: IF ( l_pty_hist_csr.old_attribute6 IS NULL
3483: --
3484: IF ( l_pty_hist_csr.old_attribute6 IS NULL
3485: AND l_pty_hist_csr.new_attribute6 IS NULL ) THEN
3486: IF ( l_temp_party_rec.attribute6 = l_curr_party_rec.attribute6 )
3487: OR ( l_temp_party_rec.attribute6 = fnd_api.g_miss_char ) THEN
3488: l_pty_hist_csr.old_attribute6 := NULL;
3489: l_pty_hist_csr.new_attribute6 := NULL;
3490: ELSE
3491: l_pty_hist_csr.old_attribute6 := fnd_api.g_miss_char;
3487: OR ( l_temp_party_rec.attribute6 = fnd_api.g_miss_char ) THEN
3488: l_pty_hist_csr.old_attribute6 := NULL;
3489: l_pty_hist_csr.new_attribute6 := NULL;
3490: ELSE
3491: l_pty_hist_csr.old_attribute6 := fnd_api.g_miss_char;
3492: l_pty_hist_csr.new_attribute6 := l_temp_party_rec.attribute6;
3493: END IF;
3494: ELSE
3495: l_pty_hist_csr.old_attribute6 := fnd_api.g_miss_char;
3491: l_pty_hist_csr.old_attribute6 := fnd_api.g_miss_char;
3492: l_pty_hist_csr.new_attribute6 := l_temp_party_rec.attribute6;
3493: END IF;
3494: ELSE
3495: l_pty_hist_csr.old_attribute6 := fnd_api.g_miss_char;
3496: l_pty_hist_csr.new_attribute6 := l_temp_party_rec.attribute6;
3497: END IF;
3498: --
3499: IF ( l_pty_hist_csr.old_attribute7 IS NULL
3498: --
3499: IF ( l_pty_hist_csr.old_attribute7 IS NULL
3500: AND l_pty_hist_csr.new_attribute7 IS NULL ) THEN
3501: IF ( l_temp_party_rec.attribute7 = l_curr_party_rec.attribute7 )
3502: OR ( l_temp_party_rec.attribute7 = fnd_api.g_miss_char ) THEN
3503: l_pty_hist_csr.old_attribute7 := NULL;
3504: l_pty_hist_csr.new_attribute7 := NULL;
3505: ELSE
3506: l_pty_hist_csr.old_attribute7 := fnd_api.g_miss_char;
3502: OR ( l_temp_party_rec.attribute7 = fnd_api.g_miss_char ) THEN
3503: l_pty_hist_csr.old_attribute7 := NULL;
3504: l_pty_hist_csr.new_attribute7 := NULL;
3505: ELSE
3506: l_pty_hist_csr.old_attribute7 := fnd_api.g_miss_char;
3507: l_pty_hist_csr.new_attribute7 := l_temp_party_rec.attribute7;
3508: END IF;
3509: ELSE
3510: l_pty_hist_csr.old_attribute7 := fnd_api.g_miss_char;
3506: l_pty_hist_csr.old_attribute7 := fnd_api.g_miss_char;
3507: l_pty_hist_csr.new_attribute7 := l_temp_party_rec.attribute7;
3508: END IF;
3509: ELSE
3510: l_pty_hist_csr.old_attribute7 := fnd_api.g_miss_char;
3511: l_pty_hist_csr.new_attribute7 := l_temp_party_rec.attribute7;
3512: END IF;
3513: --
3514: IF ( l_pty_hist_csr.old_attribute8 IS NULL
3513: --
3514: IF ( l_pty_hist_csr.old_attribute8 IS NULL
3515: AND l_pty_hist_csr.new_attribute8 IS NULL ) THEN
3516: IF ( l_temp_party_rec.attribute8 = l_curr_party_rec.attribute8 )
3517: OR ( l_temp_party_rec.attribute8 = fnd_api.g_miss_char ) THEN
3518: l_pty_hist_csr.old_attribute8 := NULL;
3519: l_pty_hist_csr.new_attribute8 := NULL;
3520: ELSE
3521: l_pty_hist_csr.old_attribute8 := fnd_api.g_miss_char;
3517: OR ( l_temp_party_rec.attribute8 = fnd_api.g_miss_char ) THEN
3518: l_pty_hist_csr.old_attribute8 := NULL;
3519: l_pty_hist_csr.new_attribute8 := NULL;
3520: ELSE
3521: l_pty_hist_csr.old_attribute8 := fnd_api.g_miss_char;
3522: l_pty_hist_csr.new_attribute8 := l_temp_party_rec.attribute8;
3523: END IF;
3524: ELSE
3525: l_pty_hist_csr.old_attribute8 := fnd_api.g_miss_char;
3521: l_pty_hist_csr.old_attribute8 := fnd_api.g_miss_char;
3522: l_pty_hist_csr.new_attribute8 := l_temp_party_rec.attribute8;
3523: END IF;
3524: ELSE
3525: l_pty_hist_csr.old_attribute8 := fnd_api.g_miss_char;
3526: l_pty_hist_csr.new_attribute8 := l_temp_party_rec.attribute8;
3527: END IF;
3528: --
3529: IF ( l_pty_hist_csr.old_attribute9 IS NULL
3528: --
3529: IF ( l_pty_hist_csr.old_attribute9 IS NULL
3530: AND l_pty_hist_csr.new_attribute9 IS NULL ) THEN
3531: IF ( l_temp_party_rec.attribute9 = l_curr_party_rec.attribute9 )
3532: OR ( l_temp_party_rec.attribute9 = fnd_api.g_miss_char ) THEN
3533: l_pty_hist_csr.old_attribute9 := NULL;
3534: l_pty_hist_csr.new_attribute9 := NULL;
3535: ELSE
3536: l_pty_hist_csr.old_attribute9 := fnd_api.g_miss_char;
3532: OR ( l_temp_party_rec.attribute9 = fnd_api.g_miss_char ) THEN
3533: l_pty_hist_csr.old_attribute9 := NULL;
3534: l_pty_hist_csr.new_attribute9 := NULL;
3535: ELSE
3536: l_pty_hist_csr.old_attribute9 := fnd_api.g_miss_char;
3537: l_pty_hist_csr.new_attribute9 := l_temp_party_rec.attribute9;
3538: END IF;
3539: ELSE
3540: l_pty_hist_csr.old_attribute9 := fnd_api.g_miss_char;
3536: l_pty_hist_csr.old_attribute9 := fnd_api.g_miss_char;
3537: l_pty_hist_csr.new_attribute9 := l_temp_party_rec.attribute9;
3538: END IF;
3539: ELSE
3540: l_pty_hist_csr.old_attribute9 := fnd_api.g_miss_char;
3541: l_pty_hist_csr.new_attribute9 := l_temp_party_rec.attribute9;
3542: END IF;
3543: --
3544: IF ( l_pty_hist_csr.old_attribute10 IS NULL
3543: --
3544: IF ( l_pty_hist_csr.old_attribute10 IS NULL
3545: AND l_pty_hist_csr.new_attribute10 IS NULL ) THEN
3546: IF ( l_temp_party_rec.attribute10 = l_curr_party_rec.attribute10 )
3547: OR ( l_temp_party_rec.attribute10 = fnd_api.g_miss_char ) THEN
3548: l_pty_hist_csr.old_attribute10 := NULL;
3549: l_pty_hist_csr.new_attribute10 := NULL;
3550: ELSE
3551: l_pty_hist_csr.old_attribute10 := fnd_api.g_miss_char;
3547: OR ( l_temp_party_rec.attribute10 = fnd_api.g_miss_char ) THEN
3548: l_pty_hist_csr.old_attribute10 := NULL;
3549: l_pty_hist_csr.new_attribute10 := NULL;
3550: ELSE
3551: l_pty_hist_csr.old_attribute10 := fnd_api.g_miss_char;
3552: l_pty_hist_csr.new_attribute10 := l_temp_party_rec.attribute10;
3553: END IF;
3554: ELSE
3555: l_pty_hist_csr.old_attribute10 := fnd_api.g_miss_char;
3551: l_pty_hist_csr.old_attribute10 := fnd_api.g_miss_char;
3552: l_pty_hist_csr.new_attribute10 := l_temp_party_rec.attribute10;
3553: END IF;
3554: ELSE
3555: l_pty_hist_csr.old_attribute10 := fnd_api.g_miss_char;
3556: l_pty_hist_csr.new_attribute10 := l_temp_party_rec.attribute10;
3557: END IF;
3558: --
3559: IF ( l_pty_hist_csr.old_attribute11 IS NULL
3558: --
3559: IF ( l_pty_hist_csr.old_attribute11 IS NULL
3560: AND l_pty_hist_csr.new_attribute11 IS NULL ) THEN
3561: IF ( l_temp_party_rec.attribute11 = l_curr_party_rec.attribute11 )
3562: OR ( l_temp_party_rec.attribute11 = fnd_api.g_miss_char ) THEN
3563: l_pty_hist_csr.old_attribute11 := NULL;
3564: l_pty_hist_csr.new_attribute11 := NULL;
3565: ELSE
3566: l_pty_hist_csr.old_attribute11 := fnd_api.g_miss_char;
3562: OR ( l_temp_party_rec.attribute11 = fnd_api.g_miss_char ) THEN
3563: l_pty_hist_csr.old_attribute11 := NULL;
3564: l_pty_hist_csr.new_attribute11 := NULL;
3565: ELSE
3566: l_pty_hist_csr.old_attribute11 := fnd_api.g_miss_char;
3567: l_pty_hist_csr.new_attribute11 := l_temp_party_rec.attribute11;
3568: END IF;
3569: ELSE
3570: l_pty_hist_csr.old_attribute11 := fnd_api.g_miss_char;
3566: l_pty_hist_csr.old_attribute11 := fnd_api.g_miss_char;
3567: l_pty_hist_csr.new_attribute11 := l_temp_party_rec.attribute11;
3568: END IF;
3569: ELSE
3570: l_pty_hist_csr.old_attribute11 := fnd_api.g_miss_char;
3571: l_pty_hist_csr.new_attribute11 := l_temp_party_rec.attribute11;
3572: END IF;
3573: --
3574: IF ( l_pty_hist_csr.old_attribute12 IS NULL
3573: --
3574: IF ( l_pty_hist_csr.old_attribute12 IS NULL
3575: AND l_pty_hist_csr.new_attribute12 IS NULL ) THEN
3576: IF ( l_temp_party_rec.attribute12 = l_curr_party_rec.attribute12 )
3577: OR ( l_temp_party_rec.attribute12 = fnd_api.g_miss_char ) THEN
3578: l_pty_hist_csr.old_attribute12 := NULL;
3579: l_pty_hist_csr.new_attribute12 := NULL;
3580: ELSE
3581: l_pty_hist_csr.old_attribute12 := fnd_api.g_miss_char;
3577: OR ( l_temp_party_rec.attribute12 = fnd_api.g_miss_char ) THEN
3578: l_pty_hist_csr.old_attribute12 := NULL;
3579: l_pty_hist_csr.new_attribute12 := NULL;
3580: ELSE
3581: l_pty_hist_csr.old_attribute12 := fnd_api.g_miss_char;
3582: l_pty_hist_csr.new_attribute12 := l_temp_party_rec.attribute12;
3583: END IF;
3584: ELSE
3585: l_pty_hist_csr.old_attribute12 := fnd_api.g_miss_char;
3581: l_pty_hist_csr.old_attribute12 := fnd_api.g_miss_char;
3582: l_pty_hist_csr.new_attribute12 := l_temp_party_rec.attribute12;
3583: END IF;
3584: ELSE
3585: l_pty_hist_csr.old_attribute12 := fnd_api.g_miss_char;
3586: l_pty_hist_csr.new_attribute12 := l_temp_party_rec.attribute12;
3587: END IF;
3588: --
3589: IF ( l_pty_hist_csr.old_attribute13 IS NULL
3588: --
3589: IF ( l_pty_hist_csr.old_attribute13 IS NULL
3590: AND l_pty_hist_csr.new_attribute13 IS NULL ) THEN
3591: IF ( l_temp_party_rec.attribute13 = l_curr_party_rec.attribute13 )
3592: OR ( l_temp_party_rec.attribute13 = fnd_api.g_miss_char ) THEN
3593: l_pty_hist_csr.old_attribute13 := NULL;
3594: l_pty_hist_csr.new_attribute13 := NULL;
3595: ELSE
3596: l_pty_hist_csr.old_attribute13 := fnd_api.g_miss_char;
3592: OR ( l_temp_party_rec.attribute13 = fnd_api.g_miss_char ) THEN
3593: l_pty_hist_csr.old_attribute13 := NULL;
3594: l_pty_hist_csr.new_attribute13 := NULL;
3595: ELSE
3596: l_pty_hist_csr.old_attribute13 := fnd_api.g_miss_char;
3597: l_pty_hist_csr.new_attribute13 := l_temp_party_rec.attribute13;
3598: END IF;
3599: ELSE
3600: l_pty_hist_csr.old_attribute13 := fnd_api.g_miss_char;
3596: l_pty_hist_csr.old_attribute13 := fnd_api.g_miss_char;
3597: l_pty_hist_csr.new_attribute13 := l_temp_party_rec.attribute13;
3598: END IF;
3599: ELSE
3600: l_pty_hist_csr.old_attribute13 := fnd_api.g_miss_char;
3601: l_pty_hist_csr.new_attribute13 := l_temp_party_rec.attribute13;
3602: END IF;
3603: --
3604: IF ( l_pty_hist_csr.old_attribute14 IS NULL
3603: --
3604: IF ( l_pty_hist_csr.old_attribute14 IS NULL
3605: AND l_pty_hist_csr.new_attribute14 IS NULL ) THEN
3606: IF ( l_temp_party_rec.attribute14 = l_curr_party_rec.attribute14 )
3607: OR ( l_temp_party_rec.attribute14 = fnd_api.g_miss_char ) THEN
3608: l_pty_hist_csr.old_attribute14 := NULL;
3609: l_pty_hist_csr.new_attribute14 := NULL;
3610: ELSE
3611: l_pty_hist_csr.old_attribute14 := fnd_api.g_miss_char;
3607: OR ( l_temp_party_rec.attribute14 = fnd_api.g_miss_char ) THEN
3608: l_pty_hist_csr.old_attribute14 := NULL;
3609: l_pty_hist_csr.new_attribute14 := NULL;
3610: ELSE
3611: l_pty_hist_csr.old_attribute14 := fnd_api.g_miss_char;
3612: l_pty_hist_csr.new_attribute14 := l_temp_party_rec.attribute14;
3613: END IF;
3614: ELSE
3615: l_pty_hist_csr.old_attribute14 := fnd_api.g_miss_char;
3611: l_pty_hist_csr.old_attribute14 := fnd_api.g_miss_char;
3612: l_pty_hist_csr.new_attribute14 := l_temp_party_rec.attribute14;
3613: END IF;
3614: ELSE
3615: l_pty_hist_csr.old_attribute14 := fnd_api.g_miss_char;
3616: l_pty_hist_csr.new_attribute14 := l_temp_party_rec.attribute14;
3617: END IF;
3618: --
3619: IF ( l_pty_hist_csr.old_attribute15 IS NULL
3618: --
3619: IF ( l_pty_hist_csr.old_attribute15 IS NULL
3620: AND l_pty_hist_csr.new_attribute15 IS NULL ) THEN
3621: IF ( l_temp_party_rec.attribute15 = l_curr_party_rec.attribute15 )
3622: OR ( l_temp_party_rec.attribute15 = fnd_api.g_miss_char ) THEN
3623: l_pty_hist_csr.old_attribute15 := NULL;
3624: l_pty_hist_csr.new_attribute15 := NULL;
3625: ELSE
3626: l_pty_hist_csr.old_attribute15 := fnd_api.g_miss_char;
3622: OR ( l_temp_party_rec.attribute15 = fnd_api.g_miss_char ) THEN
3623: l_pty_hist_csr.old_attribute15 := NULL;
3624: l_pty_hist_csr.new_attribute15 := NULL;
3625: ELSE
3626: l_pty_hist_csr.old_attribute15 := fnd_api.g_miss_char;
3627: l_pty_hist_csr.new_attribute15 := l_temp_party_rec.attribute15;
3628: END IF;
3629: ELSE
3630: l_pty_hist_csr.old_attribute15 := fnd_api.g_miss_char;
3626: l_pty_hist_csr.old_attribute15 := fnd_api.g_miss_char;
3627: l_pty_hist_csr.new_attribute15 := l_temp_party_rec.attribute15;
3628: END IF;
3629: ELSE
3630: l_pty_hist_csr.old_attribute15 := fnd_api.g_miss_char;
3631: l_pty_hist_csr.new_attribute15 := l_temp_party_rec.attribute15;
3632: END IF;
3633: --
3634: IF ( l_pty_hist_csr.old_primary_flag IS NULL
3633: --
3634: IF ( l_pty_hist_csr.old_primary_flag IS NULL
3635: AND l_pty_hist_csr.new_primary_flag IS NULL ) THEN
3636: IF ( l_temp_party_rec.primary_flag = l_curr_party_rec.primary_flag )
3637: OR ( l_temp_party_rec.primary_flag = fnd_api.g_miss_char ) THEN
3638: l_pty_hist_csr.old_primary_flag := NULL;
3639: l_pty_hist_csr.new_primary_flag := NULL;
3640: ELSE
3641: l_pty_hist_csr.old_primary_flag := fnd_api.g_miss_char;
3637: OR ( l_temp_party_rec.primary_flag = fnd_api.g_miss_char ) THEN
3638: l_pty_hist_csr.old_primary_flag := NULL;
3639: l_pty_hist_csr.new_primary_flag := NULL;
3640: ELSE
3641: l_pty_hist_csr.old_primary_flag := fnd_api.g_miss_char;
3642: l_pty_hist_csr.new_primary_flag := l_temp_party_rec.primary_flag;
3643: END IF;
3644: ELSE
3645: l_pty_hist_csr.old_primary_flag := fnd_api.g_miss_char;
3641: l_pty_hist_csr.old_primary_flag := fnd_api.g_miss_char;
3642: l_pty_hist_csr.new_primary_flag := l_temp_party_rec.primary_flag;
3643: END IF;
3644: ELSE
3645: l_pty_hist_csr.old_primary_flag := fnd_api.g_miss_char;
3646: l_pty_hist_csr.new_primary_flag := l_temp_party_rec.primary_flag;
3647: END IF;
3648: --
3649: IF ( l_pty_hist_csr.old_preferred_flag IS NULL
3648: --
3649: IF ( l_pty_hist_csr.old_preferred_flag IS NULL
3650: AND l_pty_hist_csr.new_preferred_flag IS NULL ) THEN
3651: IF ( l_temp_party_rec.preferred_flag = l_curr_party_rec.preferred_flag )
3652: OR ( l_temp_party_rec.preferred_flag = fnd_api.g_miss_char ) THEN
3653: l_pty_hist_csr.old_preferred_flag := NULL;
3654: l_pty_hist_csr.new_preferred_flag := NULL;
3655: ELSE
3656: l_pty_hist_csr.old_preferred_flag := fnd_api.g_miss_char;
3652: OR ( l_temp_party_rec.preferred_flag = fnd_api.g_miss_char ) THEN
3653: l_pty_hist_csr.old_preferred_flag := NULL;
3654: l_pty_hist_csr.new_preferred_flag := NULL;
3655: ELSE
3656: l_pty_hist_csr.old_preferred_flag := fnd_api.g_miss_char;
3657: l_pty_hist_csr.new_preferred_flag := l_temp_party_rec.preferred_flag;
3658: END IF;
3659: ELSE
3660: l_pty_hist_csr.old_preferred_flag := fnd_api.g_miss_char;
3656: l_pty_hist_csr.old_preferred_flag := fnd_api.g_miss_char;
3657: l_pty_hist_csr.new_preferred_flag := l_temp_party_rec.preferred_flag;
3658: END IF;
3659: ELSE
3660: l_pty_hist_csr.old_preferred_flag := fnd_api.g_miss_char;
3661: l_pty_hist_csr.new_preferred_flag := l_temp_party_rec.preferred_flag;
3662: END IF;
3663:
3664: CSI_I_PARTIES_H_PKG.update_Row
3663:
3664: CSI_I_PARTIES_H_PKG.update_Row
3665: (
3666: p_INSTANCE_PARTY_HISTORY_ID => l_party_hist_id ,
3667: p_INSTANCE_PARTY_ID => FND_API.G_MISS_NUM ,
3668: p_TRANSACTION_ID => FND_API.G_MISS_NUM ,
3669: p_OLD_PARTY_SOURCE_TABLE => l_pty_hist_csr.OLD_PARTY_SOURCE_TABLE ,
3670: p_NEW_PARTY_SOURCE_TABLE => l_pty_hist_csr.NEW_PARTY_SOURCE_TABLE ,
3671: p_OLD_PARTY_ID => l_pty_hist_csr.OLD_PARTY_ID ,
3664: CSI_I_PARTIES_H_PKG.update_Row
3665: (
3666: p_INSTANCE_PARTY_HISTORY_ID => l_party_hist_id ,
3667: p_INSTANCE_PARTY_ID => FND_API.G_MISS_NUM ,
3668: p_TRANSACTION_ID => FND_API.G_MISS_NUM ,
3669: p_OLD_PARTY_SOURCE_TABLE => l_pty_hist_csr.OLD_PARTY_SOURCE_TABLE ,
3670: p_NEW_PARTY_SOURCE_TABLE => l_pty_hist_csr.NEW_PARTY_SOURCE_TABLE ,
3671: p_OLD_PARTY_ID => l_pty_hist_csr.OLD_PARTY_ID ,
3672: p_NEW_PARTY_ID => l_pty_hist_csr.NEW_PARTY_ID ,
3711: p_OLD_ATTRIBUTE14 => l_pty_hist_csr.OLD_ATTRIBUTE14 ,
3712: p_NEW_ATTRIBUTE14 => l_pty_hist_csr.NEW_ATTRIBUTE14 ,
3713: p_OLD_ATTRIBUTE15 => l_pty_hist_csr.OLD_ATTRIBUTE15 ,
3714: p_NEW_ATTRIBUTE15 => l_pty_hist_csr.NEW_ATTRIBUTE15 ,
3715: p_FULL_DUMP_FLAG => FND_API.G_MISS_CHAR ,
3716: p_CREATED_BY => FND_API.G_MISS_NUM ,
3717: p_CREATION_DATE => FND_API.G_MISS_DATE ,
3718: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID ,
3719: p_LAST_UPDATE_DATE => SYSDATE ,
3712: p_NEW_ATTRIBUTE14 => l_pty_hist_csr.NEW_ATTRIBUTE14 ,
3713: p_OLD_ATTRIBUTE15 => l_pty_hist_csr.OLD_ATTRIBUTE15 ,
3714: p_NEW_ATTRIBUTE15 => l_pty_hist_csr.NEW_ATTRIBUTE15 ,
3715: p_FULL_DUMP_FLAG => FND_API.G_MISS_CHAR ,
3716: p_CREATED_BY => FND_API.G_MISS_NUM ,
3717: p_CREATION_DATE => FND_API.G_MISS_DATE ,
3718: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID ,
3719: p_LAST_UPDATE_DATE => SYSDATE ,
3720: p_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID ,
3713: p_OLD_ATTRIBUTE15 => l_pty_hist_csr.OLD_ATTRIBUTE15 ,
3714: p_NEW_ATTRIBUTE15 => l_pty_hist_csr.NEW_ATTRIBUTE15 ,
3715: p_FULL_DUMP_FLAG => FND_API.G_MISS_CHAR ,
3716: p_CREATED_BY => FND_API.G_MISS_NUM ,
3717: p_CREATION_DATE => FND_API.G_MISS_DATE ,
3718: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID ,
3719: p_LAST_UPDATE_DATE => SYSDATE ,
3720: p_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID ,
3721: p_OBJECT_VERSION_NUMBER => FND_API.G_MISS_NUM ,
3717: p_CREATION_DATE => FND_API.G_MISS_DATE ,
3718: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID ,
3719: p_LAST_UPDATE_DATE => SYSDATE ,
3720: p_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID ,
3721: p_OBJECT_VERSION_NUMBER => FND_API.G_MISS_NUM ,
3722: p_OLD_PRIMARY_FLAG => l_pty_hist_csr.OLD_CONTACT_FLAG ,
3723: p_NEW_PRIMARY_FLAG => l_pty_hist_csr.NEW_PRIMARY_FLAG ,
3724: p_OLD_PREFERRED_FLAG => l_pty_hist_csr.OLD_CONTACT_FLAG ,
3725: p_NEW_PREFERRED_FLAG => l_pty_hist_csr.NEW_PREFERRED_FLAG );
3731: IF (l_mod_value = 0) THEN
3732: -- If the mod value is 0 then dump all the columns both changed and unchanged
3733: -- changed columns have old and new values while the unchanged values have old and new values
3734: -- exactly same
3735: IF (p_party_rec.PARTY_SOURCE_TABLE = FND_API.G_MISS_CHAR) THEN
3736: l_temp_party_rec.PARTY_SOURCE_TABLE := l_curr_party_rec.PARTY_SOURCE_TABLE;
3737: END IF;
3738: IF (p_party_rec.PARTY_ID = FND_API.G_MISS_NUM) THEN
3739: l_temp_party_rec.PARTY_ID := l_curr_party_rec.PARTY_ID ;
3734: -- exactly same
3735: IF (p_party_rec.PARTY_SOURCE_TABLE = FND_API.G_MISS_CHAR) THEN
3736: l_temp_party_rec.PARTY_SOURCE_TABLE := l_curr_party_rec.PARTY_SOURCE_TABLE;
3737: END IF;
3738: IF (p_party_rec.PARTY_ID = FND_API.G_MISS_NUM) THEN
3739: l_temp_party_rec.PARTY_ID := l_curr_party_rec.PARTY_ID ;
3740: END IF;
3741: IF (p_party_rec.RELATIONSHIP_TYPE_CODE = FND_API.G_MISS_CHAR) THEN
3742: l_temp_party_rec.RELATIONSHIP_TYPE_CODE := l_curr_party_rec.RELATIONSHIP_TYPE_CODE ;
3737: END IF;
3738: IF (p_party_rec.PARTY_ID = FND_API.G_MISS_NUM) THEN
3739: l_temp_party_rec.PARTY_ID := l_curr_party_rec.PARTY_ID ;
3740: END IF;
3741: IF (p_party_rec.RELATIONSHIP_TYPE_CODE = FND_API.G_MISS_CHAR) THEN
3742: l_temp_party_rec.RELATIONSHIP_TYPE_CODE := l_curr_party_rec.RELATIONSHIP_TYPE_CODE ;
3743: END IF;
3744: IF (p_party_rec.CONTACT_FLAG = FND_API.G_MISS_CHAR) THEN
3745: l_temp_party_rec.CONTACT_FLAG := l_curr_party_rec.CONTACT_FLAG ;
3740: END IF;
3741: IF (p_party_rec.RELATIONSHIP_TYPE_CODE = FND_API.G_MISS_CHAR) THEN
3742: l_temp_party_rec.RELATIONSHIP_TYPE_CODE := l_curr_party_rec.RELATIONSHIP_TYPE_CODE ;
3743: END IF;
3744: IF (p_party_rec.CONTACT_FLAG = FND_API.G_MISS_CHAR) THEN
3745: l_temp_party_rec.CONTACT_FLAG := l_curr_party_rec.CONTACT_FLAG ;
3746: END IF;
3747: IF (p_party_rec.CONTACT_IP_ID = FND_API.G_MISS_NUM) THEN
3748: l_temp_party_rec.CONTACT_IP_ID := l_curr_party_rec.CONTACT_IP_ID ;
3743: END IF;
3744: IF (p_party_rec.CONTACT_FLAG = FND_API.G_MISS_CHAR) THEN
3745: l_temp_party_rec.CONTACT_FLAG := l_curr_party_rec.CONTACT_FLAG ;
3746: END IF;
3747: IF (p_party_rec.CONTACT_IP_ID = FND_API.G_MISS_NUM) THEN
3748: l_temp_party_rec.CONTACT_IP_ID := l_curr_party_rec.CONTACT_IP_ID ;
3749: END IF;
3750: IF (p_party_rec.ACTIVE_START_DATE = FND_API.G_MISS_DATE) THEN
3751: l_temp_party_rec.ACTIVE_START_DATE := l_curr_party_rec.ACTIVE_START_DATE ;
3746: END IF;
3747: IF (p_party_rec.CONTACT_IP_ID = FND_API.G_MISS_NUM) THEN
3748: l_temp_party_rec.CONTACT_IP_ID := l_curr_party_rec.CONTACT_IP_ID ;
3749: END IF;
3750: IF (p_party_rec.ACTIVE_START_DATE = FND_API.G_MISS_DATE) THEN
3751: l_temp_party_rec.ACTIVE_START_DATE := l_curr_party_rec.ACTIVE_START_DATE ;
3752: END IF;
3753: IF (p_party_rec.ACTIVE_END_DATE = FND_API.G_MISS_DATE) THEN
3754: l_temp_party_rec.ACTIVE_END_DATE := l_curr_party_rec.ACTIVE_END_DATE ;
3749: END IF;
3750: IF (p_party_rec.ACTIVE_START_DATE = FND_API.G_MISS_DATE) THEN
3751: l_temp_party_rec.ACTIVE_START_DATE := l_curr_party_rec.ACTIVE_START_DATE ;
3752: END IF;
3753: IF (p_party_rec.ACTIVE_END_DATE = FND_API.G_MISS_DATE) THEN
3754: l_temp_party_rec.ACTIVE_END_DATE := l_curr_party_rec.ACTIVE_END_DATE ;
3755: END IF;
3756: IF (p_party_rec.context = FND_API.G_MISS_CHAR) THEN
3757: l_temp_party_rec.CONTEXT := l_curr_party_rec.CONTEXT ;
3752: END IF;
3753: IF (p_party_rec.ACTIVE_END_DATE = FND_API.G_MISS_DATE) THEN
3754: l_temp_party_rec.ACTIVE_END_DATE := l_curr_party_rec.ACTIVE_END_DATE ;
3755: END IF;
3756: IF (p_party_rec.context = FND_API.G_MISS_CHAR) THEN
3757: l_temp_party_rec.CONTEXT := l_curr_party_rec.CONTEXT ;
3758: END IF;
3759: IF (p_party_rec.ATTRIBUTE1 = FND_API.G_MISS_CHAR) THEN
3760: l_temp_party_rec.ATTRIBUTE1 := l_curr_party_rec.ATTRIBUTE1 ;
3755: END IF;
3756: IF (p_party_rec.context = FND_API.G_MISS_CHAR) THEN
3757: l_temp_party_rec.CONTEXT := l_curr_party_rec.CONTEXT ;
3758: END IF;
3759: IF (p_party_rec.ATTRIBUTE1 = FND_API.G_MISS_CHAR) THEN
3760: l_temp_party_rec.ATTRIBUTE1 := l_curr_party_rec.ATTRIBUTE1 ;
3761: END IF;
3762: IF (p_party_rec.ATTRIBUTE2 = FND_API.G_MISS_CHAR) THEN
3763: l_temp_party_rec.ATTRIBUTE2 := l_curr_party_rec.ATTRIBUTE2 ;
3758: END IF;
3759: IF (p_party_rec.ATTRIBUTE1 = FND_API.G_MISS_CHAR) THEN
3760: l_temp_party_rec.ATTRIBUTE1 := l_curr_party_rec.ATTRIBUTE1 ;
3761: END IF;
3762: IF (p_party_rec.ATTRIBUTE2 = FND_API.G_MISS_CHAR) THEN
3763: l_temp_party_rec.ATTRIBUTE2 := l_curr_party_rec.ATTRIBUTE2 ;
3764: END IF;
3765: IF (p_party_rec.ATTRIBUTE3 = FND_API.G_MISS_CHAR) THEN
3766: l_temp_party_rec.ATTRIBUTE3 := l_curr_party_rec.ATTRIBUTE3 ;
3761: END IF;
3762: IF (p_party_rec.ATTRIBUTE2 = FND_API.G_MISS_CHAR) THEN
3763: l_temp_party_rec.ATTRIBUTE2 := l_curr_party_rec.ATTRIBUTE2 ;
3764: END IF;
3765: IF (p_party_rec.ATTRIBUTE3 = FND_API.G_MISS_CHAR) THEN
3766: l_temp_party_rec.ATTRIBUTE3 := l_curr_party_rec.ATTRIBUTE3 ;
3767: END IF;
3768: IF (p_party_rec.ATTRIBUTE4 = FND_API.G_MISS_CHAR) THEN
3769: l_temp_party_rec.ATTRIBUTE4 := l_curr_party_rec.ATTRIBUTE4 ;
3764: END IF;
3765: IF (p_party_rec.ATTRIBUTE3 = FND_API.G_MISS_CHAR) THEN
3766: l_temp_party_rec.ATTRIBUTE3 := l_curr_party_rec.ATTRIBUTE3 ;
3767: END IF;
3768: IF (p_party_rec.ATTRIBUTE4 = FND_API.G_MISS_CHAR) THEN
3769: l_temp_party_rec.ATTRIBUTE4 := l_curr_party_rec.ATTRIBUTE4 ;
3770: END IF;
3771: IF (p_party_rec.ATTRIBUTE5 = FND_API.G_MISS_CHAR) THEN
3772: l_temp_party_rec.ATTRIBUTE5 := l_curr_party_rec.ATTRIBUTE5 ;
3767: END IF;
3768: IF (p_party_rec.ATTRIBUTE4 = FND_API.G_MISS_CHAR) THEN
3769: l_temp_party_rec.ATTRIBUTE4 := l_curr_party_rec.ATTRIBUTE4 ;
3770: END IF;
3771: IF (p_party_rec.ATTRIBUTE5 = FND_API.G_MISS_CHAR) THEN
3772: l_temp_party_rec.ATTRIBUTE5 := l_curr_party_rec.ATTRIBUTE5 ;
3773: END IF;
3774: IF (p_party_rec.ATTRIBUTE6 = FND_API.G_MISS_CHAR) THEN
3775: l_temp_party_rec.ATTRIBUTE6 := l_curr_party_rec.ATTRIBUTE6 ;
3770: END IF;
3771: IF (p_party_rec.ATTRIBUTE5 = FND_API.G_MISS_CHAR) THEN
3772: l_temp_party_rec.ATTRIBUTE5 := l_curr_party_rec.ATTRIBUTE5 ;
3773: END IF;
3774: IF (p_party_rec.ATTRIBUTE6 = FND_API.G_MISS_CHAR) THEN
3775: l_temp_party_rec.ATTRIBUTE6 := l_curr_party_rec.ATTRIBUTE6 ;
3776: END IF;
3777: IF (p_party_rec.ATTRIBUTE7 = FND_API.G_MISS_CHAR) THEN
3778: l_temp_party_rec.ATTRIBUTE7 := l_curr_party_rec.ATTRIBUTE7 ;
3773: END IF;
3774: IF (p_party_rec.ATTRIBUTE6 = FND_API.G_MISS_CHAR) THEN
3775: l_temp_party_rec.ATTRIBUTE6 := l_curr_party_rec.ATTRIBUTE6 ;
3776: END IF;
3777: IF (p_party_rec.ATTRIBUTE7 = FND_API.G_MISS_CHAR) THEN
3778: l_temp_party_rec.ATTRIBUTE7 := l_curr_party_rec.ATTRIBUTE7 ;
3779: END IF;
3780: IF (p_party_rec.ATTRIBUTE8 = FND_API.G_MISS_CHAR) THEN
3781: l_temp_party_rec.ATTRIBUTE8 := l_curr_party_rec.ATTRIBUTE8 ;
3776: END IF;
3777: IF (p_party_rec.ATTRIBUTE7 = FND_API.G_MISS_CHAR) THEN
3778: l_temp_party_rec.ATTRIBUTE7 := l_curr_party_rec.ATTRIBUTE7 ;
3779: END IF;
3780: IF (p_party_rec.ATTRIBUTE8 = FND_API.G_MISS_CHAR) THEN
3781: l_temp_party_rec.ATTRIBUTE8 := l_curr_party_rec.ATTRIBUTE8 ;
3782: END IF;
3783: IF (p_party_rec.ATTRIBUTE9 = FND_API.G_MISS_CHAR) THEN
3784: l_temp_party_rec.ATTRIBUTE9 := l_curr_party_rec.ATTRIBUTE9 ;
3779: END IF;
3780: IF (p_party_rec.ATTRIBUTE8 = FND_API.G_MISS_CHAR) THEN
3781: l_temp_party_rec.ATTRIBUTE8 := l_curr_party_rec.ATTRIBUTE8 ;
3782: END IF;
3783: IF (p_party_rec.ATTRIBUTE9 = FND_API.G_MISS_CHAR) THEN
3784: l_temp_party_rec.ATTRIBUTE9 := l_curr_party_rec.ATTRIBUTE9 ;
3785: END IF;
3786: IF (p_party_rec.ATTRIBUTE10 = FND_API.G_MISS_CHAR) THEN
3787: l_temp_party_rec.ATTRIBUTE10 := l_curr_party_rec.ATTRIBUTE10 ;
3782: END IF;
3783: IF (p_party_rec.ATTRIBUTE9 = FND_API.G_MISS_CHAR) THEN
3784: l_temp_party_rec.ATTRIBUTE9 := l_curr_party_rec.ATTRIBUTE9 ;
3785: END IF;
3786: IF (p_party_rec.ATTRIBUTE10 = FND_API.G_MISS_CHAR) THEN
3787: l_temp_party_rec.ATTRIBUTE10 := l_curr_party_rec.ATTRIBUTE10 ;
3788: END IF;
3789: IF (p_party_rec.ATTRIBUTE11 = FND_API.G_MISS_CHAR) THEN
3790: l_temp_party_rec.ATTRIBUTE11 := l_curr_party_rec.ATTRIBUTE11 ;
3785: END IF;
3786: IF (p_party_rec.ATTRIBUTE10 = FND_API.G_MISS_CHAR) THEN
3787: l_temp_party_rec.ATTRIBUTE10 := l_curr_party_rec.ATTRIBUTE10 ;
3788: END IF;
3789: IF (p_party_rec.ATTRIBUTE11 = FND_API.G_MISS_CHAR) THEN
3790: l_temp_party_rec.ATTRIBUTE11 := l_curr_party_rec.ATTRIBUTE11 ;
3791: END IF;
3792: IF (p_party_rec.ATTRIBUTE12 = FND_API.G_MISS_CHAR) THEN
3793: l_temp_party_rec.ATTRIBUTE12 := l_curr_party_rec.ATTRIBUTE12 ;
3788: END IF;
3789: IF (p_party_rec.ATTRIBUTE11 = FND_API.G_MISS_CHAR) THEN
3790: l_temp_party_rec.ATTRIBUTE11 := l_curr_party_rec.ATTRIBUTE11 ;
3791: END IF;
3792: IF (p_party_rec.ATTRIBUTE12 = FND_API.G_MISS_CHAR) THEN
3793: l_temp_party_rec.ATTRIBUTE12 := l_curr_party_rec.ATTRIBUTE12 ;
3794: END IF;
3795: IF (p_party_rec.ATTRIBUTE13 = FND_API.G_MISS_CHAR) THEN
3796: l_temp_party_rec.ATTRIBUTE13 := l_curr_party_rec.ATTRIBUTE13 ;
3791: END IF;
3792: IF (p_party_rec.ATTRIBUTE12 = FND_API.G_MISS_CHAR) THEN
3793: l_temp_party_rec.ATTRIBUTE12 := l_curr_party_rec.ATTRIBUTE12 ;
3794: END IF;
3795: IF (p_party_rec.ATTRIBUTE13 = FND_API.G_MISS_CHAR) THEN
3796: l_temp_party_rec.ATTRIBUTE13 := l_curr_party_rec.ATTRIBUTE13 ;
3797: END IF;
3798: IF (p_party_rec.ATTRIBUTE14 = FND_API.G_MISS_CHAR) THEN
3799: l_temp_party_rec.ATTRIBUTE14 := l_curr_party_rec.ATTRIBUTE14 ;
3794: END IF;
3795: IF (p_party_rec.ATTRIBUTE13 = FND_API.G_MISS_CHAR) THEN
3796: l_temp_party_rec.ATTRIBUTE13 := l_curr_party_rec.ATTRIBUTE13 ;
3797: END IF;
3798: IF (p_party_rec.ATTRIBUTE14 = FND_API.G_MISS_CHAR) THEN
3799: l_temp_party_rec.ATTRIBUTE14 := l_curr_party_rec.ATTRIBUTE14 ;
3800: END IF;
3801: IF (p_party_rec.ATTRIBUTE15 = FND_API.G_MISS_CHAR) THEN
3802: l_temp_party_rec.ATTRIBUTE15 := l_curr_party_rec.ATTRIBUTE15 ;
3797: END IF;
3798: IF (p_party_rec.ATTRIBUTE14 = FND_API.G_MISS_CHAR) THEN
3799: l_temp_party_rec.ATTRIBUTE14 := l_curr_party_rec.ATTRIBUTE14 ;
3800: END IF;
3801: IF (p_party_rec.ATTRIBUTE15 = FND_API.G_MISS_CHAR) THEN
3802: l_temp_party_rec.ATTRIBUTE15 := l_curr_party_rec.ATTRIBUTE15 ;
3803: END IF;
3804: IF (p_party_rec.PRIMARY_FLAG = FND_API.G_MISS_CHAR) THEN
3805: l_temp_party_rec.PRIMARY_FLAG := l_curr_party_rec.PRIMARY_FLAG ;
3800: END IF;
3801: IF (p_party_rec.ATTRIBUTE15 = FND_API.G_MISS_CHAR) THEN
3802: l_temp_party_rec.ATTRIBUTE15 := l_curr_party_rec.ATTRIBUTE15 ;
3803: END IF;
3804: IF (p_party_rec.PRIMARY_FLAG = FND_API.G_MISS_CHAR) THEN
3805: l_temp_party_rec.PRIMARY_FLAG := l_curr_party_rec.PRIMARY_FLAG ;
3806: END IF;
3807: IF (p_party_rec.PREFERRED_FLAG = FND_API.G_MISS_CHAR) THEN
3808: l_temp_party_rec.PREFERRED_FLAG := l_curr_party_rec.PREFERRED_FLAG ;
3803: END IF;
3804: IF (p_party_rec.PRIMARY_FLAG = FND_API.G_MISS_CHAR) THEN
3805: l_temp_party_rec.PRIMARY_FLAG := l_curr_party_rec.PRIMARY_FLAG ;
3806: END IF;
3807: IF (p_party_rec.PREFERRED_FLAG = FND_API.G_MISS_CHAR) THEN
3808: l_temp_party_rec.PREFERRED_FLAG := l_curr_party_rec.PREFERRED_FLAG ;
3809: END IF;
3810:
3811: -- Call table handlers to insert into csi_i_parties_h table
3874: ELSE
3875:
3876: -- If the mod value is not equal to zero then dump only the changed columns
3877: -- while the unchanged values have old and new values as null
3878: IF (p_party_rec.party_source_table = fnd_api.g_miss_char) OR
3879: NVL(p_party_rec.party_source_table, fnd_api.g_miss_char) = NVL(l_curr_party_rec.party_source_table, fnd_api.g_miss_char) THEN
3880: l_party_hist_rec.old_party_source_table := NULL;
3881: l_party_hist_rec.new_party_source_table := NULL;
3882: ELSIF
3875:
3876: -- If the mod value is not equal to zero then dump only the changed columns
3877: -- while the unchanged values have old and new values as null
3878: IF (p_party_rec.party_source_table = fnd_api.g_miss_char) OR
3879: NVL(p_party_rec.party_source_table, fnd_api.g_miss_char) = NVL(l_curr_party_rec.party_source_table, fnd_api.g_miss_char) THEN
3880: l_party_hist_rec.old_party_source_table := NULL;
3881: l_party_hist_rec.new_party_source_table := NULL;
3882: ELSIF
3883: NVL(l_curr_party_rec.party_source_table,fnd_api.g_miss_char) <> NVL(p_party_rec.party_source_table,fnd_api.g_miss_char) THEN
3879: NVL(p_party_rec.party_source_table, fnd_api.g_miss_char) = NVL(l_curr_party_rec.party_source_table, fnd_api.g_miss_char) THEN
3880: l_party_hist_rec.old_party_source_table := NULL;
3881: l_party_hist_rec.new_party_source_table := NULL;
3882: ELSIF
3883: NVL(l_curr_party_rec.party_source_table,fnd_api.g_miss_char) <> NVL(p_party_rec.party_source_table,fnd_api.g_miss_char) THEN
3884: l_party_hist_rec.old_party_source_table := l_curr_party_rec.party_source_table ;
3885: l_party_hist_rec.new_party_source_table := p_party_rec.party_source_table ;
3886: END IF;
3887: --
3884: l_party_hist_rec.old_party_source_table := l_curr_party_rec.party_source_table ;
3885: l_party_hist_rec.new_party_source_table := p_party_rec.party_source_table ;
3886: END IF;
3887: --
3888: IF (p_party_rec.party_id = fnd_api.g_miss_num) OR
3889: NVL(p_party_rec.party_id, fnd_api.g_miss_num) = NVL(l_curr_party_rec.party_id, fnd_api.g_miss_num) THEN
3890: l_party_hist_rec.old_party_id := NULL;
3891: l_party_hist_rec.new_party_id := NULL;
3892: ELSIF
3885: l_party_hist_rec.new_party_source_table := p_party_rec.party_source_table ;
3886: END IF;
3887: --
3888: IF (p_party_rec.party_id = fnd_api.g_miss_num) OR
3889: NVL(p_party_rec.party_id, fnd_api.g_miss_num) = NVL(l_curr_party_rec.party_id, fnd_api.g_miss_num) THEN
3890: l_party_hist_rec.old_party_id := NULL;
3891: l_party_hist_rec.new_party_id := NULL;
3892: ELSIF
3893: NVL(l_curr_party_rec.party_id,fnd_api.g_miss_num) <> NVL(p_party_rec.party_id,fnd_api.g_miss_num) THEN
3889: NVL(p_party_rec.party_id, fnd_api.g_miss_num) = NVL(l_curr_party_rec.party_id, fnd_api.g_miss_num) THEN
3890: l_party_hist_rec.old_party_id := NULL;
3891: l_party_hist_rec.new_party_id := NULL;
3892: ELSIF
3893: NVL(l_curr_party_rec.party_id,fnd_api.g_miss_num) <> NVL(p_party_rec.party_id,fnd_api.g_miss_num) THEN
3894: l_party_hist_rec.old_party_id := l_curr_party_rec.party_id ;
3895: l_party_hist_rec.new_party_id := p_party_rec.party_id ;
3896: END IF;
3897: --
3894: l_party_hist_rec.old_party_id := l_curr_party_rec.party_id ;
3895: l_party_hist_rec.new_party_id := p_party_rec.party_id ;
3896: END IF;
3897: --
3898: IF (p_party_rec.relationship_type_code = fnd_api.g_miss_char) OR
3899: NVL(p_party_rec.relationship_type_code, fnd_api.g_miss_char) = NVL(l_curr_party_rec.relationship_type_code, fnd_api.g_miss_char) THEN
3900: l_party_hist_rec.old_relationship_type_code := NULL;
3901: l_party_hist_rec.new_relationship_type_code := NULL;
3902: ELSIF
3895: l_party_hist_rec.new_party_id := p_party_rec.party_id ;
3896: END IF;
3897: --
3898: IF (p_party_rec.relationship_type_code = fnd_api.g_miss_char) OR
3899: NVL(p_party_rec.relationship_type_code, fnd_api.g_miss_char) = NVL(l_curr_party_rec.relationship_type_code, fnd_api.g_miss_char) THEN
3900: l_party_hist_rec.old_relationship_type_code := NULL;
3901: l_party_hist_rec.new_relationship_type_code := NULL;
3902: ELSIF
3903: NVL(l_curr_party_rec.relationship_type_code,fnd_api.g_miss_char) <> NVL(p_party_rec.relationship_type_code,fnd_api.g_miss_char) THEN
3899: NVL(p_party_rec.relationship_type_code, fnd_api.g_miss_char) = NVL(l_curr_party_rec.relationship_type_code, fnd_api.g_miss_char) THEN
3900: l_party_hist_rec.old_relationship_type_code := NULL;
3901: l_party_hist_rec.new_relationship_type_code := NULL;
3902: ELSIF
3903: NVL(l_curr_party_rec.relationship_type_code,fnd_api.g_miss_char) <> NVL(p_party_rec.relationship_type_code,fnd_api.g_miss_char) THEN
3904: l_party_hist_rec.old_relationship_type_code := l_curr_party_rec.relationship_type_code ;
3905: l_party_hist_rec.new_relationship_type_code := p_party_rec.relationship_type_code ;
3906: END IF;
3907: --
3904: l_party_hist_rec.old_relationship_type_code := l_curr_party_rec.relationship_type_code ;
3905: l_party_hist_rec.new_relationship_type_code := p_party_rec.relationship_type_code ;
3906: END IF;
3907: --
3908: IF (p_party_rec.contact_flag = fnd_api.g_miss_char) OR
3909: NVL(p_party_rec.contact_flag, fnd_api.g_miss_char) = NVL(l_curr_party_rec.contact_flag, fnd_api.g_miss_char) THEN
3910: l_party_hist_rec.old_contact_flag := NULL;
3911: l_party_hist_rec.new_contact_flag := NULL;
3912: ELSIF
3905: l_party_hist_rec.new_relationship_type_code := p_party_rec.relationship_type_code ;
3906: END IF;
3907: --
3908: IF (p_party_rec.contact_flag = fnd_api.g_miss_char) OR
3909: NVL(p_party_rec.contact_flag, fnd_api.g_miss_char) = NVL(l_curr_party_rec.contact_flag, fnd_api.g_miss_char) THEN
3910: l_party_hist_rec.old_contact_flag := NULL;
3911: l_party_hist_rec.new_contact_flag := NULL;
3912: ELSIF
3913: NVL(l_curr_party_rec.contact_flag,fnd_api.g_miss_char) <> NVL(p_party_rec.contact_flag,fnd_api.g_miss_char) THEN
3909: NVL(p_party_rec.contact_flag, fnd_api.g_miss_char) = NVL(l_curr_party_rec.contact_flag, fnd_api.g_miss_char) THEN
3910: l_party_hist_rec.old_contact_flag := NULL;
3911: l_party_hist_rec.new_contact_flag := NULL;
3912: ELSIF
3913: NVL(l_curr_party_rec.contact_flag,fnd_api.g_miss_char) <> NVL(p_party_rec.contact_flag,fnd_api.g_miss_char) THEN
3914: l_party_hist_rec.old_contact_flag := l_curr_party_rec.contact_flag ;
3915: l_party_hist_rec.new_contact_flag := p_party_rec.contact_flag ;
3916: END IF;
3917: --
3914: l_party_hist_rec.old_contact_flag := l_curr_party_rec.contact_flag ;
3915: l_party_hist_rec.new_contact_flag := p_party_rec.contact_flag ;
3916: END IF;
3917: --
3918: IF (p_party_rec.contact_ip_id = fnd_api.g_miss_num) OR
3919: NVL(p_party_rec.contact_ip_id, fnd_api.g_miss_num) = NVL(l_curr_party_rec.contact_ip_id, fnd_api.g_miss_num) THEN
3920: l_party_hist_rec.old_contact_ip_id := NULL;
3921: l_party_hist_rec.new_contact_ip_id := NULL;
3922: ELSIF
3915: l_party_hist_rec.new_contact_flag := p_party_rec.contact_flag ;
3916: END IF;
3917: --
3918: IF (p_party_rec.contact_ip_id = fnd_api.g_miss_num) OR
3919: NVL(p_party_rec.contact_ip_id, fnd_api.g_miss_num) = NVL(l_curr_party_rec.contact_ip_id, fnd_api.g_miss_num) THEN
3920: l_party_hist_rec.old_contact_ip_id := NULL;
3921: l_party_hist_rec.new_contact_ip_id := NULL;
3922: ELSIF
3923: NVL(l_curr_party_rec.contact_ip_id,fnd_api.g_miss_num) <> NVL(p_party_rec.contact_ip_id,fnd_api.g_miss_num) THEN
3919: NVL(p_party_rec.contact_ip_id, fnd_api.g_miss_num) = NVL(l_curr_party_rec.contact_ip_id, fnd_api.g_miss_num) THEN
3920: l_party_hist_rec.old_contact_ip_id := NULL;
3921: l_party_hist_rec.new_contact_ip_id := NULL;
3922: ELSIF
3923: NVL(l_curr_party_rec.contact_ip_id,fnd_api.g_miss_num) <> NVL(p_party_rec.contact_ip_id,fnd_api.g_miss_num) THEN
3924: l_party_hist_rec.old_contact_ip_id := l_curr_party_rec.contact_ip_id ;
3925: l_party_hist_rec.new_contact_ip_id := p_party_rec.contact_ip_id ;
3926: END IF;
3927: --
3924: l_party_hist_rec.old_contact_ip_id := l_curr_party_rec.contact_ip_id ;
3925: l_party_hist_rec.new_contact_ip_id := p_party_rec.contact_ip_id ;
3926: END IF;
3927: --
3928: IF (p_party_rec.active_start_date = fnd_api.g_miss_date) OR
3929: NVL(p_party_rec.active_start_date, fnd_api.g_miss_date) = NVL(l_curr_party_rec.active_start_date, fnd_api.g_miss_date) THEN
3930: l_party_hist_rec.old_active_start_date := NULL;
3931: l_party_hist_rec.new_active_start_date := NULL;
3932: ELSIF
3925: l_party_hist_rec.new_contact_ip_id := p_party_rec.contact_ip_id ;
3926: END IF;
3927: --
3928: IF (p_party_rec.active_start_date = fnd_api.g_miss_date) OR
3929: NVL(p_party_rec.active_start_date, fnd_api.g_miss_date) = NVL(l_curr_party_rec.active_start_date, fnd_api.g_miss_date) THEN
3930: l_party_hist_rec.old_active_start_date := NULL;
3931: l_party_hist_rec.new_active_start_date := NULL;
3932: ELSIF
3933: NVL(l_curr_party_rec.active_start_date,fnd_api.g_miss_date) <> NVL(p_party_rec.active_start_date,fnd_api.g_miss_date) THEN
3929: NVL(p_party_rec.active_start_date, fnd_api.g_miss_date) = NVL(l_curr_party_rec.active_start_date, fnd_api.g_miss_date) THEN
3930: l_party_hist_rec.old_active_start_date := NULL;
3931: l_party_hist_rec.new_active_start_date := NULL;
3932: ELSIF
3933: NVL(l_curr_party_rec.active_start_date,fnd_api.g_miss_date) <> NVL(p_party_rec.active_start_date,fnd_api.g_miss_date) THEN
3934: l_party_hist_rec.old_active_start_date := l_curr_party_rec.active_start_date ;
3935: l_party_hist_rec.new_active_start_date := p_party_rec.active_start_date ;
3936: END IF;
3937: --
3934: l_party_hist_rec.old_active_start_date := l_curr_party_rec.active_start_date ;
3935: l_party_hist_rec.new_active_start_date := p_party_rec.active_start_date ;
3936: END IF;
3937: --
3938: IF (p_party_rec.active_end_date = fnd_api.g_miss_date) OR
3939: NVL(p_party_rec.active_end_date, fnd_api.g_miss_date) = NVL(l_curr_party_rec.active_end_date, fnd_api.g_miss_date) THEN
3940: l_party_hist_rec.old_active_end_date := NULL;
3941: l_party_hist_rec.new_active_end_date := NULL;
3942: ELSIF
3935: l_party_hist_rec.new_active_start_date := p_party_rec.active_start_date ;
3936: END IF;
3937: --
3938: IF (p_party_rec.active_end_date = fnd_api.g_miss_date) OR
3939: NVL(p_party_rec.active_end_date, fnd_api.g_miss_date) = NVL(l_curr_party_rec.active_end_date, fnd_api.g_miss_date) THEN
3940: l_party_hist_rec.old_active_end_date := NULL;
3941: l_party_hist_rec.new_active_end_date := NULL;
3942: ELSIF
3943: NVL(l_curr_party_rec.active_end_date,fnd_api.g_miss_date) <> NVL(p_party_rec.active_end_date,fnd_api.g_miss_date) THEN
3939: NVL(p_party_rec.active_end_date, fnd_api.g_miss_date) = NVL(l_curr_party_rec.active_end_date, fnd_api.g_miss_date) THEN
3940: l_party_hist_rec.old_active_end_date := NULL;
3941: l_party_hist_rec.new_active_end_date := NULL;
3942: ELSIF
3943: NVL(l_curr_party_rec.active_end_date,fnd_api.g_miss_date) <> NVL(p_party_rec.active_end_date,fnd_api.g_miss_date) THEN
3944: l_party_hist_rec.old_active_end_date := l_curr_party_rec.active_end_date ;
3945: l_party_hist_rec.new_active_end_date := p_party_rec.active_end_date ;
3946: END IF;
3947: --
3944: l_party_hist_rec.old_active_end_date := l_curr_party_rec.active_end_date ;
3945: l_party_hist_rec.new_active_end_date := p_party_rec.active_end_date ;
3946: END IF;
3947: --
3948: IF (p_party_rec.context = fnd_api.g_miss_char) OR
3949: NVL(p_party_rec.context, fnd_api.g_miss_char) = NVL(l_curr_party_rec.context, fnd_api.g_miss_char) THEN
3950: l_party_hist_rec.old_context := NULL;
3951: l_party_hist_rec.new_context := NULL;
3952: ELSIF
3945: l_party_hist_rec.new_active_end_date := p_party_rec.active_end_date ;
3946: END IF;
3947: --
3948: IF (p_party_rec.context = fnd_api.g_miss_char) OR
3949: NVL(p_party_rec.context, fnd_api.g_miss_char) = NVL(l_curr_party_rec.context, fnd_api.g_miss_char) THEN
3950: l_party_hist_rec.old_context := NULL;
3951: l_party_hist_rec.new_context := NULL;
3952: ELSIF
3953: NVL(l_curr_party_rec.context,fnd_api.g_miss_char) <> NVL(p_party_rec.context,fnd_api.g_miss_char) THEN
3949: NVL(p_party_rec.context, fnd_api.g_miss_char) = NVL(l_curr_party_rec.context, fnd_api.g_miss_char) THEN
3950: l_party_hist_rec.old_context := NULL;
3951: l_party_hist_rec.new_context := NULL;
3952: ELSIF
3953: NVL(l_curr_party_rec.context,fnd_api.g_miss_char) <> NVL(p_party_rec.context,fnd_api.g_miss_char) THEN
3954: l_party_hist_rec.old_context := l_curr_party_rec.context ;
3955: l_party_hist_rec.new_context := p_party_rec.context ;
3956: END IF;
3957: --
3954: l_party_hist_rec.old_context := l_curr_party_rec.context ;
3955: l_party_hist_rec.new_context := p_party_rec.context ;
3956: END IF;
3957: --
3958: IF (p_party_rec.attribute1 = fnd_api.g_miss_char) OR
3959: NVL(p_party_rec.attribute1, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute1, fnd_api.g_miss_char) THEN
3960: l_party_hist_rec.old_attribute1 := NULL;
3961: l_party_hist_rec.new_attribute1 := NULL;
3962: ELSIF
3955: l_party_hist_rec.new_context := p_party_rec.context ;
3956: END IF;
3957: --
3958: IF (p_party_rec.attribute1 = fnd_api.g_miss_char) OR
3959: NVL(p_party_rec.attribute1, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute1, fnd_api.g_miss_char) THEN
3960: l_party_hist_rec.old_attribute1 := NULL;
3961: l_party_hist_rec.new_attribute1 := NULL;
3962: ELSIF
3963: NVL(l_curr_party_rec.attribute1,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute1,fnd_api.g_miss_char) THEN
3959: NVL(p_party_rec.attribute1, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute1, fnd_api.g_miss_char) THEN
3960: l_party_hist_rec.old_attribute1 := NULL;
3961: l_party_hist_rec.new_attribute1 := NULL;
3962: ELSIF
3963: NVL(l_curr_party_rec.attribute1,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute1,fnd_api.g_miss_char) THEN
3964: l_party_hist_rec.old_attribute1 := l_curr_party_rec.attribute1 ;
3965: l_party_hist_rec.new_attribute1 := p_party_rec.attribute1 ;
3966: END IF;
3967: --
3964: l_party_hist_rec.old_attribute1 := l_curr_party_rec.attribute1 ;
3965: l_party_hist_rec.new_attribute1 := p_party_rec.attribute1 ;
3966: END IF;
3967: --
3968: IF (p_party_rec.attribute2 = fnd_api.g_miss_char) OR
3969: NVL(p_party_rec.attribute2, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute2, fnd_api.g_miss_char) THEN
3970: l_party_hist_rec.old_attribute2 := NULL;
3971: l_party_hist_rec.new_attribute2 := NULL;
3972: ELSIF
3965: l_party_hist_rec.new_attribute1 := p_party_rec.attribute1 ;
3966: END IF;
3967: --
3968: IF (p_party_rec.attribute2 = fnd_api.g_miss_char) OR
3969: NVL(p_party_rec.attribute2, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute2, fnd_api.g_miss_char) THEN
3970: l_party_hist_rec.old_attribute2 := NULL;
3971: l_party_hist_rec.new_attribute2 := NULL;
3972: ELSIF
3973: NVL(l_curr_party_rec.attribute2,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute2,fnd_api.g_miss_char) THEN
3969: NVL(p_party_rec.attribute2, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute2, fnd_api.g_miss_char) THEN
3970: l_party_hist_rec.old_attribute2 := NULL;
3971: l_party_hist_rec.new_attribute2 := NULL;
3972: ELSIF
3973: NVL(l_curr_party_rec.attribute2,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute2,fnd_api.g_miss_char) THEN
3974: l_party_hist_rec.old_attribute2 := l_curr_party_rec.attribute2 ;
3975: l_party_hist_rec.new_attribute2 := p_party_rec.attribute2 ;
3976: END IF;
3977: --
3974: l_party_hist_rec.old_attribute2 := l_curr_party_rec.attribute2 ;
3975: l_party_hist_rec.new_attribute2 := p_party_rec.attribute2 ;
3976: END IF;
3977: --
3978: IF (p_party_rec.attribute3 = fnd_api.g_miss_char) OR
3979: NVL(p_party_rec.attribute3, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute3, fnd_api.g_miss_char) THEN
3980: l_party_hist_rec.old_attribute3 := NULL;
3981: l_party_hist_rec.new_attribute3 := NULL;
3982: ELSIF
3975: l_party_hist_rec.new_attribute2 := p_party_rec.attribute2 ;
3976: END IF;
3977: --
3978: IF (p_party_rec.attribute3 = fnd_api.g_miss_char) OR
3979: NVL(p_party_rec.attribute3, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute3, fnd_api.g_miss_char) THEN
3980: l_party_hist_rec.old_attribute3 := NULL;
3981: l_party_hist_rec.new_attribute3 := NULL;
3982: ELSIF
3983: NVL(l_curr_party_rec.attribute3,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute3,fnd_api.g_miss_char) THEN
3979: NVL(p_party_rec.attribute3, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute3, fnd_api.g_miss_char) THEN
3980: l_party_hist_rec.old_attribute3 := NULL;
3981: l_party_hist_rec.new_attribute3 := NULL;
3982: ELSIF
3983: NVL(l_curr_party_rec.attribute3,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute3,fnd_api.g_miss_char) THEN
3984: l_party_hist_rec.old_attribute3 := l_curr_party_rec.attribute3 ;
3985: l_party_hist_rec.new_attribute3 := p_party_rec.attribute3 ;
3986: END IF;
3987: --
3984: l_party_hist_rec.old_attribute3 := l_curr_party_rec.attribute3 ;
3985: l_party_hist_rec.new_attribute3 := p_party_rec.attribute3 ;
3986: END IF;
3987: --
3988: IF (p_party_rec.attribute4 = fnd_api.g_miss_char) OR
3989: NVL(p_party_rec.attribute4, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute4, fnd_api.g_miss_char) THEN
3990: l_party_hist_rec.old_attribute4 := NULL;
3991: l_party_hist_rec.new_attribute4 := NULL;
3992: ELSIF
3985: l_party_hist_rec.new_attribute3 := p_party_rec.attribute3 ;
3986: END IF;
3987: --
3988: IF (p_party_rec.attribute4 = fnd_api.g_miss_char) OR
3989: NVL(p_party_rec.attribute4, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute4, fnd_api.g_miss_char) THEN
3990: l_party_hist_rec.old_attribute4 := NULL;
3991: l_party_hist_rec.new_attribute4 := NULL;
3992: ELSIF
3993: NVL(l_curr_party_rec.attribute4,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute4,fnd_api.g_miss_char) THEN
3989: NVL(p_party_rec.attribute4, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute4, fnd_api.g_miss_char) THEN
3990: l_party_hist_rec.old_attribute4 := NULL;
3991: l_party_hist_rec.new_attribute4 := NULL;
3992: ELSIF
3993: NVL(l_curr_party_rec.attribute4,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute4,fnd_api.g_miss_char) THEN
3994: l_party_hist_rec.old_attribute4 := l_curr_party_rec.attribute4 ;
3995: l_party_hist_rec.new_attribute4 := p_party_rec.attribute4 ;
3996: END IF;
3997: --
3994: l_party_hist_rec.old_attribute4 := l_curr_party_rec.attribute4 ;
3995: l_party_hist_rec.new_attribute4 := p_party_rec.attribute4 ;
3996: END IF;
3997: --
3998: IF (p_party_rec.attribute5 = fnd_api.g_miss_char) OR
3999: NVL(p_party_rec.attribute5, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute5, fnd_api.g_miss_char) THEN
4000: l_party_hist_rec.old_attribute5 := NULL;
4001: l_party_hist_rec.new_attribute5 := NULL;
4002: ELSIF
3995: l_party_hist_rec.new_attribute4 := p_party_rec.attribute4 ;
3996: END IF;
3997: --
3998: IF (p_party_rec.attribute5 = fnd_api.g_miss_char) OR
3999: NVL(p_party_rec.attribute5, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute5, fnd_api.g_miss_char) THEN
4000: l_party_hist_rec.old_attribute5 := NULL;
4001: l_party_hist_rec.new_attribute5 := NULL;
4002: ELSIF
4003: NVL(l_curr_party_rec.attribute5,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute5,fnd_api.g_miss_char) THEN
3999: NVL(p_party_rec.attribute5, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute5, fnd_api.g_miss_char) THEN
4000: l_party_hist_rec.old_attribute5 := NULL;
4001: l_party_hist_rec.new_attribute5 := NULL;
4002: ELSIF
4003: NVL(l_curr_party_rec.attribute5,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute5,fnd_api.g_miss_char) THEN
4004: l_party_hist_rec.old_attribute5 := l_curr_party_rec.attribute5 ;
4005: l_party_hist_rec.new_attribute5 := p_party_rec.attribute5 ;
4006: END IF;
4007: --
4004: l_party_hist_rec.old_attribute5 := l_curr_party_rec.attribute5 ;
4005: l_party_hist_rec.new_attribute5 := p_party_rec.attribute5 ;
4006: END IF;
4007: --
4008: IF (p_party_rec.attribute6 = fnd_api.g_miss_char) OR
4009: NVL(p_party_rec.attribute6, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute6, fnd_api.g_miss_char) THEN
4010: l_party_hist_rec.old_attribute6 := NULL;
4011: l_party_hist_rec.new_attribute6 := NULL;
4012: ELSIF
4005: l_party_hist_rec.new_attribute5 := p_party_rec.attribute5 ;
4006: END IF;
4007: --
4008: IF (p_party_rec.attribute6 = fnd_api.g_miss_char) OR
4009: NVL(p_party_rec.attribute6, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute6, fnd_api.g_miss_char) THEN
4010: l_party_hist_rec.old_attribute6 := NULL;
4011: l_party_hist_rec.new_attribute6 := NULL;
4012: ELSIF
4013: NVL(l_curr_party_rec.attribute6,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute6,fnd_api.g_miss_char) THEN
4009: NVL(p_party_rec.attribute6, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute6, fnd_api.g_miss_char) THEN
4010: l_party_hist_rec.old_attribute6 := NULL;
4011: l_party_hist_rec.new_attribute6 := NULL;
4012: ELSIF
4013: NVL(l_curr_party_rec.attribute6,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute6,fnd_api.g_miss_char) THEN
4014: l_party_hist_rec.old_attribute6 := l_curr_party_rec.attribute6 ;
4015: l_party_hist_rec.new_attribute6 := p_party_rec.attribute6 ;
4016: END IF;
4017: --
4014: l_party_hist_rec.old_attribute6 := l_curr_party_rec.attribute6 ;
4015: l_party_hist_rec.new_attribute6 := p_party_rec.attribute6 ;
4016: END IF;
4017: --
4018: IF (p_party_rec.attribute7 = fnd_api.g_miss_char) OR
4019: NVL(p_party_rec.attribute7, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute7, fnd_api.g_miss_char) THEN
4020: l_party_hist_rec.old_attribute7 := NULL;
4021: l_party_hist_rec.new_attribute7 := NULL;
4022: ELSIF
4015: l_party_hist_rec.new_attribute6 := p_party_rec.attribute6 ;
4016: END IF;
4017: --
4018: IF (p_party_rec.attribute7 = fnd_api.g_miss_char) OR
4019: NVL(p_party_rec.attribute7, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute7, fnd_api.g_miss_char) THEN
4020: l_party_hist_rec.old_attribute7 := NULL;
4021: l_party_hist_rec.new_attribute7 := NULL;
4022: ELSIF
4023: NVL(l_curr_party_rec.attribute7,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute7,fnd_api.g_miss_char) THEN
4019: NVL(p_party_rec.attribute7, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute7, fnd_api.g_miss_char) THEN
4020: l_party_hist_rec.old_attribute7 := NULL;
4021: l_party_hist_rec.new_attribute7 := NULL;
4022: ELSIF
4023: NVL(l_curr_party_rec.attribute7,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute7,fnd_api.g_miss_char) THEN
4024: l_party_hist_rec.old_attribute7 := l_curr_party_rec.attribute7 ;
4025: l_party_hist_rec.new_attribute7 := p_party_rec.attribute7 ;
4026: END IF;
4027: --
4024: l_party_hist_rec.old_attribute7 := l_curr_party_rec.attribute7 ;
4025: l_party_hist_rec.new_attribute7 := p_party_rec.attribute7 ;
4026: END IF;
4027: --
4028: IF (p_party_rec.attribute8 = fnd_api.g_miss_char) OR
4029: NVL(p_party_rec.attribute8, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute8, fnd_api.g_miss_char) THEN
4030: l_party_hist_rec.old_attribute8 := NULL;
4031: l_party_hist_rec.new_attribute8 := NULL;
4032: ELSIF
4025: l_party_hist_rec.new_attribute7 := p_party_rec.attribute7 ;
4026: END IF;
4027: --
4028: IF (p_party_rec.attribute8 = fnd_api.g_miss_char) OR
4029: NVL(p_party_rec.attribute8, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute8, fnd_api.g_miss_char) THEN
4030: l_party_hist_rec.old_attribute8 := NULL;
4031: l_party_hist_rec.new_attribute8 := NULL;
4032: ELSIF
4033: NVL(l_curr_party_rec.attribute8,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute8,fnd_api.g_miss_char) THEN
4029: NVL(p_party_rec.attribute8, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute8, fnd_api.g_miss_char) THEN
4030: l_party_hist_rec.old_attribute8 := NULL;
4031: l_party_hist_rec.new_attribute8 := NULL;
4032: ELSIF
4033: NVL(l_curr_party_rec.attribute8,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute8,fnd_api.g_miss_char) THEN
4034: l_party_hist_rec.old_attribute8 := l_curr_party_rec.attribute8 ;
4035: l_party_hist_rec.new_attribute8 := p_party_rec.attribute8 ;
4036: END IF;
4037: --
4034: l_party_hist_rec.old_attribute8 := l_curr_party_rec.attribute8 ;
4035: l_party_hist_rec.new_attribute8 := p_party_rec.attribute8 ;
4036: END IF;
4037: --
4038: IF (p_party_rec.attribute9 = fnd_api.g_miss_char) OR
4039: NVL(p_party_rec.attribute9, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute9, fnd_api.g_miss_char) THEN
4040: l_party_hist_rec.old_attribute9 := NULL;
4041: l_party_hist_rec.new_attribute9 := NULL;
4042: ELSIF
4035: l_party_hist_rec.new_attribute8 := p_party_rec.attribute8 ;
4036: END IF;
4037: --
4038: IF (p_party_rec.attribute9 = fnd_api.g_miss_char) OR
4039: NVL(p_party_rec.attribute9, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute9, fnd_api.g_miss_char) THEN
4040: l_party_hist_rec.old_attribute9 := NULL;
4041: l_party_hist_rec.new_attribute9 := NULL;
4042: ELSIF
4043: NVL(l_curr_party_rec.attribute9,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute9,fnd_api.g_miss_char) THEN
4039: NVL(p_party_rec.attribute9, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute9, fnd_api.g_miss_char) THEN
4040: l_party_hist_rec.old_attribute9 := NULL;
4041: l_party_hist_rec.new_attribute9 := NULL;
4042: ELSIF
4043: NVL(l_curr_party_rec.attribute9,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute9,fnd_api.g_miss_char) THEN
4044: l_party_hist_rec.old_attribute9 := l_curr_party_rec.attribute9 ;
4045: l_party_hist_rec.new_attribute9 := p_party_rec.attribute9 ;
4046: END IF;
4047: --
4044: l_party_hist_rec.old_attribute9 := l_curr_party_rec.attribute9 ;
4045: l_party_hist_rec.new_attribute9 := p_party_rec.attribute9 ;
4046: END IF;
4047: --
4048: IF (p_party_rec.attribute10 = fnd_api.g_miss_char) OR
4049: NVL(p_party_rec.attribute10, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute10, fnd_api.g_miss_char) THEN
4050: l_party_hist_rec.old_attribute10 := NULL;
4051: l_party_hist_rec.new_attribute10 := NULL;
4052: ELSIF
4045: l_party_hist_rec.new_attribute9 := p_party_rec.attribute9 ;
4046: END IF;
4047: --
4048: IF (p_party_rec.attribute10 = fnd_api.g_miss_char) OR
4049: NVL(p_party_rec.attribute10, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute10, fnd_api.g_miss_char) THEN
4050: l_party_hist_rec.old_attribute10 := NULL;
4051: l_party_hist_rec.new_attribute10 := NULL;
4052: ELSIF
4053: NVL(l_curr_party_rec.attribute10,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute10,fnd_api.g_miss_char) THEN
4049: NVL(p_party_rec.attribute10, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute10, fnd_api.g_miss_char) THEN
4050: l_party_hist_rec.old_attribute10 := NULL;
4051: l_party_hist_rec.new_attribute10 := NULL;
4052: ELSIF
4053: NVL(l_curr_party_rec.attribute10,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute10,fnd_api.g_miss_char) THEN
4054: l_party_hist_rec.old_attribute10 := l_curr_party_rec.attribute10 ;
4055: l_party_hist_rec.new_attribute10 := p_party_rec.attribute10 ;
4056: END IF;
4057: --
4054: l_party_hist_rec.old_attribute10 := l_curr_party_rec.attribute10 ;
4055: l_party_hist_rec.new_attribute10 := p_party_rec.attribute10 ;
4056: END IF;
4057: --
4058: IF (p_party_rec.attribute11 = fnd_api.g_miss_char) OR
4059: NVL(p_party_rec.attribute11, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute11, fnd_api.g_miss_char) THEN
4060: l_party_hist_rec.old_attribute11 := NULL;
4061: l_party_hist_rec.new_attribute11 := NULL;
4062: ELSIF
4055: l_party_hist_rec.new_attribute10 := p_party_rec.attribute10 ;
4056: END IF;
4057: --
4058: IF (p_party_rec.attribute11 = fnd_api.g_miss_char) OR
4059: NVL(p_party_rec.attribute11, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute11, fnd_api.g_miss_char) THEN
4060: l_party_hist_rec.old_attribute11 := NULL;
4061: l_party_hist_rec.new_attribute11 := NULL;
4062: ELSIF
4063: NVL(l_curr_party_rec.attribute11,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute11,fnd_api.g_miss_char) THEN
4059: NVL(p_party_rec.attribute11, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute11, fnd_api.g_miss_char) THEN
4060: l_party_hist_rec.old_attribute11 := NULL;
4061: l_party_hist_rec.new_attribute11 := NULL;
4062: ELSIF
4063: NVL(l_curr_party_rec.attribute11,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute11,fnd_api.g_miss_char) THEN
4064: l_party_hist_rec.old_attribute11 := l_curr_party_rec.attribute11 ;
4065: l_party_hist_rec.new_attribute11 := p_party_rec.attribute11 ;
4066: END IF;
4067: --
4064: l_party_hist_rec.old_attribute11 := l_curr_party_rec.attribute11 ;
4065: l_party_hist_rec.new_attribute11 := p_party_rec.attribute11 ;
4066: END IF;
4067: --
4068: IF (p_party_rec.attribute12 = fnd_api.g_miss_char) OR
4069: NVL(p_party_rec.attribute12, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute12, fnd_api.g_miss_char) THEN
4070: l_party_hist_rec.old_attribute12 := NULL;
4071: l_party_hist_rec.new_attribute12 := NULL;
4072: ELSIF
4065: l_party_hist_rec.new_attribute11 := p_party_rec.attribute11 ;
4066: END IF;
4067: --
4068: IF (p_party_rec.attribute12 = fnd_api.g_miss_char) OR
4069: NVL(p_party_rec.attribute12, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute12, fnd_api.g_miss_char) THEN
4070: l_party_hist_rec.old_attribute12 := NULL;
4071: l_party_hist_rec.new_attribute12 := NULL;
4072: ELSIF
4073: NVL(l_curr_party_rec.attribute12,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute12,fnd_api.g_miss_char) THEN
4069: NVL(p_party_rec.attribute12, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute12, fnd_api.g_miss_char) THEN
4070: l_party_hist_rec.old_attribute12 := NULL;
4071: l_party_hist_rec.new_attribute12 := NULL;
4072: ELSIF
4073: NVL(l_curr_party_rec.attribute12,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute12,fnd_api.g_miss_char) THEN
4074: l_party_hist_rec.old_attribute12 := l_curr_party_rec.attribute12 ;
4075: l_party_hist_rec.new_attribute12 := p_party_rec.attribute12 ;
4076: END IF;
4077: --
4074: l_party_hist_rec.old_attribute12 := l_curr_party_rec.attribute12 ;
4075: l_party_hist_rec.new_attribute12 := p_party_rec.attribute12 ;
4076: END IF;
4077: --
4078: IF (p_party_rec.attribute13 = fnd_api.g_miss_char) OR
4079: NVL(p_party_rec.attribute13, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute13, fnd_api.g_miss_char) THEN
4080: l_party_hist_rec.old_attribute13 := NULL;
4081: l_party_hist_rec.new_attribute13 := NULL;
4082: ELSIF
4075: l_party_hist_rec.new_attribute12 := p_party_rec.attribute12 ;
4076: END IF;
4077: --
4078: IF (p_party_rec.attribute13 = fnd_api.g_miss_char) OR
4079: NVL(p_party_rec.attribute13, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute13, fnd_api.g_miss_char) THEN
4080: l_party_hist_rec.old_attribute13 := NULL;
4081: l_party_hist_rec.new_attribute13 := NULL;
4082: ELSIF
4083: NVL(l_curr_party_rec.attribute13,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute13,fnd_api.g_miss_char) THEN
4079: NVL(p_party_rec.attribute13, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute13, fnd_api.g_miss_char) THEN
4080: l_party_hist_rec.old_attribute13 := NULL;
4081: l_party_hist_rec.new_attribute13 := NULL;
4082: ELSIF
4083: NVL(l_curr_party_rec.attribute13,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute13,fnd_api.g_miss_char) THEN
4084: l_party_hist_rec.old_attribute13 := l_curr_party_rec.attribute13 ;
4085: l_party_hist_rec.new_attribute13 := p_party_rec.attribute13 ;
4086: END IF;
4087: --
4084: l_party_hist_rec.old_attribute13 := l_curr_party_rec.attribute13 ;
4085: l_party_hist_rec.new_attribute13 := p_party_rec.attribute13 ;
4086: END IF;
4087: --
4088: IF (p_party_rec.attribute14 = fnd_api.g_miss_char) OR
4089: NVL(p_party_rec.attribute14, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute14, fnd_api.g_miss_char) THEN
4090: l_party_hist_rec.old_attribute14 := NULL;
4091: l_party_hist_rec.new_attribute14 := NULL;
4092: ELSIF
4085: l_party_hist_rec.new_attribute13 := p_party_rec.attribute13 ;
4086: END IF;
4087: --
4088: IF (p_party_rec.attribute14 = fnd_api.g_miss_char) OR
4089: NVL(p_party_rec.attribute14, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute14, fnd_api.g_miss_char) THEN
4090: l_party_hist_rec.old_attribute14 := NULL;
4091: l_party_hist_rec.new_attribute14 := NULL;
4092: ELSIF
4093: NVL(l_curr_party_rec.attribute14,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute14,fnd_api.g_miss_char) THEN
4089: NVL(p_party_rec.attribute14, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute14, fnd_api.g_miss_char) THEN
4090: l_party_hist_rec.old_attribute14 := NULL;
4091: l_party_hist_rec.new_attribute14 := NULL;
4092: ELSIF
4093: NVL(l_curr_party_rec.attribute14,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute14,fnd_api.g_miss_char) THEN
4094: l_party_hist_rec.old_attribute14 := l_curr_party_rec.attribute14 ;
4095: l_party_hist_rec.new_attribute14 := p_party_rec.attribute14 ;
4096: END IF;
4097: --
4094: l_party_hist_rec.old_attribute14 := l_curr_party_rec.attribute14 ;
4095: l_party_hist_rec.new_attribute14 := p_party_rec.attribute14 ;
4096: END IF;
4097: --
4098: IF (p_party_rec.attribute15 = fnd_api.g_miss_char) OR
4099: NVL(p_party_rec.attribute15, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute15, fnd_api.g_miss_char) THEN
4100: l_party_hist_rec.old_attribute15 := NULL;
4101: l_party_hist_rec.new_attribute15 := NULL;
4102: ELSIF
4095: l_party_hist_rec.new_attribute14 := p_party_rec.attribute14 ;
4096: END IF;
4097: --
4098: IF (p_party_rec.attribute15 = fnd_api.g_miss_char) OR
4099: NVL(p_party_rec.attribute15, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute15, fnd_api.g_miss_char) THEN
4100: l_party_hist_rec.old_attribute15 := NULL;
4101: l_party_hist_rec.new_attribute15 := NULL;
4102: ELSIF
4103: NVL(l_curr_party_rec.attribute15,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute15,fnd_api.g_miss_char) THEN
4099: NVL(p_party_rec.attribute15, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute15, fnd_api.g_miss_char) THEN
4100: l_party_hist_rec.old_attribute15 := NULL;
4101: l_party_hist_rec.new_attribute15 := NULL;
4102: ELSIF
4103: NVL(l_curr_party_rec.attribute15,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute15,fnd_api.g_miss_char) THEN
4104: l_party_hist_rec.old_attribute15 := l_curr_party_rec.attribute15 ;
4105: l_party_hist_rec.new_attribute15 := p_party_rec.attribute15 ;
4106: END IF;
4107: --
4104: l_party_hist_rec.old_attribute15 := l_curr_party_rec.attribute15 ;
4105: l_party_hist_rec.new_attribute15 := p_party_rec.attribute15 ;
4106: END IF;
4107: --
4108: IF (p_party_rec.primary_flag = fnd_api.g_miss_char) OR
4109: NVL(p_party_rec.primary_flag, fnd_api.g_miss_char) = NVL(l_curr_party_rec.primary_flag, fnd_api.g_miss_char) THEN
4110: l_party_hist_rec.old_primary_flag := NULL;
4111: l_party_hist_rec.new_primary_flag := NULL;
4112: ELSIF
4105: l_party_hist_rec.new_attribute15 := p_party_rec.attribute15 ;
4106: END IF;
4107: --
4108: IF (p_party_rec.primary_flag = fnd_api.g_miss_char) OR
4109: NVL(p_party_rec.primary_flag, fnd_api.g_miss_char) = NVL(l_curr_party_rec.primary_flag, fnd_api.g_miss_char) THEN
4110: l_party_hist_rec.old_primary_flag := NULL;
4111: l_party_hist_rec.new_primary_flag := NULL;
4112: ELSIF
4113: NVL(l_curr_party_rec.primary_flag,fnd_api.g_miss_char) <> NVL(p_party_rec.primary_flag,fnd_api.g_miss_char) THEN
4109: NVL(p_party_rec.primary_flag, fnd_api.g_miss_char) = NVL(l_curr_party_rec.primary_flag, fnd_api.g_miss_char) THEN
4110: l_party_hist_rec.old_primary_flag := NULL;
4111: l_party_hist_rec.new_primary_flag := NULL;
4112: ELSIF
4113: NVL(l_curr_party_rec.primary_flag,fnd_api.g_miss_char) <> NVL(p_party_rec.primary_flag,fnd_api.g_miss_char) THEN
4114: l_party_hist_rec.old_primary_flag := l_curr_party_rec.primary_flag ;
4115: l_party_hist_rec.new_primary_flag := p_party_rec.primary_flag ;
4116: END IF;
4117: --
4114: l_party_hist_rec.old_primary_flag := l_curr_party_rec.primary_flag ;
4115: l_party_hist_rec.new_primary_flag := p_party_rec.primary_flag ;
4116: END IF;
4117: --
4118: IF (p_party_rec.preferred_flag = fnd_api.g_miss_char) OR
4119: NVL(p_party_rec.preferred_flag, fnd_api.g_miss_char) = NVL(l_curr_party_rec.preferred_flag, fnd_api.g_miss_char) THEN
4120: l_party_hist_rec.old_preferred_flag := NULL;
4121: l_party_hist_rec.new_preferred_flag := NULL;
4122: ELSIF
4115: l_party_hist_rec.new_primary_flag := p_party_rec.primary_flag ;
4116: END IF;
4117: --
4118: IF (p_party_rec.preferred_flag = fnd_api.g_miss_char) OR
4119: NVL(p_party_rec.preferred_flag, fnd_api.g_miss_char) = NVL(l_curr_party_rec.preferred_flag, fnd_api.g_miss_char) THEN
4120: l_party_hist_rec.old_preferred_flag := NULL;
4121: l_party_hist_rec.new_preferred_flag := NULL;
4122: ELSIF
4123: NVL(l_curr_party_rec.preferred_flag,fnd_api.g_miss_char) <> NVL(p_party_rec.preferred_flag,fnd_api.g_miss_char) THEN
4119: NVL(p_party_rec.preferred_flag, fnd_api.g_miss_char) = NVL(l_curr_party_rec.preferred_flag, fnd_api.g_miss_char) THEN
4120: l_party_hist_rec.old_preferred_flag := NULL;
4121: l_party_hist_rec.new_preferred_flag := NULL;
4122: ELSIF
4123: NVL(l_curr_party_rec.preferred_flag,fnd_api.g_miss_char) <> NVL(p_party_rec.preferred_flag,fnd_api.g_miss_char) THEN
4124: l_party_hist_rec.old_preferred_flag := l_curr_party_rec.preferred_flag ;
4125: l_party_hist_rec.new_preferred_flag := p_party_rec.preferred_flag ;
4126: END IF;
4127:
4208: ,x_msg_count => x_msg_count
4209: ,x_msg_data => x_msg_data
4210: );
4211:
4212: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4213: FOR i in 1..x_msg_Count LOOP
4214: FND_MSG_PUB.Get(p_msg_index => i,
4215: p_encoded => 'F',
4216: p_data => x_msg_data,
4215: p_encoded => 'F',
4216: p_data => x_msg_data,
4217: p_msg_index_out => x_msg_index_out );
4218: End LOOP;
4219: RAISE FND_API.G_EXC_ERROR;
4220: END IF;
4221: -- srramakr Bug # 2232230. Expire the Contacts incase of Xfer of Ownership.
4222: --
4223: IF ((p_party_rec.PARTY_ID <> FND_API.G_MISS_NUM)
4219: RAISE FND_API.G_EXC_ERROR;
4220: END IF;
4221: -- srramakr Bug # 2232230. Expire the Contacts incase of Xfer of Ownership.
4222: --
4223: IF ((p_party_rec.PARTY_ID <> FND_API.G_MISS_NUM)
4224: AND (p_party_rec.PARTY_ID IS NOT NULL)
4225: AND (p_party_rec.PARTY_ID <> l_curr_party_rec.PARTY_ID))
4226: THEN
4227: For cont_rec in get_cont_party_rec(p_party_rec.INSTANCE_PARTY_ID)
4231: l_cont_party_rec.object_version_number := cont_rec.object_version_number;
4232: -- Calling Expire Instance Party Relationship
4233: expire_inst_party_relationship
4234: ( p_api_version => p_api_version
4235: ,p_commit => fnd_api.g_false
4236: ,p_init_msg_list => fnd_api.g_false
4237: ,p_validation_level => fnd_api.g_valid_level_full
4238: ,p_instance_party_rec => l_cont_party_rec
4239: ,p_txn_rec => p_txn_rec
4232: -- Calling Expire Instance Party Relationship
4233: expire_inst_party_relationship
4234: ( p_api_version => p_api_version
4235: ,p_commit => fnd_api.g_false
4236: ,p_init_msg_list => fnd_api.g_false
4237: ,p_validation_level => fnd_api.g_valid_level_full
4238: ,p_instance_party_rec => l_cont_party_rec
4239: ,p_txn_rec => p_txn_rec
4240: ,x_return_status => x_return_status
4233: expire_inst_party_relationship
4234: ( p_api_version => p_api_version
4235: ,p_commit => fnd_api.g_false
4236: ,p_init_msg_list => fnd_api.g_false
4237: ,p_validation_level => fnd_api.g_valid_level_full
4238: ,p_instance_party_rec => l_cont_party_rec
4239: ,p_txn_rec => p_txn_rec
4240: ,x_return_status => x_return_status
4241: ,x_msg_count => x_msg_count
4240: ,x_return_status => x_return_status
4241: ,x_msg_count => x_msg_count
4242: ,x_msg_data => x_msg_data
4243: );
4244: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4245: FOR i in 1..x_msg_Count LOOP
4246: FND_MSG_PUB.Get(p_msg_index => i,
4247: p_encoded => 'F',
4248: p_data => x_msg_data,
4247: p_encoded => 'F',
4248: p_data => x_msg_data,
4249: p_msg_index_out => x_msg_index_out );
4250: End LOOP;
4251: RAISE FND_API.G_EXC_ERROR;
4252: END IF;
4253: END LOOP;
4254: END IF;
4255: -- End of API body
4253: END LOOP;
4254: END IF;
4255: -- End of API body
4256: -- Standard check of p_commit.
4257: IF FND_API.To_Boolean( p_commit ) THEN
4258: COMMIT WORK;
4259: END IF;
4260: -- Standard call to get message count and if count is get message info.
4261: FND_MSG_PUB.Count_And_Get
4261: FND_MSG_PUB.Count_And_Get
4262: (p_count => x_msg_count ,
4263: p_data => x_msg_data );
4264: EXCEPTION
4265: WHEN FND_API.G_EXC_ERROR THEN
4266: -- ROLLBACK TO update_inst_party_rel_pvt;
4267: x_return_status := FND_API.G_RET_STS_ERROR ;
4268: FND_MSG_PUB.Count_And_Get
4269: ( p_count => x_msg_count,
4263: p_data => x_msg_data );
4264: EXCEPTION
4265: WHEN FND_API.G_EXC_ERROR THEN
4266: -- ROLLBACK TO update_inst_party_rel_pvt;
4267: x_return_status := FND_API.G_RET_STS_ERROR ;
4268: FND_MSG_PUB.Count_And_Get
4269: ( p_count => x_msg_count,
4270: p_data => x_msg_data );
4271: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4267: x_return_status := FND_API.G_RET_STS_ERROR ;
4268: FND_MSG_PUB.Count_And_Get
4269: ( p_count => x_msg_count,
4270: p_data => x_msg_data );
4271: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4272: -- ROLLBACK TO update_inst_party_rel_pvt;
4273: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4274: FND_MSG_PUB.Count_And_Get
4275: ( p_count => x_msg_count,
4269: ( p_count => x_msg_count,
4270: p_data => x_msg_data );
4271: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4272: -- ROLLBACK TO update_inst_party_rel_pvt;
4273: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4274: FND_MSG_PUB.Count_And_Get
4275: ( p_count => x_msg_count,
4276: p_data => x_msg_data );
4277: WHEN OTHERS THEN
4275: ( p_count => x_msg_count,
4276: p_data => x_msg_data );
4277: WHEN OTHERS THEN
4278: -- ROLLBACK TO update_inst_party_rel_pvt;
4279: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4280: IF FND_MSG_PUB.Check_Msg_Level
4281: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4282: THEN
4283: FND_MSG_PUB.Add_Exc_Msg
4366: -- Standard Start of API savepoint
4367: -- SAVEPOINT expire_inst_party_rel_pvt;
4368:
4369: -- Standard call to check for call compatibility.
4370: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
4371: p_api_version ,
4372: l_api_name ,
4373: g_pkg_name )
4374: THEN
4371: p_api_version ,
4372: l_api_name ,
4373: g_pkg_name )
4374: THEN
4375: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4376: END IF;
4377:
4378: -- Initialize message list if p_init_msg_list is set to TRUE.
4379: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4375: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4376: END IF;
4377:
4378: -- Initialize message list if p_init_msg_list is set to TRUE.
4379: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4380: FND_MSG_PUB.initialize;
4381: END IF;
4382:
4383: -- Initialize API return status to success
4381: END IF;
4382:
4383: -- Initialize API return status to success
4384: -- Verify if the Party rel combination exists
4385: x_return_status := FND_API.G_RET_STS_SUCCESS;
4386:
4387: -- Check the profile option CSI_DEBUG_LEVEL for debug message reporting
4388: l_csi_debug_level:=fnd_profile.value('CSI_DEBUG_LEVEL');
4389:
4426: -- Message added in the validation routine since additional validation added for bug # 2477417.
4427: -- FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INST_PARTY_ID');
4428: -- FND_MESSAGE.SET_TOKEN('INSTANCE_PARTY_ID',p_instance_party_rec.instance_party_id);
4429: -- FND_MSG_PUB.Add;
4430: RAISE FND_API.G_EXC_ERROR;
4431: END IF;
4432: -- check if the object_version_number passed matches with the one
4433: -- in the database else raise error
4434: OPEN get_curr_party_rec(p_instance_party_rec.instance_party_id);
4435: FETCH get_curr_party_rec INTO l_curr_party_rec;
4436: IF (l_curr_party_rec.object_version_number <> p_instance_party_rec.OBJECT_VERSION_NUMBER) THEN
4437: FND_MESSAGE.Set_Name('CSI', 'CSI_API_OBJ_VER_MISMATCH');
4438: FND_MSG_PUB.ADD;
4439: RAISE FND_API.G_EXC_ERROR;
4440: END IF;
4441: --
4442: IF get_curr_party_rec%NOTFOUND THEN
4443: FND_MESSAGE.Set_Name('CSI', 'CSI_API_RECORD_LOCKED');
4441: --
4442: IF get_curr_party_rec%NOTFOUND THEN
4443: FND_MESSAGE.Set_Name('CSI', 'CSI_API_RECORD_LOCKED');
4444: FND_MSG_PUB.ADD;
4445: RAISE FND_API.G_EXC_ERROR;
4446: END IF;
4447: CLOSE get_curr_party_rec;
4448: -- Initialize all the parameters and call update_inst_party_relationship to expire the record
4449: l_party_rec.instance_party_id := l_curr_party_rec.instance_party_id;
4446: END IF;
4447: CLOSE get_curr_party_rec;
4448: -- Initialize all the parameters and call update_inst_party_relationship to expire the record
4449: l_party_rec.instance_party_id := l_curr_party_rec.instance_party_id;
4450: l_party_rec.instance_id := FND_API.G_MISS_NUM;
4451: l_party_rec.PARTY_SOURCE_TABLE := FND_API.G_MISS_CHAR;
4452: l_party_rec.PARTY_ID := FND_API.G_MISS_NUM;
4453: l_party_rec.RELATIONSHIP_TYPE_CODE := FND_API.G_MISS_CHAR;
4454: l_party_rec.CONTACT_FLAG := FND_API.G_MISS_CHAR;
4447: CLOSE get_curr_party_rec;
4448: -- Initialize all the parameters and call update_inst_party_relationship to expire the record
4449: l_party_rec.instance_party_id := l_curr_party_rec.instance_party_id;
4450: l_party_rec.instance_id := FND_API.G_MISS_NUM;
4451: l_party_rec.PARTY_SOURCE_TABLE := FND_API.G_MISS_CHAR;
4452: l_party_rec.PARTY_ID := FND_API.G_MISS_NUM;
4453: l_party_rec.RELATIONSHIP_TYPE_CODE := FND_API.G_MISS_CHAR;
4454: l_party_rec.CONTACT_FLAG := FND_API.G_MISS_CHAR;
4455: l_party_rec.CONTACT_IP_ID := FND_API.G_MISS_NUM;
4448: -- Initialize all the parameters and call update_inst_party_relationship to expire the record
4449: l_party_rec.instance_party_id := l_curr_party_rec.instance_party_id;
4450: l_party_rec.instance_id := FND_API.G_MISS_NUM;
4451: l_party_rec.PARTY_SOURCE_TABLE := FND_API.G_MISS_CHAR;
4452: l_party_rec.PARTY_ID := FND_API.G_MISS_NUM;
4453: l_party_rec.RELATIONSHIP_TYPE_CODE := FND_API.G_MISS_CHAR;
4454: l_party_rec.CONTACT_FLAG := FND_API.G_MISS_CHAR;
4455: l_party_rec.CONTACT_IP_ID := FND_API.G_MISS_NUM;
4456: l_party_rec.ACTIVE_START_DATE := FND_API.G_MISS_DATE;
4449: l_party_rec.instance_party_id := l_curr_party_rec.instance_party_id;
4450: l_party_rec.instance_id := FND_API.G_MISS_NUM;
4451: l_party_rec.PARTY_SOURCE_TABLE := FND_API.G_MISS_CHAR;
4452: l_party_rec.PARTY_ID := FND_API.G_MISS_NUM;
4453: l_party_rec.RELATIONSHIP_TYPE_CODE := FND_API.G_MISS_CHAR;
4454: l_party_rec.CONTACT_FLAG := FND_API.G_MISS_CHAR;
4455: l_party_rec.CONTACT_IP_ID := FND_API.G_MISS_NUM;
4456: l_party_rec.ACTIVE_START_DATE := FND_API.G_MISS_DATE;
4457: l_party_rec.ACTIVE_END_DATE := sysdate;
4450: l_party_rec.instance_id := FND_API.G_MISS_NUM;
4451: l_party_rec.PARTY_SOURCE_TABLE := FND_API.G_MISS_CHAR;
4452: l_party_rec.PARTY_ID := FND_API.G_MISS_NUM;
4453: l_party_rec.RELATIONSHIP_TYPE_CODE := FND_API.G_MISS_CHAR;
4454: l_party_rec.CONTACT_FLAG := FND_API.G_MISS_CHAR;
4455: l_party_rec.CONTACT_IP_ID := FND_API.G_MISS_NUM;
4456: l_party_rec.ACTIVE_START_DATE := FND_API.G_MISS_DATE;
4457: l_party_rec.ACTIVE_END_DATE := sysdate;
4458: l_party_rec.CONTEXT := FND_API.G_MISS_CHAR;
4451: l_party_rec.PARTY_SOURCE_TABLE := FND_API.G_MISS_CHAR;
4452: l_party_rec.PARTY_ID := FND_API.G_MISS_NUM;
4453: l_party_rec.RELATIONSHIP_TYPE_CODE := FND_API.G_MISS_CHAR;
4454: l_party_rec.CONTACT_FLAG := FND_API.G_MISS_CHAR;
4455: l_party_rec.CONTACT_IP_ID := FND_API.G_MISS_NUM;
4456: l_party_rec.ACTIVE_START_DATE := FND_API.G_MISS_DATE;
4457: l_party_rec.ACTIVE_END_DATE := sysdate;
4458: l_party_rec.CONTEXT := FND_API.G_MISS_CHAR;
4459: l_party_rec.ATTRIBUTE1 := FND_API.G_MISS_CHAR;
4452: l_party_rec.PARTY_ID := FND_API.G_MISS_NUM;
4453: l_party_rec.RELATIONSHIP_TYPE_CODE := FND_API.G_MISS_CHAR;
4454: l_party_rec.CONTACT_FLAG := FND_API.G_MISS_CHAR;
4455: l_party_rec.CONTACT_IP_ID := FND_API.G_MISS_NUM;
4456: l_party_rec.ACTIVE_START_DATE := FND_API.G_MISS_DATE;
4457: l_party_rec.ACTIVE_END_DATE := sysdate;
4458: l_party_rec.CONTEXT := FND_API.G_MISS_CHAR;
4459: l_party_rec.ATTRIBUTE1 := FND_API.G_MISS_CHAR;
4460: l_party_rec.ATTRIBUTE2 := FND_API.G_MISS_CHAR;
4454: l_party_rec.CONTACT_FLAG := FND_API.G_MISS_CHAR;
4455: l_party_rec.CONTACT_IP_ID := FND_API.G_MISS_NUM;
4456: l_party_rec.ACTIVE_START_DATE := FND_API.G_MISS_DATE;
4457: l_party_rec.ACTIVE_END_DATE := sysdate;
4458: l_party_rec.CONTEXT := FND_API.G_MISS_CHAR;
4459: l_party_rec.ATTRIBUTE1 := FND_API.G_MISS_CHAR;
4460: l_party_rec.ATTRIBUTE2 := FND_API.G_MISS_CHAR;
4461: l_party_rec.ATTRIBUTE3 := FND_API.G_MISS_CHAR;
4462: l_party_rec.ATTRIBUTE4 := FND_API.G_MISS_CHAR;
4455: l_party_rec.CONTACT_IP_ID := FND_API.G_MISS_NUM;
4456: l_party_rec.ACTIVE_START_DATE := FND_API.G_MISS_DATE;
4457: l_party_rec.ACTIVE_END_DATE := sysdate;
4458: l_party_rec.CONTEXT := FND_API.G_MISS_CHAR;
4459: l_party_rec.ATTRIBUTE1 := FND_API.G_MISS_CHAR;
4460: l_party_rec.ATTRIBUTE2 := FND_API.G_MISS_CHAR;
4461: l_party_rec.ATTRIBUTE3 := FND_API.G_MISS_CHAR;
4462: l_party_rec.ATTRIBUTE4 := FND_API.G_MISS_CHAR;
4463: l_party_rec.ATTRIBUTE5 := FND_API.G_MISS_CHAR;
4456: l_party_rec.ACTIVE_START_DATE := FND_API.G_MISS_DATE;
4457: l_party_rec.ACTIVE_END_DATE := sysdate;
4458: l_party_rec.CONTEXT := FND_API.G_MISS_CHAR;
4459: l_party_rec.ATTRIBUTE1 := FND_API.G_MISS_CHAR;
4460: l_party_rec.ATTRIBUTE2 := FND_API.G_MISS_CHAR;
4461: l_party_rec.ATTRIBUTE3 := FND_API.G_MISS_CHAR;
4462: l_party_rec.ATTRIBUTE4 := FND_API.G_MISS_CHAR;
4463: l_party_rec.ATTRIBUTE5 := FND_API.G_MISS_CHAR;
4464: l_party_rec.ATTRIBUTE6 := FND_API.G_MISS_CHAR;
4457: l_party_rec.ACTIVE_END_DATE := sysdate;
4458: l_party_rec.CONTEXT := FND_API.G_MISS_CHAR;
4459: l_party_rec.ATTRIBUTE1 := FND_API.G_MISS_CHAR;
4460: l_party_rec.ATTRIBUTE2 := FND_API.G_MISS_CHAR;
4461: l_party_rec.ATTRIBUTE3 := FND_API.G_MISS_CHAR;
4462: l_party_rec.ATTRIBUTE4 := FND_API.G_MISS_CHAR;
4463: l_party_rec.ATTRIBUTE5 := FND_API.G_MISS_CHAR;
4464: l_party_rec.ATTRIBUTE6 := FND_API.G_MISS_CHAR;
4465: l_party_rec.ATTRIBUTE7 := FND_API.G_MISS_CHAR;
4458: l_party_rec.CONTEXT := FND_API.G_MISS_CHAR;
4459: l_party_rec.ATTRIBUTE1 := FND_API.G_MISS_CHAR;
4460: l_party_rec.ATTRIBUTE2 := FND_API.G_MISS_CHAR;
4461: l_party_rec.ATTRIBUTE3 := FND_API.G_MISS_CHAR;
4462: l_party_rec.ATTRIBUTE4 := FND_API.G_MISS_CHAR;
4463: l_party_rec.ATTRIBUTE5 := FND_API.G_MISS_CHAR;
4464: l_party_rec.ATTRIBUTE6 := FND_API.G_MISS_CHAR;
4465: l_party_rec.ATTRIBUTE7 := FND_API.G_MISS_CHAR;
4466: l_party_rec.ATTRIBUTE8 := FND_API.G_MISS_CHAR;
4459: l_party_rec.ATTRIBUTE1 := FND_API.G_MISS_CHAR;
4460: l_party_rec.ATTRIBUTE2 := FND_API.G_MISS_CHAR;
4461: l_party_rec.ATTRIBUTE3 := FND_API.G_MISS_CHAR;
4462: l_party_rec.ATTRIBUTE4 := FND_API.G_MISS_CHAR;
4463: l_party_rec.ATTRIBUTE5 := FND_API.G_MISS_CHAR;
4464: l_party_rec.ATTRIBUTE6 := FND_API.G_MISS_CHAR;
4465: l_party_rec.ATTRIBUTE7 := FND_API.G_MISS_CHAR;
4466: l_party_rec.ATTRIBUTE8 := FND_API.G_MISS_CHAR;
4467: l_party_rec.ATTRIBUTE9 := FND_API.G_MISS_CHAR;
4460: l_party_rec.ATTRIBUTE2 := FND_API.G_MISS_CHAR;
4461: l_party_rec.ATTRIBUTE3 := FND_API.G_MISS_CHAR;
4462: l_party_rec.ATTRIBUTE4 := FND_API.G_MISS_CHAR;
4463: l_party_rec.ATTRIBUTE5 := FND_API.G_MISS_CHAR;
4464: l_party_rec.ATTRIBUTE6 := FND_API.G_MISS_CHAR;
4465: l_party_rec.ATTRIBUTE7 := FND_API.G_MISS_CHAR;
4466: l_party_rec.ATTRIBUTE8 := FND_API.G_MISS_CHAR;
4467: l_party_rec.ATTRIBUTE9 := FND_API.G_MISS_CHAR;
4468: l_party_rec.ATTRIBUTE10 := FND_API.G_MISS_CHAR;
4461: l_party_rec.ATTRIBUTE3 := FND_API.G_MISS_CHAR;
4462: l_party_rec.ATTRIBUTE4 := FND_API.G_MISS_CHAR;
4463: l_party_rec.ATTRIBUTE5 := FND_API.G_MISS_CHAR;
4464: l_party_rec.ATTRIBUTE6 := FND_API.G_MISS_CHAR;
4465: l_party_rec.ATTRIBUTE7 := FND_API.G_MISS_CHAR;
4466: l_party_rec.ATTRIBUTE8 := FND_API.G_MISS_CHAR;
4467: l_party_rec.ATTRIBUTE9 := FND_API.G_MISS_CHAR;
4468: l_party_rec.ATTRIBUTE10 := FND_API.G_MISS_CHAR;
4469: l_party_rec.ATTRIBUTE11 := FND_API.G_MISS_CHAR;
4462: l_party_rec.ATTRIBUTE4 := FND_API.G_MISS_CHAR;
4463: l_party_rec.ATTRIBUTE5 := FND_API.G_MISS_CHAR;
4464: l_party_rec.ATTRIBUTE6 := FND_API.G_MISS_CHAR;
4465: l_party_rec.ATTRIBUTE7 := FND_API.G_MISS_CHAR;
4466: l_party_rec.ATTRIBUTE8 := FND_API.G_MISS_CHAR;
4467: l_party_rec.ATTRIBUTE9 := FND_API.G_MISS_CHAR;
4468: l_party_rec.ATTRIBUTE10 := FND_API.G_MISS_CHAR;
4469: l_party_rec.ATTRIBUTE11 := FND_API.G_MISS_CHAR;
4470: l_party_rec.ATTRIBUTE12 := FND_API.G_MISS_CHAR;
4463: l_party_rec.ATTRIBUTE5 := FND_API.G_MISS_CHAR;
4464: l_party_rec.ATTRIBUTE6 := FND_API.G_MISS_CHAR;
4465: l_party_rec.ATTRIBUTE7 := FND_API.G_MISS_CHAR;
4466: l_party_rec.ATTRIBUTE8 := FND_API.G_MISS_CHAR;
4467: l_party_rec.ATTRIBUTE9 := FND_API.G_MISS_CHAR;
4468: l_party_rec.ATTRIBUTE10 := FND_API.G_MISS_CHAR;
4469: l_party_rec.ATTRIBUTE11 := FND_API.G_MISS_CHAR;
4470: l_party_rec.ATTRIBUTE12 := FND_API.G_MISS_CHAR;
4471: l_party_rec.ATTRIBUTE13 := FND_API.G_MISS_CHAR;
4464: l_party_rec.ATTRIBUTE6 := FND_API.G_MISS_CHAR;
4465: l_party_rec.ATTRIBUTE7 := FND_API.G_MISS_CHAR;
4466: l_party_rec.ATTRIBUTE8 := FND_API.G_MISS_CHAR;
4467: l_party_rec.ATTRIBUTE9 := FND_API.G_MISS_CHAR;
4468: l_party_rec.ATTRIBUTE10 := FND_API.G_MISS_CHAR;
4469: l_party_rec.ATTRIBUTE11 := FND_API.G_MISS_CHAR;
4470: l_party_rec.ATTRIBUTE12 := FND_API.G_MISS_CHAR;
4471: l_party_rec.ATTRIBUTE13 := FND_API.G_MISS_CHAR;
4472: l_party_rec.ATTRIBUTE14 := FND_API.G_MISS_CHAR;
4465: l_party_rec.ATTRIBUTE7 := FND_API.G_MISS_CHAR;
4466: l_party_rec.ATTRIBUTE8 := FND_API.G_MISS_CHAR;
4467: l_party_rec.ATTRIBUTE9 := FND_API.G_MISS_CHAR;
4468: l_party_rec.ATTRIBUTE10 := FND_API.G_MISS_CHAR;
4469: l_party_rec.ATTRIBUTE11 := FND_API.G_MISS_CHAR;
4470: l_party_rec.ATTRIBUTE12 := FND_API.G_MISS_CHAR;
4471: l_party_rec.ATTRIBUTE13 := FND_API.G_MISS_CHAR;
4472: l_party_rec.ATTRIBUTE14 := FND_API.G_MISS_CHAR;
4473: l_party_rec.ATTRIBUTE15 := FND_API.G_MISS_CHAR;
4466: l_party_rec.ATTRIBUTE8 := FND_API.G_MISS_CHAR;
4467: l_party_rec.ATTRIBUTE9 := FND_API.G_MISS_CHAR;
4468: l_party_rec.ATTRIBUTE10 := FND_API.G_MISS_CHAR;
4469: l_party_rec.ATTRIBUTE11 := FND_API.G_MISS_CHAR;
4470: l_party_rec.ATTRIBUTE12 := FND_API.G_MISS_CHAR;
4471: l_party_rec.ATTRIBUTE13 := FND_API.G_MISS_CHAR;
4472: l_party_rec.ATTRIBUTE14 := FND_API.G_MISS_CHAR;
4473: l_party_rec.ATTRIBUTE15 := FND_API.G_MISS_CHAR;
4474: l_party_rec.OBJECT_VERSION_NUMBER := p_instance_party_rec.object_version_number;
4467: l_party_rec.ATTRIBUTE9 := FND_API.G_MISS_CHAR;
4468: l_party_rec.ATTRIBUTE10 := FND_API.G_MISS_CHAR;
4469: l_party_rec.ATTRIBUTE11 := FND_API.G_MISS_CHAR;
4470: l_party_rec.ATTRIBUTE12 := FND_API.G_MISS_CHAR;
4471: l_party_rec.ATTRIBUTE13 := FND_API.G_MISS_CHAR;
4472: l_party_rec.ATTRIBUTE14 := FND_API.G_MISS_CHAR;
4473: l_party_rec.ATTRIBUTE15 := FND_API.G_MISS_CHAR;
4474: l_party_rec.OBJECT_VERSION_NUMBER := p_instance_party_rec.object_version_number;
4475: --
4468: l_party_rec.ATTRIBUTE10 := FND_API.G_MISS_CHAR;
4469: l_party_rec.ATTRIBUTE11 := FND_API.G_MISS_CHAR;
4470: l_party_rec.ATTRIBUTE12 := FND_API.G_MISS_CHAR;
4471: l_party_rec.ATTRIBUTE13 := FND_API.G_MISS_CHAR;
4472: l_party_rec.ATTRIBUTE14 := FND_API.G_MISS_CHAR;
4473: l_party_rec.ATTRIBUTE15 := FND_API.G_MISS_CHAR;
4474: l_party_rec.OBJECT_VERSION_NUMBER := p_instance_party_rec.object_version_number;
4475: --
4476: g_expire_party_flag := 'Y';
4469: l_party_rec.ATTRIBUTE11 := FND_API.G_MISS_CHAR;
4470: l_party_rec.ATTRIBUTE12 := FND_API.G_MISS_CHAR;
4471: l_party_rec.ATTRIBUTE13 := FND_API.G_MISS_CHAR;
4472: l_party_rec.ATTRIBUTE14 := FND_API.G_MISS_CHAR;
4473: l_party_rec.ATTRIBUTE15 := FND_API.G_MISS_CHAR;
4474: l_party_rec.OBJECT_VERSION_NUMBER := p_instance_party_rec.object_version_number;
4475: --
4476: g_expire_party_flag := 'Y';
4477: update_inst_party_relationship
4485: ,x_msg_count => x_msg_count
4486: ,x_msg_data => x_msg_data ) ;
4487:
4488: g_expire_party_flag := 'N';
4489: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4490: l_msg_index := 1;
4491: l_msg_count := x_msg_count;
4492: WHILE l_msg_count > 0 LOOP
4493: x_msg_data := FND_MSG_PUB.GET(
4491: l_msg_count := x_msg_count;
4492: WHILE l_msg_count > 0 LOOP
4493: x_msg_data := FND_MSG_PUB.GET(
4494: l_msg_index,
4495: FND_API.G_FALSE );
4496: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
4497: l_msg_index := l_msg_index + 1;
4498: l_msg_count := l_msg_count - 1;
4499: END LOOP;
4496: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
4497: l_msg_index := l_msg_index + 1;
4498: l_msg_count := l_msg_count - 1;
4499: END LOOP;
4500: RAISE FND_API.G_EXC_ERROR;
4501: END IF;
4502: --
4503: -- End of API body
4504:
4502: --
4503: -- End of API body
4504:
4505: -- Standard check of p_commit.
4506: IF FND_API.To_Boolean( p_commit ) THEN
4507: COMMIT WORK;
4508: END IF;
4509: -- Standard call to get message count and if count is get message info.
4510: FND_MSG_PUB.Count_And_Get
4510: FND_MSG_PUB.Count_And_Get
4511: (p_count => x_msg_count ,
4512: p_data => x_msg_data );
4513: EXCEPTION
4514: WHEN FND_API.G_EXC_ERROR THEN
4515: -- ROLLBACK TO expire_inst_party_rel_pvt;
4516: x_return_status := FND_API.G_RET_STS_ERROR ;
4517: FND_MSG_PUB.Count_And_Get
4518: ( p_count => x_msg_count,
4512: p_data => x_msg_data );
4513: EXCEPTION
4514: WHEN FND_API.G_EXC_ERROR THEN
4515: -- ROLLBACK TO expire_inst_party_rel_pvt;
4516: x_return_status := FND_API.G_RET_STS_ERROR ;
4517: FND_MSG_PUB.Count_And_Get
4518: ( p_count => x_msg_count,
4519: p_data => x_msg_data );
4520: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4516: x_return_status := FND_API.G_RET_STS_ERROR ;
4517: FND_MSG_PUB.Count_And_Get
4518: ( p_count => x_msg_count,
4519: p_data => x_msg_data );
4520: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4521: -- ROLLBACK TO expire_inst_party_rel_pvt;
4522: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4523: FND_MSG_PUB.Count_And_Get
4524: ( p_count => x_msg_count,
4518: ( p_count => x_msg_count,
4519: p_data => x_msg_data );
4520: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4521: -- ROLLBACK TO expire_inst_party_rel_pvt;
4522: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4523: FND_MSG_PUB.Count_And_Get
4524: ( p_count => x_msg_count,
4525: p_data => x_msg_data );
4526: WHEN OTHERS THEN
4524: ( p_count => x_msg_count,
4525: p_data => x_msg_data );
4526: WHEN OTHERS THEN
4527: -- ROLLBACK TO expire_inst_party_rel_pvt;
4528: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4529: IF FND_MSG_PUB.Check_Msg_Level
4530: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4531: THEN
4532: FND_MSG_PUB.Add_Exc_Msg
4592: -- Standard Start of API savepoint
4593: SAVEPOINT create_inst_party_acct_pvt;
4594:
4595: -- Standard call to check for call compatibility.
4596: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
4597: p_api_version ,
4598: l_api_name ,
4599: g_pkg_name )
4600: THEN
4597: p_api_version ,
4598: l_api_name ,
4599: g_pkg_name )
4600: THEN
4601: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4602: END IF;
4603:
4604: -- Initialize message list if p_init_msg_list is set to TRUE.
4605: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4601: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4602: END IF;
4603:
4604: -- Initialize message list if p_init_msg_list is set to TRUE.
4605: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4606: FND_MSG_PUB.initialize;
4607: END IF;
4608:
4609: -- Initialize API return status to success
4606: FND_MSG_PUB.initialize;
4607: END IF;
4608:
4609: -- Initialize API return status to success
4610: x_return_status := FND_API.G_RET_STS_SUCCESS;
4611:
4612: -- Check the profile option CSI_DEBUG_LEVEL for debug message reporting
4613: l_csi_debug_level:=fnd_profile.value('CSI_DEBUG_LEVEL');
4614:
4645: l_api_name );
4646:
4647: -- Initialize the counts
4648: IF p_account_count_rec.inst_party_count is NULL OR
4649: p_account_count_rec.inst_party_count = FND_API.G_MISS_NUM THEN
4650: p_account_count_rec.inst_party_count := 0;
4651: END IF;
4652: --
4653: IF p_account_count_rec.rel_type_count is NULL OR
4650: p_account_count_rec.inst_party_count := 0;
4651: END IF;
4652: --
4653: IF p_account_count_rec.rel_type_count is NULL OR
4654: p_account_count_rec.rel_type_count = FND_API.G_MISS_NUM THEN
4655: p_account_count_rec.rel_type_count := 0;
4656: END IF;
4657: --
4658: IF p_account_count_rec.site_use_count is NULL OR
4655: p_account_count_rec.rel_type_count := 0;
4656: END IF;
4657: --
4658: IF p_account_count_rec.site_use_count is NULL OR
4659: p_account_count_rec.site_use_count = FND_API.G_MISS_NUM THEN
4660: p_account_count_rec.site_use_count := 0;
4661: END IF;
4662: --
4663: -- Added by sk for fixing bug 2110790
4661: END IF;
4662: --
4663: -- Added by sk for fixing bug 2110790
4664: l_update_record := FALSE;
4665: IF p_called_from_grp <> FND_API.G_TRUE THEN
4666: IF p_party_account_rec.relationship_type_code = 'OWNER'
4667: AND ( p_party_account_rec.ip_account_id IS NULL OR
4668: p_party_account_rec.ip_account_id = fnd_api.g_miss_num )
4669: THEN
4664: l_update_record := FALSE;
4665: IF p_called_from_grp <> FND_API.G_TRUE THEN
4666: IF p_party_account_rec.relationship_type_code = 'OWNER'
4667: AND ( p_party_account_rec.ip_account_id IS NULL OR
4668: p_party_account_rec.ip_account_id = fnd_api.g_miss_num )
4669: THEN
4670: BEGIN
4671: SELECT ip_account_id,
4672: active_start_date,
4679: AND relationship_type_code = 'OWNER'
4680: AND (active_end_date IS NULL OR active_end_date > SYSDATE)
4681: AND ROWNUM = 1;
4682:
4683: IF p_party_account_rec.active_end_date = fnd_api.g_miss_date
4684: THEN
4685: p_party_account_rec.active_end_date := NULL ;
4686: END IF;
4687: --
4699: WHERE instance_party_id = p_party_account_rec.instance_party_id
4700: AND relationship_type_code = 'OWNER'
4701: AND ROWNUM = 1;
4702:
4703: IF p_party_account_rec.active_end_date = fnd_api.g_miss_date
4704: THEN
4705: p_party_account_rec.active_end_date := NULL ;
4706: END IF;
4707: l_update_record := TRUE;
4726: ,x_return_status => x_return_status
4727: ,x_msg_count => x_msg_count
4728: ,x_msg_data => x_msg_data);
4729:
4730: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4731: l_msg_index := 1;
4732: l_msg_count := x_msg_count;
4733: WHILE l_msg_count > 0 LOOP
4734: x_msg_data := FND_MSG_PUB.GET(
4732: l_msg_count := x_msg_count;
4733: WHILE l_msg_count > 0 LOOP
4734: x_msg_data := FND_MSG_PUB.GET(
4735: l_msg_index,
4736: FND_API.G_FALSE );
4737: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
4738: l_msg_index := l_msg_index + 1;
4739: l_msg_count := l_msg_count - 1;
4740: END LOOP;
4737: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
4738: l_msg_index := l_msg_index + 1;
4739: l_msg_count := l_msg_count - 1;
4740: END LOOP;
4741: RAISE FND_API.G_EXC_ERROR;
4742: END IF;
4743: END IF;
4744: END IF;
4745: END IF; -- Called from group check
4746: -- End addition by sk for fixing bug 2110790
4747: -- Check if the account is already expired
4748: -- If so unexpire the account
4749: l_record_found := FALSE;
4750: IF p_called_from_grp <> FND_API.G_TRUE THEN
4751: IF p_party_account_rec.ip_account_id IS NULL OR
4752: p_party_account_rec.ip_account_id = fnd_api.g_miss_num
4753: THEN
4754: BEGIN
4748: -- If so unexpire the account
4749: l_record_found := FALSE;
4750: IF p_called_from_grp <> FND_API.G_TRUE THEN
4751: IF p_party_account_rec.ip_account_id IS NULL OR
4752: p_party_account_rec.ip_account_id = fnd_api.g_miss_num
4753: THEN
4754: BEGIN
4755: SELECT ip_account_id ,
4756: object_version_number
4771: END IF; -- called from group check
4772: /* -- Commented by sk for fixing the bug 2232880
4773: IF CSI_Instance_parties_vld_pvt.Is_Account_Expired
4774: (p_party_account_rec) THEN
4775: IF (p_party_account_rec.ACTIVE_END_DATE = FND_API.G_MISS_DATE ) THEN
4776: p_party_account_rec.active_end_date := NULL;
4777: END IF;
4778: */ -- Commented by sk for fixing the bug 2232880
4779: -- Unexpire the account
4780: IF NOT(l_update_record)
4781: THEN -- Added for bug 2110790
4782: IF l_record_found THEN
4783: -- Added by sk for fixing the bug 2232880
4784: IF p_party_account_rec.active_end_date = fnd_api.g_miss_date
4785: THEN
4786: p_party_account_rec.active_end_date := NULL;
4787: END IF;
4788: -- End additon by sk for fixing the bug 2232880
4797: ,x_return_status => x_return_status
4798: ,x_msg_count => x_msg_count
4799: ,x_msg_data => x_msg_data);
4800:
4801: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4802: l_msg_index := 1;
4803: l_msg_count := x_msg_count;
4804: WHILE l_msg_count > 0 LOOP
4805: x_msg_data := FND_MSG_PUB.GET(
4803: l_msg_count := x_msg_count;
4804: WHILE l_msg_count > 0 LOOP
4805: x_msg_data := FND_MSG_PUB.GET(
4806: l_msg_index,
4807: FND_API.G_FALSE );
4808: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
4809: l_msg_index := l_msg_index + 1;
4810: l_msg_count := l_msg_count - 1;
4811: END LOOP;
4808: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
4809: l_msg_index := l_msg_index + 1;
4810: l_msg_count := l_msg_count - 1;
4811: END LOOP;
4812: RAISE FND_API.G_EXC_ERROR;
4813: END IF;
4814: -- END IF; -- commented by sk for fixing the bug 2232880
4815: ELSE -- Added by sk for fixing the bug 2232880
4816: -- Verify if the party account combination exists
4813: END IF;
4814: -- END IF; -- commented by sk for fixing the bug 2232880
4815: ELSE -- Added by sk for fixing the bug 2232880
4816: -- Verify if the party account combination exists
4817: IF p_called_from_grp <> FND_API.G_TRUE THEN
4818: IF CSI_Instance_parties_vld_pvt.Is_Pty_Acct_Comb_Exists
4819: (p_party_account_rec.instance_party_id ,
4820: p_party_account_rec.party_account_id ,
4821: p_party_account_rec.relationship_type_code ) THEN
4818: IF CSI_Instance_parties_vld_pvt.Is_Pty_Acct_Comb_Exists
4819: (p_party_account_rec.instance_party_id ,
4820: p_party_account_rec.party_account_id ,
4821: p_party_account_rec.relationship_type_code ) THEN
4822: RAISE FND_API.G_EXC_ERROR;
4823: END IF;
4824: END IF;
4825:
4826: IF p_party_account_rec.IP_ACCOUNT_ID is NULL OR
4823: END IF;
4824: END IF;
4825:
4826: IF p_party_account_rec.IP_ACCOUNT_ID is NULL OR
4827: p_party_account_rec.IP_ACCOUNT_ID = FND_API.G_MISS_NUM THEN
4828: -- If ip_account_id passed is null then generate from sequence
4829: -- and check if the value exists . If exists then generate again
4830: -- from the sequence till we get a value that does not exist
4831: while l_process_flag loop
4838: ELSE
4839: -- Validate the instance_party_id if exist then raise CSI_API_INVALID_PRIMARY_KEY error
4840: IF CSI_Instance_parties_vld_pvt.Is_IP_account_Exists(p_party_account_rec.IP_ACCOUNT_ID ,
4841: TRUE ) THEN
4842: RAISE FND_API.G_EXC_ERROR;
4843: END IF;
4844: END IF;
4845: -- Verify if the instance_party_id is valid
4846: -- Check the cache before hitting the Database.
4843: END IF;
4844: END IF;
4845: -- Verify if the instance_party_id is valid
4846: -- Check the cache before hitting the Database.
4847: IF p_called_from_grp <> FND_API.G_TRUE THEN
4848: l_exists_flag := 'N';
4849: l_valid_flag := 'Y';
4850: IF p_inst_party_tbl.count > 0 THEN
4851: For tab_row in p_inst_party_tbl.FIRST .. p_inst_party_tbl.LAST
4860: IF l_valid_flag <> 'Y' THEN
4861: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INST_PARTY_ID');
4862: FND_MESSAGE.SET_TOKEN('INSTANCE_PARTY_ID',p_party_account_rec.INSTANCE_PARTY_ID);
4863: FND_MSG_PUB.Add;
4864: RAISE FND_API.G_EXC_ERROR;
4865: END IF;
4866: END IF;
4867: --
4868: IF l_exists_flag <> 'Y' THEN
4878: -- Message added in the validation routine since additional validation added for bug # 2477417.
4879: -- FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INST_PARTY_ID');
4880: -- FND_MESSAGE.SET_TOKEN('INSTANCE_PARTY_ID',p_party_account_rec.INSTANCE_PARTY_ID);
4881: -- FND_MSG_PUB.Add;
4882: -- RAISE FND_API.G_EXC_ERROR;
4883: ELSE
4884: p_inst_party_tbl(p_account_count_rec.inst_party_count).valid_flag := 'Y';
4885: END IF;
4886: END IF;
4885: END IF;
4886: END IF;
4887: END IF; -- called from group check
4888: -- Verify Party Account ID is Valid
4889: IF p_called_from_grp <> FND_API.G_TRUE THEN
4890: IF NOT(CSI_Instance_parties_vld_pvt.Is_Pty_accountID_Valid
4891: (p_party_account_rec.PARTY_ACCOUNT_ID,
4892: p_party_account_rec.INSTANCE_PARTY_ID,
4893: p_party_account_rec.RELATIONSHIP_TYPE_CODE,
4893: p_party_account_rec.RELATIONSHIP_TYPE_CODE,
4894: p_txn_rec.transaction_type_id, -- Added for bug 3550541
4895: 'C')) -- Added for bug 3550541
4896: THEN
4897: RAISE FND_API.G_EXC_ERROR;
4898: END IF;
4899: END IF;
4900:
4901: -- Verify the relationship_type_code is valid
4915: IF l_valid_flag <> 'Y' THEN
4916: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ACCOUNT_TYPE');
4917: FND_MESSAGE.SET_TOKEN('IP_RELATIONSHIP_TYPE_CODE',p_party_account_rec.RELATIONSHIP_TYPE_CODE);
4918: FND_MSG_PUB.Add;
4919: RAISE FND_API.G_EXC_ERROR;
4920: END IF;
4921: END IF;
4922: IF l_exists_flag <> 'Y' THEN
4923: p_account_count_rec.rel_type_count := p_account_count_rec.rel_type_count + 1;
4925: p_party_account_rec.RELATIONSHIP_TYPE_CODE;
4926: IF NOT(CSI_Instance_parties_vld_pvt.Is_Acct_Rel_type_Valid
4927: (p_party_account_rec.RELATIONSHIP_TYPE_CODE)) THEN
4928: p_acct_rel_type_tbl(p_account_count_rec.rel_type_count).valid_flag := 'N';
4929: RAISE FND_API.G_EXC_ERROR;
4930: ELSE
4931: p_acct_rel_type_tbl(p_account_count_rec.rel_type_count).valid_flag := 'Y';
4932: END IF;
4933: END IF;
4933: END IF;
4934:
4935: -- If active_start_date is null or G_MISS value then assign sysdate
4936: IF ((p_party_account_rec.ACTIVE_START_DATE IS NULL ) OR
4937: ( p_party_account_rec.ACTIVE_START_DATE = FND_API.G_MISS_DATE)) THEN
4938: p_party_account_rec.ACTIVE_START_DATE := SYSDATE;
4939: END IF;
4940:
4941: -- verify if the active_start_date is valid
4938: p_party_account_rec.ACTIVE_START_DATE := SYSDATE;
4939: END IF;
4940:
4941: -- verify if the active_start_date is valid
4942: IF p_called_from_grp <> FND_API.G_TRUE THEN
4943: IF NOT(CSI_Instance_parties_vld_pvt.Is_Acct_StartDate_Valid
4944: (p_party_account_rec.ACTIVE_START_DATE,
4945: p_party_account_rec.ACTIVE_END_DATE ,
4946: p_party_account_rec.INSTANCE_PARTY_ID )) THEN
4943: IF NOT(CSI_Instance_parties_vld_pvt.Is_Acct_StartDate_Valid
4944: (p_party_account_rec.ACTIVE_START_DATE,
4945: p_party_account_rec.ACTIVE_END_DATE ,
4946: p_party_account_rec.INSTANCE_PARTY_ID )) THEN
4947: RAISE FND_API.G_EXC_ERROR;
4948: END IF;
4949:
4950: -- Verify if the active_end_date is valid
4951: IF ((p_party_account_rec.ACTIVE_END_DATE is NOT NULL) AND
4948: END IF;
4949:
4950: -- Verify if the active_end_date is valid
4951: IF ((p_party_account_rec.ACTIVE_END_DATE is NOT NULL) AND
4952: (p_party_account_rec.ACTIVE_END_DATE <> FND_API.G_MISS_DATE )) THEN
4953: IF NOT(CSI_Instance_parties_vld_pvt.Is_Acct_EndDate_Valid
4954: (p_party_account_rec.ACTIVE_START_DATE,
4955: p_party_account_rec.ACTIVE_END_DATE ,
4956: p_party_account_rec.INSTANCE_PARTY_ID ,
4955: p_party_account_rec.ACTIVE_END_DATE ,
4956: p_party_account_rec.INSTANCE_PARTY_ID ,
4957: p_party_account_rec.IP_ACCOUNT_ID ,
4958: p_txn_rec.TRANSACTION_ID)) THEN
4959: RAISE FND_API.G_EXC_ERROR;
4960: END IF;
4961: END IF;
4962: END IF; -- Called from group check
4963:
4962: END IF; -- Called from group check
4963:
4964: -- Verify if bill to address is correct
4965: IF ((p_party_account_rec.bill_to_address IS NOT NULL) AND
4966: (p_party_account_rec.bill_to_address <> FND_API.G_MISS_NUM )) THEN
4967: -- Check the cache before hitting the Database.
4968: l_exists_flag := 'N';
4969: l_valid_flag := 'Y';
4970: IF p_site_use_tbl.count > 0 THEN
4981: IF l_valid_flag <> 'Y' THEN
4982: FND_MESSAGE.SET_NAME('CSI','CSI_INVALID_BILL_TO_ADD_ID');
4983: FND_MESSAGE.SET_TOKEN('BILL_TO_ADD_ID',p_party_account_rec.bill_to_address);
4984: FND_MSG_PUB.Add;
4985: RAISE FND_API.G_EXC_ERROR;
4986: END IF;
4987: END IF;
4988: --
4989: IF l_exists_flag <> 'Y' THEN
4993: p_site_use_tbl(p_account_count_rec.site_use_count).site_use_code := 'BILL_TO';
4994: IF NOT(CSI_Instance_parties_vld_pvt.Is_bill_to_add_valid
4995: ( p_party_account_rec.bill_to_address)) THEN
4996: p_site_use_tbl(p_account_count_rec.site_use_count).valid_flag := 'N';
4997: RAISE FND_API.G_EXC_ERROR;
4998: ELSE
4999: p_site_use_tbl(p_account_count_rec.site_use_count).valid_flag := 'Y';
5000: END IF;
5001: END IF;
5002: END IF;
5003:
5004: -- Verify if ship to address is correct
5005: IF ((p_party_account_rec.ship_to_address IS NOT NULL) AND
5006: (p_party_account_rec.ship_to_address <> FND_API.G_MISS_NUM )) THEN
5007: -- Check the cache before hitting the Database.
5008: l_exists_flag := 'N';
5009: l_valid_flag := 'Y';
5010: IF p_site_use_tbl.count > 0 THEN
5021: IF l_valid_flag <> 'Y' THEN
5022: FND_MESSAGE.SET_NAME('CSI','CSI_INVALID_SHIP_TO_ADD_ID');
5023: FND_MESSAGE.SET_TOKEN('SHIP_TO_ADD_ID',p_party_account_rec.ship_to_address);
5024: FND_MSG_PUB.Add;
5025: RAISE FND_API.G_EXC_ERROR;
5026: END IF;
5027: END IF;
5028: --
5029: IF l_exists_flag <> 'Y' THEN
5033: p_site_use_tbl(p_account_count_rec.site_use_count).site_use_code := 'SHIP_TO';
5034: IF NOT(CSI_Instance_parties_vld_pvt.Is_ship_to_add_valid
5035: ( p_party_account_rec.ship_to_address)) THEN
5036: p_site_use_tbl(p_account_count_rec.site_use_count).valid_flag := 'N';
5037: RAISE FND_API.G_EXC_ERROR;
5038: ELSE
5039: p_site_use_tbl(p_account_count_rec.site_use_count).valid_flag := 'Y';
5040: END IF;
5041: END IF;
5042: END IF;
5043:
5044: -- Following will not be done when called from Group API.
5045: -- Verify if it meets Account Rules
5046: IF p_called_from_grp <> FND_API.G_TRUE THEN
5047:
5048: IF CSI_Instance_parties_vld_pvt.Acct_Rules_Check
5049: (p_party_account_rec.instance_party_id ,
5050: p_party_account_rec.relationship_type_code ) THEN
5047:
5048: IF CSI_Instance_parties_vld_pvt.Acct_Rules_Check
5049: (p_party_account_rec.instance_party_id ,
5050: p_party_account_rec.relationship_type_code ) THEN
5051: RAISE FND_API.G_EXC_ERROR;
5052: END IF;
5053:
5054: -- Get the parent party record
5055: IF NOT(CSI_Instance_parties_vld_pvt.Get_Party_Record
5054: -- Get the parent party record
5055: IF NOT(CSI_Instance_parties_vld_pvt.Get_Party_Record
5056: ( p_party_account_rec.instance_party_id,
5057: l_party_rec)) THEN
5058: RAISE FND_API.G_EXC_ERROR;
5059: END IF;
5060:
5061: -- If it is an owner party and owner account then update csi_item_instances
5062: -- Account Rules check ensures that if the owner account is
5120: ,x_msg_count => x_msg_count
5121: ,x_msg_data => x_msg_data );
5122:
5123:
5124: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
5125: l_msg_index := 1;
5126: l_msg_count := x_msg_count;
5127: WHILE l_msg_count > 0 LOOP
5128: x_msg_data := FND_MSG_PUB.GET(
5126: l_msg_count := x_msg_count;
5127: WHILE l_msg_count > 0 LOOP
5128: x_msg_data := FND_MSG_PUB.GET(
5129: l_msg_index,
5130: FND_API.G_FALSE );
5131: csi_gen_utility_pvt.put_line( 'message data = '||x_msg_data);
5132: l_msg_index := l_msg_index + 1;
5133: l_msg_count := l_msg_count - 1;
5134: END LOOP;
5131: csi_gen_utility_pvt.put_line( 'message data = '||x_msg_data);
5132: l_msg_index := l_msg_index + 1;
5133: l_msg_count := l_msg_count - 1;
5134: END LOOP;
5135: RAISE FND_API.G_EXC_ERROR;
5136: END IF;
5137:
5138: -- Generate a unique instance_party_history_id from the sequence
5139: l_ip_account_history_id := CSI_Instance_parties_vld_pvt.gen_ip_account_hist_id;
5200: END IF; -- p_called_from_grp check
5201: -- Call Contracts
5202: -- End commentation by sguthiva for bug 2307804
5203: -- Added by sguthiva for bug 2307804
5204: IF ( (p_party_account_rec.call_contracts <> fnd_api.g_false)
5205: AND (p_party_account_rec.relationship_type_code = 'OWNER' )
5206: )
5207: THEN
5208: -- The following code has been written to make sure
5207: THEN
5208: -- The following code has been written to make sure
5209: -- before calling contracts we pass a valid vld_organization_id
5210: IF p_party_account_rec.vld_organization_id IS NULL OR
5211: p_party_account_rec.vld_organization_id = fnd_api.g_miss_num
5212: THEN
5213: BEGIN
5214: SELECT last_vld_organization_id
5215: INTO l_last_vld_org
5224: END IF;
5225: --
5226: --Changes for Bug 11679952
5227: IF p_txn_rec.transaction_type_id <> 7 -- Added for bug 3973706
5228: AND nvl(p_txn_rec.source_group_ref, FND_API.G_MISS_CHAR) <> 'WBADI' --Added for Bug 11679952
5229: THEN
5230: csi_item_instance_pvt.Call_to_Contracts(
5231: p_transaction_type => 'NEW'
5232: ,p_instance_id => l_party_rec.instance_id
5243: ,x_msg_count => x_msg_count
5244: ,x_msg_data => x_msg_data
5245: );
5246:
5247: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS)
5248: THEN
5249: l_msg_index := 1;
5250: l_msg_count := x_msg_count;
5251: WHILE l_msg_count > 0 LOOP
5250: l_msg_count := x_msg_count;
5251: WHILE l_msg_count > 0 LOOP
5252: x_msg_data := FND_MSG_PUB.GET(
5253: l_msg_index,
5254: FND_API.G_FALSE );
5255: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
5256: l_msg_index := l_msg_index + 1;
5257: l_msg_count := l_msg_count - 1;
5258: END LOOP;
5255: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
5256: l_msg_index := l_msg_index + 1;
5257: l_msg_count := l_msg_count - 1;
5258: END LOOP;
5259: RAISE FND_API.G_EXC_ERROR;
5260: END IF;
5261: END IF; -- Added for bug 3973706
5262: END IF;
5263: END IF; -- Added by sk for fixing the bug 2232880
5266: --
5267: -- End of API body
5268: -- Standard check of p_commit.
5269:
5270: IF FND_API.To_Boolean( p_commit ) THEN
5271: COMMIT WORK;
5272: END IF;
5273:
5274:
5276: FND_MSG_PUB.Count_And_Get
5277: (p_count => x_msg_count ,
5278: p_data => x_msg_data );
5279: EXCEPTION
5280: WHEN FND_API.G_EXC_ERROR THEN
5281: ROLLBACK TO create_inst_party_acct_pvt;
5282: x_return_status := FND_API.G_RET_STS_ERROR ;
5283:
5284: FND_MSG_PUB.Count_And_Get
5278: p_data => x_msg_data );
5279: EXCEPTION
5280: WHEN FND_API.G_EXC_ERROR THEN
5281: ROLLBACK TO create_inst_party_acct_pvt;
5282: x_return_status := FND_API.G_RET_STS_ERROR ;
5283:
5284: FND_MSG_PUB.Count_And_Get
5285: ( p_count => x_msg_count,
5286: p_data => x_msg_data );
5283:
5284: FND_MSG_PUB.Count_And_Get
5285: ( p_count => x_msg_count,
5286: p_data => x_msg_data );
5287: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5288: ROLLBACK TO create_inst_party_acct_pvt;
5289: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5290: FND_MSG_PUB.Count_And_Get
5291: ( p_count => x_msg_count,
5285: ( p_count => x_msg_count,
5286: p_data => x_msg_data );
5287: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5288: ROLLBACK TO create_inst_party_acct_pvt;
5289: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5290: FND_MSG_PUB.Count_And_Get
5291: ( p_count => x_msg_count,
5292: p_data => x_msg_data );
5293: WHEN OTHERS THEN
5291: ( p_count => x_msg_count,
5292: p_data => x_msg_data );
5293: WHEN OTHERS THEN
5294: ROLLBACK TO create_inst_party_acct_pvt;
5295: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5296: IF FND_MSG_PUB.Check_Msg_Level
5297: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5298: THEN
5299: FND_MSG_PUB.Add_Exc_Msg
5360:
5361: CURSOR get_curr_party_acct_rec (p_ip_account_id IN NUMBER) IS
5362: SELECT
5363: ip_account_id ,
5364: FND_API.G_MISS_NUM parent_tbl_index,
5365: instance_party_id ,
5366: party_account_id ,
5367: relationship_type_code ,
5368: bill_to_address ,
5467: -- SAVEPOINT update_inst_party_acct_pvt;
5468:
5469:
5470: -- Standard call to check for call compatibility.
5471: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
5472: p_api_version ,
5473: l_api_name ,
5474: g_pkg_name )
5475: THEN
5472: p_api_version ,
5473: l_api_name ,
5474: g_pkg_name )
5475: THEN
5476: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5477: END IF;
5478:
5479: -- Initialize message list if p_init_msg_list is set to TRUE.
5480: IF FND_API.to_Boolean( p_init_msg_list ) THEN
5476: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5477: END IF;
5478:
5479: -- Initialize message list if p_init_msg_list is set to TRUE.
5480: IF FND_API.to_Boolean( p_init_msg_list ) THEN
5481: FND_MSG_PUB.initialize;
5482: END IF;
5483:
5484: -- Initialize API return status to success
5481: FND_MSG_PUB.initialize;
5482: END IF;
5483:
5484: -- Initialize API return status to success
5485: x_return_status := FND_API.G_RET_STS_SUCCESS;
5486:
5487: -- Check the profile option CSI_DEBUG_LEVEL for debug message reporting
5488: l_csi_debug_level:=fnd_profile.value('CSI_DEBUG_LEVEL');
5489:
5513: --
5514: IF p_party_account_rec.party_account_id IS NULL THEN
5515: FND_MESSAGE.SET_NAME('CSI','CSI_API_MANDATORY_ACCOUNT');
5516: FND_MSG_PUB.Add;
5517: RAISE FND_API.G_EXC_ERROR;
5518: END IF;
5519: --
5520: -- Check if the instance party id is valid
5521: -- Commented by sk for bug 2232880
5527: FETCH get_curr_party_acct_rec INTO l_curr_party_acct_rec;
5528: IF (l_curr_party_acct_rec.object_version_number <> p_party_account_rec.OBJECT_VERSION_NUMBER) THEN
5529: FND_MESSAGE.Set_Name('CSI', 'CSI_API_OBJ_VER_MISMATCH');
5530: FND_MSG_PUB.ADD;
5531: RAISE FND_API.G_EXC_ERROR;
5532: END IF;
5533: IF get_curr_party_acct_rec%NOTFOUND THEN
5534: FND_MESSAGE.Set_Name('CSI', 'CSI_API_RECORD_LOCKED');
5535: FND_MSG_PUB.ADD;
5532: END IF;
5533: IF get_curr_party_acct_rec%NOTFOUND THEN
5534: FND_MESSAGE.Set_Name('CSI', 'CSI_API_RECORD_LOCKED');
5535: FND_MSG_PUB.ADD;
5536: RAISE FND_API.G_EXC_ERROR;
5537: END IF;
5538: CLOSE get_curr_party_acct_rec;
5539:
5540: -- Added by sguthiva for bug 2307804
5546: l_old_pty_acct_id := NULL;
5547: END IF;
5548: -- End addition by sguthiva for bug 2307804
5549:
5550: IF p_party_account_rec.INSTANCE_PARTY_ID <> FND_API.G_MISS_NUM THEN
5551: -- Check if the instance party id is valid
5552: IF NOT(CSI_Instance_parties_vld_pvt.Is_Inst_partyID_Valid
5553: (p_Instance_party_id => p_party_account_rec.INSTANCE_PARTY_ID
5554: ,p_txn_type_id => p_txn_rec.transaction_type_id
5559: -- Message added in the validation routine since additional validation added for bug # 2477417.
5560: -- FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INST_PARTY_ID');
5561: -- FND_MESSAGE.SET_TOKEN('INSTANCE_PARTY_ID',p_party_account_rec.INSTANCE_PARTY_ID);
5562: -- FND_MSG_PUB.Add;
5563: RAISE FND_API.G_EXC_ERROR;
5564: END IF;
5565: IF p_party_account_rec.INSTANCE_PARTY_ID <> l_curr_party_acct_rec.INSTANCE_PARTY_ID THEN
5566: -- Start addition
5567: IF p_txn_rec.transaction_type_id <> 7
5568: THEN
5569: FND_MESSAGE.Set_Name('CSI', 'CSI_API_UPD_NOT_ALLOWED');
5570: FND_MESSAGE.Set_Token('COLUMN', 'INSTANCE_PARTY_ID');
5571: FND_MSG_PUB.ADD;
5572: RAISE FND_API.G_EXC_ERROR;
5573: ELSE
5574: BEGIN
5575: SELECT relationship_type_code
5576: INTO l_rel_type_code
5580: IF (l_rel_type_code='OWNER' AND
5581: l_curr_party_acct_rec.relationship_type_code='OWNER' )/* OR
5582: (l_curr_party_acct_rec.active_end_date IS NOT NULL AND
5583: l_curr_party_acct_rec.active_end_date < SYSDATE AND
5584: (p_party_account_rec.active_end_date = fnd_api.g_miss_date OR
5585: p_party_account_rec.active_end_date < SYSDATE )) */
5586: -- Commented the above code for bug 3539990 (reported in 11.5.9)
5587: THEN
5588: FND_MESSAGE.Set_Name('CSI', 'CSI_API_UPD_NOT_ALLOWED');
5587: THEN
5588: FND_MESSAGE.Set_Name('CSI', 'CSI_API_UPD_NOT_ALLOWED');
5589: FND_MESSAGE.Set_Token('COLUMN', 'INSTANCE_PARTY_ID');
5590: FND_MSG_PUB.ADD;
5591: RAISE FND_API.G_EXC_ERROR;
5592: END IF;
5593: EXCEPTION
5594: WHEN FND_API.G_EXC_ERROR THEN
5595: RAISE FND_API.G_EXC_ERROR;
5590: FND_MSG_PUB.ADD;
5591: RAISE FND_API.G_EXC_ERROR;
5592: END IF;
5593: EXCEPTION
5594: WHEN FND_API.G_EXC_ERROR THEN
5595: RAISE FND_API.G_EXC_ERROR;
5596: END;
5597:
5598: END IF;
5591: RAISE FND_API.G_EXC_ERROR;
5592: END IF;
5593: EXCEPTION
5594: WHEN FND_API.G_EXC_ERROR THEN
5595: RAISE FND_API.G_EXC_ERROR;
5596: END;
5597:
5598: END IF;
5599: -- End addition
5606: ,p_mode => 'U' -- Added for bug 3550541
5607: )
5608: )
5609: THEN
5610: RAISE FND_API.G_EXC_ERROR;
5611: END IF;
5612: END IF;
5613: l_party_relation := CSI_Instance_parties_vld_pvt.Get_Party_relation
5614: (l_curr_party_acct_rec.Instance_party_id);
5616: IF p_party_account_rec.active_start_date IS NULL THEN
5617: FND_MESSAGE.Set_Name('CSI', 'CSI_API_UPD_NOT_ALLOWED');
5618: FND_MESSAGE.Set_Token('COLUMN', 'ACTIVE_START_DATE');
5619: FND_MSG_PUB.ADD;
5620: RAISE FND_API.G_EXC_ERROR;
5621: END IF;
5622: --
5623: IF p_party_account_rec.active_start_date <> FND_API.G_MISS_DATE THEN
5624: IF p_party_account_rec.active_start_date <> l_curr_party_acct_rec.active_start_date THEN
5619: FND_MSG_PUB.ADD;
5620: RAISE FND_API.G_EXC_ERROR;
5621: END IF;
5622: --
5623: IF p_party_account_rec.active_start_date <> FND_API.G_MISS_DATE THEN
5624: IF p_party_account_rec.active_start_date <> l_curr_party_acct_rec.active_start_date THEN
5625: FND_MESSAGE.Set_Name('CSI', 'CSI_API_UPD_NOT_ALLOWED');
5626: FND_MESSAGE.Set_Token('COLUMN', 'ACTIVE_START_DATE');
5627: FND_MSG_PUB.ADD;
5624: IF p_party_account_rec.active_start_date <> l_curr_party_acct_rec.active_start_date THEN
5625: FND_MESSAGE.Set_Name('CSI', 'CSI_API_UPD_NOT_ALLOWED');
5626: FND_MESSAGE.Set_Token('COLUMN', 'ACTIVE_START_DATE');
5627: FND_MSG_PUB.ADD;
5628: RAISE FND_API.G_EXC_ERROR;
5629: END IF;
5630: END IF;
5631:
5632: -- Verify if the active_end_date is valid
5630: END IF;
5631:
5632: -- Verify if the active_end_date is valid
5633: -- Don't allow expiry of owner accounts
5634: IF ( p_party_account_rec.ACTIVE_END_DATE <> FND_API.G_MISS_DATE) THEN
5635: IF ((l_curr_party_acct_rec.relationship_type_code = 'OWNER')
5636: AND (l_party_relation = 'OWNER')) THEN
5637: -- Added by sguthiva for bug 2307804
5638: IF csi_datastructures_pub.g_install_param_rec.fetch_flag IS NULL THEN
5643: --
5644: IF l_internal_party_id IS NULL THEN
5645: FND_MESSAGE.SET_NAME('CSI','CSI_API_UNINSTALLED_PARAMETER');
5646: FND_MSG_PUB.ADD;
5647: RAISE FND_API.G_EXC_ERROR;
5648: END IF;
5649: --
5650: -- End addition by sguthiva for bug 2307804
5651: IF p_party_account_rec.expire_flag = fnd_api.g_false -- Added by sguthiva for bug 2307804
5647: RAISE FND_API.G_EXC_ERROR;
5648: END IF;
5649: --
5650: -- End addition by sguthiva for bug 2307804
5651: IF p_party_account_rec.expire_flag = fnd_api.g_false -- Added by sguthiva for bug 2307804
5652: -- IF csi_party_relationships_pvt.g_force_expire_flag = 'N' -- Commented by sguthiva for bug 2307804
5653: THEN
5654: FND_MESSAGE.Set_Name('CSI', 'CSI_API_EXP_NOT_ALLOWED');
5655: FND_MESSAGE.Set_Token('COLUMN', 'OWNER ACCOUNT');
5653: THEN
5654: FND_MESSAGE.Set_Name('CSI', 'CSI_API_EXP_NOT_ALLOWED');
5655: FND_MESSAGE.Set_Token('COLUMN', 'OWNER ACCOUNT');
5656: FND_MSG_PUB.ADD;
5657: RAISE FND_API.G_EXC_ERROR;
5658: END IF;
5659: ELSE
5660:
5661: -- Verify if the active_end_date is valid
5658: END IF;
5659: ELSE
5660:
5661: -- Verify if the active_end_date is valid
5662: IF p_party_account_rec.expire_flag = fnd_api.g_false THEN -- Added by sguthiva for bug 2307804
5663: -- IF (g_expire_account_flag <> 'Y') THEN -- Commented by sguthiva for bug 2307804
5664: IF NOT(CSI_Instance_parties_vld_pvt.Is_Acct_EndDate_Valid
5665: (l_curr_party_acct_rec.ACTIVE_START_DATE,
5666: p_party_account_rec.ACTIVE_END_DATE ,
5666: p_party_account_rec.ACTIVE_END_DATE ,
5667: p_party_account_rec.INSTANCE_PARTY_ID ,
5668: p_party_account_rec.IP_ACCOUNT_ID ,
5669: p_txn_rec.TRANSACTION_ID)) THEN
5670: RAISE FND_API.G_EXC_ERROR;
5671: END IF;
5672:
5673:
5674: -- Added following code for bug 3855525.
5672:
5673:
5674: -- Added following code for bug 3855525.
5675: IF p_party_account_rec.ACTIVE_END_DATE IS NOT NULL AND
5676: p_party_account_rec.ACTIVE_END_DATE <> FND_API.G_MISS_DATE AND l_curr_party_acct_rec.ACTIVE_START_DATE IS NOT NULL AND
5677: l_curr_party_acct_rec.ACTIVE_START_DATE <> FND_API.G_MISS_DATE AND
5678: p_party_account_rec.ACTIVE_END_DATE < l_curr_party_acct_rec.ACTIVE_START_DATE
5679: THEN
5680: FND_MESSAGE.Set_Name('CSI', 'CSI_ENDDT_GT_STDT');
5673:
5674: -- Added following code for bug 3855525.
5675: IF p_party_account_rec.ACTIVE_END_DATE IS NOT NULL AND
5676: p_party_account_rec.ACTIVE_END_DATE <> FND_API.G_MISS_DATE AND l_curr_party_acct_rec.ACTIVE_START_DATE IS NOT NULL AND
5677: l_curr_party_acct_rec.ACTIVE_START_DATE <> FND_API.G_MISS_DATE AND
5678: p_party_account_rec.ACTIVE_END_DATE < l_curr_party_acct_rec.ACTIVE_START_DATE
5679: THEN
5680: FND_MESSAGE.Set_Name('CSI', 'CSI_ENDDT_GT_STDT');
5681:
5681:
5682: FND_MESSAGE.Set_Token('END_DATE',p_party_account_rec.ACTIVE_END_DATE);
5683: FND_MESSAGE.Set_Token('START_DATE',l_curr_party_acct_rec.ACTIVE_START_DATE);
5684: FND_MSG_PUB.ADD;
5685: RAISE FND_API.G_EXC_ERROR;
5686: END IF;
5687: -- End code addition for bug 3855525.
5688:
5689: END IF;
5692:
5693:
5694: -- Verify the relationship_type_code is valid
5695: -- Don't allow change of owner accounts
5696: IF p_party_account_rec.relationship_type_code <> FND_API.G_MISS_CHAR THEN
5697: IF ((p_party_account_rec.relationship_type_code <> l_curr_party_acct_rec.relationship_type_code)
5698: AND (l_curr_party_acct_rec.relationship_type_code = 'OWNER')
5699: AND (l_party_relation = 'OWNER')) THEN
5700: FND_MESSAGE.Set_Name('CSI', 'CSI_API_UPD_NOT_ALLOWED');
5699: AND (l_party_relation = 'OWNER')) THEN
5700: FND_MESSAGE.Set_Name('CSI', 'CSI_API_UPD_NOT_ALLOWED');
5701: FND_MESSAGE.Set_Token('COLUMN', 'OWNER ACCOUNT');
5702: FND_MSG_PUB.ADD;
5703: RAISE FND_API.G_EXC_ERROR;
5704: ELSE
5705: -- Verify the relationship_type_code is valid
5706: IF NOT(CSI_Instance_parties_vld_pvt.Is_Acct_Rel_type_Valid
5707: (p_party_account_rec.RELATIONSHIP_TYPE_CODE)) THEN
5704: ELSE
5705: -- Verify the relationship_type_code is valid
5706: IF NOT(CSI_Instance_parties_vld_pvt.Is_Acct_Rel_type_Valid
5707: (p_party_account_rec.RELATIONSHIP_TYPE_CODE)) THEN
5708: RAISE FND_API.G_EXC_ERROR;
5709: END IF;
5710: END IF;
5711: END IF;
5712:
5713: -- Need to add the following as account/party merge transaction
5714: -- is allowed to change the instance_party_id.
5715: IF p_txn_rec.transaction_type_id=7 AND
5716: (p_party_account_rec.instance_party_id IS NOT NULL AND
5717: p_party_account_rec.instance_party_id <> fnd_api.g_miss_num)
5718: THEN
5719: l_instance_party_id := p_party_account_rec.instance_party_id;
5720: ELSE
5721: l_instance_party_id := l_curr_party_acct_rec.INSTANCE_PARTY_ID;
5721: l_instance_party_id := l_curr_party_acct_rec.INSTANCE_PARTY_ID;
5722: END IF;
5723:
5724: -- verify if party_account_id is valid
5725: IF p_party_account_rec.PARTY_ACCOUNT_ID <> FND_API.G_MISS_NUM THEN
5726: -- Added the following condition for bug 3830149 (rel 11.5.9)
5727: IF (p_party_account_rec.ACTIVE_END_DATE IS NULL OR
5728: p_party_account_rec.ACTIVE_END_DATE = FND_API.G_MISS_DATE)
5729: OR
5724: -- verify if party_account_id is valid
5725: IF p_party_account_rec.PARTY_ACCOUNT_ID <> FND_API.G_MISS_NUM THEN
5726: -- Added the following condition for bug 3830149 (rel 11.5.9)
5727: IF (p_party_account_rec.ACTIVE_END_DATE IS NULL OR
5728: p_party_account_rec.ACTIVE_END_DATE = FND_API.G_MISS_DATE)
5729: OR
5730: (p_party_account_rec.ACTIVE_END_DATE IS NOT NULL AND
5731: p_party_account_rec.ACTIVE_END_DATE <> FND_API.G_MISS_DATE AND
5732: p_party_account_rec.ACTIVE_END_DATE > SYSDATE)
5727: IF (p_party_account_rec.ACTIVE_END_DATE IS NULL OR
5728: p_party_account_rec.ACTIVE_END_DATE = FND_API.G_MISS_DATE)
5729: OR
5730: (p_party_account_rec.ACTIVE_END_DATE IS NOT NULL AND
5731: p_party_account_rec.ACTIVE_END_DATE <> FND_API.G_MISS_DATE AND
5732: p_party_account_rec.ACTIVE_END_DATE > SYSDATE)
5733: THEN
5734: IF NOT(CSI_Instance_parties_vld_pvt.Is_Pty_accountID_Valid
5735: (p_party_account_rec.PARTY_ACCOUNT_ID,
5739: 'U' -- Added for bug 3550541
5740: )
5741: )
5742: THEN
5743: RAISE FND_API.G_EXC_ERROR;
5744: END IF;
5745: ELSE
5746: -- Since party_account_id validation is not required during expiration of accounts
5747: -- ,Hence we added the above filter condition.
5750: END IF;
5751: END IF;
5752:
5753: -- Verify if bill to address is correct
5754: IF p_party_account_rec.bill_to_address <> FND_API.G_MISS_NUM THEN
5755: IF NOT(CSI_Instance_parties_vld_pvt.Is_bill_to_add_valid
5756: ( p_party_account_rec.bill_to_address)) THEN
5757: RAISE FND_API.G_EXC_ERROR;
5758: END IF;
5753: -- Verify if bill to address is correct
5754: IF p_party_account_rec.bill_to_address <> FND_API.G_MISS_NUM THEN
5755: IF NOT(CSI_Instance_parties_vld_pvt.Is_bill_to_add_valid
5756: ( p_party_account_rec.bill_to_address)) THEN
5757: RAISE FND_API.G_EXC_ERROR;
5758: END IF;
5759: END IF;
5760:
5761:
5759: END IF;
5760:
5761:
5762: -- Verify if ship to address is correct
5763: IF p_party_account_rec.ship_to_address <> FND_API.G_MISS_NUM THEN
5764: IF NOT(CSI_Instance_parties_vld_pvt.Is_ship_to_add_valid
5765: ( p_party_account_rec.ship_to_address)) THEN
5766: RAISE FND_API.G_EXC_ERROR;
5767: END IF;
5762: -- Verify if ship to address is correct
5763: IF p_party_account_rec.ship_to_address <> FND_API.G_MISS_NUM THEN
5764: IF NOT(CSI_Instance_parties_vld_pvt.Is_ship_to_add_valid
5765: ( p_party_account_rec.ship_to_address)) THEN
5766: RAISE FND_API.G_EXC_ERROR;
5767: END IF;
5768: END IF;
5769:
5770: -- Validate alternate primary key
5769:
5770: -- Validate alternate primary key
5771: -- Verify if the party account combination exists
5772: IF ((p_party_account_rec.instance_party_id IS NULL) OR
5773: (p_party_account_rec.instance_party_id = FND_API.G_MISS_NUM)) THEN
5774: l_alt_pk_inst_pty_id := l_curr_party_acct_rec.instance_party_id;
5775: ELSE
5776: l_alt_pk_inst_pty_id := p_party_account_rec.instance_party_id;
5777: END IF;
5776: l_alt_pk_inst_pty_id := p_party_account_rec.instance_party_id;
5777: END IF;
5778:
5779: IF ((p_party_account_rec.party_account_id IS NULL) OR
5780: (p_party_account_rec.party_account_id = FND_API.G_MISS_NUM)) THEN
5781: l_alt_pk_pty_acct_id := l_curr_party_acct_rec.party_account_id;
5782: ELSE
5783: l_alt_pk_pty_acct_id := p_party_account_rec.party_account_id;
5784: END IF;
5783: l_alt_pk_pty_acct_id := p_party_account_rec.party_account_id;
5784: END IF;
5785:
5786: IF ((p_party_account_rec.relationship_type_code IS NULL) OR
5787: (p_party_account_rec.relationship_type_code = FND_API.G_MISS_CHAR)) THEN
5788: l_alt_pk_rel_type_code := l_curr_party_acct_rec.relationship_type_code;
5789: ELSE
5790: l_alt_pk_rel_type_code := p_party_account_rec.relationship_type_code;
5791: END IF;
5836: IF CSI_Instance_parties_vld_pvt.Is_Pty_Acct_Comb_Exists
5837: (l_alt_pk_inst_pty_id ,
5838: l_alt_pk_pty_acct_id ,
5839: l_alt_pk_rel_type_code ) THEN
5840: RAISE FND_API.G_EXC_ERROR;
5841: END IF;
5842: END IF;
5843: END IF;
5844:
5849: THEN
5850: IF CSI_Instance_parties_vld_pvt.Acct_Rules_Check
5851: (l_alt_pk_inst_pty_id ,
5852: l_alt_pk_rel_type_code ) THEN
5853: RAISE FND_API.G_EXC_ERROR;
5854: END IF;
5855: END IF;
5856:
5857: -- Get party record for later use in contaracts
5857: -- Get party record for later use in contaracts
5858: IF NOT(CSI_Instance_parties_vld_pvt.Get_Party_Record
5859: (l_curr_party_acct_rec.instance_party_id,
5860: l_party_rec)) THEN
5861: RAISE FND_API.G_EXC_ERROR;
5862: END IF;
5863:
5864: -- If it is an owner party and owner account then update csi_item_instances
5865: IF p_party_account_rec.relationship_type_code <> FND_API.G_MISS_CHAR THEN
5861: RAISE FND_API.G_EXC_ERROR;
5862: END IF;
5863:
5864: -- If it is an owner party and owner account then update csi_item_instances
5865: IF p_party_account_rec.relationship_type_code <> FND_API.G_MISS_CHAR THEN
5866: IF ((p_party_account_rec.relationship_type_code = 'OWNER')
5867: AND (l_party_relation = 'OWNER')) THEN
5868: -- Added by sguthiva for bug 2307804
5869: IF p_party_account_rec.party_account_id <> fnd_api.g_miss_num
5865: IF p_party_account_rec.relationship_type_code <> FND_API.G_MISS_CHAR THEN
5866: IF ((p_party_account_rec.relationship_type_code = 'OWNER')
5867: AND (l_party_relation = 'OWNER')) THEN
5868: -- Added by sguthiva for bug 2307804
5869: IF p_party_account_rec.party_account_id <> fnd_api.g_miss_num
5870: AND p_party_account_rec.party_account_id IS NOT NULL
5871: THEN
5872: update csi_item_instances
5873: set owner_party_account_id = p_party_account_rec.party_account_id
5912: p_ATTRIBUTE12 => p_party_account_rec.ATTRIBUTE12,
5913: p_ATTRIBUTE13 => p_party_account_rec.ATTRIBUTE13,
5914: p_ATTRIBUTE14 => p_party_account_rec.ATTRIBUTE14,
5915: p_ATTRIBUTE15 => p_party_account_rec.ATTRIBUTE15,
5916: p_CREATED_BY => FND_API.G_MISS_NUM, -- FND_GLOBAL.USER_ID,
5917: p_CREATION_DATE => FND_API.G_MISS_DATE, -- SYSDATE,
5918: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID ,
5919: p_LAST_UPDATE_DATE => SYSDATE ,
5920: p_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID ,
5913: p_ATTRIBUTE13 => p_party_account_rec.ATTRIBUTE13,
5914: p_ATTRIBUTE14 => p_party_account_rec.ATTRIBUTE14,
5915: p_ATTRIBUTE15 => p_party_account_rec.ATTRIBUTE15,
5916: p_CREATED_BY => FND_API.G_MISS_NUM, -- FND_GLOBAL.USER_ID,
5917: p_CREATION_DATE => FND_API.G_MISS_DATE, -- SYSDATE,
5918: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID ,
5919: p_LAST_UPDATE_DATE => SYSDATE ,
5920: p_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID ,
5921: p_OBJECT_VERSION_NUMBER => l_OBJECT_VERSION_NUMBER ,
5938: ,x_return_status => x_return_status
5939: ,x_msg_count => x_msg_count
5940: ,x_msg_data => x_msg_data );
5941:
5942: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
5943:
5944: FOR i in 1..x_msg_Count LOOP
5945: FND_MSG_PUB.Get(p_msg_index => i,
5946: p_encoded => 'F',
5947: p_data => x_msg_data,
5948: p_msg_index_out => x_msg_index_out );
5949: csi_gen_utility_pvt.put_line( 'message data = '||x_msg_data);
5950: End LOOP;
5951: RAISE FND_API.G_EXC_ERROR;
5952: END IF;
5953:
5954:
5955:
5965: --
5966: IF l_full_dump_frequency IS NULL THEN
5967: FND_MESSAGE.SET_NAME('CSI','CSI_API_GET_FULL_DUMP_FAILED');
5968: FND_MSG_PUB.ADD;
5969: RAISE FND_API.G_EXC_ERROR;
5970: END IF;
5971: --
5972: select mod(l_object_version_number,l_full_dump_frequency)
5973: into l_mod_value
5991: THEN
5992: CSI_IP_ACCOUNTS_H_PKG.Update_Row
5993: (
5994: p_IP_ACCOUNT_HISTORY_ID => l_ip_acct_hist_id ,
5995: p_IP_ACCOUNT_ID => fnd_api.g_miss_num ,
5996: p_TRANSACTION_ID => fnd_api.g_miss_num ,
5997: p_OLD_PARTY_ACCOUNT_ID => fnd_api.g_miss_num ,
5998: p_NEW_PARTY_ACCOUNT_ID => l_temp_party_account_rec.PARTY_ACCOUNT_ID,
5999: p_OLD_RELATIONSHIP_TYPE_CODE => fnd_api.g_miss_char ,
5992: CSI_IP_ACCOUNTS_H_PKG.Update_Row
5993: (
5994: p_IP_ACCOUNT_HISTORY_ID => l_ip_acct_hist_id ,
5995: p_IP_ACCOUNT_ID => fnd_api.g_miss_num ,
5996: p_TRANSACTION_ID => fnd_api.g_miss_num ,
5997: p_OLD_PARTY_ACCOUNT_ID => fnd_api.g_miss_num ,
5998: p_NEW_PARTY_ACCOUNT_ID => l_temp_party_account_rec.PARTY_ACCOUNT_ID,
5999: p_OLD_RELATIONSHIP_TYPE_CODE => fnd_api.g_miss_char ,
6000: p_NEW_RELATIONSHIP_TYPE_CODE => l_temp_party_account_rec.RELATIONSHIP_TYPE_CODE,
5993: (
5994: p_IP_ACCOUNT_HISTORY_ID => l_ip_acct_hist_id ,
5995: p_IP_ACCOUNT_ID => fnd_api.g_miss_num ,
5996: p_TRANSACTION_ID => fnd_api.g_miss_num ,
5997: p_OLD_PARTY_ACCOUNT_ID => fnd_api.g_miss_num ,
5998: p_NEW_PARTY_ACCOUNT_ID => l_temp_party_account_rec.PARTY_ACCOUNT_ID,
5999: p_OLD_RELATIONSHIP_TYPE_CODE => fnd_api.g_miss_char ,
6000: p_NEW_RELATIONSHIP_TYPE_CODE => l_temp_party_account_rec.RELATIONSHIP_TYPE_CODE,
6001: p_OLD_ACTIVE_START_DATE => fnd_api.g_miss_date ,
5995: p_IP_ACCOUNT_ID => fnd_api.g_miss_num ,
5996: p_TRANSACTION_ID => fnd_api.g_miss_num ,
5997: p_OLD_PARTY_ACCOUNT_ID => fnd_api.g_miss_num ,
5998: p_NEW_PARTY_ACCOUNT_ID => l_temp_party_account_rec.PARTY_ACCOUNT_ID,
5999: p_OLD_RELATIONSHIP_TYPE_CODE => fnd_api.g_miss_char ,
6000: p_NEW_RELATIONSHIP_TYPE_CODE => l_temp_party_account_rec.RELATIONSHIP_TYPE_CODE,
6001: p_OLD_ACTIVE_START_DATE => fnd_api.g_miss_date ,
6002: p_NEW_ACTIVE_START_DATE => l_temp_party_account_rec.ACTIVE_START_DATE,
6003: p_OLD_ACTIVE_END_DATE => fnd_api.g_miss_date ,
5997: p_OLD_PARTY_ACCOUNT_ID => fnd_api.g_miss_num ,
5998: p_NEW_PARTY_ACCOUNT_ID => l_temp_party_account_rec.PARTY_ACCOUNT_ID,
5999: p_OLD_RELATIONSHIP_TYPE_CODE => fnd_api.g_miss_char ,
6000: p_NEW_RELATIONSHIP_TYPE_CODE => l_temp_party_account_rec.RELATIONSHIP_TYPE_CODE,
6001: p_OLD_ACTIVE_START_DATE => fnd_api.g_miss_date ,
6002: p_NEW_ACTIVE_START_DATE => l_temp_party_account_rec.ACTIVE_START_DATE,
6003: p_OLD_ACTIVE_END_DATE => fnd_api.g_miss_date ,
6004: p_NEW_ACTIVE_END_DATE => l_temp_party_account_rec.ACTIVE_END_DATE ,
6005: p_OLD_CONTEXT => fnd_api.g_miss_char ,
5999: p_OLD_RELATIONSHIP_TYPE_CODE => fnd_api.g_miss_char ,
6000: p_NEW_RELATIONSHIP_TYPE_CODE => l_temp_party_account_rec.RELATIONSHIP_TYPE_CODE,
6001: p_OLD_ACTIVE_START_DATE => fnd_api.g_miss_date ,
6002: p_NEW_ACTIVE_START_DATE => l_temp_party_account_rec.ACTIVE_START_DATE,
6003: p_OLD_ACTIVE_END_DATE => fnd_api.g_miss_date ,
6004: p_NEW_ACTIVE_END_DATE => l_temp_party_account_rec.ACTIVE_END_DATE ,
6005: p_OLD_CONTEXT => fnd_api.g_miss_char ,
6006: p_NEW_CONTEXT => l_temp_party_account_rec.CONTEXT ,
6007: p_OLD_ATTRIBUTE1 => fnd_api.g_miss_char ,
6001: p_OLD_ACTIVE_START_DATE => fnd_api.g_miss_date ,
6002: p_NEW_ACTIVE_START_DATE => l_temp_party_account_rec.ACTIVE_START_DATE,
6003: p_OLD_ACTIVE_END_DATE => fnd_api.g_miss_date ,
6004: p_NEW_ACTIVE_END_DATE => l_temp_party_account_rec.ACTIVE_END_DATE ,
6005: p_OLD_CONTEXT => fnd_api.g_miss_char ,
6006: p_NEW_CONTEXT => l_temp_party_account_rec.CONTEXT ,
6007: p_OLD_ATTRIBUTE1 => fnd_api.g_miss_char ,
6008: p_NEW_ATTRIBUTE1 => l_temp_party_account_rec.ATTRIBUTE1 ,
6009: p_OLD_ATTRIBUTE2 => fnd_api.g_miss_char ,
6003: p_OLD_ACTIVE_END_DATE => fnd_api.g_miss_date ,
6004: p_NEW_ACTIVE_END_DATE => l_temp_party_account_rec.ACTIVE_END_DATE ,
6005: p_OLD_CONTEXT => fnd_api.g_miss_char ,
6006: p_NEW_CONTEXT => l_temp_party_account_rec.CONTEXT ,
6007: p_OLD_ATTRIBUTE1 => fnd_api.g_miss_char ,
6008: p_NEW_ATTRIBUTE1 => l_temp_party_account_rec.ATTRIBUTE1 ,
6009: p_OLD_ATTRIBUTE2 => fnd_api.g_miss_char ,
6010: p_NEW_ATTRIBUTE2 => l_temp_party_account_rec.ATTRIBUTE2 ,
6011: p_OLD_ATTRIBUTE3 => fnd_api.g_miss_char ,
6005: p_OLD_CONTEXT => fnd_api.g_miss_char ,
6006: p_NEW_CONTEXT => l_temp_party_account_rec.CONTEXT ,
6007: p_OLD_ATTRIBUTE1 => fnd_api.g_miss_char ,
6008: p_NEW_ATTRIBUTE1 => l_temp_party_account_rec.ATTRIBUTE1 ,
6009: p_OLD_ATTRIBUTE2 => fnd_api.g_miss_char ,
6010: p_NEW_ATTRIBUTE2 => l_temp_party_account_rec.ATTRIBUTE2 ,
6011: p_OLD_ATTRIBUTE3 => fnd_api.g_miss_char ,
6012: p_NEW_ATTRIBUTE3 => l_temp_party_account_rec.ATTRIBUTE3 ,
6013: p_OLD_ATTRIBUTE4 => fnd_api.g_miss_char ,
6007: p_OLD_ATTRIBUTE1 => fnd_api.g_miss_char ,
6008: p_NEW_ATTRIBUTE1 => l_temp_party_account_rec.ATTRIBUTE1 ,
6009: p_OLD_ATTRIBUTE2 => fnd_api.g_miss_char ,
6010: p_NEW_ATTRIBUTE2 => l_temp_party_account_rec.ATTRIBUTE2 ,
6011: p_OLD_ATTRIBUTE3 => fnd_api.g_miss_char ,
6012: p_NEW_ATTRIBUTE3 => l_temp_party_account_rec.ATTRIBUTE3 ,
6013: p_OLD_ATTRIBUTE4 => fnd_api.g_miss_char ,
6014: p_NEW_ATTRIBUTE4 => l_temp_party_account_rec.ATTRIBUTE4 ,
6015: p_OLD_ATTRIBUTE5 => fnd_api.g_miss_char ,
6009: p_OLD_ATTRIBUTE2 => fnd_api.g_miss_char ,
6010: p_NEW_ATTRIBUTE2 => l_temp_party_account_rec.ATTRIBUTE2 ,
6011: p_OLD_ATTRIBUTE3 => fnd_api.g_miss_char ,
6012: p_NEW_ATTRIBUTE3 => l_temp_party_account_rec.ATTRIBUTE3 ,
6013: p_OLD_ATTRIBUTE4 => fnd_api.g_miss_char ,
6014: p_NEW_ATTRIBUTE4 => l_temp_party_account_rec.ATTRIBUTE4 ,
6015: p_OLD_ATTRIBUTE5 => fnd_api.g_miss_char ,
6016: p_NEW_ATTRIBUTE5 => l_temp_party_account_rec.ATTRIBUTE5 ,
6017: p_OLD_ATTRIBUTE6 => fnd_api.g_miss_char ,
6011: p_OLD_ATTRIBUTE3 => fnd_api.g_miss_char ,
6012: p_NEW_ATTRIBUTE3 => l_temp_party_account_rec.ATTRIBUTE3 ,
6013: p_OLD_ATTRIBUTE4 => fnd_api.g_miss_char ,
6014: p_NEW_ATTRIBUTE4 => l_temp_party_account_rec.ATTRIBUTE4 ,
6015: p_OLD_ATTRIBUTE5 => fnd_api.g_miss_char ,
6016: p_NEW_ATTRIBUTE5 => l_temp_party_account_rec.ATTRIBUTE5 ,
6017: p_OLD_ATTRIBUTE6 => fnd_api.g_miss_char ,
6018: p_NEW_ATTRIBUTE6 => l_temp_party_account_rec.ATTRIBUTE6 ,
6019: p_OLD_ATTRIBUTE7 => fnd_api.g_miss_char ,
6013: p_OLD_ATTRIBUTE4 => fnd_api.g_miss_char ,
6014: p_NEW_ATTRIBUTE4 => l_temp_party_account_rec.ATTRIBUTE4 ,
6015: p_OLD_ATTRIBUTE5 => fnd_api.g_miss_char ,
6016: p_NEW_ATTRIBUTE5 => l_temp_party_account_rec.ATTRIBUTE5 ,
6017: p_OLD_ATTRIBUTE6 => fnd_api.g_miss_char ,
6018: p_NEW_ATTRIBUTE6 => l_temp_party_account_rec.ATTRIBUTE6 ,
6019: p_OLD_ATTRIBUTE7 => fnd_api.g_miss_char ,
6020: p_NEW_ATTRIBUTE7 => l_temp_party_account_rec.ATTRIBUTE7 ,
6021: p_OLD_ATTRIBUTE8 => fnd_api.g_miss_char ,
6015: p_OLD_ATTRIBUTE5 => fnd_api.g_miss_char ,
6016: p_NEW_ATTRIBUTE5 => l_temp_party_account_rec.ATTRIBUTE5 ,
6017: p_OLD_ATTRIBUTE6 => fnd_api.g_miss_char ,
6018: p_NEW_ATTRIBUTE6 => l_temp_party_account_rec.ATTRIBUTE6 ,
6019: p_OLD_ATTRIBUTE7 => fnd_api.g_miss_char ,
6020: p_NEW_ATTRIBUTE7 => l_temp_party_account_rec.ATTRIBUTE7 ,
6021: p_OLD_ATTRIBUTE8 => fnd_api.g_miss_char ,
6022: p_NEW_ATTRIBUTE8 => l_temp_party_account_rec.ATTRIBUTE8 ,
6023: p_OLD_ATTRIBUTE9 => fnd_api.g_miss_char ,
6017: p_OLD_ATTRIBUTE6 => fnd_api.g_miss_char ,
6018: p_NEW_ATTRIBUTE6 => l_temp_party_account_rec.ATTRIBUTE6 ,
6019: p_OLD_ATTRIBUTE7 => fnd_api.g_miss_char ,
6020: p_NEW_ATTRIBUTE7 => l_temp_party_account_rec.ATTRIBUTE7 ,
6021: p_OLD_ATTRIBUTE8 => fnd_api.g_miss_char ,
6022: p_NEW_ATTRIBUTE8 => l_temp_party_account_rec.ATTRIBUTE8 ,
6023: p_OLD_ATTRIBUTE9 => fnd_api.g_miss_char ,
6024: p_NEW_ATTRIBUTE9 => l_temp_party_account_rec.ATTRIBUTE9 ,
6025: p_OLD_ATTRIBUTE10 => fnd_api.g_miss_char ,
6019: p_OLD_ATTRIBUTE7 => fnd_api.g_miss_char ,
6020: p_NEW_ATTRIBUTE7 => l_temp_party_account_rec.ATTRIBUTE7 ,
6021: p_OLD_ATTRIBUTE8 => fnd_api.g_miss_char ,
6022: p_NEW_ATTRIBUTE8 => l_temp_party_account_rec.ATTRIBUTE8 ,
6023: p_OLD_ATTRIBUTE9 => fnd_api.g_miss_char ,
6024: p_NEW_ATTRIBUTE9 => l_temp_party_account_rec.ATTRIBUTE9 ,
6025: p_OLD_ATTRIBUTE10 => fnd_api.g_miss_char ,
6026: p_NEW_ATTRIBUTE10 => l_temp_party_account_rec.ATTRIBUTE10 ,
6027: p_OLD_ATTRIBUTE11 => fnd_api.g_miss_char ,
6021: p_OLD_ATTRIBUTE8 => fnd_api.g_miss_char ,
6022: p_NEW_ATTRIBUTE8 => l_temp_party_account_rec.ATTRIBUTE8 ,
6023: p_OLD_ATTRIBUTE9 => fnd_api.g_miss_char ,
6024: p_NEW_ATTRIBUTE9 => l_temp_party_account_rec.ATTRIBUTE9 ,
6025: p_OLD_ATTRIBUTE10 => fnd_api.g_miss_char ,
6026: p_NEW_ATTRIBUTE10 => l_temp_party_account_rec.ATTRIBUTE10 ,
6027: p_OLD_ATTRIBUTE11 => fnd_api.g_miss_char ,
6028: p_NEW_ATTRIBUTE11 => l_temp_party_account_rec.ATTRIBUTE11 ,
6029: p_OLD_ATTRIBUTE12 => fnd_api.g_miss_char ,
6023: p_OLD_ATTRIBUTE9 => fnd_api.g_miss_char ,
6024: p_NEW_ATTRIBUTE9 => l_temp_party_account_rec.ATTRIBUTE9 ,
6025: p_OLD_ATTRIBUTE10 => fnd_api.g_miss_char ,
6026: p_NEW_ATTRIBUTE10 => l_temp_party_account_rec.ATTRIBUTE10 ,
6027: p_OLD_ATTRIBUTE11 => fnd_api.g_miss_char ,
6028: p_NEW_ATTRIBUTE11 => l_temp_party_account_rec.ATTRIBUTE11 ,
6029: p_OLD_ATTRIBUTE12 => fnd_api.g_miss_char ,
6030: p_NEW_ATTRIBUTE12 => l_temp_party_account_rec.ATTRIBUTE12 ,
6031: p_OLD_ATTRIBUTE13 => fnd_api.g_miss_char ,
6025: p_OLD_ATTRIBUTE10 => fnd_api.g_miss_char ,
6026: p_NEW_ATTRIBUTE10 => l_temp_party_account_rec.ATTRIBUTE10 ,
6027: p_OLD_ATTRIBUTE11 => fnd_api.g_miss_char ,
6028: p_NEW_ATTRIBUTE11 => l_temp_party_account_rec.ATTRIBUTE11 ,
6029: p_OLD_ATTRIBUTE12 => fnd_api.g_miss_char ,
6030: p_NEW_ATTRIBUTE12 => l_temp_party_account_rec.ATTRIBUTE12 ,
6031: p_OLD_ATTRIBUTE13 => fnd_api.g_miss_char ,
6032: p_NEW_ATTRIBUTE13 => l_temp_party_account_rec.ATTRIBUTE13 ,
6033: p_OLD_ATTRIBUTE14 => fnd_api.g_miss_char ,
6027: p_OLD_ATTRIBUTE11 => fnd_api.g_miss_char ,
6028: p_NEW_ATTRIBUTE11 => l_temp_party_account_rec.ATTRIBUTE11 ,
6029: p_OLD_ATTRIBUTE12 => fnd_api.g_miss_char ,
6030: p_NEW_ATTRIBUTE12 => l_temp_party_account_rec.ATTRIBUTE12 ,
6031: p_OLD_ATTRIBUTE13 => fnd_api.g_miss_char ,
6032: p_NEW_ATTRIBUTE13 => l_temp_party_account_rec.ATTRIBUTE13 ,
6033: p_OLD_ATTRIBUTE14 => fnd_api.g_miss_char ,
6034: p_NEW_ATTRIBUTE14 => l_temp_party_account_rec.ATTRIBUTE14 ,
6035: p_OLD_ATTRIBUTE15 => fnd_api.g_miss_char ,
6029: p_OLD_ATTRIBUTE12 => fnd_api.g_miss_char ,
6030: p_NEW_ATTRIBUTE12 => l_temp_party_account_rec.ATTRIBUTE12 ,
6031: p_OLD_ATTRIBUTE13 => fnd_api.g_miss_char ,
6032: p_NEW_ATTRIBUTE13 => l_temp_party_account_rec.ATTRIBUTE13 ,
6033: p_OLD_ATTRIBUTE14 => fnd_api.g_miss_char ,
6034: p_NEW_ATTRIBUTE14 => l_temp_party_account_rec.ATTRIBUTE14 ,
6035: p_OLD_ATTRIBUTE15 => fnd_api.g_miss_char ,
6036: p_NEW_ATTRIBUTE15 => l_temp_party_account_rec.ATTRIBUTE15 ,
6037: p_FULL_DUMP_FLAG => fnd_api.g_miss_char ,
6031: p_OLD_ATTRIBUTE13 => fnd_api.g_miss_char ,
6032: p_NEW_ATTRIBUTE13 => l_temp_party_account_rec.ATTRIBUTE13 ,
6033: p_OLD_ATTRIBUTE14 => fnd_api.g_miss_char ,
6034: p_NEW_ATTRIBUTE14 => l_temp_party_account_rec.ATTRIBUTE14 ,
6035: p_OLD_ATTRIBUTE15 => fnd_api.g_miss_char ,
6036: p_NEW_ATTRIBUTE15 => l_temp_party_account_rec.ATTRIBUTE15 ,
6037: p_FULL_DUMP_FLAG => fnd_api.g_miss_char ,
6038: p_CREATED_BY => FND_API.G_MISS_NUM ,
6039: p_CREATION_DATE => FND_API.G_MISS_DATE ,
6033: p_OLD_ATTRIBUTE14 => fnd_api.g_miss_char ,
6034: p_NEW_ATTRIBUTE14 => l_temp_party_account_rec.ATTRIBUTE14 ,
6035: p_OLD_ATTRIBUTE15 => fnd_api.g_miss_char ,
6036: p_NEW_ATTRIBUTE15 => l_temp_party_account_rec.ATTRIBUTE15 ,
6037: p_FULL_DUMP_FLAG => fnd_api.g_miss_char ,
6038: p_CREATED_BY => FND_API.G_MISS_NUM ,
6039: p_CREATION_DATE => FND_API.G_MISS_DATE ,
6040: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID ,
6041: p_LAST_UPDATE_DATE => SYSDATE ,
6034: p_NEW_ATTRIBUTE14 => l_temp_party_account_rec.ATTRIBUTE14 ,
6035: p_OLD_ATTRIBUTE15 => fnd_api.g_miss_char ,
6036: p_NEW_ATTRIBUTE15 => l_temp_party_account_rec.ATTRIBUTE15 ,
6037: p_FULL_DUMP_FLAG => fnd_api.g_miss_char ,
6038: p_CREATED_BY => FND_API.G_MISS_NUM ,
6039: p_CREATION_DATE => FND_API.G_MISS_DATE ,
6040: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID ,
6041: p_LAST_UPDATE_DATE => SYSDATE ,
6042: p_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID ,
6035: p_OLD_ATTRIBUTE15 => fnd_api.g_miss_char ,
6036: p_NEW_ATTRIBUTE15 => l_temp_party_account_rec.ATTRIBUTE15 ,
6037: p_FULL_DUMP_FLAG => fnd_api.g_miss_char ,
6038: p_CREATED_BY => FND_API.G_MISS_NUM ,
6039: p_CREATION_DATE => FND_API.G_MISS_DATE ,
6040: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID ,
6041: p_LAST_UPDATE_DATE => SYSDATE ,
6042: p_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID ,
6043: p_OBJECT_VERSION_NUMBER => fnd_api.g_miss_num ,
6039: p_CREATION_DATE => FND_API.G_MISS_DATE ,
6040: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID ,
6041: p_LAST_UPDATE_DATE => SYSDATE ,
6042: p_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID ,
6043: p_OBJECT_VERSION_NUMBER => fnd_api.g_miss_num ,
6044: p_OLD_BILL_TO_ADDRESS => fnd_api.g_miss_num ,
6045: p_NEW_BILL_TO_ADDRESS => l_temp_party_account_rec.BILL_TO_ADDRESS ,
6046: p_OLD_SHIP_TO_ADDRESS => fnd_api.g_miss_num ,
6047: p_NEW_SHIP_TO_ADDRESS => l_temp_party_account_rec.SHIP_TO_ADDRESS ,
6040: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID ,
6041: p_LAST_UPDATE_DATE => SYSDATE ,
6042: p_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID ,
6043: p_OBJECT_VERSION_NUMBER => fnd_api.g_miss_num ,
6044: p_OLD_BILL_TO_ADDRESS => fnd_api.g_miss_num ,
6045: p_NEW_BILL_TO_ADDRESS => l_temp_party_account_rec.BILL_TO_ADDRESS ,
6046: p_OLD_SHIP_TO_ADDRESS => fnd_api.g_miss_num ,
6047: p_NEW_SHIP_TO_ADDRESS => l_temp_party_account_rec.SHIP_TO_ADDRESS ,
6048: p_OLD_INSTANCE_PARTY_ID => fnd_api.g_miss_num ,
6042: p_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID ,
6043: p_OBJECT_VERSION_NUMBER => fnd_api.g_miss_num ,
6044: p_OLD_BILL_TO_ADDRESS => fnd_api.g_miss_num ,
6045: p_NEW_BILL_TO_ADDRESS => l_temp_party_account_rec.BILL_TO_ADDRESS ,
6046: p_OLD_SHIP_TO_ADDRESS => fnd_api.g_miss_num ,
6047: p_NEW_SHIP_TO_ADDRESS => l_temp_party_account_rec.SHIP_TO_ADDRESS ,
6048: p_OLD_INSTANCE_PARTY_ID => fnd_api.g_miss_num ,
6049: p_NEW_INSTANCE_PARTY_ID => l_temp_party_account_rec.INSTANCE_PARTY_ID);
6050:
6044: p_OLD_BILL_TO_ADDRESS => fnd_api.g_miss_num ,
6045: p_NEW_BILL_TO_ADDRESS => l_temp_party_account_rec.BILL_TO_ADDRESS ,
6046: p_OLD_SHIP_TO_ADDRESS => fnd_api.g_miss_num ,
6047: p_NEW_SHIP_TO_ADDRESS => l_temp_party_account_rec.SHIP_TO_ADDRESS ,
6048: p_OLD_INSTANCE_PARTY_ID => fnd_api.g_miss_num ,
6049: p_NEW_INSTANCE_PARTY_ID => l_temp_party_account_rec.INSTANCE_PARTY_ID);
6050:
6051:
6052: ELSE
6053:
6054: IF ( l_pty_acct_csr.old_party_account_id IS NULL
6055: AND l_pty_acct_csr.new_party_account_id IS NULL ) THEN
6056: IF ( l_temp_party_account_rec.party_account_id = l_curr_party_acct_rec.party_account_id )
6057: OR ( l_temp_party_account_rec.party_account_id = fnd_api.g_miss_num ) THEN
6058: l_pty_acct_csr.old_party_account_id := NULL;
6059: l_pty_acct_csr.new_party_account_id := NULL;
6060: ELSE
6061: l_pty_acct_csr.old_party_account_id := fnd_api.g_miss_num;
6057: OR ( l_temp_party_account_rec.party_account_id = fnd_api.g_miss_num ) THEN
6058: l_pty_acct_csr.old_party_account_id := NULL;
6059: l_pty_acct_csr.new_party_account_id := NULL;
6060: ELSE
6061: l_pty_acct_csr.old_party_account_id := fnd_api.g_miss_num;
6062: l_pty_acct_csr.new_party_account_id := l_temp_party_account_rec.party_account_id;
6063: END IF;
6064: ELSE
6065: l_pty_acct_csr.old_party_account_id := fnd_api.g_miss_num;
6061: l_pty_acct_csr.old_party_account_id := fnd_api.g_miss_num;
6062: l_pty_acct_csr.new_party_account_id := l_temp_party_account_rec.party_account_id;
6063: END IF;
6064: ELSE
6065: l_pty_acct_csr.old_party_account_id := fnd_api.g_miss_num;
6066: l_pty_acct_csr.new_party_account_id := l_temp_party_account_rec.party_account_id;
6067: END IF;
6068: --
6069: IF ( l_pty_acct_csr.old_relationship_type_code IS NULL
6068: --
6069: IF ( l_pty_acct_csr.old_relationship_type_code IS NULL
6070: AND l_pty_acct_csr.new_relationship_type_code IS NULL ) THEN
6071: IF ( l_temp_party_account_rec.relationship_type_code = l_curr_party_acct_rec.relationship_type_code )
6072: OR ( l_temp_party_account_rec.relationship_type_code = fnd_api.g_miss_char ) THEN
6073: l_pty_acct_csr.old_relationship_type_code := NULL;
6074: l_pty_acct_csr.new_relationship_type_code := NULL;
6075: ELSE
6076: l_pty_acct_csr.old_relationship_type_code := fnd_api.g_miss_char;
6072: OR ( l_temp_party_account_rec.relationship_type_code = fnd_api.g_miss_char ) THEN
6073: l_pty_acct_csr.old_relationship_type_code := NULL;
6074: l_pty_acct_csr.new_relationship_type_code := NULL;
6075: ELSE
6076: l_pty_acct_csr.old_relationship_type_code := fnd_api.g_miss_char;
6077: l_pty_acct_csr.new_relationship_type_code := l_temp_party_account_rec.relationship_type_code;
6078: END IF;
6079: ELSE
6080: l_pty_acct_csr.old_relationship_type_code := fnd_api.g_miss_char;
6076: l_pty_acct_csr.old_relationship_type_code := fnd_api.g_miss_char;
6077: l_pty_acct_csr.new_relationship_type_code := l_temp_party_account_rec.relationship_type_code;
6078: END IF;
6079: ELSE
6080: l_pty_acct_csr.old_relationship_type_code := fnd_api.g_miss_char;
6081: l_pty_acct_csr.new_relationship_type_code := l_temp_party_account_rec.relationship_type_code;
6082: END IF;
6083: --
6084: IF ( l_pty_acct_csr.old_bill_to_address IS NULL
6083: --
6084: IF ( l_pty_acct_csr.old_bill_to_address IS NULL
6085: AND l_pty_acct_csr.new_bill_to_address IS NULL ) THEN
6086: IF ( l_temp_party_account_rec.bill_to_address = l_curr_party_acct_rec.bill_to_address )
6087: OR ( l_temp_party_account_rec.bill_to_address = fnd_api.g_miss_num ) THEN
6088: l_pty_acct_csr.old_bill_to_address := NULL;
6089: l_pty_acct_csr.new_bill_to_address := NULL;
6090: ELSE
6091: l_pty_acct_csr.old_bill_to_address := fnd_api.g_miss_num;
6087: OR ( l_temp_party_account_rec.bill_to_address = fnd_api.g_miss_num ) THEN
6088: l_pty_acct_csr.old_bill_to_address := NULL;
6089: l_pty_acct_csr.new_bill_to_address := NULL;
6090: ELSE
6091: l_pty_acct_csr.old_bill_to_address := fnd_api.g_miss_num;
6092: l_pty_acct_csr.new_bill_to_address := l_temp_party_account_rec.bill_to_address;
6093: END IF;
6094: ELSE
6095: l_pty_acct_csr.old_bill_to_address := fnd_api.g_miss_num;
6091: l_pty_acct_csr.old_bill_to_address := fnd_api.g_miss_num;
6092: l_pty_acct_csr.new_bill_to_address := l_temp_party_account_rec.bill_to_address;
6093: END IF;
6094: ELSE
6095: l_pty_acct_csr.old_bill_to_address := fnd_api.g_miss_num;
6096: l_pty_acct_csr.new_bill_to_address := l_temp_party_account_rec.bill_to_address;
6097: END IF;
6098: --
6099: IF ( l_pty_acct_csr.old_ship_to_address IS NULL
6098: --
6099: IF ( l_pty_acct_csr.old_ship_to_address IS NULL
6100: AND l_pty_acct_csr.new_ship_to_address IS NULL ) THEN
6101: IF ( l_temp_party_account_rec.ship_to_address = l_curr_party_acct_rec.ship_to_address )
6102: OR ( l_temp_party_account_rec.ship_to_address = fnd_api.g_miss_num ) THEN
6103: l_pty_acct_csr.old_ship_to_address := NULL;
6104: l_pty_acct_csr.new_ship_to_address := NULL;
6105: ELSE
6106: l_pty_acct_csr.old_ship_to_address := fnd_api.g_miss_num;
6102: OR ( l_temp_party_account_rec.ship_to_address = fnd_api.g_miss_num ) THEN
6103: l_pty_acct_csr.old_ship_to_address := NULL;
6104: l_pty_acct_csr.new_ship_to_address := NULL;
6105: ELSE
6106: l_pty_acct_csr.old_ship_to_address := fnd_api.g_miss_num;
6107: l_pty_acct_csr.new_ship_to_address := l_temp_party_account_rec.ship_to_address;
6108: END IF;
6109: ELSE
6110: l_pty_acct_csr.old_ship_to_address := fnd_api.g_miss_num;
6106: l_pty_acct_csr.old_ship_to_address := fnd_api.g_miss_num;
6107: l_pty_acct_csr.new_ship_to_address := l_temp_party_account_rec.ship_to_address;
6108: END IF;
6109: ELSE
6110: l_pty_acct_csr.old_ship_to_address := fnd_api.g_miss_num;
6111: l_pty_acct_csr.new_ship_to_address := l_temp_party_account_rec.ship_to_address;
6112: END IF;
6113: --
6114: IF ( l_pty_acct_csr.old_active_start_date IS NULL
6113: --
6114: IF ( l_pty_acct_csr.old_active_start_date IS NULL
6115: AND l_pty_acct_csr.new_active_start_date IS NULL ) THEN
6116: IF ( l_temp_party_account_rec.active_start_date = l_curr_party_acct_rec.active_start_date )
6117: OR ( l_temp_party_account_rec.active_start_date = fnd_api.g_miss_date ) THEN
6118: l_pty_acct_csr.old_active_start_date := NULL;
6119: l_pty_acct_csr.new_active_start_date := NULL;
6120: ELSE
6121: l_pty_acct_csr.old_active_start_date := fnd_api.g_miss_date;
6117: OR ( l_temp_party_account_rec.active_start_date = fnd_api.g_miss_date ) THEN
6118: l_pty_acct_csr.old_active_start_date := NULL;
6119: l_pty_acct_csr.new_active_start_date := NULL;
6120: ELSE
6121: l_pty_acct_csr.old_active_start_date := fnd_api.g_miss_date;
6122: l_pty_acct_csr.new_active_start_date := l_temp_party_account_rec.active_start_date;
6123: END IF;
6124: ELSE
6125: l_pty_acct_csr.old_active_start_date := fnd_api.g_miss_date;
6121: l_pty_acct_csr.old_active_start_date := fnd_api.g_miss_date;
6122: l_pty_acct_csr.new_active_start_date := l_temp_party_account_rec.active_start_date;
6123: END IF;
6124: ELSE
6125: l_pty_acct_csr.old_active_start_date := fnd_api.g_miss_date;
6126: l_pty_acct_csr.new_active_start_date := l_temp_party_account_rec.active_start_date;
6127: END IF;
6128: --
6129: IF ( l_pty_acct_csr.old_active_end_date IS NULL
6128: --
6129: IF ( l_pty_acct_csr.old_active_end_date IS NULL
6130: AND l_pty_acct_csr.new_active_end_date IS NULL ) THEN
6131: IF ( l_temp_party_account_rec.active_end_date = l_curr_party_acct_rec.active_end_date )
6132: OR ( l_temp_party_account_rec.active_end_date = fnd_api.g_miss_date ) THEN
6133: l_pty_acct_csr.old_active_end_date := NULL;
6134: l_pty_acct_csr.new_active_end_date := NULL;
6135: ELSE
6136: l_pty_acct_csr.old_active_end_date := fnd_api.g_miss_date;
6132: OR ( l_temp_party_account_rec.active_end_date = fnd_api.g_miss_date ) THEN
6133: l_pty_acct_csr.old_active_end_date := NULL;
6134: l_pty_acct_csr.new_active_end_date := NULL;
6135: ELSE
6136: l_pty_acct_csr.old_active_end_date := fnd_api.g_miss_date;
6137: l_pty_acct_csr.new_active_end_date := l_temp_party_account_rec.active_end_date;
6138: END IF;
6139: ELSE
6140: l_pty_acct_csr.old_active_end_date := fnd_api.g_miss_date;
6136: l_pty_acct_csr.old_active_end_date := fnd_api.g_miss_date;
6137: l_pty_acct_csr.new_active_end_date := l_temp_party_account_rec.active_end_date;
6138: END IF;
6139: ELSE
6140: l_pty_acct_csr.old_active_end_date := fnd_api.g_miss_date;
6141: l_pty_acct_csr.new_active_end_date := l_temp_party_account_rec.active_end_date;
6142: END IF;
6143: --
6144: IF ( l_pty_acct_csr.old_context IS NULL
6143: --
6144: IF ( l_pty_acct_csr.old_context IS NULL
6145: AND l_pty_acct_csr.new_context IS NULL ) THEN
6146: IF ( l_temp_party_account_rec.context = l_curr_party_acct_rec.context )
6147: OR ( l_temp_party_account_rec.context = fnd_api.g_miss_char ) THEN
6148: l_pty_acct_csr.old_context := NULL;
6149: l_pty_acct_csr.new_context := NULL;
6150: ELSE
6151: l_pty_acct_csr.old_context := fnd_api.g_miss_char;
6147: OR ( l_temp_party_account_rec.context = fnd_api.g_miss_char ) THEN
6148: l_pty_acct_csr.old_context := NULL;
6149: l_pty_acct_csr.new_context := NULL;
6150: ELSE
6151: l_pty_acct_csr.old_context := fnd_api.g_miss_char;
6152: l_pty_acct_csr.new_context := l_temp_party_account_rec.context;
6153: END IF;
6154: ELSE
6155: l_pty_acct_csr.old_context := fnd_api.g_miss_char;
6151: l_pty_acct_csr.old_context := fnd_api.g_miss_char;
6152: l_pty_acct_csr.new_context := l_temp_party_account_rec.context;
6153: END IF;
6154: ELSE
6155: l_pty_acct_csr.old_context := fnd_api.g_miss_char;
6156: l_pty_acct_csr.new_context := l_temp_party_account_rec.context;
6157: END IF;
6158: --
6159: IF ( l_pty_acct_csr.old_attribute1 IS NULL
6158: --
6159: IF ( l_pty_acct_csr.old_attribute1 IS NULL
6160: AND l_pty_acct_csr.new_attribute1 IS NULL ) THEN
6161: IF ( l_temp_party_account_rec.attribute1 = l_curr_party_acct_rec.attribute1 )
6162: OR ( l_temp_party_account_rec.attribute1 = fnd_api.g_miss_char ) THEN
6163: l_pty_acct_csr.old_attribute1 := NULL;
6164: l_pty_acct_csr.new_attribute1 := NULL;
6165: ELSE
6166: l_pty_acct_csr.old_attribute1 := fnd_api.g_miss_char;
6162: OR ( l_temp_party_account_rec.attribute1 = fnd_api.g_miss_char ) THEN
6163: l_pty_acct_csr.old_attribute1 := NULL;
6164: l_pty_acct_csr.new_attribute1 := NULL;
6165: ELSE
6166: l_pty_acct_csr.old_attribute1 := fnd_api.g_miss_char;
6167: l_pty_acct_csr.new_attribute1 := l_temp_party_account_rec.attribute1;
6168: END IF;
6169: ELSE
6170: l_pty_acct_csr.old_attribute1 := fnd_api.g_miss_char;
6166: l_pty_acct_csr.old_attribute1 := fnd_api.g_miss_char;
6167: l_pty_acct_csr.new_attribute1 := l_temp_party_account_rec.attribute1;
6168: END IF;
6169: ELSE
6170: l_pty_acct_csr.old_attribute1 := fnd_api.g_miss_char;
6171: l_pty_acct_csr.new_attribute1 := l_temp_party_account_rec.attribute1;
6172: END IF;
6173: --
6174: IF ( l_pty_acct_csr.old_attribute2 IS NULL
6173: --
6174: IF ( l_pty_acct_csr.old_attribute2 IS NULL
6175: AND l_pty_acct_csr.new_attribute2 IS NULL ) THEN
6176: IF ( l_temp_party_account_rec.attribute2 = l_curr_party_acct_rec.attribute2 )
6177: OR ( l_temp_party_account_rec.attribute2 = fnd_api.g_miss_char ) THEN
6178: l_pty_acct_csr.old_attribute2 := NULL;
6179: l_pty_acct_csr.new_attribute2 := NULL;
6180: ELSE
6181: l_pty_acct_csr.old_attribute2 := fnd_api.g_miss_char;
6177: OR ( l_temp_party_account_rec.attribute2 = fnd_api.g_miss_char ) THEN
6178: l_pty_acct_csr.old_attribute2 := NULL;
6179: l_pty_acct_csr.new_attribute2 := NULL;
6180: ELSE
6181: l_pty_acct_csr.old_attribute2 := fnd_api.g_miss_char;
6182: l_pty_acct_csr.new_attribute2 := l_temp_party_account_rec.attribute2;
6183: END IF;
6184: ELSE
6185: l_pty_acct_csr.old_attribute2 := fnd_api.g_miss_char;
6181: l_pty_acct_csr.old_attribute2 := fnd_api.g_miss_char;
6182: l_pty_acct_csr.new_attribute2 := l_temp_party_account_rec.attribute2;
6183: END IF;
6184: ELSE
6185: l_pty_acct_csr.old_attribute2 := fnd_api.g_miss_char;
6186: l_pty_acct_csr.new_attribute2 := l_temp_party_account_rec.attribute2;
6187: END IF;
6188: --
6189: IF ( l_pty_acct_csr.old_attribute3 IS NULL
6188: --
6189: IF ( l_pty_acct_csr.old_attribute3 IS NULL
6190: AND l_pty_acct_csr.new_attribute3 IS NULL ) THEN
6191: IF ( l_temp_party_account_rec.attribute3 = l_curr_party_acct_rec.attribute3 )
6192: OR ( l_temp_party_account_rec.attribute3 = fnd_api.g_miss_char ) THEN
6193: l_pty_acct_csr.old_attribute3 := NULL;
6194: l_pty_acct_csr.new_attribute3 := NULL;
6195: ELSE
6196: l_pty_acct_csr.old_attribute3 := fnd_api.g_miss_char;
6192: OR ( l_temp_party_account_rec.attribute3 = fnd_api.g_miss_char ) THEN
6193: l_pty_acct_csr.old_attribute3 := NULL;
6194: l_pty_acct_csr.new_attribute3 := NULL;
6195: ELSE
6196: l_pty_acct_csr.old_attribute3 := fnd_api.g_miss_char;
6197: l_pty_acct_csr.new_attribute3 := l_temp_party_account_rec.attribute3;
6198: END IF;
6199: ELSE
6200: l_pty_acct_csr.old_attribute3 := fnd_api.g_miss_char;
6196: l_pty_acct_csr.old_attribute3 := fnd_api.g_miss_char;
6197: l_pty_acct_csr.new_attribute3 := l_temp_party_account_rec.attribute3;
6198: END IF;
6199: ELSE
6200: l_pty_acct_csr.old_attribute3 := fnd_api.g_miss_char;
6201: l_pty_acct_csr.new_attribute3 := l_temp_party_account_rec.attribute3;
6202: END IF;
6203: --
6204: IF ( l_pty_acct_csr.old_attribute4 IS NULL
6203: --
6204: IF ( l_pty_acct_csr.old_attribute4 IS NULL
6205: AND l_pty_acct_csr.new_attribute4 IS NULL ) THEN
6206: IF ( l_temp_party_account_rec.attribute4 = l_curr_party_acct_rec.attribute4 )
6207: OR ( l_temp_party_account_rec.attribute4 = fnd_api.g_miss_char ) THEN
6208: l_pty_acct_csr.old_attribute4 := NULL;
6209: l_pty_acct_csr.new_attribute4 := NULL;
6210: ELSE
6211: l_pty_acct_csr.old_attribute4 := fnd_api.g_miss_char;
6207: OR ( l_temp_party_account_rec.attribute4 = fnd_api.g_miss_char ) THEN
6208: l_pty_acct_csr.old_attribute4 := NULL;
6209: l_pty_acct_csr.new_attribute4 := NULL;
6210: ELSE
6211: l_pty_acct_csr.old_attribute4 := fnd_api.g_miss_char;
6212: l_pty_acct_csr.new_attribute4 := l_temp_party_account_rec.attribute4;
6213: END IF;
6214: ELSE
6215: l_pty_acct_csr.old_attribute4 := fnd_api.g_miss_char;
6211: l_pty_acct_csr.old_attribute4 := fnd_api.g_miss_char;
6212: l_pty_acct_csr.new_attribute4 := l_temp_party_account_rec.attribute4;
6213: END IF;
6214: ELSE
6215: l_pty_acct_csr.old_attribute4 := fnd_api.g_miss_char;
6216: l_pty_acct_csr.new_attribute4 := l_temp_party_account_rec.attribute4;
6217: END IF;
6218: --
6219: IF ( l_pty_acct_csr.old_attribute5 IS NULL
6218: --
6219: IF ( l_pty_acct_csr.old_attribute5 IS NULL
6220: AND l_pty_acct_csr.new_attribute5 IS NULL ) THEN
6221: IF ( l_temp_party_account_rec.attribute5 = l_curr_party_acct_rec.attribute5 )
6222: OR ( l_temp_party_account_rec.attribute5 = fnd_api.g_miss_char ) THEN
6223: l_pty_acct_csr.old_attribute5 := NULL;
6224: l_pty_acct_csr.new_attribute5 := NULL;
6225: ELSE
6226: l_pty_acct_csr.old_attribute5 := fnd_api.g_miss_char;
6222: OR ( l_temp_party_account_rec.attribute5 = fnd_api.g_miss_char ) THEN
6223: l_pty_acct_csr.old_attribute5 := NULL;
6224: l_pty_acct_csr.new_attribute5 := NULL;
6225: ELSE
6226: l_pty_acct_csr.old_attribute5 := fnd_api.g_miss_char;
6227: l_pty_acct_csr.new_attribute5 := l_temp_party_account_rec.attribute5;
6228: END IF;
6229: ELSE
6230: l_pty_acct_csr.old_attribute5 := fnd_api.g_miss_char;
6226: l_pty_acct_csr.old_attribute5 := fnd_api.g_miss_char;
6227: l_pty_acct_csr.new_attribute5 := l_temp_party_account_rec.attribute5;
6228: END IF;
6229: ELSE
6230: l_pty_acct_csr.old_attribute5 := fnd_api.g_miss_char;
6231: l_pty_acct_csr.new_attribute5 := l_temp_party_account_rec.attribute5;
6232: END IF;
6233: --
6234: IF ( l_pty_acct_csr.old_attribute6 IS NULL
6233: --
6234: IF ( l_pty_acct_csr.old_attribute6 IS NULL
6235: AND l_pty_acct_csr.new_attribute6 IS NULL ) THEN
6236: IF ( l_temp_party_account_rec.attribute6 = l_curr_party_acct_rec.attribute6 )
6237: OR ( l_temp_party_account_rec.attribute6 = fnd_api.g_miss_char ) THEN
6238: l_pty_acct_csr.old_attribute6 := NULL;
6239: l_pty_acct_csr.new_attribute6 := NULL;
6240: ELSE
6241: l_pty_acct_csr.old_attribute6 := fnd_api.g_miss_char;
6237: OR ( l_temp_party_account_rec.attribute6 = fnd_api.g_miss_char ) THEN
6238: l_pty_acct_csr.old_attribute6 := NULL;
6239: l_pty_acct_csr.new_attribute6 := NULL;
6240: ELSE
6241: l_pty_acct_csr.old_attribute6 := fnd_api.g_miss_char;
6242: l_pty_acct_csr.new_attribute6 := l_temp_party_account_rec.attribute6;
6243: END IF;
6244: ELSE
6245: l_pty_acct_csr.old_attribute6 := fnd_api.g_miss_char;
6241: l_pty_acct_csr.old_attribute6 := fnd_api.g_miss_char;
6242: l_pty_acct_csr.new_attribute6 := l_temp_party_account_rec.attribute6;
6243: END IF;
6244: ELSE
6245: l_pty_acct_csr.old_attribute6 := fnd_api.g_miss_char;
6246: l_pty_acct_csr.new_attribute6 := l_temp_party_account_rec.attribute6;
6247: END IF;
6248: --
6249: IF ( l_pty_acct_csr.old_attribute7 IS NULL
6248: --
6249: IF ( l_pty_acct_csr.old_attribute7 IS NULL
6250: AND l_pty_acct_csr.new_attribute7 IS NULL ) THEN
6251: IF ( l_temp_party_account_rec.attribute7 = l_curr_party_acct_rec.attribute7 )
6252: OR ( l_temp_party_account_rec.attribute7 = fnd_api.g_miss_char ) THEN
6253: l_pty_acct_csr.old_attribute7 := NULL;
6254: l_pty_acct_csr.new_attribute7 := NULL;
6255: ELSE
6256: l_pty_acct_csr.old_attribute7 := fnd_api.g_miss_char;
6252: OR ( l_temp_party_account_rec.attribute7 = fnd_api.g_miss_char ) THEN
6253: l_pty_acct_csr.old_attribute7 := NULL;
6254: l_pty_acct_csr.new_attribute7 := NULL;
6255: ELSE
6256: l_pty_acct_csr.old_attribute7 := fnd_api.g_miss_char;
6257: l_pty_acct_csr.new_attribute7 := l_temp_party_account_rec.attribute7;
6258: END IF;
6259: ELSE
6260: l_pty_acct_csr.old_attribute7 := fnd_api.g_miss_char;
6256: l_pty_acct_csr.old_attribute7 := fnd_api.g_miss_char;
6257: l_pty_acct_csr.new_attribute7 := l_temp_party_account_rec.attribute7;
6258: END IF;
6259: ELSE
6260: l_pty_acct_csr.old_attribute7 := fnd_api.g_miss_char;
6261: l_pty_acct_csr.new_attribute7 := l_temp_party_account_rec.attribute7;
6262: END IF;
6263: --
6264: IF ( l_pty_acct_csr.old_attribute8 IS NULL
6263: --
6264: IF ( l_pty_acct_csr.old_attribute8 IS NULL
6265: AND l_pty_acct_csr.new_attribute8 IS NULL ) THEN
6266: IF ( l_temp_party_account_rec.attribute8 = l_curr_party_acct_rec.attribute8 )
6267: OR ( l_temp_party_account_rec.attribute8 = fnd_api.g_miss_char ) THEN
6268: l_pty_acct_csr.old_attribute8 := NULL;
6269: l_pty_acct_csr.new_attribute8 := NULL;
6270: ELSE
6271: l_pty_acct_csr.old_attribute8 := fnd_api.g_miss_char;
6267: OR ( l_temp_party_account_rec.attribute8 = fnd_api.g_miss_char ) THEN
6268: l_pty_acct_csr.old_attribute8 := NULL;
6269: l_pty_acct_csr.new_attribute8 := NULL;
6270: ELSE
6271: l_pty_acct_csr.old_attribute8 := fnd_api.g_miss_char;
6272: l_pty_acct_csr.new_attribute8 := l_temp_party_account_rec.attribute8;
6273: END IF;
6274: ELSE
6275: l_pty_acct_csr.old_attribute8 := fnd_api.g_miss_char;
6271: l_pty_acct_csr.old_attribute8 := fnd_api.g_miss_char;
6272: l_pty_acct_csr.new_attribute8 := l_temp_party_account_rec.attribute8;
6273: END IF;
6274: ELSE
6275: l_pty_acct_csr.old_attribute8 := fnd_api.g_miss_char;
6276: l_pty_acct_csr.new_attribute8 := l_temp_party_account_rec.attribute8;
6277: END IF;
6278: --
6279: IF ( l_pty_acct_csr.old_attribute9 IS NULL
6278: --
6279: IF ( l_pty_acct_csr.old_attribute9 IS NULL
6280: AND l_pty_acct_csr.new_attribute9 IS NULL ) THEN
6281: IF ( l_temp_party_account_rec.attribute9 = l_curr_party_acct_rec.attribute9 )
6282: OR ( l_temp_party_account_rec.attribute9 = fnd_api.g_miss_char ) THEN
6283: l_pty_acct_csr.old_attribute9 := NULL;
6284: l_pty_acct_csr.new_attribute9 := NULL;
6285: ELSE
6286: l_pty_acct_csr.old_attribute9 := fnd_api.g_miss_char;
6282: OR ( l_temp_party_account_rec.attribute9 = fnd_api.g_miss_char ) THEN
6283: l_pty_acct_csr.old_attribute9 := NULL;
6284: l_pty_acct_csr.new_attribute9 := NULL;
6285: ELSE
6286: l_pty_acct_csr.old_attribute9 := fnd_api.g_miss_char;
6287: l_pty_acct_csr.new_attribute9 := l_temp_party_account_rec.attribute9;
6288: END IF;
6289: ELSE
6290: l_pty_acct_csr.old_attribute9 := fnd_api.g_miss_char;
6286: l_pty_acct_csr.old_attribute9 := fnd_api.g_miss_char;
6287: l_pty_acct_csr.new_attribute9 := l_temp_party_account_rec.attribute9;
6288: END IF;
6289: ELSE
6290: l_pty_acct_csr.old_attribute9 := fnd_api.g_miss_char;
6291: l_pty_acct_csr.new_attribute9 := l_temp_party_account_rec.attribute9;
6292: END IF;
6293: --
6294: IF ( l_pty_acct_csr.old_attribute10 IS NULL
6293: --
6294: IF ( l_pty_acct_csr.old_attribute10 IS NULL
6295: AND l_pty_acct_csr.new_attribute10 IS NULL ) THEN
6296: IF ( l_temp_party_account_rec.attribute10 = l_curr_party_acct_rec.attribute10 )
6297: OR ( l_temp_party_account_rec.attribute10 = fnd_api.g_miss_char ) THEN
6298: l_pty_acct_csr.old_attribute10 := NULL;
6299: l_pty_acct_csr.new_attribute10 := NULL;
6300: ELSE
6301: l_pty_acct_csr.old_attribute10 := fnd_api.g_miss_char;
6297: OR ( l_temp_party_account_rec.attribute10 = fnd_api.g_miss_char ) THEN
6298: l_pty_acct_csr.old_attribute10 := NULL;
6299: l_pty_acct_csr.new_attribute10 := NULL;
6300: ELSE
6301: l_pty_acct_csr.old_attribute10 := fnd_api.g_miss_char;
6302: l_pty_acct_csr.new_attribute10 := l_temp_party_account_rec.attribute10;
6303: END IF;
6304: ELSE
6305: l_pty_acct_csr.old_attribute10 := fnd_api.g_miss_char;
6301: l_pty_acct_csr.old_attribute10 := fnd_api.g_miss_char;
6302: l_pty_acct_csr.new_attribute10 := l_temp_party_account_rec.attribute10;
6303: END IF;
6304: ELSE
6305: l_pty_acct_csr.old_attribute10 := fnd_api.g_miss_char;
6306: l_pty_acct_csr.new_attribute10 := l_temp_party_account_rec.attribute10;
6307: END IF;
6308: --
6309: IF ( l_pty_acct_csr.old_attribute11 IS NULL
6308: --
6309: IF ( l_pty_acct_csr.old_attribute11 IS NULL
6310: AND l_pty_acct_csr.new_attribute11 IS NULL ) THEN
6311: IF ( l_temp_party_account_rec.attribute11 = l_curr_party_acct_rec.attribute11 )
6312: OR ( l_temp_party_account_rec.attribute11 = fnd_api.g_miss_char ) THEN
6313: l_pty_acct_csr.old_attribute11 := NULL;
6314: l_pty_acct_csr.new_attribute11 := NULL;
6315: ELSE
6316: l_pty_acct_csr.old_attribute11 := fnd_api.g_miss_char;
6312: OR ( l_temp_party_account_rec.attribute11 = fnd_api.g_miss_char ) THEN
6313: l_pty_acct_csr.old_attribute11 := NULL;
6314: l_pty_acct_csr.new_attribute11 := NULL;
6315: ELSE
6316: l_pty_acct_csr.old_attribute11 := fnd_api.g_miss_char;
6317: l_pty_acct_csr.new_attribute11 := l_temp_party_account_rec.attribute11;
6318: END IF;
6319: ELSE
6320: l_pty_acct_csr.old_attribute11 := fnd_api.g_miss_char;
6316: l_pty_acct_csr.old_attribute11 := fnd_api.g_miss_char;
6317: l_pty_acct_csr.new_attribute11 := l_temp_party_account_rec.attribute11;
6318: END IF;
6319: ELSE
6320: l_pty_acct_csr.old_attribute11 := fnd_api.g_miss_char;
6321: l_pty_acct_csr.new_attribute11 := l_temp_party_account_rec.attribute11;
6322: END IF;
6323: --
6324: IF ( l_pty_acct_csr.old_attribute12 IS NULL
6323: --
6324: IF ( l_pty_acct_csr.old_attribute12 IS NULL
6325: AND l_pty_acct_csr.new_attribute12 IS NULL ) THEN
6326: IF ( l_temp_party_account_rec.attribute12 = l_curr_party_acct_rec.attribute12 )
6327: OR ( l_temp_party_account_rec.attribute12 = fnd_api.g_miss_char ) THEN
6328: l_pty_acct_csr.old_attribute12 := NULL;
6329: l_pty_acct_csr.new_attribute12 := NULL;
6330: ELSE
6331: l_pty_acct_csr.old_attribute12 := fnd_api.g_miss_char;
6327: OR ( l_temp_party_account_rec.attribute12 = fnd_api.g_miss_char ) THEN
6328: l_pty_acct_csr.old_attribute12 := NULL;
6329: l_pty_acct_csr.new_attribute12 := NULL;
6330: ELSE
6331: l_pty_acct_csr.old_attribute12 := fnd_api.g_miss_char;
6332: l_pty_acct_csr.new_attribute12 := l_temp_party_account_rec.attribute12;
6333: END IF;
6334: ELSE
6335: l_pty_acct_csr.old_attribute12 := fnd_api.g_miss_char;
6331: l_pty_acct_csr.old_attribute12 := fnd_api.g_miss_char;
6332: l_pty_acct_csr.new_attribute12 := l_temp_party_account_rec.attribute12;
6333: END IF;
6334: ELSE
6335: l_pty_acct_csr.old_attribute12 := fnd_api.g_miss_char;
6336: l_pty_acct_csr.new_attribute12 := l_temp_party_account_rec.attribute12;
6337: END IF;
6338: --
6339: IF ( l_pty_acct_csr.old_attribute13 IS NULL
6338: --
6339: IF ( l_pty_acct_csr.old_attribute13 IS NULL
6340: AND l_pty_acct_csr.new_attribute13 IS NULL ) THEN
6341: IF ( l_temp_party_account_rec.attribute13 = l_curr_party_acct_rec.attribute13 )
6342: OR ( l_temp_party_account_rec.attribute13 = fnd_api.g_miss_char ) THEN
6343: l_pty_acct_csr.old_attribute13 := NULL;
6344: l_pty_acct_csr.new_attribute13 := NULL;
6345: ELSE
6346: l_pty_acct_csr.old_attribute13 := fnd_api.g_miss_char;
6342: OR ( l_temp_party_account_rec.attribute13 = fnd_api.g_miss_char ) THEN
6343: l_pty_acct_csr.old_attribute13 := NULL;
6344: l_pty_acct_csr.new_attribute13 := NULL;
6345: ELSE
6346: l_pty_acct_csr.old_attribute13 := fnd_api.g_miss_char;
6347: l_pty_acct_csr.new_attribute13 := l_temp_party_account_rec.attribute13;
6348: END IF;
6349: ELSE
6350: l_pty_acct_csr.old_attribute13 := fnd_api.g_miss_char;
6346: l_pty_acct_csr.old_attribute13 := fnd_api.g_miss_char;
6347: l_pty_acct_csr.new_attribute13 := l_temp_party_account_rec.attribute13;
6348: END IF;
6349: ELSE
6350: l_pty_acct_csr.old_attribute13 := fnd_api.g_miss_char;
6351: l_pty_acct_csr.new_attribute13 := l_temp_party_account_rec.attribute13;
6352: END IF;
6353: --
6354: IF ( l_pty_acct_csr.old_attribute14 IS NULL
6353: --
6354: IF ( l_pty_acct_csr.old_attribute14 IS NULL
6355: AND l_pty_acct_csr.new_attribute14 IS NULL ) THEN
6356: IF ( l_temp_party_account_rec.attribute14 = l_curr_party_acct_rec.attribute14 )
6357: OR ( l_temp_party_account_rec.attribute14 = fnd_api.g_miss_char ) THEN
6358: l_pty_acct_csr.old_attribute14 := NULL;
6359: l_pty_acct_csr.new_attribute14 := NULL;
6360: ELSE
6361: l_pty_acct_csr.old_attribute14 := fnd_api.g_miss_char;
6357: OR ( l_temp_party_account_rec.attribute14 = fnd_api.g_miss_char ) THEN
6358: l_pty_acct_csr.old_attribute14 := NULL;
6359: l_pty_acct_csr.new_attribute14 := NULL;
6360: ELSE
6361: l_pty_acct_csr.old_attribute14 := fnd_api.g_miss_char;
6362: l_pty_acct_csr.new_attribute14 := l_temp_party_account_rec.attribute14;
6363: END IF;
6364: ELSE
6365: l_pty_acct_csr.old_attribute14 := fnd_api.g_miss_char;
6361: l_pty_acct_csr.old_attribute14 := fnd_api.g_miss_char;
6362: l_pty_acct_csr.new_attribute14 := l_temp_party_account_rec.attribute14;
6363: END IF;
6364: ELSE
6365: l_pty_acct_csr.old_attribute14 := fnd_api.g_miss_char;
6366: l_pty_acct_csr.new_attribute14 := l_temp_party_account_rec.attribute14;
6367: END IF;
6368: --
6369: IF ( l_pty_acct_csr.old_attribute15 IS NULL
6368: --
6369: IF ( l_pty_acct_csr.old_attribute15 IS NULL
6370: AND l_pty_acct_csr.new_attribute15 IS NULL ) THEN
6371: IF ( l_temp_party_account_rec.attribute15 = l_curr_party_acct_rec.attribute15 )
6372: OR ( l_temp_party_account_rec.attribute15 = fnd_api.g_miss_char ) THEN
6373: l_pty_acct_csr.old_attribute15 := NULL;
6374: l_pty_acct_csr.new_attribute15 := NULL;
6375: ELSE
6376: l_pty_acct_csr.old_attribute15 := fnd_api.g_miss_char;
6372: OR ( l_temp_party_account_rec.attribute15 = fnd_api.g_miss_char ) THEN
6373: l_pty_acct_csr.old_attribute15 := NULL;
6374: l_pty_acct_csr.new_attribute15 := NULL;
6375: ELSE
6376: l_pty_acct_csr.old_attribute15 := fnd_api.g_miss_char;
6377: l_pty_acct_csr.new_attribute15 := l_temp_party_account_rec.attribute15;
6378: END IF;
6379: ELSE
6380: l_pty_acct_csr.old_attribute15 := fnd_api.g_miss_char;
6376: l_pty_acct_csr.old_attribute15 := fnd_api.g_miss_char;
6377: l_pty_acct_csr.new_attribute15 := l_temp_party_account_rec.attribute15;
6378: END IF;
6379: ELSE
6380: l_pty_acct_csr.old_attribute15 := fnd_api.g_miss_char;
6381: l_pty_acct_csr.new_attribute15 := l_temp_party_account_rec.attribute15;
6382: END IF;
6383: --
6384: IF ( l_pty_acct_csr.old_instance_party_id IS NULL
6383: --
6384: IF ( l_pty_acct_csr.old_instance_party_id IS NULL
6385: AND l_pty_acct_csr.new_instance_party_id IS NULL ) THEN
6386: IF ( l_temp_party_account_rec.instance_party_id = l_curr_party_acct_rec.instance_party_id )
6387: OR ( l_temp_party_account_rec.instance_party_id = fnd_api.g_miss_num ) THEN
6388: l_pty_acct_csr.old_instance_party_id := NULL;
6389: l_pty_acct_csr.new_instance_party_id := NULL;
6390: ELSE
6391: l_pty_acct_csr.old_instance_party_id := fnd_api.g_miss_num;
6387: OR ( l_temp_party_account_rec.instance_party_id = fnd_api.g_miss_num ) THEN
6388: l_pty_acct_csr.old_instance_party_id := NULL;
6389: l_pty_acct_csr.new_instance_party_id := NULL;
6390: ELSE
6391: l_pty_acct_csr.old_instance_party_id := fnd_api.g_miss_num;
6392: l_pty_acct_csr.new_instance_party_id := l_temp_party_account_rec.instance_party_id;
6393: END IF;
6394: ELSE
6395: l_pty_acct_csr.old_instance_party_id := fnd_api.g_miss_num;
6391: l_pty_acct_csr.old_instance_party_id := fnd_api.g_miss_num;
6392: l_pty_acct_csr.new_instance_party_id := l_temp_party_account_rec.instance_party_id;
6393: END IF;
6394: ELSE
6395: l_pty_acct_csr.old_instance_party_id := fnd_api.g_miss_num;
6396: l_pty_acct_csr.new_instance_party_id := l_temp_party_account_rec.instance_party_id;
6397: END IF;
6398:
6399: CSI_IP_ACCOUNTS_H_PKG.Update_Row
6398:
6399: CSI_IP_ACCOUNTS_H_PKG.Update_Row
6400: (
6401: p_IP_ACCOUNT_HISTORY_ID => l_ip_acct_hist_id ,
6402: p_IP_ACCOUNT_ID => fnd_api.g_miss_num ,
6403: p_TRANSACTION_ID => fnd_api.g_miss_num ,
6404: p_OLD_PARTY_ACCOUNT_ID => l_pty_acct_csr.old_party_account_id ,
6405: p_NEW_PARTY_ACCOUNT_ID => l_pty_acct_csr.NEW_PARTY_ACCOUNT_ID,
6406: p_OLD_RELATIONSHIP_TYPE_CODE => l_pty_acct_csr.old_relationship_type_code,
6399: CSI_IP_ACCOUNTS_H_PKG.Update_Row
6400: (
6401: p_IP_ACCOUNT_HISTORY_ID => l_ip_acct_hist_id ,
6402: p_IP_ACCOUNT_ID => fnd_api.g_miss_num ,
6403: p_TRANSACTION_ID => fnd_api.g_miss_num ,
6404: p_OLD_PARTY_ACCOUNT_ID => l_pty_acct_csr.old_party_account_id ,
6405: p_NEW_PARTY_ACCOUNT_ID => l_pty_acct_csr.NEW_PARTY_ACCOUNT_ID,
6406: p_OLD_RELATIONSHIP_TYPE_CODE => l_pty_acct_csr.old_relationship_type_code,
6407: p_NEW_RELATIONSHIP_TYPE_CODE => l_pty_acct_csr.NEW_RELATIONSHIP_TYPE_CODE,
6440: p_OLD_ATTRIBUTE14 => l_pty_acct_csr.old_attribute14 ,
6441: p_NEW_ATTRIBUTE14 => l_pty_acct_csr.NEW_ATTRIBUTE14 ,
6442: p_OLD_ATTRIBUTE15 => l_pty_acct_csr.old_attribute15 ,
6443: p_NEW_ATTRIBUTE15 => l_pty_acct_csr.NEW_ATTRIBUTE15 ,
6444: p_FULL_DUMP_FLAG => fnd_api.g_miss_char ,
6445: p_CREATED_BY => FND_API.G_MISS_NUM ,
6446: p_CREATION_DATE => FND_API.G_MISS_DATE ,
6447: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID ,
6448: p_LAST_UPDATE_DATE => SYSDATE ,
6441: p_NEW_ATTRIBUTE14 => l_pty_acct_csr.NEW_ATTRIBUTE14 ,
6442: p_OLD_ATTRIBUTE15 => l_pty_acct_csr.old_attribute15 ,
6443: p_NEW_ATTRIBUTE15 => l_pty_acct_csr.NEW_ATTRIBUTE15 ,
6444: p_FULL_DUMP_FLAG => fnd_api.g_miss_char ,
6445: p_CREATED_BY => FND_API.G_MISS_NUM ,
6446: p_CREATION_DATE => FND_API.G_MISS_DATE ,
6447: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID ,
6448: p_LAST_UPDATE_DATE => SYSDATE ,
6449: p_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID ,
6442: p_OLD_ATTRIBUTE15 => l_pty_acct_csr.old_attribute15 ,
6443: p_NEW_ATTRIBUTE15 => l_pty_acct_csr.NEW_ATTRIBUTE15 ,
6444: p_FULL_DUMP_FLAG => fnd_api.g_miss_char ,
6445: p_CREATED_BY => FND_API.G_MISS_NUM ,
6446: p_CREATION_DATE => FND_API.G_MISS_DATE ,
6447: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID ,
6448: p_LAST_UPDATE_DATE => SYSDATE ,
6449: p_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID ,
6450: p_OBJECT_VERSION_NUMBER => fnd_api.g_miss_num ,
6446: p_CREATION_DATE => FND_API.G_MISS_DATE ,
6447: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID ,
6448: p_LAST_UPDATE_DATE => SYSDATE ,
6449: p_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID ,
6450: p_OBJECT_VERSION_NUMBER => fnd_api.g_miss_num ,
6451: p_OLD_BILL_TO_ADDRESS => l_pty_acct_csr.old_bill_to_address ,
6452: p_NEW_BILL_TO_ADDRESS => l_pty_acct_csr.NEW_BILL_TO_ADDRESS ,
6453: p_OLD_SHIP_TO_ADDRESS => l_pty_acct_csr.old_ship_to_address ,
6454: p_NEW_SHIP_TO_ADDRESS => l_pty_acct_csr.NEW_SHIP_TO_ADDRESS,
6463: -- If the mod value is 0 then dump all the columns both changed and unchanged
6464: -- changed columns have old and new values while the unchanged values have old and new values
6465: -- exactly same
6466:
6467: IF (p_party_account_rec.instance_party_id = FND_API.G_MISS_NUM) THEN
6468: l_temp_party_account_rec.instance_party_id := l_curr_party_acct_rec.instance_party_id ;
6469: END IF;
6470: IF (p_party_account_rec.party_account_id = FND_API.G_MISS_NUM) THEN
6471: l_temp_party_account_rec.party_account_id := l_curr_party_acct_rec.party_account_id ;
6466:
6467: IF (p_party_account_rec.instance_party_id = FND_API.G_MISS_NUM) THEN
6468: l_temp_party_account_rec.instance_party_id := l_curr_party_acct_rec.instance_party_id ;
6469: END IF;
6470: IF (p_party_account_rec.party_account_id = FND_API.G_MISS_NUM) THEN
6471: l_temp_party_account_rec.party_account_id := l_curr_party_acct_rec.party_account_id ;
6472: END IF;
6473: IF (p_party_account_rec.relationship_type_code = FND_API.G_MISS_CHAR) THEN
6474: l_temp_party_account_rec.relationship_type_code := l_curr_party_acct_rec.relationship_type_code ;
6469: END IF;
6470: IF (p_party_account_rec.party_account_id = FND_API.G_MISS_NUM) THEN
6471: l_temp_party_account_rec.party_account_id := l_curr_party_acct_rec.party_account_id ;
6472: END IF;
6473: IF (p_party_account_rec.relationship_type_code = FND_API.G_MISS_CHAR) THEN
6474: l_temp_party_account_rec.relationship_type_code := l_curr_party_acct_rec.relationship_type_code ;
6475: END IF;
6476: IF (p_party_account_rec.ACTIVE_START_DATE = FND_API.G_MISS_DATE) THEN
6477: l_temp_party_account_rec.ACTIVE_START_DATE := l_curr_party_acct_rec.ACTIVE_START_DATE ;
6472: END IF;
6473: IF (p_party_account_rec.relationship_type_code = FND_API.G_MISS_CHAR) THEN
6474: l_temp_party_account_rec.relationship_type_code := l_curr_party_acct_rec.relationship_type_code ;
6475: END IF;
6476: IF (p_party_account_rec.ACTIVE_START_DATE = FND_API.G_MISS_DATE) THEN
6477: l_temp_party_account_rec.ACTIVE_START_DATE := l_curr_party_acct_rec.ACTIVE_START_DATE ;
6478: END IF;
6479: IF --(p_party_account_rec.ACTIVE_END_DATE = FND_API.G_MISS_DATE)
6480: (l_acct_end_date = FND_API.G_MISS_DATE)
6475: END IF;
6476: IF (p_party_account_rec.ACTIVE_START_DATE = FND_API.G_MISS_DATE) THEN
6477: l_temp_party_account_rec.ACTIVE_START_DATE := l_curr_party_acct_rec.ACTIVE_START_DATE ;
6478: END IF;
6479: IF --(p_party_account_rec.ACTIVE_END_DATE = FND_API.G_MISS_DATE)
6480: (l_acct_end_date = FND_API.G_MISS_DATE)
6481: THEN
6482: l_temp_party_account_rec.ACTIVE_END_DATE := l_curr_party_acct_rec.ACTIVE_END_DATE ;
6483: END IF;
6476: IF (p_party_account_rec.ACTIVE_START_DATE = FND_API.G_MISS_DATE) THEN
6477: l_temp_party_account_rec.ACTIVE_START_DATE := l_curr_party_acct_rec.ACTIVE_START_DATE ;
6478: END IF;
6479: IF --(p_party_account_rec.ACTIVE_END_DATE = FND_API.G_MISS_DATE)
6480: (l_acct_end_date = FND_API.G_MISS_DATE)
6481: THEN
6482: l_temp_party_account_rec.ACTIVE_END_DATE := l_curr_party_acct_rec.ACTIVE_END_DATE ;
6483: END IF;
6484: IF (p_party_account_rec.context = FND_API.G_MISS_CHAR) THEN
6480: (l_acct_end_date = FND_API.G_MISS_DATE)
6481: THEN
6482: l_temp_party_account_rec.ACTIVE_END_DATE := l_curr_party_acct_rec.ACTIVE_END_DATE ;
6483: END IF;
6484: IF (p_party_account_rec.context = FND_API.G_MISS_CHAR) THEN
6485: l_temp_party_account_rec.CONTEXT := l_curr_party_acct_rec.CONTEXT ;
6486: END IF;
6487: IF (p_party_account_rec.ATTRIBUTE1 = FND_API.G_MISS_CHAR) THEN
6488: l_temp_party_account_rec.ATTRIBUTE1 := l_curr_party_acct_rec.ATTRIBUTE1 ;
6483: END IF;
6484: IF (p_party_account_rec.context = FND_API.G_MISS_CHAR) THEN
6485: l_temp_party_account_rec.CONTEXT := l_curr_party_acct_rec.CONTEXT ;
6486: END IF;
6487: IF (p_party_account_rec.ATTRIBUTE1 = FND_API.G_MISS_CHAR) THEN
6488: l_temp_party_account_rec.ATTRIBUTE1 := l_curr_party_acct_rec.ATTRIBUTE1 ;
6489: END IF;
6490: IF (p_party_account_rec.ATTRIBUTE2 = FND_API.G_MISS_CHAR) THEN
6491: l_temp_party_account_rec.ATTRIBUTE2 := l_curr_party_acct_rec.ATTRIBUTE2 ;
6486: END IF;
6487: IF (p_party_account_rec.ATTRIBUTE1 = FND_API.G_MISS_CHAR) THEN
6488: l_temp_party_account_rec.ATTRIBUTE1 := l_curr_party_acct_rec.ATTRIBUTE1 ;
6489: END IF;
6490: IF (p_party_account_rec.ATTRIBUTE2 = FND_API.G_MISS_CHAR) THEN
6491: l_temp_party_account_rec.ATTRIBUTE2 := l_curr_party_acct_rec.ATTRIBUTE2 ;
6492: END IF;
6493: IF (p_party_account_rec.ATTRIBUTE3 = FND_API.G_MISS_CHAR) THEN
6494: l_temp_party_account_rec.ATTRIBUTE3 := l_curr_party_acct_rec.ATTRIBUTE3 ;
6489: END IF;
6490: IF (p_party_account_rec.ATTRIBUTE2 = FND_API.G_MISS_CHAR) THEN
6491: l_temp_party_account_rec.ATTRIBUTE2 := l_curr_party_acct_rec.ATTRIBUTE2 ;
6492: END IF;
6493: IF (p_party_account_rec.ATTRIBUTE3 = FND_API.G_MISS_CHAR) THEN
6494: l_temp_party_account_rec.ATTRIBUTE3 := l_curr_party_acct_rec.ATTRIBUTE3 ;
6495: END IF;
6496: IF (p_party_account_rec.ATTRIBUTE4 = FND_API.G_MISS_CHAR) THEN
6497: l_temp_party_account_rec.ATTRIBUTE4 := l_curr_party_acct_rec.ATTRIBUTE4 ;
6492: END IF;
6493: IF (p_party_account_rec.ATTRIBUTE3 = FND_API.G_MISS_CHAR) THEN
6494: l_temp_party_account_rec.ATTRIBUTE3 := l_curr_party_acct_rec.ATTRIBUTE3 ;
6495: END IF;
6496: IF (p_party_account_rec.ATTRIBUTE4 = FND_API.G_MISS_CHAR) THEN
6497: l_temp_party_account_rec.ATTRIBUTE4 := l_curr_party_acct_rec.ATTRIBUTE4 ;
6498: END IF;
6499: IF (p_party_account_rec.ATTRIBUTE5 = FND_API.G_MISS_CHAR) THEN
6500: l_temp_party_account_rec.ATTRIBUTE5 := l_curr_party_acct_rec.ATTRIBUTE5 ;
6495: END IF;
6496: IF (p_party_account_rec.ATTRIBUTE4 = FND_API.G_MISS_CHAR) THEN
6497: l_temp_party_account_rec.ATTRIBUTE4 := l_curr_party_acct_rec.ATTRIBUTE4 ;
6498: END IF;
6499: IF (p_party_account_rec.ATTRIBUTE5 = FND_API.G_MISS_CHAR) THEN
6500: l_temp_party_account_rec.ATTRIBUTE5 := l_curr_party_acct_rec.ATTRIBUTE5 ;
6501: END IF;
6502: IF (p_party_account_rec.ATTRIBUTE6 = FND_API.G_MISS_CHAR) THEN
6503: l_temp_party_account_rec.ATTRIBUTE6 := l_curr_party_acct_rec.ATTRIBUTE6 ;
6498: END IF;
6499: IF (p_party_account_rec.ATTRIBUTE5 = FND_API.G_MISS_CHAR) THEN
6500: l_temp_party_account_rec.ATTRIBUTE5 := l_curr_party_acct_rec.ATTRIBUTE5 ;
6501: END IF;
6502: IF (p_party_account_rec.ATTRIBUTE6 = FND_API.G_MISS_CHAR) THEN
6503: l_temp_party_account_rec.ATTRIBUTE6 := l_curr_party_acct_rec.ATTRIBUTE6 ;
6504: END IF;
6505: IF (p_party_account_rec.ATTRIBUTE7 = FND_API.G_MISS_CHAR) THEN
6506: l_temp_party_account_rec.ATTRIBUTE7 := l_curr_party_acct_rec.ATTRIBUTE7 ;
6501: END IF;
6502: IF (p_party_account_rec.ATTRIBUTE6 = FND_API.G_MISS_CHAR) THEN
6503: l_temp_party_account_rec.ATTRIBUTE6 := l_curr_party_acct_rec.ATTRIBUTE6 ;
6504: END IF;
6505: IF (p_party_account_rec.ATTRIBUTE7 = FND_API.G_MISS_CHAR) THEN
6506: l_temp_party_account_rec.ATTRIBUTE7 := l_curr_party_acct_rec.ATTRIBUTE7 ;
6507: END IF;
6508: IF (p_party_account_rec.ATTRIBUTE8 = FND_API.G_MISS_CHAR) THEN
6509: l_temp_party_account_rec.ATTRIBUTE8 := l_curr_party_acct_rec.ATTRIBUTE8 ;
6504: END IF;
6505: IF (p_party_account_rec.ATTRIBUTE7 = FND_API.G_MISS_CHAR) THEN
6506: l_temp_party_account_rec.ATTRIBUTE7 := l_curr_party_acct_rec.ATTRIBUTE7 ;
6507: END IF;
6508: IF (p_party_account_rec.ATTRIBUTE8 = FND_API.G_MISS_CHAR) THEN
6509: l_temp_party_account_rec.ATTRIBUTE8 := l_curr_party_acct_rec.ATTRIBUTE8 ;
6510: END IF;
6511: IF (p_party_account_rec.ATTRIBUTE9 = FND_API.G_MISS_CHAR) THEN
6512: l_temp_party_account_rec.ATTRIBUTE9 := l_curr_party_acct_rec.ATTRIBUTE9 ;
6507: END IF;
6508: IF (p_party_account_rec.ATTRIBUTE8 = FND_API.G_MISS_CHAR) THEN
6509: l_temp_party_account_rec.ATTRIBUTE8 := l_curr_party_acct_rec.ATTRIBUTE8 ;
6510: END IF;
6511: IF (p_party_account_rec.ATTRIBUTE9 = FND_API.G_MISS_CHAR) THEN
6512: l_temp_party_account_rec.ATTRIBUTE9 := l_curr_party_acct_rec.ATTRIBUTE9 ;
6513: END IF;
6514: IF (p_party_account_rec.ATTRIBUTE10 = FND_API.G_MISS_CHAR) THEN
6515: l_temp_party_account_rec.ATTRIBUTE10 := l_curr_party_acct_rec.ATTRIBUTE10 ;
6510: END IF;
6511: IF (p_party_account_rec.ATTRIBUTE9 = FND_API.G_MISS_CHAR) THEN
6512: l_temp_party_account_rec.ATTRIBUTE9 := l_curr_party_acct_rec.ATTRIBUTE9 ;
6513: END IF;
6514: IF (p_party_account_rec.ATTRIBUTE10 = FND_API.G_MISS_CHAR) THEN
6515: l_temp_party_account_rec.ATTRIBUTE10 := l_curr_party_acct_rec.ATTRIBUTE10 ;
6516: END IF;
6517: IF (p_party_account_rec.ATTRIBUTE11 = FND_API.G_MISS_CHAR) THEN
6518: l_temp_party_account_rec.ATTRIBUTE11 := l_curr_party_acct_rec.ATTRIBUTE11 ;
6513: END IF;
6514: IF (p_party_account_rec.ATTRIBUTE10 = FND_API.G_MISS_CHAR) THEN
6515: l_temp_party_account_rec.ATTRIBUTE10 := l_curr_party_acct_rec.ATTRIBUTE10 ;
6516: END IF;
6517: IF (p_party_account_rec.ATTRIBUTE11 = FND_API.G_MISS_CHAR) THEN
6518: l_temp_party_account_rec.ATTRIBUTE11 := l_curr_party_acct_rec.ATTRIBUTE11 ;
6519: END IF;
6520: IF (p_party_account_rec.ATTRIBUTE12 = FND_API.G_MISS_CHAR) THEN
6521: l_temp_party_account_rec.ATTRIBUTE12 := l_curr_party_acct_rec.ATTRIBUTE12 ;
6516: END IF;
6517: IF (p_party_account_rec.ATTRIBUTE11 = FND_API.G_MISS_CHAR) THEN
6518: l_temp_party_account_rec.ATTRIBUTE11 := l_curr_party_acct_rec.ATTRIBUTE11 ;
6519: END IF;
6520: IF (p_party_account_rec.ATTRIBUTE12 = FND_API.G_MISS_CHAR) THEN
6521: l_temp_party_account_rec.ATTRIBUTE12 := l_curr_party_acct_rec.ATTRIBUTE12 ;
6522: END IF;
6523: IF (p_party_account_rec.ATTRIBUTE13 = FND_API.G_MISS_CHAR) THEN
6524: l_temp_party_account_rec.ATTRIBUTE13 := l_curr_party_acct_rec.ATTRIBUTE13 ;
6519: END IF;
6520: IF (p_party_account_rec.ATTRIBUTE12 = FND_API.G_MISS_CHAR) THEN
6521: l_temp_party_account_rec.ATTRIBUTE12 := l_curr_party_acct_rec.ATTRIBUTE12 ;
6522: END IF;
6523: IF (p_party_account_rec.ATTRIBUTE13 = FND_API.G_MISS_CHAR) THEN
6524: l_temp_party_account_rec.ATTRIBUTE13 := l_curr_party_acct_rec.ATTRIBUTE13 ;
6525: END IF;
6526: IF (p_party_account_rec.ATTRIBUTE14 = FND_API.G_MISS_CHAR) THEN
6527: l_temp_party_account_rec.ATTRIBUTE14 := l_curr_party_acct_rec.ATTRIBUTE14 ;
6522: END IF;
6523: IF (p_party_account_rec.ATTRIBUTE13 = FND_API.G_MISS_CHAR) THEN
6524: l_temp_party_account_rec.ATTRIBUTE13 := l_curr_party_acct_rec.ATTRIBUTE13 ;
6525: END IF;
6526: IF (p_party_account_rec.ATTRIBUTE14 = FND_API.G_MISS_CHAR) THEN
6527: l_temp_party_account_rec.ATTRIBUTE14 := l_curr_party_acct_rec.ATTRIBUTE14 ;
6528: END IF;
6529: IF (p_party_account_rec.ATTRIBUTE15 = FND_API.G_MISS_CHAR) THEN
6530: l_temp_party_account_rec.ATTRIBUTE15 := l_curr_party_acct_rec.ATTRIBUTE15 ;
6525: END IF;
6526: IF (p_party_account_rec.ATTRIBUTE14 = FND_API.G_MISS_CHAR) THEN
6527: l_temp_party_account_rec.ATTRIBUTE14 := l_curr_party_acct_rec.ATTRIBUTE14 ;
6528: END IF;
6529: IF (p_party_account_rec.ATTRIBUTE15 = FND_API.G_MISS_CHAR) THEN
6530: l_temp_party_account_rec.ATTRIBUTE15 := l_curr_party_acct_rec.ATTRIBUTE15 ;
6531: END IF;
6532:
6533: -- Call table handlers to insert into csi_i_parties_h table
6592:
6593: ELSE
6594: -- If the mod value is not equal to zero then dump only the changed columns
6595: -- while the unchanged values have old and new values as null
6596: IF (p_party_account_rec.party_account_id = fnd_api.g_miss_num) OR
6597: NVL(p_party_account_rec.party_account_id, fnd_api.g_miss_num) = NVL(l_curr_party_acct_rec.party_account_id, fnd_api.g_miss_num) THEN
6598: l_account_hist_rec.old_party_account_id := NULL;
6599: l_account_hist_rec.new_party_account_id := NULL;
6600: ELSIF
6593: ELSE
6594: -- If the mod value is not equal to zero then dump only the changed columns
6595: -- while the unchanged values have old and new values as null
6596: IF (p_party_account_rec.party_account_id = fnd_api.g_miss_num) OR
6597: NVL(p_party_account_rec.party_account_id, fnd_api.g_miss_num) = NVL(l_curr_party_acct_rec.party_account_id, fnd_api.g_miss_num) THEN
6598: l_account_hist_rec.old_party_account_id := NULL;
6599: l_account_hist_rec.new_party_account_id := NULL;
6600: ELSIF
6601: NVL(l_curr_party_acct_rec.party_account_id,fnd_api.g_miss_num) <> NVL(p_party_account_rec.party_account_id,fnd_api.g_miss_num) THEN
6597: NVL(p_party_account_rec.party_account_id, fnd_api.g_miss_num) = NVL(l_curr_party_acct_rec.party_account_id, fnd_api.g_miss_num) THEN
6598: l_account_hist_rec.old_party_account_id := NULL;
6599: l_account_hist_rec.new_party_account_id := NULL;
6600: ELSIF
6601: NVL(l_curr_party_acct_rec.party_account_id,fnd_api.g_miss_num) <> NVL(p_party_account_rec.party_account_id,fnd_api.g_miss_num) THEN
6602: l_account_hist_rec.old_party_account_id := l_curr_party_acct_rec.party_account_id ;
6603: l_account_hist_rec.new_party_account_id := p_party_account_rec.party_account_id ;
6604: END IF;
6605: --
6602: l_account_hist_rec.old_party_account_id := l_curr_party_acct_rec.party_account_id ;
6603: l_account_hist_rec.new_party_account_id := p_party_account_rec.party_account_id ;
6604: END IF;
6605: --
6606: IF (p_party_account_rec.relationship_type_code = fnd_api.g_miss_char) OR
6607: NVL(p_party_account_rec.relationship_type_code, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.relationship_type_code, fnd_api.g_miss_char) THEN
6608: l_account_hist_rec.old_relationship_type_code := NULL;
6609: l_account_hist_rec.new_relationship_type_code := NULL;
6610: ELSIF
6603: l_account_hist_rec.new_party_account_id := p_party_account_rec.party_account_id ;
6604: END IF;
6605: --
6606: IF (p_party_account_rec.relationship_type_code = fnd_api.g_miss_char) OR
6607: NVL(p_party_account_rec.relationship_type_code, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.relationship_type_code, fnd_api.g_miss_char) THEN
6608: l_account_hist_rec.old_relationship_type_code := NULL;
6609: l_account_hist_rec.new_relationship_type_code := NULL;
6610: ELSIF
6611: NVL(l_curr_party_acct_rec.relationship_type_code,fnd_api.g_miss_char) <> NVL(p_party_account_rec.relationship_type_code,fnd_api.g_miss_char) THEN
6607: NVL(p_party_account_rec.relationship_type_code, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.relationship_type_code, fnd_api.g_miss_char) THEN
6608: l_account_hist_rec.old_relationship_type_code := NULL;
6609: l_account_hist_rec.new_relationship_type_code := NULL;
6610: ELSIF
6611: NVL(l_curr_party_acct_rec.relationship_type_code,fnd_api.g_miss_char) <> NVL(p_party_account_rec.relationship_type_code,fnd_api.g_miss_char) THEN
6612: l_account_hist_rec.old_relationship_type_code := l_curr_party_acct_rec.relationship_type_code ;
6613: l_account_hist_rec.new_relationship_type_code := p_party_account_rec.relationship_type_code ;
6614: END IF;
6615: --
6612: l_account_hist_rec.old_relationship_type_code := l_curr_party_acct_rec.relationship_type_code ;
6613: l_account_hist_rec.new_relationship_type_code := p_party_account_rec.relationship_type_code ;
6614: END IF;
6615: --
6616: IF (p_party_account_rec.bill_to_address = fnd_api.g_miss_num) OR
6617: NVL(p_party_account_rec.bill_to_address, fnd_api.g_miss_num) = NVL(l_curr_party_acct_rec.bill_to_address, fnd_api.g_miss_num) THEN
6618: l_account_hist_rec.old_bill_to_address := NULL;
6619: l_account_hist_rec.new_bill_to_address := NULL;
6620: ELSIF
6613: l_account_hist_rec.new_relationship_type_code := p_party_account_rec.relationship_type_code ;
6614: END IF;
6615: --
6616: IF (p_party_account_rec.bill_to_address = fnd_api.g_miss_num) OR
6617: NVL(p_party_account_rec.bill_to_address, fnd_api.g_miss_num) = NVL(l_curr_party_acct_rec.bill_to_address, fnd_api.g_miss_num) THEN
6618: l_account_hist_rec.old_bill_to_address := NULL;
6619: l_account_hist_rec.new_bill_to_address := NULL;
6620: ELSIF
6621: NVL(l_curr_party_acct_rec.bill_to_address,fnd_api.g_miss_num) <> NVL(p_party_account_rec.bill_to_address,fnd_api.g_miss_num) THEN
6617: NVL(p_party_account_rec.bill_to_address, fnd_api.g_miss_num) = NVL(l_curr_party_acct_rec.bill_to_address, fnd_api.g_miss_num) THEN
6618: l_account_hist_rec.old_bill_to_address := NULL;
6619: l_account_hist_rec.new_bill_to_address := NULL;
6620: ELSIF
6621: NVL(l_curr_party_acct_rec.bill_to_address,fnd_api.g_miss_num) <> NVL(p_party_account_rec.bill_to_address,fnd_api.g_miss_num) THEN
6622: l_account_hist_rec.old_bill_to_address := l_curr_party_acct_rec.bill_to_address ;
6623: l_account_hist_rec.new_bill_to_address := p_party_account_rec.bill_to_address ;
6624: END IF;
6625: --
6622: l_account_hist_rec.old_bill_to_address := l_curr_party_acct_rec.bill_to_address ;
6623: l_account_hist_rec.new_bill_to_address := p_party_account_rec.bill_to_address ;
6624: END IF;
6625: --
6626: IF (p_party_account_rec.ship_to_address = fnd_api.g_miss_num) OR
6627: NVL(p_party_account_rec.ship_to_address, fnd_api.g_miss_num) = NVL(l_curr_party_acct_rec.ship_to_address, fnd_api.g_miss_num) THEN
6628: l_account_hist_rec.old_ship_to_address := NULL;
6629: l_account_hist_rec.new_ship_to_address := NULL;
6630: ELSIF
6623: l_account_hist_rec.new_bill_to_address := p_party_account_rec.bill_to_address ;
6624: END IF;
6625: --
6626: IF (p_party_account_rec.ship_to_address = fnd_api.g_miss_num) OR
6627: NVL(p_party_account_rec.ship_to_address, fnd_api.g_miss_num) = NVL(l_curr_party_acct_rec.ship_to_address, fnd_api.g_miss_num) THEN
6628: l_account_hist_rec.old_ship_to_address := NULL;
6629: l_account_hist_rec.new_ship_to_address := NULL;
6630: ELSIF
6631: NVL(l_curr_party_acct_rec.ship_to_address,fnd_api.g_miss_num) <> NVL(p_party_account_rec.ship_to_address,fnd_api.g_miss_num) THEN
6627: NVL(p_party_account_rec.ship_to_address, fnd_api.g_miss_num) = NVL(l_curr_party_acct_rec.ship_to_address, fnd_api.g_miss_num) THEN
6628: l_account_hist_rec.old_ship_to_address := NULL;
6629: l_account_hist_rec.new_ship_to_address := NULL;
6630: ELSIF
6631: NVL(l_curr_party_acct_rec.ship_to_address,fnd_api.g_miss_num) <> NVL(p_party_account_rec.ship_to_address,fnd_api.g_miss_num) THEN
6632: l_account_hist_rec.old_ship_to_address := l_curr_party_acct_rec.ship_to_address ;
6633: l_account_hist_rec.new_ship_to_address := p_party_account_rec.ship_to_address ;
6634: END IF;
6635: --
6632: l_account_hist_rec.old_ship_to_address := l_curr_party_acct_rec.ship_to_address ;
6633: l_account_hist_rec.new_ship_to_address := p_party_account_rec.ship_to_address ;
6634: END IF;
6635: --
6636: IF (p_party_account_rec.active_start_date = fnd_api.g_miss_date) OR
6637: NVL(p_party_account_rec.active_start_date, fnd_api.g_miss_date) = NVL(l_curr_party_acct_rec.active_start_date, fnd_api.g_miss_date) THEN
6638: l_account_hist_rec.old_active_start_date := NULL;
6639: l_account_hist_rec.new_active_start_date := NULL;
6640: ELSIF
6633: l_account_hist_rec.new_ship_to_address := p_party_account_rec.ship_to_address ;
6634: END IF;
6635: --
6636: IF (p_party_account_rec.active_start_date = fnd_api.g_miss_date) OR
6637: NVL(p_party_account_rec.active_start_date, fnd_api.g_miss_date) = NVL(l_curr_party_acct_rec.active_start_date, fnd_api.g_miss_date) THEN
6638: l_account_hist_rec.old_active_start_date := NULL;
6639: l_account_hist_rec.new_active_start_date := NULL;
6640: ELSIF
6641: NVL(l_curr_party_acct_rec.active_start_date,fnd_api.g_miss_date) <> NVL(p_party_account_rec.active_start_date,fnd_api.g_miss_date) THEN
6637: NVL(p_party_account_rec.active_start_date, fnd_api.g_miss_date) = NVL(l_curr_party_acct_rec.active_start_date, fnd_api.g_miss_date) THEN
6638: l_account_hist_rec.old_active_start_date := NULL;
6639: l_account_hist_rec.new_active_start_date := NULL;
6640: ELSIF
6641: NVL(l_curr_party_acct_rec.active_start_date,fnd_api.g_miss_date) <> NVL(p_party_account_rec.active_start_date,fnd_api.g_miss_date) THEN
6642: l_account_hist_rec.old_active_start_date := l_curr_party_acct_rec.active_start_date ;
6643: l_account_hist_rec.new_active_start_date := p_party_account_rec.active_start_date ;
6644: END IF;
6645: --
6642: l_account_hist_rec.old_active_start_date := l_curr_party_acct_rec.active_start_date ;
6643: l_account_hist_rec.new_active_start_date := p_party_account_rec.active_start_date ;
6644: END IF;
6645: --
6646: IF --(p_party_account_rec.active_end_date = fnd_api.g_miss_date) OR
6647: (l_acct_end_date= fnd_api.g_miss_date) OR
6648: --NVL(p_party_account_rec.active_end_date, fnd_api.g_miss_date) = NVL(l_curr_party_acct_rec.active_end_date, fnd_api.g_miss_date) THEN
6649: NVL(l_acct_end_date, fnd_api.g_miss_date) = NVL(l_curr_party_acct_rec.active_end_date, fnd_api.g_miss_date) THEN
6650: l_account_hist_rec.old_active_end_date := NULL;
6643: l_account_hist_rec.new_active_start_date := p_party_account_rec.active_start_date ;
6644: END IF;
6645: --
6646: IF --(p_party_account_rec.active_end_date = fnd_api.g_miss_date) OR
6647: (l_acct_end_date= fnd_api.g_miss_date) OR
6648: --NVL(p_party_account_rec.active_end_date, fnd_api.g_miss_date) = NVL(l_curr_party_acct_rec.active_end_date, fnd_api.g_miss_date) THEN
6649: NVL(l_acct_end_date, fnd_api.g_miss_date) = NVL(l_curr_party_acct_rec.active_end_date, fnd_api.g_miss_date) THEN
6650: l_account_hist_rec.old_active_end_date := NULL;
6651: l_account_hist_rec.new_active_end_date := NULL;
6644: END IF;
6645: --
6646: IF --(p_party_account_rec.active_end_date = fnd_api.g_miss_date) OR
6647: (l_acct_end_date= fnd_api.g_miss_date) OR
6648: --NVL(p_party_account_rec.active_end_date, fnd_api.g_miss_date) = NVL(l_curr_party_acct_rec.active_end_date, fnd_api.g_miss_date) THEN
6649: NVL(l_acct_end_date, fnd_api.g_miss_date) = NVL(l_curr_party_acct_rec.active_end_date, fnd_api.g_miss_date) THEN
6650: l_account_hist_rec.old_active_end_date := NULL;
6651: l_account_hist_rec.new_active_end_date := NULL;
6652: ELSIF
6645: --
6646: IF --(p_party_account_rec.active_end_date = fnd_api.g_miss_date) OR
6647: (l_acct_end_date= fnd_api.g_miss_date) OR
6648: --NVL(p_party_account_rec.active_end_date, fnd_api.g_miss_date) = NVL(l_curr_party_acct_rec.active_end_date, fnd_api.g_miss_date) THEN
6649: NVL(l_acct_end_date, fnd_api.g_miss_date) = NVL(l_curr_party_acct_rec.active_end_date, fnd_api.g_miss_date) THEN
6650: l_account_hist_rec.old_active_end_date := NULL;
6651: l_account_hist_rec.new_active_end_date := NULL;
6652: ELSIF
6653: --NVL(l_curr_party_acct_rec.active_end_date,fnd_api.g_miss_date) <> NVL(p_party_account_rec.active_end_date,fnd_api.g_miss_date) THEN
6649: NVL(l_acct_end_date, fnd_api.g_miss_date) = NVL(l_curr_party_acct_rec.active_end_date, fnd_api.g_miss_date) THEN
6650: l_account_hist_rec.old_active_end_date := NULL;
6651: l_account_hist_rec.new_active_end_date := NULL;
6652: ELSIF
6653: --NVL(l_curr_party_acct_rec.active_end_date,fnd_api.g_miss_date) <> NVL(p_party_account_rec.active_end_date,fnd_api.g_miss_date) THEN
6654: NVL(l_curr_party_acct_rec.active_end_date,fnd_api.g_miss_date) <> NVL(l_acct_end_date,fnd_api.g_miss_date) THEN
6655: l_account_hist_rec.old_active_end_date := l_curr_party_acct_rec.active_end_date ;
6656: l_account_hist_rec.new_active_end_date := l_acct_end_date; --p_party_account_rec.active_end_date ;
6657: END IF;
6650: l_account_hist_rec.old_active_end_date := NULL;
6651: l_account_hist_rec.new_active_end_date := NULL;
6652: ELSIF
6653: --NVL(l_curr_party_acct_rec.active_end_date,fnd_api.g_miss_date) <> NVL(p_party_account_rec.active_end_date,fnd_api.g_miss_date) THEN
6654: NVL(l_curr_party_acct_rec.active_end_date,fnd_api.g_miss_date) <> NVL(l_acct_end_date,fnd_api.g_miss_date) THEN
6655: l_account_hist_rec.old_active_end_date := l_curr_party_acct_rec.active_end_date ;
6656: l_account_hist_rec.new_active_end_date := l_acct_end_date; --p_party_account_rec.active_end_date ;
6657: END IF;
6658: --
6655: l_account_hist_rec.old_active_end_date := l_curr_party_acct_rec.active_end_date ;
6656: l_account_hist_rec.new_active_end_date := l_acct_end_date; --p_party_account_rec.active_end_date ;
6657: END IF;
6658: --
6659: IF (p_party_account_rec.context = fnd_api.g_miss_char) OR
6660: NVL(p_party_account_rec.context, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.context, fnd_api.g_miss_char) THEN
6661: l_account_hist_rec.old_context := NULL;
6662: l_account_hist_rec.new_context := NULL;
6663: ELSIF
6656: l_account_hist_rec.new_active_end_date := l_acct_end_date; --p_party_account_rec.active_end_date ;
6657: END IF;
6658: --
6659: IF (p_party_account_rec.context = fnd_api.g_miss_char) OR
6660: NVL(p_party_account_rec.context, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.context, fnd_api.g_miss_char) THEN
6661: l_account_hist_rec.old_context := NULL;
6662: l_account_hist_rec.new_context := NULL;
6663: ELSIF
6664: NVL(l_curr_party_acct_rec.context,fnd_api.g_miss_char) <> NVL(p_party_account_rec.context,fnd_api.g_miss_char) THEN
6660: NVL(p_party_account_rec.context, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.context, fnd_api.g_miss_char) THEN
6661: l_account_hist_rec.old_context := NULL;
6662: l_account_hist_rec.new_context := NULL;
6663: ELSIF
6664: NVL(l_curr_party_acct_rec.context,fnd_api.g_miss_char) <> NVL(p_party_account_rec.context,fnd_api.g_miss_char) THEN
6665: l_account_hist_rec.old_context := l_curr_party_acct_rec.context ;
6666: l_account_hist_rec.new_context := p_party_account_rec.context ;
6667: END IF;
6668: --
6665: l_account_hist_rec.old_context := l_curr_party_acct_rec.context ;
6666: l_account_hist_rec.new_context := p_party_account_rec.context ;
6667: END IF;
6668: --
6669: IF (p_party_account_rec.attribute1 = fnd_api.g_miss_char) OR
6670: NVL(p_party_account_rec.attribute1, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute1, fnd_api.g_miss_char) THEN
6671: l_account_hist_rec.old_attribute1 := NULL;
6672: l_account_hist_rec.new_attribute1 := NULL;
6673: ELSIF
6666: l_account_hist_rec.new_context := p_party_account_rec.context ;
6667: END IF;
6668: --
6669: IF (p_party_account_rec.attribute1 = fnd_api.g_miss_char) OR
6670: NVL(p_party_account_rec.attribute1, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute1, fnd_api.g_miss_char) THEN
6671: l_account_hist_rec.old_attribute1 := NULL;
6672: l_account_hist_rec.new_attribute1 := NULL;
6673: ELSIF
6674: NVL(l_curr_party_acct_rec.attribute1,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute1,fnd_api.g_miss_char) THEN
6670: NVL(p_party_account_rec.attribute1, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute1, fnd_api.g_miss_char) THEN
6671: l_account_hist_rec.old_attribute1 := NULL;
6672: l_account_hist_rec.new_attribute1 := NULL;
6673: ELSIF
6674: NVL(l_curr_party_acct_rec.attribute1,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute1,fnd_api.g_miss_char) THEN
6675: l_account_hist_rec.old_attribute1 := l_curr_party_acct_rec.attribute1 ;
6676: l_account_hist_rec.new_attribute1 := p_party_account_rec.attribute1 ;
6677: END IF;
6678: --
6675: l_account_hist_rec.old_attribute1 := l_curr_party_acct_rec.attribute1 ;
6676: l_account_hist_rec.new_attribute1 := p_party_account_rec.attribute1 ;
6677: END IF;
6678: --
6679: IF (p_party_account_rec.attribute2 = fnd_api.g_miss_char) OR
6680: NVL(p_party_account_rec.attribute2, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute2, fnd_api.g_miss_char) THEN
6681: l_account_hist_rec.old_attribute2 := NULL;
6682: l_account_hist_rec.new_attribute2 := NULL;
6683: ELSIF
6676: l_account_hist_rec.new_attribute1 := p_party_account_rec.attribute1 ;
6677: END IF;
6678: --
6679: IF (p_party_account_rec.attribute2 = fnd_api.g_miss_char) OR
6680: NVL(p_party_account_rec.attribute2, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute2, fnd_api.g_miss_char) THEN
6681: l_account_hist_rec.old_attribute2 := NULL;
6682: l_account_hist_rec.new_attribute2 := NULL;
6683: ELSIF
6684: NVL(l_curr_party_acct_rec.attribute2,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute2,fnd_api.g_miss_char) THEN
6680: NVL(p_party_account_rec.attribute2, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute2, fnd_api.g_miss_char) THEN
6681: l_account_hist_rec.old_attribute2 := NULL;
6682: l_account_hist_rec.new_attribute2 := NULL;
6683: ELSIF
6684: NVL(l_curr_party_acct_rec.attribute2,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute2,fnd_api.g_miss_char) THEN
6685: l_account_hist_rec.old_attribute2 := l_curr_party_acct_rec.attribute2 ;
6686: l_account_hist_rec.new_attribute2 := p_party_account_rec.attribute2 ;
6687: END IF;
6688: --
6685: l_account_hist_rec.old_attribute2 := l_curr_party_acct_rec.attribute2 ;
6686: l_account_hist_rec.new_attribute2 := p_party_account_rec.attribute2 ;
6687: END IF;
6688: --
6689: IF (p_party_account_rec.attribute3 = fnd_api.g_miss_char) OR
6690: NVL(p_party_account_rec.attribute3, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute3, fnd_api.g_miss_char) THEN
6691: l_account_hist_rec.old_attribute3 := NULL;
6692: l_account_hist_rec.new_attribute3 := NULL;
6693: ELSIF
6686: l_account_hist_rec.new_attribute2 := p_party_account_rec.attribute2 ;
6687: END IF;
6688: --
6689: IF (p_party_account_rec.attribute3 = fnd_api.g_miss_char) OR
6690: NVL(p_party_account_rec.attribute3, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute3, fnd_api.g_miss_char) THEN
6691: l_account_hist_rec.old_attribute3 := NULL;
6692: l_account_hist_rec.new_attribute3 := NULL;
6693: ELSIF
6694: NVL(l_curr_party_acct_rec.attribute3,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute3,fnd_api.g_miss_char) THEN
6690: NVL(p_party_account_rec.attribute3, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute3, fnd_api.g_miss_char) THEN
6691: l_account_hist_rec.old_attribute3 := NULL;
6692: l_account_hist_rec.new_attribute3 := NULL;
6693: ELSIF
6694: NVL(l_curr_party_acct_rec.attribute3,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute3,fnd_api.g_miss_char) THEN
6695: l_account_hist_rec.old_attribute3 := l_curr_party_acct_rec.attribute3 ;
6696: l_account_hist_rec.new_attribute3 := p_party_account_rec.attribute3 ;
6697: END IF;
6698: --
6695: l_account_hist_rec.old_attribute3 := l_curr_party_acct_rec.attribute3 ;
6696: l_account_hist_rec.new_attribute3 := p_party_account_rec.attribute3 ;
6697: END IF;
6698: --
6699: IF (p_party_account_rec.attribute4 = fnd_api.g_miss_char) OR
6700: NVL(p_party_account_rec.attribute4, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute4, fnd_api.g_miss_char) THEN
6701: l_account_hist_rec.old_attribute4 := NULL;
6702: l_account_hist_rec.new_attribute4 := NULL;
6703: ELSIF
6696: l_account_hist_rec.new_attribute3 := p_party_account_rec.attribute3 ;
6697: END IF;
6698: --
6699: IF (p_party_account_rec.attribute4 = fnd_api.g_miss_char) OR
6700: NVL(p_party_account_rec.attribute4, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute4, fnd_api.g_miss_char) THEN
6701: l_account_hist_rec.old_attribute4 := NULL;
6702: l_account_hist_rec.new_attribute4 := NULL;
6703: ELSIF
6704: NVL(l_curr_party_acct_rec.attribute4,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute4,fnd_api.g_miss_char) THEN
6700: NVL(p_party_account_rec.attribute4, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute4, fnd_api.g_miss_char) THEN
6701: l_account_hist_rec.old_attribute4 := NULL;
6702: l_account_hist_rec.new_attribute4 := NULL;
6703: ELSIF
6704: NVL(l_curr_party_acct_rec.attribute4,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute4,fnd_api.g_miss_char) THEN
6705: l_account_hist_rec.old_attribute4 := l_curr_party_acct_rec.attribute4 ;
6706: l_account_hist_rec.new_attribute4 := p_party_account_rec.attribute4 ;
6707: END IF;
6708: --
6705: l_account_hist_rec.old_attribute4 := l_curr_party_acct_rec.attribute4 ;
6706: l_account_hist_rec.new_attribute4 := p_party_account_rec.attribute4 ;
6707: END IF;
6708: --
6709: IF (p_party_account_rec.attribute5 = fnd_api.g_miss_char) OR
6710: NVL(p_party_account_rec.attribute5, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute5, fnd_api.g_miss_char) THEN
6711: l_account_hist_rec.old_attribute5 := NULL;
6712: l_account_hist_rec.new_attribute5 := NULL;
6713: ELSIF
6706: l_account_hist_rec.new_attribute4 := p_party_account_rec.attribute4 ;
6707: END IF;
6708: --
6709: IF (p_party_account_rec.attribute5 = fnd_api.g_miss_char) OR
6710: NVL(p_party_account_rec.attribute5, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute5, fnd_api.g_miss_char) THEN
6711: l_account_hist_rec.old_attribute5 := NULL;
6712: l_account_hist_rec.new_attribute5 := NULL;
6713: ELSIF
6714: NVL(l_curr_party_acct_rec.attribute5,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute5,fnd_api.g_miss_char) THEN
6710: NVL(p_party_account_rec.attribute5, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute5, fnd_api.g_miss_char) THEN
6711: l_account_hist_rec.old_attribute5 := NULL;
6712: l_account_hist_rec.new_attribute5 := NULL;
6713: ELSIF
6714: NVL(l_curr_party_acct_rec.attribute5,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute5,fnd_api.g_miss_char) THEN
6715: l_account_hist_rec.old_attribute5 := l_curr_party_acct_rec.attribute5 ;
6716: l_account_hist_rec.new_attribute5 := p_party_account_rec.attribute5 ;
6717: END IF;
6718: --
6715: l_account_hist_rec.old_attribute5 := l_curr_party_acct_rec.attribute5 ;
6716: l_account_hist_rec.new_attribute5 := p_party_account_rec.attribute5 ;
6717: END IF;
6718: --
6719: IF (p_party_account_rec.attribute6 = fnd_api.g_miss_char) OR
6720: NVL(p_party_account_rec.attribute6, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute6, fnd_api.g_miss_char) THEN
6721: l_account_hist_rec.old_attribute6 := NULL;
6722: l_account_hist_rec.new_attribute6 := NULL;
6723: ELSIF
6716: l_account_hist_rec.new_attribute5 := p_party_account_rec.attribute5 ;
6717: END IF;
6718: --
6719: IF (p_party_account_rec.attribute6 = fnd_api.g_miss_char) OR
6720: NVL(p_party_account_rec.attribute6, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute6, fnd_api.g_miss_char) THEN
6721: l_account_hist_rec.old_attribute6 := NULL;
6722: l_account_hist_rec.new_attribute6 := NULL;
6723: ELSIF
6724: NVL(l_curr_party_acct_rec.attribute6,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute6,fnd_api.g_miss_char) THEN
6720: NVL(p_party_account_rec.attribute6, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute6, fnd_api.g_miss_char) THEN
6721: l_account_hist_rec.old_attribute6 := NULL;
6722: l_account_hist_rec.new_attribute6 := NULL;
6723: ELSIF
6724: NVL(l_curr_party_acct_rec.attribute6,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute6,fnd_api.g_miss_char) THEN
6725: l_account_hist_rec.old_attribute6 := l_curr_party_acct_rec.attribute6 ;
6726: l_account_hist_rec.new_attribute6 := p_party_account_rec.attribute6 ;
6727: END IF;
6728: --
6725: l_account_hist_rec.old_attribute6 := l_curr_party_acct_rec.attribute6 ;
6726: l_account_hist_rec.new_attribute6 := p_party_account_rec.attribute6 ;
6727: END IF;
6728: --
6729: IF (p_party_account_rec.attribute7 = fnd_api.g_miss_char) OR
6730: NVL(p_party_account_rec.attribute7, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute7, fnd_api.g_miss_char) THEN
6731: l_account_hist_rec.old_attribute7 := NULL;
6732: l_account_hist_rec.new_attribute7 := NULL;
6733: ELSIF
6726: l_account_hist_rec.new_attribute6 := p_party_account_rec.attribute6 ;
6727: END IF;
6728: --
6729: IF (p_party_account_rec.attribute7 = fnd_api.g_miss_char) OR
6730: NVL(p_party_account_rec.attribute7, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute7, fnd_api.g_miss_char) THEN
6731: l_account_hist_rec.old_attribute7 := NULL;
6732: l_account_hist_rec.new_attribute7 := NULL;
6733: ELSIF
6734: NVL(l_curr_party_acct_rec.attribute7,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute7,fnd_api.g_miss_char) THEN
6730: NVL(p_party_account_rec.attribute7, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute7, fnd_api.g_miss_char) THEN
6731: l_account_hist_rec.old_attribute7 := NULL;
6732: l_account_hist_rec.new_attribute7 := NULL;
6733: ELSIF
6734: NVL(l_curr_party_acct_rec.attribute7,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute7,fnd_api.g_miss_char) THEN
6735: l_account_hist_rec.old_attribute7 := l_curr_party_acct_rec.attribute7 ;
6736: l_account_hist_rec.new_attribute7 := p_party_account_rec.attribute7 ;
6737: END IF;
6738: --
6735: l_account_hist_rec.old_attribute7 := l_curr_party_acct_rec.attribute7 ;
6736: l_account_hist_rec.new_attribute7 := p_party_account_rec.attribute7 ;
6737: END IF;
6738: --
6739: IF (p_party_account_rec.attribute8 = fnd_api.g_miss_char) OR
6740: NVL(p_party_account_rec.attribute8, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute8, fnd_api.g_miss_char) THEN
6741: l_account_hist_rec.old_attribute8 := NULL;
6742: l_account_hist_rec.new_attribute8 := NULL;
6743: ELSIF
6736: l_account_hist_rec.new_attribute7 := p_party_account_rec.attribute7 ;
6737: END IF;
6738: --
6739: IF (p_party_account_rec.attribute8 = fnd_api.g_miss_char) OR
6740: NVL(p_party_account_rec.attribute8, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute8, fnd_api.g_miss_char) THEN
6741: l_account_hist_rec.old_attribute8 := NULL;
6742: l_account_hist_rec.new_attribute8 := NULL;
6743: ELSIF
6744: NVL(l_curr_party_acct_rec.attribute8,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute8,fnd_api.g_miss_char) THEN
6740: NVL(p_party_account_rec.attribute8, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute8, fnd_api.g_miss_char) THEN
6741: l_account_hist_rec.old_attribute8 := NULL;
6742: l_account_hist_rec.new_attribute8 := NULL;
6743: ELSIF
6744: NVL(l_curr_party_acct_rec.attribute8,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute8,fnd_api.g_miss_char) THEN
6745: l_account_hist_rec.old_attribute8 := l_curr_party_acct_rec.attribute8 ;
6746: l_account_hist_rec.new_attribute8 := p_party_account_rec.attribute8 ;
6747: END IF;
6748: --
6745: l_account_hist_rec.old_attribute8 := l_curr_party_acct_rec.attribute8 ;
6746: l_account_hist_rec.new_attribute8 := p_party_account_rec.attribute8 ;
6747: END IF;
6748: --
6749: IF (p_party_account_rec.attribute9 = fnd_api.g_miss_char) OR
6750: NVL(p_party_account_rec.attribute9, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute9, fnd_api.g_miss_char) THEN
6751: l_account_hist_rec.old_attribute9 := NULL;
6752: l_account_hist_rec.new_attribute9 := NULL;
6753: ELSIF
6746: l_account_hist_rec.new_attribute8 := p_party_account_rec.attribute8 ;
6747: END IF;
6748: --
6749: IF (p_party_account_rec.attribute9 = fnd_api.g_miss_char) OR
6750: NVL(p_party_account_rec.attribute9, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute9, fnd_api.g_miss_char) THEN
6751: l_account_hist_rec.old_attribute9 := NULL;
6752: l_account_hist_rec.new_attribute9 := NULL;
6753: ELSIF
6754: NVL(l_curr_party_acct_rec.attribute9,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute9,fnd_api.g_miss_char) THEN
6750: NVL(p_party_account_rec.attribute9, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute9, fnd_api.g_miss_char) THEN
6751: l_account_hist_rec.old_attribute9 := NULL;
6752: l_account_hist_rec.new_attribute9 := NULL;
6753: ELSIF
6754: NVL(l_curr_party_acct_rec.attribute9,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute9,fnd_api.g_miss_char) THEN
6755: l_account_hist_rec.old_attribute9 := l_curr_party_acct_rec.attribute9 ;
6756: l_account_hist_rec.new_attribute9 := p_party_account_rec.attribute9 ;
6757: END IF;
6758: --
6755: l_account_hist_rec.old_attribute9 := l_curr_party_acct_rec.attribute9 ;
6756: l_account_hist_rec.new_attribute9 := p_party_account_rec.attribute9 ;
6757: END IF;
6758: --
6759: IF (p_party_account_rec.attribute10 = fnd_api.g_miss_char) OR
6760: NVL(p_party_account_rec.attribute10, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute10, fnd_api.g_miss_char) THEN
6761: l_account_hist_rec.old_attribute10 := NULL;
6762: l_account_hist_rec.new_attribute10 := NULL;
6763: ELSIF
6756: l_account_hist_rec.new_attribute9 := p_party_account_rec.attribute9 ;
6757: END IF;
6758: --
6759: IF (p_party_account_rec.attribute10 = fnd_api.g_miss_char) OR
6760: NVL(p_party_account_rec.attribute10, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute10, fnd_api.g_miss_char) THEN
6761: l_account_hist_rec.old_attribute10 := NULL;
6762: l_account_hist_rec.new_attribute10 := NULL;
6763: ELSIF
6764: NVL(l_curr_party_acct_rec.attribute10,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute10,fnd_api.g_miss_char) THEN
6760: NVL(p_party_account_rec.attribute10, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute10, fnd_api.g_miss_char) THEN
6761: l_account_hist_rec.old_attribute10 := NULL;
6762: l_account_hist_rec.new_attribute10 := NULL;
6763: ELSIF
6764: NVL(l_curr_party_acct_rec.attribute10,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute10,fnd_api.g_miss_char) THEN
6765: l_account_hist_rec.old_attribute10 := l_curr_party_acct_rec.attribute10 ;
6766: l_account_hist_rec.new_attribute10 := p_party_account_rec.attribute10 ;
6767: END IF;
6768: --
6765: l_account_hist_rec.old_attribute10 := l_curr_party_acct_rec.attribute10 ;
6766: l_account_hist_rec.new_attribute10 := p_party_account_rec.attribute10 ;
6767: END IF;
6768: --
6769: IF (p_party_account_rec.attribute11 = fnd_api.g_miss_char) OR
6770: NVL(p_party_account_rec.attribute11, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute11, fnd_api.g_miss_char) THEN
6771: l_account_hist_rec.old_attribute11 := NULL;
6772: l_account_hist_rec.new_attribute11 := NULL;
6773: ELSIF
6766: l_account_hist_rec.new_attribute10 := p_party_account_rec.attribute10 ;
6767: END IF;
6768: --
6769: IF (p_party_account_rec.attribute11 = fnd_api.g_miss_char) OR
6770: NVL(p_party_account_rec.attribute11, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute11, fnd_api.g_miss_char) THEN
6771: l_account_hist_rec.old_attribute11 := NULL;
6772: l_account_hist_rec.new_attribute11 := NULL;
6773: ELSIF
6774: NVL(l_curr_party_acct_rec.attribute11,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute11,fnd_api.g_miss_char) THEN
6770: NVL(p_party_account_rec.attribute11, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute11, fnd_api.g_miss_char) THEN
6771: l_account_hist_rec.old_attribute11 := NULL;
6772: l_account_hist_rec.new_attribute11 := NULL;
6773: ELSIF
6774: NVL(l_curr_party_acct_rec.attribute11,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute11,fnd_api.g_miss_char) THEN
6775: l_account_hist_rec.old_attribute11 := l_curr_party_acct_rec.attribute11 ;
6776: l_account_hist_rec.new_attribute11 := p_party_account_rec.attribute11 ;
6777: END IF;
6778: --
6775: l_account_hist_rec.old_attribute11 := l_curr_party_acct_rec.attribute11 ;
6776: l_account_hist_rec.new_attribute11 := p_party_account_rec.attribute11 ;
6777: END IF;
6778: --
6779: IF (p_party_account_rec.attribute12 = fnd_api.g_miss_char) OR
6780: NVL(p_party_account_rec.attribute12, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute12, fnd_api.g_miss_char) THEN
6781: l_account_hist_rec.old_attribute12 := NULL;
6782: l_account_hist_rec.new_attribute12 := NULL;
6783: ELSIF
6776: l_account_hist_rec.new_attribute11 := p_party_account_rec.attribute11 ;
6777: END IF;
6778: --
6779: IF (p_party_account_rec.attribute12 = fnd_api.g_miss_char) OR
6780: NVL(p_party_account_rec.attribute12, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute12, fnd_api.g_miss_char) THEN
6781: l_account_hist_rec.old_attribute12 := NULL;
6782: l_account_hist_rec.new_attribute12 := NULL;
6783: ELSIF
6784: NVL(l_curr_party_acct_rec.attribute12,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute12,fnd_api.g_miss_char) THEN
6780: NVL(p_party_account_rec.attribute12, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute12, fnd_api.g_miss_char) THEN
6781: l_account_hist_rec.old_attribute12 := NULL;
6782: l_account_hist_rec.new_attribute12 := NULL;
6783: ELSIF
6784: NVL(l_curr_party_acct_rec.attribute12,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute12,fnd_api.g_miss_char) THEN
6785: l_account_hist_rec.old_attribute12 := l_curr_party_acct_rec.attribute12 ;
6786: l_account_hist_rec.new_attribute12 := p_party_account_rec.attribute12 ;
6787: END IF;
6788: --
6785: l_account_hist_rec.old_attribute12 := l_curr_party_acct_rec.attribute12 ;
6786: l_account_hist_rec.new_attribute12 := p_party_account_rec.attribute12 ;
6787: END IF;
6788: --
6789: IF (p_party_account_rec.attribute13 = fnd_api.g_miss_char) OR
6790: NVL(p_party_account_rec.attribute13, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute13, fnd_api.g_miss_char) THEN
6791: l_account_hist_rec.old_attribute13 := NULL;
6792: l_account_hist_rec.new_attribute13 := NULL;
6793: ELSIF
6786: l_account_hist_rec.new_attribute12 := p_party_account_rec.attribute12 ;
6787: END IF;
6788: --
6789: IF (p_party_account_rec.attribute13 = fnd_api.g_miss_char) OR
6790: NVL(p_party_account_rec.attribute13, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute13, fnd_api.g_miss_char) THEN
6791: l_account_hist_rec.old_attribute13 := NULL;
6792: l_account_hist_rec.new_attribute13 := NULL;
6793: ELSIF
6794: NVL(l_curr_party_acct_rec.attribute13,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute13,fnd_api.g_miss_char) THEN
6790: NVL(p_party_account_rec.attribute13, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute13, fnd_api.g_miss_char) THEN
6791: l_account_hist_rec.old_attribute13 := NULL;
6792: l_account_hist_rec.new_attribute13 := NULL;
6793: ELSIF
6794: NVL(l_curr_party_acct_rec.attribute13,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute13,fnd_api.g_miss_char) THEN
6795: l_account_hist_rec.old_attribute13 := l_curr_party_acct_rec.attribute13 ;
6796: l_account_hist_rec.new_attribute13 := p_party_account_rec.attribute13 ;
6797: END IF;
6798: --
6795: l_account_hist_rec.old_attribute13 := l_curr_party_acct_rec.attribute13 ;
6796: l_account_hist_rec.new_attribute13 := p_party_account_rec.attribute13 ;
6797: END IF;
6798: --
6799: IF (p_party_account_rec.attribute14 = fnd_api.g_miss_char) OR
6800: NVL(p_party_account_rec.attribute14, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute14, fnd_api.g_miss_char) THEN
6801: l_account_hist_rec.old_attribute14 := NULL;
6802: l_account_hist_rec.new_attribute14 := NULL;
6803: ELSIF
6796: l_account_hist_rec.new_attribute13 := p_party_account_rec.attribute13 ;
6797: END IF;
6798: --
6799: IF (p_party_account_rec.attribute14 = fnd_api.g_miss_char) OR
6800: NVL(p_party_account_rec.attribute14, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute14, fnd_api.g_miss_char) THEN
6801: l_account_hist_rec.old_attribute14 := NULL;
6802: l_account_hist_rec.new_attribute14 := NULL;
6803: ELSIF
6804: NVL(l_curr_party_acct_rec.attribute14,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute14,fnd_api.g_miss_char) THEN
6800: NVL(p_party_account_rec.attribute14, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute14, fnd_api.g_miss_char) THEN
6801: l_account_hist_rec.old_attribute14 := NULL;
6802: l_account_hist_rec.new_attribute14 := NULL;
6803: ELSIF
6804: NVL(l_curr_party_acct_rec.attribute14,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute14,fnd_api.g_miss_char) THEN
6805: l_account_hist_rec.old_attribute14 := l_curr_party_acct_rec.attribute14 ;
6806: l_account_hist_rec.new_attribute14 := p_party_account_rec.attribute14 ;
6807: END IF;
6808: --
6805: l_account_hist_rec.old_attribute14 := l_curr_party_acct_rec.attribute14 ;
6806: l_account_hist_rec.new_attribute14 := p_party_account_rec.attribute14 ;
6807: END IF;
6808: --
6809: IF (p_party_account_rec.attribute15 = fnd_api.g_miss_char) OR
6810: NVL(p_party_account_rec.attribute15, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute15, fnd_api.g_miss_char) THEN
6811: l_account_hist_rec.old_attribute15 := NULL;
6812: l_account_hist_rec.new_attribute15 := NULL;
6813: ELSIF
6806: l_account_hist_rec.new_attribute14 := p_party_account_rec.attribute14 ;
6807: END IF;
6808: --
6809: IF (p_party_account_rec.attribute15 = fnd_api.g_miss_char) OR
6810: NVL(p_party_account_rec.attribute15, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute15, fnd_api.g_miss_char) THEN
6811: l_account_hist_rec.old_attribute15 := NULL;
6812: l_account_hist_rec.new_attribute15 := NULL;
6813: ELSIF
6814: NVL(l_curr_party_acct_rec.attribute15,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute15,fnd_api.g_miss_char) THEN
6810: NVL(p_party_account_rec.attribute15, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute15, fnd_api.g_miss_char) THEN
6811: l_account_hist_rec.old_attribute15 := NULL;
6812: l_account_hist_rec.new_attribute15 := NULL;
6813: ELSIF
6814: NVL(l_curr_party_acct_rec.attribute15,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute15,fnd_api.g_miss_char) THEN
6815: l_account_hist_rec.old_attribute15 := l_curr_party_acct_rec.attribute15 ;
6816: l_account_hist_rec.new_attribute15 := p_party_account_rec.attribute15 ;
6817: END IF;
6818: -- Added
6815: l_account_hist_rec.old_attribute15 := l_curr_party_acct_rec.attribute15 ;
6816: l_account_hist_rec.new_attribute15 := p_party_account_rec.attribute15 ;
6817: END IF;
6818: -- Added
6819: IF (p_party_account_rec.instance_party_id = fnd_api.g_miss_num) OR
6820: NVL(p_party_account_rec.instance_party_id, fnd_api.g_miss_num) = NVL(l_curr_party_acct_rec.instance_party_id, fnd_api.g_miss_num) THEN
6821: l_account_hist_rec.old_instance_party_id := NULL;
6822: l_account_hist_rec.new_instance_party_id := NULL;
6823: ELSIF
6816: l_account_hist_rec.new_attribute15 := p_party_account_rec.attribute15 ;
6817: END IF;
6818: -- Added
6819: IF (p_party_account_rec.instance_party_id = fnd_api.g_miss_num) OR
6820: NVL(p_party_account_rec.instance_party_id, fnd_api.g_miss_num) = NVL(l_curr_party_acct_rec.instance_party_id, fnd_api.g_miss_num) THEN
6821: l_account_hist_rec.old_instance_party_id := NULL;
6822: l_account_hist_rec.new_instance_party_id := NULL;
6823: ELSIF
6824: NVL(l_curr_party_acct_rec.instance_party_id,fnd_api.g_miss_num) <> NVL(p_party_account_rec.instance_party_id,fnd_api.g_miss_num) THEN
6820: NVL(p_party_account_rec.instance_party_id, fnd_api.g_miss_num) = NVL(l_curr_party_acct_rec.instance_party_id, fnd_api.g_miss_num) THEN
6821: l_account_hist_rec.old_instance_party_id := NULL;
6822: l_account_hist_rec.new_instance_party_id := NULL;
6823: ELSIF
6824: NVL(l_curr_party_acct_rec.instance_party_id,fnd_api.g_miss_num) <> NVL(p_party_account_rec.instance_party_id,fnd_api.g_miss_num) THEN
6825: l_account_hist_rec.old_instance_party_id := l_curr_party_acct_rec.instance_party_id ;
6826: l_account_hist_rec.new_instance_party_id := p_party_account_rec.instance_party_id ;
6827: END IF;
6828: -- End addition
6898: THEN
6899: -- The following code has been written to make sure
6900: -- before calling contracts we pass a valid vld_organization_id
6901: IF p_party_account_rec.vld_organization_id IS NULL OR
6902: p_party_account_rec.vld_organization_id = fnd_api.g_miss_num
6903: THEN
6904: BEGIN
6905: SELECT last_vld_organization_id
6906: INTO l_last_vld_org
6922: --
6923: IF l_internal_party_id IS NULL THEN
6924: FND_MESSAGE.SET_NAME('CSI','CSI_API_UNINSTALLED_PARAMETER');
6925: FND_MSG_PUB.ADD;
6926: RAISE FND_API.G_EXC_ERROR;
6927: END IF;
6928: -- Commenting as we are not using this code
6929: -- Uncommented following code for bug 13614080
6930: l_old_party_id := null;
6944:
6945: IF l_old_pty_acct_id IS NOT NULL
6946: -- l_party_rec.Party_id <> l_internal_party_id -- changed from p_party_account_rec.party_account_id --commented for bug 13614080
6947: AND p_party_account_rec.party_account_id <> l_old_pty_acct_id
6948: AND p_party_account_rec.party_account_id <> fnd_api.g_miss_num
6949: THEN
6950: -- start code fix for bug 13614080
6951: IF l_old_party_id = l_internal_party_id THEN
6952: l_transaction_type := 'NEW';
6958: -- End code fix for bug 13614080
6959: ELSIF l_old_pty_acct_id IS NULL AND
6960: l_party_rec.party_id <> l_internal_party_id -- changed from p_party_account_rec.party_account_id
6961: AND p_party_account_rec.party_account_id IS NOT NULL
6962: AND p_party_account_rec.party_account_id <> fnd_api.g_miss_num
6963: THEN
6964: l_transaction_type := 'NEW';
6965: l_new_pty_acct_id := NULL;
6966: /* ELSIF p_party_account_rec.party_account_id = l_internal_party_id
6965: l_new_pty_acct_id := NULL;
6966: /* ELSIF p_party_account_rec.party_account_id = l_internal_party_id
6967: OR ( l_old_pty_acct_id <> l_internal_party_id
6968: AND p_party_account_rec.active_end_date <= sysdate
6969: AND p_party_account_rec.active_end_date <> fnd_api.g_miss_date )
6970: THEN */
6971: -- srramakr commneted the above code and checked for old and new party ID
6972: ELSIF /*l_old_party_id IS NOT NULL AND
6973: l_new_party_id IS NOT NULL AND
6973: l_new_party_id IS NOT NULL AND
6974: l_old_party_id <> l_internal_party_id AND
6975: l_new_party_id = l_internal_party_id */
6976: p_party_account_rec.active_end_date IS NOT NULL AND
6977: p_party_account_rec.active_end_date <> fnd_api.g_miss_date AND
6978: p_party_account_rec.active_end_date <= sysdate
6979: THEN -- external to internal
6980: IF p_txn_rec.transaction_type_id in (53,54) THEN -- RMA
6981: l_transaction_type := 'RET';
6992: END IF;
6993: --
6994: --Changes for Bug 11679952
6995: IF l_transaction_type IS NOT NULL AND
6996: p_party_account_rec.call_contracts <> fnd_api.g_false AND
6997: p_txn_rec.transaction_type_id <> 7 -- Added for bug 3973706
6998: AND nvl(p_txn_rec.source_group_ref, FND_API.G_MISS_CHAR) <> 'WBADI' --Added for Bug 11679952
6999: THEN
7000: IF l_transaction_type = 'TRF' THEN
6994: --Changes for Bug 11679952
6995: IF l_transaction_type IS NOT NULL AND
6996: p_party_account_rec.call_contracts <> fnd_api.g_false AND
6997: p_txn_rec.transaction_type_id <> 7 -- Added for bug 3973706
6998: AND nvl(p_txn_rec.source_group_ref, FND_API.G_MISS_CHAR) <> 'WBADI' --Added for Bug 11679952
6999: THEN
7000: IF l_transaction_type = 'TRF' THEN
7001: -- Added the following code for bug 2972082
7002: IF nvl(p_party_account_rec.cascade_ownership_flag,'N')='Y' THEN
7021: ,x_msg_count => x_msg_count
7022: ,x_msg_data => x_msg_data
7023: );
7024:
7025: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
7026: csi_gen_utility_pvt.put_line('Cascade Ownership - Call to contracts with TRM txn type has errored ');
7027: l_msg_index := 1;
7028: l_msg_count := x_msg_count;
7029: WHILE l_msg_count > 0 LOOP
7028: l_msg_count := x_msg_count;
7029: WHILE l_msg_count > 0 LOOP
7030: x_msg_data := FND_MSG_PUB.GET(
7031: l_msg_index,
7032: FND_API.G_FALSE );
7033: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
7034: l_msg_index := l_msg_index + 1;
7035: l_msg_count := l_msg_count - 1;
7036: END LOOP;
7033: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
7034: l_msg_index := l_msg_index + 1;
7035: l_msg_count := l_msg_count - 1;
7036: END LOOP;
7037: RAISE FND_API.G_EXC_ERROR;
7038: END IF;
7039: csi_gen_utility_pvt.put_line( 'Calling contracts with NEW transaction type for instance '||l_party_rec.instance_id);
7040:
7041: csi_item_instance_pvt.Call_to_Contracts(
7054: ,x_return_status => x_return_status
7055: ,x_msg_count => x_msg_count
7056: ,x_msg_data => x_msg_data
7057: );
7058: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
7059: csi_gen_utility_pvt.put_line('Cascade Ownership - Call to contracts with NEW txn type has errored ');
7060: l_msg_index := 1;
7061: l_msg_count := x_msg_count;
7062: WHILE l_msg_count > 0 LOOP
7061: l_msg_count := x_msg_count;
7062: WHILE l_msg_count > 0 LOOP
7063: x_msg_data := FND_MSG_PUB.GET(
7064: l_msg_index,
7065: FND_API.G_FALSE );
7066: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
7067: l_msg_index := l_msg_index + 1;
7068: l_msg_count := l_msg_count - 1;
7069: END LOOP;
7066: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
7067: l_msg_index := l_msg_index + 1;
7068: l_msg_count := l_msg_count - 1;
7069: END LOOP;
7070: RAISE FND_API.G_EXC_ERROR;
7071: END IF;
7072: -- End addition for bug 2972082
7073: ELSE
7074: csi_item_instance_pvt.Call_to_Contracts(
7108: ,x_msg_count => x_msg_count
7109: ,x_msg_data => x_msg_data
7110: );
7111: END IF;
7112: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
7113: l_msg_index := 1;
7114: l_msg_count := x_msg_count;
7115: WHILE l_msg_count > 0 LOOP
7116: x_msg_data := FND_MSG_PUB.GET(
7114: l_msg_count := x_msg_count;
7115: WHILE l_msg_count > 0 LOOP
7116: x_msg_data := FND_MSG_PUB.GET(
7117: l_msg_index,
7118: FND_API.G_FALSE );
7119: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
7120: l_msg_index := l_msg_index + 1;
7121: l_msg_count := l_msg_count - 1;
7122: END LOOP;
7119: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
7120: l_msg_index := l_msg_index + 1;
7121: l_msg_count := l_msg_count - 1;
7122: END LOOP;
7123: RAISE FND_API.G_EXC_ERROR;
7124: END IF;
7125: END IF;
7126: END IF;
7127: -- End addition by sguthiva for bug 2307804
7127: -- End addition by sguthiva for bug 2307804
7128: --
7129: -- End of API body
7130: -- Standard check of p_commit.
7131: IF FND_API.To_Boolean( p_commit ) THEN
7132: COMMIT WORK;
7133: END IF;
7134: -- Standard call to get message count and if count is get message info.
7135: FND_MSG_PUB.Count_And_Get
7135: FND_MSG_PUB.Count_And_Get
7136: (p_count => x_msg_count ,
7137: p_data => x_msg_data );
7138: EXCEPTION
7139: WHEN FND_API.G_EXC_ERROR THEN
7140: -- ROLLBACK TO update_inst_party_acct_pvt;
7141: x_return_status := FND_API.G_RET_STS_ERROR ;
7142: FND_MSG_PUB.Count_And_Get
7143: ( p_count => x_msg_count,
7137: p_data => x_msg_data );
7138: EXCEPTION
7139: WHEN FND_API.G_EXC_ERROR THEN
7140: -- ROLLBACK TO update_inst_party_acct_pvt;
7141: x_return_status := FND_API.G_RET_STS_ERROR ;
7142: FND_MSG_PUB.Count_And_Get
7143: ( p_count => x_msg_count,
7144: p_data => x_msg_data );
7145: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7141: x_return_status := FND_API.G_RET_STS_ERROR ;
7142: FND_MSG_PUB.Count_And_Get
7143: ( p_count => x_msg_count,
7144: p_data => x_msg_data );
7145: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7146: -- ROLLBACK TO update_inst_party_acct_pvt;
7147: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7148: FND_MSG_PUB.Count_And_Get
7149: ( p_count => x_msg_count,
7143: ( p_count => x_msg_count,
7144: p_data => x_msg_data );
7145: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7146: -- ROLLBACK TO update_inst_party_acct_pvt;
7147: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7148: FND_MSG_PUB.Count_And_Get
7149: ( p_count => x_msg_count,
7150: p_data => x_msg_data );
7151: WHEN OTHERS THEN
7149: ( p_count => x_msg_count,
7150: p_data => x_msg_data );
7151: WHEN OTHERS THEN
7152: -- ROLLBACK TO update_inst_party_acct_pvt;
7153: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7154: IF FND_MSG_PUB.Check_Msg_Level
7155: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7156: THEN
7157: FND_MSG_PUB.Add_Exc_Msg
7199:
7200: CURSOR get_curr_party_acct_rec (p_ip_account_id IN NUMBER) IS
7201: SELECT
7202: ip_account_id ,
7203: FND_API.G_MISS_NUM parent_tbl_index,
7204: instance_party_id ,
7205: party_account_id ,
7206: relationship_type_code ,
7207: bill_to_address ,
7236: -- Standard Start of API savepoint
7237: SAVEPOINT expire_inst_party_acct_pvt;
7238:
7239: -- Standard call to check for call compatibility.
7240: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
7241: p_api_version ,
7242: l_api_name ,
7243: g_pkg_name )
7244: THEN
7241: p_api_version ,
7242: l_api_name ,
7243: g_pkg_name )
7244: THEN
7245: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7246: END IF;
7247:
7248: -- Initialize message list if p_init_msg_list is set to TRUE.
7249: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7245: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7246: END IF;
7247:
7248: -- Initialize message list if p_init_msg_list is set to TRUE.
7249: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7250: FND_MSG_PUB.initialize;
7251: END IF;
7252:
7253: -- Initialize API return status to success
7250: FND_MSG_PUB.initialize;
7251: END IF;
7252:
7253: -- Initialize API return status to success
7254: x_return_status := FND_API.G_RET_STS_SUCCESS;
7255:
7256: -- Check the profile option CSI_DEBUG_LEVEL for debug message reporting
7257: l_csi_debug_level:=fnd_profile.value('CSI_DEBUG_LEVEL');
7258:
7292: (p_party_account_rec.ip_account_id))THEN
7293: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_IP_ACCOUNT_ID');
7294: FND_MESSAGE.SET_TOKEN('IP_ACCOUNT_ID',p_party_account_rec.ip_account_id);
7295: FND_MSG_PUB.Add;
7296: RAISE FND_API.G_EXC_ERROR;
7297: END IF;
7298: -- check if the object_version_number passed matches with the one
7299: -- in the database else raise error
7300: OPEN get_curr_party_acct_rec(p_party_account_rec.ip_account_id);
7302:
7303: IF (l_curr_party_acct_rec.object_version_number <> p_party_account_rec.OBJECT_VERSION_NUMBER) THEN
7304: FND_MESSAGE.Set_Name('CSI', 'CSI_API_OBJ_VER_MISMATCH');
7305: FND_MSG_PUB.ADD;
7306: RAISE FND_API.G_EXC_ERROR;
7307: END IF;
7308: --
7309: IF get_curr_party_acct_rec%NOTFOUND THEN
7310: FND_MESSAGE.Set_Name('CSI', 'CSI_API_RECORD_LOCKED');
7308: --
7309: IF get_curr_party_acct_rec%NOTFOUND THEN
7310: FND_MESSAGE.Set_Name('CSI', 'CSI_API_RECORD_LOCKED');
7311: FND_MSG_PUB.ADD;
7312: RAISE FND_API.G_EXC_ERROR;
7313: END IF;
7314: CLOSE get_curr_party_acct_rec;
7315: -- Initialize all the parameters and call upate_inst_party_account to expire the record
7316:
7314: CLOSE get_curr_party_acct_rec;
7315: -- Initialize all the parameters and call upate_inst_party_account to expire the record
7316:
7317: l_party_account_rec.IP_ACCOUNT_ID := l_curr_party_acct_rec.ip_account_id;
7318: l_party_account_rec.INSTANCE_PARTY_ID := FND_API.G_MISS_NUM;
7319: l_party_account_rec.PARTY_ACCOUNT_ID := l_curr_party_acct_rec.party_account_id; -- Added by sguthiva for bug 2307804
7320: l_party_account_rec.RELATIONSHIP_TYPE_CODE := l_curr_party_acct_rec.relationship_type_code;-- Added by sguthiva for bug 2307804 l_party_account_rec.ACTIVE_START_DATE := FND_API.G_MISS_DATE;
7321: -- Bug 3804960
7322: -- srramakr Need to use the same the date used by the item instance
7316:
7317: l_party_account_rec.IP_ACCOUNT_ID := l_curr_party_acct_rec.ip_account_id;
7318: l_party_account_rec.INSTANCE_PARTY_ID := FND_API.G_MISS_NUM;
7319: l_party_account_rec.PARTY_ACCOUNT_ID := l_curr_party_acct_rec.party_account_id; -- Added by sguthiva for bug 2307804
7320: l_party_account_rec.RELATIONSHIP_TYPE_CODE := l_curr_party_acct_rec.relationship_type_code;-- Added by sguthiva for bug 2307804 l_party_account_rec.ACTIVE_START_DATE := FND_API.G_MISS_DATE;
7321: -- Bug 3804960
7322: -- srramakr Need to use the same the date used by the item instance
7323: IF p_txn_rec.src_txn_creation_date IS NULL OR
7324: p_txn_rec.src_txn_creation_date = FND_API.G_MISS_DATE THEN
7320: l_party_account_rec.RELATIONSHIP_TYPE_CODE := l_curr_party_acct_rec.relationship_type_code;-- Added by sguthiva for bug 2307804 l_party_account_rec.ACTIVE_START_DATE := FND_API.G_MISS_DATE;
7321: -- Bug 3804960
7322: -- srramakr Need to use the same the date used by the item instance
7323: IF p_txn_rec.src_txn_creation_date IS NULL OR
7324: p_txn_rec.src_txn_creation_date = FND_API.G_MISS_DATE THEN
7325: l_party_account_rec.active_end_date := sysdate;
7326: ELSE
7327: l_party_account_rec.active_end_date := p_txn_rec.src_txn_creation_date;
7328: END IF;
7326: ELSE
7327: l_party_account_rec.active_end_date := p_txn_rec.src_txn_creation_date;
7328: END IF;
7329: -- End of 3804960
7330: l_party_account_rec.CONTEXT := FND_API.G_MISS_CHAR;
7331: l_party_account_rec.ATTRIBUTE1 := FND_API.G_MISS_CHAR;
7332: l_party_account_rec.ATTRIBUTE2 := FND_API.G_MISS_CHAR;
7333: l_party_account_rec.ATTRIBUTE3 := FND_API.G_MISS_CHAR;
7334: l_party_account_rec.ATTRIBUTE4 := FND_API.G_MISS_CHAR;
7327: l_party_account_rec.active_end_date := p_txn_rec.src_txn_creation_date;
7328: END IF;
7329: -- End of 3804960
7330: l_party_account_rec.CONTEXT := FND_API.G_MISS_CHAR;
7331: l_party_account_rec.ATTRIBUTE1 := FND_API.G_MISS_CHAR;
7332: l_party_account_rec.ATTRIBUTE2 := FND_API.G_MISS_CHAR;
7333: l_party_account_rec.ATTRIBUTE3 := FND_API.G_MISS_CHAR;
7334: l_party_account_rec.ATTRIBUTE4 := FND_API.G_MISS_CHAR;
7335: l_party_account_rec.ATTRIBUTE5 := FND_API.G_MISS_CHAR;
7328: END IF;
7329: -- End of 3804960
7330: l_party_account_rec.CONTEXT := FND_API.G_MISS_CHAR;
7331: l_party_account_rec.ATTRIBUTE1 := FND_API.G_MISS_CHAR;
7332: l_party_account_rec.ATTRIBUTE2 := FND_API.G_MISS_CHAR;
7333: l_party_account_rec.ATTRIBUTE3 := FND_API.G_MISS_CHAR;
7334: l_party_account_rec.ATTRIBUTE4 := FND_API.G_MISS_CHAR;
7335: l_party_account_rec.ATTRIBUTE5 := FND_API.G_MISS_CHAR;
7336: l_party_account_rec.ATTRIBUTE6 := FND_API.G_MISS_CHAR;
7329: -- End of 3804960
7330: l_party_account_rec.CONTEXT := FND_API.G_MISS_CHAR;
7331: l_party_account_rec.ATTRIBUTE1 := FND_API.G_MISS_CHAR;
7332: l_party_account_rec.ATTRIBUTE2 := FND_API.G_MISS_CHAR;
7333: l_party_account_rec.ATTRIBUTE3 := FND_API.G_MISS_CHAR;
7334: l_party_account_rec.ATTRIBUTE4 := FND_API.G_MISS_CHAR;
7335: l_party_account_rec.ATTRIBUTE5 := FND_API.G_MISS_CHAR;
7336: l_party_account_rec.ATTRIBUTE6 := FND_API.G_MISS_CHAR;
7337: l_party_account_rec.ATTRIBUTE7 := FND_API.G_MISS_CHAR;
7330: l_party_account_rec.CONTEXT := FND_API.G_MISS_CHAR;
7331: l_party_account_rec.ATTRIBUTE1 := FND_API.G_MISS_CHAR;
7332: l_party_account_rec.ATTRIBUTE2 := FND_API.G_MISS_CHAR;
7333: l_party_account_rec.ATTRIBUTE3 := FND_API.G_MISS_CHAR;
7334: l_party_account_rec.ATTRIBUTE4 := FND_API.G_MISS_CHAR;
7335: l_party_account_rec.ATTRIBUTE5 := FND_API.G_MISS_CHAR;
7336: l_party_account_rec.ATTRIBUTE6 := FND_API.G_MISS_CHAR;
7337: l_party_account_rec.ATTRIBUTE7 := FND_API.G_MISS_CHAR;
7338: l_party_account_rec.ATTRIBUTE8 := FND_API.G_MISS_CHAR;
7331: l_party_account_rec.ATTRIBUTE1 := FND_API.G_MISS_CHAR;
7332: l_party_account_rec.ATTRIBUTE2 := FND_API.G_MISS_CHAR;
7333: l_party_account_rec.ATTRIBUTE3 := FND_API.G_MISS_CHAR;
7334: l_party_account_rec.ATTRIBUTE4 := FND_API.G_MISS_CHAR;
7335: l_party_account_rec.ATTRIBUTE5 := FND_API.G_MISS_CHAR;
7336: l_party_account_rec.ATTRIBUTE6 := FND_API.G_MISS_CHAR;
7337: l_party_account_rec.ATTRIBUTE7 := FND_API.G_MISS_CHAR;
7338: l_party_account_rec.ATTRIBUTE8 := FND_API.G_MISS_CHAR;
7339: l_party_account_rec.ATTRIBUTE9 := FND_API.G_MISS_CHAR;
7332: l_party_account_rec.ATTRIBUTE2 := FND_API.G_MISS_CHAR;
7333: l_party_account_rec.ATTRIBUTE3 := FND_API.G_MISS_CHAR;
7334: l_party_account_rec.ATTRIBUTE4 := FND_API.G_MISS_CHAR;
7335: l_party_account_rec.ATTRIBUTE5 := FND_API.G_MISS_CHAR;
7336: l_party_account_rec.ATTRIBUTE6 := FND_API.G_MISS_CHAR;
7337: l_party_account_rec.ATTRIBUTE7 := FND_API.G_MISS_CHAR;
7338: l_party_account_rec.ATTRIBUTE8 := FND_API.G_MISS_CHAR;
7339: l_party_account_rec.ATTRIBUTE9 := FND_API.G_MISS_CHAR;
7340: l_party_account_rec.ATTRIBUTE10 := FND_API.G_MISS_CHAR;
7333: l_party_account_rec.ATTRIBUTE3 := FND_API.G_MISS_CHAR;
7334: l_party_account_rec.ATTRIBUTE4 := FND_API.G_MISS_CHAR;
7335: l_party_account_rec.ATTRIBUTE5 := FND_API.G_MISS_CHAR;
7336: l_party_account_rec.ATTRIBUTE6 := FND_API.G_MISS_CHAR;
7337: l_party_account_rec.ATTRIBUTE7 := FND_API.G_MISS_CHAR;
7338: l_party_account_rec.ATTRIBUTE8 := FND_API.G_MISS_CHAR;
7339: l_party_account_rec.ATTRIBUTE9 := FND_API.G_MISS_CHAR;
7340: l_party_account_rec.ATTRIBUTE10 := FND_API.G_MISS_CHAR;
7341: l_party_account_rec.ATTRIBUTE11 := FND_API.G_MISS_CHAR;
7334: l_party_account_rec.ATTRIBUTE4 := FND_API.G_MISS_CHAR;
7335: l_party_account_rec.ATTRIBUTE5 := FND_API.G_MISS_CHAR;
7336: l_party_account_rec.ATTRIBUTE6 := FND_API.G_MISS_CHAR;
7337: l_party_account_rec.ATTRIBUTE7 := FND_API.G_MISS_CHAR;
7338: l_party_account_rec.ATTRIBUTE8 := FND_API.G_MISS_CHAR;
7339: l_party_account_rec.ATTRIBUTE9 := FND_API.G_MISS_CHAR;
7340: l_party_account_rec.ATTRIBUTE10 := FND_API.G_MISS_CHAR;
7341: l_party_account_rec.ATTRIBUTE11 := FND_API.G_MISS_CHAR;
7342: l_party_account_rec.ATTRIBUTE12 := FND_API.G_MISS_CHAR;
7335: l_party_account_rec.ATTRIBUTE5 := FND_API.G_MISS_CHAR;
7336: l_party_account_rec.ATTRIBUTE6 := FND_API.G_MISS_CHAR;
7337: l_party_account_rec.ATTRIBUTE7 := FND_API.G_MISS_CHAR;
7338: l_party_account_rec.ATTRIBUTE8 := FND_API.G_MISS_CHAR;
7339: l_party_account_rec.ATTRIBUTE9 := FND_API.G_MISS_CHAR;
7340: l_party_account_rec.ATTRIBUTE10 := FND_API.G_MISS_CHAR;
7341: l_party_account_rec.ATTRIBUTE11 := FND_API.G_MISS_CHAR;
7342: l_party_account_rec.ATTRIBUTE12 := FND_API.G_MISS_CHAR;
7343: l_party_account_rec.ATTRIBUTE13 := FND_API.G_MISS_CHAR;
7336: l_party_account_rec.ATTRIBUTE6 := FND_API.G_MISS_CHAR;
7337: l_party_account_rec.ATTRIBUTE7 := FND_API.G_MISS_CHAR;
7338: l_party_account_rec.ATTRIBUTE8 := FND_API.G_MISS_CHAR;
7339: l_party_account_rec.ATTRIBUTE9 := FND_API.G_MISS_CHAR;
7340: l_party_account_rec.ATTRIBUTE10 := FND_API.G_MISS_CHAR;
7341: l_party_account_rec.ATTRIBUTE11 := FND_API.G_MISS_CHAR;
7342: l_party_account_rec.ATTRIBUTE12 := FND_API.G_MISS_CHAR;
7343: l_party_account_rec.ATTRIBUTE13 := FND_API.G_MISS_CHAR;
7344: l_party_account_rec.ATTRIBUTE14 := FND_API.G_MISS_CHAR;
7337: l_party_account_rec.ATTRIBUTE7 := FND_API.G_MISS_CHAR;
7338: l_party_account_rec.ATTRIBUTE8 := FND_API.G_MISS_CHAR;
7339: l_party_account_rec.ATTRIBUTE9 := FND_API.G_MISS_CHAR;
7340: l_party_account_rec.ATTRIBUTE10 := FND_API.G_MISS_CHAR;
7341: l_party_account_rec.ATTRIBUTE11 := FND_API.G_MISS_CHAR;
7342: l_party_account_rec.ATTRIBUTE12 := FND_API.G_MISS_CHAR;
7343: l_party_account_rec.ATTRIBUTE13 := FND_API.G_MISS_CHAR;
7344: l_party_account_rec.ATTRIBUTE14 := FND_API.G_MISS_CHAR;
7345: l_party_account_rec.ATTRIBUTE15 := FND_API.G_MISS_CHAR;
7338: l_party_account_rec.ATTRIBUTE8 := FND_API.G_MISS_CHAR;
7339: l_party_account_rec.ATTRIBUTE9 := FND_API.G_MISS_CHAR;
7340: l_party_account_rec.ATTRIBUTE10 := FND_API.G_MISS_CHAR;
7341: l_party_account_rec.ATTRIBUTE11 := FND_API.G_MISS_CHAR;
7342: l_party_account_rec.ATTRIBUTE12 := FND_API.G_MISS_CHAR;
7343: l_party_account_rec.ATTRIBUTE13 := FND_API.G_MISS_CHAR;
7344: l_party_account_rec.ATTRIBUTE14 := FND_API.G_MISS_CHAR;
7345: l_party_account_rec.ATTRIBUTE15 := FND_API.G_MISS_CHAR;
7346: l_party_account_rec.BILL_TO_ADDRESS := FND_API.G_MISS_NUM;
7339: l_party_account_rec.ATTRIBUTE9 := FND_API.G_MISS_CHAR;
7340: l_party_account_rec.ATTRIBUTE10 := FND_API.G_MISS_CHAR;
7341: l_party_account_rec.ATTRIBUTE11 := FND_API.G_MISS_CHAR;
7342: l_party_account_rec.ATTRIBUTE12 := FND_API.G_MISS_CHAR;
7343: l_party_account_rec.ATTRIBUTE13 := FND_API.G_MISS_CHAR;
7344: l_party_account_rec.ATTRIBUTE14 := FND_API.G_MISS_CHAR;
7345: l_party_account_rec.ATTRIBUTE15 := FND_API.G_MISS_CHAR;
7346: l_party_account_rec.BILL_TO_ADDRESS := FND_API.G_MISS_NUM;
7347: l_party_account_rec.SHIP_TO_ADDRESS := FND_API.G_MISS_NUM;
7340: l_party_account_rec.ATTRIBUTE10 := FND_API.G_MISS_CHAR;
7341: l_party_account_rec.ATTRIBUTE11 := FND_API.G_MISS_CHAR;
7342: l_party_account_rec.ATTRIBUTE12 := FND_API.G_MISS_CHAR;
7343: l_party_account_rec.ATTRIBUTE13 := FND_API.G_MISS_CHAR;
7344: l_party_account_rec.ATTRIBUTE14 := FND_API.G_MISS_CHAR;
7345: l_party_account_rec.ATTRIBUTE15 := FND_API.G_MISS_CHAR;
7346: l_party_account_rec.BILL_TO_ADDRESS := FND_API.G_MISS_NUM;
7347: l_party_account_rec.SHIP_TO_ADDRESS := FND_API.G_MISS_NUM;
7348: l_party_account_rec.OBJECT_VERSION_NUMBER := p_party_account_rec.OBJECT_VERSION_NUMBER;
7341: l_party_account_rec.ATTRIBUTE11 := FND_API.G_MISS_CHAR;
7342: l_party_account_rec.ATTRIBUTE12 := FND_API.G_MISS_CHAR;
7343: l_party_account_rec.ATTRIBUTE13 := FND_API.G_MISS_CHAR;
7344: l_party_account_rec.ATTRIBUTE14 := FND_API.G_MISS_CHAR;
7345: l_party_account_rec.ATTRIBUTE15 := FND_API.G_MISS_CHAR;
7346: l_party_account_rec.BILL_TO_ADDRESS := FND_API.G_MISS_NUM;
7347: l_party_account_rec.SHIP_TO_ADDRESS := FND_API.G_MISS_NUM;
7348: l_party_account_rec.OBJECT_VERSION_NUMBER := p_party_account_rec.OBJECT_VERSION_NUMBER;
7349: l_party_account_rec.expire_flag := p_party_account_rec.expire_flag; -- Added by sguthiva for bug 2307804
7342: l_party_account_rec.ATTRIBUTE12 := FND_API.G_MISS_CHAR;
7343: l_party_account_rec.ATTRIBUTE13 := FND_API.G_MISS_CHAR;
7344: l_party_account_rec.ATTRIBUTE14 := FND_API.G_MISS_CHAR;
7345: l_party_account_rec.ATTRIBUTE15 := FND_API.G_MISS_CHAR;
7346: l_party_account_rec.BILL_TO_ADDRESS := FND_API.G_MISS_NUM;
7347: l_party_account_rec.SHIP_TO_ADDRESS := FND_API.G_MISS_NUM;
7348: l_party_account_rec.OBJECT_VERSION_NUMBER := p_party_account_rec.OBJECT_VERSION_NUMBER;
7349: l_party_account_rec.expire_flag := p_party_account_rec.expire_flag; -- Added by sguthiva for bug 2307804
7350: l_party_account_rec.call_contracts := p_party_account_rec.call_contracts; -- Added by sguthiva for bug 2307804
7343: l_party_account_rec.ATTRIBUTE13 := FND_API.G_MISS_CHAR;
7344: l_party_account_rec.ATTRIBUTE14 := FND_API.G_MISS_CHAR;
7345: l_party_account_rec.ATTRIBUTE15 := FND_API.G_MISS_CHAR;
7346: l_party_account_rec.BILL_TO_ADDRESS := FND_API.G_MISS_NUM;
7347: l_party_account_rec.SHIP_TO_ADDRESS := FND_API.G_MISS_NUM;
7348: l_party_account_rec.OBJECT_VERSION_NUMBER := p_party_account_rec.OBJECT_VERSION_NUMBER;
7349: l_party_account_rec.expire_flag := p_party_account_rec.expire_flag; -- Added by sguthiva for bug 2307804
7350: l_party_account_rec.call_contracts := p_party_account_rec.call_contracts; -- Added by sguthiva for bug 2307804
7351: -- g_expire_account_flag := 'Y'; -- Added by sguthiva for bug 2307804
7362: ,x_msg_count => x_msg_count
7363: ,x_msg_data => x_msg_data);
7364: --
7365: --g_expire_account_flag := 'N'; -- Added by sguthiva for bug 2307804
7366: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
7367: l_msg_index := 1;
7368: l_msg_count := x_msg_count;
7369: WHILE l_msg_count > 0 LOOP
7370: x_msg_data := FND_MSG_PUB.GET(
7368: l_msg_count := x_msg_count;
7369: WHILE l_msg_count > 0 LOOP
7370: x_msg_data := FND_MSG_PUB.GET(
7371: l_msg_index,
7372: FND_API.G_FALSE );
7373: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
7374: l_msg_index := l_msg_index + 1;
7375: l_msg_count := l_msg_count - 1;
7376: END LOOP;
7373: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
7374: l_msg_index := l_msg_index + 1;
7375: l_msg_count := l_msg_count - 1;
7376: END LOOP;
7377: RAISE FND_API.G_EXC_ERROR;
7378: END IF;
7379: --
7380: -- Commented the tablehandler call since Update API got invoked
7381: --
7380: -- Commented the tablehandler call since Update API got invoked
7381: --
7382: -- End of API body
7383: -- Standard check of p_commit.
7384: IF FND_API.To_Boolean( p_commit ) THEN
7385: COMMIT WORK;
7386: END IF;
7387: -- Standard call to get message count and if count is get message info.
7388: FND_MSG_PUB.Count_And_Get
7388: FND_MSG_PUB.Count_And_Get
7389: (p_count => x_msg_count ,
7390: p_data => x_msg_data );
7391: EXCEPTION
7392: WHEN FND_API.G_EXC_ERROR THEN
7393: ROLLBACK TO expire_inst_party_acct_pvt;
7394: x_return_status := FND_API.G_RET_STS_ERROR ;
7395: FND_MSG_PUB.Count_And_Get
7396: ( p_count => x_msg_count,
7390: p_data => x_msg_data );
7391: EXCEPTION
7392: WHEN FND_API.G_EXC_ERROR THEN
7393: ROLLBACK TO expire_inst_party_acct_pvt;
7394: x_return_status := FND_API.G_RET_STS_ERROR ;
7395: FND_MSG_PUB.Count_And_Get
7396: ( p_count => x_msg_count,
7397: p_data => x_msg_data );
7398:
7395: FND_MSG_PUB.Count_And_Get
7396: ( p_count => x_msg_count,
7397: p_data => x_msg_data );
7398:
7399: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7400: ROLLBACK TO expire_inst_party_acct_pvt;
7401: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7402: FND_MSG_PUB.Count_And_Get
7403: ( p_count => x_msg_count,
7397: p_data => x_msg_data );
7398:
7399: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7400: ROLLBACK TO expire_inst_party_acct_pvt;
7401: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7402: FND_MSG_PUB.Count_And_Get
7403: ( p_count => x_msg_count,
7404: p_data => x_msg_data );
7405: WHEN OTHERS THEN
7403: ( p_count => x_msg_count,
7404: p_data => x_msg_data );
7405: WHEN OTHERS THEN
7406: ROLLBACK TO expire_inst_party_acct_pvt;
7407: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7408: IF FND_MSG_PUB.Check_Msg_Level
7409: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7410: THEN
7411: FND_MSG_PUB.Add_Exc_Msg
7446: -- Standard Start of API savepoint
7447: -- SAVEPOINT get_contact_details_pvt;
7448:
7449: -- Standard call to check for call compatibility.
7450: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
7451: p_api_version ,
7452: l_api_name ,
7453: g_pkg_name )
7454: THEN
7451: p_api_version ,
7452: l_api_name ,
7453: g_pkg_name )
7454: THEN
7455: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7456: END IF;
7457:
7458: -- Initialize message list if p_init_msg_list is set to TRUE.
7459: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7455: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7456: END IF;
7457:
7458: -- Initialize message list if p_init_msg_list is set to TRUE.
7459: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7460: FND_MSG_PUB.initialize;
7461: END IF;
7462:
7463: -- Initialize API return status to success
7460: FND_MSG_PUB.initialize;
7461: END IF;
7462:
7463: -- Initialize API return status to success
7464: x_return_status := FND_API.G_RET_STS_SUCCESS;
7465:
7466: -- Check the profile option CSI_DEBUG_LEVEL for debug message reporting
7467: l_csi_debug_level:=fnd_profile.value('CSI_DEBUG_LEVEL');
7468:
7473:
7474:
7475: -- Start API body
7476:
7477: IF ( ( p_contact_party_id IS NULL OR p_contact_party_id = fnd_api.g_miss_num )
7478: OR ( p_party_tbl IS NULL OR p_party_tbl = fnd_api.g_miss_char )
7479: )
7480: THEN
7481: fnd_message.set_name('CSI', 'CSI_API_INVALID_PARAMETERS');
7474:
7475: -- Start API body
7476:
7477: IF ( ( p_contact_party_id IS NULL OR p_contact_party_id = fnd_api.g_miss_num )
7478: OR ( p_party_tbl IS NULL OR p_party_tbl = fnd_api.g_miss_char )
7479: )
7480: THEN
7481: fnd_message.set_name('CSI', 'CSI_API_INVALID_PARAMETERS');
7482: fnd_msg_pub.add;
7479: )
7480: THEN
7481: fnd_message.set_name('CSI', 'CSI_API_INVALID_PARAMETERS');
7482: fnd_msg_pub.add;
7483: x_return_status := fnd_api.g_ret_sts_error;
7484: RAISE fnd_api.g_exc_error;
7485: END IF;
7486:
7487:
7480: THEN
7481: fnd_message.set_name('CSI', 'CSI_API_INVALID_PARAMETERS');
7482: fnd_msg_pub.add;
7483: x_return_status := fnd_api.g_ret_sts_error;
7484: RAISE fnd_api.g_exc_error;
7485: END IF;
7486:
7487:
7488: IF upper(p_party_tbl) = 'HZ_PARTIES'
7801: -- End of API body
7802:
7803: -- Standard check of p_commit.
7804: /*
7805: IF FND_API.To_Boolean( p_commit ) THEN
7806: COMMIT WORK;
7807: END IF;
7808: */
7809:
7811: FND_MSG_PUB.Count_And_Get
7812: (p_count => x_msg_count ,
7813: p_data => x_msg_data );
7814: EXCEPTION
7815: WHEN FND_API.G_EXC_ERROR THEN
7816: -- ROLLBACK TO get_contact_details_pvt;
7817: x_return_status := FND_API.G_RET_STS_ERROR ;
7818: FND_MSG_PUB.Count_And_Get
7819: ( p_count => x_msg_count,
7813: p_data => x_msg_data );
7814: EXCEPTION
7815: WHEN FND_API.G_EXC_ERROR THEN
7816: -- ROLLBACK TO get_contact_details_pvt;
7817: x_return_status := FND_API.G_RET_STS_ERROR ;
7818: FND_MSG_PUB.Count_And_Get
7819: ( p_count => x_msg_count,
7820: p_data => x_msg_data );
7821: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7817: x_return_status := FND_API.G_RET_STS_ERROR ;
7818: FND_MSG_PUB.Count_And_Get
7819: ( p_count => x_msg_count,
7820: p_data => x_msg_data );
7821: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7822: -- ROLLBACK TO get_contact_details_pvt;
7823: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7824: FND_MSG_PUB.Count_And_Get
7825: ( p_count => x_msg_count,
7819: ( p_count => x_msg_count,
7820: p_data => x_msg_data );
7821: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7822: -- ROLLBACK TO get_contact_details_pvt;
7823: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7824: FND_MSG_PUB.Count_And_Get
7825: ( p_count => x_msg_count,
7826: p_data => x_msg_data );
7827: WHEN OTHERS THEN
7825: ( p_count => x_msg_count,
7826: p_data => x_msg_data );
7827: WHEN OTHERS THEN
7828: -- ROLLBACK TO get_contact_details_pvt;
7829: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7830: IF FND_MSG_PUB.Check_Msg_Level
7831: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7832: THEN
7833: FND_MSG_PUB.Add_Exc_Msg
7951: -- SAVEPOINT get_inst_party_rel_hist;
7952:
7953:
7954: -- Standard call to check for call compatibility.
7955: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
7956: p_api_version ,
7957: l_api_name ,
7958: g_pkg_name )
7959: THEN
7956: p_api_version ,
7957: l_api_name ,
7958: g_pkg_name )
7959: THEN
7960: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7961: END IF;
7962:
7963: -- Initialize message list if p_init_msg_list is set to TRUE.
7964: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7960: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7961: END IF;
7962:
7963: -- Initialize message list if p_init_msg_list is set to TRUE.
7964: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7965: FND_MSG_PUB.initialize;
7966: END IF;
7967:
7968: -- Initialize API return status to success
7965: FND_MSG_PUB.initialize;
7966: END IF;
7967:
7968: -- Initialize API return status to success
7969: x_return_status := FND_API.G_RET_STS_SUCCESS;
7970:
7971: -- Check the profile option CSI_DEBUG_LEVEL for debug message reporting
7972: l_csi_debug_level:=fnd_profile.value('CSI_DEBUG_LEVEL');
7973:
8060: (x_party_history_tbl(i).old_party_id IS NULL AND
8061: x_party_history_tbl(i).new_party_id IS NULL ) OR
8062: (x_party_history_tbl(i).old_relationship_type_code IS NULL AND
8063: x_party_history_tbl(i).new_relationship_type_code IS NULL)
8064: --AND (nvl(x_party_history_tbl(i).old_party_id,fnd_api.g_miss_num) <> nvl(x_party_history_tbl(i).new_party_id,fnd_api.g_miss_num) )
8065: THEN
8066: l_party_query_rec.instance_party_id := x_party_history_tbl(i).instance_party_id;
8067: l_time_stamp:=c1.creation_date;
8068: csi_party_relationships_pub.get_inst_party_relationships
8066: l_party_query_rec.instance_party_id := x_party_history_tbl(i).instance_party_id;
8067: l_time_stamp:=c1.creation_date;
8068: csi_party_relationships_pub.get_inst_party_relationships
8069: ( p_api_version => 1.0
8070: ,p_commit => fnd_api.g_false
8071: ,p_init_msg_list => fnd_api.g_false
8072: ,p_validation_level => fnd_api.g_valid_level_full
8073: ,p_party_query_rec => l_party_query_rec
8074: ,p_resolve_id_columns => fnd_api.g_false
8067: l_time_stamp:=c1.creation_date;
8068: csi_party_relationships_pub.get_inst_party_relationships
8069: ( p_api_version => 1.0
8070: ,p_commit => fnd_api.g_false
8071: ,p_init_msg_list => fnd_api.g_false
8072: ,p_validation_level => fnd_api.g_valid_level_full
8073: ,p_party_query_rec => l_party_query_rec
8074: ,p_resolve_id_columns => fnd_api.g_false
8075: ,p_time_stamp => l_time_stamp
8068: csi_party_relationships_pub.get_inst_party_relationships
8069: ( p_api_version => 1.0
8070: ,p_commit => fnd_api.g_false
8071: ,p_init_msg_list => fnd_api.g_false
8072: ,p_validation_level => fnd_api.g_valid_level_full
8073: ,p_party_query_rec => l_party_query_rec
8074: ,p_resolve_id_columns => fnd_api.g_false
8075: ,p_time_stamp => l_time_stamp
8076: ,x_party_header_tbl => l_party_header_tbl
8070: ,p_commit => fnd_api.g_false
8071: ,p_init_msg_list => fnd_api.g_false
8072: ,p_validation_level => fnd_api.g_valid_level_full
8073: ,p_party_query_rec => l_party_query_rec
8074: ,p_resolve_id_columns => fnd_api.g_false
8075: ,p_time_stamp => l_time_stamp
8076: ,x_party_header_tbl => l_party_header_tbl
8077: ,x_return_status => x_return_status
8078: ,x_msg_count => x_msg_count
8078: ,x_msg_count => x_msg_count
8079: ,x_msg_data => x_msg_data
8080: );
8081:
8082: IF NOT(x_return_status = fnd_api.g_ret_sts_success)
8083: THEN
8084: RAISE fnd_api.g_exc_error;
8085: END IF;
8086:
8080: );
8081:
8082: IF NOT(x_return_status = fnd_api.g_ret_sts_success)
8083: THEN
8084: RAISE fnd_api.g_exc_error;
8085: END IF;
8086:
8087: IF (x_party_history_tbl(i).old_party_source_table IS NULL AND
8088: x_party_history_tbl(i).new_party_source_table IS NULL )
8142: ,x_msg_data => x_msg_data
8143: );
8144:
8145:
8146: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
8147: FOR i in 1..x_msg_Count LOOP
8148: FND_MSG_PUB.Get(p_msg_index => i,
8149: p_encoded => 'F',
8150: p_data => x_msg_data,
8150: p_data => x_msg_data,
8151: p_msg_index_out => x_msg_index_out );
8152: csi_gen_utility_pvt.put_line( 'message data = '||x_msg_data);
8153: End LOOP;
8154: RAISE FND_API.G_EXC_ERROR;
8155: END IF;
8156:
8157: x_party_history_tbl(i).old_contact_party_name := l_contact_details.party_name;
8158: -- Added for bug 2179142
8219: END;
8220:
8221: END IF;
8222: -- End addition for bug 2179142
8223: IF NVL(l_old_contact_party_id,fnd_api.g_miss_num) <> NVL(l_new_contact_party_id,fnd_api.g_miss_num)
8224: THEN
8225: x_party_history_tbl(i).old_contact_work_phone_num := l_contact_details.officephone;
8226: x_party_history_tbl(i).old_contact_address1 := l_contact_details.address1;
8227: x_party_history_tbl(i).old_contact_address2 := l_contact_details.address2;
8334: ,x_msg_data => x_msg_data
8335: );
8336:
8337:
8338: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
8339: FOR i in 1..x_msg_Count LOOP
8340: FND_MSG_PUB.Get(p_msg_index => i,
8341: p_encoded => 'F',
8342: p_data => x_msg_data,
8342: p_data => x_msg_data,
8343: p_msg_index_out => x_msg_index_out );
8344: csi_gen_utility_pvt.put_line( 'message data = '||x_msg_data);
8345: End LOOP;
8346: RAISE FND_API.G_EXC_ERROR;
8347: END IF;
8348:
8349: x_party_history_tbl(i).new_contact_party_name := l_contact_details.party_name;
8350: -- Added for bug 2179142
8411: END;
8412:
8413: END IF;
8414: -- End addition for bug 2179142
8415: IF NVL(l_old_contact_party_id,fnd_api.g_miss_num) <> NVL(l_new_contact_party_id,fnd_api.g_miss_num)
8416: THEN
8417: x_party_history_tbl(i).new_contact_work_phone_num := l_contact_details.officephone;
8418: x_party_history_tbl(i).new_contact_address1 := l_contact_details.address1;
8419: x_party_history_tbl(i).new_contact_address2 := l_contact_details.address2;
8501: END;
8502: END IF;
8503: -- Added for bug 2781480
8504: /* Commented for bug 2179142
8505: IF NVL(x_party_history_tbl(i).old_party_source_table,fnd_api.g_miss_char) = NVL(x_party_history_tbl(i).new_party_source_table,fnd_api.g_miss_char)
8506: THEN
8507: x_party_history_tbl(i).old_party_source_table:=NULL;
8508: x_party_history_tbl(i).new_party_source_table:=NULL;
8509: END IF;
8511: -- End addition for bug 2781480
8512:
8513: -- Added for bug 2179142
8514:
8515: IF NVL(x_party_history_tbl(i).old_party_id,fnd_api.g_miss_num)=NVL(x_party_history_tbl(i).new_party_id,fnd_api.g_miss_num)
8516: THEN
8517: x_party_history_tbl(i).old_party_id:=NULL;
8518: x_party_history_tbl(i).new_party_id:=NULL;
8519: END IF;
8522: i := i + 1;
8523: --IF get_party_hist%NOTFOUND THEN
8524: --FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_TXN_ID');
8525: --FND_MSG_PUB.Add;
8526: --RAISE FND_API.G_EXC_ERROR;
8527: --END IF;
8528: END LOOP;
8529:
8530: -- End of API body
8530: -- End of API body
8531:
8532: -- Standard check of p_commit.
8533: /*
8534: IF FND_API.To_Boolean( p_commit ) THEN
8535: COMMIT WORK;
8536: END IF;
8537: */
8538:
8548: FND_MSG_PUB.Count_And_Get
8549: (p_count => x_msg_count ,
8550: p_data => x_msg_data );
8551: EXCEPTION
8552: WHEN FND_API.G_EXC_ERROR THEN
8553: -- ROLLBACK TO get_inst_party_rel_hist;
8554: x_return_status := FND_API.G_RET_STS_ERROR ;
8555: FND_MSG_PUB.Count_And_Get
8556: ( p_count => x_msg_count,
8550: p_data => x_msg_data );
8551: EXCEPTION
8552: WHEN FND_API.G_EXC_ERROR THEN
8553: -- ROLLBACK TO get_inst_party_rel_hist;
8554: x_return_status := FND_API.G_RET_STS_ERROR ;
8555: FND_MSG_PUB.Count_And_Get
8556: ( p_count => x_msg_count,
8557: p_data => x_msg_data );
8558: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8554: x_return_status := FND_API.G_RET_STS_ERROR ;
8555: FND_MSG_PUB.Count_And_Get
8556: ( p_count => x_msg_count,
8557: p_data => x_msg_data );
8558: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8559: -- ROLLBACK TO get_inst_party_rel_hist;
8560: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8561: FND_MSG_PUB.Count_And_Get
8562: ( p_count => x_msg_count,
8556: ( p_count => x_msg_count,
8557: p_data => x_msg_data );
8558: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8559: -- ROLLBACK TO get_inst_party_rel_hist;
8560: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8561: FND_MSG_PUB.Count_And_Get
8562: ( p_count => x_msg_count,
8563: p_data => x_msg_data );
8564: WHEN OTHERS THEN
8562: ( p_count => x_msg_count,
8563: p_data => x_msg_data );
8564: WHEN OTHERS THEN
8565: -- ROLLBACK TO get_inst_party_rel_hist;
8566: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8567: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
8568: FND_MSG_PUB.Add_Exc_Msg
8569: ( g_pkg_name ,
8570: l_api_name );
8672: -- SAVEPOINT get_inst_party_account_hist;
8673:
8674:
8675: -- Standard call to check for call compatibility.
8676: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
8677: p_api_version ,
8678: l_api_name ,
8679: g_pkg_name )
8680: THEN
8677: p_api_version ,
8678: l_api_name ,
8679: g_pkg_name )
8680: THEN
8681: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8682: END IF;
8683:
8684: -- Initialize message list if p_init_msg_list is set to TRUE.
8685: IF FND_API.to_Boolean( p_init_msg_list ) THEN
8681: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8682: END IF;
8683:
8684: -- Initialize message list if p_init_msg_list is set to TRUE.
8685: IF FND_API.to_Boolean( p_init_msg_list ) THEN
8686: FND_MSG_PUB.initialize;
8687: END IF;
8688:
8689: -- Initialize API return status to success
8686: FND_MSG_PUB.initialize;
8687: END IF;
8688:
8689: -- Initialize API return status to success
8690: x_return_status := FND_API.G_RET_STS_SUCCESS;
8691:
8692: -- Check the profile option CSI_DEBUG_LEVEL for debug message reporting
8693: l_csi_debug_level:=fnd_profile.value('CSI_DEBUG_LEVEL');
8694:
8722: x_account_history_tbl(i).ip_account_id := l_acct_hist_csr.ip_account_id;
8723: x_account_history_tbl(i).ip_account_history_id := l_acct_hist_csr.ip_account_history_id;
8724: x_account_history_tbl(i).transaction_id := l_acct_hist_csr.transaction_id;
8725:
8726: IF NVL(l_acct_hist_csr.old_party_account_id,fnd_api.g_miss_num) = NVL(l_acct_hist_csr.new_party_account_id,fnd_api.g_miss_num)
8727: THEN
8728: x_account_history_tbl(i).old_party_account_id := NULL;
8729: x_account_history_tbl(i).new_party_account_id := NULL;
8730: ELSE
8731: x_account_history_tbl(i).old_party_account_id := l_acct_hist_csr.old_party_account_id;
8732: x_account_history_tbl(i).new_party_account_id := l_acct_hist_csr.new_party_account_id;
8733: END IF;
8734:
8735: IF NVL(l_acct_hist_csr.old_relationship_type_code,fnd_api.g_miss_char) =
8736: NVL(l_acct_hist_csr.new_relationship_type_code,fnd_api.g_miss_num)
8737: THEN
8738: x_account_history_tbl(i).old_relationship_type_code := NULL;
8739: x_account_history_tbl(i).new_relationship_type_code := NULL;
8732: x_account_history_tbl(i).new_party_account_id := l_acct_hist_csr.new_party_account_id;
8733: END IF;
8734:
8735: IF NVL(l_acct_hist_csr.old_relationship_type_code,fnd_api.g_miss_char) =
8736: NVL(l_acct_hist_csr.new_relationship_type_code,fnd_api.g_miss_num)
8737: THEN
8738: x_account_history_tbl(i).old_relationship_type_code := NULL;
8739: x_account_history_tbl(i).new_relationship_type_code := NULL;
8740: ELSE
8741: x_account_history_tbl(i).old_relationship_type_code := l_acct_hist_csr.old_relationship_type_code;
8742: x_account_history_tbl(i).new_relationship_type_code := l_acct_hist_csr.new_relationship_type_code;
8743: END IF;
8744:
8745: IF NVL(l_acct_hist_csr.old_active_start_date,fnd_api.g_miss_date) = NVL(l_acct_hist_csr.new_active_start_date,fnd_api.g_miss_date)
8746: THEN
8747: x_account_history_tbl(i).old_active_start_date := NULL;
8748: x_account_history_tbl(i).new_active_start_date := NULL;
8749: ELSE
8750: x_account_history_tbl(i).old_active_start_date := l_acct_hist_csr.old_active_start_date;
8751: x_account_history_tbl(i).new_active_start_date := l_acct_hist_csr.new_active_start_date;
8752: END IF;
8753:
8754: IF NVL(l_acct_hist_csr.old_active_end_date,fnd_api.g_miss_date) = NVL(l_acct_hist_csr.new_active_end_date,fnd_api.g_miss_date)
8755: THEN
8756: x_account_history_tbl(i).old_active_end_date := NULL;
8757: x_account_history_tbl(i).new_active_end_date := NULL;
8758: ELSE
8759: x_account_history_tbl(i).old_active_end_date := l_acct_hist_csr.old_active_end_date;
8760: x_account_history_tbl(i).new_active_end_date := l_acct_hist_csr.new_active_end_date;
8761: END IF;
8762:
8763: IF NVL(l_acct_hist_csr.old_context,fnd_api.g_miss_char) = NVL(l_acct_hist_csr.new_context,fnd_api.g_miss_char)
8764: THEN
8765: x_account_history_tbl(i).old_context := NULL;
8766: x_account_history_tbl(i).new_context := NULL;
8767: ELSE
8768: x_account_history_tbl(i).old_context := l_acct_hist_csr.old_context;
8769: x_account_history_tbl(i).new_context := l_acct_hist_csr.new_context;
8770: END IF;
8771:
8772: IF NVL(l_acct_hist_csr.old_attribute1,fnd_api.g_miss_char) = NVL(l_acct_hist_csr.new_attribute1,fnd_api.g_miss_char)
8773: THEN
8774: x_account_history_tbl(i).old_attribute1 := NULL;
8775: x_account_history_tbl(i).new_attribute1 := NULL;
8776: ELSE
8777: x_account_history_tbl(i).old_attribute1 := l_acct_hist_csr.old_attribute1;
8778: x_account_history_tbl(i).new_attribute1 := l_acct_hist_csr.new_attribute1;
8779: END IF;
8780:
8781: IF NVL(l_acct_hist_csr.old_attribute2,fnd_api.g_miss_char) = NVL(l_acct_hist_csr.new_attribute2,fnd_api.g_miss_char)
8782: THEN
8783: x_account_history_tbl(i).old_attribute2 := NULL;
8784: x_account_history_tbl(i).new_attribute2 := NULL;
8785: ELSE
8786: x_account_history_tbl(i).old_attribute2 := l_acct_hist_csr.old_attribute2;
8787: x_account_history_tbl(i).new_attribute2 := l_acct_hist_csr.new_attribute2;
8788: END IF;
8789:
8790: IF NVL(l_acct_hist_csr.old_attribute3,fnd_api.g_miss_char) = NVL(l_acct_hist_csr.new_attribute3,fnd_api.g_miss_char)
8791: THEN
8792: x_account_history_tbl(i).old_attribute3 := NULL;
8793: x_account_history_tbl(i).new_attribute3 := NULL;
8794: ELSE
8796: x_account_history_tbl(i).new_attribute3 := l_acct_hist_csr.new_attribute3;
8797: END IF;
8798:
8799:
8800: IF NVL(l_acct_hist_csr.old_attribute4,fnd_api.g_miss_char) = NVL(l_acct_hist_csr.new_attribute4,fnd_api.g_miss_char)
8801: THEN
8802: x_account_history_tbl(i).old_attribute4 := NULL;
8803: x_account_history_tbl(i).new_attribute4 := NULL;
8804: ELSE
8805: x_account_history_tbl(i).old_attribute4 := l_acct_hist_csr.old_attribute4;
8806: x_account_history_tbl(i).new_attribute4 := l_acct_hist_csr.new_attribute4;
8807: END IF;
8808:
8809: IF NVL(l_acct_hist_csr.old_attribute5,fnd_api.g_miss_char) = NVL(l_acct_hist_csr.new_attribute5,fnd_api.g_miss_char)
8810: THEN
8811: x_account_history_tbl(i).old_attribute5 := NULL;
8812: x_account_history_tbl(i).new_attribute5 := NULL;
8813: ELSE
8814: x_account_history_tbl(i).old_attribute5 := l_acct_hist_csr.old_attribute5;
8815: x_account_history_tbl(i).new_attribute5 := l_acct_hist_csr.new_attribute5;
8816: END IF;
8817:
8818: IF NVL(l_acct_hist_csr.old_attribute6,fnd_api.g_miss_char) = NVL(l_acct_hist_csr.new_attribute6,fnd_api.g_miss_char)
8819: THEN
8820: x_account_history_tbl(i).old_attribute6 := NULL;
8821: x_account_history_tbl(i).new_attribute6 := NULL;
8822: ELSE
8823: x_account_history_tbl(i).old_attribute6 := l_acct_hist_csr.old_attribute6;
8824: x_account_history_tbl(i).new_attribute6 := l_acct_hist_csr.new_attribute6;
8825: END IF;
8826:
8827: IF NVL(l_acct_hist_csr.old_attribute7,fnd_api.g_miss_char) = NVL(l_acct_hist_csr.new_attribute7,fnd_api.g_miss_char)
8828: THEN
8829: x_account_history_tbl(i).old_attribute7 := NULL;
8830: x_account_history_tbl(i).new_attribute7 := NULL;
8831: ELSE
8832: x_account_history_tbl(i).old_attribute7 := l_acct_hist_csr.old_attribute7;
8833: x_account_history_tbl(i).new_attribute7 := l_acct_hist_csr.new_attribute7;
8834: END IF;
8835:
8836: IF NVL(l_acct_hist_csr.old_attribute8,fnd_api.g_miss_char) = NVL(l_acct_hist_csr.new_attribute8,fnd_api.g_miss_char)
8837: THEN
8838: x_account_history_tbl(i).old_attribute8 := NULL;
8839: x_account_history_tbl(i).new_attribute8 := NULL;
8840: ELSE
8841: x_account_history_tbl(i).old_attribute8 := l_acct_hist_csr.old_attribute8;
8842: x_account_history_tbl(i).new_attribute8 := l_acct_hist_csr.new_attribute8;
8843: END IF;
8844:
8845: IF NVL(l_acct_hist_csr.old_attribute9,fnd_api.g_miss_char) = NVL(l_acct_hist_csr.new_attribute9,fnd_api.g_miss_char)
8846: THEN
8847: x_account_history_tbl(i).old_attribute9 := NULL;
8848: x_account_history_tbl(i).new_attribute9 := NULL;
8849: ELSE
8850: x_account_history_tbl(i).old_attribute9 := l_acct_hist_csr.old_attribute9;
8851: x_account_history_tbl(i).new_attribute9 := l_acct_hist_csr.new_attribute9;
8852: END IF;
8853:
8854: IF NVL(l_acct_hist_csr.old_attribute10,fnd_api.g_miss_char) = NVL(l_acct_hist_csr.new_attribute10,fnd_api.g_miss_char)
8855: THEN
8856: x_account_history_tbl(i).old_attribute10 := NULL;
8857: x_account_history_tbl(i).new_attribute10 := NULL;
8858: ELSE
8859: x_account_history_tbl(i).old_attribute10 := l_acct_hist_csr.old_attribute10;
8860: x_account_history_tbl(i).new_attribute10 := l_acct_hist_csr.new_attribute10;
8861: END IF;
8862:
8863: IF NVL(l_acct_hist_csr.old_attribute11,fnd_api.g_miss_char) = NVL(l_acct_hist_csr.new_attribute11,fnd_api.g_miss_char)
8864: THEN
8865: x_account_history_tbl(i).old_attribute11 := NULL;
8866: x_account_history_tbl(i).new_attribute11 := NULL;
8867: ELSE
8868: x_account_history_tbl(i).old_attribute11 := l_acct_hist_csr.old_attribute11;
8869: x_account_history_tbl(i).new_attribute11 := l_acct_hist_csr.new_attribute11;
8870: END IF;
8871:
8872: IF NVL(l_acct_hist_csr.old_attribute12,fnd_api.g_miss_char) = NVL(l_acct_hist_csr.new_attribute12,fnd_api.g_miss_char)
8873: THEN
8874: x_account_history_tbl(i).old_attribute12 := NULL;
8875: x_account_history_tbl(i).new_attribute12 := NULL;
8876: ELSE
8877: x_account_history_tbl(i).old_attribute12 := l_acct_hist_csr.old_attribute12;
8878: x_account_history_tbl(i).new_attribute12 := l_acct_hist_csr.new_attribute12;
8879: END IF;
8880:
8881: IF NVL(l_acct_hist_csr.old_attribute13,fnd_api.g_miss_char) = NVL(l_acct_hist_csr.new_attribute13,fnd_api.g_miss_char)
8882: THEN
8883: x_account_history_tbl(i).old_attribute13 := NULL;
8884: x_account_history_tbl(i).new_attribute13 := NULL;
8885: ELSE
8886: x_account_history_tbl(i).old_attribute13 := l_acct_hist_csr.old_attribute13;
8887: x_account_history_tbl(i).new_attribute13 := l_acct_hist_csr.new_attribute13;
8888: END IF;
8889:
8890: IF NVL(l_acct_hist_csr.old_attribute14,fnd_api.g_miss_char) = NVL(l_acct_hist_csr.new_attribute14,fnd_api.g_miss_char)
8891: THEN
8892: x_account_history_tbl(i).old_attribute14 := NULL;
8893: x_account_history_tbl(i).new_attribute14 := NULL;
8894: ELSE
8895: x_account_history_tbl(i).old_attribute14 := l_acct_hist_csr.old_attribute14;
8896: x_account_history_tbl(i).new_attribute14 := l_acct_hist_csr.new_attribute14;
8897: END IF;
8898:
8899: IF NVL(l_acct_hist_csr.old_attribute15,fnd_api.g_miss_char) = NVL(l_acct_hist_csr.new_attribute15,fnd_api.g_miss_char)
8900: THEN
8901: x_account_history_tbl(i).old_attribute15 := NULL;
8902: x_account_history_tbl(i).new_attribute15 := NULL;
8903: ELSE
8904: x_account_history_tbl(i).old_attribute15 := l_acct_hist_csr.old_attribute15;
8905: x_account_history_tbl(i).new_attribute15 := l_acct_hist_csr.new_attribute15;
8906: END IF;
8907:
8908: IF NVL(l_acct_hist_csr.old_bill_to_address,fnd_api.g_miss_num) = NVL(l_acct_hist_csr.new_bill_to_address,fnd_api.g_miss_num)
8909: THEN
8910: x_account_history_tbl(i).old_bill_to_address := NULL;
8911: x_account_history_tbl(i).new_bill_to_address := NULL;
8912: ELSE
8913: x_account_history_tbl(i).old_bill_to_address := l_acct_hist_csr.old_bill_to_address;
8914: x_account_history_tbl(i).new_bill_to_address := l_acct_hist_csr.new_bill_to_address;
8915: END IF;
8916:
8917: IF NVL(l_acct_hist_csr.old_ship_to_address,fnd_api.g_miss_num) = NVL(l_acct_hist_csr.new_ship_to_address,fnd_api.g_miss_num)
8918: THEN
8919: x_account_history_tbl(i).old_ship_to_address := NULL;
8920: x_account_history_tbl(i).new_ship_to_address := NULL;
8921: ELSE
8922: x_account_history_tbl(i).old_ship_to_address := l_acct_hist_csr.old_ship_to_address;
8923: x_account_history_tbl(i).new_ship_to_address := l_acct_hist_csr.new_ship_to_address;
8924: END IF;
8925:
8926: IF NVL(l_acct_hist_csr.old_instance_party_id,fnd_api.g_miss_num) = NVL(l_acct_hist_csr.new_instance_party_id,fnd_api.g_miss_num)
8927: THEN
8928: x_account_history_tbl(i).old_instance_party_id := NULL;
8929: x_account_history_tbl(i).new_instance_party_id := NULL;
8930: ELSE
8948: ,p_commit => p_commit
8949: ,p_init_msg_list => p_init_msg_list
8950: ,p_validation_level => p_validation_level
8951: ,p_account_query_rec => l_party_account_query_rec
8952: ,p_resolve_id_columns => fnd_api.g_false
8953: ,p_time_stamp => l_time_stamp
8954: ,x_account_header_tbl => l_account_header_tbl
8955: ,x_return_status => x_return_status
8956: ,x_msg_count => x_msg_count
9075: x_account_history_tbl(i).new_ship_to_state := l_account_header_tbl(1).ship_to_state;
9076: x_account_history_tbl(i).new_ship_to_postal_code := l_account_header_tbl(1).ship_to_postal_code;
9077: x_account_history_tbl(i).new_ship_to_country := l_account_header_tbl(1).ship_to_country;
9078:
9079: IF NVL(x_account_history_tbl(i).old_party_account_id,fnd_api.g_miss_num)=
9080: NVL(x_account_history_tbl(i).new_party_account_id,fnd_api.g_miss_num)
9081: THEN
9082: x_account_history_tbl(i).old_party_account_id := NULL;
9083: x_account_history_tbl(i).new_party_account_id := NULL;
9076: x_account_history_tbl(i).new_ship_to_postal_code := l_account_header_tbl(1).ship_to_postal_code;
9077: x_account_history_tbl(i).new_ship_to_country := l_account_header_tbl(1).ship_to_country;
9078:
9079: IF NVL(x_account_history_tbl(i).old_party_account_id,fnd_api.g_miss_num)=
9080: NVL(x_account_history_tbl(i).new_party_account_id,fnd_api.g_miss_num)
9081: THEN
9082: x_account_history_tbl(i).old_party_account_id := NULL;
9083: x_account_history_tbl(i).new_party_account_id := NULL;
9084: END IF;
9091: -- End of API body
9092:
9093: -- Standard check of p_commit.
9094: /*
9095: IF FND_API.To_Boolean( p_commit ) THEN
9096: COMMIT WORK;
9097: END IF;
9098: */
9099:
9109: FND_MSG_PUB.Count_And_Get
9110: (p_count => x_msg_count ,
9111: p_data => x_msg_data );
9112: EXCEPTION
9113: WHEN FND_API.G_EXC_ERROR THEN
9114: -- ROLLBACK TO get_inst_party_account_hist;
9115: x_return_status := FND_API.G_RET_STS_ERROR ;
9116: FND_MSG_PUB.Count_And_Get
9117: ( p_count => x_msg_count,
9111: p_data => x_msg_data );
9112: EXCEPTION
9113: WHEN FND_API.G_EXC_ERROR THEN
9114: -- ROLLBACK TO get_inst_party_account_hist;
9115: x_return_status := FND_API.G_RET_STS_ERROR ;
9116: FND_MSG_PUB.Count_And_Get
9117: ( p_count => x_msg_count,
9118: p_data => x_msg_data );
9119: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9115: x_return_status := FND_API.G_RET_STS_ERROR ;
9116: FND_MSG_PUB.Count_And_Get
9117: ( p_count => x_msg_count,
9118: p_data => x_msg_data );
9119: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9120: -- ROLLBACK TO get_inst_party_account_hist;
9121: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9122: FND_MSG_PUB.Count_And_Get
9123: ( p_count => x_msg_count,
9117: ( p_count => x_msg_count,
9118: p_data => x_msg_data );
9119: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9120: -- ROLLBACK TO get_inst_party_account_hist;
9121: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9122: FND_MSG_PUB.Count_And_Get
9123: ( p_count => x_msg_count,
9124: p_data => x_msg_data );
9125: WHEN OTHERS THEN
9123: ( p_count => x_msg_count,
9124: p_data => x_msg_data );
9125: WHEN OTHERS THEN
9126: -- ROLLBACK TO get_inst_party_account_hist;
9127: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9128: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
9129: FND_MSG_PUB.Add_Exc_Msg
9130: ( g_pkg_name ,
9131: l_api_name );