126:
127: EXCEPTION
128: WHEN OTHERS THEN
129: IF (SQLCODE <> -20001) THEN
130: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
131: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
132: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
133: FND_MESSAGE.SET_TOKEN('PARAMETERS',
134: 'exc_cus_id = ' || X_exc_cus_id);
127: EXCEPTION
128: WHEN OTHERS THEN
129: IF (SQLCODE <> -20001) THEN
130: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
131: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
132: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
133: FND_MESSAGE.SET_TOKEN('PARAMETERS',
134: 'exc_cus_id = ' || X_exc_cus_id);
135: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
128: WHEN OTHERS THEN
129: IF (SQLCODE <> -20001) THEN
130: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
131: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
132: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
133: FND_MESSAGE.SET_TOKEN('PARAMETERS',
134: 'exc_cus_id = ' || X_exc_cus_id);
135: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
136: END IF;
129: IF (SQLCODE <> -20001) THEN
130: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
131: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
132: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
133: FND_MESSAGE.SET_TOKEN('PARAMETERS',
134: 'exc_cus_id = ' || X_exc_cus_id);
135: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
136: END IF;
137: APP_EXCEPTION.RAISE_EXCEPTION;
131: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
132: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
133: FND_MESSAGE.SET_TOKEN('PARAMETERS',
134: 'exc_cus_id = ' || X_exc_cus_id);
135: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
136: END IF;
137: APP_EXCEPTION.RAISE_EXCEPTION;
138:
139: END Insert_Row;
224:
225: IF (C%NOTFOUND) THEN
226: debug_info := 'Close cursor C - DATA NOTFOUND';
227: CLOSE C;
228: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
229: APP_EXCEPTION.Raise_Exception;
230: END IF;
231:
232: debug_info := 'Close cursor C';
309: ((Recinfo.attribute15 IS NULL) AND
310: (X_attribute15 IS NULL)))) THEN
311: return;
312: ELSE
313: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
314: APP_EXCEPTION.Raise_Exception;
315: END IF;
316:
317: EXCEPTION
317: EXCEPTION
318: WHEN OTHERS THEN
319: IF (SQLCODE <> -20001) THEN
320: IF (SQLCODE = -54) THEN
321: FND_MESSAGE.SET_NAME('AR','AR_RESOURCE_BUSY');
322: ELSE
323: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
324: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
325: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
319: IF (SQLCODE <> -20001) THEN
320: IF (SQLCODE = -54) THEN
321: FND_MESSAGE.SET_NAME('AR','AR_RESOURCE_BUSY');
322: ELSE
323: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
324: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
325: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
326: FND_MESSAGE.SET_TOKEN('PARAMETERS',
327: 'exc_cus_id = ' || X_exc_cus_id);
320: IF (SQLCODE = -54) THEN
321: FND_MESSAGE.SET_NAME('AR','AR_RESOURCE_BUSY');
322: ELSE
323: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
324: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
325: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
326: FND_MESSAGE.SET_TOKEN('PARAMETERS',
327: 'exc_cus_id = ' || X_exc_cus_id);
328: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
321: FND_MESSAGE.SET_NAME('AR','AR_RESOURCE_BUSY');
322: ELSE
323: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
324: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
325: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
326: FND_MESSAGE.SET_TOKEN('PARAMETERS',
327: 'exc_cus_id = ' || X_exc_cus_id);
328: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
329: END IF;
322: ELSE
323: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
324: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
325: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
326: FND_MESSAGE.SET_TOKEN('PARAMETERS',
327: 'exc_cus_id = ' || X_exc_cus_id);
328: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
329: END IF;
330: END IF;
324: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
325: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
326: FND_MESSAGE.SET_TOKEN('PARAMETERS',
327: 'exc_cus_id = ' || X_exc_cus_id);
328: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
329: END IF;
330: END IF;
331: APP_EXCEPTION.RAISE_EXCEPTION;
332: END Lock_Row;
441: AND org_id = X_org_id
442: AND ((X_rowid IS NULL) OR (rowid <> X_rowid));
443:
444: IF (l_dummy >=1) THEN
445: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
446: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
447: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
448: FND_MESSAGE.SET_TOKEN('PARAMETERS',
449: ' address_id = ' || X_address_id ||
442: AND ((X_rowid IS NULL) OR (rowid <> X_rowid));
443:
444: IF (l_dummy >=1) THEN
445: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
446: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
447: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
448: FND_MESSAGE.SET_TOKEN('PARAMETERS',
449: ' address_id = ' || X_address_id ||
450: ' tax_category_id = ' || X_tax_category_id ||
443:
444: IF (l_dummy >=1) THEN
445: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
446: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
447: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
448: FND_MESSAGE.SET_TOKEN('PARAMETERS',
449: ' address_id = ' || X_address_id ||
450: ' tax_category_id = ' || X_tax_category_id ||
451: ' end_date_active = ' || X_end_date_active);
444: IF (l_dummy >=1) THEN
445: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
446: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
447: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
448: FND_MESSAGE.SET_TOKEN('PARAMETERS',
449: ' address_id = ' || X_address_id ||
450: ' tax_category_id = ' || X_tax_category_id ||
451: ' end_date_active = ' || X_end_date_active);
452: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
448: FND_MESSAGE.SET_TOKEN('PARAMETERS',
449: ' address_id = ' || X_address_id ||
450: ' tax_category_id = ' || X_tax_category_id ||
451: ' end_date_active = ' || X_end_date_active);
452: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
453: APP_EXCEPTION.RAISE_EXCEPTION;
454: END IF;
455: END Check_Unique;
456:
487: AND org_id = X_org_id
488: AND ((X_rowid IS NULL) OR (a.rowid <> X_rowid));
489:
490: IF (l_dummy >=1) THEN
491: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
492: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
493: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
494: FND_MESSAGE.SET_TOKEN('PARAMETERS',
495: ' address_id = ' || X_address_id ||
488: AND ((X_rowid IS NULL) OR (a.rowid <> X_rowid));
489:
490: IF (l_dummy >=1) THEN
491: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
492: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
493: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
494: FND_MESSAGE.SET_TOKEN('PARAMETERS',
495: ' address_id = ' || X_address_id ||
496: ' tax_category_id = ' || X_tax_category_id ||
489:
490: IF (l_dummy >=1) THEN
491: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
492: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
493: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
494: FND_MESSAGE.SET_TOKEN('PARAMETERS',
495: ' address_id = ' || X_address_id ||
496: ' tax_category_id = ' || X_tax_category_id ||
497: ' end_date_active = ' || X_end_date_active );
490: IF (l_dummy >=1) THEN
491: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
492: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
493: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
494: FND_MESSAGE.SET_TOKEN('PARAMETERS',
495: ' address_id = ' || X_address_id ||
496: ' tax_category_id = ' || X_tax_category_id ||
497: ' end_date_active = ' || X_end_date_active );
498: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
494: FND_MESSAGE.SET_TOKEN('PARAMETERS',
495: ' address_id = ' || X_address_id ||
496: ' tax_category_id = ' || X_tax_category_id ||
497: ' end_date_active = ' || X_end_date_active );
498: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
499: APP_EXCEPTION.RAISE_EXCEPTION;
500: END IF;
501: END Check_Overlapped_Dates;
502:
561: AND org_id = X_org_id
562: AND ((X_rowid IS NULL) OR (a.rowid <> X_rowid));
563:
564: IF (l_dummy2 <> 0) THEN
565: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
566: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
567: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
568: FND_MESSAGE.SET_TOKEN('PARAMETERS',
569: ' address_id = ' || X_address_id ||
562: AND ((X_rowid IS NULL) OR (a.rowid <> X_rowid));
563:
564: IF (l_dummy2 <> 0) THEN
565: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
566: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
567: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
568: FND_MESSAGE.SET_TOKEN('PARAMETERS',
569: ' address_id = ' || X_address_id ||
570: ' tax_category_id = ' || X_tax_category_id ||
563:
564: IF (l_dummy2 <> 0) THEN
565: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
566: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
567: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
568: FND_MESSAGE.SET_TOKEN('PARAMETERS',
569: ' address_id = ' || X_address_id ||
570: ' tax_category_id = ' || X_tax_category_id ||
571: ' end_date_active = ' || X_end_date_active );
564: IF (l_dummy2 <> 0) THEN
565: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
566: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
567: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
568: FND_MESSAGE.SET_TOKEN('PARAMETERS',
569: ' address_id = ' || X_address_id ||
570: ' tax_category_id = ' || X_tax_category_id ||
571: ' end_date_active = ' || X_end_date_active );
572: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
568: FND_MESSAGE.SET_TOKEN('PARAMETERS',
569: ' address_id = ' || X_address_id ||
570: ' tax_category_id = ' || X_tax_category_id ||
571: ' end_date_active = ' || X_end_date_active );
572: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
573: APP_EXCEPTION.RAISE_EXCEPTION;
574: END IF;
575: END;
576: END IF;