200:
201: EXCEPTION
202: WHEN OTHERS THEN
203: if (SQLCODE <> -20001) then
204: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
205: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
206: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
207: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Batch Name = '||X_Batch_Name
208: ||', Batch Set Line Id ='||l_Batch_Set_Line_Id
201: EXCEPTION
202: WHEN OTHERS THEN
203: if (SQLCODE <> -20001) then
204: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
205: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
206: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
207: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Batch Name = '||X_Batch_Name
208: ||', Batch Set Line Id ='||l_Batch_Set_Line_Id
209: ||', ROWID = '||X_ROWID);
202: WHEN OTHERS THEN
203: if (SQLCODE <> -20001) then
204: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
205: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
206: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
207: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Batch Name = '||X_Batch_Name
208: ||', Batch Set Line Id ='||l_Batch_Set_Line_Id
209: ||', ROWID = '||X_ROWID);
210: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
203: if (SQLCODE <> -20001) then
204: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
205: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
206: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
207: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Batch Name = '||X_Batch_Name
208: ||', Batch Set Line Id ='||l_Batch_Set_Line_Id
209: ||', ROWID = '||X_ROWID);
210: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
211: end if;
206: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
207: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Batch Name = '||X_Batch_Name
208: ||', Batch Set Line Id ='||l_Batch_Set_Line_Id
209: ||', ROWID = '||X_ROWID);
210: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
211: end if;
212: APP_EXCEPTION.RAISE_EXCEPTION;
213:
214: END Insert_Row;
284: FETCH C INTO Recinfo;
285: if (C%NOTFOUND) then
286: debug_info := 'Close cursor C -ROW NOTFOUND';
287: CLOSE C;
288: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
289: APP_EXCEPTION.Raise_Exception;
290: end if;
291: debug_info := 'Close cursor C';
292: CLOSE C;
413: AND (X_Vendor_Id IS NULL)))
414: ) then
415: return;
416: else
417: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
418: APP_EXCEPTION.Raise_Exception;
419: end if;
420:
421: EXCEPTION
421: EXCEPTION
422: WHEN OTHERS THEN
423: IF (SQLCODE <> -20001) THEN
424: IF (SQLCODE = -54) THEN
425: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
426: ELSE
427: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
428: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
429: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
423: IF (SQLCODE <> -20001) THEN
424: IF (SQLCODE = -54) THEN
425: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
426: ELSE
427: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
428: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
429: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
430: FND_MESSAGE.SET_TOKEN('PARAMETERS','Batch Name = '||X_Batch_Name
431: ||', ROWID = '||X_Rowid);
424: IF (SQLCODE = -54) THEN
425: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
426: ELSE
427: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
428: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
429: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
430: FND_MESSAGE.SET_TOKEN('PARAMETERS','Batch Name = '||X_Batch_Name
431: ||', ROWID = '||X_Rowid);
432: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
425: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
426: ELSE
427: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
428: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
429: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
430: FND_MESSAGE.SET_TOKEN('PARAMETERS','Batch Name = '||X_Batch_Name
431: ||', ROWID = '||X_Rowid);
432: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
433: END IF;
426: ELSE
427: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
428: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
429: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
430: FND_MESSAGE.SET_TOKEN('PARAMETERS','Batch Name = '||X_Batch_Name
431: ||', ROWID = '||X_Rowid);
432: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
433: END IF;
434: END IF;
428: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
429: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
430: FND_MESSAGE.SET_TOKEN('PARAMETERS','Batch Name = '||X_Batch_Name
431: ||', ROWID = '||X_Rowid);
432: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
433: END IF;
434: END IF;
435: APP_EXCEPTION.RAISE_EXCEPTION;
436:
555:
556: EXCEPTION
557: WHEN OTHERS THEN
558: if (SQLCODE <> -20001) then
559: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
560: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
561: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
562: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Batch Name = '||X_Batch_Name
563: ||', Batch Set Line Id ='||X_Batch_Set_Line_Id
556: EXCEPTION
557: WHEN OTHERS THEN
558: if (SQLCODE <> -20001) then
559: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
560: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
561: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
562: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Batch Name = '||X_Batch_Name
563: ||', Batch Set Line Id ='||X_Batch_Set_Line_Id
564: ||', ROWID = '||X_Rowid);
557: WHEN OTHERS THEN
558: if (SQLCODE <> -20001) then
559: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
560: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
561: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
562: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Batch Name = '||X_Batch_Name
563: ||', Batch Set Line Id ='||X_Batch_Set_Line_Id
564: ||', ROWID = '||X_Rowid);
565: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
558: if (SQLCODE <> -20001) then
559: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
560: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
561: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
562: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Batch Name = '||X_Batch_Name
563: ||', Batch Set Line Id ='||X_Batch_Set_Line_Id
564: ||', ROWID = '||X_Rowid);
565: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
566: end if;
561: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
562: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Batch Name = '||X_Batch_Name
563: ||', Batch Set Line Id ='||X_Batch_Set_Line_Id
564: ||', ROWID = '||X_Rowid);
565: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
566: end if;
567: APP_EXCEPTION.RAISE_EXCEPTION;
568: END Update_Row;
569:
590:
591: EXCEPTION
592: WHEN OTHERS THEN
593: if (SQLCODE <> -20001) then
594: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
595: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
596: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
597: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'ROWID = ' || X_Rowid);
598: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
591: EXCEPTION
592: WHEN OTHERS THEN
593: if (SQLCODE <> -20001) then
594: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
595: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
596: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
597: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'ROWID = ' || X_Rowid);
598: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
599: end if;
592: WHEN OTHERS THEN
593: if (SQLCODE <> -20001) then
594: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
595: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
596: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
597: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'ROWID = ' || X_Rowid);
598: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
599: end if;
600: APP_EXCEPTION.RAISE_EXCEPTION;
593: if (SQLCODE <> -20001) then
594: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
595: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
596: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
597: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'ROWID = ' || X_Rowid);
598: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
599: end if;
600: APP_EXCEPTION.RAISE_EXCEPTION;
601: END Delete_Row;
594: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
595: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
596: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
597: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'ROWID = ' || X_Rowid);
598: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
599: end if;
600: APP_EXCEPTION.RAISE_EXCEPTION;
601: END Delete_Row;
602: */
621: where batch_run_name = X_batch_run_name
622: and batch_set_id = X_batch_set_id;
623:
624: if (dummy >= 1) then
625: fnd_message.set_name('SQLAP','AP_ALL_DUPLICATE_VALUE');
626: app_exception.raise_exception;
627: end if;
628:
629: EXCEPTION
628:
629: EXCEPTION
630: WHEN OTHERS THEN
631: if (SQLCODE <> -20001) then
632: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
633: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
634: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
635: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Batch run Name = '||
636: X_Batch_run_Name ||', Batch_set_id = '
629: EXCEPTION
630: WHEN OTHERS THEN
631: if (SQLCODE <> -20001) then
632: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
633: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
634: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
635: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Batch run Name = '||
636: X_Batch_run_Name ||', Batch_set_id = '
637: ||X_Batch_Set_Id);
630: WHEN OTHERS THEN
631: if (SQLCODE <> -20001) then
632: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
633: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
634: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
635: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Batch run Name = '||
636: X_Batch_run_Name ||', Batch_set_id = '
637: ||X_Batch_Set_Id);
638: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
631: if (SQLCODE <> -20001) then
632: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
633: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
634: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
635: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Batch run Name = '||
636: X_Batch_run_Name ||', Batch_set_id = '
637: ||X_Batch_Set_Id);
638: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
639: end if;
634: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
635: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Batch run Name = '||
636: X_Batch_run_Name ||', Batch_set_id = '
637: ||X_Batch_Set_Id);
638: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
639: end if;
640: APP_EXCEPTION.RAISE_EXCEPTION;
641:
642: end Check_Unique_Run;
660: from ap_invoice_selection_criteria
661: where checkrun_name = X_batch_name||X_batch_run_name;
662:
663: if (dummy >= 1) then
664: fnd_message.set_name('SQLAP','AP_ALL_DUPLICATE_VALUE');
665: app_exception.raise_exception;
666: end if;
667:
668: EXCEPTION
667:
668: EXCEPTION
669: WHEN OTHERS THEN
670: if (SQLCODE <> -20001) then
671: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
672: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
673: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
674: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Batch run Name = '||
675: X_Batch_run_Name ); --**||', ROWID = '||X_Rowid);
668: EXCEPTION
669: WHEN OTHERS THEN
670: if (SQLCODE <> -20001) then
671: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
672: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
673: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
674: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Batch run Name = '||
675: X_Batch_run_Name ); --**||', ROWID = '||X_Rowid);
676: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
669: WHEN OTHERS THEN
670: if (SQLCODE <> -20001) then
671: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
672: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
673: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
674: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Batch run Name = '||
675: X_Batch_run_Name ); --**||', ROWID = '||X_Rowid);
676: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
677: end if;
670: if (SQLCODE <> -20001) then
671: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
672: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
673: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
674: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Batch run Name = '||
675: X_Batch_run_Name ); --**||', ROWID = '||X_Rowid);
676: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
677: end if;
678: APP_EXCEPTION.RAISE_EXCEPTION;
672: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
673: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
674: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Batch run Name = '||
675: X_Batch_run_Name ); --**||', ROWID = '||X_Rowid);
676: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
677: end if;
678: APP_EXCEPTION.RAISE_EXCEPTION;
679:
680: end Check_Unique_Batch;