14: CLOSE get_new_id;
15: RETURN (new_id);
16: ELSE
17: CLOSE get_new_id;
18: fnd_message.set_name('SQLGL', 'GL_ERROR_GETTING_UNIQUE_ID');
19: fnd_message.set_token('SEQUENCE', 'GL_ACCESS_SET_NORM_ASSIGN_S');
20: app_exception.raise_exception;
21: END IF;
22:
15: RETURN (new_id);
16: ELSE
17: CLOSE get_new_id;
18: fnd_message.set_name('SQLGL', 'GL_ERROR_GETTING_UNIQUE_ID');
19: fnd_message.set_token('SEQUENCE', 'GL_ACCESS_SET_NORM_ASSIGN_S');
20: app_exception.raise_exception;
21: END IF;
22:
23: EXCEPTION
23: EXCEPTION
24: WHEN app_exceptions.application_exception THEN
25: RAISE;
26: WHEN OTHERS THEN
27: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
28: fnd_message.set_token('PROCEDURE',
29: 'gl_access_details_pkg.next_record_id');
30: RAISE;
31: END get_record_id;
24: WHEN app_exceptions.application_exception THEN
25: RAISE;
26: WHEN OTHERS THEN
27: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
28: fnd_message.set_token('PROCEDURE',
29: 'gl_access_details_pkg.next_record_id');
30: RAISE;
31: END get_record_id;
32:
212: OPEN C;
213: FETCH C INTO Recinfo;
214: if (C%NOTFOUND) then
215: CLOSE C;
216: FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
217: APP_EXCEPTION.RAISE_EXCEPTION;
218: end if;
219: CLOSE C;
220:
320: AND (X_Attribute15 IS NULL)))
321: ) then
322: return;
323: else
324: FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_CHANGED');
325: APP_EXCEPTION.RAISE_EXCEPTION;
326: end if;
327: END Lock_Row;
328:
362: FETCH get_duplicate INTO dummy;
363:
364: IF get_duplicate%FOUND THEN
365: CLOSE get_duplicate;
366: fnd_message.set_name('SQLGL', 'GL_ACCESS_SET_DUPLICATE_DETAIL');
367: app_exception.raise_exception;
368: END IF;
369:
370: CLOSE get_duplicate;
372: EXCEPTION
373: WHEN app_exceptions.application_exception THEN
374: RAISE;
375: WHEN OTHERS THEN
376: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
377: fnd_message.set_token('PROCEDURE',
378: 'GL_ACCESS_DETAILS_PKG.check_duplicate');
379: RAISE;
380: END check_duplicate;
373: WHEN app_exceptions.application_exception THEN
374: RAISE;
375: WHEN OTHERS THEN
376: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
377: fnd_message.set_token('PROCEDURE',
378: 'GL_ACCESS_DETAILS_PKG.check_duplicate');
379: RAISE;
380: END check_duplicate;
381:
403: -- check ledger info against access set
404: IF ( X_das_coa_id <> l_ledger_coa_id
405: OR X_das_period_set_name <> l_ledger_period_set_name
406: OR X_das_period_type <> l_ledger_period_type) THEN
407: fnd_message.set_name('SQLGL', 'GL_API_DAS_DETL_LEDGER_ERROR');
408: app_exception.raise_exception;
409: END IF;
410:
411: -- check access set type vs. all_segment_value_flag
409: END IF;
410:
411: -- check access set type vs. all_segment_value_flag
412: IF (X_das_security_code = 'F' AND X_All_Segment_Value_Flag <> 'Y') THEN
413: fnd_message.set_name('SQLGL', 'GL_API_DEPENDENT_VALUE');
414: fnd_message.set_token('DEPATTR', 'AllSegmentValueFlag');
415: fnd_message.set_token('VALUE', X_das_security_code);
416: fnd_message.set_token('ATTRIBUTE', 'SecuritySegmentCode');
417: app_exception.raise_exception;
410:
411: -- check access set type vs. all_segment_value_flag
412: IF (X_das_security_code = 'F' AND X_All_Segment_Value_Flag <> 'Y') THEN
413: fnd_message.set_name('SQLGL', 'GL_API_DEPENDENT_VALUE');
414: fnd_message.set_token('DEPATTR', 'AllSegmentValueFlag');
415: fnd_message.set_token('VALUE', X_das_security_code);
416: fnd_message.set_token('ATTRIBUTE', 'SecuritySegmentCode');
417: app_exception.raise_exception;
418: END IF;
411: -- check access set type vs. all_segment_value_flag
412: IF (X_das_security_code = 'F' AND X_All_Segment_Value_Flag <> 'Y') THEN
413: fnd_message.set_name('SQLGL', 'GL_API_DEPENDENT_VALUE');
414: fnd_message.set_token('DEPATTR', 'AllSegmentValueFlag');
415: fnd_message.set_token('VALUE', X_das_security_code);
416: fnd_message.set_token('ATTRIBUTE', 'SecuritySegmentCode');
417: app_exception.raise_exception;
418: END IF;
419:
412: IF (X_das_security_code = 'F' AND X_All_Segment_Value_Flag <> 'Y') THEN
413: fnd_message.set_name('SQLGL', 'GL_API_DEPENDENT_VALUE');
414: fnd_message.set_token('DEPATTR', 'AllSegmentValueFlag');
415: fnd_message.set_token('VALUE', X_das_security_code);
416: fnd_message.set_token('ATTRIBUTE', 'SecuritySegmentCode');
417: app_exception.raise_exception;
418: END IF;
419:
420: -- check all_segment_value_flag, segment_value and segment_value_type_code
419:
420: -- check all_segment_value_flag, segment_value and segment_value_type_code
421: IF (X_All_Segment_Value_Flag = 'Y') THEN
422: IF (X_Segment_Value IS NOT NULL) THEN
423: fnd_message.set_name('SQLGL', 'GL_API_DEP_NULL_VALUE');
424: fnd_message.set_token('DEPATTR', 'SegmentValue');
425: fnd_message.set_token('VALUE', X_All_Segment_Value_Flag);
426: fnd_message.set_token('ATTRIBUTE', 'AllSegmentValueFlag');
427: app_exception.raise_exception;
420: -- check all_segment_value_flag, segment_value and segment_value_type_code
421: IF (X_All_Segment_Value_Flag = 'Y') THEN
422: IF (X_Segment_Value IS NOT NULL) THEN
423: fnd_message.set_name('SQLGL', 'GL_API_DEP_NULL_VALUE');
424: fnd_message.set_token('DEPATTR', 'SegmentValue');
425: fnd_message.set_token('VALUE', X_All_Segment_Value_Flag);
426: fnd_message.set_token('ATTRIBUTE', 'AllSegmentValueFlag');
427: app_exception.raise_exception;
428: ELSIF (X_Segment_Value_Type_Code <> 'S') THEN
421: IF (X_All_Segment_Value_Flag = 'Y') THEN
422: IF (X_Segment_Value IS NOT NULL) THEN
423: fnd_message.set_name('SQLGL', 'GL_API_DEP_NULL_VALUE');
424: fnd_message.set_token('DEPATTR', 'SegmentValue');
425: fnd_message.set_token('VALUE', X_All_Segment_Value_Flag);
426: fnd_message.set_token('ATTRIBUTE', 'AllSegmentValueFlag');
427: app_exception.raise_exception;
428: ELSIF (X_Segment_Value_Type_Code <> 'S') THEN
429: fnd_message.set_name('SQLGL', 'GL_API_DEPENDENT_VALUE');
422: IF (X_Segment_Value IS NOT NULL) THEN
423: fnd_message.set_name('SQLGL', 'GL_API_DEP_NULL_VALUE');
424: fnd_message.set_token('DEPATTR', 'SegmentValue');
425: fnd_message.set_token('VALUE', X_All_Segment_Value_Flag);
426: fnd_message.set_token('ATTRIBUTE', 'AllSegmentValueFlag');
427: app_exception.raise_exception;
428: ELSIF (X_Segment_Value_Type_Code <> 'S') THEN
429: fnd_message.set_name('SQLGL', 'GL_API_DEPENDENT_VALUE');
430: fnd_message.set_token('DEPATTR', 'SegmentValueTypeCode');
425: fnd_message.set_token('VALUE', X_All_Segment_Value_Flag);
426: fnd_message.set_token('ATTRIBUTE', 'AllSegmentValueFlag');
427: app_exception.raise_exception;
428: ELSIF (X_Segment_Value_Type_Code <> 'S') THEN
429: fnd_message.set_name('SQLGL', 'GL_API_DEPENDENT_VALUE');
430: fnd_message.set_token('DEPATTR', 'SegmentValueTypeCode');
431: fnd_message.set_token('VALUE', X_All_Segment_Value_Flag);
432: fnd_message.set_token('ATTRIBUTE', 'AllSegmentValueFlag');
433: app_exception.raise_exception;
426: fnd_message.set_token('ATTRIBUTE', 'AllSegmentValueFlag');
427: app_exception.raise_exception;
428: ELSIF (X_Segment_Value_Type_Code <> 'S') THEN
429: fnd_message.set_name('SQLGL', 'GL_API_DEPENDENT_VALUE');
430: fnd_message.set_token('DEPATTR', 'SegmentValueTypeCode');
431: fnd_message.set_token('VALUE', X_All_Segment_Value_Flag);
432: fnd_message.set_token('ATTRIBUTE', 'AllSegmentValueFlag');
433: app_exception.raise_exception;
434: END IF;
427: app_exception.raise_exception;
428: ELSIF (X_Segment_Value_Type_Code <> 'S') THEN
429: fnd_message.set_name('SQLGL', 'GL_API_DEPENDENT_VALUE');
430: fnd_message.set_token('DEPATTR', 'SegmentValueTypeCode');
431: fnd_message.set_token('VALUE', X_All_Segment_Value_Flag);
432: fnd_message.set_token('ATTRIBUTE', 'AllSegmentValueFlag');
433: app_exception.raise_exception;
434: END IF;
435:
428: ELSIF (X_Segment_Value_Type_Code <> 'S') THEN
429: fnd_message.set_name('SQLGL', 'GL_API_DEPENDENT_VALUE');
430: fnd_message.set_token('DEPATTR', 'SegmentValueTypeCode');
431: fnd_message.set_token('VALUE', X_All_Segment_Value_Flag);
432: fnd_message.set_token('ATTRIBUTE', 'AllSegmentValueFlag');
433: app_exception.raise_exception;
434: END IF;
435:
436: ELSE
434: END IF;
435:
436: ELSE
437: IF (X_Segment_Value IS NULL) THEN
438: fnd_message.set_name('SQLGL', 'GL_API_DEPENDENT_VALUE');
439: fnd_message.set_token('DEPATTR', 'SegmentValue');
440: fnd_message.set_token('VALUE', X_All_Segment_Value_Flag);
441: fnd_message.set_token('ATTRIBUTE', 'AllSegmentValueFlag');
442: app_exception.raise_exception;
435:
436: ELSE
437: IF (X_Segment_Value IS NULL) THEN
438: fnd_message.set_name('SQLGL', 'GL_API_DEPENDENT_VALUE');
439: fnd_message.set_token('DEPATTR', 'SegmentValue');
440: fnd_message.set_token('VALUE', X_All_Segment_Value_Flag);
441: fnd_message.set_token('ATTRIBUTE', 'AllSegmentValueFlag');
442: app_exception.raise_exception;
443: ELSE
436: ELSE
437: IF (X_Segment_Value IS NULL) THEN
438: fnd_message.set_name('SQLGL', 'GL_API_DEPENDENT_VALUE');
439: fnd_message.set_token('DEPATTR', 'SegmentValue');
440: fnd_message.set_token('VALUE', X_All_Segment_Value_Flag);
441: fnd_message.set_token('ATTRIBUTE', 'AllSegmentValueFlag');
442: app_exception.raise_exception;
443: ELSE
444: -- attempt to get the summary flag of the segment value
437: IF (X_Segment_Value IS NULL) THEN
438: fnd_message.set_name('SQLGL', 'GL_API_DEPENDENT_VALUE');
439: fnd_message.set_token('DEPATTR', 'SegmentValue');
440: fnd_message.set_token('VALUE', X_All_Segment_Value_Flag);
441: fnd_message.set_token('ATTRIBUTE', 'AllSegmentValueFlag');
442: app_exception.raise_exception;
443: ELSE
444: -- attempt to get the summary flag of the segment value
445: BEGIN
447: X_das_value_set_id,
448: X_Segment_Value);
449: EXCEPTION
450: WHEN NO_DATA_FOUND THEN
451: fnd_message.set_name('SQLGL', 'GL_API_VALUE_NOT_EXIST');
452: fnd_message.set_token('VALUE', X_Segment_Value);
453: fnd_message.set_token('ATTRIBUTE', 'SegmentValue');
454: app_exception.raise_exception;
455: WHEN OTHERS THEN
448: X_Segment_Value);
449: EXCEPTION
450: WHEN NO_DATA_FOUND THEN
451: fnd_message.set_name('SQLGL', 'GL_API_VALUE_NOT_EXIST');
452: fnd_message.set_token('VALUE', X_Segment_Value);
453: fnd_message.set_token('ATTRIBUTE', 'SegmentValue');
454: app_exception.raise_exception;
455: WHEN OTHERS THEN
456: RAISE;
449: EXCEPTION
450: WHEN NO_DATA_FOUND THEN
451: fnd_message.set_name('SQLGL', 'GL_API_VALUE_NOT_EXIST');
452: fnd_message.set_token('VALUE', X_Segment_Value);
453: fnd_message.set_token('ATTRIBUTE', 'SegmentValue');
454: app_exception.raise_exception;
455: WHEN OTHERS THEN
456: RAISE;
457: END;
457: END;
458:
459: IF ((l_summary_flag = 'Y' AND X_Segment_Value_Type_Code <> 'C') OR
460: (l_summary_flag = 'N' AND X_Segment_Value_Type_Code <> 'S')) THEN
461: fnd_message.set_name('SQLGL', 'GL_API_DEPENDENT_VALUE');
462: fnd_message.set_token('DEPATTR', 'SegmentValueTypeCode');
463: fnd_message.set_token('VALUE', X_Segment_Value);
464: fnd_message.set_token('ATTRIBUTE', 'SegmentValue');
465: app_exception.raise_exception;
458:
459: IF ((l_summary_flag = 'Y' AND X_Segment_Value_Type_Code <> 'C') OR
460: (l_summary_flag = 'N' AND X_Segment_Value_Type_Code <> 'S')) THEN
461: fnd_message.set_name('SQLGL', 'GL_API_DEPENDENT_VALUE');
462: fnd_message.set_token('DEPATTR', 'SegmentValueTypeCode');
463: fnd_message.set_token('VALUE', X_Segment_Value);
464: fnd_message.set_token('ATTRIBUTE', 'SegmentValue');
465: app_exception.raise_exception;
466: END IF;
459: IF ((l_summary_flag = 'Y' AND X_Segment_Value_Type_Code <> 'C') OR
460: (l_summary_flag = 'N' AND X_Segment_Value_Type_Code <> 'S')) THEN
461: fnd_message.set_name('SQLGL', 'GL_API_DEPENDENT_VALUE');
462: fnd_message.set_token('DEPATTR', 'SegmentValueTypeCode');
463: fnd_message.set_token('VALUE', X_Segment_Value);
464: fnd_message.set_token('ATTRIBUTE', 'SegmentValue');
465: app_exception.raise_exception;
466: END IF;
467:
460: (l_summary_flag = 'N' AND X_Segment_Value_Type_Code <> 'S')) THEN
461: fnd_message.set_name('SQLGL', 'GL_API_DEPENDENT_VALUE');
462: fnd_message.set_token('DEPATTR', 'SegmentValueTypeCode');
463: fnd_message.set_token('VALUE', X_Segment_Value);
464: fnd_message.set_token('ATTRIBUTE', 'SegmentValue');
465: app_exception.raise_exception;
466: END IF;
467:
468: END IF; -- end X_Segment_Value
471: EXCEPTION
472: WHEN app_exceptions.application_exception THEN
473: RAISE;
474: WHEN OTHERS THEN
475: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
476: fnd_message.set_token('PROCEDURE',
477: 'GL_ACCESS_DETAILS_PKG.validate_access_detail');
478: RAISE;
479: END validate_access_detail;
472: WHEN app_exceptions.application_exception THEN
473: RAISE;
474: WHEN OTHERS THEN
475: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
476: fnd_message.set_token('PROCEDURE',
477: 'GL_ACCESS_DETAILS_PKG.validate_access_detail');
478: RAISE;
479: END validate_access_detail;
480: