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;
463:
464: procedure LOCK_ROW (
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;
757: CLOSE c1;
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
1162: WHEN OTHERS THEN
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;
1175:
1176: procedure UPDATE_ROW (
1177: X_Rowid IN VARCHAR2,
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:
1478:
1479: PROCEDURE Delete_Row(
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;
1521:
1522: END AP_INVOICE_LINES_INTERFACE_PKG;