PACKAGE BODY: APPS.HXC_TIMECARD_MESSAGE_UTILS

Source

1 package body hxc_timecard_message_utils as
2 /* $Header: hxctcmsgut.pkb 115.7 2004/07/10 10:13:56 arundell noship $ */
3 
4 g_package varchar2(30) := 'hxc_timecard_message_utils.';
5 
6 Procedure append_old_messages
7            (p_messages             in out nocopy hxc_message_table_type
8            ,p_old_messages         in            hxc_self_service_time_deposit.message_table
9            ,p_retrieval_process_id in            hxc_retrieval_processes.retrieval_process_id%type
10            ) is
11 
12 l_index         number;
13 l_message_field varchar2(2000);
14 l_proc          varchar2(70) := g_package||'append_old_messages';
15 
16 Begin
17 
18 l_index := p_old_messages.first;
19 Loop
20   Exit when not p_old_messages.exists(l_index);
21 
22   if(((p_old_messages(l_index).message_tokens <> 'CHANGE') AND (p_old_messages(l_index).message_tokens <> 'LATE')) OR (p_old_messages(l_index).message_tokens is null)) then
23     l_message_field:=hxc_app_attribute_utils.findSegmentFromFieldName (p_old_messages(l_index).message_field );
24   else
25     l_message_field := p_old_messages(l_index).message_field;
26   end if;
27 
28   p_messages.extend();
29   p_messages(p_messages.last) :=
30      hxc_message_type
31       (p_old_messages(l_index).message_name
32       ,p_old_messages(l_index).message_level
33       ,l_message_field
34       ,p_old_messages(l_index).message_tokens
35       ,p_old_messages(l_index).application_short_name
36       ,p_old_messages(l_index).time_building_block_id
37       ,p_old_messages(l_index).time_building_block_ovn
38       ,p_old_messages(l_index).time_attribute_id
39       ,p_old_messages(l_index).time_attribute_ovn
40       ,p_old_messages(l_index).message_extent			--Bug#2873563
41       );
42 
43   l_index := p_old_messages.next(l_index);
44 End Loop;
45 
46 End append_old_messages;
47 
48 end hxc_timecard_message_utils;