The following lines contain the word 'select', 'insert', 'update' or 'delete':
p_create_update_flag IN VARCHAR2,
p_column IN VARCHAR2,
p_column_value IN VARCHAR2,
p_restricted IN VARCHAR2 DEFAULT 'N',
x_return_status IN OUT NOCOPY VARCHAR2
) IS
l_error BOOLEAN := FALSE;
IF (p_create_update_flag = 'C' AND
(p_column_value IS NULL OR
p_column_value = fnd_api.g_miss_char)) OR
(p_create_update_flag = 'U' AND
p_column_value = fnd_api.g_miss_char)
THEN
l_error := TRUE;
p_create_update_flag IN VARCHAR2,
p_column IN VARCHAR2,
p_column_value IN NUMBER,
p_restricted IN VARCHAR2 DEFAULT 'N',
x_return_status IN OUT NOCOPY VARCHAR2
) IS
l_error BOOLEAN := FALSE;
IF (p_create_update_flag = 'C' AND
(p_column_value IS NULL OR
p_column_value = fnd_api.g_miss_num)) OR
(p_create_update_flag = 'U' AND
p_column_value = fnd_api.g_miss_num)
THEN
l_error := TRUE;
UPDATE HZ_EMAIL_DOMAINS
SET
party_id = p_to_fk_id,
last_update_date = hz_utility_pub.last_update_date,
last_updated_by = hz_utility_pub.user_id,
last_update_login = hz_utility_pub.last_update_login
WHERE email_domain_id = p_from_id;
* This API will insert a row into the HZ_EMAIL_DOMAINS table. It should
* internally call the function defined above (transpose_domain), and
* insert the transposed value as well.
*
* EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
*
* ARGUMENTS
* IN:
* p_party_id Initialize message stack if it is set to
* FND_API.G_TRUE. Default is FND_API.G_FALSE.
* p_domain_name Financial report record.
* IN/OUT:
* OUT:
* x_return_status Return status after the call. The status can
* be FND_API.G_RET_STS_SUCCESS (success),
* FND_API.G_RET_STS_ERROR (error),
* FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
* x_msg_count Number of messages in message stack.
* x_msg_data Message text if x_msg_count is 1.
*
* NOTES
*
* MODIFICATION HISTORY
*
* 21-APR-2003 Sreedhar Mohan o Created.
*
*/
PROCEDURE create_email_domain(
p_party_id IN NUMBER,
p_domain_name IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2) IS
l_debug_prefix VARCHAR2(30) := '';
SELECT 'Y'
FROM hz_email_domains
WHERE party_id = p_party_id
AND domain_name = p_domain_name;
p_create_update_flag => 'C',
p_column => 'party_id',
p_column_value => p_party_id,
x_return_status => x_return_status);
SELECT 'Y'
INTO l_dummy
FROM hz_parties p
WHERE p.party_id = p_party_id;
p_create_update_flag => 'C',
p_column => 'domain_name',
p_column_value => p_domain_name,
x_return_status => x_return_status);
INSERT INTO HZ_EMAIL_DOMAINS(
EMAIL_DOMAIN_ID
, PARTY_ID
, TRANSPOSED_DOMAIN
, DOMAIN_NAME
, STATUS
, CREATION_DATE
, LAST_UPDATE_LOGIN
, LAST_UPDATE_DATE
, LAST_UPDATED_BY
, CREATED_BY ) VALUES (
hz_email_domains_s.nextval
, p_party_id
, transpose_domain( p_domain_name)
, p_domain_name
, 'A'
, hz_utility_v2pub.creation_date
, hz_utility_v2pub.last_update_login
, hz_utility_v2pub.last_update_date
, hz_utility_v2pub.last_updated_by
, hz_utility_v2pub.created_by
);
select party_type into l_dummy
from hz_parties
where party_id = p_party_id;
UPDATE HZ_EMAIL_DOMAINS
SET
STATUS = 'M',
last_update_date = hz_utility_pub.last_update_date,
last_updated_by = hz_utility_pub.user_id,
last_update_login = hz_utility_pub.last_update_login
WHERE email_domain_id = p_from_id;
SELECT PARTY_ID
FROM HZ_EMAIL_DOMAINS
WHERE party_id = p_to_fk_id
AND DOMAIN_NAME = ( SELECT DOMAIN_NAME
FROM HZ_EMAIL_DOMAINS
WHERE EMAIL_DOMAIN_ID= p_from_id);
SELECT 1 INTO tmp FROM AR_LOOKUPS WHERE
lookup_type = 'HZ_DOMAIN_SUFFIX_LIST'
and lookup_code = l_leftover;
(select domain_name
from hz_email_domains
where party_id = p_party_id)
LOOP
l_ret_str := l_ret_str || ' ' || ltrim(rtrim(email_domains_cur.domain_name)) ;
select d_name
from
(select domain_name as d_name
from hz_email_domains
where party_id = p_party_id
order by length(domain_name)
)
where rownum = 1
)
LOOP
l_ret_str := ltrim(rtrim(email_domain_cur.d_name));
SELECT 1 INTO tmp FROM AR_LOOKUPS
WHERE
lookup_type = 'HZ_DOMAIN_ISP_LIST'
and lookup_code = tempstr ;
SELECT 1 INTO tmp FROM AR_LOOKUPS
WHERE
lookup_type = 'HZ_DOMAIN_SUFFIX_LIST'
and lookup_code = x_extension;