[Home] [Help]
PACKAGE BODY: APPS.FV_SLA_PROCESSING_PUB
Source
1 PACKAGE BODY FV_SLA_PROCESSING_PUB AS
2 --$Header: FVPXLACB.pls 120.0 2006/01/31 01:06:45 ashkumar noship $
3
4 ---------------------------------------------------------------------------
5 C_STATE_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
6 C_PROC_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
7 C_EVENT_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
8 C_EXCEP_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9 C_ERROR_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
10 C_UNEXP_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
11
12 g_log_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
13 g_path_name CONSTANT VARCHAR2(200) := 'fv.plsql.FV_SLA_PROCESSING_PUB';
14
15 ---------------------------------------------------------------------------
16 PROCEDURE trace (
17 p_level IN NUMBER,
18 p_procedure_name IN VARCHAR2,
19 p_debug_info IN VARCHAR2
20 )
21 IS
22
23 BEGIN
24 IF (p_level >= g_log_level ) THEN
25 FND_LOG.STRING(p_level,
26 p_procedure_name,
27 p_debug_info);
28 END IF;
29
30 END trace;
31
32 ---------------------------------------------------------------
33 PROCEDURE extract
34 (
35 p_application_id IN NUMBER,
36 p_accounting_mode IN VARCHAR2
37 )
38 IS
39
40 l_debug_info VARCHAR2(240);
41 l_procedure_name VARCHAR2(100) :='.EXTRACT';
42
43 BEGIN
44
45 l_procedure_name := g_path_name || l_procedure_name;
46 -------------------------------------------------------------------------
47 l_debug_info := 'Begin of procedure '||l_procedure_name;
48 trace(C_STATE_LEVEL, l_procedure_name, l_debug_info);
49 -------------------------------------------------------------------------
50
51 IF NOT fv_install.enabled THEN
52 l_debug_info := 'Federal not enabled ';
53 trace(C_STATE_LEVEL, l_procedure_name, l_debug_info);
54 RETURN;
55 END IF;
56
57 FV_SLA_PROCESSING_PKG.extract
58 (
59 p_application_id => p_application_id,
60 p_accounting_mode => p_accounting_mode
61 );
62
63 -------------------------------------------------------------------------
64 l_debug_info := 'End of procedure '||l_procedure_name;
65 trace(C_PROC_LEVEL, l_procedure_name, l_debug_info);
66 -------------------------------------------------------------------------
67
68 END extract;
69
70 ---------------------------------------------------------------
71 PROCEDURE preaccounting
72 (
73 p_application_id IN NUMBER,
74 p_ledger_id IN INTEGER,
75 p_process_category IN VARCHAR2,
76 p_end_date IN DATE,
77 p_accounting_mode IN VARCHAR2,
78 p_valuation_method IN VARCHAR2,
79 p_security_id_int_1 IN INTEGER,
80 p_security_id_int_2 IN INTEGER,
81 p_security_id_int_3 IN INTEGER,
82 p_security_id_char_1 IN VARCHAR2,
83 p_security_id_char_2 IN VARCHAR2,
84 p_security_id_char_3 IN VARCHAR2,
85 p_report_request_id IN INTEGER
86 ) IS
87
88 l_debug_info VARCHAR2(240);
89 l_procedure_name VARCHAR2(100) :='.PREACCOUNTING';
90
91 BEGIN
92
93 l_procedure_name := g_path_name || l_procedure_name;
94 -------------------------------------------------------------------------
95 l_debug_info := 'Begin of procedure '||l_procedure_name;
96 trace(C_STATE_LEVEL, l_procedure_name, l_debug_info);
97 -------------------------------------------------------------------------
98
99 IF NOT fv_install.enabled THEN
100 l_debug_info := 'Federal not enabled ';
101 trace(C_STATE_LEVEL, l_procedure_name, l_debug_info);
102 RETURN;
103 END IF;
104
105 FV_SLA_PROCESSING_PKG.preaccounting
106 (
107 p_application_id => p_application_id,
108 p_ledger_id => p_ledger_id,
109 p_process_category => p_process_category,
110 p_end_date => p_end_date,
111 p_accounting_mode => p_accounting_mode,
112 p_valuation_method => p_valuation_method,
113 p_security_id_int_1 => p_security_id_int_1,
114 p_security_id_int_2 => p_security_id_int_2,
115 p_security_id_int_3 => p_security_id_int_3,
116 p_security_id_char_1 => p_security_id_char_1,
117 p_security_id_char_2 => p_security_id_char_2,
118 p_security_id_char_3 => p_security_id_char_3,
119 p_report_request_id => p_report_request_id
120 );
121 -------------------------------------------------------------------------
122 l_debug_info := 'End of procedure '||l_procedure_name;
123 trace(C_PROC_LEVEL, l_procedure_name, l_debug_info);
124 -------------------------------------------------------------------------
125 END;
126
127 ---------------------------------------------------------------
128 PROCEDURE postprocessing
129 (
130 p_application_id IN NUMBER,
131 p_accounting_mode IN VARCHAR2
132 ) IS
133
134 l_debug_info VARCHAR2(240);
135 l_procedure_name VARCHAR2(100) :='.POSTPROCESSING';
136
137 BEGIN
138
139 l_procedure_name := g_path_name || l_procedure_name;
140 -------------------------------------------------------------------------
141 l_debug_info := 'Begin of procedure '||l_procedure_name;
142 trace(C_STATE_LEVEL, l_procedure_name, l_debug_info);
143 -------------------------------------------------------------------------
144
145 IF NOT fv_install.enabled THEN
146 l_debug_info := 'Federal not enabled ';
147 trace(C_STATE_LEVEL, l_procedure_name, l_debug_info);
148 RETURN;
149 END IF;
150
151 FV_SLA_PROCESSING_PKG.postprocessing
152 (
153 p_application_id => p_application_id,
154 p_accounting_mode => p_accounting_mode
155 );
156
157 -------------------------------------------------------------------------
158 l_debug_info := 'End of procedure '||l_procedure_name;
159 trace(C_PROC_LEVEL, l_procedure_name, l_debug_info);
160 -------------------------------------------------------------------------
161 END;
162
163 ---------------------------------------------------------------
164 PROCEDURE postaccounting
165 (
166 p_application_id IN NUMBER,
167 p_ledger_id IN INTEGER,
168 p_process_category IN VARCHAR2,
169 p_end_date IN DATE,
170 p_accounting_mode IN VARCHAR2,
171 p_valuation_method IN VARCHAR2,
172 p_security_id_int_1 IN INTEGER,
173 p_security_id_int_2 IN INTEGER,
174 p_security_id_int_3 IN INTEGER,
175 p_security_id_char_1 IN VARCHAR2,
176 p_security_id_char_2 IN VARCHAR2,
177 p_security_id_char_3 IN VARCHAR2,
178 p_report_request_id IN INTEGER
179 ) IS
180
181 l_debug_info VARCHAR2(240);
182 l_procedure_name VARCHAR2(100) :='.POSTACCOUNTING';
183
184 BEGIN
185
186 l_procedure_name := g_path_name || l_procedure_name;
187 -------------------------------------------------------------------------
188 l_debug_info := 'Begin of procedure '||l_procedure_name;
189 trace(C_STATE_LEVEL, l_procedure_name, l_debug_info);
190 -------------------------------------------------------------------------
191
192 IF NOT fv_install.enabled THEN
193 l_debug_info := 'Federal not enabled ';
194 trace(C_STATE_LEVEL, l_procedure_name, l_debug_info);
195 RETURN;
196 END IF;
197
198 FV_SLA_PROCESSING_PKG.postaccounting
199 (
200 p_application_id => p_application_id,
201 p_ledger_id => p_ledger_id,
202 p_process_category => p_process_category,
203 p_end_date => p_end_date,
204 p_accounting_mode => p_accounting_mode,
205 p_valuation_method => p_valuation_method,
206 p_security_id_int_1 => p_security_id_int_1,
207 p_security_id_int_2 => p_security_id_int_2,
208 p_security_id_int_3 => p_security_id_int_3,
209 p_security_id_char_1 => p_security_id_char_1,
210 p_security_id_char_2 => p_security_id_char_2,
211 p_security_id_char_3 => p_security_id_char_3,
212 p_report_request_id => p_report_request_id
213 );
214 -------------------------------------------------------------------------
215 l_debug_info := 'End of procedure '||l_procedure_name;
216 trace(C_PROC_LEVEL, l_procedure_name, l_debug_info);
217 -------------------------------------------------------------------------
218 END;
219
220 END fv_sla_processing_pub;
221