[Home] [Help]
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,
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,
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,
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
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
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 )
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:
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
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;
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
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');
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,
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:
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
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
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: --
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:
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;
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 (
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,
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:
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 (
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,
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:
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;
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,
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,
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,
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
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 )
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:
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');
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');
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
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');
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
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');
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,
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:
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
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:
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;
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 (
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,
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:
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 (
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,
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:
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;
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,
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,
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,
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
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 )
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:
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: --
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:
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;
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 (
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,
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:
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 (
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,
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:
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;
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;
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,
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:
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
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
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:
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:
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;
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 (
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,
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:
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 (
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,
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:
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;
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;
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 ||''''
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;
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;
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:
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;
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:
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;
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:
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;
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:
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;
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:
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;
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:
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;
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:
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;
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:
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;
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:
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;
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:
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;
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:
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:
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:
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:
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:
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:
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:
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:
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:
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:
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:
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;
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;
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
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:
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:
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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,
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
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
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 )
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
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;
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;
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:
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(
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);
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;
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;
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:
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:
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
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_;
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 (
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,
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:
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 (
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,
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:
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;
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:
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
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');