[Home] [Help]
85: p_currency_code IN VARCHAR2,
86: p_start_date IN DATE,
87: p_end_date IN DATE,
88: p_compound_annually IN VARCHAR2,
89: p_compound_factor IN NUMBER := FND_API.G_MISS_NUM,
90: p_increment_type IN VARCHAR2,
91: p_increment_by IN NUMBER
92: );
93:
121: p_constraint_set_name IN VARCHAR2,
122: p_constraint_threshold IN NUMBER,
123: p_constraint_id IN NUMBER,
124: p_constraint_name IN VARCHAR2,
125: p_position_line_id IN NUMBER := FND_API.G_MISS_NUM,
126: p_position_id IN NUMBER := FND_API.G_MISS_NUM,
127: p_position_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
128: p_budget_year_id IN NUMBER,
129: p_budget_year_name IN VARCHAR2,
122: p_constraint_threshold IN NUMBER,
123: p_constraint_id IN NUMBER,
124: p_constraint_name IN VARCHAR2,
125: p_position_line_id IN NUMBER := FND_API.G_MISS_NUM,
126: p_position_id IN NUMBER := FND_API.G_MISS_NUM,
127: p_position_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
128: p_budget_year_id IN NUMBER,
129: p_budget_year_name IN VARCHAR2,
130: p_year_start_date IN DATE,
123: p_constraint_id IN NUMBER,
124: p_constraint_name IN VARCHAR2,
125: p_position_line_id IN NUMBER := FND_API.G_MISS_NUM,
126: p_position_id IN NUMBER := FND_API.G_MISS_NUM,
127: p_position_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
128: p_budget_year_id IN NUMBER,
129: p_budget_year_name IN VARCHAR2,
130: p_year_start_date IN DATE,
131: p_year_end_date IN DATE,
144: p_constraint_set_name IN VARCHAR2,
145: p_constraint_threshold IN NUMBER,
146: p_constraint_id IN NUMBER,
147: p_constraint_name IN VARCHAR2,
148: p_position_line_id IN NUMBER := FND_API.G_MISS_NUM,
149: p_position_id IN NUMBER := FND_API.G_MISS_NUM,
150: p_position_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
151: p_budget_year_id IN NUMBER,
152: p_budget_year_name IN VARCHAR2,
145: p_constraint_threshold IN NUMBER,
146: p_constraint_id IN NUMBER,
147: p_constraint_name IN VARCHAR2,
148: p_position_line_id IN NUMBER := FND_API.G_MISS_NUM,
149: p_position_id IN NUMBER := FND_API.G_MISS_NUM,
150: p_position_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
151: p_budget_year_id IN NUMBER,
152: p_budget_year_name IN VARCHAR2,
153: p_year_start_date IN DATE,
146: p_constraint_id IN NUMBER,
147: p_constraint_name IN VARCHAR2,
148: p_position_line_id IN NUMBER := FND_API.G_MISS_NUM,
149: p_position_id IN NUMBER := FND_API.G_MISS_NUM,
150: p_position_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
151: p_budget_year_id IN NUMBER,
152: p_budget_year_name IN VARCHAR2,
153: p_year_start_date IN DATE,
154: p_year_end_date IN DATE,
171: p_constraint_set_name IN VARCHAR2,
172: p_constraint_threshold IN NUMBER,
173: p_constraint_id IN NUMBER,
174: p_constraint_name IN VARCHAR2,
175: p_position_line_id IN NUMBER := FND_API.G_MISS_NUM,
176: p_position_id IN NUMBER := FND_API.G_MISS_NUM,
177: p_position_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
178: p_budget_year_id IN NUMBER,
179: p_budget_year_name IN VARCHAR2,
172: p_constraint_threshold IN NUMBER,
173: p_constraint_id IN NUMBER,
174: p_constraint_name IN VARCHAR2,
175: p_position_line_id IN NUMBER := FND_API.G_MISS_NUM,
176: p_position_id IN NUMBER := FND_API.G_MISS_NUM,
177: p_position_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
178: p_budget_year_id IN NUMBER,
179: p_budget_year_name IN VARCHAR2,
180: p_currency_code IN VARCHAR2,
173: p_constraint_id IN NUMBER,
174: p_constraint_name IN VARCHAR2,
175: p_position_line_id IN NUMBER := FND_API.G_MISS_NUM,
176: p_position_id IN NUMBER := FND_API.G_MISS_NUM,
177: p_position_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
178: p_budget_year_id IN NUMBER,
179: p_budget_year_name IN VARCHAR2,
180: p_currency_code IN VARCHAR2,
181: p_severity_level IN NUMBER,
217: /* ----------------------------------------------------------------------- */
218:
219: PROCEDURE Apply_Element_Parameters
220: ( p_api_version IN NUMBER,
221: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE,
222: p_return_status OUT NOCOPY VARCHAR2,
223: p_worksheet_id IN NUMBER,
224: p_global_worksheet IN VARCHAR2,
225: p_budget_group_id IN NUMBER,
291: BEGIN
292:
293: -- Standard call to check for call compatibility
294:
295: if not FND_API.Compatible_API_Call (l_api_version,
296: p_api_version,
297: l_api_name,
298: G_PKG_NAME)
299: then
296: p_api_version,
297: l_api_name,
298: G_PKG_NAME)
299: then
300: raise FND_API.G_EXC_UNEXPECTED_ERROR;
301: end if;
302:
303: if ((p_global_worksheet = FND_API.G_MISS_CHAR) or
304: (p_budget_group_id = FND_API.G_MISS_NUM) or
299: then
300: raise FND_API.G_EXC_UNEXPECTED_ERROR;
301: end if;
302:
303: if ((p_global_worksheet = FND_API.G_MISS_CHAR) or
304: (p_budget_group_id = FND_API.G_MISS_NUM) or
305: (p_data_extract_id = FND_API.G_MISS_NUM) or
306: (p_budget_calendar_id = FND_API.G_MISS_NUM) or
307: (p_parameter_set_id = FND_API.G_MISS_NUM)) then
300: raise FND_API.G_EXC_UNEXPECTED_ERROR;
301: end if;
302:
303: if ((p_global_worksheet = FND_API.G_MISS_CHAR) or
304: (p_budget_group_id = FND_API.G_MISS_NUM) or
305: (p_data_extract_id = FND_API.G_MISS_NUM) or
306: (p_budget_calendar_id = FND_API.G_MISS_NUM) or
307: (p_parameter_set_id = FND_API.G_MISS_NUM)) then
308: begin
301: end if;
302:
303: if ((p_global_worksheet = FND_API.G_MISS_CHAR) or
304: (p_budget_group_id = FND_API.G_MISS_NUM) or
305: (p_data_extract_id = FND_API.G_MISS_NUM) or
306: (p_budget_calendar_id = FND_API.G_MISS_NUM) or
307: (p_parameter_set_id = FND_API.G_MISS_NUM)) then
308: begin
309:
302:
303: if ((p_global_worksheet = FND_API.G_MISS_CHAR) or
304: (p_budget_group_id = FND_API.G_MISS_NUM) or
305: (p_data_extract_id = FND_API.G_MISS_NUM) or
306: (p_budget_calendar_id = FND_API.G_MISS_NUM) or
307: (p_parameter_set_id = FND_API.G_MISS_NUM)) then
308: begin
309:
310: for c_WS_Rec in c_WS loop
303: if ((p_global_worksheet = FND_API.G_MISS_CHAR) or
304: (p_budget_group_id = FND_API.G_MISS_NUM) or
305: (p_data_extract_id = FND_API.G_MISS_NUM) or
306: (p_budget_calendar_id = FND_API.G_MISS_NUM) or
307: (p_parameter_set_id = FND_API.G_MISS_NUM)) then
308: begin
309:
310: for c_WS_Rec in c_WS loop
311: l_global_worksheet := c_WS_Rec.global_worksheet_flag;
318: end;
319: end if;
320:
321: if ((l_global_worksheet is null) or (l_global_worksheet = 'N')) then
322: l_global_worksheet := FND_API.G_FALSE;
323: else
324: l_global_worksheet := FND_API.G_TRUE;
325: end if;
326:
320:
321: if ((l_global_worksheet is null) or (l_global_worksheet = 'N')) then
322: l_global_worksheet := FND_API.G_FALSE;
323: else
324: l_global_worksheet := FND_API.G_TRUE;
325: end if;
326:
327: if p_global_worksheet <> FND_API.G_MISS_CHAR then
328: l_global_worksheet := p_global_worksheet;
323: else
324: l_global_worksheet := FND_API.G_TRUE;
325: end if;
326:
327: if p_global_worksheet <> FND_API.G_MISS_CHAR then
328: l_global_worksheet := p_global_worksheet;
329: end if;
330:
331: if p_budget_group_id <> FND_API.G_MISS_NUM then
327: if p_global_worksheet <> FND_API.G_MISS_CHAR then
328: l_global_worksheet := p_global_worksheet;
329: end if;
330:
331: if p_budget_group_id <> FND_API.G_MISS_NUM then
332: l_budget_group_id := p_budget_group_id;
333: end if;
334:
335: if p_data_extract_id <> FND_API.G_MISS_NUM then
331: if p_budget_group_id <> FND_API.G_MISS_NUM then
332: l_budget_group_id := p_budget_group_id;
333: end if;
334:
335: if p_data_extract_id <> FND_API.G_MISS_NUM then
336: l_data_extract_id := p_data_extract_id;
337: end if;
338:
339: if p_budget_calendar_id <> FND_API.G_MISS_NUM then
335: if p_data_extract_id <> FND_API.G_MISS_NUM then
336: l_data_extract_id := p_data_extract_id;
337: end if;
338:
339: if p_budget_calendar_id <> FND_API.G_MISS_NUM then
340: l_budget_calendar_id := p_budget_calendar_id;
341: end if;
342:
343: if p_parameter_set_id <> FND_API.G_MISS_NUM then
339: if p_budget_calendar_id <> FND_API.G_MISS_NUM then
340: l_budget_calendar_id := p_budget_calendar_id;
341: end if;
342:
343: if p_parameter_set_id <> FND_API.G_MISS_NUM then
344: l_parameter_set_id := p_parameter_set_id;
345: end if;
346:
347: if ((p_business_group_id = FND_API.G_MISS_NUM) or
343: if p_parameter_set_id <> FND_API.G_MISS_NUM then
344: l_parameter_set_id := p_parameter_set_id;
345: end if;
346:
347: if ((p_business_group_id = FND_API.G_MISS_NUM) or
348: (p_func_currency = FND_API.G_MISS_CHAR)) then
349: begin
350:
351: for c_BG_Rec in c_BG loop
344: l_parameter_set_id := p_parameter_set_id;
345: end if;
346:
347: if ((p_business_group_id = FND_API.G_MISS_NUM) or
348: (p_func_currency = FND_API.G_MISS_CHAR)) then
349: begin
350:
351: for c_BG_Rec in c_BG loop
352: l_business_group_id := c_BG_Rec.business_group_id;
355:
356: end;
357: end if;
358:
359: if p_business_group_id <> FND_API.G_MISS_NUM then
360: l_business_group_id := p_business_group_id;
361: end if;
362:
363: if p_func_currency <> FND_API.G_MISS_CHAR then
359: if p_business_group_id <> FND_API.G_MISS_NUM then
360: l_business_group_id := p_business_group_id;
361: end if;
362:
363: if p_func_currency <> FND_API.G_MISS_CHAR then
364: l_func_currency := p_func_currency;
365: end if;
366:
367: if l_budget_calendar_id <> nvl(PSB_WS_ACCT1.g_budget_calendar_id, FND_API.G_MISS_NUM) then
363: if p_func_currency <> FND_API.G_MISS_CHAR then
364: l_func_currency := p_func_currency;
365: end if;
366:
367: if l_budget_calendar_id <> nvl(PSB_WS_ACCT1.g_budget_calendar_id, FND_API.G_MISS_NUM) then
368: begin
369:
370: PSB_WS_ACCT1.Cache_Budget_Calendar
371: (p_return_status => l_return_status,
370: PSB_WS_ACCT1.Cache_Budget_Calendar
371: (p_return_status => l_return_status,
372: p_budget_calendar_id => l_budget_calendar_id);
373:
374: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
375: raise FND_API.G_EXC_ERROR;
376: end if;
377:
378: end;
371: (p_return_status => l_return_status,
372: p_budget_calendar_id => l_budget_calendar_id);
373:
374: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
375: raise FND_API.G_EXC_ERROR;
376: end if;
377:
378: end;
379: end if;
391: begin
392:
393: if ((c_Parameter_Rec.parameter_compound_annually is null) or
394: (c_Parameter_Rec.parameter_compound_annually = 'N')) then
395: l_compound_annually := FND_API.G_FALSE;
396: else
397: l_compound_annually := FND_API.G_TRUE;
398: l_compound_factor := greatest(ceil(months_between(PSB_WS_ACCT1.g_budget_years(l_year_index).start_date,
399: c_Parameter_Rec.effective_start_date) / 12), 0) + 1;
393: if ((c_Parameter_Rec.parameter_compound_annually is null) or
394: (c_Parameter_Rec.parameter_compound_annually = 'N')) then
395: l_compound_annually := FND_API.G_FALSE;
396: else
397: l_compound_annually := FND_API.G_TRUE;
398: l_compound_factor := greatest(ceil(months_between(PSB_WS_ACCT1.g_budget_years(l_year_index).start_date,
399: c_Parameter_Rec.effective_start_date) / 12), 0) + 1;
400: end if;
401:
410: nvl(c_Parameter_Rec.effective_end_date, PSB_WS_ACCT1.g_budget_years(l_year_index).end_date)),
411: p_compound_annually => l_compound_annually,
412: p_compound_factor => l_compound_factor);
413:
414: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
415: raise FND_API.G_EXC_ERROR;
416: end if;
417:
418: end;
411: p_compound_annually => l_compound_annually,
412: p_compound_factor => l_compound_factor);
413:
414: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
415: raise FND_API.G_EXC_ERROR;
416: end if;
417:
418: end;
419: else
418: end;
419: else
420: begin
421:
422: if FND_API.to_Boolean(l_global_worksheet) then
423: begin
424:
425: l_compound_factor := greatest(ceil(months_between(PSB_WS_ACCT1.g_budget_years(l_year_index).start_date,
426: c_Parameter_Rec.effective_start_date) / 12), 0) + 1;
437: p_end_date => least(PSB_WS_ACCT1.g_budget_years(l_year_index).end_date,
438: nvl(c_Parameter_Rec.effective_end_date, PSB_WS_ACCT1.g_budget_years(l_year_index).end_date)),
439: p_compound_factor => l_compound_factor);
440:
441: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
442: raise FND_API.G_EXC_ERROR;
443: end if;
444:
445: end;
438: nvl(c_Parameter_Rec.effective_end_date, PSB_WS_ACCT1.g_budget_years(l_year_index).end_date)),
439: p_compound_factor => l_compound_factor);
440:
441: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
442: raise FND_API.G_EXC_ERROR;
443: end if;
444:
445: end;
446: end if;
457:
458:
459: -- Initialize API return status to success
460:
461: p_return_status := FND_API.G_RET_STS_SUCCESS;
462:
463:
464: EXCEPTION
465:
462:
463:
464: EXCEPTION
465:
466: when FND_API.G_EXC_ERROR then
467: p_return_status := FND_API.G_RET_STS_ERROR;
468:
469: when FND_API.G_EXC_UNEXPECTED_ERROR then
470: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
463:
464: EXCEPTION
465:
466: when FND_API.G_EXC_ERROR then
467: p_return_status := FND_API.G_RET_STS_ERROR;
468:
469: when FND_API.G_EXC_UNEXPECTED_ERROR then
470: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
471:
465:
466: when FND_API.G_EXC_ERROR then
467: p_return_status := FND_API.G_RET_STS_ERROR;
468:
469: when FND_API.G_EXC_UNEXPECTED_ERROR then
470: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
471:
472: when OTHERS then
473: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
466: when FND_API.G_EXC_ERROR then
467: p_return_status := FND_API.G_RET_STS_ERROR;
468:
469: when FND_API.G_EXC_UNEXPECTED_ERROR then
470: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
471:
472: when OTHERS then
473: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
474:
469: when FND_API.G_EXC_UNEXPECTED_ERROR then
470: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
471:
472: when OTHERS then
473: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
474:
475: if FND_MSG_PUB.Check_Msg_Level
476: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
477: then
486: /* Bug No 2482305 Start */
487:
488: PROCEDURE Revise_Element_Projections
489: ( p_api_version IN NUMBER,
490: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE,
491: p_return_status OUT NOCOPY VARCHAR2,
492: p_worksheet_id IN NUMBER,
493: p_parameter_id IN NUMBER,
494: p_recalculate_flag IN BOOLEAN
586: SAVEPOINT Revise_Element_Projections_Pvt;
587:
588: -- Standard call to check for call compatibility
589:
590: if not FND_API.Compatible_API_Call (l_api_version,
591: p_api_version,
592: l_api_name,
593: G_PKG_NAME)
594: then
591: p_api_version,
592: l_api_name,
593: G_PKG_NAME)
594: then
595: raise FND_API.G_EXC_UNEXPECTED_ERROR;
596: end if;
597:
598: for c_WS_Rec in c_WS loop
599: l_global_worksheet := c_WS_Rec.global_worksheet_flag;
611: g_flex_code := l_flex_code ; -- Bug#4675858
612: end loop;
613:
614: if ((l_global_worksheet is null) or (l_global_worksheet = 'N')) then
615: l_global_worksheet := FND_API.G_FALSE;
616: else
617: l_global_worksheet := FND_API.G_TRUE;
618: end if;
619:
613:
614: if ((l_global_worksheet is null) or (l_global_worksheet = 'N')) then
615: l_global_worksheet := FND_API.G_FALSE;
616: else
617: l_global_worksheet := FND_API.G_TRUE;
618: end if;
619:
620: if l_budget_calendar_id <> nvl(PSB_WS_ACCT1.g_budget_calendar_id, FND_API.G_MISS_NUM) then
621: begin
616: else
617: l_global_worksheet := FND_API.G_TRUE;
618: end if;
619:
620: if l_budget_calendar_id <> nvl(PSB_WS_ACCT1.g_budget_calendar_id, FND_API.G_MISS_NUM) then
621: begin
622:
623: PSB_WS_ACCT1.Cache_Budget_Calendar
624: (p_return_status => l_return_status,
623: PSB_WS_ACCT1.Cache_Budget_Calendar
624: (p_return_status => l_return_status,
625: p_budget_calendar_id => l_budget_calendar_id);
626:
627: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
628: raise FND_API.G_EXC_ERROR;
629: end if;
630:
631: end;
624: (p_return_status => l_return_status,
625: p_budget_calendar_id => l_budget_calendar_id);
626:
627: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
628: raise FND_API.G_EXC_ERROR;
629: end if;
630:
631: end;
632: end if;
641: l_autoinc_rule := c_Parameter_Rec.parameter_autoinc_rule;
642: end loop;
643:
644: if ((l_compound_annually is null) or (l_compound_annually = 'N')) then
645: l_compound_annually := FND_API.G_FALSE;
646: else
647: l_compound_annually := FND_API.G_TRUE;
648: end if;
649:
643:
644: if ((l_compound_annually is null) or (l_compound_annually = 'N')) then
645: l_compound_annually := FND_API.G_FALSE;
646: else
647: l_compound_annually := FND_API.G_TRUE;
648: end if;
649:
650: if ((l_autoinc_rule is null) or (l_autoinc_rule = 'N')) then
651: l_autoinc_rule := FND_API.G_FALSE;
647: l_compound_annually := FND_API.G_TRUE;
648: end if;
649:
650: if ((l_autoinc_rule is null) or (l_autoinc_rule = 'N')) then
651: l_autoinc_rule := FND_API.G_FALSE;
652: else
653: l_autoinc_rule := FND_API.G_TRUE;
654: end if;
655:
649:
650: if ((l_autoinc_rule is null) or (l_autoinc_rule = 'N')) then
651: l_autoinc_rule := FND_API.G_FALSE;
652: else
653: l_autoinc_rule := FND_API.G_TRUE;
654: end if;
655:
656: for l_year_index in 1..PSB_WS_ACCT1.g_num_budget_years loop
657:
668: ((l_effective_start_date < l_year_start_date) and
669: (l_effective_end_date > l_year_end_date)))) then
670: begin
671:
672: if NOT FND_API.to_Boolean(l_autoinc_rule) then
673: begin
674:
675: if FND_API.to_Boolean(l_compound_annually) then
676: l_compound_factor := greatest(ceil(months_between(l_year_start_date, l_effective_start_date) / 12), 0) + 1;
671:
672: if NOT FND_API.to_Boolean(l_autoinc_rule) then
673: begin
674:
675: if FND_API.to_Boolean(l_compound_annually) then
676: l_compound_factor := greatest(ceil(months_between(l_year_start_date, l_effective_start_date) / 12), 0) + 1;
677: end if;
678:
679: Process_ElemParam
685: p_end_date => least(l_year_end_date, nvl(l_effective_end_date, l_year_end_date)),
686: p_compound_annually => l_compound_annually,
687: p_compound_factor => l_compound_factor);
688:
689: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
690: raise FND_API.G_EXC_ERROR;
691: end if;
692:
693: end;
686: p_compound_annually => l_compound_annually,
687: p_compound_factor => l_compound_factor);
688:
689: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
690: raise FND_API.G_EXC_ERROR;
691: end if;
692:
693: end;
694: else
693: end;
694: else
695: begin
696:
697: if FND_API.to_Boolean(l_global_worksheet) then
698: begin
699:
700: l_compound_factor := greatest(ceil(months_between(l_year_start_date, l_effective_start_date) / 12), 0) + 1;
701:
709: p_start_date => greatest(l_year_start_date, l_effective_start_date),
710: p_end_date => least(l_year_end_date, nvl(l_effective_end_date, l_year_end_date)),
711: p_compound_factor => l_compound_factor);
712:
713: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
714: raise FND_API.G_EXC_ERROR;
715: end if;
716: end;
717: end if;
710: p_end_date => least(l_year_end_date, nvl(l_effective_end_date, l_year_end_date)),
711: p_compound_factor => l_compound_factor);
712:
713: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
714: raise FND_API.G_EXC_ERROR;
715: end if;
716: end;
717: end if;
718:
745: p_position_name => c_Positions_Rec.name,
746: p_start_date => PSB_WS_ACCT1.g_startdate_cy,
747: p_end_date => PSB_WS_ACCT1.g_end_est_date);
748:
749: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
750: raise FND_API.G_EXC_ERROR;
751: end if;
752:
753: PSB_WS_POS1.Create_Position_Lines
746: p_start_date => PSB_WS_ACCT1.g_startdate_cy,
747: p_end_date => PSB_WS_ACCT1.g_end_est_date);
748:
749: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
750: raise FND_API.G_EXC_ERROR;
751: end if;
752:
753: PSB_WS_POS1.Create_Position_Lines
754: (p_api_version => 1.0,
757: p_worksheet_id => p_worksheet_id,
758: p_position_id => c_Positions_Rec.position_id,
759: p_budget_group_id => PSB_WS_POS1.g_salary_budget_group_id);
760:
761: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
762: raise FND_API.G_EXC_ERROR;
763: end if;
764:
765: PSB_WS_POS2.Calculate_Position_Cost
758: p_position_id => c_Positions_Rec.position_id,
759: p_budget_group_id => PSB_WS_POS1.g_salary_budget_group_id);
760:
761: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
762: raise FND_API.G_EXC_ERROR;
763: end if;
764:
765: PSB_WS_POS2.Calculate_Position_Cost
766: (p_api_version => 1.0,
767: p_return_status => l_return_status,
768: p_worksheet_id => p_worksheet_id,
769: p_position_line_id => l_position_line_id);
770:
771: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
772: raise FND_API.G_EXC_ERROR;
773: end if;
774:
775: end;
768: p_worksheet_id => p_worksheet_id,
769: p_position_line_id => l_position_line_id);
770:
771: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
772: raise FND_API.G_EXC_ERROR;
773: end if;
774:
775: end;
776: end if;
787: end loop;
788:
789: -- Initialize API return status to success
790:
791: p_return_status := FND_API.G_RET_STS_SUCCESS;
792:
793:
794: EXCEPTION
795:
792:
793:
794: EXCEPTION
795:
796: when FND_API.G_EXC_ERROR then
797: rollback to Revise_Element_Projections_Pvt;
798: p_return_status := FND_API.G_RET_STS_ERROR;
799:
800: when FND_API.G_EXC_UNEXPECTED_ERROR then
794: EXCEPTION
795:
796: when FND_API.G_EXC_ERROR then
797: rollback to Revise_Element_Projections_Pvt;
798: p_return_status := FND_API.G_RET_STS_ERROR;
799:
800: when FND_API.G_EXC_UNEXPECTED_ERROR then
801: rollback to Revise_Element_Projections_Pvt;
802: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
796: when FND_API.G_EXC_ERROR then
797: rollback to Revise_Element_Projections_Pvt;
798: p_return_status := FND_API.G_RET_STS_ERROR;
799:
800: when FND_API.G_EXC_UNEXPECTED_ERROR then
801: rollback to Revise_Element_Projections_Pvt;
802: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
803:
804: when OTHERS then
798: p_return_status := FND_API.G_RET_STS_ERROR;
799:
800: when FND_API.G_EXC_UNEXPECTED_ERROR then
801: rollback to Revise_Element_Projections_Pvt;
802: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
803:
804: when OTHERS then
805: rollback to Revise_Element_Projections_Pvt;
806: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
802: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
803:
804: when OTHERS then
805: rollback to Revise_Element_Projections_Pvt;
806: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
807:
808: if FND_MSG_PUB.Check_Msg_Level
809: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
810: then
877: p_pay_element_id => c_Formula_Rec.pay_element_id,
878: p_pay_element_option_id => c_Formula_Rec.pay_element_option_id,
879: p_element_value => c_Formula_Rec.element_value);
880:
881: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
882: raise FND_API.G_EXC_ERROR;
883: end if;
884:
885: end;
878: p_pay_element_option_id => c_Formula_Rec.pay_element_option_id,
879: p_element_value => c_Formula_Rec.element_value);
880:
881: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
882: raise FND_API.G_EXC_ERROR;
883: end if;
884:
885: end;
886: elsif c_Formula_Rec.element_value_type = 'PS' then
885: end;
886: elsif c_Formula_Rec.element_value_type = 'PS' then
887: begin
888:
889: if FND_API.to_Boolean(p_compound_annually) then
890: begin
891:
892: /* Bug 3786457 Start */
893: /* if c_Formula_Rec.element_value < 1 then
927: p_element_value_type => l_element_value_type,
928: p_element_value => l_element_value,
929: p_currency_code => p_currency_code);
930:
931: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
932: raise FND_API.G_EXC_ERROR;
933: end if;
934:
935: end;
928: p_element_value => l_element_value,
929: p_currency_code => p_currency_code);
930:
931: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
932: raise FND_API.G_EXC_ERROR;
933: end if;
934:
935: end;
936: else
954: p_mid_value => null,
955: p_minimum_value => null,
956: p_currency_code => p_currency_code);
957:
958: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
959: raise FND_API.G_EXC_ERROR;
960: end if;
961:
962: end;
955: p_minimum_value => null,
956: p_currency_code => p_currency_code);
957:
958: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
959: raise FND_API.G_EXC_ERROR;
960: end if;
961:
962: end;
963: end if;
972:
973:
974: -- Initialize API return status to success
975:
976: p_return_status := FND_API.G_RET_STS_SUCCESS;
977:
978:
979: EXCEPTION
980:
977:
978:
979: EXCEPTION
980:
981: when FND_API.G_EXC_ERROR then
982: p_return_status := FND_API.G_RET_STS_ERROR;
983:
984: when FND_API.G_EXC_UNEXPECTED_ERROR then
985: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
978:
979: EXCEPTION
980:
981: when FND_API.G_EXC_ERROR then
982: p_return_status := FND_API.G_RET_STS_ERROR;
983:
984: when FND_API.G_EXC_UNEXPECTED_ERROR then
985: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
986:
980:
981: when FND_API.G_EXC_ERROR then
982: p_return_status := FND_API.G_RET_STS_ERROR;
983:
984: when FND_API.G_EXC_UNEXPECTED_ERROR then
985: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
986:
987: when OTHERS then
988: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
981: when FND_API.G_EXC_ERROR then
982: p_return_status := FND_API.G_RET_STS_ERROR;
983:
984: when FND_API.G_EXC_UNEXPECTED_ERROR then
985: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
986:
987: when OTHERS then
988: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
989: if FND_MSG_PUB.Check_Msg_Level
984: when FND_API.G_EXC_UNEXPECTED_ERROR then
985: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
986:
987: when OTHERS then
988: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
989: if FND_MSG_PUB.Check_Msg_Level
990: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
991: then
992: FND_MSG_PUB.Add_Exc_Msg
1046: p_mid_value => null,
1047: p_minimum_value => null,
1048: p_currency_code => p_currency_code);
1049:
1050: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1051: raise FND_API.G_EXC_ERROR;
1052: end if;
1053:
1054: end loop;
1047: p_minimum_value => null,
1048: p_currency_code => p_currency_code);
1049:
1050: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1051: raise FND_API.G_EXC_ERROR;
1052: end if;
1053:
1054: end loop;
1055:
1072: p_mid_value => null,
1073: p_minimum_value => null,
1074: p_currency_code => p_currency_code);
1075:
1076: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1077: raise FND_API.G_EXC_ERROR;
1078: end if;
1079:
1080: end if;
1073: p_minimum_value => null,
1074: p_currency_code => p_currency_code);
1075:
1076: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1077: raise FND_API.G_EXC_ERROR;
1078: end if;
1079:
1080: end if;
1081:
1081:
1082:
1083: -- Initialize API return status to success
1084:
1085: p_return_status := FND_API.G_RET_STS_SUCCESS;
1086:
1087:
1088: EXCEPTION
1089:
1086:
1087:
1088: EXCEPTION
1089:
1090: when FND_API.G_EXC_ERROR then
1091: p_return_status := FND_API.G_RET_STS_ERROR;
1092:
1093: when FND_API.G_EXC_UNEXPECTED_ERROR then
1094: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1087:
1088: EXCEPTION
1089:
1090: when FND_API.G_EXC_ERROR then
1091: p_return_status := FND_API.G_RET_STS_ERROR;
1092:
1093: when FND_API.G_EXC_UNEXPECTED_ERROR then
1094: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1095:
1089:
1090: when FND_API.G_EXC_ERROR then
1091: p_return_status := FND_API.G_RET_STS_ERROR;
1092:
1093: when FND_API.G_EXC_UNEXPECTED_ERROR then
1094: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1095:
1096: when OTHERS then
1097: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1090: when FND_API.G_EXC_ERROR then
1091: p_return_status := FND_API.G_RET_STS_ERROR;
1092:
1093: when FND_API.G_EXC_UNEXPECTED_ERROR then
1094: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1095:
1096: when OTHERS then
1097: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1098: if FND_MSG_PUB.Check_Msg_Level
1093: when FND_API.G_EXC_UNEXPECTED_ERROR then
1094: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1095:
1096: when OTHERS then
1097: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1098: if FND_MSG_PUB.Check_Msg_Level
1099: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1100: then
1101: FND_MSG_PUB.Add_Exc_Msg
1155:
1156: if c_ElemRates_Rec.element_value_type in ('A', 'PS') then
1157: begin
1158:
1159: if FND_API.to_Boolean(p_compound_annually) then
1160: begin
1161:
1162: /* Bug 3786457 Start */
1163: /* IF p_element_value < 1 THEN
1206: p_mid_value => null,
1207: p_minimum_value => null,
1208: p_currency_code => p_currency_code);
1209:
1210: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1211: raise FND_API.G_EXC_ERROR;
1212: end if;
1213:
1214: end;
1207: p_minimum_value => null,
1208: p_currency_code => p_currency_code);
1209:
1210: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1211: raise FND_API.G_EXC_ERROR;
1212: end if;
1213:
1214: end;
1215: end if;
1218:
1219:
1220: -- Initialize API return status to success
1221:
1222: p_return_status := FND_API.G_RET_STS_SUCCESS;
1223:
1224:
1225: EXCEPTION
1226:
1223:
1224:
1225: EXCEPTION
1226:
1227: when FND_API.G_EXC_ERROR then
1228: p_return_status := FND_API.G_RET_STS_ERROR;
1229:
1230: when FND_API.G_EXC_UNEXPECTED_ERROR then
1231: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1224:
1225: EXCEPTION
1226:
1227: when FND_API.G_EXC_ERROR then
1228: p_return_status := FND_API.G_RET_STS_ERROR;
1229:
1230: when FND_API.G_EXC_UNEXPECTED_ERROR then
1231: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1232:
1226:
1227: when FND_API.G_EXC_ERROR then
1228: p_return_status := FND_API.G_RET_STS_ERROR;
1229:
1230: when FND_API.G_EXC_UNEXPECTED_ERROR then
1231: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1232:
1233: when OTHERS then
1234: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1227: when FND_API.G_EXC_ERROR then
1228: p_return_status := FND_API.G_RET_STS_ERROR;
1229:
1230: when FND_API.G_EXC_UNEXPECTED_ERROR then
1231: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1232:
1233: when OTHERS then
1234: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1235: if FND_MSG_PUB.Check_Msg_Level
1230: when FND_API.G_EXC_UNEXPECTED_ERROR then
1231: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1232:
1233: when OTHERS then
1234: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1235: if FND_MSG_PUB.Check_Msg_Level
1236: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1237: then
1238: FND_MSG_PUB.Add_Exc_Msg
1341: p_mid_value => l_mid_value,
1342: p_minimum_value => l_minimum_value,
1343: p_currency_code => p_currency_code);
1344:
1345: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1346: raise FND_API.G_EXC_ERROR;
1347: end if;
1348:
1349: end;
1342: p_minimum_value => l_minimum_value,
1343: p_currency_code => p_currency_code);
1344:
1345: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1346: raise FND_API.G_EXC_ERROR;
1347: end if;
1348:
1349: end;
1350: end if;
1398: p_mid_value => l_mid_value,
1399: p_minimum_value => l_minimum_value,
1400: p_currency_code => p_currency_code);
1401:
1402: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1403: raise FND_API.G_EXC_ERROR;
1404: end if;
1405:
1406: end;
1399: p_minimum_value => l_minimum_value,
1400: p_currency_code => p_currency_code);
1401:
1402: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1403: raise FND_API.G_EXC_ERROR;
1404: end if;
1405:
1406: end;
1407: end if;
1413:
1414:
1415: -- Initialize API return status to success
1416:
1417: p_return_status := FND_API.G_RET_STS_SUCCESS;
1418:
1419:
1420: EXCEPTION
1421:
1418:
1419:
1420: EXCEPTION
1421:
1422: when FND_API.G_EXC_ERROR then
1423: p_return_status := FND_API.G_RET_STS_ERROR;
1424:
1425: when FND_API.G_EXC_UNEXPECTED_ERROR then
1426: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1419:
1420: EXCEPTION
1421:
1422: when FND_API.G_EXC_ERROR then
1423: p_return_status := FND_API.G_RET_STS_ERROR;
1424:
1425: when FND_API.G_EXC_UNEXPECTED_ERROR then
1426: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1427:
1421:
1422: when FND_API.G_EXC_ERROR then
1423: p_return_status := FND_API.G_RET_STS_ERROR;
1424:
1425: when FND_API.G_EXC_UNEXPECTED_ERROR then
1426: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1427:
1428: when OTHERS then
1429: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1422: when FND_API.G_EXC_ERROR then
1423: p_return_status := FND_API.G_RET_STS_ERROR;
1424:
1425: when FND_API.G_EXC_UNEXPECTED_ERROR then
1426: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1427:
1428: when OTHERS then
1429: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1430: if FND_MSG_PUB.Check_Msg_Level
1425: when FND_API.G_EXC_UNEXPECTED_ERROR then
1426: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1427:
1428: when OTHERS then
1429: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1430: if FND_MSG_PUB.Check_Msg_Level
1431: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1432: then
1433: FND_MSG_PUB.Add_Exc_Msg
1483: /* ----------------------------------------------------------------------- */
1484:
1485: PROCEDURE Revise_Position_Projections
1486: ( p_api_version IN NUMBER,
1487: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE,
1488: p_return_status OUT NOCOPY VARCHAR2,
1489: x_msg_data OUT NOCOPY VARCHAR2,
1490: x_msg_count OUT NOCOPY NUMBER,
1491: p_worksheet_id IN NUMBER,
1543: BEGIN
1544:
1545: -- Standard call to check for call compatibility
1546:
1547: if not FND_API.Compatible_API_Call (l_api_version,
1548: p_api_version,
1549: l_api_name,
1550: G_PKG_NAME)
1551: then
1548: p_api_version,
1549: l_api_name,
1550: G_PKG_NAME)
1551: then
1552: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1553: end if;
1554:
1555: /* start bug 4104890*/
1556: -- this is applied for local parameters
1572: g_budget_calendar_id := l_budget_calendar_id;
1573: /* end bug 4104890 */
1574:
1575: if ((l_global_worksheet is null) or (l_global_worksheet = 'N')) then
1576: l_global_worksheet := FND_API.G_FALSE;
1577: else
1578: l_global_worksheet := FND_API.G_TRUE;
1579: end if;
1580:
1574:
1575: if ((l_global_worksheet is null) or (l_global_worksheet = 'N')) then
1576: l_global_worksheet := FND_API.G_FALSE;
1577: else
1578: l_global_worksheet := FND_API.G_TRUE;
1579: end if;
1580:
1581: if l_budget_calendar_id <> nvl(PSB_WS_ACCT1.g_budget_calendar_id, FND_API.G_MISS_NUM) then
1582: begin
1577: else
1578: l_global_worksheet := FND_API.G_TRUE;
1579: end if;
1580:
1581: if l_budget_calendar_id <> nvl(PSB_WS_ACCT1.g_budget_calendar_id, FND_API.G_MISS_NUM) then
1582: begin
1583:
1584: PSB_WS_ACCT1.Cache_Budget_Calendar
1585: (p_return_status => l_return_status,
1584: PSB_WS_ACCT1.Cache_Budget_Calendar
1585: (p_return_status => l_return_status,
1586: p_budget_calendar_id => l_budget_calendar_id);
1587:
1588: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1589: raise FND_API.G_EXC_ERROR;
1590: end if;
1591:
1592: end;
1585: (p_return_status => l_return_status,
1586: p_budget_calendar_id => l_budget_calendar_id);
1587:
1588: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1589: raise FND_API.G_EXC_ERROR;
1590: end if;
1591:
1592: end;
1593: end if;
1591:
1592: end;
1593: end if;
1594:
1595: if nvl(PSB_WS_POS1.g_attr_busgrp_id, FND_API.G_MISS_NUM) <> l_business_group_id then
1596: begin
1597:
1598: PSB_WS_POS1.Cache_Named_Attributes
1599: (p_return_status => l_return_status,
1598: PSB_WS_POS1.Cache_Named_Attributes
1599: (p_return_status => l_return_status,
1600: p_business_group_id => l_business_group_id);
1601:
1602: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1603: raise FND_API.G_EXC_ERROR;
1604: end if;
1605:
1606: end;
1599: (p_return_status => l_return_status,
1600: p_business_group_id => l_business_group_id);
1601:
1602: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1603: raise FND_API.G_EXC_ERROR;
1604: end if;
1605:
1606: end;
1607: end if;
1615: l_autoinc_rule := c_Parameter_Rec.parameter_autoinc_rule;
1616: end loop;
1617:
1618: if ((l_compound_annually is null) or (l_compound_annually = 'N')) then
1619: l_compound_annually := FND_API.G_FALSE;
1620: else
1621: l_compound_annually := FND_API.G_TRUE;
1622: end if;
1623:
1617:
1618: if ((l_compound_annually is null) or (l_compound_annually = 'N')) then
1619: l_compound_annually := FND_API.G_FALSE;
1620: else
1621: l_compound_annually := FND_API.G_TRUE;
1622: end if;
1623:
1624: if ((l_autoinc_rule is null) or (l_autoinc_rule = 'N')) then
1625: l_autoinc_rule := FND_API.G_FALSE;
1621: l_compound_annually := FND_API.G_TRUE;
1622: end if;
1623:
1624: if ((l_autoinc_rule is null) or (l_autoinc_rule = 'N')) then
1625: l_autoinc_rule := FND_API.G_FALSE;
1626: else
1627: l_autoinc_rule := FND_API.G_TRUE;
1628: end if;
1629:
1623:
1624: if ((l_autoinc_rule is null) or (l_autoinc_rule = 'N')) then
1625: l_autoinc_rule := FND_API.G_FALSE;
1626: else
1627: l_autoinc_rule := FND_API.G_TRUE;
1628: end if;
1629:
1630: /* Bug No 2482305 Start */
1631: -- added NOT in the condition
1629:
1630: /* Bug No 2482305 Start */
1631: -- added NOT in the condition
1632:
1633: if not FND_API.to_Boolean(l_autoinc_rule) then
1634: /* Bug No 2482305 End */
1635: begin
1636:
1637: for l_year_index in 1..PSB_WS_ACCT1.g_num_budget_years loop
1649: ((l_effective_start_date < l_year_start_date) and
1650: (l_effective_end_date > l_year_end_date)))) then
1651: begin
1652:
1653: if FND_API.to_Boolean(l_compound_annually) then
1654: l_compound_factor := greatest(ceil(months_between(l_year_start_date, l_effective_start_date) / 12), 0) + 1;
1655: end if;
1656:
1657:
1676: p_start_date => greatest(l_year_start_date, l_effective_start_date),
1677: p_end_date => least(l_year_end_date, nvl(l_effective_end_date, l_year_end_date)),
1678: p_recalculate_flag => TRUE);
1679:
1680: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1681: raise FND_API.G_EXC_ERROR;
1682: end if;
1683:
1684: end;
1677: p_end_date => least(l_year_end_date, nvl(l_effective_end_date, l_year_end_date)),
1678: p_recalculate_flag => TRUE);
1679:
1680: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1681: raise FND_API.G_EXC_ERROR;
1682: end if;
1683:
1684: end;
1685: end if;
1714: p_start_date => greatest(PSB_WS_ACCT1.g_startdate_cy, l_effective_start_date),
1715: p_end_date => least(PSB_WS_ACCT1.g_end_est_date, nvl(l_effective_end_date, PSB_WS_ACCT1.g_end_est_date)),
1716: p_recalculate_flag => TRUE);
1717:
1718: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1719: raise FND_API.G_EXC_ERROR;
1720: end if;
1721:
1722: end;
1715: p_end_date => least(PSB_WS_ACCT1.g_end_est_date, nvl(l_effective_end_date, PSB_WS_ACCT1.g_end_est_date)),
1716: p_recalculate_flag => TRUE);
1717:
1718: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1719: raise FND_API.G_EXC_ERROR;
1720: end if;
1721:
1722: end;
1723: end if;
1725: g_note_parameter_name := null;
1726:
1727: -- Initialize API return status to success
1728:
1729: p_return_status := FND_API.G_RET_STS_SUCCESS;
1730:
1731:
1732: EXCEPTION
1733:
1730:
1731:
1732: EXCEPTION
1733:
1734: when FND_API.G_EXC_ERROR then
1735: p_return_status := FND_API.G_RET_STS_ERROR;
1736: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
1737: p_data => x_msg_data);
1738:
1731:
1732: EXCEPTION
1733:
1734: when FND_API.G_EXC_ERROR then
1735: p_return_status := FND_API.G_RET_STS_ERROR;
1736: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
1737: p_data => x_msg_data);
1738:
1739:
1736: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
1737: p_data => x_msg_data);
1738:
1739:
1740: when FND_API.G_EXC_UNEXPECTED_ERROR then
1741: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1742: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
1743: p_data => x_msg_data);
1744:
1737: p_data => x_msg_data);
1738:
1739:
1740: when FND_API.G_EXC_UNEXPECTED_ERROR then
1741: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1742: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
1743: p_data => x_msg_data);
1744:
1745: when OTHERS then
1742: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
1743: p_data => x_msg_data);
1744:
1745: when OTHERS then
1746: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1747:
1748: if FND_MSG_PUB.Check_Msg_Level
1749: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1750: then
1761: /* ----------------------------------------------------------------------- */
1762:
1763: PROCEDURE Apply_Position_Parameters
1764: ( p_api_version IN NUMBER,
1765: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE,
1766: p_return_status OUT NOCOPY VARCHAR2,
1767: p_worksheet_id IN NUMBER,
1768: p_global_worksheet IN VARCHAR2 := FND_API.G_MISS_CHAR,
1769: p_budget_group_id IN NUMBER := FND_API.G_MISS_NUM,
1764: ( p_api_version IN NUMBER,
1765: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE,
1766: p_return_status OUT NOCOPY VARCHAR2,
1767: p_worksheet_id IN NUMBER,
1768: p_global_worksheet IN VARCHAR2 := FND_API.G_MISS_CHAR,
1769: p_budget_group_id IN NUMBER := FND_API.G_MISS_NUM,
1770: p_data_extract_id IN NUMBER := FND_API.G_MISS_NUM,
1771: p_business_group_id IN NUMBER := FND_API.G_MISS_NUM,
1772: p_func_currency IN VARCHAR2 := FND_API.G_MISS_CHAR,
1765: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE,
1766: p_return_status OUT NOCOPY VARCHAR2,
1767: p_worksheet_id IN NUMBER,
1768: p_global_worksheet IN VARCHAR2 := FND_API.G_MISS_CHAR,
1769: p_budget_group_id IN NUMBER := FND_API.G_MISS_NUM,
1770: p_data_extract_id IN NUMBER := FND_API.G_MISS_NUM,
1771: p_business_group_id IN NUMBER := FND_API.G_MISS_NUM,
1772: p_func_currency IN VARCHAR2 := FND_API.G_MISS_CHAR,
1773: p_budget_calendar_id IN NUMBER := FND_API.G_MISS_NUM,
1766: p_return_status OUT NOCOPY VARCHAR2,
1767: p_worksheet_id IN NUMBER,
1768: p_global_worksheet IN VARCHAR2 := FND_API.G_MISS_CHAR,
1769: p_budget_group_id IN NUMBER := FND_API.G_MISS_NUM,
1770: p_data_extract_id IN NUMBER := FND_API.G_MISS_NUM,
1771: p_business_group_id IN NUMBER := FND_API.G_MISS_NUM,
1772: p_func_currency IN VARCHAR2 := FND_API.G_MISS_CHAR,
1773: p_budget_calendar_id IN NUMBER := FND_API.G_MISS_NUM,
1774: p_parameter_set_id IN NUMBER := FND_API.G_MISS_NUM
1767: p_worksheet_id IN NUMBER,
1768: p_global_worksheet IN VARCHAR2 := FND_API.G_MISS_CHAR,
1769: p_budget_group_id IN NUMBER := FND_API.G_MISS_NUM,
1770: p_data_extract_id IN NUMBER := FND_API.G_MISS_NUM,
1771: p_business_group_id IN NUMBER := FND_API.G_MISS_NUM,
1772: p_func_currency IN VARCHAR2 := FND_API.G_MISS_CHAR,
1773: p_budget_calendar_id IN NUMBER := FND_API.G_MISS_NUM,
1774: p_parameter_set_id IN NUMBER := FND_API.G_MISS_NUM
1775: ) IS
1768: p_global_worksheet IN VARCHAR2 := FND_API.G_MISS_CHAR,
1769: p_budget_group_id IN NUMBER := FND_API.G_MISS_NUM,
1770: p_data_extract_id IN NUMBER := FND_API.G_MISS_NUM,
1771: p_business_group_id IN NUMBER := FND_API.G_MISS_NUM,
1772: p_func_currency IN VARCHAR2 := FND_API.G_MISS_CHAR,
1773: p_budget_calendar_id IN NUMBER := FND_API.G_MISS_NUM,
1774: p_parameter_set_id IN NUMBER := FND_API.G_MISS_NUM
1775: ) IS
1776:
1769: p_budget_group_id IN NUMBER := FND_API.G_MISS_NUM,
1770: p_data_extract_id IN NUMBER := FND_API.G_MISS_NUM,
1771: p_business_group_id IN NUMBER := FND_API.G_MISS_NUM,
1772: p_func_currency IN VARCHAR2 := FND_API.G_MISS_CHAR,
1773: p_budget_calendar_id IN NUMBER := FND_API.G_MISS_NUM,
1774: p_parameter_set_id IN NUMBER := FND_API.G_MISS_NUM
1775: ) IS
1776:
1777: l_api_name CONSTANT VARCHAR2(30) := 'Apply_Position_Parameters';
1770: p_data_extract_id IN NUMBER := FND_API.G_MISS_NUM,
1771: p_business_group_id IN NUMBER := FND_API.G_MISS_NUM,
1772: p_func_currency IN VARCHAR2 := FND_API.G_MISS_CHAR,
1773: p_budget_calendar_id IN NUMBER := FND_API.G_MISS_NUM,
1774: p_parameter_set_id IN NUMBER := FND_API.G_MISS_NUM
1775: ) IS
1776:
1777: l_api_name CONSTANT VARCHAR2(30) := 'Apply_Position_Parameters';
1778: l_api_version CONSTANT NUMBER := 1.0;
1855: BEGIN
1856:
1857: -- Standard call to check for call compatibility
1858:
1859: if not FND_API.Compatible_API_Call (l_api_version,
1860: p_api_version,
1861: l_api_name,
1862: G_PKG_NAME)
1863: then
1860: p_api_version,
1861: l_api_name,
1862: G_PKG_NAME)
1863: then
1864: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1865: end if;
1866:
1867: /* start bug 4104890*/
1868: FND_PROFILE.GET('PSB_AUTOINC_COST_CALPERIOD', g_autoinc_period_profile);
1867: /* start bug 4104890*/
1868: FND_PROFILE.GET('PSB_AUTOINC_COST_CALPERIOD', g_autoinc_period_profile);
1869: /* end bug 4104890*/
1870:
1871: if ((p_global_worksheet = FND_API.G_MISS_CHAR) or
1872: (p_budget_group_id = FND_API.G_MISS_NUM) or
1873: (p_data_extract_id = FND_API.G_MISS_NUM) or
1874: (p_budget_calendar_id = FND_API.G_MISS_NUM) or
1875: (p_parameter_set_id = FND_API.G_MISS_NUM)) then
1868: FND_PROFILE.GET('PSB_AUTOINC_COST_CALPERIOD', g_autoinc_period_profile);
1869: /* end bug 4104890*/
1870:
1871: if ((p_global_worksheet = FND_API.G_MISS_CHAR) or
1872: (p_budget_group_id = FND_API.G_MISS_NUM) or
1873: (p_data_extract_id = FND_API.G_MISS_NUM) or
1874: (p_budget_calendar_id = FND_API.G_MISS_NUM) or
1875: (p_parameter_set_id = FND_API.G_MISS_NUM)) then
1876: begin
1869: /* end bug 4104890*/
1870:
1871: if ((p_global_worksheet = FND_API.G_MISS_CHAR) or
1872: (p_budget_group_id = FND_API.G_MISS_NUM) or
1873: (p_data_extract_id = FND_API.G_MISS_NUM) or
1874: (p_budget_calendar_id = FND_API.G_MISS_NUM) or
1875: (p_parameter_set_id = FND_API.G_MISS_NUM)) then
1876: begin
1877:
1870:
1871: if ((p_global_worksheet = FND_API.G_MISS_CHAR) or
1872: (p_budget_group_id = FND_API.G_MISS_NUM) or
1873: (p_data_extract_id = FND_API.G_MISS_NUM) or
1874: (p_budget_calendar_id = FND_API.G_MISS_NUM) or
1875: (p_parameter_set_id = FND_API.G_MISS_NUM)) then
1876: begin
1877:
1878: for c_WS_Rec in c_WS loop
1871: if ((p_global_worksheet = FND_API.G_MISS_CHAR) or
1872: (p_budget_group_id = FND_API.G_MISS_NUM) or
1873: (p_data_extract_id = FND_API.G_MISS_NUM) or
1874: (p_budget_calendar_id = FND_API.G_MISS_NUM) or
1875: (p_parameter_set_id = FND_API.G_MISS_NUM)) then
1876: begin
1877:
1878: for c_WS_Rec in c_WS loop
1879: l_global_worksheet := c_WS_Rec.global_worksheet_flag;
1886: end;
1887: end if;
1888:
1889: /* start bug 4104890 */
1890: IF (p_budget_calendar_id = FND_API.G_MISS_NUM) THEN
1891: g_budget_calendar_id := l_budget_calendar_id;
1892: ELSE
1893: g_budget_calendar_id := p_budget_calendar_id;
1894: END IF;
1895: /* end bug 4104890 */
1896:
1897:
1898: if ((l_global_worksheet is null) or (l_global_worksheet = 'N')) then
1899: l_global_worksheet := FND_API.G_FALSE;
1900: else
1901: l_global_worksheet := FND_API.G_TRUE;
1902: end if;
1903:
1897:
1898: if ((l_global_worksheet is null) or (l_global_worksheet = 'N')) then
1899: l_global_worksheet := FND_API.G_FALSE;
1900: else
1901: l_global_worksheet := FND_API.G_TRUE;
1902: end if;
1903:
1904: if p_global_worksheet <> FND_API.G_MISS_CHAR then
1905: l_global_worksheet := p_global_worksheet;
1900: else
1901: l_global_worksheet := FND_API.G_TRUE;
1902: end if;
1903:
1904: if p_global_worksheet <> FND_API.G_MISS_CHAR then
1905: l_global_worksheet := p_global_worksheet;
1906: end if;
1907:
1908: if p_budget_group_id <> FND_API.G_MISS_NUM then
1904: if p_global_worksheet <> FND_API.G_MISS_CHAR then
1905: l_global_worksheet := p_global_worksheet;
1906: end if;
1907:
1908: if p_budget_group_id <> FND_API.G_MISS_NUM then
1909: l_budget_group_id := p_budget_group_id;
1910: end if;
1911:
1912: if p_data_extract_id <> FND_API.G_MISS_NUM then
1908: if p_budget_group_id <> FND_API.G_MISS_NUM then
1909: l_budget_group_id := p_budget_group_id;
1910: end if;
1911:
1912: if p_data_extract_id <> FND_API.G_MISS_NUM then
1913: l_data_extract_id := p_data_extract_id;
1914: end if;
1915:
1916: if p_budget_calendar_id <> FND_API.G_MISS_NUM then
1912: if p_data_extract_id <> FND_API.G_MISS_NUM then
1913: l_data_extract_id := p_data_extract_id;
1914: end if;
1915:
1916: if p_budget_calendar_id <> FND_API.G_MISS_NUM then
1917: l_budget_calendar_id := p_budget_calendar_id;
1918: end if;
1919:
1920: if p_parameter_set_id <> FND_API.G_MISS_NUM then
1916: if p_budget_calendar_id <> FND_API.G_MISS_NUM then
1917: l_budget_calendar_id := p_budget_calendar_id;
1918: end if;
1919:
1920: if p_parameter_set_id <> FND_API.G_MISS_NUM then
1921: l_parameter_set_id := p_parameter_set_id;
1922: end if;
1923:
1924: if ((p_business_group_id = FND_API.G_MISS_NUM) or
1920: if p_parameter_set_id <> FND_API.G_MISS_NUM then
1921: l_parameter_set_id := p_parameter_set_id;
1922: end if;
1923:
1924: if ((p_business_group_id = FND_API.G_MISS_NUM) or
1925: (p_func_currency = FND_API.G_MISS_CHAR)) then
1926: begin
1927:
1928: for c_BG_Rec in c_BG loop
1921: l_parameter_set_id := p_parameter_set_id;
1922: end if;
1923:
1924: if ((p_business_group_id = FND_API.G_MISS_NUM) or
1925: (p_func_currency = FND_API.G_MISS_CHAR)) then
1926: begin
1927:
1928: for c_BG_Rec in c_BG loop
1929: l_business_group_id := c_BG_Rec.business_group_id;
1932:
1933: end;
1934: end if;
1935:
1936: if p_business_group_id <> FND_API.G_MISS_NUM then
1937: l_business_group_id := p_business_group_id;
1938: end if;
1939:
1940: if p_func_currency <> FND_API.G_MISS_CHAR then
1936: if p_business_group_id <> FND_API.G_MISS_NUM then
1937: l_business_group_id := p_business_group_id;
1938: end if;
1939:
1940: if p_func_currency <> FND_API.G_MISS_CHAR then
1941: l_func_currency := p_func_currency;
1942: end if;
1943:
1944: if l_budget_calendar_id <> nvl(PSB_WS_ACCT1.g_budget_calendar_id, FND_API.G_MISS_NUM) then
1940: if p_func_currency <> FND_API.G_MISS_CHAR then
1941: l_func_currency := p_func_currency;
1942: end if;
1943:
1944: if l_budget_calendar_id <> nvl(PSB_WS_ACCT1.g_budget_calendar_id, FND_API.G_MISS_NUM) then
1945: begin
1946:
1947: PSB_WS_ACCT1.Cache_Budget_Calendar
1948: (p_return_status => l_return_status,
1947: PSB_WS_ACCT1.Cache_Budget_Calendar
1948: (p_return_status => l_return_status,
1949: p_budget_calendar_id => l_budget_calendar_id);
1950:
1951: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1952: raise FND_API.G_EXC_ERROR;
1953: end if;
1954:
1955: end;
1948: (p_return_status => l_return_status,
1949: p_budget_calendar_id => l_budget_calendar_id);
1950:
1951: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1952: raise FND_API.G_EXC_ERROR;
1953: end if;
1954:
1955: end;
1956: end if;
1954:
1955: end;
1956: end if;
1957:
1958: if nvl(PSB_WS_POS1.g_attr_busgrp_id, FND_API.G_MISS_NUM) <> l_business_group_id then
1959: begin
1960:
1961: PSB_WS_POS1.Cache_Named_Attributes
1962: (p_return_status => l_return_status,
1961: PSB_WS_POS1.Cache_Named_Attributes
1962: (p_return_status => l_return_status,
1963: p_business_group_id => l_business_group_id);
1964:
1965: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1966: raise FND_API.G_EXC_ERROR;
1967: end if;
1968:
1969: end;
1962: (p_return_status => l_return_status,
1963: p_business_group_id => l_business_group_id);
1964:
1965: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1966: raise FND_API.G_EXC_ERROR;
1967: end if;
1968:
1969: end;
1970: end if;
1978: PSB_WS_ACCT1.g_budget_years(l_year_index).end_date) loop
1979:
1980: if ((c_Parameter_Rec.parameter_compound_annually is null) or
1981: (c_Parameter_Rec.parameter_compound_annually = 'N')) then
1982: l_compound_annually := FND_API.G_FALSE;
1983: else
1984: l_compound_annually := FND_API.G_TRUE;
1985: l_compound_factor := greatest(ceil(months_between(PSB_WS_ACCT1.g_budget_years(l_year_index).start_date,
1986: c_Parameter_Rec.effective_start_date) / 12), 0) + 1;
1980: if ((c_Parameter_Rec.parameter_compound_annually is null) or
1981: (c_Parameter_Rec.parameter_compound_annually = 'N')) then
1982: l_compound_annually := FND_API.G_FALSE;
1983: else
1984: l_compound_annually := FND_API.G_TRUE;
1985: l_compound_factor := greatest(ceil(months_between(PSB_WS_ACCT1.g_budget_years(l_year_index).start_date,
1986: c_Parameter_Rec.effective_start_date) / 12), 0) + 1;
1987: end if;
1988:
2004: p_start_date => greatest(PSB_WS_ACCT1.g_budget_years(l_year_index).start_date, c_Parameter_Rec.effective_start_date),
2005: p_end_date => least(PSB_WS_ACCT1.g_budget_years(l_year_index).end_date,
2006: nvl(c_Parameter_Rec.effective_end_date, PSB_WS_ACCT1.g_budget_years(l_year_index).end_date)));
2007:
2008: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2009: raise FND_API.G_EXC_ERROR;
2010: end if;
2011:
2012: end loop;
2005: p_end_date => least(PSB_WS_ACCT1.g_budget_years(l_year_index).end_date,
2006: nvl(c_Parameter_Rec.effective_end_date, PSB_WS_ACCT1.g_budget_years(l_year_index).end_date)));
2007:
2008: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2009: raise FND_API.G_EXC_ERROR;
2010: end if;
2011:
2012: end loop;
2013:
2022: PSB_WS_ACCT1.g_end_est_date) loop
2023:
2024: if ((c_Parameter_Rec.parameter_compound_annually is null) or
2025: (c_Parameter_Rec.parameter_compound_annually = 'N')) then
2026: l_compound_annually := FND_API.G_FALSE;
2027: else
2028: l_compound_annually := FND_API.G_TRUE;
2029: end if;
2030:
2024: if ((c_Parameter_Rec.parameter_compound_annually is null) or
2025: (c_Parameter_Rec.parameter_compound_annually = 'N')) then
2026: l_compound_annually := FND_API.G_FALSE;
2027: else
2028: l_compound_annually := FND_API.G_TRUE;
2029: end if;
2030:
2031: Process_PosParam_Detailed
2032: (p_return_status => l_return_status,
2044: p_currency_code => nvl(c_Parameter_Rec.currency_code, l_func_currency),
2045: p_start_date => greatest(PSB_WS_ACCT1.g_startdate_cy, c_Parameter_Rec.effective_start_date),
2046: p_end_date => least(PSB_WS_ACCT1.g_end_est_date, nvl(c_Parameter_Rec.effective_end_date, PSB_WS_ACCT1.g_end_est_date)));
2047:
2048: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2049: raise FND_API.G_EXC_ERROR;
2050: end if;
2051:
2052: end loop;
2045: p_start_date => greatest(PSB_WS_ACCT1.g_startdate_cy, c_Parameter_Rec.effective_start_date),
2046: p_end_date => least(PSB_WS_ACCT1.g_end_est_date, nvl(c_Parameter_Rec.effective_end_date, PSB_WS_ACCT1.g_end_est_date)));
2047:
2048: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2049: raise FND_API.G_EXC_ERROR;
2050: end if;
2051:
2052: end loop;
2053:
2053:
2054:
2055: -- Initialize API return status to success
2056:
2057: p_return_status := FND_API.G_RET_STS_SUCCESS;
2058:
2059:
2060: EXCEPTION
2061:
2058:
2059:
2060: EXCEPTION
2061:
2062: when FND_API.G_EXC_ERROR then
2063: p_return_status := FND_API.G_RET_STS_ERROR;
2064:
2065: when FND_API.G_EXC_UNEXPECTED_ERROR then
2066: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2059:
2060: EXCEPTION
2061:
2062: when FND_API.G_EXC_ERROR then
2063: p_return_status := FND_API.G_RET_STS_ERROR;
2064:
2065: when FND_API.G_EXC_UNEXPECTED_ERROR then
2066: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2067:
2061:
2062: when FND_API.G_EXC_ERROR then
2063: p_return_status := FND_API.G_RET_STS_ERROR;
2064:
2065: when FND_API.G_EXC_UNEXPECTED_ERROR then
2066: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2067:
2068: when OTHERS then
2069: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2062: when FND_API.G_EXC_ERROR then
2063: p_return_status := FND_API.G_RET_STS_ERROR;
2064:
2065: when FND_API.G_EXC_UNEXPECTED_ERROR then
2066: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2067:
2068: when OTHERS then
2069: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2070:
2065: when FND_API.G_EXC_UNEXPECTED_ERROR then
2066: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2067:
2068: when OTHERS then
2069: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2070:
2071: if FND_MSG_PUB.Check_Msg_Level
2072: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2073: then
2091: p_business_group_id IN NUMBER,
2092: p_parameter_id IN NUMBER,
2093: p_parameter_start_date IN DATE,
2094: p_compound_annually IN VARCHAR2,
2095: p_compound_factor IN NUMBER := FND_API.G_MISS_NUM,
2096: p_parameter_autoinc_rule IN VARCHAR2,
2097: p_currency_code IN VARCHAR2,
2098: p_start_date IN DATE,
2099: p_end_date IN DATE,
2176: end;
2177: end if;
2178:
2179: /* Bug No 2594596 Start */
2180: if p_compound_factor <> FND_API.G_MISS_NUM then
2181: l_compound_factor := p_compound_factor;
2182: else
2183: l_compound_factor := 1;
2184: end if;
2219: , p_flex_code => g_flex_code -- Bug#4675858
2220: , p_cc_id => NULL -- Bug#4675858
2221: ) ;
2222:
2223: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2224: raise FND_API.G_EXC_ERROR;
2225: end if;
2226: end if;
2227: ----
2220: , p_cc_id => NULL -- Bug#4675858
2221: ) ;
2222:
2223: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2224: raise FND_API.G_EXC_ERROR;
2225: end if;
2226: end if;
2227: ----
2228: /* Bug No 1808330 End */
2251: p_compound_annually => p_compound_annually,
2252: p_compound_factor => l_compound_factor);
2253:
2254: /* Bug No 2594596 End */
2255: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2256: raise FND_API.G_EXC_ERROR;
2257: end if;
2258:
2259: end;
2252: p_compound_factor => l_compound_factor);
2253:
2254: /* Bug No 2594596 End */
2255: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2256: raise FND_API.G_EXC_ERROR;
2257: end if;
2258:
2259: end;
2260: else
2259: end;
2260: else
2261: begin
2262:
2263: if FND_API.to_Boolean(p_global_worksheet) then
2264: begin
2265:
2266: Process_PosParam_AutoInc
2267: (p_return_status => l_return_status,
2276: p_currency_code => p_currency_code,
2277: p_start_date => p_start_date,
2278: p_end_date => p_end_date);
2279:
2280: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2281: raise FND_API.G_EXC_ERROR;
2282: end if;
2283:
2284: end;
2277: p_start_date => p_start_date,
2278: p_end_date => p_end_date);
2279:
2280: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2281: raise FND_API.G_EXC_ERROR;
2282: end if;
2283:
2284: end;
2285: end if;
2302: p_position_name => c_Positions_Rec.name,
2303: p_start_date => PSB_WS_ACCT1.g_startdate_cy,
2304: p_end_date => PSB_WS_ACCT1.g_end_est_date);
2305:
2306: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2307: raise FND_API.G_EXC_ERROR;
2308: end if;
2309:
2310: PSB_WS_POS1.Create_Position_Lines
2303: p_start_date => PSB_WS_ACCT1.g_startdate_cy,
2304: p_end_date => PSB_WS_ACCT1.g_end_est_date);
2305:
2306: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2307: raise FND_API.G_EXC_ERROR;
2308: end if;
2309:
2310: PSB_WS_POS1.Create_Position_Lines
2311: (p_api_version => 1.0,
2314: p_worksheet_id => p_worksheet_id,
2315: p_position_id => c_Positions_Rec.position_id,
2316: p_budget_group_id => PSB_WS_POS1.g_salary_budget_group_id);
2317:
2318: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2319: raise FND_API.G_EXC_ERROR;
2320: end if;
2321:
2322: PSB_WS_POS2.Calculate_Position_Cost
2315: p_position_id => c_Positions_Rec.position_id,
2316: p_budget_group_id => PSB_WS_POS1.g_salary_budget_group_id);
2317:
2318: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2319: raise FND_API.G_EXC_ERROR;
2320: end if;
2321:
2322: PSB_WS_POS2.Calculate_Position_Cost
2323: (p_api_version => 1.0,
2324: p_return_status => l_return_status,
2325: p_worksheet_id => p_worksheet_id,
2326: p_position_line_id => l_position_line_id);
2327:
2328: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2329: raise FND_API.G_EXC_ERROR;
2330: end if;
2331:
2332: end;
2325: p_worksheet_id => p_worksheet_id,
2326: p_position_line_id => l_position_line_id);
2327:
2328: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2329: raise FND_API.G_EXC_ERROR;
2330: end if;
2331:
2332: end;
2333: end if;
2346:
2347:
2348: -- Initialize API return status to success
2349:
2350: p_return_status := FND_API.G_RET_STS_SUCCESS;
2351:
2352:
2353: EXCEPTION
2354:
2351:
2352:
2353: EXCEPTION
2354:
2355: when FND_API.G_EXC_ERROR then
2356: p_return_status := FND_API.G_RET_STS_ERROR;
2357: FND_MSG_PUB.Count_And_Get (p_count => l_msg_count,
2358: p_data => l_msg_data);
2359:
2352:
2353: EXCEPTION
2354:
2355: when FND_API.G_EXC_ERROR then
2356: p_return_status := FND_API.G_RET_STS_ERROR;
2357: FND_MSG_PUB.Count_And_Get (p_count => l_msg_count,
2358: p_data => l_msg_data);
2359:
2360:
2357: FND_MSG_PUB.Count_And_Get (p_count => l_msg_count,
2358: p_data => l_msg_data);
2359:
2360:
2361: when FND_API.G_EXC_UNEXPECTED_ERROR then
2362: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2363: FND_MSG_PUB.Count_And_Get (p_count => l_msg_count,
2364: p_data => l_msg_data);
2365:
2358: p_data => l_msg_data);
2359:
2360:
2361: when FND_API.G_EXC_UNEXPECTED_ERROR then
2362: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2363: FND_MSG_PUB.Count_And_Get (p_count => l_msg_count,
2364: p_data => l_msg_data);
2365:
2366: when OTHERS then
2363: FND_MSG_PUB.Count_And_Get (p_count => l_msg_count,
2364: p_data => l_msg_data);
2365:
2366: when OTHERS then
2367: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2368:
2369: if FND_MSG_PUB.Check_Msg_Level
2370: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2371: then
2459: p_pay_element_id => c_Formula_Rec.pay_element_id,
2460: p_pay_element_option_id => c_Formula_Rec.pay_element_option_id,
2461: p_element_value => c_Formula_Rec.element_value);
2462:
2463: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2464: raise FND_API.G_EXC_ERROR;
2465: end if;
2466:
2467: end;
2460: p_pay_element_option_id => c_Formula_Rec.pay_element_option_id,
2461: p_element_value => c_Formula_Rec.element_value);
2462:
2463: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2464: raise FND_API.G_EXC_ERROR;
2465: end if;
2466:
2467: end;
2468: elsif c_Formula_Rec.element_value_type = 'PS' then
2467: end;
2468: elsif c_Formula_Rec.element_value_type = 'PS' then
2469: begin
2470:
2471: if FND_API.to_Boolean(p_compound_annually) then
2472: begin
2473:
2474: -- Bug 3786457 commented the following
2475: /* if c_Formula_Rec.element_value < 1 then
2515: p_rowid => l_rowid,
2516: p_employee_id => null,
2517: p_primary_employee_flag => null);
2518:
2519: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2520: raise FND_API.G_EXC_ERROR;
2521: end if;
2522:
2523: end;
2516: p_employee_id => null,
2517: p_primary_employee_flag => null);
2518:
2519: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2520: raise FND_API.G_EXC_ERROR;
2521: end if;
2522:
2523: end;
2524: else
2554: p_rowid => l_rowid,
2555: p_employee_id => null,
2556: p_primary_employee_flag => null);
2557:
2558: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2559: raise FND_API.G_EXC_ERROR;
2560: end if;
2561:
2562: end;
2555: p_employee_id => null,
2556: p_primary_employee_flag => null);
2557:
2558: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2559: raise FND_API.G_EXC_ERROR;
2560: end if;
2561:
2562: end;
2563: end if;
2593: p_rowid => l_rowid,
2594: p_employee_id => null,
2595: p_primary_employee_flag => null);
2596:
2597: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2598: raise FND_API.G_EXC_ERROR;
2599: end if;
2600:
2601: end;
2594: p_employee_id => null,
2595: p_primary_employee_flag => null);
2596:
2597: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2598: raise FND_API.G_EXC_ERROR;
2599: end if;
2600:
2601: end;
2602: end if;
2608:
2609:
2610: -- Initialize API return status to success
2611:
2612: p_return_status := FND_API.G_RET_STS_SUCCESS;
2613:
2614:
2615: EXCEPTION
2616:
2613:
2614:
2615: EXCEPTION
2616:
2617: when FND_API.G_EXC_ERROR then
2618: p_return_status := FND_API.G_RET_STS_ERROR;
2619: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
2620: p_data => x_msg_data);
2621:
2614:
2615: EXCEPTION
2616:
2617: when FND_API.G_EXC_ERROR then
2618: p_return_status := FND_API.G_RET_STS_ERROR;
2619: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
2620: p_data => x_msg_data);
2621:
2622:
2619: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
2620: p_data => x_msg_data);
2621:
2622:
2623: when FND_API.G_EXC_UNEXPECTED_ERROR then
2624: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2625: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
2626: p_data => x_msg_data);
2627:
2620: p_data => x_msg_data);
2621:
2622:
2623: when FND_API.G_EXC_UNEXPECTED_ERROR then
2624: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2625: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
2626: p_data => x_msg_data);
2627:
2628: when OTHERS then
2625: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
2626: p_data => x_msg_data);
2627:
2628: when OTHERS then
2629: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2630:
2631: if FND_MSG_PUB.Check_Msg_Level
2632: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2633: then
2723:
2724: if c_ElemRates_Rec.element_value_type in ('A', 'PS') then
2725: begin
2726:
2727: if FND_API.to_Boolean(p_compound_annually) then
2728: begin
2729:
2730: /* Bug 3786457 Start */
2731: /* IF p_element_value < 1 THEN
2783: p_rowid => l_rowid,
2784: p_employee_id => null,
2785: p_primary_employee_flag => null);
2786:
2787: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2788: raise FND_API.G_EXC_ERROR;
2789: end if;
2790:
2791: end;
2784: p_employee_id => null,
2785: p_primary_employee_flag => null);
2786:
2787: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2788: raise FND_API.G_EXC_ERROR;
2789: end if;
2790:
2791: end;
2792: end if;
2852: p_rowid => l_rowid,
2853: p_employee_id => null,
2854: p_primary_employee_flag => null);
2855:
2856: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2857: raise FND_API.G_EXC_ERROR;
2858: end if;
2859:
2860: end;
2853: p_employee_id => null,
2854: p_primary_employee_flag => null);
2855:
2856: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2857: raise FND_API.G_EXC_ERROR;
2858: end if;
2859:
2860: end;
2861: end if;
2867:
2868:
2869: -- Initialize API return status to success
2870:
2871: p_return_status := FND_API.G_RET_STS_SUCCESS;
2872:
2873:
2874: EXCEPTION
2875:
2872:
2873:
2874: EXCEPTION
2875:
2876: when FND_API.G_EXC_ERROR then
2877: p_return_status := FND_API.G_RET_STS_ERROR;
2878: FND_MSG_PUB.Count_And_Get (p_count => l_msg_count,
2879: p_data => l_msg_data);
2880:
2873:
2874: EXCEPTION
2875:
2876: when FND_API.G_EXC_ERROR then
2877: p_return_status := FND_API.G_RET_STS_ERROR;
2878: FND_MSG_PUB.Count_And_Get (p_count => l_msg_count,
2879: p_data => l_msg_data);
2880:
2881:
2878: FND_MSG_PUB.Count_And_Get (p_count => l_msg_count,
2879: p_data => l_msg_data);
2880:
2881:
2882: when FND_API.G_EXC_UNEXPECTED_ERROR then
2883: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2884: FND_MSG_PUB.Count_And_Get (p_count => l_msg_count,
2885: p_data => l_msg_data);
2886:
2879: p_data => l_msg_data);
2880:
2881:
2882: when FND_API.G_EXC_UNEXPECTED_ERROR then
2883: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2884: FND_MSG_PUB.Count_And_Get (p_count => l_msg_count,
2885: p_data => l_msg_data);
2886:
2887: when OTHERS then
2884: FND_MSG_PUB.Count_And_Get (p_count => l_msg_count,
2885: p_data => l_msg_data);
2886:
2887: when OTHERS then
2888: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2889:
2890: if FND_MSG_PUB.Check_Msg_Level
2891: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2892: then
2971: p_position_id => p_position_id,
2972: p_local_parameter_flag => 'Y');
2973:
2974:
2975: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2976: raise FND_API.G_EXC_ERROR;
2977: end if;
2978:
2979: if l_hiredate_between_from is not null then
2972: p_local_parameter_flag => 'Y');
2973:
2974:
2975: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2976: raise FND_API.G_EXC_ERROR;
2977: end if;
2978:
2979: if l_hiredate_between_from is not null then
2980: begin
3044: p_position_id => p_position_id,
3045: p_currency_code => p_currency_code,
3046: p_start_date => l_start_date,
3047: p_end_date => null,
3048: p_compound_annually => FND_API.G_TRUE,
3049: p_compound_factor => l_compound_factor,
3050: p_increment_type => l_increment_type,
3051: p_increment_by => l_increment_by);
3052:
3049: p_compound_factor => l_compound_factor,
3050: p_increment_type => l_increment_type,
3051: p_increment_by => l_increment_by);
3052:
3053: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3054: raise FND_API.G_EXC_ERROR;
3055: end if;
3056:
3057: l_compound_factor := l_compound_factor + 1;
3050: p_increment_type => l_increment_type,
3051: p_increment_by => l_increment_by);
3052:
3053: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3054: raise FND_API.G_EXC_ERROR;
3055: end if;
3056:
3057: l_compound_factor := l_compound_factor + 1;
3058: l_multiplier := l_multiplier + 1;
3135: p_position_id => p_position_id,
3136: p_currency_code => p_currency_code,
3137: p_start_date => l_start_date,
3138: p_end_date => null,
3139: p_compound_annually => FND_API.G_TRUE,
3140: p_compound_factor => l_compound_factor,
3141: p_increment_type => l_increment_type,
3142: p_increment_by => l_increment_by);
3143:
3140: p_compound_factor => l_compound_factor,
3141: p_increment_type => l_increment_type,
3142: p_increment_by => l_increment_by);
3143:
3144: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3145: raise FND_API.G_EXC_ERROR;
3146: end if;
3147:
3148: l_compound_factor := l_compound_factor + 1;
3141: p_increment_type => l_increment_type,
3142: p_increment_by => l_increment_by);
3143:
3144: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3145: raise FND_API.G_EXC_ERROR;
3146: end if;
3147:
3148: l_compound_factor := l_compound_factor + 1;
3149: l_multiplier := l_multiplier + 1;
3160:
3161:
3162: -- Initialize API return status to success
3163:
3164: p_return_status := FND_API.G_RET_STS_SUCCESS;
3165:
3166:
3167: EXCEPTION
3168:
3165:
3166:
3167: EXCEPTION
3168:
3169: when FND_API.G_EXC_ERROR then
3170: p_return_status := FND_API.G_RET_STS_ERROR;
3171: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
3172: p_data => x_msg_data);
3173:
3166:
3167: EXCEPTION
3168:
3169: when FND_API.G_EXC_ERROR then
3170: p_return_status := FND_API.G_RET_STS_ERROR;
3171: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
3172: p_data => x_msg_data);
3173:
3174:
3171: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
3172: p_data => x_msg_data);
3173:
3174:
3175: when FND_API.G_EXC_UNEXPECTED_ERROR then
3176: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3177: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
3178: p_data => x_msg_data);
3179:
3172: p_data => x_msg_data);
3173:
3174:
3175: when FND_API.G_EXC_UNEXPECTED_ERROR then
3176: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3177: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
3178: p_data => x_msg_data);
3179:
3180: when OTHERS then
3177: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
3178: p_data => x_msg_data);
3179:
3180: when OTHERS then
3181: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3182:
3183: if FND_MSG_PUB.Check_Msg_Level
3184: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3185: then
3201: p_currency_code IN VARCHAR2,
3202: p_start_date IN DATE,
3203: p_end_date IN DATE,
3204: p_compound_annually IN VARCHAR2,
3205: p_compound_factor IN NUMBER := FND_API.G_MISS_NUM,
3206: p_increment_type IN VARCHAR2,
3207: p_increment_by IN NUMBER
3208: ) IS
3209:
3321:
3322: if c_ElemRates_Rec.element_value_type = 'A' then
3323: begin
3324:
3325: if FND_API.to_Boolean(p_compound_annually) then
3326: l_element_value := c_ElemRates_Rec.element_value + p_increment_by * p_compound_factor;
3327: else
3328: l_element_value := c_ElemRates_Rec.element_value + p_increment_by;
3329: end if;
3355: p_rowid => l_rowid,
3356: p_employee_id => null,
3357: p_primary_employee_flag => null);
3358:
3359: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3360: raise FND_API.G_EXC_ERROR;
3361: end if;
3362:
3363: end;
3356: p_employee_id => null,
3357: p_primary_employee_flag => null);
3358:
3359: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3360: raise FND_API.G_EXC_ERROR;
3361: end if;
3362:
3363: end;
3364: end if;
3371:
3372: if c_Elem_Rec.element_value_type = 'A' then
3373: begin
3374:
3375: if FND_API.to_Boolean(p_compound_annually) then
3376: l_element_value := c_Elem_Rec.element_value + p_increment_by * p_compound_factor;
3377: else
3378: l_element_value := c_Elem_Rec.element_value + p_increment_by;
3379: end if;
3405: p_rowid => l_rowid,
3406: p_employee_id => null,
3407: p_primary_employee_flag => null);
3408:
3409: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3410: raise FND_API.G_EXC_ERROR;
3411: end if;
3412:
3413: end;
3406: p_employee_id => null,
3407: p_primary_employee_flag => null);
3408:
3409: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3410: raise FND_API.G_EXC_ERROR;
3411: end if;
3412:
3413: end;
3414: end if;
3430:
3431: if c_ElemRates_Rec.element_value_type = 'A' then
3432: begin
3433:
3434: if FND_API.to_Boolean(p_compound_annually) then
3435: begin
3436: /* Bug 2820755 Start */
3437:
3438: /* if p_increment_by < 1 then
3496: p_rowid => l_rowid,
3497: p_employee_id => null,
3498: p_primary_employee_flag => null);
3499:
3500: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3501: raise FND_API.G_EXC_ERROR;
3502: end if;
3503:
3504: end;
3497: p_employee_id => null,
3498: p_primary_employee_flag => null);
3499:
3500: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3501: raise FND_API.G_EXC_ERROR;
3502: end if;
3503:
3504: end;
3505: end if;
3511:
3512: if c_Elem_Rec.element_value_type = 'A' then
3513: begin
3514:
3515: if FND_API.to_Boolean(p_compound_annually) then
3516: begin
3517:
3518: /* Start Bug No : 4281800 */
3519: -- commented for bug no 4281800
3586: p_rowid => l_rowid,
3587: p_employee_id => null,
3588: p_primary_employee_flag => null);
3589:
3590: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3591: raise FND_API.G_EXC_ERROR;
3592: end if;
3593:
3594: end;
3587: p_employee_id => null,
3588: p_primary_employee_flag => null);
3589:
3590: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3591: raise FND_API.G_EXC_ERROR;
3592: end if;
3593:
3594: end;
3595: end if;
3606: /* For Bug No. 2263220 : End */
3607:
3608: begin
3609:
3610: l_nextrate_found := FND_API.G_FALSE;
3611:
3612: for c_ElemOptions_Rec in c_ElemOptions (c_Elem_Rec.pay_element_option_id) loop
3613: l_option_name := c_ElemOptions_Rec.name;
3614: l_sequence_number := c_ElemOptions_Rec.sequence_number;
3613: l_option_name := c_ElemOptions_Rec.name;
3614: l_sequence_number := c_ElemOptions_Rec.sequence_number;
3615: end loop;
3616:
3617: if FND_API.to_Boolean(p_compound_annually) then
3618: l_increment_by := p_increment_by * p_compound_factor;
3619: else
3620: l_increment_by := p_increment_by;
3621: end if;
3625: for c_NextOption_Rec in c_NextOption (c_Elem_Rec.pay_element_id,
3626: l_option_name,
3627: l_sequence_number) loop
3628:
3629: l_nextrate_found := FND_API.G_TRUE;
3630: l_pay_element_option_id := c_NextOption_Rec.pay_element_option_id;
3631: l_sequence_number := c_NextOption_Rec.sequence_number;
3632: end loop;
3633:
3632: end loop;
3633:
3634: end loop;
3635:
3636: if not FND_API.to_Boolean(l_nextrate_found) then
3637: l_pay_element_option_id := c_Elem_Rec.pay_element_option_id;
3638: end if;
3639:
3640: PSB_POSITIONS_PVT.Modify_Assignment
3664: p_rowid => l_rowid,
3665: p_employee_id => null,
3666: p_primary_employee_flag => null);
3667:
3668: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3669: raise FND_API.G_EXC_ERROR;
3670: end if;
3671:
3672: end;
3665: p_employee_id => null,
3666: p_primary_employee_flag => null);
3667:
3668: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3669: raise FND_API.G_EXC_ERROR;
3670: end if;
3671:
3672: end;
3673:
3677:
3678:
3679: -- Initialize API return status to success
3680:
3681: p_return_status := FND_API.G_RET_STS_SUCCESS;
3682:
3683:
3684: EXCEPTION
3685:
3682:
3683:
3684: EXCEPTION
3685:
3686: when FND_API.G_EXC_ERROR then
3687: p_return_status := FND_API.G_RET_STS_ERROR;
3688: FND_MSG_PUB.Count_And_Get (p_count => l_msg_count,
3689: p_data => l_msg_data);
3690:
3683:
3684: EXCEPTION
3685:
3686: when FND_API.G_EXC_ERROR then
3687: p_return_status := FND_API.G_RET_STS_ERROR;
3688: FND_MSG_PUB.Count_And_Get (p_count => l_msg_count,
3689: p_data => l_msg_data);
3690:
3691:
3688: FND_MSG_PUB.Count_And_Get (p_count => l_msg_count,
3689: p_data => l_msg_data);
3690:
3691:
3692: when FND_API.G_EXC_UNEXPECTED_ERROR then
3693: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3694: FND_MSG_PUB.Count_And_Get (p_count => l_msg_count,
3695: p_data => l_msg_data);
3696:
3689: p_data => l_msg_data);
3690:
3691:
3692: when FND_API.G_EXC_UNEXPECTED_ERROR then
3693: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3694: FND_MSG_PUB.Count_And_Get (p_count => l_msg_count,
3695: p_data => l_msg_data);
3696:
3697: when OTHERS then
3694: FND_MSG_PUB.Count_And_Get (p_count => l_msg_count,
3695: p_data => l_msg_data);
3696:
3697: when OTHERS then
3698: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3699:
3700: if FND_MSG_PUB.Check_Msg_Level
3701: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3702: then
3711: /* ----------------------------------------------------------------------- */
3712:
3713: PROCEDURE Redistribute_Follow_Salary
3714: ( p_api_version IN NUMBER,
3715: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE,
3716: p_return_status OUT NOCOPY VARCHAR2,
3717: p_worksheet_id IN NUMBER,
3718: p_position_line_id IN NUMBER,
3719: p_budget_year_id IN NUMBER := FND_API.G_MISS_NUM,
3715: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE,
3716: p_return_status OUT NOCOPY VARCHAR2,
3717: p_worksheet_id IN NUMBER,
3718: p_position_line_id IN NUMBER,
3719: p_budget_year_id IN NUMBER := FND_API.G_MISS_NUM,
3720: p_service_package_id IN NUMBER,
3721: p_stage_set_id IN NUMBER,
3722: p_func_currency IN VARCHAR2 := FND_API.G_MISS_CHAR
3723: ) IS
3718: p_position_line_id IN NUMBER,
3719: p_budget_year_id IN NUMBER := FND_API.G_MISS_NUM,
3720: p_service_package_id IN NUMBER,
3721: p_stage_set_id IN NUMBER,
3722: p_func_currency IN VARCHAR2 := FND_API.G_MISS_CHAR
3723: ) IS
3724:
3725: l_api_name CONSTANT VARCHAR2(30) := 'Redistribute_Follow_Salary';
3726: l_api_version CONSTANT NUMBER := 1.0;
3783: BEGIN
3784:
3785: -- Standard call to check for call compatibility.
3786:
3787: if not FND_API.Compatible_API_Call (l_api_version,
3788: p_api_version,
3789: l_api_name,
3790: G_PKG_NAME)
3791: then
3788: p_api_version,
3789: l_api_name,
3790: G_PKG_NAME)
3791: then
3792: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3793: end if;
3794:
3795: for c_WS_Rec in c_WS loop
3796: l_budget_calendar_id := c_WS_Rec.budget_calendar_id;
3808: l_flex_code := c_BG_Rec.chart_of_accounts_id;
3809: l_func_currency := c_BG_Rec.currency_code;
3810: end loop;
3811:
3812: if p_func_currency <> FND_API.G_MISS_CHAR then
3813: l_func_currency := p_func_currency;
3814: end if;
3815:
3816: for c_Positions_Rec in c_Positions loop
3818: l_position_start_date := c_Positions_Rec.effective_start_date;
3819: l_position_end_date := c_Positions_Rec.effective_end_date;
3820: end loop;
3821:
3822: if ((nvl(PSB_WS_POS1.g_data_extract_id, FND_API.G_MISS_NUM) <> l_data_extract_id) or
3823: (nvl(PSB_WS_POS1.g_business_group_id, FND_API.G_MISS_NUM) <> l_business_group_id)) then
3824: begin
3825:
3826: PSB_WS_POS1.Cache_Elements
3819: l_position_end_date := c_Positions_Rec.effective_end_date;
3820: end loop;
3821:
3822: if ((nvl(PSB_WS_POS1.g_data_extract_id, FND_API.G_MISS_NUM) <> l_data_extract_id) or
3823: (nvl(PSB_WS_POS1.g_business_group_id, FND_API.G_MISS_NUM) <> l_business_group_id)) then
3824: begin
3825:
3826: PSB_WS_POS1.Cache_Elements
3827: (p_return_status => l_return_status,
3828: p_data_extract_id => l_data_extract_id,
3829: p_business_group_id => l_business_group_id,
3830: p_worksheet_id => p_worksheet_id);
3831:
3832: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3833: raise FND_API.G_EXC_ERROR;
3834: end if;
3835:
3836: end;
3829: p_business_group_id => l_business_group_id,
3830: p_worksheet_id => p_worksheet_id);
3831:
3832: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3833: raise FND_API.G_EXC_ERROR;
3834: end if;
3835:
3836: end;
3837: end if;
3835:
3836: end;
3837: end if;
3838:
3839: if l_flex_code <> nvl(PSB_WS_ACCT1.g_flex_code, FND_API.G_MISS_NUM) then
3840: begin
3841:
3842: PSB_WS_ACCT1.Flex_Info
3843: (p_return_status => l_return_status,
3842: PSB_WS_ACCT1.Flex_Info
3843: (p_return_status => l_return_status,
3844: p_flex_code => l_flex_code);
3845:
3846: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3847: raise FND_API.G_EXC_ERROR;
3848: end if;
3849:
3850: end;
3843: (p_return_status => l_return_status,
3844: p_flex_code => l_flex_code);
3845:
3846: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3847: raise FND_API.G_EXC_ERROR;
3848: end if;
3849:
3850: end;
3851: end if;
3849:
3850: end;
3851: end if;
3852:
3853: if p_budget_year_id <> FND_API.G_MISS_NUM then
3854: begin
3855:
3856: for c_Year_Rec in c_Year loop
3857: l_year_start_date := c_Year_Rec.start_date;
3880: p_start_stage_seq => l_start_stage_seq,
3881: p_current_stage_seq => l_current_stage_seq,
3882: p_func_currency => l_func_currency);
3883:
3884: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3885: raise FND_API.G_EXC_ERROR;
3886: end if;
3887:
3888: end;
3881: p_current_stage_seq => l_current_stage_seq,
3882: p_func_currency => l_func_currency);
3883:
3884: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3885: raise FND_API.G_EXC_ERROR;
3886: end if;
3887:
3888: end;
3889: else
3888: end;
3889: else
3890: begin
3891:
3892: if l_budget_calendar_id <> nvl(PSB_WS_ACCT1.g_budget_calendar_id, FND_API.G_MISS_NUM) then
3893: begin
3894:
3895: PSB_WS_ACCT1.Cache_Budget_Calendar
3896: (p_return_status => l_return_status,
3895: PSB_WS_ACCT1.Cache_Budget_Calendar
3896: (p_return_status => l_return_status,
3897: p_budget_calendar_id => l_budget_calendar_id);
3898:
3899: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3900: raise FND_API.G_EXC_ERROR;
3901: end if;
3902:
3903: end;
3896: (p_return_status => l_return_status,
3897: p_budget_calendar_id => l_budget_calendar_id);
3898:
3899: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3900: raise FND_API.G_EXC_ERROR;
3901: end if;
3902:
3903: end;
3904: end if;
3927: p_start_stage_seq => l_start_stage_seq,
3928: p_current_stage_seq => l_current_stage_seq,
3929: p_func_currency => l_func_currency);
3930:
3931: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3932: raise FND_API.G_EXC_ERROR;
3933: end if;
3934:
3935: end loop;
3928: p_current_stage_seq => l_current_stage_seq,
3929: p_func_currency => l_func_currency);
3930:
3931: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3932: raise FND_API.G_EXC_ERROR;
3933: end if;
3934:
3935: end loop;
3936:
3936:
3937: end;
3938: end if;
3939:
3940: p_return_status := FND_API.G_RET_STS_SUCCESS;
3941:
3942:
3943: EXCEPTION
3944:
3941:
3942:
3943: EXCEPTION
3944:
3945: when FND_API.G_EXC_ERROR then
3946: p_return_status := FND_API.G_RET_STS_ERROR;
3947:
3948: when FND_API.G_EXC_UNEXPECTED_ERROR then
3949: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3942:
3943: EXCEPTION
3944:
3945: when FND_API.G_EXC_ERROR then
3946: p_return_status := FND_API.G_RET_STS_ERROR;
3947:
3948: when FND_API.G_EXC_UNEXPECTED_ERROR then
3949: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3950:
3944:
3945: when FND_API.G_EXC_ERROR then
3946: p_return_status := FND_API.G_RET_STS_ERROR;
3947:
3948: when FND_API.G_EXC_UNEXPECTED_ERROR then
3949: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3950:
3951: when OTHERS then
3952: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3945: when FND_API.G_EXC_ERROR then
3946: p_return_status := FND_API.G_RET_STS_ERROR;
3947:
3948: when FND_API.G_EXC_UNEXPECTED_ERROR then
3949: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3950:
3951: when OTHERS then
3952: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3953:
3948: when FND_API.G_EXC_UNEXPECTED_ERROR then
3949: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3950:
3951: when OTHERS then
3952: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3953:
3954: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
3955: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
3956: l_api_name);
4093: PSB_WS_POS1.g_salary_dist(PSB_WS_POS1.g_num_salary_dist).amount := c_Salary_Rec.ytd_amount;
4094: PSB_WS_POS1.g_salary_dist(PSB_WS_POS1.g_num_salary_dist).start_date := p_year_start_date;
4095: PSB_WS_POS1.g_salary_dist(PSB_WS_POS1.g_num_salary_dist).end_date := p_year_end_date;
4096:
4097: if nvl(PSB_WS_POS1.g_salary_budget_group_id, FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM then
4098: PSB_WS_POS1.g_salary_budget_group_id := c_Salary_Rec.budget_group_id;
4099: end if;
4100:
4101: end loop;
4200: begin
4201:
4202: PSB_WS_POS1.Distribute_Following_Elements
4203: (p_return_status => l_return_status,
4204: p_redistribute => FND_API.G_TRUE,
4205: p_pay_element_id => PSB_WS_POS1.g_elements(l_element_index).pay_element_id,
4206: p_data_extract_id => p_data_extract_id,
4207: p_flex_code => p_flex_code,
4208: p_business_group_id => p_business_group_id,
4212: p_budget_year_id => p_budget_year_id,
4213: p_start_date => l_start_date,
4214: p_end_date => l_end_date);
4215:
4216: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
4217: raise FND_API.G_EXC_ERROR;
4218: end if;
4219:
4220: end;
4213: p_start_date => l_start_date,
4214: p_end_date => l_end_date);
4215:
4216: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
4217: raise FND_API.G_EXC_ERROR;
4218: end if;
4219:
4220: end;
4221: end if;
4376: p_account_line_id => l_account_line_id,
4377: p_worksheet_id => p_worksheet_id,
4378: p_flex_mapping_set_id => p_flex_mapping_set_id,
4379: p_map_accounts => TRUE,
4380: p_check_spal_exists => FND_API.G_FALSE,
4381: p_gl_cutoff_period => null,
4382: p_allocrule_set_id => null,
4383: p_budget_calendar_id => null,
4384: p_rounding_factor => p_rounding_factor,
4395: p_service_package_id => p_service_package_id,
4396: p_start_stage_seq => p_start_stage_seq,
4397: p_current_stage_seq => p_current_stage_seq);
4398:
4399: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
4400: raise FND_API.G_EXC_ERROR;
4401: end if;
4402:
4403: end;
4396: p_start_stage_seq => p_start_stage_seq,
4397: p_current_stage_seq => p_current_stage_seq);
4398:
4399: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
4400: raise FND_API.G_EXC_ERROR;
4401: end if;
4402:
4403: end;
4404: else
4472: PSB_WS_ACCT1.Create_Account_Dist
4473: (p_api_version => 1.0,
4474: p_return_status => l_return_status,
4475: p_worksheet_id => p_worksheet_id,
4476: p_distribute_flag => FND_API.G_TRUE,
4477: p_account_line_id => PSB_WS_POS1.g_element_dist(l_dist_index).account_line_id,
4478: p_check_stages => FND_API.G_FALSE,
4479: p_ytd_amount => PSB_WS_POS1.g_pd_costs(l_pdist_index).ytd_amount,
4480: p_period_amount => l_period_amount,
4474: p_return_status => l_return_status,
4475: p_worksheet_id => p_worksheet_id,
4476: p_distribute_flag => FND_API.G_TRUE,
4477: p_account_line_id => PSB_WS_POS1.g_element_dist(l_dist_index).account_line_id,
4478: p_check_stages => FND_API.G_FALSE,
4479: p_ytd_amount => PSB_WS_POS1.g_pd_costs(l_pdist_index).ytd_amount,
4480: p_period_amount => l_period_amount,
4481: p_budget_group_id => PSB_WS_POS1.g_salary_budget_group_id);
4482:
4479: p_ytd_amount => PSB_WS_POS1.g_pd_costs(l_pdist_index).ytd_amount,
4480: p_period_amount => l_period_amount,
4481: p_budget_group_id => PSB_WS_POS1.g_salary_budget_group_id);
4482:
4483: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
4484: raise FND_API.G_EXC_ERROR;
4485: end if;
4486:
4487: end;
4480: p_period_amount => l_period_amount,
4481: p_budget_group_id => PSB_WS_POS1.g_salary_budget_group_id);
4482:
4483: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
4484: raise FND_API.G_EXC_ERROR;
4485: end if;
4486:
4487: end;
4488: end if;
4498: (p_api_version => 1.0,
4499: p_return_status => l_return_status,
4500: p_account_line_id => PSB_WS_POS1.g_element_dist(l_eldist_index).account_line_id);
4501:
4502: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
4503: raise FND_API.G_EXC_ERROR;
4504: end if;
4505:
4506: end;
4499: p_return_status => l_return_status,
4500: p_account_line_id => PSB_WS_POS1.g_element_dist(l_eldist_index).account_line_id);
4501:
4502: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
4503: raise FND_API.G_EXC_ERROR;
4504: end if;
4505:
4506: end;
4507: end if;
4518: p_stage_set_id => p_stage_set_id,
4519: p_current_stage_seq => p_current_stage_seq,
4520: p_budget_group_id => PSB_WS_POS1.g_salary_budget_group_id);
4521:
4522: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
4523: raise FND_API.G_EXC_ERROR;
4524: end if;
4525:
4526: p_return_status := FND_API.G_RET_STS_SUCCESS;
4519: p_current_stage_seq => p_current_stage_seq,
4520: p_budget_group_id => PSB_WS_POS1.g_salary_budget_group_id);
4521:
4522: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
4523: raise FND_API.G_EXC_ERROR;
4524: end if;
4525:
4526: p_return_status := FND_API.G_RET_STS_SUCCESS;
4527:
4522: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
4523: raise FND_API.G_EXC_ERROR;
4524: end if;
4525:
4526: p_return_status := FND_API.G_RET_STS_SUCCESS;
4527:
4528:
4529: EXCEPTION
4530:
4527:
4528:
4529: EXCEPTION
4530:
4531: when FND_API.G_EXC_ERROR then
4532: p_return_status := FND_API.G_RET_STS_ERROR;
4533:
4534: when FND_API.G_EXC_UNEXPECTED_ERROR then
4535: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4528:
4529: EXCEPTION
4530:
4531: when FND_API.G_EXC_ERROR then
4532: p_return_status := FND_API.G_RET_STS_ERROR;
4533:
4534: when FND_API.G_EXC_UNEXPECTED_ERROR then
4535: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4536:
4530:
4531: when FND_API.G_EXC_ERROR then
4532: p_return_status := FND_API.G_RET_STS_ERROR;
4533:
4534: when FND_API.G_EXC_UNEXPECTED_ERROR then
4535: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4536:
4537: when OTHERS then
4538: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4531: when FND_API.G_EXC_ERROR then
4532: p_return_status := FND_API.G_RET_STS_ERROR;
4533:
4534: when FND_API.G_EXC_UNEXPECTED_ERROR then
4535: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4536:
4537: when OTHERS then
4538: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4539: if FND_MSG_PUB.Check_Msg_Level
4534: when FND_API.G_EXC_UNEXPECTED_ERROR then
4535: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4536:
4537: when OTHERS then
4538: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4539: if FND_MSG_PUB.Check_Msg_Level
4540: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4541: then
4542: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
4587: p_constraint_id => c_Constraint_Rec.constraint_id,
4588: p_start_date => c_Constraint_Rec.effective_start_date,
4589: p_end_date => nvl(c_Constraint_Rec.effective_end_date, PSB_WS_ACCT1.g_end_est_date));
4590:
4591: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
4592: raise FND_API.G_EXC_ERROR;
4593: end if;
4594:
4595: end loop;
4588: p_start_date => c_Constraint_Rec.effective_start_date,
4589: p_end_date => nvl(c_Constraint_Rec.effective_end_date, PSB_WS_ACCT1.g_end_est_date));
4590:
4591: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
4592: raise FND_API.G_EXC_ERROR;
4593: end if;
4594:
4595: end loop;
4596:
4596:
4597:
4598: -- Initialize API return status to success
4599:
4600: p_return_status := FND_API.G_RET_STS_SUCCESS;
4601:
4602:
4603: EXCEPTION
4604:
4601:
4602:
4603: EXCEPTION
4604:
4605: when FND_API.G_EXC_ERROR then
4606: p_return_status := FND_API.G_RET_STS_ERROR;
4607:
4608: when FND_API.G_EXC_UNEXPECTED_ERROR then
4609: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4602:
4603: EXCEPTION
4604:
4605: when FND_API.G_EXC_ERROR then
4606: p_return_status := FND_API.G_RET_STS_ERROR;
4607:
4608: when FND_API.G_EXC_UNEXPECTED_ERROR then
4609: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4610:
4604:
4605: when FND_API.G_EXC_ERROR then
4606: p_return_status := FND_API.G_RET_STS_ERROR;
4607:
4608: when FND_API.G_EXC_UNEXPECTED_ERROR then
4609: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4610:
4611: when OTHERS then
4612: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4605: when FND_API.G_EXC_ERROR then
4606: p_return_status := FND_API.G_RET_STS_ERROR;
4607:
4608: when FND_API.G_EXC_UNEXPECTED_ERROR then
4609: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4610:
4611: when OTHERS then
4612: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4613: if FND_MSG_PUB.Check_Msg_Level
4608: when FND_API.G_EXC_UNEXPECTED_ERROR then
4609: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4610:
4611: when OTHERS then
4612: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4613: if FND_MSG_PUB.Check_Msg_Level
4614: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4615: then
4616: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
4692: p_rowid => l_rowid,
4693: p_employee_id => null,
4694: p_primary_employee_flag => null);
4695:
4696: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
4697: raise FND_API.G_EXC_ERROR;
4698: end if;
4699:
4700: end loop;
4693: p_employee_id => null,
4694: p_primary_employee_flag => null);
4695:
4696: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
4697: raise FND_API.G_EXC_ERROR;
4698: end if;
4699:
4700: end loop;
4701:
4706:
4707:
4708: -- Initialize API return status to success
4709:
4710: p_return_status := FND_API.G_RET_STS_SUCCESS;
4711:
4712:
4713: EXCEPTION
4714:
4711:
4712:
4713: EXCEPTION
4714:
4715: when FND_API.G_EXC_ERROR then
4716: p_return_status := FND_API.G_RET_STS_ERROR;
4717:
4718: when FND_API.G_EXC_UNEXPECTED_ERROR then
4719: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4712:
4713: EXCEPTION
4714:
4715: when FND_API.G_EXC_ERROR then
4716: p_return_status := FND_API.G_RET_STS_ERROR;
4717:
4718: when FND_API.G_EXC_UNEXPECTED_ERROR then
4719: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4720:
4714:
4715: when FND_API.G_EXC_ERROR then
4716: p_return_status := FND_API.G_RET_STS_ERROR;
4717:
4718: when FND_API.G_EXC_UNEXPECTED_ERROR then
4719: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4720:
4721: when OTHERS then
4722: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4715: when FND_API.G_EXC_ERROR then
4716: p_return_status := FND_API.G_RET_STS_ERROR;
4717:
4718: when FND_API.G_EXC_UNEXPECTED_ERROR then
4719: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4720:
4721: when OTHERS then
4722: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4723: if FND_MSG_PUB.Check_Msg_Level
4718: when FND_API.G_EXC_UNEXPECTED_ERROR then
4719: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4720:
4721: when OTHERS then
4722: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4723: if FND_MSG_PUB.Check_Msg_Level
4724: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4725: then
4726: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
4748:
4749: l_cons_validation_status VARCHAR2(1);
4750: l_consset_validation_status VARCHAR2(1) := 'S';
4751:
4752: l_sp_exists VARCHAR2(1) := FND_API.G_FALSE;
4753:
4754: l_return_status VARCHAR2(1);
4755:
4756: cursor c_Constraint (Year_Start_Date DATE,
4786:
4787: BEGIN
4788:
4789: for c_SP_Rec in c_SP loop
4790: l_sp_exists := FND_API.G_TRUE;
4791: end loop;
4792:
4793: for l_year_index in 1..PSB_WS_ACCT1.g_num_budget_years loop
4794:
4819: p_year_start_date => PSB_WS_ACCT1.g_budget_years(l_year_index).start_date,
4820: p_year_end_date => PSB_WS_ACCT1.g_budget_years(l_year_index).end_date,
4821: p_currency_code => nvl(c_Constraint_Rec.currency_code, p_func_currency),
4822: p_severity_level => c_Constraint_Rec.severity_level,
4823: p_summ_flag => FND_API.G_TRUE,
4824: p_constraint_validation_status => l_cons_validation_status,
4825: p_return_status => l_return_status);
4826:
4827: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
4823: p_summ_flag => FND_API.G_TRUE,
4824: p_constraint_validation_status => l_cons_validation_status,
4825: p_return_status => l_return_status);
4826:
4827: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
4828: raise FND_API.G_EXC_ERROR;
4829: end if;
4830:
4831: end;
4824: p_constraint_validation_status => l_cons_validation_status,
4825: p_return_status => l_return_status);
4826:
4827: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
4828: raise FND_API.G_EXC_ERROR;
4829: end if;
4830:
4831: end;
4832: else
4843: p_budget_year_id => PSB_WS_ACCT1.g_budget_years(l_year_index).budget_year_id,
4844: p_budget_year_name => PSB_WS_ACCT1.g_budget_years(l_year_index).year_name,
4845: p_currency_code => nvl(c_Constraint_Rec.currency_code, p_func_currency),
4846: p_severity_level => c_Constraint_Rec.severity_level,
4847: p_summ_flag => FND_API.G_TRUE,
4848: p_constraint_validation_status => l_cons_validation_status,
4849: p_return_status => l_return_status);
4850:
4851: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
4847: p_summ_flag => FND_API.G_TRUE,
4848: p_constraint_validation_status => l_cons_validation_status,
4849: p_return_status => l_return_status);
4850:
4851: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
4852: raise FND_API.G_EXC_ERROR;
4853: end if;
4854:
4855: end;
4848: p_constraint_validation_status => l_cons_validation_status,
4849: p_return_status => l_return_status);
4850:
4851: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
4852: raise FND_API.G_EXC_ERROR;
4853: end if;
4854:
4855: end;
4856: end if;
4888: p_year_end_date => PSB_WS_ACCT1.g_budget_years(l_year_index).end_date,
4889: p_currency_code => nvl(c_Constraint_Rec.currency_code, p_func_currency),
4890: p_severity_level => c_Constraint_Rec.severity_level);
4891:
4892: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
4893: raise FND_API.G_EXC_ERROR;
4894: end if;
4895:
4896: if ((l_consset_validation_status = 'S') and
4889: p_currency_code => nvl(c_Constraint_Rec.currency_code, p_func_currency),
4890: p_severity_level => c_Constraint_Rec.severity_level);
4891:
4892: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
4893: raise FND_API.G_EXC_ERROR;
4894: end if;
4895:
4896: if ((l_consset_validation_status = 'S') and
4897: (l_cons_validation_status <> 'S')) then
4917:
4918: -- Initialize API return status to success
4919:
4920: p_validation_status := l_consset_validation_status;
4921: p_return_status := FND_API.G_RET_STS_SUCCESS;
4922:
4923:
4924: EXCEPTION
4925:
4922:
4923:
4924: EXCEPTION
4925:
4926: when FND_API.G_EXC_ERROR then
4927: p_return_status := FND_API.G_RET_STS_ERROR;
4928:
4929: when FND_API.G_EXC_UNEXPECTED_ERROR then
4930: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4923:
4924: EXCEPTION
4925:
4926: when FND_API.G_EXC_ERROR then
4927: p_return_status := FND_API.G_RET_STS_ERROR;
4928:
4929: when FND_API.G_EXC_UNEXPECTED_ERROR then
4930: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4931:
4925:
4926: when FND_API.G_EXC_ERROR then
4927: p_return_status := FND_API.G_RET_STS_ERROR;
4928:
4929: when FND_API.G_EXC_UNEXPECTED_ERROR then
4930: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4931:
4932: when OTHERS then
4933: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4926: when FND_API.G_EXC_ERROR then
4927: p_return_status := FND_API.G_RET_STS_ERROR;
4928:
4929: when FND_API.G_EXC_UNEXPECTED_ERROR then
4930: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4931:
4932: when OTHERS then
4933: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4934: if FND_MSG_PUB.Check_Msg_Level
4929: when FND_API.G_EXC_UNEXPECTED_ERROR then
4930: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4931:
4932: when OTHERS then
4933: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4934: if FND_MSG_PUB.Check_Msg_Level
4935: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4936: then
4937: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
5008: p_year_start_date => p_year_start_date,
5009: p_year_end_date => p_year_end_date,
5010: p_currency_code => p_currency_code,
5011: p_severity_level => p_severity_level,
5012: p_summ_flag => FND_API.G_FALSE,
5013: p_constraint_validation_status => l_detailed_status,
5014: p_return_status => l_return_status);
5015:
5016: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5012: p_summ_flag => FND_API.G_FALSE,
5013: p_constraint_validation_status => l_detailed_status,
5014: p_return_status => l_return_status);
5015:
5016: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5017: raise FND_API.G_EXC_ERROR;
5018: end if;
5019:
5020: end;
5013: p_constraint_validation_status => l_detailed_status,
5014: p_return_status => l_return_status);
5015:
5016: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5017: raise FND_API.G_EXC_ERROR;
5018: end if;
5019:
5020: end;
5021: else
5035: p_budget_year_id => p_budget_year_id,
5036: p_budget_year_name => p_budget_year_name,
5037: p_currency_code => p_currency_code,
5038: p_severity_level => p_severity_level,
5039: p_summ_flag => FND_API.G_FALSE,
5040: p_constraint_validation_status => l_detailed_status,
5041: p_return_status => l_return_status);
5042:
5043: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5039: p_summ_flag => FND_API.G_FALSE,
5040: p_constraint_validation_status => l_detailed_status,
5041: p_return_status => l_return_status);
5042:
5043: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5044: raise FND_API.G_EXC_ERROR;
5045: end if;
5046:
5047: end;
5040: p_constraint_validation_status => l_detailed_status,
5041: p_return_status => l_return_status);
5042:
5043: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5044: raise FND_API.G_EXC_ERROR;
5045: end if;
5046:
5047: end;
5048: end if;
5060:
5061: -- Initialize API return status to success
5062:
5063: p_constraint_validation_status := l_cons_validation_status;
5064: p_return_status := FND_API.G_RET_STS_SUCCESS;
5065:
5066:
5067: EXCEPTION
5068:
5065:
5066:
5067: EXCEPTION
5068:
5069: when FND_API.G_EXC_ERROR then
5070: p_return_status := FND_API.G_RET_STS_ERROR;
5071:
5072: when FND_API.G_EXC_UNEXPECTED_ERROR then
5073: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5066:
5067: EXCEPTION
5068:
5069: when FND_API.G_EXC_ERROR then
5070: p_return_status := FND_API.G_RET_STS_ERROR;
5071:
5072: when FND_API.G_EXC_UNEXPECTED_ERROR then
5073: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5074:
5068:
5069: when FND_API.G_EXC_ERROR then
5070: p_return_status := FND_API.G_RET_STS_ERROR;
5071:
5072: when FND_API.G_EXC_UNEXPECTED_ERROR then
5073: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5074:
5075: when OTHERS then
5076: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5069: when FND_API.G_EXC_ERROR then
5070: p_return_status := FND_API.G_RET_STS_ERROR;
5071:
5072: when FND_API.G_EXC_UNEXPECTED_ERROR then
5073: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5074:
5075: when OTHERS then
5076: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5077: if FND_MSG_PUB.Check_Msg_Level
5072: when FND_API.G_EXC_UNEXPECTED_ERROR then
5073: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5074:
5075: when OTHERS then
5076: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5077: if FND_MSG_PUB.Check_Msg_Level
5078: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5079: then
5080: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
5095: p_constraint_set_name IN VARCHAR2,
5096: p_constraint_threshold IN NUMBER,
5097: p_constraint_id IN NUMBER,
5098: p_constraint_name IN VARCHAR2,
5099: p_position_line_id IN NUMBER := FND_API.G_MISS_NUM,
5100: p_position_id IN NUMBER := FND_API.G_MISS_NUM,
5101: p_position_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
5102: p_budget_year_id IN NUMBER,
5103: p_budget_year_name IN VARCHAR2,
5096: p_constraint_threshold IN NUMBER,
5097: p_constraint_id IN NUMBER,
5098: p_constraint_name IN VARCHAR2,
5099: p_position_line_id IN NUMBER := FND_API.G_MISS_NUM,
5100: p_position_id IN NUMBER := FND_API.G_MISS_NUM,
5101: p_position_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
5102: p_budget_year_id IN NUMBER,
5103: p_budget_year_name IN VARCHAR2,
5104: p_year_start_date IN DATE,
5097: p_constraint_id IN NUMBER,
5098: p_constraint_name IN VARCHAR2,
5099: p_position_line_id IN NUMBER := FND_API.G_MISS_NUM,
5100: p_position_id IN NUMBER := FND_API.G_MISS_NUM,
5101: p_position_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
5102: p_budget_year_id IN NUMBER,
5103: p_budget_year_name IN VARCHAR2,
5104: p_year_start_date IN DATE,
5105: p_year_end_date IN DATE,
5154: p_prefix_operator => c_Formula_Rec.prefix_operator,
5155: p_element_value_type => c_Formula_Rec.element_value_type,
5156: p_element_value => c_Formula_Rec.element_value);
5157:
5158: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5159: raise FND_API.G_EXC_ERROR;
5160: end if;
5161:
5162: if ((l_cons_validation_status = 'S') and
5155: p_element_value_type => c_Formula_Rec.element_value_type,
5156: p_element_value => c_Formula_Rec.element_value);
5157:
5158: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5159: raise FND_API.G_EXC_ERROR;
5160: end if;
5161:
5162: if ((l_cons_validation_status = 'S') and
5163: (l_detailed_status <> 'S')) then
5172:
5173: -- Initialize API return status to success
5174:
5175: p_constraint_validation_status := l_cons_validation_status;
5176: p_return_status := FND_API.G_RET_STS_SUCCESS;
5177:
5178:
5179: EXCEPTION
5180:
5177:
5178:
5179: EXCEPTION
5180:
5181: when FND_API.G_EXC_ERROR then
5182: p_return_status := FND_API.G_RET_STS_ERROR;
5183:
5184: when FND_API.G_EXC_UNEXPECTED_ERROR then
5185: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5178:
5179: EXCEPTION
5180:
5181: when FND_API.G_EXC_ERROR then
5182: p_return_status := FND_API.G_RET_STS_ERROR;
5183:
5184: when FND_API.G_EXC_UNEXPECTED_ERROR then
5185: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5186:
5180:
5181: when FND_API.G_EXC_ERROR then
5182: p_return_status := FND_API.G_RET_STS_ERROR;
5183:
5184: when FND_API.G_EXC_UNEXPECTED_ERROR then
5185: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5186:
5187: when OTHERS then
5188: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5181: when FND_API.G_EXC_ERROR then
5182: p_return_status := FND_API.G_RET_STS_ERROR;
5183:
5184: when FND_API.G_EXC_UNEXPECTED_ERROR then
5185: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5186:
5187: when OTHERS then
5188: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5189: if FND_MSG_PUB.Check_Msg_Level
5184: when FND_API.G_EXC_UNEXPECTED_ERROR then
5185: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5186:
5187: when OTHERS then
5188: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5189: if FND_MSG_PUB.Check_Msg_Level
5190: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5191: then
5192: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
5207: p_constraint_set_name IN VARCHAR2,
5208: p_constraint_threshold IN NUMBER,
5209: p_constraint_id IN NUMBER,
5210: p_constraint_name IN VARCHAR2,
5211: p_position_line_id IN NUMBER := FND_API.G_MISS_NUM,
5212: p_position_id IN NUMBER := FND_API.G_MISS_NUM,
5213: p_position_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
5214: p_budget_year_id IN NUMBER,
5215: p_budget_year_name IN VARCHAR2,
5208: p_constraint_threshold IN NUMBER,
5209: p_constraint_id IN NUMBER,
5210: p_constraint_name IN VARCHAR2,
5211: p_position_line_id IN NUMBER := FND_API.G_MISS_NUM,
5212: p_position_id IN NUMBER := FND_API.G_MISS_NUM,
5213: p_position_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
5214: p_budget_year_id IN NUMBER,
5215: p_budget_year_name IN VARCHAR2,
5216: p_year_start_date IN DATE,
5209: p_constraint_id IN NUMBER,
5210: p_constraint_name IN VARCHAR2,
5211: p_position_line_id IN NUMBER := FND_API.G_MISS_NUM,
5212: p_position_id IN NUMBER := FND_API.G_MISS_NUM,
5213: p_position_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
5214: p_budget_year_id IN NUMBER,
5215: p_budget_year_name IN VARCHAR2,
5216: p_year_start_date IN DATE,
5217: p_year_end_date IN DATE,
5224: p_element_value_type IN VARCHAR2,
5225: p_element_value IN NUMBER
5226: ) IS
5227:
5228: l_cons_failed VARCHAR2(1) := FND_API.G_FALSE;
5229:
5230: l_salary_total NUMBER := 0;
5231: l_posset_total NUMBER := 0;
5232: l_cons_total NUMBER := 0;
5476: and c.data_extract_id = p_data_extract_id;
5477:
5478: BEGIN
5479:
5480: if not FND_API.to_Boolean(p_summ_flag) then
5481: begin
5482:
5483: if FND_API.to_Boolean(p_sp_exists) then
5484: begin
5479:
5480: if not FND_API.to_Boolean(p_summ_flag) then
5481: begin
5482:
5483: if FND_API.to_Boolean(p_sp_exists) then
5484: begin
5485:
5486: if p_pay_element_option_id is null then
5487: begin
5557: message_token('YEAR', p_budget_year_name);
5558: add_message('PSB', 'PSB_CONSTRAINT_FAILURE');
5559:
5560: l_description := FND_MSG_PUB.Get
5561: (p_encoded => FND_API.G_FALSE);
5562: FND_MSG_PUB.Delete_Msg;
5563:
5564: insert into PSB_ERROR_MESSAGES
5565: (Concurrent_Request_ID,
5592: end;
5593: else
5594: begin
5595:
5596: if FND_API.to_Boolean(p_sp_exists) then
5597: begin
5598:
5599: if p_pay_element_option_id is null then
5600: begin
5670: message_token('YEAR', p_budget_year_name);
5671: add_message('PSB', 'PSB_CONSTRAINT_FAILURE');
5672:
5673: l_description := FND_MSG_PUB.Get
5674: (p_encoded => FND_API.G_FALSE);
5675: FND_MSG_PUB.Delete_Msg;
5676:
5677: insert into PSB_ERROR_MESSAGES
5678: (Concurrent_Request_ID,
5726:
5727: if p_prefix_operator = '<=' then
5728:
5729: if l_posset_total <= l_cons_total then
5730: l_cons_failed := FND_API.G_TRUE;
5731: end if;
5732:
5733: elsif p_prefix_operator = '>=' then
5734:
5732:
5733: elsif p_prefix_operator = '>=' then
5734:
5735: if l_posset_total >= l_cons_total then
5736: l_cons_failed := FND_API.G_TRUE;
5737: end if;
5738:
5739: elsif p_prefix_operator = '<' then
5740:
5738:
5739: elsif p_prefix_operator = '<' then
5740:
5741: if l_posset_total < l_cons_total then
5742: l_cons_failed := FND_API.G_TRUE;
5743: end if;
5744:
5745: elsif p_prefix_operator = '>' then
5746:
5744:
5745: elsif p_prefix_operator = '>' then
5746:
5747: if l_posset_total > l_cons_total then
5748: l_cons_failed := FND_API.G_TRUE;
5749: end if;
5750:
5751: elsif p_prefix_operator = '=' then
5752:
5750:
5751: elsif p_prefix_operator = '=' then
5752:
5753: if l_posset_total = l_cons_total then
5754: l_cons_failed := FND_API.G_TRUE;
5755: end if;
5756:
5757: elsif p_prefix_operator = '<>' then
5758:
5756:
5757: elsif p_prefix_operator = '<>' then
5758:
5759: if l_posset_total <> l_cons_total then
5760: l_cons_failed := FND_API.G_TRUE;
5761: end if;
5762:
5763: end if;
5764:
5764:
5765: end;
5766: end if;
5767:
5768: if FND_API.to_Boolean(l_cons_failed) then
5769: begin
5770:
5771: if nvl(p_severity_level, -1) >= p_constraint_threshold then
5772: p_constraint_validation_status := 'F';
5784: message_token('ASSIGNMENT_VALUE', l_posset_total);
5785: message_token('OPERATOR', p_prefix_operator);
5786: message_token('FORMULA_VALUE', l_cons_total);
5787:
5788: if FND_API.to_Boolean(p_summ_flag) then
5789: message_token('NAME', p_constraint_name);
5790: else
5791: message_token('NAME', p_position_name);
5792: end if;
5794: message_token('YEAR', p_budget_year_name);
5795: add_message('PSB', 'PSB_CONSTRAINT_FAILURE');
5796:
5797: l_description := FND_MSG_PUB.Get
5798: (p_encoded => FND_API.G_FALSE);
5799: FND_MSG_PUB.Delete_Msg;
5800:
5801: insert into PSB_ERROR_MESSAGES
5802: (Concurrent_Request_ID,
5819:
5820:
5821: -- Initialize API return status to success
5822:
5823: p_return_status := FND_API.G_RET_STS_SUCCESS;
5824:
5825:
5826: EXCEPTION
5827:
5824:
5825:
5826: EXCEPTION
5827:
5828: when FND_API.G_EXC_ERROR then
5829: p_return_status := FND_API.G_RET_STS_ERROR;
5830:
5831: when FND_API.G_EXC_UNEXPECTED_ERROR then
5832: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5825:
5826: EXCEPTION
5827:
5828: when FND_API.G_EXC_ERROR then
5829: p_return_status := FND_API.G_RET_STS_ERROR;
5830:
5831: when FND_API.G_EXC_UNEXPECTED_ERROR then
5832: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5833:
5827:
5828: when FND_API.G_EXC_ERROR then
5829: p_return_status := FND_API.G_RET_STS_ERROR;
5830:
5831: when FND_API.G_EXC_UNEXPECTED_ERROR then
5832: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5833:
5834: when OTHERS then
5835: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5828: when FND_API.G_EXC_ERROR then
5829: p_return_status := FND_API.G_RET_STS_ERROR;
5830:
5831: when FND_API.G_EXC_UNEXPECTED_ERROR then
5832: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5833:
5834: when OTHERS then
5835: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5836: if FND_MSG_PUB.Check_Msg_Level
5831: when FND_API.G_EXC_UNEXPECTED_ERROR then
5832: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5833:
5834: when OTHERS then
5835: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5836: if FND_MSG_PUB.Check_Msg_Level
5837: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5838: then
5839: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
5853: p_constraint_set_name IN VARCHAR2,
5854: p_constraint_threshold IN NUMBER,
5855: p_constraint_id IN NUMBER,
5856: p_constraint_name IN VARCHAR2,
5857: p_position_line_id IN NUMBER := FND_API.G_MISS_NUM,
5858: p_position_id IN NUMBER := FND_API.G_MISS_NUM,
5859: p_position_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
5860: p_budget_year_id IN NUMBER,
5861: p_budget_year_name IN VARCHAR2,
5854: p_constraint_threshold IN NUMBER,
5855: p_constraint_id IN NUMBER,
5856: p_constraint_name IN VARCHAR2,
5857: p_position_line_id IN NUMBER := FND_API.G_MISS_NUM,
5858: p_position_id IN NUMBER := FND_API.G_MISS_NUM,
5859: p_position_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
5860: p_budget_year_id IN NUMBER,
5861: p_budget_year_name IN VARCHAR2,
5862: p_currency_code IN VARCHAR2,
5855: p_constraint_id IN NUMBER,
5856: p_constraint_name IN VARCHAR2,
5857: p_position_line_id IN NUMBER := FND_API.G_MISS_NUM,
5858: p_position_id IN NUMBER := FND_API.G_MISS_NUM,
5859: p_position_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
5860: p_budget_year_id IN NUMBER,
5861: p_budget_year_name IN VARCHAR2,
5862: p_currency_code IN VARCHAR2,
5863: p_severity_level IN NUMBER,
5863: p_severity_level IN NUMBER,
5864: p_summ_flag IN VARCHAR2
5865: ) IS
5866:
5867: l_cons_failed VARCHAR2(1) := FND_API.G_FALSE;
5868:
5869: l_posset_total NUMBER := 0;
5870: l_cons_total NUMBER := 0;
5871:
5960: for c_Formula_Rec in c_Formula loop
5961:
5962: l_cons_total := c_Formula_Rec.amount;
5963:
5964: if not FND_API.to_Boolean(p_summ_flag) then
5965: begin
5966:
5967: if FND_API.to_Boolean(p_sp_exists) then
5968: begin
5963:
5964: if not FND_API.to_Boolean(p_summ_flag) then
5965: begin
5966:
5967: if FND_API.to_Boolean(p_sp_exists) then
5968: begin
5969:
5970: for c_Sum_Rec in c_SumSP loop
5971: l_posset_total := c_Sum_Rec.Sum_FTE;
5985: end;
5986: else
5987: begin
5988:
5989: if FND_API.to_Boolean(p_sp_exists) then
5990: begin
5991:
5992: for c_SumAll_Rec in c_SumAllSP loop
5993: l_posset_total := c_SumAll_Rec.Sum_FTE;
6012:
6013: if c_Formula_Rec.prefix_operator = '<=' then
6014:
6015: if l_posset_total <= l_cons_total then
6016: l_cons_failed := FND_API.G_TRUE;
6017: end if;
6018:
6019: elsif c_Formula_Rec.prefix_operator = '>=' then
6020:
6018:
6019: elsif c_Formula_Rec.prefix_operator = '>=' then
6020:
6021: if l_posset_total >= l_cons_total then
6022: l_cons_failed := FND_API.G_TRUE;
6023: end if;
6024:
6025: elsif c_Formula_Rec.prefix_operator = '<' then
6026:
6024:
6025: elsif c_Formula_Rec.prefix_operator = '<' then
6026:
6027: if l_posset_total < l_cons_total then
6028: l_cons_failed := FND_API.G_TRUE;
6029: end if;
6030:
6031: elsif c_Formula_Rec.prefix_operator = '>' then
6032:
6030:
6031: elsif c_Formula_Rec.prefix_operator = '>' then
6032:
6033: if l_posset_total > l_cons_total then
6034: l_cons_failed := FND_API.G_TRUE;
6035: end if;
6036:
6037: elsif c_Formula_Rec.prefix_operator = '=' then
6038:
6036:
6037: elsif c_Formula_Rec.prefix_operator = '=' then
6038:
6039: if l_posset_total = l_cons_total then
6040: l_cons_failed := FND_API.G_TRUE;
6041: end if;
6042:
6043: elsif c_Formula_Rec.prefix_operator = '<>' then
6044:
6042:
6043: elsif c_Formula_Rec.prefix_operator = '<>' then
6044:
6045: if l_posset_total = l_cons_total then
6046: l_cons_failed := FND_API.G_TRUE;
6047: end if;
6048:
6049: end if;
6050:
6050:
6051: end;
6052: end if;
6053:
6054: if FND_API.to_Boolean(l_cons_failed) then
6055: begin
6056:
6057: if nvl(p_severity_level, -1) >= p_constraint_threshold then
6058: p_constraint_validation_status := 'F';
6070: message_token('ASSIGNMENT_VALUE', l_posset_total);
6071: message_token('OPERATOR', c_Formula_Rec.prefix_operator);
6072: message_token('FORMULA_VALUE', l_cons_total);
6073:
6074: if FND_API.to_Boolean(p_summ_flag) then
6075: message_token('NAME', p_constraint_name);
6076: else
6077: message_token('NAME', p_position_name);
6078: end if;
6080: message_token('YEAR', p_budget_year_name);
6081: add_message('PSB', 'PSB_CONSTRAINT_FAILURE');
6082:
6083: l_description := FND_MSG_PUB.Get
6084: (p_encoded => FND_API.G_FALSE);
6085: FND_MSG_PUB.Delete_Msg;
6086:
6087: insert into PSB_ERROR_MESSAGES
6088: (Concurrent_Request_ID,
6107:
6108:
6109: -- Initialize API return status to success
6110:
6111: p_return_status := FND_API.G_RET_STS_SUCCESS;
6112:
6113:
6114: EXCEPTION
6115:
6112:
6113:
6114: EXCEPTION
6115:
6116: when FND_API.G_EXC_ERROR then
6117: p_return_status := FND_API.G_RET_STS_ERROR;
6118:
6119: when FND_API.G_EXC_UNEXPECTED_ERROR then
6120: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6113:
6114: EXCEPTION
6115:
6116: when FND_API.G_EXC_ERROR then
6117: p_return_status := FND_API.G_RET_STS_ERROR;
6118:
6119: when FND_API.G_EXC_UNEXPECTED_ERROR then
6120: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6121:
6115:
6116: when FND_API.G_EXC_ERROR then
6117: p_return_status := FND_API.G_RET_STS_ERROR;
6118:
6119: when FND_API.G_EXC_UNEXPECTED_ERROR then
6120: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6121:
6122: when OTHERS then
6123: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6116: when FND_API.G_EXC_ERROR then
6117: p_return_status := FND_API.G_RET_STS_ERROR;
6118:
6119: when FND_API.G_EXC_UNEXPECTED_ERROR then
6120: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6121:
6122: when OTHERS then
6123: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6124: if FND_MSG_PUB.Check_Msg_Level
6119: when FND_API.G_EXC_UNEXPECTED_ERROR then
6120: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6121:
6122: when OTHERS then
6123: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6124: if FND_MSG_PUB.Check_Msg_Level
6125: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6126: then
6127: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,