59: --
60: -- IN OUT : x_return_status VARCHAR2, flag to indicate if the Party Merge procedure
61: -- was successful or not; It can have the following values -
62: --
63: -- FND_API.G_RET_STS_SUCCESS (Success)
64: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
65: -- failed due to Unexpected error)
66: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
67: -- vetod the Party Merge)
60: -- IN OUT : x_return_status VARCHAR2, flag to indicate if the Party Merge procedure
61: -- was successful or not; It can have the following values -
62: --
63: -- FND_API.G_RET_STS_SUCCESS (Success)
64: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
65: -- failed due to Unexpected error)
66: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
67: -- vetod the Party Merge)
68: --
62: --
63: -- FND_API.G_RET_STS_SUCCESS (Success)
64: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
65: -- failed due to Unexpected error)
66: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
67: -- vetod the Party Merge)
68: --
69: -- Version : Current version 1.0
70: -- Previous version 1.0
90: -- a veto against the current Party Merge
91: --
92: FND_MESSAGE.SET_NAME('AR', 'PON_TCA_MRG_ERR'); -- Need to put some Sourcing Specific Error Message
93: FND_MSG_PUB.ADD;
94: x_return_status := FND_API.G_RET_STS_ERROR;
95:
96: --} end of procedure
97: END VETO_ENTERPRISE_PARTY_MERGE;
98:
698: --
699: -- IN OUT : x_return_status VARCHAR2, flag to indicate if the Party Merge procedure
700: -- was successful or not; It can have the following values -
701: --
702: -- FND_API.G_RET_STS_SUCCESS (Success)
703: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
704: -- failed due to Unexpected error)
705: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
706: -- vetod the Party Merge)
699: -- IN OUT : x_return_status VARCHAR2, flag to indicate if the Party Merge procedure
700: -- was successful or not; It can have the following values -
701: --
702: -- FND_API.G_RET_STS_SUCCESS (Success)
703: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
704: -- failed due to Unexpected error)
705: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
706: -- vetod the Party Merge)
707: --
701: --
702: -- FND_API.G_RET_STS_SUCCESS (Success)
703: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
704: -- failed due to Unexpected error)
705: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
706: -- vetod the Party Merge)
707: --
708: -- Version : Current version 1.0
709: -- Previous version 1.0
728:
729: BEGIN
730: --{start of procedure
731:
732: x_return_status := FND_API.G_RET_STS_SUCCESS;
733:
734: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_TPC_MERGE ');
735: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
736: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
760: -- it will possibly never be called
761: --
762: FND_MESSAGE.SET_NAME('AR', 'PON_TCA_MRG_ERR'); -- Need to put some Sourcing Specific Error Message
763: FND_MSG_PUB.ADD;
764: x_return_status := FND_API.G_RET_STS_ERROR;
765:
766: ELSIF (l_merge_scenario = G_BUYER) THEN
767: --
768: -- Now transact the data we have
824: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
825: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
826: FND_MSG_PUB.ADD;
827:
828: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
829:
830: --} end of procedure
831: END NEG_TPC_MERGE;
832:
875: --
876: -- IN OUT : x_return_status VARCHAR2, flag to indicate if the Party Merge procedure
877: -- was successful or not; It can have the following values -
878: --
879: -- FND_API.G_RET_STS_SUCCESS (Success)
880: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
881: -- failed due to Unexpected error)
882: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
883: -- vetod the Party Merge)
876: -- IN OUT : x_return_status VARCHAR2, flag to indicate if the Party Merge procedure
877: -- was successful or not; It can have the following values -
878: --
879: -- FND_API.G_RET_STS_SUCCESS (Success)
880: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
881: -- failed due to Unexpected error)
882: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
883: -- vetod the Party Merge)
884: --
878: --
879: -- FND_API.G_RET_STS_SUCCESS (Success)
880: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
881: -- failed due to Unexpected error)
882: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
883: -- vetod the Party Merge)
884: --
885: -- Version : Current version 1.0
886: -- Previous version 1.0
902:
903: BEGIN
904: --{start of procedure
905:
906: x_return_status := FND_API.G_RET_STS_SUCCESS;
907:
908: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_DRFT_LCK_MERGE ');
909: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
910: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
934: -- it will possibly never be called
935: --
936: FND_MESSAGE.SET_NAME('AR', 'PON_TCA_MRG_ERR'); -- Need to put some Sourcing Specific Error Message
937: FND_MSG_PUB.ADD;
938: x_return_status := FND_API.G_RET_STS_ERROR;
939:
940: ELSIF (l_merge_scenario = G_BUYER) THEN
941: --
942: -- Now transact the data we have
983: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
984: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
985: FND_MSG_PUB.ADD;
986:
987: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
988:
989: --} end of procedure
990: END NEG_DRFT_LCK_MERGE;
991:
1034: --
1035: -- IN OUT : x_return_status VARCHAR2, flag to indicate if the Party Merge procedure
1036: -- was successful or not; It can have the following values -
1037: --
1038: -- FND_API.G_RET_STS_SUCCESS (Success)
1039: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
1040: -- failed due to Unexpected error)
1041: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
1042: -- vetod the Party Merge)
1035: -- IN OUT : x_return_status VARCHAR2, flag to indicate if the Party Merge procedure
1036: -- was successful or not; It can have the following values -
1037: --
1038: -- FND_API.G_RET_STS_SUCCESS (Success)
1039: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
1040: -- failed due to Unexpected error)
1041: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
1042: -- vetod the Party Merge)
1043: --
1037: --
1038: -- FND_API.G_RET_STS_SUCCESS (Success)
1039: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
1040: -- failed due to Unexpected error)
1041: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
1042: -- vetod the Party Merge)
1043: --
1044: -- Version : Current version 1.0
1045: -- Previous version 1.0
1061:
1062: BEGIN
1063: --{start of procedure
1064:
1065: x_return_status := FND_API.G_RET_STS_SUCCESS;
1066:
1067: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_DRFT_UNLCK_MERGE ');
1068: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
1069: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
1094: -- it will possibly never be called
1095: --
1096: FND_MESSAGE.SET_NAME('AR', 'PON_TCA_MRG_ERR'); -- Need to put some Sourcing Specific Error Message
1097: FND_MSG_PUB.ADD;
1098: x_return_status := FND_API.G_RET_STS_ERROR;
1099:
1100: ELSIF (l_merge_scenario = G_BUYER) THEN
1101:
1102: fnd_file.put_line (fnd_file.log, '30 : Buyer Merge ');
1146: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1147: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1148: FND_MSG_PUB.ADD;
1149:
1150: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1151:
1152: --} end of procedure
1153: END NEG_DRFT_UNLCK_MERGE;
1154:
1198: --
1199: -- IN OUT : x_return_status VARCHAR2, flag to indicate if the Party Merge procedure
1200: -- was successful or not; It can have the following values -
1201: --
1202: -- FND_API.G_RET_STS_SUCCESS (Success)
1203: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
1204: -- failed due to Unexpected error)
1205: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
1206: -- vetod the Party Merge)
1199: -- IN OUT : x_return_status VARCHAR2, flag to indicate if the Party Merge procedure
1200: -- was successful or not; It can have the following values -
1201: --
1202: -- FND_API.G_RET_STS_SUCCESS (Success)
1203: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
1204: -- failed due to Unexpected error)
1205: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
1206: -- vetod the Party Merge)
1207: --
1201: --
1202: -- FND_API.G_RET_STS_SUCCESS (Success)
1203: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
1204: -- failed due to Unexpected error)
1205: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
1206: -- vetod the Party Merge)
1207: --
1208: -- Version : Current version 1.0
1209: -- Previous version 1.0
1225:
1226: BEGIN
1227: --{start of procedure
1228:
1229: x_return_status := FND_API.G_RET_STS_SUCCESS;
1230:
1231: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_SCORE_LCK_MERGE ');
1232: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
1233: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
1258: -- it will possibly never be called
1259: --
1260: FND_MESSAGE.SET_NAME('AR', 'PON_TCA_MRG_ERR'); -- Need to put some Sourcing Specific Error Message
1261: FND_MSG_PUB.ADD;
1262: x_return_status := FND_API.G_RET_STS_ERROR;
1263:
1264: ELSIF (l_merge_scenario = G_BUYER) THEN
1265: --
1266: -- Now transact the data we have
1308: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1309: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1310: FND_MSG_PUB.ADD;
1311:
1312: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1313:
1314: --} end of procedure
1315: END NEG_SCORE_LCK_MERGE;
1316:
1360: --
1361: -- IN OUT : x_return_status VARCHAR2, flag to indicate if the Party Merge procedure
1362: -- was successful or not; It can have the following values -
1363: --
1364: -- FND_API.G_RET_STS_SUCCESS (Success)
1365: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
1366: -- failed due to Unexpected error)
1367: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
1368: -- vetod the Party Merge)
1361: -- IN OUT : x_return_status VARCHAR2, flag to indicate if the Party Merge procedure
1362: -- was successful or not; It can have the following values -
1363: --
1364: -- FND_API.G_RET_STS_SUCCESS (Success)
1365: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
1366: -- failed due to Unexpected error)
1367: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
1368: -- vetod the Party Merge)
1369: --
1363: --
1364: -- FND_API.G_RET_STS_SUCCESS (Success)
1365: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
1366: -- failed due to Unexpected error)
1367: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
1368: -- vetod the Party Merge)
1369: --
1370: -- Version : Current version 1.0
1371: -- Previous version 1.0
1388:
1389: BEGIN
1390: --{start of procedure
1391:
1392: x_return_status := FND_API.G_RET_STS_SUCCESS;
1393:
1394: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_EVENT_MERGE ');
1395: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
1396: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
1420: -- it will possibly never be called
1421: --
1422: FND_MESSAGE.SET_NAME('AR', 'PON_TCA_MRG_ERR'); -- Need to put some Sourcing Specific Error Message
1423: FND_MSG_PUB.ADD;
1424: x_return_status := FND_API.G_RET_STS_ERROR;
1425:
1426: ELSIF (l_merge_scenario = G_BUYER) THEN
1427:
1428: fnd_file.put_line (fnd_file.log, '30 : Buyer Merge - Getting Person Name from HZ_PARTIES');
1468: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1469: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1470: FND_MSG_PUB.ADD;
1471:
1472: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1473:
1474: --} end of procedure
1475: END NEG_EVENT_MERGE;
1476:
1519: --
1520: -- IN OUT : x_return_status VARCHAR2, flag to indicate if the Party Merge procedure
1521: -- was successful or not; It can have the following values -
1522: --
1523: -- FND_API.G_RET_STS_SUCCESS (Success)
1524: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
1525: -- failed due to Unexpected error)
1526: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
1527: -- vetod the Party Merge)
1520: -- IN OUT : x_return_status VARCHAR2, flag to indicate if the Party Merge procedure
1521: -- was successful or not; It can have the following values -
1522: --
1523: -- FND_API.G_RET_STS_SUCCESS (Success)
1524: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
1525: -- failed due to Unexpected error)
1526: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
1527: -- vetod the Party Merge)
1528: --
1522: --
1523: -- FND_API.G_RET_STS_SUCCESS (Success)
1524: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
1525: -- failed due to Unexpected error)
1526: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
1527: -- vetod the Party Merge)
1528: --
1529: -- Version : Current version 1.0
1530: -- Previous version 1.0
1546:
1547: BEGIN
1548: --{start of procedure
1549:
1550: x_return_status := FND_API.G_RET_STS_SUCCESS;
1551:
1552: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.BIDDER_LST_MERGE ');
1553: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
1554: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
1578: -- it will possibly never be called
1579: --
1580: FND_MESSAGE.SET_NAME('AR', 'PON_TCA_MRG_ERR'); -- Need to put some Sourcing Specific Error Message
1581: FND_MSG_PUB.ADD;
1582: x_return_status := FND_API.G_RET_STS_ERROR;
1583:
1584: ELSIF (l_merge_scenario = G_BUYER) THEN
1585: --
1586: -- Now transact the data we have
1620: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1621: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1622: FND_MSG_PUB.ADD;
1623:
1624: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1625:
1626: --} end of procedure
1627: END BIDDER_LST_MERGE;
1628:
1672: --
1673: -- IN OUT : x_return_status VARCHAR2, flag to indicate if the Party Merge procedure
1674: -- was successful or not; It can have the following values -
1675: --
1676: -- FND_API.G_RET_STS_SUCCESS (Success)
1677: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
1678: -- failed due to Unexpected error)
1679: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
1680: -- vetod the Party Merge)
1673: -- IN OUT : x_return_status VARCHAR2, flag to indicate if the Party Merge procedure
1674: -- was successful or not; It can have the following values -
1675: --
1676: -- FND_API.G_RET_STS_SUCCESS (Success)
1677: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
1678: -- failed due to Unexpected error)
1679: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
1680: -- vetod the Party Merge)
1681: --
1675: --
1676: -- FND_API.G_RET_STS_SUCCESS (Success)
1677: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
1678: -- failed due to Unexpected error)
1679: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
1680: -- vetod the Party Merge)
1681: --
1682: -- Version : Current version 1.0
1683: -- Previous version 1.0
1699:
1700: BEGIN
1701: --{start of procedure
1702:
1703: x_return_status := FND_API.G_RET_STS_SUCCESS;
1704:
1705: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_ATTR_LST_MERGE ');
1706: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
1707: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
1731: -- it will possibly never be called
1732: --
1733: FND_MESSAGE.SET_NAME('AR', 'PON_TCA_MRG_ERR'); -- Need to put some Sourcing Specific Error Message
1734: FND_MSG_PUB.ADD;
1735: x_return_status := FND_API.G_RET_STS_ERROR;
1736:
1737: ELSIF (l_merge_scenario = G_BUYER) THEN
1738:
1739: fnd_file.put_line (fnd_file.log, '30 : Buyer Merge');
1773: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1774: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1775: FND_MSG_PUB.ADD;
1776:
1777: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1778:
1779: --} end of procedure
1780: END NEG_ATTR_LST_MERGE;
1781:
1824: --
1825: -- IN OUT : x_return_status VARCHAR2, flag to indicate if the Party Merge procedure
1826: -- was successful or not; It can have the following values -
1827: --
1828: -- FND_API.G_RET_STS_SUCCESS (Success)
1829: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
1830: -- failed due to Unexpected error)
1831: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
1832: -- vetod the Party Merge)
1825: -- IN OUT : x_return_status VARCHAR2, flag to indicate if the Party Merge procedure
1826: -- was successful or not; It can have the following values -
1827: --
1828: -- FND_API.G_RET_STS_SUCCESS (Success)
1829: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
1830: -- failed due to Unexpected error)
1831: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
1832: -- vetod the Party Merge)
1833: --
1827: --
1828: -- FND_API.G_RET_STS_SUCCESS (Success)
1829: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
1830: -- failed due to Unexpected error)
1831: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
1832: -- vetod the Party Merge)
1833: --
1834: -- Version : Current version 1.0
1835: -- Previous version 1.0
1851:
1852: BEGIN
1853: --{start of procedure
1854:
1855: x_return_status := FND_API.G_RET_STS_SUCCESS;
1856:
1857: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.RES_SURROG_MERGE ');
1858: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
1859: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
1883: -- it will possibly never be called
1884: --
1885: FND_MESSAGE.SET_NAME('AR', 'PON_TCA_MRG_ERR'); -- Need to put some Sourcing Specific Error Message
1886: FND_MSG_PUB.ADD;
1887: x_return_status := FND_API.G_RET_STS_ERROR;
1888:
1889: ELSIF (l_merge_scenario = G_BUYER) THEN
1890: fnd_file.put_line (fnd_file.log, '30 : Buyer Merge ');
1891: --
1934: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1935: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1936: FND_MSG_PUB.ADD;
1937:
1938: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1939:
1940: --} end of procedure
1941: END RES_SURROG_MERGE;
1942:
1985: --
1986: -- IN OUT : x_return_status VARCHAR2, flag to indicate if the Party Merge procedure
1987: -- was successful or not; It can have the following values -
1988: --
1989: -- FND_API.G_RET_STS_SUCCESS (Success)
1990: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
1991: -- failed due to Unexpected error)
1992: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
1993: -- vetod the Party Merge)
1986: -- IN OUT : x_return_status VARCHAR2, flag to indicate if the Party Merge procedure
1987: -- was successful or not; It can have the following values -
1988: --
1989: -- FND_API.G_RET_STS_SUCCESS (Success)
1990: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
1991: -- failed due to Unexpected error)
1992: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
1993: -- vetod the Party Merge)
1994: --
1988: --
1989: -- FND_API.G_RET_STS_SUCCESS (Success)
1990: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
1991: -- failed due to Unexpected error)
1992: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
1993: -- vetod the Party Merge)
1994: --
1995: -- Version : Current version 1.0
1996: -- Previous version 1.0
2012:
2013: BEGIN
2014: --{start of procedure
2015:
2016: x_return_status := FND_API.G_RET_STS_SUCCESS;
2017:
2018: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.RES_SCORE_MERGE ');
2019: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
2020: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
2045: -- it will possibly never be called
2046: --
2047: FND_MESSAGE.SET_NAME('AR', 'PON_TCA_MRG_ERR'); -- Need to put some Sourcing Specific Error Message
2048: FND_MSG_PUB.ADD;
2049: x_return_status := FND_API.G_RET_STS_ERROR;
2050:
2051: ELSIF (l_merge_scenario = G_BUYER) THEN
2052:
2053: fnd_file.put_line (fnd_file.log, '30 : Buyer Merge ');
2096: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
2097: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2098: FND_MSG_PUB.ADD;
2099:
2100: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2101:
2102: --} end of procedure
2103: END RES_SCORE_MERGE;
2104:
2148: --
2149: -- IN OUT : x_return_status VARCHAR2, flag to indicate if the Party Merge procedure
2150: -- was successful or not; It can have the following values -
2151: --
2152: -- FND_API.G_RET_STS_SUCCESS (Success)
2153: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
2154: -- failed due to Unexpected error)
2155: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
2156: -- vetod the Party Merge)
2149: -- IN OUT : x_return_status VARCHAR2, flag to indicate if the Party Merge procedure
2150: -- was successful or not; It can have the following values -
2151: --
2152: -- FND_API.G_RET_STS_SUCCESS (Success)
2153: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
2154: -- failed due to Unexpected error)
2155: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
2156: -- vetod the Party Merge)
2157: --
2151: --
2152: -- FND_API.G_RET_STS_SUCCESS (Success)
2153: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
2154: -- failed due to Unexpected error)
2155: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
2156: -- vetod the Party Merge)
2157: --
2158: -- Version : Current version 1.0
2159: -- Previous version 1.0
2175:
2176: BEGIN
2177: --{start of procedure
2178:
2179: x_return_status := FND_API.G_RET_STS_SUCCESS;
2180:
2181: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.RES_SHRT_LIST_MERGE ');
2182: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
2183: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
2207: -- it will possibly never be called
2208: --
2209: FND_MESSAGE.SET_NAME('AR', 'PON_TCA_MRG_ERR'); -- Need to put some Sourcing Specific Error Message
2210: FND_MSG_PUB.ADD;
2211: x_return_status := FND_API.G_RET_STS_ERROR;
2212:
2213: ELSIF (l_merge_scenario = G_BUYER) THEN
2214: fnd_file.put_line (fnd_file.log, '30 : Buyer Merge ');
2215: --
2256: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
2257: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2258: FND_MSG_PUB.ADD;
2259:
2260: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2261:
2262: --} end of procedure
2263: END RES_SHRT_LIST_MERGE;
2264:
2307: --
2308: -- IN OUT : x_return_status VARCHAR2, flag to indicate if the Party Merge procedure
2309: -- was successful or not; It can have the following values -
2310: --
2311: -- FND_API.G_RET_STS_SUCCESS (Success)
2312: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
2313: -- failed due to Unexpected error)
2314: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
2315: -- vetod the Party Merge)
2308: -- IN OUT : x_return_status VARCHAR2, flag to indicate if the Party Merge procedure
2309: -- was successful or not; It can have the following values -
2310: --
2311: -- FND_API.G_RET_STS_SUCCESS (Success)
2312: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
2313: -- failed due to Unexpected error)
2314: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
2315: -- vetod the Party Merge)
2316: --
2310: --
2311: -- FND_API.G_RET_STS_SUCCESS (Success)
2312: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
2313: -- failed due to Unexpected error)
2314: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
2315: -- vetod the Party Merge)
2316: --
2317: -- Version : Current version 1.0
2318: -- Previous version 1.0
2334:
2335: BEGIN
2336: --{start of procedure
2337:
2338: x_return_status := FND_API.G_RET_STS_SUCCESS;
2339:
2340: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_CONTRCT_MERGE ');
2341: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
2342: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
2366: -- it will possibly never be called
2367: --
2368: FND_MESSAGE.SET_NAME('AR', 'PON_TCA_MRG_ERR'); -- Need to put some Sourcing Specific Error Message
2369: FND_MSG_PUB.ADD;
2370: x_return_status := FND_API.G_RET_STS_ERROR;
2371:
2372: ELSIF (l_merge_scenario = G_BUYER) THEN
2373:
2374: fnd_file.put_line (fnd_file.log, '30 : Buyer Merge ');
2416: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
2417: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2418: FND_MSG_PUB.ADD;
2419:
2420: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2421:
2422: --} end of procedure
2423: END NEG_CONTRCT_MERGE;
2424:
2470: --
2471: -- IN OUT : x_return_status VARCHAR2, flag to indicate if the Party Merge procedure
2472: -- was successful or not; It can have the following values -
2473: --
2474: -- FND_API.G_RET_STS_SUCCESS (Success)
2475: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
2476: -- failed due to Unexpected error)
2477: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
2478: -- vetod the Party Merge)
2471: -- IN OUT : x_return_status VARCHAR2, flag to indicate if the Party Merge procedure
2472: -- was successful or not; It can have the following values -
2473: --
2474: -- FND_API.G_RET_STS_SUCCESS (Success)
2475: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
2476: -- failed due to Unexpected error)
2477: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
2478: -- vetod the Party Merge)
2479: --
2473: --
2474: -- FND_API.G_RET_STS_SUCCESS (Success)
2475: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
2476: -- failed due to Unexpected error)
2477: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
2478: -- vetod the Party Merge)
2479: --
2480: -- Version : Current version 1.0
2481: -- Previous version 1.0
2497:
2498: BEGIN
2499: --{start of procedure
2500:
2501: x_return_status := FND_API.G_RET_STS_SUCCESS;
2502:
2503: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_DISC_THR_MERGE ');
2504: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
2505: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
2526: -- This can not be passed. Thus, raising a veto.
2527: --
2528: FND_MESSAGE.SET_NAME('AR', 'PON_TCA_MRG_ERR'); -- Need to put some Sourcing Specific Error Message
2529: FND_MSG_PUB.ADD;
2530: x_return_status := FND_API.G_RET_STS_ERROR;
2531:
2532: ELSIF (l_merge_scenario = G_SELLER OR l_merge_scenario = G_BUYER) THEN
2533:
2534: fnd_file.put_line (fnd_file.log, '30 : Buyer or Seller Merge ');
2562: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
2563: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2564: FND_MSG_PUB.ADD;
2565:
2566: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2567:
2568: --} end of procedure
2569: END NEG_DISC_THR_MERGE;
2570:
2615: --
2616: -- IN OUT : x_return_status VARCHAR2, flag to indicate if the Party Merge procedure
2617: -- was successful or not; It can have the following values -
2618: --
2619: -- FND_API.G_RET_STS_SUCCESS (Success)
2620: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
2621: -- failed due to Unexpected error)
2622: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
2623: -- vetod the Party Merge)
2616: -- IN OUT : x_return_status VARCHAR2, flag to indicate if the Party Merge procedure
2617: -- was successful or not; It can have the following values -
2618: --
2619: -- FND_API.G_RET_STS_SUCCESS (Success)
2620: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
2621: -- failed due to Unexpected error)
2622: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
2623: -- vetod the Party Merge)
2624: --
2618: --
2619: -- FND_API.G_RET_STS_SUCCESS (Success)
2620: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
2621: -- failed due to Unexpected error)
2622: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
2623: -- vetod the Party Merge)
2624: --
2625: -- Version : Current version 1.0
2626: -- Previous version 1.0
2644:
2645: BEGIN
2646: --{start of procedure
2647:
2648: x_return_status := FND_API.G_RET_STS_SUCCESS;
2649:
2650: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_DISC_THR_ENTRY_MERGE ');
2651: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
2652: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
2674: -- This can not be passed. Thus, raising a veto.
2675: --
2676: FND_MESSAGE.SET_NAME('AR', 'PON_TCA_MRG_ERR'); -- Need to put some Sourcing Specific Error Message
2677: FND_MSG_PUB.ADD;
2678: x_return_status := FND_API.G_RET_STS_ERROR;
2679:
2680: ELSIF (l_merge_scenario = G_SELLER OR l_merge_scenario = G_BUYER) THEN
2681:
2682: fnd_file.put_line (fnd_file.log, '30 : Buyer or Seller Merge - Getting Person Name from HZ');
2739: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
2740: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2741: FND_MSG_PUB.ADD;
2742:
2743: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2744:
2745: --} end of procedure
2746: END NEG_DISC_THR_ENTRY_MERGE;
2747:
2796: --
2797: -- IN OUT : x_return_status VARCHAR2, flag to indicate if the Party Merge procedure
2798: -- was successful or not; It can have the following values -
2799: --
2800: -- FND_API.G_RET_STS_SUCCESS (Success)
2801: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
2802: -- failed due to Unexpected error)
2803: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
2804: -- vetod the Party Merge)
2797: -- IN OUT : x_return_status VARCHAR2, flag to indicate if the Party Merge procedure
2798: -- was successful or not; It can have the following values -
2799: --
2800: -- FND_API.G_RET_STS_SUCCESS (Success)
2801: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
2802: -- failed due to Unexpected error)
2803: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
2804: -- vetod the Party Merge)
2805: --
2799: --
2800: -- FND_API.G_RET_STS_SUCCESS (Success)
2801: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
2802: -- failed due to Unexpected error)
2803: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
2804: -- vetod the Party Merge)
2805: --
2806: -- Version : Current version 1.0
2807: -- Previous version 1.0
2825:
2826: BEGIN
2827: --{start of procedure
2828:
2829: x_return_status := FND_API.G_RET_STS_SUCCESS;
2830:
2831: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_COMP_MERGE ');
2832: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
2833: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
2854: -- This can not be passed. Thus, raising a veto.
2855: --
2856: FND_MESSAGE.SET_NAME('AR', 'PON_TCA_MRG_ERR'); -- Need to put some Sourcing Specific Error Message
2857: FND_MSG_PUB.ADD;
2858: x_return_status := FND_API.G_RET_STS_ERROR;
2859:
2860: ELSIF (l_merge_scenario = G_SELLER OR l_merge_scenario = G_IRRELEVANT) THEN
2861: --
2862: -- Case 1. Both are Seller Companies - In that case the vendor merge routine
2880: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
2881: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2882: FND_MSG_PUB.ADD;
2883:
2884: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2885:
2886: --} end of procedure
2887: END NEG_COMP_MERGE;
2888:
2933: --
2934: -- IN OUT : x_return_status VARCHAR2, flag to indicate if the Party Merge procedure
2935: -- was successful or not; It can have the following values -
2936: --
2937: -- FND_API.G_RET_STS_SUCCESS (Success)
2938: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
2939: -- failed due to Unexpected error)
2940: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
2941: -- vetod the Party Merge)
2934: -- IN OUT : x_return_status VARCHAR2, flag to indicate if the Party Merge procedure
2935: -- was successful or not; It can have the following values -
2936: --
2937: -- FND_API.G_RET_STS_SUCCESS (Success)
2938: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
2939: -- failed due to Unexpected error)
2940: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
2941: -- vetod the Party Merge)
2942: --
2936: --
2937: -- FND_API.G_RET_STS_SUCCESS (Success)
2938: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
2939: -- failed due to Unexpected error)
2940: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
2941: -- vetod the Party Merge)
2942: --
2943: -- Version : Current version 1.0
2944: -- Previous version 1.0
2962:
2963: BEGIN
2964: --{start of procedure
2965:
2966: x_return_status := FND_API.G_RET_STS_SUCCESS;
2967:
2968: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_DISC_TE_RCP_MERGE ');
2969: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
2970: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
2991: -- This can not be passed. Thus, raising a veto.
2992: --
2993: FND_MESSAGE.SET_NAME('AR', 'PON_TCA_MRG_ERR'); -- Need to put some Sourcing Specific Error Message
2994: FND_MSG_PUB.ADD;
2995: x_return_status := FND_API.G_RET_STS_ERROR;
2996:
2997: ELSIF (l_merge_scenario = G_SELLER OR l_merge_scenario = G_BUYER) THEN
2998:
2999: fnd_file.put_line (fnd_file.log, '30 : Buyer or Seller Merge - Getting Person Name from HZ');
3058: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
3059: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3060: FND_MSG_PUB.ADD;
3061:
3062: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3063:
3064: --} end of procedure
3065: END NEG_DISC_TE_RCP_MERGE;
3066:
3109: --
3110: -- IN OUT : x_return_status VARCHAR2, flag to indicate if the Party Merge procedure
3111: -- was successful or not; It can have the following values -
3112: --
3113: -- FND_API.G_RET_STS_SUCCESS (Success)
3114: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
3115: -- failed due to Unexpected error)
3116: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
3117: -- vetod the Party Merge)
3110: -- IN OUT : x_return_status VARCHAR2, flag to indicate if the Party Merge procedure
3111: -- was successful or not; It can have the following values -
3112: --
3113: -- FND_API.G_RET_STS_SUCCESS (Success)
3114: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
3115: -- failed due to Unexpected error)
3116: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
3117: -- vetod the Party Merge)
3118: --
3112: --
3113: -- FND_API.G_RET_STS_SUCCESS (Success)
3114: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
3115: -- failed due to Unexpected error)
3116: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
3117: -- vetod the Party Merge)
3118: --
3119: -- Version : Current version 1.0
3120: -- Previous version 1.0
3136:
3137: BEGIN
3138: --{start of procedure
3139:
3140: x_return_status := FND_API.G_RET_STS_SUCCESS;
3141:
3142: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.RES_SURR_ACK_MERGE ');
3143: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
3144: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
3169: -- it will possibly never be called
3170: --
3171: FND_MESSAGE.SET_NAME('AR', 'PON_TCA_MRG_ERR'); -- Need to put some Sourcing Specific Error Message
3172: FND_MSG_PUB.ADD;
3173: x_return_status := FND_API.G_RET_STS_ERROR;
3174:
3175: ELSIF (l_merge_scenario = G_BUYER) THEN
3176:
3177: fnd_file.put_line (fnd_file.log, '30 : Buyer Merge ');
3219: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
3220: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3221: FND_MSG_PUB.ADD;
3222:
3223: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3224:
3225: --} end of procedure
3226: END RES_SURR_ACK_MERGE;
3227:
3270: --
3271: -- IN OUT : x_return_status VARCHAR2, flag to indicate if the Party Merge procedure
3272: -- was successful or not; It can have the following values -
3273: --
3274: -- FND_API.G_RET_STS_SUCCESS (Success)
3275: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
3276: -- failed due to Unexpected error)
3277: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
3278: -- vetod the Party Merge)
3271: -- IN OUT : x_return_status VARCHAR2, flag to indicate if the Party Merge procedure
3272: -- was successful or not; It can have the following values -
3273: --
3274: -- FND_API.G_RET_STS_SUCCESS (Success)
3275: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
3276: -- failed due to Unexpected error)
3277: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
3278: -- vetod the Party Merge)
3279: --
3273: --
3274: -- FND_API.G_RET_STS_SUCCESS (Success)
3275: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
3276: -- failed due to Unexpected error)
3277: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
3278: -- vetod the Party Merge)
3279: --
3280: -- Version : Current version 1.0
3281: -- Previous version 1.0
3297:
3298: BEGIN
3299: --{start of procedure
3300:
3301: x_return_status := FND_API.G_RET_STS_SUCCESS;
3302:
3303: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.NEG_SUPP_ACC_MERGE ');
3304: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
3305: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
3329: -- it will possibly never be called
3330: --
3331: FND_MESSAGE.SET_NAME('AR', 'PON_TCA_MRG_ERR'); -- Need to put some Sourcing Specific Error Message
3332: FND_MSG_PUB.ADD;
3333: x_return_status := FND_API.G_RET_STS_ERROR;
3334:
3335: ELSIF (l_merge_scenario = G_BUYER) THEN
3336: fnd_file.put_line (fnd_file.log, '30 : Buyer Merge ');
3337: --
3378: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
3379: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3380: FND_MSG_PUB.ADD;
3381:
3382: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3383:
3384: --} end of procedure
3385: END NEG_SUPP_ACC_MERGE;
3386:
3429: --
3430: -- IN OUT : x_return_status VARCHAR2, flag to indicate if the Party Merge procedure
3431: -- was successful or not; It can have the following values -
3432: --
3433: -- FND_API.G_RET_STS_SUCCESS (Success)
3434: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
3435: -- failed due to Unexpected error)
3436: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
3437: -- vetod the Party Merge)
3430: -- IN OUT : x_return_status VARCHAR2, flag to indicate if the Party Merge procedure
3431: -- was successful or not; It can have the following values -
3432: --
3433: -- FND_API.G_RET_STS_SUCCESS (Success)
3434: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
3435: -- failed due to Unexpected error)
3436: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
3437: -- vetod the Party Merge)
3438: --
3432: --
3433: -- FND_API.G_RET_STS_SUCCESS (Success)
3434: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
3435: -- failed due to Unexpected error)
3436: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
3437: -- vetod the Party Merge)
3438: --
3439: -- Version : Current version 1.0
3440: -- Previous version 1.0
3457:
3458: BEGIN
3459: --{start of procedure
3460:
3461: x_return_status := FND_API.G_RET_STS_SUCCESS;
3462:
3463: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.BID_PARTY_TPC_MERGE ');
3464: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
3465: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
3490: -- it will possibly never be called
3491: --
3492: FND_MESSAGE.SET_NAME('AR', 'PON_TCA_MRG_ERR'); -- Need to put some Sourcing Specific Error Message
3493: FND_MSG_PUB.ADD;
3494: x_return_status := FND_API.G_RET_STS_ERROR;
3495:
3496: ELSIF (l_merge_scenario = G_SELLER) THEN
3497:
3498: fnd_file.put_line (fnd_file.log, '30 : Seller Merge - Getting Person Name from HZ');
3540: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
3541: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3542: FND_MSG_PUB.ADD;
3543:
3544: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3545:
3546: --} end of procedure
3547: END BID_PARTY_TPC_MERGE;
3548:
3591: --
3592: -- IN OUT : x_return_status VARCHAR2, flag to indicate if the Party Merge procedure
3593: -- was successful or not; It can have the following values -
3594: --
3595: -- FND_API.G_RET_STS_SUCCESS (Success)
3596: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
3597: -- failed due to Unexpected error)
3598: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
3599: -- vetod the Party Merge)
3592: -- IN OUT : x_return_status VARCHAR2, flag to indicate if the Party Merge procedure
3593: -- was successful or not; It can have the following values -
3594: --
3595: -- FND_API.G_RET_STS_SUCCESS (Success)
3596: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
3597: -- failed due to Unexpected error)
3598: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
3599: -- vetod the Party Merge)
3600: --
3594: --
3595: -- FND_API.G_RET_STS_SUCCESS (Success)
3596: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
3597: -- failed due to Unexpected error)
3598: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
3599: -- vetod the Party Merge)
3600: --
3601: -- Version : Current version 1.0
3602: -- Previous version 1.0
3619:
3620: BEGIN
3621: --{start of procedure
3622:
3623: x_return_status := FND_API.G_RET_STS_SUCCESS;
3624:
3625: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.BID_PARTY_ACK_TPC_MERGE ');
3626: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
3627: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
3651: -- it will possibly never be called
3652: --
3653: FND_MESSAGE.SET_NAME('AR', 'PON_TCA_MRG_ERR'); -- Need to put some Sourcing Specific Error Message
3654: FND_MSG_PUB.ADD;
3655: x_return_status := FND_API.G_RET_STS_ERROR;
3656:
3657: ELSIF (l_merge_scenario = G_SELLER) THEN
3658:
3659: fnd_file.put_line (fnd_file.log, '30 : Seller Merge - Getting Person Name from HZ');
3701: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
3702: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3703: FND_MSG_PUB.ADD;
3704:
3705: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3706:
3707: --} end of procedure
3708: END BID_PARTY_ACK_TPC_MERGE;
3709:
3752: --
3753: -- IN OUT : x_return_status VARCHAR2, flag to indicate if the Party Merge procedure
3754: -- was successful or not; It can have the following values -
3755: --
3756: -- FND_API.G_RET_STS_SUCCESS (Success)
3757: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
3758: -- failed due to Unexpected error)
3759: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
3760: -- vetod the Party Merge)
3753: -- IN OUT : x_return_status VARCHAR2, flag to indicate if the Party Merge procedure
3754: -- was successful or not; It can have the following values -
3755: --
3756: -- FND_API.G_RET_STS_SUCCESS (Success)
3757: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
3758: -- failed due to Unexpected error)
3759: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
3760: -- vetod the Party Merge)
3761: --
3755: --
3756: -- FND_API.G_RET_STS_SUCCESS (Success)
3757: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
3758: -- failed due to Unexpected error)
3759: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
3760: -- vetod the Party Merge)
3761: --
3762: -- Version : Current version 1.0
3763: -- Previous version 1.0
3779:
3780: BEGIN
3781: --{start of procedure
3782:
3783: x_return_status := FND_API.G_RET_STS_SUCCESS;
3784:
3785: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.RES_UNLCK_TPC_MERGE ');
3786: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
3787: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
3812: -- it will possibly never be called
3813: --
3814: FND_MESSAGE.SET_NAME('AR', 'PON_TCA_MRG_ERR'); -- Need to put some Sourcing Specific Error Message
3815: FND_MSG_PUB.ADD;
3816: x_return_status := FND_API.G_RET_STS_ERROR;
3817:
3818: ELSIF (l_merge_scenario = G_SELLER OR l_merge_scenario = G_BUYER ) THEN
3819:
3820: fnd_file.put_line (fnd_file.log, '30 : Seller Merge ');
3848: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
3849: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3850: FND_MSG_PUB.ADD;
3851:
3852: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3853:
3854: --} end of procedure
3855: END RES_UNLCK_TPC_MERGE;
3856:
3900: --
3901: -- IN OUT : x_return_status VARCHAR2, flag to indicate if the Party Merge procedure
3902: -- was successful or not; It can have the following values -
3903: --
3904: -- FND_API.G_RET_STS_SUCCESS (Success)
3905: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
3906: -- failed due to Unexpected error)
3907: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
3908: -- vetod the Party Merge)
3901: -- IN OUT : x_return_status VARCHAR2, flag to indicate if the Party Merge procedure
3902: -- was successful or not; It can have the following values -
3903: --
3904: -- FND_API.G_RET_STS_SUCCESS (Success)
3905: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
3906: -- failed due to Unexpected error)
3907: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
3908: -- vetod the Party Merge)
3909: --
3903: --
3904: -- FND_API.G_RET_STS_SUCCESS (Success)
3905: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
3906: -- failed due to Unexpected error)
3907: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
3908: -- vetod the Party Merge)
3909: --
3910: -- Version : Current version 1.0
3911: -- Previous version 1.0
3927:
3928: BEGIN
3929: --{start of procedure
3930:
3931: x_return_status := FND_API.G_RET_STS_SUCCESS;
3932:
3933: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.RES_LCK_TPC_MERGE ');
3934: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
3935: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
3960: -- it will possibly never be called
3961: --
3962: FND_MESSAGE.SET_NAME('AR', 'PON_TCA_MRG_ERR'); -- Need to put some Sourcing Specific Error Message
3963: FND_MSG_PUB.ADD;
3964: x_return_status := FND_API.G_RET_STS_ERROR;
3965:
3966: ELSIF (l_merge_scenario = G_SELLER OR l_merge_scenario = G_BUYER) THEN
3967:
3968: fnd_file.put_line (fnd_file.log, '30 : Seller Merge ');
3996: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
3997: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3998: FND_MSG_PUB.ADD;
3999:
4000: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4001:
4002: --} end of procedure
4003: END RES_LCK_TPC_MERGE;
4004:
4047: --
4048: -- IN OUT : x_return_status VARCHAR2, flag to indicate if the Party Merge procedure
4049: -- was successful or not; It can have the following values -
4050: --
4051: -- FND_API.G_RET_STS_SUCCESS (Success)
4052: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
4053: -- failed due to Unexpected error)
4054: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
4055: -- vetod the Party Merge)
4048: -- IN OUT : x_return_status VARCHAR2, flag to indicate if the Party Merge procedure
4049: -- was successful or not; It can have the following values -
4050: --
4051: -- FND_API.G_RET_STS_SUCCESS (Success)
4052: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
4053: -- failed due to Unexpected error)
4054: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
4055: -- vetod the Party Merge)
4056: --
4050: --
4051: -- FND_API.G_RET_STS_SUCCESS (Success)
4052: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
4053: -- failed due to Unexpected error)
4054: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
4055: -- vetod the Party Merge)
4056: --
4057: -- Version : Current version 1.0
4058: -- Previous version 1.0
4075:
4076: BEGIN
4077: --{start of procedure
4078:
4079: x_return_status := FND_API.G_RET_STS_SUCCESS;
4080:
4081: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.RES_TPC_MERGE ');
4082: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
4083: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
4107: -- it will possibly never be called
4108: --
4109: FND_MESSAGE.SET_NAME('AR', 'PON_TCA_MRG_ERR'); -- Need to put some Sourcing Specific Error Message
4110: FND_MSG_PUB.ADD;
4111: x_return_status := FND_API.G_RET_STS_ERROR;
4112:
4113: ELSIF (l_merge_scenario = G_SELLER) THEN
4114:
4115: fnd_file.put_line (fnd_file.log, '30 : Seller Merge - Getting User Name from FND');
4163: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
4164: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4165: FND_MSG_PUB.ADD;
4166:
4167: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4168:
4169: --} end of procedure
4170: END RES_TPC_MERGE;
4171:
4214: --
4215: -- IN OUT : x_return_status VARCHAR2, flag to indicate if the Party Merge procedure
4216: -- was successful or not; It can have the following values -
4217: --
4218: -- FND_API.G_RET_STS_SUCCESS (Success)
4219: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
4220: -- failed due to Unexpected error)
4221: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
4222: -- vetod the Party Merge)
4215: -- IN OUT : x_return_status VARCHAR2, flag to indicate if the Party Merge procedure
4216: -- was successful or not; It can have the following values -
4217: --
4218: -- FND_API.G_RET_STS_SUCCESS (Success)
4219: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
4220: -- failed due to Unexpected error)
4221: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
4222: -- vetod the Party Merge)
4223: --
4217: --
4218: -- FND_API.G_RET_STS_SUCCESS (Success)
4219: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
4220: -- failed due to Unexpected error)
4221: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
4222: -- vetod the Party Merge)
4223: --
4224: -- Version : Current version 1.0
4225: -- Previous version 1.0
4241:
4242: BEGIN
4243: --{start of procedure
4244:
4245: x_return_status := FND_API.G_RET_STS_SUCCESS;
4246:
4247: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.OPTMZ_TPC_MERGE ');
4248: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
4249: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
4273: -- it will possibly never be called
4274: --
4275: FND_MESSAGE.SET_NAME('AR', 'PON_TCA_MRG_ERR'); -- Need to put some Sourcing Specific Error Message
4276: FND_MSG_PUB.ADD;
4277: x_return_status := FND_API.G_RET_STS_ERROR;
4278:
4279: ELSIF (l_merge_scenario = G_SELLER) THEN
4280:
4281: fnd_file.put_line (fnd_file.log, '30 : Seller Merge ');
4310: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
4311: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4312: FND_MSG_PUB.ADD;
4313:
4314: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4315:
4316: --} end of procedure
4317: END OPTMZ_TPC_MERGE;
4318:
4361: --
4362: -- IN OUT : x_return_status VARCHAR2, flag to indicate if the Party Merge procedure
4363: -- was successful or not; It can have the following values -
4364: --
4365: -- FND_API.G_RET_STS_SUCCESS (Success)
4366: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
4367: -- failed due to Unexpected error)
4368: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
4369: -- vetod the Party Merge)
4362: -- IN OUT : x_return_status VARCHAR2, flag to indicate if the Party Merge procedure
4363: -- was successful or not; It can have the following values -
4364: --
4365: -- FND_API.G_RET_STS_SUCCESS (Success)
4366: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
4367: -- failed due to Unexpected error)
4368: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
4369: -- vetod the Party Merge)
4370: --
4364: --
4365: -- FND_API.G_RET_STS_SUCCESS (Success)
4366: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
4367: -- failed due to Unexpected error)
4368: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
4369: -- vetod the Party Merge)
4370: --
4371: -- Version : Current version 1.0
4372: -- Previous version 1.0
4388:
4389: BEGIN
4390: --{start of procedure
4391:
4392: x_return_status := FND_API.G_RET_STS_SUCCESS;
4393:
4394: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.RES_ACK_MERGE ');
4395: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
4396: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
4420: -- it will possibly never be called
4421: --
4422: FND_MESSAGE.SET_NAME('AR', 'PON_TCA_MRG_ERR'); -- Need to put some Sourcing Specific Error Message
4423: FND_MSG_PUB.ADD;
4424: x_return_status := FND_API.G_RET_STS_ERROR;
4425:
4426: ELSIF (l_merge_scenario = G_SELLER) THEN
4427:
4428: fnd_file.put_line (fnd_file.log, '30 : Seller Merge ');
4462: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
4463: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4464: FND_MSG_PUB.ADD;
4465:
4466: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4467:
4468: --} end of procedure
4469: END RES_ACK_MERGE;
4470:
4513: --
4514: -- IN OUT : x_return_status VARCHAR2, flag to indicate if the Party Merge procedure
4515: -- was successful or not; It can have the following values -
4516: --
4517: -- FND_API.G_RET_STS_SUCCESS (Success)
4518: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
4519: -- failed due to Unexpected error)
4520: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
4521: -- vetod the Party Merge)
4514: -- IN OUT : x_return_status VARCHAR2, flag to indicate if the Party Merge procedure
4515: -- was successful or not; It can have the following values -
4516: --
4517: -- FND_API.G_RET_STS_SUCCESS (Success)
4518: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
4519: -- failed due to Unexpected error)
4520: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
4521: -- vetod the Party Merge)
4522: --
4516: --
4517: -- FND_API.G_RET_STS_SUCCESS (Success)
4518: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
4519: -- failed due to Unexpected error)
4520: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
4521: -- vetod the Party Merge)
4522: --
4523: -- Version : Current version 1.0
4524: -- Previous version 1.0
4540:
4541: BEGIN
4542: --{start of procedure
4543:
4544: x_return_status := FND_API.G_RET_STS_SUCCESS;
4545:
4546: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.AUC_SUMM_TPC_MERGE ');
4547: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
4548: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
4571: -- it will possibly never be called
4572: --
4573: FND_MESSAGE.SET_NAME('AR', 'PON_TCA_MRG_ERR'); -- Need to put some Sourcing Specific Error Message
4574: FND_MSG_PUB.ADD;
4575: x_return_status := FND_API.G_RET_STS_ERROR;
4576:
4577: ELSIF (l_merge_scenario = G_SELLER) THEN
4578:
4579: fnd_file.put_line (fnd_file.log, '30 : Seller Merge ');
4609: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
4610: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4611: FND_MSG_PUB.ADD;
4612:
4613: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4614:
4615: --} end of procedure
4616: END AUC_SUMM_TPC_MERGE;
4617:
4661: --
4662: -- IN OUT : x_return_status VARCHAR2, flag to indicate if the Party Merge procedure
4663: -- was successful or not; It can have the following values -
4664: --
4665: -- FND_API.G_RET_STS_SUCCESS (Success)
4666: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
4667: -- failed due to Unexpected error)
4668: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
4669: -- vetod the Party Merge)
4662: -- IN OUT : x_return_status VARCHAR2, flag to indicate if the Party Merge procedure
4663: -- was successful or not; It can have the following values -
4664: --
4665: -- FND_API.G_RET_STS_SUCCESS (Success)
4666: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
4667: -- failed due to Unexpected error)
4668: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
4669: -- vetod the Party Merge)
4670: --
4664: --
4665: -- FND_API.G_RET_STS_SUCCESS (Success)
4666: -- FND_API.G_RET_STS_UNEXP_ERROR (Not vetoed but
4667: -- failed due to Unexpected error)
4668: -- FND_API.G_RET_STS_ERROR (Failed as the procedure
4669: -- vetod the Party Merge)
4670: --
4671: -- Version : Current version 1.0
4672: -- Previous version 1.0
4688:
4689: BEGIN
4690: --{start of procedure
4691:
4692: x_return_status := FND_API.G_RET_STS_SUCCESS;
4693:
4694: fnd_file.put_line (fnd_file.log, 'Start : PON_TCA_MERGE_PVT.SUP_ACT_MERGE ');
4695: fnd_file.put_line (fnd_file.log, ' p_Entity_name ' || p_Entity_name);
4696: fnd_file.put_line (fnd_file.log, ' p_from_id ' || p_from_id);
4720: -- it will possibly never be called
4721: --
4722: FND_MESSAGE.SET_NAME('AR', 'PON_TCA_MRG_ERR'); -- Need to put some Sourcing Specific Error Message
4723: FND_MSG_PUB.ADD;
4724: x_return_status := FND_API.G_RET_STS_ERROR;
4725:
4726: ELSIF (l_merge_scenario = G_SELLER) THEN
4727:
4728: fnd_file.put_line (fnd_file.log, '30 : Seller Merge ');
4763: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
4764: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4765: FND_MSG_PUB.ADD;
4766:
4767: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4768:
4769: --} end of procedure
4770: END SUP_ACT_MERGE;
4771: