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