[Home] [Help]
4: -- Global Variables.
5: --
6: g_package varchar2(33) := 'pay_kr_sep_form_pkg.'; -- Global package name
7: g_debug boolean := hr_utility.debug_enabled;
8: g_old_rec pay_element_entries_f%ROWTYPE; -- Global record definition
9: g_run_type_id number;
10: g_run_type_name pay_run_types_f_tl.run_type_name%type;
11: g_entry_type varchar2(1) := 'E';
12: --
325: is
326: --
327: l_proc varchar2(72) := g_package||'find_dt_upd_modes';
328: --
329: l_entry_type pay_element_entries_f.entry_type%TYPE;
330: l_processing_type pay_element_types_f.processing_type%TYPE;
331: --
332: cursor C_Sel1 is
333: select pee.entry_type,
333: select pee.entry_type,
334: pet.processing_type
335: from pay_element_types_f pet,
336: pay_element_links_f pel,
337: pay_element_entries_f pee
338: where pee.element_entry_id = p_base_key_value
339: and p_effective_date
340: between pee.effective_start_date and pee.effective_end_date
341: and pel.element_link_id = pee.element_link_id
373: -- Call the corresponding datetrack api
374: --
375: dt_api.find_dt_upd_modes
376: (p_effective_date => p_effective_date,
377: p_base_table_name => 'pay_element_entries_f',
378: p_base_key_column => 'element_entry_id',
379: p_base_key_value => p_base_key_value,
380: p_correction => p_correction,
381: p_update => p_update,
401: l_proc varchar2(72) := g_package||'find_dt_del_modes';
402: --
403: l_parent_key_value1 number;
404: l_parent_key_value2 number;
405: l_entry_type pay_element_entries_f.entry_type%TYPE;
406: l_processing_type pay_element_types_f.processing_type%TYPE;
407: --
408: cursor C_Sel1 is
409: select pee.assignment_id,
411: pee.entry_type,
412: pet.processing_type
413: from pay_element_types_f pet,
414: pay_element_links_f pel,
415: pay_element_entries_f pee
416: where pee.element_entry_id = p_base_key_value
417: and p_effective_date
418: between pee.effective_start_date and pee.effective_end_date
419: and pel.element_link_id = pee.element_link_id
453: -- Call the corresponding datetrack api
454: --
455: dt_api.find_dt_del_modes
456: (p_effective_date => p_effective_date,
457: p_base_table_name => 'pay_element_entries_f',
458: p_base_key_column => 'element_entry_id',
459: p_base_key_value => p_base_key_value,
460: p_parent_table_name1 => 'per_all_assignments_f',
461: p_parent_key_column1 => 'assignment_id',
494: -- ensuring that the object version numbers match.
495: --
496: cursor C_Sel1 is
497: select *
498: from pay_element_entries_f
499: where element_entry_id = p_element_entry_id
500: and p_effective_date
501: between effective_start_date and effective_end_date
502: for update nowait;
597:
598: dt_api.validate_dt_mode(
599: p_effective_date => p_effective_date,
600: p_datetrack_mode => p_datetrack_mode,
601: p_base_table_name => 'pay_element_entries_f',
602: p_base_key_column => 'element_entry_id',
603: p_base_key_value => p_element_entry_id,
604: p_parent_table_name1 => 'per_all_assignments_f',
605: p_parent_key_column1 => 'assignment_id',
640: -- The object is locked therefore we need to supply a meaningful
641: -- error message.
642: --
643: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
644: hr_utility.set_message_token('TABLE_NAME', 'pay_element_entries_f');
645: hr_utility.raise_error;
646: when l_object_invalid then
647: --
648: -- The object doesn't exist or is invalid
647: --
648: -- The object doesn't exist or is invalid
649: --
650: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
651: hr_utility.set_message_token('TABLE_NAME', 'pay_element_entries_f');
652: hr_utility.raise_error;
653: end lock_element_entry;
654: --------------------------------------------------------------------------------
655: procedure insert_element_entry(
2131: and npetu.business_group_id = p_business_group_id)
2132: and nvl(hr_entry_api.get_link(p_assignment_id,petr.element_type_id,p_session_date),0) <> 0
2133: and petr.element_type_id not in(
2134: select distinct pet.element_type_id
2135: from pay_element_entries_f pee,
2136: pay_element_types_f pet,
2137: pay_element_links_f pel
2138: where assignment_id = p_assignment_id
2139: and pet.element_type_id = pel.element_type_id
2215: and npetu.business_group_id = p_business_group_id)
2216: and nvl(hr_entry_api.get_link(p_assignment_id,petr.element_type_id,p_session_date),0) <> 0
2217: and petr.element_type_id not in(
2218: select distinct pet.element_type_id
2219: from pay_element_entries_f pee,
2220: pay_element_types_f pet,
2221: pay_element_links_f pel
2222: where assignment_id = p_assignment_id
2223: and pet.element_type_id = pel.element_type_id
2265: --------------------------------------------------------------------------------
2266: procedure create_entry_for_assignment(p_assignment_id in pay_assignment_actions.assignment_id%type,
2267: p_element_type_id in pay_element_types.element_type_id%type,
2268: p_business_group_id in pay_element_types.business_group_id%type,
2269: p_entry_type in pay_element_entries_f.entry_type%type,
2270: p_effective_date in date,
2271: p_effective_start_date in out NOCOPY date,
2272: p_effective_end_date in out NOCOPY date,
2273: p_element_entry_id out NOCOPY pay_element_entries_f.element_entry_id%type,
2269: p_entry_type in pay_element_entries_f.entry_type%type,
2270: p_effective_date in date,
2271: p_effective_start_date in out NOCOPY date,
2272: p_effective_end_date in out NOCOPY date,
2273: p_element_entry_id out NOCOPY pay_element_entries_f.element_entry_id%type,
2274: p_object_version_number out NOCOPY number)
2275: is
2276: l_element_link_id number;
2277: l_input_value_id1 number;