PACKAGE BODY: APPS.FA_MC_UPG_BALANCES_PKG

Source

1 PACKAGE BODY FA_MC_UPG_BALANCES_PKG AS
2 /* $Header: faxmcugb.pls 120.4 2009/03/27 10:31:55 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;