18: | 14-NOV-2002 mchang Create.
19: *=======================================================================*/
20: PROCEDURE Default_Claim_Line(
21: p_api_version IN NUMBER
22: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
23: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
24:
25: ,x_return_status OUT NOCOPY VARCHAR2
26: ,x_msg_data OUT NOCOPY VARCHAR2
19: *=======================================================================*/
20: PROCEDURE Default_Claim_Line(
21: p_api_version IN NUMBER
22: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
23: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
24:
25: ,x_return_status OUT NOCOPY VARCHAR2
26: ,x_msg_data OUT NOCOPY VARCHAR2
27: ,x_msg_count OUT NOCOPY NUMBER
47: OZF_Utility_PVT.debug_message(l_full_name||' : start');
48: END IF;
49:
50: -- Initialize API return status to sucess
51: x_return_status := FND_API.g_ret_sts_success;
52:
53: ------------------------------------------------
54: IF p_x_claim_line_rec.source_object_class IS NULL THEN
55: p_x_claim_line_rec.source_object_id := NULL;
63: OPEN csr_settlement_method(p_x_claim_line_rec.claim_id);
64: FETCH csr_settlement_method INTO l_settlement_method;
65: CLOSE csr_settlement_method;
66:
67: IF p_def_from_tbl_flag = FND_API.g_false THEN
68: IF l_settlement_method = 'RMA' THEN
69: OZF_OM_VALIDATION_PVT.Default_Claim_Line(
70: p_api_version => l_api_version
71: ,p_init_msg_list => p_init_msg_list
74: ,x_msg_data => x_msg_data
75: ,x_msg_count => x_msg_count
76: ,p_x_claim_line_rec => p_x_claim_line_rec
77: );
78: IF l_return_status = FND_API.g_ret_sts_error THEN
79: RAISE FND_API.g_exc_error;
80: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
81: RAISE FND_API.g_exc_unexpected_error;
82: END IF;
75: ,x_msg_count => x_msg_count
76: ,p_x_claim_line_rec => p_x_claim_line_rec
77: );
78: IF l_return_status = FND_API.g_ret_sts_error THEN
79: RAISE FND_API.g_exc_error;
80: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
81: RAISE FND_API.g_exc_unexpected_error;
82: END IF;
83: END IF;
76: ,p_x_claim_line_rec => p_x_claim_line_rec
77: );
78: IF l_return_status = FND_API.g_ret_sts_error THEN
79: RAISE FND_API.g_exc_error;
80: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
81: RAISE FND_API.g_exc_unexpected_error;
82: END IF;
83: END IF;
84: END IF;
77: );
78: IF l_return_status = FND_API.g_ret_sts_error THEN
79: RAISE FND_API.g_exc_error;
80: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
81: RAISE FND_API.g_exc_unexpected_error;
82: END IF;
83: END IF;
84: END IF;
85:
86: IF OZF_DEBUG_HIGH_ON THEN
87: OZF_Utility_PVT.debug_message(l_full_name||' : end');
88: END IF;
89: EXCEPTION
90: WHEN FND_API.G_EXC_ERROR THEN
91: x_return_status := FND_API.G_RET_STS_ERROR;
92: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
93: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
94: WHEN OTHERS THEN
87: OZF_Utility_PVT.debug_message(l_full_name||' : end');
88: END IF;
89: EXCEPTION
90: WHEN FND_API.G_EXC_ERROR THEN
91: x_return_status := FND_API.G_RET_STS_ERROR;
92: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
93: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
94: WHEN OTHERS THEN
95: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
88: END IF;
89: EXCEPTION
90: WHEN FND_API.G_EXC_ERROR THEN
91: x_return_status := FND_API.G_RET_STS_ERROR;
92: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
93: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
94: WHEN OTHERS THEN
95: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
96: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
89: EXCEPTION
90: WHEN FND_API.G_EXC_ERROR THEN
91: x_return_status := FND_API.G_RET_STS_ERROR;
92: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
93: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
94: WHEN OTHERS THEN
95: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
96: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
97: END IF;
94: WHEN OTHERS THEN
95: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
96: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
97: END IF;
98: x_return_status := FND_API.g_ret_sts_unexp_error;
99:
100: END Default_Claim_Line;
101:
102:
141: OZF_Utility_PVT.debug_message(l_full_name||' : start');
142: END IF;
143:
144: -- Initialize API return status to sucess
145: x_return_status := FND_API.g_ret_sts_success;
146:
147: i := p_x_claim_line_tbl.FIRST;
148: IF i IS NOT NULL THEN
149: LOOP
155: ,x_return_status => l_return_status
156: ,x_msg_data => x_msg_data
157: ,x_msg_count => x_msg_count
158: ,p_x_claim_line_rec => l_claim_line_rec
159: ,p_def_from_tbl_flag => FND_API.g_true
160: );
161: p_x_claim_line_tbl(i) := l_claim_line_rec;
162: IF l_return_status = FND_API.g_ret_sts_error THEN
163: RAISE FND_API.g_exc_error;
158: ,p_x_claim_line_rec => l_claim_line_rec
159: ,p_def_from_tbl_flag => FND_API.g_true
160: );
161: p_x_claim_line_tbl(i) := l_claim_line_rec;
162: IF l_return_status = FND_API.g_ret_sts_error THEN
163: RAISE FND_API.g_exc_error;
164: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
165: RAISE FND_API.g_exc_unexpected_error;
166: END IF;
159: ,p_def_from_tbl_flag => FND_API.g_true
160: );
161: p_x_claim_line_tbl(i) := l_claim_line_rec;
162: IF l_return_status = FND_API.g_ret_sts_error THEN
163: RAISE FND_API.g_exc_error;
164: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
165: RAISE FND_API.g_exc_unexpected_error;
166: END IF;
167: EXIT WHEN i = p_x_claim_line_tbl.LAST;
160: );
161: p_x_claim_line_tbl(i) := l_claim_line_rec;
162: IF l_return_status = FND_API.g_ret_sts_error THEN
163: RAISE FND_API.g_exc_error;
164: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
165: RAISE FND_API.g_exc_unexpected_error;
166: END IF;
167: EXIT WHEN i = p_x_claim_line_tbl.LAST;
168: i := p_x_claim_line_tbl.NEXT(i);
161: p_x_claim_line_tbl(i) := l_claim_line_rec;
162: IF l_return_status = FND_API.g_ret_sts_error THEN
163: RAISE FND_API.g_exc_error;
164: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
165: RAISE FND_API.g_exc_unexpected_error;
166: END IF;
167: EXIT WHEN i = p_x_claim_line_tbl.LAST;
168: i := p_x_claim_line_tbl.NEXT(i);
169: END LOOP;
181: ,x_msg_data => x_msg_data
182: ,x_msg_count => x_msg_count
183: ,p_x_claim_line_tbl => p_x_claim_line_tbl
184: );
185: IF l_return_status = FND_API.g_ret_sts_error THEN
186: RAISE FND_API.g_exc_error;
187: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
188: RAISE FND_API.g_exc_unexpected_error;
189: END IF;
182: ,x_msg_count => x_msg_count
183: ,p_x_claim_line_tbl => p_x_claim_line_tbl
184: );
185: IF l_return_status = FND_API.g_ret_sts_error THEN
186: RAISE FND_API.g_exc_error;
187: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
188: RAISE FND_API.g_exc_unexpected_error;
189: END IF;
190: END IF;
183: ,p_x_claim_line_tbl => p_x_claim_line_tbl
184: );
185: IF l_return_status = FND_API.g_ret_sts_error THEN
186: RAISE FND_API.g_exc_error;
187: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
188: RAISE FND_API.g_exc_unexpected_error;
189: END IF;
190: END IF;
191: END IF;
184: );
185: IF l_return_status = FND_API.g_ret_sts_error THEN
186: RAISE FND_API.g_exc_error;
187: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
188: RAISE FND_API.g_exc_unexpected_error;
189: END IF;
190: END IF;
191: END IF;
192:
193: IF OZF_DEBUG_HIGH_ON THEN
194: OZF_Utility_PVT.debug_message(l_full_name||' : end');
195: END IF;
196: EXCEPTION
197: WHEN FND_API.G_EXC_ERROR THEN
198: x_return_status := FND_API.G_RET_STS_ERROR;
199: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
200: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
201: WHEN OTHERS THEN
194: OZF_Utility_PVT.debug_message(l_full_name||' : end');
195: END IF;
196: EXCEPTION
197: WHEN FND_API.G_EXC_ERROR THEN
198: x_return_status := FND_API.G_RET_STS_ERROR;
199: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
200: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
201: WHEN OTHERS THEN
202: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
195: END IF;
196: EXCEPTION
197: WHEN FND_API.G_EXC_ERROR THEN
198: x_return_status := FND_API.G_RET_STS_ERROR;
199: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
200: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
201: WHEN OTHERS THEN
202: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
203: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
196: EXCEPTION
197: WHEN FND_API.G_EXC_ERROR THEN
198: x_return_status := FND_API.G_RET_STS_ERROR;
199: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
200: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
201: WHEN OTHERS THEN
202: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
203: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
204: END IF;
201: WHEN OTHERS THEN
202: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
203: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
204: END IF;
205: x_return_status := FND_API.g_ret_sts_unexp_error;
206:
207: END Default_Claim_Line_Tbl;
208:
209:
218: | 30-NOV-2002 mchang Create.
219: *=======================================================================*/
220: PROCEDURE Validate_Claim_Line(
221: p_api_version IN NUMBER
222: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
223: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
224:
225: ,x_return_status OUT NOCOPY VARCHAR2
226: ,x_msg_data OUT NOCOPY VARCHAR2
219: *=======================================================================*/
220: PROCEDURE Validate_Claim_Line(
221: p_api_version IN NUMBER
222: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
223: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
224:
225: ,x_return_status OUT NOCOPY VARCHAR2
226: ,x_msg_data OUT NOCOPY VARCHAR2
227: ,x_msg_count OUT NOCOPY NUMBER
248: OZF_Utility_PVT.debug_message(l_full_name||' : start');
249: END IF;
250:
251: -- Initialize API return status to sucess
252: x_return_status := FND_API.g_ret_sts_success;
253:
254: OPEN csr_settlement_method(p_claim_line_rec.claim_id);
255: FETCH csr_settlement_method INTO l_settlement_method;
256: CLOSE csr_settlement_method;
254: OPEN csr_settlement_method(p_claim_line_rec.claim_id);
255: FETCH csr_settlement_method INTO l_settlement_method;
256: CLOSE csr_settlement_method;
257:
258: IF p_val_from_tbl_flag = FND_API.g_false THEN
259: IF l_settlement_method = 'RMA' THEN
260: OZF_OM_VALIDATION_PVT.Validate_Claim_Line(
261: p_api_version => l_api_version
262: ,p_init_msg_list => p_init_msg_list
265: ,x_msg_data => x_msg_data
266: ,x_msg_count => x_msg_count
267: ,p_claim_line_rec => p_claim_line_rec
268: );
269: IF l_return_status = FND_API.g_ret_sts_error THEN
270: RAISE FND_API.g_exc_error;
271: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
272: RAISE FND_API.g_exc_unexpected_error;
273: END IF;
266: ,x_msg_count => x_msg_count
267: ,p_claim_line_rec => p_claim_line_rec
268: );
269: IF l_return_status = FND_API.g_ret_sts_error THEN
270: RAISE FND_API.g_exc_error;
271: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
272: RAISE FND_API.g_exc_unexpected_error;
273: END IF;
274: END IF;
267: ,p_claim_line_rec => p_claim_line_rec
268: );
269: IF l_return_status = FND_API.g_ret_sts_error THEN
270: RAISE FND_API.g_exc_error;
271: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
272: RAISE FND_API.g_exc_unexpected_error;
273: END IF;
274: END IF;
275: END IF;
268: );
269: IF l_return_status = FND_API.g_ret_sts_error THEN
270: RAISE FND_API.g_exc_error;
271: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
272: RAISE FND_API.g_exc_unexpected_error;
273: END IF;
274: END IF;
275: END IF;
276:
277: IF OZF_DEBUG_HIGH_ON THEN
278: OZF_Utility_PVT.debug_message(l_full_name||' : end');
279: END IF;
280: EXCEPTION
281: WHEN FND_API.G_EXC_ERROR THEN
282: x_return_status := FND_API.G_RET_STS_ERROR;
283: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
284: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
285: WHEN OTHERS THEN
278: OZF_Utility_PVT.debug_message(l_full_name||' : end');
279: END IF;
280: EXCEPTION
281: WHEN FND_API.G_EXC_ERROR THEN
282: x_return_status := FND_API.G_RET_STS_ERROR;
283: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
284: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
285: WHEN OTHERS THEN
286: IF OZF_DEBUG_LOW_ON THEN
279: END IF;
280: EXCEPTION
281: WHEN FND_API.G_EXC_ERROR THEN
282: x_return_status := FND_API.G_RET_STS_ERROR;
283: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
284: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
285: WHEN OTHERS THEN
286: IF OZF_DEBUG_LOW_ON THEN
287: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
280: EXCEPTION
281: WHEN FND_API.G_EXC_ERROR THEN
282: x_return_status := FND_API.G_RET_STS_ERROR;
283: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
284: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
285: WHEN OTHERS THEN
286: IF OZF_DEBUG_LOW_ON THEN
287: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
288: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Error');
287: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
288: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Error');
289: FND_MSG_PUB.Add;
290: END IF;
291: x_return_status := FND_API.g_ret_sts_unexp_error;
292:
293: END Validate_Claim_Line;
294:
295:
304: | 30-NOV-2002 mchang Create.
305: *=======================================================================*/
306: PROCEDURE Validate_Claim_Line_Tbl(
307: p_api_version IN NUMBER
308: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
309: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
310:
311: ,x_return_status OUT NOCOPY VARCHAR2
312: ,x_msg_data OUT NOCOPY VARCHAR2
305: *=======================================================================*/
306: PROCEDURE Validate_Claim_Line_Tbl(
307: p_api_version IN NUMBER
308: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
309: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
310:
311: ,x_return_status OUT NOCOPY VARCHAR2
312: ,x_msg_data OUT NOCOPY VARCHAR2
313: ,x_msg_count OUT NOCOPY NUMBER
336: OZF_Utility_PVT.debug_message(l_full_name||' : start');
337: END IF;
338:
339: -- Initialize API return status to sucess
340: x_return_status := FND_API.g_ret_sts_success;
341:
342: i := p_claim_line_tbl.FIRST ;
343: IF i IS NOT NULL THEN
344: LOOP
350: ,x_return_status => l_return_status
351: ,x_msg_data => x_msg_data
352: ,x_msg_count => x_msg_count
353: ,p_claim_line_rec => l_claim_line_rec
354: ,p_val_from_tbl_flag => FND_API.g_true
355: );
356: IF l_return_status = FND_API.g_ret_sts_error THEN
357: RAISE FND_API.g_exc_error;
358: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
352: ,x_msg_count => x_msg_count
353: ,p_claim_line_rec => l_claim_line_rec
354: ,p_val_from_tbl_flag => FND_API.g_true
355: );
356: IF l_return_status = FND_API.g_ret_sts_error THEN
357: RAISE FND_API.g_exc_error;
358: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
359: RAISE FND_API.g_exc_unexpected_error;
360: END IF;
353: ,p_claim_line_rec => l_claim_line_rec
354: ,p_val_from_tbl_flag => FND_API.g_true
355: );
356: IF l_return_status = FND_API.g_ret_sts_error THEN
357: RAISE FND_API.g_exc_error;
358: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
359: RAISE FND_API.g_exc_unexpected_error;
360: END IF;
361: EXIT WHEN i = p_claim_line_tbl.LAST;
354: ,p_val_from_tbl_flag => FND_API.g_true
355: );
356: IF l_return_status = FND_API.g_ret_sts_error THEN
357: RAISE FND_API.g_exc_error;
358: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
359: RAISE FND_API.g_exc_unexpected_error;
360: END IF;
361: EXIT WHEN i = p_claim_line_tbl.LAST;
362: i := p_claim_line_tbl.NEXT(i);
355: );
356: IF l_return_status = FND_API.g_ret_sts_error THEN
357: RAISE FND_API.g_exc_error;
358: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
359: RAISE FND_API.g_exc_unexpected_error;
360: END IF;
361: EXIT WHEN i = p_claim_line_tbl.LAST;
362: i := p_claim_line_tbl.NEXT(i);
363: END LOOP;
375: ,x_msg_data => x_msg_data
376: ,x_msg_count => x_msg_count
377: ,p_claim_line_tbl => p_claim_line_tbl
378: );
379: IF l_return_status = FND_API.g_ret_sts_error THEN
380: RAISE FND_API.g_exc_error;
381: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
382: RAISE FND_API.g_exc_unexpected_error;
383: END IF;
376: ,x_msg_count => x_msg_count
377: ,p_claim_line_tbl => p_claim_line_tbl
378: );
379: IF l_return_status = FND_API.g_ret_sts_error THEN
380: RAISE FND_API.g_exc_error;
381: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
382: RAISE FND_API.g_exc_unexpected_error;
383: END IF;
384: END IF;
377: ,p_claim_line_tbl => p_claim_line_tbl
378: );
379: IF l_return_status = FND_API.g_ret_sts_error THEN
380: RAISE FND_API.g_exc_error;
381: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
382: RAISE FND_API.g_exc_unexpected_error;
383: END IF;
384: END IF;
385: END IF;
378: );
379: IF l_return_status = FND_API.g_ret_sts_error THEN
380: RAISE FND_API.g_exc_error;
381: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
382: RAISE FND_API.g_exc_unexpected_error;
383: END IF;
384: END IF;
385: END IF;
386:
384: END IF;
385: END IF;
386:
387: IF l_error THEN
388: RAISE FND_API.G_EXC_ERROR;
389: END IF;
390:
391:
392: IF OZF_DEBUG_HIGH_ON THEN
392: IF OZF_DEBUG_HIGH_ON THEN
393: OZF_Utility_PVT.debug_message(l_full_name||' : end');
394: END IF;
395: EXCEPTION
396: WHEN FND_API.G_EXC_ERROR THEN
397: x_return_status := FND_API.G_RET_STS_ERROR;
398: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
399: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
400: WHEN OTHERS THEN
393: OZF_Utility_PVT.debug_message(l_full_name||' : end');
394: END IF;
395: EXCEPTION
396: WHEN FND_API.G_EXC_ERROR THEN
397: x_return_status := FND_API.G_RET_STS_ERROR;
398: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
399: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
400: WHEN OTHERS THEN
401: IF OZF_DEBUG_LOW_ON THEN
394: END IF;
395: EXCEPTION
396: WHEN FND_API.G_EXC_ERROR THEN
397: x_return_status := FND_API.G_RET_STS_ERROR;
398: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
399: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
400: WHEN OTHERS THEN
401: IF OZF_DEBUG_LOW_ON THEN
402: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
395: EXCEPTION
396: WHEN FND_API.G_EXC_ERROR THEN
397: x_return_status := FND_API.G_RET_STS_ERROR;
398: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
399: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
400: WHEN OTHERS THEN
401: IF OZF_DEBUG_LOW_ON THEN
402: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
403: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Error');
402: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
403: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Error');
404: FND_MSG_PUB.Add;
405: END IF;
406: x_return_status := FND_API.g_ret_sts_unexp_error;
407:
408: END Validate_Claim_Line_Tbl;
409:
410:
463: | 24-OCT-2002 mchang Create.
464: *=======================================================================*/
465: PROCEDURE Complete_Claim_Validation(
466: p_api_version IN NUMBER
467: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
468: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
469:
470: ,x_return_status OUT NOCOPY VARCHAR2
471: ,x_msg_data OUT NOCOPY VARCHAR2
464: *=======================================================================*/
465: PROCEDURE Complete_Claim_Validation(
466: p_api_version IN NUMBER
467: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
468: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
469:
470: ,x_return_status OUT NOCOPY VARCHAR2
471: ,x_msg_data OUT NOCOPY VARCHAR2
472: ,x_msg_count OUT NOCOPY NUMBER
477: IS
478: l_api_version CONSTANT NUMBER := 1.0;
479: l_api_name CONSTANT VARCHAR2(30) := 'Complete_Claim_Validation';
480: l_full_name CONSTANT VARCHAR2(60) := G_PKG_NAME || '.' || l_api_name;
481: l_return_status VARCHAR2(1) := FND_API.g_ret_sts_success;
482:
483: --Added claim_currency_amount check for bug 6828924.
484: CURSOR csr_claim_line(cv_claim_id IN NUMBER) IS
485: SELECT claim_line_id
618: OZF_Utility_PVT.debug_message(l_full_name||' : start');
619: END IF;
620:
621: -- Initialize API return status to sucess
622: x_return_status := FND_API.g_ret_sts_success;
623:
624: x_claim_rec := p_claim_rec;
625:
626: ---------------------------
642: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
643: FND_MESSAGE.set_name('OZF', 'OZF_SETL_PAYMETHOD_REQ');
644: FND_MSG_PUB.add;
645: END IF;
646: RAISE FND_API.G_EXC_ERROR;
647: END IF;
648:
649: -- Query Claim Line records
650: OPEN csr_claim_line(p_claim_rec.claim_id);
661: , l_line_src_obj_line_id
662: , l_line_item_id;
663: EXIT WHEN csr_claim_line%NOTFOUND;
664:
665: IF l_line_earnings_flag = FND_API.g_true THEN
666: l_asso_earnings_exist :=TRUE;
667:
668: IF NOT l_offr_perf_flag_err THEN
669: -- offer performance checking (1)
670: OPEN csr_asso_offr_performance(l_claim_line_id);
671: LOOP
672: FETCH csr_asso_offr_performance INTO l_asso_offr_perf_id;
673: EXIT WHEN csr_asso_offr_performance%NOTFOUND;
674: IF l_line_perf_comp_flag <> FND_API.g_true THEN
675: l_offr_perf_flag_err := TRUE;
676: EXIT;
677: END IF;
678: END LOOP;
685: OPEN csr_line_offr_performance(l_claim_line_id);
686: LOOP
687: FETCH csr_line_offr_performance INTO l_asso_offr_perf_id;
688: EXIT WHEN csr_line_offr_performance%NOTFOUND;
689: IF l_line_perf_comp_flag <> FND_API.g_true THEN
690: l_offr_perf_flag_err := TRUE;
691: EXIT;
692: END IF;
693: END LOOP;
766: END LOOP;
767: CLOSE csr_claim_line;
768:
769: IF l_error THEN
770: RAISE FND_API.G_EXC_ERROR;
771: END IF;
772:
773: ---------------------- Validation -----------------------------
774: -----------------------------------------------------
810: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
811: FND_MESSAGE.set_name('OZF', 'OZF_POST_ASSO_PAYMETHOD_ERR');
812: FND_MSG_PUB.add;
813: END IF;
814: RAISE FND_API.G_EXC_ERROR;
815: END IF;
816: ELSE
817: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
818: FND_MESSAGE.set_name('OZF', 'OZF_SETL_ASSO_PAYMETHOD_ERR');
817: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
818: FND_MESSAGE.set_name('OZF', 'OZF_SETL_ASSO_PAYMETHOD_ERR');
819: FND_MSG_PUB.add;
820: END IF;
821: RAISE FND_API.G_EXC_ERROR;
822: END IF;
823: END IF;
824:
825: ---------------------------
830: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
831: FND_MESSAGE.set_name('OZF', 'OZF_SETL_COMP_LINE_UTIL_ERR');
832: FND_MSG_PUB.add;
833: END IF;
834: RAISE FND_API.G_EXC_ERROR;
835: END IF;
836:
837: -- raise error if performance complete is required.
838: IF l_offr_perf_flag_err THEN
839: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
840: FND_MESSAGE.set_name('OZF', 'OZF_SETL_COMP_LINE_PERF_ERR');
841: FND_MSG_PUB.add;
842: END IF;
843: RAISE FND_API.G_EXC_ERROR;
844: END IF;
845:
846: OPEN csr_sum_line_amt(p_claim_rec.claim_id);
847: FETCH csr_sum_line_amt INTO l_line_sum_curr_amt;
853: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
854: FND_MESSAGE.set_name('OZF', 'OZF_SETL_LINE_AMT_ERR');
855: FND_MSG_PUB.add;
856: END IF;
857: RAISE FND_API.G_EXC_ERROR;
858: END IF;
859:
860: -- For payment_method other then credit memo or debit memo without specifying payment_reference,
861: -- sum of line.claim_currency_amount should be equal to amount_remaining in claim.
870: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
871: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_SETL_AMOUNT_ERR');
872: FND_MSG_PUB.add;
873: END IF;
874: RAISE FND_API.G_EXC_ERROR;
875: ELSIF l_line_sum_curr_amt <> p_claim_rec.amount_remaining THEN
876: IF p_claim_rec.payment_method IN ('CREDIT_MEMO',
877: 'DEBIT_MEMO',
878: 'RMA',
887: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
888: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_SETL_AMOUNT_ERR');
889: FND_MSG_PUB.add;
890: END IF;
891: RAISE FND_API.G_EXC_ERROR;
892: END IF;
893: END IF;
894:
895: ---------------------------
912: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
913: FND_MESSAGE.set_name('OZF', 'OZF_SETL_COMP_LINE_PROM_ERR');
914: FND_MSG_PUB.add;
915: END IF;
916: RAISE FND_API.G_EXC_ERROR;
917: END IF;
918:
919:
920: ---------------------------
924: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
925: FND_MESSAGE.set_name('OZF', 'OZF_SETL_OWNER_REQ');
926: FND_MSG_PUB.add;
927: END IF;
928: RAISE FND_API.G_EXC_ERROR;
929: END IF;
930:
931: ---------------------------
932: -- GL Date: should fall into an open period if entered.
948: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
949: FND_MESSAGE.set_name('OZF', 'OZF_SETL_GLDATE_INVALID');
950: FND_MSG_PUB.add;
951: END IF;
952: RAISE FND_API.G_EXC_ERROR;
953: END IF;
954: ELSIF p_claim_rec.payment_method IN ('CHECK', 'CONTRA_CHARGE','EFT','WIRE','AP_DEBIT','AP_DEFAULT') THEN
955: IF NOT gl_date_in_open(
956: p_application_id => 200
959: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
960: FND_MESSAGE.set_name('OZF', 'OZF_SETL_GLDATE_INVALID');
961: FND_MSG_PUB.add;
962: END IF;
963: RAISE FND_API.G_EXC_ERROR;
964: END IF;
965: END IF;
966: ELSE
967: IF l_gl_date_type IS NULL THEN
968: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
969: FND_MESSAGE.set_name('OZF', 'OZF_SETL_GLDATE_DRIVE_ERR');
970: FND_MSG_PUB.add;
971: END IF;
972: RAISE FND_API.G_EXC_ERROR;
973: END IF;
974: END IF;
975:
976:
988: ) THEN
989:
990: OZF_AR_VALIDATION_PVT.Complete_AR_Validation(
991: p_api_version => l_api_version
992: ,p_init_msg_list => FND_API.g_false
993: ,p_commit => FND_API.g_false
994: ,p_validation_level => FND_API.g_valid_level_full
995: ,x_return_status => l_return_status
996: ,x_msg_data => x_msg_data
989:
990: OZF_AR_VALIDATION_PVT.Complete_AR_Validation(
991: p_api_version => l_api_version
992: ,p_init_msg_list => FND_API.g_false
993: ,p_commit => FND_API.g_false
994: ,p_validation_level => FND_API.g_valid_level_full
995: ,x_return_status => l_return_status
996: ,x_msg_data => x_msg_data
997: ,x_msg_count => x_msg_count
990: OZF_AR_VALIDATION_PVT.Complete_AR_Validation(
991: p_api_version => l_api_version
992: ,p_init_msg_list => FND_API.g_false
993: ,p_commit => FND_API.g_false
994: ,p_validation_level => FND_API.g_valid_level_full
995: ,x_return_status => l_return_status
996: ,x_msg_data => x_msg_data
997: ,x_msg_count => x_msg_count
998: ,p_claim_rec => p_claim_rec
996: ,x_msg_data => x_msg_data
997: ,x_msg_count => x_msg_count
998: ,p_claim_rec => p_claim_rec
999: );
1000: IF l_return_status = FND_API.g_ret_sts_error THEN
1001: RAISE FND_API.g_exc_error;
1002: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1003: RAISE FND_API.g_exc_unexpected_error;
1004: END IF;
997: ,x_msg_count => x_msg_count
998: ,p_claim_rec => p_claim_rec
999: );
1000: IF l_return_status = FND_API.g_ret_sts_error THEN
1001: RAISE FND_API.g_exc_error;
1002: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1003: RAISE FND_API.g_exc_unexpected_error;
1004: END IF;
1005:
998: ,p_claim_rec => p_claim_rec
999: );
1000: IF l_return_status = FND_API.g_ret_sts_error THEN
1001: RAISE FND_API.g_exc_error;
1002: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1003: RAISE FND_API.g_exc_unexpected_error;
1004: END IF;
1005:
1006: /*------------------------------------------------------------------------------*
999: );
1000: IF l_return_status = FND_API.g_ret_sts_error THEN
1001: RAISE FND_API.g_exc_error;
1002: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1003: RAISE FND_API.g_exc_unexpected_error;
1004: END IF;
1005:
1006: /*------------------------------------------------------------------------------*
1007: | RMA Validation |
1008: *------------------------------------------------------------------------------*/
1009: ELSIF p_claim_rec.payment_method = 'RMA' THEN
1010: OZF_AR_VALIDATION_PVT.Complete_AR_Validation(
1011: p_api_version => l_api_version
1012: ,p_init_msg_list => FND_API.g_false
1013: ,p_commit => FND_API.g_false
1014: ,p_validation_level => FND_API.g_valid_level_full
1015: ,x_return_status => l_return_status
1016: ,x_msg_data => x_msg_data
1009: ELSIF p_claim_rec.payment_method = 'RMA' THEN
1010: OZF_AR_VALIDATION_PVT.Complete_AR_Validation(
1011: p_api_version => l_api_version
1012: ,p_init_msg_list => FND_API.g_false
1013: ,p_commit => FND_API.g_false
1014: ,p_validation_level => FND_API.g_valid_level_full
1015: ,x_return_status => l_return_status
1016: ,x_msg_data => x_msg_data
1017: ,x_msg_count => x_msg_count
1010: OZF_AR_VALIDATION_PVT.Complete_AR_Validation(
1011: p_api_version => l_api_version
1012: ,p_init_msg_list => FND_API.g_false
1013: ,p_commit => FND_API.g_false
1014: ,p_validation_level => FND_API.g_valid_level_full
1015: ,x_return_status => l_return_status
1016: ,x_msg_data => x_msg_data
1017: ,x_msg_count => x_msg_count
1018: ,p_claim_rec => p_claim_rec
1016: ,x_msg_data => x_msg_data
1017: ,x_msg_count => x_msg_count
1018: ,p_claim_rec => p_claim_rec
1019: );
1020: IF l_return_status = FND_API.g_ret_sts_error THEN
1021: RAISE FND_API.g_exc_error;
1022: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1023: RAISE FND_API.g_exc_unexpected_error;
1024: END IF;
1017: ,x_msg_count => x_msg_count
1018: ,p_claim_rec => p_claim_rec
1019: );
1020: IF l_return_status = FND_API.g_ret_sts_error THEN
1021: RAISE FND_API.g_exc_error;
1022: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1023: RAISE FND_API.g_exc_unexpected_error;
1024: END IF;
1025:
1018: ,p_claim_rec => p_claim_rec
1019: );
1020: IF l_return_status = FND_API.g_ret_sts_error THEN
1021: RAISE FND_API.g_exc_error;
1022: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1023: RAISE FND_API.g_exc_unexpected_error;
1024: END IF;
1025:
1026: OZF_OM_VALIDATION_PVT.Complete_RMA_Validation(
1019: );
1020: IF l_return_status = FND_API.g_ret_sts_error THEN
1021: RAISE FND_API.g_exc_error;
1022: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1023: RAISE FND_API.g_exc_unexpected_error;
1024: END IF;
1025:
1026: OZF_OM_VALIDATION_PVT.Complete_RMA_Validation(
1027: p_api_version => l_api_version
1024: END IF;
1025:
1026: OZF_OM_VALIDATION_PVT.Complete_RMA_Validation(
1027: p_api_version => l_api_version
1028: ,p_init_msg_list => FND_API.g_false
1029: ,p_validation_level => FND_API.g_valid_level_full
1030: ,x_return_status => l_return_status
1031: ,x_msg_data => x_msg_data
1032: ,x_msg_count => x_msg_count
1025:
1026: OZF_OM_VALIDATION_PVT.Complete_RMA_Validation(
1027: p_api_version => l_api_version
1028: ,p_init_msg_list => FND_API.g_false
1029: ,p_validation_level => FND_API.g_valid_level_full
1030: ,x_return_status => l_return_status
1031: ,x_msg_data => x_msg_data
1032: ,x_msg_count => x_msg_count
1033: ,p_claim_rec => p_claim_rec
1032: ,x_msg_count => x_msg_count
1033: ,p_claim_rec => p_claim_rec
1034: ,x_claim_rec => x_claim_rec
1035: );
1036: IF l_return_status = FND_API.g_ret_sts_error THEN
1037: RAISE FND_API.g_exc_error;
1038: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1039: RAISE FND_API.g_exc_unexpected_error;
1040: END IF;
1033: ,p_claim_rec => p_claim_rec
1034: ,x_claim_rec => x_claim_rec
1035: );
1036: IF l_return_status = FND_API.g_ret_sts_error THEN
1037: RAISE FND_API.g_exc_error;
1038: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1039: RAISE FND_API.g_exc_unexpected_error;
1040: END IF;
1041:
1034: ,x_claim_rec => x_claim_rec
1035: );
1036: IF l_return_status = FND_API.g_ret_sts_error THEN
1037: RAISE FND_API.g_exc_error;
1038: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1039: RAISE FND_API.g_exc_unexpected_error;
1040: END IF;
1041:
1042: /*------------------------------------------------------------------------------*
1035: );
1036: IF l_return_status = FND_API.g_ret_sts_error THEN
1037: RAISE FND_API.g_exc_error;
1038: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1039: RAISE FND_API.g_exc_unexpected_error;
1040: END IF;
1041:
1042: /*------------------------------------------------------------------------------*
1043: | AP Validation (CHECK,EFT,WIRE,AP_DEBIT,AP_DEFAULT |
1050: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1051: FND_MESSAGE.set_name('OZF', 'OZF_SETL_PAYABLES_SOURCE_NULL');
1052: FND_MSG_PUB.add;
1053: END IF;
1054: RAISE FND_API.G_EXC_ERROR;
1055: END IF;
1056:
1057: -----------------------------------------------------
1058: -- Vendor_Id
1062: FND_MESSAGE.set_name('OZF', 'OZF_SETL_VENDOR_REQ');
1063: FND_MESSAGE.set_token('PAY_METHOD', OZF_Utility_Pvt.get_lookup_meaning('OZF_PAYMENT_METHOD', p_claim_rec.payment_method));
1064: FND_MSG_PUB.add;
1065: END IF;
1066: RAISE FND_API.G_EXC_ERROR;
1067: END IF;
1068:
1069: -----------------------------------------------------
1070: -- Vendor_Site_Id
1074: FND_MESSAGE.set_name('OZF', 'OZF_SETL_VENDOR_SITE_REQ');
1075: FND_MESSAGE.set_token('PAY_METHOD', OZF_Utility_Pvt.get_lookup_meaning('OZF_PAYMENT_METHOD', p_claim_rec.payment_method));
1076: FND_MSG_PUB.add;
1077: END IF;
1078: RAISE FND_API.G_EXC_ERROR;
1079: END IF;
1080:
1081: -----------------------------------------------------
1082: -- Vendor Clearing Account
1081: -----------------------------------------------------
1082: -- Vendor Clearing Account
1083: -----------------------------------------------------
1084: -- vendor clearing account must exist in system parameter
1085: IF l_gl_acc_checking = FND_API.g_true THEN
1086: IF l_vendor_in_sys IS NULL THEN
1087: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1088: FND_MESSAGE.set_name('OZF', 'OZF_SETL_VENCLRACC_REQ');
1089: FND_MSG_PUB.add;
1087: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1088: FND_MESSAGE.set_name('OZF', 'OZF_SETL_VENCLRACC_REQ');
1089: FND_MSG_PUB.add;
1090: END IF;
1091: RAISE FND_API.G_EXC_ERROR;
1092: END IF;
1093: END IF;
1094:
1095: /*------------------------------------------------------------------------------*
1103: FND_MESSAGE.set_name('OZF', 'OZF_SETL_VENDOR_REQ');
1104: FND_MESSAGE.set_token('PAY_METHOD', OZF_Utility_Pvt.get_lookup_meaning('OZF_PAYMENT_METHOD', p_claim_rec.payment_method));
1105: FND_MSG_PUB.add;
1106: END IF;
1107: RAISE FND_API.G_EXC_ERROR;
1108: END IF;
1109:
1110: -- check vendor_site_id
1111: IF p_claim_rec.vendor_site_id IS NULL THEN
1113: FND_MESSAGE.set_name('OZF', 'OZF_SETL_VENDOR_SITE_REQ');
1114: FND_MESSAGE.set_token('PAY_METHOD', OZF_Utility_Pvt.get_lookup_meaning('OZF_PAYMENT_METHOD', p_claim_rec.payment_method));
1115: FND_MSG_PUB.add;
1116: END IF;
1117: RAISE FND_API.G_EXC_ERROR;
1118: END IF;
1119:
1120:
1121: /*------------------------------------------------------------------------------*
1131: IF OZF_DEBUG_HIGH_ON THEN
1132: OZF_Utility_PVT.debug_message(l_full_name||' : end');
1133: END IF;
1134: EXCEPTION
1135: WHEN FND_API.G_EXC_ERROR THEN
1136: x_return_status := FND_API.G_RET_STS_ERROR;
1137: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1138: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1139: WHEN OTHERS THEN
1132: OZF_Utility_PVT.debug_message(l_full_name||' : end');
1133: END IF;
1134: EXCEPTION
1135: WHEN FND_API.G_EXC_ERROR THEN
1136: x_return_status := FND_API.G_RET_STS_ERROR;
1137: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1138: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1139: WHEN OTHERS THEN
1140: IF OZF_DEBUG_LOW_ON THEN
1133: END IF;
1134: EXCEPTION
1135: WHEN FND_API.G_EXC_ERROR THEN
1136: x_return_status := FND_API.G_RET_STS_ERROR;
1137: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1138: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1139: WHEN OTHERS THEN
1140: IF OZF_DEBUG_LOW_ON THEN
1141: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1134: EXCEPTION
1135: WHEN FND_API.G_EXC_ERROR THEN
1136: x_return_status := FND_API.G_RET_STS_ERROR;
1137: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1138: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1139: WHEN OTHERS THEN
1140: IF OZF_DEBUG_LOW_ON THEN
1141: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1142: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Error');
1141: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1142: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Error');
1143: FND_MSG_PUB.Add;
1144: END IF;
1145: x_return_status := FND_API.g_ret_sts_unexp_error;
1146:
1147: END Complete_Claim_Validation;
1148:
1149: /*=======================================================================*
1171: IS
1172: l_api_version CONSTANT NUMBER := 1.0;
1173: l_api_name CONSTANT VARCHAR2(30) := 'Complete_Claim';
1174: l_full_name CONSTANT VARCHAR2(60) := G_PKG_NAME || '.' || l_api_name;
1175: l_return_status VARCHAR2(1) := FND_API.g_ret_sts_success;
1176:
1177: BEGIN
1178: IF OZF_DEBUG_HIGH_ON THEN
1179: OZF_Utility_PVT.debug_message(l_full_name||' : start');
1179: OZF_Utility_PVT.debug_message(l_full_name||' : start');
1180: END IF;
1181:
1182: -- Initialize API return status to sucess
1183: x_return_status := FND_API.g_ret_sts_success;
1184:
1185: IF p_x_claim_rec.payment_method = 'RMA' THEN
1186: IF p_x_claim_rec.order_type_id IS NULL THEN
1187: OZF_OM_VALIDATION_PVT.Get_Default_Order_Type(
1185: IF p_x_claim_rec.payment_method = 'RMA' THEN
1186: IF p_x_claim_rec.order_type_id IS NULL THEN
1187: OZF_OM_VALIDATION_PVT.Get_Default_Order_Type(
1188: p_api_version => l_api_version
1189: ,p_init_msg_list => FND_API.g_false
1190: ,p_validation_level => FND_API.g_valid_level_full
1191: ,x_return_status => l_return_status
1192: ,x_msg_data => x_msg_data
1193: ,x_msg_count => x_msg_count
1186: IF p_x_claim_rec.order_type_id IS NULL THEN
1187: OZF_OM_VALIDATION_PVT.Get_Default_Order_Type(
1188: p_api_version => l_api_version
1189: ,p_init_msg_list => FND_API.g_false
1190: ,p_validation_level => FND_API.g_valid_level_full
1191: ,x_return_status => l_return_status
1192: ,x_msg_data => x_msg_data
1193: ,x_msg_count => x_msg_count
1194: ,p_reason_code_id => p_x_claim_rec.reason_code_id
1195: ,p_claim_type_id => p_x_claim_rec.claim_type_id
1196: ,p_set_of_books_id => p_x_claim_rec.set_of_books_id
1197: ,x_order_type_id => p_x_claim_rec.order_type_id
1198: );
1199: IF l_return_status = FND_API.g_ret_sts_error THEN
1200: RAISE FND_API.g_exc_error;
1201: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1202: RAISE FND_API.g_exc_unexpected_error;
1203: END IF;
1196: ,p_set_of_books_id => p_x_claim_rec.set_of_books_id
1197: ,x_order_type_id => p_x_claim_rec.order_type_id
1198: );
1199: IF l_return_status = FND_API.g_ret_sts_error THEN
1200: RAISE FND_API.g_exc_error;
1201: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1202: RAISE FND_API.g_exc_unexpected_error;
1203: END IF;
1204: END IF;
1197: ,x_order_type_id => p_x_claim_rec.order_type_id
1198: );
1199: IF l_return_status = FND_API.g_ret_sts_error THEN
1200: RAISE FND_API.g_exc_error;
1201: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1202: RAISE FND_API.g_exc_unexpected_error;
1203: END IF;
1204: END IF;
1205: ELSE
1198: );
1199: IF l_return_status = FND_API.g_ret_sts_error THEN
1200: RAISE FND_API.g_exc_error;
1201: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1202: RAISE FND_API.g_exc_unexpected_error;
1203: END IF;
1204: END IF;
1205: ELSE
1206: -- erase RMA transaction type if not for RMA settlement.
1217: OZF_Utility_PVT.debug_message(l_full_name||' : end');
1218: END IF;
1219:
1220: EXCEPTION
1221: WHEN FND_API.G_EXC_ERROR THEN
1222: x_return_status := FND_API.G_RET_STS_ERROR;
1223: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1224: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1225: WHEN OTHERS THEN
1218: END IF;
1219:
1220: EXCEPTION
1221: WHEN FND_API.G_EXC_ERROR THEN
1222: x_return_status := FND_API.G_RET_STS_ERROR;
1223: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1224: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1225: WHEN OTHERS THEN
1226: IF OZF_DEBUG_LOW_ON THEN
1219:
1220: EXCEPTION
1221: WHEN FND_API.G_EXC_ERROR THEN
1222: x_return_status := FND_API.G_RET_STS_ERROR;
1223: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1224: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1225: WHEN OTHERS THEN
1226: IF OZF_DEBUG_LOW_ON THEN
1227: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1220: EXCEPTION
1221: WHEN FND_API.G_EXC_ERROR THEN
1222: x_return_status := FND_API.G_RET_STS_ERROR;
1223: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1224: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1225: WHEN OTHERS THEN
1226: IF OZF_DEBUG_LOW_ON THEN
1227: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1228: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Error');
1227: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1228: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Error');
1229: FND_MSG_PUB.Add;
1230: END IF;
1231: x_return_status := FND_API.g_ret_sts_unexp_error;
1232:
1233: END Complete_Claim;
1234:
1235: