[Home] [Help]
PACKAGE BODY: APPS.CEFC_VIEW_CONST
Source
1 PACKAGE BODY CEFC_VIEW_CONST AS
2 /* $Header: cefcvieb.pls 120.1.12020000.2 2012/07/03 07:20:18 vnetan ship $ */
3
4 /* ---------------------------------------------------------------------
5 | PRIVATE PROCEDURE |
6 | set_header_id |
7 | |
8 | DESCRIPTION |
9 | |
10 | |
11 | HISTORY |
12 | 01-AUG-96 bcarrol Created |
13 -----------------------------------------------------------------------*/
14
15 PROCEDURE set_header_id (pn_header_id IN NUMBER) IS
16 BEGIN
17 pg_header_id := pn_header_id;
18 END set_header_id;
19
20
21 /* ---------------------------------------------------------------------
22 | PRIVATE PROCEDURE |
23 | get_header_id |
24 | |
25 | DESCRIPTION |
26 | |
27 | |
28 | HISTORY |
29 | 01-AUG-96 bcarrol Created |
30 -----------------------------------------------------------------------*/
31 FUNCTION get_header_id RETURN NUMBER IS
32 BEGIN
33 return pg_header_id;
34 END get_header_id;
35
36
37 /* ---------------------------------------------------------------------
38 | PRIVATE PROCEDURE |
39 | set_start_period_name |
40 | |
41 | DESCRIPTION |
42 | |
43 | |
44 | HISTORY |
45 | 01-AUG-96 bcarrol Created |
46 -----------------------------------------------------------------------*/
47 PROCEDURE set_start_period_name (pd_start_period_name IN VARCHAR2) IS
48 BEGIN
49 pg_start_period_name := pd_start_period_name;
50 END set_start_period_name;
51
52 /* ---------------------------------------------------------------------
53 | PRIVATE PROCEDURE |
54 | get_start_period_name |
55 | |
56 | DESCRIPTION |
57 | |
58 | |
59 | HISTORY |
60 | 01-AUG-96 bcarrol Created |
61 -----------------------------------------------------------------------*/
62 FUNCTION get_start_period_name RETURN VARCHAR2 IS
63 BEGIN
64 return pg_start_period_name;
65 end get_start_period_name;
66
67 /* ---------------------------------------------------------------------
68 | PRIVATE PROCEDURE |
69 | set_period_set_name |
70 | DESCRIPTION |
71 | |
72 | |
73 | HISTORY |
74 | 01-AUG-96 bcarrol Created |
75 -----------------------------------------------------------------------*/
76
77 PROCEDURE set_period_set_name (pd_period_set_name IN VARCHAR2) IS
78 BEGIN
79 pg_period_set_name := pd_period_set_name;
80 END set_period_set_name;
81
82 /* ---------------------------------------------------------------------
83 | PRIVATE PROCEDURE |
84 | get_period_set_name |
85 | DESCRIPTION |
86 | |
87 | |
88 | HISTORY |
89 | 01-AUG-96 bcarrol Created |
90 -----------------------------------------------------------------------*/
91 FUNCTION get_period_set_name RETURN VARCHAR2 IS
92 BEGIN
93 return pg_period_set_name;
94 end get_period_set_name;
95
96 /* ---------------------------------------------------------------------
97 | PRIVATE PROCEDURE |
98 | set_rowid |
99 | |
100 | |
101 | DESCRIPTION |
102 | |
103 | |
104 | HISTORY |
105 | 01-AUG-96 bcarrol Created |
106 -----------------------------------------------------------------------*/
107 PROCEDURE set_rowid (pd_rowid IN VARCHAR2) IS
108 BEGIN
109 pg_rowid := pd_rowid;
110 END set_rowid;
111 /* ---------------------------------------------------------------------
112 | PRIVATE PROCEDURE |
113 | get_rowid |
114 | |
115 | |
116 | DESCRIPTION |
117 | |
118 | |
119 | HISTORY |
120 | 01-AUG-96 bcarrol Created |
121 -----------------------------------------------------------------------*/
122 FUNCTION get_rowid RETURN VARCHAR2 IS
123 BEGIN
124 return pg_rowid;
125 end get_rowid;
126
127
128 /* ---------------------------------------------------------------------
129 | PRIVATE PROCEDURE |
130 | set_start_date |
131 | |
132 | |
133 | DESCRIPTION |
134 | |
135 | |
136 | HISTORY |
137 | 01-AUG-96 bcarrol Created |
138 -----------------------------------------------------------------------*/
139 PROCEDURE set_start_date (pn_start_date IN DATE) IS
140 BEGIN
141 pg_start_date := pn_start_date;
142 END set_start_date;
143
144 /* ---------------------------------------------------------------------
145 | PRIVATE PROCEDURE |
146 | get_start_date |
147 | |
148 | |
149 | DESCRIPTION |
150 | |
151 | |
152 | HISTORY |
153 | 01-AUG-96 bcarrol Created |
154 -----------------------------------------------------------------------*/
155 FUNCTION get_start_date RETURN DATE IS
156 BEGIN
157 return pg_start_date;
158 end get_start_date;
159
160
161 /* ---------------------------------------------------------------------
162 | PRIVATE PROCEDURE |
163 | set_min_col |
164 | |
165 | |
166 | DESCRIPTION |
167 | |
168 | |
169 | HISTORY |
170 | 01-AUG-96 bcarrol Created |
171 -----------------------------------------------------------------------*/
172 PROCEDURE set_min_col (pn_min_col IN NUMBER) IS
173 BEGIN
174 pg_min_col := pn_min_col;
175 END set_min_col;
176
177 /* ---------------------------------------------------------------------
178 | PRIVATE PROCEDURE |
179 | get_min_col |
180 | |
181 | |
182 | DESCRIPTION |
183 | |
184 | |
185 | HISTORY |
186 | 01-AUG-96 bcarrol Created |
187 -----------------------------------------------------------------------*/
188 FUNCTION get_min_col RETURN NUMBER IS
189 BEGIN
190 return pg_min_col;
191 end get_min_col;
192
193
194 /* ---------------------------------------------------------------------
195 | PRIVATE PROCEDURE |
196 | set_max_col |
197 | |
198 | |
199 | DESCRIPTION |
200 | |
201 | |
202 | HISTORY |
203 | 01-AUG-96 bcarrol Created |
204 -----------------------------------------------------------------------*/
205 PROCEDURE set_max_col (pn_max_col IN NUMBER) IS
206 BEGIN
207 pg_max_col := pn_max_col;
208 END set_max_col;
209
210 /* ---------------------------------------------------------------------
211 | PRIVATE PROCEDURE |
212 | get_max_col |
213 | |
214 | |
215 | DESCRIPTION |
216 | |
217 | |
218 | HISTORY |
219 | 01-AUG-96 bcarrol Created |
220 -----------------------------------------------------------------------*/
221 FUNCTION get_max_col RETURN NUMBER IS
222 BEGIN
223 return pg_max_col;
224 end get_max_col;
225
226 /* ---------------------------------------------------------------------
227 | PRIVATE PROCEDURE |
228 | get_max_col |
229 | |
230 | DESCRIPTION |
231 | |
232 | HISTORY |
233 | 10-NOV-97 wychan Created |
234 | 19-JUN-12 vnetan Bug 14164001 |
235 -----------------------------------------------------------------------*/
236 PROCEDURE set_constants(
237 pn_header_id IN NUMBER,
238 pn_period_set_name IN VARCHAR2,
239 pn_start_period IN VARCHAR2,
240 pn_start_date IN DATE,
241 pn_min_col IN NUMBER DEFAULT NULL,
242 pn_max_col IN NUMBER DEFAULT NULL
243 ) IS
244 p_max_col NUMBER;
245 p_min_col NUMBER;
246 p_period_start_date DATE;
247 p_aging_type VARCHAR2(10);
248 p_period_type VARCHAR2(15);
249 BEGIN
250 -- 14164001: Added debug
251 cep_standard.debug('>>CEFC_VIEW_CONST.set_constants');
252 cep_standard.debug('pn_header_id='||pn_header_id);
253 cep_standard.debug('pn_period_set_name='||pn_period_set_name);
254 cep_standard.debug('pn_start_period='||pn_start_period);
255 cep_standard.debug('pn_start_date='||pn_start_date);
256 cep_standard.debug('pn_min_col='||pn_min_col);
257 cep_standard.debug('pn_max_col='||pn_max_col);
258
259 pg_header_id := pn_header_id;
260 pg_start_date := pn_start_date;
261 pg_period_set_name := pn_period_set_name;
262 pg_start_period_name := pn_start_period;
263
267 pg_max_col := pn_max_col;
264 IF(pn_min_col IS NOT NULL AND pn_max_col IS NOT NULL)
265 THEN
266 pg_min_col := pn_min_col;
268 ELSE
269 SELECT aging_type
270 INTO p_aging_type
271 FROM ce_forecast_headers
272 WHERE forecast_header_id = pn_header_id;
273
274 IF(p_aging_type = 'D')
275 THEN
276 p_max_col := 3442447 - to_number(to_char(pn_start_date,'J')) + 1;
277 p_min_col := to_number(to_char(pn_start_date,'J')) - 2;
278
279 ELSE
280 SELECT start_date, period_type
281 INTO p_period_start_date, p_period_type
282 FROM gl_periods
283 WHERE period_set_name = pn_period_set_name
284 AND period_name = pn_start_period;
285
286 SELECT count(*)
287 INTO p_max_col
288 FROM gl_periods
289 WHERE period_set_name = pn_period_set_name
290 AND period_type = p_period_type
291 AND start_date >= p_period_start_date;
292
293 -- 14164001: Modified condition to <= from <
299 AND start_date <= p_period_start_date;
294 SELECT count(*)
295 INTO p_min_col
296 FROM gl_periods
297 WHERE period_set_name = pn_period_set_name
298 AND period_type = p_period_type
300
301 -- 14164001: Added debug
302 cep_standard.debug('p_max_col='||p_max_col);
303 cep_standard.debug('p_min_col='||p_min_col);
304 END IF;
305
306 pg_min_col := -p_min_col+1;
307 pg_max_col := p_max_col-1;
308 END IF;
309
310 -- 14164001: Added debug
311 cep_standard.debug('pg_header_id='||pg_header_id);
312 cep_standard.debug('pg_period_set_name='||pg_period_set_name);
313 cep_standard.debug('pg_start_date='||pg_start_date);
314 cep_standard.debug('pg_start_period_name='||pg_start_period_name);
315 cep_standard.debug('pg_min_col='||pg_min_col);
316 cep_standard.debug('pg_max_col='||pg_max_col);
317
318 cep_standard.debug('<<CEFC_VIEW_CONST.set_constants');
319 EXCEPTION
320 WHEN OTHERS THEN
321 -- 14164001: Added debug
322 cep_standard.debug('CEFC_VIEW_CONST.EXCEPTION');
323 cep_standard.debug(sqlerrm);
324 RAISE;
325 END set_constants;
326
327 END CEFC_VIEW_CONST;