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;
1150: AND (X_TAX_CLASSIFICATION_CODE IS NULL)))
1151: ) THEN
1152: NULL;
1153: ELSE
1154: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
1155: app_exception.raise_exception;
1156: END IF;
1157: RETURN;
1158: EXCEPTION
1158: EXCEPTION
1159: WHEN OTHERS THEN
1160: if (SQLCODE <> -20001) then
1161: IF (SQLCODE = -54) THEN
1162: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
1163: ELSE
1164: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1165: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1166: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1160: if (SQLCODE <> -20001) then
1161: IF (SQLCODE = -54) THEN
1162: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
1163: ELSE
1164: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1165: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1166: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1167: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1168: END IF;
1161: IF (SQLCODE = -54) THEN
1162: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
1163: ELSE
1164: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1165: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1166: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1167: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1168: END IF;
1169: END IF;
1162: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
1163: ELSE
1164: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1165: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1166: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1167: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1168: END IF;
1169: END IF;
1170: APP_EXCEPTION.RAISE_EXCEPTION;
1163: ELSE
1164: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1165: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1166: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1167: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1168: END IF;
1169: END IF;
1170: APP_EXCEPTION.RAISE_EXCEPTION;
1171: END LOCK_ROW;
1463: END IF;
1464: EXCEPTION
1465: WHEN OTHERS THEN
1466: IF (SQLCODE <> -20001) THEN
1467: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1468: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1469: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1470: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1471: END IF;
1464: EXCEPTION
1465: WHEN OTHERS THEN
1466: IF (SQLCODE <> -20001) THEN
1467: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1468: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1469: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1470: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1471: END IF;
1472: APP_EXCEPTION.RAISE_EXCEPTION;
1465: WHEN OTHERS THEN
1466: IF (SQLCODE <> -20001) THEN
1467: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1468: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1469: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1470: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1471: END IF;
1472: APP_EXCEPTION.RAISE_EXCEPTION;
1473: END UPDATE_ROW;
1466: IF (SQLCODE <> -20001) THEN
1467: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1468: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1469: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1470: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1471: END IF;
1472: APP_EXCEPTION.RAISE_EXCEPTION;
1473: END UPDATE_ROW;
1474:
1506:
1507: EXCEPTION
1508: WHEN OTHERS THEN
1509: IF (SQLCODE <> -20001) THEN
1510: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1511: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1512: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1513: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1514: END IF;
1507: EXCEPTION
1508: WHEN OTHERS THEN
1509: IF (SQLCODE <> -20001) THEN
1510: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1511: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1512: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1513: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1514: END IF;
1515: APP_EXCEPTION.RAISE_EXCEPTION;
1508: WHEN OTHERS THEN
1509: IF (SQLCODE <> -20001) THEN
1510: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1511: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1512: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1513: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1514: END IF;
1515: APP_EXCEPTION.RAISE_EXCEPTION;
1516:
1509: IF (SQLCODE <> -20001) THEN
1510: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1511: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1512: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1513: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1514: END IF;
1515: APP_EXCEPTION.RAISE_EXCEPTION;
1516:
1517: END Delete_Row;