173: FETCH C INTO Recinfo;
174: if (C%NOTFOUND) then
175: CLOSE C;
176: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
177: APP_EXCEPTION.Raise_Exception;
178: end if;
179: CLOSE C;
180: if (
181: (Recinfo.department_id = X_Department_Id)
266: ) then
267: return;
268: else
269: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
270: APP_EXCEPTION.RAISE_EXCEPTION;
271: end if;
272: END Lock_Row;
273:
274:
429: WHEN NO_DATA_FOUND THEN
430: FND_MESSAGE.SET_NAME('BOM', 'BOM_ALREADY_EXISTS');
431: FND_MESSAGE.SET_TOKEN('ENTITY1', 'RESOURCE_CAP', TRUE);
432: FND_MESSAGE.SET_TOKEN('ENTITY2', res_code);
433: APP_EXCEPTION.RAISE_EXCEPTION;
434: END Check_Unique;
435:
436:
437: PROCEDURE Check_References(X_Rowid VARCHAR2,
494: EXCEPTION
495: WHEN NO_DATA_FOUND THEN
496: IF err_code = 1 THEN
497: FND_MESSAGE.SET_NAME('BOM',message_name);
498: APP_EXCEPTION.RAISE_EXCEPTION;
499: ELSIF err_code = 2 THEN
500: FND_MESSAGE.SET_NAME('BOM',message_name);
501: FND_MESSAGE.SET_TOKEN('ENTITY', res_code);
502: APP_EXCEPTION.RAISE_EXCEPTION;
498: APP_EXCEPTION.RAISE_EXCEPTION;
499: ELSIF err_code = 2 THEN
500: FND_MESSAGE.SET_NAME('BOM',message_name);
501: FND_MESSAGE.SET_TOKEN('ENTITY', res_code);
502: APP_EXCEPTION.RAISE_EXCEPTION;
503: ELSIF err_code = 3 THEN
504: FND_MESSAGE.SET_NAME('BOM', message_name);
505: FND_MESSAGE.SET_TOKEN('ENTITY', res_code);
506: APP_EXCEPTION.RAISE_EXCEPTION;
502: APP_EXCEPTION.RAISE_EXCEPTION;
503: ELSIF err_code = 3 THEN
504: FND_MESSAGE.SET_NAME('BOM', message_name);
505: FND_MESSAGE.SET_TOKEN('ENTITY', res_code);
506: APP_EXCEPTION.RAISE_EXCEPTION;
507: END IF;
508:
509: END Check_References;
510: