167: CLOSE C;
168: EXCEPTION
169: WHEN OTHERS THEN
170: IF (SQLCODE <> -20001) THEN
171: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
172: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
173: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
174: FND_MESSAGE.SET_TOKEN('PARAMETERS',
175: ' group_tax_id = '|| X_group_tax_id ||
168: EXCEPTION
169: WHEN OTHERS THEN
170: IF (SQLCODE <> -20001) THEN
171: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
172: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
173: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
174: FND_MESSAGE.SET_TOKEN('PARAMETERS',
175: ' group_tax_id = '|| X_group_tax_id ||
176: ' tax_category_id = ' || X_tax_category_id ||
169: WHEN OTHERS THEN
170: IF (SQLCODE <> -20001) THEN
171: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
172: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
173: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
174: FND_MESSAGE.SET_TOKEN('PARAMETERS',
175: ' group_tax_id = '|| X_group_tax_id ||
176: ' tax_category_id = ' || X_tax_category_id ||
177: ' end_date_active = ' || to_char(X_end_date_active,'YYYY/MM/DD') );
170: IF (SQLCODE <> -20001) THEN
171: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
172: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
173: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
174: FND_MESSAGE.SET_TOKEN('PARAMETERS',
175: ' group_tax_id = '|| X_group_tax_id ||
176: ' tax_category_id = ' || X_tax_category_id ||
177: ' end_date_active = ' || to_char(X_end_date_active,'YYYY/MM/DD') );
178: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
174: FND_MESSAGE.SET_TOKEN('PARAMETERS',
175: ' group_tax_id = '|| X_group_tax_id ||
176: ' tax_category_id = ' || X_tax_category_id ||
177: ' end_date_active = ' || to_char(X_end_date_active,'YYYY/MM/DD') );
178: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
179: END IF;
180: APP_EXCEPTION.RAISE_EXCEPTION;
181: END Insert_Row;
182:
290: FETCH C INTO Recinfo;
291: IF (C%NOTFOUND) THEN
292: debug_info := 'Close cursor C - DATA NOTFOUND';
293: CLOSE C;
294: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
295: APP_EXCEPTION.Raise_Exception;
296: END IF;
297:
298: debug_info := 'Close cursor C';
407: ((Recinfo.attribute15 IS NULL) AND
408: (X_attribute15 IS NULL)))) THEN
409: return;
410: ELSE
411: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
412: APP_EXCEPTION.Raise_Exception;
413: END IF;
414:
415: EXCEPTION
415: EXCEPTION
416: WHEN OTHERS THEN
417: IF (SQLCODE <> -20001) THEN
418: IF (SQLCODE = -54) THEN
419: FND_MESSAGE.SET_NAME('AR','AR_RESOURCE_BUSY');
420: ELSE
421: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
422: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
423: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
417: IF (SQLCODE <> -20001) THEN
418: IF (SQLCODE = -54) THEN
419: FND_MESSAGE.SET_NAME('AR','AR_RESOURCE_BUSY');
420: ELSE
421: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
422: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
423: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
424: FND_MESSAGE.SET_TOKEN('PARAMETERS',
425: ' group_tax_id = '|| X_group_tax_id ||
418: IF (SQLCODE = -54) THEN
419: FND_MESSAGE.SET_NAME('AR','AR_RESOURCE_BUSY');
420: ELSE
421: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
422: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
423: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
424: FND_MESSAGE.SET_TOKEN('PARAMETERS',
425: ' group_tax_id = '|| X_group_tax_id ||
426: ' tax_category_id = ' || X_tax_category_id ||
419: FND_MESSAGE.SET_NAME('AR','AR_RESOURCE_BUSY');
420: ELSE
421: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
422: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
423: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
424: FND_MESSAGE.SET_TOKEN('PARAMETERS',
425: ' group_tax_id = '|| X_group_tax_id ||
426: ' tax_category_id = ' || X_tax_category_id ||
427: ' end_date_active = ' || to_char(X_end_date_active,'YYYY/MM/DD') );
420: ELSE
421: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
422: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
423: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
424: FND_MESSAGE.SET_TOKEN('PARAMETERS',
425: ' group_tax_id = '|| X_group_tax_id ||
426: ' tax_category_id = ' || X_tax_category_id ||
427: ' end_date_active = ' || to_char(X_end_date_active,'YYYY/MM/DD') );
428: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
424: FND_MESSAGE.SET_TOKEN('PARAMETERS',
425: ' group_tax_id = '|| X_group_tax_id ||
426: ' tax_category_id = ' || X_tax_category_id ||
427: ' end_date_active = ' || to_char(X_end_date_active,'YYYY/MM/DD') );
428: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
429: END IF;
430: END IF;
431: APP_EXCEPTION.RAISE_EXCEPTION;
432: END Lock_Row;
539: EXCEPTION
540: WHEN OTHERS THEN
541: IF (SQLCODE <> -20001) THEN
542: IF (SQLCODE = -54) THEN
543: FND_MESSAGE.SET_NAME('AR','AR_RESOURCE_BUSY');
544: ELSE
545: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
546: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
547: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
541: IF (SQLCODE <> -20001) THEN
542: IF (SQLCODE = -54) THEN
543: FND_MESSAGE.SET_NAME('AR','AR_RESOURCE_BUSY');
544: ELSE
545: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
546: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
547: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
548: FND_MESSAGE.SET_TOKEN('PARAMETERS',
549: ' group_tax_id = '|| X_group_tax_id ||
542: IF (SQLCODE = -54) THEN
543: FND_MESSAGE.SET_NAME('AR','AR_RESOURCE_BUSY');
544: ELSE
545: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
546: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
547: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
548: FND_MESSAGE.SET_TOKEN('PARAMETERS',
549: ' group_tax_id = '|| X_group_tax_id ||
550: ' tax_category_id = ' || X_tax_category_id ||
543: FND_MESSAGE.SET_NAME('AR','AR_RESOURCE_BUSY');
544: ELSE
545: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
546: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
547: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
548: FND_MESSAGE.SET_TOKEN('PARAMETERS',
549: ' group_tax_id = '|| X_group_tax_id ||
550: ' tax_category_id = ' || X_tax_category_id ||
551: ' end_date_active = ' || to_char(X_end_date_active,'YYYY/MM/DD') );
544: ELSE
545: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
546: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
547: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
548: FND_MESSAGE.SET_TOKEN('PARAMETERS',
549: ' group_tax_id = '|| X_group_tax_id ||
550: ' tax_category_id = ' || X_tax_category_id ||
551: ' end_date_active = ' || to_char(X_end_date_active,'YYYY/MM/DD') );
552: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
548: FND_MESSAGE.SET_TOKEN('PARAMETERS',
549: ' group_tax_id = '|| X_group_tax_id ||
550: ' tax_category_id = ' || X_tax_category_id ||
551: ' end_date_active = ' || to_char(X_end_date_active,'YYYY/MM/DD') );
552: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
553: END IF;
554: END IF;
555: APP_EXCEPTION.RAISE_EXCEPTION;
556:
579:
580: EXCEPTION
581: WHEN OTHERS THEN
582: IF (SQLCODE <> -20001) THEN
583: FND_MESSAGE.SET_NAME('SQLAR','AR_DEBUG');
584: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
585: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
586: FND_MESSAGE.SET_TOKEN('PARAMETERS',' ROWID = '|| X_rowid);
587: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
580: EXCEPTION
581: WHEN OTHERS THEN
582: IF (SQLCODE <> -20001) THEN
583: FND_MESSAGE.SET_NAME('SQLAR','AR_DEBUG');
584: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
585: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
586: FND_MESSAGE.SET_TOKEN('PARAMETERS',' ROWID = '|| X_rowid);
587: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
588: END IF;
581: WHEN OTHERS THEN
582: IF (SQLCODE <> -20001) THEN
583: FND_MESSAGE.SET_NAME('SQLAR','AR_DEBUG');
584: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
585: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
586: FND_MESSAGE.SET_TOKEN('PARAMETERS',' ROWID = '|| X_rowid);
587: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
588: END IF;
589: APP_EXCEPTION.RAISE_EXCEPTION;
582: IF (SQLCODE <> -20001) THEN
583: FND_MESSAGE.SET_NAME('SQLAR','AR_DEBUG');
584: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
585: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
586: FND_MESSAGE.SET_TOKEN('PARAMETERS',' ROWID = '|| X_rowid);
587: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
588: END IF;
589: APP_EXCEPTION.RAISE_EXCEPTION;
590: END Delete_Row;
583: FND_MESSAGE.SET_NAME('SQLAR','AR_DEBUG');
584: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
585: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
586: FND_MESSAGE.SET_TOKEN('PARAMETERS',' ROWID = '|| X_rowid);
587: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
588: END IF;
589: APP_EXCEPTION.RAISE_EXCEPTION;
590: END Delete_Row;
591:
621: AND end_date_active = X_end_date_active
622: AND ((X_rowid IS NULL) OR (rowid <> X_rowid));
623:
624: IF (l_dummy >=1) THEN
625: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
626: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
627: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
628: FND_MESSAGE.SET_TOKEN('PARAMETERS',
629: ' group_tax_id = ' || X_group_tax_id ||
622: AND ((X_rowid IS NULL) OR (rowid <> X_rowid));
623:
624: IF (l_dummy >=1) THEN
625: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
626: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
627: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
628: FND_MESSAGE.SET_TOKEN('PARAMETERS',
629: ' group_tax_id = ' || X_group_tax_id ||
630: ' tax_category_id = ' || X_tax_category_id ||
623:
624: IF (l_dummy >=1) THEN
625: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
626: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
627: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
628: FND_MESSAGE.SET_TOKEN('PARAMETERS',
629: ' group_tax_id = ' || X_group_tax_id ||
630: ' tax_category_id = ' || X_tax_category_id ||
631: ' end_date_active = ' || to_char(X_end_date_active,'YYYY/MM/DD') );
624: IF (l_dummy >=1) THEN
625: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
626: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
627: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
628: FND_MESSAGE.SET_TOKEN('PARAMETERS',
629: ' group_tax_id = ' || X_group_tax_id ||
630: ' tax_category_id = ' || X_tax_category_id ||
631: ' end_date_active = ' || to_char(X_end_date_active,'YYYY/MM/DD') );
632: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
628: FND_MESSAGE.SET_TOKEN('PARAMETERS',
629: ' group_tax_id = ' || X_group_tax_id ||
630: ' tax_category_id = ' || X_tax_category_id ||
631: ' end_date_active = ' || to_char(X_end_date_active,'YYYY/MM/DD') );
632: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
633: APP_EXCEPTION.RAISE_EXCEPTION;
634: END IF;
635:
636: END Check_Unique;
672: a.end_date_active >= X_end_date_active))
673: AND ((X_rowid IS NULL) OR (a.rowid <> X_rowid));
674:
675: IF (l_dummy >=1) THEN
676: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
677: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
678: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
679: FND_MESSAGE.SET_TOKEN('PARAMETERS',
680: ' group_tax_id = ' || X_group_tax_id ||
673: AND ((X_rowid IS NULL) OR (a.rowid <> X_rowid));
674:
675: IF (l_dummy >=1) THEN
676: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
677: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
678: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
679: FND_MESSAGE.SET_TOKEN('PARAMETERS',
680: ' group_tax_id = ' || X_group_tax_id ||
681: ' tax_category_id = ' || to_char(X_tax_category_id) ||
674:
675: IF (l_dummy >=1) THEN
676: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
677: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
678: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
679: FND_MESSAGE.SET_TOKEN('PARAMETERS',
680: ' group_tax_id = ' || X_group_tax_id ||
681: ' tax_category_id = ' || to_char(X_tax_category_id) ||
682: ' end_date_active = ' || to_char(X_end_date_active,'YYYY/MM/DD') ||
675: IF (l_dummy >=1) THEN
676: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
677: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
678: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
679: FND_MESSAGE.SET_TOKEN('PARAMETERS',
680: ' group_tax_id = ' || X_group_tax_id ||
681: ' tax_category_id = ' || to_char(X_tax_category_id) ||
682: ' end_date_active = ' || to_char(X_end_date_active,'YYYY/MM/DD') ||
683: ' start_date_active = ' || to_char(X_start_date_active,'YYYY/MM/DD') );
680: ' group_tax_id = ' || X_group_tax_id ||
681: ' tax_category_id = ' || to_char(X_tax_category_id) ||
682: ' end_date_active = ' || to_char(X_end_date_active,'YYYY/MM/DD') ||
683: ' start_date_active = ' || to_char(X_start_date_active,'YYYY/MM/DD') );
684: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
685: APP_EXCEPTION.RAISE_EXCEPTION;
686: END IF;
687: END Check_Overlapped_Dates;
688:
759: AND establishment_type = X_establishment_type
760: AND ((X_rowid IS NULL) OR (a.rowid <> X_rowid));
761:
762: IF (l_dummy2 <> 0) THEN
763: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
764: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
765: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
766: FND_MESSAGE.SET_TOKEN('PARAMETERS',
767: ' group_tax_id = ' || X_group_tax_id ||
760: AND ((X_rowid IS NULL) OR (a.rowid <> X_rowid));
761:
762: IF (l_dummy2 <> 0) THEN
763: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
764: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
765: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
766: FND_MESSAGE.SET_TOKEN('PARAMETERS',
767: ' group_tax_id = ' || X_group_tax_id ||
768: ' tax_category_id = ' || to_char(X_tax_category_id) ||
761:
762: IF (l_dummy2 <> 0) THEN
763: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
764: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
765: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
766: FND_MESSAGE.SET_TOKEN('PARAMETERS',
767: ' group_tax_id = ' || X_group_tax_id ||
768: ' tax_category_id = ' || to_char(X_tax_category_id) ||
769: ' end_date_active = ' || to_char(X_end_date_active,'YYYY/MM/DD') ||
762: IF (l_dummy2 <> 0) THEN
763: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
764: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
765: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
766: FND_MESSAGE.SET_TOKEN('PARAMETERS',
767: ' group_tax_id = ' || X_group_tax_id ||
768: ' tax_category_id = ' || to_char(X_tax_category_id) ||
769: ' end_date_active = ' || to_char(X_end_date_active,'YYYY/MM/DD') ||
770: ' start_date_active = ' || to_char(X_start_date_active,'YYYY/MM/DD') );
767: ' group_tax_id = ' || X_group_tax_id ||
768: ' tax_category_id = ' || to_char(X_tax_category_id) ||
769: ' end_date_active = ' || to_char(X_end_date_active,'YYYY/MM/DD') ||
770: ' start_date_active = ' || to_char(X_start_date_active,'YYYY/MM/DD') );
771: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
772: APP_EXCEPTION.RAISE_EXCEPTION;
773: END IF;
774: END;
775: END IF;