1: package body FPA_VALIDATION_PVT as
2: /* $Header: FPAVVALB.pls 120.6 2006/03/20 19:10:16 appldev noship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(200) := 'FPA_VALIDATION_PVT';
5: G_APP_NAME CONSTANT VARCHAR2(3) := FPA_UTILITIES_PVT.G_APP_NAME;
6: G_API_TYPE CONSTANT VARCHAR2(4) := '_PVT';
7: L_API_NAME CONSTANT VARCHAR2(35) := 'VALIDATION';
8:
9:
63: WHERE LOOKUP_TYPE = 'FPA_SEVERITY_TYPES'
64: AND LOOKUP_CODE = SEV_CODE;
65: BEGIN
66:
67: x_return_status := FPA_UTILITIES_PVT.G_RET_STS_SUCCESS;
68:
69: x_return_status := FPA_UTILITIES_PVT.START_ACTIVITY(
70: p_api_name => l_api_name,
71: p_pkg_name => G_PKG_NAME,
65: BEGIN
66:
67: x_return_status := FPA_UTILITIES_PVT.G_RET_STS_SUCCESS;
68:
69: x_return_status := FPA_UTILITIES_PVT.START_ACTIVITY(
70: p_api_name => l_api_name,
71: p_pkg_name => G_PKG_NAME,
72: p_init_msg_list => p_init_msg_list,
73: l_api_version => l_api_version,
75: p_api_type => G_API_TYPE,
76: p_msg_log => 'Entering Fpa_Validation_Pvt.Create_Validation_Line',
77: x_return_status => x_return_status);
78:
79: if (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_UNEXP_ERROR) then
80: l_msg_log := 'start_activity';
81: raise FPA_UTILITIES_PVT.G_EXCEPTION_UNEXPECTED_ERROR;
82: elsif (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_ERROR) then
83: l_msg_log := 'start_activity';
77: x_return_status => x_return_status);
78:
79: if (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_UNEXP_ERROR) then
80: l_msg_log := 'start_activity';
81: raise FPA_UTILITIES_PVT.G_EXCEPTION_UNEXPECTED_ERROR;
82: elsif (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_ERROR) then
83: l_msg_log := 'start_activity';
84: raise FPA_UTILITIES_PVT.G_EXCEPTION_ERROR;
85: end if;
78:
79: if (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_UNEXP_ERROR) then
80: l_msg_log := 'start_activity';
81: raise FPA_UTILITIES_PVT.G_EXCEPTION_UNEXPECTED_ERROR;
82: elsif (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_ERROR) then
83: l_msg_log := 'start_activity';
84: raise FPA_UTILITIES_PVT.G_EXCEPTION_ERROR;
85: end if;
86:
80: l_msg_log := 'start_activity';
81: raise FPA_UTILITIES_PVT.G_EXCEPTION_UNEXPECTED_ERROR;
82: elsif (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_ERROR) then
83: l_msg_log := 'start_activity';
84: raise FPA_UTILITIES_PVT.G_EXCEPTION_ERROR;
85: end if;
86:
87: open obj_val_type_csr(p_validation_set, l_validation_lines_rec.validation_type);
88: fetch obj_val_type_csr into l_flag;
94: close hdr_val_type_csr;
95: end if;
96:
97: if(l_flag is null or l_flag <> FND_API.G_TRUE) then
98: Fpa_Utilities_Pvt.Set_Message(
99: p_msg_name => 'FPA_INVALID_VALIDATION',
100: p_token1 => 'TYPE',
101: p_token1_value => p_validation_set);
102: raise Fpa_Utilities_Pvt.G_EXCEPTION_ERROR;
98: Fpa_Utilities_Pvt.Set_Message(
99: p_msg_name => 'FPA_INVALID_VALIDATION',
100: p_token1 => 'TYPE',
101: p_token1_value => p_validation_set);
102: raise Fpa_Utilities_Pvt.G_EXCEPTION_ERROR;
103: end if;
104:
105: l_flag := null;
106: if(l_validation_lines_rec.severity is not null) then
107: open sev_type_csr(l_validation_lines_rec.severity);
108: fetch sev_type_csr into l_flag;
109: close sev_type_csr;
110: if(l_flag is null or l_flag <> FND_API.G_TRUE) then
111: Fpa_Utilities_Pvt.Set_Message(
112: p_msg_name => 'FPA_INVALID_SEVERITY_TYPE',
113: p_token1 => 'TYPE',
114: p_token1_value => l_validation_lines_rec.severity);
115: raise Fpa_Utilities_Pvt.G_EXCEPTION_ERROR;
111: Fpa_Utilities_Pvt.Set_Message(
112: p_msg_name => 'FPA_INVALID_SEVERITY_TYPE',
113: p_token1 => 'TYPE',
114: p_token1_value => l_validation_lines_rec.severity);
115: raise Fpa_Utilities_Pvt.G_EXCEPTION_ERROR;
116: end if;
117: else
118: l_validation_lines_rec.severity := 'I';
119: end if;
154: l_validation_lines_rec.last_updated_by,
155: l_validation_lines_rec.last_update_date,
156: l_validation_lines_rec.last_update_login);
157:
158: FPA_UTILITIES_PVT.END_ACTIVITY(
159: p_api_name => l_api_name,
160: p_pkg_name => G_PKG_NAME,
161: p_msg_log => null,
162: x_msg_count => x_msg_count,
162: x_msg_count => x_msg_count,
163: x_msg_data => x_msg_data);
164:
165: EXCEPTION
166: when FPA_UTILITIES_PVT.G_EXCEPTION_ERROR then
167: x_return_status := FPA_UTILITIES_PVT.HANDLE_EXCEPTIONS(
168: p_api_name => l_api_name,
169: p_pkg_name => G_PKG_NAME,
170: p_exc_name => 'FPA_UTILITIES_PVT.G_RET_STS_ERROR',
163: x_msg_data => x_msg_data);
164:
165: EXCEPTION
166: when FPA_UTILITIES_PVT.G_EXCEPTION_ERROR then
167: x_return_status := FPA_UTILITIES_PVT.HANDLE_EXCEPTIONS(
168: p_api_name => l_api_name,
169: p_pkg_name => G_PKG_NAME,
170: p_exc_name => 'FPA_UTILITIES_PVT.G_RET_STS_ERROR',
171: p_msg_log => l_msg_log,
166: when FPA_UTILITIES_PVT.G_EXCEPTION_ERROR then
167: x_return_status := FPA_UTILITIES_PVT.HANDLE_EXCEPTIONS(
168: p_api_name => l_api_name,
169: p_pkg_name => G_PKG_NAME,
170: p_exc_name => 'FPA_UTILITIES_PVT.G_RET_STS_ERROR',
171: p_msg_log => l_msg_log,
172: x_msg_count => x_msg_count,
173: x_msg_data => x_msg_data,
174: p_api_type => G_API_TYPE);
172: x_msg_count => x_msg_count,
173: x_msg_data => x_msg_data,
174: p_api_type => G_API_TYPE);
175:
176: when FPA_UTILITIES_PVT.G_EXCEPTION_UNEXPECTED_ERROR then
177: x_return_status := FPA_UTILITIES_PVT.HANDLE_EXCEPTIONS(
178: p_api_name => l_api_name,
179: p_pkg_name => G_PKG_NAME,
180: p_exc_name => 'FPA_UTILITIES_PVT.G_RET_STS_UNEXP_ERROR',
173: x_msg_data => x_msg_data,
174: p_api_type => G_API_TYPE);
175:
176: when FPA_UTILITIES_PVT.G_EXCEPTION_UNEXPECTED_ERROR then
177: x_return_status := FPA_UTILITIES_PVT.HANDLE_EXCEPTIONS(
178: p_api_name => l_api_name,
179: p_pkg_name => G_PKG_NAME,
180: p_exc_name => 'FPA_UTILITIES_PVT.G_RET_STS_UNEXP_ERROR',
181: p_msg_log => l_msg_log,
176: when FPA_UTILITIES_PVT.G_EXCEPTION_UNEXPECTED_ERROR then
177: x_return_status := FPA_UTILITIES_PVT.HANDLE_EXCEPTIONS(
178: p_api_name => l_api_name,
179: p_pkg_name => G_PKG_NAME,
180: p_exc_name => 'FPA_UTILITIES_PVT.G_RET_STS_UNEXP_ERROR',
181: p_msg_log => l_msg_log,
182: x_msg_count => x_msg_count,
183: x_msg_data => x_msg_data,
184: p_api_type => G_API_TYPE);
183: x_msg_data => x_msg_data,
184: p_api_type => G_API_TYPE);
185:
186: when OTHERS then
187: x_return_status := FPA_UTILITIES_PVT.HANDLE_EXCEPTIONS(
188: p_api_name => l_api_name,
189: p_pkg_name => G_PKG_NAME,
190: p_exc_name => 'OTHERS',
191: p_msg_log => l_msg_log||SQLERRM,
284: if (Validations.count = 0) THEN
285: return;
286: end if;
287:
288: FPA_UTILITIES_PVT.START_ACTIVITY(
289: p_api_name => l_api_name,
290: p_pkg_name => G_PKG_NAME,
291: p_init_msg_list => l_init_msg_list,
292: p_msg_log => 'Entering '||G_PKG_NAME||'.'||l_api_name);
323: x_return_status => l_return_status,
324: x_msg_count => l_msg_count,
325: x_msg_data => l_msg_data);
326:
327: if (l_return_status = FPA_UTILITIES_PVT.G_RET_STS_UNEXP_ERROR) then
328: l_msg_log := 'Close_Validations';
329: raise FPA_UTILITIES_PVT.G_EXCEPTION_UNEXPECTED_ERROR;
330: elsif (l_return_status = FPA_UTILITIES_PVT.G_RET_STS_ERROR) then
331: l_msg_log := 'Close_Validations';
325: x_msg_data => l_msg_data);
326:
327: if (l_return_status = FPA_UTILITIES_PVT.G_RET_STS_UNEXP_ERROR) then
328: l_msg_log := 'Close_Validations';
329: raise FPA_UTILITIES_PVT.G_EXCEPTION_UNEXPECTED_ERROR;
330: elsif (l_return_status = FPA_UTILITIES_PVT.G_RET_STS_ERROR) then
331: l_msg_log := 'Close_Validations';
332: raise FPA_UTILITIES_PVT.G_EXCEPTION_ERROR;
333: end if;
326:
327: if (l_return_status = FPA_UTILITIES_PVT.G_RET_STS_UNEXP_ERROR) then
328: l_msg_log := 'Close_Validations';
329: raise FPA_UTILITIES_PVT.G_EXCEPTION_UNEXPECTED_ERROR;
330: elsif (l_return_status = FPA_UTILITIES_PVT.G_RET_STS_ERROR) then
331: l_msg_log := 'Close_Validations';
332: raise FPA_UTILITIES_PVT.G_EXCEPTION_ERROR;
333: end if;
334:
328: l_msg_log := 'Close_Validations';
329: raise FPA_UTILITIES_PVT.G_EXCEPTION_UNEXPECTED_ERROR;
330: elsif (l_return_status = FPA_UTILITIES_PVT.G_RET_STS_ERROR) then
331: l_msg_log := 'Close_Validations';
332: raise FPA_UTILITIES_PVT.G_EXCEPTION_ERROR;
333: end if;
334:
335: end loop;
336:
335: end loop;
336:
337: Initialize;
338:
339: FPA_UTILITIES_PVT.END_ACTIVITY(
340: p_api_name => l_api_name,
341: p_pkg_name => G_PKG_NAME,
342: p_msg_log => null,
343: x_msg_count => l_msg_count,
343: x_msg_count => l_msg_count,
344: x_msg_data => l_msg_data);
345:
346: EXCEPTION
347: when FPA_UTILITIES_PVT.G_EXCEPTION_ERROR then
348: l_return_status := FPA_UTILITIES_PVT.HANDLE_EXCEPTIONS(
349: p_api_name => l_api_name,
350: p_pkg_name => G_PKG_NAME,
351: p_exc_name => 'FPA_UTILITIES_PVT.G_RET_STS_ERROR',
344: x_msg_data => l_msg_data);
345:
346: EXCEPTION
347: when FPA_UTILITIES_PVT.G_EXCEPTION_ERROR then
348: l_return_status := FPA_UTILITIES_PVT.HANDLE_EXCEPTIONS(
349: p_api_name => l_api_name,
350: p_pkg_name => G_PKG_NAME,
351: p_exc_name => 'FPA_UTILITIES_PVT.G_RET_STS_ERROR',
352: p_msg_log => l_msg_log,
347: when FPA_UTILITIES_PVT.G_EXCEPTION_ERROR then
348: l_return_status := FPA_UTILITIES_PVT.HANDLE_EXCEPTIONS(
349: p_api_name => l_api_name,
350: p_pkg_name => G_PKG_NAME,
351: p_exc_name => 'FPA_UTILITIES_PVT.G_RET_STS_ERROR',
352: p_msg_log => l_msg_log,
353: x_msg_count => l_msg_count,
354: x_msg_data => l_msg_data,
355: p_api_type => G_API_TYPE);
353: x_msg_count => l_msg_count,
354: x_msg_data => l_msg_data,
355: p_api_type => G_API_TYPE);
356:
357: when FPA_UTILITIES_PVT.G_EXCEPTION_UNEXPECTED_ERROR then
358: l_return_status := FPA_UTILITIES_PVT.HANDLE_EXCEPTIONS(
359: p_api_name => l_api_name,
360: p_pkg_name => G_PKG_NAME,
361: p_exc_name => 'FPA_UTILITIES_PVT.G_RET_STS_UNEXP_ERROR',
354: x_msg_data => l_msg_data,
355: p_api_type => G_API_TYPE);
356:
357: when FPA_UTILITIES_PVT.G_EXCEPTION_UNEXPECTED_ERROR then
358: l_return_status := FPA_UTILITIES_PVT.HANDLE_EXCEPTIONS(
359: p_api_name => l_api_name,
360: p_pkg_name => G_PKG_NAME,
361: p_exc_name => 'FPA_UTILITIES_PVT.G_RET_STS_UNEXP_ERROR',
362: p_msg_log => l_msg_log,
357: when FPA_UTILITIES_PVT.G_EXCEPTION_UNEXPECTED_ERROR then
358: l_return_status := FPA_UTILITIES_PVT.HANDLE_EXCEPTIONS(
359: p_api_name => l_api_name,
360: p_pkg_name => G_PKG_NAME,
361: p_exc_name => 'FPA_UTILITIES_PVT.G_RET_STS_UNEXP_ERROR',
362: p_msg_log => l_msg_log,
363: x_msg_count => l_msg_count,
364: x_msg_data => l_msg_data,
365: p_api_type => G_API_TYPE);
364: x_msg_data => l_msg_data,
365: p_api_type => G_API_TYPE);
366:
367: when OTHERS then
368: l_return_status := FPA_UTILITIES_PVT.HANDLE_EXCEPTIONS(
369: p_api_name => l_api_name,
370: p_pkg_name => G_PKG_NAME,
371: p_exc_name => 'OTHERS',
372: p_msg_log => l_msg_log||SQLERRM,
413: if (Validations.count > 0) THEN
414: Close_Validations;
415: end if;
416:
417: FPA_UTILITIES_PVT.START_ACTIVITY(
418: p_api_name => l_api_name,
419: p_pkg_name => G_PKG_NAME,
420: p_init_msg_list => l_init_msg_list,
421: p_msg_log => 'Entering '||G_PKG_NAME||'.'||l_api_name);
432: else
433: return false;
434: end if;
435:
436: FPA_UTILITIES_PVT.END_ACTIVITY(
437: p_api_name => l_api_name,
438: p_pkg_name => G_PKG_NAME,
439: p_msg_log => null,
440: x_msg_count => l_msg_count,
442:
443: EXCEPTION
444:
445: when OTHERS then
446: l_return_status := FPA_UTILITIES_PVT.HANDLE_EXCEPTIONS(
447: p_api_name => l_api_name,
448: p_pkg_name => G_PKG_NAME,
449: p_exc_name => 'OTHERS',
450: p_msg_log => l_msg_log||SQLERRM,
507: l_header_id INTEGER := null;
508:
509: BEGIN
510:
511: x_return_status := FPA_UTILITIES_PVT.G_RET_STS_SUCCESS;
512:
513: FPA_UTILITIES_PVT.START_ACTIVITY(
514: p_api_name => l_api_name,
515: p_pkg_name => G_PKG_NAME,
509: BEGIN
510:
511: x_return_status := FPA_UTILITIES_PVT.G_RET_STS_SUCCESS;
512:
513: FPA_UTILITIES_PVT.START_ACTIVITY(
514: p_api_name => l_api_name,
515: p_pkg_name => G_PKG_NAME,
516: p_init_msg_list => l_init_msg_list,
517: p_msg_log => 'Entering '||G_PKG_NAME||'.'||l_api_name);
527: CLOSE lock_csr;
528: END IF;
529: x_resource_status := G_RESOURCE_BUSY;
530: x_resource_id := l_header_id;
531: FPA_UTILITIES_PVT.END_ACTIVITY(
532: p_api_name => l_api_name,
533: p_pkg_name => G_PKG_NAME,
534: p_msg_log => null,
535: x_msg_count => x_msg_count,
539:
540: if(l_header_id is null) then
541: x_resource_status := G_NO_RESOURCE_REC;
542: x_resource_id := l_header_id;
543: FPA_UTILITIES_PVT.END_ACTIVITY(
544: p_api_name => l_api_name,
545: p_pkg_name => G_PKG_NAME,
546: p_msg_log => null,
547: x_msg_count => x_msg_count,
553: x_resource_id := l_header_id;
554: return;
555:
556: EXCEPTION
557: when FPA_UTILITIES_PVT.G_EXCEPTION_ERROR then
558: x_return_status := FPA_UTILITIES_PVT.HANDLE_EXCEPTIONS(
559: p_api_name => l_api_name,
560: p_pkg_name => G_PKG_NAME,
561: p_exc_name => 'FPA_UTILITIES_PVT.G_RET_STS_ERROR',
554: return;
555:
556: EXCEPTION
557: when FPA_UTILITIES_PVT.G_EXCEPTION_ERROR then
558: x_return_status := FPA_UTILITIES_PVT.HANDLE_EXCEPTIONS(
559: p_api_name => l_api_name,
560: p_pkg_name => G_PKG_NAME,
561: p_exc_name => 'FPA_UTILITIES_PVT.G_RET_STS_ERROR',
562: p_msg_log => l_msg_log,
557: when FPA_UTILITIES_PVT.G_EXCEPTION_ERROR then
558: x_return_status := FPA_UTILITIES_PVT.HANDLE_EXCEPTIONS(
559: p_api_name => l_api_name,
560: p_pkg_name => G_PKG_NAME,
561: p_exc_name => 'FPA_UTILITIES_PVT.G_RET_STS_ERROR',
562: p_msg_log => l_msg_log,
563: x_msg_count => x_msg_count,
564: x_msg_data => x_msg_data,
565: p_api_type => G_API_TYPE);
563: x_msg_count => x_msg_count,
564: x_msg_data => x_msg_data,
565: p_api_type => G_API_TYPE);
566:
567: when FPA_UTILITIES_PVT.G_EXCEPTION_UNEXPECTED_ERROR then
568: x_return_status := FPA_UTILITIES_PVT.HANDLE_EXCEPTIONS(
569: p_api_name => l_api_name,
570: p_pkg_name => G_PKG_NAME,
571: p_exc_name => 'FPA_UTILITIES_PVT.G_RET_STS_UNEXP_ERROR',
564: x_msg_data => x_msg_data,
565: p_api_type => G_API_TYPE);
566:
567: when FPA_UTILITIES_PVT.G_EXCEPTION_UNEXPECTED_ERROR then
568: x_return_status := FPA_UTILITIES_PVT.HANDLE_EXCEPTIONS(
569: p_api_name => l_api_name,
570: p_pkg_name => G_PKG_NAME,
571: p_exc_name => 'FPA_UTILITIES_PVT.G_RET_STS_UNEXP_ERROR',
572: p_msg_log => l_msg_log,
567: when FPA_UTILITIES_PVT.G_EXCEPTION_UNEXPECTED_ERROR then
568: x_return_status := FPA_UTILITIES_PVT.HANDLE_EXCEPTIONS(
569: p_api_name => l_api_name,
570: p_pkg_name => G_PKG_NAME,
571: p_exc_name => 'FPA_UTILITIES_PVT.G_RET_STS_UNEXP_ERROR',
572: p_msg_log => l_msg_log,
573: x_msg_count => x_msg_count,
574: x_msg_data => x_msg_data,
575: p_api_type => G_API_TYPE);
574: x_msg_data => x_msg_data,
575: p_api_type => G_API_TYPE);
576:
577: when OTHERS then
578: x_return_status := FPA_UTILITIES_PVT.HANDLE_EXCEPTIONS(
579: p_api_name => l_api_name,
580: p_pkg_name => G_PKG_NAME,
581: p_exc_name => 'OTHERS',
582: p_msg_log => l_msg_log||SQLERRM,
615: BEGIN
616:
617: DBMS_TRANSACTION.SAVEPOINT(L_API_NAME || G_API_TYPE);
618:
619: x_return_status := FPA_UTILITIES_PVT.G_RET_STS_SUCCESS;
620:
621: x_return_status := FPA_UTILITIES_PVT.START_ACTIVITY(
622: p_api_name => l_api_name,
623: p_pkg_name => G_PKG_NAME,
617: DBMS_TRANSACTION.SAVEPOINT(L_API_NAME || G_API_TYPE);
618:
619: x_return_status := FPA_UTILITIES_PVT.G_RET_STS_SUCCESS;
620:
621: x_return_status := FPA_UTILITIES_PVT.START_ACTIVITY(
622: p_api_name => l_api_name,
623: p_pkg_name => G_PKG_NAME,
624: p_init_msg_list => p_init_msg_list,
625: l_api_version => l_api_version,
627: p_api_type => G_API_TYPE,
628: p_msg_log => 'Entering Fpa_Validation_Pvt.Validate',
629: x_return_status => x_return_status);
630:
631: if (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_UNEXP_ERROR) then
632: l_msg_log := 'start_activity';
633: raise FPA_UTILITIES_PVT.G_EXCEPTION_UNEXPECTED_ERROR;
634: elsif (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_ERROR) then
635: l_msg_log := 'start_activity';
629: x_return_status => x_return_status);
630:
631: if (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_UNEXP_ERROR) then
632: l_msg_log := 'start_activity';
633: raise FPA_UTILITIES_PVT.G_EXCEPTION_UNEXPECTED_ERROR;
634: elsif (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_ERROR) then
635: l_msg_log := 'start_activity';
636: raise FPA_UTILITIES_PVT.G_EXCEPTION_ERROR;
637: end if;
630:
631: if (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_UNEXP_ERROR) then
632: l_msg_log := 'start_activity';
633: raise FPA_UTILITIES_PVT.G_EXCEPTION_UNEXPECTED_ERROR;
634: elsif (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_ERROR) then
635: l_msg_log := 'start_activity';
636: raise FPA_UTILITIES_PVT.G_EXCEPTION_ERROR;
637: end if;
638:
632: l_msg_log := 'start_activity';
633: raise FPA_UTILITIES_PVT.G_EXCEPTION_UNEXPECTED_ERROR;
634: elsif (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_ERROR) then
635: l_msg_log := 'start_activity';
636: raise FPA_UTILITIES_PVT.G_EXCEPTION_ERROR;
637: end if;
638:
639: Initialize;
640:
651: x_return_status => x_return_status,
652: x_msg_count => x_msg_count,
653: x_msg_data => x_msg_data);
654:
655: if (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_UNEXP_ERROR) then
656: l_msg_log := 'Validate.Check_Lock_Resource';
657: raise FPA_UTILITIES_PVT.G_EXCEPTION_UNEXPECTED_ERROR;
658: elsif (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_ERROR) then
659: l_msg_log := 'validate.Check_Lock_Resource';
653: x_msg_data => x_msg_data);
654:
655: if (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_UNEXP_ERROR) then
656: l_msg_log := 'Validate.Check_Lock_Resource';
657: raise FPA_UTILITIES_PVT.G_EXCEPTION_UNEXPECTED_ERROR;
658: elsif (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_ERROR) then
659: l_msg_log := 'validate.Check_Lock_Resource';
660: raise FPA_UTILITIES_PVT.G_EXCEPTION_ERROR;
661: end if;
654:
655: if (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_UNEXP_ERROR) then
656: l_msg_log := 'Validate.Check_Lock_Resource';
657: raise FPA_UTILITIES_PVT.G_EXCEPTION_UNEXPECTED_ERROR;
658: elsif (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_ERROR) then
659: l_msg_log := 'validate.Check_Lock_Resource';
660: raise FPA_UTILITIES_PVT.G_EXCEPTION_ERROR;
661: end if;
662:
656: l_msg_log := 'Validate.Check_Lock_Resource';
657: raise FPA_UTILITIES_PVT.G_EXCEPTION_UNEXPECTED_ERROR;
658: elsif (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_ERROR) then
659: l_msg_log := 'validate.Check_Lock_Resource';
660: raise FPA_UTILITIES_PVT.G_EXCEPTION_ERROR;
661: end if;
662:
663: if(l_res_status = G_NO_RESOURCE_REC) then
664: -- no header record
677: x_return_status => x_return_status,
678: x_msg_count => x_msg_count,
679: x_msg_data => x_msg_data);
680:
681: if (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_UNEXP_ERROR) then
682: l_msg_log := 'Validations';
683: raise FPA_UTILITIES_PVT.G_EXCEPTION_UNEXPECTED_ERROR;
684: elsif (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_ERROR) then
685: l_msg_log := 'Validations';
679: x_msg_data => x_msg_data);
680:
681: if (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_UNEXP_ERROR) then
682: l_msg_log := 'Validations';
683: raise FPA_UTILITIES_PVT.G_EXCEPTION_UNEXPECTED_ERROR;
684: elsif (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_ERROR) then
685: l_msg_log := 'Validations';
686: raise FPA_UTILITIES_PVT.G_EXCEPTION_ERROR;
687: end if;
680:
681: if (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_UNEXP_ERROR) then
682: l_msg_log := 'Validations';
683: raise FPA_UTILITIES_PVT.G_EXCEPTION_UNEXPECTED_ERROR;
684: elsif (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_ERROR) then
685: l_msg_log := 'Validations';
686: raise FPA_UTILITIES_PVT.G_EXCEPTION_ERROR;
687: end if;
688:
682: l_msg_log := 'Validations';
683: raise FPA_UTILITIES_PVT.G_EXCEPTION_UNEXPECTED_ERROR;
684: elsif (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_ERROR) then
685: l_msg_log := 'Validations';
686: raise FPA_UTILITIES_PVT.G_EXCEPTION_ERROR;
687: end if;
688:
689: -- following commit and new savepoint not required
690: -- if header record can be created before transaction starts
702: x_return_status => x_return_status,
703: x_msg_count => x_msg_count,
704: x_msg_data => x_msg_data);
705:
706: if (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_UNEXP_ERROR) then
707: l_msg_log := 'Validate.Check_Lock_Resource';
708: raise FPA_UTILITIES_PVT.G_EXCEPTION_UNEXPECTED_ERROR;
709: elsif (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_ERROR) then
710: l_msg_log := 'validate.Check_Lock_Resource';
704: x_msg_data => x_msg_data);
705:
706: if (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_UNEXP_ERROR) then
707: l_msg_log := 'Validate.Check_Lock_Resource';
708: raise FPA_UTILITIES_PVT.G_EXCEPTION_UNEXPECTED_ERROR;
709: elsif (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_ERROR) then
710: l_msg_log := 'validate.Check_Lock_Resource';
711: raise FPA_UTILITIES_PVT.G_EXCEPTION_ERROR;
712: end if;
705:
706: if (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_UNEXP_ERROR) then
707: l_msg_log := 'Validate.Check_Lock_Resource';
708: raise FPA_UTILITIES_PVT.G_EXCEPTION_UNEXPECTED_ERROR;
709: elsif (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_ERROR) then
710: l_msg_log := 'validate.Check_Lock_Resource';
711: raise FPA_UTILITIES_PVT.G_EXCEPTION_ERROR;
712: end if;
713:
707: l_msg_log := 'Validate.Check_Lock_Resource';
708: raise FPA_UTILITIES_PVT.G_EXCEPTION_UNEXPECTED_ERROR;
709: elsif (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_ERROR) then
710: l_msg_log := 'validate.Check_Lock_Resource';
711: raise FPA_UTILITIES_PVT.G_EXCEPTION_ERROR;
712: end if;
713:
714: elsif(l_res_status = G_RESOURCE_BUSY) then
715:
712: end if;
713:
714: elsif(l_res_status = G_RESOURCE_BUSY) then
715:
716: Fpa_Utilities_Pvt.Set_Message(
717: p_app_name => G_APP_NAME,
718: p_msg_name => 'FPA_USER_VALIDATION_IN_PROGRESS');
719: raise Fpa_Utilities_Pvt.G_EXCEPTION_ERROR;
720:
715:
716: Fpa_Utilities_Pvt.Set_Message(
717: p_app_name => G_APP_NAME,
718: p_msg_name => 'FPA_USER_VALIDATION_IN_PROGRESS');
719: raise Fpa_Utilities_Pvt.G_EXCEPTION_ERROR;
720:
721: end if;
722:
723: DELETE FROM FPA_VALIDATION_LINES FL
749: LAST_UPDATE_LOGIN = FND_GLOBAL.LOGIN_ID
750: WHERE VALIDATION_ID = L_HEADER_ID;
751:
752:
753: if (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_UNEXP_ERROR) then
754: l_msg_log := 'Validate';
755: raise FPA_UTILITIES_PVT.G_EXCEPTION_UNEXPECTED_ERROR;
756: elsif (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_ERROR) then
757: l_msg_log := 'Validate';
751:
752:
753: if (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_UNEXP_ERROR) then
754: l_msg_log := 'Validate';
755: raise FPA_UTILITIES_PVT.G_EXCEPTION_UNEXPECTED_ERROR;
756: elsif (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_ERROR) then
757: l_msg_log := 'Validate';
758: raise FPA_UTILITIES_PVT.G_EXCEPTION_ERROR;
759: end if;
752:
753: if (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_UNEXP_ERROR) then
754: l_msg_log := 'Validate';
755: raise FPA_UTILITIES_PVT.G_EXCEPTION_UNEXPECTED_ERROR;
756: elsif (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_ERROR) then
757: l_msg_log := 'Validate';
758: raise FPA_UTILITIES_PVT.G_EXCEPTION_ERROR;
759: end if;
760:
754: l_msg_log := 'Validate';
755: raise FPA_UTILITIES_PVT.G_EXCEPTION_UNEXPECTED_ERROR;
756: elsif (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_ERROR) then
757: l_msg_log := 'Validate';
758: raise FPA_UTILITIES_PVT.G_EXCEPTION_ERROR;
759: end if;
760:
761: x_return_status := FPA_UTILITIES_PVT.G_RET_STS_SUCCESS;
762:
757: l_msg_log := 'Validate';
758: raise FPA_UTILITIES_PVT.G_EXCEPTION_ERROR;
759: end if;
760:
761: x_return_status := FPA_UTILITIES_PVT.G_RET_STS_SUCCESS;
762:
763: FPA_UTILITIES_PVT.END_ACTIVITY(
764: p_api_name => l_api_name,
765: p_pkg_name => G_PKG_NAME,
759: end if;
760:
761: x_return_status := FPA_UTILITIES_PVT.G_RET_STS_SUCCESS;
762:
763: FPA_UTILITIES_PVT.END_ACTIVITY(
764: p_api_name => l_api_name,
765: p_pkg_name => G_PKG_NAME,
766: p_msg_log => null,
767: x_msg_count => x_msg_count,
768: x_msg_data => x_msg_data);
769:
770:
771: EXCEPTION
772: when FPA_UTILITIES_PVT.G_EXCEPTION_ERROR then
773: UnInitialize;
774: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(L_API_NAME || G_API_TYPE);
775:
776: x_return_status := FPA_UTILITIES_PVT.HANDLE_EXCEPTIONS(
772: when FPA_UTILITIES_PVT.G_EXCEPTION_ERROR then
773: UnInitialize;
774: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(L_API_NAME || G_API_TYPE);
775:
776: x_return_status := FPA_UTILITIES_PVT.HANDLE_EXCEPTIONS(
777: p_api_name => l_api_name,
778: p_pkg_name => G_PKG_NAME,
779: p_exc_name => 'FPA_UTILITIES_PVT.G_RET_STS_ERROR',
780: p_msg_log => l_msg_log,
775:
776: x_return_status := FPA_UTILITIES_PVT.HANDLE_EXCEPTIONS(
777: p_api_name => l_api_name,
778: p_pkg_name => G_PKG_NAME,
779: p_exc_name => 'FPA_UTILITIES_PVT.G_RET_STS_ERROR',
780: p_msg_log => l_msg_log,
781: x_msg_count => x_msg_count,
782: x_msg_data => x_msg_data,
783: p_api_type => G_API_TYPE);
781: x_msg_count => x_msg_count,
782: x_msg_data => x_msg_data,
783: p_api_type => G_API_TYPE);
784:
785: when FPA_UTILITIES_PVT.G_EXCEPTION_UNEXPECTED_ERROR then
786: UnInitialize;
787: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(L_API_NAME || G_API_TYPE);
788:
789: x_return_status := FPA_UTILITIES_PVT.HANDLE_EXCEPTIONS(
785: when FPA_UTILITIES_PVT.G_EXCEPTION_UNEXPECTED_ERROR then
786: UnInitialize;
787: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(L_API_NAME || G_API_TYPE);
788:
789: x_return_status := FPA_UTILITIES_PVT.HANDLE_EXCEPTIONS(
790: p_api_name => l_api_name,
791: p_pkg_name => G_PKG_NAME,
792: p_exc_name => 'FPA_UTILITIES_PVT.G_RET_STS_UNEXP_ERROR',
793: p_msg_log => l_msg_log,
788:
789: x_return_status := FPA_UTILITIES_PVT.HANDLE_EXCEPTIONS(
790: p_api_name => l_api_name,
791: p_pkg_name => G_PKG_NAME,
792: p_exc_name => 'FPA_UTILITIES_PVT.G_RET_STS_UNEXP_ERROR',
793: p_msg_log => l_msg_log,
794: x_msg_count => x_msg_count,
795: x_msg_data => x_msg_data,
796: p_api_type => G_API_TYPE);
798: when OTHERS then
799: UnInitialize;
800: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(L_API_NAME || G_API_TYPE);
801:
802: x_return_status := FPA_UTILITIES_PVT.HANDLE_EXCEPTIONS(
803: p_api_name => l_api_name,
804: p_pkg_name => G_PKG_NAME,
805: p_exc_name => 'OTHERS',
806: p_msg_log => l_msg_log||SQLERRM,
831: l_projects_tbl PROJECT_ID_TBL_TYPE;
832:
833: BEGIN
834:
835: x_return_status := FPA_UTILITIES_PVT.G_RET_STS_SUCCESS;
836:
837: x_return_status := FPA_UTILITIES_PVT.START_ACTIVITY(
838: p_api_name => l_api_name,
839: p_pkg_name => G_PKG_NAME,
833: BEGIN
834:
835: x_return_status := FPA_UTILITIES_PVT.G_RET_STS_SUCCESS;
836:
837: x_return_status := FPA_UTILITIES_PVT.START_ACTIVITY(
838: p_api_name => l_api_name,
839: p_pkg_name => G_PKG_NAME,
840: p_init_msg_list => p_init_msg_list,
841: l_api_version => l_api_version,
843: p_api_type => G_API_TYPE,
844: p_msg_log => 'Entering Fpa_Validation_Pvt.Validate',
845: x_return_status => x_return_status);
846:
847: if (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_UNEXP_ERROR) then
848: l_msg_log := 'start_activity';
849: raise FPA_UTILITIES_PVT.G_EXCEPTION_UNEXPECTED_ERROR;
850: elsif (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_ERROR) then
851: l_msg_log := 'start_activity';
845: x_return_status => x_return_status);
846:
847: if (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_UNEXP_ERROR) then
848: l_msg_log := 'start_activity';
849: raise FPA_UTILITIES_PVT.G_EXCEPTION_UNEXPECTED_ERROR;
850: elsif (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_ERROR) then
851: l_msg_log := 'start_activity';
852: raise FPA_UTILITIES_PVT.G_EXCEPTION_ERROR;
853: end if;
846:
847: if (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_UNEXP_ERROR) then
848: l_msg_log := 'start_activity';
849: raise FPA_UTILITIES_PVT.G_EXCEPTION_UNEXPECTED_ERROR;
850: elsif (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_ERROR) then
851: l_msg_log := 'start_activity';
852: raise FPA_UTILITIES_PVT.G_EXCEPTION_ERROR;
853: end if;
854:
848: l_msg_log := 'start_activity';
849: raise FPA_UTILITIES_PVT.G_EXCEPTION_UNEXPECTED_ERROR;
850: elsif (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_ERROR) then
851: l_msg_log := 'start_activity';
852: raise FPA_UTILITIES_PVT.G_EXCEPTION_ERROR;
853: end if;
854:
855: Validate(
856: p_api_version => p_api_version,
862: x_return_status => x_return_status,
863: x_msg_count => x_msg_count,
864: x_msg_data => x_msg_data);
865:
866: if (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_UNEXP_ERROR) then
867: l_msg_log := 'Validate';
868: raise FPA_UTILITIES_PVT.G_EXCEPTION_UNEXPECTED_ERROR;
869: elsif (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_ERROR) then
870: l_msg_log := 'Validate';
864: x_msg_data => x_msg_data);
865:
866: if (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_UNEXP_ERROR) then
867: l_msg_log := 'Validate';
868: raise FPA_UTILITIES_PVT.G_EXCEPTION_UNEXPECTED_ERROR;
869: elsif (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_ERROR) then
870: l_msg_log := 'Validate';
871: raise FPA_UTILITIES_PVT.G_EXCEPTION_ERROR;
872: end if;
865:
866: if (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_UNEXP_ERROR) then
867: l_msg_log := 'Validate';
868: raise FPA_UTILITIES_PVT.G_EXCEPTION_UNEXPECTED_ERROR;
869: elsif (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_ERROR) then
870: l_msg_log := 'Validate';
871: raise FPA_UTILITIES_PVT.G_EXCEPTION_ERROR;
872: end if;
873:
867: l_msg_log := 'Validate';
868: raise FPA_UTILITIES_PVT.G_EXCEPTION_UNEXPECTED_ERROR;
869: elsif (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_ERROR) then
870: l_msg_log := 'Validate';
871: raise FPA_UTILITIES_PVT.G_EXCEPTION_ERROR;
872: end if;
873:
874: x_return_status := FPA_UTILITIES_PVT.G_RET_STS_SUCCESS;
875:
870: l_msg_log := 'Validate';
871: raise FPA_UTILITIES_PVT.G_EXCEPTION_ERROR;
872: end if;
873:
874: x_return_status := FPA_UTILITIES_PVT.G_RET_STS_SUCCESS;
875:
876: FPA_UTILITIES_PVT.END_ACTIVITY(
877: p_api_name => l_api_name,
878: p_pkg_name => G_PKG_NAME,
872: end if;
873:
874: x_return_status := FPA_UTILITIES_PVT.G_RET_STS_SUCCESS;
875:
876: FPA_UTILITIES_PVT.END_ACTIVITY(
877: p_api_name => l_api_name,
878: p_pkg_name => G_PKG_NAME,
879: p_msg_log => null,
880: x_msg_count => x_msg_count,
881: x_msg_data => x_msg_data);
882:
883:
884: EXCEPTION
885: when FPA_UTILITIES_PVT.G_EXCEPTION_ERROR then
886:
887: x_return_status := FPA_UTILITIES_PVT.HANDLE_EXCEPTIONS(
888: p_api_name => l_api_name,
889: p_pkg_name => G_PKG_NAME,
883:
884: EXCEPTION
885: when FPA_UTILITIES_PVT.G_EXCEPTION_ERROR then
886:
887: x_return_status := FPA_UTILITIES_PVT.HANDLE_EXCEPTIONS(
888: p_api_name => l_api_name,
889: p_pkg_name => G_PKG_NAME,
890: p_exc_name => 'FPA_UTILITIES_PVT.G_RET_STS_ERROR',
891: p_msg_log => l_msg_log,
886:
887: x_return_status := FPA_UTILITIES_PVT.HANDLE_EXCEPTIONS(
888: p_api_name => l_api_name,
889: p_pkg_name => G_PKG_NAME,
890: p_exc_name => 'FPA_UTILITIES_PVT.G_RET_STS_ERROR',
891: p_msg_log => l_msg_log,
892: x_msg_count => x_msg_count,
893: x_msg_data => x_msg_data,
894: p_api_type => G_API_TYPE);
892: x_msg_count => x_msg_count,
893: x_msg_data => x_msg_data,
894: p_api_type => G_API_TYPE);
895:
896: when FPA_UTILITIES_PVT.G_EXCEPTION_UNEXPECTED_ERROR then
897:
898: x_return_status := FPA_UTILITIES_PVT.HANDLE_EXCEPTIONS(
899: p_api_name => l_api_name,
900: p_pkg_name => G_PKG_NAME,
894: p_api_type => G_API_TYPE);
895:
896: when FPA_UTILITIES_PVT.G_EXCEPTION_UNEXPECTED_ERROR then
897:
898: x_return_status := FPA_UTILITIES_PVT.HANDLE_EXCEPTIONS(
899: p_api_name => l_api_name,
900: p_pkg_name => G_PKG_NAME,
901: p_exc_name => 'FPA_UTILITIES_PVT.G_RET_STS_UNEXP_ERROR',
902: p_msg_log => l_msg_log,
897:
898: x_return_status := FPA_UTILITIES_PVT.HANDLE_EXCEPTIONS(
899: p_api_name => l_api_name,
900: p_pkg_name => G_PKG_NAME,
901: p_exc_name => 'FPA_UTILITIES_PVT.G_RET_STS_UNEXP_ERROR',
902: p_msg_log => l_msg_log,
903: x_msg_count => x_msg_count,
904: x_msg_data => x_msg_data,
905: p_api_type => G_API_TYPE);
905: p_api_type => G_API_TYPE);
906:
907: when OTHERS then
908:
909: x_return_status := FPA_UTILITIES_PVT.HANDLE_EXCEPTIONS(
910: p_api_name => l_api_name,
911: p_pkg_name => G_PKG_NAME,
912: p_exc_name => 'OTHERS',
913: p_msg_log => l_msg_log||SQLERRM,