1: PACKAGE BODY fv_ar_pkg AS
2: /* $Header: FVARPDRB.pls 115.4 2003/12/17 21:19:43 ksriniva noship $ */
3: g_module_name VARCHAR2(100) := 'fv.plsql.FV_AR_PKG.';
4:
5: PROCEDURE delete_offsetting_unapp(p_posting_control_id IN NUMBER,
1: PACKAGE BODY fv_ar_pkg AS
2: /* $Header: FVARPDRB.pls 115.4 2003/12/17 21:19:43 ksriniva noship $ */
3: g_module_name VARCHAR2(100) := 'fv.plsql.FV_AR_PKG.';
4:
5: PROCEDURE delete_offsetting_unapp(p_posting_control_id IN NUMBER,
6: p_sob_id IN NUMBER,
7: p_status OUT NOCOPY NUMBER) IS
82: END IF;
83:
84: END LOOP;
85: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
86: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FV_AR_PKG successfully completed.');
87: END IF;
88:
89: EXCEPTION WHEN OTHERS THEN
90: p_status := 1;
88:
89: EXCEPTION WHEN OTHERS THEN
90: p_status := 1;
91: l_errbuf := SQLERRM;
92: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,'FV_AR_PKG COMPLETED WITH THE FOLLOWING ERROR:');
93: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,l_errbuf);
94:
95: END delete_offsetting_unapp;
96: END fv_ar_pkg;
92: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,'FV_AR_PKG COMPLETED WITH THE FOLLOWING ERROR:');
93: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,l_errbuf);
94:
95: END delete_offsetting_unapp;
96: END fv_ar_pkg;