[Home] [Help]
PACKAGE BODY: APPS.OZF_CLAIM_LINES_INT_PVT
Source
1 PACKAGE BODY OZF_Claim_Lines_Int_PVT as
2 /* $Header: ozfvclib.pls 115.2 2004/07/13 10:35:02 upoluri ship $ */
3 -- ===============================================================
4 -- Start of Comments
5 -- Package name
6 -- OZF_Claim_Lines_Int_PVT
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_PVT';
18 G_FILE_NAME CONSTANT VARCHAR2(12) := 'ozfvclib.pls';
19
20 G_DEBUG BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
21
22 -- Hint: Primary key needs to be returned.
23 PROCEDURE Create_Claim_Lines_Int(
24 p_api_version_number IN NUMBER,
25 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
26 p_commit IN VARCHAR2 := FND_API.G_FALSE,
27 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
28
29 x_return_status OUT NOCOPY VARCHAR2,
30 x_msg_count OUT NOCOPY NUMBER,
31 x_msg_data OUT NOCOPY VARCHAR2,
32
33 p_claim_lines_int_rec IN claim_lines_int_rec_type := g_miss_claim_lines_int_rec,
34 x_interface_claim_line_id OUT NOCOPY NUMBER
35 )
36
37 IS
38 L_API_NAME CONSTANT VARCHAR2(30) := 'Create_Claim_Lines_Int';
39 L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
40 l_return_status_full VARCHAR2(1);
41 l_object_version_number NUMBER := 1;
42 l_org_id NUMBER := FND_API.G_MISS_NUM;
43 l_INTERFACE_CLAIM_LINE_ID NUMBER;
44 l_dummy NUMBER;
45
46 CURSOR c_id IS
47 SELECT OZF_CLAIM_LINES_INT_ALL_s.NEXTVAL
48 FROM dual;
49
50 CURSOR c_id_exists (l_id IN NUMBER) IS
51 SELECT 1 FROM dual
52 WHERE EXISTS (SELECT 1 FROM OZF_CLAIM_LINES_INT_ALL
53 WHERE INTERFACE_CLAIM_LINE_ID = l_id);
54
55 BEGIN
56 -- Standard Start of API savepoint
57 SAVEPOINT CREATE_Claim_Lines_Int_PVT;
58
59 -- Standard call to check for call compatibility.
60 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
61 p_api_version_number,
62 l_api_name,
63 G_PKG_NAME)
64 THEN
65 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
66 END IF;
67
68 -- Initialize message list if p_init_msg_list is set to TRUE.
69 IF FND_API.to_Boolean( p_init_msg_list )
70 THEN
71 FND_MSG_PUB.initialize;
72 END IF;
73
74 -- Debug Message
75 IF g_debug THEN
76 OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
77 END IF;
78
79
80 -- Initialize API return status to SUCCESS
81 x_return_status := FND_API.G_RET_STS_SUCCESS;
82
83 -- Local variable initialization
84
85 IF p_claim_lines_int_rec.INTERFACE_CLAIM_LINE_ID IS NULL OR p_claim_lines_int_rec.INTERFACE_CLAIM_LINE_ID = FND_API.g_miss_num THEN
86 LOOP
87 l_dummy := NULL;
88 OPEN c_id;
89 FETCH c_id INTO l_INTERFACE_CLAIM_LINE_ID;
90 CLOSE c_id;
91
92 OPEN c_id_exists(l_INTERFACE_CLAIM_LINE_ID);
93 FETCH c_id_exists INTO l_dummy;
94 CLOSE c_id_exists;
95 EXIT WHEN l_dummy IS NULL;
96 END LOOP;
97 END IF;
98
99 -- =========================================================================
100 -- Validate Environment
101 -- =========================================================================
102
103 IF FND_GLOBAL.User_Id IS NULL
104 THEN
105 OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_USER_PROFILE_MISSING');
106 RAISE FND_API.G_EXC_ERROR;
107 END IF;
108
109 IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
110 THEN
111 -- Debug message
112 IF g_debug THEN
113 OZF_UTILITY_PVT.debug_message('Private API: Validate_Claim_Lines_Int');
114 END IF;
115
116 -- Invoke validation procedures
117 Validate_claim_lines_int(
118 p_api_version_number => 1.0,
119 p_init_msg_list => FND_API.G_FALSE,
120 p_validation_level => p_validation_level,
121 p_claim_lines_int_rec => p_claim_lines_int_rec,
122 x_return_status => x_return_status,
123 x_msg_count => x_msg_count,
124 x_msg_data => x_msg_data);
125 END IF;
126
127 IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
128 RAISE FND_API.G_EXC_ERROR;
129 END IF;
130
131
132 -- Debug Message
133 IF g_debug THEN
134 OZF_UTILITY_PVT.debug_message( 'Private API: Calling create table handler');
135 END IF;
136
137 -- Invoke table handler(OZF_CLAIM_LINES_INT_PKG.Insert_Row)
138 OZF_CLAIM_LINES_INT_PKG.Insert_Row(
139 px_interface_claim_line_id => l_interface_claim_line_id,
140 px_object_version_number => l_object_version_number,
141 p_last_update_date => SYSDATE,
142 p_last_updated_by => FND_GLOBAL.USER_ID,
143 p_creation_date => SYSDATE,
144 p_created_by => FND_GLOBAL.USER_ID,
145 p_last_update_login => FND_GLOBAL.CONC_LOGIN_ID,
146 p_request_id => p_claim_lines_int_rec.request_id,
147 p_program_application_id => p_claim_lines_int_rec.program_application_id,
148 p_program_update_date => p_claim_lines_int_rec.program_update_date,
149 p_program_id => p_claim_lines_int_rec.program_id,
150 p_created_from => p_claim_lines_int_rec.created_from,
151 p_interface_claim_id => p_claim_lines_int_rec.interface_claim_id,
152 p_line_number => p_claim_lines_int_rec.line_number,
153 p_split_from_claim_line_id => p_claim_lines_int_rec.split_from_claim_line_id,
154 p_amount => p_claim_lines_int_rec.amount,
155 p_claim_currency_amount => p_claim_lines_int_rec.claim_currency_amount,
156 p_acctd_amount => p_claim_lines_int_rec.acctd_amount,
157 p_currency_code => p_claim_lines_int_rec.currency_code,
158 p_exchange_rate_type => p_claim_lines_int_rec.exchange_rate_type,
159 p_exchange_rate_date => p_claim_lines_int_rec.exchange_rate_date,
160 p_exchange_rate => p_claim_lines_int_rec.exchange_rate,
161 p_set_of_books_id => p_claim_lines_int_rec.set_of_books_id,
162 p_valid_flag => p_claim_lines_int_rec.valid_flag,
163 p_source_object_id => p_claim_lines_int_rec.source_object_id,
164 p_source_object_class => p_claim_lines_int_rec.source_object_class,
165 p_source_object_type_id => p_claim_lines_int_rec.source_object_type_id,
166 p_source_object_line_id => p_claim_lines_int_rec.source_object_line_id,
167 p_plan_id => p_claim_lines_int_rec.plan_id,
168 p_offer_id => p_claim_lines_int_rec.offer_id,
169 p_utilization_id => p_claim_lines_int_rec.utilization_id,
170 p_payment_method => p_claim_lines_int_rec.payment_method,
171 p_payment_reference_id => p_claim_lines_int_rec.payment_reference_id,
172 p_payment_reference_number => p_claim_lines_int_rec.payment_reference_number,
173 p_payment_reference_date => p_claim_lines_int_rec.payment_reference_date,
174 p_voucher_id => p_claim_lines_int_rec.voucher_id,
175 p_voucher_number => p_claim_lines_int_rec.voucher_number,
176 p_payment_status => p_claim_lines_int_rec.payment_status,
177 p_approved_flag => p_claim_lines_int_rec.approved_flag,
178 p_approved_date => p_claim_lines_int_rec.approved_date,
179 p_approved_by => p_claim_lines_int_rec.approved_by,
180 p_settled_date => p_claim_lines_int_rec.settled_date,
181 p_settled_by => p_claim_lines_int_rec.settled_by,
182 p_performance_complete_flag => p_claim_lines_int_rec.performance_complete_flag,
183 p_performance_attached_flag => p_claim_lines_int_rec.performance_attached_flag,
184 p_attribute_category => p_claim_lines_int_rec.attribute_category,
185 p_attribute1 => p_claim_lines_int_rec.attribute1,
186 p_attribute2 => p_claim_lines_int_rec.attribute2,
187 p_attribute3 => p_claim_lines_int_rec.attribute3,
188 p_attribute4 => p_claim_lines_int_rec.attribute4,
189 p_attribute5 => p_claim_lines_int_rec.attribute5,
190 p_attribute6 => p_claim_lines_int_rec.attribute6,
191 p_attribute7 => p_claim_lines_int_rec.attribute7,
192 p_attribute8 => p_claim_lines_int_rec.attribute8,
193 p_attribute9 => p_claim_lines_int_rec.attribute9,
194 p_attribute10 => p_claim_lines_int_rec.attribute10,
195 p_attribute11 => p_claim_lines_int_rec.attribute11,
196 p_attribute12 => p_claim_lines_int_rec.attribute12,
197 p_attribute13 => p_claim_lines_int_rec.attribute13,
198 p_attribute14 => p_claim_lines_int_rec.attribute14,
199 p_attribute15 => p_claim_lines_int_rec.attribute15,
200 px_org_id => l_org_id);
201 IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
202 RAISE FND_API.G_EXC_ERROR;
203 END IF;
204 --
205 -- End of API body
206 --
207
208 -- Standard check for p_commit
209 IF FND_API.to_Boolean( p_commit )
210 THEN
211 COMMIT WORK;
212 END IF;
213
214
215 -- Debug Message
216 IF g_debug THEN
217 OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
218 END IF;
219
220 -- Standard call to get message count and if count is 1, get message info.
221 FND_MSG_PUB.Count_And_Get
222 (p_count => x_msg_count,
223 p_data => x_msg_data
224 );
225 EXCEPTION
226
227 WHEN OZF_Utility_PVT.resource_locked THEN
228 x_return_status := FND_API.g_ret_sts_error;
229 OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
230
231 WHEN FND_API.G_EXC_ERROR THEN
232 ROLLBACK TO CREATE_Claim_Lines_Int_PVT;
233 x_return_status := FND_API.G_RET_STS_ERROR;
234 -- Standard call to get message count and if count=1, get the message
235 FND_MSG_PUB.Count_And_Get (
236 p_encoded => FND_API.G_FALSE,
237 p_count => x_msg_count,
238 p_data => x_msg_data
239 );
240
241 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
242 ROLLBACK TO CREATE_Claim_Lines_Int_PVT;
243 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
244 -- Standard call to get message count and if count=1, get the message
245 FND_MSG_PUB.Count_And_Get (
246 p_encoded => FND_API.G_FALSE,
247 p_count => x_msg_count,
248 p_data => x_msg_data
249 );
250
251 WHEN OTHERS THEN
252 ROLLBACK TO CREATE_Claim_Lines_Int_PVT;
253 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
254 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
255 THEN
256 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
257 END IF;
258 -- Standard call to get message count and if count=1, get the message
259 FND_MSG_PUB.Count_And_Get (
260 p_encoded => FND_API.G_FALSE,
261 p_count => x_msg_count,
262 p_data => x_msg_data
263 );
264 End Create_Claim_Lines_Int;
265
266
267 PROCEDURE Update_Claim_Lines_Int(
268 p_api_version_number IN NUMBER,
269 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
270 p_commit IN VARCHAR2 := FND_API.G_FALSE,
271 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
272
273 x_return_status OUT NOCOPY VARCHAR2,
274 x_msg_count OUT NOCOPY NUMBER,
275 x_msg_data OUT NOCOPY VARCHAR2,
276
277 p_claim_lines_int_rec IN claim_lines_int_rec_type,
278 x_object_version_number OUT NOCOPY NUMBER
279 )
280
281 IS
282
283 CURSOR c_get_claim_lines_int(p_interface_claim_line_id NUMBER) IS
284 SELECT *
285 FROM OZF_CLAIM_LINES_INT_ALL
286 WHERE interface_claim_line_id = p_interface_claim_line_id;
287
288 L_API_NAME CONSTANT VARCHAR2(30) := 'Update_Claim_Lines_Int';
289 L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
290 -- Local Variables
291 l_object_version_number NUMBER;
292 l_INTERFACE_CLAIM_LINE_ID NUMBER;
293 l_ref_claim_lines_int_rec c_get_Claim_Lines_Int%ROWTYPE ;
294 l_tar_claim_lines_int_rec OZF_Claim_Lines_Int_PVT.claim_lines_int_rec_type := P_claim_lines_int_rec;
295 l_rowid ROWID;
296
297 BEGIN
298 -- Standard Start of API savepoint
299 SAVEPOINT UPDATE_Claim_Lines_Int_PVT;
300
301 -- Standard call to check for call compatibility.
302 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
303 p_api_version_number,
304 l_api_name,
305 G_PKG_NAME)
306 THEN
307 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
308 END IF;
309
310 -- Initialize message list if p_init_msg_list is set to TRUE.
311 IF FND_API.to_Boolean( p_init_msg_list )
312 THEN
313 FND_MSG_PUB.initialize;
314 END IF;
315
316 -- Debug Message
317 IF g_debug THEN
318 OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
319 END IF;
320
321
322 -- Initialize API return status to SUCCESS
323 x_return_status := FND_API.G_RET_STS_SUCCESS;
324
325 -- Debug Message
326 IF g_debug THEN
327 OZF_UTILITY_PVT.debug_message('Private API: - Open Cursor to Select');
328 END IF;
329
330 /*
331 OPEN c_get_Claim_Lines_Int( l_tar_claim_lines_int_rec.interface_claim_line_id);
332
333 FETCH c_get_Claim_Lines_Int INTO l_ref_claim_lines_int_rec ;
334
335 If ( c_get_Claim_Lines_Int%NOTFOUND) THEN
336 OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RECORD_NOT_FOUND',
337 RAISE FND_API.G_EXC_ERROR;
338 END IF;
339 -- Debug Message
340 IF g_debug THEN
341 OZF_UTILITY_PVT.debug_message('Private API: - Close Cursor');
342 END IF;
343 CLOSE c_get_Claim_Lines_Int;
344 */
345
346
347 If (l_tar_claim_lines_int_rec.object_version_number is NULL or
348 l_tar_claim_lines_int_rec.object_version_number = FND_API.G_MISS_NUM ) Then
349 OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_NO_OBJ_VER_NUM');
350 raise FND_API.G_EXC_ERROR;
351 End if;
352 -- Check Whether record has been changed by someone else
353 If (l_tar_claim_lines_int_rec.object_version_number <> l_ref_claim_lines_int_rec.object_version_number) Then
354 OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
355 raise FND_API.G_EXC_ERROR;
356 End if;
357 IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
358 THEN
359 -- Debug message
360 IF g_debug THEN
361 OZF_UTILITY_PVT.debug_message('Private API: Validate_Claim_Lines_Int');
362 END IF;
363
364 -- Invoke validation procedures
365 Validate_claim_lines_int(
366 p_api_version_number => 1.0,
367 p_init_msg_list => FND_API.G_FALSE,
368 p_validation_level => p_validation_level,
369 p_claim_lines_int_rec => p_claim_lines_int_rec,
370 x_return_status => x_return_status,
371 x_msg_count => x_msg_count,
372 x_msg_data => x_msg_data);
373 END IF;
374
375 IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
376 RAISE FND_API.G_EXC_ERROR;
377 END IF;
378
379
380 -- Debug Message
381 IF g_debug THEN
382 OZF_UTILITY_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: Calling update table handler');
383 END IF;
384
385 -- Invoke table handler(OZF_CLAIM_LINES_INT_PKG.Update_Row)
386 OZF_CLAIM_LINES_INT_PKG.Update_Row(
387 p_interface_claim_line_id => p_claim_lines_int_rec.interface_claim_line_id,
388 p_object_version_number => p_claim_lines_int_rec.object_version_number,
389 p_last_update_date => SYSDATE,
390 p_last_updated_by => FND_GLOBAL.USER_ID,
391 p_last_update_login => FND_GLOBAL.CONC_LOGIN_ID,
392 p_request_id => p_claim_lines_int_rec.request_id,
393 p_program_application_id => p_claim_lines_int_rec.program_application_id,
394 p_program_update_date => p_claim_lines_int_rec.program_update_date,
395 p_program_id => p_claim_lines_int_rec.program_id,
396 p_created_from => p_claim_lines_int_rec.created_from,
397 p_interface_claim_id => p_claim_lines_int_rec.interface_claim_id,
398 p_line_number => p_claim_lines_int_rec.line_number,
399 p_split_from_claim_line_id => p_claim_lines_int_rec.split_from_claim_line_id,
400 p_amount => p_claim_lines_int_rec.amount,
401 p_claim_currency_amount => p_claim_lines_int_rec.claim_currency_amount,
402 p_acctd_amount => p_claim_lines_int_rec.acctd_amount,
403 p_currency_code => p_claim_lines_int_rec.currency_code,
404 p_exchange_rate_type => p_claim_lines_int_rec.exchange_rate_type,
405 p_exchange_rate_date => p_claim_lines_int_rec.exchange_rate_date,
406 p_exchange_rate => p_claim_lines_int_rec.exchange_rate,
407 p_set_of_books_id => p_claim_lines_int_rec.set_of_books_id,
408 p_valid_flag => p_claim_lines_int_rec.valid_flag,
409 p_source_object_id => p_claim_lines_int_rec.source_object_id,
410 p_source_object_class => p_claim_lines_int_rec.source_object_class,
411 p_source_object_type_id => p_claim_lines_int_rec.source_object_type_id,
412 p_source_object_line_id => p_claim_lines_int_rec.source_object_line_id,
413 p_plan_id => p_claim_lines_int_rec.plan_id,
414 p_offer_id => p_claim_lines_int_rec.offer_id,
415 p_utilization_id => p_claim_lines_int_rec.utilization_id,
416 p_payment_method => p_claim_lines_int_rec.payment_method,
417 p_payment_reference_id => p_claim_lines_int_rec.payment_reference_id,
418 p_payment_reference_number => p_claim_lines_int_rec.payment_reference_number,
419 p_payment_reference_date => p_claim_lines_int_rec.payment_reference_date,
420 p_voucher_id => p_claim_lines_int_rec.voucher_id,
421 p_voucher_number => p_claim_lines_int_rec.voucher_number,
422 p_payment_status => p_claim_lines_int_rec.payment_status,
423 p_approved_flag => p_claim_lines_int_rec.approved_flag,
424 p_approved_date => p_claim_lines_int_rec.approved_date,
425 p_approved_by => p_claim_lines_int_rec.approved_by,
426 p_settled_date => p_claim_lines_int_rec.settled_date,
427 p_settled_by => p_claim_lines_int_rec.settled_by,
428 p_performance_complete_flag => p_claim_lines_int_rec.performance_complete_flag,
429 p_performance_attached_flag => p_claim_lines_int_rec.performance_attached_flag,
430 p_attribute_category => p_claim_lines_int_rec.attribute_category,
431 p_attribute1 => p_claim_lines_int_rec.attribute1,
432 p_attribute2 => p_claim_lines_int_rec.attribute2,
433 p_attribute3 => p_claim_lines_int_rec.attribute3,
434 p_attribute4 => p_claim_lines_int_rec.attribute4,
435 p_attribute5 => p_claim_lines_int_rec.attribute5,
436 p_attribute6 => p_claim_lines_int_rec.attribute6,
437 p_attribute7 => p_claim_lines_int_rec.attribute7,
438 p_attribute8 => p_claim_lines_int_rec.attribute8,
439 p_attribute9 => p_claim_lines_int_rec.attribute9,
440 p_attribute10 => p_claim_lines_int_rec.attribute10,
441 p_attribute11 => p_claim_lines_int_rec.attribute11,
442 p_attribute12 => p_claim_lines_int_rec.attribute12,
443 p_attribute13 => p_claim_lines_int_rec.attribute13,
444 p_attribute14 => p_claim_lines_int_rec.attribute14,
445 p_attribute15 => p_claim_lines_int_rec.attribute15,
446 p_org_id => p_claim_lines_int_rec.org_id);
447 --
448 -- End of API body.
449 --
450
451 -- Standard check for p_commit
452 IF FND_API.to_Boolean( p_commit )
453 THEN
454 COMMIT WORK;
455 END IF;
456
457
458 -- Debug Message
459 IF g_debug THEN
460 OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
461 END IF;
462
463 -- Standard call to get message count and if count is 1, get message info.
464 FND_MSG_PUB.Count_And_Get
465 (p_count => x_msg_count,
466 p_data => x_msg_data
467 );
468 EXCEPTION
469
470 WHEN OZF_Utility_PVT.resource_locked THEN
471 x_return_status := FND_API.g_ret_sts_error;
472 OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
473
474 WHEN FND_API.G_EXC_ERROR THEN
475 ROLLBACK TO UPDATE_Claim_Lines_Int_PVT;
476 x_return_status := FND_API.G_RET_STS_ERROR;
477 -- Standard call to get message count and if count=1, get the message
478 FND_MSG_PUB.Count_And_Get (
479 p_encoded => FND_API.G_FALSE,
480 p_count => x_msg_count,
481 p_data => x_msg_data
482 );
483
484 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
485 ROLLBACK TO UPDATE_Claim_Lines_Int_PVT;
486 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
487 -- Standard call to get message count and if count=1, get the message
488 FND_MSG_PUB.Count_And_Get (
489 p_encoded => FND_API.G_FALSE,
490 p_count => x_msg_count,
491 p_data => x_msg_data
492 );
493
494 WHEN OTHERS THEN
495 ROLLBACK TO UPDATE_Claim_Lines_Int_PVT;
496 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
497 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
498 THEN
499 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
500 END IF;
501 -- Standard call to get message count and if count=1, get the message
502 FND_MSG_PUB.Count_And_Get (
503 p_encoded => FND_API.G_FALSE,
504 p_count => x_msg_count,
505 p_data => x_msg_data
506 );
507 End Update_Claim_Lines_Int;
508
509
510 PROCEDURE Delete_Claim_Lines_Int(
511 p_api_version_number IN NUMBER,
512 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
513 p_commit IN VARCHAR2 := FND_API.G_FALSE,
514 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
515 x_return_status OUT NOCOPY VARCHAR2,
516 x_msg_count OUT NOCOPY NUMBER,
517 x_msg_data OUT NOCOPY VARCHAR2,
518 p_interface_claim_line_id IN NUMBER,
519 p_object_version_number IN NUMBER
520 )
521
522 IS
523 L_API_NAME CONSTANT VARCHAR2(30) := 'Delete_Claim_Lines_Int';
524 L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
525 l_object_version_number NUMBER;
526
527 BEGIN
528 -- Standard Start of API savepoint
529 SAVEPOINT DELETE_Claim_Lines_Int_PVT;
530
531 -- Standard call to check for call compatibility.
532 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
533 p_api_version_number,
534 l_api_name,
535 G_PKG_NAME)
536 THEN
537 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
538 END IF;
539
540 -- Initialize message list if p_init_msg_list is set to TRUE.
541 IF FND_API.to_Boolean( p_init_msg_list )
542 THEN
543 FND_MSG_PUB.initialize;
544 END IF;
545
546 -- Debug Message
547 IF g_debug THEN
548 OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
549 END IF;
550
551
552 -- Initialize API return status to SUCCESS
553 x_return_status := FND_API.G_RET_STS_SUCCESS;
554
555 --
556 -- Api body
557 --
558 -- Debug Message
559 IF g_debug THEN
560 OZF_UTILITY_PVT.debug_message( 'Private API: Calling delete table handler');
561 END IF;
562
563 -- Invoke table handler(OZF_CLAIM_LINES_INT_PKG.Delete_Row)
564 OZF_CLAIM_LINES_INT_PKG.Delete_Row(
565 p_INTERFACE_CLAIM_LINE_ID => p_INTERFACE_CLAIM_LINE_ID);
566 --
567 -- End of API body
568 --
569
570 -- Standard check for p_commit
571 IF FND_API.to_Boolean( p_commit )
572 THEN
573 COMMIT WORK;
574 END IF;
575
576
577 -- Debug Message
578 IF g_debug THEN
579 OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
580 END IF;
581
582 -- Standard call to get message count and if count is 1, get message info.
583 FND_MSG_PUB.Count_And_Get
584 (p_count => x_msg_count,
585 p_data => x_msg_data
586 );
587 EXCEPTION
588
589 WHEN OZF_Utility_PVT.resource_locked THEN
590 x_return_status := FND_API.g_ret_sts_error;
591 OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
592
593 WHEN FND_API.G_EXC_ERROR THEN
594 ROLLBACK TO DELETE_Claim_Lines_Int_PVT;
595 x_return_status := FND_API.G_RET_STS_ERROR;
596 -- Standard call to get message count and if count=1, get the message
597 FND_MSG_PUB.Count_And_Get (
598 p_encoded => FND_API.G_FALSE,
599 p_count => x_msg_count,
600 p_data => x_msg_data
601 );
602
603 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
604 ROLLBACK TO DELETE_Claim_Lines_Int_PVT;
605 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
606 -- Standard call to get message count and if count=1, get the message
607 FND_MSG_PUB.Count_And_Get (
608 p_encoded => FND_API.G_FALSE,
609 p_count => x_msg_count,
610 p_data => x_msg_data
611 );
612
613 WHEN OTHERS THEN
614 ROLLBACK TO DELETE_Claim_Lines_Int_PVT;
615 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
616 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
617 THEN
618 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
619 END IF;
620 -- Standard call to get message count and if count=1, get the message
621 FND_MSG_PUB.Count_And_Get (
622 p_encoded => FND_API.G_FALSE,
623 p_count => x_msg_count,
624 p_data => x_msg_data
625 );
626 End Delete_Claim_Lines_Int;
627
628
629
630 -- Hint: Primary key needs to be returned.
631 PROCEDURE Lock_Claim_Lines_Int(
632 p_api_version_number IN NUMBER,
633 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
634
635 x_return_status OUT NOCOPY VARCHAR2,
636 x_msg_count OUT NOCOPY NUMBER,
637 x_msg_data OUT NOCOPY VARCHAR2,
638
639 p_interface_claim_line_id IN NUMBER,
640 p_object_version IN NUMBER
641 )
642
643 IS
644 L_API_NAME CONSTANT VARCHAR2(30) := 'Lock_Claim_Lines_Int';
645 L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
646 L_FULL_NAME CONSTANT VARCHAR2(60) := g_pkg_name ||'.'|| l_api_name;
647 l_INTERFACE_CLAIM_LINE_ID NUMBER;
648
649 CURSOR c_Claim_Lines_Int IS
650 SELECT INTERFACE_CLAIM_LINE_ID
651 FROM OZF_CLAIM_LINES_INT_ALL
652 WHERE INTERFACE_CLAIM_LINE_ID = p_INTERFACE_CLAIM_LINE_ID
653 AND object_version_number = p_object_version
654 FOR UPDATE NOWAIT;
655
656 BEGIN
657
658 -- Debug Message
659 IF g_debug THEN
660 OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
661 END IF;
662
663 -- Initialize message list if p_init_msg_list is set to TRUE.
664 IF FND_API.to_Boolean( p_init_msg_list )
665 THEN
666 FND_MSG_PUB.initialize;
667 END IF;
668
669 -- Standard call to check for call compatibility.
670 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
671 p_api_version_number,
672 l_api_name,
673 G_PKG_NAME)
674 THEN
675 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
676 END IF;
677
678
679 -- Initialize API return status to SUCCESS
680 x_return_status := FND_API.G_RET_STS_SUCCESS;
681
682
683 ------------------------ lock -------------------------
684
685 IF g_debug THEN
686 OZF_Utility_PVT.debug_message(l_full_name||': start');
687 END IF;
688 OPEN c_Claim_Lines_Int;
689
690 FETCH c_Claim_Lines_Int INTO l_INTERFACE_CLAIM_LINE_ID;
691
692 IF (c_Claim_Lines_Int%NOTFOUND) THEN
693 CLOSE c_Claim_Lines_Int;
694 IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
695 FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
696 FND_MSG_PUB.add;
697 END IF;
698 RAISE FND_API.g_exc_error;
699 END IF;
700
701 CLOSE c_Claim_Lines_Int;
702
703 -------------------- finish --------------------------
704 FND_MSG_PUB.count_and_get(
705 p_encoded => FND_API.g_false,
706 p_count => x_msg_count,
707 p_data => x_msg_data);
708 IF g_debug THEN
709 OZF_Utility_PVT.debug_message(l_full_name ||': end');
710 END IF;
711 EXCEPTION
712
713 WHEN OZF_Utility_PVT.resource_locked THEN
714 x_return_status := FND_API.g_ret_sts_error;
715 OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
716
717 WHEN FND_API.G_EXC_ERROR THEN
718 ROLLBACK TO LOCK_Claim_Lines_Int_PVT;
719 x_return_status := FND_API.G_RET_STS_ERROR;
720 -- Standard call to get message count and if count=1, get the message
721 FND_MSG_PUB.Count_And_Get (
722 p_encoded => FND_API.G_FALSE,
723 p_count => x_msg_count,
724 p_data => x_msg_data
725 );
726
727 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
728 ROLLBACK TO LOCK_Claim_Lines_Int_PVT;
729 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
730 -- Standard call to get message count and if count=1, get the message
731 FND_MSG_PUB.Count_And_Get (
732 p_encoded => FND_API.G_FALSE,
733 p_count => x_msg_count,
734 p_data => x_msg_data
735 );
736
737 WHEN OTHERS THEN
738 ROLLBACK TO LOCK_Claim_Lines_Int_PVT;
739 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
740 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
741 THEN
742 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
743 END IF;
744 -- Standard call to get message count and if count=1, get the message
745 FND_MSG_PUB.Count_And_Get (
746 p_encoded => FND_API.G_FALSE,
747 p_count => x_msg_count,
748 p_data => x_msg_data
749 );
750 End Lock_Claim_Lines_Int;
751
752
753 PROCEDURE check_cl_int_uk_items(
754 p_claim_lines_int_rec IN claim_lines_int_rec_type,
755 p_validation_mode IN VARCHAR2 := JTF_PLSQL_API.g_create,
756 x_return_status OUT NOCOPY VARCHAR2)
757 IS
758 l_valid_flag VARCHAR2(1);
759
760 BEGIN
761 x_return_status := FND_API.g_ret_sts_success;
762 IF p_validation_mode = JTF_PLSQL_API.g_create THEN
763 l_valid_flag := OZF_Utility_PVT.check_uniqueness(
764 'OZF_CLAIM_LINES_INT_ALL',
765 'INTERFACE_CLAIM_LINE_ID = ''' || p_claim_lines_int_rec.INTERFACE_CLAIM_LINE_ID ||''''
766 );
767 ELSE
768 l_valid_flag := OZF_Utility_PVT.check_uniqueness(
769 'OZF_CLAIM_LINES_INT_ALL',
770 'INTERFACE_CLAIM_LINE_ID = ''' || p_claim_lines_int_rec.INTERFACE_CLAIM_LINE_ID ||
771 ''' AND INTERFACE_CLAIM_LINE_ID <> ' || p_claim_lines_int_rec.INTERFACE_CLAIM_LINE_ID
772 );
773 END IF;
774
775 IF l_valid_flag = FND_API.g_false THEN
776 OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_INTER_CLAIM_LINE_ID_DUP');
777 x_return_status := FND_API.g_ret_sts_error;
778 RETURN;
779 END IF;
780
781 END check_cl_int_uk_items;
782
783 PROCEDURE check_cl_int_req_items(
784 p_claim_lines_int_rec IN claim_lines_int_rec_type,
785 p_validation_mode IN VARCHAR2 := JTF_PLSQL_API.g_create,
786 x_return_status OUT NOCOPY VARCHAR2
787 )
788 IS
789 BEGIN
790 x_return_status := FND_API.g_ret_sts_success;
791
792 IF p_validation_mode = JTF_PLSQL_API.g_create THEN
793
794
795 IF p_claim_lines_int_rec.interface_claim_line_id = FND_API.g_miss_num OR p_claim_lines_int_rec.interface_claim_line_id IS NULL THEN
796 OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'INTERFACE_CLAIM_LINE_ID' );
797 x_return_status := FND_API.g_ret_sts_error;
798 RETURN;
799 END IF;
800
801
802 IF p_claim_lines_int_rec.object_version_number = FND_API.g_miss_num OR p_claim_lines_int_rec.object_version_number IS NULL THEN
803 OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'OBJECT_VERSION_NUMBER' );
804 x_return_status := FND_API.g_ret_sts_error;
805 RETURN;
806 END IF;
807
808
809 IF p_claim_lines_int_rec.last_update_date = FND_API.g_miss_date OR p_claim_lines_int_rec.last_update_date IS NULL THEN
810 OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'LAST_UPDATE_DATE' );
811 x_return_status := FND_API.g_ret_sts_error;
812 RETURN;
813 END IF;
814
815
816 IF p_claim_lines_int_rec.last_updated_by = FND_API.g_miss_num OR p_claim_lines_int_rec.last_updated_by IS NULL THEN
817 OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'LAST_UPDATED_BY' );
818 x_return_status := FND_API.g_ret_sts_error;
819 RETURN;
820 END IF;
821
822
823 IF p_claim_lines_int_rec.creation_date = FND_API.g_miss_date OR p_claim_lines_int_rec.creation_date IS NULL THEN
824 OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CREATION_DATE' );
825 x_return_status := FND_API.g_ret_sts_error;
826 RETURN;
827 END IF;
828
829
830 IF p_claim_lines_int_rec.created_by = FND_API.g_miss_num OR p_claim_lines_int_rec.created_by IS NULL THEN
831 OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CREATED_BY' );
832 x_return_status := FND_API.g_ret_sts_error;
833 RETURN;
834 END IF;
835
836
837 IF p_claim_lines_int_rec.interface_claim_id = FND_API.g_miss_num OR p_claim_lines_int_rec.interface_claim_id IS NULL THEN
838 OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'INTERFACE_CLAIM_ID' );
839 x_return_status := FND_API.g_ret_sts_error;
840 RETURN;
841 END IF;
842
843
844 IF p_claim_lines_int_rec.line_number = FND_API.g_miss_num OR p_claim_lines_int_rec.line_number IS NULL THEN
845 OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'LINE_NUMBER' );
846 x_return_status := FND_API.g_ret_sts_error;
847 RETURN;
848 END IF;
849
850
851 IF p_claim_lines_int_rec.set_of_books_id = FND_API.g_miss_num OR p_claim_lines_int_rec.set_of_books_id IS NULL THEN
852 OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'SET_OF_BOOKS_ID' );
853 x_return_status := FND_API.g_ret_sts_error;
854 RETURN;
855 END IF;
856
857
858 IF p_claim_lines_int_rec.valid_flag = FND_API.g_miss_char OR p_claim_lines_int_rec.valid_flag IS NULL THEN
859 OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'VALID_FLAG' );
860 x_return_status := FND_API.g_ret_sts_error;
861 RETURN;
862 END IF;
863 ELSE
864
865
866 IF p_claim_lines_int_rec.interface_claim_line_id IS NULL THEN
867 OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'INTERFACE_CLAIM_LINE_ID' );
868 x_return_status := FND_API.g_ret_sts_error;
869 RETURN;
870 END IF;
871
872
873 IF p_claim_lines_int_rec.object_version_number IS NULL THEN
874 OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'OBJECT_VERSION_NUMBER' );
875 x_return_status := FND_API.g_ret_sts_error;
876 RETURN;
877 END IF;
878
879
880 IF p_claim_lines_int_rec.last_update_date IS NULL THEN
881 OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'LAST_UPDATE_DATE' );
882 x_return_status := FND_API.g_ret_sts_error;
883 RETURN;
884 END IF;
885
886
887 IF p_claim_lines_int_rec.last_updated_by IS NULL THEN
888 OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'LAST_UPDATED_BY' );
889 x_return_status := FND_API.g_ret_sts_error;
890 RETURN;
891 END IF;
892
893
894 IF p_claim_lines_int_rec.creation_date IS NULL THEN
895 OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CREATION_DATE' );
896 x_return_status := FND_API.g_ret_sts_error;
897 RETURN;
898 END IF;
899
900
901 IF p_claim_lines_int_rec.created_by IS NULL THEN
902 OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CREATED_BY' );
903 x_return_status := FND_API.g_ret_sts_error;
904 RETURN;
905 END IF;
906
907
908 IF p_claim_lines_int_rec.interface_claim_id IS NULL THEN
909 OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'INTERFACE_CLAIM_ID' );
910 x_return_status := FND_API.g_ret_sts_error;
911 RETURN;
912 END IF;
913
914
915 IF p_claim_lines_int_rec.line_number IS NULL THEN
916 OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'LINE_NUMBER' );
917 x_return_status := FND_API.g_ret_sts_error;
918 RETURN;
919 END IF;
920
921
922 IF p_claim_lines_int_rec.set_of_books_id IS NULL THEN
923 OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'SET_OF_BOOKS_ID' );
924 x_return_status := FND_API.g_ret_sts_error;
925 RETURN;
926 END IF;
927
928
929 IF p_claim_lines_int_rec.valid_flag IS NULL THEN
930 OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'VALID_FLAG' );
931 x_return_status := FND_API.g_ret_sts_error;
932 RETURN;
933 END IF;
934 END IF;
935
936 END check_cl_int_req_items;
937
938 PROCEDURE check_cl_int_FK_items(
939 p_claim_lines_int_rec IN claim_lines_int_rec_type,
940 x_return_status OUT NOCOPY VARCHAR2
941 )
942 IS
943 BEGIN
944 x_return_status := FND_API.g_ret_sts_success;
945
946 -- Enter custom code here
947
948 END check_cl_int_FK_items;
949
950 PROCEDURE check_cl_int_Lk_items(
951 p_claim_lines_int_rec IN claim_lines_int_rec_type,
952 x_return_status OUT NOCOPY VARCHAR2
953 )
954 IS
955 BEGIN
956 x_return_status := FND_API.g_ret_sts_success;
957
958 -- Enter custom code here
959
960 END check_cl_int_Lk_items;
961
962 PROCEDURE Check_claim_lines_int_Items (
963 P_claim_lines_int_rec IN claim_lines_int_rec_type,
964 p_validation_mode IN VARCHAR2,
965 x_return_status OUT NOCOPY VARCHAR2
966 )
967 IS
968 BEGIN
969
970 -- Check Items Uniqueness API calls
971
972 check_cl_int_uk_items(
973 p_claim_lines_int_rec => p_claim_lines_int_rec,
974 p_validation_mode => p_validation_mode,
975 x_return_status => x_return_status);
976 IF x_return_status <> FND_API.g_ret_sts_success THEN
977 RETURN;
978 END IF;
979
980 -- Check Items Required/NOT NULL API calls
981
982 check_cl_int_req_items(
983 p_claim_lines_int_rec => p_claim_lines_int_rec,
984 p_validation_mode => p_validation_mode,
985 x_return_status => x_return_status);
986 IF x_return_status <> FND_API.g_ret_sts_success THEN
987 RETURN;
988 END IF;
989 -- Check Items Foreign Keys API calls
990
991 check_cl_int_FK_items(
992 p_claim_lines_int_rec => p_claim_lines_int_rec,
993 x_return_status => x_return_status);
994 IF x_return_status <> FND_API.g_ret_sts_success THEN
995 RETURN;
996 END IF;
997 -- Check Items Lookups
998
999 check_cl_int_Lk_items(
1000 p_claim_lines_int_rec => p_claim_lines_int_rec,
1001 x_return_status => x_return_status);
1002 IF x_return_status <> FND_API.g_ret_sts_success THEN
1003 RETURN;
1004 END IF;
1005
1006 END Check_claim_lines_int_Items;
1007
1008 PROCEDURE Complete_claim_lines_int_Rec (
1009 p_claim_lines_int_rec IN claim_lines_int_rec_type,
1010 x_complete_rec OUT NOCOPY claim_lines_int_rec_type)
1011 IS
1012 l_return_status VARCHAR2(1);
1013
1014 CURSOR c_complete IS
1015 SELECT *
1016 FROM ozf_claim_lines_int_all
1017 WHERE interface_claim_line_id = p_claim_lines_int_rec.interface_claim_line_id;
1018 l_claim_lines_int_rec c_complete%ROWTYPE;
1019 BEGIN
1020 x_complete_rec := p_claim_lines_int_rec;
1021
1022
1023 OPEN c_complete;
1024 FETCH c_complete INTO l_claim_lines_int_rec;
1025 CLOSE c_complete;
1026
1027 -- interface_claim_line_id
1028 IF p_claim_lines_int_rec.interface_claim_line_id = FND_API.g_miss_num THEN
1029 x_complete_rec.interface_claim_line_id := NULL;
1030 END IF;
1031 IF p_claim_lines_int_rec.interface_claim_line_id IS NULL THEN
1032 x_complete_rec.interface_claim_line_id := l_claim_lines_int_rec.interface_claim_line_id;
1033 END IF;
1034
1035 -- object_version_number
1036 IF p_claim_lines_int_rec.object_version_number = FND_API.g_miss_num THEN
1037 x_complete_rec.object_version_number := NULL;
1038 END IF;
1039 IF p_claim_lines_int_rec.object_version_number IS NULL THEN
1040 x_complete_rec.object_version_number := l_claim_lines_int_rec.object_version_number;
1041 END IF;
1042
1043 -- last_update_date
1044 IF p_claim_lines_int_rec.last_update_date = FND_API.g_miss_date THEN
1045 x_complete_rec.last_update_date := NULL;
1046 END IF;
1047 IF p_claim_lines_int_rec.last_update_date IS NULL THEN
1048 x_complete_rec.last_update_date := l_claim_lines_int_rec.last_update_date;
1049 END IF;
1050
1051 -- last_updated_by
1052 IF p_claim_lines_int_rec.last_updated_by = FND_API.g_miss_num THEN
1053 x_complete_rec.last_updated_by := NULL;
1054 END IF;
1055 IF p_claim_lines_int_rec.last_updated_by IS NULL THEN
1056 x_complete_rec.last_updated_by := l_claim_lines_int_rec.last_updated_by;
1057 END IF;
1058
1059 -- creation_date
1060 IF p_claim_lines_int_rec.creation_date = FND_API.g_miss_date THEN
1061 x_complete_rec.creation_date := NULL;
1062 END IF;
1063 IF p_claim_lines_int_rec.creation_date IS NULL THEN
1064 x_complete_rec.creation_date := l_claim_lines_int_rec.creation_date;
1065 END IF;
1066
1067 -- created_by
1068 IF p_claim_lines_int_rec.created_by = FND_API.g_miss_num THEN
1069 x_complete_rec.created_by := NULL;
1070 END IF;
1071 IF p_claim_lines_int_rec.created_by IS NULL THEN
1072 x_complete_rec.created_by := l_claim_lines_int_rec.created_by;
1073 END IF;
1074
1075 -- last_update_login
1076 IF p_claim_lines_int_rec.last_update_login = FND_API.g_miss_num THEN
1077 x_complete_rec.last_update_login := NULL;
1078 END IF;
1079 IF p_claim_lines_int_rec.last_update_login IS NULL THEN
1080 x_complete_rec.last_update_login := l_claim_lines_int_rec.last_update_login;
1081 END IF;
1082
1083 -- request_id
1084 IF p_claim_lines_int_rec.request_id = FND_API.g_miss_num THEN
1085 x_complete_rec.request_id := NULL;
1086 END IF;
1087 IF p_claim_lines_int_rec.request_id IS NULL THEN
1088 x_complete_rec.request_id := l_claim_lines_int_rec.request_id;
1089 END IF;
1090
1091 -- program_application_id
1092 IF p_claim_lines_int_rec.program_application_id = FND_API.g_miss_num THEN
1093 x_complete_rec.program_application_id := NULL;
1094 END IF;
1095 IF p_claim_lines_int_rec.program_application_id IS NULL THEN
1096 x_complete_rec.program_application_id := l_claim_lines_int_rec.program_application_id;
1097 END IF;
1098
1099 -- program_update_date
1100 IF p_claim_lines_int_rec.program_update_date = FND_API.g_miss_date THEN
1101 x_complete_rec.program_update_date := NULL;
1102 END IF;
1103 IF p_claim_lines_int_rec.program_update_date IS NULL THEN
1104 x_complete_rec.program_update_date := l_claim_lines_int_rec.program_update_date;
1105 END IF;
1106
1107 -- program_id
1108 IF p_claim_lines_int_rec.program_id = FND_API.g_miss_num THEN
1109 x_complete_rec.program_id := NULL;
1110 END IF;
1111 IF p_claim_lines_int_rec.program_id IS NULL THEN
1112 x_complete_rec.program_id := l_claim_lines_int_rec.program_id;
1113 END IF;
1114
1115 -- created_from
1116 IF p_claim_lines_int_rec.created_from = FND_API.g_miss_char THEN
1117 x_complete_rec.created_from := NULL;
1118 END IF;
1119 IF p_claim_lines_int_rec.created_from IS NULL THEN
1120 x_complete_rec.created_from := l_claim_lines_int_rec.created_from;
1121 END IF;
1122
1123 -- interface_claim_id
1124 IF p_claim_lines_int_rec.interface_claim_id = FND_API.g_miss_num THEN
1125 x_complete_rec.interface_claim_id := NULL;
1126 END IF;
1127 IF p_claim_lines_int_rec.interface_claim_id IS NULL THEN
1128 x_complete_rec.interface_claim_id := l_claim_lines_int_rec.interface_claim_id;
1129 END IF;
1130
1131 -- line_number
1132 IF p_claim_lines_int_rec.line_number = FND_API.g_miss_num THEN
1133 x_complete_rec.line_number := NULL;
1134 END IF;
1135 IF p_claim_lines_int_rec.line_number IS NULL THEN
1136 x_complete_rec.line_number := l_claim_lines_int_rec.line_number;
1137 END IF;
1138
1139 -- split_from_claim_line_id
1140 IF p_claim_lines_int_rec.split_from_claim_line_id = FND_API.g_miss_num THEN
1141 x_complete_rec.split_from_claim_line_id := NULL;
1142 END IF;
1143 IF p_claim_lines_int_rec.split_from_claim_line_id IS NULL THEN
1144 x_complete_rec.split_from_claim_line_id := l_claim_lines_int_rec.split_from_claim_line_id;
1145 END IF;
1146
1147 -- amount
1148 IF p_claim_lines_int_rec.amount = FND_API.g_miss_num THEN
1149 x_complete_rec.amount := NULL;
1150 END IF;
1151 IF p_claim_lines_int_rec.amount IS NULL THEN
1152 x_complete_rec.amount := l_claim_lines_int_rec.amount;
1153 END IF;
1154
1155 -- claim_currency_amount
1156 IF p_claim_lines_int_rec.claim_currency_amount = FND_API.g_miss_num THEN
1157 x_complete_rec.claim_currency_amount := NULL;
1158 END IF;
1159 IF p_claim_lines_int_rec.claim_currency_amount IS NULL THEN
1160 x_complete_rec.claim_currency_amount := l_claim_lines_int_rec.claim_currency_amount;
1161 END IF;
1162
1163 -- acctd_amount
1164 IF p_claim_lines_int_rec.acctd_amount = FND_API.g_miss_num THEN
1165 x_complete_rec.acctd_amount := NULL;
1166 END IF;
1167 IF p_claim_lines_int_rec.acctd_amount IS NULL THEN
1168 x_complete_rec.acctd_amount := l_claim_lines_int_rec.acctd_amount;
1169 END IF;
1170
1171 -- currency_code
1172 IF p_claim_lines_int_rec.currency_code = FND_API.g_miss_char THEN
1173 x_complete_rec.currency_code := NULL;
1174 END IF;
1175 IF p_claim_lines_int_rec.currency_code IS NULL THEN
1176 x_complete_rec.currency_code := l_claim_lines_int_rec.currency_code;
1177 END IF;
1178
1179 -- exchange_rate_type
1180 IF p_claim_lines_int_rec.exchange_rate_type = FND_API.g_miss_char THEN
1181 x_complete_rec.exchange_rate_type := NULL;
1182 END IF;
1183 IF p_claim_lines_int_rec.exchange_rate_type IS NULL THEN
1184 x_complete_rec.exchange_rate_type := l_claim_lines_int_rec.exchange_rate_type;
1185 END IF;
1186
1187 -- exchange_rate_date
1188 IF p_claim_lines_int_rec.exchange_rate_date = FND_API.g_miss_date THEN
1189 x_complete_rec.exchange_rate_date := NULL;
1190 END IF;
1191 IF p_claim_lines_int_rec.exchange_rate_date IS NULL THEN
1192 x_complete_rec.exchange_rate_date := l_claim_lines_int_rec.exchange_rate_date;
1193 END IF;
1194
1195 -- exchange_rate
1196 IF p_claim_lines_int_rec.exchange_rate = FND_API.g_miss_num THEN
1197 x_complete_rec.exchange_rate := NULL;
1198 END IF;
1199 IF p_claim_lines_int_rec.exchange_rate IS NULL THEN
1200 x_complete_rec.exchange_rate := l_claim_lines_int_rec.exchange_rate;
1201 END IF;
1202
1203 -- set_of_books_id
1204 IF p_claim_lines_int_rec.set_of_books_id = FND_API.g_miss_num THEN
1205 x_complete_rec.set_of_books_id := NULL;
1206 END IF;
1207 IF p_claim_lines_int_rec.set_of_books_id IS NULL THEN
1208 x_complete_rec.set_of_books_id := l_claim_lines_int_rec.set_of_books_id;
1209 END IF;
1210
1211 -- valid_flag
1212 IF p_claim_lines_int_rec.valid_flag = FND_API.g_miss_char THEN
1213 x_complete_rec.valid_flag := NULL;
1214 END IF;
1215 IF p_claim_lines_int_rec.valid_flag IS NULL THEN
1216 x_complete_rec.valid_flag := l_claim_lines_int_rec.valid_flag;
1217 END IF;
1218
1219 -- source_object_id
1220 IF p_claim_lines_int_rec.source_object_id = FND_API.g_miss_num THEN
1221 x_complete_rec.source_object_id := NULL;
1222 END IF;
1223 IF p_claim_lines_int_rec.source_object_id IS NULL THEN
1224 x_complete_rec.source_object_id := l_claim_lines_int_rec.source_object_id;
1225 END IF;
1226
1227 -- source_object_class
1228 IF p_claim_lines_int_rec.source_object_class = FND_API.g_miss_char THEN
1229 x_complete_rec.source_object_class := NULL;
1230 END IF;
1231 IF p_claim_lines_int_rec.source_object_class IS NULL THEN
1232 x_complete_rec.source_object_class := l_claim_lines_int_rec.source_object_class;
1233 END IF;
1234
1235 -- source_object_type_id
1236 IF p_claim_lines_int_rec.source_object_type_id = FND_API.g_miss_num THEN
1237 x_complete_rec.source_object_type_id := NULL;
1238 END IF;
1239 IF p_claim_lines_int_rec.source_object_type_id IS NULL THEN
1240 x_complete_rec.source_object_type_id := l_claim_lines_int_rec.source_object_type_id;
1241 END IF;
1242
1243 -- source_object_line_id
1244 IF p_claim_lines_int_rec.source_object_line_id = FND_API.g_miss_num THEN
1245 x_complete_rec.source_object_line_id := NULL;
1246 END IF;
1247 IF p_claim_lines_int_rec.source_object_line_id IS NULL THEN
1248 x_complete_rec.source_object_line_id := l_claim_lines_int_rec.source_object_line_id;
1249 END IF;
1250
1251 -- plan_id
1252 IF p_claim_lines_int_rec.plan_id = FND_API.g_miss_num THEN
1253 x_complete_rec.plan_id := NULL;
1254 END IF;
1255 IF p_claim_lines_int_rec.plan_id IS NULL THEN
1256 x_complete_rec.plan_id := l_claim_lines_int_rec.plan_id;
1257 END IF;
1258
1259 -- offer_id
1260 IF p_claim_lines_int_rec.offer_id = FND_API.g_miss_num THEN
1261 x_complete_rec.offer_id := NULL;
1262 END IF;
1263 IF p_claim_lines_int_rec.offer_id IS NULL THEN
1264 x_complete_rec.offer_id := l_claim_lines_int_rec.offer_id;
1265 END IF;
1266
1267 -- utilization_id
1268 IF p_claim_lines_int_rec.utilization_id = FND_API.g_miss_num THEN
1269 x_complete_rec.utilization_id := NULL;
1270 END IF;
1271 IF p_claim_lines_int_rec.utilization_id IS NULL THEN
1272 x_complete_rec.utilization_id := l_claim_lines_int_rec.utilization_id;
1273 END IF;
1274
1275 -- payment_method
1276 IF p_claim_lines_int_rec.payment_method = FND_API.g_miss_char THEN
1277 x_complete_rec.payment_method := NULL;
1278 END IF;
1279 IF p_claim_lines_int_rec.payment_method IS NULL THEN
1280 x_complete_rec.payment_method := l_claim_lines_int_rec.payment_method;
1281 END IF;
1282
1283 -- payment_reference_id
1284 IF p_claim_lines_int_rec.payment_reference_id = FND_API.g_miss_num THEN
1285 x_complete_rec.payment_reference_id := NULL;
1286 END IF;
1287 IF p_claim_lines_int_rec.payment_reference_id IS NULL THEN
1288 x_complete_rec.payment_reference_id := l_claim_lines_int_rec.payment_reference_id;
1289 END IF;
1290
1291 -- payment_reference_number
1292 IF p_claim_lines_int_rec.payment_reference_number = FND_API.g_miss_char THEN
1293 x_complete_rec.payment_reference_number := NULL;
1294 END IF;
1295 IF p_claim_lines_int_rec.payment_reference_number IS NULL THEN
1296 x_complete_rec.payment_reference_number := l_claim_lines_int_rec.payment_reference_number;
1297 END IF;
1298
1299 -- payment_reference_date
1300 IF p_claim_lines_int_rec.payment_reference_date = FND_API.g_miss_date THEN
1301 x_complete_rec.payment_reference_date := NULL;
1302 END IF;
1303 IF p_claim_lines_int_rec.payment_reference_date IS NULL THEN
1304 x_complete_rec.payment_reference_date := l_claim_lines_int_rec.payment_reference_date;
1305 END IF;
1306
1307 -- voucher_id
1308 IF p_claim_lines_int_rec.voucher_id = FND_API.g_miss_num THEN
1309 x_complete_rec.voucher_id := NULL;
1310 END IF;
1311 IF p_claim_lines_int_rec.voucher_id IS NULL THEN
1312 x_complete_rec.voucher_id := l_claim_lines_int_rec.voucher_id;
1313 END IF;
1314
1315 -- voucher_number
1316 IF p_claim_lines_int_rec.voucher_number = FND_API.g_miss_char THEN
1317 x_complete_rec.voucher_number := NULL;
1318 END IF;
1319 IF p_claim_lines_int_rec.voucher_number IS NULL THEN
1320 x_complete_rec.voucher_number := l_claim_lines_int_rec.voucher_number;
1321 END IF;
1322
1323 -- payment_status
1324 IF p_claim_lines_int_rec.payment_status = FND_API.g_miss_char THEN
1325 x_complete_rec.payment_status := NULL;
1326 END IF;
1327 IF p_claim_lines_int_rec.payment_status IS NULL THEN
1328 x_complete_rec.payment_status := l_claim_lines_int_rec.payment_status;
1329 END IF;
1330
1331 -- approved_flag
1332 IF p_claim_lines_int_rec.approved_flag = FND_API.g_miss_char THEN
1333 x_complete_rec.approved_flag := NULL;
1334 END IF;
1335 IF p_claim_lines_int_rec.approved_flag IS NULL THEN
1336 x_complete_rec.approved_flag := l_claim_lines_int_rec.approved_flag;
1337 END IF;
1338
1339 -- approved_date
1340 IF p_claim_lines_int_rec.approved_date = FND_API.g_miss_date THEN
1341 x_complete_rec.approved_date := NULL;
1342 END IF;
1343 IF p_claim_lines_int_rec.approved_date IS NULL THEN
1344 x_complete_rec.approved_date := l_claim_lines_int_rec.approved_date;
1345 END IF;
1346
1347 -- approved_by
1348 IF p_claim_lines_int_rec.approved_by = FND_API.g_miss_num THEN
1349 x_complete_rec.approved_by := NULL;
1350 END IF;
1351 IF p_claim_lines_int_rec.approved_by IS NULL THEN
1352 x_complete_rec.approved_by := l_claim_lines_int_rec.approved_by;
1353 END IF;
1354
1355 -- settled_date
1356 IF p_claim_lines_int_rec.settled_date = FND_API.g_miss_date THEN
1357 x_complete_rec.settled_date := NULL;
1358 END IF;
1359 IF p_claim_lines_int_rec.settled_date IS NULL THEN
1360 x_complete_rec.settled_date := l_claim_lines_int_rec.settled_date;
1361 END IF;
1362
1363 -- settled_by
1364 IF p_claim_lines_int_rec.settled_by = FND_API.g_miss_num THEN
1365 x_complete_rec.settled_by := NULL;
1366 END IF;
1367 IF p_claim_lines_int_rec.settled_by IS NULL THEN
1368 x_complete_rec.settled_by := l_claim_lines_int_rec.settled_by;
1369 END IF;
1370
1371 -- performance_complete_flag
1372 IF p_claim_lines_int_rec.performance_complete_flag = FND_API.g_miss_char THEN
1373 x_complete_rec.performance_complete_flag := NULL;
1374 END IF;
1375 IF p_claim_lines_int_rec.performance_complete_flag IS NULL THEN
1376 x_complete_rec.performance_complete_flag := l_claim_lines_int_rec.performance_complete_flag;
1377 END IF;
1378
1379 -- performance_attached_flag
1380 IF p_claim_lines_int_rec.performance_attached_flag = FND_API.g_miss_char THEN
1381 x_complete_rec.performance_attached_flag := NULL;
1382 END IF;
1383 IF p_claim_lines_int_rec.performance_attached_flag IS NULL THEN
1384 x_complete_rec.performance_attached_flag := l_claim_lines_int_rec.performance_attached_flag;
1385 END IF;
1386
1387 -- attribute_category
1388 IF p_claim_lines_int_rec.attribute_category = FND_API.g_miss_char THEN
1389 x_complete_rec.attribute_category := NULL;
1390 END IF;
1391 IF p_claim_lines_int_rec.attribute_category IS NULL THEN
1392 x_complete_rec.attribute_category := l_claim_lines_int_rec.attribute_category;
1393 END IF;
1394
1395 -- attribute1
1396 IF p_claim_lines_int_rec.attribute1 = FND_API.g_miss_char THEN
1397 x_complete_rec.attribute1 := NULL;
1398 END IF;
1399 IF p_claim_lines_int_rec.attribute1 IS NULL THEN
1400 x_complete_rec.attribute1 := l_claim_lines_int_rec.attribute1;
1401 END IF;
1402
1403 -- attribute2
1404 IF p_claim_lines_int_rec.attribute2 = FND_API.g_miss_char THEN
1405 x_complete_rec.attribute2 := NULL;
1406 END IF;
1407 IF p_claim_lines_int_rec.attribute2 IS NULL THEN
1408 x_complete_rec.attribute2 := l_claim_lines_int_rec.attribute2;
1409 END IF;
1410
1411 -- attribute3
1412 IF p_claim_lines_int_rec.attribute3 = FND_API.g_miss_char THEN
1413 x_complete_rec.attribute3 := NULL;
1414 END IF;
1415 IF p_claim_lines_int_rec.attribute3 IS NULL THEN
1416 x_complete_rec.attribute3 := l_claim_lines_int_rec.attribute3;
1417 END IF;
1418
1419 -- attribute4
1420 IF p_claim_lines_int_rec.attribute4 = FND_API.g_miss_char THEN
1421 x_complete_rec.attribute4 := NULL;
1422 END IF;
1423 IF p_claim_lines_int_rec.attribute4 IS NULL THEN
1424 x_complete_rec.attribute4 := l_claim_lines_int_rec.attribute4;
1425 END IF;
1426
1427 -- attribute5
1428 IF p_claim_lines_int_rec.attribute5 = FND_API.g_miss_char THEN
1429 x_complete_rec.attribute5 := NULL;
1430 END IF;
1431 IF p_claim_lines_int_rec.attribute5 IS NULL THEN
1432 x_complete_rec.attribute5 := l_claim_lines_int_rec.attribute5;
1433 END IF;
1434
1435 -- attribute6
1436 IF p_claim_lines_int_rec.attribute6 = FND_API.g_miss_char THEN
1437 x_complete_rec.attribute6 := NULL;
1438 END IF;
1439 IF p_claim_lines_int_rec.attribute6 IS NULL THEN
1440 x_complete_rec.attribute6 := l_claim_lines_int_rec.attribute6;
1441 END IF;
1442
1443 -- attribute7
1444 IF p_claim_lines_int_rec.attribute7 = FND_API.g_miss_char THEN
1445 x_complete_rec.attribute7 := NULL;
1446 END IF;
1447 IF p_claim_lines_int_rec.attribute7 IS NULL THEN
1448 x_complete_rec.attribute7 := l_claim_lines_int_rec.attribute7;
1449 END IF;
1450
1451 -- attribute8
1452 IF p_claim_lines_int_rec.attribute8 = FND_API.g_miss_char THEN
1453 x_complete_rec.attribute8 := NULL;
1454 END IF;
1455 IF p_claim_lines_int_rec.attribute8 IS NULL THEN
1456 x_complete_rec.attribute8 := l_claim_lines_int_rec.attribute8;
1457 END IF;
1458
1459 -- attribute9
1460 IF p_claim_lines_int_rec.attribute9 = FND_API.g_miss_char THEN
1461 x_complete_rec.attribute9 := NULL;
1462 END IF;
1463 IF p_claim_lines_int_rec.attribute9 IS NULL THEN
1464 x_complete_rec.attribute9 := l_claim_lines_int_rec.attribute9;
1465 END IF;
1466
1467 -- attribute10
1468 IF p_claim_lines_int_rec.attribute10 = FND_API.g_miss_char THEN
1469 x_complete_rec.attribute10 := NULL;
1470 END IF;
1471 IF p_claim_lines_int_rec.attribute10 IS NULL THEN
1472 x_complete_rec.attribute10 := l_claim_lines_int_rec.attribute10;
1473 END IF;
1474
1475 -- attribute11
1476 IF p_claim_lines_int_rec.attribute11 = FND_API.g_miss_char THEN
1477 x_complete_rec.attribute11 := NULL;
1478 END IF;
1479 IF p_claim_lines_int_rec.attribute11 IS NULL THEN
1480 x_complete_rec.attribute11 := l_claim_lines_int_rec.attribute11;
1481 END IF;
1482
1483 -- attribute12
1484 IF p_claim_lines_int_rec.attribute12 = FND_API.g_miss_char THEN
1485 x_complete_rec.attribute12 := NULL;
1486 END IF;
1487 IF p_claim_lines_int_rec.attribute12 IS NULL THEN
1488 x_complete_rec.attribute12 := l_claim_lines_int_rec.attribute12;
1489 END IF;
1490
1491 -- attribute13
1492 IF p_claim_lines_int_rec.attribute13 = FND_API.g_miss_char THEN
1493 x_complete_rec.attribute13 := NULL;
1494 END IF;
1495 IF p_claim_lines_int_rec.attribute13 IS NULL THEN
1496 x_complete_rec.attribute13 := l_claim_lines_int_rec.attribute13;
1497 END IF;
1498
1499 -- attribute14
1500 IF p_claim_lines_int_rec.attribute14 = FND_API.g_miss_char THEN
1501 x_complete_rec.attribute14 := NULL;
1502 END IF;
1503 IF p_claim_lines_int_rec.attribute14 IS NULL THEN
1504 x_complete_rec.attribute14 := l_claim_lines_int_rec.attribute14;
1505 END IF;
1506
1507 -- attribute15
1508 IF p_claim_lines_int_rec.attribute15 = FND_API.g_miss_char THEN
1509 x_complete_rec.attribute15 := NULL;
1510 END IF;
1511 IF p_claim_lines_int_rec.attribute15 IS NULL THEN
1512 x_complete_rec.attribute15 := l_claim_lines_int_rec.attribute15;
1513 END IF;
1514
1515 -- org_id
1516 IF p_claim_lines_int_rec.org_id = FND_API.g_miss_num THEN
1517 x_complete_rec.org_id := NULL;
1518 END IF;
1519 IF p_claim_lines_int_rec.org_id IS NULL THEN
1520 x_complete_rec.org_id := l_claim_lines_int_rec.org_id;
1521 END IF;
1522
1523 -- Note: Developers need to modify the procedure
1524 -- to handle any business specific requirements.
1525 END Complete_claim_lines_int_Rec;
1526 PROCEDURE Validate_claim_lines_int(
1527 p_api_version_number IN NUMBER,
1528 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1529 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1530 p_claim_lines_int_rec IN claim_lines_int_rec_type,
1531 x_return_status OUT NOCOPY VARCHAR2,
1532 x_msg_count OUT NOCOPY NUMBER,
1533 x_msg_data OUT NOCOPY VARCHAR2
1534 )
1535 IS
1536 L_API_NAME CONSTANT VARCHAR2(30) := 'Validate_Claim_Lines_Int';
1537 L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
1538 l_object_version_number NUMBER;
1539 l_claim_lines_int_rec OZF_Claim_Lines_Int_PVT.claim_lines_int_rec_type;
1540
1541 BEGIN
1542 -- Standard Start of API savepoint
1543 SAVEPOINT VALIDATE_Claim_Lines_Int_;
1544
1545 -- Standard call to check for call compatibility.
1546 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1547 p_api_version_number,
1548 l_api_name,
1549 G_PKG_NAME)
1550 THEN
1551 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1552 END IF;
1553
1554 -- Initialize message list if p_init_msg_list is set to TRUE.
1555 IF FND_API.to_Boolean( p_init_msg_list )
1556 THEN
1557 FND_MSG_PUB.initialize;
1558 END IF;
1559 IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
1560 Check_claim_lines_int_Items(
1561 p_claim_lines_int_rec => p_claim_lines_int_rec,
1562 p_validation_mode => JTF_PLSQL_API.g_update,
1563 x_return_status => x_return_status
1564 );
1565
1566 IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1567 RAISE FND_API.G_EXC_ERROR;
1568 ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1569 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1570 END IF;
1571 END IF;
1572
1573 Complete_claim_lines_int_Rec(
1574 p_claim_lines_int_rec => p_claim_lines_int_rec,
1575 x_complete_rec => l_claim_lines_int_rec
1576 );
1577
1578 IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
1579 Validate_claim_lines_int_Rec(
1580 p_api_version_number => 1.0,
1581 p_init_msg_list => FND_API.G_FALSE,
1582 x_return_status => x_return_status,
1583 x_msg_count => x_msg_count,
1584 x_msg_data => x_msg_data,
1585 p_claim_lines_int_rec => l_claim_lines_int_rec);
1586
1587 IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1588 RAISE FND_API.G_EXC_ERROR;
1589 ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1590 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1591 END IF;
1592 END IF;
1593
1594
1595 -- Debug Message
1596 IF g_debug THEN
1597 OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
1598 END IF;
1599
1600
1601 -- Initialize API return status to SUCCESS
1602 x_return_status := FND_API.G_RET_STS_SUCCESS;
1603
1604
1605 -- Debug Message
1606 IF g_debug THEN
1607 OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
1608 END IF;
1609
1610 -- Standard call to get message count and if count is 1, get message info.
1611 FND_MSG_PUB.Count_And_Get
1612 (p_count => x_msg_count,
1613 p_data => x_msg_data
1614 );
1615 EXCEPTION
1616
1617 WHEN OZF_Utility_PVT.resource_locked THEN
1618 x_return_status := FND_API.g_ret_sts_error;
1619 OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
1620
1621 WHEN FND_API.G_EXC_ERROR THEN
1622 ROLLBACK TO VALIDATE_Claim_Lines_Int_;
1623 x_return_status := FND_API.G_RET_STS_ERROR;
1624 -- Standard call to get message count and if count=1, get the message
1625 FND_MSG_PUB.Count_And_Get (
1626 p_encoded => FND_API.G_FALSE,
1627 p_count => x_msg_count,
1628 p_data => x_msg_data
1629 );
1630
1631 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1632 ROLLBACK TO VALIDATE_Claim_Lines_Int_;
1633 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1634 -- Standard call to get message count and if count=1, get the message
1635 FND_MSG_PUB.Count_And_Get (
1636 p_encoded => FND_API.G_FALSE,
1637 p_count => x_msg_count,
1638 p_data => x_msg_data
1639 );
1640
1641 WHEN OTHERS THEN
1642 ROLLBACK TO VALIDATE_Claim_Lines_Int_;
1643 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1644 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1645 THEN
1646 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1647 END IF;
1648 -- Standard call to get message count and if count=1, get the message
1649 FND_MSG_PUB.Count_And_Get (
1650 p_encoded => FND_API.G_FALSE,
1651 p_count => x_msg_count,
1652 p_data => x_msg_data
1653 );
1654 End Validate_Claim_Lines_Int;
1655
1656
1657 PROCEDURE Validate_claim_lines_int_rec(
1658 p_api_version_number IN NUMBER,
1659 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1660 x_return_status OUT NOCOPY VARCHAR2,
1661 x_msg_count OUT NOCOPY NUMBER,
1662 x_msg_data OUT NOCOPY VARCHAR2,
1663 p_claim_lines_int_rec IN claim_lines_int_rec_type
1664 )
1665 IS
1666 BEGIN
1667 -- Initialize message list if p_init_msg_list is set to TRUE.
1668 IF FND_API.to_Boolean( p_init_msg_list )
1669 THEN
1670 FND_MSG_PUB.initialize;
1671 END IF;
1672
1673 -- Initialize API return status to SUCCESS
1674 x_return_status := FND_API.G_RET_STS_SUCCESS;
1675
1676 -- Hint: Validate data
1677 -- If data not valid
1678 -- THEN
1679 -- x_return_status := FND_API.G_RET_STS_ERROR;
1680
1681 -- Debug Message
1682 IF g_debug THEN
1683 OZF_UTILITY_PVT.debug_message('Private API: Validate_dm_model_rec');
1684 END IF;
1685 -- Standard call to get message count and if count is 1, get message info.
1686 FND_MSG_PUB.Count_And_Get
1687 (p_count => x_msg_count,
1688 p_data => x_msg_data
1689 );
1690 END Validate_claim_lines_int_Rec;
1691
1692 END OZF_Claim_Lines_Int_PVT;