DBA Data[Home] [Help]

APPS.PA_BUDGET_FUND_PKG dependencies on DUAL

Line 14: -- x_dual_bdgt_cntrl_flag : Y --> Yes, N --> No

10: -- for input budget version id.
11:
12: --Parameters :
13: -- p_calling_code : CHECK_FUNDS/CHECK_BASELINE/RESERVE_BASELINE
14: -- x_dual_bdgt_cntrl_flag : Y --> Yes, N --> No
15:
16: CURSOR c_close_period_check( c_set_of_books_id NUMBER, c_budget_version_id NUMBER ) IS
17: SELECT 'X'
18: FROM dual

Line 18: FROM dual

14: -- x_dual_bdgt_cntrl_flag : Y --> Yes, N --> No
15:
16: CURSOR c_close_period_check( c_set_of_books_id NUMBER, c_budget_version_id NUMBER ) IS
17: SELECT 'X'
18: FROM dual
19: WHERE EXISTS
20: (SELECT 'X'
21: FROM PA_BUDGET_ACCT_LINES PBA,
22: GL_PERIOD_STATUSES GLS

Line 384: FROM dual ;

380: 'F','F',
381: 'T','F' )),
382: 'F')
383: INTO l_funds_chk_rsrv_status
384: FROM dual ;
385:
386: --commit;--Bug 6524116; Removed as this is causing issue with IGC funds checking.
387:
388: x_funds_chk_rsrv_status := l_funds_chk_rsrv_status;

Line 890: x_dual_bdgt_cntrl_flag OUT NOCOPY VARCHAR2,

886: -- -------------------------------------------------------------------+
887: PROCEDURE check_or_reserve_funds ( p_project_id IN NUMBER,
888: p_budget_version_id IN NUMBER,
889: p_calling_mode IN VARCHAR2,
890: x_dual_bdgt_cntrl_flag OUT NOCOPY VARCHAR2,
891: x_cc_budget_version_id OUT NOCOPY NUMBER,
892: x_return_status OUT NOCOPY VARCHAR2,
893: x_msg_count OUT NOCOPY NUMBER,
894: x_msg_data OUT NOCOPY VARCHAR2 )

Line 901: l_dual_mode_acct_gen_failed EXCEPTION;

897: l_budget_processing_failure EXCEPTION;
898:
899: l_top_down_bdgt_failed EXCEPTION;
900:
901: l_dual_mode_acct_gen_failed EXCEPTION;
902: l_dual_bc_fc_failed EXCEPTION;
903: l_cbc_not_supported EXCEPTION;
904:
905: l_draft_budget_version_id PA_BUDGET_VERSIONS.budget_version_id%TYPE;

Line 902: l_dual_bc_fc_failed EXCEPTION;

898:
899: l_top_down_bdgt_failed EXCEPTION;
900:
901: l_dual_mode_acct_gen_failed EXCEPTION;
902: l_dual_bc_fc_failed EXCEPTION;
903: l_cbc_not_supported EXCEPTION;
904:
905: l_draft_budget_version_id PA_BUDGET_VERSIONS.budget_version_id%TYPE;
906: l_cc_draft_budget_version_id PA_BUDGET_VERSIONS.budget_version_id%TYPE;

Line 925: l_dual_bdgt_cntrl_flag VARCHAR2(1);

921: l_budget_type PA_BUDGETARY_CONTROL_OPTIONS.budget_type_code%TYPE ;
922: l_budget_amount_code PA_BUDGET_TYPES.Budget_amount_code%TYPE;
923: l_budget_entry_level_code PA_Budget_Entry_Methods.entry_level_code%TYPE;
924:
925: l_dual_bdgt_cntrl_flag VARCHAR2(1);
926: l_cc_budget_version_id NUMBER;
927: l_gl_budget_version_id NUMBER;
928: l_return_status VARCHAR2(1) ;
929: t_return_status VARCHAR2(1) ;

Line 1022: x_dual_bdgt_cntrl_flag := 'N';

1018: x_return_status := FND_API.G_RET_STS_SUCCESS;
1019: RETURN;
1020: End If;
1021:
1022: x_dual_bdgt_cntrl_flag := 'N';
1023: x_cc_budget_version_id := NULL;
1024:
1025: -----------------------------------------------+
1026: -- 1.0: Get the budgetary control options

Line 1147: g_external_link := 'DUAL';

1143: ElsIf l_external_budget_code = 'CC' then
1144: If g_processing_mode = 'CHECK_FUNDS' then
1145: g_external_link := 'CC';
1146: ElsIf g_processing_mode = 'BASELINE' then
1147: g_external_link := 'DUAL';
1148: End If;
1149: End If;
1150:
1151: log_message('g_external_link:'||g_external_link);

Line 1414: from dual;

1410: -- ## Call Budgetary Control Funds Check API
1411:
1412: Select decode(g_budget_amount_code,'C','Cost_Budget','R','Revenue_Budget')
1413: into l_calling_module
1414: from dual;
1415:
1416: log_message('Calling CREATE_EVENTS_AND_FUNDSCHECK');
1417:
1418: CREATE_EVENTS_AND_FUNDSCHECK

Line 1443: -- ## 1. Check if its dual budgeting ...

1439:
1440: -- top down budgeting
1441: log_message('implemented top down budgeting ....') ;
1442:
1443: -- ## 1. Check if its dual budgeting ...
1444: log_message(' Check if its dual budgeting ...');
1445:
1446: BEGIN
1447: Select budget_type_code, encumbrance_type_id

Line 1444: log_message(' Check if its dual budgeting ...');

1440: -- top down budgeting
1441: log_message('implemented top down budgeting ....') ;
1442:
1443: -- ## 1. Check if its dual budgeting ...
1444: log_message(' Check if its dual budgeting ...');
1445:
1446: BEGIN
1447: Select budget_type_code, encumbrance_type_id
1448: into l_cc_budget_type_code, l_cc_encumbrance_type_id

Line 1463: -- ## 2. Its not Dual integration

1459: ||l_cc_budget_type_code||','||to_char(l_cc_encumbrance_type_id)) ;
1460:
1461: -- ------------------------------------------------------------+
1462: If ( l_cc_budget_type_code is null ) then -- III
1463: -- ## 2. Its not Dual integration
1464:
1465: --If g_cost_rebaseline_flag = 'Y' then
1466: -- ## 2.1 Call Budget Account generator ..
1467: -- Calling gen_acct_all_lines which is non autonomous ..

Line 1553: g_external_link := 'DUAL';

1549: -- Following code needs to be uncommented for CC Integration .
1550: -- Fix the account generator issue by calling gen_Account_all_lines
1551:
1552: -- Overried g_external_link, used in pa_funds_control_pkg (tieback code)
1553: g_external_link := 'DUAL';
1554:
1555: -- ## 3 Dual Integration
1556: -- ## 3.1 Check if CC Budget exists
1557: -- ## 3.2 Check if CC and GL, total budget amounts match

Line 1555: -- ## 3 Dual Integration

1551:
1552: -- Overried g_external_link, used in pa_funds_control_pkg (tieback code)
1553: g_external_link := 'DUAL';
1554:
1555: -- ## 3 Dual Integration
1556: -- ## 3.1 Check if CC Budget exists
1557: -- ## 3.2 Check if CC and GL, total budget amounts match
1558: -- ## 3.3 Call PA FC for GL Budget
1559: -- ## 3.4 Get CC Draft version

Line 1685: (P_calling_module => 'Dual_Budget',

1681: -- ------------------------------------------------------------+
1682: log_message('Call BC FC API');
1683:
1684: CREATE_EVENTS_AND_FUNDSCHECK
1685: (P_calling_module => 'Dual_Budget',
1686: P_mode => 'Reserve_Baseline',
1687: P_External_Budget_Code => 'Dual',
1688: P_budget_version_id => P_Budget_version_id,
1689: P_cc_budget_version_id => l_cc_budget_version_id,

Line 1687: P_External_Budget_Code => 'Dual',

1683:
1684: CREATE_EVENTS_AND_FUNDSCHECK
1685: (P_calling_module => 'Dual_Budget',
1686: P_mode => 'Reserve_Baseline',
1687: P_External_Budget_Code => 'Dual',
1688: P_budget_version_id => P_Budget_version_id,
1689: P_cc_budget_version_id => l_cc_budget_version_id,
1690: P_result_code => l_return_status);
1691:

Line 1694: RAISE l_dual_bc_fc_failed;

1690: P_result_code => l_return_status);
1691:
1692: IF l_return_status = 'E' THEN
1693: l_msg_data := g_msg_data;
1694: RAISE l_dual_bc_fc_failed;
1695:
1696: ELSE
1697: x_cc_budget_version_id := l_cc_budget_version_id;
1698: x_dual_bdgt_cntrl_flag := 'Y';

Line 1698: x_dual_bdgt_cntrl_flag := 'Y';

1694: RAISE l_dual_bc_fc_failed;
1695:
1696: ELSE
1697: x_cc_budget_version_id := l_cc_budget_version_id;
1698: x_dual_bdgt_cntrl_flag := 'Y';
1699:
1700: END IF;
1701:
1702: -- ------------------------------------------------------------+

Line 1815: RAISE l_dual_mode_acct_gen_failed ;

1811: X_Msg_Count => l_msg_count,
1812: X_Msg_Data => l_msg_data) ;
1813:
1814: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1815: RAISE l_dual_mode_acct_gen_failed ;
1816: END IF ;
1817:
1818: -- ------------------------------------------------------------+
1819: -- ## 3.8 Call Account generator for CC Budget

Line 1831: RAISE l_dual_mode_acct_gen_failed ;

1827: X_Msg_Count => l_msg_count,
1828: X_Msg_Data => l_msg_data) ;
1829:
1830: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1831: RAISE l_dual_mode_acct_gen_failed ;
1832: END IF ;
1833: */
1834:
1835: --Start Bug 6524116

Line 1864: RAISE l_dual_bc_fc_failed;

1860: and bc_event_id is not null;
1861: end if;
1862: /*PSA_FUNDS_CHECKER_PKG.sync_xla_errors(p_failed_ldgr_array => ledger_id_tab,
1863: p_failed_evnt_array => rejected_event_id_tab);*/
1864: RAISE l_dual_bc_fc_failed;
1865: END if;
1866: --END Bug 6524116
1867:
1868: -- As the last step, update pa_bc to pass

Line 1875: End If; -- III (Top Down: GL or Dual check)

1871: -- Bug 5206537 : Procedure to stamp latest budget version id and budget line id on CDL
1872: PA_FUNDS_CONTROL_UTILS.Update_bvid_blid_on_cdl_bccom ( p_bud_ver_id => p_budget_version_id,
1873: p_calling_mode => p_calling_mode);
1874:
1875: End If; -- III (Top Down: GL or Dual check)
1876:
1877:
1878: end if; /* top-down and bottom-up check if */ -- II
1879:

Line 1993: WHEN l_dual_mode_acct_gen_failed OR l_dual_bc_fc_failed THEN

1989: x_msg_data := l_msg_data;
1990: x_msg_count := 3; -- made to 3 so that it can read all message buffers
1991: -- if you dont have enough messages then it does not error out
1992:
1993: WHEN l_dual_mode_acct_gen_failed OR l_dual_bc_fc_failed THEN
1994:
1995: g_procedure_name := 'check_or_reserve_funds';
1996: log_message(' Exception: l_dual_mode_acct_gen_failed OR l_dual_bc_fc_failed');
1997:

Line 1996: log_message(' Exception: l_dual_mode_acct_gen_failed OR l_dual_bc_fc_failed');

1992:
1993: WHEN l_dual_mode_acct_gen_failed OR l_dual_bc_fc_failed THEN
1994:
1995: g_procedure_name := 'check_or_reserve_funds';
1996: log_message(' Exception: l_dual_mode_acct_gen_failed OR l_dual_bc_fc_failed');
1997:
1998: IF p_calling_mode = 'RESERVE_BASELINE' then
1999:
2000: release_bc_lock (p_project_id => p_project_id,

Line 2087: select length(l_sqlerrm) into l_dummy from dual;

2083:
2084: l_sqlerrm := SQLERRM;
2085: x_msg_data := substr(SQLERRM,1,240);
2086:
2087: select length(l_sqlerrm) into l_dummy from dual;
2088:
2089: If l_dummy > 0 then
2090: ADD_MESSAGE(substr(SQLERRM,1,200)||'...');
2091: log_message('When Others:'||substr(SQLERRM,1,200));

Line 2235: into x_bdgt_intg_flag from dual ;

2231: if ( nvl(x_balance_type,'X') = 'B' ) then
2232: x_bdgt_intg_flag := 'G';
2233: else
2234: SELECT decode(nvl(l_external_budget_code,'X'),'GL','G','CC','C','N')
2235: into x_bdgt_intg_flag from dual ;
2236: end if;
2237:
2238: ELSE
2239: OPEN C_BUDGET_VERSION( l_budget_type_code ) ;

Line 2254: x_bdgt_intg_flag from dual ;

2250:
2251: ELSIF C_BUDGET_VERSION%FOUND THEN
2252: IF l_external_budget_code is not null THEN
2253: SELECT decode(l_external_budget_code,'GL','G','CC','C','N') into
2254: x_bdgt_intg_flag from dual ;
2255: x_encum_type_id := l_encumbrance_type_id ;
2256: ELSE
2257: x_bdgt_intg_flag := 'N' ;
2258: x_encum_type_id := NULL ;

Line 2411: FROM DUAL

2407: l_bdgt_enabled VARCHAR2(1) ;
2408:
2409: CURSOR c_bdgt_enabled IS
2410: SELECT 'X'
2411: FROM DUAL
2412: WHERE EXISTS
2413: ( SELECT 'x'
2414: FROM PA_BUDGETARY_CONTROL_OPTIONS PBA
2415: WHERE PBA.project_id = p_project_id

Line 2719: -- 'Cmt_Budget'/'Revenue_Budget'/'Dual_Budget'(Budgets)

2715: -- API for budget baseline/re-baseline/year-end processing/check funds
2716: -- for budget
2717: -- Parameters and values:
2718: -- p_calling_module - 'Year_End_Rollover' (Year End)/'Cost_Budget'/
2719: -- 'Cmt_Budget'/'Revenue_Budget'/'Dual_Budget'(Budgets)
2720: -- p_mode - 'Reserve_Baseline'/'Check_Baseline'/'Force'(Year-end)
2721: -- p_external_budget_code - 'GL'/'CC'/'Dual'
2722: -- p_budget_version_id - GL Budget version id
2723: -- p_cc_budget_version_id - CC Budget version id

Line 2721: -- p_external_budget_code - 'GL'/'CC'/'Dual'

2717: -- Parameters and values:
2718: -- p_calling_module - 'Year_End_Rollover' (Year End)/'Cost_Budget'/
2719: -- 'Cmt_Budget'/'Revenue_Budget'/'Dual_Budget'(Budgets)
2720: -- p_mode - 'Reserve_Baseline'/'Check_Baseline'/'Force'(Year-end)
2721: -- p_external_budget_code - 'GL'/'CC'/'Dual'
2722: -- p_budget_version_id - GL Budget version id
2723: -- p_cc_budget_version_id - CC Budget version id
2724: -- p_Result_code - 'S' for success amd 'E' for failure (OUT parameter)
2725: --

Line 2848: g_external_link := 'DUAL';

2844:
2845: If P_External_Budget_Code = 'GL' then
2846: g_external_link := 'GL';
2847: Else
2848: g_external_link := 'DUAL';
2849: End If;
2850:
2851: log_message(' YREND:g_cost_prev_bvid : '||g_cost_prev_bvid );
2852: log_message(' YREND:g_external_link : '||g_external_link);

Line 2888: ElsIf (P_calling_module = 'Dual_Budget' and

2884:
2885: l_calling_module := 'COST_BUDGET';
2886: l_data_set_id := P_budget_version_id;
2887:
2888: ElsIf (P_calling_module = 'Dual_Budget' and
2889: P_External_Budget_Code = 'Dual'
2890: ) then
2891:
2892: l_calling_module := 'COST_BUDGET';

Line 2889: P_External_Budget_Code = 'Dual'

2885: l_calling_module := 'COST_BUDGET';
2886: l_data_set_id := P_budget_version_id;
2887:
2888: ElsIf (P_calling_module = 'Dual_Budget' and
2889: P_External_Budget_Code = 'Dual'
2890: ) then
2891:
2892: l_calling_module := 'COST_BUDGET';
2893: l_data_set_id := P_budget_version_id;

Line 2934: select length(g_msg_data) into l_dummy from dual;

2930: When others then
2931: log_message(' In Create_events_and_fundscheck: When Others: Error creating GL events');
2932: g_msg_data := SQLERRM;
2933:
2934: select length(g_msg_data) into l_dummy from dual;
2935: If l_dummy > 0 then
2936: ADD_MESSAGE(substr(g_msg_data,1,200));
2937: log_message('Create events failed:'||substr(g_msg_data,1,200));
2938: End if;

Line 2998: from dual;

2994: Select decode(p_mode,'Force','F', -- 'Year End'
2995: 'Check_Baseline','C', -- 'Check funds'
2996: 'Reserve_Baseline','R') -- 'Baseline'
2997: into l_bc_mode
2998: from dual;
2999:
3000: PSA_BC_XLA_PUB.Budgetary_Control
3001: (p_api_version => 1.0
3002: ,p_init_msg_list => FND_API.G_FALSE

Line 3045: select length(x.encoded_msg) into l_dummy from dual;

3041: loop
3042:
3043: If p_mode = 'Check_Baseline' then
3044:
3045: select length(x.encoded_msg) into l_dummy from dual;
3046:
3047: If l_dummy > 0 then
3048:
3049: ADD_MESSAGE(substr(x.encoded_msg,1,200)||'...');

Line 3073: select -1 into l_dummy from dual where exists

3069: end loop;
3070:
3071: If l_dummy is null then
3072: Begin
3073: select -1 into l_dummy from dual where exists
3074: (select evt.event_id
3075: from xla_events evt,
3076: psa_bc_xla_events_gt tmp
3077: where evt.event_id = tmp.event_id

Line 3256: from dual

3252: RETURN FALSE;
3253: Else
3254: -- Sep line is the issue, as we use BTC for the burden ..
3255: Select 'Y' into l_exists
3256: from dual
3257: where exists
3258: (select 1
3259: from pa_cost_distribution_lines_all cdl
3260: where project_id = X_project_id