[Home] [Help]
980: IS
981: select hcpp.contact_point_id contact_point_id,
982: hcpp.owner_table_id contact_point_owner_id,
983: hcpp.owner_table_name contact_point_owner_name
984: from hz_parties hp,
985: hz_relationships hzr,
986: hz_party_usg_assignments hpua,
987: HZ_CONTACT_POINTS hcpp
988: where hp.party_id = hzr.subject_id
1002: )
1003: and hpua.party_id = hp.party_id
1004: and hpua.status_flag = 'A'
1005: and hpua.party_usage_code = 'SUPPLIER_CONTACT'
1006: and hcpp.OWNER_TABLE_NAME(+) = 'HZ_PARTIES'
1007: and hcpp.OWNER_TABLE_ID(+) = hzr.PARTY_ID
1008: and hcpp.status = 'A';
1009:
1010:
1027:
1028: --Initialization of new relationship rec - relationship between 'To Party' and 'Contact'
1029: l_relationship_rec.subject_id := contact_loop_c.per_party_id;
1030: l_relationship_rec.subject_type := 'PERSON';
1031: l_relationship_rec.subject_table_name := 'HZ_PARTIES';
1032: l_relationship_rec.object_id := p_to_org_party_id;
1033: l_relationship_rec.object_type := 'ORGANIZATION';
1034: l_relationship_rec.object_table_name := 'HZ_PARTIES';
1035: l_relationship_rec.relationship_code := 'CONTACT_OF';
1030: l_relationship_rec.subject_type := 'PERSON';
1031: l_relationship_rec.subject_table_name := 'HZ_PARTIES';
1032: l_relationship_rec.object_id := p_to_org_party_id;
1033: l_relationship_rec.object_type := 'ORGANIZATION';
1034: l_relationship_rec.object_table_name := 'HZ_PARTIES';
1035: l_relationship_rec.relationship_code := 'CONTACT_OF';
1036: l_relationship_rec.relationship_type := 'CONTACT';
1037: l_relationship_rec.status := 'A';
1038: l_relationship_rec.created_by_module:='AP_SUPPLIERS_API';
1221: SELECT owner_table_id
1222: INTO l_contact_point_rec.owner_table_id
1223: FROM hz_contact_points
1224: WHERE owner_table_id = l_party_id
1225: AND owner_table_name = 'HZ_PARTIES'
1226: AND status = 'A'
1227: AND ROWNUM < 2;
1228: EXCEPTION
1229: WHEN no_data_found THEN