PACKAGE BODY: APPS.RRS_WF_WRAPPER_PVT

Source

1 package body RRS_WF_WRAPPER_PVT  as
2 /* $Header: RRSBUSEB.pls 120.3 2010/05/10 11:28:55 vmalline 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 						  p_event_subtype VARCHAR2,
9                           x_msg_data  OUT NOCOPY VARCHAR2,
10                           x_return_status OUT NOCOPY VARCHAR2)
11 IS
12   l_parameter_list         WF_PARAMETER_LIST_T := WF_PARAMETER_LIST_T();
13     l_parameter_t            WF_PARAMETER_T      := WF_PARAMETER_T(null, null);
14     l_event_name             VARCHAR2(240);
15     l_event_key              VARCHAR2(240);
16     l_event_num              NUMBER;
17     l_event_data  clob;
18     l_send_date date;
19 	PRAGMA AUTONOMOUS_TRANSACTION;--Added for Bug #9633245
20 BEGIN
21    l_send_date := sysdate;
22    IF p_event_type = 'UpdateSite' THEN
23       l_event_name := 'oracle.apps.rrs.site.updateSiteEvent';
24    ELSIF p_event_type = 'CreateSite' THEN
25       l_event_name := 'oracle.apps.rrs.site.createSiteEvent';
26    ELSIF p_event_type = 'Bulkload' THEN
27       l_event_name := 'oracle.apps.rrs.site.postSiteBulkLoadEvent';
28    ELSIF p_event_type = 'CreateCluster' THEN
29       l_event_name := 'oracle.apps.rrs.site.createClusterEvent';
30    ELSIF p_event_type = 'UpdateCluster' THEN
31       l_event_name := 'oracle.apps.rrs.site.updateClusterEvent';
32    ELSIF p_event_type = 'CreateHierarchy' THEN
33       l_event_name := 'oracle.apps.rrs.site.createHierarchyEvent';
34    ELSIF p_event_type = 'UpdateHierarchy' THEN
35       l_event_name := 'oracle.apps.rrs.site.updateHierarchyEvent';
36    END IF;
37 
38    SELECT MTL_BUSINESS_EVENTS_S.NEXTVAL into l_event_num FROM dual;
39    l_event_key := SUBSTRB(l_event_name, 1, 255) || '-' || l_event_num;
40 
41    --DBMS_OUTPUT.PUT_LINE('l_event_key : '||l_event_key );
42    wf_event.AddParameterToList( p_name => 'SITEID'
43                                ,p_value  => p_siteId
44                                ,p_ParameterList => l_parameter_List);
45    wf_event.AddParameterToList( p_name => 'SITE_IDENTIFICATION_NUMBER'
46                                ,p_value  => p_site_identification_number
47                                ,p_ParameterList => l_parameter_List);
48    wf_event.AddParameterToList( p_name => 'SGTYPE'
49                                ,p_value  => p_sg_type
50                                ,p_ParameterList => l_parameter_List);
51    wf_event.AddParameterToList( p_name => 'SGNAME'
52                                ,p_value  => p_sg_name
53                                ,p_ParameterList => l_parameter_List);
54    wf_event.AddParameterToList( p_name => 'EVENTSUBTYPE'
55                                ,p_value  => p_event_subtype
56 							   ,p_ParameterList => l_parameter_List);
57 
58     WF_EVENT.Raise( p_event_name => l_event_name
59                        ,p_event_key  => l_event_key
60                        ,p_event_data => l_event_data
61                        ,p_parameters => l_parameter_list
62                        ,p_send_date => l_send_date);
63 	--Added for Bug #9633245 Issuing a autonomus commit Vishnu
64 	COMMIT;
65    l_parameter_list.DELETE;
66    x_return_status :=  FND_API.G_RET_STS_SUCCESS;
67 EXCEPTION
68      WHEN Others THEN
69      x_return_status :=  FND_API.G_RET_STS_UNEXP_ERROR;
70      x_msg_data := SQLERRM;
71 
72 END Raise_RRS_Event;
73 END RRS_WF_WRAPPER_PVT;