DBA Data[Home] [Help]

APPS.CSTPPACQ dependencies on FND_FILE

Line 389: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Acq_Cost_Processor <<<');

385: l_commit_records_count NUMBER := 500; -- COMMIT to be issued every 500 records. Can be changed, if reqd.
386:
387: BEGIN
388: IF g_debug = 'Y' THEN
389: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Acq_Cost_Processor <<<');
390: END IF;
391: l_recs_processed := 0;
392: -----------------------------------------------------
393: -- Initialize error variables

Line 529: fnd_file.put_line(fnd_file.log,'Start date: ' || to_char(l_start_date,'DD-MON-RR'));

525: l_end_date := i_end_date;
526: end if;
527:
528: IF g_debug = 'Y' THEN
529: fnd_file.put_line(fnd_file.log,'Start date: ' || to_char(l_start_date,'DD-MON-RR'));
530: fnd_file.put_line(fnd_file.log,'End Date: ' || to_char(l_end_date,'DD-MON-RR'));
531: END IF;
532:
533:

Line 530: fnd_file.put_line(fnd_file.log,'End Date: ' || to_char(l_end_date,'DD-MON-RR'));

526: end if;
527:
528: IF g_debug = 'Y' THEN
529: fnd_file.put_line(fnd_file.log,'Start date: ' || to_char(l_start_date,'DD-MON-RR'));
530: fnd_file.put_line(fnd_file.log,'End Date: ' || to_char(l_end_date,'DD-MON-RR'));
531: END IF;
532:
533:
534: -- ==================================================================================

Line 573: fnd_file.put_line(fnd_file.log, 'Transaction: ' ||to_char(c_rec.transaction_id));

569: l_rec_uom mtl_units_of_measure.uom_code%TYPE;
570:
571: BEGIN
572: If G_DEBUG ='Y' then
573: fnd_file.put_line(fnd_file.log, 'Transaction: ' ||to_char(c_rec.transaction_id));
574: end If;
575:
576: l_stmt_num := 60;
577:

Line 987: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoice: ' ||to_char(c_inv.INVOICE_DISTRIBUTION_ID));

983: -- Check if there are any Price Correction Invoices
984: -- And if so, get the correction amount
985: ---------------------------------------------------
986: IF G_DEBUG = 'Y' THEN
987: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoice: ' ||to_char(c_inv.INVOICE_DISTRIBUTION_ID));
988: END IF;
989: BEGIN
990: -----------------------------------------------------
991: -- The latest price correction invoice does not

Line 1049: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Latest Price Correction Invoice: '||to_char(l_corr_inv));

1045: l_corr_inv := -1;
1046: END;
1047:
1048: IF G_DEBUG = 'Y' THEN
1049: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Latest Price Correction Invoice: '||to_char(l_corr_inv));
1050: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Correction Amount (from Price Correction Invoice): '||to_char(l_correction_amount));
1051: END IF;
1052:
1053: BEGIN

Line 1050: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Correction Amount (from Price Correction Invoice): '||to_char(l_correction_amount));

1046: END;
1047:
1048: IF G_DEBUG = 'Y' THEN
1049: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Latest Price Correction Invoice: '||to_char(l_corr_inv));
1050: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Correction Amount (from Price Correction Invoice): '||to_char(l_correction_amount));
1051: END IF;
1052:
1053: BEGIN
1054:

Line 1416: fnd_file.put_line(fnd_file.LOG, ' 500 txns processed.... Issuing Commit ');

1412: -- Added Perf bug# 5214447. Issuing intermediate commits after processing preset No. of rows.
1413:
1414: IF l_recs_processed >= l_commit_records_count THEN
1415: IF g_debug = 'Y' THEN
1416: fnd_file.put_line(fnd_file.LOG, ' 500 txns processed.... Issuing Commit ');
1417: END IF;
1418: l_recs_processed := 0;
1419: COMMIT;
1420: END IF;

Line 2245: fnd_file.put_line(fnd_file.LOG, ' 500 txns processed.... Issuing Commit ');

2241: END IF;
2242: END LOOP;
2243: IF l_recs_processed >= l_commit_records_count THEN
2244: IF g_debug = 'Y' THEN
2245: fnd_file.put_line(fnd_file.LOG, ' 500 txns processed.... Issuing Commit ');
2246: END IF;
2247: l_recs_processed := 0;
2248: COMMIT;
2249: END IF;

Line 2283: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Acq_Cost_Processor >>>');

2279:
2280: END;
2281: /*LCM Adjustment*/
2282: IF g_debug = 'Y' THEN
2283: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Acq_Cost_Processor >>>');
2284: END IF;
2285:
2286: ELSIF i_source_flag = 2 THEN
2287: -------------------------------------------------------------------------------------

Line 2318: fnd_file.put_line(fnd_file.log, 'Transaction: ' ||to_char(c_rec.transaction_id));

2314: l_rec_uom mtl_units_of_measure.uom_code%TYPE;
2315:
2316: BEGIN
2317: If G_DEBUG ='Y' then
2318: fnd_file.put_line(fnd_file.log, 'Transaction: ' ||to_char(c_rec.transaction_id));
2319: end If;
2320:
2321: -- Delete from MMT and MPTCD transactions that were created for the
2322: -- previous run for this receipt and then delete from craca and cracda*/

Line 2778: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoice: ' ||to_char(c_inv.INVOICE_DISTRIBUTION_ID));

2774: -- Check if there are any Price Correction Invoices
2775: -- And if so, get the correction amount
2776: ---------------------------------------------------
2777: IF G_DEBUG = 'Y' THEN
2778: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoice: ' ||to_char(c_inv.INVOICE_DISTRIBUTION_ID));
2779: END IF;
2780: BEGIN
2781: -----------------------------------------------------
2782: -- The latest price correction invoice does not

Line 2840: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Latest Price Correction Invoice: '||to_char(l_corr_inv));

2836: l_corr_inv := -1;
2837: END;
2838:
2839: IF G_DEBUG = 'Y' THEN
2840: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Latest Price Correction Invoice: '||to_char(l_corr_inv));
2841: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Correction Amount (from Price Correction Invoice): '||to_char(l_correction_amount));
2842: END IF;
2843:
2844: BEGIN

Line 2841: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Correction Amount (from Price Correction Invoice): '||to_char(l_correction_amount));

2837: END;
2838:
2839: IF G_DEBUG = 'Y' THEN
2840: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Latest Price Correction Invoice: '||to_char(l_corr_inv));
2841: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Correction Amount (from Price Correction Invoice): '||to_char(l_correction_amount));
2842: END IF;
2843:
2844: BEGIN
2845:

Line 3002: fnd_file.put_line(fnd_file.LOG, ' 500 txns processed.... Issuing Commit ');

2998: -- Added Perf bug# 5214447. Issuing intermediate commits after processing preset No. of rows.
2999:
3000: IF l_recs_processed >= l_commit_records_count THEN
3001: IF g_debug = 'Y' THEN
3002: fnd_file.put_line(fnd_file.LOG, ' 500 txns processed.... Issuing Commit ');
3003: END IF;
3004: l_recs_processed := 0;
3005: COMMIT;
3006: END IF;

Line 3012: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Acq_Cost_Adjustment_Processor >>>');

3008: END LOOP; -- Receipts loop for acquisition cost adjustment processor
3009:
3010:
3011: IF g_debug = 'Y' THEN
3012: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Acq_Cost_Adjustment_Processor >>>');
3013: END IF;
3014:
3015: END IF; -- i_source_flag check
3016:

Line 3140: FND_FILE.PUT_LINE(FND_FILE.LOG, 'GET_NQR <<< ');

3136:
3137: o_err_num := 0;
3138:
3139: IF g_debug = 'Y' THEN
3140: FND_FILE.PUT_LINE(FND_FILE.LOG, 'GET_NQR <<< ');
3141: END IF;
3142: -------------------------------------------
3143: -- Determine if PO is for Service Line Type
3144: -------------------------------------------

