PACKAGE BODY: APPS.IEU_WP_MSG_ACTIONS

Source

1 PACKAGE BODY IEU_WP_MSG_ACTIONS AS
2 /* $Header: IEUVWPMB.pls 115.10 2004/02/20 16:18:24 dolee noship $ */
3 PROCEDURE IEU_GET_TASK_DESCRIPTION
4   ( p_resource_id            IN NUMBER,
5     p_language               IN VARCHAR2 DEFAULT null,
6     p_source_lang            IN VARCHAR2 DEFAULT null,
7     p_action_key             IN VARCHAR2,
8     p_action_input_data_list IN system.action_input_data_nst DEFAULT null,
9     x_mesg_data_char         OUT NOCOPY VARCHAR2,
10     x_msg_count              OUT NOCOPY VARCHAR2,
11     x_msg_data               OUT NOCOPY VARCHAR2,
12     x_return_status          OUT NOCOPY VARCHAR2) AS
13 BEGIN
14      FOR i IN 1.. p_action_input_data_list.COUNT
15      LOOP
16       if (p_action_input_data_list(i).name = 'TASK_ID')
17       then
18         BEGIN
19          SELECT description
20          INTO   x_mesg_data_char
21          FROM   jtf_tasks_vl
22          WHERE  task_id = p_action_input_data_list(i).value;
23         EXCEPTION
24        	 WHEN OTHERS THEN
25             x_mesg_data_char := '';
26             x_return_status:=fnd_api.g_ret_sts_error;
27             FND_MESSAGE.SET_NAME('IEU', 'IEU_UWQ_MESSAGE_ACTION_FAILED');
28             FND_MESSAGE.SET_TOKEN('DETAILS', sqlerrm);
29 
30             fnd_msg_pub.ADD;
31             fnd_msg_pub.Count_and_Get
32             (
33               p_count   =>   x_msg_count,
34               p_data    =>   x_msg_data
35             );
36 
37             RAISE fnd_api.g_exc_error;
38         END;
39       end if;
40 
41      END LOOP;
42 
43       x_return_status    :=fnd_api.g_ret_sts_success;
44 
45       fnd_msg_pub.Count_And_Get(p_count => x_msg_count,
46                                 p_data  => x_msg_data);
47 
48 EXCEPTION
49 
50      when fnd_api.g_exc_error  then
51       x_return_status:=fnd_api.g_ret_sts_error;
52 
53      when fnd_api.g_exc_unexpected_error  then
54       x_return_status:=fnd_api.g_ret_sts_unexp_error;
55 
56      when others then
57       x_return_status:=fnd_api.g_ret_sts_unexp_error;
58 
59       fnd_msg_pub.Count_And_Get(p_count => x_msg_count,
60                                 p_data  => x_msg_data);
61 
62 
63 
64 END IEU_GET_TASK_DESCRIPTION;
65 END IEU_WP_MSG_ACTIONS;