DBA Data[Home] [Help]

APPS.PA_REV_CA dependencies on PA_REV_CA

Line 1: PACKAGE BODY pa_rev_ca AS

1: PACKAGE BODY pa_rev_ca AS
2: /*$Header: PAXICOSB.pls 120.1.12010000.2 2008/09/25 08:56:47 dlella ship $*/
3:
4: /*****************************************************************************
5: -- Global variables to store the attribute12 - 15 columns of

Line 502: (X_inserting_procedure_name =>'pa_rev_ca.get_budget_amount',

498: X_error_message := status;
499: X_status := l_status;
500:
501: pa_billing_pub.insert_message
502: (X_inserting_procedure_name =>'pa_rev_ca.get_budget_amount',
503: X_attribute1 => l_cost_budget_type_code,
504: X_attribute2 => l_rev_budget_type_code,
505: X_message => status,
506: X_error_message=>err_msg,

Line 908: pa_rev_ca.GetCostAccruedContra (X_project_id => x_project_id,

904:
905: --
906: -- Get the cost accrual contra to date
907: --
908: pa_rev_ca.GetCostAccruedContra (X_project_id => x_project_id,
909: X_task_id => X_top_task_id,
910: X_cost_accrued => cost_accrual_contra );
911:
912: cost_accrual_contra := (-1) * cost_accrual_contra ;

Line 1127: PA_MCB_INVOICE_PKG.log_message('Before pa_billing_extn_params_v select pa_rev_ca.calc_ca_amt :');

1123: FROM pa_billing_extensions
1124: WHERE billing_extension_id = X_billing_extension_id;
1125:
1126: IF g1_debug_mode = 'Y' THEN
1127: PA_MCB_INVOICE_PKG.log_message('Before pa_billing_extn_params_v select pa_rev_ca.calc_ca_amt :');
1128: END IF;
1129: /* Added for bug 2649456.Not handling exception intentionaly because if it is coming,
1130: it will be data issue */
1131: BEGIN

Line 1138: PA_MCB_INVOICE_PKG.log_message('Error from pa_billing_extn_params_v pa_rev_ca.calc_ca_amt :'||SQLERRM);

1134: FROM pa_billing_extn_params_v;
1135: EXCEPTION
1136: WHEN OTHERS THEN
1137: IF g1_debug_mode = 'Y' THEN
1138: PA_MCB_INVOICE_PKG.log_message('Error from pa_billing_extn_params_v pa_rev_ca.calc_ca_amt :'||SQLERRM);
1139: END IF;
1140: RAISE;
1141: END;
1142: /* till here */

Line 1145: PA_MCB_INVOICE_PKG.log_message('pa billing params v.cost_plan_type_id pa_rev_ca.calc_ca_amt :'||l_cost_plan_type_id);

1141: END;
1142: /* till here */
1143:
1144: IF g1_debug_mode = 'Y' THEN
1145: PA_MCB_INVOICE_PKG.log_message('pa billing params v.cost_plan_type_id pa_rev_ca.calc_ca_amt :'||l_cost_plan_type_id);
1146: PA_MCB_INVOICE_PKG.log_message('pa billing params v.rev_plan_type_id pa_rev_ca.calc_ca_amt :'||l_rev_plan_type_id);
1147: END IF;
1148:
1149:

Line 1146: PA_MCB_INVOICE_PKG.log_message('pa billing params v.rev_plan_type_id pa_rev_ca.calc_ca_amt :'||l_rev_plan_type_id);

1142: /* till here */
1143:
1144: IF g1_debug_mode = 'Y' THEN
1145: PA_MCB_INVOICE_PKG.log_message('pa billing params v.cost_plan_type_id pa_rev_ca.calc_ca_amt :'||l_cost_plan_type_id);
1146: PA_MCB_INVOICE_PKG.log_message('pa billing params v.rev_plan_type_id pa_rev_ca.calc_ca_amt :'||l_rev_plan_type_id);
1147: END IF;
1148:
1149:
1150: -- gets the cost and revenue budget amounts