Line 3250: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Net Quantity/Amount: '||to_char(l_nqr));

3246: -- Return the net quantity received as calculated
3247: --------------------------------------------------------
3248:
3249: IF g_debug = 'Y' THEN
3250: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Net Quantity/Amount: '||to_char(l_nqr));
3251: FND_FILE.PUT_LINE(FND_FILE.LOG, 'GET_NQR >>> ');
3252: END IF;
3253: RETURN (l_nqr);
3254: EXCEPTION

Line 3251: FND_FILE.PUT_LINE(FND_FILE.LOG, 'GET_NQR >>> ');

3247: --------------------------------------------------------
3248:
3249: IF g_debug = 'Y' THEN
3250: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Net Quantity/Amount: '||to_char(l_nqr));
3251: FND_FILE.PUT_LINE(FND_FILE.LOG, 'GET_NQR >>> ');
3252: END IF;
3253: RETURN (l_nqr);
3254: EXCEPTION
3255: WHEN OTHERS THEN

Line 4197: fnd_file.put_line(fnd_file.log,'Calculating the Adjustment amount');

4193: /* now calculate the amount to be posted as the adjustment amount */
4194:
4195: If G_DEBUG = 'Y' then
4196:
4197: fnd_file.put_line(fnd_file.log,'Calculating the Adjustment amount');
4198: fnd_file.put_line(fnd_file.log,'Header ID : ' || to_char(i_header));
4199:
4200: End If;
4201:

Line 4198: fnd_file.put_line(fnd_file.log,'Header ID : ' || to_char(i_header));

4194:
4195: If G_DEBUG = 'Y' then
4196:
4197: fnd_file.put_line(fnd_file.log,'Calculating the Adjustment amount');
4198: fnd_file.put_line(fnd_file.log,'Header ID : ' || to_char(i_header));
4199:
4200: End If;
4201:
4202: l_stmt_num := 45;

Line 4229: fnd_file.put_line(fnd_file.log,'Original Acq cost:'|| l_ori_acq_amount);

4225: END;
4226:
4227: If G_DEBUG = 'Y' then
4228:
4229: fnd_file.put_line(fnd_file.log,'Original Acq cost:'|| l_ori_acq_amount);
4230: End If;
4231:
4232: /* now get the SUM of all the incremental amounts posted to MMT so far in the previous periods */
4233:

Line 4249: fnd_file.put_line(fnd_file.log,'old increment :' || to_char(l_old_increments));

4245: from cst_rcv_acq_costs_adj craca2
4246: where craca2.header_id = i_header);
4247:
4248:
4249: fnd_file.put_line(fnd_file.log,'old increment :' || to_char(l_old_increments));
4250:
4251: select nvl(net_quantity_received,0)
4252: into l_net_qty_received
4253: from cst_rcv_acq_costs_adj

Line 4264: fnd_file.put_line(fnd_file.log,'RTV Adjustment amount : ' || to_char(l_rtv_adj_amount));

4260: l_rtv_qty := nvl(abs(l_net_qty_received - l_original_qty_received),0);
4261:
4262: l_rtv_adj_amount := l_rtv_qty * l_original_acq_cost;
4263:
4264: fnd_file.put_line(fnd_file.log,'RTV Adjustment amount : ' || to_char(l_rtv_adj_amount));
4265:
4266: fnd_file.put_line(fnd_file.log,'Current acq cost : ' || to_char(l_acq_cost));
4267:
4268:

Line 4266: fnd_file.put_line(fnd_file.log,'Current acq cost : ' || to_char(l_acq_cost));

4262: l_rtv_adj_amount := l_rtv_qty * l_original_acq_cost;
4263:
4264: fnd_file.put_line(fnd_file.log,'RTV Adjustment amount : ' || to_char(l_rtv_adj_amount));
4265:
4266: fnd_file.put_line(fnd_file.log,'Current acq cost : ' || to_char(l_acq_cost));
4267:
4268:
4269:
4270: l_acq_adjustment_amount := (NVL(l_acq_cost,0) * l_net_qty_received)

