[Home] [Help]
PACKAGE BODY: APPS.CSI_BUSINESS_EVENT_PVT
Source
1 PACKAGE BODY CSI_BUSINESS_EVENT_PVT AS
2 /* $Header: csivbesb.pls 120.2 2007/10/26 21:24:35 fli noship $ */
3
4 PROCEDURE create_instance_event
5 (p_api_version IN NUMBER
6 ,p_commit IN VARCHAR2
7 ,p_init_msg_list IN VARCHAR2
8 ,p_validation_level IN NUMBER
9 ,p_instance_id IN NUMBER
10 ,p_subject_instance_id IN NUMBER
11 ,x_return_status OUT NOCOPY VARCHAR2
12 ,x_msg_count OUT NOCOPY NUMBER
13 ,x_msg_data OUT NOCOPY VARCHAR2
14 ) IS
15
16 l_key VARCHAR2(240);
17 l_event_name VARCHAR2(240) := 'oracle.apps.csi.instance.create';
18
19 BEGIN
20 SAVEPOINT create_item_instance_event;
21
22 csi_gen_utility_pvt.put_line('Inside API CSI_BUSINESS_EVENT_PVT.create_instance_event');
23
24 -- Initialize API return status to success
25 x_return_status := FND_API.G_RET_STS_SUCCESS;
26
27 -- Get item key
28 l_key := CSI_HANDLE_EVENT_PKG.item_key(l_event_name);
29
30 csi_gen_utility_pvt.put_line('Event Key: '||l_key);
31
32 -- Raise Event
33 CSI_HANDLE_EVENT_PKG.raise_event
34 (p_api_version => p_api_version
35 ,p_commit => p_commit
36 ,p_init_msg_list => p_init_msg_list
37 ,p_validation_level => p_validation_level
38 ,p_event_name => l_event_name
39 ,p_event_key => l_key
40 ,p_instance_id => p_instance_id
41 ,p_subject_instance_id => p_subject_instance_id
42 ,p_correlation_value => 'oracle.apps.csi.instance.create');
43
44 EXCEPTION
45 WHEN OTHERS THEN
46 ROLLBACK TO create_item_instance_event;
47 x_return_status := FND_API.G_RET_STS_ERROR;
48 FND_MESSAGE.SET_NAME('CSI','CSI_CREATE_EVENT_ERROR');
49 FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
50 FND_MSG_PUB.Add;
51 FND_MSG_PUB.Count_And_Get
52 (p_count => x_msg_count
53 ,p_data => x_msg_data);
54 RAISE FND_API.G_EXC_ERROR;
55 END create_instance_event;
56
57 PROCEDURE update_instance_event
58 (p_api_version IN NUMBER
59 ,p_commit IN VARCHAR2
60 ,p_init_msg_list IN VARCHAR2
61 ,p_validation_level IN NUMBER
62 ,p_instance_id IN NUMBER
63 ,p_subject_instance_id IN NUMBER
64 ,x_return_status OUT NOCOPY VARCHAR2
65 ,x_msg_count OUT NOCOPY NUMBER
66 ,x_msg_data OUT NOCOPY VARCHAR2
67 ) IS
68
69 l_key VARCHAR2(240);
70 l_event_name VARCHAR2(240) := 'oracle.apps.csi.instance.update';
71
72 BEGIN
73 SAVEPOINT update_item_instance_event;
74
75 csi_gen_utility_pvt.put_line('Inside API CSI_BUSINESS_EVENT_PVT.update_instance_event');
76
77 -- Initialize API return status to success
78 x_return_status := FND_API.G_RET_STS_SUCCESS;
79
80 -- Get item key
81 l_key := CSI_HANDLE_EVENT_PKG.item_key(l_event_name);
82
83 csi_gen_utility_pvt.put_line('Event Key: '||l_key);
84
85 -- Raise Event
86 CSI_HANDLE_EVENT_PKG.raise_event
87 (p_api_version => p_api_version
88 ,p_commit => p_commit
89 ,p_init_msg_list => p_init_msg_list
90 ,p_validation_level => p_validation_level
91 ,p_event_name => l_event_name
92 ,p_event_key => l_key
93 ,p_instance_id => p_instance_id
94 ,p_subject_instance_id => p_subject_instance_id
95 ,p_correlation_value => 'oracle.apps.csi.instance.update');
96
97 EXCEPTION
98 WHEN OTHERS THEN
99 ROLLBACK TO update_item_instance_event;
100 x_return_status := FND_API.G_RET_STS_ERROR;
101 FND_MESSAGE.SET_NAME('CSI','CSI_UPDATE_EVENT_ERROR');
102 FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
103 FND_MSG_PUB.Add;
104 FND_MSG_PUB.Count_And_Get
105 (p_count => x_msg_count
106 ,p_data => x_msg_data);
107 RAISE FND_API.G_EXC_ERROR;
108 END update_instance_event;
109
110 END;