[Home] [Help]
PACKAGE BODY: APPS.IGW_AWARD_BUDGETS_PVT
Source
1 PACKAGE BODY Igw_Award_Budgets_Pvt AS
2 --$Header: igwvabtb.pls 120.9 2006/04/29 20:19:03 vmedikon ship $
3
4 PROCEDURE VALIDATE_EXPENDITURE_TYPE
5 (p_expenditure_type_category IN VARCHAR2
6 ,x_expenditure_type_category OUT NOCOPY VARCHAR2
7 ,x_expenditure_category_flag OUT NOCOPY VARCHAR2
8 --,x_budget_category_code OUT NOCOPY VARCHAR2
9 ,x_return_status OUT NOCOPY VARCHAR2
10 ,x_error_msg_code OUT NOCOPY VARCHAR2) IS
11
12
13
14 BEGIN
15
16 null;
17
18 EXCEPTION
19 WHEN OTHERS THEN
20 x_return_status:= Fnd_Api.G_RET_STS_UNEXP_ERROR;
21 Fnd_Msg_Pub.add_exc_msg(p_pkg_name => 'IGW_PROPOSALS_ALL_PVT',
22 p_procedure_name => 'VALIDATE_EXPENDITURE_TYPE',
23 p_error_text => SUBSTRB(SQLERRM,1,240));
24
25 RAISE;
26 END; --VALIDATE_EXPENDITURE_TYPE
27
28 --------------------------------------------------------------------------------------------
29
30
31 -- Above procedure has been modified by Debashis to apply the following constraint
32 -- For a project and task you cannot have lines with Expenditure Category and
33 -- with an expenditure type belonging to that category. If Task is blank then
34 -- for a project you cannot have lines with Expenditure Category and with an
35 -- expenditure type belonging to that category
36
37 PROCEDURE validate_expenditure_level(
38 p_proposal_id IN VARCHAR2
39 ,p_award_budget_id IN VARCHAR2
40 ,p_project_id IN NUMBER
41 ,p_task_id IN NUMBER
42 ,p_expenditure_type_cat IN VARCHAR2
43 ,p_expenditure_category_flag IN VARCHAR2
44 ,x_return_status OUT NOCOPY VARCHAR2
45 ,x_error_msg_code OUT NOCOPY VARCHAR2) IS
46
47 x_exists VARCHAR2(1);
48 l_personnel_attached_flag VARCHAR2(1);
49 l_parent_category VARCHAR2(50);
50
51 BEGIN
52 null;
53
54 EXCEPTION
55 when others then
56 x_return_status := 'U';
57 x_error_msg_code := SQLCODE||SQLERRM;
58 END validate_expenditure_level;
59 -----------------------------------------------------------------------------------------
60 PROCEDURE validate_resource_expenditure(p_project_id IN NUMBER
61 ,p_expenditure_type IN VARCHAR2
62 ,p_expenditure_category_flag IN VARCHAR2
63 ,x_time_phased_type_code OUT NOCOPY VARCHAR2
64 ,x_return_status OUT NOCOPY VARCHAR2
65 ,x_msg_data OUT NOCOPY VARCHAR2)
66 IS
67
68
69 l_resource_list_id NUMBER(15);
70 l_budget_entry_method_code VARCHAR2(30);
71 l_group_resource_type_id NUMBER(15);
72 l_categorization_code VARCHAR2(30); --bug 3523294
73
74 l_entry_level_code VARCHAR2(1);
75 l_time_phased_type_code VARCHAR2(1);
76 l_resource_class_code VARCHAR2(30);
77 l_resource_type_code VARCHAR2(30);
78 l_resource_list_member_id NUMBER;
79 l_resource_list_name VARCHAR2(60);
80
81 BEGIN
82 null;
83 EXCEPTION
84 WHEN others THEN
85 x_return_status := 'U';
86 x_msg_data := (SQLCODE||' '||SQLERRM);
87 fnd_msg_pub.add_exc_msg(G_package_name, 'VALIDATE_RESOURCE_EXPENDITURE');
88 END; --validate_resource_expenditure
89 ----------------------------------------------------------------------------------------
90 procedure get_boundary_dates(p_project_id in number
91 ,p_award_id in number
92 ,x_budget_start_date out NOCOPY date
93 ,x_budget_end_date out NOCOPY date) is
94 l_awd_start_date date;
95 l_awd_end_date date;
96 l_proj_start_date date;
97 l_proj_end_date date;
98 begin
99 null;
100 end;
101 -----------------------------------------------------------------------------------------
102 procedure get_min_max_period(p_time_phased_type_code in varchar2
103 ,p_start_date in date
104 ,p_end_date in date
105 ,x_min_period out NOCOPY varchar2
106 ,x_max_period out NOCOPY varchar2) is
107 begin
108 null;
109 end;
110
111 -----------------------------------------------------------------------------------------
112 PROCEDURE create_award_budget
113 (p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
114 ,p_commit IN VARCHAR2 := FND_API.G_FALSE
115 ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
116 ,p_proposal_id IN NUMBER
117 ,p_proposal_installment_id IN NUMBER := NULL
118 ,p_budget_period_id IN NUMBER
119 ,p_expenditure_type_cat IN VARCHAR2
120 ,p_expenditure_category_flag IN VARCHAR2
121 ,p_budget_amount IN NUMBER := 0
122 ,p_indirect_flag IN VARCHAR2
123 ,p_project_id IN NUMBER :=NULL
124 ,p_project_number IN VARCHAR2
125 ,p_task_id IN NUMBER :=NULL
126 ,p_task_number IN VARCHAR2
127 ,p_award_id IN NUMBER :=NULL
128 ,p_award_number IN VARCHAR2
129 ,p_period_name IN VARCHAR2
130 ,p_start_date IN DATE
131 ,p_end_date IN DATE
132 ,p_transferred_flag IN VARCHAR2
133 ,x_award_budget_id OUT NOCOPY NUMBER
134 ,x_rowid OUT NOCOPY ROWID
135 ,x_return_status OUT NOCOPY VARCHAR2
136 ,x_msg_count OUT NOCOPY NUMBER
137 ,x_msg_data OUT NOCOPY VARCHAR2) IS
138
139
140 l_api_name VARCHAR2(30) :='CREATE_AWARD_BUDGET';
141 l_expenditure_type VARCHAR2(80) :=p_expenditure_type_cat;
142 l_expenditure_category_flag VARCHAR2(1) :=p_expenditure_category_flag;
143 l_proposal_id NUMBER :=p_proposal_id;
144 l_budget_period_id NUMBER :=p_budget_period_id;
145 l_project_id NUMBER :=p_project_id;
146 l_project_number VARCHAR2(25);
147 l_task_id NUMBER :=p_task_id;
148 l_award_id NUMBER :=p_award_id;
149 l_start_date DATE :=p_start_date;
150 l_end_date DATE :=p_end_date;
151 l_budget_start_date DATE;
152 l_budget_end_date DATE;
153 l_period_name VARCHAR2(30);
154 l_time_phased_type_code VARCHAR2(1);
155 l_version_id NUMBER;
156 l_entry_level_code VARCHAR2(1);
157 l_budget_entry_method VARCHAR2(80);
158 l_apply_setup_inflation VARCHAR2(1);
159 l_award_budget_id NUMBER;
160 l_return_status VARCHAR2(1);
161 l_msg_count NUMBER;
162 l_data VARCHAR2(250);
163 l_msg_index_out NUMBER;
164 l_awd_start_date DATE;
165 l_awd_end_date DATE;
166 l_proj_start_date DATE;
167 l_proj_end_date DATE;
168 l_min_period VARCHAR2(20);
169 l_max_period VARCHAR2(20);
170
171 BEGIN
172 null;
173
174 END; --CREATE AWARD BUDGET
175
176
177 ------------------------------------------------------------------------------------------
178 PROCEDURE update_award_budget
179 (p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
180 ,p_commit IN VARCHAR2 := FND_API.G_FALSE
181 ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
182 ,p_award_budget_id IN NUMBER
183 ,p_proposal_id IN NUMBER := NULL
184 ,p_proposal_installment_id IN NUMBER := NULL
185 ,p_budget_period_id IN NUMBER := NULL
186 ,p_expenditure_type_cat IN VARCHAR2
187 ,p_expenditure_category_flag IN VARCHAR2
188 ,p_budget_amount IN NUMBER := 0
189 ,p_indirect_flag IN VARCHAR2
190 ,p_project_id IN NUMBER
191 ,p_project_number IN VARCHAR2
192 ,p_task_id IN NUMBER
193 ,p_task_number IN VARCHAR2
194 ,p_award_id IN NUMBER
195 ,p_award_number IN VARCHAR2
196 ,p_period_name IN VARCHAR2
197 ,p_start_date IN DATE
198 ,p_end_date IN DATE
199 ,p_transferred_flag IN VARCHAR2
200 ,p_record_version_number IN NUMBER
201 ,p_rowid IN ROWID
202 ,x_return_status OUT NOCOPY VARCHAR2
203 ,x_msg_count OUT NOCOPY NUMBER
204 ,x_msg_data OUT NOCOPY VARCHAR2) IS
205
206 l_api_name VARCHAR2(30) :='UPDATE_AWARD_BUDGET';
207 l_expenditure_type VARCHAR2(80) :=p_expenditure_type_cat; -- bug 4518298
208 l_expenditure_category_flag VARCHAR2(1) :=p_expenditure_category_flag;
209 l_proposal_id NUMBER :=p_proposal_id;
210 l_budget_period_id NUMBER :=p_budget_period_id;
211 l_project_id NUMBER :=p_project_id;
212 l_project_number VARCHAR2(25);
213 l_task_id NUMBER :=p_task_id;
214 l_award_id NUMBER :=p_award_id;
215 l_start_date DATE :=p_start_date;
216 l_end_date DATE :=p_end_date;
217 l_budget_start_date DATE;
218 l_budget_end_date DATE;
219 l_version_id NUMBER;
220 l_period_name VARCHAR2(30);
221 l_time_phased_type_code VARCHAR2(1);
222 l_entry_level_code VARCHAR2(1);
223 l_budget_entry_method VARCHAR2(80);
224 l_return_status VARCHAR2(1);
225 l_msg_count NUMBER;
226 l_data VARCHAR2(250);
227 l_msg_index_out NUMBER;
228 l_dummy VARCHAR2(1);
229 l_awd_start_date DATE;
230 l_awd_end_date DATE;
231 l_proj_start_date DATE;
232 l_proj_end_date DATE;
233 l_min_period VARCHAR2(20);
234 l_max_period VARCHAR2(20);
235
236 BEGIN
237 null;
238
239 END; --UPDATE BUDGET LINE
240
241 -------------------------------------------------------------------------------------------
242
243 PROCEDURE delete_award_budget
244 (p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
245 ,p_commit IN VARCHAR2 := FND_API.G_FALSE
246 ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
247 ,p_award_budget_id IN NUMBER
248 ,p_record_version_number IN NUMBER
249 ,p_rowid IN ROWID
250 ,x_return_status OUT NOCOPY VARCHAR2
251 ,x_msg_count OUT NOCOPY NUMBER
252 ,x_msg_data OUT NOCOPY VARCHAR2) IS
253
254 l_api_name VARCHAR2(30) :='DELETE_AWARD_BUDGET';
255 l_proposal_installment_id NUMBER(15);
256 l_return_status VARCHAR2(1);
257 l_msg_count NUMBER;
258 l_data VARCHAR2(250);
259 l_msg_index_out NUMBER;
260 l_dummy VARCHAR2(1);
261 l_count NUMBER(10);
262
263
264
265 BEGIN
266 null;
267
268 END; --DELETE AWARD BUDGET
269 ----------------------------------------------------------------------------------
270
271 procedure apply_project_award
272 (p_award_budget_id IN NUMBER
273 ,p_proposal_installment_id IN NUMBER
274 ,x_return_status OUT NOCOPY VARCHAR2
275 ,x_msg_count OUT NOCOPY NUMBER
276 ,x_msg_data OUT NOCOPY VARCHAR2) is
277
278 cursor c_award_budget is
279 select project_id
280 , task_id
281 , period_name
282 from igw_award_budgets
283 where award_budget_id = p_award_budget_id;
284
285 cursor c_budget_lines is
286 select *
287 from igw_award_budgets
288 where proposal_installment_id = p_proposal_installment_id
289 and award_budget_id <> p_award_budget_id;
290
291
292 l_project_id NUMBER(15);
293 l_task_id NUMBER(15);
294 l_award_id NUMBER(15);
295 l_msg_count NUMBER(15);
296 l_msg_index_out NUMBER(15);
297 l_period_name VARCHAR2(20);
298 l_period_name_mod VARCHAR2(20);
299 l_time_phased_type_code VARCHAR2(30);
300 l_entry_level_code VARCHAR2(30);
301 l_boundary_start_date DATE;
302 l_boundary_end_date DATE;
303 l_period_start_date DATE;
304 l_period_end_date DATE;
305
306 begin
307
308 null;
309
310 end;
311
312 -----------------------------
313 procedure get_time_phased_type_code
314 (p_proposal_installment_id IN NUMBER
315 ,x_time_phased_type_code OUT NOCOPY VARCHAR2
316 ,x_return_status OUT NOCOPY VARCHAR2
317 ,x_msg_count OUT NOCOPY NUMBER
318 ,x_msg_data OUT NOCOPY VARCHAR2) is
319
320 l_project_id NUMBER;
321 l_time_phased_type_code VARCHAR2(30);
322 l_msg_count NUMBER(15);
323 l_msg_index_out NUMBER(15);
324
325 BEGIN
326 null;
327 END;
328
329 ---------------------------------------------------------------------------------------------------
330 FUNCTION get_current_budget(p_award_id IN NUMBER
331 ,p_project_id IN NUMBER
332 ,p_task_id IN NUMBER) return NUMBER IS
333
334 current_budget number;
335 begin
336
337 null;
338 end;
339 ----------------------------------------------------------------------------------------------------------
340 FUNCTION get_additional_budget(p_proposal_installment_id IN NUMBER
341 ,p_project_id IN NUMBER
342 ,p_task_id IN NUMBER) return NUMBER IS
343
344 additional_budget number;
345 begin
346 null;
347 end;
348
349 -----------------------------------------------------------------------------------------------
350 FUNCTION get_award_created_flag(p_proposal_award_id IN NUMBER) return VARCHAR2 IS
351
352 award_created_flag VARCHAR2(1) := 'N';
353 l_transfer_as VARCHAR2(30);
354 l_transferred_flag VARCHAR2(30);
355
356
357 begin
358 null;
359 end;
360 --------------------------------------------------------------------------------------------------
361 FUNCTION get_installment_created_flag(p_proposal_award_id IN NUMBER) return VARCHAR2 IS
362
363 installment_created_flag VARCHAR2(1) := 'N';
364 l_transfer_as VARCHAR2(30);
365 l_transferred_flag VARCHAR2(30);
366
367
368 begin
369 null;
370 end;
371 --------------------------------------------------------------------------------------------
372 FUNCTION get_award_budget_created_flag(p_proposal_installment_id IN NUMBER) return VARCHAR2 IS
373
374 lines number;
378 begin
375 lines_not_transferred number;
376 award_budget_created_flag varchar2(1) := 'N';
377
379 null;
380 end;
381 -------------------------------------------------------------------------------------------------------
382 FUNCTION get_award_budget_creation_date(p_proposal_installment_id IN NUMBER) return DATE IS
383
384 award_budget_creation_date date := null;
385
386 begin
387 null;
388 end;
389 ----------------------------------------------------------------------------------------------------------
390 FUNCTION get_award_number(p_proposal_award_id IN NUMBER) return VARCHAR2 IS
391
392 v_award_number VARCHAR2(15);
393 award_num_code VARCHAR2(25);
394
395 begin
396 null;
397 end;
398
399 END; --end package