28: FETCH c_lock INTO l_lock_rec;
29: IF (c_lock%NOTFOUND) THEN
30: CLOSE c_lock;
31:
32: FND_MESSAGE.Set_Name('FND','FORM_RECORD_DELETED');
33: IF ( l_excep_level >= l_debug_level ) THEN
34: FND_LOG.MESSAGE (l_excep_level, l_path || 'Lock_Row',FALSE);
35: END IF;
36: APP_EXCEPTION.Raise_Exception;
41: l_lock_rec.ni_number = p_ni_number
42: THEN
43: RETURN;
44: ELSE
45: FND_MESSAGE.Set_Name('FND','FORM_RECORD_CHANGED');
46: IF ( l_excep_level >= l_debug_level ) THEN
47: FND_LOG.MESSAGE (l_excep_level, l_path || 'Lock_Row',FALSE);
48: END IF;
49: APP_EXCEPTION.Raise_Exception;
108: l_debug_info := 'Close cursor c_insert';
109: CLOSE c_insert;
110: EXCEPTION
111: WHEN OTHERS THEN
112: FND_MESSAGE.Set_Name('SQLAP','AP_DEBUG');
113: FND_MESSAGE.Set_Token('ERROR',SQLERRM);
114: FND_MESSAGE.Set_Token('CALLING_SEQUENCE',p_calling_sequence);
115: FND_MESSAGE.Set_Token('DEBUG_INFO',l_debug_info);
116:
109: CLOSE c_insert;
110: EXCEPTION
111: WHEN OTHERS THEN
112: FND_MESSAGE.Set_Name('SQLAP','AP_DEBUG');
113: FND_MESSAGE.Set_Token('ERROR',SQLERRM);
114: FND_MESSAGE.Set_Token('CALLING_SEQUENCE',p_calling_sequence);
115: FND_MESSAGE.Set_Token('DEBUG_INFO',l_debug_info);
116:
117: IF ( l_unexp_level >= l_debug_level ) THEN
110: EXCEPTION
111: WHEN OTHERS THEN
112: FND_MESSAGE.Set_Name('SQLAP','AP_DEBUG');
113: FND_MESSAGE.Set_Token('ERROR',SQLERRM);
114: FND_MESSAGE.Set_Token('CALLING_SEQUENCE',p_calling_sequence);
115: FND_MESSAGE.Set_Token('DEBUG_INFO',l_debug_info);
116:
117: IF ( l_unexp_level >= l_debug_level ) THEN
118: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
111: WHEN OTHERS THEN
112: FND_MESSAGE.Set_Name('SQLAP','AP_DEBUG');
113: FND_MESSAGE.Set_Token('ERROR',SQLERRM);
114: FND_MESSAGE.Set_Token('CALLING_SEQUENCE',p_calling_sequence);
115: FND_MESSAGE.Set_Token('DEBUG_INFO',l_debug_info);
116:
117: IF ( l_unexp_level >= l_debug_level ) THEN
118: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
119: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
114: FND_MESSAGE.Set_Token('CALLING_SEQUENCE',p_calling_sequence);
115: FND_MESSAGE.Set_Token('DEBUG_INFO',l_debug_info);
116:
117: IF ( l_unexp_level >= l_debug_level ) THEN
118: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
119: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
120: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
121: FND_LOG.MESSAGE ( l_unexp_level,l_path || 'Insert Row', FALSE);
122: END IF;
115: FND_MESSAGE.Set_Token('DEBUG_INFO',l_debug_info);
116:
117: IF ( l_unexp_level >= l_debug_level ) THEN
118: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
119: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
120: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
121: FND_LOG.MESSAGE ( l_unexp_level,l_path || 'Insert Row', FALSE);
122: END IF;
123:
116:
117: IF ( l_unexp_level >= l_debug_level ) THEN
118: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
119: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
120: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
121: FND_LOG.MESSAGE ( l_unexp_level,l_path || 'Insert Row', FALSE);
122: END IF;
123:
124: APP_EXCEPTION.Raise_Exception;