[Home] [Help]
PACKAGE BODY: APPS.OZF_CLAIM_LINES_INT_PUB
Source
1 PACKAGE BODY OZF_Claim_Lines_Int_PUB as
2 /* $Header: ozfpclib.pls 120.0 2005/05/31 23:39:57 appldev noship $ */
3 -- ===============================================================
4 -- Start of Comments
5 -- Package name
6 -- OZF_Claim_Lines_Int_PUB
7 -- Purpose
8 --
9 -- History
10 --
11 -- NOTE
12 --
13 -- End of Comments
14 -- ===============================================================
15
16
17 G_PKG_NAME CONSTANT VARCHAR2(30):= 'OZF_Claim_Lines_Int_PUB';
18 G_FILE_NAME CONSTANT VARCHAR2(12) := 'ozfpclib.pls';
19
20 G_DEBUG BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
21
22 PROCEDURE Create_Claim_Lines_Int(
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
27 x_return_status OUT NOCOPY VARCHAR2,
28 x_msg_count OUT NOCOPY NUMBER,
29 x_msg_data OUT NOCOPY VARCHAR2,
30
31 p_claim_lines_int_rec IN claim_lines_int_rec_type := g_miss_claim_lines_int_rec,
32 x_interface_claim_line_id OUT NOCOPY NUMBER
33 )
34
35 IS
36 L_API_NAME CONSTANT VARCHAR2(30) := 'Create_Claim_Lines_Int';
37 L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
38 l_pvt_claim_lines_int_rec OZF_Claim_Lines_Int_PVT.claim_lines_int_rec_type;
39 BEGIN
40 -- Standard Start of API savepoint
41 SAVEPOINT CREATE_Claim_Lines_Int_PUB;
42
43 -- Standard call to check for call compatibility.
44 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
45 p_api_version_number,
46 l_api_name,
47 G_PKG_NAME)
48 THEN
49 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
50 END IF;
51
52 -- Initialize message list if p_init_msg_list is set to TRUE.
53 IF FND_API.to_Boolean( p_init_msg_list )
54 THEN
55 FND_MSG_PUB.initialize;
56 END IF;
57
58 -- Debug Message
59 IF g_debug THEN
60 OZF_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'start');
61 END IF;
62
63
64 -- Initialize API return status to SUCCESS
65 x_return_status := FND_API.G_RET_STS_SUCCESS;
66
67 --
68 -- API body
69 --
70 -- Calling Private package: Create_Claim_Lines_Int
71 -- Hint: Primary key needs to be returned
72 OZF_Claim_Lines_Int_PVT.Create_Claim_Lines_Int(
73 p_api_version_number => 1.0,
74 p_init_msg_list => FND_API.G_FALSE,
75 p_commit => FND_API.G_FALSE,
76 p_validation_level => FND_API.G_VALID_LEVEL_FULL,
77 x_return_status => x_return_status,
78 x_msg_count => x_msg_count,
79 x_msg_data => x_msg_data,
80 p_claim_lines_int_rec => l_pvt_claim_lines_int_rec,
81 x_interface_claim_line_id => x_interface_claim_line_id);
82
83
84 -- Check return status from the above procedure call
85 IF x_return_status = FND_API.G_RET_STS_ERROR then
86 RAISE FND_API.G_EXC_ERROR;
87 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
88 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
89 END IF;
90 --
91 -- End of API body.
92 --
93
94 -- Standard check for p_commit
95 IF FND_API.to_Boolean( p_commit )
96 THEN
97 COMMIT WORK;
98 END IF;
99
100
101 -- Debug Message
102 IF g_debug THEN
103 OZF_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'end');
104 END IF;
105
106 -- Standard call to get message count and if count is 1, get message info.
107 FND_MSG_PUB.Count_And_Get
108 (p_count => x_msg_count,
109 p_data => x_msg_data
110 );
111 EXCEPTION
112
113 WHEN OZF_Utility_PVT.resource_locked THEN
114 x_return_status := FND_API.g_ret_sts_error;
115 OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
116
117 WHEN FND_API.G_EXC_ERROR THEN
118 ROLLBACK TO CREATE_Claim_Lines_Int_PUB;
119 x_return_status := FND_API.G_RET_STS_ERROR;
120 -- Standard call to get message count and if count=1, get the message
121 FND_MSG_PUB.Count_And_Get (
122 p_encoded => FND_API.G_FALSE,
123 p_count => x_msg_count,
124 p_data => x_msg_data
125 );
126
127 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
128 ROLLBACK TO CREATE_Claim_Lines_Int_PUB;
129 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
130 -- Standard call to get message count and if count=1, get the message
131 FND_MSG_PUB.Count_And_Get (
132 p_encoded => FND_API.G_FALSE,
133 p_count => x_msg_count,
134 p_data => x_msg_data
135 );
136
137 WHEN OTHERS THEN
138 ROLLBACK TO CREATE_Claim_Lines_Int_PUB;
139 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
140 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
141 THEN
142 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
143 END IF;
144 -- Standard call to get message count and if count=1, get the message
145 FND_MSG_PUB.Count_And_Get (
146 p_encoded => FND_API.G_FALSE,
147 p_count => x_msg_count,
148 p_data => x_msg_data
149 );
150 End Create_Claim_Lines_Int;
151
152
153 PROCEDURE Update_Claim_Lines_Int(
154 p_api_version_number IN NUMBER,
155 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
156 p_commit IN VARCHAR2 := FND_API.G_FALSE,
157
158 x_return_status OUT NOCOPY VARCHAR2,
159 x_msg_count OUT NOCOPY NUMBER,
160 x_msg_data OUT NOCOPY VARCHAR2,
161
162 p_claim_lines_int_rec IN claim_lines_int_rec_type,
163 x_object_version_number OUT NOCOPY NUMBER
164 )
165
166 IS
167 L_API_NAME CONSTANT VARCHAR2(30) := 'Update_Claim_Lines_Int';
168 L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
169 l_object_version_number NUMBER;
170 l_pvt_claim_lines_int_rec OZF_Claim_Lines_Int_PVT.claim_lines_int_rec_type;
171 BEGIN
172 -- Standard Start of API savepoint
173 SAVEPOINT UPDATE_Claim_Lines_Int_PUB;
174
175 -- Standard call to check for call compatibility.
176 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
177 p_api_version_number,
178 l_api_name,
179 G_PKG_NAME)
180 THEN
181 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
182 END IF;
183
184 -- Initialize message list if p_init_msg_list is set to TRUE.
185 IF FND_API.to_Boolean( p_init_msg_list )
186 THEN
187 FND_MSG_PUB.initialize;
188 END IF;
189
190 -- Debug Message
191 IF g_debug THEN
192 OZF_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'start');
193 END IF;
194
195
196 -- Initialize API return status to SUCCESS
197 x_return_status := FND_API.G_RET_STS_SUCCESS;
198
199 --
200 -- API body
201 --
202 OZF_Claim_Lines_Int_PVT.Update_Claim_Lines_Int(
203 p_api_version_number => 1.0,
204 p_init_msg_list => FND_API.G_FALSE,
205 p_commit => p_commit,
206 p_validation_level => FND_API.G_VALID_LEVEL_FULL,
207 x_return_status => x_return_status,
208 x_msg_count => x_msg_count,
209 x_msg_data => x_msg_data,
210 p_claim_lines_int_rec => l_pvt_claim_lines_int_rec,
211 x_object_version_number => l_object_version_number );
212
213
214 -- Check return status from the above procedure call
215 IF x_return_status = FND_API.G_RET_STS_ERROR then
216 RAISE FND_API.G_EXC_ERROR;
217 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
218 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
219 END IF;
220 --
221 -- End of API body
222 --
223
224 -- Standard check for p_commit
225 IF FND_API.to_Boolean( p_commit )
226 THEN
227 COMMIT WORK;
228 END IF;
229
230
231 -- Debug Message
232 IF g_debug THEN
233 OZF_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'end');
234 END IF;
235
236 -- Standard call to get message count and if count is 1, get message info.
237 FND_MSG_PUB.Count_And_Get
238 (p_count => x_msg_count,
239 p_data => x_msg_data
240 );
241 EXCEPTION
242
243 WHEN OZF_Utility_PVT.resource_locked THEN
244 x_return_status := FND_API.g_ret_sts_error;
245 OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
246
247 WHEN FND_API.G_EXC_ERROR THEN
248 ROLLBACK TO UPDATE_Claim_Lines_Int_PUB;
249 x_return_status := FND_API.G_RET_STS_ERROR;
250 -- Standard call to get message count and if count=1, get the message
251 FND_MSG_PUB.Count_And_Get (
252 p_encoded => FND_API.G_FALSE,
253 p_count => x_msg_count,
254 p_data => x_msg_data
255 );
256
257 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
258 ROLLBACK TO UPDATE_Claim_Lines_Int_PUB;
259 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
260 -- Standard call to get message count and if count=1, get the message
261 FND_MSG_PUB.Count_And_Get (
262 p_encoded => FND_API.G_FALSE,
263 p_count => x_msg_count,
264 p_data => x_msg_data
265 );
266
267 WHEN OTHERS THEN
268 ROLLBACK TO UPDATE_Claim_Lines_Int_PUB;
269 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
270 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
271 THEN
272 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
273 END IF;
274 -- Standard call to get message count and if count=1, get the message
275 FND_MSG_PUB.Count_And_Get (
276 p_encoded => FND_API.G_FALSE,
277 p_count => x_msg_count,
278 p_data => x_msg_data
279 );
280 End Update_Claim_Lines_Int;
281
282
283 PROCEDURE Delete_Claim_Lines_Int(
284 p_api_version_number IN NUMBER,
285 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
286 p_commit IN VARCHAR2 := FND_API.G_FALSE,
287 x_return_status OUT NOCOPY VARCHAR2,
288 x_msg_count OUT NOCOPY NUMBER,
289 x_msg_data OUT NOCOPY VARCHAR2,
290 p_interface_claim_line_id IN NUMBER,
291 p_object_version_number IN NUMBER
292 )
293
294 IS
295 L_API_NAME CONSTANT VARCHAR2(30) := 'Delete_Claim_Lines_Int';
296 L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
297 l_INTERFACE_CLAIM_LINE_ID NUMBER := p_INTERFACE_CLAIM_LINE_ID;
298 l_object_version_number NUMBER := p_object_version_number;
299 l_pvt_claim_lines_int_rec OZF_Claim_Lines_Int_PVT.claim_lines_int_rec_type;
300 BEGIN
301 -- Standard Start of API savepoint
302 SAVEPOINT DELETE_Claim_Lines_Int_PUB;
303
304 -- Standard call to check for call compatibility.
305 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
306 p_api_version_number,
307 l_api_name,
308 G_PKG_NAME)
309 THEN
310 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
311 END IF;
312
313 -- Initialize message list if p_init_msg_list is set to TRUE.
314 IF FND_API.to_Boolean( p_init_msg_list )
315 THEN
316 FND_MSG_PUB.initialize;
317 END IF;
318
319 -- Debug Message
320 IF g_debug THEN
321 OZF_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'start');
322 END IF;
323
324
325 -- Initialize API return status to SUCCESS
326 x_return_status := FND_API.G_RET_STS_SUCCESS;
327
328 --
329 -- API body
330 --
331 OZF_Claim_Lines_Int_PVT.Delete_Claim_Lines_Int(
332 p_api_version_number => 1.0,
333 p_init_msg_list => FND_API.G_FALSE,
334 p_commit => p_commit,
335 p_validation_level => FND_API.G_VALID_LEVEL_FULL,
336 x_return_status => x_return_status,
337 x_msg_count => x_msg_count,
338 x_msg_data => x_msg_data,
339 p_interface_claim_line_id => l_interface_claim_line_id,
340 p_object_version_number => l_object_version_number );
341
342
343 -- Check return status from the above procedure call
344 IF x_return_status = FND_API.G_RET_STS_ERROR then
345 RAISE FND_API.G_EXC_ERROR;
346 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
347 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
348 END IF;
349 --
350 -- End of API body
351 --
352
353 -- Standard check for p_commit
354 IF FND_API.to_Boolean( p_commit )
355 THEN
356 COMMIT WORK;
357 END IF;
358
359
360 -- Debug Message
361 IF g_debug THEN
362 OZF_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'end');
363 END IF;
364
365 -- Standard call to get message count and if count is 1, get message info.
366 FND_MSG_PUB.Count_And_Get
367 (p_count => x_msg_count,
368 p_data => x_msg_data
372 WHEN OZF_Utility_PVT.resource_locked THEN
369 );
370 EXCEPTION
371
373 x_return_status := FND_API.g_ret_sts_error;
374 OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
375
376 WHEN FND_API.G_EXC_ERROR THEN
377 ROLLBACK TO DELETE_Claim_Lines_Int_PUB;
378 x_return_status := FND_API.G_RET_STS_ERROR;
379 -- Standard call to get message count and if count=1, get the message
380 FND_MSG_PUB.Count_And_Get (
381 p_encoded => FND_API.G_FALSE,
382 p_count => x_msg_count,
383 p_data => x_msg_data
384 );
385
386 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
387 ROLLBACK TO DELETE_Claim_Lines_Int_PUB;
388 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
389 -- Standard call to get message count and if count=1, get the message
390 FND_MSG_PUB.Count_And_Get (
391 p_encoded => FND_API.G_FALSE,
392 p_count => x_msg_count,
393 p_data => x_msg_data
394 );
395
396 WHEN OTHERS THEN
397 ROLLBACK TO DELETE_Claim_Lines_Int_PUB;
398 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
399 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
400 THEN
401 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
402 END IF;
403 -- Standard call to get message count and if count=1, get the message
404 FND_MSG_PUB.Count_And_Get (
405 p_encoded => FND_API.G_FALSE,
406 p_count => x_msg_count,
407 p_data => x_msg_data
408 );
409 End Delete_Claim_Lines_Int;
410
411
412 PROCEDURE Lock_Claim_Lines_Int(
413 p_api_version_number IN NUMBER,
414 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
415 x_return_status OUT NOCOPY VARCHAR2,
416 x_msg_count OUT NOCOPY NUMBER,
417 x_msg_data OUT NOCOPY VARCHAR2,
418
419 p_interface_claim_line_id IN NUMBER,
420 p_object_version IN NUMBER
421 )
422
423 IS
424 L_API_NAME CONSTANT VARCHAR2(30) := 'Lock_Claim_Lines_Int';
425 L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
426 l_pvt_claim_lines_int_rec OZF_Claim_Lines_Int_PVT.claim_lines_int_rec_type;
427 BEGIN
428
429 -- Standard call to check for call compatibility.
430 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
431 p_api_version_number,
432 l_api_name,
433 G_PKG_NAME)
434 THEN
435 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
436 END IF;
437
438 -- Initialize message list if p_init_msg_list is set to TRUE.
439 IF FND_API.to_Boolean( p_init_msg_list )
440 THEN
441 FND_MSG_PUB.initialize;
442 END IF;
443
444 -- Debug Message
445 IF g_debug THEN
446 OZF_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'start');
447 END IF;
448
449
450 -- Initialize API return status to SUCCESS
451 x_return_status := FND_API.G_RET_STS_SUCCESS;
452
453 --
454 -- API body
455 --
456 -- Calling Private package: Create_Claim_Lines_Int
457 -- Hint: Primary key needs to be returned
458 OZF_Claim_Lines_Int_PVT.Lock_Claim_Lines_Int(
459 p_api_version_number => 1.0,
460 p_init_msg_list => FND_API.G_FALSE,
461 x_return_status => x_return_status,
462 x_msg_count => x_msg_count,
463 x_msg_data => x_msg_data,
464 p_interface_claim_line_id => p_interface_claim_line_id,
465 p_object_version => p_object_version);
466
467
468 -- Check return status from the above procedure call
469 IF x_return_status = FND_API.G_RET_STS_ERROR then
470 RAISE FND_API.G_EXC_ERROR;
471 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
472 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
473 END IF;
474 --
475 -- End of API body.
476 --
477
478 -- Debug Message
479 IF g_debug THEN
480 OZF_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'end');
481 END IF;
482
483 EXCEPTION
484
485 WHEN OZF_Utility_PVT.resource_locked THEN
486 x_return_status := FND_API.g_ret_sts_error;
487 OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
488
489 WHEN FND_API.G_EXC_ERROR THEN
490 ROLLBACK TO LOCK_Claim_Lines_Int_PUB;
491 x_return_status := FND_API.G_RET_STS_ERROR;
492 -- Standard call to get message count and if count=1, get the message
493 FND_MSG_PUB.Count_And_Get (
494 p_encoded => FND_API.G_FALSE,
495 p_count => x_msg_count,
496 p_data => x_msg_data
497 );
498
499 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
500 ROLLBACK TO LOCK_Claim_Lines_Int_PUB;
501 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
502 -- Standard call to get message count and if count=1, get the message
503 FND_MSG_PUB.Count_And_Get (
504 p_encoded => FND_API.G_FALSE,
505 p_count => x_msg_count,
506 p_data => x_msg_data
507 );
508
509 WHEN OTHERS THEN
510 ROLLBACK TO LOCK_Claim_Lines_Int_PUB;
511 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
512 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
513 THEN
514 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
515 END IF;
516 -- Standard call to get message count and if count=1, get the message
517 FND_MSG_PUB.Count_And_Get (
518 p_encoded => FND_API.G_FALSE,
519 p_count => x_msg_count,
520 p_data => x_msg_data
521 );
522 End Lock_Claim_Lines_Int;
523
524
525 END OZF_Claim_Lines_Int_PUB;