585:
586: -- Select the nextval from sequence for contact point
587: Select hz_contact_points_s.nextval
588: Into l_contact_points_rec.contact_point_id
589: From dual;
590:
591: If p_contact_point_type = 'EMAIL' Then
592:
593: l_email_rec.email_address := p_email;
2735: -- { Start of duplicate check for contact
2736: -- concatenate to get name of contact
2737: Select contact_rec.person_last_name || DECODE(contact_rec.person_first_name, NULL, NULL, ', '|| contact_rec.PERSON_FIRST_NAME) || DECODE(contact_rec.Person_Name_Suffix, NULL, NULL, ', '||contact_rec.Person_Name_Suffix)
2738: Into l_contact_name
2739: From Dual;
2740:
2741: -- { Start of If for duplicate contact check
2742: If l_type_of_contact = 'SOLD_TO' Then
2743: l_sold_to_contact := Oe_Value_To_Id.Sold_To_Contact(
2868: oe_debug_pub.add( 'BEFORE SELECTING NEXTVAL FROM PARTY SEQUENCE' ) ;
2869: END IF;
2870: Select hz_party_number_s.nextval
2871: Into l_party_rec.party_number
2872: From Dual;
2873: IF l_debug_level > 0 THEN
2874: oe_debug_pub.add( 'AFTER SELECTING NEW PARTY SEQUENCE ' || L_PARTY_REC.PARTY_NUMBER ) ;
2875: END IF;
2876: End If; -- If G_AUTO_PARTY_NUMBERING
2925: oe_debug_pub.add( 'BEFORE SELECTING NEXTVAL FROM PARTY SEQUENCE FOR ORG' ) ;
2926: END IF;
2927: Select hz_party_number_s.nextval
2928: Into l_org_contact_rec.party_rel_rec.party_rec.party_number
2929: From Dual;
2930: IF l_debug_level > 0 THEN
2931: oe_debug_pub.add( 'AFTER SELECTING NEW PARTY SEQUENCE ' || L_ORG_CONTACT_REC.PARTY_REL_REC.PARTY_REC.PARTY_NUMBER ) ;
2932: END IF;
2933: End If; -- If G_AUTO_PARTY_NUMBERING
2955: oe_debug_pub.add( 'BEFORE SELECTING NEXTVAL FROM CONTACT SEQ' ) ;
2956: END IF;
2957: Select hz_contact_numbers_s.nextval
2958: Into l_org_contact_rec.contact_number
2959: From Dual;
2960: IF l_debug_level > 0 THEN
2961: oe_debug_pub.add( 'AFTER SELECTING NEW CONTACT SEQUENCE ' || L_ORG_CONTACT_REC.CONTACT_NUMBER ) ;
2962: END IF;
2963: End If; -- If G_AUTO_CONTACT_NUMBERING