49:
50: IF c_dup%FOUND THEN
51: CLOSE c_dup;
52: fnd_message.set_name( 'SQLGL', 'GL_DUPLICATE_CCID' );
53: app_exception.raise_exception;
54: END IF;
55:
56: CLOSE c_dup;
57:
55:
56: CLOSE c_dup;
57:
58: EXCEPTION
59: WHEN app_exceptions.application_exception THEN
60: RAISE;
61: WHEN OTHERS THEN
62: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
63: fnd_message.set_token('PROCEDURE',
87: AND st.template_id(+) = cc.template_id;
88:
89: IF (new_ledger_id <> x_ledger_id) THEN
90: fnd_message.set_name( 'SQLGL', 'GL_INVALID_SUMMARY_ACCOUNT' );
91: app_exception.raise_exception;
92: END IF;
93:
94: EXCEPTION
95: WHEN app_exceptions.application_exception THEN
91: app_exception.raise_exception;
92: END IF;
93:
94: EXCEPTION
95: WHEN app_exceptions.application_exception THEN
96: RAISE;
97: WHEN OTHERS THEN
98: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
99: fnd_message.set_token('PROCEDURE',
907: end if;
908:
909: -- Record has been changed.
910: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
911: APP_EXCEPTION.RAISE_EXCEPTION;
912:
913: END Lock_Row;
914:
915: -- **********************************************************************