18: ELSE
19: CLOSE get_new_id;
20: fnd_message.set_name('SQLGL', 'GL_ERROR_GETTING_UNIQUE_ID');
21: fnd_message.set_token('SEQUENCE', 'GL_AUTO_ALLOCATION_SET_ID_S');
22: app_exception.raise_exception;
23: END IF;
24: EXCEPTION
25: WHEN app_exceptions.application_exception THEN
26: RAISE;
21: fnd_message.set_token('SEQUENCE', 'GL_AUTO_ALLOCATION_SET_ID_S');
22: app_exception.raise_exception;
23: END IF;
24: EXCEPTION
25: WHEN app_exceptions.application_exception THEN
26: RAISE;
27: WHEN OTHERS THEN
28: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
29: fnd_message.set_token('PROCEDURE',
252:
253: If (C%NOTFOUND) then
254: Close C;
255: Fnd_Message.Set_Name('FND', 'FORM_RECORD_DELETED');
256: App_Exception.Raise_Exception;
257: End If;
258:
259: Close C;
260: If (
322: ) Then
323: Return;
324: Else
325: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
326: APP_EXCEPTION.RAISE_EXCEPTION;
327: End If;
328: End Lock_Allocation_Set ;
329:
330: Procedure Delete_Allocation_Set(
607:
608: END IF;
609:
610: EXCEPTION
611: WHEN app_exceptions.application_exception THEN
612: RAISE;
613: WHEN OTHERS THEN
614: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
615: fnd_message.set_token('PROCEDURE',