1 PACKAGE BODY AMS_Upgrade_Track_Error_PVT as
2 /* $Header: amsvuteb.pls 120.0 2005/05/31 20:14:34 appldev noship $ */
3 -- ===============================================================
4 -- Start of Comments
5 -- Package name
6 -- AMS_Upgrade_Track_Error_PVT
7 -- Purpose
8 --
9 -- History
10 --
11 -- NOTE
12 --
13 -- End of Comments
14 -- ===============================================================
15
16
17 G_PKG_NAME CONSTANT VARCHAR2(30):= 'AMS_Upgrade_Track_Error_PVT';
18 G_FILE_NAME CONSTANT VARCHAR2(12) := 'amsvuteb.pls';
19
20
21 -- Hint: Primary key needs to be returned.
22 PROCEDURE Create_Upgrade_Track_Error(
23 p_api_version_number IN NUMBER,
24 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
25 p_commit IN VARCHAR2 := FND_API.G_FALSE,
26 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
27 x_return_status OUT NOCOPY VARCHAR2,
28 x_msg_count OUT NOCOPY NUMBER,
29 x_msg_data OUT NOCOPY VARCHAR2,
30
31 p_upgrade_track_error_rec IN upgrade_track_error_rec_type := g_miss_upgrade_track_error_rec
32 )
33
34 IS
35 L_API_NAME CONSTANT VARCHAR2(30) := 'Create_Upgrade_Track_Error';
36 L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
37 l_return_status_full VARCHAR2(1);
38 l_object_version_number NUMBER := 1;
39 l_org_id NUMBER := FND_API.G_MISS_NUM;
40 l_dummy NUMBER;
41
42
43 BEGIN
44 -- Standard Start of API savepoint
45 SAVEPOINT CREATE_Upgrade_Track_Error_PVT;
46
47 -- Initialize message list if p_init_msg_list is set to TRUE.
48 IF FND_API.to_Boolean( p_init_msg_list )
49 THEN
50 FND_MSG_PUB.initialize;
51 END IF;
52
53 -- Invoke table handler(AMS_UPGRADE_TRACK_ERROR_PKG.Insert_Row)
54 AMS_UPGRADE_TRACK_ERROR_PKG.Insert_Row(
55 p_object_code => p_upgrade_track_error_rec.object_code,
56 p_object_id => p_upgrade_track_error_rec.object_id,
57 p_creation_date => SYSDATE,
58 p_error_code => p_upgrade_track_error_rec.error_code,
59 p_object_name => p_upgrade_track_error_rec.object_name,
60 p_language => p_upgrade_track_error_rec.language,
61 p_error_message => p_upgrade_track_error_rec.error_message,
62 p_proposed_action => p_upgrade_track_error_rec.proposed_action);
63
64 x_return_status := FND_API.G_RET_STS_SUCCESS;
65
66 --
67 -- End of API body
68 --
69
70 -- Standard check for p_commit
71 IF FND_API.to_Boolean( p_commit )
72 THEN
73 COMMIT WORK;
74 END IF;
75
76
77 -- Standard call to get message count and if count is 1, get message info.
78 FND_MSG_PUB.Count_And_Get
79 (p_count => x_msg_count,
80 p_data => x_msg_data
81 );
82 EXCEPTION
83
84 WHEN FND_API.G_EXC_ERROR THEN
85 ROLLBACK TO CREATE_Upgrade_Track_Error_PVT;
86 x_return_status := FND_API.G_RET_STS_ERROR;
87 -- Standard call to get message count and if count=1, get the message
88 FND_MSG_PUB.Count_And_Get (
89 p_encoded => FND_API.G_FALSE,
90 p_count => x_msg_count,
91 p_data => x_msg_data
92 );
93
94 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
95 ROLLBACK TO CREATE_Upgrade_Track_Error_PVT;
96 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
97 -- Standard call to get message count and if count=1, get the message
98 FND_MSG_PUB.Count_And_Get (
99 p_encoded => FND_API.G_FALSE,
100 p_count => x_msg_count,
101 p_data => x_msg_data
102 );
103
104 WHEN OTHERS THEN
105 ROLLBACK TO CREATE_Upgrade_Track_Error_PVT;
106 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
107 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
108 THEN
109 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
110 END IF;
111 -- Standard call to get message count and if count=1, get the message
112 FND_MSG_PUB.Count_And_Get (
113 p_encoded => FND_API.G_FALSE,
114 p_count => x_msg_count,
115 p_data => x_msg_data
116 );
117 End Create_Upgrade_Track_Error;
118
119
120 PROCEDURE Update_Upgrade_Track_Error(
121 p_api_version_number IN NUMBER,
122 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
123 p_commit IN VARCHAR2 := FND_API.G_FALSE,
124 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
125 p_upgrade_track_error_rec IN upgrade_track_error_rec_type,
126 x_return_status OUT NOCOPY VARCHAR2,
127 x_msg_count OUT NOCOPY NUMBER,
128 x_msg_data OUT NOCOPY VARCHAR2
129
130 )
131
132 IS
133 L_API_NAME CONSTANT VARCHAR2(30) := 'Update_Upgrade_Track_Error';
134 L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
135 -- Local Variables
136 l_tar_upgrade_track_error_rec AMS_Upgrade_Track_Error_PVT.upgrade_track_error_rec_type := P_upgrade_track_error_rec;
137 l_rowid ROWID;
138
139 BEGIN
140 -- Standard Start of API savepoint
141 SAVEPOINT UPDATE_Upgrade_Track_Error_PVT;
142
143
144 -- Initialize message list if p_init_msg_list is set to TRUE.
145 IF FND_API.to_Boolean( p_init_msg_list )
146 THEN
147 FND_MSG_PUB.initialize;
148 END IF;
149
150
151 -- Initialize API return status to SUCCESS
152 x_return_status := FND_API.G_RET_STS_SUCCESS;
153
154
155 -- Invoke table handler(AMS_UPGRADE_TRACK_ERROR_PKG.Update_Row)
156 AMS_UPGRADE_TRACK_ERROR_PKG.Update_Row(
157 p_object_code => p_upgrade_track_error_rec.object_code,
158 p_object_id => p_upgrade_track_error_rec.object_id,
159 p_creation_date => SYSDATE,
160 p_error_code => p_upgrade_track_error_rec.error_code,
161 p_object_name => p_upgrade_track_error_rec.object_name,
162 p_language => p_upgrade_track_error_rec.language,
163 p_error_message => p_upgrade_track_error_rec.error_message,
164 p_proposed_action => p_upgrade_track_error_rec.proposed_action);
165 --
166 -- End of API body.
167 --
168
169 -- Standard check for p_commit
170 IF FND_API.to_Boolean( p_commit )
171 THEN
172 COMMIT WORK;
173 END IF;
174
175
176 -- Standard call to get message count and if count is 1, get message info.
177 FND_MSG_PUB.Count_And_Get
178 (p_count => x_msg_count,
179 p_data => x_msg_data
180 );
181 EXCEPTION
182
183 WHEN FND_API.G_EXC_ERROR THEN
184 ROLLBACK TO UPDATE_Upgrade_Track_Error_PVT;
185 x_return_status := FND_API.G_RET_STS_ERROR;
186 -- Standard call to get message count and if count=1, get the message
187 FND_MSG_PUB.Count_And_Get (
188 p_encoded => FND_API.G_FALSE,
189 p_count => x_msg_count,
190 p_data => x_msg_data
191 );
192
193 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
194 ROLLBACK TO UPDATE_Upgrade_Track_Error_PVT;
195 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
196 -- Standard call to get message count and if count=1, get the message
197 FND_MSG_PUB.Count_And_Get (
198 p_encoded => FND_API.G_FALSE,
199 p_count => x_msg_count,
200 p_data => x_msg_data
201 );
202
203 WHEN OTHERS THEN
204 ROLLBACK TO UPDATE_Upgrade_Track_Error_PVT;
205 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
206 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
207 THEN
208 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
209 END IF;
210 -- Standard call to get message count and if count=1, get the message
211 FND_MSG_PUB.Count_And_Get (
212 p_encoded => FND_API.G_FALSE,
213 p_count => x_msg_count,
214 p_data => x_msg_data
215 );
216 End Update_Upgrade_Track_Error;
217
218
219 PROCEDURE Delete_Upgrade_Track_Error(
220 p_api_version_number IN NUMBER,
221 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
222 p_commit IN VARCHAR2 := FND_API.G_FALSE,
223 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
224 x_return_status OUT NOCOPY VARCHAR2,
225 x_msg_count OUT NOCOPY NUMBER,
226 x_msg_data OUT NOCOPY VARCHAR2,
227 p_object_code IN Number,
228 p_object_id IN NUMBER
229 )
230
231 IS
232 L_API_NAME CONSTANT VARCHAR2(30) := 'Delete_Upgrade_Track_Error';
233 L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
234 l_object_version_number NUMBER;
235
236 BEGIN
237 -- Standard Start of API savepoint
238 SAVEPOINT DELETE_Upgrade_Track_Error_PVT;
239
240 -- Initialize message list if p_init_msg_list is set to TRUE.
241 IF FND_API.to_Boolean( p_init_msg_list )
242 THEN
243 FND_MSG_PUB.initialize;
244 END IF;
245
246 -- Initialize API return status to SUCCESS
247 x_return_status := FND_API.G_RET_STS_SUCCESS;
248
249 --
250 -- Api body
251 --
252
253 -- Invoke table handler(AMS_UPGRADE_TRACK_ERROR_PKG.Delete_Row)
254 AMS_UPGRADE_TRACK_ERROR_PKG.Delete_Row(
255 p_OBJECT_CODE => p_OBJECT_CODE,
256 p_OBJECT_ID => p_OBJECT_ID);
257 --
258 -- End of API body
259 --
260
261 -- Standard check for p_commit
262 IF FND_API.to_Boolean( p_commit )
263 THEN
264 COMMIT WORK;
265 END IF;
266
267
268 -- Standard call to get message count and if count is 1, get message info.
269 FND_MSG_PUB.Count_And_Get
270 (p_count => x_msg_count,
271 p_data => x_msg_data
272 );
273 EXCEPTION
274
275 WHEN FND_API.G_EXC_ERROR THEN
276 ROLLBACK TO DELETE_Upgrade_Track_Error_PVT;
277 x_return_status := FND_API.G_RET_STS_ERROR;
278 -- Standard call to get message count and if count=1, get the message
279 FND_MSG_PUB.Count_And_Get (
280 p_encoded => FND_API.G_FALSE,
281 p_count => x_msg_count,
282 p_data => x_msg_data
283 );
284
285 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
286 ROLLBACK TO DELETE_Upgrade_Track_Error_PVT;
287 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
288 -- Standard call to get message count and if count=1, get the message
289 FND_MSG_PUB.Count_And_Get (
290 p_encoded => FND_API.G_FALSE,
291 p_count => x_msg_count,
292 p_data => x_msg_data
293 );
294
295 WHEN OTHERS THEN
296 ROLLBACK TO DELETE_Upgrade_Track_Error_PVT;
297 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
298 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
299 THEN
300 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
301 END IF;
302 -- Standard call to get message count and if count=1, get the message
303 FND_MSG_PUB.Count_And_Get (
304 p_encoded => FND_API.G_FALSE,
305 p_count => x_msg_count,
306 p_data => x_msg_data
307 );
308 End Delete_Upgrade_Track_Error;
309
310 END AMS_Upgrade_Track_Error_PVT;