[Home] [Help]
PACKAGE BODY: APPS.CEFC_VIEW_CONST
Source
1 PACKAGE BODY CEFC_VIEW_CONST AS
2 /* $Header: cefcvieb.pls 120.1 2002/11/12 21:21:35 bhchung 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 | |
231 | DESCRIPTION |
232 | |
233 | |
234 | HISTORY |
235 | 10-NOV-97 wychan Created |
236 -----------------------------------------------------------------------*/
237 PROCEDURE set_constants(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) IS
243 p_max_col NUMBER;
244 p_min_col NUMBER;
245 p_period_start_date DATE;
246 p_aging_type VARCHAR2(10);
247 p_period_type VARCHAR2(15);
248 BEGIN
249 pg_header_id := pn_header_id;
250 pg_start_date := pn_start_date;
251 pg_period_set_name := pn_period_set_name;
252 pg_start_period_name := pn_start_period;
253
254 IF(pn_min_col IS NOT NULL AND pn_max_col IS NOT NULL)THEN
255 pg_min_col := pn_min_col;
256 pg_max_col := pn_max_col;
257 ELSE
258 SELECT aging_type
259 INTO p_aging_type
260 FROM ce_forecast_headers
261 WHERE forecast_header_id = pn_header_id;
262
263 IF(p_aging_type = 'D')THEN
264 p_max_col := 3442447 - to_number(to_char(pn_start_date,'J')) + 1;
265 p_min_col := to_number(to_char(pn_start_date,'J')) - 2;
266
267 ELSE
268 SELECT start_date, period_type
269 INTO p_period_start_date, p_period_type
270 FROM gl_periods
271 WHERE period_set_name = pn_period_set_name AND
272 period_name = pn_start_period;
273
274 SELECT count(*)
275 INTO p_max_col
276 FROM gl_periods
277 WHERE period_set_name = pn_period_set_name AND
281 SELECT count(*)
278 period_type = p_period_type AND
279 start_date >= p_period_start_date;
280
282 INTO p_min_col
283 FROM gl_periods
284 WHERE period_set_name = pn_period_set_name AND
285 period_type = p_period_type AND
286 start_date < p_period_start_date;
287
288 END IF;
289
290 pg_min_col := -p_min_col+1;
291 pg_max_col := p_max_col-1;
292 END IF;
293
294 EXCEPTION
295 WHEN OTHERS THEN
296 RAISE;
297 END set_constants;
298
299
300
301 END CEFC_VIEW_CONST;