[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
1941: and gbc.adjusted_document_header_id is NOT NULL
1942: and gbc. adjusted_document_header_id <> gbc.document_header_id
1943: and exists
1944: (select 1
1945: from gms_award_distributions adl
1946: where adl.expenditure_item_id = gbc.adjusted_document_header_id
1947: and nvl(adl.fc_status, 'N') = 'N'
1948: and adl.adl_status = 'A'
1949: and nvl(adl.request_id,-1) <> gbc.request_id
2397: if v_expenditure_item_id.count > 0 then
2398:
2399: forall i in v_expenditure_item_id.FIRST..v_expenditure_item_id.LAST
2400:
2401: update gms_award_distributions
2402: set ind_compiled_set_id = v_ind_compiled_set_id(i),
2403: billable_flag = v_billable_flag(i),
2404: cdl_line_num = v_line_num(i),
2405: cost_distributed_flag = 'Y',
2414: and nvl(cdl_line_num,1) = 1;
2415:
2416: end if;
2417:
2418: insert into gms_award_distributions(
2419: AWARD_SET_ID,
2420: ADL_LINE_NUM,
2421: DISTRIBUTION_VALUE,
2422: RAW_COST,
2502:
2503: if v_exp_item_id.count > 0 then
2504:
2505: forall i in v_exp_item_id.first..v_exp_item_id.last
2506: update gms_award_distributions adl
2507: set adl.reversed_flag = 'Y'
2508: where expenditure_item_id = v_exp_item_id(i)
2509: and cdl_line_num = v_cdl_line_num(i)
2510: and document_type = 'EXP'; --added for bug 6622800
2533: gms_error_pkg.gms_debug (g_error_stage, 'C');
2534: END IF;
2535:
2536: forall i in v_rowid.first..v_rowid.last
2537: insert into gms_award_distributions(
2538: AWARD_SET_ID,
2539: ADL_LINE_NUM,
2540: DISTRIBUTION_VALUE,
2541: RAW_COST,
3190: return;
3191: end if;
3192:
3193: -- Update final payment status for finally paid invoices
3194: UPDATE gms_award_distributions adl
3195: SET adl.payment_status_flag = 'Y'
3196: WHERE (adl.invoice_id ,adl.invoice_distribution_id) IN
3197: (SELECT trx.cdl_system_reference2,trx.cdl_system_reference5
3198: FROM gms_bc_packets pkt,
3278: IF g_debug_context = 'Y' THEN
3279: gms_error_pkg.gms_debug (g_error_stage, 'C');
3280: END IF;
3281:
3282: insert into gms_award_distributions(
3283: AWARD_SET_ID,
3284: ADL_LINE_NUM,
3285: DISTRIBUTION_VALUE,
3286: RAW_COST,
3345: from pa_transaction_interface_all txn,
3346: pa_expenditure_items_all ei,
3347: pa_cost_distribution_lines_all cdl,
3348: ap_invoice_distributions_all apd,
3349: gms_award_distributions adl
3350: where txn.interface_id = p_xface_id
3351: and nvl(txn.transaction_status_code, 'Z') <> 'R'
3352: and txn.batch_name = p_batch
3353: and txn.adjusted_expenditure_item_id = 0
3355: and txn.expenditure_item_id = ei.expenditure_item_id
3356: and txn.cdl_system_reference5 = apd.invoice_distribution_id
3357: and apd.award_id = adl.award_set_id
3358: and adl.adl_line_num = 1
3359: and not exists ( select 1 from gms_award_distributions adl2
3360: where adl2.expenditure_item_id = ei.expenditure_item_id
3361: and adl2.document_type = 'EXP'
3362: and adl2.adl_status = 'A'
3363: and adl2.adl_line_num = 1 );