[Home] [Help]
7468:
7469: --If p_mode <> 'B' then
7470: If p_calling_module in ('DISTBTC','DISTERADJ','CBC','EXPENDITURE','DISTCWKST','DISTVIADJ' ,'TRXIMPORT') then
7471:
7472: -- get budget_code_combination_id from pa_budget_lines
7473: -- for the given budget_version_id,project_id,task_id and resource list member id
7474: -- get the resource assignment_id from pa_resource_assignments
7475: -- get the budget_code_combination_id from pa_budget_lines for the
7476: -- given resource assignment id and start date of the gl period
7471:
7472: -- get budget_code_combination_id from pa_budget_lines
7473: -- for the given budget_version_id,project_id,task_id and resource list member id
7474: -- get the resource assignment_id from pa_resource_assignments
7475: -- get the budget_code_combination_id from pa_budget_lines for the
7476: -- given resource assignment id and start date of the gl period
7477: IF p_ext_bdgt_link = 'Y' then
7478: IF g_debug_mode = 'Y' THEN
7479: log_message(p_msg_token1 =>'Calling Budget ccid api In parameters are'||
8420: l_bud_task_id NUMBER;
8421: l_top_task_id NUMBER;
8422: l_trxn_ccid NUMBER;
8423: l_budget_ccid NUMBER;
8424: l_budget_line_id pa_budget_lines.budget_line_id%type;
8425: l_r_fclevel_code VARCHAR2(10);
8426: l_rg_fclevel_code VARCHAR2(10);
8427: l_t_fclevel_code VARCHAR2(10);
8428: l_tt_fclevel_code VARCHAR2(10);
14910: pbl.budget_line_id,
14911: pra.resource_list_member_id,
14912: pra.task_id,
14913: pbl.period_name --glps.period_name
14914: from pa_budget_lines pbl,
14915: pa_resource_assignments pra--,
14916: --gl_period_statuses glps
14917: where pra.budget_version_id = p_budget_version_id
14918: and pra.project_id = p_project_id -- added to improve performance ..
14941: pra.resource_list_member_id rlmi,
14942: pbl.start_date,
14943: pbl.txn_currency_code
14944: from gl_bc_packets glbc,
14945: pa_budget_lines pbl,
14946: pa_resource_assignments pra
14947: where glbc.packet_id = p_packet_id
14948: and pbl.budget_version_id = p_budget_version_id
14949: and pbl.budget_line_id = glbc.source_distribution_id_num_1
14969: pra.task_id,
14970: pra.resource_list_member_id,
14971: nvl(prlm.parent_member_id,-99) parent_rlmi
14972: from gl_bc_packets glbc,
14973: pa_budget_lines pbl,
14974: pa_resource_assignments pra,
14975: pa_resource_list_members prlm
14976: where glbc.packet_id = p_packet_id
14977: and pbl.budget_version_id = p_budget_version_id
15054:
15055: Select 1 into l_dummy_value from dual
15056: where exists (Select 1
15057: from gl_bc_packets glbc,
15058: pa_budget_lines pbl
15059: where glbc.packet_id = p_packet_id
15060: and pbl.budget_version_id = pa_budget_fund_pkg.g_cost_current_bvid
15061: and pbl.budget_line_id = glbc.source_distribution_id_num_1);
15062:
15432: for x in t_project_id.FIRST..t_project_id.LAST loop
15433: Begin
15434: select code_combination_id draft_ccid
15435: into t_draft_ccid(x)
15436: from pa_budget_lines bl,
15437: pa_resource_assignments pra
15438: where pra.budget_version_id = l_draft_budget_version_id
15439: and pra.project_id = t_project_id(x)
15440: and pra.task_id = t_task_id(x)
15549: -- version only). i.e. account change not allowed on a budget line
15550: -- that has txn.s against it. If any found, fail gl_bc_packets with F35
15551: --
15552: -- IF ACCOUNT CHANGE ALLOWED, then update the account information on
15553: -- pa_budget_lines
15554: -- Note: We however have to synch data for all modes and all budget types ..
15555: -- ---------------------------------------------------------------------------+
15556:
15557:
15641:
15642: Begin
15643: select pbl.code_combination_id into
15644: t_prev_ver_ccid(x)
15645: from pa_budget_lines pbl,
15646: pa_resource_assignments pra
15647: where pbl.start_date = t_budget_start_date(x)
15648: and pbl.txn_currency_code = t_txn_currency_code(x)
15649: and pbl.budget_version_id = pa_budget_fund_pkg.g_cost_prev_bvid
15782:
15783: Begin
15784: select pbl.rowid,pbl.code_combination_id into
15785: t_draft_budget_rowid(x),t_draft_ccid(x)
15786: from pa_budget_lines pbl,
15787: pa_resource_assignments pra
15788: where pbl.start_date = t_budget_start_date(x)
15789: and pbl.txn_currency_code = t_txn_currency_code(x)
15790: and pbl.budget_version_id = pra.budget_version_id
15954: log_message(p_msg_token1=>l_program_name||': Updating budget line on current version' );
15955: End If;
15956:
15957: forall x in t_ccid.FIRST..t_ccid.LAST
15958: Update pa_budget_lines pbl
15959: set pbl.code_combination_id = t_ccid(x)
15960: where pbl.rowid = t_budget_rowid(x)
15961: and t_bud_ccid(x) <> t_ccid(x)
15962: and g_tab_allow_flag(x) = 'Y';
16409: 0,nvl(pbl.raw_cost,0),
16410: pbl.burdened_cost ),
16411: 0 ),
16412: 0 )) total_amount
16413: from pa_budget_lines pbl
16414: where budget_version_id = p_budget_version_id
16415: group by pbl.period_name,
16416: pbl.start_date,
16417: pbl.end_date,
16828: l_count number;
16829: PRAGMA AUTONOMOUS_TRANSACTION;
16830: Begin
16831: forall x in p_new_ccid.FIRST..p_new_ccid.LAST
16832: Update pa_budget_lines pbl
16833: set pbl.code_combination_id = p_new_ccid(x)
16834: where pbl.rowid = p_budget_line_rowid(x)
16835: and p_budget_ccid(x) <> p_new_ccid(x)
16836: and p_change_allowed(x) = 'Y'