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;