589:
590: IF (lock_row%NOTFOUND) THEN
591: CLOSE lock_row;
592: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
593: app_exception.raise_exception;
594: END IF;
595:
596: CLOSE lock_row;
597:
615: AND (Recinfo.application_id =p_APPLICATION_ID)) THEN
616: RETURN;
617: ELSE
618: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
619: app_exception.raise_exception;
620: END IF;
621:
622: EXCEPTION
623:
620: END IF;
621:
622: EXCEPTION
623:
624: WHEN app_exception.application_exception or app_exception.record_lock_exception THEN
625: if (lock_row%ISOPEN) then
626: close lock_row;
627: end if;
628: RAISE;