[Home] [Help]
PACKAGE BODY: APPS.IGI_IAC_REVAL_INIT_CONTROL
Source
1 PACKAGE BODY IGI_IAC_REVAL_INIT_CONTROL AS
2 -- $Header: igiiarib.pls 120.6.12000000.1 2007/08/01 16:17:15 npandya ship $
3
4 --===========================FND_LOG.START=====================================
5
6 g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
7 g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
8 g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
9 g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
10 g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
11 g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
12 g_path VARCHAR2(100) := 'IGI.PLSQL.igiiarib.IGI_IAC_REVAL_INIT_CONTROL.';
13
14 --===========================FND_LOG.END=======================================
15
16 function init_control_for_srs ( fp_asset_id in number
17 , fp_book_type_code in varchar2
18 , fp_revaluation_id in number
19 , fp_revaluation_mode in varchar2
20 , fp_period_counter in number
21 , fp_iac_reval_control_type out NOCOPY IGI_IAC_TYPES.iac_reval_control_type
22 )
23 return boolean is
24 l_reval_control_type IGI_IAC_TYPES.iac_reval_control_type;
25 fp_iac_reval_control_type_old IGI_IAC_TYPES.iac_reval_control_type;
26 l_path varchar2(100) := g_path||'init_control_for_srs';
27
28 begin
29 l_reval_control_type.commit_flag := TRUE;
30 l_reval_control_type.print_report := TRUE;
31 l_reval_control_type.show_exceptions := TRUE;
32 l_reval_control_type.transaction_type_code := 'REVALUATION';
33 l_reval_control_type.calling_program := 'REVALUATION';
34 l_reval_control_type.adjustment_status := 'PREVIEW';
35 l_reval_control_type.revaluation_mode := fp_revaluation_mode;
36
37 fp_iac_reval_control_type := l_reval_control_type;
38 return true;
39 exception when others then
40 fp_iac_reval_control_type := fp_iac_reval_control_type_old;
41 igi_iac_debug_pkg.debug_unexpected_msg(l_path);
42 return false;
43 end;
44
45 /*
46 -- initialize if called for calculation from the form
47 */
48
49 function init_control_for_calc ( fp_asset_id in number
50 , fp_book_type_code in varchar2
51 , fp_revaluation_id in number
52 , fp_revaluation_mode in varchar2
53 , fp_period_counter in number
54 , fp_iac_reval_control_type out NOCOPY IGI_IAC_TYPES.iac_reval_control_type
55 )
56 return boolean is
57 l_reval_control_type IGI_IAC_TYPES.iac_reval_control_type;
58 fp_iac_reval_control_type_old IGI_IAC_TYPES.iac_reval_control_type;
59 l_path varchar2(100) := g_path||'init_control_for_calc';
60 begin
61 l_reval_control_type.commit_flag := FALSE;
62 l_reval_control_type.print_report := FALSE;
63 l_reval_control_type.show_exceptions := FALSE;
64 l_reval_control_type.transaction_type_code := 'REVALUATION';
65 l_reval_control_type.calling_program := 'REVALUATION';
66 l_reval_control_type.adjustment_status := 'PREVIEW';
67 l_reval_control_type.revaluation_mode := fp_revaluation_mode;
68 fp_iac_reval_control_type := l_reval_control_type;
69 return true;
70 exception when others then
71 fp_iac_reval_control_type := fp_iac_reval_control_type_old;
72 igi_iac_debug_pkg.debug_unexpected_msg(l_path);
73 return false;
74 end;
75
76 END;