PACKAGE BODY: APPS.FV_IPA_PKG_PVT

Source

1 PACKAGE BODY FV_IPA_PKG_PVT AS
2 -- $Header: FVDCLBPB.pls 120.4 2005/10/21 11:16:36 kbhatt noship $
3   g_module_name VARCHAR2(100) := 'fv.plsql.FV_IPA_PKG_PVT.';
4 
5 PROCEDURE IPA_TRX(x_transmission_id IN NUMBER) AS
6   l_module_name VARCHAR2(200) := g_module_name || 'IPA_TRX';
7 
8  v_submit_id  NUMBER;
9  call_status  BOOLEAN;
10  rphase       VARCHAR2(30);
11  dphase       VARCHAR2(30);
12  rstatus      VARCHAR2(30);
13  dstatus      VARCHAR2(30);
14  message      VARCHAR2(240);
15 
16  l_org_id NUMBER;	-- MOAC Change
17 
18  submit_error EXCEPTION;
19 
20 BEGIN
21 
22  IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
23    FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'SUBMITTING FVDCLCKB, LOCKBOX FINANCE CHARGE APPLICATION');
24  END IF;
25  -- submit Lockbox Finance Charge Application process
26 
27 -- MOAC Changes
28  l_org_id  := mo_global.get_current_org_id;    -- get org id
29  fnd_request.set_org_id(l_org_id);             -- set org id
30 
31  v_submit_id := FND_REQUEST.SUBMIT_REQUEST('FV','FVDCLCKB',NULL, NULL, FALSE,
32                   x_transmission_id);
33 
34  IF v_submit_id = 0 THEN
35    -- failed to sumbit process
36    RAISE submit_error;
37  END IF;
38  commit;
39 
40  -- do not exit this procedure until the Lockbox Finance Charge Application
41  -- Process has completed processing.  Then control can return to the
42  -- Lockbox Execution report.
43  LOOP
44    call_status := FND_CONCURRENT.GET_REQUEST_STATUS(v_submit_id, NULL, NULL,
45           rphase,rstatus,dphase,dstatus,message);
46    EXIt WHEN ((call_status and dphase = 'COMPLETE') or NOT(call_status));
47    dbms_lock.sleep(5);
48  END LOOP;
49 
50 
51 EXCEPTION
52   WHEN submit_error THEN
53      FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.exception1','ERROR IN FEDERAL''S FV_IPA_PKG_PVT.IPA_TRX. COULD NOT SUBMIT FVDCLCKB');
54      app_exception.raise_exception;
55 
56   WHEN OTHERS THEN
57       FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.exception2','ERROR IN FEDERAL''S FV_IPA_PKG_PVT.IPA_TRX--'||SQLERRM);
58       app_exception.raise_exception;
59 
60 END IPA_TRX;
61 
62 END FV_IPA_PKG_PVT;