[Home] [Help]
1: PACKAGE BODY XTR_DNM_PKG AS
2: /* $Header: xtrdnmpb.pls 120.6.12010000.2 2008/08/06 10:43:10 srsampat ship $ */
3:
4:
5: PROCEDURE AUTHORIZE(p_batch_id in NUMBER) IS
55:
56: Begin
57: --xtr_debug_pkg.enable_file_debug;
58: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
59: xtr_debug_pkg.debug('>> BEGIN: XTR_DNM_PKG.AUTHORIZE');
60: END IF;
61:
62: Open cur_count;
63: Fetch cur_count INTO l_count;
147:
148: Else
149: NULL;
150: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
151: xtr_debug_pkg.debug('>>XTR_DNM_PKG.AUTHORIZE-->Can not Authorize with incomplete reval details');
152: END IF;
153: End If;
154:
155: EXCEPTION
228:
229: EXCEPTION
230: When app_exception.record_lock_exception then
231: If (xtr_debug_pkg.pg_sqlplus_enable_flag = 1) THEN
232: xtr_debug_pkg.debug('>>XTR_DNM_PKG.UNAUTHORIZE --> Unable to lock records');
233: End If;
234: If (DNM%ISOPEN) then
235: Close DNM;
236: End If;
252: If (BE%ISOPEN) then
253: Close BE;
254: End If;
255: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 THEN
256: xtr_debug_pkg.debug('>>XTR_DNM_PKG.UNAUTHORIZE-->No_Data_Found');
257: END IF;
258: */
259: When Others Then
260: If (DNM%ISOPEN) then
263: If (BE%ISOPEN) then
264: Close BE;
265: End If;
266: IF xtr_debug_pkg.pg_sqlplus_enable_flag = 1 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');
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:
273: FND_MESSAGE.SET_TOKEN('EVENT', l_err_msg);
274: App_Exception.Raise_Exception;
275: End UNAUTHORIZE;
276:
277: END XTR_DNM_PKG;