[Home] [Help]
PACKAGE BODY: APPS.RRS_WF_WRAPPER_PVT
Source
1 package body RRS_WF_WRAPPER_PVT as
2 /* $Header: RRSBUSEB.pls 120.0.12010000.1 2008/10/06 09:17:58 cmsops noship $ */
3 PROCEDURE Raise_RRS_Event(p_event_type VARCHAR2,
4 p_siteId VARCHAR2,
5 p_site_identification_number VARCHAR2,
6 p_sg_type VARCHAR2,
7 p_sg_name VARCHAR2,
8 x_msg_data OUT NOCOPY VARCHAR2,
9 x_return_status OUT NOCOPY VARCHAR2)
10 IS
11 l_parameter_list WF_PARAMETER_LIST_T := WF_PARAMETER_LIST_T();
12 l_parameter_t WF_PARAMETER_T := WF_PARAMETER_T(null, null);
13 l_event_name VARCHAR2(240);
14 l_event_key VARCHAR2(240);
15 l_event_num NUMBER;
16 l_event_data clob;
17 l_send_date date;
18 BEGIN
19 l_send_date := sysdate;
20 IF p_event_type = 'UpdateSite' THEN
21 l_event_name := 'oracle.apps.rrs.site.updateSiteEvent';
22 ELSIF p_event_type = 'CreateSite' THEN
23 l_event_name := 'oracle.apps.rrs.site.createSiteEvent';
24 ELSIF p_event_type = 'Bulkload' THEN
25 l_event_name := 'oracle.apps.rrs.site.postSiteBulkLoadEvent';
26 ELSIF p_event_type = 'CreateCluster' THEN
27 l_event_name := 'oracle.apps.rrs.site.createClusterEvent';
28 ELSIF p_event_type = 'UpdateCluster' THEN
29 l_event_name := 'oracle.apps.rrs.site.updateClusterEvent';
30 ELSIF p_event_type = 'CreateHierarchy' THEN
31 l_event_name := 'oracle.apps.rrs.site.createHierarchyEvent';
32 ELSIF p_event_type = 'UpdateHierarchy' THEN
33 l_event_name := 'oracle.apps.rrs.site.updateHierarchyEvent';
34 END IF;
35
36 SELECT MTL_BUSINESS_EVENTS_S.NEXTVAL into l_event_num FROM dual;
37 l_event_key := SUBSTRB(l_event_name, 1, 255) || '-' || l_event_num;
38
39 --DBMS_OUTPUT.PUT_LINE('l_event_key : '||l_event_key );
40 wf_event.AddParameterToList( p_name => 'SITEID'
41 ,p_value => p_siteId
42 ,p_ParameterList => l_parameter_List);
43 wf_event.AddParameterToList( p_name => 'SITE_IDENTIFICATION_NUMBER'
44 ,p_value => p_site_identification_number
45 ,p_ParameterList => l_parameter_List);
46 wf_event.AddParameterToList( p_name => 'SGTYPE'
47 ,p_value => p_sg_type
48 ,p_ParameterList => l_parameter_List);
49 wf_event.AddParameterToList( p_name => 'SGNAME'
50 ,p_value => p_sg_name
51 ,p_ParameterList => l_parameter_List);
52
53 WF_EVENT.Raise( p_event_name => l_event_name
54 ,p_event_key => l_event_key
55 ,p_event_data => l_event_data
56 ,p_parameters => l_parameter_list
57 ,p_send_date => l_send_date);
58
59 l_parameter_list.DELETE;
60 x_return_status := FND_API.G_RET_STS_SUCCESS;
61 EXCEPTION
62 WHEN Others THEN
63 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
64 x_msg_data := SQLERRM;
65
66 END Raise_RRS_Event;
67 END RRS_WF_WRAPPER_PVT;