22: ELSE
23: CLOSE get_id;
24: fnd_message.set_name('SQLGL', 'GL_ERROR_GETTING_UNIQUE_ID');
25: fnd_message.set_token('SEQUENCE', 'GL_LEDGER_NORM_SEG_VALS_REC_S');
26: app_exception.raise_exception;
27: END IF;
28:
29: RETURN (v_record_id);
30:
28:
29: RETURN (v_record_id);
30:
31: EXCEPTION
32: WHEN app_exceptions.application_exception THEN
33: RAISE;
34: WHEN OTHERS THEN
35: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
36: fnd_message.set_token('PROCEDURE', 'GL_LEDGER_NORM_SEG_VALS_PKG.Get_Record_Id');
70: FETCH check_unique INTO dummy;
71: IF check_unique%FOUND THEN
72: CLOSE check_unique;
73: fnd_message.set_name( 'SQLGL', 'GL_LEDGER_UNIQUE_SEGVAL_ASSIGN' );
74: app_exception.raise_exception;
75: END IF;
76:
77: CLOSE check_unique;
78:
76:
77: CLOSE check_unique;
78:
79: EXCEPTION
80: WHEN app_exceptions.application_exception THEN
81: RAISE;
82: WHEN OTHERS THEN
83: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
84: fnd_message.set_token('PROCEDURE',
366: message => message);
367:
368: IF (dphase = 'RUNNING') THEN
369: FND_MESSAGE.Set_Name('SQLGL', 'GL_LEDGER_RECORD_PROC_BY_FLAT');
370: APP_EXCEPTION.Raise_Exception;
371: END IF;
372: END IF;
373:
374: OPEN C;
375: FETCH C INTO Recinfo;
376: if (C%NOTFOUND) then
377: CLOSE C;
378: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
379: APP_EXCEPTION.Raise_Exception;
380: end if;
381: CLOSE C;
382: IF (
383: ( (Recinfo.ledger_id = X_Ledger_Id)
455: ) THEN
456: RETURN;
457: ELSE
458: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
459: APP_EXCEPTION.Raise_Exception;
460: END IF;
461: END Lock_Row;
462:
463: -- **********************************************************************