[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
2561: -- Standard Start of API savepoint
2562: -- SAVEPOINT update_inst_party_rel_pvt ;
2563:
2564: -- Standard call to check for call compatibility.
2565: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
2566: p_api_version ,
2567: l_api_name ,
2568: g_pkg_name )
2569: THEN
2566: p_api_version ,
2567: l_api_name ,
2568: g_pkg_name )
2569: THEN
2570: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2571: END IF;
2572:
2573: -- Initialize message list if p_init_msg_list is set to TRUE.
2574: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2570: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2571: END IF;
2572:
2573: -- Initialize message list if p_init_msg_list is set to TRUE.
2574: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2575: FND_MSG_PUB.initialize;
2576: END IF;
2577:
2578: -- Initialize API return status to success
2575: FND_MSG_PUB.initialize;
2576: END IF;
2577:
2578: -- Initialize API return status to success
2579: x_return_status := FND_API.G_RET_STS_SUCCESS;
2580:
2581: -- Check the profile option CSI_DEBUG_LEVEL for debug message reporting
2582: l_csi_debug_level:=fnd_profile.value('CSI_DEBUG_LEVEL');
2583:
2606: --
2607: IF p_party_rec.party_id IS NULL THEN
2608: FND_MESSAGE.SET_NAME('CSI','CSI_API_MANDATORY_PARTY');
2609: FND_MSG_PUB.Add;
2610: RAISE FND_API.G_EXC_ERROR;
2611: END IF;
2612: --
2613: -- Check if the instance party id is valid
2614: -- End commentation by sk for bug 2232880
2612: --
2613: -- Check if the instance party id is valid
2614: -- End commentation by sk for bug 2232880
2615: -- Verify if the instance_id exists in csi_item_instances
2616: IF p_party_rec.INSTANCE_ID <> FND_API.G_MISS_NUM THEN
2617: IF NOT(CSI_Instance_parties_vld_pvt.Is_InstanceID_Valid(p_party_rec.INSTANCE_ID)) THEN
2618: RAISE FND_API.G_EXC_ERROR;
2619: END IF;
2620: END IF;
2614: -- End commentation by sk for bug 2232880
2615: -- Verify if the instance_id exists in csi_item_instances
2616: IF p_party_rec.INSTANCE_ID <> FND_API.G_MISS_NUM THEN
2617: IF NOT(CSI_Instance_parties_vld_pvt.Is_InstanceID_Valid(p_party_rec.INSTANCE_ID)) THEN
2618: RAISE FND_API.G_EXC_ERROR;
2619: END IF;
2620: END IF;
2621: -- Verify the instance owner exists already if exists then raise error
2622: IF p_party_rec.RELATIONSHIP_TYPE_CODE = 'OWNER' THEN
2622: IF p_party_rec.RELATIONSHIP_TYPE_CODE = 'OWNER' THEN
2623: IF CSI_Instance_parties_vld_pvt.Is_Inst_Owner_exists
2624: (p_instance_id => p_party_rec.INSTANCE_ID,
2625: p_instance_party_id => p_party_rec.instance_party_id ) THEN
2626: RAISE FND_API.G_EXC_ERROR;
2627: END IF;
2628: END IF;
2629: -- start of addition of code by rtalluri for bugfix 2324745 on 04/23/02
2630: -- validating the owner
2629: -- start of addition of code by rtalluri for bugfix 2324745 on 04/23/02
2630: -- validating the owner
2631: IF l_curr_party_rec.instance_party_id = p_party_rec.instance_party_id
2632: AND l_curr_party_rec.party_id <> p_party_rec.party_id
2633: AND (p_party_rec.party_id is not null and p_party_rec.party_id <> fnd_api.g_miss_num)
2634: AND l_curr_party_rec.relationship_type_code = 'OWNER'
2635: THEN
2636: OPEN curr_instance_rec(p_party_rec.instance_id);
2637: FETCH curr_instance_rec INTO l_curr_instance_rec;
2638: IF NOT (csi_item_instance_vld_pvt.Validate_Uniqueness(p_instance_rec => l_curr_instance_rec,
2639: p_party_rec => p_party_rec,
2640: p_csi_txn_type_id => p_txn_rec.transaction_type_id
2641: )) THEN
2642: RAISE FND_API.G_EXC_ERROR;
2643: END IF;
2644: CLOSE curr_instance_rec;
2645: END IF;
2646: -- end of addition of code by rtalluri for bugfix 2324745 on 04/23/02
2658: WHERE instance_party_id=p_party_rec.instance_party_id;
2659: EXCEPTION
2660: WHEN NO_DATA_FOUND THEN
2661: csi_gen_utility_pvt.put_line('Passed instance_party_id : '||p_party_rec.instance_party_id||' is not found.');
2662: RAISE FND_API.G_EXC_ERROR;
2663: END;
2664: END IF;
2665: -- check if the object_version_number passed matches with the one
2666: -- in the database else raise error
2668: FETCH get_curr_party_rec INTO l_curr_party_rec;
2669: IF (l_curr_party_rec.object_version_number <> p_party_rec.OBJECT_VERSION_NUMBER) THEN
2670: FND_MESSAGE.Set_Name('CSI', 'CSI_API_OBJ_VER_MISMATCH');
2671: FND_MSG_PUB.ADD;
2672: RAISE FND_API.G_EXC_ERROR;
2673: END IF;
2674: --
2675: IF get_curr_party_rec%NOTFOUND THEN
2676: FND_MESSAGE.Set_Name('CSI', 'CSI_API_RECORD_LOCKED');
2674: --
2675: IF get_curr_party_rec%NOTFOUND THEN
2676: FND_MESSAGE.Set_Name('CSI', 'CSI_API_RECORD_LOCKED');
2677: FND_MSG_PUB.ADD;
2678: RAISE FND_API.G_EXC_ERROR;
2679: END IF;
2680: CLOSE get_curr_party_rec;
2681: --
2682: IF p_party_rec.instance_id <> FND_API.G_MISS_NUM THEN
2678: RAISE FND_API.G_EXC_ERROR;
2679: END IF;
2680: CLOSE get_curr_party_rec;
2681: --
2682: IF p_party_rec.instance_id <> FND_API.G_MISS_NUM THEN
2683: IF p_party_rec.instance_id <> l_curr_party_rec.instance_id THEN
2684: FND_MESSAGE.Set_Name('CSI', 'CSI_API_UPD_NOT_ALLOWED');
2685: FND_MESSAGE.Set_Token('COLUMN', 'INSTANCE_ID');
2686: FND_MSG_PUB.ADD;
2683: IF p_party_rec.instance_id <> l_curr_party_rec.instance_id THEN
2684: FND_MESSAGE.Set_Name('CSI', 'CSI_API_UPD_NOT_ALLOWED');
2685: FND_MESSAGE.Set_Token('COLUMN', 'INSTANCE_ID');
2686: FND_MSG_PUB.ADD;
2687: RAISE FND_API.G_EXC_ERROR;
2688: END IF;
2689: END IF;
2690: --
2691: IF p_party_rec.active_start_date IS NULL THEN
2691: IF p_party_rec.active_start_date IS NULL THEN
2692: FND_MESSAGE.Set_Name('CSI', 'CSI_API_UPD_NOT_ALLOWED');
2693: FND_MESSAGE.Set_Token('COLUMN', 'ACTIVE_START_DATE');
2694: FND_MSG_PUB.ADD;
2695: RAISE FND_API.G_EXC_ERROR;
2696: END IF;
2697: --
2698: IF p_party_rec.active_start_date <> FND_API.G_MISS_DATE THEN
2699: IF p_party_rec.active_start_date <> l_curr_party_rec.active_start_date THEN
2694: FND_MSG_PUB.ADD;
2695: RAISE FND_API.G_EXC_ERROR;
2696: END IF;
2697: --
2698: IF p_party_rec.active_start_date <> FND_API.G_MISS_DATE THEN
2699: IF p_party_rec.active_start_date <> l_curr_party_rec.active_start_date THEN
2700: FND_MESSAGE.Set_Name('CSI', 'CSI_API_UPD_NOT_ALLOWED');
2701: FND_MESSAGE.Set_Token('COLUMN', 'ACTIVE_START_DATE');
2702: FND_MSG_PUB.ADD;
2699: IF p_party_rec.active_start_date <> l_curr_party_rec.active_start_date THEN
2700: FND_MESSAGE.Set_Name('CSI', 'CSI_API_UPD_NOT_ALLOWED');
2701: FND_MESSAGE.Set_Token('COLUMN', 'ACTIVE_START_DATE');
2702: FND_MSG_PUB.ADD;
2703: RAISE FND_API.G_EXC_ERROR;
2704: END IF;
2705: END IF;
2706: -- Increment the object_version_number before updating
2707: l_OBJECT_VERSION_NUMBER := l_curr_party_rec.OBJECT_VERSION_NUMBER + 1 ;
2706: -- Increment the object_version_number before updating
2707: l_OBJECT_VERSION_NUMBER := l_curr_party_rec.OBJECT_VERSION_NUMBER + 1 ;
2708: -- Verify if the active_end_date is valid
2709: -- Don't allow expiry of owner parties
2710: IF p_party_rec.ACTIVE_END_DATE <> FND_API.G_MISS_DATE THEN
2711: IF l_curr_party_rec.relationship_type_code = 'OWNER' THEN
2712: FND_MESSAGE.Set_Name('CSI', 'CSI_API_EXP_NOT_ALLOWED');
2713: FND_MESSAGE.Set_Token('COLUMN', 'OWNER PARTY');
2714: FND_MSG_PUB.ADD;
2711: IF l_curr_party_rec.relationship_type_code = 'OWNER' THEN
2712: FND_MESSAGE.Set_Name('CSI', 'CSI_API_EXP_NOT_ALLOWED');
2713: FND_MESSAGE.Set_Token('COLUMN', 'OWNER PARTY');
2714: FND_MSG_PUB.ADD;
2715: RAISE FND_API.G_EXC_ERROR;
2716: ELSE
2717: -- Verify if the active_end_date is valid
2718: IF (g_expire_party_flag <> 'Y') THEN
2719: IF NOT(CSI_Instance_parties_vld_pvt.Is_EndDate_Valid
2721: p_party_rec.ACTIVE_END_DATE ,
2722: p_party_rec.INSTANCE_ID,
2723: p_party_rec.INSTANCE_PARTY_ID,
2724: p_txn_rec.TRANSACTION_ID)) THEN
2725: RAISE FND_API.G_EXC_ERROR;
2726: END IF;
2727: END IF;
2728: END IF;
2729: END IF;
2727: END IF;
2728: END IF;
2729: END IF;
2730: --
2731: IF p_party_rec.relationship_type_code <> FND_API.G_MISS_CHAR THEN
2732: IF ((p_party_rec.relationship_type_code <> l_curr_party_rec.relationship_type_code)
2733: AND l_curr_party_rec.relationship_type_code = 'OWNER' ) THEN
2734: FND_MESSAGE.Set_Name('CSI', 'CSI_API_UPD_NOT_ALLOWED');
2735: FND_MESSAGE.Set_Token('COLUMN', 'OWNER PARTY');
2734: FND_MESSAGE.Set_Name('CSI', 'CSI_API_UPD_NOT_ALLOWED');
2735: FND_MESSAGE.Set_Token('COLUMN', 'OWNER PARTY');
2736:
2737: FND_MSG_PUB.ADD;
2738: RAISE FND_API.G_EXC_ERROR;
2739: ELSE
2740: -- Verify the relationship_type_code is valid
2741: IF p_party_rec.contact_flag = 'Y' THEN
2742: IF NOT(CSI_Instance_parties_vld_pvt.Is_Pty_Rel_type_Valid
2741: IF p_party_rec.contact_flag = 'Y' THEN
2742: IF NOT(CSI_Instance_parties_vld_pvt.Is_Pty_Rel_type_Valid
2743: (p_party_rec.RELATIONSHIP_TYPE_CODE,
2744: 'C' )) THEN
2745: RAISE FND_API.G_EXC_ERROR;
2746: END IF;
2747: ELSE
2748: -- Verify the relationship_type_code is valid
2749: IF NOT(CSI_Instance_parties_vld_pvt.Is_Pty_Rel_type_Valid
2748: -- Verify the relationship_type_code is valid
2749: IF NOT(CSI_Instance_parties_vld_pvt.Is_Pty_Rel_type_Valid
2750: (p_party_rec.RELATIONSHIP_TYPE_CODE,
2751: 'P' )) THEN
2752: RAISE FND_API.G_EXC_ERROR;
2753: END IF;
2754: END IF;
2755: END IF;
2756: END IF;
2756: END IF;
2757:
2758: -- Verify that there is only one Preferred Party for a
2759: -- given instance party relationship
2760: IF p_party_rec.preferred_flag <> FND_API.G_MISS_CHAR THEN
2761: IF ((p_party_rec.preferred_flag IS NULL AND l_curr_party_rec.preferred_flag IS NOT NULL)
2762: OR (p_party_rec.preferred_flag IS NOT NULL AND l_curr_party_rec.preferred_flag IS NULL)
2763: OR (p_party_rec.preferred_flag <> l_curr_party_rec.preferred_flag)
2764: AND (p_party_rec.preferred_flag = 'Y')) THEN
2762: OR (p_party_rec.preferred_flag IS NOT NULL AND l_curr_party_rec.preferred_flag IS NULL)
2763: OR (p_party_rec.preferred_flag <> l_curr_party_rec.preferred_flag)
2764: AND (p_party_rec.preferred_flag = 'Y')) THEN
2765: IF p_party_rec.CONTACT_FLAG <> 'Y' THEN
2766: IF (((p_party_rec.PARTY_SOURCE_TABLE <> FND_API.G_MISS_CHAR)
2767: AND (p_party_rec.PARTY_SOURCE_TABLE NOT IN ('GROUP','TEAM')))
2768: OR (l_curr_party_rec.PARTY_SOURCE_TABLE NOT IN ('GROUP','TEAM'))) THEN
2769: FND_MESSAGE.SET_NAME('CSI','CSI_PREFERRED_PTY_TYPE');
2770: FND_MESSAGE.SET_TOKEN('PARTY_TYPE',l_curr_party_rec.PARTY_SOURCE_TABLE);
2769: FND_MESSAGE.SET_NAME('CSI','CSI_PREFERRED_PTY_TYPE');
2770: FND_MESSAGE.SET_TOKEN('PARTY_TYPE',l_curr_party_rec.PARTY_SOURCE_TABLE);
2771: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',l_curr_party_rec.INSTANCE_ID);
2772: FND_MSG_PUB.Add;
2773: RAISE FND_API.G_EXC_ERROR;
2774: END IF;
2775: END IF;
2776: END IF;
2777: END IF;
2776: END IF;
2777: END IF;
2778: -- Verify that there is only one Primary Party for a
2779: -- given instance party relationship
2780: IF ((nvl(p_party_rec.primary_flag,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR)
2781: OR (nvl(p_party_rec.relationship_type_code,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR)) THEN
2782: IF (((p_party_rec.primary_flag IS NULL AND l_curr_party_rec.primary_flag IS NOT NULL)
2783: OR (p_party_rec.primary_flag IS NOT NULL AND l_curr_party_rec.primary_flag IS NULL)
2784: OR (p_party_rec.primary_flag <> l_curr_party_rec.primary_flag)
2777: END IF;
2778: -- Verify that there is only one Primary Party for a
2779: -- given instance party relationship
2780: IF ((nvl(p_party_rec.primary_flag,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR)
2781: OR (nvl(p_party_rec.relationship_type_code,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR)) THEN
2782: IF (((p_party_rec.primary_flag IS NULL AND l_curr_party_rec.primary_flag IS NOT NULL)
2783: OR (p_party_rec.primary_flag IS NOT NULL AND l_curr_party_rec.primary_flag IS NULL)
2784: OR (p_party_rec.primary_flag <> l_curr_party_rec.primary_flag)
2785: AND (p_party_rec.primary_flag = 'Y'))
2783: OR (p_party_rec.primary_flag IS NOT NULL AND l_curr_party_rec.primary_flag IS NULL)
2784: OR (p_party_rec.primary_flag <> l_curr_party_rec.primary_flag)
2785: AND (p_party_rec.primary_flag = 'Y'))
2786: OR (p_party_rec.relationship_type_code <> l_curr_party_rec.relationship_type_code)) THEN
2787: IF (((p_party_rec.CONTACT_FLAG <> FND_API.G_MISS_CHAR)
2788: AND (p_party_rec.CONTACT_FLAG = 'Y'))
2789: OR (l_curr_party_rec.CONTACT_FLAG = 'Y')) THEN
2790: -- SK ADDED
2791: -- following code 10 lines needs to be removed once
2791: -- following code 10 lines needs to be removed once
2792: -- html code is fixed
2793: IF p_party_rec.PARTY_SOURCE_TABLE IS NULL
2794: THEN
2795: p_party_rec.PARTY_SOURCE_TABLE:=fnd_api.g_miss_char;
2796: END IF;
2797: IF p_party_rec.primary_flag IS NULL THEN
2798: p_party_rec.primary_flag:='N';
2799: END IF;
2803: THEN
2804: NULL;
2805: ELSIF ((nvl(l_curr_party_rec.primary_flag,'N') = 'Y') OR (p_party_rec.primary_flag = 'Y')) THEN
2806: IF p_party_rec.ACTIVE_START_DATE IS NULL
2807: OR p_party_rec.ACTIVE_START_DATE = fnd_api.g_miss_date THEN
2808: p_party_rec.ACTIVE_START_DATE := l_curr_party_rec.ACTIVE_START_DATE;
2809: END IF;
2810: --
2811: IF p_party_rec.ACTIVE_END_DATE IS NULL
2808: p_party_rec.ACTIVE_START_DATE := l_curr_party_rec.ACTIVE_START_DATE;
2809: END IF;
2810: --
2811: IF p_party_rec.ACTIVE_END_DATE IS NULL
2812: OR p_party_rec.ACTIVE_END_DATE = fnd_api.g_miss_date
2813: THEN
2814: p_party_rec.ACTIVE_END_DATE := l_curr_party_rec.ACTIVE_END_DATE;
2815: END IF;
2816: -- SK END ADDITION
2819: l_curr_party_rec.CONTACT_IP_ID,
2820: p_party_rec.RELATIONSHIP_TYPE_CODE,
2821: p_party_rec.ACTIVE_START_DATE,
2822: p_party_rec.ACTIVE_END_DATE) THEN
2823: RAISE FND_API.G_EXC_ERROR;
2824: END IF;
2825: END IF; --SK ADDED
2826: ELSE
2827: IF (((p_party_rec.PARTY_SOURCE_TABLE <> FND_API.G_MISS_CHAR)
2823: RAISE FND_API.G_EXC_ERROR;
2824: END IF;
2825: END IF; --SK ADDED
2826: ELSE
2827: IF (((p_party_rec.PARTY_SOURCE_TABLE <> FND_API.G_MISS_CHAR)
2828: AND (p_party_rec.PARTY_SOURCE_TABLE NOT IN ('GROUP','TEAM')))
2829: OR (l_curr_party_rec.PARTY_SOURCE_TABLE NOT IN ('GROUP','TEAM'))) THEN
2830: -- following code is commented by sk
2831: /*FND_MESSAGE.SET_NAME('CSI','CSI_HAHA2');
2832: --FND_MESSAGE.SET_NAME('CSI','CSI_PRIMARY_PTY_TYPE');
2833: FND_MESSAGE.SET_TOKEN('PARTY_TYPE',l_curr_party_rec.PARTY_SOURCE_TABLE);
2834: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',l_curr_party_rec.INSTANCE_ID);
2835: FND_MSG_PUB.Add;
2836: RAISE FND_API.G_EXC_ERROR; */
2837: NULL; --added by sk
2838: ELSE
2839: -- SK ADDED
2840: IF p_party_rec.primary_flag IS NULL
2847: THEN
2848: NULL;
2849: ELSIF ((nvl(l_curr_party_rec.primary_flag,'N') = 'Y') OR (p_party_rec.primary_flag = 'Y')) THEN
2850: IF p_party_rec.ACTIVE_START_DATE IS NULL
2851: OR p_party_rec.ACTIVE_START_DATE = fnd_api.g_miss_date
2852: THEN
2853: p_party_rec.ACTIVE_START_DATE := l_curr_party_rec.ACTIVE_START_DATE;
2854: END IF;
2855: IF p_party_rec.ACTIVE_END_DATE IS NULL
2852: THEN
2853: p_party_rec.ACTIVE_START_DATE := l_curr_party_rec.ACTIVE_START_DATE;
2854: END IF;
2855: IF p_party_rec.ACTIVE_END_DATE IS NULL
2856: OR p_party_rec.ACTIVE_END_DATE = fnd_api.g_miss_date
2857: THEN
2858: p_party_rec.ACTIVE_END_DATE := l_curr_party_rec.ACTIVE_END_DATE;
2859: END IF;
2860: -- SK END ADDITION
2862: (l_curr_party_rec.INSTANCE_ID,
2863: p_party_rec.RELATIONSHIP_TYPE_CODE,
2864: p_party_rec.ACTIVE_START_DATE,
2865: p_party_rec.ACTIVE_END_DATE) THEN
2866: RAISE FND_API.G_EXC_ERROR;
2867: END IF;
2868: END IF; --SK ADDED
2869: END IF;
2870: END IF;
2871: END IF;
2872: END IF;
2873: -- Call table handlers to insert into the csi_i_parties table
2874: -- Verify if the party_source_table exists in CSI_LOOKUPS
2875: IF (p_party_rec.PARTY_SOURCE_TABLE <> FND_API.G_MISS_CHAR) THEN
2876: IF NOT(CSI_Instance_parties_vld_pvt.Is_Pty_Source_tab_Valid(p_party_rec.PARTY_SOURCE_TABLE)) THEN
2877: RAISE FND_API.G_EXC_ERROR;
2878: END IF;
2879: -- Verify if the party_id is valid based on the value of party_source_table
2873: -- Call table handlers to insert into the csi_i_parties table
2874: -- Verify if the party_source_table exists in CSI_LOOKUPS
2875: IF (p_party_rec.PARTY_SOURCE_TABLE <> FND_API.G_MISS_CHAR) THEN
2876: IF NOT(CSI_Instance_parties_vld_pvt.Is_Pty_Source_tab_Valid(p_party_rec.PARTY_SOURCE_TABLE)) THEN
2877: RAISE FND_API.G_EXC_ERROR;
2878: END IF;
2879: -- Verify if the party_id is valid based on the value of party_source_table
2880: IF (p_party_rec.PARTY_ID <> FND_API.G_MISS_NUM) THEN
2881: IF NOT(CSI_Instance_parties_vld_pvt.Is_Party_Valid
2876: IF NOT(CSI_Instance_parties_vld_pvt.Is_Pty_Source_tab_Valid(p_party_rec.PARTY_SOURCE_TABLE)) THEN
2877: RAISE FND_API.G_EXC_ERROR;
2878: END IF;
2879: -- Verify if the party_id is valid based on the value of party_source_table
2880: IF (p_party_rec.PARTY_ID <> FND_API.G_MISS_NUM) THEN
2881: IF NOT(CSI_Instance_parties_vld_pvt.Is_Party_Valid
2882: (p_party_rec.PARTY_SOURCE_TABLE ,
2883: p_party_rec.PARTY_ID ,
2884: p_party_rec.CONTACT_FLAG )) THEN
2881: IF NOT(CSI_Instance_parties_vld_pvt.Is_Party_Valid
2882: (p_party_rec.PARTY_SOURCE_TABLE ,
2883: p_party_rec.PARTY_ID ,
2884: p_party_rec.CONTACT_FLAG )) THEN
2885: RAISE FND_API.G_EXC_ERROR;
2886: END IF;
2887: END IF;
2888: ELSE
2889: IF (p_party_rec.PARTY_ID <> FND_API.G_MISS_NUM) THEN
2885: RAISE FND_API.G_EXC_ERROR;
2886: END IF;
2887: END IF;
2888: ELSE
2889: IF (p_party_rec.PARTY_ID <> FND_API.G_MISS_NUM) THEN
2890: IF NOT(CSI_Instance_parties_vld_pvt.Is_Party_Valid
2891: (l_curr_party_rec.PARTY_SOURCE_TABLE ,
2892: p_party_rec.PARTY_ID ,
2893: p_party_rec.CONTACT_FLAG )) THEN
2890: IF NOT(CSI_Instance_parties_vld_pvt.Is_Party_Valid
2891: (l_curr_party_rec.PARTY_SOURCE_TABLE ,
2892: p_party_rec.PARTY_ID ,
2893: p_party_rec.CONTACT_FLAG )) THEN
2894: RAISE FND_API.G_EXC_ERROR;
2895: END IF;
2896: END IF;
2897: END IF;
2898: -- Grab the internal party id from csi_installed paramters
2904: --
2905: IF l_internal_party_id IS NULL THEN
2906: FND_MESSAGE.SET_NAME('CSI','CSI_API_UNINSTALLED_PARAMETER');
2907: FND_MSG_PUB.ADD;
2908: RAISE FND_API.G_EXC_ERROR;
2909: END IF;
2910: -- Validate Tranfer Party rules in case of tranfer of instance
2911: IF ((p_party_rec.PARTY_ID <> FND_API.G_MISS_NUM)
2912: AND (p_party_rec.PARTY_ID IS NOT NULL)
2907: FND_MSG_PUB.ADD;
2908: RAISE FND_API.G_EXC_ERROR;
2909: END IF;
2910: -- Validate Tranfer Party rules in case of tranfer of instance
2911: IF ((p_party_rec.PARTY_ID <> FND_API.G_MISS_NUM)
2912: AND (p_party_rec.PARTY_ID IS NOT NULL)
2913: AND (p_party_rec.PARTY_ID <> l_curr_party_rec.PARTY_ID))
2914: --AND (p_party_rec.party_id <> l_internal_party_id)) -- commented for bug 3294748
2915: THEN
2926: ,x_return_status => x_return_status
2927: ,x_msg_count => x_msg_count
2928: ,x_msg_data => x_msg_data );
2929:
2930: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
2931: l_msg_index := 1;
2932: l_msg_count := x_msg_count;
2933: WHILE l_msg_count > 0 LOOP
2934: x_msg_data := FND_MSG_PUB.GET(
2932: l_msg_count := x_msg_count;
2933: WHILE l_msg_count > 0 LOOP
2934: x_msg_data := FND_MSG_PUB.GET(
2935: l_msg_index,
2936: FND_API.G_FALSE );
2937: csi_gen_utility_pvt.put_line( 'message data = '||x_msg_data);
2938: l_msg_index := l_msg_index + 1;
2939: l_msg_count := l_msg_count - 1;
2940: END LOOP;
2937: csi_gen_utility_pvt.put_line( 'message data = '||x_msg_data);
2938: l_msg_index := l_msg_index + 1;
2939: l_msg_count := l_msg_count - 1;
2940: END LOOP;
2941: RAISE FND_API.G_EXC_ERROR;
2942: END IF;
2943: END IF;
2944: -- Validate alternate primary key
2945: IF ((p_party_rec.instance_id IS NULL) OR (p_party_rec.instance_id = FND_API.G_MISS_NUM)) THEN
2941: RAISE FND_API.G_EXC_ERROR;
2942: END IF;
2943: END IF;
2944: -- Validate alternate primary key
2945: IF ((p_party_rec.instance_id IS NULL) OR (p_party_rec.instance_id = FND_API.G_MISS_NUM)) THEN
2946: l_alt_pk_instance_id := l_curr_party_rec.instance_id;
2947: ELSE
2948: l_alt_pk_instance_id := p_party_rec.instance_id;
2949: END IF;
2947: ELSE
2948: l_alt_pk_instance_id := p_party_rec.instance_id;
2949: END IF;
2950: --
2951: IF ((p_party_rec.party_source_table IS NULL) OR (p_party_rec.party_source_table = FND_API.G_MISS_CHAR)) THEN
2952: l_alt_pk_pty_source_tab := l_curr_party_rec.party_source_table;
2953: ELSE
2954: l_alt_pk_pty_source_tab := p_party_rec.party_source_table;
2955: END IF;
2953: ELSE
2954: l_alt_pk_pty_source_tab := p_party_rec.party_source_table;
2955: END IF;
2956: --
2957: IF ((p_party_rec.party_id IS NULL) OR (p_party_rec.party_id = FND_API.G_MISS_NUM)) THEN
2958: l_alt_pk_party_id := l_curr_party_rec.party_id;
2959: ELSE
2960: l_alt_pk_party_id := p_party_rec.party_id;
2961: END IF;
2960: l_alt_pk_party_id := p_party_rec.party_id;
2961: END IF;
2962: --
2963: IF ((p_party_rec.relationship_type_code IS NULL) OR
2964: (p_party_rec.relationship_type_code = FND_API.G_MISS_CHAR)) THEN
2965: l_alt_pk_rel_type_code := l_curr_party_rec.relationship_type_code ;
2966: ELSE
2967: l_alt_pk_rel_type_code := p_party_rec.relationship_type_code ;
2968: END IF;
2966: ELSE
2967: l_alt_pk_rel_type_code := p_party_rec.relationship_type_code ;
2968: END IF;
2969: --
2970: IF ((p_party_rec.contact_flag IS NULL) OR (p_party_rec.contact_flag = FND_API.G_MISS_CHAR)) THEN
2971: l_alt_pk_contact_flag := l_curr_party_rec.contact_flag ;
2972: ELSE
2973: l_alt_pk_contact_flag := p_party_rec.contact_flag ;
2974: END IF;
2996: AND party_source_table = l_alt_pk_pty_source_tab
2997: AND party_id = l_alt_pk_party_id
2998: AND relationship_type_code = l_alt_pk_rel_type_code
2999: AND contact_flag = l_alt_pk_contact_flag
3000: AND NVL(contact_ip_id,fnd_api.g_miss_num) = NVL(p_party_rec.contact_ip_id,fnd_api.g_miss_num)
3001: AND ((active_end_date IS NULL) OR (active_end_date >= sysdate));
3002: -- If found then there exists a record in csi_i_parties, Hence
3003: -- I need to expire(if active) this record.
3004: BEGIN
3018: csi_gen_utility_pvt.put_line('Too many rows exist in csi_i_parties with the same party rel combination.');
3019: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PARTY_REL_COMB');
3020: 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));
3021: FND_MSG_PUB.Add;
3022: RAISE FND_API.G_EXC_ERROR;
3023: WHEN OTHERS THEN
3024: NULL;
3025: END;
3026: ELSE
3031: l_alt_pk_rel_type_code ,
3032: l_alt_pk_contact_flag ,
3033: p_party_rec.contact_ip_id ,
3034: TRUE )) THEN
3035: RAISE FND_API.G_EXC_ERROR;
3036: END IF;
3037: END IF;
3038: END IF;
3039: --
3036: END IF;
3037: END IF;
3038: END IF;
3039: --
3040: IF p_party_rec.relationship_type_code <> FND_API.G_MISS_CHAR THEN
3041: IF (p_party_rec.relationship_type_code = 'OWNER' ) THEN
3042: update csi_item_instances
3043: set owner_party_source_table = l_alt_pk_pty_source_tab, --p_party_rec.party_source_table,--bug 2769176
3044: owner_party_id = l_alt_pk_party_id, --p_party_rec.party_id, --bug 2769176
3058: p_party_rec.preferred_flag:='E';
3059: END IF;
3060: -- A contact marked as Primary cannot be marked as 'Excluded'
3061: IF (p_party_rec.primary_flag='Y' AND p_party_rec.preferred_flag='E') OR
3062: (p_party_rec.primary_flag=fnd_api.g_miss_char AND nvl(l_curr_party_rec.primary_flag,'N') = 'Y' AND
3063: p_party_rec.preferred_flag='E') OR
3064: (p_party_rec.preferred_flag=fnd_api.g_miss_char AND nvl(l_curr_party_rec.preferred_flag,'N') = 'E' AND
3065: p_party_rec.primary_flag='Y')
3066: THEN
3060: -- A contact marked as Primary cannot be marked as 'Excluded'
3061: IF (p_party_rec.primary_flag='Y' AND p_party_rec.preferred_flag='E') OR
3062: (p_party_rec.primary_flag=fnd_api.g_miss_char AND nvl(l_curr_party_rec.primary_flag,'N') = 'Y' AND
3063: p_party_rec.preferred_flag='E') OR
3064: (p_party_rec.preferred_flag=fnd_api.g_miss_char AND nvl(l_curr_party_rec.preferred_flag,'N') = 'E' AND
3065: p_party_rec.primary_flag='Y')
3066: THEN
3067: fnd_message.set_name('CSI','CSI_PRIMARY_PTY_EXC');
3068: fnd_msg_pub.Add;
3065: p_party_rec.primary_flag='Y')
3066: THEN
3067: fnd_message.set_name('CSI','CSI_PRIMARY_PTY_EXC');
3068: fnd_msg_pub.Add;
3069: RAISE fnd_api.g_exc_error;
3070: END IF;
3071: -- Possible values for preferred flag are
3072: -- 'N','Y' and 'E'.
3073: IF p_party_rec.preferred_flag='Y' OR
3072: -- 'N','Y' and 'E'.
3073: IF p_party_rec.preferred_flag='Y' OR
3074: p_party_rec.preferred_flag='N' OR
3075: p_party_rec.preferred_flag='E' OR
3076: p_party_rec.preferred_flag=fnd_api.g_miss_char
3077: THEN
3078: NULL;
3079: ELSE
3080: fnd_message.set_name('CSI','CSI_PREFERRED_VALUES');
3079: ELSE
3080: fnd_message.set_name('CSI','CSI_PREFERRED_VALUES');
3081: fnd_message.set_token('PREFERRED_FLAG',p_party_rec.preferred_flag);
3082: fnd_msg_pub.Add;
3083: RAISE fnd_api.g_exc_error;
3084: END IF;
3085: -- Call table handlers to update the table
3086: CSI_I_PARTIES_PKG.Update_Row
3087: (
3109: p_ATTRIBUTE12 => p_party_rec.ATTRIBUTE12,
3110: p_ATTRIBUTE13 => p_party_rec.ATTRIBUTE13,
3111: p_ATTRIBUTE14 => p_party_rec.ATTRIBUTE14,
3112: p_ATTRIBUTE15 => p_party_rec.ATTRIBUTE15,
3113: p_CREATED_BY => FND_API.G_MISS_NUM, -- FND_GLOBAL.USER_ID,
3114: p_CREATION_DATE => FND_API.G_MISS_DATE, -- sysdate,
3115: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID,
3116: p_LAST_UPDATE_DATE => sysdate,
3117: p_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID,
3110: p_ATTRIBUTE13 => p_party_rec.ATTRIBUTE13,
3111: p_ATTRIBUTE14 => p_party_rec.ATTRIBUTE14,
3112: p_ATTRIBUTE15 => p_party_rec.ATTRIBUTE15,
3113: p_CREATED_BY => FND_API.G_MISS_NUM, -- FND_GLOBAL.USER_ID,
3114: p_CREATION_DATE => FND_API.G_MISS_DATE, -- sysdate,
3115: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID,
3116: p_LAST_UPDATE_DATE => sysdate,
3117: p_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID,
3118: p_OBJECT_VERSION_NUMBER => l_OBJECT_VERSION_NUMBER,
3131: ,x_return_status => x_return_status
3132: ,x_msg_count => x_msg_count
3133: ,x_msg_data => x_msg_data );
3134:
3135: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3136: l_msg_index := 1;
3137: l_msg_count := x_msg_count;
3138: WHILE l_msg_count > 0 LOOP
3139: x_msg_data := FND_MSG_PUB.GET(
3137: l_msg_count := x_msg_count;
3138: WHILE l_msg_count > 0 LOOP
3139: x_msg_data := FND_MSG_PUB.GET(
3140: l_msg_index,
3141: FND_API.G_FALSE );
3142: csi_gen_utility_pvt.put_line( 'message data = '||x_msg_data);
3143: l_msg_index := l_msg_index + 1;
3144: l_msg_count := l_msg_count - 1;
3145: END LOOP;
3142: csi_gen_utility_pvt.put_line( 'message data = '||x_msg_data);
3143: l_msg_index := l_msg_index + 1;
3144: l_msg_count := l_msg_count - 1;
3145: END LOOP;
3146: RAISE FND_API.G_EXC_ERROR;
3147: END IF;
3148:
3149: -- Get the full_dump_frequency from csi_install_parameter
3150: IF csi_datastructures_pub.g_install_param_rec.fetch_flag IS NULL THEN
3155: --
3156: IF l_full_dump_frequency IS NULL THEN
3157: FND_MESSAGE.SET_NAME('CSI','CSI_API_GET_FULL_DUMP_FAILED');
3158: FND_MSG_PUB.ADD;
3159: RAISE FND_API.G_EXC_ERROR;
3160: END IF;
3161: -- Generate a unique instance_party_history_id from the sequence
3162: l_inst_party_his_id := CSI_Instance_parties_vld_pvt.gen_inst_party_hist_id;
3163:
3184: THEN
3185: CSI_I_PARTIES_H_PKG.update_Row
3186: (
3187: p_INSTANCE_PARTY_HISTORY_ID => l_party_hist_id ,
3188: p_INSTANCE_PARTY_ID => fnd_api.g_miss_num ,
3189: p_TRANSACTION_ID => fnd_api.g_miss_num ,
3190: p_OLD_PARTY_SOURCE_TABLE => fnd_api.g_miss_char ,
3191: p_NEW_PARTY_SOURCE_TABLE => l_temp_party_rec.PARTY_SOURCE_TABLE,
3192: p_OLD_PARTY_ID => fnd_api.g_miss_num ,
3185: CSI_I_PARTIES_H_PKG.update_Row
3186: (
3187: p_INSTANCE_PARTY_HISTORY_ID => l_party_hist_id ,
3188: p_INSTANCE_PARTY_ID => fnd_api.g_miss_num ,
3189: p_TRANSACTION_ID => fnd_api.g_miss_num ,
3190: p_OLD_PARTY_SOURCE_TABLE => fnd_api.g_miss_char ,
3191: p_NEW_PARTY_SOURCE_TABLE => l_temp_party_rec.PARTY_SOURCE_TABLE,
3192: p_OLD_PARTY_ID => fnd_api.g_miss_num ,
3193: p_NEW_PARTY_ID => l_temp_party_rec.PARTY_ID ,
3186: (
3187: p_INSTANCE_PARTY_HISTORY_ID => l_party_hist_id ,
3188: p_INSTANCE_PARTY_ID => fnd_api.g_miss_num ,
3189: p_TRANSACTION_ID => fnd_api.g_miss_num ,
3190: p_OLD_PARTY_SOURCE_TABLE => fnd_api.g_miss_char ,
3191: p_NEW_PARTY_SOURCE_TABLE => l_temp_party_rec.PARTY_SOURCE_TABLE,
3192: p_OLD_PARTY_ID => fnd_api.g_miss_num ,
3193: p_NEW_PARTY_ID => l_temp_party_rec.PARTY_ID ,
3194: p_OLD_RELATIONSHIP_TYPE_CODE => fnd_api.g_miss_char ,
3188: p_INSTANCE_PARTY_ID => fnd_api.g_miss_num ,
3189: p_TRANSACTION_ID => fnd_api.g_miss_num ,
3190: p_OLD_PARTY_SOURCE_TABLE => fnd_api.g_miss_char ,
3191: p_NEW_PARTY_SOURCE_TABLE => l_temp_party_rec.PARTY_SOURCE_TABLE,
3192: p_OLD_PARTY_ID => fnd_api.g_miss_num ,
3193: p_NEW_PARTY_ID => l_temp_party_rec.PARTY_ID ,
3194: p_OLD_RELATIONSHIP_TYPE_CODE => fnd_api.g_miss_char ,
3195: p_NEW_RELATIONSHIP_TYPE_CODE => l_temp_party_rec.RELATIONSHIP_TYPE_CODE,
3196: p_OLD_CONTACT_FLAG => fnd_api.g_miss_char ,
3190: p_OLD_PARTY_SOURCE_TABLE => fnd_api.g_miss_char ,
3191: p_NEW_PARTY_SOURCE_TABLE => l_temp_party_rec.PARTY_SOURCE_TABLE,
3192: p_OLD_PARTY_ID => fnd_api.g_miss_num ,
3193: p_NEW_PARTY_ID => l_temp_party_rec.PARTY_ID ,
3194: p_OLD_RELATIONSHIP_TYPE_CODE => fnd_api.g_miss_char ,
3195: p_NEW_RELATIONSHIP_TYPE_CODE => l_temp_party_rec.RELATIONSHIP_TYPE_CODE,
3196: p_OLD_CONTACT_FLAG => fnd_api.g_miss_char ,
3197: p_NEW_CONTACT_FLAG => l_temp_party_rec.CONTACT_FLAG ,
3198: p_OLD_CONTACT_IP_ID => fnd_api.g_miss_num ,
3192: p_OLD_PARTY_ID => fnd_api.g_miss_num ,
3193: p_NEW_PARTY_ID => l_temp_party_rec.PARTY_ID ,
3194: p_OLD_RELATIONSHIP_TYPE_CODE => fnd_api.g_miss_char ,
3195: p_NEW_RELATIONSHIP_TYPE_CODE => l_temp_party_rec.RELATIONSHIP_TYPE_CODE,
3196: p_OLD_CONTACT_FLAG => fnd_api.g_miss_char ,
3197: p_NEW_CONTACT_FLAG => l_temp_party_rec.CONTACT_FLAG ,
3198: p_OLD_CONTACT_IP_ID => fnd_api.g_miss_num ,
3199: p_NEW_CONTACT_IP_ID => l_temp_party_rec.CONTACT_IP_ID ,
3200: p_OLD_ACTIVE_START_DATE => l_curr_party_rec.ACTIVE_START_DATE ,
3194: p_OLD_RELATIONSHIP_TYPE_CODE => fnd_api.g_miss_char ,
3195: p_NEW_RELATIONSHIP_TYPE_CODE => l_temp_party_rec.RELATIONSHIP_TYPE_CODE,
3196: p_OLD_CONTACT_FLAG => fnd_api.g_miss_char ,
3197: p_NEW_CONTACT_FLAG => l_temp_party_rec.CONTACT_FLAG ,
3198: p_OLD_CONTACT_IP_ID => fnd_api.g_miss_num ,
3199: p_NEW_CONTACT_IP_ID => l_temp_party_rec.CONTACT_IP_ID ,
3200: p_OLD_ACTIVE_START_DATE => l_curr_party_rec.ACTIVE_START_DATE ,
3201: p_NEW_ACTIVE_START_DATE => l_temp_party_rec.ACTIVE_START_DATE ,
3202: p_OLD_ACTIVE_END_DATE => l_curr_party_rec.ACTIVE_END_DATE ,
3200: p_OLD_ACTIVE_START_DATE => l_curr_party_rec.ACTIVE_START_DATE ,
3201: p_NEW_ACTIVE_START_DATE => l_temp_party_rec.ACTIVE_START_DATE ,
3202: p_OLD_ACTIVE_END_DATE => l_curr_party_rec.ACTIVE_END_DATE ,
3203: p_NEW_ACTIVE_END_DATE => l_temp_party_rec.ACTIVE_END_DATE ,
3204: p_OLD_CONTEXT => fnd_api.g_miss_char ,
3205: p_NEW_CONTEXT => l_temp_party_rec.context ,
3206: p_OLD_ATTRIBUTE1 => fnd_api.g_miss_char ,
3207: p_NEW_ATTRIBUTE1 => l_temp_party_rec.ATTRIBUTE1 ,
3208: p_OLD_ATTRIBUTE2 => fnd_api.g_miss_char ,
3202: p_OLD_ACTIVE_END_DATE => l_curr_party_rec.ACTIVE_END_DATE ,
3203: p_NEW_ACTIVE_END_DATE => l_temp_party_rec.ACTIVE_END_DATE ,
3204: p_OLD_CONTEXT => fnd_api.g_miss_char ,
3205: p_NEW_CONTEXT => l_temp_party_rec.context ,
3206: p_OLD_ATTRIBUTE1 => fnd_api.g_miss_char ,
3207: p_NEW_ATTRIBUTE1 => l_temp_party_rec.ATTRIBUTE1 ,
3208: p_OLD_ATTRIBUTE2 => fnd_api.g_miss_char ,
3209: p_NEW_ATTRIBUTE2 => l_temp_party_rec.ATTRIBUTE2 ,
3210: p_OLD_ATTRIBUTE3 => fnd_api.g_miss_char ,
3204: p_OLD_CONTEXT => fnd_api.g_miss_char ,
3205: p_NEW_CONTEXT => l_temp_party_rec.context ,
3206: p_OLD_ATTRIBUTE1 => fnd_api.g_miss_char ,
3207: p_NEW_ATTRIBUTE1 => l_temp_party_rec.ATTRIBUTE1 ,
3208: p_OLD_ATTRIBUTE2 => fnd_api.g_miss_char ,
3209: p_NEW_ATTRIBUTE2 => l_temp_party_rec.ATTRIBUTE2 ,
3210: p_OLD_ATTRIBUTE3 => fnd_api.g_miss_char ,
3211: p_NEW_ATTRIBUTE3 => l_temp_party_rec.ATTRIBUTE3 ,
3212: p_OLD_ATTRIBUTE4 => fnd_api.g_miss_char ,
3206: p_OLD_ATTRIBUTE1 => fnd_api.g_miss_char ,
3207: p_NEW_ATTRIBUTE1 => l_temp_party_rec.ATTRIBUTE1 ,
3208: p_OLD_ATTRIBUTE2 => fnd_api.g_miss_char ,
3209: p_NEW_ATTRIBUTE2 => l_temp_party_rec.ATTRIBUTE2 ,
3210: p_OLD_ATTRIBUTE3 => fnd_api.g_miss_char ,
3211: p_NEW_ATTRIBUTE3 => l_temp_party_rec.ATTRIBUTE3 ,
3212: p_OLD_ATTRIBUTE4 => fnd_api.g_miss_char ,
3213: p_NEW_ATTRIBUTE4 => l_temp_party_rec.ATTRIBUTE4 ,
3214: p_OLD_ATTRIBUTE5 => fnd_api.g_miss_char ,
3208: p_OLD_ATTRIBUTE2 => fnd_api.g_miss_char ,
3209: p_NEW_ATTRIBUTE2 => l_temp_party_rec.ATTRIBUTE2 ,
3210: p_OLD_ATTRIBUTE3 => fnd_api.g_miss_char ,
3211: p_NEW_ATTRIBUTE3 => l_temp_party_rec.ATTRIBUTE3 ,
3212: p_OLD_ATTRIBUTE4 => fnd_api.g_miss_char ,
3213: p_NEW_ATTRIBUTE4 => l_temp_party_rec.ATTRIBUTE4 ,
3214: p_OLD_ATTRIBUTE5 => fnd_api.g_miss_char ,
3215: p_NEW_ATTRIBUTE5 => l_temp_party_rec.ATTRIBUTE5 ,
3216: p_OLD_ATTRIBUTE6 => fnd_api.g_miss_char ,
3210: p_OLD_ATTRIBUTE3 => fnd_api.g_miss_char ,
3211: p_NEW_ATTRIBUTE3 => l_temp_party_rec.ATTRIBUTE3 ,
3212: p_OLD_ATTRIBUTE4 => fnd_api.g_miss_char ,
3213: p_NEW_ATTRIBUTE4 => l_temp_party_rec.ATTRIBUTE4 ,
3214: p_OLD_ATTRIBUTE5 => fnd_api.g_miss_char ,
3215: p_NEW_ATTRIBUTE5 => l_temp_party_rec.ATTRIBUTE5 ,
3216: p_OLD_ATTRIBUTE6 => fnd_api.g_miss_char ,
3217: p_NEW_ATTRIBUTE6 => l_temp_party_rec.ATTRIBUTE6 ,
3218: p_OLD_ATTRIBUTE7 => fnd_api.g_miss_char ,
3212: p_OLD_ATTRIBUTE4 => fnd_api.g_miss_char ,
3213: p_NEW_ATTRIBUTE4 => l_temp_party_rec.ATTRIBUTE4 ,
3214: p_OLD_ATTRIBUTE5 => fnd_api.g_miss_char ,
3215: p_NEW_ATTRIBUTE5 => l_temp_party_rec.ATTRIBUTE5 ,
3216: p_OLD_ATTRIBUTE6 => fnd_api.g_miss_char ,
3217: p_NEW_ATTRIBUTE6 => l_temp_party_rec.ATTRIBUTE6 ,
3218: p_OLD_ATTRIBUTE7 => fnd_api.g_miss_char ,
3219: p_NEW_ATTRIBUTE7 => l_temp_party_rec.ATTRIBUTE7 ,
3220: p_OLD_ATTRIBUTE8 => fnd_api.g_miss_char ,
3214: p_OLD_ATTRIBUTE5 => fnd_api.g_miss_char ,
3215: p_NEW_ATTRIBUTE5 => l_temp_party_rec.ATTRIBUTE5 ,
3216: p_OLD_ATTRIBUTE6 => fnd_api.g_miss_char ,
3217: p_NEW_ATTRIBUTE6 => l_temp_party_rec.ATTRIBUTE6 ,
3218: p_OLD_ATTRIBUTE7 => fnd_api.g_miss_char ,
3219: p_NEW_ATTRIBUTE7 => l_temp_party_rec.ATTRIBUTE7 ,
3220: p_OLD_ATTRIBUTE8 => fnd_api.g_miss_char ,
3221: p_NEW_ATTRIBUTE8 => l_temp_party_rec.ATTRIBUTE8 ,
3222: p_OLD_ATTRIBUTE9 => fnd_api.g_miss_char ,
3216: p_OLD_ATTRIBUTE6 => fnd_api.g_miss_char ,
3217: p_NEW_ATTRIBUTE6 => l_temp_party_rec.ATTRIBUTE6 ,
3218: p_OLD_ATTRIBUTE7 => fnd_api.g_miss_char ,
3219: p_NEW_ATTRIBUTE7 => l_temp_party_rec.ATTRIBUTE7 ,
3220: p_OLD_ATTRIBUTE8 => fnd_api.g_miss_char ,
3221: p_NEW_ATTRIBUTE8 => l_temp_party_rec.ATTRIBUTE8 ,
3222: p_OLD_ATTRIBUTE9 => fnd_api.g_miss_char ,
3223: p_NEW_ATTRIBUTE9 => l_temp_party_rec.ATTRIBUTE9 ,
3224: p_OLD_ATTRIBUTE10 => fnd_api.g_miss_char ,
3218: p_OLD_ATTRIBUTE7 => fnd_api.g_miss_char ,
3219: p_NEW_ATTRIBUTE7 => l_temp_party_rec.ATTRIBUTE7 ,
3220: p_OLD_ATTRIBUTE8 => fnd_api.g_miss_char ,
3221: p_NEW_ATTRIBUTE8 => l_temp_party_rec.ATTRIBUTE8 ,
3222: p_OLD_ATTRIBUTE9 => fnd_api.g_miss_char ,
3223: p_NEW_ATTRIBUTE9 => l_temp_party_rec.ATTRIBUTE9 ,
3224: p_OLD_ATTRIBUTE10 => fnd_api.g_miss_char ,
3225: p_NEW_ATTRIBUTE10 => l_temp_party_rec.ATTRIBUTE10 ,
3226: p_OLD_ATTRIBUTE11 => fnd_api.g_miss_char ,
3220: p_OLD_ATTRIBUTE8 => fnd_api.g_miss_char ,
3221: p_NEW_ATTRIBUTE8 => l_temp_party_rec.ATTRIBUTE8 ,
3222: p_OLD_ATTRIBUTE9 => fnd_api.g_miss_char ,
3223: p_NEW_ATTRIBUTE9 => l_temp_party_rec.ATTRIBUTE9 ,
3224: p_OLD_ATTRIBUTE10 => fnd_api.g_miss_char ,
3225: p_NEW_ATTRIBUTE10 => l_temp_party_rec.ATTRIBUTE10 ,
3226: p_OLD_ATTRIBUTE11 => fnd_api.g_miss_char ,
3227: p_NEW_ATTRIBUTE11 => l_temp_party_rec.ATTRIBUTE11 ,
3228: p_OLD_ATTRIBUTE12 => fnd_api.g_miss_char ,
3222: p_OLD_ATTRIBUTE9 => fnd_api.g_miss_char ,
3223: p_NEW_ATTRIBUTE9 => l_temp_party_rec.ATTRIBUTE9 ,
3224: p_OLD_ATTRIBUTE10 => fnd_api.g_miss_char ,
3225: p_NEW_ATTRIBUTE10 => l_temp_party_rec.ATTRIBUTE10 ,
3226: p_OLD_ATTRIBUTE11 => fnd_api.g_miss_char ,
3227: p_NEW_ATTRIBUTE11 => l_temp_party_rec.ATTRIBUTE11 ,
3228: p_OLD_ATTRIBUTE12 => fnd_api.g_miss_char ,
3229: p_NEW_ATTRIBUTE12 => l_temp_party_rec.ATTRIBUTE12 ,
3230: p_OLD_ATTRIBUTE13 => fnd_api.g_miss_char ,
3224: p_OLD_ATTRIBUTE10 => fnd_api.g_miss_char ,
3225: p_NEW_ATTRIBUTE10 => l_temp_party_rec.ATTRIBUTE10 ,
3226: p_OLD_ATTRIBUTE11 => fnd_api.g_miss_char ,
3227: p_NEW_ATTRIBUTE11 => l_temp_party_rec.ATTRIBUTE11 ,
3228: p_OLD_ATTRIBUTE12 => fnd_api.g_miss_char ,
3229: p_NEW_ATTRIBUTE12 => l_temp_party_rec.ATTRIBUTE12 ,
3230: p_OLD_ATTRIBUTE13 => fnd_api.g_miss_char ,
3231: p_NEW_ATTRIBUTE13 => l_temp_party_rec.ATTRIBUTE13 ,
3232: p_OLD_ATTRIBUTE14 => fnd_api.g_miss_char ,
3226: p_OLD_ATTRIBUTE11 => fnd_api.g_miss_char ,
3227: p_NEW_ATTRIBUTE11 => l_temp_party_rec.ATTRIBUTE11 ,
3228: p_OLD_ATTRIBUTE12 => fnd_api.g_miss_char ,
3229: p_NEW_ATTRIBUTE12 => l_temp_party_rec.ATTRIBUTE12 ,
3230: p_OLD_ATTRIBUTE13 => fnd_api.g_miss_char ,
3231: p_NEW_ATTRIBUTE13 => l_temp_party_rec.ATTRIBUTE13 ,
3232: p_OLD_ATTRIBUTE14 => fnd_api.g_miss_char ,
3233: p_NEW_ATTRIBUTE14 => l_temp_party_rec.ATTRIBUTE14 ,
3234: p_OLD_ATTRIBUTE15 => fnd_api.g_miss_char ,
3228: p_OLD_ATTRIBUTE12 => fnd_api.g_miss_char ,
3229: p_NEW_ATTRIBUTE12 => l_temp_party_rec.ATTRIBUTE12 ,
3230: p_OLD_ATTRIBUTE13 => fnd_api.g_miss_char ,
3231: p_NEW_ATTRIBUTE13 => l_temp_party_rec.ATTRIBUTE13 ,
3232: p_OLD_ATTRIBUTE14 => fnd_api.g_miss_char ,
3233: p_NEW_ATTRIBUTE14 => l_temp_party_rec.ATTRIBUTE14 ,
3234: p_OLD_ATTRIBUTE15 => fnd_api.g_miss_char ,
3235: p_NEW_ATTRIBUTE15 => l_temp_party_rec.ATTRIBUTE15 ,
3236: p_FULL_DUMP_FLAG => fnd_api.g_miss_char ,
3230: p_OLD_ATTRIBUTE13 => fnd_api.g_miss_char ,
3231: p_NEW_ATTRIBUTE13 => l_temp_party_rec.ATTRIBUTE13 ,
3232: p_OLD_ATTRIBUTE14 => fnd_api.g_miss_char ,
3233: p_NEW_ATTRIBUTE14 => l_temp_party_rec.ATTRIBUTE14 ,
3234: p_OLD_ATTRIBUTE15 => fnd_api.g_miss_char ,
3235: p_NEW_ATTRIBUTE15 => l_temp_party_rec.ATTRIBUTE15 ,
3236: p_FULL_DUMP_FLAG => fnd_api.g_miss_char ,
3237: p_CREATED_BY => FND_API.G_MISS_NUM ,
3238: p_CREATION_DATE => FND_API.G_MISS_DATE ,
3232: p_OLD_ATTRIBUTE14 => fnd_api.g_miss_char ,
3233: p_NEW_ATTRIBUTE14 => l_temp_party_rec.ATTRIBUTE14 ,
3234: p_OLD_ATTRIBUTE15 => fnd_api.g_miss_char ,
3235: p_NEW_ATTRIBUTE15 => l_temp_party_rec.ATTRIBUTE15 ,
3236: p_FULL_DUMP_FLAG => fnd_api.g_miss_char ,
3237: p_CREATED_BY => FND_API.G_MISS_NUM ,
3238: p_CREATION_DATE => FND_API.G_MISS_DATE ,
3239: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID ,
3240: p_LAST_UPDATE_DATE => SYSDATE ,
3233: p_NEW_ATTRIBUTE14 => l_temp_party_rec.ATTRIBUTE14 ,
3234: p_OLD_ATTRIBUTE15 => fnd_api.g_miss_char ,
3235: p_NEW_ATTRIBUTE15 => l_temp_party_rec.ATTRIBUTE15 ,
3236: p_FULL_DUMP_FLAG => fnd_api.g_miss_char ,
3237: p_CREATED_BY => FND_API.G_MISS_NUM ,
3238: p_CREATION_DATE => FND_API.G_MISS_DATE ,
3239: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID ,
3240: p_LAST_UPDATE_DATE => SYSDATE ,
3241: p_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID ,
3234: p_OLD_ATTRIBUTE15 => fnd_api.g_miss_char ,
3235: p_NEW_ATTRIBUTE15 => l_temp_party_rec.ATTRIBUTE15 ,
3236: p_FULL_DUMP_FLAG => fnd_api.g_miss_char ,
3237: p_CREATED_BY => FND_API.G_MISS_NUM ,
3238: p_CREATION_DATE => FND_API.G_MISS_DATE ,
3239: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID ,
3240: p_LAST_UPDATE_DATE => SYSDATE ,
3241: p_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID ,
3242: p_OBJECT_VERSION_NUMBER => fnd_api.g_miss_num ,
3238: p_CREATION_DATE => FND_API.G_MISS_DATE ,
3239: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID ,
3240: p_LAST_UPDATE_DATE => SYSDATE ,
3241: p_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID ,
3242: p_OBJECT_VERSION_NUMBER => fnd_api.g_miss_num ,
3243: p_OLD_PRIMARY_FLAG => fnd_api.g_miss_char ,
3244: p_NEW_PRIMARY_FLAG => l_temp_party_rec.PRIMARY_FLAG ,
3245: p_OLD_PREFERRED_FLAG => fnd_api.g_miss_char ,
3246: p_NEW_PREFERRED_FLAG => l_temp_party_rec.PREFERRED_FLAG );
3239: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID ,
3240: p_LAST_UPDATE_DATE => SYSDATE ,
3241: p_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID ,
3242: p_OBJECT_VERSION_NUMBER => fnd_api.g_miss_num ,
3243: p_OLD_PRIMARY_FLAG => fnd_api.g_miss_char ,
3244: p_NEW_PRIMARY_FLAG => l_temp_party_rec.PRIMARY_FLAG ,
3245: p_OLD_PREFERRED_FLAG => fnd_api.g_miss_char ,
3246: p_NEW_PREFERRED_FLAG => l_temp_party_rec.PREFERRED_FLAG );
3247:
3241: p_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID ,
3242: p_OBJECT_VERSION_NUMBER => fnd_api.g_miss_num ,
3243: p_OLD_PRIMARY_FLAG => fnd_api.g_miss_char ,
3244: p_NEW_PRIMARY_FLAG => l_temp_party_rec.PRIMARY_FLAG ,
3245: p_OLD_PREFERRED_FLAG => fnd_api.g_miss_char ,
3246: p_NEW_PREFERRED_FLAG => l_temp_party_rec.PREFERRED_FLAG );
3247:
3248: ELSE
3249:
3249:
3250: IF ( l_pty_hist_csr.old_party_source_table IS NULL
3251: AND l_pty_hist_csr.new_party_source_table IS NULL ) THEN
3252: IF ( l_temp_party_rec.party_source_table = l_curr_party_rec.party_source_table )
3253: OR ( l_temp_party_rec.party_source_table = fnd_api.g_miss_char ) THEN
3254: l_pty_hist_csr.old_party_source_table := NULL;
3255: l_pty_hist_csr.new_party_source_table := NULL;
3256: ELSE
3257: l_pty_hist_csr.old_party_source_table := fnd_api.g_miss_char;
3253: OR ( l_temp_party_rec.party_source_table = fnd_api.g_miss_char ) THEN
3254: l_pty_hist_csr.old_party_source_table := NULL;
3255: l_pty_hist_csr.new_party_source_table := NULL;
3256: ELSE
3257: l_pty_hist_csr.old_party_source_table := fnd_api.g_miss_char;
3258: l_pty_hist_csr.new_party_source_table := l_temp_party_rec.party_source_table;
3259: END IF;
3260: ELSE
3261: l_pty_hist_csr.old_party_source_table := fnd_api.g_miss_char;
3257: l_pty_hist_csr.old_party_source_table := fnd_api.g_miss_char;
3258: l_pty_hist_csr.new_party_source_table := l_temp_party_rec.party_source_table;
3259: END IF;
3260: ELSE
3261: l_pty_hist_csr.old_party_source_table := fnd_api.g_miss_char;
3262: l_pty_hist_csr.new_party_source_table := l_temp_party_rec.party_source_table;
3263: END IF;
3264: --
3265: IF ( l_pty_hist_csr.old_party_id IS NULL
3264: --
3265: IF ( l_pty_hist_csr.old_party_id IS NULL
3266: AND l_pty_hist_csr.new_party_id IS NULL ) THEN
3267: IF ( l_temp_party_rec.party_id = l_curr_party_rec.party_id )
3268: OR ( l_temp_party_rec.party_id = fnd_api.g_miss_num ) THEN
3269: l_pty_hist_csr.old_party_id := NULL;
3270: l_pty_hist_csr.new_party_id := NULL;
3271: ELSE
3272: l_pty_hist_csr.old_party_id := fnd_api.g_miss_num;
3268: OR ( l_temp_party_rec.party_id = fnd_api.g_miss_num ) THEN
3269: l_pty_hist_csr.old_party_id := NULL;
3270: l_pty_hist_csr.new_party_id := NULL;
3271: ELSE
3272: l_pty_hist_csr.old_party_id := fnd_api.g_miss_num;
3273: l_pty_hist_csr.new_party_id := l_temp_party_rec.party_id;
3274: END IF;
3275: ELSE
3276: l_pty_hist_csr.old_party_id := fnd_api.g_miss_num;
3272: l_pty_hist_csr.old_party_id := fnd_api.g_miss_num;
3273: l_pty_hist_csr.new_party_id := l_temp_party_rec.party_id;
3274: END IF;
3275: ELSE
3276: l_pty_hist_csr.old_party_id := fnd_api.g_miss_num;
3277: l_pty_hist_csr.new_party_id := l_temp_party_rec.party_id;
3278: END IF;
3279: --
3280: IF ( l_pty_hist_csr.old_relationship_type_code IS NULL
3279: --
3280: IF ( l_pty_hist_csr.old_relationship_type_code IS NULL
3281: AND l_pty_hist_csr.new_relationship_type_code IS NULL ) THEN
3282: IF ( l_temp_party_rec.relationship_type_code = l_curr_party_rec.relationship_type_code )
3283: OR ( l_temp_party_rec.relationship_type_code = fnd_api.g_miss_char ) THEN
3284: l_pty_hist_csr.old_relationship_type_code := NULL;
3285: l_pty_hist_csr.new_relationship_type_code := NULL;
3286: ELSE
3287: l_pty_hist_csr.old_relationship_type_code := fnd_api.g_miss_char;
3283: OR ( l_temp_party_rec.relationship_type_code = fnd_api.g_miss_char ) THEN
3284: l_pty_hist_csr.old_relationship_type_code := NULL;
3285: l_pty_hist_csr.new_relationship_type_code := NULL;
3286: ELSE
3287: l_pty_hist_csr.old_relationship_type_code := fnd_api.g_miss_char;
3288: l_pty_hist_csr.new_relationship_type_code := l_temp_party_rec.relationship_type_code;
3289: END IF;
3290: ELSE
3291: l_pty_hist_csr.old_relationship_type_code := fnd_api.g_miss_char;
3287: l_pty_hist_csr.old_relationship_type_code := fnd_api.g_miss_char;
3288: l_pty_hist_csr.new_relationship_type_code := l_temp_party_rec.relationship_type_code;
3289: END IF;
3290: ELSE
3291: l_pty_hist_csr.old_relationship_type_code := fnd_api.g_miss_char;
3292: l_pty_hist_csr.new_relationship_type_code := l_temp_party_rec.relationship_type_code;
3293: END IF;
3294: --
3295: IF ( l_pty_hist_csr.old_contact_flag IS NULL
3294: --
3295: IF ( l_pty_hist_csr.old_contact_flag IS NULL
3296: AND l_pty_hist_csr.new_contact_flag IS NULL ) THEN
3297: IF ( l_temp_party_rec.contact_flag = l_curr_party_rec.contact_flag )
3298: OR ( l_temp_party_rec.contact_flag = fnd_api.g_miss_char ) THEN
3299: l_pty_hist_csr.old_contact_flag := NULL;
3300: l_pty_hist_csr.new_contact_flag := NULL;
3301: ELSE
3302: l_pty_hist_csr.old_contact_flag := fnd_api.g_miss_char;
3298: OR ( l_temp_party_rec.contact_flag = fnd_api.g_miss_char ) THEN
3299: l_pty_hist_csr.old_contact_flag := NULL;
3300: l_pty_hist_csr.new_contact_flag := NULL;
3301: ELSE
3302: l_pty_hist_csr.old_contact_flag := fnd_api.g_miss_char;
3303: l_pty_hist_csr.new_contact_flag := l_temp_party_rec.contact_flag;
3304: END IF;
3305: ELSE
3306: l_pty_hist_csr.old_contact_flag := fnd_api.g_miss_char;
3302: l_pty_hist_csr.old_contact_flag := fnd_api.g_miss_char;
3303: l_pty_hist_csr.new_contact_flag := l_temp_party_rec.contact_flag;
3304: END IF;
3305: ELSE
3306: l_pty_hist_csr.old_contact_flag := fnd_api.g_miss_char;
3307: l_pty_hist_csr.new_contact_flag := l_temp_party_rec.contact_flag;
3308: END IF;
3309: --
3310: IF ( l_pty_hist_csr.old_contact_ip_id IS NULL
3309: --
3310: IF ( l_pty_hist_csr.old_contact_ip_id IS NULL
3311: AND l_pty_hist_csr.new_contact_ip_id IS NULL ) THEN
3312: IF ( l_temp_party_rec.contact_ip_id = l_curr_party_rec.contact_ip_id )
3313: OR ( l_temp_party_rec.contact_ip_id = fnd_api.g_miss_num ) THEN
3314: l_pty_hist_csr.old_contact_ip_id := NULL;
3315: l_pty_hist_csr.new_contact_ip_id := NULL;
3316: ELSE
3317: l_pty_hist_csr.old_contact_ip_id := fnd_api.g_miss_num;
3313: OR ( l_temp_party_rec.contact_ip_id = fnd_api.g_miss_num ) THEN
3314: l_pty_hist_csr.old_contact_ip_id := NULL;
3315: l_pty_hist_csr.new_contact_ip_id := NULL;
3316: ELSE
3317: l_pty_hist_csr.old_contact_ip_id := fnd_api.g_miss_num;
3318: l_pty_hist_csr.new_contact_ip_id := l_temp_party_rec.contact_ip_id;
3319: END IF;
3320: ELSE
3321: l_pty_hist_csr.old_contact_ip_id := fnd_api.g_miss_num;
3317: l_pty_hist_csr.old_contact_ip_id := fnd_api.g_miss_num;
3318: l_pty_hist_csr.new_contact_ip_id := l_temp_party_rec.contact_ip_id;
3319: END IF;
3320: ELSE
3321: l_pty_hist_csr.old_contact_ip_id := fnd_api.g_miss_num;
3322: l_pty_hist_csr.new_contact_ip_id := l_temp_party_rec.contact_ip_id;
3323: END IF;
3324: --
3325: IF ( l_pty_hist_csr.old_active_start_date IS NULL
3324: --
3325: IF ( l_pty_hist_csr.old_active_start_date IS NULL
3326: AND l_pty_hist_csr.new_active_start_date IS NULL ) THEN
3327: IF ( l_temp_party_rec.active_start_date = l_curr_party_rec.active_start_date )
3328: OR ( l_temp_party_rec.active_start_date = fnd_api.g_miss_date ) THEN
3329: l_pty_hist_csr.old_active_start_date := NULL;
3330: l_pty_hist_csr.new_active_start_date := NULL;
3331: ELSE
3332: l_pty_hist_csr.old_active_start_date := fnd_api.g_miss_date;
3328: OR ( l_temp_party_rec.active_start_date = fnd_api.g_miss_date ) THEN
3329: l_pty_hist_csr.old_active_start_date := NULL;
3330: l_pty_hist_csr.new_active_start_date := NULL;
3331: ELSE
3332: l_pty_hist_csr.old_active_start_date := fnd_api.g_miss_date;
3333: l_pty_hist_csr.new_active_start_date := l_temp_party_rec.active_start_date;
3334: END IF;
3335: ELSE
3336: l_pty_hist_csr.old_active_start_date := fnd_api.g_miss_date;
3332: l_pty_hist_csr.old_active_start_date := fnd_api.g_miss_date;
3333: l_pty_hist_csr.new_active_start_date := l_temp_party_rec.active_start_date;
3334: END IF;
3335: ELSE
3336: l_pty_hist_csr.old_active_start_date := fnd_api.g_miss_date;
3337: l_pty_hist_csr.new_active_start_date := l_temp_party_rec.active_start_date;
3338: END IF;
3339: --
3340: IF ( l_pty_hist_csr.old_active_end_date IS NULL
3339: --
3340: IF ( l_pty_hist_csr.old_active_end_date IS NULL
3341: AND l_pty_hist_csr.new_active_end_date IS NULL ) THEN
3342: IF ( l_temp_party_rec.active_end_date = l_curr_party_rec.active_end_date )
3343: OR ( l_temp_party_rec.active_end_date = fnd_api.g_miss_date ) THEN
3344: l_pty_hist_csr.old_active_end_date := NULL;
3345: l_pty_hist_csr.new_active_end_date := NULL;
3346: ELSE
3347: l_pty_hist_csr.old_active_end_date := fnd_api.g_miss_date;
3343: OR ( l_temp_party_rec.active_end_date = fnd_api.g_miss_date ) THEN
3344: l_pty_hist_csr.old_active_end_date := NULL;
3345: l_pty_hist_csr.new_active_end_date := NULL;
3346: ELSE
3347: l_pty_hist_csr.old_active_end_date := fnd_api.g_miss_date;
3348: l_pty_hist_csr.new_active_end_date := l_temp_party_rec.active_end_date;
3349: END IF;
3350: ELSE
3351: l_pty_hist_csr.old_active_end_date := fnd_api.g_miss_date;
3347: l_pty_hist_csr.old_active_end_date := fnd_api.g_miss_date;
3348: l_pty_hist_csr.new_active_end_date := l_temp_party_rec.active_end_date;
3349: END IF;
3350: ELSE
3351: l_pty_hist_csr.old_active_end_date := fnd_api.g_miss_date;
3352: l_pty_hist_csr.new_active_end_date := l_temp_party_rec.active_end_date;
3353: END IF;
3354: --
3355: IF ( l_pty_hist_csr.old_context IS NULL
3354: --
3355: IF ( l_pty_hist_csr.old_context IS NULL
3356: AND l_pty_hist_csr.new_context IS NULL ) THEN
3357: IF ( l_temp_party_rec.context = l_curr_party_rec.context )
3358: OR ( l_temp_party_rec.context = fnd_api.g_miss_char ) THEN
3359: l_pty_hist_csr.old_context := NULL;
3360: l_pty_hist_csr.new_context := NULL;
3361: ELSE
3362: l_pty_hist_csr.old_context := fnd_api.g_miss_char;
3358: OR ( l_temp_party_rec.context = fnd_api.g_miss_char ) THEN
3359: l_pty_hist_csr.old_context := NULL;
3360: l_pty_hist_csr.new_context := NULL;
3361: ELSE
3362: l_pty_hist_csr.old_context := fnd_api.g_miss_char;
3363: l_pty_hist_csr.new_context := l_temp_party_rec.context;
3364: END IF;
3365: ELSE
3366: l_pty_hist_csr.old_context := fnd_api.g_miss_char;
3362: l_pty_hist_csr.old_context := fnd_api.g_miss_char;
3363: l_pty_hist_csr.new_context := l_temp_party_rec.context;
3364: END IF;
3365: ELSE
3366: l_pty_hist_csr.old_context := fnd_api.g_miss_char;
3367: l_pty_hist_csr.new_context := l_temp_party_rec.context;
3368: END IF;
3369: --
3370: IF ( l_pty_hist_csr.old_attribute1 IS NULL
3369: --
3370: IF ( l_pty_hist_csr.old_attribute1 IS NULL
3371: AND l_pty_hist_csr.new_attribute1 IS NULL ) THEN
3372: IF ( l_temp_party_rec.attribute1 = l_curr_party_rec.attribute1 )
3373: OR ( l_temp_party_rec.attribute1 = fnd_api.g_miss_char ) THEN
3374: l_pty_hist_csr.old_attribute1 := NULL;
3375: l_pty_hist_csr.new_attribute1 := NULL;
3376: ELSE
3377: l_pty_hist_csr.old_attribute1 := fnd_api.g_miss_char;
3373: OR ( l_temp_party_rec.attribute1 = fnd_api.g_miss_char ) THEN
3374: l_pty_hist_csr.old_attribute1 := NULL;
3375: l_pty_hist_csr.new_attribute1 := NULL;
3376: ELSE
3377: l_pty_hist_csr.old_attribute1 := fnd_api.g_miss_char;
3378: l_pty_hist_csr.new_attribute1 := l_temp_party_rec.attribute1;
3379: END IF;
3380: ELSE
3381: l_pty_hist_csr.old_attribute1 := fnd_api.g_miss_char;
3377: l_pty_hist_csr.old_attribute1 := fnd_api.g_miss_char;
3378: l_pty_hist_csr.new_attribute1 := l_temp_party_rec.attribute1;
3379: END IF;
3380: ELSE
3381: l_pty_hist_csr.old_attribute1 := fnd_api.g_miss_char;
3382: l_pty_hist_csr.new_attribute1 := l_temp_party_rec.attribute1;
3383: END IF;
3384: --
3385: IF ( l_pty_hist_csr.old_attribute2 IS NULL
3384: --
3385: IF ( l_pty_hist_csr.old_attribute2 IS NULL
3386: AND l_pty_hist_csr.new_attribute2 IS NULL ) THEN
3387: IF ( l_temp_party_rec.attribute2 = l_curr_party_rec.attribute2 )
3388: OR ( l_temp_party_rec.attribute2 = fnd_api.g_miss_char ) THEN
3389: l_pty_hist_csr.old_attribute2 := NULL;
3390: l_pty_hist_csr.new_attribute2 := NULL;
3391: ELSE
3392: l_pty_hist_csr.old_attribute2 := fnd_api.g_miss_char;
3388: OR ( l_temp_party_rec.attribute2 = fnd_api.g_miss_char ) THEN
3389: l_pty_hist_csr.old_attribute2 := NULL;
3390: l_pty_hist_csr.new_attribute2 := NULL;
3391: ELSE
3392: l_pty_hist_csr.old_attribute2 := fnd_api.g_miss_char;
3393: l_pty_hist_csr.new_attribute2 := l_temp_party_rec.attribute2;
3394: END IF;
3395: ELSE
3396: l_pty_hist_csr.old_attribute2 := fnd_api.g_miss_char;
3392: l_pty_hist_csr.old_attribute2 := fnd_api.g_miss_char;
3393: l_pty_hist_csr.new_attribute2 := l_temp_party_rec.attribute2;
3394: END IF;
3395: ELSE
3396: l_pty_hist_csr.old_attribute2 := fnd_api.g_miss_char;
3397: l_pty_hist_csr.new_attribute2 := l_temp_party_rec.attribute2;
3398: END IF;
3399: --
3400: IF ( l_pty_hist_csr.old_attribute3 IS NULL
3399: --
3400: IF ( l_pty_hist_csr.old_attribute3 IS NULL
3401: AND l_pty_hist_csr.new_attribute3 IS NULL ) THEN
3402: IF ( l_temp_party_rec.attribute3 = l_curr_party_rec.attribute3 )
3403: OR ( l_temp_party_rec.attribute3 = fnd_api.g_miss_char ) THEN
3404: l_pty_hist_csr.old_attribute3 := NULL;
3405: l_pty_hist_csr.new_attribute3 := NULL;
3406: ELSE
3407: l_pty_hist_csr.old_attribute3 := fnd_api.g_miss_char;
3403: OR ( l_temp_party_rec.attribute3 = fnd_api.g_miss_char ) THEN
3404: l_pty_hist_csr.old_attribute3 := NULL;
3405: l_pty_hist_csr.new_attribute3 := NULL;
3406: ELSE
3407: l_pty_hist_csr.old_attribute3 := fnd_api.g_miss_char;
3408: l_pty_hist_csr.new_attribute3 := l_temp_party_rec.attribute3;
3409: END IF;
3410: ELSE
3411: l_pty_hist_csr.old_attribute3 := fnd_api.g_miss_char;
3407: l_pty_hist_csr.old_attribute3 := fnd_api.g_miss_char;
3408: l_pty_hist_csr.new_attribute3 := l_temp_party_rec.attribute3;
3409: END IF;
3410: ELSE
3411: l_pty_hist_csr.old_attribute3 := fnd_api.g_miss_char;
3412: l_pty_hist_csr.new_attribute3 := l_temp_party_rec.attribute3;
3413: END IF;
3414: --
3415: IF ( l_pty_hist_csr.old_attribute4 IS NULL
3414: --
3415: IF ( l_pty_hist_csr.old_attribute4 IS NULL
3416: AND l_pty_hist_csr.new_attribute4 IS NULL ) THEN
3417: IF ( l_temp_party_rec.attribute4 = l_curr_party_rec.attribute4 )
3418: OR ( l_temp_party_rec.attribute4 = fnd_api.g_miss_char ) THEN
3419: l_pty_hist_csr.old_attribute4 := NULL;
3420: l_pty_hist_csr.new_attribute4 := NULL;
3421: ELSE
3422: l_pty_hist_csr.old_attribute4 := fnd_api.g_miss_char;
3418: OR ( l_temp_party_rec.attribute4 = fnd_api.g_miss_char ) THEN
3419: l_pty_hist_csr.old_attribute4 := NULL;
3420: l_pty_hist_csr.new_attribute4 := NULL;
3421: ELSE
3422: l_pty_hist_csr.old_attribute4 := fnd_api.g_miss_char;
3423: l_pty_hist_csr.new_attribute4 := l_temp_party_rec.attribute4;
3424: END IF;
3425: ELSE
3426: l_pty_hist_csr.old_attribute4 := fnd_api.g_miss_char;
3422: l_pty_hist_csr.old_attribute4 := fnd_api.g_miss_char;
3423: l_pty_hist_csr.new_attribute4 := l_temp_party_rec.attribute4;
3424: END IF;
3425: ELSE
3426: l_pty_hist_csr.old_attribute4 := fnd_api.g_miss_char;
3427: l_pty_hist_csr.new_attribute4 := l_temp_party_rec.attribute4;
3428: END IF;
3429: --
3430: IF ( l_pty_hist_csr.old_attribute5 IS NULL
3429: --
3430: IF ( l_pty_hist_csr.old_attribute5 IS NULL
3431: AND l_pty_hist_csr.new_attribute5 IS NULL ) THEN
3432: IF ( l_temp_party_rec.attribute5 = l_curr_party_rec.attribute5 )
3433: OR ( l_temp_party_rec.attribute5 = fnd_api.g_miss_char ) THEN
3434: l_pty_hist_csr.old_attribute5 := NULL;
3435: l_pty_hist_csr.new_attribute5 := NULL;
3436: ELSE
3437: l_pty_hist_csr.old_attribute5 := fnd_api.g_miss_char;
3433: OR ( l_temp_party_rec.attribute5 = fnd_api.g_miss_char ) THEN
3434: l_pty_hist_csr.old_attribute5 := NULL;
3435: l_pty_hist_csr.new_attribute5 := NULL;
3436: ELSE
3437: l_pty_hist_csr.old_attribute5 := fnd_api.g_miss_char;
3438: l_pty_hist_csr.new_attribute5 := l_temp_party_rec.attribute5;
3439: END IF;
3440: ELSE
3441: l_pty_hist_csr.old_attribute5 := fnd_api.g_miss_char;
3437: l_pty_hist_csr.old_attribute5 := fnd_api.g_miss_char;
3438: l_pty_hist_csr.new_attribute5 := l_temp_party_rec.attribute5;
3439: END IF;
3440: ELSE
3441: l_pty_hist_csr.old_attribute5 := fnd_api.g_miss_char;
3442: l_pty_hist_csr.new_attribute5 := l_temp_party_rec.attribute5;
3443: END IF;
3444: --
3445: IF ( l_pty_hist_csr.old_attribute6 IS NULL
3444: --
3445: IF ( l_pty_hist_csr.old_attribute6 IS NULL
3446: AND l_pty_hist_csr.new_attribute6 IS NULL ) THEN
3447: IF ( l_temp_party_rec.attribute6 = l_curr_party_rec.attribute6 )
3448: OR ( l_temp_party_rec.attribute6 = fnd_api.g_miss_char ) THEN
3449: l_pty_hist_csr.old_attribute6 := NULL;
3450: l_pty_hist_csr.new_attribute6 := NULL;
3451: ELSE
3452: l_pty_hist_csr.old_attribute6 := fnd_api.g_miss_char;
3448: OR ( l_temp_party_rec.attribute6 = fnd_api.g_miss_char ) THEN
3449: l_pty_hist_csr.old_attribute6 := NULL;
3450: l_pty_hist_csr.new_attribute6 := NULL;
3451: ELSE
3452: l_pty_hist_csr.old_attribute6 := fnd_api.g_miss_char;
3453: l_pty_hist_csr.new_attribute6 := l_temp_party_rec.attribute6;
3454: END IF;
3455: ELSE
3456: l_pty_hist_csr.old_attribute6 := fnd_api.g_miss_char;
3452: l_pty_hist_csr.old_attribute6 := fnd_api.g_miss_char;
3453: l_pty_hist_csr.new_attribute6 := l_temp_party_rec.attribute6;
3454: END IF;
3455: ELSE
3456: l_pty_hist_csr.old_attribute6 := fnd_api.g_miss_char;
3457: l_pty_hist_csr.new_attribute6 := l_temp_party_rec.attribute6;
3458: END IF;
3459: --
3460: IF ( l_pty_hist_csr.old_attribute7 IS NULL
3459: --
3460: IF ( l_pty_hist_csr.old_attribute7 IS NULL
3461: AND l_pty_hist_csr.new_attribute7 IS NULL ) THEN
3462: IF ( l_temp_party_rec.attribute7 = l_curr_party_rec.attribute7 )
3463: OR ( l_temp_party_rec.attribute7 = fnd_api.g_miss_char ) THEN
3464: l_pty_hist_csr.old_attribute7 := NULL;
3465: l_pty_hist_csr.new_attribute7 := NULL;
3466: ELSE
3467: l_pty_hist_csr.old_attribute7 := fnd_api.g_miss_char;
3463: OR ( l_temp_party_rec.attribute7 = fnd_api.g_miss_char ) THEN
3464: l_pty_hist_csr.old_attribute7 := NULL;
3465: l_pty_hist_csr.new_attribute7 := NULL;
3466: ELSE
3467: l_pty_hist_csr.old_attribute7 := fnd_api.g_miss_char;
3468: l_pty_hist_csr.new_attribute7 := l_temp_party_rec.attribute7;
3469: END IF;
3470: ELSE
3471: l_pty_hist_csr.old_attribute7 := fnd_api.g_miss_char;
3467: l_pty_hist_csr.old_attribute7 := fnd_api.g_miss_char;
3468: l_pty_hist_csr.new_attribute7 := l_temp_party_rec.attribute7;
3469: END IF;
3470: ELSE
3471: l_pty_hist_csr.old_attribute7 := fnd_api.g_miss_char;
3472: l_pty_hist_csr.new_attribute7 := l_temp_party_rec.attribute7;
3473: END IF;
3474: --
3475: IF ( l_pty_hist_csr.old_attribute8 IS NULL
3474: --
3475: IF ( l_pty_hist_csr.old_attribute8 IS NULL
3476: AND l_pty_hist_csr.new_attribute8 IS NULL ) THEN
3477: IF ( l_temp_party_rec.attribute8 = l_curr_party_rec.attribute8 )
3478: OR ( l_temp_party_rec.attribute8 = fnd_api.g_miss_char ) THEN
3479: l_pty_hist_csr.old_attribute8 := NULL;
3480: l_pty_hist_csr.new_attribute8 := NULL;
3481: ELSE
3482: l_pty_hist_csr.old_attribute8 := fnd_api.g_miss_char;
3478: OR ( l_temp_party_rec.attribute8 = fnd_api.g_miss_char ) THEN
3479: l_pty_hist_csr.old_attribute8 := NULL;
3480: l_pty_hist_csr.new_attribute8 := NULL;
3481: ELSE
3482: l_pty_hist_csr.old_attribute8 := fnd_api.g_miss_char;
3483: l_pty_hist_csr.new_attribute8 := l_temp_party_rec.attribute8;
3484: END IF;
3485: ELSE
3486: l_pty_hist_csr.old_attribute8 := fnd_api.g_miss_char;
3482: l_pty_hist_csr.old_attribute8 := fnd_api.g_miss_char;
3483: l_pty_hist_csr.new_attribute8 := l_temp_party_rec.attribute8;
3484: END IF;
3485: ELSE
3486: l_pty_hist_csr.old_attribute8 := fnd_api.g_miss_char;
3487: l_pty_hist_csr.new_attribute8 := l_temp_party_rec.attribute8;
3488: END IF;
3489: --
3490: IF ( l_pty_hist_csr.old_attribute9 IS NULL
3489: --
3490: IF ( l_pty_hist_csr.old_attribute9 IS NULL
3491: AND l_pty_hist_csr.new_attribute9 IS NULL ) THEN
3492: IF ( l_temp_party_rec.attribute9 = l_curr_party_rec.attribute9 )
3493: OR ( l_temp_party_rec.attribute9 = fnd_api.g_miss_char ) THEN
3494: l_pty_hist_csr.old_attribute9 := NULL;
3495: l_pty_hist_csr.new_attribute9 := NULL;
3496: ELSE
3497: l_pty_hist_csr.old_attribute9 := fnd_api.g_miss_char;
3493: OR ( l_temp_party_rec.attribute9 = fnd_api.g_miss_char ) THEN
3494: l_pty_hist_csr.old_attribute9 := NULL;
3495: l_pty_hist_csr.new_attribute9 := NULL;
3496: ELSE
3497: l_pty_hist_csr.old_attribute9 := fnd_api.g_miss_char;
3498: l_pty_hist_csr.new_attribute9 := l_temp_party_rec.attribute9;
3499: END IF;
3500: ELSE
3501: l_pty_hist_csr.old_attribute9 := fnd_api.g_miss_char;
3497: l_pty_hist_csr.old_attribute9 := fnd_api.g_miss_char;
3498: l_pty_hist_csr.new_attribute9 := l_temp_party_rec.attribute9;
3499: END IF;
3500: ELSE
3501: l_pty_hist_csr.old_attribute9 := fnd_api.g_miss_char;
3502: l_pty_hist_csr.new_attribute9 := l_temp_party_rec.attribute9;
3503: END IF;
3504: --
3505: IF ( l_pty_hist_csr.old_attribute10 IS NULL
3504: --
3505: IF ( l_pty_hist_csr.old_attribute10 IS NULL
3506: AND l_pty_hist_csr.new_attribute10 IS NULL ) THEN
3507: IF ( l_temp_party_rec.attribute10 = l_curr_party_rec.attribute10 )
3508: OR ( l_temp_party_rec.attribute10 = fnd_api.g_miss_char ) THEN
3509: l_pty_hist_csr.old_attribute10 := NULL;
3510: l_pty_hist_csr.new_attribute10 := NULL;
3511: ELSE
3512: l_pty_hist_csr.old_attribute10 := fnd_api.g_miss_char;
3508: OR ( l_temp_party_rec.attribute10 = fnd_api.g_miss_char ) THEN
3509: l_pty_hist_csr.old_attribute10 := NULL;
3510: l_pty_hist_csr.new_attribute10 := NULL;
3511: ELSE
3512: l_pty_hist_csr.old_attribute10 := fnd_api.g_miss_char;
3513: l_pty_hist_csr.new_attribute10 := l_temp_party_rec.attribute10;
3514: END IF;
3515: ELSE
3516: l_pty_hist_csr.old_attribute10 := fnd_api.g_miss_char;
3512: l_pty_hist_csr.old_attribute10 := fnd_api.g_miss_char;
3513: l_pty_hist_csr.new_attribute10 := l_temp_party_rec.attribute10;
3514: END IF;
3515: ELSE
3516: l_pty_hist_csr.old_attribute10 := fnd_api.g_miss_char;
3517: l_pty_hist_csr.new_attribute10 := l_temp_party_rec.attribute10;
3518: END IF;
3519: --
3520: IF ( l_pty_hist_csr.old_attribute11 IS NULL
3519: --
3520: IF ( l_pty_hist_csr.old_attribute11 IS NULL
3521: AND l_pty_hist_csr.new_attribute11 IS NULL ) THEN
3522: IF ( l_temp_party_rec.attribute11 = l_curr_party_rec.attribute11 )
3523: OR ( l_temp_party_rec.attribute11 = fnd_api.g_miss_char ) THEN
3524: l_pty_hist_csr.old_attribute11 := NULL;
3525: l_pty_hist_csr.new_attribute11 := NULL;
3526: ELSE
3527: l_pty_hist_csr.old_attribute11 := fnd_api.g_miss_char;
3523: OR ( l_temp_party_rec.attribute11 = fnd_api.g_miss_char ) THEN
3524: l_pty_hist_csr.old_attribute11 := NULL;
3525: l_pty_hist_csr.new_attribute11 := NULL;
3526: ELSE
3527: l_pty_hist_csr.old_attribute11 := fnd_api.g_miss_char;
3528: l_pty_hist_csr.new_attribute11 := l_temp_party_rec.attribute11;
3529: END IF;
3530: ELSE
3531: l_pty_hist_csr.old_attribute11 := fnd_api.g_miss_char;
3527: l_pty_hist_csr.old_attribute11 := fnd_api.g_miss_char;
3528: l_pty_hist_csr.new_attribute11 := l_temp_party_rec.attribute11;
3529: END IF;
3530: ELSE
3531: l_pty_hist_csr.old_attribute11 := fnd_api.g_miss_char;
3532: l_pty_hist_csr.new_attribute11 := l_temp_party_rec.attribute11;
3533: END IF;
3534: --
3535: IF ( l_pty_hist_csr.old_attribute12 IS NULL
3534: --
3535: IF ( l_pty_hist_csr.old_attribute12 IS NULL
3536: AND l_pty_hist_csr.new_attribute12 IS NULL ) THEN
3537: IF ( l_temp_party_rec.attribute12 = l_curr_party_rec.attribute12 )
3538: OR ( l_temp_party_rec.attribute12 = fnd_api.g_miss_char ) THEN
3539: l_pty_hist_csr.old_attribute12 := NULL;
3540: l_pty_hist_csr.new_attribute12 := NULL;
3541: ELSE
3542: l_pty_hist_csr.old_attribute12 := fnd_api.g_miss_char;
3538: OR ( l_temp_party_rec.attribute12 = fnd_api.g_miss_char ) THEN
3539: l_pty_hist_csr.old_attribute12 := NULL;
3540: l_pty_hist_csr.new_attribute12 := NULL;
3541: ELSE
3542: l_pty_hist_csr.old_attribute12 := fnd_api.g_miss_char;
3543: l_pty_hist_csr.new_attribute12 := l_temp_party_rec.attribute12;
3544: END IF;
3545: ELSE
3546: l_pty_hist_csr.old_attribute12 := fnd_api.g_miss_char;
3542: l_pty_hist_csr.old_attribute12 := fnd_api.g_miss_char;
3543: l_pty_hist_csr.new_attribute12 := l_temp_party_rec.attribute12;
3544: END IF;
3545: ELSE
3546: l_pty_hist_csr.old_attribute12 := fnd_api.g_miss_char;
3547: l_pty_hist_csr.new_attribute12 := l_temp_party_rec.attribute12;
3548: END IF;
3549: --
3550: IF ( l_pty_hist_csr.old_attribute13 IS NULL
3549: --
3550: IF ( l_pty_hist_csr.old_attribute13 IS NULL
3551: AND l_pty_hist_csr.new_attribute13 IS NULL ) THEN
3552: IF ( l_temp_party_rec.attribute13 = l_curr_party_rec.attribute13 )
3553: OR ( l_temp_party_rec.attribute13 = fnd_api.g_miss_char ) THEN
3554: l_pty_hist_csr.old_attribute13 := NULL;
3555: l_pty_hist_csr.new_attribute13 := NULL;
3556: ELSE
3557: l_pty_hist_csr.old_attribute13 := fnd_api.g_miss_char;
3553: OR ( l_temp_party_rec.attribute13 = fnd_api.g_miss_char ) THEN
3554: l_pty_hist_csr.old_attribute13 := NULL;
3555: l_pty_hist_csr.new_attribute13 := NULL;
3556: ELSE
3557: l_pty_hist_csr.old_attribute13 := fnd_api.g_miss_char;
3558: l_pty_hist_csr.new_attribute13 := l_temp_party_rec.attribute13;
3559: END IF;
3560: ELSE
3561: l_pty_hist_csr.old_attribute13 := fnd_api.g_miss_char;
3557: l_pty_hist_csr.old_attribute13 := fnd_api.g_miss_char;
3558: l_pty_hist_csr.new_attribute13 := l_temp_party_rec.attribute13;
3559: END IF;
3560: ELSE
3561: l_pty_hist_csr.old_attribute13 := fnd_api.g_miss_char;
3562: l_pty_hist_csr.new_attribute13 := l_temp_party_rec.attribute13;
3563: END IF;
3564: --
3565: IF ( l_pty_hist_csr.old_attribute14 IS NULL
3564: --
3565: IF ( l_pty_hist_csr.old_attribute14 IS NULL
3566: AND l_pty_hist_csr.new_attribute14 IS NULL ) THEN
3567: IF ( l_temp_party_rec.attribute14 = l_curr_party_rec.attribute14 )
3568: OR ( l_temp_party_rec.attribute14 = fnd_api.g_miss_char ) THEN
3569: l_pty_hist_csr.old_attribute14 := NULL;
3570: l_pty_hist_csr.new_attribute14 := NULL;
3571: ELSE
3572: l_pty_hist_csr.old_attribute14 := fnd_api.g_miss_char;
3568: OR ( l_temp_party_rec.attribute14 = fnd_api.g_miss_char ) THEN
3569: l_pty_hist_csr.old_attribute14 := NULL;
3570: l_pty_hist_csr.new_attribute14 := NULL;
3571: ELSE
3572: l_pty_hist_csr.old_attribute14 := fnd_api.g_miss_char;
3573: l_pty_hist_csr.new_attribute14 := l_temp_party_rec.attribute14;
3574: END IF;
3575: ELSE
3576: l_pty_hist_csr.old_attribute14 := fnd_api.g_miss_char;
3572: l_pty_hist_csr.old_attribute14 := fnd_api.g_miss_char;
3573: l_pty_hist_csr.new_attribute14 := l_temp_party_rec.attribute14;
3574: END IF;
3575: ELSE
3576: l_pty_hist_csr.old_attribute14 := fnd_api.g_miss_char;
3577: l_pty_hist_csr.new_attribute14 := l_temp_party_rec.attribute14;
3578: END IF;
3579: --
3580: IF ( l_pty_hist_csr.old_attribute15 IS NULL
3579: --
3580: IF ( l_pty_hist_csr.old_attribute15 IS NULL
3581: AND l_pty_hist_csr.new_attribute15 IS NULL ) THEN
3582: IF ( l_temp_party_rec.attribute15 = l_curr_party_rec.attribute15 )
3583: OR ( l_temp_party_rec.attribute15 = fnd_api.g_miss_char ) THEN
3584: l_pty_hist_csr.old_attribute15 := NULL;
3585: l_pty_hist_csr.new_attribute15 := NULL;
3586: ELSE
3587: l_pty_hist_csr.old_attribute15 := fnd_api.g_miss_char;
3583: OR ( l_temp_party_rec.attribute15 = fnd_api.g_miss_char ) THEN
3584: l_pty_hist_csr.old_attribute15 := NULL;
3585: l_pty_hist_csr.new_attribute15 := NULL;
3586: ELSE
3587: l_pty_hist_csr.old_attribute15 := fnd_api.g_miss_char;
3588: l_pty_hist_csr.new_attribute15 := l_temp_party_rec.attribute15;
3589: END IF;
3590: ELSE
3591: l_pty_hist_csr.old_attribute15 := fnd_api.g_miss_char;
3587: l_pty_hist_csr.old_attribute15 := fnd_api.g_miss_char;
3588: l_pty_hist_csr.new_attribute15 := l_temp_party_rec.attribute15;
3589: END IF;
3590: ELSE
3591: l_pty_hist_csr.old_attribute15 := fnd_api.g_miss_char;
3592: l_pty_hist_csr.new_attribute15 := l_temp_party_rec.attribute15;
3593: END IF;
3594: --
3595: IF ( l_pty_hist_csr.old_primary_flag IS NULL
3594: --
3595: IF ( l_pty_hist_csr.old_primary_flag IS NULL
3596: AND l_pty_hist_csr.new_primary_flag IS NULL ) THEN
3597: IF ( l_temp_party_rec.primary_flag = l_curr_party_rec.primary_flag )
3598: OR ( l_temp_party_rec.primary_flag = fnd_api.g_miss_char ) THEN
3599: l_pty_hist_csr.old_primary_flag := NULL;
3600: l_pty_hist_csr.new_primary_flag := NULL;
3601: ELSE
3602: l_pty_hist_csr.old_primary_flag := fnd_api.g_miss_char;
3598: OR ( l_temp_party_rec.primary_flag = fnd_api.g_miss_char ) THEN
3599: l_pty_hist_csr.old_primary_flag := NULL;
3600: l_pty_hist_csr.new_primary_flag := NULL;
3601: ELSE
3602: l_pty_hist_csr.old_primary_flag := fnd_api.g_miss_char;
3603: l_pty_hist_csr.new_primary_flag := l_temp_party_rec.primary_flag;
3604: END IF;
3605: ELSE
3606: l_pty_hist_csr.old_primary_flag := fnd_api.g_miss_char;
3602: l_pty_hist_csr.old_primary_flag := fnd_api.g_miss_char;
3603: l_pty_hist_csr.new_primary_flag := l_temp_party_rec.primary_flag;
3604: END IF;
3605: ELSE
3606: l_pty_hist_csr.old_primary_flag := fnd_api.g_miss_char;
3607: l_pty_hist_csr.new_primary_flag := l_temp_party_rec.primary_flag;
3608: END IF;
3609: --
3610: IF ( l_pty_hist_csr.old_preferred_flag IS NULL
3609: --
3610: IF ( l_pty_hist_csr.old_preferred_flag IS NULL
3611: AND l_pty_hist_csr.new_preferred_flag IS NULL ) THEN
3612: IF ( l_temp_party_rec.preferred_flag = l_curr_party_rec.preferred_flag )
3613: OR ( l_temp_party_rec.preferred_flag = fnd_api.g_miss_char ) THEN
3614: l_pty_hist_csr.old_preferred_flag := NULL;
3615: l_pty_hist_csr.new_preferred_flag := NULL;
3616: ELSE
3617: l_pty_hist_csr.old_preferred_flag := fnd_api.g_miss_char;
3613: OR ( l_temp_party_rec.preferred_flag = fnd_api.g_miss_char ) THEN
3614: l_pty_hist_csr.old_preferred_flag := NULL;
3615: l_pty_hist_csr.new_preferred_flag := NULL;
3616: ELSE
3617: l_pty_hist_csr.old_preferred_flag := fnd_api.g_miss_char;
3618: l_pty_hist_csr.new_preferred_flag := l_temp_party_rec.preferred_flag;
3619: END IF;
3620: ELSE
3621: l_pty_hist_csr.old_preferred_flag := fnd_api.g_miss_char;
3617: l_pty_hist_csr.old_preferred_flag := fnd_api.g_miss_char;
3618: l_pty_hist_csr.new_preferred_flag := l_temp_party_rec.preferred_flag;
3619: END IF;
3620: ELSE
3621: l_pty_hist_csr.old_preferred_flag := fnd_api.g_miss_char;
3622: l_pty_hist_csr.new_preferred_flag := l_temp_party_rec.preferred_flag;
3623: END IF;
3624:
3625: CSI_I_PARTIES_H_PKG.update_Row
3624:
3625: CSI_I_PARTIES_H_PKG.update_Row
3626: (
3627: p_INSTANCE_PARTY_HISTORY_ID => l_party_hist_id ,
3628: p_INSTANCE_PARTY_ID => FND_API.G_MISS_NUM ,
3629: p_TRANSACTION_ID => FND_API.G_MISS_NUM ,
3630: p_OLD_PARTY_SOURCE_TABLE => l_pty_hist_csr.OLD_PARTY_SOURCE_TABLE ,
3631: p_NEW_PARTY_SOURCE_TABLE => l_pty_hist_csr.NEW_PARTY_SOURCE_TABLE ,
3632: p_OLD_PARTY_ID => l_pty_hist_csr.OLD_PARTY_ID ,
3625: CSI_I_PARTIES_H_PKG.update_Row
3626: (
3627: p_INSTANCE_PARTY_HISTORY_ID => l_party_hist_id ,
3628: p_INSTANCE_PARTY_ID => FND_API.G_MISS_NUM ,
3629: p_TRANSACTION_ID => FND_API.G_MISS_NUM ,
3630: p_OLD_PARTY_SOURCE_TABLE => l_pty_hist_csr.OLD_PARTY_SOURCE_TABLE ,
3631: p_NEW_PARTY_SOURCE_TABLE => l_pty_hist_csr.NEW_PARTY_SOURCE_TABLE ,
3632: p_OLD_PARTY_ID => l_pty_hist_csr.OLD_PARTY_ID ,
3633: p_NEW_PARTY_ID => l_pty_hist_csr.NEW_PARTY_ID ,
3672: p_OLD_ATTRIBUTE14 => l_pty_hist_csr.OLD_ATTRIBUTE14 ,
3673: p_NEW_ATTRIBUTE14 => l_pty_hist_csr.NEW_ATTRIBUTE14 ,
3674: p_OLD_ATTRIBUTE15 => l_pty_hist_csr.OLD_ATTRIBUTE15 ,
3675: p_NEW_ATTRIBUTE15 => l_pty_hist_csr.NEW_ATTRIBUTE15 ,
3676: p_FULL_DUMP_FLAG => FND_API.G_MISS_CHAR ,
3677: p_CREATED_BY => FND_API.G_MISS_NUM ,
3678: p_CREATION_DATE => FND_API.G_MISS_DATE ,
3679: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID ,
3680: p_LAST_UPDATE_DATE => SYSDATE ,
3673: p_NEW_ATTRIBUTE14 => l_pty_hist_csr.NEW_ATTRIBUTE14 ,
3674: p_OLD_ATTRIBUTE15 => l_pty_hist_csr.OLD_ATTRIBUTE15 ,
3675: p_NEW_ATTRIBUTE15 => l_pty_hist_csr.NEW_ATTRIBUTE15 ,
3676: p_FULL_DUMP_FLAG => FND_API.G_MISS_CHAR ,
3677: p_CREATED_BY => FND_API.G_MISS_NUM ,
3678: p_CREATION_DATE => FND_API.G_MISS_DATE ,
3679: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID ,
3680: p_LAST_UPDATE_DATE => SYSDATE ,
3681: p_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID ,
3674: p_OLD_ATTRIBUTE15 => l_pty_hist_csr.OLD_ATTRIBUTE15 ,
3675: p_NEW_ATTRIBUTE15 => l_pty_hist_csr.NEW_ATTRIBUTE15 ,
3676: p_FULL_DUMP_FLAG => FND_API.G_MISS_CHAR ,
3677: p_CREATED_BY => FND_API.G_MISS_NUM ,
3678: p_CREATION_DATE => FND_API.G_MISS_DATE ,
3679: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID ,
3680: p_LAST_UPDATE_DATE => SYSDATE ,
3681: p_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID ,
3682: p_OBJECT_VERSION_NUMBER => FND_API.G_MISS_NUM ,
3678: p_CREATION_DATE => FND_API.G_MISS_DATE ,
3679: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID ,
3680: p_LAST_UPDATE_DATE => SYSDATE ,
3681: p_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID ,
3682: p_OBJECT_VERSION_NUMBER => FND_API.G_MISS_NUM ,
3683: p_OLD_PRIMARY_FLAG => l_pty_hist_csr.OLD_CONTACT_FLAG ,
3684: p_NEW_PRIMARY_FLAG => l_pty_hist_csr.NEW_PRIMARY_FLAG ,
3685: p_OLD_PREFERRED_FLAG => l_pty_hist_csr.OLD_CONTACT_FLAG ,
3686: p_NEW_PREFERRED_FLAG => l_pty_hist_csr.NEW_PREFERRED_FLAG );
3692: IF (l_mod_value = 0) THEN
3693: -- If the mod value is 0 then dump all the columns both changed and unchanged
3694: -- changed columns have old and new values while the unchanged values have old and new values
3695: -- exactly same
3696: IF (p_party_rec.PARTY_SOURCE_TABLE = FND_API.G_MISS_CHAR) THEN
3697: l_temp_party_rec.PARTY_SOURCE_TABLE := l_curr_party_rec.PARTY_SOURCE_TABLE;
3698: END IF;
3699: IF (p_party_rec.PARTY_ID = FND_API.G_MISS_NUM) THEN
3700: l_temp_party_rec.PARTY_ID := l_curr_party_rec.PARTY_ID ;
3695: -- exactly same
3696: IF (p_party_rec.PARTY_SOURCE_TABLE = FND_API.G_MISS_CHAR) THEN
3697: l_temp_party_rec.PARTY_SOURCE_TABLE := l_curr_party_rec.PARTY_SOURCE_TABLE;
3698: END IF;
3699: IF (p_party_rec.PARTY_ID = FND_API.G_MISS_NUM) THEN
3700: l_temp_party_rec.PARTY_ID := l_curr_party_rec.PARTY_ID ;
3701: END IF;
3702: IF (p_party_rec.RELATIONSHIP_TYPE_CODE = FND_API.G_MISS_CHAR) THEN
3703: l_temp_party_rec.RELATIONSHIP_TYPE_CODE := l_curr_party_rec.RELATIONSHIP_TYPE_CODE ;
3698: END IF;
3699: IF (p_party_rec.PARTY_ID = FND_API.G_MISS_NUM) THEN
3700: l_temp_party_rec.PARTY_ID := l_curr_party_rec.PARTY_ID ;
3701: END IF;
3702: IF (p_party_rec.RELATIONSHIP_TYPE_CODE = FND_API.G_MISS_CHAR) THEN
3703: l_temp_party_rec.RELATIONSHIP_TYPE_CODE := l_curr_party_rec.RELATIONSHIP_TYPE_CODE ;
3704: END IF;
3705: IF (p_party_rec.CONTACT_FLAG = FND_API.G_MISS_CHAR) THEN
3706: l_temp_party_rec.CONTACT_FLAG := l_curr_party_rec.CONTACT_FLAG ;
3701: END IF;
3702: IF (p_party_rec.RELATIONSHIP_TYPE_CODE = FND_API.G_MISS_CHAR) THEN
3703: l_temp_party_rec.RELATIONSHIP_TYPE_CODE := l_curr_party_rec.RELATIONSHIP_TYPE_CODE ;
3704: END IF;
3705: IF (p_party_rec.CONTACT_FLAG = FND_API.G_MISS_CHAR) THEN
3706: l_temp_party_rec.CONTACT_FLAG := l_curr_party_rec.CONTACT_FLAG ;
3707: END IF;
3708: IF (p_party_rec.CONTACT_IP_ID = FND_API.G_MISS_NUM) THEN
3709: l_temp_party_rec.CONTACT_IP_ID := l_curr_party_rec.CONTACT_IP_ID ;
3704: END IF;
3705: IF (p_party_rec.CONTACT_FLAG = FND_API.G_MISS_CHAR) THEN
3706: l_temp_party_rec.CONTACT_FLAG := l_curr_party_rec.CONTACT_FLAG ;
3707: END IF;
3708: IF (p_party_rec.CONTACT_IP_ID = FND_API.G_MISS_NUM) THEN
3709: l_temp_party_rec.CONTACT_IP_ID := l_curr_party_rec.CONTACT_IP_ID ;
3710: END IF;
3711: IF (p_party_rec.ACTIVE_START_DATE = FND_API.G_MISS_DATE) THEN
3712: l_temp_party_rec.ACTIVE_START_DATE := l_curr_party_rec.ACTIVE_START_DATE ;
3707: END IF;
3708: IF (p_party_rec.CONTACT_IP_ID = FND_API.G_MISS_NUM) THEN
3709: l_temp_party_rec.CONTACT_IP_ID := l_curr_party_rec.CONTACT_IP_ID ;
3710: END IF;
3711: IF (p_party_rec.ACTIVE_START_DATE = FND_API.G_MISS_DATE) THEN
3712: l_temp_party_rec.ACTIVE_START_DATE := l_curr_party_rec.ACTIVE_START_DATE ;
3713: END IF;
3714: IF (p_party_rec.ACTIVE_END_DATE = FND_API.G_MISS_DATE) THEN
3715: l_temp_party_rec.ACTIVE_END_DATE := l_curr_party_rec.ACTIVE_END_DATE ;
3710: END IF;
3711: IF (p_party_rec.ACTIVE_START_DATE = FND_API.G_MISS_DATE) THEN
3712: l_temp_party_rec.ACTIVE_START_DATE := l_curr_party_rec.ACTIVE_START_DATE ;
3713: END IF;
3714: IF (p_party_rec.ACTIVE_END_DATE = FND_API.G_MISS_DATE) THEN
3715: l_temp_party_rec.ACTIVE_END_DATE := l_curr_party_rec.ACTIVE_END_DATE ;
3716: END IF;
3717: IF (p_party_rec.context = FND_API.G_MISS_CHAR) THEN
3718: l_temp_party_rec.CONTEXT := l_curr_party_rec.CONTEXT ;
3713: END IF;
3714: IF (p_party_rec.ACTIVE_END_DATE = FND_API.G_MISS_DATE) THEN
3715: l_temp_party_rec.ACTIVE_END_DATE := l_curr_party_rec.ACTIVE_END_DATE ;
3716: END IF;
3717: IF (p_party_rec.context = FND_API.G_MISS_CHAR) THEN
3718: l_temp_party_rec.CONTEXT := l_curr_party_rec.CONTEXT ;
3719: END IF;
3720: IF (p_party_rec.ATTRIBUTE1 = FND_API.G_MISS_CHAR) THEN
3721: l_temp_party_rec.ATTRIBUTE1 := l_curr_party_rec.ATTRIBUTE1 ;
3716: END IF;
3717: IF (p_party_rec.context = FND_API.G_MISS_CHAR) THEN
3718: l_temp_party_rec.CONTEXT := l_curr_party_rec.CONTEXT ;
3719: END IF;
3720: IF (p_party_rec.ATTRIBUTE1 = FND_API.G_MISS_CHAR) THEN
3721: l_temp_party_rec.ATTRIBUTE1 := l_curr_party_rec.ATTRIBUTE1 ;
3722: END IF;
3723: IF (p_party_rec.ATTRIBUTE2 = FND_API.G_MISS_CHAR) THEN
3724: l_temp_party_rec.ATTRIBUTE2 := l_curr_party_rec.ATTRIBUTE2 ;
3719: END IF;
3720: IF (p_party_rec.ATTRIBUTE1 = FND_API.G_MISS_CHAR) THEN
3721: l_temp_party_rec.ATTRIBUTE1 := l_curr_party_rec.ATTRIBUTE1 ;
3722: END IF;
3723: IF (p_party_rec.ATTRIBUTE2 = FND_API.G_MISS_CHAR) THEN
3724: l_temp_party_rec.ATTRIBUTE2 := l_curr_party_rec.ATTRIBUTE2 ;
3725: END IF;
3726: IF (p_party_rec.ATTRIBUTE3 = FND_API.G_MISS_CHAR) THEN
3727: l_temp_party_rec.ATTRIBUTE3 := l_curr_party_rec.ATTRIBUTE3 ;
3722: END IF;
3723: IF (p_party_rec.ATTRIBUTE2 = FND_API.G_MISS_CHAR) THEN
3724: l_temp_party_rec.ATTRIBUTE2 := l_curr_party_rec.ATTRIBUTE2 ;
3725: END IF;
3726: IF (p_party_rec.ATTRIBUTE3 = FND_API.G_MISS_CHAR) THEN
3727: l_temp_party_rec.ATTRIBUTE3 := l_curr_party_rec.ATTRIBUTE3 ;
3728: END IF;
3729: IF (p_party_rec.ATTRIBUTE4 = FND_API.G_MISS_CHAR) THEN
3730: l_temp_party_rec.ATTRIBUTE4 := l_curr_party_rec.ATTRIBUTE4 ;
3725: END IF;
3726: IF (p_party_rec.ATTRIBUTE3 = FND_API.G_MISS_CHAR) THEN
3727: l_temp_party_rec.ATTRIBUTE3 := l_curr_party_rec.ATTRIBUTE3 ;
3728: END IF;
3729: IF (p_party_rec.ATTRIBUTE4 = FND_API.G_MISS_CHAR) THEN
3730: l_temp_party_rec.ATTRIBUTE4 := l_curr_party_rec.ATTRIBUTE4 ;
3731: END IF;
3732: IF (p_party_rec.ATTRIBUTE5 = FND_API.G_MISS_CHAR) THEN
3733: l_temp_party_rec.ATTRIBUTE5 := l_curr_party_rec.ATTRIBUTE5 ;
3728: END IF;
3729: IF (p_party_rec.ATTRIBUTE4 = FND_API.G_MISS_CHAR) THEN
3730: l_temp_party_rec.ATTRIBUTE4 := l_curr_party_rec.ATTRIBUTE4 ;
3731: END IF;
3732: IF (p_party_rec.ATTRIBUTE5 = FND_API.G_MISS_CHAR) THEN
3733: l_temp_party_rec.ATTRIBUTE5 := l_curr_party_rec.ATTRIBUTE5 ;
3734: END IF;
3735: IF (p_party_rec.ATTRIBUTE6 = FND_API.G_MISS_CHAR) THEN
3736: l_temp_party_rec.ATTRIBUTE6 := l_curr_party_rec.ATTRIBUTE6 ;
3731: END IF;
3732: IF (p_party_rec.ATTRIBUTE5 = FND_API.G_MISS_CHAR) THEN
3733: l_temp_party_rec.ATTRIBUTE5 := l_curr_party_rec.ATTRIBUTE5 ;
3734: END IF;
3735: IF (p_party_rec.ATTRIBUTE6 = FND_API.G_MISS_CHAR) THEN
3736: l_temp_party_rec.ATTRIBUTE6 := l_curr_party_rec.ATTRIBUTE6 ;
3737: END IF;
3738: IF (p_party_rec.ATTRIBUTE7 = FND_API.G_MISS_CHAR) THEN
3739: l_temp_party_rec.ATTRIBUTE7 := l_curr_party_rec.ATTRIBUTE7 ;
3734: END IF;
3735: IF (p_party_rec.ATTRIBUTE6 = FND_API.G_MISS_CHAR) THEN
3736: l_temp_party_rec.ATTRIBUTE6 := l_curr_party_rec.ATTRIBUTE6 ;
3737: END IF;
3738: IF (p_party_rec.ATTRIBUTE7 = FND_API.G_MISS_CHAR) THEN
3739: l_temp_party_rec.ATTRIBUTE7 := l_curr_party_rec.ATTRIBUTE7 ;
3740: END IF;
3741: IF (p_party_rec.ATTRIBUTE8 = FND_API.G_MISS_CHAR) THEN
3742: l_temp_party_rec.ATTRIBUTE8 := l_curr_party_rec.ATTRIBUTE8 ;
3737: END IF;
3738: IF (p_party_rec.ATTRIBUTE7 = FND_API.G_MISS_CHAR) THEN
3739: l_temp_party_rec.ATTRIBUTE7 := l_curr_party_rec.ATTRIBUTE7 ;
3740: END IF;
3741: IF (p_party_rec.ATTRIBUTE8 = FND_API.G_MISS_CHAR) THEN
3742: l_temp_party_rec.ATTRIBUTE8 := l_curr_party_rec.ATTRIBUTE8 ;
3743: END IF;
3744: IF (p_party_rec.ATTRIBUTE9 = FND_API.G_MISS_CHAR) THEN
3745: l_temp_party_rec.ATTRIBUTE9 := l_curr_party_rec.ATTRIBUTE9 ;
3740: END IF;
3741: IF (p_party_rec.ATTRIBUTE8 = FND_API.G_MISS_CHAR) THEN
3742: l_temp_party_rec.ATTRIBUTE8 := l_curr_party_rec.ATTRIBUTE8 ;
3743: END IF;
3744: IF (p_party_rec.ATTRIBUTE9 = FND_API.G_MISS_CHAR) THEN
3745: l_temp_party_rec.ATTRIBUTE9 := l_curr_party_rec.ATTRIBUTE9 ;
3746: END IF;
3747: IF (p_party_rec.ATTRIBUTE10 = FND_API.G_MISS_CHAR) THEN
3748: l_temp_party_rec.ATTRIBUTE10 := l_curr_party_rec.ATTRIBUTE10 ;
3743: END IF;
3744: IF (p_party_rec.ATTRIBUTE9 = FND_API.G_MISS_CHAR) THEN
3745: l_temp_party_rec.ATTRIBUTE9 := l_curr_party_rec.ATTRIBUTE9 ;
3746: END IF;
3747: IF (p_party_rec.ATTRIBUTE10 = FND_API.G_MISS_CHAR) THEN
3748: l_temp_party_rec.ATTRIBUTE10 := l_curr_party_rec.ATTRIBUTE10 ;
3749: END IF;
3750: IF (p_party_rec.ATTRIBUTE11 = FND_API.G_MISS_CHAR) THEN
3751: l_temp_party_rec.ATTRIBUTE11 := l_curr_party_rec.ATTRIBUTE11 ;
3746: END IF;
3747: IF (p_party_rec.ATTRIBUTE10 = FND_API.G_MISS_CHAR) THEN
3748: l_temp_party_rec.ATTRIBUTE10 := l_curr_party_rec.ATTRIBUTE10 ;
3749: END IF;
3750: IF (p_party_rec.ATTRIBUTE11 = FND_API.G_MISS_CHAR) THEN
3751: l_temp_party_rec.ATTRIBUTE11 := l_curr_party_rec.ATTRIBUTE11 ;
3752: END IF;
3753: IF (p_party_rec.ATTRIBUTE12 = FND_API.G_MISS_CHAR) THEN
3754: l_temp_party_rec.ATTRIBUTE12 := l_curr_party_rec.ATTRIBUTE12 ;
3749: END IF;
3750: IF (p_party_rec.ATTRIBUTE11 = FND_API.G_MISS_CHAR) THEN
3751: l_temp_party_rec.ATTRIBUTE11 := l_curr_party_rec.ATTRIBUTE11 ;
3752: END IF;
3753: IF (p_party_rec.ATTRIBUTE12 = FND_API.G_MISS_CHAR) THEN
3754: l_temp_party_rec.ATTRIBUTE12 := l_curr_party_rec.ATTRIBUTE12 ;
3755: END IF;
3756: IF (p_party_rec.ATTRIBUTE13 = FND_API.G_MISS_CHAR) THEN
3757: l_temp_party_rec.ATTRIBUTE13 := l_curr_party_rec.ATTRIBUTE13 ;
3752: END IF;
3753: IF (p_party_rec.ATTRIBUTE12 = FND_API.G_MISS_CHAR) THEN
3754: l_temp_party_rec.ATTRIBUTE12 := l_curr_party_rec.ATTRIBUTE12 ;
3755: END IF;
3756: IF (p_party_rec.ATTRIBUTE13 = FND_API.G_MISS_CHAR) THEN
3757: l_temp_party_rec.ATTRIBUTE13 := l_curr_party_rec.ATTRIBUTE13 ;
3758: END IF;
3759: IF (p_party_rec.ATTRIBUTE14 = FND_API.G_MISS_CHAR) THEN
3760: l_temp_party_rec.ATTRIBUTE14 := l_curr_party_rec.ATTRIBUTE14 ;
3755: END IF;
3756: IF (p_party_rec.ATTRIBUTE13 = FND_API.G_MISS_CHAR) THEN
3757: l_temp_party_rec.ATTRIBUTE13 := l_curr_party_rec.ATTRIBUTE13 ;
3758: END IF;
3759: IF (p_party_rec.ATTRIBUTE14 = FND_API.G_MISS_CHAR) THEN
3760: l_temp_party_rec.ATTRIBUTE14 := l_curr_party_rec.ATTRIBUTE14 ;
3761: END IF;
3762: IF (p_party_rec.ATTRIBUTE15 = FND_API.G_MISS_CHAR) THEN
3763: l_temp_party_rec.ATTRIBUTE15 := l_curr_party_rec.ATTRIBUTE15 ;
3758: END IF;
3759: IF (p_party_rec.ATTRIBUTE14 = FND_API.G_MISS_CHAR) THEN
3760: l_temp_party_rec.ATTRIBUTE14 := l_curr_party_rec.ATTRIBUTE14 ;
3761: END IF;
3762: IF (p_party_rec.ATTRIBUTE15 = FND_API.G_MISS_CHAR) THEN
3763: l_temp_party_rec.ATTRIBUTE15 := l_curr_party_rec.ATTRIBUTE15 ;
3764: END IF;
3765: IF (p_party_rec.PRIMARY_FLAG = FND_API.G_MISS_CHAR) THEN
3766: l_temp_party_rec.PRIMARY_FLAG := l_curr_party_rec.PRIMARY_FLAG ;
3761: END IF;
3762: IF (p_party_rec.ATTRIBUTE15 = FND_API.G_MISS_CHAR) THEN
3763: l_temp_party_rec.ATTRIBUTE15 := l_curr_party_rec.ATTRIBUTE15 ;
3764: END IF;
3765: IF (p_party_rec.PRIMARY_FLAG = FND_API.G_MISS_CHAR) THEN
3766: l_temp_party_rec.PRIMARY_FLAG := l_curr_party_rec.PRIMARY_FLAG ;
3767: END IF;
3768: IF (p_party_rec.PREFERRED_FLAG = FND_API.G_MISS_CHAR) THEN
3769: l_temp_party_rec.PREFERRED_FLAG := l_curr_party_rec.PREFERRED_FLAG ;
3764: END IF;
3765: IF (p_party_rec.PRIMARY_FLAG = FND_API.G_MISS_CHAR) THEN
3766: l_temp_party_rec.PRIMARY_FLAG := l_curr_party_rec.PRIMARY_FLAG ;
3767: END IF;
3768: IF (p_party_rec.PREFERRED_FLAG = FND_API.G_MISS_CHAR) THEN
3769: l_temp_party_rec.PREFERRED_FLAG := l_curr_party_rec.PREFERRED_FLAG ;
3770: END IF;
3771:
3772: -- Call table handlers to insert into csi_i_parties_h table
3835: ELSE
3836:
3837: -- If the mod value is not equal to zero then dump only the changed columns
3838: -- while the unchanged values have old and new values as null
3839: IF (p_party_rec.party_source_table = fnd_api.g_miss_char) OR
3840: 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
3841: l_party_hist_rec.old_party_source_table := NULL;
3842: l_party_hist_rec.new_party_source_table := NULL;
3843: ELSIF
3836:
3837: -- If the mod value is not equal to zero then dump only the changed columns
3838: -- while the unchanged values have old and new values as null
3839: IF (p_party_rec.party_source_table = fnd_api.g_miss_char) OR
3840: 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
3841: l_party_hist_rec.old_party_source_table := NULL;
3842: l_party_hist_rec.new_party_source_table := NULL;
3843: ELSIF
3844: 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
3840: 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
3841: l_party_hist_rec.old_party_source_table := NULL;
3842: l_party_hist_rec.new_party_source_table := NULL;
3843: ELSIF
3844: 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
3845: l_party_hist_rec.old_party_source_table := l_curr_party_rec.party_source_table ;
3846: l_party_hist_rec.new_party_source_table := p_party_rec.party_source_table ;
3847: END IF;
3848: --
3845: l_party_hist_rec.old_party_source_table := l_curr_party_rec.party_source_table ;
3846: l_party_hist_rec.new_party_source_table := p_party_rec.party_source_table ;
3847: END IF;
3848: --
3849: IF (p_party_rec.party_id = fnd_api.g_miss_num) OR
3850: NVL(p_party_rec.party_id, fnd_api.g_miss_num) = NVL(l_curr_party_rec.party_id, fnd_api.g_miss_num) THEN
3851: l_party_hist_rec.old_party_id := NULL;
3852: l_party_hist_rec.new_party_id := NULL;
3853: ELSIF
3846: l_party_hist_rec.new_party_source_table := p_party_rec.party_source_table ;
3847: END IF;
3848: --
3849: IF (p_party_rec.party_id = fnd_api.g_miss_num) OR
3850: NVL(p_party_rec.party_id, fnd_api.g_miss_num) = NVL(l_curr_party_rec.party_id, fnd_api.g_miss_num) THEN
3851: l_party_hist_rec.old_party_id := NULL;
3852: l_party_hist_rec.new_party_id := NULL;
3853: ELSIF
3854: NVL(l_curr_party_rec.party_id,fnd_api.g_miss_num) <> NVL(p_party_rec.party_id,fnd_api.g_miss_num) THEN
3850: NVL(p_party_rec.party_id, fnd_api.g_miss_num) = NVL(l_curr_party_rec.party_id, fnd_api.g_miss_num) THEN
3851: l_party_hist_rec.old_party_id := NULL;
3852: l_party_hist_rec.new_party_id := NULL;
3853: ELSIF
3854: NVL(l_curr_party_rec.party_id,fnd_api.g_miss_num) <> NVL(p_party_rec.party_id,fnd_api.g_miss_num) THEN
3855: l_party_hist_rec.old_party_id := l_curr_party_rec.party_id ;
3856: l_party_hist_rec.new_party_id := p_party_rec.party_id ;
3857: END IF;
3858: --
3855: l_party_hist_rec.old_party_id := l_curr_party_rec.party_id ;
3856: l_party_hist_rec.new_party_id := p_party_rec.party_id ;
3857: END IF;
3858: --
3859: IF (p_party_rec.relationship_type_code = fnd_api.g_miss_char) OR
3860: 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
3861: l_party_hist_rec.old_relationship_type_code := NULL;
3862: l_party_hist_rec.new_relationship_type_code := NULL;
3863: ELSIF
3856: l_party_hist_rec.new_party_id := p_party_rec.party_id ;
3857: END IF;
3858: --
3859: IF (p_party_rec.relationship_type_code = fnd_api.g_miss_char) OR
3860: 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
3861: l_party_hist_rec.old_relationship_type_code := NULL;
3862: l_party_hist_rec.new_relationship_type_code := NULL;
3863: ELSIF
3864: 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
3860: 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
3861: l_party_hist_rec.old_relationship_type_code := NULL;
3862: l_party_hist_rec.new_relationship_type_code := NULL;
3863: ELSIF
3864: 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
3865: l_party_hist_rec.old_relationship_type_code := l_curr_party_rec.relationship_type_code ;
3866: l_party_hist_rec.new_relationship_type_code := p_party_rec.relationship_type_code ;
3867: END IF;
3868: --
3865: l_party_hist_rec.old_relationship_type_code := l_curr_party_rec.relationship_type_code ;
3866: l_party_hist_rec.new_relationship_type_code := p_party_rec.relationship_type_code ;
3867: END IF;
3868: --
3869: IF (p_party_rec.contact_flag = fnd_api.g_miss_char) OR
3870: NVL(p_party_rec.contact_flag, fnd_api.g_miss_char) = NVL(l_curr_party_rec.contact_flag, fnd_api.g_miss_char) THEN
3871: l_party_hist_rec.old_contact_flag := NULL;
3872: l_party_hist_rec.new_contact_flag := NULL;
3873: ELSIF
3866: l_party_hist_rec.new_relationship_type_code := p_party_rec.relationship_type_code ;
3867: END IF;
3868: --
3869: IF (p_party_rec.contact_flag = fnd_api.g_miss_char) OR
3870: NVL(p_party_rec.contact_flag, fnd_api.g_miss_char) = NVL(l_curr_party_rec.contact_flag, fnd_api.g_miss_char) THEN
3871: l_party_hist_rec.old_contact_flag := NULL;
3872: l_party_hist_rec.new_contact_flag := NULL;
3873: ELSIF
3874: NVL(l_curr_party_rec.contact_flag,fnd_api.g_miss_char) <> NVL(p_party_rec.contact_flag,fnd_api.g_miss_char) THEN
3870: NVL(p_party_rec.contact_flag, fnd_api.g_miss_char) = NVL(l_curr_party_rec.contact_flag, fnd_api.g_miss_char) THEN
3871: l_party_hist_rec.old_contact_flag := NULL;
3872: l_party_hist_rec.new_contact_flag := NULL;
3873: ELSIF
3874: NVL(l_curr_party_rec.contact_flag,fnd_api.g_miss_char) <> NVL(p_party_rec.contact_flag,fnd_api.g_miss_char) THEN
3875: l_party_hist_rec.old_contact_flag := l_curr_party_rec.contact_flag ;
3876: l_party_hist_rec.new_contact_flag := p_party_rec.contact_flag ;
3877: END IF;
3878: --
3875: l_party_hist_rec.old_contact_flag := l_curr_party_rec.contact_flag ;
3876: l_party_hist_rec.new_contact_flag := p_party_rec.contact_flag ;
3877: END IF;
3878: --
3879: IF (p_party_rec.contact_ip_id = fnd_api.g_miss_num) OR
3880: 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
3881: l_party_hist_rec.old_contact_ip_id := NULL;
3882: l_party_hist_rec.new_contact_ip_id := NULL;
3883: ELSIF
3876: l_party_hist_rec.new_contact_flag := p_party_rec.contact_flag ;
3877: END IF;
3878: --
3879: IF (p_party_rec.contact_ip_id = fnd_api.g_miss_num) OR
3880: 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
3881: l_party_hist_rec.old_contact_ip_id := NULL;
3882: l_party_hist_rec.new_contact_ip_id := NULL;
3883: ELSIF
3884: 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
3880: 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
3881: l_party_hist_rec.old_contact_ip_id := NULL;
3882: l_party_hist_rec.new_contact_ip_id := NULL;
3883: ELSIF
3884: 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
3885: l_party_hist_rec.old_contact_ip_id := l_curr_party_rec.contact_ip_id ;
3886: l_party_hist_rec.new_contact_ip_id := p_party_rec.contact_ip_id ;
3887: END IF;
3888: --
3885: l_party_hist_rec.old_contact_ip_id := l_curr_party_rec.contact_ip_id ;
3886: l_party_hist_rec.new_contact_ip_id := p_party_rec.contact_ip_id ;
3887: END IF;
3888: --
3889: IF (p_party_rec.active_start_date = fnd_api.g_miss_date) OR
3890: 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
3891: l_party_hist_rec.old_active_start_date := NULL;
3892: l_party_hist_rec.new_active_start_date := NULL;
3893: ELSIF
3886: l_party_hist_rec.new_contact_ip_id := p_party_rec.contact_ip_id ;
3887: END IF;
3888: --
3889: IF (p_party_rec.active_start_date = fnd_api.g_miss_date) OR
3890: 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
3891: l_party_hist_rec.old_active_start_date := NULL;
3892: l_party_hist_rec.new_active_start_date := NULL;
3893: ELSIF
3894: 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
3890: 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
3891: l_party_hist_rec.old_active_start_date := NULL;
3892: l_party_hist_rec.new_active_start_date := NULL;
3893: ELSIF
3894: 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
3895: l_party_hist_rec.old_active_start_date := l_curr_party_rec.active_start_date ;
3896: l_party_hist_rec.new_active_start_date := p_party_rec.active_start_date ;
3897: END IF;
3898: --
3895: l_party_hist_rec.old_active_start_date := l_curr_party_rec.active_start_date ;
3896: l_party_hist_rec.new_active_start_date := p_party_rec.active_start_date ;
3897: END IF;
3898: --
3899: IF (p_party_rec.active_end_date = fnd_api.g_miss_date) OR
3900: 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
3901: l_party_hist_rec.old_active_end_date := NULL;
3902: l_party_hist_rec.new_active_end_date := NULL;
3903: ELSIF
3896: l_party_hist_rec.new_active_start_date := p_party_rec.active_start_date ;
3897: END IF;
3898: --
3899: IF (p_party_rec.active_end_date = fnd_api.g_miss_date) OR
3900: 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
3901: l_party_hist_rec.old_active_end_date := NULL;
3902: l_party_hist_rec.new_active_end_date := NULL;
3903: ELSIF
3904: 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
3900: 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
3901: l_party_hist_rec.old_active_end_date := NULL;
3902: l_party_hist_rec.new_active_end_date := NULL;
3903: ELSIF
3904: 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
3905: l_party_hist_rec.old_active_end_date := l_curr_party_rec.active_end_date ;
3906: l_party_hist_rec.new_active_end_date := p_party_rec.active_end_date ;
3907: END IF;
3908: --
3905: l_party_hist_rec.old_active_end_date := l_curr_party_rec.active_end_date ;
3906: l_party_hist_rec.new_active_end_date := p_party_rec.active_end_date ;
3907: END IF;
3908: --
3909: IF (p_party_rec.context = fnd_api.g_miss_char) OR
3910: NVL(p_party_rec.context, fnd_api.g_miss_char) = NVL(l_curr_party_rec.context, fnd_api.g_miss_char) THEN
3911: l_party_hist_rec.old_context := NULL;
3912: l_party_hist_rec.new_context := NULL;
3913: ELSIF
3906: l_party_hist_rec.new_active_end_date := p_party_rec.active_end_date ;
3907: END IF;
3908: --
3909: IF (p_party_rec.context = fnd_api.g_miss_char) OR
3910: NVL(p_party_rec.context, fnd_api.g_miss_char) = NVL(l_curr_party_rec.context, fnd_api.g_miss_char) THEN
3911: l_party_hist_rec.old_context := NULL;
3912: l_party_hist_rec.new_context := NULL;
3913: ELSIF
3914: NVL(l_curr_party_rec.context,fnd_api.g_miss_char) <> NVL(p_party_rec.context,fnd_api.g_miss_char) THEN
3910: NVL(p_party_rec.context, fnd_api.g_miss_char) = NVL(l_curr_party_rec.context, fnd_api.g_miss_char) THEN
3911: l_party_hist_rec.old_context := NULL;
3912: l_party_hist_rec.new_context := NULL;
3913: ELSIF
3914: NVL(l_curr_party_rec.context,fnd_api.g_miss_char) <> NVL(p_party_rec.context,fnd_api.g_miss_char) THEN
3915: l_party_hist_rec.old_context := l_curr_party_rec.context ;
3916: l_party_hist_rec.new_context := p_party_rec.context ;
3917: END IF;
3918: --
3915: l_party_hist_rec.old_context := l_curr_party_rec.context ;
3916: l_party_hist_rec.new_context := p_party_rec.context ;
3917: END IF;
3918: --
3919: IF (p_party_rec.attribute1 = fnd_api.g_miss_char) OR
3920: NVL(p_party_rec.attribute1, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute1, fnd_api.g_miss_char) THEN
3921: l_party_hist_rec.old_attribute1 := NULL;
3922: l_party_hist_rec.new_attribute1 := NULL;
3923: ELSIF
3916: l_party_hist_rec.new_context := p_party_rec.context ;
3917: END IF;
3918: --
3919: IF (p_party_rec.attribute1 = fnd_api.g_miss_char) OR
3920: NVL(p_party_rec.attribute1, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute1, fnd_api.g_miss_char) THEN
3921: l_party_hist_rec.old_attribute1 := NULL;
3922: l_party_hist_rec.new_attribute1 := NULL;
3923: ELSIF
3924: NVL(l_curr_party_rec.attribute1,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute1,fnd_api.g_miss_char) THEN
3920: NVL(p_party_rec.attribute1, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute1, fnd_api.g_miss_char) THEN
3921: l_party_hist_rec.old_attribute1 := NULL;
3922: l_party_hist_rec.new_attribute1 := NULL;
3923: ELSIF
3924: NVL(l_curr_party_rec.attribute1,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute1,fnd_api.g_miss_char) THEN
3925: l_party_hist_rec.old_attribute1 := l_curr_party_rec.attribute1 ;
3926: l_party_hist_rec.new_attribute1 := p_party_rec.attribute1 ;
3927: END IF;
3928: --
3925: l_party_hist_rec.old_attribute1 := l_curr_party_rec.attribute1 ;
3926: l_party_hist_rec.new_attribute1 := p_party_rec.attribute1 ;
3927: END IF;
3928: --
3929: IF (p_party_rec.attribute2 = fnd_api.g_miss_char) OR
3930: NVL(p_party_rec.attribute2, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute2, fnd_api.g_miss_char) THEN
3931: l_party_hist_rec.old_attribute2 := NULL;
3932: l_party_hist_rec.new_attribute2 := NULL;
3933: ELSIF
3926: l_party_hist_rec.new_attribute1 := p_party_rec.attribute1 ;
3927: END IF;
3928: --
3929: IF (p_party_rec.attribute2 = fnd_api.g_miss_char) OR
3930: NVL(p_party_rec.attribute2, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute2, fnd_api.g_miss_char) THEN
3931: l_party_hist_rec.old_attribute2 := NULL;
3932: l_party_hist_rec.new_attribute2 := NULL;
3933: ELSIF
3934: NVL(l_curr_party_rec.attribute2,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute2,fnd_api.g_miss_char) THEN
3930: NVL(p_party_rec.attribute2, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute2, fnd_api.g_miss_char) THEN
3931: l_party_hist_rec.old_attribute2 := NULL;
3932: l_party_hist_rec.new_attribute2 := NULL;
3933: ELSIF
3934: NVL(l_curr_party_rec.attribute2,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute2,fnd_api.g_miss_char) THEN
3935: l_party_hist_rec.old_attribute2 := l_curr_party_rec.attribute2 ;
3936: l_party_hist_rec.new_attribute2 := p_party_rec.attribute2 ;
3937: END IF;
3938: --
3935: l_party_hist_rec.old_attribute2 := l_curr_party_rec.attribute2 ;
3936: l_party_hist_rec.new_attribute2 := p_party_rec.attribute2 ;
3937: END IF;
3938: --
3939: IF (p_party_rec.attribute3 = fnd_api.g_miss_char) OR
3940: NVL(p_party_rec.attribute3, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute3, fnd_api.g_miss_char) THEN
3941: l_party_hist_rec.old_attribute3 := NULL;
3942: l_party_hist_rec.new_attribute3 := NULL;
3943: ELSIF
3936: l_party_hist_rec.new_attribute2 := p_party_rec.attribute2 ;
3937: END IF;
3938: --
3939: IF (p_party_rec.attribute3 = fnd_api.g_miss_char) OR
3940: NVL(p_party_rec.attribute3, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute3, fnd_api.g_miss_char) THEN
3941: l_party_hist_rec.old_attribute3 := NULL;
3942: l_party_hist_rec.new_attribute3 := NULL;
3943: ELSIF
3944: NVL(l_curr_party_rec.attribute3,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute3,fnd_api.g_miss_char) THEN
3940: NVL(p_party_rec.attribute3, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute3, fnd_api.g_miss_char) THEN
3941: l_party_hist_rec.old_attribute3 := NULL;
3942: l_party_hist_rec.new_attribute3 := NULL;
3943: ELSIF
3944: NVL(l_curr_party_rec.attribute3,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute3,fnd_api.g_miss_char) THEN
3945: l_party_hist_rec.old_attribute3 := l_curr_party_rec.attribute3 ;
3946: l_party_hist_rec.new_attribute3 := p_party_rec.attribute3 ;
3947: END IF;
3948: --
3945: l_party_hist_rec.old_attribute3 := l_curr_party_rec.attribute3 ;
3946: l_party_hist_rec.new_attribute3 := p_party_rec.attribute3 ;
3947: END IF;
3948: --
3949: IF (p_party_rec.attribute4 = fnd_api.g_miss_char) OR
3950: NVL(p_party_rec.attribute4, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute4, fnd_api.g_miss_char) THEN
3951: l_party_hist_rec.old_attribute4 := NULL;
3952: l_party_hist_rec.new_attribute4 := NULL;
3953: ELSIF
3946: l_party_hist_rec.new_attribute3 := p_party_rec.attribute3 ;
3947: END IF;
3948: --
3949: IF (p_party_rec.attribute4 = fnd_api.g_miss_char) OR
3950: NVL(p_party_rec.attribute4, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute4, fnd_api.g_miss_char) THEN
3951: l_party_hist_rec.old_attribute4 := NULL;
3952: l_party_hist_rec.new_attribute4 := NULL;
3953: ELSIF
3954: NVL(l_curr_party_rec.attribute4,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute4,fnd_api.g_miss_char) THEN
3950: NVL(p_party_rec.attribute4, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute4, fnd_api.g_miss_char) THEN
3951: l_party_hist_rec.old_attribute4 := NULL;
3952: l_party_hist_rec.new_attribute4 := NULL;
3953: ELSIF
3954: NVL(l_curr_party_rec.attribute4,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute4,fnd_api.g_miss_char) THEN
3955: l_party_hist_rec.old_attribute4 := l_curr_party_rec.attribute4 ;
3956: l_party_hist_rec.new_attribute4 := p_party_rec.attribute4 ;
3957: END IF;
3958: --
3955: l_party_hist_rec.old_attribute4 := l_curr_party_rec.attribute4 ;
3956: l_party_hist_rec.new_attribute4 := p_party_rec.attribute4 ;
3957: END IF;
3958: --
3959: IF (p_party_rec.attribute5 = fnd_api.g_miss_char) OR
3960: NVL(p_party_rec.attribute5, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute5, fnd_api.g_miss_char) THEN
3961: l_party_hist_rec.old_attribute5 := NULL;
3962: l_party_hist_rec.new_attribute5 := NULL;
3963: ELSIF
3956: l_party_hist_rec.new_attribute4 := p_party_rec.attribute4 ;
3957: END IF;
3958: --
3959: IF (p_party_rec.attribute5 = fnd_api.g_miss_char) OR
3960: NVL(p_party_rec.attribute5, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute5, fnd_api.g_miss_char) THEN
3961: l_party_hist_rec.old_attribute5 := NULL;
3962: l_party_hist_rec.new_attribute5 := NULL;
3963: ELSIF
3964: NVL(l_curr_party_rec.attribute5,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute5,fnd_api.g_miss_char) THEN
3960: NVL(p_party_rec.attribute5, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute5, fnd_api.g_miss_char) THEN
3961: l_party_hist_rec.old_attribute5 := NULL;
3962: l_party_hist_rec.new_attribute5 := NULL;
3963: ELSIF
3964: NVL(l_curr_party_rec.attribute5,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute5,fnd_api.g_miss_char) THEN
3965: l_party_hist_rec.old_attribute5 := l_curr_party_rec.attribute5 ;
3966: l_party_hist_rec.new_attribute5 := p_party_rec.attribute5 ;
3967: END IF;
3968: --
3965: l_party_hist_rec.old_attribute5 := l_curr_party_rec.attribute5 ;
3966: l_party_hist_rec.new_attribute5 := p_party_rec.attribute5 ;
3967: END IF;
3968: --
3969: IF (p_party_rec.attribute6 = fnd_api.g_miss_char) OR
3970: NVL(p_party_rec.attribute6, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute6, fnd_api.g_miss_char) THEN
3971: l_party_hist_rec.old_attribute6 := NULL;
3972: l_party_hist_rec.new_attribute6 := NULL;
3973: ELSIF
3966: l_party_hist_rec.new_attribute5 := p_party_rec.attribute5 ;
3967: END IF;
3968: --
3969: IF (p_party_rec.attribute6 = fnd_api.g_miss_char) OR
3970: NVL(p_party_rec.attribute6, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute6, fnd_api.g_miss_char) THEN
3971: l_party_hist_rec.old_attribute6 := NULL;
3972: l_party_hist_rec.new_attribute6 := NULL;
3973: ELSIF
3974: NVL(l_curr_party_rec.attribute6,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute6,fnd_api.g_miss_char) THEN
3970: NVL(p_party_rec.attribute6, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute6, fnd_api.g_miss_char) THEN
3971: l_party_hist_rec.old_attribute6 := NULL;
3972: l_party_hist_rec.new_attribute6 := NULL;
3973: ELSIF
3974: NVL(l_curr_party_rec.attribute6,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute6,fnd_api.g_miss_char) THEN
3975: l_party_hist_rec.old_attribute6 := l_curr_party_rec.attribute6 ;
3976: l_party_hist_rec.new_attribute6 := p_party_rec.attribute6 ;
3977: END IF;
3978: --
3975: l_party_hist_rec.old_attribute6 := l_curr_party_rec.attribute6 ;
3976: l_party_hist_rec.new_attribute6 := p_party_rec.attribute6 ;
3977: END IF;
3978: --
3979: IF (p_party_rec.attribute7 = fnd_api.g_miss_char) OR
3980: NVL(p_party_rec.attribute7, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute7, fnd_api.g_miss_char) THEN
3981: l_party_hist_rec.old_attribute7 := NULL;
3982: l_party_hist_rec.new_attribute7 := NULL;
3983: ELSIF
3976: l_party_hist_rec.new_attribute6 := p_party_rec.attribute6 ;
3977: END IF;
3978: --
3979: IF (p_party_rec.attribute7 = fnd_api.g_miss_char) OR
3980: NVL(p_party_rec.attribute7, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute7, fnd_api.g_miss_char) THEN
3981: l_party_hist_rec.old_attribute7 := NULL;
3982: l_party_hist_rec.new_attribute7 := NULL;
3983: ELSIF
3984: NVL(l_curr_party_rec.attribute7,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute7,fnd_api.g_miss_char) THEN
3980: NVL(p_party_rec.attribute7, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute7, fnd_api.g_miss_char) THEN
3981: l_party_hist_rec.old_attribute7 := NULL;
3982: l_party_hist_rec.new_attribute7 := NULL;
3983: ELSIF
3984: NVL(l_curr_party_rec.attribute7,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute7,fnd_api.g_miss_char) THEN
3985: l_party_hist_rec.old_attribute7 := l_curr_party_rec.attribute7 ;
3986: l_party_hist_rec.new_attribute7 := p_party_rec.attribute7 ;
3987: END IF;
3988: --
3985: l_party_hist_rec.old_attribute7 := l_curr_party_rec.attribute7 ;
3986: l_party_hist_rec.new_attribute7 := p_party_rec.attribute7 ;
3987: END IF;
3988: --
3989: IF (p_party_rec.attribute8 = fnd_api.g_miss_char) OR
3990: NVL(p_party_rec.attribute8, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute8, fnd_api.g_miss_char) THEN
3991: l_party_hist_rec.old_attribute8 := NULL;
3992: l_party_hist_rec.new_attribute8 := NULL;
3993: ELSIF
3986: l_party_hist_rec.new_attribute7 := p_party_rec.attribute7 ;
3987: END IF;
3988: --
3989: IF (p_party_rec.attribute8 = fnd_api.g_miss_char) OR
3990: NVL(p_party_rec.attribute8, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute8, fnd_api.g_miss_char) THEN
3991: l_party_hist_rec.old_attribute8 := NULL;
3992: l_party_hist_rec.new_attribute8 := NULL;
3993: ELSIF
3994: NVL(l_curr_party_rec.attribute8,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute8,fnd_api.g_miss_char) THEN
3990: NVL(p_party_rec.attribute8, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute8, fnd_api.g_miss_char) THEN
3991: l_party_hist_rec.old_attribute8 := NULL;
3992: l_party_hist_rec.new_attribute8 := NULL;
3993: ELSIF
3994: NVL(l_curr_party_rec.attribute8,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute8,fnd_api.g_miss_char) THEN
3995: l_party_hist_rec.old_attribute8 := l_curr_party_rec.attribute8 ;
3996: l_party_hist_rec.new_attribute8 := p_party_rec.attribute8 ;
3997: END IF;
3998: --
3995: l_party_hist_rec.old_attribute8 := l_curr_party_rec.attribute8 ;
3996: l_party_hist_rec.new_attribute8 := p_party_rec.attribute8 ;
3997: END IF;
3998: --
3999: IF (p_party_rec.attribute9 = fnd_api.g_miss_char) OR
4000: NVL(p_party_rec.attribute9, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute9, fnd_api.g_miss_char) THEN
4001: l_party_hist_rec.old_attribute9 := NULL;
4002: l_party_hist_rec.new_attribute9 := NULL;
4003: ELSIF
3996: l_party_hist_rec.new_attribute8 := p_party_rec.attribute8 ;
3997: END IF;
3998: --
3999: IF (p_party_rec.attribute9 = fnd_api.g_miss_char) OR
4000: NVL(p_party_rec.attribute9, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute9, fnd_api.g_miss_char) THEN
4001: l_party_hist_rec.old_attribute9 := NULL;
4002: l_party_hist_rec.new_attribute9 := NULL;
4003: ELSIF
4004: NVL(l_curr_party_rec.attribute9,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute9,fnd_api.g_miss_char) THEN
4000: NVL(p_party_rec.attribute9, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute9, fnd_api.g_miss_char) THEN
4001: l_party_hist_rec.old_attribute9 := NULL;
4002: l_party_hist_rec.new_attribute9 := NULL;
4003: ELSIF
4004: NVL(l_curr_party_rec.attribute9,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute9,fnd_api.g_miss_char) THEN
4005: l_party_hist_rec.old_attribute9 := l_curr_party_rec.attribute9 ;
4006: l_party_hist_rec.new_attribute9 := p_party_rec.attribute9 ;
4007: END IF;
4008: --
4005: l_party_hist_rec.old_attribute9 := l_curr_party_rec.attribute9 ;
4006: l_party_hist_rec.new_attribute9 := p_party_rec.attribute9 ;
4007: END IF;
4008: --
4009: IF (p_party_rec.attribute10 = fnd_api.g_miss_char) OR
4010: NVL(p_party_rec.attribute10, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute10, fnd_api.g_miss_char) THEN
4011: l_party_hist_rec.old_attribute10 := NULL;
4012: l_party_hist_rec.new_attribute10 := NULL;
4013: ELSIF
4006: l_party_hist_rec.new_attribute9 := p_party_rec.attribute9 ;
4007: END IF;
4008: --
4009: IF (p_party_rec.attribute10 = fnd_api.g_miss_char) OR
4010: NVL(p_party_rec.attribute10, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute10, fnd_api.g_miss_char) THEN
4011: l_party_hist_rec.old_attribute10 := NULL;
4012: l_party_hist_rec.new_attribute10 := NULL;
4013: ELSIF
4014: NVL(l_curr_party_rec.attribute10,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute10,fnd_api.g_miss_char) THEN
4010: NVL(p_party_rec.attribute10, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute10, fnd_api.g_miss_char) THEN
4011: l_party_hist_rec.old_attribute10 := NULL;
4012: l_party_hist_rec.new_attribute10 := NULL;
4013: ELSIF
4014: NVL(l_curr_party_rec.attribute10,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute10,fnd_api.g_miss_char) THEN
4015: l_party_hist_rec.old_attribute10 := l_curr_party_rec.attribute10 ;
4016: l_party_hist_rec.new_attribute10 := p_party_rec.attribute10 ;
4017: END IF;
4018: --
4015: l_party_hist_rec.old_attribute10 := l_curr_party_rec.attribute10 ;
4016: l_party_hist_rec.new_attribute10 := p_party_rec.attribute10 ;
4017: END IF;
4018: --
4019: IF (p_party_rec.attribute11 = fnd_api.g_miss_char) OR
4020: NVL(p_party_rec.attribute11, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute11, fnd_api.g_miss_char) THEN
4021: l_party_hist_rec.old_attribute11 := NULL;
4022: l_party_hist_rec.new_attribute11 := NULL;
4023: ELSIF
4016: l_party_hist_rec.new_attribute10 := p_party_rec.attribute10 ;
4017: END IF;
4018: --
4019: IF (p_party_rec.attribute11 = fnd_api.g_miss_char) OR
4020: NVL(p_party_rec.attribute11, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute11, fnd_api.g_miss_char) THEN
4021: l_party_hist_rec.old_attribute11 := NULL;
4022: l_party_hist_rec.new_attribute11 := NULL;
4023: ELSIF
4024: NVL(l_curr_party_rec.attribute11,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute11,fnd_api.g_miss_char) THEN
4020: NVL(p_party_rec.attribute11, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute11, fnd_api.g_miss_char) THEN
4021: l_party_hist_rec.old_attribute11 := NULL;
4022: l_party_hist_rec.new_attribute11 := NULL;
4023: ELSIF
4024: NVL(l_curr_party_rec.attribute11,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute11,fnd_api.g_miss_char) THEN
4025: l_party_hist_rec.old_attribute11 := l_curr_party_rec.attribute11 ;
4026: l_party_hist_rec.new_attribute11 := p_party_rec.attribute11 ;
4027: END IF;
4028: --
4025: l_party_hist_rec.old_attribute11 := l_curr_party_rec.attribute11 ;
4026: l_party_hist_rec.new_attribute11 := p_party_rec.attribute11 ;
4027: END IF;
4028: --
4029: IF (p_party_rec.attribute12 = fnd_api.g_miss_char) OR
4030: NVL(p_party_rec.attribute12, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute12, fnd_api.g_miss_char) THEN
4031: l_party_hist_rec.old_attribute12 := NULL;
4032: l_party_hist_rec.new_attribute12 := NULL;
4033: ELSIF
4026: l_party_hist_rec.new_attribute11 := p_party_rec.attribute11 ;
4027: END IF;
4028: --
4029: IF (p_party_rec.attribute12 = fnd_api.g_miss_char) OR
4030: NVL(p_party_rec.attribute12, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute12, fnd_api.g_miss_char) THEN
4031: l_party_hist_rec.old_attribute12 := NULL;
4032: l_party_hist_rec.new_attribute12 := NULL;
4033: ELSIF
4034: NVL(l_curr_party_rec.attribute12,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute12,fnd_api.g_miss_char) THEN
4030: NVL(p_party_rec.attribute12, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute12, fnd_api.g_miss_char) THEN
4031: l_party_hist_rec.old_attribute12 := NULL;
4032: l_party_hist_rec.new_attribute12 := NULL;
4033: ELSIF
4034: NVL(l_curr_party_rec.attribute12,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute12,fnd_api.g_miss_char) THEN
4035: l_party_hist_rec.old_attribute12 := l_curr_party_rec.attribute12 ;
4036: l_party_hist_rec.new_attribute12 := p_party_rec.attribute12 ;
4037: END IF;
4038: --
4035: l_party_hist_rec.old_attribute12 := l_curr_party_rec.attribute12 ;
4036: l_party_hist_rec.new_attribute12 := p_party_rec.attribute12 ;
4037: END IF;
4038: --
4039: IF (p_party_rec.attribute13 = fnd_api.g_miss_char) OR
4040: NVL(p_party_rec.attribute13, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute13, fnd_api.g_miss_char) THEN
4041: l_party_hist_rec.old_attribute13 := NULL;
4042: l_party_hist_rec.new_attribute13 := NULL;
4043: ELSIF
4036: l_party_hist_rec.new_attribute12 := p_party_rec.attribute12 ;
4037: END IF;
4038: --
4039: IF (p_party_rec.attribute13 = fnd_api.g_miss_char) OR
4040: NVL(p_party_rec.attribute13, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute13, fnd_api.g_miss_char) THEN
4041: l_party_hist_rec.old_attribute13 := NULL;
4042: l_party_hist_rec.new_attribute13 := NULL;
4043: ELSIF
4044: NVL(l_curr_party_rec.attribute13,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute13,fnd_api.g_miss_char) THEN
4040: NVL(p_party_rec.attribute13, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute13, fnd_api.g_miss_char) THEN
4041: l_party_hist_rec.old_attribute13 := NULL;
4042: l_party_hist_rec.new_attribute13 := NULL;
4043: ELSIF
4044: NVL(l_curr_party_rec.attribute13,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute13,fnd_api.g_miss_char) THEN
4045: l_party_hist_rec.old_attribute13 := l_curr_party_rec.attribute13 ;
4046: l_party_hist_rec.new_attribute13 := p_party_rec.attribute13 ;
4047: END IF;
4048: --
4045: l_party_hist_rec.old_attribute13 := l_curr_party_rec.attribute13 ;
4046: l_party_hist_rec.new_attribute13 := p_party_rec.attribute13 ;
4047: END IF;
4048: --
4049: IF (p_party_rec.attribute14 = fnd_api.g_miss_char) OR
4050: NVL(p_party_rec.attribute14, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute14, fnd_api.g_miss_char) THEN
4051: l_party_hist_rec.old_attribute14 := NULL;
4052: l_party_hist_rec.new_attribute14 := NULL;
4053: ELSIF
4046: l_party_hist_rec.new_attribute13 := p_party_rec.attribute13 ;
4047: END IF;
4048: --
4049: IF (p_party_rec.attribute14 = fnd_api.g_miss_char) OR
4050: NVL(p_party_rec.attribute14, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute14, fnd_api.g_miss_char) THEN
4051: l_party_hist_rec.old_attribute14 := NULL;
4052: l_party_hist_rec.new_attribute14 := NULL;
4053: ELSIF
4054: NVL(l_curr_party_rec.attribute14,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute14,fnd_api.g_miss_char) THEN
4050: NVL(p_party_rec.attribute14, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute14, fnd_api.g_miss_char) THEN
4051: l_party_hist_rec.old_attribute14 := NULL;
4052: l_party_hist_rec.new_attribute14 := NULL;
4053: ELSIF
4054: NVL(l_curr_party_rec.attribute14,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute14,fnd_api.g_miss_char) THEN
4055: l_party_hist_rec.old_attribute14 := l_curr_party_rec.attribute14 ;
4056: l_party_hist_rec.new_attribute14 := p_party_rec.attribute14 ;
4057: END IF;
4058: --
4055: l_party_hist_rec.old_attribute14 := l_curr_party_rec.attribute14 ;
4056: l_party_hist_rec.new_attribute14 := p_party_rec.attribute14 ;
4057: END IF;
4058: --
4059: IF (p_party_rec.attribute15 = fnd_api.g_miss_char) OR
4060: NVL(p_party_rec.attribute15, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute15, fnd_api.g_miss_char) THEN
4061: l_party_hist_rec.old_attribute15 := NULL;
4062: l_party_hist_rec.new_attribute15 := NULL;
4063: ELSIF
4056: l_party_hist_rec.new_attribute14 := p_party_rec.attribute14 ;
4057: END IF;
4058: --
4059: IF (p_party_rec.attribute15 = fnd_api.g_miss_char) OR
4060: NVL(p_party_rec.attribute15, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute15, fnd_api.g_miss_char) THEN
4061: l_party_hist_rec.old_attribute15 := NULL;
4062: l_party_hist_rec.new_attribute15 := NULL;
4063: ELSIF
4064: NVL(l_curr_party_rec.attribute15,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute15,fnd_api.g_miss_char) THEN
4060: NVL(p_party_rec.attribute15, fnd_api.g_miss_char) = NVL(l_curr_party_rec.attribute15, fnd_api.g_miss_char) THEN
4061: l_party_hist_rec.old_attribute15 := NULL;
4062: l_party_hist_rec.new_attribute15 := NULL;
4063: ELSIF
4064: NVL(l_curr_party_rec.attribute15,fnd_api.g_miss_char) <> NVL(p_party_rec.attribute15,fnd_api.g_miss_char) THEN
4065: l_party_hist_rec.old_attribute15 := l_curr_party_rec.attribute15 ;
4066: l_party_hist_rec.new_attribute15 := p_party_rec.attribute15 ;
4067: END IF;
4068: --
4065: l_party_hist_rec.old_attribute15 := l_curr_party_rec.attribute15 ;
4066: l_party_hist_rec.new_attribute15 := p_party_rec.attribute15 ;
4067: END IF;
4068: --
4069: IF (p_party_rec.primary_flag = fnd_api.g_miss_char) OR
4070: NVL(p_party_rec.primary_flag, fnd_api.g_miss_char) = NVL(l_curr_party_rec.primary_flag, fnd_api.g_miss_char) THEN
4071: l_party_hist_rec.old_primary_flag := NULL;
4072: l_party_hist_rec.new_primary_flag := NULL;
4073: ELSIF
4066: l_party_hist_rec.new_attribute15 := p_party_rec.attribute15 ;
4067: END IF;
4068: --
4069: IF (p_party_rec.primary_flag = fnd_api.g_miss_char) OR
4070: NVL(p_party_rec.primary_flag, fnd_api.g_miss_char) = NVL(l_curr_party_rec.primary_flag, fnd_api.g_miss_char) THEN
4071: l_party_hist_rec.old_primary_flag := NULL;
4072: l_party_hist_rec.new_primary_flag := NULL;
4073: ELSIF
4074: NVL(l_curr_party_rec.primary_flag,fnd_api.g_miss_char) <> NVL(p_party_rec.primary_flag,fnd_api.g_miss_char) THEN
4070: NVL(p_party_rec.primary_flag, fnd_api.g_miss_char) = NVL(l_curr_party_rec.primary_flag, fnd_api.g_miss_char) THEN
4071: l_party_hist_rec.old_primary_flag := NULL;
4072: l_party_hist_rec.new_primary_flag := NULL;
4073: ELSIF
4074: NVL(l_curr_party_rec.primary_flag,fnd_api.g_miss_char) <> NVL(p_party_rec.primary_flag,fnd_api.g_miss_char) THEN
4075: l_party_hist_rec.old_primary_flag := l_curr_party_rec.primary_flag ;
4076: l_party_hist_rec.new_primary_flag := p_party_rec.primary_flag ;
4077: END IF;
4078: --
4075: l_party_hist_rec.old_primary_flag := l_curr_party_rec.primary_flag ;
4076: l_party_hist_rec.new_primary_flag := p_party_rec.primary_flag ;
4077: END IF;
4078: --
4079: IF (p_party_rec.preferred_flag = fnd_api.g_miss_char) OR
4080: NVL(p_party_rec.preferred_flag, fnd_api.g_miss_char) = NVL(l_curr_party_rec.preferred_flag, fnd_api.g_miss_char) THEN
4081: l_party_hist_rec.old_preferred_flag := NULL;
4082: l_party_hist_rec.new_preferred_flag := NULL;
4083: ELSIF
4076: l_party_hist_rec.new_primary_flag := p_party_rec.primary_flag ;
4077: END IF;
4078: --
4079: IF (p_party_rec.preferred_flag = fnd_api.g_miss_char) OR
4080: NVL(p_party_rec.preferred_flag, fnd_api.g_miss_char) = NVL(l_curr_party_rec.preferred_flag, fnd_api.g_miss_char) THEN
4081: l_party_hist_rec.old_preferred_flag := NULL;
4082: l_party_hist_rec.new_preferred_flag := NULL;
4083: ELSIF
4084: NVL(l_curr_party_rec.preferred_flag,fnd_api.g_miss_char) <> NVL(p_party_rec.preferred_flag,fnd_api.g_miss_char) THEN
4080: NVL(p_party_rec.preferred_flag, fnd_api.g_miss_char) = NVL(l_curr_party_rec.preferred_flag, fnd_api.g_miss_char) THEN
4081: l_party_hist_rec.old_preferred_flag := NULL;
4082: l_party_hist_rec.new_preferred_flag := NULL;
4083: ELSIF
4084: NVL(l_curr_party_rec.preferred_flag,fnd_api.g_miss_char) <> NVL(p_party_rec.preferred_flag,fnd_api.g_miss_char) THEN
4085: l_party_hist_rec.old_preferred_flag := l_curr_party_rec.preferred_flag ;
4086: l_party_hist_rec.new_preferred_flag := p_party_rec.preferred_flag ;
4087: END IF;
4088:
4169: ,x_msg_count => x_msg_count
4170: ,x_msg_data => x_msg_data
4171: );
4172:
4173: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4174: FOR i in 1..x_msg_Count LOOP
4175: FND_MSG_PUB.Get(p_msg_index => i,
4176: p_encoded => 'F',
4177: p_data => x_msg_data,
4176: p_encoded => 'F',
4177: p_data => x_msg_data,
4178: p_msg_index_out => x_msg_index_out );
4179: End LOOP;
4180: RAISE FND_API.G_EXC_ERROR;
4181: END IF;
4182: -- srramakr Bug # 2232230. Expire the Contacts incase of Xfer of Ownership.
4183: --
4184: IF ((p_party_rec.PARTY_ID <> FND_API.G_MISS_NUM)
4180: RAISE FND_API.G_EXC_ERROR;
4181: END IF;
4182: -- srramakr Bug # 2232230. Expire the Contacts incase of Xfer of Ownership.
4183: --
4184: IF ((p_party_rec.PARTY_ID <> FND_API.G_MISS_NUM)
4185: AND (p_party_rec.PARTY_ID IS NOT NULL)
4186: AND (p_party_rec.PARTY_ID <> l_curr_party_rec.PARTY_ID))
4187: THEN
4188: For cont_rec in get_cont_party_rec(p_party_rec.INSTANCE_PARTY_ID)
4192: l_cont_party_rec.object_version_number := cont_rec.object_version_number;
4193: -- Calling Expire Instance Party Relationship
4194: expire_inst_party_relationship
4195: ( p_api_version => p_api_version
4196: ,p_commit => fnd_api.g_false
4197: ,p_init_msg_list => fnd_api.g_false
4198: ,p_validation_level => fnd_api.g_valid_level_full
4199: ,p_instance_party_rec => l_cont_party_rec
4200: ,p_txn_rec => p_txn_rec
4193: -- Calling Expire Instance Party Relationship
4194: expire_inst_party_relationship
4195: ( p_api_version => p_api_version
4196: ,p_commit => fnd_api.g_false
4197: ,p_init_msg_list => fnd_api.g_false
4198: ,p_validation_level => fnd_api.g_valid_level_full
4199: ,p_instance_party_rec => l_cont_party_rec
4200: ,p_txn_rec => p_txn_rec
4201: ,x_return_status => x_return_status
4194: expire_inst_party_relationship
4195: ( p_api_version => p_api_version
4196: ,p_commit => fnd_api.g_false
4197: ,p_init_msg_list => fnd_api.g_false
4198: ,p_validation_level => fnd_api.g_valid_level_full
4199: ,p_instance_party_rec => l_cont_party_rec
4200: ,p_txn_rec => p_txn_rec
4201: ,x_return_status => x_return_status
4202: ,x_msg_count => x_msg_count
4201: ,x_return_status => x_return_status
4202: ,x_msg_count => x_msg_count
4203: ,x_msg_data => x_msg_data
4204: );
4205: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4206: FOR i in 1..x_msg_Count LOOP
4207: FND_MSG_PUB.Get(p_msg_index => i,
4208: p_encoded => 'F',
4209: p_data => x_msg_data,
4208: p_encoded => 'F',
4209: p_data => x_msg_data,
4210: p_msg_index_out => x_msg_index_out );
4211: End LOOP;
4212: RAISE FND_API.G_EXC_ERROR;
4213: END IF;
4214: END LOOP;
4215: END IF;
4216: -- End of API body
4214: END LOOP;
4215: END IF;
4216: -- End of API body
4217: -- Standard check of p_commit.
4218: IF FND_API.To_Boolean( p_commit ) THEN
4219: COMMIT WORK;
4220: END IF;
4221: -- Standard call to get message count and if count is get message info.
4222: FND_MSG_PUB.Count_And_Get
4222: FND_MSG_PUB.Count_And_Get
4223: (p_count => x_msg_count ,
4224: p_data => x_msg_data );
4225: EXCEPTION
4226: WHEN FND_API.G_EXC_ERROR THEN
4227: -- ROLLBACK TO update_inst_party_rel_pvt;
4228: x_return_status := FND_API.G_RET_STS_ERROR ;
4229: FND_MSG_PUB.Count_And_Get
4230: ( p_count => x_msg_count,
4224: p_data => x_msg_data );
4225: EXCEPTION
4226: WHEN FND_API.G_EXC_ERROR THEN
4227: -- ROLLBACK TO update_inst_party_rel_pvt;
4228: x_return_status := FND_API.G_RET_STS_ERROR ;
4229: FND_MSG_PUB.Count_And_Get
4230: ( p_count => x_msg_count,
4231: p_data => x_msg_data );
4232: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4228: x_return_status := FND_API.G_RET_STS_ERROR ;
4229: FND_MSG_PUB.Count_And_Get
4230: ( p_count => x_msg_count,
4231: p_data => x_msg_data );
4232: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4233: -- ROLLBACK TO update_inst_party_rel_pvt;
4234: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4235: FND_MSG_PUB.Count_And_Get
4236: ( p_count => x_msg_count,
4230: ( p_count => x_msg_count,
4231: p_data => x_msg_data );
4232: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4233: -- ROLLBACK TO update_inst_party_rel_pvt;
4234: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4235: FND_MSG_PUB.Count_And_Get
4236: ( p_count => x_msg_count,
4237: p_data => x_msg_data );
4238: WHEN OTHERS THEN
4236: ( p_count => x_msg_count,
4237: p_data => x_msg_data );
4238: WHEN OTHERS THEN
4239: -- ROLLBACK TO update_inst_party_rel_pvt;
4240: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4241: IF FND_MSG_PUB.Check_Msg_Level
4242: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4243: THEN
4244: FND_MSG_PUB.Add_Exc_Msg
4327: -- Standard Start of API savepoint
4328: -- SAVEPOINT expire_inst_party_rel_pvt;
4329:
4330: -- Standard call to check for call compatibility.
4331: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
4332: p_api_version ,
4333: l_api_name ,
4334: g_pkg_name )
4335: THEN
4332: p_api_version ,
4333: l_api_name ,
4334: g_pkg_name )
4335: THEN
4336: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4337: END IF;
4338:
4339: -- Initialize message list if p_init_msg_list is set to TRUE.
4340: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4336: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4337: END IF;
4338:
4339: -- Initialize message list if p_init_msg_list is set to TRUE.
4340: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4341: FND_MSG_PUB.initialize;
4342: END IF;
4343:
4344: -- Initialize API return status to success
4342: END IF;
4343:
4344: -- Initialize API return status to success
4345: -- Verify if the Party rel combination exists
4346: x_return_status := FND_API.G_RET_STS_SUCCESS;
4347:
4348: -- Check the profile option CSI_DEBUG_LEVEL for debug message reporting
4349: l_csi_debug_level:=fnd_profile.value('CSI_DEBUG_LEVEL');
4350:
4387: -- Message added in the validation routine since additional validation added for bug # 2477417.
4388: -- FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INST_PARTY_ID');
4389: -- FND_MESSAGE.SET_TOKEN('INSTANCE_PARTY_ID',p_instance_party_rec.instance_party_id);
4390: -- FND_MSG_PUB.Add;
4391: RAISE FND_API.G_EXC_ERROR;
4392: END IF;
4393: -- check if the object_version_number passed matches with the one
4394: -- in the database else raise error
4395: OPEN get_curr_party_rec(p_instance_party_rec.instance_party_id);
4396: FETCH get_curr_party_rec INTO l_curr_party_rec;
4397: IF (l_curr_party_rec.object_version_number <> p_instance_party_rec.OBJECT_VERSION_NUMBER) THEN
4398: FND_MESSAGE.Set_Name('CSI', 'CSI_API_OBJ_VER_MISMATCH');
4399: FND_MSG_PUB.ADD;
4400: RAISE FND_API.G_EXC_ERROR;
4401: END IF;
4402: --
4403: IF get_curr_party_rec%NOTFOUND THEN
4404: FND_MESSAGE.Set_Name('CSI', 'CSI_API_RECORD_LOCKED');
4402: --
4403: IF get_curr_party_rec%NOTFOUND THEN
4404: FND_MESSAGE.Set_Name('CSI', 'CSI_API_RECORD_LOCKED');
4405: FND_MSG_PUB.ADD;
4406: RAISE FND_API.G_EXC_ERROR;
4407: END IF;
4408: CLOSE get_curr_party_rec;
4409: -- Initialize all the parameters and call update_inst_party_relationship to expire the record
4410: l_party_rec.instance_party_id := l_curr_party_rec.instance_party_id;
4407: END IF;
4408: CLOSE get_curr_party_rec;
4409: -- Initialize all the parameters and call update_inst_party_relationship to expire the record
4410: l_party_rec.instance_party_id := l_curr_party_rec.instance_party_id;
4411: l_party_rec.instance_id := FND_API.G_MISS_NUM;
4412: l_party_rec.PARTY_SOURCE_TABLE := FND_API.G_MISS_CHAR;
4413: l_party_rec.PARTY_ID := FND_API.G_MISS_NUM;
4414: l_party_rec.RELATIONSHIP_TYPE_CODE := FND_API.G_MISS_CHAR;
4415: l_party_rec.CONTACT_FLAG := FND_API.G_MISS_CHAR;
4408: CLOSE get_curr_party_rec;
4409: -- Initialize all the parameters and call update_inst_party_relationship to expire the record
4410: l_party_rec.instance_party_id := l_curr_party_rec.instance_party_id;
4411: l_party_rec.instance_id := FND_API.G_MISS_NUM;
4412: l_party_rec.PARTY_SOURCE_TABLE := FND_API.G_MISS_CHAR;
4413: l_party_rec.PARTY_ID := FND_API.G_MISS_NUM;
4414: l_party_rec.RELATIONSHIP_TYPE_CODE := FND_API.G_MISS_CHAR;
4415: l_party_rec.CONTACT_FLAG := FND_API.G_MISS_CHAR;
4416: l_party_rec.CONTACT_IP_ID := FND_API.G_MISS_NUM;
4409: -- Initialize all the parameters and call update_inst_party_relationship to expire the record
4410: l_party_rec.instance_party_id := l_curr_party_rec.instance_party_id;
4411: l_party_rec.instance_id := FND_API.G_MISS_NUM;
4412: l_party_rec.PARTY_SOURCE_TABLE := FND_API.G_MISS_CHAR;
4413: l_party_rec.PARTY_ID := FND_API.G_MISS_NUM;
4414: l_party_rec.RELATIONSHIP_TYPE_CODE := FND_API.G_MISS_CHAR;
4415: l_party_rec.CONTACT_FLAG := FND_API.G_MISS_CHAR;
4416: l_party_rec.CONTACT_IP_ID := FND_API.G_MISS_NUM;
4417: l_party_rec.ACTIVE_START_DATE := FND_API.G_MISS_DATE;
4410: l_party_rec.instance_party_id := l_curr_party_rec.instance_party_id;
4411: l_party_rec.instance_id := FND_API.G_MISS_NUM;
4412: l_party_rec.PARTY_SOURCE_TABLE := FND_API.G_MISS_CHAR;
4413: l_party_rec.PARTY_ID := FND_API.G_MISS_NUM;
4414: l_party_rec.RELATIONSHIP_TYPE_CODE := FND_API.G_MISS_CHAR;
4415: l_party_rec.CONTACT_FLAG := FND_API.G_MISS_CHAR;
4416: l_party_rec.CONTACT_IP_ID := FND_API.G_MISS_NUM;
4417: l_party_rec.ACTIVE_START_DATE := FND_API.G_MISS_DATE;
4418: l_party_rec.ACTIVE_END_DATE := sysdate;
4411: l_party_rec.instance_id := FND_API.G_MISS_NUM;
4412: l_party_rec.PARTY_SOURCE_TABLE := FND_API.G_MISS_CHAR;
4413: l_party_rec.PARTY_ID := FND_API.G_MISS_NUM;
4414: l_party_rec.RELATIONSHIP_TYPE_CODE := FND_API.G_MISS_CHAR;
4415: l_party_rec.CONTACT_FLAG := FND_API.G_MISS_CHAR;
4416: l_party_rec.CONTACT_IP_ID := FND_API.G_MISS_NUM;
4417: l_party_rec.ACTIVE_START_DATE := FND_API.G_MISS_DATE;
4418: l_party_rec.ACTIVE_END_DATE := sysdate;
4419: l_party_rec.CONTEXT := FND_API.G_MISS_CHAR;
4412: l_party_rec.PARTY_SOURCE_TABLE := FND_API.G_MISS_CHAR;
4413: l_party_rec.PARTY_ID := FND_API.G_MISS_NUM;
4414: l_party_rec.RELATIONSHIP_TYPE_CODE := FND_API.G_MISS_CHAR;
4415: l_party_rec.CONTACT_FLAG := FND_API.G_MISS_CHAR;
4416: l_party_rec.CONTACT_IP_ID := FND_API.G_MISS_NUM;
4417: l_party_rec.ACTIVE_START_DATE := FND_API.G_MISS_DATE;
4418: l_party_rec.ACTIVE_END_DATE := sysdate;
4419: l_party_rec.CONTEXT := FND_API.G_MISS_CHAR;
4420: l_party_rec.ATTRIBUTE1 := FND_API.G_MISS_CHAR;
4413: l_party_rec.PARTY_ID := FND_API.G_MISS_NUM;
4414: l_party_rec.RELATIONSHIP_TYPE_CODE := FND_API.G_MISS_CHAR;
4415: l_party_rec.CONTACT_FLAG := FND_API.G_MISS_CHAR;
4416: l_party_rec.CONTACT_IP_ID := FND_API.G_MISS_NUM;
4417: l_party_rec.ACTIVE_START_DATE := FND_API.G_MISS_DATE;
4418: l_party_rec.ACTIVE_END_DATE := sysdate;
4419: l_party_rec.CONTEXT := FND_API.G_MISS_CHAR;
4420: l_party_rec.ATTRIBUTE1 := FND_API.G_MISS_CHAR;
4421: l_party_rec.ATTRIBUTE2 := FND_API.G_MISS_CHAR;
4415: l_party_rec.CONTACT_FLAG := FND_API.G_MISS_CHAR;
4416: l_party_rec.CONTACT_IP_ID := FND_API.G_MISS_NUM;
4417: l_party_rec.ACTIVE_START_DATE := FND_API.G_MISS_DATE;
4418: l_party_rec.ACTIVE_END_DATE := sysdate;
4419: l_party_rec.CONTEXT := FND_API.G_MISS_CHAR;
4420: l_party_rec.ATTRIBUTE1 := FND_API.G_MISS_CHAR;
4421: l_party_rec.ATTRIBUTE2 := FND_API.G_MISS_CHAR;
4422: l_party_rec.ATTRIBUTE3 := FND_API.G_MISS_CHAR;
4423: l_party_rec.ATTRIBUTE4 := FND_API.G_MISS_CHAR;
4416: l_party_rec.CONTACT_IP_ID := FND_API.G_MISS_NUM;
4417: l_party_rec.ACTIVE_START_DATE := FND_API.G_MISS_DATE;
4418: l_party_rec.ACTIVE_END_DATE := sysdate;
4419: l_party_rec.CONTEXT := FND_API.G_MISS_CHAR;
4420: l_party_rec.ATTRIBUTE1 := FND_API.G_MISS_CHAR;
4421: l_party_rec.ATTRIBUTE2 := FND_API.G_MISS_CHAR;
4422: l_party_rec.ATTRIBUTE3 := FND_API.G_MISS_CHAR;
4423: l_party_rec.ATTRIBUTE4 := FND_API.G_MISS_CHAR;
4424: l_party_rec.ATTRIBUTE5 := FND_API.G_MISS_CHAR;
4417: l_party_rec.ACTIVE_START_DATE := FND_API.G_MISS_DATE;
4418: l_party_rec.ACTIVE_END_DATE := sysdate;
4419: l_party_rec.CONTEXT := FND_API.G_MISS_CHAR;
4420: l_party_rec.ATTRIBUTE1 := FND_API.G_MISS_CHAR;
4421: l_party_rec.ATTRIBUTE2 := FND_API.G_MISS_CHAR;
4422: l_party_rec.ATTRIBUTE3 := FND_API.G_MISS_CHAR;
4423: l_party_rec.ATTRIBUTE4 := FND_API.G_MISS_CHAR;
4424: l_party_rec.ATTRIBUTE5 := FND_API.G_MISS_CHAR;
4425: l_party_rec.ATTRIBUTE6 := FND_API.G_MISS_CHAR;
4418: l_party_rec.ACTIVE_END_DATE := sysdate;
4419: l_party_rec.CONTEXT := FND_API.G_MISS_CHAR;
4420: l_party_rec.ATTRIBUTE1 := FND_API.G_MISS_CHAR;
4421: l_party_rec.ATTRIBUTE2 := FND_API.G_MISS_CHAR;
4422: l_party_rec.ATTRIBUTE3 := FND_API.G_MISS_CHAR;
4423: l_party_rec.ATTRIBUTE4 := FND_API.G_MISS_CHAR;
4424: l_party_rec.ATTRIBUTE5 := FND_API.G_MISS_CHAR;
4425: l_party_rec.ATTRIBUTE6 := FND_API.G_MISS_CHAR;
4426: l_party_rec.ATTRIBUTE7 := FND_API.G_MISS_CHAR;
4419: l_party_rec.CONTEXT := FND_API.G_MISS_CHAR;
4420: l_party_rec.ATTRIBUTE1 := FND_API.G_MISS_CHAR;
4421: l_party_rec.ATTRIBUTE2 := FND_API.G_MISS_CHAR;
4422: l_party_rec.ATTRIBUTE3 := FND_API.G_MISS_CHAR;
4423: l_party_rec.ATTRIBUTE4 := FND_API.G_MISS_CHAR;
4424: l_party_rec.ATTRIBUTE5 := FND_API.G_MISS_CHAR;
4425: l_party_rec.ATTRIBUTE6 := FND_API.G_MISS_CHAR;
4426: l_party_rec.ATTRIBUTE7 := FND_API.G_MISS_CHAR;
4427: l_party_rec.ATTRIBUTE8 := FND_API.G_MISS_CHAR;
4420: l_party_rec.ATTRIBUTE1 := FND_API.G_MISS_CHAR;
4421: l_party_rec.ATTRIBUTE2 := FND_API.G_MISS_CHAR;
4422: l_party_rec.ATTRIBUTE3 := FND_API.G_MISS_CHAR;
4423: l_party_rec.ATTRIBUTE4 := FND_API.G_MISS_CHAR;
4424: l_party_rec.ATTRIBUTE5 := FND_API.G_MISS_CHAR;
4425: l_party_rec.ATTRIBUTE6 := FND_API.G_MISS_CHAR;
4426: l_party_rec.ATTRIBUTE7 := FND_API.G_MISS_CHAR;
4427: l_party_rec.ATTRIBUTE8 := FND_API.G_MISS_CHAR;
4428: l_party_rec.ATTRIBUTE9 := FND_API.G_MISS_CHAR;
4421: l_party_rec.ATTRIBUTE2 := FND_API.G_MISS_CHAR;
4422: l_party_rec.ATTRIBUTE3 := FND_API.G_MISS_CHAR;
4423: l_party_rec.ATTRIBUTE4 := FND_API.G_MISS_CHAR;
4424: l_party_rec.ATTRIBUTE5 := FND_API.G_MISS_CHAR;
4425: l_party_rec.ATTRIBUTE6 := FND_API.G_MISS_CHAR;
4426: l_party_rec.ATTRIBUTE7 := FND_API.G_MISS_CHAR;
4427: l_party_rec.ATTRIBUTE8 := FND_API.G_MISS_CHAR;
4428: l_party_rec.ATTRIBUTE9 := FND_API.G_MISS_CHAR;
4429: l_party_rec.ATTRIBUTE10 := FND_API.G_MISS_CHAR;
4422: l_party_rec.ATTRIBUTE3 := FND_API.G_MISS_CHAR;
4423: l_party_rec.ATTRIBUTE4 := FND_API.G_MISS_CHAR;
4424: l_party_rec.ATTRIBUTE5 := FND_API.G_MISS_CHAR;
4425: l_party_rec.ATTRIBUTE6 := FND_API.G_MISS_CHAR;
4426: l_party_rec.ATTRIBUTE7 := FND_API.G_MISS_CHAR;
4427: l_party_rec.ATTRIBUTE8 := FND_API.G_MISS_CHAR;
4428: l_party_rec.ATTRIBUTE9 := FND_API.G_MISS_CHAR;
4429: l_party_rec.ATTRIBUTE10 := FND_API.G_MISS_CHAR;
4430: l_party_rec.ATTRIBUTE11 := FND_API.G_MISS_CHAR;
4423: l_party_rec.ATTRIBUTE4 := FND_API.G_MISS_CHAR;
4424: l_party_rec.ATTRIBUTE5 := FND_API.G_MISS_CHAR;
4425: l_party_rec.ATTRIBUTE6 := FND_API.G_MISS_CHAR;
4426: l_party_rec.ATTRIBUTE7 := FND_API.G_MISS_CHAR;
4427: l_party_rec.ATTRIBUTE8 := FND_API.G_MISS_CHAR;
4428: l_party_rec.ATTRIBUTE9 := FND_API.G_MISS_CHAR;
4429: l_party_rec.ATTRIBUTE10 := FND_API.G_MISS_CHAR;
4430: l_party_rec.ATTRIBUTE11 := FND_API.G_MISS_CHAR;
4431: l_party_rec.ATTRIBUTE12 := FND_API.G_MISS_CHAR;
4424: l_party_rec.ATTRIBUTE5 := FND_API.G_MISS_CHAR;
4425: l_party_rec.ATTRIBUTE6 := FND_API.G_MISS_CHAR;
4426: l_party_rec.ATTRIBUTE7 := FND_API.G_MISS_CHAR;
4427: l_party_rec.ATTRIBUTE8 := FND_API.G_MISS_CHAR;
4428: l_party_rec.ATTRIBUTE9 := FND_API.G_MISS_CHAR;
4429: l_party_rec.ATTRIBUTE10 := FND_API.G_MISS_CHAR;
4430: l_party_rec.ATTRIBUTE11 := FND_API.G_MISS_CHAR;
4431: l_party_rec.ATTRIBUTE12 := FND_API.G_MISS_CHAR;
4432: l_party_rec.ATTRIBUTE13 := FND_API.G_MISS_CHAR;
4425: l_party_rec.ATTRIBUTE6 := FND_API.G_MISS_CHAR;
4426: l_party_rec.ATTRIBUTE7 := FND_API.G_MISS_CHAR;
4427: l_party_rec.ATTRIBUTE8 := FND_API.G_MISS_CHAR;
4428: l_party_rec.ATTRIBUTE9 := FND_API.G_MISS_CHAR;
4429: l_party_rec.ATTRIBUTE10 := FND_API.G_MISS_CHAR;
4430: l_party_rec.ATTRIBUTE11 := FND_API.G_MISS_CHAR;
4431: l_party_rec.ATTRIBUTE12 := FND_API.G_MISS_CHAR;
4432: l_party_rec.ATTRIBUTE13 := FND_API.G_MISS_CHAR;
4433: l_party_rec.ATTRIBUTE14 := FND_API.G_MISS_CHAR;
4426: l_party_rec.ATTRIBUTE7 := FND_API.G_MISS_CHAR;
4427: l_party_rec.ATTRIBUTE8 := FND_API.G_MISS_CHAR;
4428: l_party_rec.ATTRIBUTE9 := FND_API.G_MISS_CHAR;
4429: l_party_rec.ATTRIBUTE10 := FND_API.G_MISS_CHAR;
4430: l_party_rec.ATTRIBUTE11 := FND_API.G_MISS_CHAR;
4431: l_party_rec.ATTRIBUTE12 := FND_API.G_MISS_CHAR;
4432: l_party_rec.ATTRIBUTE13 := FND_API.G_MISS_CHAR;
4433: l_party_rec.ATTRIBUTE14 := FND_API.G_MISS_CHAR;
4434: l_party_rec.ATTRIBUTE15 := FND_API.G_MISS_CHAR;
4427: l_party_rec.ATTRIBUTE8 := FND_API.G_MISS_CHAR;
4428: l_party_rec.ATTRIBUTE9 := FND_API.G_MISS_CHAR;
4429: l_party_rec.ATTRIBUTE10 := FND_API.G_MISS_CHAR;
4430: l_party_rec.ATTRIBUTE11 := FND_API.G_MISS_CHAR;
4431: l_party_rec.ATTRIBUTE12 := FND_API.G_MISS_CHAR;
4432: l_party_rec.ATTRIBUTE13 := FND_API.G_MISS_CHAR;
4433: l_party_rec.ATTRIBUTE14 := FND_API.G_MISS_CHAR;
4434: l_party_rec.ATTRIBUTE15 := FND_API.G_MISS_CHAR;
4435: l_party_rec.OBJECT_VERSION_NUMBER := p_instance_party_rec.object_version_number;
4428: l_party_rec.ATTRIBUTE9 := FND_API.G_MISS_CHAR;
4429: l_party_rec.ATTRIBUTE10 := FND_API.G_MISS_CHAR;
4430: l_party_rec.ATTRIBUTE11 := FND_API.G_MISS_CHAR;
4431: l_party_rec.ATTRIBUTE12 := FND_API.G_MISS_CHAR;
4432: l_party_rec.ATTRIBUTE13 := FND_API.G_MISS_CHAR;
4433: l_party_rec.ATTRIBUTE14 := FND_API.G_MISS_CHAR;
4434: l_party_rec.ATTRIBUTE15 := FND_API.G_MISS_CHAR;
4435: l_party_rec.OBJECT_VERSION_NUMBER := p_instance_party_rec.object_version_number;
4436: --
4429: l_party_rec.ATTRIBUTE10 := FND_API.G_MISS_CHAR;
4430: l_party_rec.ATTRIBUTE11 := FND_API.G_MISS_CHAR;
4431: l_party_rec.ATTRIBUTE12 := FND_API.G_MISS_CHAR;
4432: l_party_rec.ATTRIBUTE13 := FND_API.G_MISS_CHAR;
4433: l_party_rec.ATTRIBUTE14 := FND_API.G_MISS_CHAR;
4434: l_party_rec.ATTRIBUTE15 := FND_API.G_MISS_CHAR;
4435: l_party_rec.OBJECT_VERSION_NUMBER := p_instance_party_rec.object_version_number;
4436: --
4437: g_expire_party_flag := 'Y';
4430: l_party_rec.ATTRIBUTE11 := FND_API.G_MISS_CHAR;
4431: l_party_rec.ATTRIBUTE12 := FND_API.G_MISS_CHAR;
4432: l_party_rec.ATTRIBUTE13 := FND_API.G_MISS_CHAR;
4433: l_party_rec.ATTRIBUTE14 := FND_API.G_MISS_CHAR;
4434: l_party_rec.ATTRIBUTE15 := FND_API.G_MISS_CHAR;
4435: l_party_rec.OBJECT_VERSION_NUMBER := p_instance_party_rec.object_version_number;
4436: --
4437: g_expire_party_flag := 'Y';
4438: update_inst_party_relationship
4446: ,x_msg_count => x_msg_count
4447: ,x_msg_data => x_msg_data ) ;
4448:
4449: g_expire_party_flag := 'N';
4450: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4451: l_msg_index := 1;
4452: l_msg_count := x_msg_count;
4453: WHILE l_msg_count > 0 LOOP
4454: x_msg_data := FND_MSG_PUB.GET(
4452: l_msg_count := x_msg_count;
4453: WHILE l_msg_count > 0 LOOP
4454: x_msg_data := FND_MSG_PUB.GET(
4455: l_msg_index,
4456: FND_API.G_FALSE );
4457: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
4458: l_msg_index := l_msg_index + 1;
4459: l_msg_count := l_msg_count - 1;
4460: END LOOP;
4457: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
4458: l_msg_index := l_msg_index + 1;
4459: l_msg_count := l_msg_count - 1;
4460: END LOOP;
4461: RAISE FND_API.G_EXC_ERROR;
4462: END IF;
4463: --
4464: -- End of API body
4465:
4463: --
4464: -- End of API body
4465:
4466: -- Standard check of p_commit.
4467: IF FND_API.To_Boolean( p_commit ) THEN
4468: COMMIT WORK;
4469: END IF;
4470: -- Standard call to get message count and if count is get message info.
4471: FND_MSG_PUB.Count_And_Get
4471: FND_MSG_PUB.Count_And_Get
4472: (p_count => x_msg_count ,
4473: p_data => x_msg_data );
4474: EXCEPTION
4475: WHEN FND_API.G_EXC_ERROR THEN
4476: -- ROLLBACK TO expire_inst_party_rel_pvt;
4477: x_return_status := FND_API.G_RET_STS_ERROR ;
4478: FND_MSG_PUB.Count_And_Get
4479: ( p_count => x_msg_count,
4473: p_data => x_msg_data );
4474: EXCEPTION
4475: WHEN FND_API.G_EXC_ERROR THEN
4476: -- ROLLBACK TO expire_inst_party_rel_pvt;
4477: x_return_status := FND_API.G_RET_STS_ERROR ;
4478: FND_MSG_PUB.Count_And_Get
4479: ( p_count => x_msg_count,
4480: p_data => x_msg_data );
4481: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4477: x_return_status := FND_API.G_RET_STS_ERROR ;
4478: FND_MSG_PUB.Count_And_Get
4479: ( p_count => x_msg_count,
4480: p_data => x_msg_data );
4481: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4482: -- ROLLBACK TO expire_inst_party_rel_pvt;
4483: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4484: FND_MSG_PUB.Count_And_Get
4485: ( p_count => x_msg_count,
4479: ( p_count => x_msg_count,
4480: p_data => x_msg_data );
4481: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4482: -- ROLLBACK TO expire_inst_party_rel_pvt;
4483: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4484: FND_MSG_PUB.Count_And_Get
4485: ( p_count => x_msg_count,
4486: p_data => x_msg_data );
4487: WHEN OTHERS THEN
4485: ( p_count => x_msg_count,
4486: p_data => x_msg_data );
4487: WHEN OTHERS THEN
4488: -- ROLLBACK TO expire_inst_party_rel_pvt;
4489: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4490: IF FND_MSG_PUB.Check_Msg_Level
4491: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4492: THEN
4493: FND_MSG_PUB.Add_Exc_Msg
4553: -- Standard Start of API savepoint
4554: SAVEPOINT create_inst_party_acct_pvt;
4555:
4556: -- Standard call to check for call compatibility.
4557: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
4558: p_api_version ,
4559: l_api_name ,
4560: g_pkg_name )
4561: THEN
4558: p_api_version ,
4559: l_api_name ,
4560: g_pkg_name )
4561: THEN
4562: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4563: END IF;
4564:
4565: -- Initialize message list if p_init_msg_list is set to TRUE.
4566: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4562: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4563: END IF;
4564:
4565: -- Initialize message list if p_init_msg_list is set to TRUE.
4566: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4567: FND_MSG_PUB.initialize;
4568: END IF;
4569:
4570: -- Initialize API return status to success
4567: FND_MSG_PUB.initialize;
4568: END IF;
4569:
4570: -- Initialize API return status to success
4571: x_return_status := FND_API.G_RET_STS_SUCCESS;
4572:
4573: -- Check the profile option CSI_DEBUG_LEVEL for debug message reporting
4574: l_csi_debug_level:=fnd_profile.value('CSI_DEBUG_LEVEL');
4575:
4606: l_api_name );
4607:
4608: -- Initialize the counts
4609: IF p_account_count_rec.inst_party_count is NULL OR
4610: p_account_count_rec.inst_party_count = FND_API.G_MISS_NUM THEN
4611: p_account_count_rec.inst_party_count := 0;
4612: END IF;
4613: --
4614: IF p_account_count_rec.rel_type_count is NULL OR
4611: p_account_count_rec.inst_party_count := 0;
4612: END IF;
4613: --
4614: IF p_account_count_rec.rel_type_count is NULL OR
4615: p_account_count_rec.rel_type_count = FND_API.G_MISS_NUM THEN
4616: p_account_count_rec.rel_type_count := 0;
4617: END IF;
4618: --
4619: IF p_account_count_rec.site_use_count is NULL OR
4616: p_account_count_rec.rel_type_count := 0;
4617: END IF;
4618: --
4619: IF p_account_count_rec.site_use_count is NULL OR
4620: p_account_count_rec.site_use_count = FND_API.G_MISS_NUM THEN
4621: p_account_count_rec.site_use_count := 0;
4622: END IF;
4623: --
4624: -- Added by sk for fixing bug 2110790
4622: END IF;
4623: --
4624: -- Added by sk for fixing bug 2110790
4625: l_update_record := FALSE;
4626: IF p_called_from_grp <> FND_API.G_TRUE THEN
4627: IF p_party_account_rec.relationship_type_code = 'OWNER'
4628: AND ( p_party_account_rec.ip_account_id IS NULL OR
4629: p_party_account_rec.ip_account_id = fnd_api.g_miss_num )
4630: THEN
4625: l_update_record := FALSE;
4626: IF p_called_from_grp <> FND_API.G_TRUE THEN
4627: IF p_party_account_rec.relationship_type_code = 'OWNER'
4628: AND ( p_party_account_rec.ip_account_id IS NULL OR
4629: p_party_account_rec.ip_account_id = fnd_api.g_miss_num )
4630: THEN
4631: BEGIN
4632: SELECT ip_account_id,
4633: active_start_date,
4640: AND relationship_type_code = 'OWNER'
4641: AND (active_end_date IS NULL OR active_end_date > SYSDATE)
4642: AND ROWNUM = 1;
4643:
4644: IF p_party_account_rec.active_end_date = fnd_api.g_miss_date
4645: THEN
4646: p_party_account_rec.active_end_date := NULL ;
4647: END IF;
4648: --
4660: WHERE instance_party_id = p_party_account_rec.instance_party_id
4661: AND relationship_type_code = 'OWNER'
4662: AND ROWNUM = 1;
4663:
4664: IF p_party_account_rec.active_end_date = fnd_api.g_miss_date
4665: THEN
4666: p_party_account_rec.active_end_date := NULL ;
4667: END IF;
4668: l_update_record := TRUE;
4687: ,x_return_status => x_return_status
4688: ,x_msg_count => x_msg_count
4689: ,x_msg_data => x_msg_data);
4690:
4691: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4692: l_msg_index := 1;
4693: l_msg_count := x_msg_count;
4694: WHILE l_msg_count > 0 LOOP
4695: x_msg_data := FND_MSG_PUB.GET(
4693: l_msg_count := x_msg_count;
4694: WHILE l_msg_count > 0 LOOP
4695: x_msg_data := FND_MSG_PUB.GET(
4696: l_msg_index,
4697: FND_API.G_FALSE );
4698: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
4699: l_msg_index := l_msg_index + 1;
4700: l_msg_count := l_msg_count - 1;
4701: END LOOP;
4698: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
4699: l_msg_index := l_msg_index + 1;
4700: l_msg_count := l_msg_count - 1;
4701: END LOOP;
4702: RAISE FND_API.G_EXC_ERROR;
4703: END IF;
4704: END IF;
4705: END IF;
4706: END IF; -- Called from group check
4707: -- End addition by sk for fixing bug 2110790
4708: -- Check if the account is already expired
4709: -- If so unexpire the account
4710: l_record_found := FALSE;
4711: IF p_called_from_grp <> FND_API.G_TRUE THEN
4712: IF p_party_account_rec.ip_account_id IS NULL OR
4713: p_party_account_rec.ip_account_id = fnd_api.g_miss_num
4714: THEN
4715: BEGIN
4709: -- If so unexpire the account
4710: l_record_found := FALSE;
4711: IF p_called_from_grp <> FND_API.G_TRUE THEN
4712: IF p_party_account_rec.ip_account_id IS NULL OR
4713: p_party_account_rec.ip_account_id = fnd_api.g_miss_num
4714: THEN
4715: BEGIN
4716: SELECT ip_account_id ,
4717: object_version_number
4732: END IF; -- called from group check
4733: /* -- Commented by sk for fixing the bug 2232880
4734: IF CSI_Instance_parties_vld_pvt.Is_Account_Expired
4735: (p_party_account_rec) THEN
4736: IF (p_party_account_rec.ACTIVE_END_DATE = FND_API.G_MISS_DATE ) THEN
4737: p_party_account_rec.active_end_date := NULL;
4738: END IF;
4739: */ -- Commented by sk for fixing the bug 2232880
4740: -- Unexpire the account
4741: IF NOT(l_update_record)
4742: THEN -- Added for bug 2110790
4743: IF l_record_found THEN
4744: -- Added by sk for fixing the bug 2232880
4745: IF p_party_account_rec.active_end_date = fnd_api.g_miss_date
4746: THEN
4747: p_party_account_rec.active_end_date := NULL;
4748: END IF;
4749: -- End additon by sk for fixing the bug 2232880
4758: ,x_return_status => x_return_status
4759: ,x_msg_count => x_msg_count
4760: ,x_msg_data => x_msg_data);
4761:
4762: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4763: l_msg_index := 1;
4764: l_msg_count := x_msg_count;
4765: WHILE l_msg_count > 0 LOOP
4766: x_msg_data := FND_MSG_PUB.GET(
4764: l_msg_count := x_msg_count;
4765: WHILE l_msg_count > 0 LOOP
4766: x_msg_data := FND_MSG_PUB.GET(
4767: l_msg_index,
4768: FND_API.G_FALSE );
4769: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
4770: l_msg_index := l_msg_index + 1;
4771: l_msg_count := l_msg_count - 1;
4772: END LOOP;
4769: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
4770: l_msg_index := l_msg_index + 1;
4771: l_msg_count := l_msg_count - 1;
4772: END LOOP;
4773: RAISE FND_API.G_EXC_ERROR;
4774: END IF;
4775: -- END IF; -- commented by sk for fixing the bug 2232880
4776: ELSE -- Added by sk for fixing the bug 2232880
4777: -- Verify if the party account combination exists
4774: END IF;
4775: -- END IF; -- commented by sk for fixing the bug 2232880
4776: ELSE -- Added by sk for fixing the bug 2232880
4777: -- Verify if the party account combination exists
4778: IF p_called_from_grp <> FND_API.G_TRUE THEN
4779: IF CSI_Instance_parties_vld_pvt.Is_Pty_Acct_Comb_Exists
4780: (p_party_account_rec.instance_party_id ,
4781: p_party_account_rec.party_account_id ,
4782: p_party_account_rec.relationship_type_code ) THEN
4779: IF CSI_Instance_parties_vld_pvt.Is_Pty_Acct_Comb_Exists
4780: (p_party_account_rec.instance_party_id ,
4781: p_party_account_rec.party_account_id ,
4782: p_party_account_rec.relationship_type_code ) THEN
4783: RAISE FND_API.G_EXC_ERROR;
4784: END IF;
4785: END IF;
4786:
4787: IF p_party_account_rec.IP_ACCOUNT_ID is NULL OR
4784: END IF;
4785: END IF;
4786:
4787: IF p_party_account_rec.IP_ACCOUNT_ID is NULL OR
4788: p_party_account_rec.IP_ACCOUNT_ID = FND_API.G_MISS_NUM THEN
4789: -- If ip_account_id passed is null then generate from sequence
4790: -- and check if the value exists . If exists then generate again
4791: -- from the sequence till we get a value that does not exist
4792: while l_process_flag loop
4799: ELSE
4800: -- Validate the instance_party_id if exist then raise CSI_API_INVALID_PRIMARY_KEY error
4801: IF CSI_Instance_parties_vld_pvt.Is_IP_account_Exists(p_party_account_rec.IP_ACCOUNT_ID ,
4802: TRUE ) THEN
4803: RAISE FND_API.G_EXC_ERROR;
4804: END IF;
4805: END IF;
4806: -- Verify if the instance_party_id is valid
4807: -- Check the cache before hitting the Database.
4804: END IF;
4805: END IF;
4806: -- Verify if the instance_party_id is valid
4807: -- Check the cache before hitting the Database.
4808: IF p_called_from_grp <> FND_API.G_TRUE THEN
4809: l_exists_flag := 'N';
4810: l_valid_flag := 'Y';
4811: IF p_inst_party_tbl.count > 0 THEN
4812: For tab_row in p_inst_party_tbl.FIRST .. p_inst_party_tbl.LAST
4821: IF l_valid_flag <> 'Y' THEN
4822: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INST_PARTY_ID');
4823: FND_MESSAGE.SET_TOKEN('INSTANCE_PARTY_ID',p_party_account_rec.INSTANCE_PARTY_ID);
4824: FND_MSG_PUB.Add;
4825: RAISE FND_API.G_EXC_ERROR;
4826: END IF;
4827: END IF;
4828: --
4829: IF l_exists_flag <> 'Y' THEN
4839: -- Message added in the validation routine since additional validation added for bug # 2477417.
4840: -- FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INST_PARTY_ID');
4841: -- FND_MESSAGE.SET_TOKEN('INSTANCE_PARTY_ID',p_party_account_rec.INSTANCE_PARTY_ID);
4842: -- FND_MSG_PUB.Add;
4843: -- RAISE FND_API.G_EXC_ERROR;
4844: ELSE
4845: p_inst_party_tbl(p_account_count_rec.inst_party_count).valid_flag := 'Y';
4846: END IF;
4847: END IF;
4846: END IF;
4847: END IF;
4848: END IF; -- called from group check
4849: -- Verify Party Account ID is Valid
4850: IF p_called_from_grp <> FND_API.G_TRUE THEN
4851: IF NOT(CSI_Instance_parties_vld_pvt.Is_Pty_accountID_Valid
4852: (p_party_account_rec.PARTY_ACCOUNT_ID,
4853: p_party_account_rec.INSTANCE_PARTY_ID,
4854: p_party_account_rec.RELATIONSHIP_TYPE_CODE,
4854: p_party_account_rec.RELATIONSHIP_TYPE_CODE,
4855: p_txn_rec.transaction_type_id, -- Added for bug 3550541
4856: 'C')) -- Added for bug 3550541
4857: THEN
4858: RAISE FND_API.G_EXC_ERROR;
4859: END IF;
4860: END IF;
4861:
4862: -- Verify the relationship_type_code is valid
4876: IF l_valid_flag <> 'Y' THEN
4877: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ACCOUNT_TYPE');
4878: FND_MESSAGE.SET_TOKEN('IP_RELATIONSHIP_TYPE_CODE',p_party_account_rec.RELATIONSHIP_TYPE_CODE);
4879: FND_MSG_PUB.Add;
4880: RAISE FND_API.G_EXC_ERROR;
4881: END IF;
4882: END IF;
4883: IF l_exists_flag <> 'Y' THEN
4884: p_account_count_rec.rel_type_count := p_account_count_rec.rel_type_count + 1;
4886: p_party_account_rec.RELATIONSHIP_TYPE_CODE;
4887: IF NOT(CSI_Instance_parties_vld_pvt.Is_Acct_Rel_type_Valid
4888: (p_party_account_rec.RELATIONSHIP_TYPE_CODE)) THEN
4889: p_acct_rel_type_tbl(p_account_count_rec.rel_type_count).valid_flag := 'N';
4890: RAISE FND_API.G_EXC_ERROR;
4891: ELSE
4892: p_acct_rel_type_tbl(p_account_count_rec.rel_type_count).valid_flag := 'Y';
4893: END IF;
4894: END IF;
4894: END IF;
4895:
4896: -- If active_start_date is null or G_MISS value then assign sysdate
4897: IF ((p_party_account_rec.ACTIVE_START_DATE IS NULL ) OR
4898: ( p_party_account_rec.ACTIVE_START_DATE = FND_API.G_MISS_DATE)) THEN
4899: p_party_account_rec.ACTIVE_START_DATE := SYSDATE;
4900: END IF;
4901:
4902: -- verify if the active_start_date is valid
4899: p_party_account_rec.ACTIVE_START_DATE := SYSDATE;
4900: END IF;
4901:
4902: -- verify if the active_start_date is valid
4903: IF p_called_from_grp <> FND_API.G_TRUE THEN
4904: IF NOT(CSI_Instance_parties_vld_pvt.Is_Acct_StartDate_Valid
4905: (p_party_account_rec.ACTIVE_START_DATE,
4906: p_party_account_rec.ACTIVE_END_DATE ,
4907: p_party_account_rec.INSTANCE_PARTY_ID )) THEN
4904: IF NOT(CSI_Instance_parties_vld_pvt.Is_Acct_StartDate_Valid
4905: (p_party_account_rec.ACTIVE_START_DATE,
4906: p_party_account_rec.ACTIVE_END_DATE ,
4907: p_party_account_rec.INSTANCE_PARTY_ID )) THEN
4908: RAISE FND_API.G_EXC_ERROR;
4909: END IF;
4910:
4911: -- Verify if the active_end_date is valid
4912: IF ((p_party_account_rec.ACTIVE_END_DATE is NOT NULL) AND
4909: END IF;
4910:
4911: -- Verify if the active_end_date is valid
4912: IF ((p_party_account_rec.ACTIVE_END_DATE is NOT NULL) AND
4913: (p_party_account_rec.ACTIVE_END_DATE <> FND_API.G_MISS_DATE )) THEN
4914: IF NOT(CSI_Instance_parties_vld_pvt.Is_Acct_EndDate_Valid
4915: (p_party_account_rec.ACTIVE_START_DATE,
4916: p_party_account_rec.ACTIVE_END_DATE ,
4917: p_party_account_rec.INSTANCE_PARTY_ID ,
4916: p_party_account_rec.ACTIVE_END_DATE ,
4917: p_party_account_rec.INSTANCE_PARTY_ID ,
4918: p_party_account_rec.IP_ACCOUNT_ID ,
4919: p_txn_rec.TRANSACTION_ID)) THEN
4920: RAISE FND_API.G_EXC_ERROR;
4921: END IF;
4922: END IF;
4923: END IF; -- Called from group check
4924:
4923: END IF; -- Called from group check
4924:
4925: -- Verify if bill to address is correct
4926: IF ((p_party_account_rec.bill_to_address IS NOT NULL) AND
4927: (p_party_account_rec.bill_to_address <> FND_API.G_MISS_NUM )) THEN
4928: -- Check the cache before hitting the Database.
4929: l_exists_flag := 'N';
4930: l_valid_flag := 'Y';
4931: IF p_site_use_tbl.count > 0 THEN
4942: IF l_valid_flag <> 'Y' THEN
4943: FND_MESSAGE.SET_NAME('CSI','CSI_INVALID_BILL_TO_ADD_ID');
4944: FND_MESSAGE.SET_TOKEN('BILL_TO_ADD_ID',p_party_account_rec.bill_to_address);
4945: FND_MSG_PUB.Add;
4946: RAISE FND_API.G_EXC_ERROR;
4947: END IF;
4948: END IF;
4949: --
4950: IF l_exists_flag <> 'Y' THEN
4954: p_site_use_tbl(p_account_count_rec.site_use_count).site_use_code := 'BILL_TO';
4955: IF NOT(CSI_Instance_parties_vld_pvt.Is_bill_to_add_valid
4956: ( p_party_account_rec.bill_to_address)) THEN
4957: p_site_use_tbl(p_account_count_rec.site_use_count).valid_flag := 'N';
4958: RAISE FND_API.G_EXC_ERROR;
4959: ELSE
4960: p_site_use_tbl(p_account_count_rec.site_use_count).valid_flag := 'Y';
4961: END IF;
4962: END IF;
4963: END IF;
4964:
4965: -- Verify if ship to address is correct
4966: IF ((p_party_account_rec.ship_to_address IS NOT NULL) AND
4967: (p_party_account_rec.ship_to_address <> FND_API.G_MISS_NUM )) THEN
4968: -- Check the cache before hitting the Database.
4969: l_exists_flag := 'N';
4970: l_valid_flag := 'Y';
4971: IF p_site_use_tbl.count > 0 THEN
4982: IF l_valid_flag <> 'Y' THEN
4983: FND_MESSAGE.SET_NAME('CSI','CSI_INVALID_SHIP_TO_ADD_ID');
4984: FND_MESSAGE.SET_TOKEN('SHIP_TO_ADD_ID',p_party_account_rec.ship_to_address);
4985: FND_MSG_PUB.Add;
4986: RAISE FND_API.G_EXC_ERROR;
4987: END IF;
4988: END IF;
4989: --
4990: IF l_exists_flag <> 'Y' THEN
4994: p_site_use_tbl(p_account_count_rec.site_use_count).site_use_code := 'SHIP_TO';
4995: IF NOT(CSI_Instance_parties_vld_pvt.Is_ship_to_add_valid
4996: ( p_party_account_rec.ship_to_address)) THEN
4997: p_site_use_tbl(p_account_count_rec.site_use_count).valid_flag := 'N';
4998: RAISE FND_API.G_EXC_ERROR;
4999: ELSE
5000: p_site_use_tbl(p_account_count_rec.site_use_count).valid_flag := 'Y';
5001: END IF;
5002: END IF;
5003: END IF;
5004:
5005: -- Following will not be done when called from Group API.
5006: -- Verify if it meets Account Rules
5007: IF p_called_from_grp <> FND_API.G_TRUE THEN
5008:
5009: IF CSI_Instance_parties_vld_pvt.Acct_Rules_Check
5010: (p_party_account_rec.instance_party_id ,
5011: p_party_account_rec.relationship_type_code ) THEN
5008:
5009: IF CSI_Instance_parties_vld_pvt.Acct_Rules_Check
5010: (p_party_account_rec.instance_party_id ,
5011: p_party_account_rec.relationship_type_code ) THEN
5012: RAISE FND_API.G_EXC_ERROR;
5013: END IF;
5014:
5015: -- Get the parent party record
5016: IF NOT(CSI_Instance_parties_vld_pvt.Get_Party_Record
5015: -- Get the parent party record
5016: IF NOT(CSI_Instance_parties_vld_pvt.Get_Party_Record
5017: ( p_party_account_rec.instance_party_id,
5018: l_party_rec)) THEN
5019: RAISE FND_API.G_EXC_ERROR;
5020: END IF;
5021:
5022: -- If it is an owner party and owner account then update csi_item_instances
5023: -- Account Rules check ensures that if the owner account is
5081: ,x_msg_count => x_msg_count
5082: ,x_msg_data => x_msg_data );
5083:
5084:
5085: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
5086: l_msg_index := 1;
5087: l_msg_count := x_msg_count;
5088: WHILE l_msg_count > 0 LOOP
5089: x_msg_data := FND_MSG_PUB.GET(
5087: l_msg_count := x_msg_count;
5088: WHILE l_msg_count > 0 LOOP
5089: x_msg_data := FND_MSG_PUB.GET(
5090: l_msg_index,
5091: FND_API.G_FALSE );
5092: csi_gen_utility_pvt.put_line( 'message data = '||x_msg_data);
5093: l_msg_index := l_msg_index + 1;
5094: l_msg_count := l_msg_count - 1;
5095: END LOOP;
5092: csi_gen_utility_pvt.put_line( 'message data = '||x_msg_data);
5093: l_msg_index := l_msg_index + 1;
5094: l_msg_count := l_msg_count - 1;
5095: END LOOP;
5096: RAISE FND_API.G_EXC_ERROR;
5097: END IF;
5098:
5099: -- Generate a unique instance_party_history_id from the sequence
5100: l_ip_account_history_id := CSI_Instance_parties_vld_pvt.gen_ip_account_hist_id;
5161: END IF; -- p_called_from_grp check
5162: -- Call Contracts
5163: -- End commentation by sguthiva for bug 2307804
5164: -- Added by sguthiva for bug 2307804
5165: IF ( (p_party_account_rec.call_contracts <> fnd_api.g_false)
5166: AND (p_party_account_rec.relationship_type_code = 'OWNER' )
5167: )
5168: THEN
5169: -- The following code has been written to make sure
5168: THEN
5169: -- The following code has been written to make sure
5170: -- before calling contracts we pass a valid vld_organization_id
5171: IF p_party_account_rec.vld_organization_id IS NULL OR
5172: p_party_account_rec.vld_organization_id = fnd_api.g_miss_num
5173: THEN
5174: BEGIN
5175: SELECT last_vld_organization_id
5176: INTO l_last_vld_org
5202: ,x_msg_count => x_msg_count
5203: ,x_msg_data => x_msg_data
5204: );
5205:
5206: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS)
5207: THEN
5208: l_msg_index := 1;
5209: l_msg_count := x_msg_count;
5210: WHILE l_msg_count > 0 LOOP
5209: l_msg_count := x_msg_count;
5210: WHILE l_msg_count > 0 LOOP
5211: x_msg_data := FND_MSG_PUB.GET(
5212: l_msg_index,
5213: FND_API.G_FALSE );
5214: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
5215: l_msg_index := l_msg_index + 1;
5216: l_msg_count := l_msg_count - 1;
5217: END LOOP;
5214: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
5215: l_msg_index := l_msg_index + 1;
5216: l_msg_count := l_msg_count - 1;
5217: END LOOP;
5218: RAISE FND_API.G_EXC_ERROR;
5219: END IF;
5220: END IF; -- Added for bug 3973706
5221: END IF;
5222: END IF; -- Added by sk for fixing the bug 2232880
5225: --
5226: -- End of API body
5227: -- Standard check of p_commit.
5228:
5229: IF FND_API.To_Boolean( p_commit ) THEN
5230: COMMIT WORK;
5231: END IF;
5232:
5233:
5235: FND_MSG_PUB.Count_And_Get
5236: (p_count => x_msg_count ,
5237: p_data => x_msg_data );
5238: EXCEPTION
5239: WHEN FND_API.G_EXC_ERROR THEN
5240: ROLLBACK TO create_inst_party_acct_pvt;
5241: x_return_status := FND_API.G_RET_STS_ERROR ;
5242:
5243: FND_MSG_PUB.Count_And_Get
5237: p_data => x_msg_data );
5238: EXCEPTION
5239: WHEN FND_API.G_EXC_ERROR THEN
5240: ROLLBACK TO create_inst_party_acct_pvt;
5241: x_return_status := FND_API.G_RET_STS_ERROR ;
5242:
5243: FND_MSG_PUB.Count_And_Get
5244: ( p_count => x_msg_count,
5245: p_data => x_msg_data );
5242:
5243: FND_MSG_PUB.Count_And_Get
5244: ( p_count => x_msg_count,
5245: p_data => x_msg_data );
5246: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5247: ROLLBACK TO create_inst_party_acct_pvt;
5248: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5249: FND_MSG_PUB.Count_And_Get
5250: ( p_count => x_msg_count,
5244: ( p_count => x_msg_count,
5245: p_data => x_msg_data );
5246: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5247: ROLLBACK TO create_inst_party_acct_pvt;
5248: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5249: FND_MSG_PUB.Count_And_Get
5250: ( p_count => x_msg_count,
5251: p_data => x_msg_data );
5252: WHEN OTHERS THEN
5250: ( p_count => x_msg_count,
5251: p_data => x_msg_data );
5252: WHEN OTHERS THEN
5253: ROLLBACK TO create_inst_party_acct_pvt;
5254: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5255: IF FND_MSG_PUB.Check_Msg_Level
5256: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5257: THEN
5258: FND_MSG_PUB.Add_Exc_Msg
5319:
5320: CURSOR get_curr_party_acct_rec (p_ip_account_id IN NUMBER) IS
5321: SELECT
5322: ip_account_id ,
5323: FND_API.G_MISS_NUM parent_tbl_index,
5324: instance_party_id ,
5325: party_account_id ,
5326: relationship_type_code ,
5327: bill_to_address ,
5426: -- SAVEPOINT update_inst_party_acct_pvt;
5427:
5428:
5429: -- Standard call to check for call compatibility.
5430: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
5431: p_api_version ,
5432: l_api_name ,
5433: g_pkg_name )
5434: THEN
5431: p_api_version ,
5432: l_api_name ,
5433: g_pkg_name )
5434: THEN
5435: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5436: END IF;
5437:
5438: -- Initialize message list if p_init_msg_list is set to TRUE.
5439: IF FND_API.to_Boolean( p_init_msg_list ) THEN
5435: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5436: END IF;
5437:
5438: -- Initialize message list if p_init_msg_list is set to TRUE.
5439: IF FND_API.to_Boolean( p_init_msg_list ) THEN
5440: FND_MSG_PUB.initialize;
5441: END IF;
5442:
5443: -- Initialize API return status to success
5440: FND_MSG_PUB.initialize;
5441: END IF;
5442:
5443: -- Initialize API return status to success
5444: x_return_status := FND_API.G_RET_STS_SUCCESS;
5445:
5446: -- Check the profile option CSI_DEBUG_LEVEL for debug message reporting
5447: l_csi_debug_level:=fnd_profile.value('CSI_DEBUG_LEVEL');
5448:
5472: --
5473: IF p_party_account_rec.party_account_id IS NULL THEN
5474: FND_MESSAGE.SET_NAME('CSI','CSI_API_MANDATORY_ACCOUNT');
5475: FND_MSG_PUB.Add;
5476: RAISE FND_API.G_EXC_ERROR;
5477: END IF;
5478: --
5479: -- Check if the instance party id is valid
5480: -- Commented by sk for bug 2232880
5486: FETCH get_curr_party_acct_rec INTO l_curr_party_acct_rec;
5487: IF (l_curr_party_acct_rec.object_version_number <> p_party_account_rec.OBJECT_VERSION_NUMBER) THEN
5488: FND_MESSAGE.Set_Name('CSI', 'CSI_API_OBJ_VER_MISMATCH');
5489: FND_MSG_PUB.ADD;
5490: RAISE FND_API.G_EXC_ERROR;
5491: END IF;
5492: IF get_curr_party_acct_rec%NOTFOUND THEN
5493: FND_MESSAGE.Set_Name('CSI', 'CSI_API_RECORD_LOCKED');
5494: FND_MSG_PUB.ADD;
5491: END IF;
5492: IF get_curr_party_acct_rec%NOTFOUND THEN
5493: FND_MESSAGE.Set_Name('CSI', 'CSI_API_RECORD_LOCKED');
5494: FND_MSG_PUB.ADD;
5495: RAISE FND_API.G_EXC_ERROR;
5496: END IF;
5497: CLOSE get_curr_party_acct_rec;
5498:
5499: -- Added by sguthiva for bug 2307804
5505: l_old_pty_acct_id := NULL;
5506: END IF;
5507: -- End addition by sguthiva for bug 2307804
5508:
5509: IF p_party_account_rec.INSTANCE_PARTY_ID <> FND_API.G_MISS_NUM THEN
5510: -- Check if the instance party id is valid
5511: IF NOT(CSI_Instance_parties_vld_pvt.Is_Inst_partyID_Valid
5512: (p_Instance_party_id => p_party_account_rec.INSTANCE_PARTY_ID
5513: ,p_txn_type_id => p_txn_rec.transaction_type_id
5518: -- Message added in the validation routine since additional validation added for bug # 2477417.
5519: -- FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INST_PARTY_ID');
5520: -- FND_MESSAGE.SET_TOKEN('INSTANCE_PARTY_ID',p_party_account_rec.INSTANCE_PARTY_ID);
5521: -- FND_MSG_PUB.Add;
5522: RAISE FND_API.G_EXC_ERROR;
5523: END IF;
5524: IF p_party_account_rec.INSTANCE_PARTY_ID <> l_curr_party_acct_rec.INSTANCE_PARTY_ID THEN
5525: -- Start addition
5526: IF p_txn_rec.transaction_type_id <> 7
5527: THEN
5528: FND_MESSAGE.Set_Name('CSI', 'CSI_API_UPD_NOT_ALLOWED');
5529: FND_MESSAGE.Set_Token('COLUMN', 'INSTANCE_PARTY_ID');
5530: FND_MSG_PUB.ADD;
5531: RAISE FND_API.G_EXC_ERROR;
5532: ELSE
5533: BEGIN
5534: SELECT relationship_type_code
5535: INTO l_rel_type_code
5539: IF (l_rel_type_code='OWNER' AND
5540: l_curr_party_acct_rec.relationship_type_code='OWNER' )/* OR
5541: (l_curr_party_acct_rec.active_end_date IS NOT NULL AND
5542: l_curr_party_acct_rec.active_end_date < SYSDATE AND
5543: (p_party_account_rec.active_end_date = fnd_api.g_miss_date OR
5544: p_party_account_rec.active_end_date < SYSDATE )) */
5545: -- Commented the above code for bug 3539990 (reported in 11.5.9)
5546: THEN
5547: FND_MESSAGE.Set_Name('CSI', 'CSI_API_UPD_NOT_ALLOWED');
5546: THEN
5547: FND_MESSAGE.Set_Name('CSI', 'CSI_API_UPD_NOT_ALLOWED');
5548: FND_MESSAGE.Set_Token('COLUMN', 'INSTANCE_PARTY_ID');
5549: FND_MSG_PUB.ADD;
5550: RAISE FND_API.G_EXC_ERROR;
5551: END IF;
5552: EXCEPTION
5553: WHEN FND_API.G_EXC_ERROR THEN
5554: RAISE FND_API.G_EXC_ERROR;
5549: FND_MSG_PUB.ADD;
5550: RAISE FND_API.G_EXC_ERROR;
5551: END IF;
5552: EXCEPTION
5553: WHEN FND_API.G_EXC_ERROR THEN
5554: RAISE FND_API.G_EXC_ERROR;
5555: END;
5556:
5557: END IF;
5550: RAISE FND_API.G_EXC_ERROR;
5551: END IF;
5552: EXCEPTION
5553: WHEN FND_API.G_EXC_ERROR THEN
5554: RAISE FND_API.G_EXC_ERROR;
5555: END;
5556:
5557: END IF;
5558: -- End addition
5565: ,p_mode => 'U' -- Added for bug 3550541
5566: )
5567: )
5568: THEN
5569: RAISE FND_API.G_EXC_ERROR;
5570: END IF;
5571: END IF;
5572: l_party_relation := CSI_Instance_parties_vld_pvt.Get_Party_relation
5573: (l_curr_party_acct_rec.Instance_party_id);
5575: IF p_party_account_rec.active_start_date IS NULL THEN
5576: FND_MESSAGE.Set_Name('CSI', 'CSI_API_UPD_NOT_ALLOWED');
5577: FND_MESSAGE.Set_Token('COLUMN', 'ACTIVE_START_DATE');
5578: FND_MSG_PUB.ADD;
5579: RAISE FND_API.G_EXC_ERROR;
5580: END IF;
5581: --
5582: IF p_party_account_rec.active_start_date <> FND_API.G_MISS_DATE THEN
5583: IF p_party_account_rec.active_start_date <> l_curr_party_acct_rec.active_start_date THEN
5578: FND_MSG_PUB.ADD;
5579: RAISE FND_API.G_EXC_ERROR;
5580: END IF;
5581: --
5582: IF p_party_account_rec.active_start_date <> FND_API.G_MISS_DATE THEN
5583: IF p_party_account_rec.active_start_date <> l_curr_party_acct_rec.active_start_date THEN
5584: FND_MESSAGE.Set_Name('CSI', 'CSI_API_UPD_NOT_ALLOWED');
5585: FND_MESSAGE.Set_Token('COLUMN', 'ACTIVE_START_DATE');
5586: FND_MSG_PUB.ADD;
5583: IF p_party_account_rec.active_start_date <> l_curr_party_acct_rec.active_start_date THEN
5584: FND_MESSAGE.Set_Name('CSI', 'CSI_API_UPD_NOT_ALLOWED');
5585: FND_MESSAGE.Set_Token('COLUMN', 'ACTIVE_START_DATE');
5586: FND_MSG_PUB.ADD;
5587: RAISE FND_API.G_EXC_ERROR;
5588: END IF;
5589: END IF;
5590:
5591: -- Verify if the active_end_date is valid
5589: END IF;
5590:
5591: -- Verify if the active_end_date is valid
5592: -- Don't allow expiry of owner accounts
5593: IF ( p_party_account_rec.ACTIVE_END_DATE <> FND_API.G_MISS_DATE) THEN
5594: IF ((l_curr_party_acct_rec.relationship_type_code = 'OWNER')
5595: AND (l_party_relation = 'OWNER')) THEN
5596: -- Added by sguthiva for bug 2307804
5597: IF csi_datastructures_pub.g_install_param_rec.fetch_flag IS NULL THEN
5602: --
5603: IF l_internal_party_id IS NULL THEN
5604: FND_MESSAGE.SET_NAME('CSI','CSI_API_UNINSTALLED_PARAMETER');
5605: FND_MSG_PUB.ADD;
5606: RAISE FND_API.G_EXC_ERROR;
5607: END IF;
5608: --
5609: -- End addition by sguthiva for bug 2307804
5610: IF p_party_account_rec.expire_flag = fnd_api.g_false -- Added by sguthiva for bug 2307804
5606: RAISE FND_API.G_EXC_ERROR;
5607: END IF;
5608: --
5609: -- End addition by sguthiva for bug 2307804
5610: IF p_party_account_rec.expire_flag = fnd_api.g_false -- Added by sguthiva for bug 2307804
5611: -- IF csi_party_relationships_pvt.g_force_expire_flag = 'N' -- Commented by sguthiva for bug 2307804
5612: THEN
5613: FND_MESSAGE.Set_Name('CSI', 'CSI_API_EXP_NOT_ALLOWED');
5614: FND_MESSAGE.Set_Token('COLUMN', 'OWNER ACCOUNT');
5612: THEN
5613: FND_MESSAGE.Set_Name('CSI', 'CSI_API_EXP_NOT_ALLOWED');
5614: FND_MESSAGE.Set_Token('COLUMN', 'OWNER ACCOUNT');
5615: FND_MSG_PUB.ADD;
5616: RAISE FND_API.G_EXC_ERROR;
5617: END IF;
5618: ELSE
5619:
5620: -- Verify if the active_end_date is valid
5617: END IF;
5618: ELSE
5619:
5620: -- Verify if the active_end_date is valid
5621: IF p_party_account_rec.expire_flag = fnd_api.g_false THEN -- Added by sguthiva for bug 2307804
5622: -- IF (g_expire_account_flag <> 'Y') THEN -- Commented by sguthiva for bug 2307804
5623: IF NOT(CSI_Instance_parties_vld_pvt.Is_Acct_EndDate_Valid
5624: (l_curr_party_acct_rec.ACTIVE_START_DATE,
5625: p_party_account_rec.ACTIVE_END_DATE ,
5625: p_party_account_rec.ACTIVE_END_DATE ,
5626: p_party_account_rec.INSTANCE_PARTY_ID ,
5627: p_party_account_rec.IP_ACCOUNT_ID ,
5628: p_txn_rec.TRANSACTION_ID)) THEN
5629: RAISE FND_API.G_EXC_ERROR;
5630: END IF;
5631:
5632:
5633: -- Added following code for bug 3855525.
5631:
5632:
5633: -- Added following code for bug 3855525.
5634: IF p_party_account_rec.ACTIVE_END_DATE IS NOT NULL AND
5635: 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
5636: l_curr_party_acct_rec.ACTIVE_START_DATE <> FND_API.G_MISS_DATE AND
5637: p_party_account_rec.ACTIVE_END_DATE < l_curr_party_acct_rec.ACTIVE_START_DATE
5638: THEN
5639: FND_MESSAGE.Set_Name('CSI', 'CSI_ENDDT_GT_STDT');
5632:
5633: -- Added following code for bug 3855525.
5634: IF p_party_account_rec.ACTIVE_END_DATE IS NOT NULL AND
5635: 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
5636: l_curr_party_acct_rec.ACTIVE_START_DATE <> FND_API.G_MISS_DATE AND
5637: p_party_account_rec.ACTIVE_END_DATE < l_curr_party_acct_rec.ACTIVE_START_DATE
5638: THEN
5639: FND_MESSAGE.Set_Name('CSI', 'CSI_ENDDT_GT_STDT');
5640:
5640:
5641: FND_MESSAGE.Set_Token('END_DATE',p_party_account_rec.ACTIVE_END_DATE);
5642: FND_MESSAGE.Set_Token('START_DATE',l_curr_party_acct_rec.ACTIVE_START_DATE);
5643: FND_MSG_PUB.ADD;
5644: RAISE FND_API.G_EXC_ERROR;
5645: END IF;
5646: -- End code addition for bug 3855525.
5647:
5648: END IF;
5651:
5652:
5653: -- Verify the relationship_type_code is valid
5654: -- Don't allow change of owner accounts
5655: IF p_party_account_rec.relationship_type_code <> FND_API.G_MISS_CHAR THEN
5656: IF ((p_party_account_rec.relationship_type_code <> l_curr_party_acct_rec.relationship_type_code)
5657: AND (l_curr_party_acct_rec.relationship_type_code = 'OWNER')
5658: AND (l_party_relation = 'OWNER')) THEN
5659: FND_MESSAGE.Set_Name('CSI', 'CSI_API_UPD_NOT_ALLOWED');
5658: AND (l_party_relation = 'OWNER')) THEN
5659: FND_MESSAGE.Set_Name('CSI', 'CSI_API_UPD_NOT_ALLOWED');
5660: FND_MESSAGE.Set_Token('COLUMN', 'OWNER ACCOUNT');
5661: FND_MSG_PUB.ADD;
5662: RAISE FND_API.G_EXC_ERROR;
5663: ELSE
5664: -- Verify the relationship_type_code is valid
5665: IF NOT(CSI_Instance_parties_vld_pvt.Is_Acct_Rel_type_Valid
5666: (p_party_account_rec.RELATIONSHIP_TYPE_CODE)) THEN
5663: ELSE
5664: -- Verify the relationship_type_code is valid
5665: IF NOT(CSI_Instance_parties_vld_pvt.Is_Acct_Rel_type_Valid
5666: (p_party_account_rec.RELATIONSHIP_TYPE_CODE)) THEN
5667: RAISE FND_API.G_EXC_ERROR;
5668: END IF;
5669: END IF;
5670: END IF;
5671:
5672: -- Need to add the following as account/party merge transaction
5673: -- is allowed to change the instance_party_id.
5674: IF p_txn_rec.transaction_type_id=7 AND
5675: (p_party_account_rec.instance_party_id IS NOT NULL AND
5676: p_party_account_rec.instance_party_id <> fnd_api.g_miss_num)
5677: THEN
5678: l_instance_party_id := p_party_account_rec.instance_party_id;
5679: ELSE
5680: l_instance_party_id := l_curr_party_acct_rec.INSTANCE_PARTY_ID;
5680: l_instance_party_id := l_curr_party_acct_rec.INSTANCE_PARTY_ID;
5681: END IF;
5682:
5683: -- verify if party_account_id is valid
5684: IF p_party_account_rec.PARTY_ACCOUNT_ID <> FND_API.G_MISS_NUM THEN
5685: -- Added the following condition for bug 3830149 (rel 11.5.9)
5686: IF (p_party_account_rec.ACTIVE_END_DATE IS NULL OR
5687: p_party_account_rec.ACTIVE_END_DATE = FND_API.G_MISS_DATE)
5688: OR
5683: -- verify if party_account_id is valid
5684: IF p_party_account_rec.PARTY_ACCOUNT_ID <> FND_API.G_MISS_NUM THEN
5685: -- Added the following condition for bug 3830149 (rel 11.5.9)
5686: IF (p_party_account_rec.ACTIVE_END_DATE IS NULL OR
5687: p_party_account_rec.ACTIVE_END_DATE = FND_API.G_MISS_DATE)
5688: OR
5689: (p_party_account_rec.ACTIVE_END_DATE IS NOT NULL AND
5690: p_party_account_rec.ACTIVE_END_DATE <> FND_API.G_MISS_DATE AND
5691: p_party_account_rec.ACTIVE_END_DATE > SYSDATE)
5686: IF (p_party_account_rec.ACTIVE_END_DATE IS NULL OR
5687: p_party_account_rec.ACTIVE_END_DATE = FND_API.G_MISS_DATE)
5688: OR
5689: (p_party_account_rec.ACTIVE_END_DATE IS NOT NULL AND
5690: p_party_account_rec.ACTIVE_END_DATE <> FND_API.G_MISS_DATE AND
5691: p_party_account_rec.ACTIVE_END_DATE > SYSDATE)
5692: THEN
5693: IF NOT(CSI_Instance_parties_vld_pvt.Is_Pty_accountID_Valid
5694: (p_party_account_rec.PARTY_ACCOUNT_ID,
5698: 'U' -- Added for bug 3550541
5699: )
5700: )
5701: THEN
5702: RAISE FND_API.G_EXC_ERROR;
5703: END IF;
5704: ELSE
5705: -- Since party_account_id validation is not required during expiration of accounts
5706: -- ,Hence we added the above filter condition.
5709: END IF;
5710: END IF;
5711:
5712: -- Verify if bill to address is correct
5713: IF p_party_account_rec.bill_to_address <> FND_API.G_MISS_NUM THEN
5714: IF NOT(CSI_Instance_parties_vld_pvt.Is_bill_to_add_valid
5715: ( p_party_account_rec.bill_to_address)) THEN
5716: RAISE FND_API.G_EXC_ERROR;
5717: END IF;
5712: -- Verify if bill to address is correct
5713: IF p_party_account_rec.bill_to_address <> FND_API.G_MISS_NUM THEN
5714: IF NOT(CSI_Instance_parties_vld_pvt.Is_bill_to_add_valid
5715: ( p_party_account_rec.bill_to_address)) THEN
5716: RAISE FND_API.G_EXC_ERROR;
5717: END IF;
5718: END IF;
5719:
5720:
5718: END IF;
5719:
5720:
5721: -- Verify if ship to address is correct
5722: IF p_party_account_rec.ship_to_address <> FND_API.G_MISS_NUM THEN
5723: IF NOT(CSI_Instance_parties_vld_pvt.Is_ship_to_add_valid
5724: ( p_party_account_rec.ship_to_address)) THEN
5725: RAISE FND_API.G_EXC_ERROR;
5726: END IF;
5721: -- Verify if ship to address is correct
5722: IF p_party_account_rec.ship_to_address <> FND_API.G_MISS_NUM THEN
5723: IF NOT(CSI_Instance_parties_vld_pvt.Is_ship_to_add_valid
5724: ( p_party_account_rec.ship_to_address)) THEN
5725: RAISE FND_API.G_EXC_ERROR;
5726: END IF;
5727: END IF;
5728:
5729: -- Validate alternate primary key
5728:
5729: -- Validate alternate primary key
5730: -- Verify if the party account combination exists
5731: IF ((p_party_account_rec.instance_party_id IS NULL) OR
5732: (p_party_account_rec.instance_party_id = FND_API.G_MISS_NUM)) THEN
5733: l_alt_pk_inst_pty_id := l_curr_party_acct_rec.instance_party_id;
5734: ELSE
5735: l_alt_pk_inst_pty_id := p_party_account_rec.instance_party_id;
5736: END IF;
5735: l_alt_pk_inst_pty_id := p_party_account_rec.instance_party_id;
5736: END IF;
5737:
5738: IF ((p_party_account_rec.party_account_id IS NULL) OR
5739: (p_party_account_rec.party_account_id = FND_API.G_MISS_NUM)) THEN
5740: l_alt_pk_pty_acct_id := l_curr_party_acct_rec.party_account_id;
5741: ELSE
5742: l_alt_pk_pty_acct_id := p_party_account_rec.party_account_id;
5743: END IF;
5742: l_alt_pk_pty_acct_id := p_party_account_rec.party_account_id;
5743: END IF;
5744:
5745: IF ((p_party_account_rec.relationship_type_code IS NULL) OR
5746: (p_party_account_rec.relationship_type_code = FND_API.G_MISS_CHAR)) THEN
5747: l_alt_pk_rel_type_code := l_curr_party_acct_rec.relationship_type_code;
5748: ELSE
5749: l_alt_pk_rel_type_code := p_party_account_rec.relationship_type_code;
5750: END IF;
5795: IF CSI_Instance_parties_vld_pvt.Is_Pty_Acct_Comb_Exists
5796: (l_alt_pk_inst_pty_id ,
5797: l_alt_pk_pty_acct_id ,
5798: l_alt_pk_rel_type_code ) THEN
5799: RAISE FND_API.G_EXC_ERROR;
5800: END IF;
5801: END IF;
5802: END IF;
5803:
5808: THEN
5809: IF CSI_Instance_parties_vld_pvt.Acct_Rules_Check
5810: (l_alt_pk_inst_pty_id ,
5811: l_alt_pk_rel_type_code ) THEN
5812: RAISE FND_API.G_EXC_ERROR;
5813: END IF;
5814: END IF;
5815:
5816: -- Get party record for later use in contaracts
5816: -- Get party record for later use in contaracts
5817: IF NOT(CSI_Instance_parties_vld_pvt.Get_Party_Record
5818: (l_curr_party_acct_rec.instance_party_id,
5819: l_party_rec)) THEN
5820: RAISE FND_API.G_EXC_ERROR;
5821: END IF;
5822:
5823: -- If it is an owner party and owner account then update csi_item_instances
5824: IF p_party_account_rec.relationship_type_code <> FND_API.G_MISS_CHAR THEN
5820: RAISE FND_API.G_EXC_ERROR;
5821: END IF;
5822:
5823: -- If it is an owner party and owner account then update csi_item_instances
5824: IF p_party_account_rec.relationship_type_code <> FND_API.G_MISS_CHAR THEN
5825: IF ((p_party_account_rec.relationship_type_code = 'OWNER')
5826: AND (l_party_relation = 'OWNER')) THEN
5827: -- Added by sguthiva for bug 2307804
5828: IF p_party_account_rec.party_account_id <> fnd_api.g_miss_num
5824: IF p_party_account_rec.relationship_type_code <> FND_API.G_MISS_CHAR THEN
5825: IF ((p_party_account_rec.relationship_type_code = 'OWNER')
5826: AND (l_party_relation = 'OWNER')) THEN
5827: -- Added by sguthiva for bug 2307804
5828: IF p_party_account_rec.party_account_id <> fnd_api.g_miss_num
5829: AND p_party_account_rec.party_account_id IS NOT NULL
5830: THEN
5831: update csi_item_instances
5832: set owner_party_account_id = p_party_account_rec.party_account_id
5871: p_ATTRIBUTE12 => p_party_account_rec.ATTRIBUTE12,
5872: p_ATTRIBUTE13 => p_party_account_rec.ATTRIBUTE13,
5873: p_ATTRIBUTE14 => p_party_account_rec.ATTRIBUTE14,
5874: p_ATTRIBUTE15 => p_party_account_rec.ATTRIBUTE15,
5875: p_CREATED_BY => FND_API.G_MISS_NUM, -- FND_GLOBAL.USER_ID,
5876: p_CREATION_DATE => FND_API.G_MISS_DATE, -- SYSDATE,
5877: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID ,
5878: p_LAST_UPDATE_DATE => SYSDATE ,
5879: p_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID ,
5872: p_ATTRIBUTE13 => p_party_account_rec.ATTRIBUTE13,
5873: p_ATTRIBUTE14 => p_party_account_rec.ATTRIBUTE14,
5874: p_ATTRIBUTE15 => p_party_account_rec.ATTRIBUTE15,
5875: p_CREATED_BY => FND_API.G_MISS_NUM, -- FND_GLOBAL.USER_ID,
5876: p_CREATION_DATE => FND_API.G_MISS_DATE, -- SYSDATE,
5877: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID ,
5878: p_LAST_UPDATE_DATE => SYSDATE ,
5879: p_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID ,
5880: p_OBJECT_VERSION_NUMBER => l_OBJECT_VERSION_NUMBER ,
5897: ,x_return_status => x_return_status
5898: ,x_msg_count => x_msg_count
5899: ,x_msg_data => x_msg_data );
5900:
5901: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
5902:
5903: FOR i in 1..x_msg_Count LOOP
5904: FND_MSG_PUB.Get(p_msg_index => i,
5905: p_encoded => 'F',
5906: p_data => x_msg_data,
5907: p_msg_index_out => x_msg_index_out );
5908: csi_gen_utility_pvt.put_line( 'message data = '||x_msg_data);
5909: End LOOP;
5910: RAISE FND_API.G_EXC_ERROR;
5911: END IF;
5912:
5913:
5914:
5924: --
5925: IF l_full_dump_frequency IS NULL THEN
5926: FND_MESSAGE.SET_NAME('CSI','CSI_API_GET_FULL_DUMP_FAILED');
5927: FND_MSG_PUB.ADD;
5928: RAISE FND_API.G_EXC_ERROR;
5929: END IF;
5930: --
5931: select mod(l_object_version_number,l_full_dump_frequency)
5932: into l_mod_value
5950: THEN
5951: CSI_IP_ACCOUNTS_H_PKG.Update_Row
5952: (
5953: p_IP_ACCOUNT_HISTORY_ID => l_ip_acct_hist_id ,
5954: p_IP_ACCOUNT_ID => fnd_api.g_miss_num ,
5955: p_TRANSACTION_ID => fnd_api.g_miss_num ,
5956: p_OLD_PARTY_ACCOUNT_ID => fnd_api.g_miss_num ,
5957: p_NEW_PARTY_ACCOUNT_ID => l_temp_party_account_rec.PARTY_ACCOUNT_ID,
5958: p_OLD_RELATIONSHIP_TYPE_CODE => fnd_api.g_miss_char ,
5951: CSI_IP_ACCOUNTS_H_PKG.Update_Row
5952: (
5953: p_IP_ACCOUNT_HISTORY_ID => l_ip_acct_hist_id ,
5954: p_IP_ACCOUNT_ID => fnd_api.g_miss_num ,
5955: p_TRANSACTION_ID => fnd_api.g_miss_num ,
5956: p_OLD_PARTY_ACCOUNT_ID => fnd_api.g_miss_num ,
5957: p_NEW_PARTY_ACCOUNT_ID => l_temp_party_account_rec.PARTY_ACCOUNT_ID,
5958: p_OLD_RELATIONSHIP_TYPE_CODE => fnd_api.g_miss_char ,
5959: p_NEW_RELATIONSHIP_TYPE_CODE => l_temp_party_account_rec.RELATIONSHIP_TYPE_CODE,
5952: (
5953: p_IP_ACCOUNT_HISTORY_ID => l_ip_acct_hist_id ,
5954: p_IP_ACCOUNT_ID => fnd_api.g_miss_num ,
5955: p_TRANSACTION_ID => fnd_api.g_miss_num ,
5956: p_OLD_PARTY_ACCOUNT_ID => fnd_api.g_miss_num ,
5957: p_NEW_PARTY_ACCOUNT_ID => l_temp_party_account_rec.PARTY_ACCOUNT_ID,
5958: p_OLD_RELATIONSHIP_TYPE_CODE => fnd_api.g_miss_char ,
5959: p_NEW_RELATIONSHIP_TYPE_CODE => l_temp_party_account_rec.RELATIONSHIP_TYPE_CODE,
5960: p_OLD_ACTIVE_START_DATE => fnd_api.g_miss_date ,
5954: p_IP_ACCOUNT_ID => fnd_api.g_miss_num ,
5955: p_TRANSACTION_ID => fnd_api.g_miss_num ,
5956: p_OLD_PARTY_ACCOUNT_ID => fnd_api.g_miss_num ,
5957: p_NEW_PARTY_ACCOUNT_ID => l_temp_party_account_rec.PARTY_ACCOUNT_ID,
5958: p_OLD_RELATIONSHIP_TYPE_CODE => fnd_api.g_miss_char ,
5959: p_NEW_RELATIONSHIP_TYPE_CODE => l_temp_party_account_rec.RELATIONSHIP_TYPE_CODE,
5960: p_OLD_ACTIVE_START_DATE => fnd_api.g_miss_date ,
5961: p_NEW_ACTIVE_START_DATE => l_temp_party_account_rec.ACTIVE_START_DATE,
5962: p_OLD_ACTIVE_END_DATE => fnd_api.g_miss_date ,
5956: p_OLD_PARTY_ACCOUNT_ID => fnd_api.g_miss_num ,
5957: p_NEW_PARTY_ACCOUNT_ID => l_temp_party_account_rec.PARTY_ACCOUNT_ID,
5958: p_OLD_RELATIONSHIP_TYPE_CODE => fnd_api.g_miss_char ,
5959: p_NEW_RELATIONSHIP_TYPE_CODE => l_temp_party_account_rec.RELATIONSHIP_TYPE_CODE,
5960: p_OLD_ACTIVE_START_DATE => fnd_api.g_miss_date ,
5961: p_NEW_ACTIVE_START_DATE => l_temp_party_account_rec.ACTIVE_START_DATE,
5962: p_OLD_ACTIVE_END_DATE => fnd_api.g_miss_date ,
5963: p_NEW_ACTIVE_END_DATE => l_temp_party_account_rec.ACTIVE_END_DATE ,
5964: p_OLD_CONTEXT => fnd_api.g_miss_char ,
5958: p_OLD_RELATIONSHIP_TYPE_CODE => fnd_api.g_miss_char ,
5959: p_NEW_RELATIONSHIP_TYPE_CODE => l_temp_party_account_rec.RELATIONSHIP_TYPE_CODE,
5960: p_OLD_ACTIVE_START_DATE => fnd_api.g_miss_date ,
5961: p_NEW_ACTIVE_START_DATE => l_temp_party_account_rec.ACTIVE_START_DATE,
5962: p_OLD_ACTIVE_END_DATE => fnd_api.g_miss_date ,
5963: p_NEW_ACTIVE_END_DATE => l_temp_party_account_rec.ACTIVE_END_DATE ,
5964: p_OLD_CONTEXT => fnd_api.g_miss_char ,
5965: p_NEW_CONTEXT => l_temp_party_account_rec.CONTEXT ,
5966: p_OLD_ATTRIBUTE1 => fnd_api.g_miss_char ,
5960: p_OLD_ACTIVE_START_DATE => fnd_api.g_miss_date ,
5961: p_NEW_ACTIVE_START_DATE => l_temp_party_account_rec.ACTIVE_START_DATE,
5962: p_OLD_ACTIVE_END_DATE => fnd_api.g_miss_date ,
5963: p_NEW_ACTIVE_END_DATE => l_temp_party_account_rec.ACTIVE_END_DATE ,
5964: p_OLD_CONTEXT => fnd_api.g_miss_char ,
5965: p_NEW_CONTEXT => l_temp_party_account_rec.CONTEXT ,
5966: p_OLD_ATTRIBUTE1 => fnd_api.g_miss_char ,
5967: p_NEW_ATTRIBUTE1 => l_temp_party_account_rec.ATTRIBUTE1 ,
5968: p_OLD_ATTRIBUTE2 => fnd_api.g_miss_char ,
5962: p_OLD_ACTIVE_END_DATE => fnd_api.g_miss_date ,
5963: p_NEW_ACTIVE_END_DATE => l_temp_party_account_rec.ACTIVE_END_DATE ,
5964: p_OLD_CONTEXT => fnd_api.g_miss_char ,
5965: p_NEW_CONTEXT => l_temp_party_account_rec.CONTEXT ,
5966: p_OLD_ATTRIBUTE1 => fnd_api.g_miss_char ,
5967: p_NEW_ATTRIBUTE1 => l_temp_party_account_rec.ATTRIBUTE1 ,
5968: p_OLD_ATTRIBUTE2 => fnd_api.g_miss_char ,
5969: p_NEW_ATTRIBUTE2 => l_temp_party_account_rec.ATTRIBUTE2 ,
5970: p_OLD_ATTRIBUTE3 => fnd_api.g_miss_char ,
5964: p_OLD_CONTEXT => fnd_api.g_miss_char ,
5965: p_NEW_CONTEXT => l_temp_party_account_rec.CONTEXT ,
5966: p_OLD_ATTRIBUTE1 => fnd_api.g_miss_char ,
5967: p_NEW_ATTRIBUTE1 => l_temp_party_account_rec.ATTRIBUTE1 ,
5968: p_OLD_ATTRIBUTE2 => fnd_api.g_miss_char ,
5969: p_NEW_ATTRIBUTE2 => l_temp_party_account_rec.ATTRIBUTE2 ,
5970: p_OLD_ATTRIBUTE3 => fnd_api.g_miss_char ,
5971: p_NEW_ATTRIBUTE3 => l_temp_party_account_rec.ATTRIBUTE3 ,
5972: p_OLD_ATTRIBUTE4 => fnd_api.g_miss_char ,
5966: p_OLD_ATTRIBUTE1 => fnd_api.g_miss_char ,
5967: p_NEW_ATTRIBUTE1 => l_temp_party_account_rec.ATTRIBUTE1 ,
5968: p_OLD_ATTRIBUTE2 => fnd_api.g_miss_char ,
5969: p_NEW_ATTRIBUTE2 => l_temp_party_account_rec.ATTRIBUTE2 ,
5970: p_OLD_ATTRIBUTE3 => fnd_api.g_miss_char ,
5971: p_NEW_ATTRIBUTE3 => l_temp_party_account_rec.ATTRIBUTE3 ,
5972: p_OLD_ATTRIBUTE4 => fnd_api.g_miss_char ,
5973: p_NEW_ATTRIBUTE4 => l_temp_party_account_rec.ATTRIBUTE4 ,
5974: p_OLD_ATTRIBUTE5 => fnd_api.g_miss_char ,
5968: p_OLD_ATTRIBUTE2 => fnd_api.g_miss_char ,
5969: p_NEW_ATTRIBUTE2 => l_temp_party_account_rec.ATTRIBUTE2 ,
5970: p_OLD_ATTRIBUTE3 => fnd_api.g_miss_char ,
5971: p_NEW_ATTRIBUTE3 => l_temp_party_account_rec.ATTRIBUTE3 ,
5972: p_OLD_ATTRIBUTE4 => fnd_api.g_miss_char ,
5973: p_NEW_ATTRIBUTE4 => l_temp_party_account_rec.ATTRIBUTE4 ,
5974: p_OLD_ATTRIBUTE5 => fnd_api.g_miss_char ,
5975: p_NEW_ATTRIBUTE5 => l_temp_party_account_rec.ATTRIBUTE5 ,
5976: p_OLD_ATTRIBUTE6 => fnd_api.g_miss_char ,
5970: p_OLD_ATTRIBUTE3 => fnd_api.g_miss_char ,
5971: p_NEW_ATTRIBUTE3 => l_temp_party_account_rec.ATTRIBUTE3 ,
5972: p_OLD_ATTRIBUTE4 => fnd_api.g_miss_char ,
5973: p_NEW_ATTRIBUTE4 => l_temp_party_account_rec.ATTRIBUTE4 ,
5974: p_OLD_ATTRIBUTE5 => fnd_api.g_miss_char ,
5975: p_NEW_ATTRIBUTE5 => l_temp_party_account_rec.ATTRIBUTE5 ,
5976: p_OLD_ATTRIBUTE6 => fnd_api.g_miss_char ,
5977: p_NEW_ATTRIBUTE6 => l_temp_party_account_rec.ATTRIBUTE6 ,
5978: p_OLD_ATTRIBUTE7 => fnd_api.g_miss_char ,
5972: p_OLD_ATTRIBUTE4 => fnd_api.g_miss_char ,
5973: p_NEW_ATTRIBUTE4 => l_temp_party_account_rec.ATTRIBUTE4 ,
5974: p_OLD_ATTRIBUTE5 => fnd_api.g_miss_char ,
5975: p_NEW_ATTRIBUTE5 => l_temp_party_account_rec.ATTRIBUTE5 ,
5976: p_OLD_ATTRIBUTE6 => fnd_api.g_miss_char ,
5977: p_NEW_ATTRIBUTE6 => l_temp_party_account_rec.ATTRIBUTE6 ,
5978: p_OLD_ATTRIBUTE7 => fnd_api.g_miss_char ,
5979: p_NEW_ATTRIBUTE7 => l_temp_party_account_rec.ATTRIBUTE7 ,
5980: p_OLD_ATTRIBUTE8 => fnd_api.g_miss_char ,
5974: p_OLD_ATTRIBUTE5 => fnd_api.g_miss_char ,
5975: p_NEW_ATTRIBUTE5 => l_temp_party_account_rec.ATTRIBUTE5 ,
5976: p_OLD_ATTRIBUTE6 => fnd_api.g_miss_char ,
5977: p_NEW_ATTRIBUTE6 => l_temp_party_account_rec.ATTRIBUTE6 ,
5978: p_OLD_ATTRIBUTE7 => fnd_api.g_miss_char ,
5979: p_NEW_ATTRIBUTE7 => l_temp_party_account_rec.ATTRIBUTE7 ,
5980: p_OLD_ATTRIBUTE8 => fnd_api.g_miss_char ,
5981: p_NEW_ATTRIBUTE8 => l_temp_party_account_rec.ATTRIBUTE8 ,
5982: p_OLD_ATTRIBUTE9 => fnd_api.g_miss_char ,
5976: p_OLD_ATTRIBUTE6 => fnd_api.g_miss_char ,
5977: p_NEW_ATTRIBUTE6 => l_temp_party_account_rec.ATTRIBUTE6 ,
5978: p_OLD_ATTRIBUTE7 => fnd_api.g_miss_char ,
5979: p_NEW_ATTRIBUTE7 => l_temp_party_account_rec.ATTRIBUTE7 ,
5980: p_OLD_ATTRIBUTE8 => fnd_api.g_miss_char ,
5981: p_NEW_ATTRIBUTE8 => l_temp_party_account_rec.ATTRIBUTE8 ,
5982: p_OLD_ATTRIBUTE9 => fnd_api.g_miss_char ,
5983: p_NEW_ATTRIBUTE9 => l_temp_party_account_rec.ATTRIBUTE9 ,
5984: p_OLD_ATTRIBUTE10 => fnd_api.g_miss_char ,
5978: p_OLD_ATTRIBUTE7 => fnd_api.g_miss_char ,
5979: p_NEW_ATTRIBUTE7 => l_temp_party_account_rec.ATTRIBUTE7 ,
5980: p_OLD_ATTRIBUTE8 => fnd_api.g_miss_char ,
5981: p_NEW_ATTRIBUTE8 => l_temp_party_account_rec.ATTRIBUTE8 ,
5982: p_OLD_ATTRIBUTE9 => fnd_api.g_miss_char ,
5983: p_NEW_ATTRIBUTE9 => l_temp_party_account_rec.ATTRIBUTE9 ,
5984: p_OLD_ATTRIBUTE10 => fnd_api.g_miss_char ,
5985: p_NEW_ATTRIBUTE10 => l_temp_party_account_rec.ATTRIBUTE10 ,
5986: p_OLD_ATTRIBUTE11 => fnd_api.g_miss_char ,
5980: p_OLD_ATTRIBUTE8 => fnd_api.g_miss_char ,
5981: p_NEW_ATTRIBUTE8 => l_temp_party_account_rec.ATTRIBUTE8 ,
5982: p_OLD_ATTRIBUTE9 => fnd_api.g_miss_char ,
5983: p_NEW_ATTRIBUTE9 => l_temp_party_account_rec.ATTRIBUTE9 ,
5984: p_OLD_ATTRIBUTE10 => fnd_api.g_miss_char ,
5985: p_NEW_ATTRIBUTE10 => l_temp_party_account_rec.ATTRIBUTE10 ,
5986: p_OLD_ATTRIBUTE11 => fnd_api.g_miss_char ,
5987: p_NEW_ATTRIBUTE11 => l_temp_party_account_rec.ATTRIBUTE11 ,
5988: p_OLD_ATTRIBUTE12 => fnd_api.g_miss_char ,
5982: p_OLD_ATTRIBUTE9 => fnd_api.g_miss_char ,
5983: p_NEW_ATTRIBUTE9 => l_temp_party_account_rec.ATTRIBUTE9 ,
5984: p_OLD_ATTRIBUTE10 => fnd_api.g_miss_char ,
5985: p_NEW_ATTRIBUTE10 => l_temp_party_account_rec.ATTRIBUTE10 ,
5986: p_OLD_ATTRIBUTE11 => fnd_api.g_miss_char ,
5987: p_NEW_ATTRIBUTE11 => l_temp_party_account_rec.ATTRIBUTE11 ,
5988: p_OLD_ATTRIBUTE12 => fnd_api.g_miss_char ,
5989: p_NEW_ATTRIBUTE12 => l_temp_party_account_rec.ATTRIBUTE12 ,
5990: p_OLD_ATTRIBUTE13 => fnd_api.g_miss_char ,
5984: p_OLD_ATTRIBUTE10 => fnd_api.g_miss_char ,
5985: p_NEW_ATTRIBUTE10 => l_temp_party_account_rec.ATTRIBUTE10 ,
5986: p_OLD_ATTRIBUTE11 => fnd_api.g_miss_char ,
5987: p_NEW_ATTRIBUTE11 => l_temp_party_account_rec.ATTRIBUTE11 ,
5988: p_OLD_ATTRIBUTE12 => fnd_api.g_miss_char ,
5989: p_NEW_ATTRIBUTE12 => l_temp_party_account_rec.ATTRIBUTE12 ,
5990: p_OLD_ATTRIBUTE13 => fnd_api.g_miss_char ,
5991: p_NEW_ATTRIBUTE13 => l_temp_party_account_rec.ATTRIBUTE13 ,
5992: p_OLD_ATTRIBUTE14 => fnd_api.g_miss_char ,
5986: p_OLD_ATTRIBUTE11 => fnd_api.g_miss_char ,
5987: p_NEW_ATTRIBUTE11 => l_temp_party_account_rec.ATTRIBUTE11 ,
5988: p_OLD_ATTRIBUTE12 => fnd_api.g_miss_char ,
5989: p_NEW_ATTRIBUTE12 => l_temp_party_account_rec.ATTRIBUTE12 ,
5990: p_OLD_ATTRIBUTE13 => fnd_api.g_miss_char ,
5991: p_NEW_ATTRIBUTE13 => l_temp_party_account_rec.ATTRIBUTE13 ,
5992: p_OLD_ATTRIBUTE14 => fnd_api.g_miss_char ,
5993: p_NEW_ATTRIBUTE14 => l_temp_party_account_rec.ATTRIBUTE14 ,
5994: p_OLD_ATTRIBUTE15 => fnd_api.g_miss_char ,
5988: p_OLD_ATTRIBUTE12 => fnd_api.g_miss_char ,
5989: p_NEW_ATTRIBUTE12 => l_temp_party_account_rec.ATTRIBUTE12 ,
5990: p_OLD_ATTRIBUTE13 => fnd_api.g_miss_char ,
5991: p_NEW_ATTRIBUTE13 => l_temp_party_account_rec.ATTRIBUTE13 ,
5992: p_OLD_ATTRIBUTE14 => fnd_api.g_miss_char ,
5993: p_NEW_ATTRIBUTE14 => l_temp_party_account_rec.ATTRIBUTE14 ,
5994: p_OLD_ATTRIBUTE15 => fnd_api.g_miss_char ,
5995: p_NEW_ATTRIBUTE15 => l_temp_party_account_rec.ATTRIBUTE15 ,
5996: p_FULL_DUMP_FLAG => fnd_api.g_miss_char ,
5990: p_OLD_ATTRIBUTE13 => fnd_api.g_miss_char ,
5991: p_NEW_ATTRIBUTE13 => l_temp_party_account_rec.ATTRIBUTE13 ,
5992: p_OLD_ATTRIBUTE14 => fnd_api.g_miss_char ,
5993: p_NEW_ATTRIBUTE14 => l_temp_party_account_rec.ATTRIBUTE14 ,
5994: p_OLD_ATTRIBUTE15 => fnd_api.g_miss_char ,
5995: p_NEW_ATTRIBUTE15 => l_temp_party_account_rec.ATTRIBUTE15 ,
5996: p_FULL_DUMP_FLAG => fnd_api.g_miss_char ,
5997: p_CREATED_BY => FND_API.G_MISS_NUM ,
5998: p_CREATION_DATE => FND_API.G_MISS_DATE ,
5992: p_OLD_ATTRIBUTE14 => fnd_api.g_miss_char ,
5993: p_NEW_ATTRIBUTE14 => l_temp_party_account_rec.ATTRIBUTE14 ,
5994: p_OLD_ATTRIBUTE15 => fnd_api.g_miss_char ,
5995: p_NEW_ATTRIBUTE15 => l_temp_party_account_rec.ATTRIBUTE15 ,
5996: p_FULL_DUMP_FLAG => fnd_api.g_miss_char ,
5997: p_CREATED_BY => FND_API.G_MISS_NUM ,
5998: p_CREATION_DATE => FND_API.G_MISS_DATE ,
5999: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID ,
6000: p_LAST_UPDATE_DATE => SYSDATE ,
5993: p_NEW_ATTRIBUTE14 => l_temp_party_account_rec.ATTRIBUTE14 ,
5994: p_OLD_ATTRIBUTE15 => fnd_api.g_miss_char ,
5995: p_NEW_ATTRIBUTE15 => l_temp_party_account_rec.ATTRIBUTE15 ,
5996: p_FULL_DUMP_FLAG => fnd_api.g_miss_char ,
5997: p_CREATED_BY => FND_API.G_MISS_NUM ,
5998: p_CREATION_DATE => FND_API.G_MISS_DATE ,
5999: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID ,
6000: p_LAST_UPDATE_DATE => SYSDATE ,
6001: p_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID ,
5994: p_OLD_ATTRIBUTE15 => fnd_api.g_miss_char ,
5995: p_NEW_ATTRIBUTE15 => l_temp_party_account_rec.ATTRIBUTE15 ,
5996: p_FULL_DUMP_FLAG => fnd_api.g_miss_char ,
5997: p_CREATED_BY => FND_API.G_MISS_NUM ,
5998: p_CREATION_DATE => FND_API.G_MISS_DATE ,
5999: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID ,
6000: p_LAST_UPDATE_DATE => SYSDATE ,
6001: p_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID ,
6002: p_OBJECT_VERSION_NUMBER => fnd_api.g_miss_num ,
5998: p_CREATION_DATE => FND_API.G_MISS_DATE ,
5999: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID ,
6000: p_LAST_UPDATE_DATE => SYSDATE ,
6001: p_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID ,
6002: p_OBJECT_VERSION_NUMBER => fnd_api.g_miss_num ,
6003: p_OLD_BILL_TO_ADDRESS => fnd_api.g_miss_num ,
6004: p_NEW_BILL_TO_ADDRESS => l_temp_party_account_rec.BILL_TO_ADDRESS ,
6005: p_OLD_SHIP_TO_ADDRESS => fnd_api.g_miss_num ,
6006: p_NEW_SHIP_TO_ADDRESS => l_temp_party_account_rec.SHIP_TO_ADDRESS ,
5999: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID ,
6000: p_LAST_UPDATE_DATE => SYSDATE ,
6001: p_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID ,
6002: p_OBJECT_VERSION_NUMBER => fnd_api.g_miss_num ,
6003: p_OLD_BILL_TO_ADDRESS => fnd_api.g_miss_num ,
6004: p_NEW_BILL_TO_ADDRESS => l_temp_party_account_rec.BILL_TO_ADDRESS ,
6005: p_OLD_SHIP_TO_ADDRESS => fnd_api.g_miss_num ,
6006: p_NEW_SHIP_TO_ADDRESS => l_temp_party_account_rec.SHIP_TO_ADDRESS ,
6007: p_OLD_INSTANCE_PARTY_ID => fnd_api.g_miss_num ,
6001: p_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID ,
6002: p_OBJECT_VERSION_NUMBER => fnd_api.g_miss_num ,
6003: p_OLD_BILL_TO_ADDRESS => fnd_api.g_miss_num ,
6004: p_NEW_BILL_TO_ADDRESS => l_temp_party_account_rec.BILL_TO_ADDRESS ,
6005: p_OLD_SHIP_TO_ADDRESS => fnd_api.g_miss_num ,
6006: p_NEW_SHIP_TO_ADDRESS => l_temp_party_account_rec.SHIP_TO_ADDRESS ,
6007: p_OLD_INSTANCE_PARTY_ID => fnd_api.g_miss_num ,
6008: p_NEW_INSTANCE_PARTY_ID => l_temp_party_account_rec.INSTANCE_PARTY_ID);
6009:
6003: p_OLD_BILL_TO_ADDRESS => fnd_api.g_miss_num ,
6004: p_NEW_BILL_TO_ADDRESS => l_temp_party_account_rec.BILL_TO_ADDRESS ,
6005: p_OLD_SHIP_TO_ADDRESS => fnd_api.g_miss_num ,
6006: p_NEW_SHIP_TO_ADDRESS => l_temp_party_account_rec.SHIP_TO_ADDRESS ,
6007: p_OLD_INSTANCE_PARTY_ID => fnd_api.g_miss_num ,
6008: p_NEW_INSTANCE_PARTY_ID => l_temp_party_account_rec.INSTANCE_PARTY_ID);
6009:
6010:
6011: ELSE
6012:
6013: IF ( l_pty_acct_csr.old_party_account_id IS NULL
6014: AND l_pty_acct_csr.new_party_account_id IS NULL ) THEN
6015: IF ( l_temp_party_account_rec.party_account_id = l_curr_party_acct_rec.party_account_id )
6016: OR ( l_temp_party_account_rec.party_account_id = fnd_api.g_miss_num ) THEN
6017: l_pty_acct_csr.old_party_account_id := NULL;
6018: l_pty_acct_csr.new_party_account_id := NULL;
6019: ELSE
6020: l_pty_acct_csr.old_party_account_id := fnd_api.g_miss_num;
6016: OR ( l_temp_party_account_rec.party_account_id = fnd_api.g_miss_num ) THEN
6017: l_pty_acct_csr.old_party_account_id := NULL;
6018: l_pty_acct_csr.new_party_account_id := NULL;
6019: ELSE
6020: l_pty_acct_csr.old_party_account_id := fnd_api.g_miss_num;
6021: l_pty_acct_csr.new_party_account_id := l_temp_party_account_rec.party_account_id;
6022: END IF;
6023: ELSE
6024: l_pty_acct_csr.old_party_account_id := fnd_api.g_miss_num;
6020: l_pty_acct_csr.old_party_account_id := fnd_api.g_miss_num;
6021: l_pty_acct_csr.new_party_account_id := l_temp_party_account_rec.party_account_id;
6022: END IF;
6023: ELSE
6024: l_pty_acct_csr.old_party_account_id := fnd_api.g_miss_num;
6025: l_pty_acct_csr.new_party_account_id := l_temp_party_account_rec.party_account_id;
6026: END IF;
6027: --
6028: IF ( l_pty_acct_csr.old_relationship_type_code IS NULL
6027: --
6028: IF ( l_pty_acct_csr.old_relationship_type_code IS NULL
6029: AND l_pty_acct_csr.new_relationship_type_code IS NULL ) THEN
6030: IF ( l_temp_party_account_rec.relationship_type_code = l_curr_party_acct_rec.relationship_type_code )
6031: OR ( l_temp_party_account_rec.relationship_type_code = fnd_api.g_miss_char ) THEN
6032: l_pty_acct_csr.old_relationship_type_code := NULL;
6033: l_pty_acct_csr.new_relationship_type_code := NULL;
6034: ELSE
6035: l_pty_acct_csr.old_relationship_type_code := fnd_api.g_miss_char;
6031: OR ( l_temp_party_account_rec.relationship_type_code = fnd_api.g_miss_char ) THEN
6032: l_pty_acct_csr.old_relationship_type_code := NULL;
6033: l_pty_acct_csr.new_relationship_type_code := NULL;
6034: ELSE
6035: l_pty_acct_csr.old_relationship_type_code := fnd_api.g_miss_char;
6036: l_pty_acct_csr.new_relationship_type_code := l_temp_party_account_rec.relationship_type_code;
6037: END IF;
6038: ELSE
6039: l_pty_acct_csr.old_relationship_type_code := fnd_api.g_miss_char;
6035: l_pty_acct_csr.old_relationship_type_code := fnd_api.g_miss_char;
6036: l_pty_acct_csr.new_relationship_type_code := l_temp_party_account_rec.relationship_type_code;
6037: END IF;
6038: ELSE
6039: l_pty_acct_csr.old_relationship_type_code := fnd_api.g_miss_char;
6040: l_pty_acct_csr.new_relationship_type_code := l_temp_party_account_rec.relationship_type_code;
6041: END IF;
6042: --
6043: IF ( l_pty_acct_csr.old_bill_to_address IS NULL
6042: --
6043: IF ( l_pty_acct_csr.old_bill_to_address IS NULL
6044: AND l_pty_acct_csr.new_bill_to_address IS NULL ) THEN
6045: IF ( l_temp_party_account_rec.bill_to_address = l_curr_party_acct_rec.bill_to_address )
6046: OR ( l_temp_party_account_rec.bill_to_address = fnd_api.g_miss_num ) THEN
6047: l_pty_acct_csr.old_bill_to_address := NULL;
6048: l_pty_acct_csr.new_bill_to_address := NULL;
6049: ELSE
6050: l_pty_acct_csr.old_bill_to_address := fnd_api.g_miss_num;
6046: OR ( l_temp_party_account_rec.bill_to_address = fnd_api.g_miss_num ) THEN
6047: l_pty_acct_csr.old_bill_to_address := NULL;
6048: l_pty_acct_csr.new_bill_to_address := NULL;
6049: ELSE
6050: l_pty_acct_csr.old_bill_to_address := fnd_api.g_miss_num;
6051: l_pty_acct_csr.new_bill_to_address := l_temp_party_account_rec.bill_to_address;
6052: END IF;
6053: ELSE
6054: l_pty_acct_csr.old_bill_to_address := fnd_api.g_miss_num;
6050: l_pty_acct_csr.old_bill_to_address := fnd_api.g_miss_num;
6051: l_pty_acct_csr.new_bill_to_address := l_temp_party_account_rec.bill_to_address;
6052: END IF;
6053: ELSE
6054: l_pty_acct_csr.old_bill_to_address := fnd_api.g_miss_num;
6055: l_pty_acct_csr.new_bill_to_address := l_temp_party_account_rec.bill_to_address;
6056: END IF;
6057: --
6058: IF ( l_pty_acct_csr.old_ship_to_address IS NULL
6057: --
6058: IF ( l_pty_acct_csr.old_ship_to_address IS NULL
6059: AND l_pty_acct_csr.new_ship_to_address IS NULL ) THEN
6060: IF ( l_temp_party_account_rec.ship_to_address = l_curr_party_acct_rec.ship_to_address )
6061: OR ( l_temp_party_account_rec.ship_to_address = fnd_api.g_miss_num ) THEN
6062: l_pty_acct_csr.old_ship_to_address := NULL;
6063: l_pty_acct_csr.new_ship_to_address := NULL;
6064: ELSE
6065: l_pty_acct_csr.old_ship_to_address := fnd_api.g_miss_num;
6061: OR ( l_temp_party_account_rec.ship_to_address = fnd_api.g_miss_num ) THEN
6062: l_pty_acct_csr.old_ship_to_address := NULL;
6063: l_pty_acct_csr.new_ship_to_address := NULL;
6064: ELSE
6065: l_pty_acct_csr.old_ship_to_address := fnd_api.g_miss_num;
6066: l_pty_acct_csr.new_ship_to_address := l_temp_party_account_rec.ship_to_address;
6067: END IF;
6068: ELSE
6069: l_pty_acct_csr.old_ship_to_address := fnd_api.g_miss_num;
6065: l_pty_acct_csr.old_ship_to_address := fnd_api.g_miss_num;
6066: l_pty_acct_csr.new_ship_to_address := l_temp_party_account_rec.ship_to_address;
6067: END IF;
6068: ELSE
6069: l_pty_acct_csr.old_ship_to_address := fnd_api.g_miss_num;
6070: l_pty_acct_csr.new_ship_to_address := l_temp_party_account_rec.ship_to_address;
6071: END IF;
6072: --
6073: IF ( l_pty_acct_csr.old_active_start_date IS NULL
6072: --
6073: IF ( l_pty_acct_csr.old_active_start_date IS NULL
6074: AND l_pty_acct_csr.new_active_start_date IS NULL ) THEN
6075: IF ( l_temp_party_account_rec.active_start_date = l_curr_party_acct_rec.active_start_date )
6076: OR ( l_temp_party_account_rec.active_start_date = fnd_api.g_miss_date ) THEN
6077: l_pty_acct_csr.old_active_start_date := NULL;
6078: l_pty_acct_csr.new_active_start_date := NULL;
6079: ELSE
6080: l_pty_acct_csr.old_active_start_date := fnd_api.g_miss_date;
6076: OR ( l_temp_party_account_rec.active_start_date = fnd_api.g_miss_date ) THEN
6077: l_pty_acct_csr.old_active_start_date := NULL;
6078: l_pty_acct_csr.new_active_start_date := NULL;
6079: ELSE
6080: l_pty_acct_csr.old_active_start_date := fnd_api.g_miss_date;
6081: l_pty_acct_csr.new_active_start_date := l_temp_party_account_rec.active_start_date;
6082: END IF;
6083: ELSE
6084: l_pty_acct_csr.old_active_start_date := fnd_api.g_miss_date;
6080: l_pty_acct_csr.old_active_start_date := fnd_api.g_miss_date;
6081: l_pty_acct_csr.new_active_start_date := l_temp_party_account_rec.active_start_date;
6082: END IF;
6083: ELSE
6084: l_pty_acct_csr.old_active_start_date := fnd_api.g_miss_date;
6085: l_pty_acct_csr.new_active_start_date := l_temp_party_account_rec.active_start_date;
6086: END IF;
6087: --
6088: IF ( l_pty_acct_csr.old_active_end_date IS NULL
6087: --
6088: IF ( l_pty_acct_csr.old_active_end_date IS NULL
6089: AND l_pty_acct_csr.new_active_end_date IS NULL ) THEN
6090: IF ( l_temp_party_account_rec.active_end_date = l_curr_party_acct_rec.active_end_date )
6091: OR ( l_temp_party_account_rec.active_end_date = fnd_api.g_miss_date ) THEN
6092: l_pty_acct_csr.old_active_end_date := NULL;
6093: l_pty_acct_csr.new_active_end_date := NULL;
6094: ELSE
6095: l_pty_acct_csr.old_active_end_date := fnd_api.g_miss_date;
6091: OR ( l_temp_party_account_rec.active_end_date = fnd_api.g_miss_date ) THEN
6092: l_pty_acct_csr.old_active_end_date := NULL;
6093: l_pty_acct_csr.new_active_end_date := NULL;
6094: ELSE
6095: l_pty_acct_csr.old_active_end_date := fnd_api.g_miss_date;
6096: l_pty_acct_csr.new_active_end_date := l_temp_party_account_rec.active_end_date;
6097: END IF;
6098: ELSE
6099: l_pty_acct_csr.old_active_end_date := fnd_api.g_miss_date;
6095: l_pty_acct_csr.old_active_end_date := fnd_api.g_miss_date;
6096: l_pty_acct_csr.new_active_end_date := l_temp_party_account_rec.active_end_date;
6097: END IF;
6098: ELSE
6099: l_pty_acct_csr.old_active_end_date := fnd_api.g_miss_date;
6100: l_pty_acct_csr.new_active_end_date := l_temp_party_account_rec.active_end_date;
6101: END IF;
6102: --
6103: IF ( l_pty_acct_csr.old_context IS NULL
6102: --
6103: IF ( l_pty_acct_csr.old_context IS NULL
6104: AND l_pty_acct_csr.new_context IS NULL ) THEN
6105: IF ( l_temp_party_account_rec.context = l_curr_party_acct_rec.context )
6106: OR ( l_temp_party_account_rec.context = fnd_api.g_miss_char ) THEN
6107: l_pty_acct_csr.old_context := NULL;
6108: l_pty_acct_csr.new_context := NULL;
6109: ELSE
6110: l_pty_acct_csr.old_context := fnd_api.g_miss_char;
6106: OR ( l_temp_party_account_rec.context = fnd_api.g_miss_char ) THEN
6107: l_pty_acct_csr.old_context := NULL;
6108: l_pty_acct_csr.new_context := NULL;
6109: ELSE
6110: l_pty_acct_csr.old_context := fnd_api.g_miss_char;
6111: l_pty_acct_csr.new_context := l_temp_party_account_rec.context;
6112: END IF;
6113: ELSE
6114: l_pty_acct_csr.old_context := fnd_api.g_miss_char;
6110: l_pty_acct_csr.old_context := fnd_api.g_miss_char;
6111: l_pty_acct_csr.new_context := l_temp_party_account_rec.context;
6112: END IF;
6113: ELSE
6114: l_pty_acct_csr.old_context := fnd_api.g_miss_char;
6115: l_pty_acct_csr.new_context := l_temp_party_account_rec.context;
6116: END IF;
6117: --
6118: IF ( l_pty_acct_csr.old_attribute1 IS NULL
6117: --
6118: IF ( l_pty_acct_csr.old_attribute1 IS NULL
6119: AND l_pty_acct_csr.new_attribute1 IS NULL ) THEN
6120: IF ( l_temp_party_account_rec.attribute1 = l_curr_party_acct_rec.attribute1 )
6121: OR ( l_temp_party_account_rec.attribute1 = fnd_api.g_miss_char ) THEN
6122: l_pty_acct_csr.old_attribute1 := NULL;
6123: l_pty_acct_csr.new_attribute1 := NULL;
6124: ELSE
6125: l_pty_acct_csr.old_attribute1 := fnd_api.g_miss_char;
6121: OR ( l_temp_party_account_rec.attribute1 = fnd_api.g_miss_char ) THEN
6122: l_pty_acct_csr.old_attribute1 := NULL;
6123: l_pty_acct_csr.new_attribute1 := NULL;
6124: ELSE
6125: l_pty_acct_csr.old_attribute1 := fnd_api.g_miss_char;
6126: l_pty_acct_csr.new_attribute1 := l_temp_party_account_rec.attribute1;
6127: END IF;
6128: ELSE
6129: l_pty_acct_csr.old_attribute1 := fnd_api.g_miss_char;
6125: l_pty_acct_csr.old_attribute1 := fnd_api.g_miss_char;
6126: l_pty_acct_csr.new_attribute1 := l_temp_party_account_rec.attribute1;
6127: END IF;
6128: ELSE
6129: l_pty_acct_csr.old_attribute1 := fnd_api.g_miss_char;
6130: l_pty_acct_csr.new_attribute1 := l_temp_party_account_rec.attribute1;
6131: END IF;
6132: --
6133: IF ( l_pty_acct_csr.old_attribute2 IS NULL
6132: --
6133: IF ( l_pty_acct_csr.old_attribute2 IS NULL
6134: AND l_pty_acct_csr.new_attribute2 IS NULL ) THEN
6135: IF ( l_temp_party_account_rec.attribute2 = l_curr_party_acct_rec.attribute2 )
6136: OR ( l_temp_party_account_rec.attribute2 = fnd_api.g_miss_char ) THEN
6137: l_pty_acct_csr.old_attribute2 := NULL;
6138: l_pty_acct_csr.new_attribute2 := NULL;
6139: ELSE
6140: l_pty_acct_csr.old_attribute2 := fnd_api.g_miss_char;
6136: OR ( l_temp_party_account_rec.attribute2 = fnd_api.g_miss_char ) THEN
6137: l_pty_acct_csr.old_attribute2 := NULL;
6138: l_pty_acct_csr.new_attribute2 := NULL;
6139: ELSE
6140: l_pty_acct_csr.old_attribute2 := fnd_api.g_miss_char;
6141: l_pty_acct_csr.new_attribute2 := l_temp_party_account_rec.attribute2;
6142: END IF;
6143: ELSE
6144: l_pty_acct_csr.old_attribute2 := fnd_api.g_miss_char;
6140: l_pty_acct_csr.old_attribute2 := fnd_api.g_miss_char;
6141: l_pty_acct_csr.new_attribute2 := l_temp_party_account_rec.attribute2;
6142: END IF;
6143: ELSE
6144: l_pty_acct_csr.old_attribute2 := fnd_api.g_miss_char;
6145: l_pty_acct_csr.new_attribute2 := l_temp_party_account_rec.attribute2;
6146: END IF;
6147: --
6148: IF ( l_pty_acct_csr.old_attribute3 IS NULL
6147: --
6148: IF ( l_pty_acct_csr.old_attribute3 IS NULL
6149: AND l_pty_acct_csr.new_attribute3 IS NULL ) THEN
6150: IF ( l_temp_party_account_rec.attribute3 = l_curr_party_acct_rec.attribute3 )
6151: OR ( l_temp_party_account_rec.attribute3 = fnd_api.g_miss_char ) THEN
6152: l_pty_acct_csr.old_attribute3 := NULL;
6153: l_pty_acct_csr.new_attribute3 := NULL;
6154: ELSE
6155: l_pty_acct_csr.old_attribute3 := fnd_api.g_miss_char;
6151: OR ( l_temp_party_account_rec.attribute3 = fnd_api.g_miss_char ) THEN
6152: l_pty_acct_csr.old_attribute3 := NULL;
6153: l_pty_acct_csr.new_attribute3 := NULL;
6154: ELSE
6155: l_pty_acct_csr.old_attribute3 := fnd_api.g_miss_char;
6156: l_pty_acct_csr.new_attribute3 := l_temp_party_account_rec.attribute3;
6157: END IF;
6158: ELSE
6159: l_pty_acct_csr.old_attribute3 := fnd_api.g_miss_char;
6155: l_pty_acct_csr.old_attribute3 := fnd_api.g_miss_char;
6156: l_pty_acct_csr.new_attribute3 := l_temp_party_account_rec.attribute3;
6157: END IF;
6158: ELSE
6159: l_pty_acct_csr.old_attribute3 := fnd_api.g_miss_char;
6160: l_pty_acct_csr.new_attribute3 := l_temp_party_account_rec.attribute3;
6161: END IF;
6162: --
6163: IF ( l_pty_acct_csr.old_attribute4 IS NULL
6162: --
6163: IF ( l_pty_acct_csr.old_attribute4 IS NULL
6164: AND l_pty_acct_csr.new_attribute4 IS NULL ) THEN
6165: IF ( l_temp_party_account_rec.attribute4 = l_curr_party_acct_rec.attribute4 )
6166: OR ( l_temp_party_account_rec.attribute4 = fnd_api.g_miss_char ) THEN
6167: l_pty_acct_csr.old_attribute4 := NULL;
6168: l_pty_acct_csr.new_attribute4 := NULL;
6169: ELSE
6170: l_pty_acct_csr.old_attribute4 := fnd_api.g_miss_char;
6166: OR ( l_temp_party_account_rec.attribute4 = fnd_api.g_miss_char ) THEN
6167: l_pty_acct_csr.old_attribute4 := NULL;
6168: l_pty_acct_csr.new_attribute4 := NULL;
6169: ELSE
6170: l_pty_acct_csr.old_attribute4 := fnd_api.g_miss_char;
6171: l_pty_acct_csr.new_attribute4 := l_temp_party_account_rec.attribute4;
6172: END IF;
6173: ELSE
6174: l_pty_acct_csr.old_attribute4 := fnd_api.g_miss_char;
6170: l_pty_acct_csr.old_attribute4 := fnd_api.g_miss_char;
6171: l_pty_acct_csr.new_attribute4 := l_temp_party_account_rec.attribute4;
6172: END IF;
6173: ELSE
6174: l_pty_acct_csr.old_attribute4 := fnd_api.g_miss_char;
6175: l_pty_acct_csr.new_attribute4 := l_temp_party_account_rec.attribute4;
6176: END IF;
6177: --
6178: IF ( l_pty_acct_csr.old_attribute5 IS NULL
6177: --
6178: IF ( l_pty_acct_csr.old_attribute5 IS NULL
6179: AND l_pty_acct_csr.new_attribute5 IS NULL ) THEN
6180: IF ( l_temp_party_account_rec.attribute5 = l_curr_party_acct_rec.attribute5 )
6181: OR ( l_temp_party_account_rec.attribute5 = fnd_api.g_miss_char ) THEN
6182: l_pty_acct_csr.old_attribute5 := NULL;
6183: l_pty_acct_csr.new_attribute5 := NULL;
6184: ELSE
6185: l_pty_acct_csr.old_attribute5 := fnd_api.g_miss_char;
6181: OR ( l_temp_party_account_rec.attribute5 = fnd_api.g_miss_char ) THEN
6182: l_pty_acct_csr.old_attribute5 := NULL;
6183: l_pty_acct_csr.new_attribute5 := NULL;
6184: ELSE
6185: l_pty_acct_csr.old_attribute5 := fnd_api.g_miss_char;
6186: l_pty_acct_csr.new_attribute5 := l_temp_party_account_rec.attribute5;
6187: END IF;
6188: ELSE
6189: l_pty_acct_csr.old_attribute5 := fnd_api.g_miss_char;
6185: l_pty_acct_csr.old_attribute5 := fnd_api.g_miss_char;
6186: l_pty_acct_csr.new_attribute5 := l_temp_party_account_rec.attribute5;
6187: END IF;
6188: ELSE
6189: l_pty_acct_csr.old_attribute5 := fnd_api.g_miss_char;
6190: l_pty_acct_csr.new_attribute5 := l_temp_party_account_rec.attribute5;
6191: END IF;
6192: --
6193: IF ( l_pty_acct_csr.old_attribute6 IS NULL
6192: --
6193: IF ( l_pty_acct_csr.old_attribute6 IS NULL
6194: AND l_pty_acct_csr.new_attribute6 IS NULL ) THEN
6195: IF ( l_temp_party_account_rec.attribute6 = l_curr_party_acct_rec.attribute6 )
6196: OR ( l_temp_party_account_rec.attribute6 = fnd_api.g_miss_char ) THEN
6197: l_pty_acct_csr.old_attribute6 := NULL;
6198: l_pty_acct_csr.new_attribute6 := NULL;
6199: ELSE
6200: l_pty_acct_csr.old_attribute6 := fnd_api.g_miss_char;
6196: OR ( l_temp_party_account_rec.attribute6 = fnd_api.g_miss_char ) THEN
6197: l_pty_acct_csr.old_attribute6 := NULL;
6198: l_pty_acct_csr.new_attribute6 := NULL;
6199: ELSE
6200: l_pty_acct_csr.old_attribute6 := fnd_api.g_miss_char;
6201: l_pty_acct_csr.new_attribute6 := l_temp_party_account_rec.attribute6;
6202: END IF;
6203: ELSE
6204: l_pty_acct_csr.old_attribute6 := fnd_api.g_miss_char;
6200: l_pty_acct_csr.old_attribute6 := fnd_api.g_miss_char;
6201: l_pty_acct_csr.new_attribute6 := l_temp_party_account_rec.attribute6;
6202: END IF;
6203: ELSE
6204: l_pty_acct_csr.old_attribute6 := fnd_api.g_miss_char;
6205: l_pty_acct_csr.new_attribute6 := l_temp_party_account_rec.attribute6;
6206: END IF;
6207: --
6208: IF ( l_pty_acct_csr.old_attribute7 IS NULL
6207: --
6208: IF ( l_pty_acct_csr.old_attribute7 IS NULL
6209: AND l_pty_acct_csr.new_attribute7 IS NULL ) THEN
6210: IF ( l_temp_party_account_rec.attribute7 = l_curr_party_acct_rec.attribute7 )
6211: OR ( l_temp_party_account_rec.attribute7 = fnd_api.g_miss_char ) THEN
6212: l_pty_acct_csr.old_attribute7 := NULL;
6213: l_pty_acct_csr.new_attribute7 := NULL;
6214: ELSE
6215: l_pty_acct_csr.old_attribute7 := fnd_api.g_miss_char;
6211: OR ( l_temp_party_account_rec.attribute7 = fnd_api.g_miss_char ) THEN
6212: l_pty_acct_csr.old_attribute7 := NULL;
6213: l_pty_acct_csr.new_attribute7 := NULL;
6214: ELSE
6215: l_pty_acct_csr.old_attribute7 := fnd_api.g_miss_char;
6216: l_pty_acct_csr.new_attribute7 := l_temp_party_account_rec.attribute7;
6217: END IF;
6218: ELSE
6219: l_pty_acct_csr.old_attribute7 := fnd_api.g_miss_char;
6215: l_pty_acct_csr.old_attribute7 := fnd_api.g_miss_char;
6216: l_pty_acct_csr.new_attribute7 := l_temp_party_account_rec.attribute7;
6217: END IF;
6218: ELSE
6219: l_pty_acct_csr.old_attribute7 := fnd_api.g_miss_char;
6220: l_pty_acct_csr.new_attribute7 := l_temp_party_account_rec.attribute7;
6221: END IF;
6222: --
6223: IF ( l_pty_acct_csr.old_attribute8 IS NULL
6222: --
6223: IF ( l_pty_acct_csr.old_attribute8 IS NULL
6224: AND l_pty_acct_csr.new_attribute8 IS NULL ) THEN
6225: IF ( l_temp_party_account_rec.attribute8 = l_curr_party_acct_rec.attribute8 )
6226: OR ( l_temp_party_account_rec.attribute8 = fnd_api.g_miss_char ) THEN
6227: l_pty_acct_csr.old_attribute8 := NULL;
6228: l_pty_acct_csr.new_attribute8 := NULL;
6229: ELSE
6230: l_pty_acct_csr.old_attribute8 := fnd_api.g_miss_char;
6226: OR ( l_temp_party_account_rec.attribute8 = fnd_api.g_miss_char ) THEN
6227: l_pty_acct_csr.old_attribute8 := NULL;
6228: l_pty_acct_csr.new_attribute8 := NULL;
6229: ELSE
6230: l_pty_acct_csr.old_attribute8 := fnd_api.g_miss_char;
6231: l_pty_acct_csr.new_attribute8 := l_temp_party_account_rec.attribute8;
6232: END IF;
6233: ELSE
6234: l_pty_acct_csr.old_attribute8 := fnd_api.g_miss_char;
6230: l_pty_acct_csr.old_attribute8 := fnd_api.g_miss_char;
6231: l_pty_acct_csr.new_attribute8 := l_temp_party_account_rec.attribute8;
6232: END IF;
6233: ELSE
6234: l_pty_acct_csr.old_attribute8 := fnd_api.g_miss_char;
6235: l_pty_acct_csr.new_attribute8 := l_temp_party_account_rec.attribute8;
6236: END IF;
6237: --
6238: IF ( l_pty_acct_csr.old_attribute9 IS NULL
6237: --
6238: IF ( l_pty_acct_csr.old_attribute9 IS NULL
6239: AND l_pty_acct_csr.new_attribute9 IS NULL ) THEN
6240: IF ( l_temp_party_account_rec.attribute9 = l_curr_party_acct_rec.attribute9 )
6241: OR ( l_temp_party_account_rec.attribute9 = fnd_api.g_miss_char ) THEN
6242: l_pty_acct_csr.old_attribute9 := NULL;
6243: l_pty_acct_csr.new_attribute9 := NULL;
6244: ELSE
6245: l_pty_acct_csr.old_attribute9 := fnd_api.g_miss_char;
6241: OR ( l_temp_party_account_rec.attribute9 = fnd_api.g_miss_char ) THEN
6242: l_pty_acct_csr.old_attribute9 := NULL;
6243: l_pty_acct_csr.new_attribute9 := NULL;
6244: ELSE
6245: l_pty_acct_csr.old_attribute9 := fnd_api.g_miss_char;
6246: l_pty_acct_csr.new_attribute9 := l_temp_party_account_rec.attribute9;
6247: END IF;
6248: ELSE
6249: l_pty_acct_csr.old_attribute9 := fnd_api.g_miss_char;
6245: l_pty_acct_csr.old_attribute9 := fnd_api.g_miss_char;
6246: l_pty_acct_csr.new_attribute9 := l_temp_party_account_rec.attribute9;
6247: END IF;
6248: ELSE
6249: l_pty_acct_csr.old_attribute9 := fnd_api.g_miss_char;
6250: l_pty_acct_csr.new_attribute9 := l_temp_party_account_rec.attribute9;
6251: END IF;
6252: --
6253: IF ( l_pty_acct_csr.old_attribute10 IS NULL
6252: --
6253: IF ( l_pty_acct_csr.old_attribute10 IS NULL
6254: AND l_pty_acct_csr.new_attribute10 IS NULL ) THEN
6255: IF ( l_temp_party_account_rec.attribute10 = l_curr_party_acct_rec.attribute10 )
6256: OR ( l_temp_party_account_rec.attribute10 = fnd_api.g_miss_char ) THEN
6257: l_pty_acct_csr.old_attribute10 := NULL;
6258: l_pty_acct_csr.new_attribute10 := NULL;
6259: ELSE
6260: l_pty_acct_csr.old_attribute10 := fnd_api.g_miss_char;
6256: OR ( l_temp_party_account_rec.attribute10 = fnd_api.g_miss_char ) THEN
6257: l_pty_acct_csr.old_attribute10 := NULL;
6258: l_pty_acct_csr.new_attribute10 := NULL;
6259: ELSE
6260: l_pty_acct_csr.old_attribute10 := fnd_api.g_miss_char;
6261: l_pty_acct_csr.new_attribute10 := l_temp_party_account_rec.attribute10;
6262: END IF;
6263: ELSE
6264: l_pty_acct_csr.old_attribute10 := fnd_api.g_miss_char;
6260: l_pty_acct_csr.old_attribute10 := fnd_api.g_miss_char;
6261: l_pty_acct_csr.new_attribute10 := l_temp_party_account_rec.attribute10;
6262: END IF;
6263: ELSE
6264: l_pty_acct_csr.old_attribute10 := fnd_api.g_miss_char;
6265: l_pty_acct_csr.new_attribute10 := l_temp_party_account_rec.attribute10;
6266: END IF;
6267: --
6268: IF ( l_pty_acct_csr.old_attribute11 IS NULL
6267: --
6268: IF ( l_pty_acct_csr.old_attribute11 IS NULL
6269: AND l_pty_acct_csr.new_attribute11 IS NULL ) THEN
6270: IF ( l_temp_party_account_rec.attribute11 = l_curr_party_acct_rec.attribute11 )
6271: OR ( l_temp_party_account_rec.attribute11 = fnd_api.g_miss_char ) THEN
6272: l_pty_acct_csr.old_attribute11 := NULL;
6273: l_pty_acct_csr.new_attribute11 := NULL;
6274: ELSE
6275: l_pty_acct_csr.old_attribute11 := fnd_api.g_miss_char;
6271: OR ( l_temp_party_account_rec.attribute11 = fnd_api.g_miss_char ) THEN
6272: l_pty_acct_csr.old_attribute11 := NULL;
6273: l_pty_acct_csr.new_attribute11 := NULL;
6274: ELSE
6275: l_pty_acct_csr.old_attribute11 := fnd_api.g_miss_char;
6276: l_pty_acct_csr.new_attribute11 := l_temp_party_account_rec.attribute11;
6277: END IF;
6278: ELSE
6279: l_pty_acct_csr.old_attribute11 := fnd_api.g_miss_char;
6275: l_pty_acct_csr.old_attribute11 := fnd_api.g_miss_char;
6276: l_pty_acct_csr.new_attribute11 := l_temp_party_account_rec.attribute11;
6277: END IF;
6278: ELSE
6279: l_pty_acct_csr.old_attribute11 := fnd_api.g_miss_char;
6280: l_pty_acct_csr.new_attribute11 := l_temp_party_account_rec.attribute11;
6281: END IF;
6282: --
6283: IF ( l_pty_acct_csr.old_attribute12 IS NULL
6282: --
6283: IF ( l_pty_acct_csr.old_attribute12 IS NULL
6284: AND l_pty_acct_csr.new_attribute12 IS NULL ) THEN
6285: IF ( l_temp_party_account_rec.attribute12 = l_curr_party_acct_rec.attribute12 )
6286: OR ( l_temp_party_account_rec.attribute12 = fnd_api.g_miss_char ) THEN
6287: l_pty_acct_csr.old_attribute12 := NULL;
6288: l_pty_acct_csr.new_attribute12 := NULL;
6289: ELSE
6290: l_pty_acct_csr.old_attribute12 := fnd_api.g_miss_char;
6286: OR ( l_temp_party_account_rec.attribute12 = fnd_api.g_miss_char ) THEN
6287: l_pty_acct_csr.old_attribute12 := NULL;
6288: l_pty_acct_csr.new_attribute12 := NULL;
6289: ELSE
6290: l_pty_acct_csr.old_attribute12 := fnd_api.g_miss_char;
6291: l_pty_acct_csr.new_attribute12 := l_temp_party_account_rec.attribute12;
6292: END IF;
6293: ELSE
6294: l_pty_acct_csr.old_attribute12 := fnd_api.g_miss_char;
6290: l_pty_acct_csr.old_attribute12 := fnd_api.g_miss_char;
6291: l_pty_acct_csr.new_attribute12 := l_temp_party_account_rec.attribute12;
6292: END IF;
6293: ELSE
6294: l_pty_acct_csr.old_attribute12 := fnd_api.g_miss_char;
6295: l_pty_acct_csr.new_attribute12 := l_temp_party_account_rec.attribute12;
6296: END IF;
6297: --
6298: IF ( l_pty_acct_csr.old_attribute13 IS NULL
6297: --
6298: IF ( l_pty_acct_csr.old_attribute13 IS NULL
6299: AND l_pty_acct_csr.new_attribute13 IS NULL ) THEN
6300: IF ( l_temp_party_account_rec.attribute13 = l_curr_party_acct_rec.attribute13 )
6301: OR ( l_temp_party_account_rec.attribute13 = fnd_api.g_miss_char ) THEN
6302: l_pty_acct_csr.old_attribute13 := NULL;
6303: l_pty_acct_csr.new_attribute13 := NULL;
6304: ELSE
6305: l_pty_acct_csr.old_attribute13 := fnd_api.g_miss_char;
6301: OR ( l_temp_party_account_rec.attribute13 = fnd_api.g_miss_char ) THEN
6302: l_pty_acct_csr.old_attribute13 := NULL;
6303: l_pty_acct_csr.new_attribute13 := NULL;
6304: ELSE
6305: l_pty_acct_csr.old_attribute13 := fnd_api.g_miss_char;
6306: l_pty_acct_csr.new_attribute13 := l_temp_party_account_rec.attribute13;
6307: END IF;
6308: ELSE
6309: l_pty_acct_csr.old_attribute13 := fnd_api.g_miss_char;
6305: l_pty_acct_csr.old_attribute13 := fnd_api.g_miss_char;
6306: l_pty_acct_csr.new_attribute13 := l_temp_party_account_rec.attribute13;
6307: END IF;
6308: ELSE
6309: l_pty_acct_csr.old_attribute13 := fnd_api.g_miss_char;
6310: l_pty_acct_csr.new_attribute13 := l_temp_party_account_rec.attribute13;
6311: END IF;
6312: --
6313: IF ( l_pty_acct_csr.old_attribute14 IS NULL
6312: --
6313: IF ( l_pty_acct_csr.old_attribute14 IS NULL
6314: AND l_pty_acct_csr.new_attribute14 IS NULL ) THEN
6315: IF ( l_temp_party_account_rec.attribute14 = l_curr_party_acct_rec.attribute14 )
6316: OR ( l_temp_party_account_rec.attribute14 = fnd_api.g_miss_char ) THEN
6317: l_pty_acct_csr.old_attribute14 := NULL;
6318: l_pty_acct_csr.new_attribute14 := NULL;
6319: ELSE
6320: l_pty_acct_csr.old_attribute14 := fnd_api.g_miss_char;
6316: OR ( l_temp_party_account_rec.attribute14 = fnd_api.g_miss_char ) THEN
6317: l_pty_acct_csr.old_attribute14 := NULL;
6318: l_pty_acct_csr.new_attribute14 := NULL;
6319: ELSE
6320: l_pty_acct_csr.old_attribute14 := fnd_api.g_miss_char;
6321: l_pty_acct_csr.new_attribute14 := l_temp_party_account_rec.attribute14;
6322: END IF;
6323: ELSE
6324: l_pty_acct_csr.old_attribute14 := fnd_api.g_miss_char;
6320: l_pty_acct_csr.old_attribute14 := fnd_api.g_miss_char;
6321: l_pty_acct_csr.new_attribute14 := l_temp_party_account_rec.attribute14;
6322: END IF;
6323: ELSE
6324: l_pty_acct_csr.old_attribute14 := fnd_api.g_miss_char;
6325: l_pty_acct_csr.new_attribute14 := l_temp_party_account_rec.attribute14;
6326: END IF;
6327: --
6328: IF ( l_pty_acct_csr.old_attribute15 IS NULL
6327: --
6328: IF ( l_pty_acct_csr.old_attribute15 IS NULL
6329: AND l_pty_acct_csr.new_attribute15 IS NULL ) THEN
6330: IF ( l_temp_party_account_rec.attribute15 = l_curr_party_acct_rec.attribute15 )
6331: OR ( l_temp_party_account_rec.attribute15 = fnd_api.g_miss_char ) THEN
6332: l_pty_acct_csr.old_attribute15 := NULL;
6333: l_pty_acct_csr.new_attribute15 := NULL;
6334: ELSE
6335: l_pty_acct_csr.old_attribute15 := fnd_api.g_miss_char;
6331: OR ( l_temp_party_account_rec.attribute15 = fnd_api.g_miss_char ) THEN
6332: l_pty_acct_csr.old_attribute15 := NULL;
6333: l_pty_acct_csr.new_attribute15 := NULL;
6334: ELSE
6335: l_pty_acct_csr.old_attribute15 := fnd_api.g_miss_char;
6336: l_pty_acct_csr.new_attribute15 := l_temp_party_account_rec.attribute15;
6337: END IF;
6338: ELSE
6339: l_pty_acct_csr.old_attribute15 := fnd_api.g_miss_char;
6335: l_pty_acct_csr.old_attribute15 := fnd_api.g_miss_char;
6336: l_pty_acct_csr.new_attribute15 := l_temp_party_account_rec.attribute15;
6337: END IF;
6338: ELSE
6339: l_pty_acct_csr.old_attribute15 := fnd_api.g_miss_char;
6340: l_pty_acct_csr.new_attribute15 := l_temp_party_account_rec.attribute15;
6341: END IF;
6342: --
6343: IF ( l_pty_acct_csr.old_instance_party_id IS NULL
6342: --
6343: IF ( l_pty_acct_csr.old_instance_party_id IS NULL
6344: AND l_pty_acct_csr.new_instance_party_id IS NULL ) THEN
6345: IF ( l_temp_party_account_rec.instance_party_id = l_curr_party_acct_rec.instance_party_id )
6346: OR ( l_temp_party_account_rec.instance_party_id = fnd_api.g_miss_num ) THEN
6347: l_pty_acct_csr.old_instance_party_id := NULL;
6348: l_pty_acct_csr.new_instance_party_id := NULL;
6349: ELSE
6350: l_pty_acct_csr.old_instance_party_id := fnd_api.g_miss_num;
6346: OR ( l_temp_party_account_rec.instance_party_id = fnd_api.g_miss_num ) THEN
6347: l_pty_acct_csr.old_instance_party_id := NULL;
6348: l_pty_acct_csr.new_instance_party_id := NULL;
6349: ELSE
6350: l_pty_acct_csr.old_instance_party_id := fnd_api.g_miss_num;
6351: l_pty_acct_csr.new_instance_party_id := l_temp_party_account_rec.instance_party_id;
6352: END IF;
6353: ELSE
6354: l_pty_acct_csr.old_instance_party_id := fnd_api.g_miss_num;
6350: l_pty_acct_csr.old_instance_party_id := fnd_api.g_miss_num;
6351: l_pty_acct_csr.new_instance_party_id := l_temp_party_account_rec.instance_party_id;
6352: END IF;
6353: ELSE
6354: l_pty_acct_csr.old_instance_party_id := fnd_api.g_miss_num;
6355: l_pty_acct_csr.new_instance_party_id := l_temp_party_account_rec.instance_party_id;
6356: END IF;
6357:
6358: CSI_IP_ACCOUNTS_H_PKG.Update_Row
6357:
6358: CSI_IP_ACCOUNTS_H_PKG.Update_Row
6359: (
6360: p_IP_ACCOUNT_HISTORY_ID => l_ip_acct_hist_id ,
6361: p_IP_ACCOUNT_ID => fnd_api.g_miss_num ,
6362: p_TRANSACTION_ID => fnd_api.g_miss_num ,
6363: p_OLD_PARTY_ACCOUNT_ID => l_pty_acct_csr.old_party_account_id ,
6364: p_NEW_PARTY_ACCOUNT_ID => l_pty_acct_csr.NEW_PARTY_ACCOUNT_ID,
6365: p_OLD_RELATIONSHIP_TYPE_CODE => l_pty_acct_csr.old_relationship_type_code,
6358: CSI_IP_ACCOUNTS_H_PKG.Update_Row
6359: (
6360: p_IP_ACCOUNT_HISTORY_ID => l_ip_acct_hist_id ,
6361: p_IP_ACCOUNT_ID => fnd_api.g_miss_num ,
6362: p_TRANSACTION_ID => fnd_api.g_miss_num ,
6363: p_OLD_PARTY_ACCOUNT_ID => l_pty_acct_csr.old_party_account_id ,
6364: p_NEW_PARTY_ACCOUNT_ID => l_pty_acct_csr.NEW_PARTY_ACCOUNT_ID,
6365: p_OLD_RELATIONSHIP_TYPE_CODE => l_pty_acct_csr.old_relationship_type_code,
6366: p_NEW_RELATIONSHIP_TYPE_CODE => l_pty_acct_csr.NEW_RELATIONSHIP_TYPE_CODE,
6399: p_OLD_ATTRIBUTE14 => l_pty_acct_csr.old_attribute14 ,
6400: p_NEW_ATTRIBUTE14 => l_pty_acct_csr.NEW_ATTRIBUTE14 ,
6401: p_OLD_ATTRIBUTE15 => l_pty_acct_csr.old_attribute15 ,
6402: p_NEW_ATTRIBUTE15 => l_pty_acct_csr.NEW_ATTRIBUTE15 ,
6403: p_FULL_DUMP_FLAG => fnd_api.g_miss_char ,
6404: p_CREATED_BY => FND_API.G_MISS_NUM ,
6405: p_CREATION_DATE => FND_API.G_MISS_DATE ,
6406: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID ,
6407: p_LAST_UPDATE_DATE => SYSDATE ,
6400: p_NEW_ATTRIBUTE14 => l_pty_acct_csr.NEW_ATTRIBUTE14 ,
6401: p_OLD_ATTRIBUTE15 => l_pty_acct_csr.old_attribute15 ,
6402: p_NEW_ATTRIBUTE15 => l_pty_acct_csr.NEW_ATTRIBUTE15 ,
6403: p_FULL_DUMP_FLAG => fnd_api.g_miss_char ,
6404: p_CREATED_BY => FND_API.G_MISS_NUM ,
6405: p_CREATION_DATE => FND_API.G_MISS_DATE ,
6406: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID ,
6407: p_LAST_UPDATE_DATE => SYSDATE ,
6408: p_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID ,
6401: p_OLD_ATTRIBUTE15 => l_pty_acct_csr.old_attribute15 ,
6402: p_NEW_ATTRIBUTE15 => l_pty_acct_csr.NEW_ATTRIBUTE15 ,
6403: p_FULL_DUMP_FLAG => fnd_api.g_miss_char ,
6404: p_CREATED_BY => FND_API.G_MISS_NUM ,
6405: p_CREATION_DATE => FND_API.G_MISS_DATE ,
6406: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID ,
6407: p_LAST_UPDATE_DATE => SYSDATE ,
6408: p_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID ,
6409: p_OBJECT_VERSION_NUMBER => fnd_api.g_miss_num ,
6405: p_CREATION_DATE => FND_API.G_MISS_DATE ,
6406: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID ,
6407: p_LAST_UPDATE_DATE => SYSDATE ,
6408: p_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID ,
6409: p_OBJECT_VERSION_NUMBER => fnd_api.g_miss_num ,
6410: p_OLD_BILL_TO_ADDRESS => l_pty_acct_csr.old_bill_to_address ,
6411: p_NEW_BILL_TO_ADDRESS => l_pty_acct_csr.NEW_BILL_TO_ADDRESS ,
6412: p_OLD_SHIP_TO_ADDRESS => l_pty_acct_csr.old_ship_to_address ,
6413: p_NEW_SHIP_TO_ADDRESS => l_pty_acct_csr.NEW_SHIP_TO_ADDRESS,
6422: -- If the mod value is 0 then dump all the columns both changed and unchanged
6423: -- changed columns have old and new values while the unchanged values have old and new values
6424: -- exactly same
6425:
6426: IF (p_party_account_rec.instance_party_id = FND_API.G_MISS_NUM) THEN
6427: l_temp_party_account_rec.instance_party_id := l_curr_party_acct_rec.instance_party_id ;
6428: END IF;
6429: IF (p_party_account_rec.party_account_id = FND_API.G_MISS_NUM) THEN
6430: l_temp_party_account_rec.party_account_id := l_curr_party_acct_rec.party_account_id ;
6425:
6426: IF (p_party_account_rec.instance_party_id = FND_API.G_MISS_NUM) THEN
6427: l_temp_party_account_rec.instance_party_id := l_curr_party_acct_rec.instance_party_id ;
6428: END IF;
6429: IF (p_party_account_rec.party_account_id = FND_API.G_MISS_NUM) THEN
6430: l_temp_party_account_rec.party_account_id := l_curr_party_acct_rec.party_account_id ;
6431: END IF;
6432: IF (p_party_account_rec.relationship_type_code = FND_API.G_MISS_CHAR) THEN
6433: l_temp_party_account_rec.relationship_type_code := l_curr_party_acct_rec.relationship_type_code ;
6428: END IF;
6429: IF (p_party_account_rec.party_account_id = FND_API.G_MISS_NUM) THEN
6430: l_temp_party_account_rec.party_account_id := l_curr_party_acct_rec.party_account_id ;
6431: END IF;
6432: IF (p_party_account_rec.relationship_type_code = FND_API.G_MISS_CHAR) THEN
6433: l_temp_party_account_rec.relationship_type_code := l_curr_party_acct_rec.relationship_type_code ;
6434: END IF;
6435: IF (p_party_account_rec.ACTIVE_START_DATE = FND_API.G_MISS_DATE) THEN
6436: l_temp_party_account_rec.ACTIVE_START_DATE := l_curr_party_acct_rec.ACTIVE_START_DATE ;
6431: END IF;
6432: IF (p_party_account_rec.relationship_type_code = FND_API.G_MISS_CHAR) THEN
6433: l_temp_party_account_rec.relationship_type_code := l_curr_party_acct_rec.relationship_type_code ;
6434: END IF;
6435: IF (p_party_account_rec.ACTIVE_START_DATE = FND_API.G_MISS_DATE) THEN
6436: l_temp_party_account_rec.ACTIVE_START_DATE := l_curr_party_acct_rec.ACTIVE_START_DATE ;
6437: END IF;
6438: IF --(p_party_account_rec.ACTIVE_END_DATE = FND_API.G_MISS_DATE)
6439: (l_acct_end_date = FND_API.G_MISS_DATE)
6434: END IF;
6435: IF (p_party_account_rec.ACTIVE_START_DATE = FND_API.G_MISS_DATE) THEN
6436: l_temp_party_account_rec.ACTIVE_START_DATE := l_curr_party_acct_rec.ACTIVE_START_DATE ;
6437: END IF;
6438: IF --(p_party_account_rec.ACTIVE_END_DATE = FND_API.G_MISS_DATE)
6439: (l_acct_end_date = FND_API.G_MISS_DATE)
6440: THEN
6441: l_temp_party_account_rec.ACTIVE_END_DATE := l_curr_party_acct_rec.ACTIVE_END_DATE ;
6442: END IF;
6435: IF (p_party_account_rec.ACTIVE_START_DATE = FND_API.G_MISS_DATE) THEN
6436: l_temp_party_account_rec.ACTIVE_START_DATE := l_curr_party_acct_rec.ACTIVE_START_DATE ;
6437: END IF;
6438: IF --(p_party_account_rec.ACTIVE_END_DATE = FND_API.G_MISS_DATE)
6439: (l_acct_end_date = FND_API.G_MISS_DATE)
6440: THEN
6441: l_temp_party_account_rec.ACTIVE_END_DATE := l_curr_party_acct_rec.ACTIVE_END_DATE ;
6442: END IF;
6443: IF (p_party_account_rec.context = FND_API.G_MISS_CHAR) THEN
6439: (l_acct_end_date = FND_API.G_MISS_DATE)
6440: THEN
6441: l_temp_party_account_rec.ACTIVE_END_DATE := l_curr_party_acct_rec.ACTIVE_END_DATE ;
6442: END IF;
6443: IF (p_party_account_rec.context = FND_API.G_MISS_CHAR) THEN
6444: l_temp_party_account_rec.CONTEXT := l_curr_party_acct_rec.CONTEXT ;
6445: END IF;
6446: IF (p_party_account_rec.ATTRIBUTE1 = FND_API.G_MISS_CHAR) THEN
6447: l_temp_party_account_rec.ATTRIBUTE1 := l_curr_party_acct_rec.ATTRIBUTE1 ;
6442: END IF;
6443: IF (p_party_account_rec.context = FND_API.G_MISS_CHAR) THEN
6444: l_temp_party_account_rec.CONTEXT := l_curr_party_acct_rec.CONTEXT ;
6445: END IF;
6446: IF (p_party_account_rec.ATTRIBUTE1 = FND_API.G_MISS_CHAR) THEN
6447: l_temp_party_account_rec.ATTRIBUTE1 := l_curr_party_acct_rec.ATTRIBUTE1 ;
6448: END IF;
6449: IF (p_party_account_rec.ATTRIBUTE2 = FND_API.G_MISS_CHAR) THEN
6450: l_temp_party_account_rec.ATTRIBUTE2 := l_curr_party_acct_rec.ATTRIBUTE2 ;
6445: END IF;
6446: IF (p_party_account_rec.ATTRIBUTE1 = FND_API.G_MISS_CHAR) THEN
6447: l_temp_party_account_rec.ATTRIBUTE1 := l_curr_party_acct_rec.ATTRIBUTE1 ;
6448: END IF;
6449: IF (p_party_account_rec.ATTRIBUTE2 = FND_API.G_MISS_CHAR) THEN
6450: l_temp_party_account_rec.ATTRIBUTE2 := l_curr_party_acct_rec.ATTRIBUTE2 ;
6451: END IF;
6452: IF (p_party_account_rec.ATTRIBUTE3 = FND_API.G_MISS_CHAR) THEN
6453: l_temp_party_account_rec.ATTRIBUTE3 := l_curr_party_acct_rec.ATTRIBUTE3 ;
6448: END IF;
6449: IF (p_party_account_rec.ATTRIBUTE2 = FND_API.G_MISS_CHAR) THEN
6450: l_temp_party_account_rec.ATTRIBUTE2 := l_curr_party_acct_rec.ATTRIBUTE2 ;
6451: END IF;
6452: IF (p_party_account_rec.ATTRIBUTE3 = FND_API.G_MISS_CHAR) THEN
6453: l_temp_party_account_rec.ATTRIBUTE3 := l_curr_party_acct_rec.ATTRIBUTE3 ;
6454: END IF;
6455: IF (p_party_account_rec.ATTRIBUTE4 = FND_API.G_MISS_CHAR) THEN
6456: l_temp_party_account_rec.ATTRIBUTE4 := l_curr_party_acct_rec.ATTRIBUTE4 ;
6451: END IF;
6452: IF (p_party_account_rec.ATTRIBUTE3 = FND_API.G_MISS_CHAR) THEN
6453: l_temp_party_account_rec.ATTRIBUTE3 := l_curr_party_acct_rec.ATTRIBUTE3 ;
6454: END IF;
6455: IF (p_party_account_rec.ATTRIBUTE4 = FND_API.G_MISS_CHAR) THEN
6456: l_temp_party_account_rec.ATTRIBUTE4 := l_curr_party_acct_rec.ATTRIBUTE4 ;
6457: END IF;
6458: IF (p_party_account_rec.ATTRIBUTE5 = FND_API.G_MISS_CHAR) THEN
6459: l_temp_party_account_rec.ATTRIBUTE5 := l_curr_party_acct_rec.ATTRIBUTE5 ;
6454: END IF;
6455: IF (p_party_account_rec.ATTRIBUTE4 = FND_API.G_MISS_CHAR) THEN
6456: l_temp_party_account_rec.ATTRIBUTE4 := l_curr_party_acct_rec.ATTRIBUTE4 ;
6457: END IF;
6458: IF (p_party_account_rec.ATTRIBUTE5 = FND_API.G_MISS_CHAR) THEN
6459: l_temp_party_account_rec.ATTRIBUTE5 := l_curr_party_acct_rec.ATTRIBUTE5 ;
6460: END IF;
6461: IF (p_party_account_rec.ATTRIBUTE6 = FND_API.G_MISS_CHAR) THEN
6462: l_temp_party_account_rec.ATTRIBUTE6 := l_curr_party_acct_rec.ATTRIBUTE6 ;
6457: END IF;
6458: IF (p_party_account_rec.ATTRIBUTE5 = FND_API.G_MISS_CHAR) THEN
6459: l_temp_party_account_rec.ATTRIBUTE5 := l_curr_party_acct_rec.ATTRIBUTE5 ;
6460: END IF;
6461: IF (p_party_account_rec.ATTRIBUTE6 = FND_API.G_MISS_CHAR) THEN
6462: l_temp_party_account_rec.ATTRIBUTE6 := l_curr_party_acct_rec.ATTRIBUTE6 ;
6463: END IF;
6464: IF (p_party_account_rec.ATTRIBUTE7 = FND_API.G_MISS_CHAR) THEN
6465: l_temp_party_account_rec.ATTRIBUTE7 := l_curr_party_acct_rec.ATTRIBUTE7 ;
6460: END IF;
6461: IF (p_party_account_rec.ATTRIBUTE6 = FND_API.G_MISS_CHAR) THEN
6462: l_temp_party_account_rec.ATTRIBUTE6 := l_curr_party_acct_rec.ATTRIBUTE6 ;
6463: END IF;
6464: IF (p_party_account_rec.ATTRIBUTE7 = FND_API.G_MISS_CHAR) THEN
6465: l_temp_party_account_rec.ATTRIBUTE7 := l_curr_party_acct_rec.ATTRIBUTE7 ;
6466: END IF;
6467: IF (p_party_account_rec.ATTRIBUTE8 = FND_API.G_MISS_CHAR) THEN
6468: l_temp_party_account_rec.ATTRIBUTE8 := l_curr_party_acct_rec.ATTRIBUTE8 ;
6463: END IF;
6464: IF (p_party_account_rec.ATTRIBUTE7 = FND_API.G_MISS_CHAR) THEN
6465: l_temp_party_account_rec.ATTRIBUTE7 := l_curr_party_acct_rec.ATTRIBUTE7 ;
6466: END IF;
6467: IF (p_party_account_rec.ATTRIBUTE8 = FND_API.G_MISS_CHAR) THEN
6468: l_temp_party_account_rec.ATTRIBUTE8 := l_curr_party_acct_rec.ATTRIBUTE8 ;
6469: END IF;
6470: IF (p_party_account_rec.ATTRIBUTE9 = FND_API.G_MISS_CHAR) THEN
6471: l_temp_party_account_rec.ATTRIBUTE9 := l_curr_party_acct_rec.ATTRIBUTE9 ;
6466: END IF;
6467: IF (p_party_account_rec.ATTRIBUTE8 = FND_API.G_MISS_CHAR) THEN
6468: l_temp_party_account_rec.ATTRIBUTE8 := l_curr_party_acct_rec.ATTRIBUTE8 ;
6469: END IF;
6470: IF (p_party_account_rec.ATTRIBUTE9 = FND_API.G_MISS_CHAR) THEN
6471: l_temp_party_account_rec.ATTRIBUTE9 := l_curr_party_acct_rec.ATTRIBUTE9 ;
6472: END IF;
6473: IF (p_party_account_rec.ATTRIBUTE10 = FND_API.G_MISS_CHAR) THEN
6474: l_temp_party_account_rec.ATTRIBUTE10 := l_curr_party_acct_rec.ATTRIBUTE10 ;
6469: END IF;
6470: IF (p_party_account_rec.ATTRIBUTE9 = FND_API.G_MISS_CHAR) THEN
6471: l_temp_party_account_rec.ATTRIBUTE9 := l_curr_party_acct_rec.ATTRIBUTE9 ;
6472: END IF;
6473: IF (p_party_account_rec.ATTRIBUTE10 = FND_API.G_MISS_CHAR) THEN
6474: l_temp_party_account_rec.ATTRIBUTE10 := l_curr_party_acct_rec.ATTRIBUTE10 ;
6475: END IF;
6476: IF (p_party_account_rec.ATTRIBUTE11 = FND_API.G_MISS_CHAR) THEN
6477: l_temp_party_account_rec.ATTRIBUTE11 := l_curr_party_acct_rec.ATTRIBUTE11 ;
6472: END IF;
6473: IF (p_party_account_rec.ATTRIBUTE10 = FND_API.G_MISS_CHAR) THEN
6474: l_temp_party_account_rec.ATTRIBUTE10 := l_curr_party_acct_rec.ATTRIBUTE10 ;
6475: END IF;
6476: IF (p_party_account_rec.ATTRIBUTE11 = FND_API.G_MISS_CHAR) THEN
6477: l_temp_party_account_rec.ATTRIBUTE11 := l_curr_party_acct_rec.ATTRIBUTE11 ;
6478: END IF;
6479: IF (p_party_account_rec.ATTRIBUTE12 = FND_API.G_MISS_CHAR) THEN
6480: l_temp_party_account_rec.ATTRIBUTE12 := l_curr_party_acct_rec.ATTRIBUTE12 ;
6475: END IF;
6476: IF (p_party_account_rec.ATTRIBUTE11 = FND_API.G_MISS_CHAR) THEN
6477: l_temp_party_account_rec.ATTRIBUTE11 := l_curr_party_acct_rec.ATTRIBUTE11 ;
6478: END IF;
6479: IF (p_party_account_rec.ATTRIBUTE12 = FND_API.G_MISS_CHAR) THEN
6480: l_temp_party_account_rec.ATTRIBUTE12 := l_curr_party_acct_rec.ATTRIBUTE12 ;
6481: END IF;
6482: IF (p_party_account_rec.ATTRIBUTE13 = FND_API.G_MISS_CHAR) THEN
6483: l_temp_party_account_rec.ATTRIBUTE13 := l_curr_party_acct_rec.ATTRIBUTE13 ;
6478: END IF;
6479: IF (p_party_account_rec.ATTRIBUTE12 = FND_API.G_MISS_CHAR) THEN
6480: l_temp_party_account_rec.ATTRIBUTE12 := l_curr_party_acct_rec.ATTRIBUTE12 ;
6481: END IF;
6482: IF (p_party_account_rec.ATTRIBUTE13 = FND_API.G_MISS_CHAR) THEN
6483: l_temp_party_account_rec.ATTRIBUTE13 := l_curr_party_acct_rec.ATTRIBUTE13 ;
6484: END IF;
6485: IF (p_party_account_rec.ATTRIBUTE14 = FND_API.G_MISS_CHAR) THEN
6486: l_temp_party_account_rec.ATTRIBUTE14 := l_curr_party_acct_rec.ATTRIBUTE14 ;
6481: END IF;
6482: IF (p_party_account_rec.ATTRIBUTE13 = FND_API.G_MISS_CHAR) THEN
6483: l_temp_party_account_rec.ATTRIBUTE13 := l_curr_party_acct_rec.ATTRIBUTE13 ;
6484: END IF;
6485: IF (p_party_account_rec.ATTRIBUTE14 = FND_API.G_MISS_CHAR) THEN
6486: l_temp_party_account_rec.ATTRIBUTE14 := l_curr_party_acct_rec.ATTRIBUTE14 ;
6487: END IF;
6488: IF (p_party_account_rec.ATTRIBUTE15 = FND_API.G_MISS_CHAR) THEN
6489: l_temp_party_account_rec.ATTRIBUTE15 := l_curr_party_acct_rec.ATTRIBUTE15 ;
6484: END IF;
6485: IF (p_party_account_rec.ATTRIBUTE14 = FND_API.G_MISS_CHAR) THEN
6486: l_temp_party_account_rec.ATTRIBUTE14 := l_curr_party_acct_rec.ATTRIBUTE14 ;
6487: END IF;
6488: IF (p_party_account_rec.ATTRIBUTE15 = FND_API.G_MISS_CHAR) THEN
6489: l_temp_party_account_rec.ATTRIBUTE15 := l_curr_party_acct_rec.ATTRIBUTE15 ;
6490: END IF;
6491:
6492: -- Call table handlers to insert into csi_i_parties_h table
6551:
6552: ELSE
6553: -- If the mod value is not equal to zero then dump only the changed columns
6554: -- while the unchanged values have old and new values as null
6555: IF (p_party_account_rec.party_account_id = fnd_api.g_miss_num) OR
6556: 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
6557: l_account_hist_rec.old_party_account_id := NULL;
6558: l_account_hist_rec.new_party_account_id := NULL;
6559: ELSIF
6552: ELSE
6553: -- If the mod value is not equal to zero then dump only the changed columns
6554: -- while the unchanged values have old and new values as null
6555: IF (p_party_account_rec.party_account_id = fnd_api.g_miss_num) OR
6556: 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
6557: l_account_hist_rec.old_party_account_id := NULL;
6558: l_account_hist_rec.new_party_account_id := NULL;
6559: ELSIF
6560: 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
6556: 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
6557: l_account_hist_rec.old_party_account_id := NULL;
6558: l_account_hist_rec.new_party_account_id := NULL;
6559: ELSIF
6560: 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
6561: l_account_hist_rec.old_party_account_id := l_curr_party_acct_rec.party_account_id ;
6562: l_account_hist_rec.new_party_account_id := p_party_account_rec.party_account_id ;
6563: END IF;
6564: --
6561: l_account_hist_rec.old_party_account_id := l_curr_party_acct_rec.party_account_id ;
6562: l_account_hist_rec.new_party_account_id := p_party_account_rec.party_account_id ;
6563: END IF;
6564: --
6565: IF (p_party_account_rec.relationship_type_code = fnd_api.g_miss_char) OR
6566: 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
6567: l_account_hist_rec.old_relationship_type_code := NULL;
6568: l_account_hist_rec.new_relationship_type_code := NULL;
6569: ELSIF
6562: l_account_hist_rec.new_party_account_id := p_party_account_rec.party_account_id ;
6563: END IF;
6564: --
6565: IF (p_party_account_rec.relationship_type_code = fnd_api.g_miss_char) OR
6566: 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
6567: l_account_hist_rec.old_relationship_type_code := NULL;
6568: l_account_hist_rec.new_relationship_type_code := NULL;
6569: ELSIF
6570: 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
6566: 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
6567: l_account_hist_rec.old_relationship_type_code := NULL;
6568: l_account_hist_rec.new_relationship_type_code := NULL;
6569: ELSIF
6570: 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
6571: l_account_hist_rec.old_relationship_type_code := l_curr_party_acct_rec.relationship_type_code ;
6572: l_account_hist_rec.new_relationship_type_code := p_party_account_rec.relationship_type_code ;
6573: END IF;
6574: --
6571: l_account_hist_rec.old_relationship_type_code := l_curr_party_acct_rec.relationship_type_code ;
6572: l_account_hist_rec.new_relationship_type_code := p_party_account_rec.relationship_type_code ;
6573: END IF;
6574: --
6575: IF (p_party_account_rec.bill_to_address = fnd_api.g_miss_num) OR
6576: 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
6577: l_account_hist_rec.old_bill_to_address := NULL;
6578: l_account_hist_rec.new_bill_to_address := NULL;
6579: ELSIF
6572: l_account_hist_rec.new_relationship_type_code := p_party_account_rec.relationship_type_code ;
6573: END IF;
6574: --
6575: IF (p_party_account_rec.bill_to_address = fnd_api.g_miss_num) OR
6576: 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
6577: l_account_hist_rec.old_bill_to_address := NULL;
6578: l_account_hist_rec.new_bill_to_address := NULL;
6579: ELSIF
6580: 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
6576: 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
6577: l_account_hist_rec.old_bill_to_address := NULL;
6578: l_account_hist_rec.new_bill_to_address := NULL;
6579: ELSIF
6580: 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
6581: l_account_hist_rec.old_bill_to_address := l_curr_party_acct_rec.bill_to_address ;
6582: l_account_hist_rec.new_bill_to_address := p_party_account_rec.bill_to_address ;
6583: END IF;
6584: --
6581: l_account_hist_rec.old_bill_to_address := l_curr_party_acct_rec.bill_to_address ;
6582: l_account_hist_rec.new_bill_to_address := p_party_account_rec.bill_to_address ;
6583: END IF;
6584: --
6585: IF (p_party_account_rec.ship_to_address = fnd_api.g_miss_num) OR
6586: 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
6587: l_account_hist_rec.old_ship_to_address := NULL;
6588: l_account_hist_rec.new_ship_to_address := NULL;
6589: ELSIF
6582: l_account_hist_rec.new_bill_to_address := p_party_account_rec.bill_to_address ;
6583: END IF;
6584: --
6585: IF (p_party_account_rec.ship_to_address = fnd_api.g_miss_num) OR
6586: 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
6587: l_account_hist_rec.old_ship_to_address := NULL;
6588: l_account_hist_rec.new_ship_to_address := NULL;
6589: ELSIF
6590: 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
6586: 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
6587: l_account_hist_rec.old_ship_to_address := NULL;
6588: l_account_hist_rec.new_ship_to_address := NULL;
6589: ELSIF
6590: 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
6591: l_account_hist_rec.old_ship_to_address := l_curr_party_acct_rec.ship_to_address ;
6592: l_account_hist_rec.new_ship_to_address := p_party_account_rec.ship_to_address ;
6593: END IF;
6594: --
6591: l_account_hist_rec.old_ship_to_address := l_curr_party_acct_rec.ship_to_address ;
6592: l_account_hist_rec.new_ship_to_address := p_party_account_rec.ship_to_address ;
6593: END IF;
6594: --
6595: IF (p_party_account_rec.active_start_date = fnd_api.g_miss_date) OR
6596: 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
6597: l_account_hist_rec.old_active_start_date := NULL;
6598: l_account_hist_rec.new_active_start_date := NULL;
6599: ELSIF
6592: l_account_hist_rec.new_ship_to_address := p_party_account_rec.ship_to_address ;
6593: END IF;
6594: --
6595: IF (p_party_account_rec.active_start_date = fnd_api.g_miss_date) OR
6596: 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
6597: l_account_hist_rec.old_active_start_date := NULL;
6598: l_account_hist_rec.new_active_start_date := NULL;
6599: ELSIF
6600: 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
6596: 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
6597: l_account_hist_rec.old_active_start_date := NULL;
6598: l_account_hist_rec.new_active_start_date := NULL;
6599: ELSIF
6600: 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
6601: l_account_hist_rec.old_active_start_date := l_curr_party_acct_rec.active_start_date ;
6602: l_account_hist_rec.new_active_start_date := p_party_account_rec.active_start_date ;
6603: END IF;
6604: --
6601: l_account_hist_rec.old_active_start_date := l_curr_party_acct_rec.active_start_date ;
6602: l_account_hist_rec.new_active_start_date := p_party_account_rec.active_start_date ;
6603: END IF;
6604: --
6605: IF --(p_party_account_rec.active_end_date = fnd_api.g_miss_date) OR
6606: (l_acct_end_date= fnd_api.g_miss_date) OR
6607: --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
6608: 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
6609: l_account_hist_rec.old_active_end_date := NULL;
6602: l_account_hist_rec.new_active_start_date := p_party_account_rec.active_start_date ;
6603: END IF;
6604: --
6605: IF --(p_party_account_rec.active_end_date = fnd_api.g_miss_date) OR
6606: (l_acct_end_date= fnd_api.g_miss_date) OR
6607: --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
6608: 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
6609: l_account_hist_rec.old_active_end_date := NULL;
6610: l_account_hist_rec.new_active_end_date := NULL;
6603: END IF;
6604: --
6605: IF --(p_party_account_rec.active_end_date = fnd_api.g_miss_date) OR
6606: (l_acct_end_date= fnd_api.g_miss_date) OR
6607: --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
6608: 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
6609: l_account_hist_rec.old_active_end_date := NULL;
6610: l_account_hist_rec.new_active_end_date := NULL;
6611: ELSIF
6604: --
6605: IF --(p_party_account_rec.active_end_date = fnd_api.g_miss_date) OR
6606: (l_acct_end_date= fnd_api.g_miss_date) OR
6607: --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
6608: 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
6609: l_account_hist_rec.old_active_end_date := NULL;
6610: l_account_hist_rec.new_active_end_date := NULL;
6611: ELSIF
6612: --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
6608: 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
6609: l_account_hist_rec.old_active_end_date := NULL;
6610: l_account_hist_rec.new_active_end_date := NULL;
6611: ELSIF
6612: --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
6613: 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
6614: l_account_hist_rec.old_active_end_date := l_curr_party_acct_rec.active_end_date ;
6615: l_account_hist_rec.new_active_end_date := l_acct_end_date; --p_party_account_rec.active_end_date ;
6616: END IF;
6609: l_account_hist_rec.old_active_end_date := NULL;
6610: l_account_hist_rec.new_active_end_date := NULL;
6611: ELSIF
6612: --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
6613: 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
6614: l_account_hist_rec.old_active_end_date := l_curr_party_acct_rec.active_end_date ;
6615: l_account_hist_rec.new_active_end_date := l_acct_end_date; --p_party_account_rec.active_end_date ;
6616: END IF;
6617: --
6614: l_account_hist_rec.old_active_end_date := l_curr_party_acct_rec.active_end_date ;
6615: l_account_hist_rec.new_active_end_date := l_acct_end_date; --p_party_account_rec.active_end_date ;
6616: END IF;
6617: --
6618: IF (p_party_account_rec.context = fnd_api.g_miss_char) OR
6619: NVL(p_party_account_rec.context, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.context, fnd_api.g_miss_char) THEN
6620: l_account_hist_rec.old_context := NULL;
6621: l_account_hist_rec.new_context := NULL;
6622: ELSIF
6615: l_account_hist_rec.new_active_end_date := l_acct_end_date; --p_party_account_rec.active_end_date ;
6616: END IF;
6617: --
6618: IF (p_party_account_rec.context = fnd_api.g_miss_char) OR
6619: NVL(p_party_account_rec.context, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.context, fnd_api.g_miss_char) THEN
6620: l_account_hist_rec.old_context := NULL;
6621: l_account_hist_rec.new_context := NULL;
6622: ELSIF
6623: NVL(l_curr_party_acct_rec.context,fnd_api.g_miss_char) <> NVL(p_party_account_rec.context,fnd_api.g_miss_char) THEN
6619: NVL(p_party_account_rec.context, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.context, fnd_api.g_miss_char) THEN
6620: l_account_hist_rec.old_context := NULL;
6621: l_account_hist_rec.new_context := NULL;
6622: ELSIF
6623: NVL(l_curr_party_acct_rec.context,fnd_api.g_miss_char) <> NVL(p_party_account_rec.context,fnd_api.g_miss_char) THEN
6624: l_account_hist_rec.old_context := l_curr_party_acct_rec.context ;
6625: l_account_hist_rec.new_context := p_party_account_rec.context ;
6626: END IF;
6627: --
6624: l_account_hist_rec.old_context := l_curr_party_acct_rec.context ;
6625: l_account_hist_rec.new_context := p_party_account_rec.context ;
6626: END IF;
6627: --
6628: IF (p_party_account_rec.attribute1 = fnd_api.g_miss_char) OR
6629: NVL(p_party_account_rec.attribute1, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute1, fnd_api.g_miss_char) THEN
6630: l_account_hist_rec.old_attribute1 := NULL;
6631: l_account_hist_rec.new_attribute1 := NULL;
6632: ELSIF
6625: l_account_hist_rec.new_context := p_party_account_rec.context ;
6626: END IF;
6627: --
6628: IF (p_party_account_rec.attribute1 = fnd_api.g_miss_char) OR
6629: NVL(p_party_account_rec.attribute1, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute1, fnd_api.g_miss_char) THEN
6630: l_account_hist_rec.old_attribute1 := NULL;
6631: l_account_hist_rec.new_attribute1 := NULL;
6632: ELSIF
6633: NVL(l_curr_party_acct_rec.attribute1,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute1,fnd_api.g_miss_char) THEN
6629: NVL(p_party_account_rec.attribute1, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute1, fnd_api.g_miss_char) THEN
6630: l_account_hist_rec.old_attribute1 := NULL;
6631: l_account_hist_rec.new_attribute1 := NULL;
6632: ELSIF
6633: NVL(l_curr_party_acct_rec.attribute1,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute1,fnd_api.g_miss_char) THEN
6634: l_account_hist_rec.old_attribute1 := l_curr_party_acct_rec.attribute1 ;
6635: l_account_hist_rec.new_attribute1 := p_party_account_rec.attribute1 ;
6636: END IF;
6637: --
6634: l_account_hist_rec.old_attribute1 := l_curr_party_acct_rec.attribute1 ;
6635: l_account_hist_rec.new_attribute1 := p_party_account_rec.attribute1 ;
6636: END IF;
6637: --
6638: IF (p_party_account_rec.attribute2 = fnd_api.g_miss_char) OR
6639: NVL(p_party_account_rec.attribute2, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute2, fnd_api.g_miss_char) THEN
6640: l_account_hist_rec.old_attribute2 := NULL;
6641: l_account_hist_rec.new_attribute2 := NULL;
6642: ELSIF
6635: l_account_hist_rec.new_attribute1 := p_party_account_rec.attribute1 ;
6636: END IF;
6637: --
6638: IF (p_party_account_rec.attribute2 = fnd_api.g_miss_char) OR
6639: NVL(p_party_account_rec.attribute2, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute2, fnd_api.g_miss_char) THEN
6640: l_account_hist_rec.old_attribute2 := NULL;
6641: l_account_hist_rec.new_attribute2 := NULL;
6642: ELSIF
6643: NVL(l_curr_party_acct_rec.attribute2,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute2,fnd_api.g_miss_char) THEN
6639: NVL(p_party_account_rec.attribute2, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute2, fnd_api.g_miss_char) THEN
6640: l_account_hist_rec.old_attribute2 := NULL;
6641: l_account_hist_rec.new_attribute2 := NULL;
6642: ELSIF
6643: NVL(l_curr_party_acct_rec.attribute2,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute2,fnd_api.g_miss_char) THEN
6644: l_account_hist_rec.old_attribute2 := l_curr_party_acct_rec.attribute2 ;
6645: l_account_hist_rec.new_attribute2 := p_party_account_rec.attribute2 ;
6646: END IF;
6647: --
6644: l_account_hist_rec.old_attribute2 := l_curr_party_acct_rec.attribute2 ;
6645: l_account_hist_rec.new_attribute2 := p_party_account_rec.attribute2 ;
6646: END IF;
6647: --
6648: IF (p_party_account_rec.attribute3 = fnd_api.g_miss_char) OR
6649: NVL(p_party_account_rec.attribute3, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute3, fnd_api.g_miss_char) THEN
6650: l_account_hist_rec.old_attribute3 := NULL;
6651: l_account_hist_rec.new_attribute3 := NULL;
6652: ELSIF
6645: l_account_hist_rec.new_attribute2 := p_party_account_rec.attribute2 ;
6646: END IF;
6647: --
6648: IF (p_party_account_rec.attribute3 = fnd_api.g_miss_char) OR
6649: NVL(p_party_account_rec.attribute3, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute3, fnd_api.g_miss_char) THEN
6650: l_account_hist_rec.old_attribute3 := NULL;
6651: l_account_hist_rec.new_attribute3 := NULL;
6652: ELSIF
6653: NVL(l_curr_party_acct_rec.attribute3,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute3,fnd_api.g_miss_char) THEN
6649: NVL(p_party_account_rec.attribute3, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute3, fnd_api.g_miss_char) THEN
6650: l_account_hist_rec.old_attribute3 := NULL;
6651: l_account_hist_rec.new_attribute3 := NULL;
6652: ELSIF
6653: NVL(l_curr_party_acct_rec.attribute3,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute3,fnd_api.g_miss_char) THEN
6654: l_account_hist_rec.old_attribute3 := l_curr_party_acct_rec.attribute3 ;
6655: l_account_hist_rec.new_attribute3 := p_party_account_rec.attribute3 ;
6656: END IF;
6657: --
6654: l_account_hist_rec.old_attribute3 := l_curr_party_acct_rec.attribute3 ;
6655: l_account_hist_rec.new_attribute3 := p_party_account_rec.attribute3 ;
6656: END IF;
6657: --
6658: IF (p_party_account_rec.attribute4 = fnd_api.g_miss_char) OR
6659: NVL(p_party_account_rec.attribute4, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute4, fnd_api.g_miss_char) THEN
6660: l_account_hist_rec.old_attribute4 := NULL;
6661: l_account_hist_rec.new_attribute4 := NULL;
6662: ELSIF
6655: l_account_hist_rec.new_attribute3 := p_party_account_rec.attribute3 ;
6656: END IF;
6657: --
6658: IF (p_party_account_rec.attribute4 = fnd_api.g_miss_char) OR
6659: NVL(p_party_account_rec.attribute4, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute4, fnd_api.g_miss_char) THEN
6660: l_account_hist_rec.old_attribute4 := NULL;
6661: l_account_hist_rec.new_attribute4 := NULL;
6662: ELSIF
6663: NVL(l_curr_party_acct_rec.attribute4,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute4,fnd_api.g_miss_char) THEN
6659: NVL(p_party_account_rec.attribute4, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute4, fnd_api.g_miss_char) THEN
6660: l_account_hist_rec.old_attribute4 := NULL;
6661: l_account_hist_rec.new_attribute4 := NULL;
6662: ELSIF
6663: NVL(l_curr_party_acct_rec.attribute4,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute4,fnd_api.g_miss_char) THEN
6664: l_account_hist_rec.old_attribute4 := l_curr_party_acct_rec.attribute4 ;
6665: l_account_hist_rec.new_attribute4 := p_party_account_rec.attribute4 ;
6666: END IF;
6667: --
6664: l_account_hist_rec.old_attribute4 := l_curr_party_acct_rec.attribute4 ;
6665: l_account_hist_rec.new_attribute4 := p_party_account_rec.attribute4 ;
6666: END IF;
6667: --
6668: IF (p_party_account_rec.attribute5 = fnd_api.g_miss_char) OR
6669: NVL(p_party_account_rec.attribute5, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute5, fnd_api.g_miss_char) THEN
6670: l_account_hist_rec.old_attribute5 := NULL;
6671: l_account_hist_rec.new_attribute5 := NULL;
6672: ELSIF
6665: l_account_hist_rec.new_attribute4 := p_party_account_rec.attribute4 ;
6666: END IF;
6667: --
6668: IF (p_party_account_rec.attribute5 = fnd_api.g_miss_char) OR
6669: NVL(p_party_account_rec.attribute5, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute5, fnd_api.g_miss_char) THEN
6670: l_account_hist_rec.old_attribute5 := NULL;
6671: l_account_hist_rec.new_attribute5 := NULL;
6672: ELSIF
6673: NVL(l_curr_party_acct_rec.attribute5,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute5,fnd_api.g_miss_char) THEN
6669: NVL(p_party_account_rec.attribute5, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute5, fnd_api.g_miss_char) THEN
6670: l_account_hist_rec.old_attribute5 := NULL;
6671: l_account_hist_rec.new_attribute5 := NULL;
6672: ELSIF
6673: NVL(l_curr_party_acct_rec.attribute5,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute5,fnd_api.g_miss_char) THEN
6674: l_account_hist_rec.old_attribute5 := l_curr_party_acct_rec.attribute5 ;
6675: l_account_hist_rec.new_attribute5 := p_party_account_rec.attribute5 ;
6676: END IF;
6677: --
6674: l_account_hist_rec.old_attribute5 := l_curr_party_acct_rec.attribute5 ;
6675: l_account_hist_rec.new_attribute5 := p_party_account_rec.attribute5 ;
6676: END IF;
6677: --
6678: IF (p_party_account_rec.attribute6 = fnd_api.g_miss_char) OR
6679: NVL(p_party_account_rec.attribute6, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute6, fnd_api.g_miss_char) THEN
6680: l_account_hist_rec.old_attribute6 := NULL;
6681: l_account_hist_rec.new_attribute6 := NULL;
6682: ELSIF
6675: l_account_hist_rec.new_attribute5 := p_party_account_rec.attribute5 ;
6676: END IF;
6677: --
6678: IF (p_party_account_rec.attribute6 = fnd_api.g_miss_char) OR
6679: NVL(p_party_account_rec.attribute6, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute6, fnd_api.g_miss_char) THEN
6680: l_account_hist_rec.old_attribute6 := NULL;
6681: l_account_hist_rec.new_attribute6 := NULL;
6682: ELSIF
6683: NVL(l_curr_party_acct_rec.attribute6,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute6,fnd_api.g_miss_char) THEN
6679: NVL(p_party_account_rec.attribute6, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute6, fnd_api.g_miss_char) THEN
6680: l_account_hist_rec.old_attribute6 := NULL;
6681: l_account_hist_rec.new_attribute6 := NULL;
6682: ELSIF
6683: NVL(l_curr_party_acct_rec.attribute6,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute6,fnd_api.g_miss_char) THEN
6684: l_account_hist_rec.old_attribute6 := l_curr_party_acct_rec.attribute6 ;
6685: l_account_hist_rec.new_attribute6 := p_party_account_rec.attribute6 ;
6686: END IF;
6687: --
6684: l_account_hist_rec.old_attribute6 := l_curr_party_acct_rec.attribute6 ;
6685: l_account_hist_rec.new_attribute6 := p_party_account_rec.attribute6 ;
6686: END IF;
6687: --
6688: IF (p_party_account_rec.attribute7 = fnd_api.g_miss_char) OR
6689: NVL(p_party_account_rec.attribute7, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute7, fnd_api.g_miss_char) THEN
6690: l_account_hist_rec.old_attribute7 := NULL;
6691: l_account_hist_rec.new_attribute7 := NULL;
6692: ELSIF
6685: l_account_hist_rec.new_attribute6 := p_party_account_rec.attribute6 ;
6686: END IF;
6687: --
6688: IF (p_party_account_rec.attribute7 = fnd_api.g_miss_char) OR
6689: NVL(p_party_account_rec.attribute7, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute7, fnd_api.g_miss_char) THEN
6690: l_account_hist_rec.old_attribute7 := NULL;
6691: l_account_hist_rec.new_attribute7 := NULL;
6692: ELSIF
6693: NVL(l_curr_party_acct_rec.attribute7,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute7,fnd_api.g_miss_char) THEN
6689: NVL(p_party_account_rec.attribute7, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute7, fnd_api.g_miss_char) THEN
6690: l_account_hist_rec.old_attribute7 := NULL;
6691: l_account_hist_rec.new_attribute7 := NULL;
6692: ELSIF
6693: NVL(l_curr_party_acct_rec.attribute7,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute7,fnd_api.g_miss_char) THEN
6694: l_account_hist_rec.old_attribute7 := l_curr_party_acct_rec.attribute7 ;
6695: l_account_hist_rec.new_attribute7 := p_party_account_rec.attribute7 ;
6696: END IF;
6697: --
6694: l_account_hist_rec.old_attribute7 := l_curr_party_acct_rec.attribute7 ;
6695: l_account_hist_rec.new_attribute7 := p_party_account_rec.attribute7 ;
6696: END IF;
6697: --
6698: IF (p_party_account_rec.attribute8 = fnd_api.g_miss_char) OR
6699: NVL(p_party_account_rec.attribute8, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute8, fnd_api.g_miss_char) THEN
6700: l_account_hist_rec.old_attribute8 := NULL;
6701: l_account_hist_rec.new_attribute8 := NULL;
6702: ELSIF
6695: l_account_hist_rec.new_attribute7 := p_party_account_rec.attribute7 ;
6696: END IF;
6697: --
6698: IF (p_party_account_rec.attribute8 = fnd_api.g_miss_char) OR
6699: NVL(p_party_account_rec.attribute8, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute8, fnd_api.g_miss_char) THEN
6700: l_account_hist_rec.old_attribute8 := NULL;
6701: l_account_hist_rec.new_attribute8 := NULL;
6702: ELSIF
6703: NVL(l_curr_party_acct_rec.attribute8,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute8,fnd_api.g_miss_char) THEN
6699: NVL(p_party_account_rec.attribute8, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute8, fnd_api.g_miss_char) THEN
6700: l_account_hist_rec.old_attribute8 := NULL;
6701: l_account_hist_rec.new_attribute8 := NULL;
6702: ELSIF
6703: NVL(l_curr_party_acct_rec.attribute8,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute8,fnd_api.g_miss_char) THEN
6704: l_account_hist_rec.old_attribute8 := l_curr_party_acct_rec.attribute8 ;
6705: l_account_hist_rec.new_attribute8 := p_party_account_rec.attribute8 ;
6706: END IF;
6707: --
6704: l_account_hist_rec.old_attribute8 := l_curr_party_acct_rec.attribute8 ;
6705: l_account_hist_rec.new_attribute8 := p_party_account_rec.attribute8 ;
6706: END IF;
6707: --
6708: IF (p_party_account_rec.attribute9 = fnd_api.g_miss_char) OR
6709: NVL(p_party_account_rec.attribute9, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute9, fnd_api.g_miss_char) THEN
6710: l_account_hist_rec.old_attribute9 := NULL;
6711: l_account_hist_rec.new_attribute9 := NULL;
6712: ELSIF
6705: l_account_hist_rec.new_attribute8 := p_party_account_rec.attribute8 ;
6706: END IF;
6707: --
6708: IF (p_party_account_rec.attribute9 = fnd_api.g_miss_char) OR
6709: NVL(p_party_account_rec.attribute9, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute9, fnd_api.g_miss_char) THEN
6710: l_account_hist_rec.old_attribute9 := NULL;
6711: l_account_hist_rec.new_attribute9 := NULL;
6712: ELSIF
6713: NVL(l_curr_party_acct_rec.attribute9,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute9,fnd_api.g_miss_char) THEN
6709: NVL(p_party_account_rec.attribute9, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute9, fnd_api.g_miss_char) THEN
6710: l_account_hist_rec.old_attribute9 := NULL;
6711: l_account_hist_rec.new_attribute9 := NULL;
6712: ELSIF
6713: NVL(l_curr_party_acct_rec.attribute9,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute9,fnd_api.g_miss_char) THEN
6714: l_account_hist_rec.old_attribute9 := l_curr_party_acct_rec.attribute9 ;
6715: l_account_hist_rec.new_attribute9 := p_party_account_rec.attribute9 ;
6716: END IF;
6717: --
6714: l_account_hist_rec.old_attribute9 := l_curr_party_acct_rec.attribute9 ;
6715: l_account_hist_rec.new_attribute9 := p_party_account_rec.attribute9 ;
6716: END IF;
6717: --
6718: IF (p_party_account_rec.attribute10 = fnd_api.g_miss_char) OR
6719: NVL(p_party_account_rec.attribute10, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute10, fnd_api.g_miss_char) THEN
6720: l_account_hist_rec.old_attribute10 := NULL;
6721: l_account_hist_rec.new_attribute10 := NULL;
6722: ELSIF
6715: l_account_hist_rec.new_attribute9 := p_party_account_rec.attribute9 ;
6716: END IF;
6717: --
6718: IF (p_party_account_rec.attribute10 = fnd_api.g_miss_char) OR
6719: NVL(p_party_account_rec.attribute10, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute10, fnd_api.g_miss_char) THEN
6720: l_account_hist_rec.old_attribute10 := NULL;
6721: l_account_hist_rec.new_attribute10 := NULL;
6722: ELSIF
6723: NVL(l_curr_party_acct_rec.attribute10,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute10,fnd_api.g_miss_char) THEN
6719: NVL(p_party_account_rec.attribute10, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute10, fnd_api.g_miss_char) THEN
6720: l_account_hist_rec.old_attribute10 := NULL;
6721: l_account_hist_rec.new_attribute10 := NULL;
6722: ELSIF
6723: NVL(l_curr_party_acct_rec.attribute10,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute10,fnd_api.g_miss_char) THEN
6724: l_account_hist_rec.old_attribute10 := l_curr_party_acct_rec.attribute10 ;
6725: l_account_hist_rec.new_attribute10 := p_party_account_rec.attribute10 ;
6726: END IF;
6727: --
6724: l_account_hist_rec.old_attribute10 := l_curr_party_acct_rec.attribute10 ;
6725: l_account_hist_rec.new_attribute10 := p_party_account_rec.attribute10 ;
6726: END IF;
6727: --
6728: IF (p_party_account_rec.attribute11 = fnd_api.g_miss_char) OR
6729: NVL(p_party_account_rec.attribute11, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute11, fnd_api.g_miss_char) THEN
6730: l_account_hist_rec.old_attribute11 := NULL;
6731: l_account_hist_rec.new_attribute11 := NULL;
6732: ELSIF
6725: l_account_hist_rec.new_attribute10 := p_party_account_rec.attribute10 ;
6726: END IF;
6727: --
6728: IF (p_party_account_rec.attribute11 = fnd_api.g_miss_char) OR
6729: NVL(p_party_account_rec.attribute11, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute11, fnd_api.g_miss_char) THEN
6730: l_account_hist_rec.old_attribute11 := NULL;
6731: l_account_hist_rec.new_attribute11 := NULL;
6732: ELSIF
6733: NVL(l_curr_party_acct_rec.attribute11,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute11,fnd_api.g_miss_char) THEN
6729: NVL(p_party_account_rec.attribute11, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute11, fnd_api.g_miss_char) THEN
6730: l_account_hist_rec.old_attribute11 := NULL;
6731: l_account_hist_rec.new_attribute11 := NULL;
6732: ELSIF
6733: NVL(l_curr_party_acct_rec.attribute11,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute11,fnd_api.g_miss_char) THEN
6734: l_account_hist_rec.old_attribute11 := l_curr_party_acct_rec.attribute11 ;
6735: l_account_hist_rec.new_attribute11 := p_party_account_rec.attribute11 ;
6736: END IF;
6737: --
6734: l_account_hist_rec.old_attribute11 := l_curr_party_acct_rec.attribute11 ;
6735: l_account_hist_rec.new_attribute11 := p_party_account_rec.attribute11 ;
6736: END IF;
6737: --
6738: IF (p_party_account_rec.attribute12 = fnd_api.g_miss_char) OR
6739: NVL(p_party_account_rec.attribute12, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute12, fnd_api.g_miss_char) THEN
6740: l_account_hist_rec.old_attribute12 := NULL;
6741: l_account_hist_rec.new_attribute12 := NULL;
6742: ELSIF
6735: l_account_hist_rec.new_attribute11 := p_party_account_rec.attribute11 ;
6736: END IF;
6737: --
6738: IF (p_party_account_rec.attribute12 = fnd_api.g_miss_char) OR
6739: NVL(p_party_account_rec.attribute12, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute12, fnd_api.g_miss_char) THEN
6740: l_account_hist_rec.old_attribute12 := NULL;
6741: l_account_hist_rec.new_attribute12 := NULL;
6742: ELSIF
6743: NVL(l_curr_party_acct_rec.attribute12,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute12,fnd_api.g_miss_char) THEN
6739: NVL(p_party_account_rec.attribute12, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute12, fnd_api.g_miss_char) THEN
6740: l_account_hist_rec.old_attribute12 := NULL;
6741: l_account_hist_rec.new_attribute12 := NULL;
6742: ELSIF
6743: NVL(l_curr_party_acct_rec.attribute12,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute12,fnd_api.g_miss_char) THEN
6744: l_account_hist_rec.old_attribute12 := l_curr_party_acct_rec.attribute12 ;
6745: l_account_hist_rec.new_attribute12 := p_party_account_rec.attribute12 ;
6746: END IF;
6747: --
6744: l_account_hist_rec.old_attribute12 := l_curr_party_acct_rec.attribute12 ;
6745: l_account_hist_rec.new_attribute12 := p_party_account_rec.attribute12 ;
6746: END IF;
6747: --
6748: IF (p_party_account_rec.attribute13 = fnd_api.g_miss_char) OR
6749: NVL(p_party_account_rec.attribute13, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute13, fnd_api.g_miss_char) THEN
6750: l_account_hist_rec.old_attribute13 := NULL;
6751: l_account_hist_rec.new_attribute13 := NULL;
6752: ELSIF
6745: l_account_hist_rec.new_attribute12 := p_party_account_rec.attribute12 ;
6746: END IF;
6747: --
6748: IF (p_party_account_rec.attribute13 = fnd_api.g_miss_char) OR
6749: NVL(p_party_account_rec.attribute13, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute13, fnd_api.g_miss_char) THEN
6750: l_account_hist_rec.old_attribute13 := NULL;
6751: l_account_hist_rec.new_attribute13 := NULL;
6752: ELSIF
6753: NVL(l_curr_party_acct_rec.attribute13,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute13,fnd_api.g_miss_char) THEN
6749: NVL(p_party_account_rec.attribute13, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute13, fnd_api.g_miss_char) THEN
6750: l_account_hist_rec.old_attribute13 := NULL;
6751: l_account_hist_rec.new_attribute13 := NULL;
6752: ELSIF
6753: NVL(l_curr_party_acct_rec.attribute13,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute13,fnd_api.g_miss_char) THEN
6754: l_account_hist_rec.old_attribute13 := l_curr_party_acct_rec.attribute13 ;
6755: l_account_hist_rec.new_attribute13 := p_party_account_rec.attribute13 ;
6756: END IF;
6757: --
6754: l_account_hist_rec.old_attribute13 := l_curr_party_acct_rec.attribute13 ;
6755: l_account_hist_rec.new_attribute13 := p_party_account_rec.attribute13 ;
6756: END IF;
6757: --
6758: IF (p_party_account_rec.attribute14 = fnd_api.g_miss_char) OR
6759: NVL(p_party_account_rec.attribute14, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute14, fnd_api.g_miss_char) THEN
6760: l_account_hist_rec.old_attribute14 := NULL;
6761: l_account_hist_rec.new_attribute14 := NULL;
6762: ELSIF
6755: l_account_hist_rec.new_attribute13 := p_party_account_rec.attribute13 ;
6756: END IF;
6757: --
6758: IF (p_party_account_rec.attribute14 = fnd_api.g_miss_char) OR
6759: NVL(p_party_account_rec.attribute14, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute14, fnd_api.g_miss_char) THEN
6760: l_account_hist_rec.old_attribute14 := NULL;
6761: l_account_hist_rec.new_attribute14 := NULL;
6762: ELSIF
6763: NVL(l_curr_party_acct_rec.attribute14,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute14,fnd_api.g_miss_char) THEN
6759: NVL(p_party_account_rec.attribute14, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute14, fnd_api.g_miss_char) THEN
6760: l_account_hist_rec.old_attribute14 := NULL;
6761: l_account_hist_rec.new_attribute14 := NULL;
6762: ELSIF
6763: NVL(l_curr_party_acct_rec.attribute14,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute14,fnd_api.g_miss_char) THEN
6764: l_account_hist_rec.old_attribute14 := l_curr_party_acct_rec.attribute14 ;
6765: l_account_hist_rec.new_attribute14 := p_party_account_rec.attribute14 ;
6766: END IF;
6767: --
6764: l_account_hist_rec.old_attribute14 := l_curr_party_acct_rec.attribute14 ;
6765: l_account_hist_rec.new_attribute14 := p_party_account_rec.attribute14 ;
6766: END IF;
6767: --
6768: IF (p_party_account_rec.attribute15 = fnd_api.g_miss_char) OR
6769: NVL(p_party_account_rec.attribute15, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute15, fnd_api.g_miss_char) THEN
6770: l_account_hist_rec.old_attribute15 := NULL;
6771: l_account_hist_rec.new_attribute15 := NULL;
6772: ELSIF
6765: l_account_hist_rec.new_attribute14 := p_party_account_rec.attribute14 ;
6766: END IF;
6767: --
6768: IF (p_party_account_rec.attribute15 = fnd_api.g_miss_char) OR
6769: NVL(p_party_account_rec.attribute15, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute15, fnd_api.g_miss_char) THEN
6770: l_account_hist_rec.old_attribute15 := NULL;
6771: l_account_hist_rec.new_attribute15 := NULL;
6772: ELSIF
6773: NVL(l_curr_party_acct_rec.attribute15,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute15,fnd_api.g_miss_char) THEN
6769: NVL(p_party_account_rec.attribute15, fnd_api.g_miss_char) = NVL(l_curr_party_acct_rec.attribute15, fnd_api.g_miss_char) THEN
6770: l_account_hist_rec.old_attribute15 := NULL;
6771: l_account_hist_rec.new_attribute15 := NULL;
6772: ELSIF
6773: NVL(l_curr_party_acct_rec.attribute15,fnd_api.g_miss_char) <> NVL(p_party_account_rec.attribute15,fnd_api.g_miss_char) THEN
6774: l_account_hist_rec.old_attribute15 := l_curr_party_acct_rec.attribute15 ;
6775: l_account_hist_rec.new_attribute15 := p_party_account_rec.attribute15 ;
6776: END IF;
6777: -- Added
6774: l_account_hist_rec.old_attribute15 := l_curr_party_acct_rec.attribute15 ;
6775: l_account_hist_rec.new_attribute15 := p_party_account_rec.attribute15 ;
6776: END IF;
6777: -- Added
6778: IF (p_party_account_rec.instance_party_id = fnd_api.g_miss_num) OR
6779: 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
6780: l_account_hist_rec.old_instance_party_id := NULL;
6781: l_account_hist_rec.new_instance_party_id := NULL;
6782: ELSIF
6775: l_account_hist_rec.new_attribute15 := p_party_account_rec.attribute15 ;
6776: END IF;
6777: -- Added
6778: IF (p_party_account_rec.instance_party_id = fnd_api.g_miss_num) OR
6779: 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
6780: l_account_hist_rec.old_instance_party_id := NULL;
6781: l_account_hist_rec.new_instance_party_id := NULL;
6782: ELSIF
6783: 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
6779: 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
6780: l_account_hist_rec.old_instance_party_id := NULL;
6781: l_account_hist_rec.new_instance_party_id := NULL;
6782: ELSIF
6783: 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
6784: l_account_hist_rec.old_instance_party_id := l_curr_party_acct_rec.instance_party_id ;
6785: l_account_hist_rec.new_instance_party_id := p_party_account_rec.instance_party_id ;
6786: END IF;
6787: -- End addition
6857: THEN
6858: -- The following code has been written to make sure
6859: -- before calling contracts we pass a valid vld_organization_id
6860: IF p_party_account_rec.vld_organization_id IS NULL OR
6861: p_party_account_rec.vld_organization_id = fnd_api.g_miss_num
6862: THEN
6863: BEGIN
6864: SELECT last_vld_organization_id
6865: INTO l_last_vld_org
6881: --
6882: IF l_internal_party_id IS NULL THEN
6883: FND_MESSAGE.SET_NAME('CSI','CSI_API_UNINSTALLED_PARAMETER');
6884: FND_MSG_PUB.ADD;
6885: RAISE FND_API.G_EXC_ERROR;
6886: END IF;
6887: -- Commenting as we are not using this code
6888: /*
6889: l_old_party_id := null;
6903: */
6904: IF l_old_pty_acct_id IS NOT NULL AND
6905: l_party_rec.Party_id <> l_internal_party_id -- changed from p_party_account_rec.party_account_id
6906: AND p_party_account_rec.party_account_id <> l_old_pty_acct_id
6907: AND p_party_account_rec.party_account_id <> fnd_api.g_miss_num
6908: THEN
6909: l_transaction_type := 'TRF';
6910: l_new_pty_acct_id := p_party_account_rec.party_account_id;
6911: ELSIF l_old_pty_acct_id IS NULL AND
6910: l_new_pty_acct_id := p_party_account_rec.party_account_id;
6911: ELSIF l_old_pty_acct_id IS NULL AND
6912: l_party_rec.party_id <> l_internal_party_id -- changed from p_party_account_rec.party_account_id
6913: AND p_party_account_rec.party_account_id IS NOT NULL
6914: AND p_party_account_rec.party_account_id <> fnd_api.g_miss_num
6915: THEN
6916: l_transaction_type := 'NEW';
6917: l_new_pty_acct_id := NULL;
6918: /* ELSIF p_party_account_rec.party_account_id = l_internal_party_id
6917: l_new_pty_acct_id := NULL;
6918: /* ELSIF p_party_account_rec.party_account_id = l_internal_party_id
6919: OR ( l_old_pty_acct_id <> l_internal_party_id
6920: AND p_party_account_rec.active_end_date <= sysdate
6921: AND p_party_account_rec.active_end_date <> fnd_api.g_miss_date )
6922: THEN */
6923: -- srramakr commneted the above code and checked for old and new party ID
6924: ELSIF /*l_old_party_id IS NOT NULL AND
6925: l_new_party_id IS NOT NULL AND
6925: l_new_party_id IS NOT NULL AND
6926: l_old_party_id <> l_internal_party_id AND
6927: l_new_party_id = l_internal_party_id */
6928: p_party_account_rec.active_end_date IS NOT NULL AND
6929: p_party_account_rec.active_end_date <> fnd_api.g_miss_date AND
6930: p_party_account_rec.active_end_date <= sysdate
6931: THEN -- external to internal
6932: IF p_txn_rec.transaction_type_id in (53,54) THEN -- RMA
6933: l_transaction_type := 'RET';
6943: WHERE instance_id = l_party_rec.instance_id;
6944: END IF;
6945: --
6946: IF l_transaction_type IS NOT NULL AND
6947: p_party_account_rec.call_contracts <> fnd_api.g_false AND
6948: p_txn_rec.transaction_type_id <> 7 -- Added for bug 3973706
6949: THEN
6950: IF l_transaction_type = 'TRF' THEN
6951: -- Added the following code for bug 2972082
6971: ,x_msg_count => x_msg_count
6972: ,x_msg_data => x_msg_data
6973: );
6974:
6975: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
6976: csi_gen_utility_pvt.put_line('Cascade Ownership - Call to contracts with TRM txn type has errored ');
6977: l_msg_index := 1;
6978: l_msg_count := x_msg_count;
6979: WHILE l_msg_count > 0 LOOP
6978: l_msg_count := x_msg_count;
6979: WHILE l_msg_count > 0 LOOP
6980: x_msg_data := FND_MSG_PUB.GET(
6981: l_msg_index,
6982: FND_API.G_FALSE );
6983: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
6984: l_msg_index := l_msg_index + 1;
6985: l_msg_count := l_msg_count - 1;
6986: END LOOP;
6983: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
6984: l_msg_index := l_msg_index + 1;
6985: l_msg_count := l_msg_count - 1;
6986: END LOOP;
6987: RAISE FND_API.G_EXC_ERROR;
6988: END IF;
6989: csi_gen_utility_pvt.put_line( 'Calling contracts with NEW transaction type for instance '||l_party_rec.instance_id);
6990:
6991: csi_item_instance_pvt.Call_to_Contracts(
7004: ,x_return_status => x_return_status
7005: ,x_msg_count => x_msg_count
7006: ,x_msg_data => x_msg_data
7007: );
7008: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
7009: csi_gen_utility_pvt.put_line('Cascade Ownership - Call to contracts with NEW txn type has errored ');
7010: l_msg_index := 1;
7011: l_msg_count := x_msg_count;
7012: WHILE l_msg_count > 0 LOOP
7011: l_msg_count := x_msg_count;
7012: WHILE l_msg_count > 0 LOOP
7013: x_msg_data := FND_MSG_PUB.GET(
7014: l_msg_index,
7015: FND_API.G_FALSE );
7016: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
7017: l_msg_index := l_msg_index + 1;
7018: l_msg_count := l_msg_count - 1;
7019: END LOOP;
7016: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
7017: l_msg_index := l_msg_index + 1;
7018: l_msg_count := l_msg_count - 1;
7019: END LOOP;
7020: RAISE FND_API.G_EXC_ERROR;
7021: END IF;
7022: -- End addition for bug 2972082
7023: ELSE
7024: csi_item_instance_pvt.Call_to_Contracts(
7058: ,x_msg_count => x_msg_count
7059: ,x_msg_data => x_msg_data
7060: );
7061: END IF;
7062: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
7063: l_msg_index := 1;
7064: l_msg_count := x_msg_count;
7065: WHILE l_msg_count > 0 LOOP
7066: x_msg_data := FND_MSG_PUB.GET(
7064: l_msg_count := x_msg_count;
7065: WHILE l_msg_count > 0 LOOP
7066: x_msg_data := FND_MSG_PUB.GET(
7067: l_msg_index,
7068: FND_API.G_FALSE );
7069: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
7070: l_msg_index := l_msg_index + 1;
7071: l_msg_count := l_msg_count - 1;
7072: END LOOP;
7069: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
7070: l_msg_index := l_msg_index + 1;
7071: l_msg_count := l_msg_count - 1;
7072: END LOOP;
7073: RAISE FND_API.G_EXC_ERROR;
7074: END IF;
7075: END IF;
7076: END IF;
7077: -- End addition by sguthiva for bug 2307804
7077: -- End addition by sguthiva for bug 2307804
7078: --
7079: -- End of API body
7080: -- Standard check of p_commit.
7081: IF FND_API.To_Boolean( p_commit ) THEN
7082: COMMIT WORK;
7083: END IF;
7084: -- Standard call to get message count and if count is get message info.
7085: FND_MSG_PUB.Count_And_Get
7085: FND_MSG_PUB.Count_And_Get
7086: (p_count => x_msg_count ,
7087: p_data => x_msg_data );
7088: EXCEPTION
7089: WHEN FND_API.G_EXC_ERROR THEN
7090: -- ROLLBACK TO update_inst_party_acct_pvt;
7091: x_return_status := FND_API.G_RET_STS_ERROR ;
7092: FND_MSG_PUB.Count_And_Get
7093: ( p_count => x_msg_count,
7087: p_data => x_msg_data );
7088: EXCEPTION
7089: WHEN FND_API.G_EXC_ERROR THEN
7090: -- ROLLBACK TO update_inst_party_acct_pvt;
7091: x_return_status := FND_API.G_RET_STS_ERROR ;
7092: FND_MSG_PUB.Count_And_Get
7093: ( p_count => x_msg_count,
7094: p_data => x_msg_data );
7095: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7091: x_return_status := FND_API.G_RET_STS_ERROR ;
7092: FND_MSG_PUB.Count_And_Get
7093: ( p_count => x_msg_count,
7094: p_data => x_msg_data );
7095: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7096: -- ROLLBACK TO update_inst_party_acct_pvt;
7097: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7098: FND_MSG_PUB.Count_And_Get
7099: ( p_count => x_msg_count,
7093: ( p_count => x_msg_count,
7094: p_data => x_msg_data );
7095: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7096: -- ROLLBACK TO update_inst_party_acct_pvt;
7097: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7098: FND_MSG_PUB.Count_And_Get
7099: ( p_count => x_msg_count,
7100: p_data => x_msg_data );
7101: WHEN OTHERS THEN
7099: ( p_count => x_msg_count,
7100: p_data => x_msg_data );
7101: WHEN OTHERS THEN
7102: -- ROLLBACK TO update_inst_party_acct_pvt;
7103: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7104: IF FND_MSG_PUB.Check_Msg_Level
7105: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7106: THEN
7107: FND_MSG_PUB.Add_Exc_Msg
7149:
7150: CURSOR get_curr_party_acct_rec (p_ip_account_id IN NUMBER) IS
7151: SELECT
7152: ip_account_id ,
7153: FND_API.G_MISS_NUM parent_tbl_index,
7154: instance_party_id ,
7155: party_account_id ,
7156: relationship_type_code ,
7157: bill_to_address ,
7186: -- Standard Start of API savepoint
7187: SAVEPOINT expire_inst_party_acct_pvt;
7188:
7189: -- Standard call to check for call compatibility.
7190: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
7191: p_api_version ,
7192: l_api_name ,
7193: g_pkg_name )
7194: THEN
7191: p_api_version ,
7192: l_api_name ,
7193: g_pkg_name )
7194: THEN
7195: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7196: END IF;
7197:
7198: -- Initialize message list if p_init_msg_list is set to TRUE.
7199: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7195: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7196: END IF;
7197:
7198: -- Initialize message list if p_init_msg_list is set to TRUE.
7199: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7200: FND_MSG_PUB.initialize;
7201: END IF;
7202:
7203: -- Initialize API return status to success
7200: FND_MSG_PUB.initialize;
7201: END IF;
7202:
7203: -- Initialize API return status to success
7204: x_return_status := FND_API.G_RET_STS_SUCCESS;
7205:
7206: -- Check the profile option CSI_DEBUG_LEVEL for debug message reporting
7207: l_csi_debug_level:=fnd_profile.value('CSI_DEBUG_LEVEL');
7208:
7242: (p_party_account_rec.ip_account_id))THEN
7243: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_IP_ACCOUNT_ID');
7244: FND_MESSAGE.SET_TOKEN('IP_ACCOUNT_ID',p_party_account_rec.ip_account_id);
7245: FND_MSG_PUB.Add;
7246: RAISE FND_API.G_EXC_ERROR;
7247: END IF;
7248: -- check if the object_version_number passed matches with the one
7249: -- in the database else raise error
7250: OPEN get_curr_party_acct_rec(p_party_account_rec.ip_account_id);
7252:
7253: IF (l_curr_party_acct_rec.object_version_number <> p_party_account_rec.OBJECT_VERSION_NUMBER) THEN
7254: FND_MESSAGE.Set_Name('CSI', 'CSI_API_OBJ_VER_MISMATCH');
7255: FND_MSG_PUB.ADD;
7256: RAISE FND_API.G_EXC_ERROR;
7257: END IF;
7258: --
7259: IF get_curr_party_acct_rec%NOTFOUND THEN
7260: FND_MESSAGE.Set_Name('CSI', 'CSI_API_RECORD_LOCKED');
7258: --
7259: IF get_curr_party_acct_rec%NOTFOUND THEN
7260: FND_MESSAGE.Set_Name('CSI', 'CSI_API_RECORD_LOCKED');
7261: FND_MSG_PUB.ADD;
7262: RAISE FND_API.G_EXC_ERROR;
7263: END IF;
7264: CLOSE get_curr_party_acct_rec;
7265: -- Initialize all the parameters and call upate_inst_party_account to expire the record
7266:
7264: CLOSE get_curr_party_acct_rec;
7265: -- Initialize all the parameters and call upate_inst_party_account to expire the record
7266:
7267: l_party_account_rec.IP_ACCOUNT_ID := l_curr_party_acct_rec.ip_account_id;
7268: l_party_account_rec.INSTANCE_PARTY_ID := FND_API.G_MISS_NUM;
7269: l_party_account_rec.PARTY_ACCOUNT_ID := l_curr_party_acct_rec.party_account_id; -- Added by sguthiva for bug 2307804
7270: 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;
7271: -- Bug 3804960
7272: -- srramakr Need to use the same the date used by the item instance
7266:
7267: l_party_account_rec.IP_ACCOUNT_ID := l_curr_party_acct_rec.ip_account_id;
7268: l_party_account_rec.INSTANCE_PARTY_ID := FND_API.G_MISS_NUM;
7269: l_party_account_rec.PARTY_ACCOUNT_ID := l_curr_party_acct_rec.party_account_id; -- Added by sguthiva for bug 2307804
7270: 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;
7271: -- Bug 3804960
7272: -- srramakr Need to use the same the date used by the item instance
7273: IF p_txn_rec.src_txn_creation_date IS NULL OR
7274: p_txn_rec.src_txn_creation_date = FND_API.G_MISS_DATE THEN
7270: 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;
7271: -- Bug 3804960
7272: -- srramakr Need to use the same the date used by the item instance
7273: IF p_txn_rec.src_txn_creation_date IS NULL OR
7274: p_txn_rec.src_txn_creation_date = FND_API.G_MISS_DATE THEN
7275: l_party_account_rec.active_end_date := sysdate;
7276: ELSE
7277: l_party_account_rec.active_end_date := p_txn_rec.src_txn_creation_date;
7278: END IF;
7276: ELSE
7277: l_party_account_rec.active_end_date := p_txn_rec.src_txn_creation_date;
7278: END IF;
7279: -- End of 3804960
7280: l_party_account_rec.CONTEXT := FND_API.G_MISS_CHAR;
7281: l_party_account_rec.ATTRIBUTE1 := FND_API.G_MISS_CHAR;
7282: l_party_account_rec.ATTRIBUTE2 := FND_API.G_MISS_CHAR;
7283: l_party_account_rec.ATTRIBUTE3 := FND_API.G_MISS_CHAR;
7284: l_party_account_rec.ATTRIBUTE4 := FND_API.G_MISS_CHAR;
7277: l_party_account_rec.active_end_date := p_txn_rec.src_txn_creation_date;
7278: END IF;
7279: -- End of 3804960
7280: l_party_account_rec.CONTEXT := FND_API.G_MISS_CHAR;
7281: l_party_account_rec.ATTRIBUTE1 := FND_API.G_MISS_CHAR;
7282: l_party_account_rec.ATTRIBUTE2 := FND_API.G_MISS_CHAR;
7283: l_party_account_rec.ATTRIBUTE3 := FND_API.G_MISS_CHAR;
7284: l_party_account_rec.ATTRIBUTE4 := FND_API.G_MISS_CHAR;
7285: l_party_account_rec.ATTRIBUTE5 := FND_API.G_MISS_CHAR;
7278: END IF;
7279: -- End of 3804960
7280: l_party_account_rec.CONTEXT := FND_API.G_MISS_CHAR;
7281: l_party_account_rec.ATTRIBUTE1 := FND_API.G_MISS_CHAR;
7282: l_party_account_rec.ATTRIBUTE2 := FND_API.G_MISS_CHAR;
7283: l_party_account_rec.ATTRIBUTE3 := FND_API.G_MISS_CHAR;
7284: l_party_account_rec.ATTRIBUTE4 := FND_API.G_MISS_CHAR;
7285: l_party_account_rec.ATTRIBUTE5 := FND_API.G_MISS_CHAR;
7286: l_party_account_rec.ATTRIBUTE6 := FND_API.G_MISS_CHAR;
7279: -- End of 3804960
7280: l_party_account_rec.CONTEXT := FND_API.G_MISS_CHAR;
7281: l_party_account_rec.ATTRIBUTE1 := FND_API.G_MISS_CHAR;
7282: l_party_account_rec.ATTRIBUTE2 := FND_API.G_MISS_CHAR;
7283: l_party_account_rec.ATTRIBUTE3 := FND_API.G_MISS_CHAR;
7284: l_party_account_rec.ATTRIBUTE4 := FND_API.G_MISS_CHAR;
7285: l_party_account_rec.ATTRIBUTE5 := FND_API.G_MISS_CHAR;
7286: l_party_account_rec.ATTRIBUTE6 := FND_API.G_MISS_CHAR;
7287: l_party_account_rec.ATTRIBUTE7 := FND_API.G_MISS_CHAR;
7280: l_party_account_rec.CONTEXT := FND_API.G_MISS_CHAR;
7281: l_party_account_rec.ATTRIBUTE1 := FND_API.G_MISS_CHAR;
7282: l_party_account_rec.ATTRIBUTE2 := FND_API.G_MISS_CHAR;
7283: l_party_account_rec.ATTRIBUTE3 := FND_API.G_MISS_CHAR;
7284: l_party_account_rec.ATTRIBUTE4 := FND_API.G_MISS_CHAR;
7285: l_party_account_rec.ATTRIBUTE5 := FND_API.G_MISS_CHAR;
7286: l_party_account_rec.ATTRIBUTE6 := FND_API.G_MISS_CHAR;
7287: l_party_account_rec.ATTRIBUTE7 := FND_API.G_MISS_CHAR;
7288: l_party_account_rec.ATTRIBUTE8 := FND_API.G_MISS_CHAR;
7281: l_party_account_rec.ATTRIBUTE1 := FND_API.G_MISS_CHAR;
7282: l_party_account_rec.ATTRIBUTE2 := FND_API.G_MISS_CHAR;
7283: l_party_account_rec.ATTRIBUTE3 := FND_API.G_MISS_CHAR;
7284: l_party_account_rec.ATTRIBUTE4 := FND_API.G_MISS_CHAR;
7285: l_party_account_rec.ATTRIBUTE5 := FND_API.G_MISS_CHAR;
7286: l_party_account_rec.ATTRIBUTE6 := FND_API.G_MISS_CHAR;
7287: l_party_account_rec.ATTRIBUTE7 := FND_API.G_MISS_CHAR;
7288: l_party_account_rec.ATTRIBUTE8 := FND_API.G_MISS_CHAR;
7289: l_party_account_rec.ATTRIBUTE9 := FND_API.G_MISS_CHAR;
7282: l_party_account_rec.ATTRIBUTE2 := FND_API.G_MISS_CHAR;
7283: l_party_account_rec.ATTRIBUTE3 := FND_API.G_MISS_CHAR;
7284: l_party_account_rec.ATTRIBUTE4 := FND_API.G_MISS_CHAR;
7285: l_party_account_rec.ATTRIBUTE5 := FND_API.G_MISS_CHAR;
7286: l_party_account_rec.ATTRIBUTE6 := FND_API.G_MISS_CHAR;
7287: l_party_account_rec.ATTRIBUTE7 := FND_API.G_MISS_CHAR;
7288: l_party_account_rec.ATTRIBUTE8 := FND_API.G_MISS_CHAR;
7289: l_party_account_rec.ATTRIBUTE9 := FND_API.G_MISS_CHAR;
7290: l_party_account_rec.ATTRIBUTE10 := FND_API.G_MISS_CHAR;
7283: l_party_account_rec.ATTRIBUTE3 := FND_API.G_MISS_CHAR;
7284: l_party_account_rec.ATTRIBUTE4 := FND_API.G_MISS_CHAR;
7285: l_party_account_rec.ATTRIBUTE5 := FND_API.G_MISS_CHAR;
7286: l_party_account_rec.ATTRIBUTE6 := FND_API.G_MISS_CHAR;
7287: l_party_account_rec.ATTRIBUTE7 := FND_API.G_MISS_CHAR;
7288: l_party_account_rec.ATTRIBUTE8 := FND_API.G_MISS_CHAR;
7289: l_party_account_rec.ATTRIBUTE9 := FND_API.G_MISS_CHAR;
7290: l_party_account_rec.ATTRIBUTE10 := FND_API.G_MISS_CHAR;
7291: l_party_account_rec.ATTRIBUTE11 := FND_API.G_MISS_CHAR;
7284: l_party_account_rec.ATTRIBUTE4 := FND_API.G_MISS_CHAR;
7285: l_party_account_rec.ATTRIBUTE5 := FND_API.G_MISS_CHAR;
7286: l_party_account_rec.ATTRIBUTE6 := FND_API.G_MISS_CHAR;
7287: l_party_account_rec.ATTRIBUTE7 := FND_API.G_MISS_CHAR;
7288: l_party_account_rec.ATTRIBUTE8 := FND_API.G_MISS_CHAR;
7289: l_party_account_rec.ATTRIBUTE9 := FND_API.G_MISS_CHAR;
7290: l_party_account_rec.ATTRIBUTE10 := FND_API.G_MISS_CHAR;
7291: l_party_account_rec.ATTRIBUTE11 := FND_API.G_MISS_CHAR;
7292: l_party_account_rec.ATTRIBUTE12 := FND_API.G_MISS_CHAR;
7285: l_party_account_rec.ATTRIBUTE5 := FND_API.G_MISS_CHAR;
7286: l_party_account_rec.ATTRIBUTE6 := FND_API.G_MISS_CHAR;
7287: l_party_account_rec.ATTRIBUTE7 := FND_API.G_MISS_CHAR;
7288: l_party_account_rec.ATTRIBUTE8 := FND_API.G_MISS_CHAR;
7289: l_party_account_rec.ATTRIBUTE9 := FND_API.G_MISS_CHAR;
7290: l_party_account_rec.ATTRIBUTE10 := FND_API.G_MISS_CHAR;
7291: l_party_account_rec.ATTRIBUTE11 := FND_API.G_MISS_CHAR;
7292: l_party_account_rec.ATTRIBUTE12 := FND_API.G_MISS_CHAR;
7293: l_party_account_rec.ATTRIBUTE13 := FND_API.G_MISS_CHAR;
7286: l_party_account_rec.ATTRIBUTE6 := FND_API.G_MISS_CHAR;
7287: l_party_account_rec.ATTRIBUTE7 := FND_API.G_MISS_CHAR;
7288: l_party_account_rec.ATTRIBUTE8 := FND_API.G_MISS_CHAR;
7289: l_party_account_rec.ATTRIBUTE9 := FND_API.G_MISS_CHAR;
7290: l_party_account_rec.ATTRIBUTE10 := FND_API.G_MISS_CHAR;
7291: l_party_account_rec.ATTRIBUTE11 := FND_API.G_MISS_CHAR;
7292: l_party_account_rec.ATTRIBUTE12 := FND_API.G_MISS_CHAR;
7293: l_party_account_rec.ATTRIBUTE13 := FND_API.G_MISS_CHAR;
7294: l_party_account_rec.ATTRIBUTE14 := FND_API.G_MISS_CHAR;
7287: l_party_account_rec.ATTRIBUTE7 := FND_API.G_MISS_CHAR;
7288: l_party_account_rec.ATTRIBUTE8 := FND_API.G_MISS_CHAR;
7289: l_party_account_rec.ATTRIBUTE9 := FND_API.G_MISS_CHAR;
7290: l_party_account_rec.ATTRIBUTE10 := FND_API.G_MISS_CHAR;
7291: l_party_account_rec.ATTRIBUTE11 := FND_API.G_MISS_CHAR;
7292: l_party_account_rec.ATTRIBUTE12 := FND_API.G_MISS_CHAR;
7293: l_party_account_rec.ATTRIBUTE13 := FND_API.G_MISS_CHAR;
7294: l_party_account_rec.ATTRIBUTE14 := FND_API.G_MISS_CHAR;
7295: l_party_account_rec.ATTRIBUTE15 := FND_API.G_MISS_CHAR;
7288: l_party_account_rec.ATTRIBUTE8 := FND_API.G_MISS_CHAR;
7289: l_party_account_rec.ATTRIBUTE9 := FND_API.G_MISS_CHAR;
7290: l_party_account_rec.ATTRIBUTE10 := FND_API.G_MISS_CHAR;
7291: l_party_account_rec.ATTRIBUTE11 := FND_API.G_MISS_CHAR;
7292: l_party_account_rec.ATTRIBUTE12 := FND_API.G_MISS_CHAR;
7293: l_party_account_rec.ATTRIBUTE13 := FND_API.G_MISS_CHAR;
7294: l_party_account_rec.ATTRIBUTE14 := FND_API.G_MISS_CHAR;
7295: l_party_account_rec.ATTRIBUTE15 := FND_API.G_MISS_CHAR;
7296: l_party_account_rec.BILL_TO_ADDRESS := FND_API.G_MISS_NUM;
7289: l_party_account_rec.ATTRIBUTE9 := FND_API.G_MISS_CHAR;
7290: l_party_account_rec.ATTRIBUTE10 := FND_API.G_MISS_CHAR;
7291: l_party_account_rec.ATTRIBUTE11 := FND_API.G_MISS_CHAR;
7292: l_party_account_rec.ATTRIBUTE12 := FND_API.G_MISS_CHAR;
7293: l_party_account_rec.ATTRIBUTE13 := FND_API.G_MISS_CHAR;
7294: l_party_account_rec.ATTRIBUTE14 := FND_API.G_MISS_CHAR;
7295: l_party_account_rec.ATTRIBUTE15 := FND_API.G_MISS_CHAR;
7296: l_party_account_rec.BILL_TO_ADDRESS := FND_API.G_MISS_NUM;
7297: l_party_account_rec.SHIP_TO_ADDRESS := FND_API.G_MISS_NUM;
7290: l_party_account_rec.ATTRIBUTE10 := FND_API.G_MISS_CHAR;
7291: l_party_account_rec.ATTRIBUTE11 := FND_API.G_MISS_CHAR;
7292: l_party_account_rec.ATTRIBUTE12 := FND_API.G_MISS_CHAR;
7293: l_party_account_rec.ATTRIBUTE13 := FND_API.G_MISS_CHAR;
7294: l_party_account_rec.ATTRIBUTE14 := FND_API.G_MISS_CHAR;
7295: l_party_account_rec.ATTRIBUTE15 := FND_API.G_MISS_CHAR;
7296: l_party_account_rec.BILL_TO_ADDRESS := FND_API.G_MISS_NUM;
7297: l_party_account_rec.SHIP_TO_ADDRESS := FND_API.G_MISS_NUM;
7298: l_party_account_rec.OBJECT_VERSION_NUMBER := p_party_account_rec.OBJECT_VERSION_NUMBER;
7291: l_party_account_rec.ATTRIBUTE11 := FND_API.G_MISS_CHAR;
7292: l_party_account_rec.ATTRIBUTE12 := FND_API.G_MISS_CHAR;
7293: l_party_account_rec.ATTRIBUTE13 := FND_API.G_MISS_CHAR;
7294: l_party_account_rec.ATTRIBUTE14 := FND_API.G_MISS_CHAR;
7295: l_party_account_rec.ATTRIBUTE15 := FND_API.G_MISS_CHAR;
7296: l_party_account_rec.BILL_TO_ADDRESS := FND_API.G_MISS_NUM;
7297: l_party_account_rec.SHIP_TO_ADDRESS := FND_API.G_MISS_NUM;
7298: l_party_account_rec.OBJECT_VERSION_NUMBER := p_party_account_rec.OBJECT_VERSION_NUMBER;
7299: l_party_account_rec.expire_flag := p_party_account_rec.expire_flag; -- Added by sguthiva for bug 2307804
7292: l_party_account_rec.ATTRIBUTE12 := FND_API.G_MISS_CHAR;
7293: l_party_account_rec.ATTRIBUTE13 := FND_API.G_MISS_CHAR;
7294: l_party_account_rec.ATTRIBUTE14 := FND_API.G_MISS_CHAR;
7295: l_party_account_rec.ATTRIBUTE15 := FND_API.G_MISS_CHAR;
7296: l_party_account_rec.BILL_TO_ADDRESS := FND_API.G_MISS_NUM;
7297: l_party_account_rec.SHIP_TO_ADDRESS := FND_API.G_MISS_NUM;
7298: l_party_account_rec.OBJECT_VERSION_NUMBER := p_party_account_rec.OBJECT_VERSION_NUMBER;
7299: l_party_account_rec.expire_flag := p_party_account_rec.expire_flag; -- Added by sguthiva for bug 2307804
7300: l_party_account_rec.call_contracts := p_party_account_rec.call_contracts; -- Added by sguthiva for bug 2307804
7293: l_party_account_rec.ATTRIBUTE13 := FND_API.G_MISS_CHAR;
7294: l_party_account_rec.ATTRIBUTE14 := FND_API.G_MISS_CHAR;
7295: l_party_account_rec.ATTRIBUTE15 := FND_API.G_MISS_CHAR;
7296: l_party_account_rec.BILL_TO_ADDRESS := FND_API.G_MISS_NUM;
7297: l_party_account_rec.SHIP_TO_ADDRESS := FND_API.G_MISS_NUM;
7298: l_party_account_rec.OBJECT_VERSION_NUMBER := p_party_account_rec.OBJECT_VERSION_NUMBER;
7299: l_party_account_rec.expire_flag := p_party_account_rec.expire_flag; -- Added by sguthiva for bug 2307804
7300: l_party_account_rec.call_contracts := p_party_account_rec.call_contracts; -- Added by sguthiva for bug 2307804
7301: -- g_expire_account_flag := 'Y'; -- Added by sguthiva for bug 2307804
7312: ,x_msg_count => x_msg_count
7313: ,x_msg_data => x_msg_data);
7314: --
7315: --g_expire_account_flag := 'N'; -- Added by sguthiva for bug 2307804
7316: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
7317: l_msg_index := 1;
7318: l_msg_count := x_msg_count;
7319: WHILE l_msg_count > 0 LOOP
7320: x_msg_data := FND_MSG_PUB.GET(
7318: l_msg_count := x_msg_count;
7319: WHILE l_msg_count > 0 LOOP
7320: x_msg_data := FND_MSG_PUB.GET(
7321: l_msg_index,
7322: FND_API.G_FALSE );
7323: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
7324: l_msg_index := l_msg_index + 1;
7325: l_msg_count := l_msg_count - 1;
7326: END LOOP;
7323: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
7324: l_msg_index := l_msg_index + 1;
7325: l_msg_count := l_msg_count - 1;
7326: END LOOP;
7327: RAISE FND_API.G_EXC_ERROR;
7328: END IF;
7329: --
7330: -- Commented the tablehandler call since Update API got invoked
7331: --
7330: -- Commented the tablehandler call since Update API got invoked
7331: --
7332: -- End of API body
7333: -- Standard check of p_commit.
7334: IF FND_API.To_Boolean( p_commit ) THEN
7335: COMMIT WORK;
7336: END IF;
7337: -- Standard call to get message count and if count is get message info.
7338: FND_MSG_PUB.Count_And_Get
7338: FND_MSG_PUB.Count_And_Get
7339: (p_count => x_msg_count ,
7340: p_data => x_msg_data );
7341: EXCEPTION
7342: WHEN FND_API.G_EXC_ERROR THEN
7343: ROLLBACK TO expire_inst_party_acct_pvt;
7344: x_return_status := FND_API.G_RET_STS_ERROR ;
7345: FND_MSG_PUB.Count_And_Get
7346: ( p_count => x_msg_count,
7340: p_data => x_msg_data );
7341: EXCEPTION
7342: WHEN FND_API.G_EXC_ERROR THEN
7343: ROLLBACK TO expire_inst_party_acct_pvt;
7344: x_return_status := FND_API.G_RET_STS_ERROR ;
7345: FND_MSG_PUB.Count_And_Get
7346: ( p_count => x_msg_count,
7347: p_data => x_msg_data );
7348:
7345: FND_MSG_PUB.Count_And_Get
7346: ( p_count => x_msg_count,
7347: p_data => x_msg_data );
7348:
7349: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7350: ROLLBACK TO expire_inst_party_acct_pvt;
7351: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7352: FND_MSG_PUB.Count_And_Get
7353: ( p_count => x_msg_count,
7347: p_data => x_msg_data );
7348:
7349: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7350: ROLLBACK TO expire_inst_party_acct_pvt;
7351: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7352: FND_MSG_PUB.Count_And_Get
7353: ( p_count => x_msg_count,
7354: p_data => x_msg_data );
7355: WHEN OTHERS THEN
7353: ( p_count => x_msg_count,
7354: p_data => x_msg_data );
7355: WHEN OTHERS THEN
7356: ROLLBACK TO expire_inst_party_acct_pvt;
7357: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7358: IF FND_MSG_PUB.Check_Msg_Level
7359: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7360: THEN
7361: FND_MSG_PUB.Add_Exc_Msg
7396: -- Standard Start of API savepoint
7397: -- SAVEPOINT get_contact_details_pvt;
7398:
7399: -- Standard call to check for call compatibility.
7400: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
7401: p_api_version ,
7402: l_api_name ,
7403: g_pkg_name )
7404: THEN
7401: p_api_version ,
7402: l_api_name ,
7403: g_pkg_name )
7404: THEN
7405: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7406: END IF;
7407:
7408: -- Initialize message list if p_init_msg_list is set to TRUE.
7409: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7405: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7406: END IF;
7407:
7408: -- Initialize message list if p_init_msg_list is set to TRUE.
7409: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7410: FND_MSG_PUB.initialize;
7411: END IF;
7412:
7413: -- Initialize API return status to success
7410: FND_MSG_PUB.initialize;
7411: END IF;
7412:
7413: -- Initialize API return status to success
7414: x_return_status := FND_API.G_RET_STS_SUCCESS;
7415:
7416: -- Check the profile option CSI_DEBUG_LEVEL for debug message reporting
7417: l_csi_debug_level:=fnd_profile.value('CSI_DEBUG_LEVEL');
7418:
7423:
7424:
7425: -- Start API body
7426:
7427: IF ( ( p_contact_party_id IS NULL OR p_contact_party_id = fnd_api.g_miss_num )
7428: OR ( p_party_tbl IS NULL OR p_party_tbl = fnd_api.g_miss_char )
7429: )
7430: THEN
7431: fnd_message.set_name('CSI', 'CSI_API_INVALID_PARAMETERS');
7424:
7425: -- Start API body
7426:
7427: IF ( ( p_contact_party_id IS NULL OR p_contact_party_id = fnd_api.g_miss_num )
7428: OR ( p_party_tbl IS NULL OR p_party_tbl = fnd_api.g_miss_char )
7429: )
7430: THEN
7431: fnd_message.set_name('CSI', 'CSI_API_INVALID_PARAMETERS');
7432: fnd_msg_pub.add;
7429: )
7430: THEN
7431: fnd_message.set_name('CSI', 'CSI_API_INVALID_PARAMETERS');
7432: fnd_msg_pub.add;
7433: x_return_status := fnd_api.g_ret_sts_error;
7434: RAISE fnd_api.g_exc_error;
7435: END IF;
7436:
7437:
7430: THEN
7431: fnd_message.set_name('CSI', 'CSI_API_INVALID_PARAMETERS');
7432: fnd_msg_pub.add;
7433: x_return_status := fnd_api.g_ret_sts_error;
7434: RAISE fnd_api.g_exc_error;
7435: END IF;
7436:
7437:
7438: IF upper(p_party_tbl) = 'HZ_PARTIES'
7751: -- End of API body
7752:
7753: -- Standard check of p_commit.
7754: /*
7755: IF FND_API.To_Boolean( p_commit ) THEN
7756: COMMIT WORK;
7757: END IF;
7758: */
7759:
7761: FND_MSG_PUB.Count_And_Get
7762: (p_count => x_msg_count ,
7763: p_data => x_msg_data );
7764: EXCEPTION
7765: WHEN FND_API.G_EXC_ERROR THEN
7766: -- ROLLBACK TO get_contact_details_pvt;
7767: x_return_status := FND_API.G_RET_STS_ERROR ;
7768: FND_MSG_PUB.Count_And_Get
7769: ( p_count => x_msg_count,
7763: p_data => x_msg_data );
7764: EXCEPTION
7765: WHEN FND_API.G_EXC_ERROR THEN
7766: -- ROLLBACK TO get_contact_details_pvt;
7767: x_return_status := FND_API.G_RET_STS_ERROR ;
7768: FND_MSG_PUB.Count_And_Get
7769: ( p_count => x_msg_count,
7770: p_data => x_msg_data );
7771: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7767: x_return_status := FND_API.G_RET_STS_ERROR ;
7768: FND_MSG_PUB.Count_And_Get
7769: ( p_count => x_msg_count,
7770: p_data => x_msg_data );
7771: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7772: -- ROLLBACK TO get_contact_details_pvt;
7773: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7774: FND_MSG_PUB.Count_And_Get
7775: ( p_count => x_msg_count,
7769: ( p_count => x_msg_count,
7770: p_data => x_msg_data );
7771: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7772: -- ROLLBACK TO get_contact_details_pvt;
7773: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7774: FND_MSG_PUB.Count_And_Get
7775: ( p_count => x_msg_count,
7776: p_data => x_msg_data );
7777: WHEN OTHERS THEN
7775: ( p_count => x_msg_count,
7776: p_data => x_msg_data );
7777: WHEN OTHERS THEN
7778: -- ROLLBACK TO get_contact_details_pvt;
7779: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7780: IF FND_MSG_PUB.Check_Msg_Level
7781: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7782: THEN
7783: FND_MSG_PUB.Add_Exc_Msg
7901: -- SAVEPOINT get_inst_party_rel_hist;
7902:
7903:
7904: -- Standard call to check for call compatibility.
7905: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
7906: p_api_version ,
7907: l_api_name ,
7908: g_pkg_name )
7909: THEN
7906: p_api_version ,
7907: l_api_name ,
7908: g_pkg_name )
7909: THEN
7910: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7911: END IF;
7912:
7913: -- Initialize message list if p_init_msg_list is set to TRUE.
7914: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7910: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7911: END IF;
7912:
7913: -- Initialize message list if p_init_msg_list is set to TRUE.
7914: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7915: FND_MSG_PUB.initialize;
7916: END IF;
7917:
7918: -- Initialize API return status to success
7915: FND_MSG_PUB.initialize;
7916: END IF;
7917:
7918: -- Initialize API return status to success
7919: x_return_status := FND_API.G_RET_STS_SUCCESS;
7920:
7921: -- Check the profile option CSI_DEBUG_LEVEL for debug message reporting
7922: l_csi_debug_level:=fnd_profile.value('CSI_DEBUG_LEVEL');
7923:
8010: (x_party_history_tbl(i).old_party_id IS NULL AND
8011: x_party_history_tbl(i).new_party_id IS NULL ) OR
8012: (x_party_history_tbl(i).old_relationship_type_code IS NULL AND
8013: x_party_history_tbl(i).new_relationship_type_code IS NULL)
8014: --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) )
8015: THEN
8016: l_party_query_rec.instance_party_id := x_party_history_tbl(i).instance_party_id;
8017: l_time_stamp:=c1.creation_date;
8018: csi_party_relationships_pub.get_inst_party_relationships
8016: l_party_query_rec.instance_party_id := x_party_history_tbl(i).instance_party_id;
8017: l_time_stamp:=c1.creation_date;
8018: csi_party_relationships_pub.get_inst_party_relationships
8019: ( p_api_version => 1.0
8020: ,p_commit => fnd_api.g_false
8021: ,p_init_msg_list => fnd_api.g_false
8022: ,p_validation_level => fnd_api.g_valid_level_full
8023: ,p_party_query_rec => l_party_query_rec
8024: ,p_resolve_id_columns => fnd_api.g_false
8017: l_time_stamp:=c1.creation_date;
8018: csi_party_relationships_pub.get_inst_party_relationships
8019: ( p_api_version => 1.0
8020: ,p_commit => fnd_api.g_false
8021: ,p_init_msg_list => fnd_api.g_false
8022: ,p_validation_level => fnd_api.g_valid_level_full
8023: ,p_party_query_rec => l_party_query_rec
8024: ,p_resolve_id_columns => fnd_api.g_false
8025: ,p_time_stamp => l_time_stamp
8018: csi_party_relationships_pub.get_inst_party_relationships
8019: ( p_api_version => 1.0
8020: ,p_commit => fnd_api.g_false
8021: ,p_init_msg_list => fnd_api.g_false
8022: ,p_validation_level => fnd_api.g_valid_level_full
8023: ,p_party_query_rec => l_party_query_rec
8024: ,p_resolve_id_columns => fnd_api.g_false
8025: ,p_time_stamp => l_time_stamp
8026: ,x_party_header_tbl => l_party_header_tbl
8020: ,p_commit => fnd_api.g_false
8021: ,p_init_msg_list => fnd_api.g_false
8022: ,p_validation_level => fnd_api.g_valid_level_full
8023: ,p_party_query_rec => l_party_query_rec
8024: ,p_resolve_id_columns => fnd_api.g_false
8025: ,p_time_stamp => l_time_stamp
8026: ,x_party_header_tbl => l_party_header_tbl
8027: ,x_return_status => x_return_status
8028: ,x_msg_count => x_msg_count
8028: ,x_msg_count => x_msg_count
8029: ,x_msg_data => x_msg_data
8030: );
8031:
8032: IF NOT(x_return_status = fnd_api.g_ret_sts_success)
8033: THEN
8034: RAISE fnd_api.g_exc_error;
8035: END IF;
8036:
8030: );
8031:
8032: IF NOT(x_return_status = fnd_api.g_ret_sts_success)
8033: THEN
8034: RAISE fnd_api.g_exc_error;
8035: END IF;
8036:
8037: IF (x_party_history_tbl(i).old_party_source_table IS NULL AND
8038: x_party_history_tbl(i).new_party_source_table IS NULL )
8092: ,x_msg_data => x_msg_data
8093: );
8094:
8095:
8096: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
8097: FOR i in 1..x_msg_Count LOOP
8098: FND_MSG_PUB.Get(p_msg_index => i,
8099: p_encoded => 'F',
8100: p_data => x_msg_data,
8100: p_data => x_msg_data,
8101: p_msg_index_out => x_msg_index_out );
8102: csi_gen_utility_pvt.put_line( 'message data = '||x_msg_data);
8103: End LOOP;
8104: RAISE FND_API.G_EXC_ERROR;
8105: END IF;
8106:
8107: x_party_history_tbl(i).old_contact_party_name := l_contact_details.party_name;
8108: -- Added for bug 2179142
8169: END;
8170:
8171: END IF;
8172: -- End addition for bug 2179142
8173: IF NVL(l_old_contact_party_id,fnd_api.g_miss_num) <> NVL(l_new_contact_party_id,fnd_api.g_miss_num)
8174: THEN
8175: x_party_history_tbl(i).old_contact_work_phone_num := l_contact_details.officephone;
8176: x_party_history_tbl(i).old_contact_address1 := l_contact_details.address1;
8177: x_party_history_tbl(i).old_contact_address2 := l_contact_details.address2;
8284: ,x_msg_data => x_msg_data
8285: );
8286:
8287:
8288: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
8289: FOR i in 1..x_msg_Count LOOP
8290: FND_MSG_PUB.Get(p_msg_index => i,
8291: p_encoded => 'F',
8292: p_data => x_msg_data,
8292: p_data => x_msg_data,
8293: p_msg_index_out => x_msg_index_out );
8294: csi_gen_utility_pvt.put_line( 'message data = '||x_msg_data);
8295: End LOOP;
8296: RAISE FND_API.G_EXC_ERROR;
8297: END IF;
8298:
8299: x_party_history_tbl(i).new_contact_party_name := l_contact_details.party_name;
8300: -- Added for bug 2179142
8361: END;
8362:
8363: END IF;
8364: -- End addition for bug 2179142
8365: IF NVL(l_old_contact_party_id,fnd_api.g_miss_num) <> NVL(l_new_contact_party_id,fnd_api.g_miss_num)
8366: THEN
8367: x_party_history_tbl(i).new_contact_work_phone_num := l_contact_details.officephone;
8368: x_party_history_tbl(i).new_contact_address1 := l_contact_details.address1;
8369: x_party_history_tbl(i).new_contact_address2 := l_contact_details.address2;
8451: END;
8452: END IF;
8453: -- Added for bug 2781480
8454: /* Commented for bug 2179142
8455: 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)
8456: THEN
8457: x_party_history_tbl(i).old_party_source_table:=NULL;
8458: x_party_history_tbl(i).new_party_source_table:=NULL;
8459: END IF;
8461: -- End addition for bug 2781480
8462:
8463: -- Added for bug 2179142
8464:
8465: 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)
8466: THEN
8467: x_party_history_tbl(i).old_party_id:=NULL;
8468: x_party_history_tbl(i).new_party_id:=NULL;
8469: END IF;
8472: i := i + 1;
8473: --IF get_party_hist%NOTFOUND THEN
8474: --FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_TXN_ID');
8475: --FND_MSG_PUB.Add;
8476: --RAISE FND_API.G_EXC_ERROR;
8477: --END IF;
8478: END LOOP;
8479:
8480: -- End of API body
8480: -- End of API body
8481:
8482: -- Standard check of p_commit.
8483: /*
8484: IF FND_API.To_Boolean( p_commit ) THEN
8485: COMMIT WORK;
8486: END IF;
8487: */
8488:
8498: FND_MSG_PUB.Count_And_Get
8499: (p_count => x_msg_count ,
8500: p_data => x_msg_data );
8501: EXCEPTION
8502: WHEN FND_API.G_EXC_ERROR THEN
8503: -- ROLLBACK TO get_inst_party_rel_hist;
8504: x_return_status := FND_API.G_RET_STS_ERROR ;
8505: FND_MSG_PUB.Count_And_Get
8506: ( p_count => x_msg_count,
8500: p_data => x_msg_data );
8501: EXCEPTION
8502: WHEN FND_API.G_EXC_ERROR THEN
8503: -- ROLLBACK TO get_inst_party_rel_hist;
8504: x_return_status := FND_API.G_RET_STS_ERROR ;
8505: FND_MSG_PUB.Count_And_Get
8506: ( p_count => x_msg_count,
8507: p_data => x_msg_data );
8508: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8504: x_return_status := FND_API.G_RET_STS_ERROR ;
8505: FND_MSG_PUB.Count_And_Get
8506: ( p_count => x_msg_count,
8507: p_data => x_msg_data );
8508: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8509: -- ROLLBACK TO get_inst_party_rel_hist;
8510: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8511: FND_MSG_PUB.Count_And_Get
8512: ( p_count => x_msg_count,
8506: ( p_count => x_msg_count,
8507: p_data => x_msg_data );
8508: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8509: -- ROLLBACK TO get_inst_party_rel_hist;
8510: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8511: FND_MSG_PUB.Count_And_Get
8512: ( p_count => x_msg_count,
8513: p_data => x_msg_data );
8514: WHEN OTHERS THEN
8512: ( p_count => x_msg_count,
8513: p_data => x_msg_data );
8514: WHEN OTHERS THEN
8515: -- ROLLBACK TO get_inst_party_rel_hist;
8516: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8517: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
8518: FND_MSG_PUB.Add_Exc_Msg
8519: ( g_pkg_name ,
8520: l_api_name );
8622: -- SAVEPOINT get_inst_party_account_hist;
8623:
8624:
8625: -- Standard call to check for call compatibility.
8626: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
8627: p_api_version ,
8628: l_api_name ,
8629: g_pkg_name )
8630: THEN
8627: p_api_version ,
8628: l_api_name ,
8629: g_pkg_name )
8630: THEN
8631: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8632: END IF;
8633:
8634: -- Initialize message list if p_init_msg_list is set to TRUE.
8635: IF FND_API.to_Boolean( p_init_msg_list ) THEN
8631: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8632: END IF;
8633:
8634: -- Initialize message list if p_init_msg_list is set to TRUE.
8635: IF FND_API.to_Boolean( p_init_msg_list ) THEN
8636: FND_MSG_PUB.initialize;
8637: END IF;
8638:
8639: -- Initialize API return status to success
8636: FND_MSG_PUB.initialize;
8637: END IF;
8638:
8639: -- Initialize API return status to success
8640: x_return_status := FND_API.G_RET_STS_SUCCESS;
8641:
8642: -- Check the profile option CSI_DEBUG_LEVEL for debug message reporting
8643: l_csi_debug_level:=fnd_profile.value('CSI_DEBUG_LEVEL');
8644:
8672: x_account_history_tbl(i).ip_account_id := l_acct_hist_csr.ip_account_id;
8673: x_account_history_tbl(i).ip_account_history_id := l_acct_hist_csr.ip_account_history_id;
8674: x_account_history_tbl(i).transaction_id := l_acct_hist_csr.transaction_id;
8675:
8676: 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)
8677: THEN
8678: x_account_history_tbl(i).old_party_account_id := NULL;
8679: x_account_history_tbl(i).new_party_account_id := NULL;
8680: ELSE
8681: x_account_history_tbl(i).old_party_account_id := l_acct_hist_csr.old_party_account_id;
8682: x_account_history_tbl(i).new_party_account_id := l_acct_hist_csr.new_party_account_id;
8683: END IF;
8684:
8685: IF NVL(l_acct_hist_csr.old_relationship_type_code,fnd_api.g_miss_char) =
8686: NVL(l_acct_hist_csr.new_relationship_type_code,fnd_api.g_miss_num)
8687: THEN
8688: x_account_history_tbl(i).old_relationship_type_code := NULL;
8689: x_account_history_tbl(i).new_relationship_type_code := NULL;
8682: x_account_history_tbl(i).new_party_account_id := l_acct_hist_csr.new_party_account_id;
8683: END IF;
8684:
8685: IF NVL(l_acct_hist_csr.old_relationship_type_code,fnd_api.g_miss_char) =
8686: NVL(l_acct_hist_csr.new_relationship_type_code,fnd_api.g_miss_num)
8687: THEN
8688: x_account_history_tbl(i).old_relationship_type_code := NULL;
8689: x_account_history_tbl(i).new_relationship_type_code := NULL;
8690: ELSE
8691: x_account_history_tbl(i).old_relationship_type_code := l_acct_hist_csr.old_relationship_type_code;
8692: x_account_history_tbl(i).new_relationship_type_code := l_acct_hist_csr.new_relationship_type_code;
8693: END IF;
8694:
8695: 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)
8696: THEN
8697: x_account_history_tbl(i).old_active_start_date := NULL;
8698: x_account_history_tbl(i).new_active_start_date := NULL;
8699: ELSE
8700: x_account_history_tbl(i).old_active_start_date := l_acct_hist_csr.old_active_start_date;
8701: x_account_history_tbl(i).new_active_start_date := l_acct_hist_csr.new_active_start_date;
8702: END IF;
8703:
8704: 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)
8705: THEN
8706: x_account_history_tbl(i).old_active_end_date := NULL;
8707: x_account_history_tbl(i).new_active_end_date := NULL;
8708: ELSE
8709: x_account_history_tbl(i).old_active_end_date := l_acct_hist_csr.old_active_end_date;
8710: x_account_history_tbl(i).new_active_end_date := l_acct_hist_csr.new_active_end_date;
8711: END IF;
8712:
8713: 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)
8714: THEN
8715: x_account_history_tbl(i).old_context := NULL;
8716: x_account_history_tbl(i).new_context := NULL;
8717: ELSE
8718: x_account_history_tbl(i).old_context := l_acct_hist_csr.old_context;
8719: x_account_history_tbl(i).new_context := l_acct_hist_csr.new_context;
8720: END IF;
8721:
8722: 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)
8723: THEN
8724: x_account_history_tbl(i).old_attribute1 := NULL;
8725: x_account_history_tbl(i).new_attribute1 := NULL;
8726: ELSE
8727: x_account_history_tbl(i).old_attribute1 := l_acct_hist_csr.old_attribute1;
8728: x_account_history_tbl(i).new_attribute1 := l_acct_hist_csr.new_attribute1;
8729: END IF;
8730:
8731: 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)
8732: THEN
8733: x_account_history_tbl(i).old_attribute2 := NULL;
8734: x_account_history_tbl(i).new_attribute2 := NULL;
8735: ELSE
8736: x_account_history_tbl(i).old_attribute2 := l_acct_hist_csr.old_attribute2;
8737: x_account_history_tbl(i).new_attribute2 := l_acct_hist_csr.new_attribute2;
8738: END IF;
8739:
8740: 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)
8741: THEN
8742: x_account_history_tbl(i).old_attribute3 := NULL;
8743: x_account_history_tbl(i).new_attribute3 := NULL;
8744: ELSE
8746: x_account_history_tbl(i).new_attribute3 := l_acct_hist_csr.new_attribute3;
8747: END IF;
8748:
8749:
8750: 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)
8751: THEN
8752: x_account_history_tbl(i).old_attribute4 := NULL;
8753: x_account_history_tbl(i).new_attribute4 := NULL;
8754: ELSE
8755: x_account_history_tbl(i).old_attribute4 := l_acct_hist_csr.old_attribute4;
8756: x_account_history_tbl(i).new_attribute4 := l_acct_hist_csr.new_attribute4;
8757: END IF;
8758:
8759: 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)
8760: THEN
8761: x_account_history_tbl(i).old_attribute5 := NULL;
8762: x_account_history_tbl(i).new_attribute5 := NULL;
8763: ELSE
8764: x_account_history_tbl(i).old_attribute5 := l_acct_hist_csr.old_attribute5;
8765: x_account_history_tbl(i).new_attribute5 := l_acct_hist_csr.new_attribute5;
8766: END IF;
8767:
8768: 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)
8769: THEN
8770: x_account_history_tbl(i).old_attribute6 := NULL;
8771: x_account_history_tbl(i).new_attribute6 := NULL;
8772: ELSE
8773: x_account_history_tbl(i).old_attribute6 := l_acct_hist_csr.old_attribute6;
8774: x_account_history_tbl(i).new_attribute6 := l_acct_hist_csr.new_attribute6;
8775: END IF;
8776:
8777: 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)
8778: THEN
8779: x_account_history_tbl(i).old_attribute7 := NULL;
8780: x_account_history_tbl(i).new_attribute7 := NULL;
8781: ELSE
8782: x_account_history_tbl(i).old_attribute7 := l_acct_hist_csr.old_attribute7;
8783: x_account_history_tbl(i).new_attribute7 := l_acct_hist_csr.new_attribute7;
8784: END IF;
8785:
8786: 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)
8787: THEN
8788: x_account_history_tbl(i).old_attribute8 := NULL;
8789: x_account_history_tbl(i).new_attribute8 := NULL;
8790: ELSE
8791: x_account_history_tbl(i).old_attribute8 := l_acct_hist_csr.old_attribute8;
8792: x_account_history_tbl(i).new_attribute8 := l_acct_hist_csr.new_attribute8;
8793: END IF;
8794:
8795: 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)
8796: THEN
8797: x_account_history_tbl(i).old_attribute9 := NULL;
8798: x_account_history_tbl(i).new_attribute9 := NULL;
8799: ELSE
8800: x_account_history_tbl(i).old_attribute9 := l_acct_hist_csr.old_attribute9;
8801: x_account_history_tbl(i).new_attribute9 := l_acct_hist_csr.new_attribute9;
8802: END IF;
8803:
8804: 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)
8805: THEN
8806: x_account_history_tbl(i).old_attribute10 := NULL;
8807: x_account_history_tbl(i).new_attribute10 := NULL;
8808: ELSE
8809: x_account_history_tbl(i).old_attribute10 := l_acct_hist_csr.old_attribute10;
8810: x_account_history_tbl(i).new_attribute10 := l_acct_hist_csr.new_attribute10;
8811: END IF;
8812:
8813: 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)
8814: THEN
8815: x_account_history_tbl(i).old_attribute11 := NULL;
8816: x_account_history_tbl(i).new_attribute11 := NULL;
8817: ELSE
8818: x_account_history_tbl(i).old_attribute11 := l_acct_hist_csr.old_attribute11;
8819: x_account_history_tbl(i).new_attribute11 := l_acct_hist_csr.new_attribute11;
8820: END IF;
8821:
8822: 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)
8823: THEN
8824: x_account_history_tbl(i).old_attribute12 := NULL;
8825: x_account_history_tbl(i).new_attribute12 := NULL;
8826: ELSE
8827: x_account_history_tbl(i).old_attribute12 := l_acct_hist_csr.old_attribute12;
8828: x_account_history_tbl(i).new_attribute12 := l_acct_hist_csr.new_attribute12;
8829: END IF;
8830:
8831: 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)
8832: THEN
8833: x_account_history_tbl(i).old_attribute13 := NULL;
8834: x_account_history_tbl(i).new_attribute13 := NULL;
8835: ELSE
8836: x_account_history_tbl(i).old_attribute13 := l_acct_hist_csr.old_attribute13;
8837: x_account_history_tbl(i).new_attribute13 := l_acct_hist_csr.new_attribute13;
8838: END IF;
8839:
8840: 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)
8841: THEN
8842: x_account_history_tbl(i).old_attribute14 := NULL;
8843: x_account_history_tbl(i).new_attribute14 := NULL;
8844: ELSE
8845: x_account_history_tbl(i).old_attribute14 := l_acct_hist_csr.old_attribute14;
8846: x_account_history_tbl(i).new_attribute14 := l_acct_hist_csr.new_attribute14;
8847: END IF;
8848:
8849: 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)
8850: THEN
8851: x_account_history_tbl(i).old_attribute15 := NULL;
8852: x_account_history_tbl(i).new_attribute15 := NULL;
8853: ELSE
8854: x_account_history_tbl(i).old_attribute15 := l_acct_hist_csr.old_attribute15;
8855: x_account_history_tbl(i).new_attribute15 := l_acct_hist_csr.new_attribute15;
8856: END IF;
8857:
8858: 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)
8859: THEN
8860: x_account_history_tbl(i).old_bill_to_address := NULL;
8861: x_account_history_tbl(i).new_bill_to_address := NULL;
8862: ELSE
8863: x_account_history_tbl(i).old_bill_to_address := l_acct_hist_csr.old_bill_to_address;
8864: x_account_history_tbl(i).new_bill_to_address := l_acct_hist_csr.new_bill_to_address;
8865: END IF;
8866:
8867: 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)
8868: THEN
8869: x_account_history_tbl(i).old_ship_to_address := NULL;
8870: x_account_history_tbl(i).new_ship_to_address := NULL;
8871: ELSE
8872: x_account_history_tbl(i).old_ship_to_address := l_acct_hist_csr.old_ship_to_address;
8873: x_account_history_tbl(i).new_ship_to_address := l_acct_hist_csr.new_ship_to_address;
8874: END IF;
8875:
8876: 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)
8877: THEN
8878: x_account_history_tbl(i).old_instance_party_id := NULL;
8879: x_account_history_tbl(i).new_instance_party_id := NULL;
8880: ELSE
8898: ,p_commit => p_commit
8899: ,p_init_msg_list => p_init_msg_list
8900: ,p_validation_level => p_validation_level
8901: ,p_account_query_rec => l_party_account_query_rec
8902: ,p_resolve_id_columns => fnd_api.g_false
8903: ,p_time_stamp => l_time_stamp
8904: ,x_account_header_tbl => l_account_header_tbl
8905: ,x_return_status => x_return_status
8906: ,x_msg_count => x_msg_count
9025: x_account_history_tbl(i).new_ship_to_state := l_account_header_tbl(1).ship_to_state;
9026: x_account_history_tbl(i).new_ship_to_postal_code := l_account_header_tbl(1).ship_to_postal_code;
9027: x_account_history_tbl(i).new_ship_to_country := l_account_header_tbl(1).ship_to_country;
9028:
9029: IF NVL(x_account_history_tbl(i).old_party_account_id,fnd_api.g_miss_num)=
9030: NVL(x_account_history_tbl(i).new_party_account_id,fnd_api.g_miss_num)
9031: THEN
9032: x_account_history_tbl(i).old_party_account_id := NULL;
9033: x_account_history_tbl(i).new_party_account_id := NULL;
9026: x_account_history_tbl(i).new_ship_to_postal_code := l_account_header_tbl(1).ship_to_postal_code;
9027: x_account_history_tbl(i).new_ship_to_country := l_account_header_tbl(1).ship_to_country;
9028:
9029: IF NVL(x_account_history_tbl(i).old_party_account_id,fnd_api.g_miss_num)=
9030: NVL(x_account_history_tbl(i).new_party_account_id,fnd_api.g_miss_num)
9031: THEN
9032: x_account_history_tbl(i).old_party_account_id := NULL;
9033: x_account_history_tbl(i).new_party_account_id := NULL;
9034: END IF;
9041: -- End of API body
9042:
9043: -- Standard check of p_commit.
9044: /*
9045: IF FND_API.To_Boolean( p_commit ) THEN
9046: COMMIT WORK;
9047: END IF;
9048: */
9049:
9059: FND_MSG_PUB.Count_And_Get
9060: (p_count => x_msg_count ,
9061: p_data => x_msg_data );
9062: EXCEPTION
9063: WHEN FND_API.G_EXC_ERROR THEN
9064: -- ROLLBACK TO get_inst_party_account_hist;
9065: x_return_status := FND_API.G_RET_STS_ERROR ;
9066: FND_MSG_PUB.Count_And_Get
9067: ( p_count => x_msg_count,
9061: p_data => x_msg_data );
9062: EXCEPTION
9063: WHEN FND_API.G_EXC_ERROR THEN
9064: -- ROLLBACK TO get_inst_party_account_hist;
9065: x_return_status := FND_API.G_RET_STS_ERROR ;
9066: FND_MSG_PUB.Count_And_Get
9067: ( p_count => x_msg_count,
9068: p_data => x_msg_data );
9069: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9065: x_return_status := FND_API.G_RET_STS_ERROR ;
9066: FND_MSG_PUB.Count_And_Get
9067: ( p_count => x_msg_count,
9068: p_data => x_msg_data );
9069: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9070: -- ROLLBACK TO get_inst_party_account_hist;
9071: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9072: FND_MSG_PUB.Count_And_Get
9073: ( p_count => x_msg_count,
9067: ( p_count => x_msg_count,
9068: p_data => x_msg_data );
9069: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9070: -- ROLLBACK TO get_inst_party_account_hist;
9071: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9072: FND_MSG_PUB.Count_And_Get
9073: ( p_count => x_msg_count,
9074: p_data => x_msg_data );
9075: WHEN OTHERS THEN
9073: ( p_count => x_msg_count,
9074: p_data => x_msg_data );
9075: WHEN OTHERS THEN
9076: -- ROLLBACK TO get_inst_party_account_hist;
9077: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9078: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
9079: FND_MSG_PUB.Add_Exc_Msg
9080: ( g_pkg_name ,
9081: l_api_name );