63: where batch_name = X_BATCH_NAME
64: and ((X_ROWID is null) or (rowid <> X_ROWID));
65:
66: if (dummy >= 1) then
67: fnd_message.set_name('SQLAP','AP_ALL_DUPLICATE_VALUE');
68: app_exception.raise_exception;
69: end if;
70:
71: EXCEPTION
70:
71: EXCEPTION
72: WHEN OTHERS THEN
73: IF (SQLCODE <> -20001) THEN
74: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
75: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
76: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
77: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_ROWID ||
78: ', BATCH_NAME = ' || X_BATCH_NAME);
71: EXCEPTION
72: WHEN OTHERS THEN
73: IF (SQLCODE <> -20001) THEN
74: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
75: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
76: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
77: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_ROWID ||
78: ', BATCH_NAME = ' || X_BATCH_NAME);
79: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
72: WHEN OTHERS THEN
73: IF (SQLCODE <> -20001) THEN
74: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
75: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
76: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
77: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_ROWID ||
78: ', BATCH_NAME = ' || X_BATCH_NAME);
79: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
80: END IF;
73: IF (SQLCODE <> -20001) THEN
74: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
75: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
76: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
77: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_ROWID ||
78: ', BATCH_NAME = ' || X_BATCH_NAME);
79: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
80: END IF;
81: APP_EXCEPTION.RAISE_EXCEPTION;
75: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
76: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
77: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_ROWID ||
78: ', BATCH_NAME = ' || X_BATCH_NAME);
79: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
80: END IF;
81: APP_EXCEPTION.RAISE_EXCEPTION;
82:
83:
237:
238: EXCEPTION
239: WHEN OTHERS THEN
240: IF (SQLCODE <> -20001) THEN
241: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
242: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
243: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
244: FND_MESSAGE.SET_TOKEN('PARAMETERS','BATCH_ID = ' || TO_CHAR(X_Batch_Id) ||
245: ', ROWID = ' || X_Rowid);
238: EXCEPTION
239: WHEN OTHERS THEN
240: IF (SQLCODE <> -20001) THEN
241: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
242: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
243: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
244: FND_MESSAGE.SET_TOKEN('PARAMETERS','BATCH_ID = ' || TO_CHAR(X_Batch_Id) ||
245: ', ROWID = ' || X_Rowid);
246: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
239: WHEN OTHERS THEN
240: IF (SQLCODE <> -20001) THEN
241: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
242: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
243: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
244: FND_MESSAGE.SET_TOKEN('PARAMETERS','BATCH_ID = ' || TO_CHAR(X_Batch_Id) ||
245: ', ROWID = ' || X_Rowid);
246: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
247: END IF;
240: IF (SQLCODE <> -20001) THEN
241: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
242: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
243: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
244: FND_MESSAGE.SET_TOKEN('PARAMETERS','BATCH_ID = ' || TO_CHAR(X_Batch_Id) ||
245: ', ROWID = ' || X_Rowid);
246: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
247: END IF;
248: APP_EXCEPTION.RAISE_EXCEPTION;
242: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
243: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
244: FND_MESSAGE.SET_TOKEN('PARAMETERS','BATCH_ID = ' || TO_CHAR(X_Batch_Id) ||
245: ', ROWID = ' || X_Rowid);
246: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
247: END IF;
248: APP_EXCEPTION.RAISE_EXCEPTION;
249:
250: END Insert_Row;
307: FETCH C INTO Recinfo;
308: if (C%NOTFOUND) then
309: debug_info := 'Close cursor C - ROW NOTFOUND';
310: CLOSE C;
311: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
312: APP_EXCEPTION.Raise_Exception;
313: end if;
314: debug_info := 'Close cursor C';
315: CLOSE C;
410: AND (X_org_id IS NULL)))
411: ) then
412: return;
413: else
414: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
415: APP_EXCEPTION.Raise_Exception;
416: end if;
417:
418: EXCEPTION
418: EXCEPTION
419: WHEN OTHERS THEN
420: IF (SQLCODE <> -20001) THEN
421: IF (SQLCODE = -54) THEN
422: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
423: ELSE
424: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
425: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
426: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
420: IF (SQLCODE <> -20001) THEN
421: IF (SQLCODE = -54) THEN
422: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
423: ELSE
424: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
425: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
426: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
427: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
428: ', BATCH_ID = ' || TO_CHAR(X_Batch_Id));
421: IF (SQLCODE = -54) THEN
422: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
423: ELSE
424: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
425: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
426: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
427: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
428: ', BATCH_ID = ' || TO_CHAR(X_Batch_Id));
429: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
422: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
423: ELSE
424: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
425: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
426: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
427: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
428: ', BATCH_ID = ' || TO_CHAR(X_Batch_Id));
429: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
430: END IF;
423: ELSE
424: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
425: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
426: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
427: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
428: ', BATCH_ID = ' || TO_CHAR(X_Batch_Id));
429: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
430: END IF;
431: END IF;
425: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
426: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
427: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
428: ', BATCH_ID = ' || TO_CHAR(X_Batch_Id));
429: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
430: END IF;
431: END IF;
432: APP_EXCEPTION.RAISE_EXCEPTION;
433:
535:
536: EXCEPTION
537: WHEN OTHERS THEN
538: IF (SQLCODE <> -20001) THEN
539: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
540: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
541: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
542: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
543: ', BATCH_ID = ' || TO_CHAR(X_Batch_Id));
536: EXCEPTION
537: WHEN OTHERS THEN
538: IF (SQLCODE <> -20001) THEN
539: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
540: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
541: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
542: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
543: ', BATCH_ID = ' || TO_CHAR(X_Batch_Id));
544: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
537: WHEN OTHERS THEN
538: IF (SQLCODE <> -20001) THEN
539: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
540: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
541: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
542: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
543: ', BATCH_ID = ' || TO_CHAR(X_Batch_Id));
544: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
545: END IF;
538: IF (SQLCODE <> -20001) THEN
539: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
540: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
541: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
542: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
543: ', BATCH_ID = ' || TO_CHAR(X_Batch_Id));
544: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
545: END IF;
546: APP_EXCEPTION.RAISE_EXCEPTION;
540: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
541: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
542: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
543: ', BATCH_ID = ' || TO_CHAR(X_Batch_Id));
544: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
545: END IF;
546: APP_EXCEPTION.RAISE_EXCEPTION;
547:
548: END Update_Row;
566:
567: EXCEPTION
568: WHEN OTHERS THEN
569: IF (SQLCODE <> -20001) THEN
570: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
571: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
572: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
573: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid );
574: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
567: EXCEPTION
568: WHEN OTHERS THEN
569: IF (SQLCODE <> -20001) THEN
570: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
571: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
572: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
573: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid );
574: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
575: END IF;
568: WHEN OTHERS THEN
569: IF (SQLCODE <> -20001) THEN
570: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
571: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
572: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
573: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid );
574: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
575: END IF;
576: APP_EXCEPTION.RAISE_EXCEPTION;
569: IF (SQLCODE <> -20001) THEN
570: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
571: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
572: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
573: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid );
574: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
575: END IF;
576: APP_EXCEPTION.RAISE_EXCEPTION;
577:
570: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
571: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
572: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
573: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid );
574: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
575: END IF;
576: APP_EXCEPTION.RAISE_EXCEPTION;
577:
578: END Delete_Row;