90: FETCH C INTO Recinfo;
91: IF (C%NOTFOUND) THEN
92: debug_info := 'Close cursor C - DATA NOTFOUND';
93: CLOSE C;
94: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
95: APP_EXCEPTION.Raise_Exception;
96: END IF;
97: debug_info := 'Close cursor C';
98: CLOSE C;
274: OR ((Recinfo.created_by IS NULL)
275: AND (X_Created_By IS NULL)))) THEN
276: return;
277: ELSE
278: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
279: APP_EXCEPTION.Raise_Exception;
280: END IF;
281: --
282: EXCEPTION
282: EXCEPTION
283: WHEN OTHERS THEN
284: IF (SQLCODE <> -20001) THEN
285: IF (SQLCODE = -54) THEN
286: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
287: ELSE
288: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
289: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
290: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
284: IF (SQLCODE <> -20001) THEN
285: IF (SQLCODE = -54) THEN
286: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
287: ELSE
288: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
289: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
290: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
291: FND_MESSAGE.SET_TOKEN('PARAMETERS','DOCUMENT_ID = ' ||
292: X_Document_Id);
285: IF (SQLCODE = -54) THEN
286: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
287: ELSE
288: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
289: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
290: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
291: FND_MESSAGE.SET_TOKEN('PARAMETERS','DOCUMENT_ID = ' ||
292: X_Document_Id);
293: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
286: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
287: ELSE
288: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
289: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
290: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
291: FND_MESSAGE.SET_TOKEN('PARAMETERS','DOCUMENT_ID = ' ||
292: X_Document_Id);
293: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
294: END IF;
287: ELSE
288: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
289: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
290: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
291: FND_MESSAGE.SET_TOKEN('PARAMETERS','DOCUMENT_ID = ' ||
292: X_Document_Id);
293: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
294: END IF;
295: END IF;
289: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
290: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
291: FND_MESSAGE.SET_TOKEN('PARAMETERS','DOCUMENT_ID = ' ||
292: X_Document_Id);
293: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
294: END IF;
295: END IF;
296: APP_EXCEPTION.RAISE_EXCEPTION;
297: --
317: --
318: EXCEPTION
319: WHEN OTHERS THEN
320: IF (SQLCODE <> -20001) THEN
321: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
322: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
323: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
324: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid);
325: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
318: EXCEPTION
319: WHEN OTHERS THEN
320: IF (SQLCODE <> -20001) THEN
321: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
322: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
323: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
324: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid);
325: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
326: END IF;
319: WHEN OTHERS THEN
320: IF (SQLCODE <> -20001) THEN
321: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
322: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
323: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
324: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid);
325: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
326: END IF;
327: APP_EXCEPTION.RAISE_EXCEPTION;
320: IF (SQLCODE <> -20001) THEN
321: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
322: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
323: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
324: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid);
325: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
326: END IF;
327: APP_EXCEPTION.RAISE_EXCEPTION;
328: --
321: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
322: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
323: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
324: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid);
325: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
326: END IF;
327: APP_EXCEPTION.RAISE_EXCEPTION;
328: --
329: END Delete_Row;