1 package body fnd_bes_proc as
2 /* $Header: AFBESPROCB.pls 115.2 2002/10/25 18:56:58 gashford noship $ */
3
4 BES_DATABASE_ID constant varchar2(30) := 'BES_DATABASE_ID';
5 BES_SECURITY_GROUP_ID constant varchar2(30) := 'BES_SECURITY_GROUP_ID';
6
7 --------------------------------------------------------------------------------
8 function process_event(p_subscription_guid in raw,
9 p_event in out nocopy wf_event_t)
10 return varchar2
11 is
12 l_database_id varchar2(255);
13 l_security_group_id number;
14 begin
15 -- if not already present, add the database name to the event
16
17 if(p_event.getValueForParameter(BES_DATABASE_ID) is null) then
18 l_database_id := fnd_web_config.database_id();
19
20 p_event.addParameterToList(BES_DATABASE_ID, l_database_id);
21 end if;
22
23 -- if not already present, add the security group id to the event
24
25 if(p_event.getValueForParameter(BES_SECURITY_GROUP_ID) is null) then
26 l_security_group_id := fnd_global.security_group_id();
27
28 p_event.addParameterToList(BES_SECURITY_GROUP_ID, l_security_group_id);
29 end if;
30
31 return wf_rule.default_rule(p_subscription_guid, p_event);
32 end process_event;
33
34 end fnd_bes_proc;