752: x_return_status := fnd_api.g_ret_sts_success;
753:
754: IF P_DEBUG_MODE = 'Y' THEN
755: pa_funds_control_utils.print_message('Get_Budget_CCID: ' || 'Inside Get Budget CCID');
756: pa_fck_util.debug_msg('Get_Budget_CCID: ' || 'PB:Inside Get Budget CCID');
757: pa_fck_util.debug_msg('Get_Budget_CCID: ' || 'PB:P:T:TT:R:S:B:E = ' || p_project_id || ':' || p_task_id || ':' || p_top_task_id|| ':' || p_res_list_mem_id ||':'|| p_start_date || ':' || p_budget_version_id ||':'|| p_entry_level_code);
758: END IF;
759:
760: select pbl.code_combination_id, pbl.budget_line_id
753:
754: IF P_DEBUG_MODE = 'Y' THEN
755: pa_funds_control_utils.print_message('Get_Budget_CCID: ' || 'Inside Get Budget CCID');
756: pa_fck_util.debug_msg('Get_Budget_CCID: ' || 'PB:Inside Get Budget CCID');
757: pa_fck_util.debug_msg('Get_Budget_CCID: ' || 'PB:P:T:TT:R:S:B:E = ' || p_project_id || ':' || p_task_id || ':' || p_top_task_id|| ':' || p_res_list_mem_id ||':'|| p_start_date || ':' || p_budget_version_id ||':'|| p_entry_level_code);
758: END IF;
759:
760: select pbl.code_combination_id, pbl.budget_line_id
761: into x_budget_ccid, x_budget_line_id
773: and trunc(pbl.start_date) = trunc(p_start_date);
774:
775: IF P_DEBUG_MODE = 'Y' THEN
776: pa_funds_control_utils.print_message('Get_Budget_CCID: ' || 'End of Get Budget CCID');
777: pa_fck_util.debug_msg('Get_Budget_CCID: ' || 'PB:End of Get Budget CCID = ' || x_budget_ccid||' Line id:'||x_budget_line_id);
778: END IF;
779:
780: EXCEPTION
781: when no_data_found then
796: x_return_status := fnd_api.g_ret_sts_success;
797:
798: IF P_DEBUG_MODE = 'Y' THEN
799: pa_funds_control_utils.print_message('Get_Time_Phased_Type_Code: ' || 'Inside Get Time Phased Type Code');
800: pa_fck_util.debug_msg('Get_Time_Phased_Type_Code: ' || 'PB:Inside Get Time Phased Type Code');
801: END IF;
802:
803: select time_phased_type_code
804: into x_time_phased_type_code
808: and b.budget_version_id = p_budget_version_id;
809:
810: IF P_DEBUG_MODE = 'Y' THEN
811: pa_funds_control_utils.print_message('Get_Time_Phased_Type_Code: ' || 'End of Get Time Phased Type Code');
812: pa_fck_util.debug_msg('Get_Time_Phased_Type_Code: ' || 'PB:End of Get Time Phased Type Code');
813: END IF;
814:
815: EXCEPTION
816: when no_data_found then
836: x_return_status := fnd_api.g_ret_sts_success;
837:
838: IF P_DEBUG_MODE = 'Y' THEN
839: pa_funds_control_utils.print_message('Inside Get_Baselined_Budget_Version');
840: pa_fck_util.debug_msg('PB:Inside Get_Baselined_Budget_Version');
841: END IF;
842:
843: select pbv.budget_version_id, pbv.resource_list_id, pbm.entry_level_code
844: into x_base_version_id,x_res_list_id,x_entry_level_code
862: and pbv.budget_entry_method_code = pbm.budget_entry_method_code;
863:
864: IF P_DEBUG_MODE = 'Y' THEN
865: pa_funds_control_utils.print_message('End of Get_Baselined_Budget_Version');
866: pa_fck_util.debug_msg('Get_Baselined_Budget_Version: ' || 'PB:Output = '|| x_base_version_id || ':' || x_res_list_id || ':'|| x_entry_level_code);
867: pa_fck_util.debug_msg('PB:End of Get_Baselined_Budget_Version');
868: END IF;
869:
870: EXCEPTION
863:
864: IF P_DEBUG_MODE = 'Y' THEN
865: pa_funds_control_utils.print_message('End of Get_Baselined_Budget_Version');
866: pa_fck_util.debug_msg('Get_Baselined_Budget_Version: ' || 'PB:Output = '|| x_base_version_id || ':' || x_res_list_id || ':'|| x_entry_level_code);
867: pa_fck_util.debug_msg('PB:End of Get_Baselined_Budget_Version');
868: END IF;
869:
870: EXCEPTION
871: when no_data_found then
891: x_avail_balance number;
892: BEGIN
893: IF P_DEBUG_MODE = 'Y' THEN
894: pa_funds_control_utils.print_message('Get_Acct_Line_Balance: ' || 'Inside Get Acct Line Balance');
895: pa_fck_util.debug_msg('Get_Acct_Line_Balance: ' || 'PB:Inside Get Acct Line Balance');
896: END IF;
897: /*
898: --select bal.Curr_Ver_Available_Amount
899: --into x_avail_balance
920: AND end_date between trunc(p_start_date) and trunc(p_end_date);
921:
922: IF P_DEBUG_MODE = 'Y' THEN
923: pa_funds_control_utils.print_message('Get_Acct_Line_Balance: ' || 'End of Get Acct Line Balance');
924: pa_fck_util.debug_msg('Get_Acct_Line_Balance: ' || 'PB:End of Get Acct Line Balance');
925: END IF;
926: return nvl(x_avail_balance,0);
927: EXCEPTION
928: WHEN NO_DATA_FOUND THEN
938: BEGIN
939:
940: IF P_DEBUG_MODE = 'Y' THEN
941: pa_funds_control_utils.print_message('Is_Budget_Baselined_Before: ' || 'Inside Is budget baselined before');
942: pa_fck_util.debug_msg('Is_Budget_Baselined_Before: ' || 'PB:Inside Is budget baselined before');
943: END IF;
944:
945: select 1 into l_count
946: from pa_budget_versions pbv,
958: end if;
959:
960: IF P_DEBUG_MODE = 'Y' THEN
961: pa_funds_control_utils.print_message('Is_Budget_Baselined_Before: ' || 'After Is budget baselined before = ' || x_baselined);
962: pa_fck_util.debug_msg('Is_Budget_Baselined_Before: ' || 'PB:After Is budget baselined before = ' || x_baselined);
963: END IF;
964: return x_baselined;
965: EXCEPTION
966: WHEN NO_DATA_FOUND THEN
1014: l_budget_entry_level_code := P_budget_entry_level_code;
1015: l_period_name := p_period_name;
1016:
1017: IF P_DEBUG_MODE = 'Y' THEN
1018: pa_fck_util.debug_msg('Is_account_change_allowed: l_budget_entry_level_code['||l_budget_entry_level_code||
1019: ']P_budget_version_id['||P_budget_version_id||']P_resource_assignment_id['||
1020: P_resource_assignment_id||']P_period_name['||l_period_name||
1021: ']pa_budget_fund_pkg.g_processing_mode['||pa_budget_fund_pkg.g_processing_mode||']'
1022: );
1048: and pbv.current_flag = 'Y';
1049: Exception
1050: When no_Data_found then
1051: IF P_DEBUG_MODE = 'Y' THEN
1052: pa_fck_util.debug_msg('Is_account_change_allowed: No baseline budget exists');
1053: END IF;
1054:
1055: g_current_baseline_bvid := -2;
1056: g_api_project_id := -2;
1103:
1104: End If; -- I
1105:
1106: IF P_DEBUG_MODE = 'Y' THEN
1107: pa_fck_util.debug_msg('Is_account_change_allowed: g_current_baseline_bvid['
1108: ||g_current_baseline_bvid||'] g_api_project_id ['
1109: ||g_api_project_id||'] g_txn_exists_for_bvid ['
1110: || g_txn_exists_for_bvid ||']');
1111: END IF;
1115: -- This can only happen if this API is called before first time baseline ..
1116: -- ------------------------------------------------------------------------------------------+
1117: If nvl(g_txn_exists_for_bvid,'N') = 'N' then
1118: IF P_DEBUG_MODE = 'Y' THEN
1119: pa_fck_util.debug_msg('Is_account_change_allowed: No txn. exists - return Y');
1120: END IF;
1121: RETURN 'Y';
1122: End If;
1123:
1134: and pbem.budget_entry_method_code = pbv.budget_entry_method_code;
1135:
1136:
1137: IF P_DEBUG_MODE = 'Y' THEN
1138: pa_fck_util.debug_msg('Is_account_change_allowed: l_budget_entry_level_code['||l_budget_entry_level_code);
1139: END IF;
1140:
1141: End If;
1142:
1156: l_budget_entry_level_code := 'L';
1157: End;
1158:
1159: IF P_DEBUG_MODE = 'Y' THEN
1160: pa_fck_util.debug_msg('Is_account_change_allowed: l_budget_entry_level_code(L/T?)['||l_budget_entry_level_code);
1161: END IF;
1162:
1163: End If; -- If l_budget_entry_level_code = 'M'
1164:
1163: End If; -- If l_budget_entry_level_code = 'M'
1164:
1165: -- Derive values reqd. for "Is_Account_change_allowed2 API"..
1166: IF P_DEBUG_MODE = 'Y' THEN
1167: pa_fck_util.debug_msg('Is_account_change_allowed: get task/rlmi from resource assignments');
1168: END IF;
1169:
1170: select task_id,resource_list_member_id
1171: into l_task_id,l_rlmi
1172: from pa_resource_assignments pra
1173: where pra.resource_assignment_id = P_resource_assignment_id;
1174:
1175: IF P_DEBUG_MODE = 'Y' THEN
1176: pa_fck_util.debug_msg('Is_account_change_allowed: get parent rlmi');
1177: END IF;
1178:
1179: If nvl(g_api_rlmi,-1) <> l_rlmi then
1180:
1184: g_api_rlmi := l_rlmi;
1185: End If;
1186:
1187: IF P_DEBUG_MODE = 'Y' THEN
1188: pa_fck_util.debug_msg('Is_account_change_allowed: get top task');
1189: END IF;
1190:
1191: If nvl(g_api_task_id,-1) <> l_task_id then
1192: If l_budget_entry_level_code = 'P' then
1199: End if;
1200: End If;
1201:
1202: IF P_DEBUG_MODE = 'Y' THEN
1203: pa_fck_util.debug_msg('Is_account_change_allowed: get start date');
1204: END IF;
1205:
1206: select distinct start_date into l_start_date from pa_budget_lines
1207: where budget_version_id = p_budget_version_id
1208: and resource_assignment_id = P_resource_assignment_id
1209: and period_name = l_period_name;
1210:
1211: IF P_DEBUG_MODE = 'Y' THEN
1212: pa_fck_util.debug_msg('Is_account_change_allowed: l_top_task_id['
1213: ||g_api_top_task_id||'] l_task_id ['
1214: ||l_task_id||'] l_rlmi ['||l_rlmi||']l_parent_rlmi['
1215: ||g_api_parent_rlmi||']l_start_date['||l_start_date
1216: ||'] l_period_name['||l_period_name ||']');
1213: ||g_api_top_task_id||'] l_task_id ['
1214: ||l_task_id||'] l_rlmi ['||l_rlmi||']l_parent_rlmi['
1215: ||g_api_parent_rlmi||']l_start_date['||l_start_date
1216: ||'] l_period_name['||l_period_name ||']');
1217: pa_fck_util.debug_msg('Is_account_change_allowed: Calling Is_Account_change_allowed2');
1218: END IF;
1219:
1220:
1221: If Is_Account_change_allowed2
1230: p_entry_level_code => l_budget_entry_level_code,
1231: p_mode => 'FORM') = 'N' then
1232:
1233: IF P_DEBUG_MODE = 'Y' THEN
1234: pa_fck_util.debug_msg('Is_account_change_allowed: Is_Account_change_allowed2 -> N');
1235: End If;
1236:
1237: return 'N';
1238: Else
1236:
1237: return 'N';
1238: Else
1239: IF P_DEBUG_MODE = 'Y' THEN
1240: pa_fck_util.debug_msg('Is_account_change_allowed: Is_Account_change_allowed2 -> Y');
1241: End If;
1242:
1243: return'Y';
1244: End If;
1534: l_budget_entry_level_code pa_budget_entry_methods.entry_level_code%type;
1535: l_allowed_flag varchar2(1);
1536: Begin
1537: IF P_DEBUG_MODE = 'Y' THEN
1538: pa_fck_util.debug_msg('In Is_account_change_allowed2:');
1539: END IF;
1540:
1541: l_allowed_flag := 'Y';
1542:
1554: l_budget_entry_level_code := p_entry_level_code;
1555: End if;
1556:
1557: IF P_DEBUG_MODE = 'Y' THEN
1558: pa_fck_util.debug_msg('Is_account_change_allowed2: l_budget_entry_level_code::'||l_budget_entry_level_code);
1559: END IF;
1560:
1561: If p_mode = 'FORM' then -- ------------------------------+ FORM
1562: -- ------------------------------------------------------------------------+
1759: -- ------------------------------------------------------------------------+
1760: End If; --If p_mode = 'FORM' then -- ------------------------------+ BASELINE
1761:
1762: IF P_DEBUG_MODE = 'Y' THEN
1763: pa_fck_util.debug_msg('In Is_account_change_allowed2:l_allowed_flag::'||l_allowed_flag);
1764: END IF;
1765:
1766: RETURN l_allowed_flag;
1767:
1767:
1768: Exception
1769: When no_data_found then
1770: IF P_DEBUG_MODE = 'Y' THEN
1771: pa_fck_util.debug_msg('In Is_account_change_allowed2:l_allowed_flag::'||'Y');
1772: END IF;
1773:
1774: RETURN 'Y';
1775: End Is_account_change_allowed2;
2005: BEGIN
2006:
2007:
2008: IF P_DEBUG_MODE = 'Y' THEN
2009: pa_fck_util.debug_msg('Update_bvid_blid_on_cdl_bccom: Start p_bud_ver_id ='||p_bud_ver_id );
2010: pa_fck_util.debug_msg('Update_bvid_blid_on_cdl_bccom: Start p_calling_mode ='||p_calling_mode );
2011: END IF;
2012:
2013: -- Bug 5206341 : Check if closed GL periods exists for this baseline run.
2006:
2007:
2008: IF P_DEBUG_MODE = 'Y' THEN
2009: pa_fck_util.debug_msg('Update_bvid_blid_on_cdl_bccom: Start p_bud_ver_id ='||p_bud_ver_id );
2010: pa_fck_util.debug_msg('Update_bvid_blid_on_cdl_bccom: Start p_calling_mode ='||p_calling_mode );
2011: END IF;
2012:
2013: -- Bug 5206341 : Check if closed GL periods exists for this baseline run.
2014: -- If exists we need to have additional logic to stamp latest budget version id and
2017:
2018: l_closed_prd_exists := PA_FUNDS_CONTROL_UTILS.CLOSED_PERIODS_EXISTS_IN_BUDG(p_bud_ver_id);
2019:
2020: IF P_DEBUG_MODE = 'Y' THEN
2021: pa_fck_util.debug_msg('Update_bvid_blid_on_cdl_bccom: Start l_closed_prd_exists ='||l_closed_prd_exists );
2022: pa_fck_util.debug_msg('Update_bvid_blid_on_cdl_bccom: Start p_bud_ver_id ='||p_bud_ver_id );
2023: END IF;
2024:
2025: IF p_calling_mode = 'RESERVE_BASELINE' THEN
2018: l_closed_prd_exists := PA_FUNDS_CONTROL_UTILS.CLOSED_PERIODS_EXISTS_IN_BUDG(p_bud_ver_id);
2019:
2020: IF P_DEBUG_MODE = 'Y' THEN
2021: pa_fck_util.debug_msg('Update_bvid_blid_on_cdl_bccom: Start l_closed_prd_exists ='||l_closed_prd_exists );
2022: pa_fck_util.debug_msg('Update_bvid_blid_on_cdl_bccom: Start p_bud_ver_id ='||p_bud_ver_id );
2023: END IF;
2024:
2025: IF p_calling_mode = 'RESERVE_BASELINE' THEN
2026:
2027: OPEN c_bc_packets;
2028: LOOP
2029:
2030: IF P_DEBUG_MODE = 'Y' THEN
2031: pa_fck_util.debug_msg('Clearing local plsql tabs');
2032: END IF;
2033:
2034: Intialize_plsql_tables;
2035:
2049: l_glprdstatustab
2050: LIMIT 500;
2051:
2052: IF P_DEBUG_MODE = 'Y' THEN
2053: pa_fck_util.debug_msg('Number of records fetched from pa_bc_packets ='||l_DocHdrTab.count);
2054: END IF;
2055:
2056: FOR i in 1..l_DocHdrTab.count LOOP
2057: pa_fck_util.debug_msg('Value of l_DocHdrTab ('||i||')='||l_DocHdrTab(i));
2053: pa_fck_util.debug_msg('Number of records fetched from pa_bc_packets ='||l_DocHdrTab.count);
2054: END IF;
2055:
2056: FOR i in 1..l_DocHdrTab.count LOOP
2057: pa_fck_util.debug_msg('Value of l_DocHdrTab ('||i||')='||l_DocHdrTab(i));
2058: pa_fck_util.debug_msg('Value of l_DocDistTab('||i||')='||l_DocDistTab(i));
2059: pa_fck_util.debug_msg('Value of l_bccomidTab ('||i||')='||l_bccomidTab(i));
2060: pa_fck_util.debug_msg('Value of l_projidTab ('||i||')='||l_projidTab(i));
2061: pa_fck_util.debug_msg('Value of l_taskidTab ('||i||')='||l_taskidTab(i));
2054: END IF;
2055:
2056: FOR i in 1..l_DocHdrTab.count LOOP
2057: pa_fck_util.debug_msg('Value of l_DocHdrTab ('||i||')='||l_DocHdrTab(i));
2058: pa_fck_util.debug_msg('Value of l_DocDistTab('||i||')='||l_DocDistTab(i));
2059: pa_fck_util.debug_msg('Value of l_bccomidTab ('||i||')='||l_bccomidTab(i));
2060: pa_fck_util.debug_msg('Value of l_projidTab ('||i||')='||l_projidTab(i));
2061: pa_fck_util.debug_msg('Value of l_taskidTab ('||i||')='||l_taskidTab(i));
2062: pa_fck_util.debug_msg('Value of l_toptaskidTab ('||i||')='||l_toptaskidTab(i));
2055:
2056: FOR i in 1..l_DocHdrTab.count LOOP
2057: pa_fck_util.debug_msg('Value of l_DocHdrTab ('||i||')='||l_DocHdrTab(i));
2058: pa_fck_util.debug_msg('Value of l_DocDistTab('||i||')='||l_DocDistTab(i));
2059: pa_fck_util.debug_msg('Value of l_bccomidTab ('||i||')='||l_bccomidTab(i));
2060: pa_fck_util.debug_msg('Value of l_projidTab ('||i||')='||l_projidTab(i));
2061: pa_fck_util.debug_msg('Value of l_taskidTab ('||i||')='||l_taskidTab(i));
2062: pa_fck_util.debug_msg('Value of l_toptaskidTab ('||i||')='||l_toptaskidTab(i));
2063: pa_fck_util.debug_msg('Value of l_rlmidTab ('||i||')='||l_rlmidTab(i));
2056: FOR i in 1..l_DocHdrTab.count LOOP
2057: pa_fck_util.debug_msg('Value of l_DocHdrTab ('||i||')='||l_DocHdrTab(i));
2058: pa_fck_util.debug_msg('Value of l_DocDistTab('||i||')='||l_DocDistTab(i));
2059: pa_fck_util.debug_msg('Value of l_bccomidTab ('||i||')='||l_bccomidTab(i));
2060: pa_fck_util.debug_msg('Value of l_projidTab ('||i||')='||l_projidTab(i));
2061: pa_fck_util.debug_msg('Value of l_taskidTab ('||i||')='||l_taskidTab(i));
2062: pa_fck_util.debug_msg('Value of l_toptaskidTab ('||i||')='||l_toptaskidTab(i));
2063: pa_fck_util.debug_msg('Value of l_rlmidTab ('||i||')='||l_rlmidTab(i));
2064: pa_fck_util.debug_msg('Value of l_startdateTab ('||i||')='||l_startdateTab(i));
2057: pa_fck_util.debug_msg('Value of l_DocHdrTab ('||i||')='||l_DocHdrTab(i));
2058: pa_fck_util.debug_msg('Value of l_DocDistTab('||i||')='||l_DocDistTab(i));
2059: pa_fck_util.debug_msg('Value of l_bccomidTab ('||i||')='||l_bccomidTab(i));
2060: pa_fck_util.debug_msg('Value of l_projidTab ('||i||')='||l_projidTab(i));
2061: pa_fck_util.debug_msg('Value of l_taskidTab ('||i||')='||l_taskidTab(i));
2062: pa_fck_util.debug_msg('Value of l_toptaskidTab ('||i||')='||l_toptaskidTab(i));
2063: pa_fck_util.debug_msg('Value of l_rlmidTab ('||i||')='||l_rlmidTab(i));
2064: pa_fck_util.debug_msg('Value of l_startdateTab ('||i||')='||l_startdateTab(i));
2065: pa_fck_util.debug_msg('Value of l_entrylevelcode ('||i||')='||l_entrylevelcode(i));
2058: pa_fck_util.debug_msg('Value of l_DocDistTab('||i||')='||l_DocDistTab(i));
2059: pa_fck_util.debug_msg('Value of l_bccomidTab ('||i||')='||l_bccomidTab(i));
2060: pa_fck_util.debug_msg('Value of l_projidTab ('||i||')='||l_projidTab(i));
2061: pa_fck_util.debug_msg('Value of l_taskidTab ('||i||')='||l_taskidTab(i));
2062: pa_fck_util.debug_msg('Value of l_toptaskidTab ('||i||')='||l_toptaskidTab(i));
2063: pa_fck_util.debug_msg('Value of l_rlmidTab ('||i||')='||l_rlmidTab(i));
2064: pa_fck_util.debug_msg('Value of l_startdateTab ('||i||')='||l_startdateTab(i));
2065: pa_fck_util.debug_msg('Value of l_entrylevelcode ('||i||')='||l_entrylevelcode(i));
2066: pa_fck_util.debug_msg('Value of l_burcodeTab ('||i||')='||l_burcodeTab(i));
2059: pa_fck_util.debug_msg('Value of l_bccomidTab ('||i||')='||l_bccomidTab(i));
2060: pa_fck_util.debug_msg('Value of l_projidTab ('||i||')='||l_projidTab(i));
2061: pa_fck_util.debug_msg('Value of l_taskidTab ('||i||')='||l_taskidTab(i));
2062: pa_fck_util.debug_msg('Value of l_toptaskidTab ('||i||')='||l_toptaskidTab(i));
2063: pa_fck_util.debug_msg('Value of l_rlmidTab ('||i||')='||l_rlmidTab(i));
2064: pa_fck_util.debug_msg('Value of l_startdateTab ('||i||')='||l_startdateTab(i));
2065: pa_fck_util.debug_msg('Value of l_entrylevelcode ('||i||')='||l_entrylevelcode(i));
2066: pa_fck_util.debug_msg('Value of l_burcodeTab ('||i||')='||l_burcodeTab(i));
2067: pa_fck_util.debug_msg('Value of l_bvidTab ('||i||')='||l_bvidTab(i));
2060: pa_fck_util.debug_msg('Value of l_projidTab ('||i||')='||l_projidTab(i));
2061: pa_fck_util.debug_msg('Value of l_taskidTab ('||i||')='||l_taskidTab(i));
2062: pa_fck_util.debug_msg('Value of l_toptaskidTab ('||i||')='||l_toptaskidTab(i));
2063: pa_fck_util.debug_msg('Value of l_rlmidTab ('||i||')='||l_rlmidTab(i));
2064: pa_fck_util.debug_msg('Value of l_startdateTab ('||i||')='||l_startdateTab(i));
2065: pa_fck_util.debug_msg('Value of l_entrylevelcode ('||i||')='||l_entrylevelcode(i));
2066: pa_fck_util.debug_msg('Value of l_burcodeTab ('||i||')='||l_burcodeTab(i));
2067: pa_fck_util.debug_msg('Value of l_bvidTab ('||i||')='||l_bvidTab(i));
2068: pa_fck_util.debug_msg('Value of l_glprdstatustab ('||i||')='||l_glprdstatustab(i));
2061: pa_fck_util.debug_msg('Value of l_taskidTab ('||i||')='||l_taskidTab(i));
2062: pa_fck_util.debug_msg('Value of l_toptaskidTab ('||i||')='||l_toptaskidTab(i));
2063: pa_fck_util.debug_msg('Value of l_rlmidTab ('||i||')='||l_rlmidTab(i));
2064: pa_fck_util.debug_msg('Value of l_startdateTab ('||i||')='||l_startdateTab(i));
2065: pa_fck_util.debug_msg('Value of l_entrylevelcode ('||i||')='||l_entrylevelcode(i));
2066: pa_fck_util.debug_msg('Value of l_burcodeTab ('||i||')='||l_burcodeTab(i));
2067: pa_fck_util.debug_msg('Value of l_bvidTab ('||i||')='||l_bvidTab(i));
2068: pa_fck_util.debug_msg('Value of l_glprdstatustab ('||i||')='||l_glprdstatustab(i));
2069: END LOOP;
2062: pa_fck_util.debug_msg('Value of l_toptaskidTab ('||i||')='||l_toptaskidTab(i));
2063: pa_fck_util.debug_msg('Value of l_rlmidTab ('||i||')='||l_rlmidTab(i));
2064: pa_fck_util.debug_msg('Value of l_startdateTab ('||i||')='||l_startdateTab(i));
2065: pa_fck_util.debug_msg('Value of l_entrylevelcode ('||i||')='||l_entrylevelcode(i));
2066: pa_fck_util.debug_msg('Value of l_burcodeTab ('||i||')='||l_burcodeTab(i));
2067: pa_fck_util.debug_msg('Value of l_bvidTab ('||i||')='||l_bvidTab(i));
2068: pa_fck_util.debug_msg('Value of l_glprdstatustab ('||i||')='||l_glprdstatustab(i));
2069: END LOOP;
2070:
2063: pa_fck_util.debug_msg('Value of l_rlmidTab ('||i||')='||l_rlmidTab(i));
2064: pa_fck_util.debug_msg('Value of l_startdateTab ('||i||')='||l_startdateTab(i));
2065: pa_fck_util.debug_msg('Value of l_entrylevelcode ('||i||')='||l_entrylevelcode(i));
2066: pa_fck_util.debug_msg('Value of l_burcodeTab ('||i||')='||l_burcodeTab(i));
2067: pa_fck_util.debug_msg('Value of l_bvidTab ('||i||')='||l_bvidTab(i));
2068: pa_fck_util.debug_msg('Value of l_glprdstatustab ('||i||')='||l_glprdstatustab(i));
2069: END LOOP;
2070:
2071: IF l_DocHdrTab.count = 0 THEN
2064: pa_fck_util.debug_msg('Value of l_startdateTab ('||i||')='||l_startdateTab(i));
2065: pa_fck_util.debug_msg('Value of l_entrylevelcode ('||i||')='||l_entrylevelcode(i));
2066: pa_fck_util.debug_msg('Value of l_burcodeTab ('||i||')='||l_burcodeTab(i));
2067: pa_fck_util.debug_msg('Value of l_bvidTab ('||i||')='||l_bvidTab(i));
2068: pa_fck_util.debug_msg('Value of l_glprdstatustab ('||i||')='||l_glprdstatustab(i));
2069: END LOOP;
2070:
2071: IF l_DocHdrTab.count = 0 THEN
2072: IF P_DEBUG_MODE = 'Y' THEN
2069: END LOOP;
2070:
2071: IF l_DocHdrTab.count = 0 THEN
2072: IF P_DEBUG_MODE = 'Y' THEN
2073: pa_fck_util.debug_msg('No more records to process');
2074: END IF;
2075: EXIT;
2076: END IF;
2077:
2084:
2085: IF l_glprdstatustab(i) = 'C' THEN
2086:
2087: IF P_DEBUG_MODE = 'Y' THEN
2088: pa_fck_util.debug_msg('Update_bvid_blid_on_cdl_bccom: Deriving budget details for closed period txns');
2089: END IF;
2090:
2091: Get_Budget_CCID (
2092: p_project_id => l_projidTab(i),
2103:
2104: END IF;
2105:
2106: IF P_DEBUG_MODE = 'Y' THEN
2107: pa_fck_util.debug_msg( 'Value of l_blidTab(i) '||l_blidTab(i));
2108: END IF;
2109:
2110: END LOOP;
2111:
2111:
2112: END IF; -- IF l_closed_prd_exists = 'Y' THEN
2113:
2114: IF P_DEBUG_MODE = 'Y' THEN
2115: pa_fck_util.debug_msg( 'Updating budget_version_id and budget_line_id on pa_cost_distribution_lines_all ');
2116: END IF;
2117:
2118: FORALL i in l_DocHdrTab.first..l_DocHdrTab.last
2119: UPDATE pa_cost_distribution_lines_all cdl
2130: AND xev.process_status_code <> 'P' )
2131: );
2132:
2133: IF P_DEBUG_MODE = 'Y' THEN
2134: pa_fck_util.debug_msg( 'Number of pa_cost_distribution_lines_all updated'||SQL%ROWCOUNT);
2135: pa_fck_util.debug_msg( 'Updating budget_version_id and budget_line_id on pa_bc_commitments_all ');
2136: END IF;
2137:
2138: -- Bug 5206341 : Logic to stamp new budget_line_id for transactions which are falling with in
2131: );
2132:
2133: IF P_DEBUG_MODE = 'Y' THEN
2134: pa_fck_util.debug_msg( 'Number of pa_cost_distribution_lines_all updated'||SQL%ROWCOUNT);
2135: pa_fck_util.debug_msg( 'Updating budget_version_id and budget_line_id on pa_bc_commitments_all ');
2136: END IF;
2137:
2138: -- Bug 5206341 : Logic to stamp new budget_line_id for transactions which are falling with in
2139: -- closed periods.For transactions falling in open/future periods ,sweeper process will be updating
2149: AND l_glprdstatustab(i) = 'C'
2150: AND bccom.budget_version_id = pa_budget_fund_pkg.g_cost_prev_bvid;
2151:
2152: IF P_DEBUG_MODE = 'Y' THEN
2153: pa_fck_util.debug_msg( 'Number of pa_bc_commitments_all updated'||SQL%ROWCOUNT);
2154: END IF;
2155:
2156: END IF; -- IF l_closed_prd_exists = 'Y' THEN
2157:
2166: OPEN c_bccom_packets;
2167: LOOP
2168:
2169: IF P_DEBUG_MODE = 'Y' THEN
2170: pa_fck_util.debug_msg('Clearing local plsql tabs');
2171: END IF;
2172:
2173: Intialize_plsql_tables;
2174:
2188: l_glprdstatustab
2189: LIMIT 500;
2190:
2191: IF P_DEBUG_MODE = 'Y' THEN
2192: pa_fck_util.debug_msg('Number of records fetched from pa_bc_packets ='||l_DocHdrTab.count);
2193: END IF;
2194:
2195: FOR i in 1..l_DocHdrTab.count LOOP
2196: pa_fck_util.debug_msg('Value of l_DocHdrTab ('||i||')='||l_DocHdrTab(i));
2192: pa_fck_util.debug_msg('Number of records fetched from pa_bc_packets ='||l_DocHdrTab.count);
2193: END IF;
2194:
2195: FOR i in 1..l_DocHdrTab.count LOOP
2196: pa_fck_util.debug_msg('Value of l_DocHdrTab ('||i||')='||l_DocHdrTab(i));
2197: pa_fck_util.debug_msg('Value of l_DocDistTab('||i||')='||l_DocDistTab(i));
2198: pa_fck_util.debug_msg('Value of l_bccomidTab ('||i||')='||l_bccomidTab(i));
2199: pa_fck_util.debug_msg('Value of l_projidTab ('||i||')='||l_projidTab(i));
2200: pa_fck_util.debug_msg('Value of l_taskidTab ('||i||')='||l_taskidTab(i));
2193: END IF;
2194:
2195: FOR i in 1..l_DocHdrTab.count LOOP
2196: pa_fck_util.debug_msg('Value of l_DocHdrTab ('||i||')='||l_DocHdrTab(i));
2197: pa_fck_util.debug_msg('Value of l_DocDistTab('||i||')='||l_DocDistTab(i));
2198: pa_fck_util.debug_msg('Value of l_bccomidTab ('||i||')='||l_bccomidTab(i));
2199: pa_fck_util.debug_msg('Value of l_projidTab ('||i||')='||l_projidTab(i));
2200: pa_fck_util.debug_msg('Value of l_taskidTab ('||i||')='||l_taskidTab(i));
2201: pa_fck_util.debug_msg('Value of l_toptaskidTab ('||i||')='||l_toptaskidTab(i));
2194:
2195: FOR i in 1..l_DocHdrTab.count LOOP
2196: pa_fck_util.debug_msg('Value of l_DocHdrTab ('||i||')='||l_DocHdrTab(i));
2197: pa_fck_util.debug_msg('Value of l_DocDistTab('||i||')='||l_DocDistTab(i));
2198: pa_fck_util.debug_msg('Value of l_bccomidTab ('||i||')='||l_bccomidTab(i));
2199: pa_fck_util.debug_msg('Value of l_projidTab ('||i||')='||l_projidTab(i));
2200: pa_fck_util.debug_msg('Value of l_taskidTab ('||i||')='||l_taskidTab(i));
2201: pa_fck_util.debug_msg('Value of l_toptaskidTab ('||i||')='||l_toptaskidTab(i));
2202: pa_fck_util.debug_msg('Value of l_rlmidTab ('||i||')='||l_rlmidTab(i));
2195: FOR i in 1..l_DocHdrTab.count LOOP
2196: pa_fck_util.debug_msg('Value of l_DocHdrTab ('||i||')='||l_DocHdrTab(i));
2197: pa_fck_util.debug_msg('Value of l_DocDistTab('||i||')='||l_DocDistTab(i));
2198: pa_fck_util.debug_msg('Value of l_bccomidTab ('||i||')='||l_bccomidTab(i));
2199: pa_fck_util.debug_msg('Value of l_projidTab ('||i||')='||l_projidTab(i));
2200: pa_fck_util.debug_msg('Value of l_taskidTab ('||i||')='||l_taskidTab(i));
2201: pa_fck_util.debug_msg('Value of l_toptaskidTab ('||i||')='||l_toptaskidTab(i));
2202: pa_fck_util.debug_msg('Value of l_rlmidTab ('||i||')='||l_rlmidTab(i));
2203: pa_fck_util.debug_msg('Value of l_startdateTab ('||i||')='||l_startdateTab(i));
2196: pa_fck_util.debug_msg('Value of l_DocHdrTab ('||i||')='||l_DocHdrTab(i));
2197: pa_fck_util.debug_msg('Value of l_DocDistTab('||i||')='||l_DocDistTab(i));
2198: pa_fck_util.debug_msg('Value of l_bccomidTab ('||i||')='||l_bccomidTab(i));
2199: pa_fck_util.debug_msg('Value of l_projidTab ('||i||')='||l_projidTab(i));
2200: pa_fck_util.debug_msg('Value of l_taskidTab ('||i||')='||l_taskidTab(i));
2201: pa_fck_util.debug_msg('Value of l_toptaskidTab ('||i||')='||l_toptaskidTab(i));
2202: pa_fck_util.debug_msg('Value of l_rlmidTab ('||i||')='||l_rlmidTab(i));
2203: pa_fck_util.debug_msg('Value of l_startdateTab ('||i||')='||l_startdateTab(i));
2204: pa_fck_util.debug_msg('Value of l_entrylevelcode ('||i||')='||l_entrylevelcode(i));
2197: pa_fck_util.debug_msg('Value of l_DocDistTab('||i||')='||l_DocDistTab(i));
2198: pa_fck_util.debug_msg('Value of l_bccomidTab ('||i||')='||l_bccomidTab(i));
2199: pa_fck_util.debug_msg('Value of l_projidTab ('||i||')='||l_projidTab(i));
2200: pa_fck_util.debug_msg('Value of l_taskidTab ('||i||')='||l_taskidTab(i));
2201: pa_fck_util.debug_msg('Value of l_toptaskidTab ('||i||')='||l_toptaskidTab(i));
2202: pa_fck_util.debug_msg('Value of l_rlmidTab ('||i||')='||l_rlmidTab(i));
2203: pa_fck_util.debug_msg('Value of l_startdateTab ('||i||')='||l_startdateTab(i));
2204: pa_fck_util.debug_msg('Value of l_entrylevelcode ('||i||')='||l_entrylevelcode(i));
2205: pa_fck_util.debug_msg('Value of l_burcodeTab ('||i||')='||l_burcodeTab(i));
2198: pa_fck_util.debug_msg('Value of l_bccomidTab ('||i||')='||l_bccomidTab(i));
2199: pa_fck_util.debug_msg('Value of l_projidTab ('||i||')='||l_projidTab(i));
2200: pa_fck_util.debug_msg('Value of l_taskidTab ('||i||')='||l_taskidTab(i));
2201: pa_fck_util.debug_msg('Value of l_toptaskidTab ('||i||')='||l_toptaskidTab(i));
2202: pa_fck_util.debug_msg('Value of l_rlmidTab ('||i||')='||l_rlmidTab(i));
2203: pa_fck_util.debug_msg('Value of l_startdateTab ('||i||')='||l_startdateTab(i));
2204: pa_fck_util.debug_msg('Value of l_entrylevelcode ('||i||')='||l_entrylevelcode(i));
2205: pa_fck_util.debug_msg('Value of l_burcodeTab ('||i||')='||l_burcodeTab(i));
2206: pa_fck_util.debug_msg('Value of l_bvidTab ('||i||')='||l_bvidTab(i));
2199: pa_fck_util.debug_msg('Value of l_projidTab ('||i||')='||l_projidTab(i));
2200: pa_fck_util.debug_msg('Value of l_taskidTab ('||i||')='||l_taskidTab(i));
2201: pa_fck_util.debug_msg('Value of l_toptaskidTab ('||i||')='||l_toptaskidTab(i));
2202: pa_fck_util.debug_msg('Value of l_rlmidTab ('||i||')='||l_rlmidTab(i));
2203: pa_fck_util.debug_msg('Value of l_startdateTab ('||i||')='||l_startdateTab(i));
2204: pa_fck_util.debug_msg('Value of l_entrylevelcode ('||i||')='||l_entrylevelcode(i));
2205: pa_fck_util.debug_msg('Value of l_burcodeTab ('||i||')='||l_burcodeTab(i));
2206: pa_fck_util.debug_msg('Value of l_bvidTab ('||i||')='||l_bvidTab(i));
2207: pa_fck_util.debug_msg('Value of l_glprdstatustab ('||i||')='||l_glprdstatustab(i));
2200: pa_fck_util.debug_msg('Value of l_taskidTab ('||i||')='||l_taskidTab(i));
2201: pa_fck_util.debug_msg('Value of l_toptaskidTab ('||i||')='||l_toptaskidTab(i));
2202: pa_fck_util.debug_msg('Value of l_rlmidTab ('||i||')='||l_rlmidTab(i));
2203: pa_fck_util.debug_msg('Value of l_startdateTab ('||i||')='||l_startdateTab(i));
2204: pa_fck_util.debug_msg('Value of l_entrylevelcode ('||i||')='||l_entrylevelcode(i));
2205: pa_fck_util.debug_msg('Value of l_burcodeTab ('||i||')='||l_burcodeTab(i));
2206: pa_fck_util.debug_msg('Value of l_bvidTab ('||i||')='||l_bvidTab(i));
2207: pa_fck_util.debug_msg('Value of l_glprdstatustab ('||i||')='||l_glprdstatustab(i));
2208: END LOOP;
2201: pa_fck_util.debug_msg('Value of l_toptaskidTab ('||i||')='||l_toptaskidTab(i));
2202: pa_fck_util.debug_msg('Value of l_rlmidTab ('||i||')='||l_rlmidTab(i));
2203: pa_fck_util.debug_msg('Value of l_startdateTab ('||i||')='||l_startdateTab(i));
2204: pa_fck_util.debug_msg('Value of l_entrylevelcode ('||i||')='||l_entrylevelcode(i));
2205: pa_fck_util.debug_msg('Value of l_burcodeTab ('||i||')='||l_burcodeTab(i));
2206: pa_fck_util.debug_msg('Value of l_bvidTab ('||i||')='||l_bvidTab(i));
2207: pa_fck_util.debug_msg('Value of l_glprdstatustab ('||i||')='||l_glprdstatustab(i));
2208: END LOOP;
2209:
2202: pa_fck_util.debug_msg('Value of l_rlmidTab ('||i||')='||l_rlmidTab(i));
2203: pa_fck_util.debug_msg('Value of l_startdateTab ('||i||')='||l_startdateTab(i));
2204: pa_fck_util.debug_msg('Value of l_entrylevelcode ('||i||')='||l_entrylevelcode(i));
2205: pa_fck_util.debug_msg('Value of l_burcodeTab ('||i||')='||l_burcodeTab(i));
2206: pa_fck_util.debug_msg('Value of l_bvidTab ('||i||')='||l_bvidTab(i));
2207: pa_fck_util.debug_msg('Value of l_glprdstatustab ('||i||')='||l_glprdstatustab(i));
2208: END LOOP;
2209:
2210: IF l_DocHdrTab.count = 0 THEN
2203: pa_fck_util.debug_msg('Value of l_startdateTab ('||i||')='||l_startdateTab(i));
2204: pa_fck_util.debug_msg('Value of l_entrylevelcode ('||i||')='||l_entrylevelcode(i));
2205: pa_fck_util.debug_msg('Value of l_burcodeTab ('||i||')='||l_burcodeTab(i));
2206: pa_fck_util.debug_msg('Value of l_bvidTab ('||i||')='||l_bvidTab(i));
2207: pa_fck_util.debug_msg('Value of l_glprdstatustab ('||i||')='||l_glprdstatustab(i));
2208: END LOOP;
2209:
2210: IF l_DocHdrTab.count = 0 THEN
2211: IF P_DEBUG_MODE = 'Y' THEN
2208: END LOOP;
2209:
2210: IF l_DocHdrTab.count = 0 THEN
2211: IF P_DEBUG_MODE = 'Y' THEN
2212: pa_fck_util.debug_msg('No more records to process');
2213: END IF;
2214: EXIT;
2215: END IF;
2216:
2214: EXIT;
2215: END IF;
2216:
2217: IF P_DEBUG_MODE = 'Y' THEN
2218: pa_fck_util.debug_msg( 'deriving budget_version_id and budget_line_id ');
2219: END IF;
2220:
2221: FOR i in l_DocHdrTab.first..l_DocHdrTab.last LOOP
2222:
2233: x_return_status => l_return_status,
2234: x_error_message_code => l_error_message_code );
2235:
2236: IF P_DEBUG_MODE = 'Y' THEN
2237: pa_fck_util.debug_msg( 'Value of l_blidTab(i) '||l_blidTab(i));
2238: END IF;
2239:
2240: END LOOP;
2241:
2239:
2240: END LOOP;
2241:
2242: IF P_DEBUG_MODE = 'Y' THEN
2243: pa_fck_util.debug_msg( 'Updating budget_version_id and budget_line_id on pa_cost_distribution_lines_all for EXP');
2244: END IF;
2245:
2246: FORALL i in l_DocHdrTab.first..l_DocHdrTab.last
2247: UPDATE pa_cost_distribution_lines_all cdl
2260: AND xev.process_status_code <> 'P' )
2261: );
2262:
2263: IF P_DEBUG_MODE = 'Y' THEN
2264: pa_fck_util.debug_msg( 'Number of pa_cost_distribution_lines_all updated'||SQL%ROWCOUNT);
2265: pa_fck_util.debug_msg( 'Updating budget_version_id and budget_line_id on pa_cost_distribution_lines_all for BTC');
2266: END IF;
2267:
2268: FORALL i in l_DocHdrTab.first..l_DocHdrTab.last
2261: );
2262:
2263: IF P_DEBUG_MODE = 'Y' THEN
2264: pa_fck_util.debug_msg( 'Number of pa_cost_distribution_lines_all updated'||SQL%ROWCOUNT);
2265: pa_fck_util.debug_msg( 'Updating budget_version_id and budget_line_id on pa_cost_distribution_lines_all for BTC');
2266: END IF;
2267:
2268: FORALL i in l_DocHdrTab.first..l_DocHdrTab.last
2269: UPDATE pa_cost_distribution_lines_all cdl
2286: AND xev.process_status_code <> 'P' )
2287: );
2288:
2289: IF P_DEBUG_MODE = 'Y' THEN
2290: pa_fck_util.debug_msg( 'Number of pa_cost_distribution_lines_all updated'||SQL%ROWCOUNT);
2291: pa_fck_util.debug_msg( 'Updating budget_version_id and budget_line_id on pa_bc_commitments_all ');
2292: END IF;
2293:
2294: FORALL i in l_DocHdrTab.first..l_DocHdrTab.last
2287: );
2288:
2289: IF P_DEBUG_MODE = 'Y' THEN
2290: pa_fck_util.debug_msg( 'Number of pa_cost_distribution_lines_all updated'||SQL%ROWCOUNT);
2291: pa_fck_util.debug_msg( 'Updating budget_version_id and budget_line_id on pa_bc_commitments_all ');
2292: END IF;
2293:
2294: FORALL i in l_DocHdrTab.first..l_DocHdrTab.last
2295: UPDATE pa_bc_commitments_all bccom
2297: bccom.budget_line_id = NVL(l_blidTab(i),bccom.budget_line_id)
2298: WHERE bccom.bc_commitment_id = l_bccomidTab(i);
2299:
2300: IF P_DEBUG_MODE = 'Y' THEN
2301: pa_fck_util.debug_msg( 'Number of pa_bc_commitments updated'||SQL%ROWCOUNT);
2302: END IF;
2303:
2304: END LOOP;
2305: CLOSE c_bccom_packets;
2306:
2307: END IF; --IF p_calling_mode = 'YEAR END ROLLOVER' THEN
2308:
2309: IF P_DEBUG_MODE = 'Y' THEN
2310: pa_fck_util.debug_msg('Update_bvid_blid_on_cdl_bccom: End' );
2311: END IF;
2312:
2313: Exception
2314: When OTHERS then
2312:
2313: Exception
2314: When OTHERS then
2315: IF P_DEBUG_MODE = 'Y' THEN
2316: pa_fck_util.debug_msg('EXCEPTION: '||SQLERRM);
2317: END IF;
2318: RAISE;
2319: END Update_bvid_blid_on_cdl_bccom;
2320: