[Home] [Help]
112: l_count Number;
113:
114: begin
115:
116: if p_owner_table_name = 'HZ_PARTIES' OR p_owner_table_name = 'HZ_PARTY_SITES' then
117: open get_pps_ssc_csr;
118: fetch get_pps_ssc_csr into l_count;
119: close get_pps_ssc_csr;
120:
592:
593:
594:
595:
596: IF p_orig_sys_reference_rec.owner_table_name = 'HZ_PARTIES'
597: THEN
598: BEGIN
599: -- SSM SST Integration and Extension
600: -- Checking SST rules is now applicable only for profile entities.
609:
610: /* IF sst_rules_passed (p_orig_sys_reference_rec.owner_table_name, p_orig_sys_reference_rec.owner_table_id)
611: THEN*/
612: select party_type into l_dummy
613: from hz_parties
614: where party_id = p_orig_sys_reference_rec.owner_table_id ;
615:
616: IF l_dummy = 'ORGANIZATION'
617: THEN
625: WHEN NO_DATA_FOUND THEN
626: fnd_message.set_name('AR', 'HZ_API_INVALID_FK');
627: fnd_message.set_token('FK', 'party_id');
628: fnd_message.set_token('COLUMN', 'party_id');
629: fnd_message.set_token('TABLE', 'hz_parties');
630: fnd_msg_pub.add;
631: x_return_status := fnd_api.g_ret_sts_error;
632:
633: END;
934:
935:
936:
937: -- SYNC PARTIES
938: IF p_orig_sys_reference_rec.owner_table_name = 'HZ_PARTIES'
939: THEN
940: BEGIN
941: -- SSM SST Integration and Extension
942: -- Checking SST rules is now applicable only for profile entities.
949: /* IF sst_rules_passed (p_orig_sys_reference_rec.owner_table_name, l_temp )
950: THEN */
951:
952: select party_type into l_dummy
953: from hz_parties
954: where party_id = l_temp ;
955:
956: IF l_dummy = 'ORGANIZATION'
957: THEN
965: WHEN NO_DATA_FOUND THEN
966: fnd_message.set_name('AR', 'HZ_API_INVALID_FK');
967: fnd_message.set_token('FK', 'party_id');
968: fnd_message.set_token('COLUMN', 'party_id');
969: fnd_message.set_token('TABLE', 'hz_parties');
970: fnd_msg_pub.add;
971: x_return_status := fnd_api.g_ret_sts_error;
972:
973: END;
1054: and orig_system = l_orig_sys_reference_rec.orig_system
1055: and status = 'A';
1056:
1057: l_multi_osr_flag varchar2(1);
1058: x_party_id HZ_PARTIES.party_id%TYPE;
1059: l_dummy VARCHAR2(1);
1060:
1061: begin
1062: -- standard start of API savepoint
1231: and orig_system = l_orig_sys_reference_rec.orig_system
1232: and status = 'A';
1233:
1234: l_multi_osr_flag varchar2(1);
1235: x_party_id HZ_PARTIES.party_id%TYPE;
1236: l_dummy VARCHAR2(1);
1237:
1238: begin
1239:
1586: and status = 'A';
1587:
1588: l_dup_exists varchar2(1);
1589: l_multi_osr_flag varchar2(1);
1590: x_party_id HZ_PARTIES.party_id%TYPE;
1591: l_dummy VARCHAR2(1);
1592: l_party_merge_flag BOOLEAN := FALSE; /*For Bug 3235877*/
1593:
1594: begin
1839: and rownum=1
1840: );
1841:
1842: l_multi_osr_flag varchar2(1);
1843: x_party_id HZ_PARTIES.party_id%TYPE;
1844:
1845:
1846: begin
1847:
1957:
1958: --//Table hz_contact_points
1959: cursor c_cust_cont_point_id is
1960: select party.party_id
1961: from hz_parties party,hz_contact_points cont
1962: where cont.contact_point_id = p_owner_table_id
1963: and cont.owner_table_id = party.party_id
1964: --and cont.status = 'A' -- Bug 3196803 : Removed the check of status = 'A'
1965: union
1997: --and role.status = 'A'; -- Bug 3196803 : Removed the check of status = 'A'
1998:
1999: begin
2000:
2001: if p_owner_table_name = 'HZ_PARTIES' then
2002: x_party_id := p_owner_table_id;
2003:
2004: elsif p_owner_table_name = 'HZ_PARTY_SITES' then
2005: open c_party_site_id;