89: FETCH C INTO Recinfo;
90: if (C%NOTFOUND) then
91: debug_info := 'Close cursor C - DATA NOTFOUND';
92: CLOSE C;
93: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
94: APP_EXCEPTION.Raise_Exception;
95: end if;
96: debug_info := 'Close cursor C';
97: CLOSE C;
246: AND (X_ATTRIBUTE15 IS NULL)))
247: ) then
248: return;
249: else
250: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
251: APP_EXCEPTION.Raise_Exception;
252: end if;
253:
254: EXCEPTION
254: EXCEPTION
255: WHEN OTHERS THEN
256: IF (SQLCODE <> -20001) THEN
257: IF (SQLCODE = -54) THEN
258: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
259: ELSE
260: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
261: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
262: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
256: IF (SQLCODE <> -20001) THEN
257: IF (SQLCODE = -54) THEN
258: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
259: ELSE
260: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
261: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
262: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
263: FND_MESSAGE.SET_TOKEN('PARAMETERS','document_id = ' ||
264: X_document_id );
257: IF (SQLCODE = -54) THEN
258: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
259: ELSE
260: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
261: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
262: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
263: FND_MESSAGE.SET_TOKEN('PARAMETERS','document_id = ' ||
264: X_document_id );
265: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
258: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
259: ELSE
260: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
261: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
262: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
263: FND_MESSAGE.SET_TOKEN('PARAMETERS','document_id = ' ||
264: X_document_id );
265: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
266: END IF;
259: ELSE
260: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
261: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
262: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
263: FND_MESSAGE.SET_TOKEN('PARAMETERS','document_id = ' ||
264: X_document_id );
265: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
266: END IF;
267: END IF;
261: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
262: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
263: FND_MESSAGE.SET_TOKEN('PARAMETERS','document_id = ' ||
264: X_document_id );
265: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
266: END IF;
267: END IF;
268: APP_EXCEPTION.RAISE_EXCEPTION;
269:
289:
290: EXCEPTION
291: WHEN OTHERS THEN
292: IF (SQLCODE <> -20001) THEN
293: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
294: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
295: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
296: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid);
297: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
290: EXCEPTION
291: WHEN OTHERS THEN
292: IF (SQLCODE <> -20001) THEN
293: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
294: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
295: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
296: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid);
297: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
298: END IF;
291: WHEN OTHERS THEN
292: IF (SQLCODE <> -20001) THEN
293: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
294: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
295: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
296: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid);
297: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
298: END IF;
299: APP_EXCEPTION.RAISE_EXCEPTION;
292: IF (SQLCODE <> -20001) THEN
293: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
294: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
295: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
296: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid);
297: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
298: END IF;
299: APP_EXCEPTION.RAISE_EXCEPTION;
300:
293: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
294: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
295: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
296: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid);
297: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
298: END IF;
299: APP_EXCEPTION.RAISE_EXCEPTION;
300:
301: END Delete_Row;