PACKAGE BODY: APPS.INV_TRX_MGR_CP

Source

1 PACKAGE BODY INV_TRX_MGR_CP AS
2 /* $Header: INVTRXCB.pls 120.1 2005/06/17 17:41:21 appldev  $ */
3 
4 
5 --      Name: PROCESS_LPN_TRX
6 --
7 --      Input parameters:
8 --
9 --      Output parameters:
10 --       x_proc_msg         Message from the Process-Manager
11 --       return_status      0 on Success, 1 on Error
12 --
13 --
14 --
15 
16 PROCEDURE PROCESS_LPN_TRX(  x_retcode   OUT NOCOPY VARCHAR2,
17                             x_errbuf         OUT NOCOPY VARCHAR2,
18                             p_trx_id         IN NUMBER ) IS
19 v_commit varchar2(12) := fnd_api.g_true;
20 v_mesg varchar2(2000) ;
21 v_retval number;
22 ret boolean;
23 BEGIN
24   v_retval := INV_LPN_TRX_PUB.PROCESS_LPN_TRX(
25                 p_trx_hdr_id => p_trx_id,
26                 p_commit     =>v_commit,
27                 x_proc_msg   => v_mesg,
28                 p_proc_mode  => 1 );  -- Online when called from Conc manager
29   if (v_retval = 1) then
30     ret := fnd_concurrent.set_completion_status('ERROR', v_mesg);
31     x_retcode := 2;
32     x_errbuf := v_mesg;
33   else
34     ret := fnd_concurrent.set_completion_status('NORMAL', v_mesg);
35     x_retcode := 0;
36   end if;
37 
38 END;
39 
40 END INV_TRX_MGR_CP;