[Home] [Help]
7270:
7271: --If p_mode <> 'B' then
7272: If p_calling_module in ('DISTBTC','DISTERADJ','CBC','EXPENDITURE','DISTCWKST','DISTVIADJ' ,'TRXIMPORT') then
7273:
7274: -- get budget_code_combination_id from pa_budget_lines
7275: -- for the given budget_version_id,project_id,task_id and resource list member id
7276: -- get the resource assignment_id from pa_resource_assignments
7277: -- get the budget_code_combination_id from pa_budget_lines for the
7278: -- given resource assignment id and start date of the gl period
7273:
7274: -- get budget_code_combination_id from pa_budget_lines
7275: -- for the given budget_version_id,project_id,task_id and resource list member id
7276: -- get the resource assignment_id from pa_resource_assignments
7277: -- get the budget_code_combination_id from pa_budget_lines for the
7278: -- given resource assignment id and start date of the gl period
7279: IF p_ext_bdgt_link = 'Y' then
7280: IF g_debug_mode = 'Y' THEN
7281: log_message(p_msg_token1 =>'Calling Budget ccid api In parameters are'||
8198: l_bud_task_id NUMBER;
8199: l_top_task_id NUMBER;
8200: l_trxn_ccid NUMBER;
8201: l_budget_ccid NUMBER;
8202: l_budget_line_id pa_budget_lines.budget_line_id%type;
8203: l_r_fclevel_code VARCHAR2(10);
8204: l_rg_fclevel_code VARCHAR2(10);
8205: l_t_fclevel_code VARCHAR2(10);
8206: l_tt_fclevel_code VARCHAR2(10);
14488: pbl.budget_line_id,
14489: pra.resource_list_member_id,
14490: pra.task_id,
14491: pbl.period_name --glps.period_name
14492: from pa_budget_lines pbl,
14493: pa_resource_assignments pra--,
14494: --gl_period_statuses glps
14495: where pra.budget_version_id = p_budget_version_id
14496: and pra.project_id = p_project_id -- added to improve performance ..
14519: pra.resource_list_member_id rlmi,
14520: pbl.start_date,
14521: pbl.txn_currency_code
14522: from gl_bc_packets glbc,
14523: pa_budget_lines pbl,
14524: pa_resource_assignments pra
14525: where glbc.packet_id = p_packet_id
14526: and pbl.budget_version_id = p_budget_version_id
14527: and pbl.budget_line_id = glbc.source_distribution_id_num_1
14547: pra.task_id,
14548: pra.resource_list_member_id,
14549: nvl(prlm.parent_member_id,-99) parent_rlmi
14550: from gl_bc_packets glbc,
14551: pa_budget_lines pbl,
14552: pa_resource_assignments pra,
14553: pa_resource_list_members prlm
14554: where glbc.packet_id = p_packet_id
14555: and pbl.budget_version_id = p_budget_version_id
14632:
14633: Select 1 into l_dummy_value from dual
14634: where exists (Select 1
14635: from gl_bc_packets glbc,
14636: pa_budget_lines pbl
14637: where glbc.packet_id = p_packet_id
14638: and pbl.budget_version_id = pa_budget_fund_pkg.g_cost_current_bvid
14639: and pbl.budget_line_id = glbc.source_distribution_id_num_1);
14640:
15001: for x in t_project_id.FIRST..t_project_id.LAST loop
15002: Begin
15003: select code_combination_id draft_ccid
15004: into t_draft_ccid(x)
15005: from pa_budget_lines bl,
15006: pa_resource_assignments pra
15007: where pra.budget_version_id = l_draft_budget_version_id
15008: and pra.project_id = t_project_id(x)
15009: and pra.task_id = t_task_id(x)
15118: -- version only). i.e. account change not allowed on a budget line
15119: -- that has txn.s against it. If any found, fail gl_bc_packets with F35
15120: --
15121: -- IF ACCOUNT CHANGE ALLOWED, then update the account information on
15122: -- pa_budget_lines
15123: -- Note: We however have to synch data for all modes and all budget types ..
15124: -- ---------------------------------------------------------------------------+
15125:
15126:
15210:
15211: Begin
15212: select pbl.code_combination_id into
15213: t_prev_ver_ccid(x)
15214: from pa_budget_lines pbl,
15215: pa_resource_assignments pra
15216: where pbl.start_date = t_budget_start_date(x)
15217: and pbl.txn_currency_code = t_txn_currency_code(x)
15218: and pbl.budget_version_id = pa_budget_fund_pkg.g_cost_prev_bvid
15351:
15352: Begin
15353: select pbl.rowid,pbl.code_combination_id into
15354: t_draft_budget_rowid(x),t_draft_ccid(x)
15355: from pa_budget_lines pbl,
15356: pa_resource_assignments pra
15357: where pbl.start_date = t_budget_start_date(x)
15358: and pbl.txn_currency_code = t_txn_currency_code(x)
15359: and pbl.budget_version_id = pra.budget_version_id
15523: log_message(p_msg_token1=>l_program_name||': Updating budget line on current version' );
15524: End If;
15525:
15526: forall x in t_ccid.FIRST..t_ccid.LAST
15527: Update pa_budget_lines pbl
15528: set pbl.code_combination_id = t_ccid(x)
15529: where pbl.rowid = t_budget_rowid(x)
15530: and t_bud_ccid(x) <> t_ccid(x)
15531: and g_tab_allow_flag(x) = 'Y';
15978: 0,nvl(pbl.raw_cost,0),
15979: pbl.burdened_cost ),
15980: 0 ),
15981: 0 )) total_amount
15982: from pa_budget_lines pbl
15983: where budget_version_id = p_budget_version_id
15984: group by pbl.period_name,
15985: pbl.start_date,
15986: pbl.end_date,
16397: l_count number;
16398: PRAGMA AUTONOMOUS_TRANSACTION;
16399: Begin
16400: forall x in p_new_ccid.FIRST..p_new_ccid.LAST
16401: Update pa_budget_lines pbl
16402: set pbl.code_combination_id = p_new_ccid(x)
16403: where pbl.rowid = p_budget_line_rowid(x)
16404: and p_budget_ccid(x) <> p_new_ccid(x)
16405: and p_change_allowed(x) = 'Y'