11: /*
12: *PROCEDURE:
13: * setOptInOutPreference
14: *DESCRIPTION:
15: * -calls HZ_CONTACT_PREFERENCE_V2PUB to update the preference code
16: * -creates a row in HZ_CONTACT_PREFERENCES if no row exists for party_id
17: */
18: PROCEDURE setOptInOutPreference(
19: p_party_id IN NUMBER,
26: x_msg_data OUT NOCOPY VARCHAR2
27:
28: )
29: IS
30: l_contact_preference_rec hz_contact_preference_v2pub.contact_preference_rec_type;
31: l_contact_preference_rec2 hz_contact_preference_v2pub.contact_preference_rec_type;
32: l_contact_preference_id NUMBER;
33: l_object_version_number NUMBER;
34: l_id NUMBER;
27:
28: )
29: IS
30: l_contact_preference_rec hz_contact_preference_v2pub.contact_preference_rec_type;
31: l_contact_preference_rec2 hz_contact_preference_v2pub.contact_preference_rec_type;
32: l_contact_preference_id NUMBER;
33: l_object_version_number NUMBER;
34: l_id NUMBER;
35: l_date DATE;
64: --update reason_code if record found
65: l_contact_preference_rec.contact_preference_id := l_id;
66: l_contact_preference_rec.preference_code := p_preference;
67: l_object_version_number := l_obj_ver;
68: HZ_CONTACT_PREFERENCE_V2PUB.update_contact_preference(
69: FND_API.G_FALSE,
70: l_contact_preference_rec,
71: l_object_version_number,
72: x_return_status,
82: l_contact_preference_rec2.preference_code := p_preference;
83: l_contact_preference_rec2.requested_by := 'INTERNAL';
84: l_contact_preference_rec2.status := 'A';
85: l_contact_preference_rec2.created_by_module := 'TCA_V1_API';
86: HZ_CONTACT_PREFERENCE_V2PUB.create_contact_preference(
87: FND_API.G_FALSE,
88: l_contact_preference_rec2,
89: l_contact_preference_id,
90: x_return_status,