Line 4273: fnd_file.put_line(fnd_file.log,'Adjustment amount : ' || to_char(l_acq_adjustment_amount));

4269:
4270: l_acq_adjustment_amount := (NVL(l_acq_cost,0) * l_net_qty_received)
4271: - l_ori_acq_amount - l_old_increments + l_rtv_adj_amount;
4272:
4273: fnd_file.put_line(fnd_file.log,'Adjustment amount : ' || to_char(l_acq_adjustment_amount));
4274:
4275: /* Now check if the amount to be posted is greater than 0.If it is then post an entry into MMT.Otherwise dont */
4276:
4277: IF l_acq_adjustment_amount <> 0 then

Line 4354: fnd_file.put_line(fnd_file.log,'item id : ' || to_char(l_item));

4350: /* Now get the accounts for all the cost elements */
4351:
4352: l_stmt_num := 70;
4353:
4354: fnd_file.put_line(fnd_file.log,'item id : ' || to_char(l_item));
4355: fnd_file.put_line(fnd_file.log,'org_id : ' || to_char(i_org_id));
4356:
4357:
4358: select MTL_MATERIAL_TRANSACTIONS_S.NEXTVAL into l_transaction_id

Line 4355: fnd_file.put_line(fnd_file.log,'org_id : ' || to_char(i_org_id));

4351:
4352: l_stmt_num := 70;
4353:
4354: fnd_file.put_line(fnd_file.log,'item id : ' || to_char(l_item));
4355: fnd_file.put_line(fnd_file.log,'org_id : ' || to_char(i_org_id));
4356:
4357:
4358: select MTL_MATERIAL_TRANSACTIONS_S.NEXTVAL into l_transaction_id
4359: from dual;

Line 5397: fnd_file.put_line(fnd_file.log,'date is : '|| to_char(l_end_date,'DD-MON-RR'));

5393: l_end_date := to_date(i_end_date,'RR/MM/DD HH24:MI:SS');
5394:
5395: If G_DEBUG = 'Y' then
5396:
5397: fnd_file.put_line(fnd_file.log,'date is : '|| to_char(l_end_date,'DD-MON-RR'));
5398:
5399: End If;
5400:
5401: l_stmt_num := 10;

Line 5406: fnd_file.put_line(fnd_file.log,'Legal Entity : '|| to_char(i_legal_entity));

5402:
5403:
5404: /* start printing out the Parameters */
5405:
5406: fnd_file.put_line(fnd_file.log,'Legal Entity : '|| to_char(i_legal_entity));
5407: fnd_file.put_line(fnd_file.log,'Cost Type : '|| to_char(i_cost_type_id));
5408: fnd_file.put_line(fnd_file.log,'Period : '|| to_char(i_period));
5409: fnd_file.put_line(fnd_file.log,'Process Upto date : '|| to_char(to_date(i_end_date,'RR/MM/DD HH24:MI:SS'),'DD-MON-RR'));
5410: fnd_file.put_line(fnd_file.log,'Cost Group : '|| to_char(i_cost_group_id));

Line 5407: fnd_file.put_line(fnd_file.log,'Cost Type : '|| to_char(i_cost_type_id));

5403:
5404: /* start printing out the Parameters */
5405:
5406: fnd_file.put_line(fnd_file.log,'Legal Entity : '|| to_char(i_legal_entity));
5407: fnd_file.put_line(fnd_file.log,'Cost Type : '|| to_char(i_cost_type_id));
5408: fnd_file.put_line(fnd_file.log,'Period : '|| to_char(i_period));
5409: fnd_file.put_line(fnd_file.log,'Process Upto date : '|| to_char(to_date(i_end_date,'RR/MM/DD HH24:MI:SS'),'DD-MON-RR'));
5410: fnd_file.put_line(fnd_file.log,'Cost Group : '|| to_char(i_cost_group_id));
5411: fnd_file.put_line(fnd_file.log,'Source : '|| to_char(i_source_flag));

