451:
452: EXCEPTION
453: WHEN OTHERS THEN
454: IF (SQLCODE <> -20001) THEN
455: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
456: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
457: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
458: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
459: END IF;
452: EXCEPTION
453: WHEN OTHERS THEN
454: IF (SQLCODE <> -20001) THEN
455: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
456: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
457: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
458: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
459: END IF;
460: APP_EXCEPTION.RAISE_EXCEPTION;
453: WHEN OTHERS THEN
454: IF (SQLCODE <> -20001) THEN
455: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
456: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
457: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
458: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
459: END IF;
460: APP_EXCEPTION.RAISE_EXCEPTION;
461:
454: IF (SQLCODE <> -20001) THEN
455: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
456: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
457: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
458: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
459: END IF;
460: APP_EXCEPTION.RAISE_EXCEPTION;
461:
462: END INSERT_ROW;
748: debug_info := 'Fetch cursor C1';
749: FETCH c1 INTO tlinfo;
750: IF (c1%notfound) THEN
751: debug_info := 'Close cursor C - ROW NOTFOUND';
752: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
753: app_exception.raise_exception;
754: CLOSE c1;
755: RETURN;
756: END IF;
1153: AND (X_TAX_CLASSIFICATION_CODE IS NULL)))
1154: ) THEN
1155: NULL;
1156: ELSE
1157: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
1158: app_exception.raise_exception;
1159: END IF;
1160: RETURN;
1161: EXCEPTION
1161: EXCEPTION
1162: WHEN OTHERS THEN
1163: if (SQLCODE <> -20001) then
1164: IF (SQLCODE = -54) THEN
1165: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
1166: ELSE
1167: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1168: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1169: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1163: if (SQLCODE <> -20001) then
1164: IF (SQLCODE = -54) THEN
1165: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
1166: ELSE
1167: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1168: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1169: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1170: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1171: END IF;
1164: IF (SQLCODE = -54) THEN
1165: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
1166: ELSE
1167: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1168: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1169: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1170: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1171: END IF;
1172: END IF;
1165: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
1166: ELSE
1167: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1168: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1169: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1170: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1171: END IF;
1172: END IF;
1173: APP_EXCEPTION.RAISE_EXCEPTION;
1166: ELSE
1167: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1168: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1169: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1170: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1171: END IF;
1172: END IF;
1173: APP_EXCEPTION.RAISE_EXCEPTION;
1174: END LOCK_ROW;
1466: END IF;
1467: EXCEPTION
1468: WHEN OTHERS THEN
1469: IF (SQLCODE <> -20001) THEN
1470: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1471: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1472: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1473: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1474: END IF;
1467: EXCEPTION
1468: WHEN OTHERS THEN
1469: IF (SQLCODE <> -20001) THEN
1470: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1471: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1472: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1473: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1474: END IF;
1475: APP_EXCEPTION.RAISE_EXCEPTION;
1468: WHEN OTHERS THEN
1469: IF (SQLCODE <> -20001) THEN
1470: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1471: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1472: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1473: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1474: END IF;
1475: APP_EXCEPTION.RAISE_EXCEPTION;
1476: END UPDATE_ROW;
1469: IF (SQLCODE <> -20001) THEN
1470: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1471: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1472: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1473: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1474: END IF;
1475: APP_EXCEPTION.RAISE_EXCEPTION;
1476: END UPDATE_ROW;
1477:
1509:
1510: EXCEPTION
1511: WHEN OTHERS THEN
1512: IF (SQLCODE <> -20001) THEN
1513: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1514: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1515: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1516: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1517: END IF;
1510: EXCEPTION
1511: WHEN OTHERS THEN
1512: IF (SQLCODE <> -20001) THEN
1513: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1514: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1515: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1516: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1517: END IF;
1518: APP_EXCEPTION.RAISE_EXCEPTION;
1511: WHEN OTHERS THEN
1512: IF (SQLCODE <> -20001) THEN
1513: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1514: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1515: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1516: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1517: END IF;
1518: APP_EXCEPTION.RAISE_EXCEPTION;
1519:
1512: IF (SQLCODE <> -20001) THEN
1513: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1514: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1515: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1516: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1517: END IF;
1518: APP_EXCEPTION.RAISE_EXCEPTION;
1519:
1520: END Delete_Row;