[Home] [Help]
588: and b.invoice_distribution_id = g_xface_rec.invoice_distribution_id
589: and b.pay_dist_lookup_code = 'DISCOUNT'
590: and apd.invoice_distribution_id = b.invoice_distribution_id
591: and NVL(apd.historical_flag,'N') <> 'Y'
592: and apd.expenditure_item_date >= PA_TRX_IMPORT.G_Profile_Discount_Start_date
593: and apd.line_type_lookup_code = decode ( PA_TRX_IMPORT.G_discount_Method,
594: 'TAX', decode (apd.line_type_lookup_code,
595: 'TIPV', 'TIPV',
596: 'TERV','TERV',
589: and b.pay_dist_lookup_code = 'DISCOUNT'
590: and apd.invoice_distribution_id = b.invoice_distribution_id
591: and NVL(apd.historical_flag,'N') <> 'Y'
592: and apd.expenditure_item_date >= PA_TRX_IMPORT.G_Profile_Discount_Start_date
593: and apd.line_type_lookup_code = decode ( PA_TRX_IMPORT.G_discount_Method,
594: 'TAX', decode (apd.line_type_lookup_code,
595: 'TIPV', 'TIPV',
596: 'TERV','TERV',
597: 'TRV', 'TRV',
637: -- Intializing the amount
638: p_apdist_amt_to_relieve := g_xface_rec.acct_raw_cost + l_disc_amount;
639:
640: -- If final payment relieve total outstanding amount
641: IF (pa_trx_import.g_finalPaymentId = g_xface_rec.cdl_system_reference4) THEN
642:
643: OPEN c_ap_amt;
644: FETCH c_ap_amt INTO l_ap_amt ;
645: CLOSE c_ap_amt;
676:
677: IF (l_adl_fully_paid = 'Y')
678: OR (g_xface_rec.acct_raw_cost < 0 )
679: OR (l_erv_found = 'Y' )
680: OR (pa_trx_import.g_finalPaymentId = g_xface_rec.cdl_system_reference4) THEN
681:
682: p_cash_fc_required := 'Y' ;
683:
684: END IF;
692: -- relieve will be equal to that of payment amount
693: -- 3. IF BRC on AP distribution is less than payment amount then relieve left over BRC
694: -- 5. Update AP distribution ADL with current available BRC and final payment status in tieback
695: --
696: IF (pa_trx_import.g_finalPaymentId = g_xface_rec.cdl_system_reference4) THEN
697: p_apdist_brc_to_relieve := l_ap_outstanding_brc;
698: ELSIF p_apdist_amt_to_relieve < 0 THEN
699: p_apdist_brc_to_relieve := NULL;
700: ELSIF p_apdist_amt_to_relieve >= l_ap_outstanding_brc THEN
1183: -- then call local procedure to populate amount and BRC variables for paymenmts .
1184: -- IN R12,for cash based accounting historical invoices will be interfaced as
1185: -- invoice distributions itself and NOT the payments.
1186:
1187: IF (NVL(PA_TRX_IMPORT.G_cash_based_accounting,'N') = 'Y' AND
1188: g_xface_rec.cdl_system_reference4 IS NOT NULL) THEN
1189:
1190: CALCULATE_PAYTMENT_BRC (p_adl_fully_paid => l_adl_fully_paid ,
1191: p_erv_found => l_erv_found ,
1222: l_bc_pkt.budget_version_id := l_budget_version_id;
1223: -- giving credit to AP... Which is okay.
1224: l_bc_pkt.entered_cr := pa_currency.round_currency_amt(g_xface_rec.acct_raw_cost);
1225: l_bc_pkt.entered_dr := 0;
1226: IF (NVL(PA_TRX_IMPORT.G_cash_based_accounting,'N') = 'Y' AND
1227: g_xface_rec.cdl_system_reference4 IS NOT NULL) THEN
1228: l_bc_pkt.entered_cr := l_apdist_amt_to_relieve;
1229: l_bc_pkt.burdenable_raw_cost := -1 * l_apdist_brc_to_relieve;
1230: ELSE
1259:
1260: -- R12 AP lines uptake : For reversing expneditures BRC and ind_compiled_set_id should be
1261: -- copied from original expenditure
1262:
1263: IF (NVL(PA_TRX_IMPORT.G_cash_based_accounting,'N') = 'Y' AND
1264: g_xface_rec.cdl_system_reference4 IS NOT NULL) THEN
1265: l_bc_pkt.burdenable_raw_cost := l_apdist_brc_to_relieve;
1266: ELSE
1267: -- Bug 5389130
1372: l_bc_pkt.entered_dr := 0;
1373: l_bc_pkt.effect_on_funds_code := 'I';
1374: END IF;
1375:
1376: IF (NVL(PA_TRX_IMPORT.G_cash_based_accounting,'N') = 'Y' AND
1377: g_xface_rec.cdl_system_reference4 IS NOT NULL) THEN
1378: l_bc_pkt.burdenable_raw_cost := -1 * l_apdist_brc_to_relieve;
1379: ELSE
1380: l_bc_pkt.burdenable_raw_cost := -1 * g_xface_rec.burdenable_raw_cost;
1438: l_bc_pkt.entered_dr := 0;
1439: l_bc_pkt.effect_on_funds_code := 'D';
1440: END IF;
1441:
1442: IF (NVL(PA_TRX_IMPORT.G_cash_based_accounting,'N') = 'Y' AND
1443: g_xface_rec.cdl_system_reference4 IS NOT NULL) THEN
1444: l_bc_pkt.burdenable_raw_cost := l_apdist_brc_to_relieve;
1445: ELSE
1446: l_bc_pkt.burdenable_raw_cost := t_burdenable_raw_cost(i);
2651: -- Here check if transaction_source is one of the supported ones and process
2652: -- them.
2653: --
2654: -- This procedure is called for each distribution line being interfaced
2655: -- from AP. Call is from pa_trx_import.
2656: -- p_status = NULL if successful, else error is populated into p_status.
2657: ------------------------------------------------------------------------------
2658:
2659: PROCEDURE Fundscheck_Supplier_Cost( p_transaction_source IN VARCHAR2,
3065: END IF;
3066: END Populate_Indirect_Cost;
3067:
3068: -------------------------------------------------------------------------------
3069: -- Tieback after interface process is done. This is called from pa_trx_import
3070: -- after Projects is done with their tieback. This processes data for the
3071: -- current request id.
3072: -- Parameters :
3073: -- p_request_id : Request ID of the calling process.
3202: AND substr(nvl(pkt.result_code, 'P65'), 1, 1) = 'P'
3203: AND pkt.status_code = 'P'
3204: AND pkt.document_type = 'AP'
3205: AND pkt.parent_bc_packet_id IS NULL
3206: AND pa_trx_import.g_finalPaymentId = trx.cdl_system_reference4) -- Final payment
3207: AND adl.document_type ='AP'
3208: AND adl.adl_status = 'A' ;
3209:
3210: -- update the status of gms_bc_packets. update expenditure_item_id