40: l_api_updating boolean;
41: --
42: Begin
43: --
44: hr_utility.set_location('Entering:'||l_proc, 5);
45: --
46: l_api_updating := pqh_wfs_shd.api_updating
47: (p_worksheet_fund_src_id => p_worksheet_fund_src_id,
48: p_object_version_number => p_object_version_number);
68: end if;
69: --
70: end if;
71: --
72: hr_utility.set_location('Leaving:'||l_proc, 10);
73: --
74: End chk_worksheet_fund_src_id;
75: --
76: -- ----------------------------------------------------------------------------
112: where a.cost_allocation_keyflex_id = p_cost_allocation_keyflex_id;
113: --
114: Begin
115: --
116: hr_utility.set_location('Entering:'||l_proc,5);
117: --
118: l_api_updating := pqh_wfs_shd.api_updating
119: (p_worksheet_fund_src_id => p_worksheet_fund_src_id,
120: p_object_version_number => p_object_version_number);
135: --
136: -- raise error as FK does not relate to PK in pay_cost_allocation_keyflex
137: -- table.
138: --
139: hr_utility.set_message(8302,'PQH_INVALID_COST_KEYFLEX');
140: hr_utility.raise_error;
141: --
142: end if;
143: --
136: -- raise error as FK does not relate to PK in pay_cost_allocation_keyflex
137: -- table.
138: --
139: hr_utility.set_message(8302,'PQH_INVALID_COST_KEYFLEX');
140: hr_utility.raise_error;
141: --
142: end if;
143: --
144: close c1;
144: close c1;
145: --
146: end if;
147: --
148: hr_utility.set_location('Leaving:'||l_proc,10);
149: --
150: End chk_cost_allocation_keyflex_id;
151: --
152: -- ----------------------------------------------------------------------------
188: where a.worksheet_bdgt_elmnt_id = p_worksheet_bdgt_elmnt_id;
189: --
190: Begin
191: --
192: hr_utility.set_location('Entering:'||l_proc,5);
193: --
194: l_api_updating := pqh_wfs_shd.api_updating
195: (p_worksheet_fund_src_id => p_worksheet_fund_src_id,
196: p_object_version_number => p_object_version_number);
219: close c1;
220: --
221: end if;
222: --
223: hr_utility.set_location('Leaving:'||l_proc,10);
224: --
225: End chk_worksheet_bdgt_elmnt_id;
226: --
227: -- ----------------------------------------------------------------------------
254: ;
255:
256: Begin
257: --
258: hr_utility.set_location('Entering:'||l_proc, 5);
259: --
260: open csr_src;
261: fetch csr_src into l_dummy;
262: close csr_src;
262: close csr_src;
263:
264: if nvl(l_dummy ,'Y') = 'X' then
265: --
266: hr_utility.set_message(8302,'PQH_DUPLICATE_BUDGET_SRCS');
267: hr_utility.raise_error;
268: --
269: end if;
270: if p_cost_allocation_keyflex_id is not null then
263:
264: if nvl(l_dummy ,'Y') = 'X' then
265: --
266: hr_utility.set_message(8302,'PQH_DUPLICATE_BUDGET_SRCS');
267: hr_utility.raise_error;
268: --
269: end if;
270: if p_cost_allocation_keyflex_id is not null then
271: if p_project_id is not null
272: or p_award_id is not null
273: or p_task_id is not null
274: or p_expenditure_type is not null
275: or p_organization_id is not null then
276: hr_utility.set_message(8302,'PQH_BUDGET_SRC_GL_GMS');
277: hr_utility.raise_error;
278: end if;
279: else
280: if p_project_id is null
273: or p_task_id is not null
274: or p_expenditure_type is not null
275: or p_organization_id is not null then
276: hr_utility.set_message(8302,'PQH_BUDGET_SRC_GL_GMS');
277: hr_utility.raise_error;
278: end if;
279: else
280: if p_project_id is null
281: and p_award_id is null
281: and p_award_id is null
282: and p_task_id is null
283: and p_expenditure_type is null
284: and p_organization_id is null then
285: hr_utility.set_message(8302,'PQH_BUDGET_SRC_MANDATORY');
286: hr_utility.raise_error;
287: end if;
288: end if;
289: --
282: and p_task_id is null
283: and p_expenditure_type is null
284: and p_organization_id is null then
285: hr_utility.set_message(8302,'PQH_BUDGET_SRC_MANDATORY');
286: hr_utility.raise_error;
287: end if;
288: end if;
289: --
290: hr_utility.set_location('Leaving:'||l_proc,10);
286: hr_utility.raise_error;
287: end if;
288: end if;
289: --
290: hr_utility.set_location('Leaving:'||l_proc,10);
291: --
292: end chk_duplicate_src;
293: --
294: -- Additional check
301: l_api_updating boolean;
302: --
303: Begin
304: --
305: hr_utility.set_location('Entering:'||l_proc,5);
306: --
307: l_api_updating := pqh_wfs_shd.api_updating
308: (p_worksheet_fund_src_id => p_worksheet_fund_src_id,
309: p_object_version_number => p_object_version_number);
316: --
317: -- check if worksheet_budget_set_id value exists in pqh_worksheet_budget_sets table
318: --
319: If p_distribution_percentage < 0 then
320: hr_utility.set_message(8302,'PQH_INVALID_DISTRIB_PERCENT');
321: hr_utility.raise_error;
322: End if;
323: --
324: end if;
317: -- check if worksheet_budget_set_id value exists in pqh_worksheet_budget_sets table
318: --
319: If p_distribution_percentage < 0 then
320: hr_utility.set_message(8302,'PQH_INVALID_DISTRIB_PERCENT');
321: hr_utility.raise_error;
322: End if;
323: --
324: end if;
325: --
322: End if;
323: --
324: end if;
325: --
326: hr_utility.set_location('Leaving:'||l_proc,10);
327: --
328: End chk_distribution_percentage;
329: --
330: -- ----------------------------------------------------------------------------
334: --
335: l_proc varchar2(72) := g_package||'insert_validate';
336: --
337: Begin
338: hr_utility.set_location('Entering:'||l_proc, 5);
339: --
340: -- Call all supporting business operations
341: --
342: chk_worksheet_fund_src_id
368: p_organization_id => p_rec.organization_id,
369: p_cost_allocation_keyflex_id => p_rec.cost_allocation_keyflex_id);
370: --
371: --
372: hr_utility.set_location(' Leaving:'||l_proc, 10);
373: End insert_validate;
374: --
375: -- ----------------------------------------------------------------------------
376: -- |---------------------------< update_validate >----------------------------|
379: --
380: l_proc varchar2(72) := g_package||'update_validate';
381: --
382: Begin
383: hr_utility.set_location('Entering:'||l_proc, 5);
384: --
385: -- Call all supporting business operations
386: --
387: chk_worksheet_fund_src_id
414: p_cost_allocation_keyflex_id => p_rec.cost_allocation_keyflex_id);
415: --
416: --
417: --
418: hr_utility.set_location(' Leaving:'||l_proc, 10);
419: End update_validate;
420: --
421: -- ----------------------------------------------------------------------------
422: -- |---------------------------< delete_validate >----------------------------|
425: --
426: l_proc varchar2(72) := g_package||'delete_validate';
427: --
428: Begin
429: hr_utility.set_location('Entering:'||l_proc, 5);
430: --
431: -- Call all supporting business operations
432: --
433: hr_utility.set_location(' Leaving:'||l_proc, 10);
429: hr_utility.set_location('Entering:'||l_proc, 5);
430: --
431: -- Call all supporting business operations
432: --
433: hr_utility.set_location(' Leaving:'||l_proc, 10);
434: End delete_validate;
435: --
436: end pqh_wfs_bus;