Line 1155: pa_rev_ca.get_budget_amount(

1151: -- if budget type = 'R' then call the procedure defined in this package
1152: -- else use the public api in package pa_billing_pub
1153: --
1154: IF g_ca_budget_type = 'R' THEN
1155: pa_rev_ca.get_budget_amount(
1156: X2_project_id => X_project_id,
1157: X2_task_id => X_top_task_id,
1158: X2_revenue_amount => budget_revenue,
1159: X2_cost_amount => budget_cost,

Line 1182: pa_rev_ca.GetCurrentRevenue( X_project_id => x_project_id,

1178: END IF;
1179:
1180:
1181: -- Gets the revenue accrued to date
1182: pa_rev_ca.GetCurrentRevenue( X_project_id => x_project_id,
1183: X_task_id => X_top_task_id,
1184: X_revenue_amount => revenue_amount);
1185:
1186: -- Select the project system status code

Line 1221: pa_rev_ca.ReverseClosingEntries

1217:
1218: IF l_project_status <> 'PENDING_CLOSE' THEN
1219:
1220: -- Reverse the closing entries (if not allready reversed)
1221: pa_rev_ca.ReverseClosingEntries
1222: (X_project_id => x_project_id,
1223: X_task_id => x_top_task_id,
1224: X_error_message => l_error_message,
1225: X_status => l_status

Line 1230: pa_rev_ca.GetCostAccrued

1226: );
1227:
1228: -- Get the cost accrual to date
1229: --
1230: pa_rev_ca.GetCostAccrued
1231: (X_project_id => x_project_id,
1232: X_task_id => X_top_task_id,
1233: X_cost_accrued => cost_accrued );
1234:

Line 1237: pa_rev_ca.CreateNormalEntries (

1233: X_cost_accrued => cost_accrued );
1234:
1235: -- Create Normal Entries
1236: --
1237: pa_rev_ca.CreateNormalEntries (
1238: X_project_id => x_project_id,
1239: X_top_task_id => x_top_task_id,
1240: X_request_id => x_request_id,
1241: X_revenue_amount => revenue_amount,

Line 1258: pa_rev_ca.GetCostAccrued

1254: -- Check if closing entries created allready
1255: IF (check_closing_done (X_project_id , X_top_task_id) = 'N') THEN
1256:
1257: -- Get the cost accrual to date
1258: pa_rev_ca.GetCostAccrued
1259: (X_project_id => x_project_id,
1260: X_task_id => X_top_task_id,
1261: X_cost_accrued => cost_accrued );
1262:

Line 1264: pa_rev_ca.CreateNormalEntries (

1260: X_task_id => X_top_task_id,
1261: X_cost_accrued => cost_accrued );
1262:
1263: -- Create Normal entries
1264: pa_rev_ca.CreateNormalEntries (
1265: X_project_id => x_project_id,
1266: X_top_task_id => x_top_task_id,
1267: X_request_id => x_request_id,
1268: X_revenue_amount => revenue_amount,

Line 1280: pa_rev_ca.GetCostAccrued

1276: X_error_message =>l_error_message,
1277: X_status => l_status);
1278:
1279: -- Get the cost accrual to date
1280: pa_rev_ca.GetCostAccrued
1281: (X_project_id => x_project_id,
1282: X_task_id => X_top_task_id,
1283: X_cost_accrued => cost_accrued );
1284:

Line 1286: pa_rev_ca.CreateClosingEntries

1282: X_task_id => X_top_task_id,
1283: X_cost_accrued => cost_accrued );
1284:
1285: -- Create closing entries
1286: pa_rev_ca.CreateClosingEntries
1287: (
1288: X_project_id => x_project_id,
1289: X_top_task_id => x_top_task_id,
1290: X_request_id => x_request_id,

Line 1384: pa_rev_ca.Check_if_Cost_Accrual ( x_project_id

1380: --------------------------- Cost Accrual Derived Columns --------------------
1381: -- If the project has cost accrual enabled then proceed
1382: -- else dont do anything
1383: --
1384: pa_rev_ca.Check_if_Cost_Accrual ( x_project_id
1385: ,l_cost_accrual_flag
1386: ,l_funding_flag
1387: ,l_ca_event_type
1388: ,l_ca_contra_event_type

Line 1676: pa_rev_ca.Check_if_Cost_Accrual ( x_project_id

1672:
1673: -- If project has cost accrual enabled then perform the checks
1674: -- else ignore the checks
1675: --
1676: pa_rev_ca.Check_if_Cost_Accrual ( x_project_id
1677: ,l_cost_accrual_flag
1678: ,l_funding_flag
1679: ,l_ca_event_type
1680: ,l_ca_contra_event_type

Line 1698: pa_rev_ca.GetCost(x_project_id,NULL,l_cost_amount);

1694: -- a. Closing entries are not present
1695: -- b. New costs are incurred after closing entries have been generated
1696: -------------------------------------------------------------------------
1697: -- Get the cost incurred to date
1698: pa_rev_ca.GetCost(x_project_id,NULL,l_cost_amount);
1699:
1700: -- Get the closing cost WIP
1701: pa_rev_ca.GetCostWIP(x_project_id,NULL,l_ca_wip_amount);
1702:

Line 1701: pa_rev_ca.GetCostWIP(x_project_id,NULL,l_ca_wip_amount);

1697: -- Get the cost incurred to date
1698: pa_rev_ca.GetCost(x_project_id,NULL,l_cost_amount);
1699:
1700: -- Get the closing cost WIP
1701: pa_rev_ca.GetCostWIP(x_project_id,NULL,l_ca_wip_amount);
1702:
1703: IF l_cost_amount <> l_ca_wip_amount THEN
1704:
1705: -- Add message to the message stack

Line 1708: l_err_msgname := 'PA_REV_CA_COST_WIP_BALANCE';

1704:
1705: -- Add message to the message stack
1706: -- Set the error code
1707:
1708: l_err_msgname := 'PA_REV_CA_COST_WIP_BALANCE';
1709: fnd_message.set_name('PA', l_err_msgname);
1710: fnd_msg_pub.add;
1711:
1712: l_err_code := 11;

Line 1725: pa_rev_ca.GetCostAccruedContra(x_project_id,NULL,l_ca_contra_amount);

1721: -- contra account is set to zero
1722: ------------------------------------------------------------------------
1723:
1724: -- Get the cost accrued contra to date
1725: pa_rev_ca.GetCostAccruedContra(x_project_id,NULL,l_ca_contra_amount);
1726:
1727: IF l_ca_contra_amount <> 0 THEN
1728:
1729: -- Add message to the message stack

Line 1732: l_err_msgname := 'PA_REV_CA_NO_CLOSING_ENTRIES';

1728:
1729: -- Add message to the message stack
1730: -- Set the error code
1731:
1732: l_err_msgname := 'PA_REV_CA_NO_CLOSING_ENTRIES';
1733: fnd_message.set_name('PA', l_err_msgname);
1734: fnd_msg_pub.add;
1735:
1736: l_err_code := 11;

Line 1755: l_err_msgname := 'PA_REV_CA_INVALID_STATUS_CHNG';

1751:
1752: -- Add message to the message stack
1753: -- Set the error code
1754:
1755: l_err_msgname := 'PA_REV_CA_INVALID_STATUS_CHNG';
1756: fnd_message.set_name('PA', l_err_msgname);
1757: fnd_msg_pub.add;
1758:
1759: l_err_code := 11;

Line 1894: END pa_rev_ca;

1890: x_funding_flag := NULL;
1891:
1892: END Check_if_Cost_Accrual;
1893:
1894: END pa_rev_ca;