1: PACKAGE BODY hxc_timecard_message_helper AS
2: /* $Header: hxctcdmsg.pkb 120.2 2006/08/15 22:14:20 arundell noship $ */
3:
4: c_max_messages_displayed NUMBER := 30;
5: c_message_level_token VARCHAR2(80) := 'FND_MESSAGE_TYPE';
5: c_message_level_token VARCHAR2(80) := 'FND_MESSAGE_TYPE';
6:
7: g_messages hxc_message_table_type;
8:
9: g_package varchar2(30) := 'hxc_timecard_message_helper.';
10:
11: Procedure initializeErrors is
12: Begin
13:
67: p_messages := HXC_MESSAGE_TABLE_TYPE();
68:
69: end if;
70: l_message_tokens := p_message_tokens; -- Bug 3036930
71: if(p_message_name = hxc_timecard.c_exception) then
72: tryFindingMessage(l_message_name,l_message_app,l_message_tokens); -- Bug 3036930
73: else
74: l_message_name := p_message_name;
75: l_message_app := p_application_short_name;
80: -- Modified for 115.10 - added business message
81: -- using constants.
82:
83: if (p_message_level NOT IN
84: (hxc_timecard.c_error,
85: hxc_timecard.c_warning,
86: hxc_timecard.c_confirmation,
87: hxc_timecard.c_information,
88: hxc_timecard.c_business_message)) then
81: -- using constants.
82:
83: if (p_message_level NOT IN
84: (hxc_timecard.c_error,
85: hxc_timecard.c_warning,
86: hxc_timecard.c_confirmation,
87: hxc_timecard.c_information,
88: hxc_timecard.c_business_message)) then
89:
82:
83: if (p_message_level NOT IN
84: (hxc_timecard.c_error,
85: hxc_timecard.c_warning,
86: hxc_timecard.c_confirmation,
87: hxc_timecard.c_information,
88: hxc_timecard.c_business_message)) then
89:
90: FND_MESSAGE.SET_NAME('HXC','HXC_XXXXXX_INVALID_MSGTYPE');
83: if (p_message_level NOT IN
84: (hxc_timecard.c_error,
85: hxc_timecard.c_warning,
86: hxc_timecard.c_confirmation,
87: hxc_timecard.c_information,
88: hxc_timecard.c_business_message)) then
89:
90: FND_MESSAGE.SET_NAME('HXC','HXC_XXXXXX_INVALID_MSGTYPE');
91: FND_MESSAGE.RAISE_ERROR;
84: (hxc_timecard.c_error,
85: hxc_timecard.c_warning,
86: hxc_timecard.c_confirmation,
87: hxc_timecard.c_information,
88: hxc_timecard.c_business_message)) then
89:
90: FND_MESSAGE.SET_NAME('HXC','HXC_XXXXXX_INVALID_MSGTYPE');
91: FND_MESSAGE.RAISE_ERROR;
92:
248: (p_messages(l_index).message_name = '')) then
249: g_messages(g_messages.last) :=
250: hxc_message_type
251: ('HXC_366510_EMPTY_MESSAGE',
252: hxc_timecard.c_error,
253: null,
254: 'APPLICATION_SHORT_NAME&'||p_messages(l_index).application_short_name,
255: 'HXC',
256: null,
256: null,
257: null,
258: null,
259: null,
260: hxc_timecard.c_blk_children_extent
261: );
262: else
263: g_messages(g_messages.last) :=
264: hxc_message_type
297: If(g_messages.count>0) then
298: l_index := g_messages.first;
299: Loop
300: Exit when ((not g_messages.exists(l_index)) or (l_found));
301: if(g_messages(l_index).message_level = hxc_timecard.c_error) then
302: l_found := true;
303: end if;
304: l_index := g_messages.next(l_index);
305: End Loop;
342: if((g_messages(l_index).message_name is not null)
343: AND
344: (g_messages(l_index).application_short_name is not null)
345: AND
346: ((g_messages(l_index).message_level <> hxc_timecard.c_pte)
347: AND
348: (g_messages(l_index).message_level <> hxc_timecard.c_reason_attribute)
349: )
350: ) then
344: (g_messages(l_index).application_short_name is not null)
345: AND
346: ((g_messages(l_index).message_level <> hxc_timecard.c_pte)
347: AND
348: (g_messages(l_index).message_level <> hxc_timecard.c_reason_attribute)
349: )
350: ) then
351:
352: fnd_message.set_name
390: Function prepareMessages return hxc_message_table_type is
391:
392: l_messages hxc_message_table_type := hxc_message_table_type();
393: l_index number;
394: l_proc varchar2(70) := 'hxc_timecard_message_helper.prepareMessages';
395:
396:
397: Begin
398: --
443: return g_messages;
444:
445: End getMessages;
446:
447: END hxc_timecard_message_helper;