[Home] [Help]
PACKAGE BODY: APPS.FA_MC_UPG_BALANCES_PKG
Source
1 PACKAGE BODY FA_MC_UPG_BALANCES_PKG AS
2 /* $Header: faxmcugb.pls 120.3 2005/10/07 14:03:57 bridgway ship $ */
3
4 g_print_debug boolean := fa_cache_pkg.fa_print_debug;
5
6 PROCEDURE main_balances(
7 errbuf OUT NOCOPY VARCHAR2,
8 retcode OUT NOCOPY NUMBER,
9 p_book_type_code IN VARCHAR2,
10 p_reporting_book IN VARCHAR2) IS
11
12 p_msg_count NUMBER := 0;
13 p_msg_data VARCHAR2(512);
14
15 BEGIN
16
17 FA_SRVR_MSG.Init_Server_Message;
18 FA_DEBUG_PKG.initialize;
19 -- FA_DEBUG_PKG.Set_Debug_Flag;
20
21 fa_mc_upg3_pkg.calculate_balances(
22 p_reporting_book,
23 p_book_type_code);
24
25 IF (g_print_debug) THEN
26 fa_mc_upg1_pkg.Write_DebugMsg_Log(
27 p_msg_count);
28 END IF;
29 fa_srvr_msg.add_message(
30 calling_fn => 'fa_mc_upg_select_pkg.main_select',
31 name => 'FA_SHARED_END_SUCCESS',
32 token1 => 'PROGRAM',
33 value1 => 'FAMRCUPG3');
34 -- write messages to log file
35 FND_MSG_PUB.Count_And_Get(
36 p_count => p_msg_count,
37 p_data => p_msg_data);
38
39 fa_mc_upg1_pkg.Write_ErrMsg_Log(p_msg_count);
40
41 -- return success to concurrent manager
42 retcode := 0;
43
44 EXCEPTION
45 WHEN OTHERS THEN
46 fa_srvr_msg.add_message(
47 calling_fn => 'fa_mc_upg_select_pkg.main_balances',
48 name => 'FA_SHARED_END_WITH_ERROR',
49 token1 => 'PROGRAM',
50 value1 => 'FAMRCUPG3');
51
52 IF (g_print_debug) THEN
53 fa_mc_upg1_pkg.Write_DebugMsg_Log(
54 p_msg_count);
55 END IF;
56
57 FND_MSG_PUB.Count_And_Get(
58 p_count => p_msg_count,
59 p_data => p_msg_data);
60
61 -- write error messages to log file
62 fa_mc_upg1_pkg.Write_ErrMsg_Log(
63 p_msg_count);
64
65 -- return failure to concurrent manager
66 retcode := 2;
67
68 END main_balances;
69
70 END FA_MC_UPG_BALANCES_PKG;