Line 5408: fnd_file.put_line(fnd_file.log,'Period : '|| to_char(i_period));

5404: /* start printing out the Parameters */
5405:
5406: fnd_file.put_line(fnd_file.log,'Legal Entity : '|| to_char(i_legal_entity));
5407: fnd_file.put_line(fnd_file.log,'Cost Type : '|| to_char(i_cost_type_id));
5408: fnd_file.put_line(fnd_file.log,'Period : '|| to_char(i_period));
5409: fnd_file.put_line(fnd_file.log,'Process Upto date : '|| to_char(to_date(i_end_date,'RR/MM/DD HH24:MI:SS'),'DD-MON-RR'));
5410: fnd_file.put_line(fnd_file.log,'Cost Group : '|| to_char(i_cost_group_id));
5411: fnd_file.put_line(fnd_file.log,'Source : '|| to_char(i_source_flag));
5412: fnd_file.put_line(fnd_file.log,'Run Option : '|| to_char(i_run_option));

Line 5409: fnd_file.put_line(fnd_file.log,'Process Upto date : '|| to_char(to_date(i_end_date,'RR/MM/DD HH24:MI:SS'),'DD-MON-RR'));

5405:
5406: fnd_file.put_line(fnd_file.log,'Legal Entity : '|| to_char(i_legal_entity));
5407: fnd_file.put_line(fnd_file.log,'Cost Type : '|| to_char(i_cost_type_id));
5408: fnd_file.put_line(fnd_file.log,'Period : '|| to_char(i_period));
5409: fnd_file.put_line(fnd_file.log,'Process Upto date : '|| to_char(to_date(i_end_date,'RR/MM/DD HH24:MI:SS'),'DD-MON-RR'));
5410: fnd_file.put_line(fnd_file.log,'Cost Group : '|| to_char(i_cost_group_id));
5411: fnd_file.put_line(fnd_file.log,'Source : '|| to_char(i_source_flag));
5412: fnd_file.put_line(fnd_file.log,'Run Option : '|| to_char(i_run_option));
5413: fnd_file.put_line(fnd_file.log,'Receipt No : '|| to_char(i_receipt_no));

Line 5410: fnd_file.put_line(fnd_file.log,'Cost Group : '|| to_char(i_cost_group_id));

5406: fnd_file.put_line(fnd_file.log,'Legal Entity : '|| to_char(i_legal_entity));
5407: fnd_file.put_line(fnd_file.log,'Cost Type : '|| to_char(i_cost_type_id));
5408: fnd_file.put_line(fnd_file.log,'Period : '|| to_char(i_period));
5409: fnd_file.put_line(fnd_file.log,'Process Upto date : '|| to_char(to_date(i_end_date,'RR/MM/DD HH24:MI:SS'),'DD-MON-RR'));
5410: fnd_file.put_line(fnd_file.log,'Cost Group : '|| to_char(i_cost_group_id));
5411: fnd_file.put_line(fnd_file.log,'Source : '|| to_char(i_source_flag));
5412: fnd_file.put_line(fnd_file.log,'Run Option : '|| to_char(i_run_option));
5413: fnd_file.put_line(fnd_file.log,'Receipt No : '|| to_char(i_receipt_no));
5414: fnd_file.put_line(fnd_file.log,'Invoice No : '|| to_char(i_invoice_no));

Line 5411: fnd_file.put_line(fnd_file.log,'Source : '|| to_char(i_source_flag));

