[Home] [Help]
524: l_stru_sharing_code PA_PROJECTS_ALL.STRUCTURE_SHARING_CODE%TYPE;
525:
526: l_icount NUMBER := 0;
527: l_ucount NUMBER := 0;
528: l_budget_line_id PA_BUDGET_LINES.BUDGET_LINE_ID%TYPE;
529:
530: l_appl_id NUMBER;
531:
532: l_last_updated_by NUMBER := FND_GLOBAL.user_id;
551:
552: l_resource_asg_id NUMBER;
553: l_start_date DATE;
554: l_end_date DATE;
555: l_curr_code pa_budget_lines.txn_currency_code%type;
556: l_txn_curr_code pa_budget_lines.txn_currency_code%type;
557: l_bill_trans_rev_amount NUMBER;
558: l_time_phase VARCHAR2(30);
559: l_projfunc_raw_cost NUMBER;
552: l_resource_asg_id NUMBER;
553: l_start_date DATE;
554: l_end_date DATE;
555: l_curr_code pa_budget_lines.txn_currency_code%type;
556: l_txn_curr_code pa_budget_lines.txn_currency_code%type;
557: l_bill_trans_rev_amount NUMBER;
558: l_time_phase VARCHAR2(30);
559: l_projfunc_raw_cost NUMBER;
560: l_projfunc_burdened_cost NUMBER;
607: l_map_rbs_element_id_tab PA_PLSQL_DATATYPES.IdTabTyp;
608: l_map_txn_accum_header_id_tab PA_PLSQL_DATATYPES.IdTabTyp;
609:
610: -- Variables added for Bug 5059327
611: l_txn_raw_cost PA_BUDGET_LINES.TXN_RAW_COST%TYPE;
612: -- IPM: Added local variable to pass variable values of the
613: -- p_calling_module parameter of the MAINTAIN_DATA API.
614: l_calling_module VARCHAR2(30);
615: /* String constants for valid calling module values */
1049: SELECT BUDGET_LINE_ID,
1050: TXN_RAW_COST - NVL(TXN_INIT_RAW_COST,0)
1051: INTO l_budget_line_id,
1052: l_txn_raw_cost
1053: FROM PA_BUDGET_LINES BL
1054: WHERE BL.RESOURCE_ASSIGNMENT_ID = l_resource_asg_id
1055: AND BL.TXN_CURRENCY_CODE = l_curr_code;
1056: ELSE -- P_FP_COLS_REC.X_TIME_PHASED_CODE IN ('P','G')
1057: SELECT BUDGET_LINE_ID,
1057: SELECT BUDGET_LINE_ID,
1058: TXN_RAW_COST
1059: INTO l_budget_line_id,
1060: l_txn_raw_cost
1061: FROM PA_BUDGET_LINES BL
1062: WHERE BL.RESOURCE_ASSIGNMENT_ID = l_resource_asg_id
1063: AND BL.TXN_CURRENCY_CODE = l_curr_code
1064: AND BL.START_DATE = l_start_date;
1065: END IF;
1069: l_txn_raw_cost := null;
1070: -- dbms_output.put_line('inside no data fnd bl');
1071: END;
1072:
1073: /* Checking for the existing record in pa_budget_lines table */
1074: IF l_budget_line_id IS NULL THEN
1075: /* if the record does not exist then insert
1076: the record into the pa_budget_lines table */
1077: -- dbms_output.put_line('inside insert bl');
1072:
1073: /* Checking for the existing record in pa_budget_lines table */
1074: IF l_budget_line_id IS NULL THEN
1075: /* if the record does not exist then insert
1076: the record into the pa_budget_lines table */
1077: -- dbms_output.put_line('inside insert bl');
1078:
1079: -- For Cost and Revenue Together versions, non-rate-based
1080: -- planning transactions with only revenue amounts should
1082: -- behavior is introduced in IPM. Note that Billing Events
1083: -- are always non-rate-based, so the rate_based_flag does
1084: -- not need to be checked here.
1085:
1086: INSERT INTO PA_BUDGET_LINES (
1087: RESOURCE_ASSIGNMENT_ID,
1088: START_DATE,
1089: LAST_UPDATE_DATE,
1090: LAST_UPDATED_BY,
1113: l_last_update_login,
1114: l_end_date,
1115: l_curr_code,
1116: l_bill_trans_rev_amount,
1117: PA_BUDGET_LINES_S.nextval,
1118: P_BUDGET_VERSION_ID,
1119: p_FP_COLS_REC.X_PROJECT_CURRENCY_CODE,
1120: p_FP_COLS_REC.X_PROJFUNC_CURRENCY_CODE,
1121: l_bill_trans_rev_amount,
1125: l_time_phase );
1126:
1127: ELSIF l_budget_line_id IS NOT NULL THEN
1128: /* if the record does exist then update
1129: the record in the pa_budget_lines table */
1130: /* dbms_output.put_line('inside update bl');
1131: dbms_output.put_line('budget line id in update '||
1132: l_budget_line_id); */
1133:
1134: IF p_fp_cols_rec.x_version_type = 'REVENUE' OR
1135: ( p_fp_cols_rec.x_version_type = 'ALL' AND
1136: nvl(l_txn_raw_cost,0) = 0 ) THEN
1137:
1138: UPDATE PA_BUDGET_LINES
1139: SET LAST_UPDATE_DATE = l_sysdate
1140: , LAST_UPDATED_BY = l_last_updated_by
1141: , LAST_UPDATE_LOGIN = l_last_update_login
1142: , TXN_REVENUE = NVL(TXN_REVENUE,0) + l_bill_trans_rev_amount
1149: -- In this case, the update is occuring for a non-rate-based
1150: -- planning txn with quantity = raw cost. Update the revenue
1151: -- and recompute the bill rate override.
1152:
1153: UPDATE PA_BUDGET_LINES
1154: SET LAST_UPDATE_DATE = l_sysdate
1155: , LAST_UPDATED_BY = l_last_updated_by
1156: , LAST_UPDATE_LOGIN = l_last_update_login
1157: , TXN_REVENUE = NVL(TXN_REVENUE,0) + l_bill_trans_rev_amount
1278: bl.txn_currency_code,
1279: 0,
1280: 0,
1281: 1
1282: FROM pa_budget_lines bl,
1283: (SELECT DISTINCT resource_assignment_id, txn_currency_code
1284: FROM pa_fp_rollup_tmp) tmp
1285: WHERE bl.resource_assignment_id = tmp.resource_assignment_id
1286: AND bl.txn_currency_code = tmp.txn_currency_code
2281: AND ra.resource_assignment_id = tmp.txn_resource_assignment_id
2282: AND ra.transaction_source_code IS NULL
2283: AND EXISTS
2284: ( SELECT 1
2285: FROM pa_budget_lines bl
2286: WHERE bl.resource_assignment_id = ra.resource_assignment_id
2287: AND rownum = 1 ));
2288: ELSIF p_fp_cols_rec.x_plan_class_code = 'FORECAST' THEN
2289: l_etc_start_date := PA_FP_GEN_AMOUNT_UTILS.GET_ETC_START_DATE
2297: AND ra.resource_assignment_id = tmp.txn_resource_assignment_id
2298: AND ra.transaction_source_code IS NULL
2299: AND EXISTS
2300: ( SELECT 1
2301: FROM pa_budget_lines bl
2302: WHERE bl.resource_assignment_id = ra.resource_assignment_id
2303: AND bl.start_date >= l_etc_start_date
2304: AND rownum = 1 ));
2305: ELSIF p_fp_cols_rec.x_time_phased_code = 'N' THEN
2311: AND ra.resource_assignment_id = tmp.txn_resource_assignment_id
2312: AND ra.transaction_source_code IS NULL
2313: AND EXISTS
2314: ( SELECT 1
2315: FROM pa_budget_lines bl
2316: WHERE bl.resource_assignment_id = ra.resource_assignment_id
2317: AND NVL(quantity,0) <> NVL(init_quantity,0)
2318: AND rownum = 1 ));
2319: END IF;