133: OPEN C;
134: FETCH C INTO Recinfo;
135: if (C%NOTFOUND) then
136: CLOSE C;
137: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
138: APP_EXCEPTION.Raise_Exception;
139: end if;
140: CLOSE C;
141: if (
149: OR (Recinfo.reference_txt = X_Reference_txt))
150: ) then
151: return;
152: else
153: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
154: APP_EXCEPTION.Raise_Exception;
155: end if;
156: END Lock_Row;
157:
266: FETCH chk_duplicates INTO dummy;
267: --
268: IF chk_duplicates%FOUND THEN
269: CLOSE chk_duplicates;
270: fnd_message.set_name( 'CE', 'CE_DUP_BANK_JE_MAPPING' );
271: app_exception.raise_exception;
272: END IF;
273: --
274: CLOSE chk_duplicates;
279: CLOSE chk_duplicates;
280: END IF;
281: RAISE;
282: WHEN OTHERS THEN
283: fnd_message.set_name( 'SQLCE', 'CE_UNHANDLED_EXCEPTION');
284: fnd_message.set_token( 'PROCEDURE',
285: 'CE_TRANSACTION_CODES_pkg.check_unique_txn_code');
286: IF ( chk_duplicates%ISOPEN ) THEN
287: CLOSE chk_duplicates;
280: END IF;
281: RAISE;
282: WHEN OTHERS THEN
283: fnd_message.set_name( 'SQLCE', 'CE_UNHANDLED_EXCEPTION');
284: fnd_message.set_token( 'PROCEDURE',
285: 'CE_TRANSACTION_CODES_pkg.check_unique_txn_code');
286: IF ( chk_duplicates%ISOPEN ) THEN
287: CLOSE chk_duplicates;
288: END IF;