[Home] [Help]
232: /* start bug 4256345 */
233: if p_gl_budget_set_id is not null then
234: if not g_ws_gl_budget_set_ccids.exists(p_ccid) then
235: p_ytd_amount := l_ytd_amount;
236: p_return_status := FND_API.G_RET_STS_SUCCESS;
237: return;
238: end if;
239: end if;
240: /* end bug 4256345 */
295: (l_end_date_tbl(l_date_index) between g_gl_budget_periods(l_period_index).start_date and g_gl_budget_periods(l_period_index).end_date))) then
296: begin
297:
298: /* start bug no 4725091 */
299: if l_period_index = 1 and fnd_api.to_boolean(p_incl_gl_fwd_balance) and fnd_api.to_boolean(p_create_wks_flag) then
300:
301: g_period_amount(g_gl_budget_periods(l_period_index).long_sequence_no) :=
302: nvl(g_period_amount(g_gl_budget_periods(l_period_index).long_sequence_no), 0) +
303: nvl(l_period_amount_tbl(l_date_index), 0) +
409: l_oblig_enc_type_id := c_fin_rec.purch_encumbrance_type_id;
410: end loop;
411:
412: -- Extract encumbrance balances, Include Other Encum Balances.
413: IF FND_API.to_Boolean(g_include_gl_other_balance)
414: THEN
415: IF NOT FND_API.to_Boolean(g_include_gl_commit_balance)
416: THEN
417: IF NOT FND_API.to_Boolean(g_include_gl_oblig_balance)
411:
412: -- Extract encumbrance balances, Include Other Encum Balances.
413: IF FND_API.to_Boolean(g_include_gl_other_balance)
414: THEN
415: IF NOT FND_API.to_Boolean(g_include_gl_commit_balance)
416: THEN
417: IF NOT FND_API.to_Boolean(g_include_gl_oblig_balance)
418: THEN
419: dbms_sql.bind_variable(g_cur_encum_balance, ':B_OBLIG_ENC_TYPE_ID', l_oblig_enc_type_id) ;
413: IF FND_API.to_Boolean(g_include_gl_other_balance)
414: THEN
415: IF NOT FND_API.to_Boolean(g_include_gl_commit_balance)
416: THEN
417: IF NOT FND_API.to_Boolean(g_include_gl_oblig_balance)
418: THEN
419: dbms_sql.bind_variable(g_cur_encum_balance, ':B_OBLIG_ENC_TYPE_ID', l_oblig_enc_type_id) ;
420: dbms_sql.bind_variable(g_cur_encum_balance, ':B_COMMIT_ENC_TYPE_ID', l_commit_enc_type_id) ;
421: ELSE
421: ELSE
422: dbms_sql.bind_variable(g_cur_encum_balance, ':B_COMMIT_ENC_TYPE_ID', l_commit_enc_type_id) ;
423: END IF;
424: ELSE
425: IF not FND_API.to_Boolean(g_include_gl_oblig_balance)
426: THEN
427: dbms_sql.bind_variable(g_cur_encum_balance, ':B_OBLIG_ENC_TYPE_ID', l_oblig_enc_type_id) ;
428: END IF ;
429: END IF;
427: dbms_sql.bind_variable(g_cur_encum_balance, ':B_OBLIG_ENC_TYPE_ID', l_oblig_enc_type_id) ;
428: END IF ;
429: END IF;
430: ELSE
431: IF NOT FND_API.to_Boolean(g_include_gl_commit_balance)
432: THEN
433: IF FND_API.to_Boolean(g_include_gl_oblig_balance)
434: THEN
435: dbms_sql.bind_variable(g_cur_encum_balance, ':B_OBLIG_ENC_TYPE_ID', l_oblig_enc_type_id) ;
429: END IF;
430: ELSE
431: IF NOT FND_API.to_Boolean(g_include_gl_commit_balance)
432: THEN
433: IF FND_API.to_Boolean(g_include_gl_oblig_balance)
434: THEN
435: dbms_sql.bind_variable(g_cur_encum_balance, ':B_OBLIG_ENC_TYPE_ID', l_oblig_enc_type_id) ;
436: END IF;
437: ELSE
434: THEN
435: dbms_sql.bind_variable(g_cur_encum_balance, ':B_OBLIG_ENC_TYPE_ID', l_oblig_enc_type_id) ;
436: END IF;
437: ELSE
438: IF NOT FND_API.to_Boolean(g_include_gl_oblig_balance)
439: THEN
440: dbms_sql.bind_variable(g_cur_encum_balance, ':B_COMMIT_ENC_TYPE_ID', l_commit_enc_type_id) ;
441: ELSE
442: dbms_sql.bind_variable(g_cur_encum_balance, ':B_OBLIG_ENC_TYPE_ID', l_oblig_enc_type_id) ;
491: (l_end_date_tbl(l_date_index) between g_gl_actual_periods(l_period_index).start_date and g_gl_actual_periods(l_period_index).end_date))) then
492: begin
493:
494: /* start bug no 4725091 */
495: if l_period_index = 1 and fnd_api.to_boolean(p_incl_gl_fwd_balance) and fnd_api.to_boolean(p_create_wks_flag) then
496: g_period_amount(g_gl_actual_periods(l_period_index).long_sequence_no) :=
497: nvl(g_period_amount(g_gl_actual_periods(l_period_index).long_sequence_no), 0) +
498: nvl(l_period_amount_tbl(l_date_index), 0) +
499: nvl(l_fwd_bal_amt_tbl(l_date_index), 0);
527:
528: -- Initialize API return status to success
529:
530: p_ytd_amount := l_ytd_amount;
531: p_return_status := FND_API.G_RET_STS_SUCCESS;
532:
533:
534: EXCEPTION
535:
532:
533:
534: EXCEPTION
535:
536: when FND_API.G_EXC_ERROR then
537: p_return_status := FND_API.G_RET_STS_ERROR;
538:
539: when FND_API.G_EXC_UNEXPECTED_ERROR then
540: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
533:
534: EXCEPTION
535:
536: when FND_API.G_EXC_ERROR then
537: p_return_status := FND_API.G_RET_STS_ERROR;
538:
539: when FND_API.G_EXC_UNEXPECTED_ERROR then
540: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
541:
535:
536: when FND_API.G_EXC_ERROR then
537: p_return_status := FND_API.G_RET_STS_ERROR;
538:
539: when FND_API.G_EXC_UNEXPECTED_ERROR then
540: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
541:
542: when OTHERS then
543: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
536: when FND_API.G_EXC_ERROR then
537: p_return_status := FND_API.G_RET_STS_ERROR;
538:
539: when FND_API.G_EXC_UNEXPECTED_ERROR then
540: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
541:
542: when OTHERS then
543: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
544: if FND_MSG_PUB.Check_Msg_Level
539: when FND_API.G_EXC_UNEXPECTED_ERROR then
540: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
541:
542: when OTHERS then
543: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
544: if FND_MSG_PUB.Check_Msg_Level
545: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
546: then
547: FND_MSG_PUB.Add_Exc_Msg
618:
619: if p_func_currency <> 'STAT' then
620: g_currency(1) := p_func_currency;
621:
622: if FND_API.to_Boolean(p_incl_stat_bal) then
623: g_currency(2) := 'STAT';
624: end if;
625: else
626: g_currency(1) := 'STAT';
640: p_code_combination_id => p_ccid,
641: p_start_date => p_year_start_date,
642: p_gl_budget_version_id => l_budget_version_id);
643:
644: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
645: raise FND_API.G_EXC_ERROR;
646: end if;
647:
648: if l_budget_version_id is null then
641: p_start_date => p_year_start_date,
642: p_gl_budget_version_id => l_budget_version_id);
643:
644: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
645: raise FND_API.G_EXC_ERROR;
646: end if;
647:
648: if l_budget_version_id is null then
649: begin
658: p_start_date => p_year_start_date,
659: p_gl_budget_version_id => l_budget_version_id,
660: p_dual_posting_type => 'A');
661:
662: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
663: raise FND_API.G_EXC_ERROR;
664: end if;
665:
666: end;
659: p_gl_budget_version_id => l_budget_version_id,
660: p_dual_posting_type => 'A');
661:
662: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
663: raise FND_API.G_EXC_ERROR;
664: end if;
665:
666: end;
667: end if;
694: /* bug no 4725091 */
695: p_incl_gl_fwd_balance => p_incl_gl_fwd_balance,
696: p_create_wks_flag => p_create_wks_flag);
697:
698: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
699: raise FND_API.G_EXC_ERROR;
700: end if;
701:
702: -- Store the Actual Balances for Functional Currency and STAT so that allocation of
695: p_incl_gl_fwd_balance => p_incl_gl_fwd_balance,
696: p_create_wks_flag => p_create_wks_flag);
697:
698: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
699: raise FND_API.G_EXC_ERROR;
700: end if;
701:
702: -- Store the Actual Balances for Functional Currency and STAT so that allocation of
703: -- CY Balances only includes the Estimate part
749: p_return_status => l_return_status,
750: p_account_line_id => l_account_line_id,
751: p_worksheet_id => p_worksheet_id,
752: p_service_package_id => p_service_package_id,
753: p_check_spal_exists => FND_API.G_FALSE,
754: p_gl_cutoff_period => null,
755: p_allocrule_set_id => null,
756: p_budget_calendar_id => null,
757: p_rounding_factor => p_rounding_factor,
767: p_balance_type => l_balance_type,
768: p_ytd_amount => l_ytd_amount,
769: p_period_amount => g_period_amount);
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: for l_init_index in 1..PSB_WS_ACCT1.g_max_num_amounts loop
768: p_ytd_amount => l_ytd_amount,
769: p_period_amount => g_period_amount);
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: for l_init_index in 1..PSB_WS_ACCT1.g_max_num_amounts loop
776: g_period_amount(l_init_index) := null;
790:
791:
792: -- Initialize API return status to success
793:
794: p_return_status := FND_API.G_RET_STS_SUCCESS;
795:
796:
797: EXCEPTION
798:
795:
796:
797: EXCEPTION
798:
799: when FND_API.G_EXC_ERROR then
800: p_return_status := FND_API.G_RET_STS_ERROR;
801:
802: when FND_API.G_EXC_UNEXPECTED_ERROR then
803: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
796:
797: EXCEPTION
798:
799: when FND_API.G_EXC_ERROR then
800: p_return_status := FND_API.G_RET_STS_ERROR;
801:
802: when FND_API.G_EXC_UNEXPECTED_ERROR then
803: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
804:
798:
799: when FND_API.G_EXC_ERROR then
800: p_return_status := FND_API.G_RET_STS_ERROR;
801:
802: when FND_API.G_EXC_UNEXPECTED_ERROR then
803: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
804:
805: when OTHERS then
806: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
799: when FND_API.G_EXC_ERROR then
800: p_return_status := FND_API.G_RET_STS_ERROR;
801:
802: when FND_API.G_EXC_UNEXPECTED_ERROR then
803: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
804:
805: when OTHERS then
806: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
807: if FND_MSG_PUB.Check_Msg_Level
802: when FND_API.G_EXC_UNEXPECTED_ERROR then
803: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
804:
805: when OTHERS then
806: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
807: if FND_MSG_PUB.Check_Msg_Level
808: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
809: then
810: FND_MSG_PUB.Add_Exc_Msg
967: -- have budgetary control turned on.
968: --
969: if p_gl_budget_set_id is null then
970:
971: if (not FND_API.to_Boolean(p_budgetary_control)) then
972: message_token('SOB', p_set_of_books_name);
973: message_token('WORKSHEET_ID', p_worksheet_id);
974: add_message('PSB', 'PSB_BUDGET_VERSION');
975: raise FND_API.G_EXC_ERROR;
971: if (not FND_API.to_Boolean(p_budgetary_control)) then
972: message_token('SOB', p_set_of_books_name);
973: message_token('WORKSHEET_ID', p_worksheet_id);
974: add_message('PSB', 'PSB_BUDGET_VERSION');
975: raise FND_API.G_EXC_ERROR;
976: end if;
977:
978: end if;
979:
1014: p_gl_budget_set_id => p_gl_budget_set_id,
1015: p_incl_adj_period => p_incl_adj_period,
1016: p_map_criteria => g_map_criteria);
1017:
1018: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1019: raise FND_API.G_EXC_ERROR;
1020: end if;
1021:
1022: PSB_WS_ACCT1.DSQL_Actual_Balance
1015: p_incl_adj_period => p_incl_adj_period,
1016: p_map_criteria => g_map_criteria);
1017:
1018: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1019: raise FND_API.G_EXC_ERROR;
1020: end if;
1021:
1022: PSB_WS_ACCT1.DSQL_Actual_Balance
1023: (p_return_status => l_return_status,
1025: p_set_of_books_id => p_set_of_books_id,
1026: p_incl_adj_period => p_incl_adj_period,
1027: p_map_criteria => g_map_criteria);
1028:
1029: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1030: raise FND_API.G_EXC_ERROR;
1031: end if;
1032:
1033: -- Bug#5030613 Start
1026: p_incl_adj_period => p_incl_adj_period,
1027: p_map_criteria => g_map_criteria);
1028:
1029: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1030: raise FND_API.G_EXC_ERROR;
1031: end if;
1032:
1033: -- Bug#5030613 Start
1034: g_include_gl_commit_balance := p_include_gl_commit_balance ;
1047: p_include_gl_other_balance => p_include_gl_other_balance);
1048:
1049: -- Bug#5030613 Start
1050: -- Extract encumbrance balances, Include Other Encum Balances.
1051: IF FND_API.to_Boolean(g_include_gl_other_balance)
1052: THEN
1053: IF not FND_API.to_Boolean(g_include_gl_commit_balance)
1054: THEN
1055: IF not FND_API.to_Boolean(g_include_gl_oblig_balance)
1049: -- Bug#5030613 Start
1050: -- Extract encumbrance balances, Include Other Encum Balances.
1051: IF FND_API.to_Boolean(g_include_gl_other_balance)
1052: THEN
1053: IF not FND_API.to_Boolean(g_include_gl_commit_balance)
1054: THEN
1055: IF not FND_API.to_Boolean(g_include_gl_oblig_balance)
1056: THEN
1057: g_sql_encum_balance := g_sql_encum_balance ||
1051: IF FND_API.to_Boolean(g_include_gl_other_balance)
1052: THEN
1053: IF not FND_API.to_Boolean(g_include_gl_commit_balance)
1054: THEN
1055: IF not FND_API.to_Boolean(g_include_gl_oblig_balance)
1056: THEN
1057: g_sql_encum_balance := g_sql_encum_balance ||
1058: 'and gb.encumbrance_type_id not in ( :b_oblig_enc_type_id, :b_commit_enc_type_id ) ';
1059: ELSE
1060: g_sql_encum_balance := g_sql_encum_balance ||
1061: 'and gb.encumbrance_type_id not in ( :b_commit_enc_type_id ) ';
1062: END IF;
1063: ELSE
1064: IF NOT FND_API.to_Boolean(g_include_gl_oblig_balance)
1065: THEN
1066: g_sql_encum_balance := g_sql_encum_balance ||
1067: 'and gb.encumbrance_type_id not in ( :b_oblig_enc_type_id ) ';
1068: END IF;
1067: 'and gb.encumbrance_type_id not in ( :b_oblig_enc_type_id ) ';
1068: END IF;
1069: END IF;
1070: ELSE
1071: IF NOT FND_API.to_Boolean(g_include_gl_commit_balance)
1072: THEN
1073: IF FND_API.to_Boolean(g_include_gl_oblig_balance)
1074: THEN
1075: g_sql_encum_balance := g_sql_encum_balance ||
1069: END IF;
1070: ELSE
1071: IF NOT FND_API.to_Boolean(g_include_gl_commit_balance)
1072: THEN
1073: IF FND_API.to_Boolean(g_include_gl_oblig_balance)
1074: THEN
1075: g_sql_encum_balance := g_sql_encum_balance ||
1076: 'and gb.encumbrance_type_id in ( :b_oblig_enc_type_id ) ';
1077: END IF;
1075: g_sql_encum_balance := g_sql_encum_balance ||
1076: 'and gb.encumbrance_type_id in ( :b_oblig_enc_type_id ) ';
1077: END IF;
1078: ELSE
1079: IF not FND_API.to_Boolean(g_include_gl_oblig_balance)
1080: THEN
1081: g_sql_encum_balance := g_sql_encum_balance ||
1082: 'and gb.encumbrance_type_id in ( :b_commit_enc_type_id ) ';
1083: ELSE
1087: END IF;
1088: END IF;
1089: -- Bug#5030613 End
1090:
1091: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1092: raise FND_API.G_EXC_ERROR;
1093: end if;
1094:
1095: /* start bug 4256345 */
1088: END IF;
1089: -- Bug#5030613 End
1090:
1091: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1092: raise FND_API.G_EXC_ERROR;
1093: end if;
1094:
1095: /* start bug 4256345 */
1096: IF p_gl_budget_set_id IS NOT NULL THEN
1096: IF p_gl_budget_set_id IS NOT NULL THEN
1097: check_ccid_bal (x_return_status => l_return_status,
1098: p_gl_budget_set_id => p_gl_budget_set_id);
1099:
1100: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1101: RAISE FND_API.G_EXC_ERROR;
1102: END IF;
1103: END IF;
1104: /* end bug 4256345 */
1097: check_ccid_bal (x_return_status => l_return_status,
1098: p_gl_budget_set_id => p_gl_budget_set_id);
1099:
1100: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1101: RAISE FND_API.G_EXC_ERROR;
1102: END IF;
1103: END IF;
1104: /* end bug 4256345 */
1105:
1117:
1118: g_balance_type(1) := 'A';
1119: g_balance_type(2) := 'B';
1120:
1121: if ((FND_API.to_Boolean(p_include_gl_commit_balance)) or
1122: (FND_API.to_Boolean(p_include_gl_oblig_balance)) or
1123: (FND_API.to_Boolean(p_include_gl_other_balance))) then
1124: g_balance_type(3) := 'E';
1125: end if;
1118: g_balance_type(1) := 'A';
1119: g_balance_type(2) := 'B';
1120:
1121: if ((FND_API.to_Boolean(p_include_gl_commit_balance)) or
1122: (FND_API.to_Boolean(p_include_gl_oblig_balance)) or
1123: (FND_API.to_Boolean(p_include_gl_other_balance))) then
1124: g_balance_type(3) := 'E';
1125: end if;
1126:
1119: g_balance_type(2) := 'B';
1120:
1121: if ((FND_API.to_Boolean(p_include_gl_commit_balance)) or
1122: (FND_API.to_Boolean(p_include_gl_oblig_balance)) or
1123: (FND_API.to_Boolean(p_include_gl_other_balance))) then
1124: g_balance_type(3) := 'E';
1125: end if;
1126:
1127: for c_BudGrp_Rec in c_BudGrp (p_budget_group_id) loop
1169: p_ccid => l_ccids.ccid(l_ccid_index),
1170: p_budget_group_id => c_BudGrp_Rec.budget_group_id
1171: ) ;
1172: --
1173: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1174: raise FND_API.G_EXC_ERROR;
1175: end if;
1176:
1177: g_actuals_func_total := 0;
1170: p_budget_group_id => c_BudGrp_Rec.budget_group_id
1171: ) ;
1172: --
1173: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1174: raise FND_API.G_EXC_ERROR;
1175: end if;
1176:
1177: g_actuals_func_total := 0;
1178: g_actuals_stat_total := 0;
1329: p_sequence_number => p_start_stage_seq,
1330: p_rounding_factor => p_rounding_factor,
1331: /* bug no 4725091 */
1332: p_incl_gl_fwd_balance => p_incl_gl_fwd_balance,
1333: p_create_wks_flag => fnd_api.g_true ) ;
1334:
1335: --
1336: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1337: raise FND_API.G_EXC_ERROR;
1332: p_incl_gl_fwd_balance => p_incl_gl_fwd_balance,
1333: p_create_wks_flag => fnd_api.g_true ) ;
1334:
1335: --
1336: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1337: raise FND_API.G_EXC_ERROR;
1338: end if;
1339:
1340: end if;
1333: p_create_wks_flag => fnd_api.g_true ) ;
1334:
1335: --
1336: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1337: raise FND_API.G_EXC_ERROR;
1338: end if;
1339:
1340: end if;
1341: -- End processing PY and CY balances.
1361:
1362: -- Compute CY and PP Balances for CCID by applying Parameters
1363: IF ( l_ccid_type <> 'PERSONNEL_SERVICES'
1364: AND
1365: fnd_api.to_boolean(p_budget_by_position)
1366: )
1367: OR
1368: NOT fnd_api.to_boolean(p_budget_by_position)
1369: THEN
1364: AND
1365: fnd_api.to_boolean(p_budget_by_position)
1366: )
1367: OR
1368: NOT fnd_api.to_boolean(p_budget_by_position)
1369: THEN
1370:
1371: Apply_Account_Parameters
1372: ( p_api_version => 1.0,
1392: p_budget_calendar_id => p_budget_calendar_id,
1393: p_budget_by_position => p_budget_by_position
1394: ) ;
1395: --
1396: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1397: RAISE FND_API.G_EXC_ERROR;
1398: END IF ;
1399: --
1400: END IF ;
1393: p_budget_by_position => p_budget_by_position
1394: ) ;
1395: --
1396: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1397: RAISE FND_API.G_EXC_ERROR;
1398: END IF ;
1399: --
1400: END IF ;
1401:
1450: p_budget_calendar_id => p_budget_calendar_id,
1451: p_budget_by_position => p_budget_by_position
1452: ) ;
1453:
1454: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1455: raise FND_API.G_EXC_ERROR;
1456: end if;
1457:
1458: end if;
1451: p_budget_by_position => p_budget_by_position
1452: ) ;
1453:
1454: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1455: raise FND_API.G_EXC_ERROR;
1456: end if;
1457:
1458: end if;
1459:
1463:
1464:
1465: -- Initialize API return status to success
1466:
1467: p_return_status := FND_API.G_RET_STS_SUCCESS;
1468:
1469:
1470: EXCEPTION
1471:
1468:
1469:
1470: EXCEPTION
1471:
1472: when FND_API.G_EXC_ERROR then
1473: p_return_status := FND_API.G_RET_STS_ERROR;
1474:
1475: if dbms_sql.is_open(g_cur_budget_balance) then
1476: dbms_sql.close_cursor(g_cur_budget_balance);
1469:
1470: EXCEPTION
1471:
1472: when FND_API.G_EXC_ERROR then
1473: p_return_status := FND_API.G_RET_STS_ERROR;
1474:
1475: if dbms_sql.is_open(g_cur_budget_balance) then
1476: dbms_sql.close_cursor(g_cur_budget_balance);
1477: end if;
1493: close l_ccid_csr;
1494: end if;
1495:
1496:
1497: when FND_API.G_EXC_UNEXPECTED_ERROR then
1498: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1499:
1500: if dbms_sql.is_open(g_cur_budget_balance) then
1501: dbms_sql.close_cursor(g_cur_budget_balance);
1494: end if;
1495:
1496:
1497: when FND_API.G_EXC_UNEXPECTED_ERROR then
1498: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1499:
1500: if dbms_sql.is_open(g_cur_budget_balance) then
1501: dbms_sql.close_cursor(g_cur_budget_balance);
1502: end if;
1519: end if;
1520:
1521:
1522: when OTHERS then
1523: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1524:
1525: if dbms_sql.is_open(g_cur_budget_balance) then
1526: dbms_sql.close_cursor(g_cur_budget_balance);
1527: end if;
1581: l_spread_amount NUMBER;
1582: --
1583: BEGIN
1584: --
1585: x_return_status := FND_API.G_RET_STS_SUCCESS ;
1586: --
1587:
1588: -- Initialize variables.
1589: l_spread_amount := p_spread_amount ;
1672:
1673: EXCEPTION
1674: WHEN OTHERS THEN
1675: --
1676: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1677: --
1678: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
1679: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
1680: l_api_name ) ;
2326: p_spread_amount => l_ytd_spread_amount ,
2327: x_period_amount => l_period_amount
2328: ) ;
2329: --
2330: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2331: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2332: END IF ;
2333: --
2334:
2327: x_period_amount => l_period_amount
2328: ) ;
2329: --
2330: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2331: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2332: END IF ;
2333: --
2334:
2335: END IF ;
2372: p_worksheet_id => p_worksheet_id,
2373: p_service_package_id => p_service_package_id,
2374: /* bug start 3996052 */
2375: -- changing the check spal line to true
2376: p_check_spal_exists => FND_API.G_TRUE,
2377: /* bug end : 3996052 */
2378: p_gl_cutoff_period => null,
2379: p_allocrule_set_id => null,
2380: p_budget_calendar_id => null,
2393: p_update_cy_estimate => 'Y'
2394: /* bug end 3996052 */
2395: ) ;
2396: --
2397: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2398: raise FND_API.G_EXC_ERROR;
2399: end if;
2400:
2401: end if;
2394: /* bug end 3996052 */
2395: ) ;
2396: --
2397: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2398: raise FND_API.G_EXC_ERROR;
2399: end if;
2400:
2401: end if;
2402:
2400:
2401: end if;
2402:
2403: -- Initialize API return status to success
2404: p_return_status := FND_API.G_RET_STS_SUCCESS;
2405:
2406: EXCEPTION
2407: --
2408: WHEN FND_API.G_EXC_ERROR THEN
2404: p_return_status := FND_API.G_RET_STS_SUCCESS;
2405:
2406: EXCEPTION
2407: --
2408: WHEN FND_API.G_EXC_ERROR THEN
2409: p_return_status := FND_API.G_RET_STS_ERROR;
2410: --
2411: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2412: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2405:
2406: EXCEPTION
2407: --
2408: WHEN FND_API.G_EXC_ERROR THEN
2409: p_return_status := FND_API.G_RET_STS_ERROR;
2410: --
2411: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2412: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2413: --
2407: --
2408: WHEN FND_API.G_EXC_ERROR THEN
2409: p_return_status := FND_API.G_RET_STS_ERROR;
2410: --
2411: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2412: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2413: --
2414: WHEN OTHERS THEN
2415: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2408: WHEN FND_API.G_EXC_ERROR THEN
2409: p_return_status := FND_API.G_RET_STS_ERROR;
2410: --
2411: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2412: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2413: --
2414: WHEN OTHERS THEN
2415: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2416: --
2411: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2412: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2413: --
2414: WHEN OTHERS THEN
2415: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2416: --
2417: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2418: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
2419: 'Update_CY_Estimates') ;
2431: -- per GL cut off date.
2432: --
2433: PROCEDURE Update_GL_Balances
2434: ( p_api_version IN NUMBER,
2435: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE,
2436: p_return_status OUT NOCOPY VARCHAR2,
2437: p_worksheet_id IN NUMBER
2438: )
2439: IS
2518: --
2519: BEGIN
2520:
2521: -- Standard call to check for call compatibility
2522: if not FND_API.Compatible_API_Call (l_api_version,
2523: p_api_version,
2524: l_api_name,
2525: G_PKG_NAME)
2526: then
2523: p_api_version,
2524: l_api_name,
2525: G_PKG_NAME)
2526: then
2527: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2528: end if;
2529:
2530: -- Get worksheet info.
2531: FOR l_ws_rec IN
2570:
2571: -- Substitute parameter input values that were passed in
2572:
2573: if (l_incl_stat_bal is null or l_incl_stat_bal = 'N') then
2574: l_incl_stat_bal := FND_API.G_FALSE;
2575: else
2576: l_incl_stat_bal := FND_API.G_TRUE;
2577: end if;
2578:
2572:
2573: if (l_incl_stat_bal is null or l_incl_stat_bal = 'N') then
2574: l_incl_stat_bal := FND_API.G_FALSE;
2575: else
2576: l_incl_stat_bal := FND_API.G_TRUE;
2577: end if;
2578:
2579: if (l_incl_trans_bal is null or l_incl_trans_bal = 'N') then
2580: l_incl_trans_bal := FND_API.G_FALSE;
2576: l_incl_stat_bal := FND_API.G_TRUE;
2577: end if;
2578:
2579: if (l_incl_trans_bal is null or l_incl_trans_bal = 'N') then
2580: l_incl_trans_bal := FND_API.G_FALSE;
2581: else
2582: l_incl_trans_bal := FND_API.G_TRUE;
2583: end if;
2584:
2578:
2579: if (l_incl_trans_bal is null or l_incl_trans_bal = 'N') then
2580: l_incl_trans_bal := FND_API.G_FALSE;
2581: else
2582: l_incl_trans_bal := FND_API.G_TRUE;
2583: end if;
2584:
2585: if (l_incl_adj_period is null or l_incl_adj_period = 'N') then
2586: l_incl_adj_period := FND_API.G_FALSE;
2582: l_incl_trans_bal := FND_API.G_TRUE;
2583: end if;
2584:
2585: if (l_incl_adj_period is null or l_incl_adj_period = 'N') then
2586: l_incl_adj_period := FND_API.G_FALSE;
2587: else
2588: l_incl_adj_period := FND_API.G_TRUE;
2589: end if;
2590:
2584:
2585: if (l_incl_adj_period is null or l_incl_adj_period = 'N') then
2586: l_incl_adj_period := FND_API.G_FALSE;
2587: else
2588: l_incl_adj_period := FND_API.G_TRUE;
2589: end if;
2590:
2591: if (l_include_gl_commit_balance is null or l_include_gl_commit_balance = 'N')
2592: then
2589: end if;
2590:
2591: if (l_include_gl_commit_balance is null or l_include_gl_commit_balance = 'N')
2592: then
2593: l_include_gl_commit_balance := FND_API.G_FALSE;
2594: else
2595: l_include_gl_commit_balance := FND_API.G_TRUE;
2596: end if;
2597:
2591: if (l_include_gl_commit_balance is null or l_include_gl_commit_balance = 'N')
2592: then
2593: l_include_gl_commit_balance := FND_API.G_FALSE;
2594: else
2595: l_include_gl_commit_balance := FND_API.G_TRUE;
2596: end if;
2597:
2598: if (l_include_gl_oblig_balance is null or l_include_gl_oblig_balance = 'N')
2599: then
2596: end if;
2597:
2598: if (l_include_gl_oblig_balance is null or l_include_gl_oblig_balance = 'N')
2599: then
2600: l_include_gl_oblig_balance := FND_API.G_FALSE;
2601: else
2602: l_include_gl_oblig_balance := FND_API.G_TRUE;
2603: end if;
2604:
2598: if (l_include_gl_oblig_balance is null or l_include_gl_oblig_balance = 'N')
2599: then
2600: l_include_gl_oblig_balance := FND_API.G_FALSE;
2601: else
2602: l_include_gl_oblig_balance := FND_API.G_TRUE;
2603: end if;
2604:
2605: if (l_include_gl_other_balance is null or l_include_gl_other_balance = 'N')
2606: then
2603: end if;
2604:
2605: if (l_include_gl_other_balance is null or l_include_gl_other_balance = 'N')
2606: then
2607: l_include_gl_other_balance := FND_API.G_FALSE;
2608: else
2609: l_include_gl_other_balance := FND_API.G_TRUE;
2610: end if;
2611:
2605: if (l_include_gl_other_balance is null or l_include_gl_other_balance = 'N')
2606: then
2607: l_include_gl_other_balance := FND_API.G_FALSE;
2608: else
2609: l_include_gl_other_balance := FND_API.G_TRUE;
2610: end if;
2611:
2612: -- Get service package info.
2613: FOR l_sp_rec IN
2655: l_budgetary_control := l_sob_rec.enable_budgetary_control_flag;
2656: END LOOP;
2657:
2658: if (l_budgetary_control is null or l_budgetary_control = 'N') then
2659: l_budgetary_control := FND_API.G_FALSE;
2660: else
2661: l_budgetary_control := FND_API.G_TRUE;
2662: end if;
2663:
2657:
2658: if (l_budgetary_control is null or l_budgetary_control = 'N') then
2659: l_budgetary_control := FND_API.G_FALSE;
2660: else
2661: l_budgetary_control := FND_API.G_TRUE;
2662: end if;
2663:
2664: -- If a budget set is not assigned to worksheet, a funding budget must be
2665: -- entered when Budgetary Control is not enabled for the Set of Books.
2664: -- If a budget set is not assigned to worksheet, a funding budget must be
2665: -- entered when Budgetary Control is not enabled for the Set of Books.
2666: if l_gl_budget_set_id is null then
2667:
2668: if (not FND_API.to_Boolean(l_budgetary_control)) then
2669: message_token('SOB', l_set_of_books_name);
2670: message_token('WORKSHEET_ID', p_worksheet_id);
2671: add_message('PSB', 'PSB_BUDGET_VERSION');
2672: raise FND_API.G_EXC_ERROR;
2668: if (not FND_API.to_Boolean(l_budgetary_control)) then
2669: message_token('SOB', l_set_of_books_name);
2670: message_token('WORKSHEET_ID', p_worksheet_id);
2671: add_message('PSB', 'PSB_BUDGET_VERSION');
2672: raise FND_API.G_EXC_ERROR;
2673: end if;
2674:
2675: end if;
2676:
2678: IF l_gl_budget_set_id IS NOT NULL THEN
2679: check_ccid_bal (x_return_status => l_return_status,
2680: p_gl_budget_set_id => l_gl_budget_set_id);
2681:
2682: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2683: RAISE FND_API.G_EXC_ERROR;
2684: END IF;
2685: END IF;
2686: /* end bug 4256345 */
2679: check_ccid_bal (x_return_status => l_return_status,
2680: p_gl_budget_set_id => l_gl_budget_set_id);
2681:
2682: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2683: RAISE FND_API.G_EXC_ERROR;
2684: END IF;
2685: END IF;
2686: /* end bug 4256345 */
2687:
2723: p_gl_budget_set_id => l_gl_budget_set_id,
2724: p_incl_adj_period => l_incl_adj_period,
2725: p_map_criteria => g_map_criteria);
2726:
2727: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2728: raise FND_API.G_EXC_ERROR;
2729: end if;
2730:
2731: PSB_WS_ACCT1.DSQL_Actual_Balance
2724: p_incl_adj_period => l_incl_adj_period,
2725: p_map_criteria => g_map_criteria);
2726:
2727: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2728: raise FND_API.G_EXC_ERROR;
2729: end if;
2730:
2731: PSB_WS_ACCT1.DSQL_Actual_Balance
2732: (p_return_status => l_return_status,
2734: p_set_of_books_id => l_set_of_books_id,
2735: p_incl_adj_period => l_incl_adj_period,
2736: p_map_criteria => g_map_criteria);
2737:
2738: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2739: raise FND_API.G_EXC_ERROR;
2740: end if;
2741:
2742: -- Bug#5030613 Start
2735: p_incl_adj_period => l_incl_adj_period,
2736: p_map_criteria => g_map_criteria);
2737:
2738: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2739: raise FND_API.G_EXC_ERROR;
2740: end if;
2741:
2742: -- Bug#5030613 Start
2743: g_include_gl_commit_balance := l_include_gl_commit_balance ;
2754: p_include_gl_commit_balance => l_include_gl_commit_balance,
2755: p_include_gl_oblig_balance => l_include_gl_oblig_balance,
2756: p_include_gl_other_balance => l_include_gl_other_balance);
2757:
2758: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2759: raise FND_API.G_EXC_ERROR;
2760: end if;
2761:
2762: -- Bug#5030613 Start
2755: p_include_gl_oblig_balance => l_include_gl_oblig_balance,
2756: p_include_gl_other_balance => l_include_gl_other_balance);
2757:
2758: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2759: raise FND_API.G_EXC_ERROR;
2760: end if;
2761:
2762: -- Bug#5030613 Start
2763: -- Extract encumbrance balances, Include Other Encum Balances.
2760: end if;
2761:
2762: -- Bug#5030613 Start
2763: -- Extract encumbrance balances, Include Other Encum Balances.
2764: IF FND_API.to_Boolean(g_include_gl_other_balance)
2765: THEN
2766: IF not FND_API.to_Boolean(g_include_gl_commit_balance)
2767: THEN
2768: IF not FND_API.to_Boolean(g_include_gl_oblig_balance)
2762: -- Bug#5030613 Start
2763: -- Extract encumbrance balances, Include Other Encum Balances.
2764: IF FND_API.to_Boolean(g_include_gl_other_balance)
2765: THEN
2766: IF not FND_API.to_Boolean(g_include_gl_commit_balance)
2767: THEN
2768: IF not FND_API.to_Boolean(g_include_gl_oblig_balance)
2769: THEN
2770: g_sql_encum_balance := g_sql_encum_balance ||
2764: IF FND_API.to_Boolean(g_include_gl_other_balance)
2765: THEN
2766: IF not FND_API.to_Boolean(g_include_gl_commit_balance)
2767: THEN
2768: IF not FND_API.to_Boolean(g_include_gl_oblig_balance)
2769: THEN
2770: g_sql_encum_balance := g_sql_encum_balance ||
2771: 'and gb.encumbrance_type_id not in ( :b_oblig_enc_type_id, :b_commit_enc_type_id ) ';
2772: ELSE
2773: g_sql_encum_balance := g_sql_encum_balance ||
2774: 'and gb.encumbrance_type_id not in ( :b_commit_enc_type_id ) ';
2775: END IF;
2776: ELSE
2777: IF NOT FND_API.to_Boolean(g_include_gl_oblig_balance)
2778: THEN
2779: g_sql_encum_balance := g_sql_encum_balance ||
2780: 'and gb.encumbrance_type_id not in ( :b_oblig_enc_type_id ) ';
2781: END IF;
2780: 'and gb.encumbrance_type_id not in ( :b_oblig_enc_type_id ) ';
2781: END IF;
2782: END IF;
2783: ELSE
2784: IF NOT FND_API.to_Boolean(g_include_gl_commit_balance)
2785: THEN
2786: IF FND_API.to_Boolean(g_include_gl_oblig_balance)
2787: THEN
2788: g_sql_encum_balance := g_sql_encum_balance ||
2782: END IF;
2783: ELSE
2784: IF NOT FND_API.to_Boolean(g_include_gl_commit_balance)
2785: THEN
2786: IF FND_API.to_Boolean(g_include_gl_oblig_balance)
2787: THEN
2788: g_sql_encum_balance := g_sql_encum_balance ||
2789: 'and gb.encumbrance_type_id in ( :b_oblig_enc_type_id ) ';
2790: END IF;
2788: g_sql_encum_balance := g_sql_encum_balance ||
2789: 'and gb.encumbrance_type_id in ( :b_oblig_enc_type_id ) ';
2790: END IF;
2791: ELSE
2792: IF not FND_API.to_Boolean(g_include_gl_oblig_balance)
2793: THEN
2794: g_sql_encum_balance := g_sql_encum_balance ||
2795: 'and gb.encumbrance_type_id in ( :b_commit_enc_type_id ) ';
2796: ELSE
2810: g_cur_encum_balance := dbms_sql.open_cursor;
2811: dbms_sql.parse(g_cur_encum_balance, g_sql_encum_balance, dbms_sql.v7);
2812:
2813: if l_budget_calendar_id <> NVL( PSB_WS_ACCT1.g_budget_calendar_id,
2814: FND_API.G_MISS_NUM)
2815: then
2816:
2817: PSB_WS_ACCT1.Cache_Budget_Calendar
2818: ( p_return_status => l_return_status,
2818: ( p_return_status => l_return_status,
2819: p_budget_calendar_id => l_budget_calendar_id
2820: ) ;
2821: --
2822: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2823: raise FND_API.G_EXC_ERROR;
2824: end if;
2825:
2826: end if;
2819: p_budget_calendar_id => l_budget_calendar_id
2820: ) ;
2821: --
2822: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2823: raise FND_API.G_EXC_ERROR;
2824: end if;
2825:
2826: end if;
2827:
2836:
2837: g_balance_type(1) := 'A';
2838: g_balance_type(2) := 'B';
2839:
2840: if ( FND_API.to_Boolean(l_include_gl_commit_balance) or
2841: FND_API.to_Boolean(l_include_gl_oblig_balance) or
2842: FND_API.to_Boolean(l_include_gl_other_balance) )
2843: then
2844: g_balance_type(3) := 'E';
2837: g_balance_type(1) := 'A';
2838: g_balance_type(2) := 'B';
2839:
2840: if ( FND_API.to_Boolean(l_include_gl_commit_balance) or
2841: FND_API.to_Boolean(l_include_gl_oblig_balance) or
2842: FND_API.to_Boolean(l_include_gl_other_balance) )
2843: then
2844: g_balance_type(3) := 'E';
2845: end if;
2838: g_balance_type(2) := 'B';
2839:
2840: if ( FND_API.to_Boolean(l_include_gl_commit_balance) or
2841: FND_API.to_Boolean(l_include_gl_oblig_balance) or
2842: FND_API.to_Boolean(l_include_gl_other_balance) )
2843: then
2844: g_balance_type(3) := 'E';
2845: end if;
2846:
3007: p_service_package_id => l_service_package_id,
3008: p_sequence_number => l_current_stage_seq,
3009: p_rounding_factor => l_rounding_factor,
3010: /* bug no 4725091 */
3011: p_incl_gl_fwd_balance => fnd_api.g_false,
3012: p_create_wks_flag => fnd_api.g_false
3013: ) ;
3014: --
3015: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3008: p_sequence_number => l_current_stage_seq,
3009: p_rounding_factor => l_rounding_factor,
3010: /* bug no 4725091 */
3011: p_incl_gl_fwd_balance => fnd_api.g_false,
3012: p_create_wks_flag => fnd_api.g_false
3013: ) ;
3014: --
3015: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3016: raise FND_API.G_EXC_ERROR;
3011: p_incl_gl_fwd_balance => fnd_api.g_false,
3012: p_create_wks_flag => fnd_api.g_false
3013: ) ;
3014: --
3015: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3016: raise FND_API.G_EXC_ERROR;
3017: end if;
3018:
3019: -- Bug#3545533: Update CY estimates only for non-pos accounts.
3012: p_create_wks_flag => fnd_api.g_false
3013: ) ;
3014: --
3015: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3016: raise FND_API.G_EXC_ERROR;
3017: end if;
3018:
3019: -- Bug#3545533: Update CY estimates only for non-pos accounts.
3020: l_process_cy_estimates := 'Y' ;
3047: p_ccid => l_ccids.ccid(l_ccid_index),
3048: p_currency_code => l_func_currency
3049: ) ;
3050: --
3051: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3052: RAISE FND_API.G_EXC_ERROR;
3053: END IF ;
3054: -- Bug#2529886: End
3055:
3048: p_currency_code => l_func_currency
3049: ) ;
3050: --
3051: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3052: RAISE FND_API.G_EXC_ERROR;
3053: END IF ;
3054: -- Bug#2529886: End
3055:
3056: END IF ;
3091: dbms_sql.close_cursor(g_cur_actual_balance);
3092: dbms_sql.close_cursor(g_cur_encum_balance);
3093:
3094: -- Initialize API return status to success
3095: p_return_status := FND_API.G_RET_STS_SUCCESS;
3096:
3097: EXCEPTION
3098:
3099: when FND_API.G_EXC_ERROR then
3095: p_return_status := FND_API.G_RET_STS_SUCCESS;
3096:
3097: EXCEPTION
3098:
3099: when FND_API.G_EXC_ERROR then
3100: p_return_status := FND_API.G_RET_STS_ERROR;
3101:
3102: if dbms_sql.is_open(g_cur_budget_balance) then
3103: dbms_sql.close_cursor(g_cur_budget_balance);
3096:
3097: EXCEPTION
3098:
3099: when FND_API.G_EXC_ERROR then
3100: p_return_status := FND_API.G_RET_STS_ERROR;
3101:
3102: if dbms_sql.is_open(g_cur_budget_balance) then
3103: dbms_sql.close_cursor(g_cur_budget_balance);
3104: end if;
3114: if c_ccids%ISOPEN then
3115: close c_ccids;
3116: end if;
3117:
3118: when FND_API.G_EXC_UNEXPECTED_ERROR then
3119: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3120:
3121: if dbms_sql.is_open(g_cur_budget_balance) then
3122: dbms_sql.close_cursor(g_cur_budget_balance);
3115: close c_ccids;
3116: end if;
3117:
3118: when FND_API.G_EXC_UNEXPECTED_ERROR then
3119: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3120:
3121: if dbms_sql.is_open(g_cur_budget_balance) then
3122: dbms_sql.close_cursor(g_cur_budget_balance);
3123: end if;
3134: close c_ccids;
3135: end if;
3136:
3137: when OTHERS then
3138: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3139:
3140: if dbms_sql.is_open(g_cur_budget_balance) then
3141: dbms_sql.close_cursor(g_cur_budget_balance);
3142: end if;
3182: /* end bug no 4256345 */
3183: ) RETURN NUMBER IS
3184:
3185: l_mapped_ccid NUMBER;
3186: l_ytd_amount NUMBER := FND_API.G_MISS_NUM;
3187:
3188: /* start bug 4256345 */
3189: l_budget_year_id NUMBER;
3190: /* end bug 4256345 */
3393: PSB_WS_ACCT1.Flex_Info
3394: (p_flex_code => p_flex_code,
3395: p_return_status => l_return_status);
3396:
3397: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3398: raise FND_API.G_EXC_ERROR;
3399: end if;
3400:
3401: end;
3394: (p_flex_code => p_flex_code,
3395: p_return_status => l_return_status);
3396:
3397: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3398: raise FND_API.G_EXC_ERROR;
3399: end if;
3400:
3401: end;
3402: end if;
3411: n_segments => PSB_WS_ACCT1.g_num_segs,
3412: segments => l_ccid_val) then
3413:
3414: FND_MSG_PUB.Add;
3415: raise FND_API.G_EXC_ERROR;
3416: end if;
3417:
3418: for c_Formula_Rec in c_Formula loop
3419:
3459: message_token('PARAMETER', p_parameter_name);
3460: message_token('STEPID', c_Formula_Rec.step_number);
3461: message_token('OPERATOR', '[=]');
3462: add_message('PSB', 'PSB_INVALID_PARAM_OPR');
3463: raise FND_API.G_EXC_ERROR;
3464: end if;
3465:
3466: end;
3467: else
3471: message_token('PARAMETER', p_parameter_name);
3472: message_token('STEPID', c_Formula_Rec.step_number);
3473: message_token('OPERATOR', '[+, -, *, /]');
3474: add_message('PSB', 'PSB_INVALID_PARAM_OPR');
3475: raise FND_API.G_EXC_ERROR;
3476: end if;
3477:
3478: end;
3479: end if;
3557: else
3558: begin
3559: message_token('PARAMETER', p_parameter_name);
3560: add_message('PSB', 'PSB_INVALID_PARAM_FORMULA');
3561: raise FND_API.G_EXC_ERROR;
3562: end;
3563: end if;
3564:
3565: if l_type1 then
3580: /* bug no 4256345 */);
3581:
3582: /* Bug 3499337 start */
3583: -- Reset the l_ytd_amount to 0 when no line found
3584: if l_ytd_amount = FND_API.G_MISS_NUM OR l_ytd_amount IS NULL then
3585: l_ytd_amount := 0;
3586: end if;
3587:
3588: -- Comment out the following condition since the case will never existed.
3585: l_ytd_amount := 0;
3586: end if;
3587:
3588: -- Comment out the following condition since the case will never existed.
3589: -- if l_ytd_amount <> FND_API.G_MISS_NUM then
3590: -- begin
3591: /* Bug 3499337 end */
3592:
3593: if c_Formula_Rec.postfix_operator = '+' then
3598: begin
3599:
3600: l_line_total := l_ytd_amount * c_Formula_Rec.amount;
3601:
3602: if FND_API.to_Boolean(p_compound_annually) then
3603: l_compound_total := l_ytd_amount * POWER(c_Formula_Rec.amount, p_compound_factor);
3604: end if;
3605:
3606: end;
3619: else
3620: begin
3621: message_token('PARAMETER', p_parameter_name);
3622: add_message('PSB', 'PSB_INVALID_PARAM_FORMULA');
3623: raise FND_API.G_EXC_ERROR;
3624: end;
3625: end if;
3626:
3627: -- Bug 3499337: comment out the following lines
3822: /* bug no 4256345 */);
3823:
3824: /* Bug 3499337 start */
3825: -- Reset the l_ytd_amount to 0 when no line found
3826: if l_ytd_amount = FND_API.G_MISS_NUM OR l_ytd_amount IS NULL then
3827: l_ytd_amount := 0;
3828: end if;
3829:
3830: -- Comment out the following condition since the case will never existed.
3827: l_ytd_amount := 0;
3828: end if;
3829:
3830: -- Comment out the following condition since the case will never existed.
3831: -- if l_ytd_amount <> FND_API.G_MISS_NUM then
3832: -- begin
3833: /* Bug 3499337 end */
3834:
3835: l_ccid_found := TRUE;
3842: begin
3843:
3844: l_line_total := l_ytd_amount * c_Formula_Rec.amount;
3845:
3846: if FND_API.to_Boolean(p_compound_annually) then
3847: l_compound_total := l_ytd_amount * POWER(c_Formula_Rec.amount, p_compound_factor);
3848: end if;
3849:
3850: end;
3871: -- If YTD Balance for the dependent CCID is not computed as yet, populate the structures
3872: -- for the deferred CCIDs
3873:
3874: if ((not l_ccid_found) and
3875: (FND_API.to_Boolean(p_defer_ccids))) then
3876: begin
3877:
3878: if not l_deferred then
3879: l_deferred := TRUE;
3938: -- Compound Annually is applicable only for a single line Type1 or Type2 Formula
3939:
3940: if ((l_num_lines = 1) and
3941: ((l_type1) or (l_type2)) and
3942: (FND_API.to_Boolean(p_compound_annually))) then
3943: g_running_total := l_compound_total;
3944: end if;
3945:
3946: -- Initialize API return status to success
3944: end if;
3945:
3946: -- Initialize API return status to success
3947:
3948: p_return_status := FND_API.G_RET_STS_SUCCESS;
3949: p_deferred := l_deferred;
3950:
3951:
3952: EXCEPTION
3950:
3951:
3952: EXCEPTION
3953:
3954: when FND_API.G_EXC_ERROR then
3955: p_return_status := FND_API.G_RET_STS_ERROR;
3956:
3957: when FND_API.G_EXC_UNEXPECTED_ERROR then
3958: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3951:
3952: EXCEPTION
3953:
3954: when FND_API.G_EXC_ERROR then
3955: p_return_status := FND_API.G_RET_STS_ERROR;
3956:
3957: when FND_API.G_EXC_UNEXPECTED_ERROR then
3958: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3959:
3953:
3954: when FND_API.G_EXC_ERROR then
3955: p_return_status := FND_API.G_RET_STS_ERROR;
3956:
3957: when FND_API.G_EXC_UNEXPECTED_ERROR then
3958: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3959:
3960: when OTHERS then
3961: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3954: when FND_API.G_EXC_ERROR then
3955: p_return_status := FND_API.G_RET_STS_ERROR;
3956:
3957: when FND_API.G_EXC_UNEXPECTED_ERROR then
3958: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3959:
3960: when OTHERS then
3961: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3962: if FND_MSG_PUB.Check_Msg_Level
3957: when FND_API.G_EXC_UNEXPECTED_ERROR then
3958: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3959:
3960: when OTHERS then
3961: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3962: if FND_MSG_PUB.Check_Msg_Level
3963: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3964: then
3965: FND_MSG_PUB.Add_Exc_Msg
4021: -- Revise Projections for Line Items by applying account parameter
4022: --
4023: PROCEDURE Revise_Account_Projections
4024: ( p_api_version IN NUMBER,
4025: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE,
4026: p_return_status OUT NOCOPY VARCHAR2,
4027: p_worksheet_id IN NUMBER,
4028: p_parameter_id IN NUMBER
4029: ) IS
4122: --
4123: BEGIN
4124:
4125: -- Standard call to check for call compatibility
4126: if not FND_API.Compatible_API_Call (l_api_version,
4127: p_api_version,
4128: l_api_name,
4129: G_PKG_NAME)
4130: then
4127: p_api_version,
4128: l_api_name,
4129: G_PKG_NAME)
4130: then
4131: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4132: end if;
4133:
4134: for c_WS_Rec in c_WS loop
4135: l_budget_group_id := c_WS_Rec.budget_group_id;
4160: l_effective_start_date := c_Parameter_Rec.effective_start_date;
4161: l_effective_end_date := c_Parameter_Rec.effective_end_date;
4162:
4163: if nvl(c_Parameter_Rec.parameter_compound_annually, 'N') = 'N' then
4164: l_compound_annually := FND_API.G_FALSE;
4165: else
4166: l_compound_annually := FND_API.G_TRUE;
4167: end if;
4168: end loop;
4162:
4163: if nvl(c_Parameter_Rec.parameter_compound_annually, 'N') = 'N' then
4164: l_compound_annually := FND_API.G_FALSE;
4165: else
4166: l_compound_annually := FND_API.G_TRUE;
4167: end if;
4168: end loop;
4169:
4170: for l_init_index in 1..PSB_WS_ACCT1.g_max_num_amounts loop
4190: p_flex_code => l_flex_code,
4191: p_ccid => c_AcctLine_Rec.code_combination_id,
4192: p_budget_group_id => l_budget_group_id);
4193:
4194: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
4195: raise FND_API.G_EXC_ERROR;
4196: end if;
4197:
4198: end;
4191: p_ccid => c_AcctLine_Rec.code_combination_id,
4192: p_budget_group_id => l_budget_group_id);
4193:
4194: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
4195: raise FND_API.G_EXC_ERROR;
4196: end if;
4197:
4198: end;
4199: end if;
4217: or (not(l_budget_by_position))))
4218: then
4219:
4220: -- Compute Compound Factor for each year if Compound Annually is set.
4221: if FND_API.to_Boolean(l_compound_annually) then
4222: --
4223: /* Bug No 2627277 Start */
4224: -- l_compound_factor := greatest(ceil(months_between(l_year_start_date, l_effective_start_date) / 12), 0) + 1;
4225: l_compound_factor := greatest(ceil(months_between(c_AcctLine_Rec.start_date, l_effective_start_date) / 12), 0) + 1;
4244: p_ccid_end_period => c_AcctLine_Rec.end_date,
4245: p_budget_group_id => c_AcctLine_Rec.budget_group_id,
4246: p_num_proposed_years => null,
4247: p_return_status => l_return_status,
4248: p_defer_ccids => FND_API.G_FALSE,
4249: p_deferred => l_deferred,
4250: /* bug no 4256345 */
4251: p_stage_set_id => l_stage_set_id,
4252: p_current_stage_seq => l_current_Stage_seq
4251: p_stage_set_id => l_stage_set_id,
4252: p_current_stage_seq => l_current_Stage_seq
4253: /* bug no 4256345 */);
4254:
4255: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
4256: raise FND_API.G_EXC_ERROR;
4257: end if;
4258:
4259: -- Create Account Distribution for the CCID
4252: p_current_stage_seq => l_current_Stage_seq
4253: /* bug no 4256345 */);
4254:
4255: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
4256: raise FND_API.G_EXC_ERROR;
4257: end if;
4258:
4259: -- Create Account Distribution for the CCID
4260:
4261: PSB_WS_ACCT1.Create_Account_Dist
4262: (p_api_version => 1.0,
4263: p_return_status => l_return_status,
4264: p_worksheet_id => p_worksheet_id,
4265: p_distribute_flag => FND_API.G_TRUE,
4266: p_account_line_id => c_AcctLine_Rec.account_line_id,
4267: p_ytd_amount => g_running_total,
4268: p_period_amount => g_period_amount,
4269: p_budget_group_id => c_AcctLine_Rec.budget_group_id);
4267: p_ytd_amount => g_running_total,
4268: p_period_amount => g_period_amount,
4269: p_budget_group_id => c_AcctLine_Rec.budget_group_id);
4270:
4271: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
4272: raise FND_API.G_EXC_ERROR;
4273: end if;
4274:
4275: /* Bug No 1584464 Start */
4268: p_period_amount => g_period_amount,
4269: p_budget_group_id => c_AcctLine_Rec.budget_group_id);
4270:
4271: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
4272: raise FND_API.G_EXC_ERROR;
4273: end if;
4274:
4275: /* Bug No 1584464 Start */
4276: -- Insert note record in PSB_WS_ACCOUNT_LINE_NOTES table
4291: p_cc_id => c_AcctLine_Rec.code_combination_id,
4292: p_concatenated_segments => NULL
4293: ) ;
4294:
4295: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
4296: raise FND_API.G_EXC_ERROR;
4297: end if;
4298: /* Bug No 1584464 End */
4299:
4292: p_concatenated_segments => NULL
4293: ) ;
4294:
4295: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
4296: raise FND_API.G_EXC_ERROR;
4297: end if;
4298: /* Bug No 1584464 End */
4299:
4300: end if;
4304:
4305: end loop;
4306:
4307: -- Initialize API return status to success
4308: p_return_status := FND_API.G_RET_STS_SUCCESS;
4309:
4310: EXCEPTION
4311:
4312: when FND_API.G_EXC_ERROR then
4308: p_return_status := FND_API.G_RET_STS_SUCCESS;
4309:
4310: EXCEPTION
4311:
4312: when FND_API.G_EXC_ERROR then
4313: p_return_status := FND_API.G_RET_STS_ERROR;
4314:
4315: when FND_API.G_EXC_UNEXPECTED_ERROR then
4316: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4309:
4310: EXCEPTION
4311:
4312: when FND_API.G_EXC_ERROR then
4313: p_return_status := FND_API.G_RET_STS_ERROR;
4314:
4315: when FND_API.G_EXC_UNEXPECTED_ERROR then
4316: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4317:
4311:
4312: when FND_API.G_EXC_ERROR then
4313: p_return_status := FND_API.G_RET_STS_ERROR;
4314:
4315: when FND_API.G_EXC_UNEXPECTED_ERROR then
4316: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4317:
4318: when OTHERS then
4319: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4312: when FND_API.G_EXC_ERROR then
4313: p_return_status := FND_API.G_RET_STS_ERROR;
4314:
4315: when FND_API.G_EXC_UNEXPECTED_ERROR then
4316: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4317:
4318: when OTHERS then
4319: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4320:
4315: when FND_API.G_EXC_UNEXPECTED_ERROR then
4316: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4317:
4318: when OTHERS then
4319: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4320:
4321: if FND_MSG_PUB.Check_Msg_Level
4322: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4323: then
4337: -- Apply Account Parameters for a CCID for the CY and PP Budget Years
4338: --
4339: PROCEDURE Apply_Account_Parameters
4340: ( p_api_version IN NUMBER,
4341: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE,
4342: p_return_status OUT NOCOPY VARCHAR2,
4343: p_worksheet_id IN NUMBER,
4344: p_service_package_id IN NUMBER,
4345: p_start_stage_seq IN NUMBER := FND_API.G_MISS_NUM,
4341: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE,
4342: p_return_status OUT NOCOPY VARCHAR2,
4343: p_worksheet_id IN NUMBER,
4344: p_service_package_id IN NUMBER,
4345: p_start_stage_seq IN NUMBER := FND_API.G_MISS_NUM,
4346: p_current_stage_seq IN NUMBER,
4347: p_rounding_factor IN NUMBER := FND_API.G_MISS_NUM,
4348: p_stage_set_id IN NUMBER,
4349: p_budget_group_id IN NUMBER,
4343: p_worksheet_id IN NUMBER,
4344: p_service_package_id IN NUMBER,
4345: p_start_stage_seq IN NUMBER := FND_API.G_MISS_NUM,
4346: p_current_stage_seq IN NUMBER,
4347: p_rounding_factor IN NUMBER := FND_API.G_MISS_NUM,
4348: p_stage_set_id IN NUMBER,
4349: p_budget_group_id IN NUMBER,
4350: p_allocrule_set_id IN NUMBER := FND_API.G_MISS_NUM,
4351: p_gl_cutoff_period IN DATE := FND_API.G_MISS_DATE,
4346: p_current_stage_seq IN NUMBER,
4347: p_rounding_factor IN NUMBER := FND_API.G_MISS_NUM,
4348: p_stage_set_id IN NUMBER,
4349: p_budget_group_id IN NUMBER,
4350: p_allocrule_set_id IN NUMBER := FND_API.G_MISS_NUM,
4351: p_gl_cutoff_period IN DATE := FND_API.G_MISS_DATE,
4352: p_flex_code IN NUMBER := FND_API.G_MISS_NUM,
4353: p_func_currency IN VARCHAR2 := FND_API.G_MISS_CHAR,
4354: p_flex_mapping_set_id IN NUMBER := FND_API.G_MISS_NUM,
4347: p_rounding_factor IN NUMBER := FND_API.G_MISS_NUM,
4348: p_stage_set_id IN NUMBER,
4349: p_budget_group_id IN NUMBER,
4350: p_allocrule_set_id IN NUMBER := FND_API.G_MISS_NUM,
4351: p_gl_cutoff_period IN DATE := FND_API.G_MISS_DATE,
4352: p_flex_code IN NUMBER := FND_API.G_MISS_NUM,
4353: p_func_currency IN VARCHAR2 := FND_API.G_MISS_CHAR,
4354: p_flex_mapping_set_id IN NUMBER := FND_API.G_MISS_NUM,
4355: p_ccid IN NUMBER,
4348: p_stage_set_id IN NUMBER,
4349: p_budget_group_id IN NUMBER,
4350: p_allocrule_set_id IN NUMBER := FND_API.G_MISS_NUM,
4351: p_gl_cutoff_period IN DATE := FND_API.G_MISS_DATE,
4352: p_flex_code IN NUMBER := FND_API.G_MISS_NUM,
4353: p_func_currency IN VARCHAR2 := FND_API.G_MISS_CHAR,
4354: p_flex_mapping_set_id IN NUMBER := FND_API.G_MISS_NUM,
4355: p_ccid IN NUMBER,
4356: p_ccid_start_period IN DATE,
4349: p_budget_group_id IN NUMBER,
4350: p_allocrule_set_id IN NUMBER := FND_API.G_MISS_NUM,
4351: p_gl_cutoff_period IN DATE := FND_API.G_MISS_DATE,
4352: p_flex_code IN NUMBER := FND_API.G_MISS_NUM,
4353: p_func_currency IN VARCHAR2 := FND_API.G_MISS_CHAR,
4354: p_flex_mapping_set_id IN NUMBER := FND_API.G_MISS_NUM,
4355: p_ccid IN NUMBER,
4356: p_ccid_start_period IN DATE,
4357: p_ccid_end_period IN DATE,
4350: p_allocrule_set_id IN NUMBER := FND_API.G_MISS_NUM,
4351: p_gl_cutoff_period IN DATE := FND_API.G_MISS_DATE,
4352: p_flex_code IN NUMBER := FND_API.G_MISS_NUM,
4353: p_func_currency IN VARCHAR2 := FND_API.G_MISS_CHAR,
4354: p_flex_mapping_set_id IN NUMBER := FND_API.G_MISS_NUM,
4355: p_ccid IN NUMBER,
4356: p_ccid_start_period IN DATE,
4357: p_ccid_end_period IN DATE,
4358: p_num_proposed_years IN NUMBER,
4355: p_ccid IN NUMBER,
4356: p_ccid_start_period IN DATE,
4357: p_ccid_end_period IN DATE,
4358: p_num_proposed_years IN NUMBER,
4359: p_num_years_to_allocate IN NUMBER := FND_API.G_MISS_NUM,
4360: p_parameter_set_id IN NUMBER := FND_API.G_MISS_NUM,
4361: p_budget_calendar_id IN NUMBER := FND_API.G_MISS_NUM,
4362: p_budget_by_position IN VARCHAR2 := FND_API.G_MISS_CHAR,
4363: p_defer_ccids IN VARCHAR2 := FND_API.G_TRUE
4356: p_ccid_start_period IN DATE,
4357: p_ccid_end_period IN DATE,
4358: p_num_proposed_years IN NUMBER,
4359: p_num_years_to_allocate IN NUMBER := FND_API.G_MISS_NUM,
4360: p_parameter_set_id IN NUMBER := FND_API.G_MISS_NUM,
4361: p_budget_calendar_id IN NUMBER := FND_API.G_MISS_NUM,
4362: p_budget_by_position IN VARCHAR2 := FND_API.G_MISS_CHAR,
4363: p_defer_ccids IN VARCHAR2 := FND_API.G_TRUE
4364: ) IS
4357: p_ccid_end_period IN DATE,
4358: p_num_proposed_years IN NUMBER,
4359: p_num_years_to_allocate IN NUMBER := FND_API.G_MISS_NUM,
4360: p_parameter_set_id IN NUMBER := FND_API.G_MISS_NUM,
4361: p_budget_calendar_id IN NUMBER := FND_API.G_MISS_NUM,
4362: p_budget_by_position IN VARCHAR2 := FND_API.G_MISS_CHAR,
4363: p_defer_ccids IN VARCHAR2 := FND_API.G_TRUE
4364: ) IS
4365:
4358: p_num_proposed_years IN NUMBER,
4359: p_num_years_to_allocate IN NUMBER := FND_API.G_MISS_NUM,
4360: p_parameter_set_id IN NUMBER := FND_API.G_MISS_NUM,
4361: p_budget_calendar_id IN NUMBER := FND_API.G_MISS_NUM,
4362: p_budget_by_position IN VARCHAR2 := FND_API.G_MISS_CHAR,
4363: p_defer_ccids IN VARCHAR2 := FND_API.G_TRUE
4364: ) IS
4365:
4366: l_api_name CONSTANT VARCHAR2(30) := 'Apply_Account_Parameters';
4359: p_num_years_to_allocate IN NUMBER := FND_API.G_MISS_NUM,
4360: p_parameter_set_id IN NUMBER := FND_API.G_MISS_NUM,
4361: p_budget_calendar_id IN NUMBER := FND_API.G_MISS_NUM,
4362: p_budget_by_position IN VARCHAR2 := FND_API.G_MISS_CHAR,
4363: p_defer_ccids IN VARCHAR2 := FND_API.G_TRUE
4364: ) IS
4365:
4366: l_api_name CONSTANT VARCHAR2(30) := 'Apply_Account_Parameters';
4367: l_api_version CONSTANT NUMBER := 1.0;
4494: order by effective_start_date, priority;
4495: BEGIN
4496:
4497: -- Standard call to check for call compatibility
4498: if not FND_API.Compatible_API_Call (l_api_version,
4499: p_api_version,
4500: l_api_name,
4501: G_PKG_NAME)
4502: then
4499: p_api_version,
4500: l_api_name,
4501: G_PKG_NAME)
4502: then
4503: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4504: end if;
4505:
4506: -- Select default values for input parameters that were not passed in
4507: if ((p_allocrule_set_id = FND_API.G_MISS_NUM) or
4503: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4504: end if;
4505:
4506: -- Select default values for input parameters that were not passed in
4507: if ((p_allocrule_set_id = FND_API.G_MISS_NUM) or
4508: (p_flex_mapping_set_id = FND_API.G_MISS_NUM) or
4509: (p_parameter_set_id = FND_API.G_MISS_NUM) or
4510: (p_budget_calendar_id = FND_API.G_MISS_NUM) or
4511: (p_rounding_factor = FND_API.G_MISS_NUM) or
4504: end if;
4505:
4506: -- Select default values for input parameters that were not passed in
4507: if ((p_allocrule_set_id = FND_API.G_MISS_NUM) or
4508: (p_flex_mapping_set_id = FND_API.G_MISS_NUM) or
4509: (p_parameter_set_id = FND_API.G_MISS_NUM) or
4510: (p_budget_calendar_id = FND_API.G_MISS_NUM) or
4511: (p_rounding_factor = FND_API.G_MISS_NUM) or
4512: (p_gl_cutoff_period = FND_API.G_MISS_DATE) or
4505:
4506: -- Select default values for input parameters that were not passed in
4507: if ((p_allocrule_set_id = FND_API.G_MISS_NUM) or
4508: (p_flex_mapping_set_id = FND_API.G_MISS_NUM) or
4509: (p_parameter_set_id = FND_API.G_MISS_NUM) or
4510: (p_budget_calendar_id = FND_API.G_MISS_NUM) or
4511: (p_rounding_factor = FND_API.G_MISS_NUM) or
4512: (p_gl_cutoff_period = FND_API.G_MISS_DATE) or
4513: (p_num_years_to_allocate = FND_API.G_MISS_NUM) or
4506: -- Select default values for input parameters that were not passed in
4507: if ((p_allocrule_set_id = FND_API.G_MISS_NUM) or
4508: (p_flex_mapping_set_id = FND_API.G_MISS_NUM) or
4509: (p_parameter_set_id = FND_API.G_MISS_NUM) or
4510: (p_budget_calendar_id = FND_API.G_MISS_NUM) or
4511: (p_rounding_factor = FND_API.G_MISS_NUM) or
4512: (p_gl_cutoff_period = FND_API.G_MISS_DATE) or
4513: (p_num_years_to_allocate = FND_API.G_MISS_NUM) or
4514: (p_budget_by_position = FND_API.G_MISS_CHAR))
4507: if ((p_allocrule_set_id = FND_API.G_MISS_NUM) or
4508: (p_flex_mapping_set_id = FND_API.G_MISS_NUM) or
4509: (p_parameter_set_id = FND_API.G_MISS_NUM) or
4510: (p_budget_calendar_id = FND_API.G_MISS_NUM) or
4511: (p_rounding_factor = FND_API.G_MISS_NUM) or
4512: (p_gl_cutoff_period = FND_API.G_MISS_DATE) or
4513: (p_num_years_to_allocate = FND_API.G_MISS_NUM) or
4514: (p_budget_by_position = FND_API.G_MISS_CHAR))
4515: then
4508: (p_flex_mapping_set_id = FND_API.G_MISS_NUM) or
4509: (p_parameter_set_id = FND_API.G_MISS_NUM) or
4510: (p_budget_calendar_id = FND_API.G_MISS_NUM) or
4511: (p_rounding_factor = FND_API.G_MISS_NUM) or
4512: (p_gl_cutoff_period = FND_API.G_MISS_DATE) or
4513: (p_num_years_to_allocate = FND_API.G_MISS_NUM) or
4514: (p_budget_by_position = FND_API.G_MISS_CHAR))
4515: then
4516: /* Bug 3543845 start */
4509: (p_parameter_set_id = FND_API.G_MISS_NUM) or
4510: (p_budget_calendar_id = FND_API.G_MISS_NUM) or
4511: (p_rounding_factor = FND_API.G_MISS_NUM) or
4512: (p_gl_cutoff_period = FND_API.G_MISS_DATE) or
4513: (p_num_years_to_allocate = FND_API.G_MISS_NUM) or
4514: (p_budget_by_position = FND_API.G_MISS_CHAR))
4515: then
4516: /* Bug 3543845 start */
4517: /* comment out the following query and use cached value when possible
4510: (p_budget_calendar_id = FND_API.G_MISS_NUM) or
4511: (p_rounding_factor = FND_API.G_MISS_NUM) or
4512: (p_gl_cutoff_period = FND_API.G_MISS_DATE) or
4513: (p_num_years_to_allocate = FND_API.G_MISS_NUM) or
4514: (p_budget_by_position = FND_API.G_MISS_CHAR))
4515: then
4516: /* Bug 3543845 start */
4517: /* comment out the following query and use cached value when possible
4518: for c_WS_Rec in c_WS loop
4577: end if;
4578:
4579: -- Substitute values from input parameters that were passed in
4580:
4581: if p_allocrule_set_id <> FND_API.G_MISS_NUM then
4582: l_allocrule_set_id := p_allocrule_set_id;
4583: end if;
4584:
4585: if p_flex_mapping_set_id <> FND_API.G_MISS_NUM then
4581: if p_allocrule_set_id <> FND_API.G_MISS_NUM then
4582: l_allocrule_set_id := p_allocrule_set_id;
4583: end if;
4584:
4585: if p_flex_mapping_set_id <> FND_API.G_MISS_NUM then
4586: l_flex_mapping_set_id := p_flex_mapping_set_id;
4587: end if;
4588:
4589: if p_parameter_set_id <> FND_API.G_MISS_NUM then
4585: if p_flex_mapping_set_id <> FND_API.G_MISS_NUM then
4586: l_flex_mapping_set_id := p_flex_mapping_set_id;
4587: end if;
4588:
4589: if p_parameter_set_id <> FND_API.G_MISS_NUM then
4590: l_parameter_set_id := p_parameter_set_id;
4591: end if;
4592:
4593: if p_budget_calendar_id <> FND_API.G_MISS_NUM then
4589: if p_parameter_set_id <> FND_API.G_MISS_NUM then
4590: l_parameter_set_id := p_parameter_set_id;
4591: end if;
4592:
4593: if p_budget_calendar_id <> FND_API.G_MISS_NUM then
4594: l_budget_calendar_id := p_budget_calendar_id;
4595: end if;
4596:
4597: if p_rounding_factor <> FND_API.G_MISS_NUM then
4593: if p_budget_calendar_id <> FND_API.G_MISS_NUM then
4594: l_budget_calendar_id := p_budget_calendar_id;
4595: end if;
4596:
4597: if p_rounding_factor <> FND_API.G_MISS_NUM then
4598: l_rounding_factor := p_rounding_factor;
4599: end if;
4600:
4601: if p_gl_cutoff_period <> FND_API.G_MISS_DATE then
4597: if p_rounding_factor <> FND_API.G_MISS_NUM then
4598: l_rounding_factor := p_rounding_factor;
4599: end if;
4600:
4601: if p_gl_cutoff_period <> FND_API.G_MISS_DATE then
4602: l_gl_cutoff_period := p_gl_cutoff_period;
4603: end if;
4604:
4605: if p_num_years_to_allocate <> FND_API.G_MISS_NUM then
4601: if p_gl_cutoff_period <> FND_API.G_MISS_DATE then
4602: l_gl_cutoff_period := p_gl_cutoff_period;
4603: end if;
4604:
4605: if p_num_years_to_allocate <> FND_API.G_MISS_NUM then
4606: l_num_years_to_allocate := p_num_years_to_allocate;
4607: end if;
4608:
4609: if ((l_budget_by_position is null) or (l_budget_by_position = 'N')) then
4606: l_num_years_to_allocate := p_num_years_to_allocate;
4607: end if;
4608:
4609: if ((l_budget_by_position is null) or (l_budget_by_position = 'N')) then
4610: l_budget_by_position := FND_API.G_FALSE;
4611: else
4612: l_budget_by_position := FND_API.G_TRUE;
4613: end if;
4614:
4608:
4609: if ((l_budget_by_position is null) or (l_budget_by_position = 'N')) then
4610: l_budget_by_position := FND_API.G_FALSE;
4611: else
4612: l_budget_by_position := FND_API.G_TRUE;
4613: end if;
4614:
4615: if p_budget_by_position <> FND_API.G_MISS_CHAR then
4616: l_budget_by_position := p_budget_by_position;
4611: else
4612: l_budget_by_position := FND_API.G_TRUE;
4613: end if;
4614:
4615: if p_budget_by_position <> FND_API.G_MISS_CHAR then
4616: l_budget_by_position := p_budget_by_position;
4617: end if;
4618:
4619: if ((p_func_currency = FND_API.G_MISS_CHAR) or
4615: if p_budget_by_position <> FND_API.G_MISS_CHAR then
4616: l_budget_by_position := p_budget_by_position;
4617: end if;
4618:
4619: if ((p_func_currency = FND_API.G_MISS_CHAR) or
4620: (p_flex_code = FND_API.G_MISS_NUM))
4621: then
4622:
4623: for c_SOB_Rec in c_SOB loop
4616: l_budget_by_position := p_budget_by_position;
4617: end if;
4618:
4619: if ((p_func_currency = FND_API.G_MISS_CHAR) or
4620: (p_flex_code = FND_API.G_MISS_NUM))
4621: then
4622:
4623: for c_SOB_Rec in c_SOB loop
4624: l_func_currency := c_SOB_Rec.currency_code;
4626: end loop;
4627:
4628: end if;
4629:
4630: if p_func_currency <> FND_API.G_MISS_CHAR then
4631: l_func_currency := p_func_currency;
4632: end if;
4633:
4634: if p_flex_code <> FND_API.G_MISS_NUM then
4630: if p_func_currency <> FND_API.G_MISS_CHAR then
4631: l_func_currency := p_func_currency;
4632: end if;
4633:
4634: if p_flex_code <> FND_API.G_MISS_NUM then
4635: l_flex_code := p_flex_code;
4636: end if;
4637:
4638: if p_start_stage_seq = FND_API.G_MISS_NUM then
4634: if p_flex_code <> FND_API.G_MISS_NUM then
4635: l_flex_code := p_flex_code;
4636: end if;
4637:
4638: if p_start_stage_seq = FND_API.G_MISS_NUM then
4639: l_start_stage_seq := p_current_stage_seq;
4640: else
4641: l_start_stage_seq := p_start_stage_seq;
4642: end if;
4655:
4656: end if;
4657:
4658: if l_budget_calendar_id <> nvl(PSB_WS_ACCT1.g_budget_calendar_id,
4659: FND_API.G_MISS_NUM)
4660: then
4661:
4662: PSB_WS_ACCT1.Cache_Budget_Calendar
4663: ( p_return_status => l_return_status,
4663: ( p_return_status => l_return_status,
4664: p_budget_calendar_id => l_budget_calendar_id
4665: ) ;
4666:
4667: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
4668: raise FND_API.G_EXC_ERROR;
4669: end if;
4670:
4671: end if;
4664: p_budget_calendar_id => l_budget_calendar_id
4665: ) ;
4666:
4667: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
4668: raise FND_API.G_EXC_ERROR;
4669: end if;
4670:
4671: end if;
4672:
4787: -- Compute a Compound Factor for each Budget Year if Compound Annually is set
4788:
4789: if ((c_Parameter_Rec.parameter_compound_annually is null) or
4790: (c_Parameter_Rec.parameter_compound_annually = 'N')) then
4791: l_compound_annually := FND_API.G_FALSE;
4792: else
4793: l_compound_annually := FND_API.G_TRUE;
4794: l_compound_factor := greatest(ceil(months_between(PSB_WS_ACCT1.g_budget_years(l_year_index).start_date,
4795: c_Parameter_Rec.effective_start_date) / 12), 0) + 1;
4789: if ((c_Parameter_Rec.parameter_compound_annually is null) or
4790: (c_Parameter_Rec.parameter_compound_annually = 'N')) then
4791: l_compound_annually := FND_API.G_FALSE;
4792: else
4793: l_compound_annually := FND_API.G_TRUE;
4794: l_compound_factor := greatest(ceil(months_between(PSB_WS_ACCT1.g_budget_years(l_year_index).start_date,
4795: c_Parameter_Rec.effective_start_date) / 12), 0) + 1;
4796: end if;
4797:
4797:
4798: -- Parse the Parameter Formulae and compute a YTD running total to
4799: -- allocate across Budget Periods. If the CCID was deferred because
4800: -- of dependency on another yet-to-be-computed CCID, the parameter
4801: -- l_deferred is set to FND_API.G_TRUE
4802:
4803: l_deferred := FALSE;
4804:
4805: Process_Parameter
4824: p_stage_set_id => p_stage_set_id,
4825: p_current_stage_seq => p_current_stage_seq
4826: /* bug no 4256345 */);
4827:
4828: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
4829: raise FND_API.G_EXC_ERROR;
4830: end if;
4831:
4832: if l_deferred then
4825: p_current_stage_seq => p_current_stage_seq
4826: /* bug no 4256345 */);
4827:
4828: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
4829: raise FND_API.G_EXC_ERROR;
4830: end if;
4831:
4832: if l_deferred then
4833: raise FND_API.G_EXC_ERROR;
4829: raise FND_API.G_EXC_ERROR;
4830: end if;
4831:
4832: if l_deferred then
4833: raise FND_API.G_EXC_ERROR;
4834: end if;
4835:
4836: /* Bug 4308904 Start */
4837: -- Bug#3126462: Support Percent type allocation rules for CY estimates
4884: p_budget_periods => g_alloc_periods,
4885: p_period_amount => g_period_amount
4886: ) ;
4887:
4888: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4889: raise FND_API.G_EXC_ERROR;
4890: END IF;
4891:
4892: -- Bug 3543845: Check whether the worksheet creation process is
4885: p_period_amount => g_period_amount
4886: ) ;
4887:
4888: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4889: raise FND_API.G_EXC_ERROR;
4890: END IF;
4891:
4892: -- Bug 3543845: Check whether the worksheet creation process is
4893: -- executed for the first time. If it is the first time, then check the
4913: p_return_status => l_return_status,
4914: p_account_line_id => l_account_line_id,
4915: p_worksheet_id => p_worksheet_id,
4916: p_service_package_id => p_service_package_id,
4917: p_check_spal_exists => FND_API.G_FALSE,
4918: p_gl_cutoff_period => null,
4919: p_allocrule_set_id => null,
4920: p_budget_calendar_id => null,
4921: p_rounding_factor => l_rounding_factor,
4931: p_balance_type => 'E',
4932: p_ytd_amount => g_running_total,
4933: p_period_amount => g_period_amount);
4934:
4935: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4936: raise FND_API.G_EXC_ERROR;
4937: END IF;
4938:
4939: END;
4932: p_ytd_amount => g_running_total,
4933: p_period_amount => g_period_amount);
4934:
4935: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4936: raise FND_API.G_EXC_ERROR;
4937: END IF;
4938:
4939: END;
4940: END IF;
4940: END IF;
4941:
4942:
4943:
4944: IF nvl(l_flex_mapping_set_id, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
4945: BEGIN
4946:
4947: l_mapped_ccid := PSB_WS_ACCT1.Map_Account
4948: (p_flex_mapping_set_id => l_flex_mapping_set_id,
4965: p_budget_year_id => PSB_WS_ACCT1.g_budget_years(l_year_index).budget_year_id,
4966: p_ccid => l_mapped_ccid,
4967: p_currency_code => nvl(l_currency_code, l_func_currency));
4968:
4969: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4970: raise FND_API.G_EXC_ERROR;
4971: END IF;
4972:
4973: /* Bug 4308904 End */
4966: p_ccid => l_mapped_ccid,
4967: p_currency_code => nvl(l_currency_code, l_func_currency));
4968:
4969: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4970: raise FND_API.G_EXC_ERROR;
4971: END IF;
4972:
4973: /* Bug 4308904 End */
4974:
5001: -- Compute a Compound Factor for the PP Budget Year if Compound Annually is set
5002:
5003: IF ((c_Parameter_Rec.parameter_compound_annually is null) or
5004: (c_Parameter_Rec.parameter_compound_annually = 'N')) THEN
5005: l_compound_annually := FND_API.G_FALSE;
5006: ELSE
5007: l_compound_annually := FND_API.G_TRUE;
5008: l_compound_factor := greatest(ceil(months_between(PSB_WS_ACCT1.g_budget_years(l_year_index).start_date,
5009: c_Parameter_Rec.effective_start_date) / 12), 0) + 1;
5003: IF ((c_Parameter_Rec.parameter_compound_annually is null) or
5004: (c_Parameter_Rec.parameter_compound_annually = 'N')) THEN
5005: l_compound_annually := FND_API.G_FALSE;
5006: ELSE
5007: l_compound_annually := FND_API.G_TRUE;
5008: l_compound_factor := greatest(ceil(months_between(PSB_WS_ACCT1.g_budget_years(l_year_index).start_date,
5009: c_Parameter_Rec.effective_start_date) / 12), 0) + 1;
5010: END IF;
5011:
5010: END IF;
5011:
5012: -- Parse the Parameter Formulae and compute a running total for the
5013: -- PP Budget Year. If the CCID is deferred for processing, the
5014: -- parameter l_deferred is set to FND_API.G_TRUE
5015:
5016: l_deferred := FALSE;
5017:
5018: Process_Parameter
5037: p_stage_set_id => p_stage_set_id,
5038: p_current_stage_seq => p_current_stage_seq
5039: /* bug no 4256345 */);
5040:
5041: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5042: raise FND_API.G_EXC_ERROR;
5043: END IF;
5044:
5045: IF l_deferred THEN
5038: p_current_stage_seq => p_current_stage_seq
5039: /* bug no 4256345 */);
5040:
5041: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5042: raise FND_API.G_EXC_ERROR;
5043: END IF;
5044:
5045: IF l_deferred THEN
5046: raise FND_API.G_EXC_ERROR;
5042: raise FND_API.G_EXC_ERROR;
5043: END IF;
5044:
5045: IF l_deferred THEN
5046: raise FND_API.G_EXC_ERROR;
5047: END IF;
5048:
5049: /* Bug 4308904 Start */
5050:
5063:
5064: /* Bug 3352171 start */
5065: -- Comment out the following two lines. The allocation logic will be
5066: -- handled in the PSB_WS_ACCT2.Distribute_Account_Lines function.
5067: --if nvl(l_allocrule_set_id, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM
5068: --then
5069: /* Bug 3352171 end */
5070:
5071: Distribute_Account_Lines
5090: p_budget_periods => g_alloc_periods,
5091: p_period_amount => g_period_amount
5092: ) ;
5093:
5094: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5095: raise FND_API.G_EXC_ERROR;
5096: END IF;
5097:
5098: -- l_num_allocated_years := l_num_allocated_years + 1;
5091: p_period_amount => g_period_amount
5092: ) ;
5093:
5094: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5095: raise FND_API.G_EXC_ERROR;
5096: END IF;
5097:
5098: -- l_num_allocated_years := l_num_allocated_years + 1;
5099:
5123: p_return_status => l_return_status,
5124: p_account_line_id => l_account_line_id,
5125: p_worksheet_id => p_worksheet_id,
5126: p_service_package_id => p_service_package_id,
5127: p_check_spal_exists => FND_API.G_FALSE,
5128: p_gl_cutoff_period => null,
5129: p_allocrule_set_id => null,
5130: p_budget_calendar_id => null,
5131: p_rounding_factor => l_rounding_factor,
5141: p_balance_type => 'E',
5142: p_ytd_amount => g_running_total,
5143: p_period_amount => g_period_amount);
5144:
5145: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5146: raise FND_API.G_EXC_ERROR;
5147: END IF;
5148: END;
5149: END IF;
5142: p_ytd_amount => g_running_total,
5143: p_period_amount => g_period_amount);
5144:
5145: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5146: raise FND_API.G_EXC_ERROR;
5147: END IF;
5148: END;
5149: END IF;
5150: /* Bug 4308904 End*/
5248: p_period_amount => g_period_amount
5249: ) ;
5250: --
5251:
5252: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5253: raise FND_API.G_EXC_ERROR;
5254: end if;
5255:
5256: l_num_allocated_years := l_num_allocated_years + 1;
5249: ) ;
5250: --
5251:
5252: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5253: raise FND_API.G_EXC_ERROR;
5254: end if;
5255:
5256: l_num_allocated_years := l_num_allocated_years + 1;
5257:
5300: p_return_status => l_return_status,
5301: p_account_line_id => l_account_line_id,
5302: p_worksheet_id => p_worksheet_id,
5303: p_service_package_id => p_service_package_id,
5304: p_check_spal_exists => FND_API.G_FALSE,
5305: p_gl_cutoff_period => null,
5306: p_allocrule_set_id => null,
5307: p_budget_calendar_id => null,
5308: p_rounding_factor => l_rounding_factor,
5318: p_balance_type => 'E',
5319: p_ytd_amount => g_running_total,
5320: p_period_amount => g_period_amount);
5321:
5322: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5323: raise FND_API.G_EXC_ERROR;
5324: end if;
5325:
5326: end;
5319: p_ytd_amount => g_running_total,
5320: p_period_amount => g_period_amount);
5321:
5322: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5323: raise FND_API.G_EXC_ERROR;
5324: end if;
5325:
5326: end;
5327: end if;
5347: -- Commented the above condition as part of bug fix 3469514
5348:
5349: begin
5350:
5351: if nvl(l_flex_mapping_set_id, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM then
5352: begin
5353:
5354: l_mapped_ccid := PSB_WS_ACCT1.Map_Account
5355: (p_flex_mapping_set_id => l_flex_mapping_set_id,
5372: p_budget_year_id => PSB_WS_ACCT1.g_budget_years(l_year_index).budget_year_id,
5373: p_ccid => l_mapped_ccid,
5374: p_currency_code => nvl(l_currency_code, l_func_currency));
5375:
5376: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5377: raise FND_API.G_EXC_ERROR;
5378: end if;
5379:
5380: end;
5373: p_ccid => l_mapped_ccid,
5374: p_currency_code => nvl(l_currency_code, l_func_currency));
5375:
5376: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5377: raise FND_API.G_EXC_ERROR;
5378: end if;
5379:
5380: end;
5381: end if;
5385:
5386: end loop;
5387:
5388: -- Initialize API return status to success
5389: p_return_status := FND_API.G_RET_STS_SUCCESS;
5390:
5391: EXCEPTION
5392:
5393: when FND_API.G_EXC_ERROR then
5389: p_return_status := FND_API.G_RET_STS_SUCCESS;
5390:
5391: EXCEPTION
5392:
5393: when FND_API.G_EXC_ERROR then
5394:
5395: -- Return Success for a deferred CCID because that will be processed
5396: -- in a later phase
5397:
5395: -- Return Success for a deferred CCID because that will be processed
5396: -- in a later phase
5397:
5398: if l_deferred then
5399: p_return_status := FND_API.G_RET_STS_SUCCESS;
5400: else
5401: p_return_status := FND_API.G_RET_STS_ERROR;
5402: end if;
5403:
5397:
5398: if l_deferred then
5399: p_return_status := FND_API.G_RET_STS_SUCCESS;
5400: else
5401: p_return_status := FND_API.G_RET_STS_ERROR;
5402: end if;
5403:
5404: when FND_API.G_EXC_UNEXPECTED_ERROR then
5405: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5400: else
5401: p_return_status := FND_API.G_RET_STS_ERROR;
5402: end if;
5403:
5404: when FND_API.G_EXC_UNEXPECTED_ERROR then
5405: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5406:
5407: when OTHERS then
5408: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5401: p_return_status := FND_API.G_RET_STS_ERROR;
5402: end if;
5403:
5404: when FND_API.G_EXC_UNEXPECTED_ERROR then
5405: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5406:
5407: when OTHERS then
5408: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5409:
5404: when FND_API.G_EXC_UNEXPECTED_ERROR then
5405: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5406:
5407: when OTHERS then
5408: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5409:
5410: if FND_MSG_PUB.Check_Msg_Level
5411: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5412: then
5623:
5624: end loop;
5625:
5626: -- For each deferred CCID in the sorted list, apply Account Parameters and
5627: -- compute YTD totals. The parameter p_defer_ccids is set to FND_API.G_FALSE
5628: -- because this is the last phase of processing parameters.
5629:
5630: for l_index in 1..g_num_sortccids loop
5631:
5651: p_num_years_to_allocate => p_num_years_to_allocate,
5652: p_parameter_set_id => p_parameter_set_id,
5653: p_budget_calendar_id => p_budget_calendar_id,
5654: p_budget_by_position => p_budget_by_position,
5655: p_defer_ccids => FND_API.G_FALSE);
5656:
5657: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5658: raise FND_API.G_EXC_ERROR;
5659: end if;
5653: p_budget_calendar_id => p_budget_calendar_id,
5654: p_budget_by_position => p_budget_by_position,
5655: p_defer_ccids => FND_API.G_FALSE);
5656:
5657: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5658: raise FND_API.G_EXC_ERROR;
5659: end if;
5660:
5661: end loop;
5654: p_budget_by_position => p_budget_by_position,
5655: p_defer_ccids => FND_API.G_FALSE);
5656:
5657: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5658: raise FND_API.G_EXC_ERROR;
5659: end if;
5660:
5661: end loop;
5662:
5660:
5661: end loop;
5662:
5663: -- Initialize API return status to success
5664: p_return_status := FND_API.G_RET_STS_SUCCESS;
5665:
5666: EXCEPTION
5667:
5668: when FND_API.G_EXC_ERROR then
5664: p_return_status := FND_API.G_RET_STS_SUCCESS;
5665:
5666: EXCEPTION
5667:
5668: when FND_API.G_EXC_ERROR then
5669: p_return_status := FND_API.G_RET_STS_ERROR;
5670:
5671: when FND_API.G_EXC_UNEXPECTED_ERROR then
5672: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5665:
5666: EXCEPTION
5667:
5668: when FND_API.G_EXC_ERROR then
5669: p_return_status := FND_API.G_RET_STS_ERROR;
5670:
5671: when FND_API.G_EXC_UNEXPECTED_ERROR then
5672: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5673:
5667:
5668: when FND_API.G_EXC_ERROR then
5669: p_return_status := FND_API.G_RET_STS_ERROR;
5670:
5671: when FND_API.G_EXC_UNEXPECTED_ERROR then
5672: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5673:
5674: when OTHERS then
5675: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5668: when FND_API.G_EXC_ERROR then
5669: p_return_status := FND_API.G_RET_STS_ERROR;
5670:
5671: when FND_API.G_EXC_UNEXPECTED_ERROR then
5672: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5673:
5674: when OTHERS then
5675: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5676: if FND_MSG_PUB.Check_Msg_Level
5671: when FND_API.G_EXC_UNEXPECTED_ERROR then
5672: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5673:
5674: when OTHERS then
5675: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5676: if FND_MSG_PUB.Check_Msg_Level
5677: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5678: then
5679: FND_MSG_PUB.Add_Exc_Msg
5697: p_flex_mapping_set_id IN NUMBER,
5698: p_budget_year_type_id IN NUMBER,
5699: p_allocrule_set_id IN NUMBER,
5700: p_budget_calendar_id IN NUMBER,
5701: p_currency_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
5702: p_ccid IN NUMBER,
5703: p_ytd_amount IN NUMBER,
5704: p_allocation_type IN VARCHAR2,
5705: /* Bug No 2342169 Start */
5813: p_ccid => p_ccid,
5814: p_budget_year_type_id => p_budget_year_type_id);
5815:
5816: if ((p_allocation_type = 'PROFILE') and
5817: (p_currency_code = FND_API.G_MISS_CHAR)) then
5818:
5819: message_token('ROUTINE', 'PSB_WS_ACCT2.Distribute_Account_Lines');
5820: add_message('PSB', 'PSB_INVALID_ARGUMENT');
5821: raise FND_API.G_EXC_ERROR;
5817: (p_currency_code = FND_API.G_MISS_CHAR)) then
5818:
5819: message_token('ROUTINE', 'PSB_WS_ACCT2.Distribute_Account_Lines');
5820: add_message('PSB', 'PSB_INVALID_ARGUMENT');
5821: raise FND_API.G_EXC_ERROR;
5822: end if;
5823:
5824: if l_num_periods > 0 then
5825: begin
6099:
6100:
6101: -- Initialize API return status to success
6102:
6103: p_return_status := FND_API.G_RET_STS_SUCCESS;
6104:
6105:
6106: EXCEPTION
6107:
6104:
6105:
6106: EXCEPTION
6107:
6108: when FND_API.G_EXC_ERROR then
6109: p_return_status := FND_API.G_RET_STS_ERROR;
6110:
6111: when FND_API.G_EXC_UNEXPECTED_ERROR then
6112: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6105:
6106: EXCEPTION
6107:
6108: when FND_API.G_EXC_ERROR then
6109: p_return_status := FND_API.G_RET_STS_ERROR;
6110:
6111: when FND_API.G_EXC_UNEXPECTED_ERROR then
6112: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6113:
6107:
6108: when FND_API.G_EXC_ERROR then
6109: p_return_status := FND_API.G_RET_STS_ERROR;
6110:
6111: when FND_API.G_EXC_UNEXPECTED_ERROR then
6112: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6113:
6114: when OTHERS then
6115: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6108: when FND_API.G_EXC_ERROR then
6109: p_return_status := FND_API.G_RET_STS_ERROR;
6110:
6111: when FND_API.G_EXC_UNEXPECTED_ERROR then
6112: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6113:
6114: when OTHERS then
6115: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6116: if FND_MSG_PUB.Check_Msg_Level
6111: when FND_API.G_EXC_UNEXPECTED_ERROR then
6112: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6113:
6114: when OTHERS then
6115: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6116: if FND_MSG_PUB.Check_Msg_Level
6117: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6118: then
6119: FND_MSG_PUB.Add_Exc_Msg
6142: p_new_ytd_amount IN NUMBER,
6143: -- Bug#3128597: Support prorated allocation during annual amount updation
6144: p_cy_ytd_amount IN NUMBER := NULL,
6145: -- Bug#3128597: End
6146: p_budget_group_id IN NUMBER := FND_API.G_MISS_NUM
6147: ) IS
6148:
6149: l_ytd_amount NUMBER;
6150: l_period_amount PSB_WS_ACCT1.g_prdamt_tbl_type;
7615: (p_api_version => 1.0,
7616: p_return_status => l_return_status,
7617: p_worksheet_id => p_worksheet_id,
7618: p_account_line_id => p_account_line_id,
7619: p_check_stages => FND_API.G_FALSE,
7620: p_ytd_amount => l_ytd_amount,
7621: p_period_amount => l_period_amount,
7622: p_service_package_id => p_service_package_id,
7623: p_current_stage_seq => p_current_stage_seq);
7621: p_period_amount => l_period_amount,
7622: p_service_package_id => p_service_package_id,
7623: p_current_stage_seq => p_current_stage_seq);
7624:
7625: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
7626: raise FND_API.G_EXC_ERROR;
7627: end if;
7628:
7629: p_return_status := FND_API.G_RET_STS_SUCCESS;
7622: p_service_package_id => p_service_package_id,
7623: p_current_stage_seq => p_current_stage_seq);
7624:
7625: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
7626: raise FND_API.G_EXC_ERROR;
7627: end if;
7628:
7629: p_return_status := FND_API.G_RET_STS_SUCCESS;
7630:
7625: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
7626: raise FND_API.G_EXC_ERROR;
7627: end if;
7628:
7629: p_return_status := FND_API.G_RET_STS_SUCCESS;
7630:
7631:
7632: EXCEPTION
7633:
7630:
7631:
7632: EXCEPTION
7633:
7634: when FND_API.G_EXC_ERROR then
7635: p_return_status := FND_API.G_RET_STS_ERROR;
7636:
7637:
7638: when FND_API.G_EXC_UNEXPECTED_ERROR then
7631:
7632: EXCEPTION
7633:
7634: when FND_API.G_EXC_ERROR then
7635: p_return_status := FND_API.G_RET_STS_ERROR;
7636:
7637:
7638: when FND_API.G_EXC_UNEXPECTED_ERROR then
7639: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7634: when FND_API.G_EXC_ERROR then
7635: p_return_status := FND_API.G_RET_STS_ERROR;
7636:
7637:
7638: when FND_API.G_EXC_UNEXPECTED_ERROR then
7639: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7640:
7641:
7642: when OTHERS then
7635: p_return_status := FND_API.G_RET_STS_ERROR;
7636:
7637:
7638: when FND_API.G_EXC_UNEXPECTED_ERROR then
7639: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7640:
7641:
7642: when OTHERS then
7643: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7639: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7640:
7641:
7642: when OTHERS then
7643: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7644: if FND_MSG_PUB.Check_Msg_Level
7645: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7646: then
7647: FND_MSG_PUB.Add_Exc_Msg
7789: -- Determine Budget Group for each Summary CCID. This loop assumes that the Budget Group
7790: -- for a Summary CCID will remain the same for all Budget Years. Need an efficient way
7791: -- to determine if Budget Group for Summary CCID changes across Budget Years
7792:
7793: if c_SumCCID_Rec.summary_code_combination_id <> nvl(g_summary_ccid, FND_API.G_MISS_NUM) then
7794: begin
7795:
7796: g_summary_ccid := c_SumCCID_Rec.summary_code_combination_id;
7797:
7947: p_return_status => l_return_status,
7948: p_account_line_id => l_account_line_id,
7949: p_worksheet_id => p_worksheet_id,
7950: p_service_package_id => c_SumCCID_Rec.service_package_id,
7951: p_check_spal_exists => FND_API.G_FALSE,
7952: p_gl_cutoff_period => null,
7953: p_allocrule_set_id => null,
7954: p_budget_calendar_id => null,
7955: p_rounding_factor => p_rounding_factor,
7965: p_annual_fte => c_SumCCID_Rec.annual_fte,
7966: p_ytd_amount => c_SumCCID_Rec.ytd_amount,
7967: p_period_amount => l_period_amount);
7968:
7969: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
7970: raise FND_API.G_EXC_ERROR;
7971: end if;
7972:
7973: l_num_accounts := l_num_accounts + 1;
7966: p_ytd_amount => c_SumCCID_Rec.ytd_amount,
7967: p_period_amount => l_period_amount);
7968:
7969: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
7970: raise FND_API.G_EXC_ERROR;
7971: end if;
7972:
7973: l_num_accounts := l_num_accounts + 1;
7974:
7981:
7982:
7983: -- Initialize API return status to success
7984:
7985: p_return_status := FND_API.G_RET_STS_SUCCESS;
7986:
7987:
7988: EXCEPTION
7989:
7987:
7988: EXCEPTION
7989:
7990:
7991: when FND_API.G_EXC_ERROR then
7992: p_return_status := FND_API.G_RET_STS_ERROR;
7993: FND_MSG_PUB.Count_And_Get (p_count => l_msg_count,
7994: p_data => l_msg_data);
7995:
7988: EXCEPTION
7989:
7990:
7991: when FND_API.G_EXC_ERROR then
7992: p_return_status := FND_API.G_RET_STS_ERROR;
7993: FND_MSG_PUB.Count_And_Get (p_count => l_msg_count,
7994: p_data => l_msg_data);
7995:
7996:
7993: FND_MSG_PUB.Count_And_Get (p_count => l_msg_count,
7994: p_data => l_msg_data);
7995:
7996:
7997: when FND_API.G_EXC_UNEXPECTED_ERROR then
7998: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7999: FND_MSG_PUB.Count_And_Get (p_count => l_msg_count,
8000: p_data => l_msg_data);
8001:
7994: p_data => l_msg_data);
7995:
7996:
7997: when FND_API.G_EXC_UNEXPECTED_ERROR then
7998: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7999: FND_MSG_PUB.Count_And_Get (p_count => l_msg_count,
8000: p_data => l_msg_data);
8001:
8002:
8000: p_data => l_msg_data);
8001:
8002:
8003: when OTHERS then
8004: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8005: if dbms_sql.is_open(cur_sumbgroup) then
8006: dbms_sql.close_cursor(cur_sumbgroup);
8007: end if;
8008:
8022: -- templates specified in PSB
8023:
8024: PROCEDURE Create_Rollup_Totals
8025: ( p_api_version IN NUMBER,
8026: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE,
8027: p_return_status OUT NOCOPY VARCHAR2,
8028: p_worksheet_id IN NUMBER,
8029: p_rounding_factor IN NUMBER := FND_API.G_MISS_NUM,
8030: p_stage_set_id IN NUMBER := FND_API.G_MISS_NUM,
8025: ( p_api_version IN NUMBER,
8026: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE,
8027: p_return_status OUT NOCOPY VARCHAR2,
8028: p_worksheet_id IN NUMBER,
8029: p_rounding_factor IN NUMBER := FND_API.G_MISS_NUM,
8030: p_stage_set_id IN NUMBER := FND_API.G_MISS_NUM,
8031: p_current_stage_seq IN NUMBER := FND_API.G_MISS_NUM,
8032: p_set_of_books_id IN NUMBER := FND_API.G_MISS_NUM,
8033: p_flex_code IN NUMBER := FND_API.G_MISS_NUM,
8026: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE,
8027: p_return_status OUT NOCOPY VARCHAR2,
8028: p_worksheet_id IN NUMBER,
8029: p_rounding_factor IN NUMBER := FND_API.G_MISS_NUM,
8030: p_stage_set_id IN NUMBER := FND_API.G_MISS_NUM,
8031: p_current_stage_seq IN NUMBER := FND_API.G_MISS_NUM,
8032: p_set_of_books_id IN NUMBER := FND_API.G_MISS_NUM,
8033: p_flex_code IN NUMBER := FND_API.G_MISS_NUM,
8034: p_budget_group_id IN NUMBER := FND_API.G_MISS_NUM,
8027: p_return_status OUT NOCOPY VARCHAR2,
8028: p_worksheet_id IN NUMBER,
8029: p_rounding_factor IN NUMBER := FND_API.G_MISS_NUM,
8030: p_stage_set_id IN NUMBER := FND_API.G_MISS_NUM,
8031: p_current_stage_seq IN NUMBER := FND_API.G_MISS_NUM,
8032: p_set_of_books_id IN NUMBER := FND_API.G_MISS_NUM,
8033: p_flex_code IN NUMBER := FND_API.G_MISS_NUM,
8034: p_budget_group_id IN NUMBER := FND_API.G_MISS_NUM,
8035: p_budget_calendar_id IN NUMBER := FND_API.G_MISS_NUM
8028: p_worksheet_id IN NUMBER,
8029: p_rounding_factor IN NUMBER := FND_API.G_MISS_NUM,
8030: p_stage_set_id IN NUMBER := FND_API.G_MISS_NUM,
8031: p_current_stage_seq IN NUMBER := FND_API.G_MISS_NUM,
8032: p_set_of_books_id IN NUMBER := FND_API.G_MISS_NUM,
8033: p_flex_code IN NUMBER := FND_API.G_MISS_NUM,
8034: p_budget_group_id IN NUMBER := FND_API.G_MISS_NUM,
8035: p_budget_calendar_id IN NUMBER := FND_API.G_MISS_NUM
8036: ) IS
8029: p_rounding_factor IN NUMBER := FND_API.G_MISS_NUM,
8030: p_stage_set_id IN NUMBER := FND_API.G_MISS_NUM,
8031: p_current_stage_seq IN NUMBER := FND_API.G_MISS_NUM,
8032: p_set_of_books_id IN NUMBER := FND_API.G_MISS_NUM,
8033: p_flex_code IN NUMBER := FND_API.G_MISS_NUM,
8034: p_budget_group_id IN NUMBER := FND_API.G_MISS_NUM,
8035: p_budget_calendar_id IN NUMBER := FND_API.G_MISS_NUM
8036: ) IS
8037:
8030: p_stage_set_id IN NUMBER := FND_API.G_MISS_NUM,
8031: p_current_stage_seq IN NUMBER := FND_API.G_MISS_NUM,
8032: p_set_of_books_id IN NUMBER := FND_API.G_MISS_NUM,
8033: p_flex_code IN NUMBER := FND_API.G_MISS_NUM,
8034: p_budget_group_id IN NUMBER := FND_API.G_MISS_NUM,
8035: p_budget_calendar_id IN NUMBER := FND_API.G_MISS_NUM
8036: ) IS
8037:
8038: l_api_name CONSTANT VARCHAR2(30) := 'Create_Rollup_Totals';
8031: p_current_stage_seq IN NUMBER := FND_API.G_MISS_NUM,
8032: p_set_of_books_id IN NUMBER := FND_API.G_MISS_NUM,
8033: p_flex_code IN NUMBER := FND_API.G_MISS_NUM,
8034: p_budget_group_id IN NUMBER := FND_API.G_MISS_NUM,
8035: p_budget_calendar_id IN NUMBER := FND_API.G_MISS_NUM
8036: ) IS
8037:
8038: l_api_name CONSTANT VARCHAR2(30) := 'Create_Rollup_Totals';
8039: l_api_version CONSTANT NUMBER := 1.0;
8071: BEGIN
8072:
8073: -- Standard call to check for call compatibility
8074:
8075: if not FND_API.Compatible_API_Call (l_api_version,
8076: p_api_version,
8077: l_api_name,
8078: G_PKG_NAME)
8079: then
8076: p_api_version,
8077: l_api_name,
8078: G_PKG_NAME)
8079: then
8080: raise FND_API.G_EXC_UNEXPECTED_ERROR;
8081: end if;
8082:
8083: -- Delete all Summary Account Lines from PSB_WS_ACCOUNT_LINES to obviate any changes
8084: -- to the Summary Account - Detailed Account mappings in GL
8087: (p_api_version => 1.0,
8088: p_return_status => l_return_status,
8089: p_worksheet_id => p_worksheet_id);
8090:
8091: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
8092: raise FND_API.G_EXC_ERROR;
8093: end if;
8094:
8095: -- Select default values for input parameters that were not passed in
8088: p_return_status => l_return_status,
8089: p_worksheet_id => p_worksheet_id);
8090:
8091: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
8092: raise FND_API.G_EXC_ERROR;
8093: end if;
8094:
8095: -- Select default values for input parameters that were not passed in
8096:
8093: end if;
8094:
8095: -- Select default values for input parameters that were not passed in
8096:
8097: if ((p_budget_group_id = FND_API.G_MISS_NUM) or
8098: (p_stage_set_id = FND_API.G_MISS_NUM) or
8099: (p_current_stage_seq = FND_API.G_MISS_NUM) or
8100: (p_budget_calendar_id = FND_API.G_MISS_NUM) or
8101: (p_rounding_factor = FND_API.G_MISS_NUM)) then
8094:
8095: -- Select default values for input parameters that were not passed in
8096:
8097: if ((p_budget_group_id = FND_API.G_MISS_NUM) or
8098: (p_stage_set_id = FND_API.G_MISS_NUM) or
8099: (p_current_stage_seq = FND_API.G_MISS_NUM) or
8100: (p_budget_calendar_id = FND_API.G_MISS_NUM) or
8101: (p_rounding_factor = FND_API.G_MISS_NUM)) then
8102: begin
8095: -- Select default values for input parameters that were not passed in
8096:
8097: if ((p_budget_group_id = FND_API.G_MISS_NUM) or
8098: (p_stage_set_id = FND_API.G_MISS_NUM) or
8099: (p_current_stage_seq = FND_API.G_MISS_NUM) or
8100: (p_budget_calendar_id = FND_API.G_MISS_NUM) or
8101: (p_rounding_factor = FND_API.G_MISS_NUM)) then
8102: begin
8103:
8096:
8097: if ((p_budget_group_id = FND_API.G_MISS_NUM) or
8098: (p_stage_set_id = FND_API.G_MISS_NUM) or
8099: (p_current_stage_seq = FND_API.G_MISS_NUM) or
8100: (p_budget_calendar_id = FND_API.G_MISS_NUM) or
8101: (p_rounding_factor = FND_API.G_MISS_NUM)) then
8102: begin
8103:
8104: for c_WS_Rec in c_WS loop
8097: if ((p_budget_group_id = FND_API.G_MISS_NUM) or
8098: (p_stage_set_id = FND_API.G_MISS_NUM) or
8099: (p_current_stage_seq = FND_API.G_MISS_NUM) or
8100: (p_budget_calendar_id = FND_API.G_MISS_NUM) or
8101: (p_rounding_factor = FND_API.G_MISS_NUM)) then
8102: begin
8103:
8104: for c_WS_Rec in c_WS loop
8105: l_budget_group_id := c_WS_Rec.budget_group_id;
8111:
8112: end;
8113: end if;
8114:
8115: if p_budget_group_id <> FND_API.G_MISS_NUM then
8116: l_budget_group_id := p_budget_group_id;
8117: end if;
8118:
8119: if p_stage_set_id <> FND_API.G_MISS_NUM then
8115: if p_budget_group_id <> FND_API.G_MISS_NUM then
8116: l_budget_group_id := p_budget_group_id;
8117: end if;
8118:
8119: if p_stage_set_id <> FND_API.G_MISS_NUM then
8120: l_stage_set_id := p_stage_set_id;
8121: end if;
8122:
8123: if p_current_stage_seq <> FND_API.G_MISS_NUM then
8119: if p_stage_set_id <> FND_API.G_MISS_NUM then
8120: l_stage_set_id := p_stage_set_id;
8121: end if;
8122:
8123: if p_current_stage_seq <> FND_API.G_MISS_NUM then
8124: l_current_stage_seq := p_current_stage_seq;
8125: end if;
8126:
8127: if p_budget_calendar_id <> FND_API.G_MISS_NUM then
8123: if p_current_stage_seq <> FND_API.G_MISS_NUM then
8124: l_current_stage_seq := p_current_stage_seq;
8125: end if;
8126:
8127: if p_budget_calendar_id <> FND_API.G_MISS_NUM then
8128: l_budget_calendar_id := p_budget_calendar_id;
8129: end if;
8130:
8131: if p_rounding_factor <> FND_API.G_MISS_NUM then
8127: if p_budget_calendar_id <> FND_API.G_MISS_NUM then
8128: l_budget_calendar_id := p_budget_calendar_id;
8129: end if;
8130:
8131: if p_rounding_factor <> FND_API.G_MISS_NUM then
8132: l_rounding_factor := p_rounding_factor;
8133: end if;
8134:
8135: if ((p_set_of_books_id = FND_API.G_MISS_NUM) or
8131: if p_rounding_factor <> FND_API.G_MISS_NUM then
8132: l_rounding_factor := p_rounding_factor;
8133: end if;
8134:
8135: if ((p_set_of_books_id = FND_API.G_MISS_NUM) or
8136: (p_flex_code = FND_API.G_MISS_NUM)) then
8137: begin
8138:
8139: for c_BG_Rec in c_BG loop
8132: l_rounding_factor := p_rounding_factor;
8133: end if;
8134:
8135: if ((p_set_of_books_id = FND_API.G_MISS_NUM) or
8136: (p_flex_code = FND_API.G_MISS_NUM)) then
8137: begin
8138:
8139: for c_BG_Rec in c_BG loop
8140: l_set_of_books_id := c_BG_Rec.set_of_books_id;
8143:
8144: end;
8145: end if;
8146:
8147: if p_set_of_books_id <> FND_API.G_MISS_NUM then
8148: l_set_of_books_id := p_set_of_books_id;
8149: end if;
8150:
8151: if p_flex_code <> FND_API.G_MISS_NUM then
8147: if p_set_of_books_id <> FND_API.G_MISS_NUM then
8148: l_set_of_books_id := p_set_of_books_id;
8149: end if;
8150:
8151: if p_flex_code <> FND_API.G_MISS_NUM then
8152: l_flex_code := p_flex_code;
8153: end if;
8154:
8155: Insert_Summary_Accounts
8162: p_budget_group_id => l_budget_group_id,
8163: p_budget_calendar_id => l_budget_calendar_id,
8164: p_return_status => l_return_status);
8165:
8166: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
8167: raise FND_API.G_EXC_ERROR;
8168: end if;
8169:
8170: -- Initialize API return status to success
8163: p_budget_calendar_id => l_budget_calendar_id,
8164: p_return_status => l_return_status);
8165:
8166: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
8167: raise FND_API.G_EXC_ERROR;
8168: end if;
8169:
8170: -- Initialize API return status to success
8171: p_return_status := FND_API.G_RET_STS_SUCCESS;
8167: raise FND_API.G_EXC_ERROR;
8168: end if;
8169:
8170: -- Initialize API return status to success
8171: p_return_status := FND_API.G_RET_STS_SUCCESS;
8172:
8173: EXCEPTION
8174:
8175: when FND_API.G_EXC_ERROR then
8171: p_return_status := FND_API.G_RET_STS_SUCCESS;
8172:
8173: EXCEPTION
8174:
8175: when FND_API.G_EXC_ERROR then
8176: p_return_status := FND_API.G_RET_STS_ERROR;
8177: FND_MSG_PUB.Count_And_Get (p_count => l_msg_count,
8178: p_data => l_msg_data);
8179:
8172:
8173: EXCEPTION
8174:
8175: when FND_API.G_EXC_ERROR then
8176: p_return_status := FND_API.G_RET_STS_ERROR;
8177: FND_MSG_PUB.Count_And_Get (p_count => l_msg_count,
8178: p_data => l_msg_data);
8179:
8180: when FND_API.G_EXC_UNEXPECTED_ERROR then
8176: p_return_status := FND_API.G_RET_STS_ERROR;
8177: FND_MSG_PUB.Count_And_Get (p_count => l_msg_count,
8178: p_data => l_msg_data);
8179:
8180: when FND_API.G_EXC_UNEXPECTED_ERROR then
8181: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8182: FND_MSG_PUB.Count_And_Get (p_count => l_msg_count,
8183: p_data => l_msg_data);
8184:
8177: FND_MSG_PUB.Count_And_Get (p_count => l_msg_count,
8178: p_data => l_msg_data);
8179:
8180: when FND_API.G_EXC_UNEXPECTED_ERROR then
8181: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8182: FND_MSG_PUB.Count_And_Get (p_count => l_msg_count,
8183: p_data => l_msg_data);
8184:
8185: when OTHERS then
8182: FND_MSG_PUB.Count_And_Get (p_count => l_msg_count,
8183: p_data => l_msg_data);
8184:
8185: when OTHERS then
8186: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8187: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
8188: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
8189: l_api_name);
8190: end if;
8225: -- local variable (pl/sql table)
8226: l_ws_gl_budget_set_ccids g_bud_ccid_tbl_type;
8227:
8228: BEGIN
8229: x_return_status := FND_API.G_RET_STS_SUCCESS;
8230:
8231: -- clear the table before data is stored into the table
8232: IF g_ws_gl_budget_set_ccids.count > 0 THEN
8233: g_ws_gl_budget_set_ccids.delete;
8261:
8262: EXCEPTION
8263: WHEN others THEN
8264: fnd_file.put_line(fnd_file.log, sqlerrm);
8265: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8266:
8267: -- close the cursor if open
8268: IF l_ccid_csr%ISOPEN THEN
8269: CLOSE l_ccid_csr;