115: OPEN C;
116: FETCH C INTO Recinfo;
117: IF (C%NOTFOUND)THEN
118: CLOSE C;
119: FND_MESSAGE.set_name('FND','FORM_RECORD_DELETED');
120: APP_EXCEPTION.raise_exception;
121: END IF;
122: CLOSE C;
123:
133: AND (X_db_link_name IS NULL))))
134: ) THEN
135: RETURN;
136: ELSE
137: FND_MESSAGE.Set_Name('FND','FORM_RECORD_CHANGED');
138: APP_EXCEPTION.raise_exception;
139: END IF;
140: END Lock_Row;
141:
155: OPEN chk_duplicates;
156: FETCH chk_duplicates INTO dummy;
157:
158: IF chk_duplicates%FOUND THEN
159: FND_MESSAGE.Set_Name('CE', 'CE_DUPLICATE_EXT_SOURCE_TYPE');
160: APP_EXCEPTION.Raise_exception;
161: END IF;
162: CLOSE chk_duplicates;
163: EXCEPTION
163: EXCEPTION
164: WHEN APP_EXCEPTIONS.application_exception THEN
165: RAISE;
166: WHEN OTHERS THEn
167: FND_MESSAGE.Set_Name('CE', 'CE_UNHANDLED_EXCEPTION');
168: FND_MESSAGE.Set_Token('PROCEDURE', 'CE_FC_EXT_VIEWS_TABLE_PKG.Check_Unique');
169: RAISE;
170: END Check_Unique;
171:
164: WHEN APP_EXCEPTIONS.application_exception THEN
165: RAISE;
166: WHEN OTHERS THEn
167: FND_MESSAGE.Set_Name('CE', 'CE_UNHANDLED_EXCEPTION');
168: FND_MESSAGE.Set_Token('PROCEDURE', 'CE_FC_EXT_VIEWS_TABLE_PKG.Check_Unique');
169: RAISE;
170: END Check_Unique;
171:
172: