60: FETCH C INTO Recinfo;
61: if (C%NOTFOUND) then
62: debug_info := 'Close cursor C - ROW NOTFOUND';
63: CLOSE C;
64: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
65: APP_EXCEPTION.Raise_Exception;
66: end if;
67: debug_info := 'Close cursor C';
68: CLOSE C;
103: AND (X_ADDITIONAL_INFO IS NULL)))
104: )
105: THEN return;
106: ELSE
107: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
108: APP_EXCEPTION.Raise_Exception;
109: END IF;
110:
111: EXCEPTION
111: EXCEPTION
112: WHEN OTHERS THEN
113: if (SQLCODE <> -20001) then
114: IF (SQLCODE = -54) THEN
115: FND_MESSAGE.SET_NAME('IBY','IBY_RESOURCE_BUSY');
116: ELSE
117: FND_MESSAGE.SET_NAME('IBY', 'IBY_DEBUG');
118: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
119: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
113: if (SQLCODE <> -20001) then
114: IF (SQLCODE = -54) THEN
115: FND_MESSAGE.SET_NAME('IBY','IBY_RESOURCE_BUSY');
116: ELSE
117: FND_MESSAGE.SET_NAME('IBY', 'IBY_DEBUG');
118: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
119: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
120: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
121: END IF;
114: IF (SQLCODE = -54) THEN
115: FND_MESSAGE.SET_NAME('IBY','IBY_RESOURCE_BUSY');
116: ELSE
117: FND_MESSAGE.SET_NAME('IBY', 'IBY_DEBUG');
118: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
119: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
120: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
121: END IF;
122: end if;
115: FND_MESSAGE.SET_NAME('IBY','IBY_RESOURCE_BUSY');
116: ELSE
117: FND_MESSAGE.SET_NAME('IBY', 'IBY_DEBUG');
118: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
119: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
120: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
121: END IF;
122: end if;
123: APP_EXCEPTION.RAISE_EXCEPTION;
116: ELSE
117: FND_MESSAGE.SET_NAME('IBY', 'IBY_DEBUG');
118: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
119: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
120: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
121: END IF;
122: end if;
123: APP_EXCEPTION.RAISE_EXCEPTION;
124: