2968: return (l_stmt);
2969:
2970: exception
2971: when others then
2972: fnd_message.set_name('HXC', 'HXC_------INVALID_SQL_STATMENT');
2973: fnd_message.raise_error;
2974: return ( null );
2975:
2976: END make_stmt;
2969:
2970: exception
2971: when others then
2972: fnd_message.set_name('HXC', 'HXC_------INVALID_SQL_STATMENT');
2973: fnd_message.raise_error;
2974: return ( null );
2975:
2976: END make_stmt;
2977:
3126: return l_id_col_type_return;
3127:
3128: exception
3129: when others then
3130: fnd_message.set_name('HXC', 'HXC_------INVALID_ID_COL_TYPE');
3131: fnd_message.raise_error;
3132: return ( null );
3133:
3134:
3127:
3128: exception
3129: when others then
3130: fnd_message.set_name('HXC', 'HXC_------INVALID_ID_COL_TYPE');
3131: fnd_message.raise_error;
3132: return ( null );
3133:
3134:
3135: END get_vset_id_col_type;
3164: l_prompt);
3165:
3166:
3167: IF l_alias_type <> 'VALUE_SET_TABLE' THEN
3168: fnd_message.set_name('HXC', 'HXC_------_INVALID_ALIAS_TYPE');
3169: fnd_message.raise_error;
3170: END IF;
3171:
3172: -- call the FND package to get the SQL
3165:
3166:
3167: IF l_alias_type <> 'VALUE_SET_TABLE' THEN
3168: fnd_message.set_name('HXC', 'HXC_------_INVALID_ALIAS_TYPE');
3169: fnd_message.raise_error;
3170: END IF;
3171:
3172: -- call the FND package to get the SQL
3173: if l_reference_object is not null THEN
3173: if l_reference_object is not null THEN
3174: x_select := make_stmt (l_reference_object,l_alias_type);
3175: p_id_type := get_vset_id_col_type(l_reference_object);
3176: ELSE
3177: fnd_message.set_name('HXC', 'HXC_------_INVALID_REFERENCE_OBJECT');
3178: fnd_message.raise_error;
3179: END IF;
3180:
3181: -- before sending back the information we do the profile replacement
3174: x_select := make_stmt (l_reference_object,l_alias_type);
3175: p_id_type := get_vset_id_col_type(l_reference_object);
3176: ELSE
3177: fnd_message.set_name('HXC', 'HXC_------_INVALID_REFERENCE_OBJECT');
3178: fnd_message.raise_error;
3179: END IF;
3180:
3181: -- before sending back the information we do the profile replacement
3182: -- x_select := replace_profile(x_select,p_block_name);
3210: l_prompt);
3211:
3212:
3213: IF l_alias_type <> 'VALUE_SET_INDEPENDENT' THEN
3214: fnd_message.set_name('HXC', 'HXC_------_INVALID_ALIAS_TYPE');
3215: fnd_message.raise_error;
3216: END IF;
3217:
3218: -- call the FND package to get the SQL
3211:
3212:
3213: IF l_alias_type <> 'VALUE_SET_INDEPENDENT' THEN
3214: fnd_message.set_name('HXC', 'HXC_------_INVALID_ALIAS_TYPE');
3215: fnd_message.raise_error;
3216: END IF;
3217:
3218: -- call the FND package to get the SQL
3219: if l_reference_object is not null THEN
3218: -- call the FND package to get the SQL
3219: if l_reference_object is not null THEN
3220: x_select := make_stmt (l_reference_object,l_alias_type);
3221: ELSE
3222: fnd_message.set_name('HXC', 'HXC_------_INVALID_REFERENCE_OBJECT');
3223: fnd_message.raise_error;
3224: END IF;
3225:
3226: END get_vset_indep_type_select;
3219: if l_reference_object is not null THEN
3220: x_select := make_stmt (l_reference_object,l_alias_type);
3221: ELSE
3222: fnd_message.set_name('HXC', 'HXC_------_INVALID_REFERENCE_OBJECT');
3223: fnd_message.raise_error;
3224: END IF;
3225:
3226: END get_vset_indep_type_select;
3227:
3300: l_prompt);
3301:
3302:
3303: IF l_alias_type <> 'VALUE_SET_NONE' THEN
3304: fnd_message.set_name('HXC', 'HXC_------_INVALID_ALIAS_TYPE');
3305: fnd_message.raise_error;
3306: END IF;
3307:
3308: -- call the FND package to get the property
3301:
3302:
3303: IF l_alias_type <> 'VALUE_SET_NONE' THEN
3304: fnd_message.set_name('HXC', 'HXC_------_INVALID_ALIAS_TYPE');
3305: fnd_message.raise_error;
3306: END IF;
3307:
3308: -- call the FND package to get the property
3309: if l_reference_object is not null THEN
3311: FETCH c_vset_none_info
3312: into p_format_type,p_maximum_size,p_minimum_value,p_maximum_value,p_number_precision;
3313: CLOSE c_vset_none_info;
3314: ELSE
3315: fnd_message.set_name('HXC', 'HXC_------_INVALID_REFERENCE_OBJECT');
3316: fnd_message.raise_error;
3317: END IF;
3318:
3319: END get_vset_none_type_property;
3312: into p_format_type,p_maximum_size,p_minimum_value,p_maximum_value,p_number_precision;
3313: CLOSE c_vset_none_info;
3314: ELSE
3315: fnd_message.set_name('HXC', 'HXC_------_INVALID_REFERENCE_OBJECT');
3316: fnd_message.raise_error;
3317: END IF;
3318:
3319: END get_vset_none_type_property;
3320:
3348:
3349:
3350:
3351: IF l_alias_type <> 'OTL_ALT_DDF' THEN
3352: fnd_message.set_name('HXC', 'HXC_------_INVALID_ALIAS_TYPE');
3353: fnd_message.raise_error;
3354: END IF;
3355:
3356: -- call the FND package to get the SQL
3349:
3350:
3351: IF l_alias_type <> 'OTL_ALT_DDF' THEN
3352: fnd_message.set_name('HXC', 'HXC_------_INVALID_ALIAS_TYPE');
3353: fnd_message.raise_error;
3354: END IF;
3355:
3356: -- call the FND package to get the SQL
3357: IF l_reference_object is not null THEN --and p_timekeeper_person_type <> 'CWK' THEN
3539: ' and nvl(hav.date_to,hr_general.end_of_time) >=FND_PROFILE.VALUE(''OTL_TK_START_DATE'') ';
3540: END IF;
3541:
3542: ELSE
3543: fnd_message.set_name('HXC', 'HXC_------_INVALID_REFERENCE_OBJECT');
3544: fnd_message.raise_error;
3545: END IF;
3546:
3547: --if g_debug then
3540: END IF;
3541:
3542: ELSE
3543: fnd_message.set_name('HXC', 'HXC_------_INVALID_REFERENCE_OBJECT');
3544: fnd_message.raise_error;
3545: END IF;
3546:
3547: --if g_debug then
3548: --hr_utility.trace('x_select'||x_select);
5397:
5398: END LOOP;
5399:
5400: --IF not(l_found) THEN
5401: -- fnd_message.set_name('HXC', 'HXC_ALIAS_DEF_NOT_FOUND');
5402: -- fnd_msg_pub.add;
5403: --END IF;
5404:
5405: return l_alias_definition;
5426: FETCH csr_bld_blk_id INTO l_type_id;
5427:
5428: IF csr_bld_blk_id%NOTFOUND THEN
5429: CLOSE csr_bld_blk_id;
5430: FND_MESSAGE.SET_NAME('HXC','HXC_NO_BLD_BLK_TYPE_ID');
5431: fnd_msg_pub.add;
5432:
5433: END IF;
5434:
5437: RETURN l_type_id;
5438:
5439: EXCEPTION
5440: WHEN OTHERS THEN
5441: fnd_message.set_name('HXC', 'HXC_ALIAS_EXCEPTION');
5442: fnd_msg_pub.add;
5443:
5444:
5445: