[Home] [Help]
333: decode(sign(cdl.amount), -1, -1 * cdl.amount, 0), -- entered_cr
334: -- R12 AP Lines Uptake: Reversing CDL lines should have same BRC as that of original line.
335: -- This forward port of fix 4217161.
336: (SELECT NVL(adl.burdenable_raw_cost,0) * -1
337: FROM gms_award_distributions adl
338: WHERE adl.cdl_line_num = cdl.line_num_reversed
339: AND adl.expenditure_item_id = cdl.expenditure_item_id
340: AND adl.document_type = 'EXP'
341: AND adl.adl_status = 'A'
341: AND adl.adl_status = 'A'
342: AND cdl.line_num_reversed IS NOT NULL ) burdenable_raw_cost
343: from pa_cost_distribution_lines cdl,
344: pa_expenditure_items exp,
345: gms_award_distributions adl,
346: pa_expenditures_all pae,
347: pa_expenditure_types et
348: where cdl.request_id = g_request_id
349: and cdl.line_type = 'R'
506:
507: CURSOR C_ap_amt_brc IS
508: SELECT nvl(adl.burdenable_raw_cost,0),NVL(adl.payment_status_flag,'N')
509: FROM ap_invoice_distributions APD,
510: gms_award_distributions ADL
511: where adl.invoice_distribution_id = APD.invoice_distribution_id
512: and adl.adl_status = 'A'
513: and adl.document_type = 'AP'
514: and ADL.award_set_id = APD.award_id
516: and apd.invoice_distribution_id = g_xface_rec.invoice_distribution_id
517: union /* BUG 14216205 : Added the union for SAT */
518: select NVL(ADL.BURDENABLE_RAW_COST,0),NVL(ADL.PAYMENT_STATUS_FLAG,'N')
519: FROM AP_SELF_ASSESSED_TAX_DIST APSAT,
520: gms_award_distributions ADL
521: where ADL.INVOICE_DISTRIBUTION_ID = APSAT.INVOICE_DISTRIBUTION_ID
522: and adl.adl_status = 'A'
523: and ADL.DOCUMENT_TYPE = 'AP'
524: and ADL.award_set_id = APSAT.award_id
1996: and gbc.adjusted_document_header_id is NOT NULL
1997: and gbc. adjusted_document_header_id <> gbc.document_header_id
1998: and exists
1999: (select 1
2000: from gms_award_distributions adl
2001: where adl.expenditure_item_id = gbc.adjusted_document_header_id
2002: and nvl(adl.fc_status, 'N') = 'N'
2003: and adl.adl_status = 'A'
2004: and nvl(adl.request_id,-1) <> gbc.request_id
2477: if v_expenditure_item_id.count > 0 then
2478:
2479: forall i in v_expenditure_item_id.FIRST..v_expenditure_item_id.LAST
2480:
2481: update gms_award_distributions
2482: set ind_compiled_set_id = v_ind_compiled_set_id(i),
2483: billable_flag = v_billable_flag(i),
2484: cdl_line_num = v_line_num(i),
2485: cost_distributed_flag = 'Y',
2494: and nvl(cdl_line_num,1) = 1;
2495:
2496: end if;
2497:
2498: insert into gms_award_distributions(
2499: AWARD_SET_ID,
2500: ADL_LINE_NUM,
2501: DISTRIBUTION_VALUE,
2502: RAW_COST,
2582:
2583: if v_exp_item_id.count > 0 then
2584:
2585: forall i in v_exp_item_id.first..v_exp_item_id.last
2586: update gms_award_distributions adl
2587: set adl.reversed_flag = 'Y'
2588: where expenditure_item_id = v_exp_item_id(i)
2589: and cdl_line_num = v_cdl_line_num(i)
2590: and document_type = 'EXP'; --added for bug 6622800
2613: gms_error_pkg.gms_debug (g_error_stage, 'C');
2614: END IF;
2615:
2616: forall i in v_rowid.first..v_rowid.last
2617: insert into gms_award_distributions(
2618: AWARD_SET_ID,
2619: ADL_LINE_NUM,
2620: DISTRIBUTION_VALUE,
2621: RAW_COST,
3271: end if;
3272:
3273: -- Update final payment status for finally paid invoices
3274: --code change for 7589407 (RDBMS optimizer issue)
3275: UPDATE gms_award_distributions adl
3276: SET adl.payment_status_flag='Y'
3277: WHERE
3278: TO_CHAR(adl.invoice_id)||'|'||TO_CHAR(adl.invoice_distribution_id) IN
3279: (SELECT
3361: IF g_debug_context = 'Y' THEN
3362: gms_error_pkg.gms_debug (g_error_stage, 'C');
3363: END IF;
3364:
3365: insert into gms_award_distributions(
3366: AWARD_SET_ID,
3367: ADL_LINE_NUM,
3368: DISTRIBUTION_VALUE,
3369: RAW_COST,
3428: from pa_transaction_interface_all txn,
3429: pa_expenditure_items_all ei,
3430: pa_cost_distribution_lines_all cdl,
3431: ap_invoice_distributions_all apd,
3432: gms_award_distributions adl
3433: where txn.interface_id = p_xface_id
3434: and nvl(txn.transaction_status_code, 'Z') <> 'R'
3435: and txn.batch_name = p_batch
3436: and txn.adjusted_expenditure_item_id = 0
3438: and txn.expenditure_item_id = ei.expenditure_item_id
3439: and txn.cdl_system_reference5 = apd.invoice_distribution_id
3440: and apd.award_id = adl.award_set_id
3441: and adl.adl_line_num = 1
3442: and not exists ( select 1 from gms_award_distributions adl2
3443: where adl2.expenditure_item_id = ei.expenditure_item_id
3444: and adl2.document_type = 'EXP'
3445: and adl2.adl_status = 'A'
3446: and adl2.adl_line_num = 1 );