PACKAGE BODY: APPS.FND_BES_PROC

Source

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;