[Home] [Help]
156: 23-Nov-1994 J.S.Hobbs G1707 Replaced fnd_common_lookups with hr_lookups.
157: 24-Nov-1994 R.M.Fine G1725 Suppressed index on business_group_id
158: 07-Feb-1996 N.Simpson G336502 Redirected some procedures to the new package
159: pay_element_links_pkg. This will fix the bug
160: and avoid the need for dual maintenance in
161: the future. Ideally, this package will
162: eventually be dropped completely.
163: 24-FEB-1999 J. Moyano 115.1 MLS changes. Procedures upd_3p_element_links
164: and chk_link_input_values affected.
182: procedure will be called from chk_element_links which brings it into
183: line with the other validation procedures.
184: 07-FEB-1996 N Simpson
185: Removed code and redirected to new package pay_element_links_pkg to
186: avoid dual maintenance.
187: */
188: --
189: PROCEDURE
190: chk_mutual_exclusivity(p_element_type_id in number,
308: begin
309: --
310: select 'N'
311: into l_validation_ok
312: from sys.dual
313: where exists
314: (select 1
315: from pay_element_set_members esm,
316: pay_element_sets es
333: begin
334: --
335: select 'N'
336: into l_validation_ok
337: from sys.dual
338: where exists
339: (select 1
340: from pay_element_set_members esm,
341: pay_element_classifications ec,
447: begin
448: --
449: select 'N'
450: into l_validation_ok
451: from sys.dual
452: where exists
453: (select 1
454: from pay_element_entries_f ee
455: where p_element_link_id = ee.element_link_id);
469: begin
470: --
471: select 'Y'
472: into l_validation_not_ok
473: from sys.dual
474: where p_val_start_date =
475: (select min(effective_start_date)
476: from pay_element_links_f
477: where p_element_link_id = element_link_id)
521: begin
522: --
523: select 'N'
524: into l_delete_ok
525: from sys.dual
526: where exists
527: (select 1
528: from pay_element_types_f et,
529: pay_element_entries_f ee,
550: begin
551: --
552: select 'N'
553: into l_delete_ok
554: from sys.dual
555: where exists
556: (select 1
557: from pay_element_entries_f ee
558: where p_element_link_id = ee.element_link_id
1143: begin
1144: --
1145: select 'Y' into
1146: l_validation_check
1147: from sys.dual
1148: where exists
1149: (select 1
1150: from hr_lookups
1151: where lookup_type = iv_rec.lookup_type