99:
100: EXCEPTION
101: WHEN OTHERS THEN
102: IF (SQLCODE <> -20001) THEN
103: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
104: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
105: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
106: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
107: ', ENTRY_ID = ' || X_Entry_Id);
100: EXCEPTION
101: WHEN OTHERS THEN
102: IF (SQLCODE <> -20001) THEN
103: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
104: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
105: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
106: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
107: ', ENTRY_ID = ' || X_Entry_Id);
108: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
101: WHEN OTHERS THEN
102: IF (SQLCODE <> -20001) THEN
103: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
104: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
105: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
106: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
107: ', ENTRY_ID = ' || X_Entry_Id);
108: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
109: END IF;
102: IF (SQLCODE <> -20001) THEN
103: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
104: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
105: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
106: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
107: ', ENTRY_ID = ' || X_Entry_Id);
108: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
109: END IF;
110: APP_EXCEPTION.RAISE_EXCEPTION;
104: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
105: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
106: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
107: ', ENTRY_ID = ' || X_Entry_Id);
108: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
109: END IF;
110: APP_EXCEPTION.RAISE_EXCEPTION;
111:
112: END Insert_Row;
153: FETCH C INTO Recinfo;
154: if (C%NOTFOUND) then
155: debug_info := 'Close cursor C - DATA NOT FOUND';
156: CLOSE C;
157: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
158: APP_EXCEPTION.Raise_Exception;
159: end if;
160: debug_info := 'Close cursor C';
161: CLOSE C;
209:
210: ) then
211: return;
212: else
213: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
214: APP_EXCEPTION.Raise_Exception;
215: end if;
216:
217: EXCEPTION
217: EXCEPTION
218: WHEN OTHERS THEN
219: IF (SQLCODE <> -20001) THEN
220: IF (SQLCODE = -54) THEN
221: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
222: ELSE
223: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
224: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
225: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
219: IF (SQLCODE <> -20001) THEN
220: IF (SQLCODE = -54) THEN
221: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
222: ELSE
223: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
224: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
225: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
226: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
227: ', ENTRY_ID = ' || X_Entry_Id);
220: IF (SQLCODE = -54) THEN
221: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
222: ELSE
223: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
224: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
225: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
226: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
227: ', ENTRY_ID = ' || X_Entry_Id);
228: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
221: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
222: ELSE
223: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
224: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
225: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
226: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
227: ', ENTRY_ID = ' || X_Entry_Id);
228: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
229: END IF;
222: ELSE
223: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
224: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
225: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
226: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
227: ', ENTRY_ID = ' || X_Entry_Id);
228: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
229: END IF;
230: END IF;
224: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
225: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
226: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
227: ', ENTRY_ID = ' || X_Entry_Id);
228: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
229: END IF;
230: END IF;
231: APP_EXCEPTION.RAISE_EXCEPTION;
232:
298:
299: EXCEPTION
300: WHEN OTHERS THEN
301: IF (SQLCODE <> -20001) THEN
302: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
303: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
304: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
305: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
306: ', ENTRY_ID = ' || X_Entry_Id);
299: EXCEPTION
300: WHEN OTHERS THEN
301: IF (SQLCODE <> -20001) THEN
302: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
303: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
304: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
305: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
306: ', ENTRY_ID = ' || X_Entry_Id);
307: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
300: WHEN OTHERS THEN
301: IF (SQLCODE <> -20001) THEN
302: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
303: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
304: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
305: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
306: ', ENTRY_ID = ' || X_Entry_Id);
307: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
308: END IF;
301: IF (SQLCODE <> -20001) THEN
302: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
303: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
304: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
305: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
306: ', ENTRY_ID = ' || X_Entry_Id);
307: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
308: END IF;
309: APP_EXCEPTION.RAISE_EXCEPTION;
303: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
304: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
305: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
306: ', ENTRY_ID = ' || X_Entry_Id);
307: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
308: END IF;
309: APP_EXCEPTION.RAISE_EXCEPTION;
310:
311: END Update_Row;
334:
335: EXCEPTION
336: WHEN OTHERS THEN
337: IF (SQLCODE <> -20001) THEN
338: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
339: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
340: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
341: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid);
342: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
335: EXCEPTION
336: WHEN OTHERS THEN
337: IF (SQLCODE <> -20001) THEN
338: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
339: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
340: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
341: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid);
342: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
343: END IF;
336: WHEN OTHERS THEN
337: IF (SQLCODE <> -20001) THEN
338: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
339: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
340: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
341: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid);
342: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
343: END IF;
344: APP_EXCEPTION.RAISE_EXCEPTION;
337: IF (SQLCODE <> -20001) THEN
338: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
339: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
340: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
341: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid);
342: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
343: END IF;
344: APP_EXCEPTION.RAISE_EXCEPTION;
345:
338: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
339: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
340: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
341: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid);
342: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
343: END IF;
344: APP_EXCEPTION.RAISE_EXCEPTION;
345:
346: END Delete_Row;