124: OPEN C;
125: FETCH C INTO Recinfo;
126: if (C%NOTFOUND) then
127: CLOSE C;
128: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
129: APP_EXCEPTION.Raise_Exception;
130: end if;
131: CLOSE C;
132: if recinfo.record_version_number <> x_record_version_number
130: end if;
131: CLOSE C;
132: if recinfo.record_version_number <> x_record_version_number
133: then
134: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
135: APP_EXCEPTION.Raise_Exception;
136: end if;
137: if (
138:
180: AND (X_Default_Top_Task_Cust_Flag IS NULL)))
181: ) then
182: return;
183: else
184: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
185: APP_EXCEPTION.Raise_Exception;
186: end if;
187: END Lock_Row;
188:
221: OPEN C;
222: FETCH C INTO Recinfo;
223: if (C%NOTFOUND) then
224: CLOSE C;
225: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
226: APP_EXCEPTION.Raise_Exception;
227: end if;
228: CLOSE C;
229: if recinfo.record_version_number <> x_record_version_number
227: end if;
228: CLOSE C;
229: if recinfo.record_version_number <> x_record_version_number
230: then
231: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
232: APP_EXCEPTION.Raise_Exception;
233: end if;
234:
235: UPDATE pa_project_customers
275: OPEN C;
276: FETCH C INTO Recinfo;
277: if (C%NOTFOUND) then
278: CLOSE C;
279: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
280: APP_EXCEPTION.Raise_Exception;
281: end if;
282: CLOSE C;
283: if recinfo.record_version_number <> x_record_version_number
281: end if;
282: CLOSE C;
283: if recinfo.record_version_number <> x_record_version_number
284: then
285: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
286: APP_EXCEPTION.Raise_Exception;
287: end if;
288:
289: DELETE FROM pa_project_customers
289: DELETE FROM pa_project_customers
290: WHERE rowid = X_Rowid;
291:
292: if (SQL%NOTFOUND) then
293: FND_MESSAGE.Set_Name('FND', x_rowid);
294: Raise NO_DATA_FOUND;
295: end if;
296: END Delete_Row;
297: