1: PACKAGE BODY HR_ENTRY_DISPLAY as
2: /* $Header: pyentdis.pkb 120.0 2005/05/29 04:36 appldev noship $ */
3: --
4: /*===========================================================================+
5: | Copyright (c) 1993 Oracle Corporation |
6: | Redwood Shores, California, USA |
7: | All rights reserved. |
8: +============================================================================+
9: Name
10: hr_entry_display
11: Purpose
12: This package is used for maintaining entry level display utilities.
13:
14: Notes
113: ) is
114: --
115: begin
116: --
117: hr_utility.set_location('hr_entry_display.count_input_values', 1);
118: --
119: -- Need to determine how many input values have been defined for the element.
120: -- This value is used to control a loop which is used to select each input
121: -- value definition in the correct order a row at a time.
179: v_lookup_type varchar2(30);
180: --
181: begin
182: --
183: hr_utility.set_location('hr_entry_display.get_input_value_details', 1);
184: --
185: -- Select the input_value_id of the required input value as specified
186: -- by the ordering criteria.
187: -- The inner sub-query works by selecting the minimum order sequence of
250: exception
251: when NO_DATA_FOUND then
252: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
253: hr_utility.set_message_token('PROCEDURE',
254: 'hr_entry_display.get_input_value_details');
255: hr_utility.set_message_token('STEP','2');
256: hr_utility.raise_error;
257: end;
258: --
265: -- details the entry value can now be selected provided the element entry id
266: -- exists.
267: if p_element_entry_id is not null then
268: --
269: hr_utility.set_location('hr_entry_display.get_input_value_details', 3);
270: begin
271: SELECT HEEV1.SCREEN_ENTRY_VALUE
272: INTO v_database_format_value
273: FROM PAY_ELEMENT_ENTRY_VALUES_F HEEV1
278: exception
279: when NO_DATA_FOUND then
280: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
281: hr_utility.set_message_token('PROCEDURE',
282: 'hr_entry_display.get_input_value_details');
283: hr_utility.set_message_token('STEP','3');
284: hr_utility.raise_error;
285: end;
286: end if;
295: --
296: if (v_hot_default_flag = 'Y' and
297: v_database_format_value is null) then
298: --
299: hr_entry.derive_default_value
300: (p_element_link_id,
301: v_select_input_value_id,
302: p_session_date,
303: p_input_currency_code,
310: elsif v_database_format_value is not null then
311: --
312: if v_lookup_type is not null then
313: --
314: hr_utility.set_location('hr_entry_display.get_input_value_details', 4);
315: begin
316: select h.meaning
317: into v_screen_format_value
318: from hr_lookups h
321: exception
322: when NO_DATA_FOUND then
323: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
324: hr_utility.set_message_token('PROCEDURE',
325: 'hr_entry_display.get_input_value_details');
326: hr_utility.set_message_token('STEP','4');
327: hr_utility.raise_error;
328: end;
329: --
342: else
343: --
344: -- As we are not selecting entry values then we must select the default
345: -- value.
346: hr_entry.derive_default_value
347: (p_element_link_id,
348: v_select_input_value_id,
349: p_session_date,
350: p_input_currency_code,
359: p_database_format_value := v_database_format_value;
360: --
361: end get_input_value_details;
362: --
363: END HR_ENTRY_DISPLAY;