PACKAGE BODY: APPS.OTATRANS

Source

1 PACKAGE body otatrans as
2 /* $Header: otatrans.pkb 115.2 2002/11/26 12:24:53 dbatra ship $ */
3 --
4 --
5 Procedure gl_transfer (ERRBUF OUT nocopy VARCHAR2,
6                        RETCODE OUT nocopy VARCHAR2) as
7     p_user_id   NUMBER;
8     p_login_id  NUMBER;
9     l_completed BOOLEAN;
10     failure     EXCEPTION;
11 --
12   BEGIN
13    p_user_id  := fnd_profile.value('USER_ID');
14    p_login_id := fnd_profile.value('LOGIN_ID');
15 -- -----------------------------------------------------------------
16 --                   COST TRANSFER TO GL PACKAGE                   |
17 -- -----------------------------------------------------------------
18 --
19    ota_cost_transfer_to_gl_pkg.otagls(p_user_id,
20                                       p_login_id);
21 --
22 --   dbms_output.put_line ('created gl lines');
23 --
24    exception
25      when others then
26 --     dbms_output.put_line ('error during cost transfer');
27      rollback;
28 --
29  end gl_transfer;
30 --
31 end otatrans;