[Home] [Help]
26:
27: g_initialization_done BOOLEAN := FALSE;
28: --g_mrc_enabled boolean;
29:
30: G_BL_LINE_TYPE CONSTANT pa_cc_dist_lines_all.line_type%TYPE := 'BL';
31:
32: -- g_org_id stores the current OU.
33: g_org_id pa_implementations_all.org_id%type ;
34:
237: l_prev_rec_exist BOOLEAN;
238: l_parent_dist_code VARCHAR2(2);
239:
240: l_source_eid pa_expenditure_items_all.expenditure_item_id%TYPE;
241: l_transfer_status_code pa_cc_dist_lines_all.transfer_status_code%TYPE;
242:
243: /*Added for cross proj*/
244: p_project_transfer_price PA_PLSQL_DATATYPES.Char30TabTyp;
245: p_projfunc_transfer_price PA_PLSQL_DATATYPES.Char30TabTyp;
754:
755: maxrec.project_tp_currency_code,
756: maxrec.projfunc_tp_currency_code
757: /*end for cross proj*/
758: FROM pa_cc_dist_lines
759: WHERE expenditure_item_id = l_source_eid
760: AND line_type = G_BL_LINE_TYPE
761: AND line_num = (SELECT max(line_num)
762: FROM pa_cc_dist_lines
758: FROM pa_cc_dist_lines
759: WHERE expenditure_item_id = l_source_eid
760: AND line_type = G_BL_LINE_TYPE
761: AND line_num = (SELECT max(line_num)
762: FROM pa_cc_dist_lines
763: WHERE expenditure_item_id = l_source_eid
764: AND line_type = G_BL_LINE_TYPE);
765:
766: IF P_DEBUG_MODE = 'Y' THEN
1445: /* ***** This is a handling done for 'Reverse in Future Period' B/L transactions for the reversal trxns.
1446: The underlying architecture does not allow cc_dist_line_id to be picked up from the original CCDL, as the records would
1447: get inserted only during mass_insert. ****** */
1448:
1449: update pa_cc_dist_lines ccdl2
1450: set dist_line_id_reversed =
1451: (select ccdl1.cc_dist_line_id from pa_cc_dist_lines_all ccdl1,
1452: pa_expenditure_items_all ei1,
1453: pa_expenditure_items_all ei2
1447: get inserted only during mass_insert. ****** */
1448:
1449: update pa_cc_dist_lines ccdl2
1450: set dist_line_id_reversed =
1451: (select ccdl1.cc_dist_line_id from pa_cc_dist_lines_all ccdl1,
1452: pa_expenditure_items_all ei1,
1453: pa_expenditure_items_all ei2
1454: where ccdl1.expenditure_item_id = ei1.expenditure_item_id
1455: and ccdl2.expenditure_item_id = ei2.expenditure_item_id
1456: and ei2.adjusted_expenditure_item_id = ei1.expenditure_item_id
1457: and ccdl1.line_type = 'BL'
1458: and ccdl1.line_num =
1459: (select max(line_num)
1460: from pa_cc_dist_lines
1461: where expenditure_item_id = ei1.expenditure_item_id
1462: and line_type = 'BL')
1463: )
1464: where ccdl2.request_id = pa_cc_utils.g_request_id
2028: log_message('4550: Mass deletion of distributions for ' || g_dcnt || ' records');
2029:
2030: FORALL i in 1..g_dcnt
2031:
2032: DELETE FROM PA_CC_DIST_LINES
2033: WHERE rowid = in_RowId(i);
2034:
2035: log_message('4600: -- Rows deleted = ' || to_char(sql%ROWCOUNT));
2036:
2096: -- Select the next line id into the in_ variable. This is done here
2097: -- and not directly in the INSERT statement because the line_id has to
2098: -- be passed to MRC
2099:
2100: SELECT pa_cc_dist_lines_s.nextval
2101: INTO in_cc_dist_line_id(i)
2102: FROM dual;
2103:
2104: in_expenditure_item_id(i) := g_ins_rec(i).expenditure_item_id;
2182: /* Bug 8406827 BEGIN */
2183: FOR i in 1..g_icnt LOOP
2184:
2185: select count(*) into rec_count
2186: from pa_cc_dist_lines
2187: where
2188: expenditure_item_id=in_expenditure_item_id(i)
2189: AND line_num=in_line_num(i) ;
2190:
2191:
2192: log_message('For exp_item: ' ||in_expenditure_item_id(i)||' line_num:'||in_line_num(i)||' cc_dist_line count: '||rec_count );
2193:
2194: if (rec_count=0)then
2195: log_message('Inserting into pa_cc_dist_lines');
2196: INSERT
2197: INTO pa_cc_dist_lines
2198: (
2199: org_id ,
2193:
2194: if (rec_count=0)then
2195: log_message('Inserting into pa_cc_dist_lines');
2196: INSERT
2197: INTO pa_cc_dist_lines
2198: (
2199: org_id ,
2200: cc_dist_line_id,
2201: expenditure_item_id,
2326:
2327: );
2328:
2329: else
2330: log_message('Pa_cc_dist_lines Insert aborted.');
2331: END IF;
2332: END LOOP;
2333: /*End-Chages for Bug:8406827*/
2334:
2529:
2530: log_message('5450: Updating for ' || to_char(g_ucnt));
2531:
2532: FORALL i in 1..g_ucnt
2533: UPDATE pa_cc_dist_lines
2534: SET
2535: reversed_flag =
2536: decode(in_upd_type(i), 'U', reversed_flag, 'Y'),
2537: acct_currency_code =