5407: fnd_file.put_line(fnd_file.log,'Cost Type : '|| to_char(i_cost_type_id));
5408: fnd_file.put_line(fnd_file.log,'Period : '|| to_char(i_period));
5409: fnd_file.put_line(fnd_file.log,'Process Upto date : '|| to_char(to_date(i_end_date,'RR/MM/DD HH24:MI:SS'),'DD-MON-RR'));
5410: fnd_file.put_line(fnd_file.log,'Cost Group : '|| to_char(i_cost_group_id));
5411: fnd_file.put_line(fnd_file.log,'Source : '|| to_char(i_source_flag));
5412: fnd_file.put_line(fnd_file.log,'Run Option : '|| to_char(i_run_option));
5413: fnd_file.put_line(fnd_file.log,'Receipt No : '|| to_char(i_receipt_no));
5414: fnd_file.put_line(fnd_file.log,'Invoice No : '|| to_char(i_invoice_no));
5415:

Line 5412: fnd_file.put_line(fnd_file.log,'Run Option : '|| to_char(i_run_option));

5408: fnd_file.put_line(fnd_file.log,'Period : '|| to_char(i_period));
5409: fnd_file.put_line(fnd_file.log,'Process Upto date : '|| to_char(to_date(i_end_date,'RR/MM/DD HH24:MI:SS'),'DD-MON-RR'));
5410: fnd_file.put_line(fnd_file.log,'Cost Group : '|| to_char(i_cost_group_id));
5411: fnd_file.put_line(fnd_file.log,'Source : '|| to_char(i_source_flag));
5412: fnd_file.put_line(fnd_file.log,'Run Option : '|| to_char(i_run_option));
5413: fnd_file.put_line(fnd_file.log,'Receipt No : '|| to_char(i_receipt_no));
5414: fnd_file.put_line(fnd_file.log,'Invoice No : '|| to_char(i_invoice_no));
5415:
5416: /* call the same Acquisition Cost Processor code with the new modified parameters */

Line 5413: fnd_file.put_line(fnd_file.log,'Receipt No : '|| to_char(i_receipt_no));

5409: fnd_file.put_line(fnd_file.log,'Process Upto date : '|| to_char(to_date(i_end_date,'RR/MM/DD HH24:MI:SS'),'DD-MON-RR'));
5410: fnd_file.put_line(fnd_file.log,'Cost Group : '|| to_char(i_cost_group_id));
5411: fnd_file.put_line(fnd_file.log,'Source : '|| to_char(i_source_flag));
5412: fnd_file.put_line(fnd_file.log,'Run Option : '|| to_char(i_run_option));
5413: fnd_file.put_line(fnd_file.log,'Receipt No : '|| to_char(i_receipt_no));
5414: fnd_file.put_line(fnd_file.log,'Invoice No : '|| to_char(i_invoice_no));
5415:
5416: /* call the same Acquisition Cost Processor code with the new modified parameters */
5417:

Line 5414: fnd_file.put_line(fnd_file.log,'Invoice No : '|| to_char(i_invoice_no));

5410: fnd_file.put_line(fnd_file.log,'Cost Group : '|| to_char(i_cost_group_id));
5411: fnd_file.put_line(fnd_file.log,'Source : '|| to_char(i_source_flag));
5412: fnd_file.put_line(fnd_file.log,'Run Option : '|| to_char(i_run_option));
5413: fnd_file.put_line(fnd_file.log,'Receipt No : '|| to_char(i_receipt_no));
5414: fnd_file.put_line(fnd_file.log,'Invoice No : '|| to_char(i_invoice_no));
5415:
5416: /* call the same Acquisition Cost Processor code with the new modified parameters */
5417:
5418: l_stmt_num := 20;

Line 5450: fnd_file.put_line(fnd_file.log,'Exception occured in Acquisition_cost_adj_processor : ' || l_err_code || ' ' || l_err_msg);

5446: EXCEPTION
5447:
5448: WHEN others then
5449:
5450: fnd_file.put_line(fnd_file.log,'Exception occured in Acquisition_cost_adj_processor : ' || l_err_code || ' ' || l_err_msg);
5451:
5452: ROLLBACK;
5453:
5454: CONC_STATUS := fnd_concurrent.set_completion_status ('ERROR','CST_INVALID_EXCEPTION');