PACKAGE BODY: APPS.IEU_UWQ_NONMEDIA_ACTIONS_PVT

Source

1 PACKAGE BODY IEU_UWQ_NONMEDIA_ACTIONS_PVT AS
2 /* $Header: IEUVNMAB.pls 115.2 2003/08/07 17:02:04 fsuthar noship $ */
3 
4 PROCEDURE   IEU_TASKS_ACTION(p_ieu_action_data   IN SYSTEM.IEU_UWQ_MEDIA_DATA_NST,
5               x_action_type OUT NOCOPY NUMBER,
6               x_action_name OUT NOCOPY varchar2,
7               x_action_param OUT NOCOPY varchar2,
8               x_msg_name OUT NOCOPY varchar2,
9               x_msg_param OUT NOCOPY varchar2,
10               x_dialog_style OUT NOCOPY number,
11               x_msg_appl_short_name OUT NOCOPY varchar2)  IS
12 
13   l_task_id NUMBER;
14   l_nextwork_flag VARCHAR2(5);
15   l_workitem_pk_id NUMBER;
16 BEGIN
17 
18 
19    FOR i IN p_ieu_action_data.first.. p_ieu_action_data.last
20    LOOP
21 
22 
23       if ( upper(p_ieu_action_data(i).param_name) = 'TASK_ID' ) then
24 
25           l_task_id := p_ieu_action_data(i).param_value;
26 
27        elsif ( upper(p_ieu_action_data(i).param_name) =  'IEU_GET_NEXTWORK_FLAG' ) then
28 
29           l_nextwork_flag :=p_ieu_action_data(i).param_value;
30 
31        elsif ( upper(p_ieu_action_data(i).param_name) =  'WORKITEM_PK_ID' ) then
32 
33           l_workitem_pk_id := p_ieu_action_data(i).param_value;
34 
35       END IF;
36 
37    END LOOP;
38 
39   if (l_nextwork_flag = 'Y')
40   then
41        x_action_name := 'JTFTKMAN' ;
42        x_action_param := 'TASK_ID=' || l_workitem_pk_id;
43 
44        x_action_type := 2;
45 
46   else
47        x_action_name := 'JTFTKMAN' ;
48        x_action_param := 'TASK_ID=' || l_Task_ID;
49        x_action_type := 2;
50   end if;
51 
52     x_msg_name := 'NULL' ;
53     x_msg_param := 'NULL' ;
54     x_dialog_style := 1; /* IEU_DS_CONSTS_PUB.G_DS_NONE ; */
55     x_msg_appl_short_name := 'NULL' ;
56 
57 
58 END IEU_TASKS_ACTION ;
59 END IEU_UWQ_NONMEDIA_ACTIONS_PVT;