234:
235: EXCEPTION
236: WHEN OTHERS THEN
237: IF (SQLCODE <> -20001) THEN
238: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
239: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
240: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
241: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
242: ', PURGE_NAME = ' || X_Purge_name);
235: EXCEPTION
236: WHEN OTHERS THEN
237: IF (SQLCODE <> -20001) THEN
238: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
239: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
240: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
241: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
242: ', PURGE_NAME = ' || X_Purge_name);
243: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
236: WHEN OTHERS THEN
237: IF (SQLCODE <> -20001) THEN
238: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
239: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
240: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
241: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
242: ', PURGE_NAME = ' || X_Purge_name);
243: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
244: END IF;
237: IF (SQLCODE <> -20001) THEN
238: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
239: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
240: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
241: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
242: ', PURGE_NAME = ' || X_Purge_name);
243: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
244: END IF;
245: APP_EXCEPTION.RAISE_EXCEPTION;
239: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
240: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
241: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
242: ', PURGE_NAME = ' || X_Purge_name);
243: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
244: END IF;
245: APP_EXCEPTION.RAISE_EXCEPTION;
246:
247: END Insert_Row;
332:
333: if (C%NOTFOUND) then
334: debug_info := 'Close cursor C - DATA NOTFOUND';
335: CLOSE C;
336: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
337: APP_EXCEPTION.Raise_Exception;
338: end if;
339: debug_info := 'Close cursor C';
340: CLOSE C;
511:
512: ) then
513: return;
514: else
515: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
516: APP_EXCEPTION.Raise_Exception;
517: end if;
518:
519: EXCEPTION
519: EXCEPTION
520: WHEN OTHERS THEN
521: IF (SQLCODE <> -20001) THEN
522: IF (SQLCODE = -54) THEN
523: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
524: ELSE
525: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
526: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
527: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
521: IF (SQLCODE <> -20001) THEN
522: IF (SQLCODE = -54) THEN
523: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
524: ELSE
525: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
526: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
527: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
528: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
529: ', PURGE_NAME = ' || X_Purge_name);
522: IF (SQLCODE = -54) THEN
523: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
524: ELSE
525: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
526: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
527: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
528: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
529: ', PURGE_NAME = ' || X_Purge_name);
530: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
523: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
524: ELSE
525: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
526: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
527: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
528: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
529: ', PURGE_NAME = ' || X_Purge_name);
530: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
531: END IF;
524: ELSE
525: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
526: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
527: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
528: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
529: ', PURGE_NAME = ' || X_Purge_name);
530: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
531: END IF;
532: END IF;
526: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
527: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
528: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
529: ', PURGE_NAME = ' || X_Purge_name);
530: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
531: END IF;
532: END IF;
533: APP_EXCEPTION.RAISE_EXCEPTION;
534:
556:
557: EXCEPTION
558: WHEN OTHERS THEN
559: IF (SQLCODE <> -20001) THEN
560: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
561: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
562: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
563: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid);
564: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
557: EXCEPTION
558: WHEN OTHERS THEN
559: IF (SQLCODE <> -20001) THEN
560: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
561: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
562: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
563: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid);
564: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
565: END IF;
558: WHEN OTHERS THEN
559: IF (SQLCODE <> -20001) THEN
560: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
561: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
562: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
563: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid);
564: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
565: END IF;
566: APP_EXCEPTION.RAISE_EXCEPTION;
559: IF (SQLCODE <> -20001) THEN
560: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
561: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
562: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
563: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid);
564: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
565: END IF;
566: APP_EXCEPTION.RAISE_EXCEPTION;
567:
560: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
561: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
562: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
563: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid);
564: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
565: END IF;
566: APP_EXCEPTION.RAISE_EXCEPTION;
567:
568: END Delete_Row;