173:
174: EXCEPTION
175: WHEN OTHERS THEN
176: IF (SQLCODE <> -20001) THEN
177: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
178: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
179: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
180: FND_MESSAGE.SET_TOKEN('PARAMETERS','selection_control_id = ' ||
181: X_selection_control_id );
174: EXCEPTION
175: WHEN OTHERS THEN
176: IF (SQLCODE <> -20001) THEN
177: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
178: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
179: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
180: FND_MESSAGE.SET_TOKEN('PARAMETERS','selection_control_id = ' ||
181: X_selection_control_id );
182: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
175: WHEN OTHERS THEN
176: IF (SQLCODE <> -20001) THEN
177: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
178: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
179: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
180: FND_MESSAGE.SET_TOKEN('PARAMETERS','selection_control_id = ' ||
181: X_selection_control_id );
182: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
183: END IF;
176: IF (SQLCODE <> -20001) THEN
177: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
178: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
179: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
180: FND_MESSAGE.SET_TOKEN('PARAMETERS','selection_control_id = ' ||
181: X_selection_control_id );
182: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
183: END IF;
184: APP_EXCEPTION.RAISE_EXCEPTION;
178: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
179: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
180: FND_MESSAGE.SET_TOKEN('PARAMETERS','selection_control_id = ' ||
181: X_selection_control_id );
182: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
183: END IF;
184: APP_EXCEPTION.RAISE_EXCEPTION;
185:
186: END Insert_Row;
256: FETCH C INTO Recinfo;
257: if (C%NOTFOUND) then
258: debug_info := 'Close cursor C - DATA NOTFOUND';
259: CLOSE C;
260: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
261: APP_EXCEPTION.Raise_Exception;
262: end if;
263: debug_info := 'Close cursor C';
264: CLOSE C;
373: AND (X_ATTRIBUTE15 IS NULL)))
374: ) then
375: return;
376: else
377: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
378: APP_EXCEPTION.Raise_Exception;
379: end if;
380:
381: EXCEPTION
381: EXCEPTION
382: WHEN OTHERS THEN
383: IF (SQLCODE <> -20001) THEN
384: IF (SQLCODE = -54) THEN
385: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
386: ELSE
387: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
388: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
389: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
383: IF (SQLCODE <> -20001) THEN
384: IF (SQLCODE = -54) THEN
385: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
386: ELSE
387: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
388: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
389: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
390: FND_MESSAGE.SET_TOKEN('PARAMETERS','selection_control_id = ' ||
391: X_selection_control_id );
384: IF (SQLCODE = -54) THEN
385: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
386: ELSE
387: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
388: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
389: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
390: FND_MESSAGE.SET_TOKEN('PARAMETERS','selection_control_id = ' ||
391: X_selection_control_id );
392: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
385: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
386: ELSE
387: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
388: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
389: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
390: FND_MESSAGE.SET_TOKEN('PARAMETERS','selection_control_id = ' ||
391: X_selection_control_id );
392: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
393: END IF;
386: ELSE
387: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
388: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
389: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
390: FND_MESSAGE.SET_TOKEN('PARAMETERS','selection_control_id = ' ||
391: X_selection_control_id );
392: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
393: END IF;
394: END IF;
388: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
389: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
390: FND_MESSAGE.SET_TOKEN('PARAMETERS','selection_control_id = ' ||
391: X_selection_control_id );
392: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
393: END IF;
394: END IF;
395: APP_EXCEPTION.RAISE_EXCEPTION;
396:
509:
510: EXCEPTION
511: WHEN OTHERS THEN
512: IF (SQLCODE <> -20001) THEN
513: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
514: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
515: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
516: FND_MESSAGE.SET_TOKEN('PARAMETERS','selection_control_id = ' ||
517: X_selection_control_id );
510: EXCEPTION
511: WHEN OTHERS THEN
512: IF (SQLCODE <> -20001) THEN
513: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
514: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
515: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
516: FND_MESSAGE.SET_TOKEN('PARAMETERS','selection_control_id = ' ||
517: X_selection_control_id );
518: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
511: WHEN OTHERS THEN
512: IF (SQLCODE <> -20001) THEN
513: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
514: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
515: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
516: FND_MESSAGE.SET_TOKEN('PARAMETERS','selection_control_id = ' ||
517: X_selection_control_id );
518: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
519: END IF;
512: IF (SQLCODE <> -20001) THEN
513: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
514: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
515: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
516: FND_MESSAGE.SET_TOKEN('PARAMETERS','selection_control_id = ' ||
517: X_selection_control_id );
518: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
519: END IF;
520: APP_EXCEPTION.RAISE_EXCEPTION;
514: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
515: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
516: FND_MESSAGE.SET_TOKEN('PARAMETERS','selection_control_id = ' ||
517: X_selection_control_id );
518: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
519: END IF;
520: APP_EXCEPTION.RAISE_EXCEPTION;
521:
522: END Update_Row;
541:
542: EXCEPTION
543: WHEN OTHERS THEN
544: IF (SQLCODE <> -20001) THEN
545: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
546: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
547: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
548: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid);
549: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
542: EXCEPTION
543: WHEN OTHERS THEN
544: IF (SQLCODE <> -20001) THEN
545: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
546: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
547: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
548: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid);
549: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
550: END IF;
543: WHEN OTHERS THEN
544: IF (SQLCODE <> -20001) THEN
545: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
546: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
547: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
548: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid);
549: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
550: END IF;
551: APP_EXCEPTION.RAISE_EXCEPTION;
544: IF (SQLCODE <> -20001) THEN
545: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
546: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
547: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
548: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid);
549: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
550: END IF;
551: APP_EXCEPTION.RAISE_EXCEPTION;
552:
545: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
546: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
547: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
548: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid);
549: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
550: END IF;
551: APP_EXCEPTION.RAISE_EXCEPTION;
552:
553: END Delete_Row;