[Home] [Help]
PACKAGE BODY: APPS.EGO_UCCNET_EVENTS_PVT
Source
1 PACKAGE BODY EGO_UCCNET_EVENTS_PVT AS
2 /* $Header: EGOVGTNB.pls 120.1 2005/12/05 01:15:40 dsakalle noship $ */
3
4 G_FILE_NAME CONSTANT VARCHAR2(12) := 'EGOVGTNB.pls';
5 G_PKG_NAME CONSTANT VARCHAR2(30) := 'EGO_UCCNET_EVENTS_PVT';
6
7
8 PROCEDURE Update_Event_Disposition (
9 p_api_version IN NUMBER
10 ,p_commit IN VARCHAR2 DEFAULT FND_API.g_FALSE
11 ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
12 ,p_cln_id IN NUMBER
13 ,p_disposition_code IN VARCHAR2
14 ,p_disposition_date IN DATE
15 ,x_return_status OUT NOCOPY VARCHAR2
16 ,x_msg_count OUT NOCOPY VARCHAR2
17 ,x_msg_data OUT NOCOPY VARCHAR2
18 )
19 IS
20 --we don't use l_api_version yet, but eventually we might:
21 --if we change required parameters, version goes from n.x to (n+1).x
22 --if we change optional parameters, version goes from x.n to x.(n+1)
23
24 l_api_version CONSTANT NUMBER := 1.0;
25
26 l_api_name CONSTANT VARCHAR2(30) := 'Update_Event_Disposition';
27 l_return_status VARCHAR2(1) := G_MISS_CHAR;
28 l_msg_count NUMBER := 0;
29
30 BEGIN
31 -- Standard start of API savepoint
32 SAVEPOINT Update_Disposition_PVT;
33
34 x_return_status := G_RET_STS_SUCCESS;
35
36 -- Check for call compatibility
37 IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,
38 l_api_name, G_PKG_NAME)
39 THEN
40 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
41 END IF;
42 -- Initialize message list even though we don't currently use it
43 IF FND_API.To_Boolean(p_init_msg_list) THEN
44 FND_MSG_PUB.Initialize;
45 END IF;
46 ----- -----------------------------------------------------------------
47
48 UPDATE EGO_UCCNET_EVENTS
49 SET DISPOSITION_CODE = p_disposition_code,
50 DISPOSITION_DATE = p_disposition_date
51 WHERE cln_id = p_cln_id;
52
53 -- Standard check of p_commit
54 IF FND_API.To_Boolean(p_commit) THEN
55 COMMIT WORK;
56 END IF;
57
58 x_return_status := FND_API.G_RET_STS_SUCCESS;
59
60
61 EXCEPTION
62 WHEN OTHERS THEN
63 ROLLBACK TO Update_Disposition_PVT;
64 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
65
66 FND_MESSAGE.Set_Name('EGO', 'EGO_PLSQL_ERR');
67 FND_MESSAGE.Set_Token('PKG_NAME', G_PKG_NAME);
68 FND_MESSAGE.Set_Token('API_NAME', l_api_name);
69 FND_MESSAGE.Set_Token('SQL_ERR_MSG', SQLERRM);
70 FND_MSG_PUB.Add;
71 FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE
72 ,p_count => x_msg_count
73 ,p_data => x_msg_data);
74 END Update_Event_Disposition;
75
76
77
78 PROCEDURE Set_Collaboration_Id (
79 p_api_version IN NUMBER
80 ,p_commit IN VARCHAR2 DEFAULT FND_API.g_FALSE
81 ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.g_FALSE
82 ,p_batch_id IN NUMBER
83 ,p_subbatch_id IN NUMBER
84 ,p_top_gtin IN NUMBER
85 ,p_cln_id IN NUMBER
86 ,x_return_status OUT NOCOPY VARCHAR2
87 ,x_msg_count OUT NOCOPY VARCHAR2
88 ,x_msg_data OUT NOCOPY VARCHAR2
89 )
90 IS
91 --we don't use l_api_version yet, but eventually we might:
92 --if we change required parameters, version goes from n.x to (n+1).x
93 --if we change optional parameters, version goes from x.n to x.(n+1)
94
95 l_api_version CONSTANT NUMBER := 1.0;
96
97 l_api_name CONSTANT VARCHAR2(30) := 'Set_Collaboration_Id';
98 l_return_status VARCHAR2(1) := G_MISS_CHAR;
99 l_msg_count NUMBER := 0;
100
101 BEGIN
102 -- Standard start of API savepoint
103 SAVEPOINT Set_Collaboration_Id_PVT;
104
105 x_return_status := G_RET_STS_SUCCESS;
106
107 -- Check for call compatibility
108 IF NOT FND_API.Compatible_API_Call ( l_api_version, p_api_version,
109 l_api_name, G_PKG_NAME )
110 THEN
111 RAISE FND_API.g_EXC_UNEXPECTED_ERROR;
112 END IF;
113
114 IF FND_API.To_Boolean(p_init_msg_list) THEN
115 FND_MSG_PUB.Initialize;
116 END IF;
117 -----------------------------------------------------------------------------
118
119 UPDATE EGO_UCCNET_EVENTS
120 SET cln_id = p_cln_id
121 WHERE batch_id = p_batch_id
122 AND subbatch_id = p_subbatch_id
123 AND top_gtin = p_top_gtin;
124
125 -- Standard check of p_commit
126 IF FND_API.To_Boolean(p_commit) THEN
127 COMMIT WORK;
128 END IF;
129
130 x_return_status := FND_API.G_RET_STS_SUCCESS;
131
132
133 EXCEPTION
134 WHEN OTHERS THEN
135 ROLLBACK TO Set_Collaboration_Id_PVT;
136 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
137
138 FND_MESSAGE.Set_Name('EGO', 'EGO_PLSQL_ERR');
139 FND_MESSAGE.Set_Token('PKG_NAME', G_PKG_NAME);
140 FND_MESSAGE.Set_Token('API_NAME', l_api_name);
141 FND_MESSAGE.Set_Token('SQL_ERR_MSG', SQLERRM);
142 FND_MSG_PUB.Add;
143 FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE
144 ,p_count => x_msg_count
145 ,p_data => x_msg_data);
146
147 END Set_Collaboration_Id;
148
149 PROCEDURE Add_Additional_CIC_Info (
150 p_api_version IN NUMBER
151 ,p_commit IN VARCHAR2 DEFAULT FND_API.g_FALSE
152 ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
153 ,p_cln_id IN NUMBER
154 ,p_cic_code IN VARCHAR2
155 ,p_cic_description IN VARCHAR2
156 ,p_cic_action_needed IN VARCHAR2
157 ,x_return_status OUT NOCOPY VARCHAR2
158 ,x_msg_count OUT NOCOPY VARCHAR2
159 ,x_msg_data OUT NOCOPY VARCHAR2
160 )
161 IS
162
163 l_api_version CONSTANT NUMBER := 1.0;
164
165 l_api_name CONSTANT VARCHAR2(30) := 'Add_Additional_CIC_Info';
166 l_return_status VARCHAR2(1) := G_MISS_CHAR;
167 l_msg_count NUMBER := 0;
168
169 BEGIN
170 -- Standard start of API savepoint
171 SAVEPOINT Add_Additional_CIC_Info_PVT;
172
173 x_return_status := G_RET_STS_SUCCESS;
174
175 -- Check for call compatibility
176 IF NOT FND_API.Compatible_API_Call ( l_api_version, p_api_version,
177 l_api_name, G_PKG_NAME )
178 THEN
179 RAISE FND_API.g_EXC_UNEXPECTED_ERROR;
180 END IF;
181
182 IF FND_API.To_Boolean(p_init_msg_list) THEN
183 FND_MSG_PUB.Initialize;
184 END IF;
185 -----------------------------------------------------------------------------
186 INSERT INTO EGO_UCCNET_ADD_CIC_INFO
187 (
188 CLN_ID
189 ,CODE
190 ,DESCRIPTION
191 ,ACTION_NEEDED
192 ,CREATED_BY
193 ,CREATION_DATE
194 ,LAST_UPDATED_BY
195 ,LAST_UPDATE_DATE
196 ,LAST_UPDATE_LOGIN
197 )
198 VALUES
199 (
200 p_cln_id
201 ,p_cic_code
202 ,p_cic_description
203 ,p_cic_action_needed
204 ,fnd_global.user_id
205 ,sysdate
206 ,fnd_global.user_id
207 ,sysdate
208 ,fnd_global.login_id
209 );
210
211 -- Standard check of p_commit
212 IF FND_API.To_Boolean(p_commit) THEN
213 COMMIT WORK;
214 END IF;
215
216 x_return_status := FND_API.G_RET_STS_SUCCESS;
217
218
219 EXCEPTION
220 WHEN OTHERS THEN
221 ROLLBACK TO Add_Additional_CIC_Info_PVT;
222 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
223
224 FND_MESSAGE.Set_Name('EGO', 'EGO_PLSQL_ERR');
225 FND_MESSAGE.Set_Token('PKG_NAME', G_PKG_NAME);
226 FND_MESSAGE.Set_Token('API_NAME', l_api_name);
227 FND_MESSAGE.Set_Token('SQL_ERR_MSG', SQLERRM);
228 FND_MSG_PUB.Add;
229 FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE
230 ,p_count => x_msg_count
231 ,p_data => x_msg_data);
232 END Add_Additional_CIC_info;
233
234 END EGO_UCCNET_EVENTS_PVT;