227:
228: EXCEPTION
229: WHEN OTHERS THEN
230: IF (SQLCODE <> -20001) THEN
231: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
232: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
233: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
234: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
235: ', PURGE_NAME = ' || X_Purge_name);
228: EXCEPTION
229: WHEN OTHERS THEN
230: IF (SQLCODE <> -20001) THEN
231: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
232: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
233: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
234: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
235: ', PURGE_NAME = ' || X_Purge_name);
236: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
229: WHEN OTHERS THEN
230: IF (SQLCODE <> -20001) THEN
231: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
232: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
233: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
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;
230: IF (SQLCODE <> -20001) THEN
231: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
232: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
233: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
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;
232: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
233: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
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;
324:
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;
500:
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
508: EXCEPTION
509: WHEN OTHERS THEN
510: IF (SQLCODE <> -20001) THEN
511: IF (SQLCODE = -54) THEN
512: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
513: ELSE
514: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
515: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
516: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
510: IF (SQLCODE <> -20001) THEN
511: IF (SQLCODE = -54) THEN
512: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
513: ELSE
514: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
515: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
516: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
517: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
518: ', PURGE_NAME = ' || X_Purge_name);
511: IF (SQLCODE = -54) THEN
512: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
513: ELSE
514: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
515: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
516: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
517: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
518: ', PURGE_NAME = ' || X_Purge_name);
519: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
512: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
513: ELSE
514: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
515: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
516: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
517: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
518: ', PURGE_NAME = ' || X_Purge_name);
519: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
520: END IF;
513: ELSE
514: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
515: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
516: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
517: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
518: ', PURGE_NAME = ' || X_Purge_name);
519: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
520: END IF;
521: END IF;
515: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
516: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
517: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
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:
545:
546: EXCEPTION
547: WHEN OTHERS THEN
548: IF (SQLCODE <> -20001) THEN
549: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
550: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
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);
546: EXCEPTION
547: WHEN OTHERS THEN
548: IF (SQLCODE <> -20001) THEN
549: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
550: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
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;
547: WHEN OTHERS THEN
548: IF (SQLCODE <> -20001) THEN
549: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
550: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
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;
548: IF (SQLCODE <> -20001) THEN
549: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
550: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
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:
549: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
550: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
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;