1 PACKAGE BODY FV_IPA_PKG AS
2 -- $Header: FVXARCHB.pls 120.3 2003/12/17 21:21:32 ksriniva noship $
3 g_module_name VARCHAR2(100) := 'fv.plsql.FV_IPA_PKG.';
4
5 PROCEDURE IPA_TRX(x_transmission_id IN NUMBER) AS
6 l_module_name VARCHAR2(200) := g_module_name || 'IPA_TRX';
7 l_errbuf VARCHAR2(1024);
8 v_org_id number := to_number(fnd_profile.value('ORG_ID'));
9 v_lockbox varchar2(10) := fnd_profile.value('FV_LOCKBOX_FC');
10
11 BEGIN
12
13 -- --------------------------------------
14 -- This package is invoked from the code hook placed by AR in the
15 -- Lockbox Execution Report (ARXLPLB.rdf). The code hook resides
16 -- in ARXLPLB.rdf in the after report trigger. This package
17 -- calls the Federal private package which will submit the
18 -- Lockbox Finance Charge Application process.
19 -- ------------------------------------------
20
21 IF (fv_install.enabled(v_org_id)) and (v_lockbox = 'Y') THEN
22 -- Federal is enabled and client wants to use Lockbox Finance
23 -- Charge Application process.
24
25 IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
26 FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FEDERAL IS ENABLED AND LOCKBOX PROFILE ON');
27 END IF;
28 FV_IPA_PKG_PVT.IPA_TRX(x_transmission_id);
29
30 END IF;
31
32 EXCEPTION
33 WHEN OTHERS THEN
34 l_errbuf := SQLERRM;
35 FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',l_errbuf);
36 --app_exception.raise_exception;
37 raise;
38
39 END IPA_TRX;
40
41 END FV_IPA_PKG;