240:
241: BEGIN
242: --enable_debug;
243:
244: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
245: hz_utility_v2pub.debug(p_message=>'transpose_domain (+)',
246: p_prefix=>l_debug_prefix,
247: p_msg_level=>fnd_log.level_procedure);
248: END IF;
243:
244: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
245: hz_utility_v2pub.debug(p_message=>'transpose_domain (+)',
246: p_prefix=>l_debug_prefix,
247: p_msg_level=>fnd_log.level_procedure);
248: END IF;
249: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
250: hz_utility_v2pub.debug(p_message=>'l_domain_name: ' || l_domain_name,
251: p_prefix =>l_debug_prefix,
245: hz_utility_v2pub.debug(p_message=>'transpose_domain (+)',
246: p_prefix=>l_debug_prefix,
247: p_msg_level=>fnd_log.level_procedure);
248: END IF;
249: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
250: hz_utility_v2pub.debug(p_message=>'l_domain_name: ' || l_domain_name,
251: p_prefix =>l_debug_prefix,
252: p_msg_level=>fnd_log.level_statement);
253: END IF;
248: END IF;
249: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
250: hz_utility_v2pub.debug(p_message=>'l_domain_name: ' || l_domain_name,
251: p_prefix =>l_debug_prefix,
252: p_msg_level=>fnd_log.level_statement);
253: END IF;
254:
255: WHILE instr(l_domain_name, '.') > 0 LOOP
256: l_ret_domain := l_ret_domain || substrb(l_domain_name, instrb( l_domain_name, '.', -1, 1)+1, lengthb(l_domain_name)) || '.';
256: l_ret_domain := l_ret_domain || substrb(l_domain_name, instrb( l_domain_name, '.', -1, 1)+1, lengthb(l_domain_name)) || '.';
257: l_domain_name := substrb( l_domain_name, 0, instrb( l_domain_name, '.', -1, 1) -1);
258: END LOOP;
259: l_ret_domain := l_ret_domain || l_domain_name;
260: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
261: hz_utility_v2pub.debug(p_message=>'l_ret_domain: ' || l_ret_domain,
262: p_prefix =>l_debug_prefix,
263: p_msg_level=>fnd_log.level_statement);
264: END IF;
259: l_ret_domain := l_ret_domain || l_domain_name;
260: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
261: hz_utility_v2pub.debug(p_message=>'l_ret_domain: ' || l_ret_domain,
262: p_prefix =>l_debug_prefix,
263: p_msg_level=>fnd_log.level_statement);
264: END IF;
265: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
266: hz_utility_v2pub.debug(p_message=>'transpose_domain (-)',
267: p_prefix=>l_debug_prefix,
261: hz_utility_v2pub.debug(p_message=>'l_ret_domain: ' || l_ret_domain,
262: p_prefix =>l_debug_prefix,
263: p_msg_level=>fnd_log.level_statement);
264: END IF;
265: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
266: hz_utility_v2pub.debug(p_message=>'transpose_domain (-)',
267: p_prefix=>l_debug_prefix,
268: p_msg_level=>fnd_log.level_procedure);
269: END IF;
264: END IF;
265: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
266: hz_utility_v2pub.debug(p_message=>'transpose_domain (-)',
267: p_prefix=>l_debug_prefix,
268: p_msg_level=>fnd_log.level_procedure);
269: END IF;
270: --disable_debug;
271:
272: RETURN upper(l_ret_domain);
324:
325: BEGIN
326:
327: --enable_debug;
328: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
329: hz_utility_v2pub.debug(p_message=>'create_email_domain (+)',
330: p_prefix=>l_debug_prefix,
331: p_msg_level=>fnd_log.level_procedure);
332: END IF;
327: --enable_debug;
328: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
329: hz_utility_v2pub.debug(p_message=>'create_email_domain (+)',
330: p_prefix=>l_debug_prefix,
331: p_msg_level=>fnd_log.level_procedure);
332: END IF;
333:
334: SAVEPOINT create_email_domain;
335:
349: x_return_status := fnd_api.g_ret_sts_error;
350: END IF;
351: CLOSE c_unique_email_domain;
352:
353: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
354: hz_utility_v2pub.debug(p_message=>'The following column combination should be unique:' ||
355: ' PARTY_ID, DOMAIN_NAME. ' ||
356: ' x_return_status = ' || x_return_status,
357: p_prefix =>l_debug_prefix,
354: hz_utility_v2pub.debug(p_message=>'The following column combination should be unique:' ||
355: ' PARTY_ID, DOMAIN_NAME. ' ||
356: ' x_return_status = ' || x_return_status,
357: p_prefix =>l_debug_prefix,
358: p_msg_level=>fnd_log.level_statement);
359: END IF;
360:
361: -------------------------------------
362: -- validation for party_id
368: p_column => 'party_id',
369: p_column_value => p_party_id,
370: x_return_status => x_return_status);
371:
372: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
373: hz_utility_v2pub.debug(p_message=>'party_id is mandatory field. ' ||
374: 'x_return_status = ' || x_return_status,
375: p_prefix =>l_debug_prefix,
376: p_msg_level=>fnd_log.level_statement);
372: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
373: hz_utility_v2pub.debug(p_message=>'party_id is mandatory field. ' ||
374: 'x_return_status = ' || x_return_status,
375: p_prefix =>l_debug_prefix,
376: p_msg_level=>fnd_log.level_statement);
377: END IF;
378:
379: -- party_id has foreign key HZ_PARTIES.PARTY_ID
380: IF p_party_id IS NOT NULL
397: x_return_status := fnd_api.g_ret_sts_error;
398: END;
399:
400:
401: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
402: hz_utility_v2pub.debug(p_message=>'party_id has foreign key hz_parties.party_id. ' ||
403: 'x_return_status = ' || x_return_status,
404: p_prefix =>l_debug_prefix,
405: p_msg_level=>fnd_log.level_statement);
401: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
402: hz_utility_v2pub.debug(p_message=>'party_id has foreign key hz_parties.party_id. ' ||
403: 'x_return_status = ' || x_return_status,
404: p_prefix =>l_debug_prefix,
405: p_msg_level=>fnd_log.level_statement);
406: END IF;
407:
408: END IF;
409: