DBA Data[Home] [Help]

APPS.PA_MULTI_CURRENCY_TXN dependencies on PA_CC_UTILS

Line 26: P_DEBUG_MODE BOOLEAN := pa_cc_utils.g_debug_mode ;

22:
23: G_REC_FI_ATTRB FI_REC_ATTRB_TYPE;
24:
25:
26: P_DEBUG_MODE BOOLEAN := pa_cc_utils.g_debug_mode ;
27:
28: PROCEDURE print_message(p_msg varchar2) IS
29: BEGIN
30: --r_debug.r_msg('Log: '||p_msg);

Line 1454: if pa_cc_utils.g_debug_mode then

1450: * if necessary, i will come back and change this.
1451: ORDER BY ITEM.Expenditure_Item_Id;
1452: ******/
1453: BEGIN
1454: if pa_cc_utils.g_debug_mode then
1455: l_debug_mode := 'Y';
1456: else
1457: l_debug_mode := 'N';
1458: end if;

Line 1462: pa_cc_utils.set_curr_function('Perform_MC_and_IC_processing');

1458: end if;
1459: pa_debug.set_process(
1460: x_process => 'PLSQL',
1461: x_debug_mode => l_debug_mode);
1462: pa_cc_utils.set_curr_function('Perform_MC_and_IC_processing');
1463: IF P_DEBUG_MODE THEN
1464: pa_cc_utils.log_message('Perform_MC_and_IC_processing: ' || 'Start ');
1465: END IF;
1466: P_MC_IC_status := 0;

Line 1464: pa_cc_utils.log_message('Perform_MC_and_IC_processing: ' || 'Start ');

1460: x_process => 'PLSQL',
1461: x_debug_mode => l_debug_mode);
1462: pa_cc_utils.set_curr_function('Perform_MC_and_IC_processing');
1463: IF P_DEBUG_MODE THEN
1464: pa_cc_utils.log_message('Perform_MC_and_IC_processing: ' || 'Start ');
1465: END IF;
1466: P_MC_IC_status := 0;
1467: P_update_count := 0;
1468:

Line 1474: pa_cc_utils.log_message('Perform_MC_and_IC_processing: ' || 'Before Call to PA_MULTI_CURRENCY.INIT');

1470: * The init procedure is called to set the global variables
1471: * to be used by the MC API
1472: */
1473: IF P_DEBUG_MODE THEN
1474: pa_cc_utils.log_message('Perform_MC_and_IC_processing: ' || 'Before Call to PA_MULTI_CURRENCY.INIT');
1475: END IF;
1476: PA_MULTI_CURRENCY.INIT;
1477: IF P_DEBUG_MODE THEN
1478: pa_cc_utils.log_message('Perform_MC_and_IC_processing: ' || 'After Call to PA_MULTI_CURRENCY.INIT');

Line 1478: pa_cc_utils.log_message('Perform_MC_and_IC_processing: ' || 'After Call to PA_MULTI_CURRENCY.INIT');

1474: pa_cc_utils.log_message('Perform_MC_and_IC_processing: ' || 'Before Call to PA_MULTI_CURRENCY.INIT');
1475: END IF;
1476: PA_MULTI_CURRENCY.INIT;
1477: IF P_DEBUG_MODE THEN
1478: pa_cc_utils.log_message('Perform_MC_and_IC_processing: ' || 'After Call to PA_MULTI_CURRENCY.INIT');
1479: END IF;
1480: /*
1481: * Loop through all expenditure items and set the required
1482: * Parameter tables with the appropriate values.

Line 1502: pa_cc_utils.log_message('Perform_MC_and_IC_processing: ' || 'In outer Loop');

1498:
1499: FOR loop_control in 1 .. 2
1500: LOOP
1501: IF P_DEBUG_MODE THEN
1502: pa_cc_utils.log_message('Perform_MC_and_IC_processing: ' || 'In outer Loop');
1503: END IF;
1504: IF ( loop_control = 1 ) THEN
1505: V_Related_Item := 'N';
1506: ELSE

Line 1512: pa_cc_utils.log_message('Perform_MC_and_IC_processing: ' || 'In related Items Loop');

1508: END IF;
1509: FOR expenditure_item_rec in expenditure_item_cursor(V_Related_Item)
1510: LOOP
1511: IF P_DEBUG_MODE THEN
1512: pa_cc_utils.log_message('Perform_MC_and_IC_processing: ' || 'In related Items Loop');
1513: END IF;
1514:
1515: P_Source := 'Assignment';
1516: /*

Line 1522: pa_cc_utils.log_message('Perform_MC_and_IC_processing: ' || 'Before setting Array variables');

1518: * Project Org ID is populated with the recvr_org_id value available in EI
1519: * so that the Identification process doesnt update this value.
1520: */
1521: IF P_DEBUG_MODE THEN
1522: pa_cc_utils.log_message('Perform_MC_and_IC_processing: ' || 'Before setting Array variables');
1523: END IF;
1524:
1525: PA_CC_IDENT.ProjectIdTab(v_loop_index) := NULL;
1526: PA_CC_IDENT.PrjOrganizationIdTab(v_loop_index) := NULL;

Line 1568: pa_cc_utils.log_message('Perform_MC_and_IC_processing: ' || 'After setting Array variables');

1564: ** ErrorCodeTab (v_loop_index) := NULL; -- x_error_code_tab
1565: **
1566: **/
1567: IF P_DEBUG_MODE THEN
1568: pa_cc_utils.log_message('Perform_MC_and_IC_processing: ' || 'After setting Array variables');
1569: END IF;
1570:
1571: /*
1572: * MC API is to be called ( for getting Acct/Project raw cost )

Line 1586: pa_cc_utils.log_message('Perform_MC_and_IC_processing: ' || 'Before Call to PA_MULTI_CURRENCY_TXN.GET_CURRENCY_AMOUNTS');

1582: * only when the status <> 0
1583: */
1584: P_Source := 'MC Error';
1585: IF P_DEBUG_MODE THEN
1586: pa_cc_utils.log_message('Perform_MC_and_IC_processing: ' || 'Before Call to PA_MULTI_CURRENCY_TXN.GET_CURRENCY_AMOUNTS');
1587: END IF;
1588: If nvl(expenditure_item_rec.GL_Accounted_Flag,'N') = 'Y' THEN
1589:
1590: V_acct_raw_cost := expenditure_item_rec.acct_raw_cost ;

Line 1652: pa_cc_utils.log_message('Perform_MC_and_IC_processing: ' || 'After Call to PA_MULTI_CURRENCY_TXN.GET_CURRENCY_AMOUNTS');

1648: P_status => V_status,
1649: P_stage => V_stage,
1650: P_Po_Line_ID => expenditure_item_rec.Po_Line_Id);
1651: IF P_DEBUG_MODE THEN
1652: pa_cc_utils.log_message('Perform_MC_and_IC_processing: ' || 'After Call to PA_MULTI_CURRENCY_TXN.GET_CURRENCY_AMOUNTS');
1653:
1654: END IF;
1655: /*
1656: * 2048868

Line 1663: pa_cc_utils.log_message('Perform_MC_and_IC_processing: ' || 'Size of the ER table [' || to_char(l_er_expenditure_id_tab.count) || ']');

1659: THEN
1660: IF ( l_er_expenditure_id_tab.count > 0 )
1661: THEN
1662: IF P_DEBUG_MODE THEN
1663: pa_cc_utils.log_message('Perform_MC_and_IC_processing: ' || 'Size of the ER table [' || to_char(l_er_expenditure_id_tab.count) || ']');
1664: END IF;
1665: /*
1666: * The table is not expty.
1667: * Check whether this expenditure_id is already available in

Line 1674: pa_cc_utils.log_message('Perform_MC_and_IC_processing: ' || 'Comparing [' || to_char(expenditure_item_rec.expenditure_id) ||

1670: l_exp_already_exists := 'N' ;
1671: FOR LOOP_INDEX IN l_er_expenditure_id_tab.first..l_er_expenditure_id_tab.last
1672: LOOP
1673: IF P_DEBUG_MODE THEN
1674: pa_cc_utils.log_message('Perform_MC_and_IC_processing: ' || 'Comparing [' || to_char(expenditure_item_rec.expenditure_id) ||
1675: '] with [' || to_char(l_er_expenditure_id_tab(LOOP_INDEX)) || ']' );
1676: END IF;
1677: IF ( expenditure_item_rec.expenditure_id = l_er_expenditure_id_tab(LOOP_INDEX) )
1678: THEN

Line 1686: pa_cc_utils.log_message('Perform_MC_and_IC_processing: ' || 'Already exists [' || l_exp_already_exists || ']');

1682: END LOOP ;
1683: END IF;
1684:
1685: IF P_DEBUG_MODE THEN
1686: pa_cc_utils.log_message('Perform_MC_and_IC_processing: ' || 'Already exists [' || l_exp_already_exists || ']');
1687: END IF;
1688: IF ( nvl(l_exp_already_exists, 'N') = 'N' )
1689: THEN
1690: /*

Line 1697: pa_cc_utils.log_message('Perform_MC_and_IC_processing: ' || 'New id [' || to_char(l_er_expenditure_id_tab(l_er_exp_count)) ||

1693: */
1694: l_er_expenditure_id_tab(l_er_exp_count) := expenditure_item_rec.expenditure_id ;
1695: l_exp_acct_exch_rate_tab(l_er_exp_count) := V_acct_exchange_rate ;
1696: IF P_DEBUG_MODE THEN
1697: pa_cc_utils.log_message('Perform_MC_and_IC_processing: ' || 'New id [' || to_char(l_er_expenditure_id_tab(l_er_exp_count)) ||
1698: '] rate [' || to_char(l_exp_acct_exch_rate_tab(l_er_exp_count)) || ']' );
1699: END IF;
1700: l_er_exp_count := l_er_exp_count + 1 ;
1701: END IF;

Line 1719: pa_cc_utils.log_message('Perform_MC_and_IC_processing: ' || 'Before storing in Array ');

1715: * values will be assigned to the array elelemnts. So, final update
1716: * will update the columns with the existing values only and that is fine.
1717: */
1718: IF P_DEBUG_MODE THEN
1719: pa_cc_utils.log_message('Perform_MC_and_IC_processing: ' || 'Before storing in Array ');
1720: END IF;
1721:
1722: PA_CC_IDENT.DenomCurrCodeTab(v_loop_index) := expenditure_item_rec.denom_currency_code;
1723: PA_CC_IDENT.AcctRawCostTab(v_loop_index) := V_acct_raw_cost;

Line 1744: pa_cc_utils.log_message('Perform_MC_and_IC_processing: ' || 'After storing in Array ');

1740: PA_CC_IDENT.ProjRateTypeTab(v_loop_index) := V_project_rate_type;
1741: PA_CC_IDENT.ProjRateTab(v_loop_index) := V_project_exchange_rate;
1742: PA_CC_IDENT.StatusTab(v_loop_index) := V_status;
1743: IF P_DEBUG_MODE THEN
1744: pa_cc_utils.log_message('Perform_MC_and_IC_processing: ' || 'After storing in Array ');
1745: END IF;
1746: /*
1747: * Call the client extn. for creating related items
1748: * ( for labor )

Line 1765: pa_cc_utils.log_message('Perform_MC_and_IC_processing: ' || 'Before call to PA_Costing_Client_Extns.Add_Transactions_Hook');

1761: IF ( expenditure_item_rec.Source_Id IS NULL
1762: /*AND (NVL(expenditure_item_rec.net_zero, 'N') = 'N') */ /*Bug 4460518*/
1763: AND P_Sys_Link = 'LABOR') THEN
1764: IF P_DEBUG_MODE THEN
1765: pa_cc_utils.log_message('Perform_MC_and_IC_processing: ' || 'Before call to PA_Costing_Client_Extns.Add_Transactions_Hook');
1766: END IF;
1767:
1768: PA_Costing_Client_Extns.Add_Transactions_Hook(
1769: expenditure_item_rec.expenditure_item_id,

Line 1773: pa_cc_utils.log_message('Perform_MC_and_IC_processing: ' || 'After call to PA_Costing_Client_Extns.Add_Transactions_Hook');

1769: expenditure_item_rec.expenditure_item_id,
1770: expenditure_item_rec.system_linkage_function,
1771: v_cur_status);
1772: IF P_DEBUG_MODE THEN
1773: pa_cc_utils.log_message('Perform_MC_and_IC_processing: ' || 'After call to PA_Costing_Client_Extns.Add_Transactions_Hook');
1774: END IF;
1775: IF ( v_cur_status < 0 ) THEN
1776: P_Source := 'Client Extn';
1777: P_MC_IC_status := v_cur_status;

Line 1808: pa_cc_utils.log_message('Perform_MC_and_IC_processing: ' || 'Before call to PA_CC_IDENT.PA_CC_IDENTIFY_TXN');

1804: * and cross-charge code
1805: */
1806: IF V_loop_index > 0 THEN
1807: IF P_DEBUG_MODE THEN
1808: pa_cc_utils.log_message('Perform_MC_and_IC_processing: ' || 'Before call to PA_CC_IDENT.PA_CC_IDENTIFY_TXN');
1809: END IF;
1810: PA_CC_IDENT.PA_CC_IDENTIFY_TXN(
1811: P_ExpOrganizationIdTab => PA_CC_IDENT.ExpOrganizationIdTab,
1812: P_ExpOrgIdTab => PA_CC_IDENT.ExpOrgIdTab,

Line 1835: pa_cc_utils.log_message('Perform_MC_and_IC_processing: ' || 'After Call to PA_CC_IDENT.PA_CC_IDENTIFY_TXN');

1831: X_RecvrOrgIdTab => PA_CC_IDENT.RecvrOrgIdTab,
1832: X_Error_Stage => V_Errorstage,
1833: X_Error_Code => V_Errorcode);
1834: IF P_DEBUG_MODE THEN
1835: pa_cc_utils.log_message('Perform_MC_and_IC_processing: ' || 'After Call to PA_CC_IDENT.PA_CC_IDENTIFY_TXN');
1836: END IF;
1837: END IF;
1838:
1839: /** To be uncommented after decing upon rates-model.

Line 1843: ** pa_cc_utils.log_message('Before call to GetMappedToJobs');

1839: /** To be uncommented after decing upon rates-model.
1840: ** CBGA Call to GetMappedToJobs ().
1841: **
1842: ** IF V_loop_index > 0 THEN
1843: ** pa_cc_utils.log_message('Before call to GetMappedToJobs');
1844: ** PA_Cross_Business_Grp.GetMappedToJobs (
1845: ** p_from_job_id_tab => JobIdTab,
1846: ** p_to_job_group_id_tab => JobGroupIdTab,
1847: ** x_to_job_id_tab => CostJobIdTab,

Line 1852: ** pa_cc_utils.log_message('After Call to GetMappedToJobs');

1848: ** x_status_code => V_Statuscode,
1849: ** x_error_stage_tab => ErrorStageTab,
1850: ** x_error_code_tab => ErrorCodeTab
1851: ** );
1852: ** pa_cc_utils.log_message('After Call to GetMappedToJobs');
1853: ** END IF;
1854: **
1855: **/
1856:

Line 1867: pa_cc_utils.log_message('Perform_MC_and_IC_processing: ' || 'Before updating Expenditures. Count to update [' || to_char(l_er_exp_count) || ']');

1863: * Bug2048868
1864: */
1865: l_er_exp_count := l_er_exp_count - 1 ;
1866: IF P_DEBUG_MODE THEN
1867: pa_cc_utils.log_message('Perform_MC_and_IC_processing: ' || 'Before updating Expenditures. Count to update [' || to_char(l_er_exp_count) || ']');
1868: END IF;
1869: IF ( l_er_exp_count > 0 )
1870: THEN
1871: FORALL i IN 1..l_er_exp_count

Line 1878: pa_cc_utils.log_message('Perform_MC_and_IC_processing: ' || 'After updating Expenditures with exchange rate.');

1874: WHERE exp.expenditure_id = l_er_expenditure_id_tab(i)
1875: ;
1876: END IF; -- l_er_exp_count
1877: IF P_DEBUG_MODE THEN
1878: pa_cc_utils.log_message('Perform_MC_and_IC_processing: ' || 'After updating Expenditures with exchange rate.');
1879: END IF;
1880: /*
1881: * End Bug2048868
1882: */

Line 1901: pa_cc_utils.log_message('Perform_MC_and_IC_processing: ' || 'Before Final update statement');

1897: IF V_loop_index > 0 THEN
1898:
1899:
1900: IF P_DEBUG_MODE THEN
1901: pa_cc_utils.log_message('Perform_MC_and_IC_processing: ' || 'Before Final update statement');
1902: END IF;
1903:
1904: /* added for bug#2919885 */
1905: FOR LOOP_INDEX IN 1..V_loop_index LOOP

Line 2091: pa_cc_utils.log_message('Perform_MC_and_IC_processing: ' || 'After Final Update Statement');

2087: /*Code Changes for Bug No.2984871 end */
2088:
2089: END IF;
2090: IF P_DEBUG_MODE THEN
2091: pa_cc_utils.log_message('Perform_MC_and_IC_processing: ' || 'After Final Update Statement');
2092: END IF;
2093: /*
2094: * No of records updated is set to the output parameter.
2095: */

Line 2100: pa_cc_utils.log_message('Perform_MC_and_IC_processing: ' || 'End ');

2096: /* Commented for Bug 2984871
2097: P_Update_Count := SQL%ROWCOUNT; */
2098:
2099: IF P_DEBUG_MODE THEN
2100: pa_cc_utils.log_message('Perform_MC_and_IC_processing: ' || 'End ');
2101: END IF;
2102: pa_cc_utils.reset_curr_function ;
2103:
2104: EXCEPTION

Line 2102: pa_cc_utils.reset_curr_function ;

2098:
2099: IF P_DEBUG_MODE THEN
2100: pa_cc_utils.log_message('Perform_MC_and_IC_processing: ' || 'End ');
2101: END IF;
2102: pa_cc_utils.reset_curr_function ;
2103:
2104: EXCEPTION
2105: /*
2106: * This exception is raised in case of Oracle error in