25: OPEN C;
26: FETCH C INTO Recinfo;
27: if (C%NOTFOUND) then
28: CLOSE C;
29: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
30: APP_EXCEPTION.Raise_Exception;
31: end if;
32: CLOSE C;
33: if (Recinfo.default_cancel_flag = x_default_cancel_flag) then
32: CLOSE C;
33: if (Recinfo.default_cancel_flag = x_default_cancel_flag) then
34: return;
35: else
36: /* Not using the regular fnd message, since that tells the
37: * user that he/she should requery. Here we are forcing the
38: * the requery. This is required due to the fact that we are
39: * using multiselect and that highlights/de-highlights the rec
40: * irrespective of lock failure, even though the cancel flag is
39: * using multiselect and that highlights/de-highlights the rec
40: * irrespective of lock failure, even though the cancel flag is
41: * not updated if the lock fails.
42: */
43: --FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
44: fnd_message.set_name('PO', 'PO_ALL_LOCK_FAILED_REQUERYING');
45: APP_EXCEPTION.RAISE_EXCEPTION;
46: end if;
47: END lock_row;
40: * irrespective of lock failure, even though the cancel flag is
41: * not updated if the lock fails.
42: */
43: --FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
44: fnd_message.set_name('PO', 'PO_ALL_LOCK_FAILED_REQUERYING');
45: APP_EXCEPTION.RAISE_EXCEPTION;
46: end if;
47: END lock_row;
48: