[Home] [Help]
18:
19: -- Hint: Primary key needs to be returned.
20: PROCEDURE Create_reason(
21: P_Api_Version_Number IN NUMBER,
22: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
23: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
24: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
25:
26: X_Return_Status OUT NOCOPY VARCHAR2,
19: -- Hint: Primary key needs to be returned.
20: PROCEDURE Create_reason(
21: P_Api_Version_Number IN NUMBER,
22: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
23: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
24: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
25:
26: X_Return_Status OUT NOCOPY VARCHAR2,
27: X_Msg_Count OUT NOCOPY NUMBER,
20: PROCEDURE Create_reason(
21: P_Api_Version_Number IN NUMBER,
22: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
23: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
24: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
25:
26: X_Return_Status OUT NOCOPY VARCHAR2,
27: X_Msg_Count OUT NOCOPY NUMBER,
28: X_Msg_Data OUT NOCOPY VARCHAR2,
35: l_api_name CONSTANT VARCHAR2(30) := 'Create_reason';
36: l_api_version_number CONSTANT NUMBER := 1.0;
37: l_return_status_full VARCHAR2(1);
38: l_object_version_number NUMBER := 1;
39: l_org_id NUMBER := FND_API.G_MISS_NUM;
40: l_REASON_CODE_ID NUMBER;
41:
42: BEGIN
43: -- Standard Start of API savepoint
43: -- Standard Start of API savepoint
44: SAVEPOINT CREATE_Reason_PVT;
45:
46: -- Standard call to check for call compatibility.
47: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
48: p_api_version_number,
49: l_api_name,
50: G_PKG_NAME)
51: THEN
48: p_api_version_number,
49: l_api_name,
50: G_PKG_NAME)
51: THEN
52: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
53: END IF;
54:
55: -- Initialize message list if p_init_msg_list is set to TRUE.
56: IF FND_API.to_Boolean( p_init_msg_list )
52: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
53: END IF;
54:
55: -- Initialize message list if p_init_msg_list is set to TRUE.
56: IF FND_API.to_Boolean( p_init_msg_list )
57: THEN
58: FND_MSG_PUB.initialize;
59: END IF;
60:
63: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
64: END IF;
65:
66: -- Initialize API return status to SUCCESS
67: x_return_status := FND_API.G_RET_STS_SUCCESS;
68:
69: -- ******************************************************************
70: -- Validate Environment
71: -- ******************************************************************
75: THEN
76: FND_MESSAGE.Set_Name('OZF', 'OZF_USER_PROFILE_MISSING');
77: FND_MSG_PUB.ADD;
78: END IF;
79: RAISE FND_API.G_EXC_ERROR;
80: END IF;
81:
82: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
83: THEN
78: END IF;
79: RAISE FND_API.G_EXC_ERROR;
80: END IF;
81:
82: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
83: THEN
84: -- Debug message
85: IF OZF_DEBUG_HIGH_ON THEN
86: OZF_UTILITY_PVT.debug_message('Private API: Validate_reason');
88:
89: -- Invoke validation procedures
90: Validate_reason(
91: p_api_version_number => 1.0,
92: p_init_msg_list => FND_API.G_FALSE,
93: p_validation_level => p_validation_level,
94: P_reason_Rec => P_reason_Rec,
95: x_return_status => x_return_status,
96: x_msg_count => x_msg_count,
96: x_msg_count => x_msg_count,
97: x_msg_data => x_msg_data);
98: END IF;
99:
100: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
101: RAISE FND_API.G_EXC_ERROR;
102: END IF;
103:
104:
97: x_msg_data => x_msg_data);
98: END IF;
99:
100: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
101: RAISE FND_API.G_EXC_ERROR;
102: END IF;
103:
104:
105: -- Debug Message
147: p_INVOICING_REASON_CODE => p_reason_rec.INVOICING_REASON_CODE,
148: px_ORDER_TYPE_ID => p_reason_rec.ORDER_TYPE_ID,
149: p_PARTNER_ACCESS_FLAG => p_reason_rec.PARTNER_ACCESS_FLAG
150: );
151: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
152: RAISE FND_API.G_EXC_ERROR;
153: END IF;
154: --
155: -- End of API body
148: px_ORDER_TYPE_ID => p_reason_rec.ORDER_TYPE_ID,
149: p_PARTNER_ACCESS_FLAG => p_reason_rec.PARTNER_ACCESS_FLAG
150: );
151: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
152: RAISE FND_API.G_EXC_ERROR;
153: END IF;
154: --
155: -- End of API body
156: --
156: --
157: x_reason_code_id := l_reason_code_id;
158:
159: -- Standard check for p_commit
160: IF FND_API.to_Boolean( p_commit )
161: THEN
162: COMMIT WORK;
163: END IF;
164:
173: (p_count => x_msg_count,
174: p_data => x_msg_data
175: );
176: EXCEPTION
177: WHEN FND_API.G_EXC_ERROR THEN
178: ROLLBACK TO CREATE_Reason_PVT;
179: x_return_status := FND_API.G_RET_STS_ERROR;
180: -- Standard call to get message count and if count=1, get the message
181: FND_MSG_PUB.Count_And_Get (
175: );
176: EXCEPTION
177: WHEN FND_API.G_EXC_ERROR THEN
178: ROLLBACK TO CREATE_Reason_PVT;
179: x_return_status := FND_API.G_RET_STS_ERROR;
180: -- Standard call to get message count and if count=1, get the message
181: FND_MSG_PUB.Count_And_Get (
182: p_encoded => FND_API.G_FALSE,
183: p_count => x_msg_count,
178: ROLLBACK TO CREATE_Reason_PVT;
179: x_return_status := FND_API.G_RET_STS_ERROR;
180: -- Standard call to get message count and if count=1, get the message
181: FND_MSG_PUB.Count_And_Get (
182: p_encoded => FND_API.G_FALSE,
183: p_count => x_msg_count,
184: p_data => x_msg_data
185: );
186: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
182: p_encoded => FND_API.G_FALSE,
183: p_count => x_msg_count,
184: p_data => x_msg_data
185: );
186: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
187: ROLLBACK TO CREATE_Reason_PVT;
188: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
189: -- Standard call to get message count and if count=1, get the message
190: FND_MSG_PUB.Count_And_Get (
184: p_data => x_msg_data
185: );
186: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
187: ROLLBACK TO CREATE_Reason_PVT;
188: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
189: -- Standard call to get message count and if count=1, get the message
190: FND_MSG_PUB.Count_And_Get (
191: p_encoded => FND_API.G_FALSE,
192: p_count => x_msg_count,
187: ROLLBACK TO CREATE_Reason_PVT;
188: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
189: -- Standard call to get message count and if count=1, get the message
190: FND_MSG_PUB.Count_And_Get (
191: p_encoded => FND_API.G_FALSE,
192: p_count => x_msg_count,
193: p_data => x_msg_data
194: );
195: WHEN OTHERS THEN
193: p_data => x_msg_data
194: );
195: WHEN OTHERS THEN
196: ROLLBACK TO CREATE_Reason_PVT;
197: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
198: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
199: THEN
200: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
201: END IF;
200: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
201: END IF;
202: -- Standard call to get message count and if count=1, get the message
203: FND_MSG_PUB.Count_And_Get (
204: p_encoded => FND_API.G_FALSE,
205: p_count => x_msg_count,
206: p_data => x_msg_data
207: );
208: End Create_reason;
209:
210:
211: PROCEDURE Update_reason(
212: P_Api_Version_Number IN NUMBER,
213: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
214: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
215: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
216:
217: X_Return_Status OUT NOCOPY VARCHAR2,
210:
211: PROCEDURE Update_reason(
212: P_Api_Version_Number IN NUMBER,
213: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
214: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
215: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
216:
217: X_Return_Status OUT NOCOPY VARCHAR2,
218: X_Msg_Count OUT NOCOPY NUMBER,
211: PROCEDURE Update_reason(
212: P_Api_Version_Number IN NUMBER,
213: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
214: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
215: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
216:
217: X_Return_Status OUT NOCOPY VARCHAR2,
218: X_Msg_Count OUT NOCOPY NUMBER,
219: X_Msg_Data OUT NOCOPY VARCHAR2,
276: -- Standard Start of API savepoint
277: SAVEPOINT UPDATE_Reason_PVT;
278:
279: -- Standard call to check for call compatibility.
280: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
281: p_api_version_number,
282: l_api_name,
283: G_PKG_NAME)
284: THEN
281: p_api_version_number,
282: l_api_name,
283: G_PKG_NAME)
284: THEN
285: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
286: END IF;
287:
288: -- Initialize message list if p_init_msg_list is set to TRUE.
289: IF FND_API.to_Boolean( p_init_msg_list )
285: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
286: END IF;
287:
288: -- Initialize message list if p_init_msg_list is set to TRUE.
289: IF FND_API.to_Boolean( p_init_msg_list )
290: THEN
291: FND_MSG_PUB.initialize;
292: END IF;
293:
297: END IF;
298:
299:
300: -- Initialize API return status to SUCCESS
301: x_return_status := FND_API.G_RET_STS_SUCCESS;
302:
303: -- Debug Message
304: IF OZF_DEBUG_HIGH_ON THEN
305: OZF_UTILITY_PVT.debug_message('Private API: - Open Cursor to Select');
347: THEN
348: FND_MESSAGE.Set_Name('OZF', 'OZF_API_RECORD_NOT_FOUND');
349: FND_MSG_PUB.Add;
350: END IF;
351: raise FND_API.G_EXC_ERROR;
352: END IF;
353: -- Debug Message
354: IF OZF_DEBUG_HIGH_ON THEN
355: OZF_UTILITY_PVT.debug_message('Private API: - Close Cursor');
357: Close C_Get_reason;
358:
359:
360: If (l_tar_reason_rec.object_version_number is NULL or
361: l_tar_reason_rec.object_version_number = FND_API.G_MISS_NUM ) Then
362: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
363: THEN
364: FND_MESSAGE.Set_Name('OZF', 'OZF_API_NO_OBJ_VER_NUM');
365: FND_MSG_PUB.ADD;
363: THEN
364: FND_MESSAGE.Set_Name('OZF', 'OZF_API_NO_OBJ_VER_NUM');
365: FND_MSG_PUB.ADD;
366: END IF;
367: raise FND_API.G_EXC_ERROR;
368: End if;
369:
370: -- Check Whether record has been changed by someone else
371: If (l_tar_reason_rec.object_version_number <> l_ref_reason_rec.object_version_number) Then
373: THEN
374: FND_MESSAGE.Set_Name('OZF', 'OZF_API_RESOURCE_LOCKED');
375: FND_MSG_PUB.ADD;
376: END IF;
377: raise FND_API.G_EXC_ERROR;
378: End if;
379:
380: Complete_reason_Rec(
381: P_reason_rec => P_reason_rec,
381: P_reason_rec => P_reason_rec,
382: x_complete_rec => l_reason_rec,
383: x_return_status => x_return_status
384: );
385: IF x_return_status = FND_API.g_ret_sts_error THEN
386: RAISE FND_API.g_exc_error;
387: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
388: RAISE FND_API.g_exc_unexpected_error;
389: END IF;
382: x_complete_rec => l_reason_rec,
383: x_return_status => x_return_status
384: );
385: IF x_return_status = FND_API.g_ret_sts_error THEN
386: RAISE FND_API.g_exc_error;
387: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
388: RAISE FND_API.g_exc_unexpected_error;
389: END IF;
390:
383: x_return_status => x_return_status
384: );
385: IF x_return_status = FND_API.g_ret_sts_error THEN
386: RAISE FND_API.g_exc_error;
387: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
388: RAISE FND_API.g_exc_unexpected_error;
389: END IF;
390:
391: IF OZF_DEBUG_HIGH_ON THEN
384: );
385: IF x_return_status = FND_API.g_ret_sts_error THEN
386: RAISE FND_API.g_exc_error;
387: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
388: RAISE FND_API.g_exc_unexpected_error;
389: END IF;
390:
391: IF OZF_DEBUG_HIGH_ON THEN
392: OZF_UTILITY_PVT.debug_message('Private API: Before Validate');
390:
391: IF OZF_DEBUG_HIGH_ON THEN
392: OZF_UTILITY_PVT.debug_message('Private API: Before Validate');
393: END IF;
394: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
395: THEN
396: -- Debug message
397: IF OZF_DEBUG_HIGH_ON THEN
398: OZF_UTILITY_PVT.debug_message('Private API: Validate_reason');
400:
401: -- Invoke validation procedures
402: Validate_reason(
403: p_api_version_number => 1.0,
404: p_init_msg_list => FND_API.G_FALSE,
405: p_validation_level => p_validation_level,
406: P_reason_Rec => l_reason_rec,
407: x_return_status => x_return_status,
408: x_msg_count => x_msg_count,
408: x_msg_count => x_msg_count,
409: x_msg_data => x_msg_data);
410: END IF;
411:
412: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
413: RAISE FND_API.G_EXC_ERROR;
414: END IF;
415: IF OZF_DEBUG_HIGH_ON THEN
416: OZF_UTILITY_PVT.debug_message('Private API: After Validate');
409: x_msg_data => x_msg_data);
410: END IF;
411:
412: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
413: RAISE FND_API.G_EXC_ERROR;
414: END IF;
415: IF OZF_DEBUG_HIGH_ON THEN
416: OZF_UTILITY_PVT.debug_message('Private API: After Validate');
417: END IF;
465: --
466: x_object_version_number := l_object_version_number;
467:
468: -- Standard check for p_commit
469: IF FND_API.to_Boolean( p_commit )
470: THEN
471: COMMIT WORK;
472: END IF;
473:
482: (p_count => x_msg_count,
483: p_data => x_msg_data
484: );
485: EXCEPTION
486: WHEN FND_API.G_EXC_ERROR THEN
487: ROLLBACK TO UPDATE_Reason_PVT;
488: x_return_status := FND_API.G_RET_STS_ERROR;
489: -- Standard call to get message count and if count=1, get the message
490: FND_MSG_PUB.Count_And_Get (
484: );
485: EXCEPTION
486: WHEN FND_API.G_EXC_ERROR THEN
487: ROLLBACK TO UPDATE_Reason_PVT;
488: x_return_status := FND_API.G_RET_STS_ERROR;
489: -- Standard call to get message count and if count=1, get the message
490: FND_MSG_PUB.Count_And_Get (
491: p_encoded => FND_API.G_FALSE,
492: p_count => x_msg_count,
487: ROLLBACK TO UPDATE_Reason_PVT;
488: x_return_status := FND_API.G_RET_STS_ERROR;
489: -- Standard call to get message count and if count=1, get the message
490: FND_MSG_PUB.Count_And_Get (
491: p_encoded => FND_API.G_FALSE,
492: p_count => x_msg_count,
493: p_data => x_msg_data
494: );
495: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
491: p_encoded => FND_API.G_FALSE,
492: p_count => x_msg_count,
493: p_data => x_msg_data
494: );
495: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
496: ROLLBACK TO UPDATE_Reason_PVT;
497: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
498: -- Standard call to get message count and if count=1, get the message
499: FND_MSG_PUB.Count_And_Get (
493: p_data => x_msg_data
494: );
495: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
496: ROLLBACK TO UPDATE_Reason_PVT;
497: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
498: -- Standard call to get message count and if count=1, get the message
499: FND_MSG_PUB.Count_And_Get (
500: p_encoded => FND_API.G_FALSE,
501: p_count => x_msg_count,
496: ROLLBACK TO UPDATE_Reason_PVT;
497: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
498: -- Standard call to get message count and if count=1, get the message
499: FND_MSG_PUB.Count_And_Get (
500: p_encoded => FND_API.G_FALSE,
501: p_count => x_msg_count,
502: p_data => x_msg_data
503: );
504: WHEN OTHERS THEN
502: p_data => x_msg_data
503: );
504: WHEN OTHERS THEN
505: ROLLBACK TO UPDATE_Reason_PVT;
506: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
507: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
508: THEN
509: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
510: END IF;
509: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
510: END IF;
511: -- Standard call to get message count and if count=1, get the message
512: FND_MSG_PUB.Count_And_Get (
513: p_encoded => FND_API.G_FALSE,
514: p_count => x_msg_count,
515: p_data => x_msg_data
516: );
517: End Update_reason;
518:
519:
520: PROCEDURE Delete_reason(
521: P_Api_Version_Number IN NUMBER,
522: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
523: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
524: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
525: X_Return_Status OUT NOCOPY VARCHAR2,
526: X_Msg_Count OUT NOCOPY NUMBER,
519:
520: PROCEDURE Delete_reason(
521: P_Api_Version_Number IN NUMBER,
522: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
523: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
524: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
525: X_Return_Status OUT NOCOPY VARCHAR2,
526: X_Msg_Count OUT NOCOPY NUMBER,
527: X_Msg_Data OUT NOCOPY VARCHAR2,
520: PROCEDURE Delete_reason(
521: P_Api_Version_Number IN NUMBER,
522: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
523: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
524: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
525: X_Return_Status OUT NOCOPY VARCHAR2,
526: X_Msg_Count OUT NOCOPY NUMBER,
527: X_Msg_Data OUT NOCOPY VARCHAR2,
528: P_REASON_CODE_ID IN NUMBER,
543: -- Standard Start of API savepoint
544: SAVEPOINT DELETE_Reason_PVT;
545:
546: -- Standard call to check for call compatibility.
547: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
548: p_api_version_number,
549: l_api_name,
550: G_PKG_NAME)
551: THEN
548: p_api_version_number,
549: l_api_name,
550: G_PKG_NAME)
551: THEN
552: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
553: END IF;
554:
555: -- Initialize message list if p_init_msg_list is set to TRUE.
556: IF FND_API.to_Boolean( p_init_msg_list )
552: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
553: END IF;
554:
555: -- Initialize message list if p_init_msg_list is set to TRUE.
556: IF FND_API.to_Boolean( p_init_msg_list )
557: THEN
558: FND_MSG_PUB.initialize;
559: END IF;
560:
564: END IF;
565:
566:
567: -- Initialize API return status to SUCCESS
568: x_return_status := FND_API.G_RET_STS_SUCCESS;
569:
570: --
571: -- Api body
572: --
583: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
584: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_REASON_ID_USED');
585: FND_MSG_PUB.add;
586: END IF;
587: RAISE FND_API.g_exc_error;
588: END IF;
589:
590: -- Invoke table handler(OZF_reason_codes_All_PKG.Delete_Row)
591: OZF_reason_codes_All_PKG.Delete_Row(
594: -- End of API body
595: --
596:
597: -- Standard check for p_commit
598: IF FND_API.to_Boolean( p_commit )
599: THEN
600: COMMIT WORK;
601: END IF;
602:
611: (p_count => x_msg_count,
612: p_data => x_msg_data
613: );
614: EXCEPTION
615: WHEN FND_API.G_EXC_ERROR THEN
616: ROLLBACK TO DELETE_Reason_PVT;
617: x_return_status := FND_API.G_RET_STS_ERROR;
618: -- Standard call to get message count and if count=1, get the message
619: FND_MSG_PUB.Count_And_Get (
613: );
614: EXCEPTION
615: WHEN FND_API.G_EXC_ERROR THEN
616: ROLLBACK TO DELETE_Reason_PVT;
617: x_return_status := FND_API.G_RET_STS_ERROR;
618: -- Standard call to get message count and if count=1, get the message
619: FND_MSG_PUB.Count_And_Get (
620: p_encoded => FND_API.G_FALSE,
621: p_count => x_msg_count,
616: ROLLBACK TO DELETE_Reason_PVT;
617: x_return_status := FND_API.G_RET_STS_ERROR;
618: -- Standard call to get message count and if count=1, get the message
619: FND_MSG_PUB.Count_And_Get (
620: p_encoded => FND_API.G_FALSE,
621: p_count => x_msg_count,
622: p_data => x_msg_data
623: );
624: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
620: p_encoded => FND_API.G_FALSE,
621: p_count => x_msg_count,
622: p_data => x_msg_data
623: );
624: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
625: ROLLBACK TO DELETE_Reason_PVT;
626: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
627: -- Standard call to get message count and if count=1, get the message
628: FND_MSG_PUB.Count_And_Get (
622: p_data => x_msg_data
623: );
624: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
625: ROLLBACK TO DELETE_Reason_PVT;
626: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
627: -- Standard call to get message count and if count=1, get the message
628: FND_MSG_PUB.Count_And_Get (
629: p_encoded => FND_API.G_FALSE,
630: p_count => x_msg_count,
625: ROLLBACK TO DELETE_Reason_PVT;
626: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
627: -- Standard call to get message count and if count=1, get the message
628: FND_MSG_PUB.Count_And_Get (
629: p_encoded => FND_API.G_FALSE,
630: p_count => x_msg_count,
631: p_data => x_msg_data
632: );
633: WHEN OTHERS THEN
631: p_data => x_msg_data
632: );
633: WHEN OTHERS THEN
634: ROLLBACK TO DELETE_Reason_PVT;
635: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
636: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
637: THEN
638: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
639: END IF;
638: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
639: END IF;
640: -- Standard call to get message count and if count=1, get the message
641: FND_MSG_PUB.Count_And_Get (
642: p_encoded => FND_API.G_FALSE,
643: p_count => x_msg_count,
644: p_data => x_msg_data
645: );
646: End Delete_reason;
654: -- Pre-Req :
655: -- Parameters:
656: -- IN
657: -- p_api_version_number IN NUMBER Required
658: -- p_init_msg_list IN VARCHAR2 Optional Default=FND_API_G_FALSE
659: -- p_commit IN VARCHAR2 Optional Default=FND_API.G_FALSE
660: -- p_validation_level IN NUMBER Optional Default=FND_API.G_VALID_LEVEL_FULL
661: -- p_action_Tbl IN action_Tbl_Type
662: --
655: -- Parameters:
656: -- IN
657: -- p_api_version_number IN NUMBER Required
658: -- p_init_msg_list IN VARCHAR2 Optional Default=FND_API_G_FALSE
659: -- p_commit IN VARCHAR2 Optional Default=FND_API.G_FALSE
660: -- p_validation_level IN NUMBER Optional Default=FND_API.G_VALID_LEVEL_FULL
661: -- p_action_Tbl IN action_Tbl_Type
662: --
663: -- OUT:
656: -- IN
657: -- p_api_version_number IN NUMBER Required
658: -- p_init_msg_list IN VARCHAR2 Optional Default=FND_API_G_FALSE
659: -- p_commit IN VARCHAR2 Optional Default=FND_API.G_FALSE
660: -- p_validation_level IN NUMBER Optional Default=FND_API.G_VALID_LEVEL_FULL
661: -- p_action_Tbl IN action_Tbl_Type
662: --
663: -- OUT:
664: -- x_return_status OUT VARCHAR2
673: -- End of Comments
674: --
675: PROCEDURE Update_actions(
676: P_Api_Version_Number IN NUMBER,
677: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
678: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
679: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
680: X_Return_Status OUT NOCOPY VARCHAR2,
681: X_Msg_Count OUT NOCOPY NUMBER,
674: --
675: PROCEDURE Update_actions(
676: P_Api_Version_Number IN NUMBER,
677: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
678: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
679: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
680: X_Return_Status OUT NOCOPY VARCHAR2,
681: X_Msg_Count OUT NOCOPY NUMBER,
682: X_Msg_Data OUT NOCOPY VARCHAR2,
675: PROCEDURE Update_actions(
676: P_Api_Version_Number IN NUMBER,
677: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
678: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
679: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
680: X_Return_Status OUT NOCOPY VARCHAR2,
681: X_Msg_Count OUT NOCOPY NUMBER,
682: X_Msg_Data OUT NOCOPY VARCHAR2,
683: P_action_Tbl IN action_Tbl_Type
716: -- Standard Start of API savepoint
717: SAVEPOINT UPDATE_Actions_PVT;
718:
719: -- Standard call to check for call compatibility.
720: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
721: p_api_version_number,
722: l_api_name,
723: G_PKG_NAME)
724: THEN
721: p_api_version_number,
722: l_api_name,
723: G_PKG_NAME)
724: THEN
725: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
726: END IF;
727:
728: -- Initialize message list if p_init_msg_list is set to TRUE.
729: IF FND_API.to_Boolean( p_init_msg_list )
725: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
726: END IF;
727:
728: -- Initialize message list if p_init_msg_list is set to TRUE.
729: IF FND_API.to_Boolean( p_init_msg_list )
730: THEN
731: FND_MSG_PUB.initialize;
732: END IF;
733:
737: END IF;
738:
739:
740: -- Initialize API return status to SUCCESS
741: x_return_status := FND_API.G_RET_STS_SUCCESS;
742:
743: --
744: -- Api body
745: --
749: l_default_flag := p_action_tbl(i).default_flag;
750: l_task_template_group_id := p_action_tbl(i).task_template_group_id;
751:
752: IF (l_default_flag IS NULL) THEN
753: l_default_flag := FND_API.G_FALSE;
754: END IF;
755: -- CREATE mode
756: IF l_reason_type_id = -1
757: AND l_task_template_group_id <> -1
763: P_action_Rec => P_action_Rec,
764: p_validation_mode => JTF_PLSQL_API.g_create,
765: x_return_status => X_Return_Status
766: );
767: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
768: RAISE FND_API.G_EXC_ERROR;
769: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
770: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
771: END IF;
764: p_validation_mode => JTF_PLSQL_API.g_create,
765: x_return_status => X_Return_Status
766: );
767: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
768: RAISE FND_API.G_EXC_ERROR;
769: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
770: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
771: END IF;
772: END IF;
765: x_return_status => X_Return_Status
766: );
767: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
768: RAISE FND_API.G_EXC_ERROR;
769: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
770: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
771: END IF;
772: END IF;
773: --end of unique check.
766: );
767: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
768: RAISE FND_API.G_EXC_ERROR;
769: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
770: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
771: END IF;
772: END IF;
773: --end of unique check.
774:
772: END IF;
773: --end of unique check.
774:
775: l_object_version_number := 1;
776: l_active_flag := FND_API.G_TRUE;
777:
778: --check for unique reason type id.
779: LOOP
780: -- get reason_type_id
820: THEN
821: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_ACTION_INSERT_ERROR');
822: FND_MSG_PUB.Add;
823: END IF;
824: raise FND_API.G_EXC_ERROR;
825: END;
826: -- UPDATE mode
827: ELSE
828: -- fetch db record
840: THEN
841: FND_MESSAGE.Set_Name('OZF', 'OZF_API_RESOURCE_LOCKED');
842: FND_MSG_PUB.ADD;
843: END IF;
844: raise FND_API.G_EXC_ERROR;
845: END IF;
846:
847: l_object_version_number := p_action_tbl(i).object_version_number + 1;
848:
868: THEN
869: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_ACTION_UPDATE_ERROR');
870: FND_MSG_PUB.Add;
871: END IF;
872: raise FND_API.G_EXC_ERROR;
873: END;
874: END IF; -- end update
875:
876: END IF; -- end create and update modes
879: -- End of API body
880: --
881:
882: -- Standard check for p_commit
883: IF FND_API.to_Boolean( p_commit )
884: THEN
885: COMMIT WORK;
886: END IF;
887:
896: (p_count => x_msg_count,
897: p_data => x_msg_data
898: );
899: EXCEPTION
900: WHEN FND_API.G_EXC_ERROR THEN
901: ROLLBACK TO UPDATE_Actions_PVT;
902: x_return_status := FND_API.G_RET_STS_ERROR;
903: -- Standard call to get message count and if count=1, get the message
904: FND_MSG_PUB.Count_And_Get (
898: );
899: EXCEPTION
900: WHEN FND_API.G_EXC_ERROR THEN
901: ROLLBACK TO UPDATE_Actions_PVT;
902: x_return_status := FND_API.G_RET_STS_ERROR;
903: -- Standard call to get message count and if count=1, get the message
904: FND_MSG_PUB.Count_And_Get (
905: p_encoded => FND_API.G_FALSE,
906: p_count => x_msg_count,
901: ROLLBACK TO UPDATE_Actions_PVT;
902: x_return_status := FND_API.G_RET_STS_ERROR;
903: -- Standard call to get message count and if count=1, get the message
904: FND_MSG_PUB.Count_And_Get (
905: p_encoded => FND_API.G_FALSE,
906: p_count => x_msg_count,
907: p_data => x_msg_data
908: );
909: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
905: p_encoded => FND_API.G_FALSE,
906: p_count => x_msg_count,
907: p_data => x_msg_data
908: );
909: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
910: ROLLBACK TO UPDATE_Actions_PVT;
911: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
912: -- Standard call to get message count and if count=1, get the message
913: FND_MSG_PUB.Count_And_Get (
907: p_data => x_msg_data
908: );
909: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
910: ROLLBACK TO UPDATE_Actions_PVT;
911: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
912: -- Standard call to get message count and if count=1, get the message
913: FND_MSG_PUB.Count_And_Get (
914: p_encoded => FND_API.G_FALSE,
915: p_count => x_msg_count,
910: ROLLBACK TO UPDATE_Actions_PVT;
911: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
912: -- Standard call to get message count and if count=1, get the message
913: FND_MSG_PUB.Count_And_Get (
914: p_encoded => FND_API.G_FALSE,
915: p_count => x_msg_count,
916: p_data => x_msg_data
917: );
918: WHEN OTHERS THEN
916: p_data => x_msg_data
917: );
918: WHEN OTHERS THEN
919: ROLLBACK TO UPDATE_Actions_PVT;
920: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
921: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
922: THEN
923: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
924: END IF;
923: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
924: END IF;
925: -- Standard call to get message count and if count=1, get the message
926: FND_MSG_PUB.Count_And_Get (
927: p_encoded => FND_API.G_FALSE,
928: p_count => x_msg_count,
929: p_data => x_msg_data
930: );
931: End Update_Actions;
939: -- Pre-Req :
940: -- Parameters:
941: -- IN
942: -- p_api_version_number IN NUMBER Required
943: -- p_init_msg_list IN VARCHAR2 Optional Default=FND_API_G_FALSE
944: -- p_commit IN VARCHAR2 Optional Default=FND_API.G_FALSE
945: -- p_validation_level IN NUMBER Optional Default=FND_API.G_VALID_LEVEL_FULL
946: -- p_reason_type_id IN NUMBER
947: -- p_object_version_number IN NUMBER
940: -- Parameters:
941: -- IN
942: -- p_api_version_number IN NUMBER Required
943: -- p_init_msg_list IN VARCHAR2 Optional Default=FND_API_G_FALSE
944: -- p_commit IN VARCHAR2 Optional Default=FND_API.G_FALSE
945: -- p_validation_level IN NUMBER Optional Default=FND_API.G_VALID_LEVEL_FULL
946: -- p_reason_type_id IN NUMBER
947: -- p_object_version_number IN NUMBER
948: --
941: -- IN
942: -- p_api_version_number IN NUMBER Required
943: -- p_init_msg_list IN VARCHAR2 Optional Default=FND_API_G_FALSE
944: -- p_commit IN VARCHAR2 Optional Default=FND_API.G_FALSE
945: -- p_validation_level IN NUMBER Optional Default=FND_API.G_VALID_LEVEL_FULL
946: -- p_reason_type_id IN NUMBER
947: -- p_object_version_number IN NUMBER
948: --
949: -- OUT:
959: -- End of Comments
960: --
961: PROCEDURE Delete_action(
962: P_Api_Version_Number IN NUMBER,
963: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
964: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
965: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
966: X_Return_Status OUT NOCOPY VARCHAR2,
967: X_Msg_Count OUT NOCOPY NUMBER,
960: --
961: PROCEDURE Delete_action(
962: P_Api_Version_Number IN NUMBER,
963: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
964: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
965: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
966: X_Return_Status OUT NOCOPY VARCHAR2,
967: X_Msg_Count OUT NOCOPY NUMBER,
968: X_Msg_Data OUT NOCOPY VARCHAR2,
961: PROCEDURE Delete_action(
962: P_Api_Version_Number IN NUMBER,
963: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
964: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
965: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
966: X_Return_Status OUT NOCOPY VARCHAR2,
967: X_Msg_Count OUT NOCOPY NUMBER,
968: X_Msg_Data OUT NOCOPY VARCHAR2,
969: P_reason_type_id IN NUMBER,
978: -- Standard Start of API savepoint
979: SAVEPOINT DELETE_Action_PVT;
980:
981: -- Standard call to check for call compatibility.
982: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
983: p_api_version_number,
984: l_api_name,
985: G_PKG_NAME)
986: THEN
983: p_api_version_number,
984: l_api_name,
985: G_PKG_NAME)
986: THEN
987: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
988: END IF;
989:
990: -- Initialize message list if p_init_msg_list is set to TRUE.
991: IF FND_API.to_Boolean( p_init_msg_list )
987: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
988: END IF;
989:
990: -- Initialize message list if p_init_msg_list is set to TRUE.
991: IF FND_API.to_Boolean( p_init_msg_list )
992: THEN
993: FND_MSG_PUB.initialize;
994: END IF;
995:
999: END IF;
1000:
1001:
1002: -- Initialize API return status to SUCCESS
1003: x_return_status := FND_API.G_RET_STS_SUCCESS;
1004:
1005: --
1006: -- Api body
1007: --
1020: THEN
1021: FND_MESSAGE.Set_Name('OZF', 'OZF_API_RESOURCE_LOCKED');
1022: FND_MSG_PUB.ADD;
1023: END IF;
1024: raise FND_API.G_EXC_ERROR;
1025: End If;
1026: --
1027: -- End of API body
1028: --
1027: -- End of API body
1028: --
1029:
1030: -- Standard check for p_commit
1031: IF FND_API.to_Boolean( p_commit )
1032: THEN
1033: COMMIT WORK;
1034: END IF;
1035:
1044: (p_count => x_msg_count,
1045: p_data => x_msg_data
1046: );
1047: EXCEPTION
1048: WHEN FND_API.G_EXC_ERROR THEN
1049: ROLLBACK TO DELETE_Action_PVT;
1050: x_return_status := FND_API.G_RET_STS_ERROR;
1051: -- Standard call to get message count and if count=1, get the message
1052: FND_MSG_PUB.Count_And_Get (
1046: );
1047: EXCEPTION
1048: WHEN FND_API.G_EXC_ERROR THEN
1049: ROLLBACK TO DELETE_Action_PVT;
1050: x_return_status := FND_API.G_RET_STS_ERROR;
1051: -- Standard call to get message count and if count=1, get the message
1052: FND_MSG_PUB.Count_And_Get (
1053: p_encoded => FND_API.G_FALSE,
1054: p_count => x_msg_count,
1049: ROLLBACK TO DELETE_Action_PVT;
1050: x_return_status := FND_API.G_RET_STS_ERROR;
1051: -- Standard call to get message count and if count=1, get the message
1052: FND_MSG_PUB.Count_And_Get (
1053: p_encoded => FND_API.G_FALSE,
1054: p_count => x_msg_count,
1055: p_data => x_msg_data
1056: );
1057: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1053: p_encoded => FND_API.G_FALSE,
1054: p_count => x_msg_count,
1055: p_data => x_msg_data
1056: );
1057: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1058: ROLLBACK TO DELETE_Action_PVT;
1059: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1060: -- Standard call to get message count and if count=1, get the message
1061: FND_MSG_PUB.Count_And_Get (
1055: p_data => x_msg_data
1056: );
1057: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1058: ROLLBACK TO DELETE_Action_PVT;
1059: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1060: -- Standard call to get message count and if count=1, get the message
1061: FND_MSG_PUB.Count_And_Get (
1062: p_encoded => FND_API.G_FALSE,
1063: p_count => x_msg_count,
1058: ROLLBACK TO DELETE_Action_PVT;
1059: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1060: -- Standard call to get message count and if count=1, get the message
1061: FND_MSG_PUB.Count_And_Get (
1062: p_encoded => FND_API.G_FALSE,
1063: p_count => x_msg_count,
1064: p_data => x_msg_data
1065: );
1066: WHEN OTHERS THEN
1064: p_data => x_msg_data
1065: );
1066: WHEN OTHERS THEN
1067: ROLLBACK TO DELETE_Action_PVT;
1068: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1069: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1070: THEN
1071: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1072: END IF;
1071: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1072: END IF;
1073: -- Standard call to get message count and if count=1, get the message
1074: FND_MSG_PUB.Count_And_Get (
1075: p_encoded => FND_API.G_FALSE,
1076: p_count => x_msg_count,
1077: p_data => x_msg_data
1078: );
1079: End Delete_action;
1104: )
1105: IS
1106: l_valid_flag VARCHAR2(1);
1107: BEGIN
1108: x_return_status := FND_API.G_RET_STS_SUCCESS;
1109:
1110: IF OZF_DEBUG_HIGH_ON THEN
1111: OZF_UTILITY_PVT.debug_message('Inside Check_unique_Action - p_validation_mode' || p_validation_mode);
1112:
1121: ' AND REASON_CODE_ID = '||' '|| P_action_Rec.REASON_CODE_ID
1122: );
1123: END IF;
1124:
1125: IF l_valid_flag = FND_API.g_false THEN
1126: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_DUPLICATE_ACTION');
1127: x_return_status := FND_API.g_ret_sts_error;
1128: RETURN;
1129: END IF;
1123: END IF;
1124:
1125: IF l_valid_flag = FND_API.g_false THEN
1126: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_DUPLICATE_ACTION');
1127: x_return_status := FND_API.g_ret_sts_error;
1128: RETURN;
1129: END IF;
1130:
1131: END Check_unique_Action;
1151: -- Complete_reason_Rec
1152: --
1153: -- PURPOSE
1154: -- For Update_reason, some attributes may be passed in as
1155: -- FND_API.g_miss_char/num/date if the user doesn't want to
1156: -- update those attributes. This procedure will replace the
1157: -- "g_miss" attributes with current database values.
1158: --
1159: -- PARAMETERS
1157: -- "g_miss" attributes with current database values.
1158: --
1159: -- PARAMETERS
1160: -- p_claim_rec : the record which may contain attributes as
1161: -- FND_API.g_miss_char/num/date
1162: -- x_complete_rec: the complete record after all "g_miss" items
1163: -- have been replaced by current database values
1164: ---------------------------------------------------------------------
1165:
1177: l_reason_rec c_reason%ROWTYPE;
1178: BEGIN
1179:
1180: -- Initialize API return status to sucess
1181: x_return_status := FND_API.G_RET_STS_SUCCESS;
1182:
1183: x_complete_rec := P_reason_Rec;
1184:
1185: OPEN c_reason(P_reason_Rec.reason_code_id);
1189: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1190: FND_MESSAGE.set_name('OZF','OZF_API_RECORD_NOT_FOUND');
1191: FND_MSG_PUB.add;
1192: END IF;
1193: RAISE FND_API.g_exc_error;
1194: END IF;
1195: CLOSE c_reason;
1196:
1197: IF P_reason_Rec.reason_code_id = FND_API.G_MISS_NUM THEN
1193: RAISE FND_API.g_exc_error;
1194: END IF;
1195: CLOSE c_reason;
1196:
1197: IF P_reason_Rec.reason_code_id = FND_API.G_MISS_NUM THEN
1198: x_complete_rec.reason_code_id := NULL;
1199: END IF;
1200: IF P_reason_Rec.reason_code_id IS NULL THEN
1201: x_complete_rec.reason_code_id := l_reason_rec.reason_code_id;
1200: IF P_reason_Rec.reason_code_id IS NULL THEN
1201: x_complete_rec.reason_code_id := l_reason_rec.reason_code_id;
1202: END IF;
1203:
1204: IF P_reason_Rec.last_update_login = FND_API.G_MISS_NUM THEN
1205: x_complete_rec.last_update_login := NULL;
1206: END IF;
1207: IF P_reason_Rec.last_update_login IS NULL THEN
1208: x_complete_rec.last_update_login := l_reason_rec.last_update_login;
1207: IF P_reason_Rec.last_update_login IS NULL THEN
1208: x_complete_rec.last_update_login := l_reason_rec.last_update_login;
1209: END IF;
1210:
1211: IF P_reason_Rec.reason_type = FND_API.G_MISS_CHAR THEN
1212: x_complete_rec.reason_type := NULL;
1213: END IF;
1214: IF P_reason_Rec.reason_type IS NULL THEN
1215: x_complete_rec.reason_type := l_reason_rec.reason_type;
1215: x_complete_rec.reason_type := l_reason_rec.reason_type;
1216: END IF;
1217:
1218:
1219: IF P_reason_Rec.reason_code = FND_API.G_MISS_CHAR THEN
1220: x_complete_rec.reason_code := NULL;
1221: END IF;
1222: IF P_reason_Rec.reason_code IS NULL THEN
1223: x_complete_rec.reason_code := l_reason_rec.reason_code;
1222: IF P_reason_Rec.reason_code IS NULL THEN
1223: x_complete_rec.reason_code := l_reason_rec.reason_code;
1224: END IF;
1225:
1226: IF P_reason_Rec.start_date_active = FND_API.G_MISS_DATE THEN
1227: x_complete_rec.start_date_active := NULL;
1228: END IF;
1229: IF P_reason_Rec.start_date_active IS NULL THEN
1230: x_complete_rec.start_date_active := l_reason_rec.start_date_active;
1229: IF P_reason_Rec.start_date_active IS NULL THEN
1230: x_complete_rec.start_date_active := l_reason_rec.start_date_active;
1231: END IF;
1232:
1233: IF P_reason_Rec.end_date_active = FND_API.G_MISS_DATE THEN
1234: x_complete_rec.end_date_active := NULL;
1235: END IF;
1236: IF P_reason_Rec.end_date_active IS NULL THEN
1237: x_complete_rec.end_date_active := l_reason_rec.end_date_active;
1236: IF P_reason_Rec.end_date_active IS NULL THEN
1237: x_complete_rec.end_date_active := l_reason_rec.end_date_active;
1238: END IF;
1239:
1240: IF P_reason_Rec.attribute_category = FND_API.G_MISS_CHAR THEN
1241: x_complete_rec.attribute_category := NULL;
1242: END IF;
1243: IF P_reason_Rec.attribute_category IS NULL THEN
1244: x_complete_rec.attribute_category := l_reason_rec.attribute_category;
1243: IF P_reason_Rec.attribute_category IS NULL THEN
1244: x_complete_rec.attribute_category := l_reason_rec.attribute_category;
1245: END IF;
1246:
1247: IF P_reason_Rec.attribute1 = FND_API.G_MISS_CHAR THEN
1248: x_complete_rec.attribute1 := NULL;
1249: END IF;
1250: IF P_reason_Rec.attribute1 IS NULL THEN
1251: x_complete_rec.attribute1 := l_reason_rec.attribute1;
1250: IF P_reason_Rec.attribute1 IS NULL THEN
1251: x_complete_rec.attribute1 := l_reason_rec.attribute1;
1252: END IF;
1253:
1254: IF P_reason_Rec.attribute2 = FND_API.G_MISS_CHAR THEN
1255: x_complete_rec.attribute2 := NULL;
1256: END IF;
1257: IF P_reason_Rec.attribute2 IS NULL THEN
1258: x_complete_rec.attribute2 := l_reason_rec.attribute2;
1256: END IF;
1257: IF P_reason_Rec.attribute2 IS NULL THEN
1258: x_complete_rec.attribute2 := l_reason_rec.attribute2;
1259: END IF;
1260: IF P_reason_Rec.attribute3 = FND_API.G_MISS_CHAR THEN
1261: x_complete_rec.attribute3 := NULL;
1262: END IF;
1263: IF P_reason_Rec.attribute3 IS NULL THEN
1264: x_complete_rec.attribute3 := l_reason_rec.attribute3;
1262: END IF;
1263: IF P_reason_Rec.attribute3 IS NULL THEN
1264: x_complete_rec.attribute3 := l_reason_rec.attribute3;
1265: END IF;
1266: IF P_reason_Rec.attribute4 = FND_API.G_MISS_CHAR THEN
1267: x_complete_rec.attribute4 := NULL;
1268: END IF;
1269: IF P_reason_Rec.attribute4 IS NULL THEN
1270: x_complete_rec.attribute4 := l_reason_rec.attribute4;
1268: END IF;
1269: IF P_reason_Rec.attribute4 IS NULL THEN
1270: x_complete_rec.attribute4 := l_reason_rec.attribute4;
1271: END IF;
1272: IF P_reason_Rec.attribute5 = FND_API.G_MISS_CHAR THEN
1273: x_complete_rec.attribute5 := NULL;
1274: END IF;
1275: IF P_reason_Rec.attribute5 IS NULL THEN
1276: x_complete_rec.attribute5 := l_reason_rec.attribute5;
1274: END IF;
1275: IF P_reason_Rec.attribute5 IS NULL THEN
1276: x_complete_rec.attribute5 := l_reason_rec.attribute5;
1277: END IF;
1278: IF P_reason_Rec.attribute6 = FND_API.G_MISS_CHAR THEN
1279: x_complete_rec.attribute6 := NULL;
1280: END IF;
1281: IF P_reason_Rec.attribute6 IS NULL THEN
1282: x_complete_rec.attribute6 := l_reason_rec.attribute6;
1280: END IF;
1281: IF P_reason_Rec.attribute6 IS NULL THEN
1282: x_complete_rec.attribute6 := l_reason_rec.attribute6;
1283: END IF;
1284: IF P_reason_Rec.attribute7 = FND_API.G_MISS_CHAR THEN
1285: x_complete_rec.attribute7 := NULL;
1286: END IF;
1287: IF P_reason_Rec.attribute7 IS NULL THEN
1288: x_complete_rec.attribute7 := l_reason_rec.attribute7;
1286: END IF;
1287: IF P_reason_Rec.attribute7 IS NULL THEN
1288: x_complete_rec.attribute7 := l_reason_rec.attribute7;
1289: END IF;
1290: IF P_reason_Rec.attribute8 = FND_API.G_MISS_CHAR THEN
1291: x_complete_rec.attribute8 := NULL;
1292: END IF;
1293: IF P_reason_Rec.attribute8 IS NULL THEN
1294: x_complete_rec.attribute8 := l_reason_rec.attribute8;
1292: END IF;
1293: IF P_reason_Rec.attribute8 IS NULL THEN
1294: x_complete_rec.attribute8 := l_reason_rec.attribute8;
1295: END IF;
1296: IF P_reason_Rec.attribute9 = FND_API.G_MISS_CHAR THEN
1297: x_complete_rec.attribute9 := NULL;
1298: END IF;
1299: IF P_reason_Rec.attribute9 IS NULL THEN
1300: x_complete_rec.attribute9 := l_reason_rec.attribute9;
1298: END IF;
1299: IF P_reason_Rec.attribute9 IS NULL THEN
1300: x_complete_rec.attribute9 := l_reason_rec.attribute9;
1301: END IF;
1302: IF P_reason_Rec.attribute10 = FND_API.G_MISS_CHAR THEN
1303: x_complete_rec.attribute10 := NULL;
1304: END IF;
1305: IF P_reason_Rec.attribute10 IS NULL THEN
1306: x_complete_rec.attribute10 := l_reason_rec.attribute10;
1304: END IF;
1305: IF P_reason_Rec.attribute10 IS NULL THEN
1306: x_complete_rec.attribute10 := l_reason_rec.attribute10;
1307: END IF;
1308: IF P_reason_Rec.attribute11 = FND_API.G_MISS_CHAR THEN
1309: x_complete_rec.attribute11 := NULL;
1310: END IF;
1311: IF P_reason_Rec.attribute11 IS NULL THEN
1312: x_complete_rec.attribute11 := l_reason_rec.attribute11;
1310: END IF;
1311: IF P_reason_Rec.attribute11 IS NULL THEN
1312: x_complete_rec.attribute11 := l_reason_rec.attribute11;
1313: END IF;
1314: IF P_reason_Rec.attribute12 = FND_API.G_MISS_CHAR THEN
1315: x_complete_rec.attribute12 := NULL;
1316: END IF;
1317: IF P_reason_Rec.attribute12 IS NULL THEN
1318: x_complete_rec.attribute12 := l_reason_rec.attribute12;
1316: END IF;
1317: IF P_reason_Rec.attribute12 IS NULL THEN
1318: x_complete_rec.attribute12 := l_reason_rec.attribute12;
1319: END IF;
1320: IF P_reason_Rec.attribute13 = FND_API.G_MISS_CHAR THEN
1321: x_complete_rec.attribute13 := NULL;
1322: END IF;
1323: IF P_reason_Rec.attribute13 IS NULL THEN
1324: x_complete_rec.attribute13 := l_reason_rec.attribute13;
1322: END IF;
1323: IF P_reason_Rec.attribute13 IS NULL THEN
1324: x_complete_rec.attribute13 := l_reason_rec.attribute13;
1325: END IF;
1326: IF P_reason_Rec.attribute14 = FND_API.G_MISS_CHAR THEN
1327: x_complete_rec.attribute14 := NULL;
1328: END IF;
1329: IF P_reason_Rec.attribute14 IS NULL THEN
1330: x_complete_rec.attribute14 := l_reason_rec.attribute14;
1328: END IF;
1329: IF P_reason_Rec.attribute14 IS NULL THEN
1330: x_complete_rec.attribute14 := l_reason_rec.attribute14;
1331: END IF;
1332: IF P_reason_Rec.attribute15 = FND_API.G_MISS_CHAR THEN
1333: x_complete_rec.attribute15 := NULL;
1334: END IF;
1335: IF P_reason_Rec.attribute15 IS NULL THEN
1336: x_complete_rec.attribute15 := l_reason_rec.attribute15;
1335: IF P_reason_Rec.attribute15 IS NULL THEN
1336: x_complete_rec.attribute15 := l_reason_rec.attribute15;
1337: END IF;
1338:
1339: IF P_reason_Rec.org_id = FND_API.G_MISS_NUM THEN
1340: x_complete_rec.org_id := NULL;
1341: END IF;
1342: IF P_reason_Rec.org_id IS NULL THEN
1343: x_complete_rec.org_id := l_reason_rec.org_id;
1342: IF P_reason_Rec.org_id IS NULL THEN
1343: x_complete_rec.org_id := l_reason_rec.org_id;
1344: END IF;
1345:
1346: IF P_reason_Rec.adjustment_reason_code = FND_API.G_MISS_CHAR THEN
1347: x_complete_rec.adjustment_reason_code := NULL;
1348: END IF;
1349: IF P_reason_Rec.adjustment_reason_code IS NULL THEN
1350: x_complete_rec.adjustment_reason_code := l_reason_rec.adjustment_reason_code;
1349: IF P_reason_Rec.adjustment_reason_code IS NULL THEN
1350: x_complete_rec.adjustment_reason_code := l_reason_rec.adjustment_reason_code;
1351: END IF;
1352:
1353: IF P_reason_Rec.invoicing_reason_code = FND_API.G_MISS_CHAR THEN
1354: x_complete_rec.invoicing_reason_code := NULL;
1355: END IF;
1356: IF P_reason_Rec.invoicing_reason_code IS NULL THEN
1357: x_complete_rec.invoicing_reason_code := l_reason_rec.invoicing_reason_code;
1357: x_complete_rec.invoicing_reason_code := l_reason_rec.invoicing_reason_code;
1358: END IF;
1359:
1360:
1361: IF P_reason_Rec.order_type_id = FND_API.G_MISS_NUM THEN
1362: x_complete_rec.order_type_id := NULL;
1363: END IF;
1364: IF P_reason_Rec.order_type_id IS NULL THEN
1365: x_complete_rec.order_type_id := l_reason_rec.order_type_id;
1364: IF P_reason_Rec.order_type_id IS NULL THEN
1365: x_complete_rec.order_type_id := l_reason_rec.order_type_id;
1366: END IF;
1367:
1368: IF P_reason_Rec.partner_access_flag = FND_API.G_MISS_CHAR THEN
1369: x_complete_rec.partner_access_flag := NULL;
1370: END IF;
1371: IF P_reason_Rec.partner_access_flag IS NULL THEN
1372: x_complete_rec.partner_access_flag := l_reason_rec.partner_access_flag;
1373: END IF;
1374:
1375:
1376: EXCEPTION
1377: WHEN FND_API.G_EXC_ERROR THEN
1378: x_return_status := FND_API.G_RET_STS_ERROR;
1379: WHEN OTHERS THEN
1380: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1381: FND_MESSAGE.set_name('OZF', 'OZF_REASON_COMPLETE_ERROR');
1374:
1375:
1376: EXCEPTION
1377: WHEN FND_API.G_EXC_ERROR THEN
1378: x_return_status := FND_API.G_RET_STS_ERROR;
1379: WHEN OTHERS THEN
1380: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1381: FND_MESSAGE.set_name('OZF', 'OZF_REASON_COMPLETE_ERROR');
1382: FND_MSG_PUB.add;
1380: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1381: FND_MESSAGE.set_name('OZF', 'OZF_REASON_COMPLETE_ERROR');
1382: FND_MSG_PUB.add;
1383: END IF;
1384: x_return_status := FND_API.g_ret_sts_unexp_error;
1385:
1386:
1387: END Complete_reason_Rec;
1388:
1387: END Complete_reason_Rec;
1388:
1389: PROCEDURE Validate_reason(
1390: P_Api_Version_Number IN NUMBER,
1391: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1392: P_Validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1393: P_reason_Rec IN reason_Rec_Type,
1394: X_Return_Status OUT NOCOPY VARCHAR2,
1395: X_Msg_Count OUT NOCOPY NUMBER,
1388:
1389: PROCEDURE Validate_reason(
1390: P_Api_Version_Number IN NUMBER,
1391: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1392: P_Validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1393: P_reason_Rec IN reason_Rec_Type,
1394: X_Return_Status OUT NOCOPY VARCHAR2,
1395: X_Msg_Count OUT NOCOPY NUMBER,
1396: X_Msg_Data OUT NOCOPY VARCHAR2
1405: -- Standard Start of API savepoint
1406: SAVEPOINT VALIDATE_Reason_;
1407:
1408: -- Standard call to check for call compatibility.
1409: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1410: p_api_version_number,
1411: l_api_name,
1412: G_PKG_NAME)
1413: THEN
1410: p_api_version_number,
1411: l_api_name,
1412: G_PKG_NAME)
1413: THEN
1414: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1415: END IF;
1416:
1417: -- Initialize message list if p_init_msg_list is set to TRUE.
1418: IF FND_API.to_Boolean( p_init_msg_list )
1414: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1415: END IF;
1416:
1417: -- Initialize message list if p_init_msg_list is set to TRUE.
1418: IF FND_API.to_Boolean( p_init_msg_list )
1419: THEN
1420: FND_MSG_PUB.initialize;
1421: END IF;
1422: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
1425: p_validation_mode => JTF_PLSQL_API.g_update,
1426: x_return_status => x_return_status
1427: );
1428:
1429: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1430: RAISE FND_API.G_EXC_ERROR;
1431: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1432: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1433: END IF;
1426: x_return_status => x_return_status
1427: );
1428:
1429: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1430: RAISE FND_API.G_EXC_ERROR;
1431: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1432: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1433: END IF;
1434: END IF;
1427: );
1428:
1429: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1430: RAISE FND_API.G_EXC_ERROR;
1431: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1432: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1433: END IF;
1434: END IF;
1435: l_reason_Rec := P_reason_Rec;
1428:
1429: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1430: RAISE FND_API.G_EXC_ERROR;
1431: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1432: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1433: END IF;
1434: END IF;
1435: l_reason_Rec := P_reason_Rec;
1436:
1437:
1438: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
1439: Validate_reason_Rec(
1440: p_api_version_number => 1.0,
1441: p_init_msg_list => FND_API.G_FALSE,
1442: x_return_status => x_return_status,
1443: x_msg_count => x_msg_count,
1444: x_msg_data => x_msg_data,
1445: P_reason_Rec => l_reason_Rec);
1443: x_msg_count => x_msg_count,
1444: x_msg_data => x_msg_data,
1445: P_reason_Rec => l_reason_Rec);
1446:
1447: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1448: RAISE FND_API.G_EXC_ERROR;
1449: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1450: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1451: END IF;
1444: x_msg_data => x_msg_data,
1445: P_reason_Rec => l_reason_Rec);
1446:
1447: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1448: RAISE FND_API.G_EXC_ERROR;
1449: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1450: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1451: END IF;
1452: END IF;
1445: P_reason_Rec => l_reason_Rec);
1446:
1447: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1448: RAISE FND_API.G_EXC_ERROR;
1449: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1450: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1451: END IF;
1452: END IF;
1453:
1446:
1447: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1448: RAISE FND_API.G_EXC_ERROR;
1449: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1450: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1451: END IF;
1452: END IF;
1453:
1454:
1458: END IF;
1459:
1460:
1461: -- Initialize API return status to SUCCESS
1462: x_return_status := FND_API.G_RET_STS_SUCCESS;
1463:
1464:
1465: -- Debug Message
1466: IF OZF_DEBUG_HIGH_ON THEN
1472: (p_count => x_msg_count,
1473: p_data => x_msg_data
1474: );
1475: EXCEPTION
1476: WHEN FND_API.G_EXC_ERROR THEN
1477: ROLLBACK TO VALIDATE_Reason_;
1478: x_return_status := FND_API.G_RET_STS_ERROR;
1479: -- Standard call to get message count and if count=1, get the message
1480: FND_MSG_PUB.Count_And_Get (
1474: );
1475: EXCEPTION
1476: WHEN FND_API.G_EXC_ERROR THEN
1477: ROLLBACK TO VALIDATE_Reason_;
1478: x_return_status := FND_API.G_RET_STS_ERROR;
1479: -- Standard call to get message count and if count=1, get the message
1480: FND_MSG_PUB.Count_And_Get (
1481: p_encoded => FND_API.G_FALSE,
1482: p_count => x_msg_count,
1477: ROLLBACK TO VALIDATE_Reason_;
1478: x_return_status := FND_API.G_RET_STS_ERROR;
1479: -- Standard call to get message count and if count=1, get the message
1480: FND_MSG_PUB.Count_And_Get (
1481: p_encoded => FND_API.G_FALSE,
1482: p_count => x_msg_count,
1483: p_data => x_msg_data
1484: );
1485: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1481: p_encoded => FND_API.G_FALSE,
1482: p_count => x_msg_count,
1483: p_data => x_msg_data
1484: );
1485: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1486: ROLLBACK TO VALIDATE_Reason_;
1487: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1488: -- Standard call to get message count and if count=1, get the message
1489: FND_MSG_PUB.Count_And_Get (
1483: p_data => x_msg_data
1484: );
1485: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1486: ROLLBACK TO VALIDATE_Reason_;
1487: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1488: -- Standard call to get message count and if count=1, get the message
1489: FND_MSG_PUB.Count_And_Get (
1490: p_encoded => FND_API.G_FALSE,
1491: p_count => x_msg_count,
1486: ROLLBACK TO VALIDATE_Reason_;
1487: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1488: -- Standard call to get message count and if count=1, get the message
1489: FND_MSG_PUB.Count_And_Get (
1490: p_encoded => FND_API.G_FALSE,
1491: p_count => x_msg_count,
1492: p_data => x_msg_data
1493: );
1494: WHEN OTHERS THEN
1492: p_data => x_msg_data
1493: );
1494: WHEN OTHERS THEN
1495: ROLLBACK TO VALIDATE_Reason_;
1496: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1497: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1498: THEN
1499: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1500: END IF;
1499: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1500: END IF;
1501: -- Standard call to get message count and if count=1, get the message
1502: FND_MSG_PUB.Count_And_Get (
1503: p_encoded => FND_API.G_FALSE,
1504: p_count => x_msg_count,
1505: p_data => x_msg_data
1506: );
1507: End Validate_reason;
1508:
1509:
1510: PROCEDURE Validate_reason_rec(
1511: P_Api_Version_Number IN NUMBER,
1512: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1513: X_Return_Status OUT NOCOPY VARCHAR2,
1514: X_Msg_Count OUT NOCOPY NUMBER,
1515: X_Msg_Data OUT NOCOPY VARCHAR2,
1516: P_reason_Rec IN reason_Rec_Type
1528: WHERE transaction_type_id = cv_id;
1529:
1530: BEGIN
1531: -- Initialize message list if p_init_msg_list is set to TRUE.
1532: IF FND_API.to_Boolean( p_init_msg_list )
1533: THEN
1534: FND_MSG_PUB.initialize;
1535: END IF;
1536:
1534: FND_MSG_PUB.initialize;
1535: END IF;
1536:
1537: -- Initialize API return status to SUCCESS
1538: x_return_status := FND_API.G_RET_STS_SUCCESS;
1539:
1540: -- Hint: Validate data
1541: -- If data not valid
1542: -- THEN
1539:
1540: -- Hint: Validate data
1541: -- If data not valid
1542: -- THEN
1543: -- x_return_status := FND_API.G_RET_STS_ERROR;
1544:
1545: l_reason_name := P_reason_Rec.NAME;
1546: l_start_date := P_reason_Rec.START_DATE_ACTIVE;
1547: l_end_date := P_reason_Rec.END_DATE_ACTIVE;
1547: l_end_date := P_reason_Rec.END_DATE_ACTIVE;
1548:
1549: -- Check for null reason name.
1550: IF( (l_reason_name IS NULL)
1551: OR (l_reason_name = FND_API.G_MISS_CHAR) )
1552: THEN
1553: FND_MESSAGE.Set_Name('OZF', 'OZF_REASON_NULL_NAME');
1554: FND_MSG_PUB.ADD;
1555: x_return_status := FND_API.G_RET_STS_ERROR;
1551: OR (l_reason_name = FND_API.G_MISS_CHAR) )
1552: THEN
1553: FND_MESSAGE.Set_Name('OZF', 'OZF_REASON_NULL_NAME');
1554: FND_MSG_PUB.ADD;
1555: x_return_status := FND_API.G_RET_STS_ERROR;
1556: END IF;
1557:
1558: -- Check for null start date
1559: IF( (l_start_date IS NULL)
1556: END IF;
1557:
1558: -- Check for null start date
1559: IF( (l_start_date IS NULL)
1560: OR (l_start_date = FND_API.G_MISS_DATE) )
1561: THEN
1562: FND_MESSAGE.Set_Name('OZF', 'OZF_REASON_NULL_STDATE');
1563: FND_MSG_PUB.ADD;
1564: x_return_status := FND_API.G_RET_STS_ERROR;
1560: OR (l_start_date = FND_API.G_MISS_DATE) )
1561: THEN
1562: FND_MESSAGE.Set_Name('OZF', 'OZF_REASON_NULL_STDATE');
1563: FND_MSG_PUB.ADD;
1564: x_return_status := FND_API.G_RET_STS_ERROR;
1565: END IF;
1566:
1567: -- End date validation.
1568: IF( (l_end_date IS NOT NULL)
1565: END IF;
1566:
1567: -- End date validation.
1568: IF( (l_end_date IS NOT NULL)
1569: AND (l_end_date <> FND_API.G_MISS_DATE) )
1570: THEN
1571: IF( l_start_date > l_end_date )
1572: THEN
1573: FND_MESSAGE.Set_Name('OZF', 'OZF_REASON_STDATE_GT_ENDDATE');
1571: IF( l_start_date > l_end_date )
1572: THEN
1573: FND_MESSAGE.Set_Name('OZF', 'OZF_REASON_STDATE_GT_ENDDATE');
1574: FND_MSG_PUB.ADD;
1575: x_return_status := FND_API.G_RET_STS_ERROR;
1576: END IF;
1577: END IF;
1578:
1579: --Check the validity of OM Transaction type
1584:
1585: IF l_dummy <> 1 THEN
1586: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_INVALID_OM_TRX_TYPE');
1587: FND_MSG_PUB.add;
1588: x_return_status := FND_API.G_RET_STS_ERROR;
1589: RETURN;
1590: END IF;
1591: END IF;
1592: