PACKAGE BODY: APPS.ITA_BIZ_EVENTS_PVT

Source

1 package body ITA_BIZ_EVENTS_PVT as
2 /*$Header: itapbevb.pls 120.0 2005/05/31 16:38:47 appldev noship $*/
3 
4 
5 procedure GENERATE_ITEM_KEY(
6   X_NEXT_VALUE in out nocopy VARCHAR2)
7 is
8 
9   l_next_value      number;
10   l_procedure_name  varchar2(30) := 'GENERATE_ITEM_KEY';
11 
12 begin
13 
14   select ITA_WORKFLOW_S.nextval
15   into   l_next_value
16   from   dual;
17 
18   x_next_value := to_char(l_next_value);
19 
20 exception
21   when OTHERS then
22     if (SQLCODE <> -20001) then
23       FND_MESSAGE.SET_NAME('AR', 'HZ_CRUSR_DISPLAY_UNEXP_ERROR');
24       FND_MESSAGE.SET_TOKEN('PROCEDURE', l_procedure_name);
25       FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
26       FND_MSG_PUB.ADD;
27     end if;
28     APP_EXCEPTION.RAISE_EXCEPTION;
29 
30 end GENERATE_ITEM_KEY;
31 
32 
33 function RAISE_CHANGE_EVENT(
34   P_APPLICATION_ID VARCHAR2,
35   P_TABLE_NAME VARCHAR2,
36   P_ROW_ID VARCHAR2)
37 return VARCHAR2 is
38 
39   l_item_key        WF_ITEMS.ITEM_KEY%type;
40   l_parameter_list  WF_PARAMETER_LIST_T := WF_PARAMETER_LIST_T();
41 
42 begin
43 
44   generate_item_key(x_next_value => l_item_key);
45 
46   WF_EVENT.addParameterToList(
47     p_name => 'APPLICATION_ID',
48     p_value => p_application_id,
49     p_parameterlist => l_parameter_list);
50 
51   WF_EVENT.addParameterToList(
52     p_name => 'TABLE_NAME',
53     p_value => p_table_name,
54     p_parameterlist => l_parameter_list);
55 
56   WF_EVENT.addParameterToList(
57     p_name => 'ROW_ID',
58     p_value => p_row_id,
59     p_parameterlist => l_parameter_list);
60 
61   WF_EVENT.raise(
62     p_event_name => 'oracle.apps.ita.setup.record',
63     p_event_key => l_item_key,
64     p_parameters => l_parameter_list);
65 
66   return l_item_key;
67 
68 exception when OTHERS then raise;
69 
70 end RAISE_CHANGE_EVENT;
71 
72 
73 end ITA_BIZ_EVENTS_PVT;