The following lines contain the word 'select', 'insert', 'update' or 'delete':
* -calls HZ_CONTACT_PREFERENCE_V2PUB to update the preference code
* -creates a row in HZ_CONTACT_PREFERENCES if no row exists for party_id
*/
PROCEDURE setOptInOutPreference(
p_party_id IN NUMBER,
p_preference IN VARCHAR2,
p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_api IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
)
IS
l_contact_preference_rec hz_contact_preference_v2pub.contact_preference_rec_type;
SELECT contact_preference_id, last_update_date, object_version_number
INTO l_id, l_date, l_obj_ver
From hz_contact_preferences
WHERE contact_level_table='HZ_PARTIES'
AND contact_level_table_id=p_party_id;
HZ_CONTACT_PREFERENCE_V2PUB.update_contact_preference(
FND_API.G_FALSE,
l_contact_preference_rec,
l_object_version_number,
x_return_status,
x_msg_count,
x_msg_data
);
SELECT assign.instr_assignment_id
FROM iby_fndcpt_payer_assgn_instr_v assign
WHERE assign.party_id = l_party_id
AND assign.order_of_preference = 1
AND assign.org_id is null
AND assign.cust_account_id is null
AND assign.instrument_type = 'CREDITCARD'
and assign.ACCT_SITE_USE_ID is null
AND nvl(CARD_EXPIRYDATE, sysdate) >= sysdate
and
exists
(select msite_information1
from ibe_msite_information m, fnd_lookup_values b
where
m.msite_id =l_msite_id and
b.lookup_type = 'CREDIT_CARD' and
b.view_application_id = 660 and
b.enabled_flag = 'Y' and
(b.tag = 'Y' or b.tag is null) and
b.language = userenv('lang') and
msite_information_context = 'CC_TYPE' and
b.lookup_code = msite_information1
and msite_information1 = assign.card_issuer_code);
SELECT assign.instr_assignment_id
FROM iby_fndcpt_payer_assgn_instr_v assign
WHERE assign.party_id = l_party_id
AND assign.org_id is null
AND assign.cust_account_id is null
AND assign.instrument_type = 'CREDITCARD'
and assign.ACCT_SITE_USE_ID is null
AND nvl(CARD_EXPIRYDATE, sysdate) >= sysdate
and
exists
(select msite_information1
from ibe_msite_information m, fnd_lookup_values b
where
m.msite_id = l_msite_id and
b.lookup_type = 'CREDIT_CARD' and
(b.tag = 'Y' or b.tag is null) and
b.language = userenv('lang') and
msite_information_context = 'CC_TYPE' and
b.lookup_code = msite_information1
and msite_information1 = assign.card_issuer_code)
and rownum < 2
order by assign.order_of_preference asc;
SELECT instr_assignment_id
FROM IBY_FNDCPT_PAYER_ASSGN_INSTR_V
WHERE party_id = c_party_id
AND org_id is null
AND cust_account_id is null
AND acct_site_use_id IS NULL
AND instrument_type = 'CREDITCARD'
AND payment_function = 'CUSTOMER_PAYMENT'
and order_of_preference = 1;
SELECT customer_id, person_party_id
FROM fnd_user
WHERE user_name = c_username;