269: X_entry_sequential_number);
270: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
271: END IF;
272:
273: APP_EXCEPTION.RAISE_EXCEPTION;
274:
275: END Insert_Row;
276:
277:
375: IF (C%NOTFOUND) THEN
376: debug_info := 'Close cursor C - DATA NOTFOUND';
377: CLOSE C;
378: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
379: APP_EXCEPTION.Raise_Exception;
380: END IF;
381:
382: debug_info := 'Close cursor C';
383: CLOSE C;
567: ) THEN
568: RETURN;
569: ELSE
570: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
571: APP_EXCEPTION.Raise_Exception;
572: END IF;
573:
574: EXCEPTION
575: WHEN OTHERS THEN
587: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
588: END IF;
589: END IF;
590:
591: APP_EXCEPTION.RAISE_EXCEPTION;
592: END Lock_Row;
593:
594:
595: PROCEDURE Update_Row(X_Rowid VARCHAR2,
769: ' entry_sequential_number = ' ||
770: X_entry_sequential_number);
771: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
772: END IF;
773: APP_EXCEPTION.RAISE_EXCEPTION;
774:
775: END Update_Row;
776:
777: PROCEDURE Delete_Row(X_Rowid VARCHAR2,
799: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
800: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid);
801: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
802: END IF;
803: APP_EXCEPTION.RAISE_EXCEPTION;
804:
805: END Delete_Row;
806:
807: END JL_BR_AP_INT_COLLECT_EXT_PKG;