234: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
235: ', PURGE_NAME = ' || X_Purge_name);
236: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
237: END IF;
238: APP_EXCEPTION.RAISE_EXCEPTION;
239:
240: END Insert_Row;
241:
242: PROCEDURE Lock_Row(X_Rowid VARCHAR2,
325: if (C%NOTFOUND) then
326: debug_info := 'Close cursor C - DATA NOTFOUND';
327: CLOSE C;
328: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
329: APP_EXCEPTION.Raise_Exception;
330: end if;
331: debug_info := 'Close cursor C';
332: CLOSE C;
333: if (
501: ) then
502: return;
503: else
504: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
505: APP_EXCEPTION.Raise_Exception;
506: end if;
507:
508: EXCEPTION
509: WHEN OTHERS THEN
518: ', PURGE_NAME = ' || X_Purge_name);
519: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
520: END IF;
521: END IF;
522: APP_EXCEPTION.RAISE_EXCEPTION;
523:
524: END Lock_Row;
525:
526:
551: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
552: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid);
553: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
554: END IF;
555: APP_EXCEPTION.RAISE_EXCEPTION;
556:
557: END Delete_Row;
558:
559: