237: If (BE%ISOPEN) then
238: Close BE;
239: End If;
240: If (l_err_table = 1) then
241: FND_MESSAGE.Set_Name ('XTR', 'XTR_DNM_LOCKED');
242: Elsif (l_err_table = 2) then
243: FND_MESSAGE.Set_Name ('XTR', 'XTR_REVAL_EVENT_LOCKED');
244: End If;
245: App_Exception.Raise_Exception;
239: End If;
240: If (l_err_table = 1) then
241: FND_MESSAGE.Set_Name ('XTR', 'XTR_DNM_LOCKED');
242: Elsif (l_err_table = 2) then
243: FND_MESSAGE.Set_Name ('XTR', 'XTR_REVAL_EVENT_LOCKED');
244: End If;
245: App_Exception.Raise_Exception;
246: /*
247: When no_data_found then
267: xtr_debug_pkg.debug('>>EXCEPTION: Error in XTR_DNM_PKG.UNAUTHORIZE');
268: END IF;
269: l_err_num := SQLCODE;
270: l_err_msg := SQLERRM(l_err_num);
271: FND_MESSAGE.SET_NAME('XTR', 'XTR_UNHANDLED_EXCEPTION');
272: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'XTR_DNM_PKG.Unauthorize');
273: FND_MESSAGE.SET_TOKEN('EVENT', l_err_msg);
274: App_Exception.Raise_Exception;
275: End UNAUTHORIZE;
268: END IF;
269: l_err_num := SQLCODE;
270: l_err_msg := SQLERRM(l_err_num);
271: FND_MESSAGE.SET_NAME('XTR', 'XTR_UNHANDLED_EXCEPTION');
272: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'XTR_DNM_PKG.Unauthorize');
273: FND_MESSAGE.SET_TOKEN('EVENT', l_err_msg);
274: App_Exception.Raise_Exception;
275: End UNAUTHORIZE;
276:
269: l_err_num := SQLCODE;
270: l_err_msg := SQLERRM(l_err_num);
271: FND_MESSAGE.SET_NAME('XTR', 'XTR_UNHANDLED_EXCEPTION');
272: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'XTR_DNM_PKG.Unauthorize');
273: FND_MESSAGE.SET_TOKEN('EVENT', l_err_msg);
274: App_Exception.Raise_Exception;
275: End UNAUTHORIZE;
276:
277: END XTR_DNM_PKG;