132:
133: EXCEPTION
134: WHEN OTHERS THEN
135: IF (SQLCODE <> -20001) THEN
136: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
137: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
138: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
139: FND_MESSAGE.SET_TOKEN('PARAMETERS',
140: 'return_id = ' || X_return_id);
133: EXCEPTION
134: WHEN OTHERS THEN
135: IF (SQLCODE <> -20001) THEN
136: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
137: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
138: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
139: FND_MESSAGE.SET_TOKEN('PARAMETERS',
140: 'return_id = ' || X_return_id);
141: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
134: WHEN OTHERS THEN
135: IF (SQLCODE <> -20001) THEN
136: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
137: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
138: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
139: FND_MESSAGE.SET_TOKEN('PARAMETERS',
140: 'return_id = ' || X_return_id);
141: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
142: END IF;
135: IF (SQLCODE <> -20001) THEN
136: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
137: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
138: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
139: FND_MESSAGE.SET_TOKEN('PARAMETERS',
140: 'return_id = ' || X_return_id);
141: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
142: END IF;
143: APP_EXCEPTION.RAISE_EXCEPTION;
137: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
138: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
139: FND_MESSAGE.SET_TOKEN('PARAMETERS',
140: 'return_id = ' || X_return_id);
141: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
142: END IF;
143: APP_EXCEPTION.RAISE_EXCEPTION;
144:
145: END Insert_Row;
203: IF (C%NOTFOUND)
204: THEN
205: debug_info := 'Close cursor C - DATA NOTFOUND';
206: CLOSE C;
207: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
208: APP_EXCEPTION.Raise_Exception;
209: END IF;
210: debug_info := 'Close cursor C';
211: CLOSE C;
263: )
264: THEN
265: return;
266: ELSE
267: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
268: APP_EXCEPTION.Raise_Exception;
269: END IF;
270:
271: EXCEPTION
271: EXCEPTION
272: WHEN OTHERS THEN
273: IF (SQLCODE <> -20001) THEN
274: IF (SQLCODE = -54) THEN
275: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
276: ELSE
277: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
278: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
279: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
273: IF (SQLCODE <> -20001) THEN
274: IF (SQLCODE = -54) THEN
275: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
276: ELSE
277: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
278: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
279: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
280: FND_MESSAGE.SET_TOKEN('PARAMETERS',
281: 'return_id = ' || X_return_id);
274: IF (SQLCODE = -54) THEN
275: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
276: ELSE
277: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
278: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
279: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
280: FND_MESSAGE.SET_TOKEN('PARAMETERS',
281: 'return_id = ' || X_return_id);
282: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
275: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
276: ELSE
277: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
278: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
279: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
280: FND_MESSAGE.SET_TOKEN('PARAMETERS',
281: 'return_id = ' || X_return_id);
282: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
283: END IF;
276: ELSE
277: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
278: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
279: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
280: FND_MESSAGE.SET_TOKEN('PARAMETERS',
281: 'return_id = ' || X_return_id);
282: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
283: END IF;
284: END IF;
278: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
279: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
280: FND_MESSAGE.SET_TOKEN('PARAMETERS',
281: 'return_id = ' || X_return_id);
282: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
283: END IF;
284: END IF;
285: APP_EXCEPTION.RAISE_EXCEPTION;
286: END Lock_Row;