[Home] [Help]
182: SELECT 'jai_rcv_deliver_rtr_pkg-'||p_transaction_id INTO lv_temp FROM DUAL;
183:
184: FND_FILE.put_line( FND_FILE.log, '~~~~~~ Start of jai_rcv_deliver_rtr_pkg.process_transaction. Time:'||to_char(SYSDATE, 'dd/mm/yyyy hh24:mi:ss'));
185:
186: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'jai_rcv_deliver_rtr_pkg.process_transaction', 'START'); /* 1 */
187:
188: /* Fetch all the information from JAI_RCV_TRANSACTIONS */
189: OPEN c_trx(p_transaction_id);
190: FETCH c_trx INTO r_trx;
208: CLOSE c_base_line_dtls;
209:
210: lv_statement_id := '2';
211: if r_base_line_dtls.quantity = 0 THEN
212: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
213: p_process_status := 'E';
214: p_process_message := 'The Quantity in rcv_transactions for RECEIVE line is Zero';
215: goto exit_from_procedure;
216: end if;
214: p_process_message := 'The Quantity in rcv_transactions for RECEIVE line is Zero';
215: goto exit_from_procedure;
216: end if;
217:
218: --p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
219: --lv_statement_id := '2.1';
220:
221: /* Fetch the information of certain columns which are not present in JAI_RCV_TRANSACTIONS */
222: OPEN c_rcv_trx(p_transaction_id);
223: FETCH c_rcv_trx into r_rcv_trx;
224: CLOSE c_rcv_trx;
225:
226: lv_statement_id := '3';
227: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
228:
229: /* Fetch the Receiving Account Id */
230: ln_receiving_account_id := receiving_account
231: (
235: p_codepath => p_codepath
236: );
237:
238: if p_process_status in ('E', 'X') THEN
239: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
240: goto exit_from_procedure;
241: end if;
242:
243: lv_statement_id := '4';
244:
245: if (r_trx.transaction_type ='CORRECT' and r_trx.parent_transaction_type = 'DELIVER')
246: or r_trx.transaction_type = 'DELIVER'
247: then
248: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
249: lv_accounting_type := 'REGULAR';
250: elsif (r_trx.transaction_type ='CORRECT' and r_trx.parent_transaction_type = 'RETURN TO RECEIVING')
251: or r_trx.transaction_type = 'RETURN TO RECEIVING'
252: then
249: lv_accounting_type := 'REGULAR';
250: elsif (r_trx.transaction_type ='CORRECT' and r_trx.parent_transaction_type = 'RETURN TO RECEIVING')
251: or r_trx.transaction_type = 'RETURN TO RECEIVING'
252: then
253: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath); /* 8 */
254: lv_accounting_type := 'REVERSAL';
255: end if;
256:
257: /* following condition added by Vijay Shankar for Bug#4068823. RECEIPTS DEPLUG
260: if nvl(p_process_special_source, 'XX') NOT IN ( jai_constants.cenvat_noclaim, jai_constants.vat_noclaim) then
261:
262: -- following gets executed only for NORMAL DELIVER and RTR transactions and not for UNCLAIM Processing till <
263: lv_statement_id := '5';
264: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath); /* 9 */
265:
266: /* Apportion Factor */
267: ln_apportion_factor := jai_rcv_trx_processing_pkg.get_apportion_factor
268: (p_transaction_id => r_trx.transaction_id);
291: p_process_status => p_process_status,
292: p_codepath => p_codepath
293: );
294:
295: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath); /* 10 */
296: if p_process_status IN ('E', 'X') THEN
297: p_codepath := jai_general_pkg.plot_codepath(11, p_codepath); /* 11 */
298: goto exit_from_procedure;
299: end if;
293: );
294:
295: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath); /* 10 */
296: if p_process_status IN ('E', 'X') THEN
297: p_codepath := jai_general_pkg.plot_codepath(11, p_codepath); /* 11 */
298: goto exit_from_procedure;
299: end if;
300:
301: /* Get Register Type */
298: goto exit_from_procedure;
299: end if;
300:
301: /* Get Register Type */
302: -- lv_register_type := jai_general_pkg.get_rg_register_type(p_item_class => r_trx.item_class);
303:
304: p_codepath := jai_general_pkg.plot_codepath(12, p_codepath); /* 12 */
305: get_tax_amount_breakup
306: (
300:
301: /* Get Register Type */
302: -- lv_register_type := jai_general_pkg.get_rg_register_type(p_item_class => r_trx.item_class);
303:
304: p_codepath := jai_general_pkg.plot_codepath(12, p_codepath); /* 12 */
305: get_tax_amount_breakup
306: (
307: p_shipment_line_id => r_trx.shipment_line_id,
308: p_transaction_id => r_trx.transaction_id,
314: p_process_status => p_process_status,
315: p_codepath => p_codepath
316: );
317:
318: p_codepath := jai_general_pkg.plot_codepath(13, p_codepath); /* 13 */
319: if p_process_status in ('E', 'X') THEN
320: p_codepath := jai_general_pkg.plot_codepath(14, p_codepath); /* 14 */
321: goto exit_from_procedure;
322: end if;
316: );
317:
318: p_codepath := jai_general_pkg.plot_codepath(13, p_codepath); /* 13 */
319: if p_process_status in ('E', 'X') THEN
320: p_codepath := jai_general_pkg.plot_codepath(14, p_codepath); /* 14 */
321: goto exit_from_procedure;
322: end if;
323:
324: lv_include_cenvat_in_costing := include_cenvat_in_costing
328: p_process_status => p_process_status,
329: p_codepath => p_codepath
330: );
331:
332: p_codepath := jai_general_pkg.plot_codepath(15, p_codepath); /* 15 */
333: if p_process_status in ('E', 'X') THEN
334: p_codepath := jai_general_pkg.plot_codepath(16, p_codepath); /* 16 */
335: goto exit_from_procedure;
336: end if;
330: );
331:
332: p_codepath := jai_general_pkg.plot_codepath(15, p_codepath); /* 15 */
333: if p_process_status in ('E', 'X') THEN
334: p_codepath := jai_general_pkg.plot_codepath(16, p_codepath); /* 16 */
335: goto exit_from_procedure;
336: end if;
337:
338: /* Logic to arrive at the Total for which Costing or Expense Accounting has to be done */
336: end if;
337:
338: /* Logic to arrive at the Total for which Costing or Expense Accounting has to be done */
339: if lv_include_cenvat_in_costing ='Y' then
340: p_codepath := jai_general_pkg.plot_codepath(17, p_codepath); /* 17 */
341: ln_total := nvl(ln_non_modvat_amount,0) + nvl(ln_modvat_amount,0);
342: else
343: p_codepath := jai_general_pkg.plot_codepath(18, p_codepath); /* 18 */
344: ln_total := nvl(ln_non_modvat_amount,0);
339: if lv_include_cenvat_in_costing ='Y' then
340: p_codepath := jai_general_pkg.plot_codepath(17, p_codepath); /* 17 */
341: ln_total := nvl(ln_non_modvat_amount,0) + nvl(ln_modvat_amount,0);
342: else
343: p_codepath := jai_general_pkg.plot_codepath(18, p_codepath); /* 18 */
344: ln_total := nvl(ln_non_modvat_amount,0);
345: end if;
346:
347: end if; -- end of p_process_special_source not in ( jai_constants.cenvat_noclaim ...
349: /* following condition added by Vijay Shankar for Bug#4068823. RECEIPTS DEPLUG
350: vat_noclaim added by Vijay Shankar for Bug#4250236(4245089). VAT Impl. */
351: IF p_process_special_source IN ( jai_constants.cenvat_noclaim, jai_constants.vat_noclaim) THEN
352: ln_total := p_process_special_amount;
353: p_codepath := jai_general_pkg.plot_codepath(18.1, p_codepath);
354: ELSE
355: ln_total := nvl(ln_total,0); --In case the Total is Null.
356: p_codepath := jai_general_pkg.plot_codepath(19, p_codepath); /* 19 */
357: END IF;
352: ln_total := p_process_special_amount;
353: p_codepath := jai_general_pkg.plot_codepath(18.1, p_codepath);
354: ELSE
355: ln_total := nvl(ln_total,0); --In case the Total is Null.
356: p_codepath := jai_general_pkg.plot_codepath(19, p_codepath); /* 19 */
357: END IF;
358:
359: if lv_debug='Y' THEN
360: fnd_file.put_line( fnd_file.log, ' 1.3 ln_modvat_amount ='|| ln_modvat_amount
363: ||', ln_total ='|| ln_total);
364: end if;
365:
366: if ln_total = 0 then
367: p_codepath := jai_general_pkg.plot_codepath(20, p_codepath); /* 20 */
368: -- Vijay Shankar for Bug#4071458
369: -- following if condition added to return successfully so that Individual Accounting happens without Costing/Expense Accounting
370: if ln_other_modvat_amount <> 0 then
371: p_process_status := 'Y';
377:
378: goto exit_from_procedure;
379: else
380: /*Proportionate the Total with the Quantity of this transaction */
381: p_codepath := jai_general_pkg.plot_codepath(21, p_codepath); /* 21 */
382: ln_opm_total := ln_total; /*This Total is required as in OPM Organization, costing would be based on source doc quantity */
383: ln_total := ln_total * ln_apportion_factor; /*This Amount would be the one which would be used for costing */
384: end if;
385:
383: ln_total := ln_total * ln_apportion_factor; /*This Amount would be the one which would be used for costing */
384: end if;
385:
386: /* Logic to arrive at the Total for which Costing or Expense Accounting Ends here */
387: p_codepath := jai_general_pkg.plot_codepath(22, p_codepath); /* 22 */
388: open c_mtl_trx(r_trx.organization_id);
389: fetch c_mtl_trx into r_mtl_trx;
390: close c_mtl_trx;
391:
431: or r_trx.inv_item_flag ='N'
432: or r_trx.base_asset_inventory = 2
433: then
434:
435: p_codepath := jai_general_pkg.plot_codepath(23, p_codepath); /* 23 */
436:
437: expense_accounting
438: (
439: p_transaction_id => r_trx.transaction_id,
457: p_codepath => p_codepath,
458: p_process_special_source => p_process_special_source
459: );
460:
461: p_codepath := jai_general_pkg.plot_codepath(24, p_codepath); /* 24 */
462:
463: if p_process_status in ('E', 'X') THEN
464: p_codepath := jai_general_pkg.plot_codepath(25, p_codepath); /* 25 */
465: goto exit_from_procedure;
460:
461: p_codepath := jai_general_pkg.plot_codepath(24, p_codepath); /* 24 */
462:
463: if p_process_status in ('E', 'X') THEN
464: p_codepath := jai_general_pkg.plot_codepath(25, p_codepath); /* 25 */
465: goto exit_from_procedure;
466: end if;
467:
468: elsif nvl(r_mtl_trx.process_enabled_flag,'N') ='Y' then /* OPM Costing Route */
472:
473: if (r_trx.transaction_type ='CORRECT' AND r_trx.parent_transaction_type ='RETURN TO RECEIVING')
474: or r_trx.transaction_type ='RETURN TO RECEIVING'
475: then
476: p_codepath := jai_general_pkg.plot_codepath(26, p_codepath); -- 26
477: goto exit_from_procedure;
478: end if;
479:
480: --commented as opm is not taken part of this enhancement.
506: end if;
507:
508: elsif r_trx.costing_method = 2 then
509:
510: p_codepath := jai_general_pkg.plot_codepath(27, p_codepath); /* 27 */
511: average_costing
512: (
513: p_transaction_id => r_trx.transaction_id,
514: p_transaction_date => r_trx.transaction_date,
529: p_codepath => p_codepath,
530: p_process_special_source => p_process_special_source
531: );
532:
533: p_codepath := jai_general_pkg.plot_codepath(28, p_codepath); /* 28 */
534: if p_process_status in ('E', 'X') THEN
535: p_codepath := jai_general_pkg.plot_codepath(29, p_codepath); /* 29 */
536: goto exit_from_procedure;
537: end if;
531: );
532:
533: p_codepath := jai_general_pkg.plot_codepath(28, p_codepath); /* 28 */
534: if p_process_status in ('E', 'X') THEN
535: p_codepath := jai_general_pkg.plot_codepath(29, p_codepath); /* 29 */
536: goto exit_from_procedure;
537: end if;
538:
539:
538:
539:
540: elsif r_trx.costing_method = 1 then
541:
542: p_codepath := jai_general_pkg.plot_codepath(30, p_codepath); /* 30 */
543:
544: standard_costing
545: (
546: p_transaction_id => r_trx.transaction_id,
557: p_codepath => p_codepath,
558: p_process_special_source => p_process_special_source
559: );
560:
561: p_codepath := jai_general_pkg.plot_codepath(31, p_codepath); /* 31 */
562: if p_process_status in ('E', 'X') THEN
563: p_codepath := jai_general_pkg.plot_codepath(32, p_codepath); /* 32 */
564: goto exit_from_procedure;
565: end if;
559: );
560:
561: p_codepath := jai_general_pkg.plot_codepath(31, p_codepath); /* 31 */
562: if p_process_status in ('E', 'X') THEN
563: p_codepath := jai_general_pkg.plot_codepath(32, p_codepath); /* 32 */
564: goto exit_from_procedure;
565: end if;
566:
567: end if; --r_mtl_trx.process_enabled_flag
570: vat_noclaim added by Vijay Shankar for Bug#4250236(4245089). VAT Impl. */
571: IF lv_include_cenvat_in_costing = 'Y'
572: or p_process_special_source IN ( jai_constants.cenvat_noclaim, jai_constants.vat_noclaim)
573: THEN
574: p_codepath := jai_general_pkg.plot_codepath(33, p_codepath);
575: lv_cenvat_costed_flag := jai_constants.yes;
576: ELSE
577: p_codepath := jai_general_pkg.plot_codepath(34, p_codepath);
578: lv_cenvat_costed_flag := jai_constants.no;
573: THEN
574: p_codepath := jai_general_pkg.plot_codepath(33, p_codepath);
575: lv_cenvat_costed_flag := jai_constants.yes;
576: ELSE
577: p_codepath := jai_general_pkg.plot_codepath(34, p_codepath);
578: lv_cenvat_costed_flag := jai_constants.no;
579: END IF;
580:
581: IF r_trx.attribute1 IS NULL
582: OR (r_trx.attribute1 = jai_rcv_deliver_rtr_pkg.cenvat_costed_flag
583: AND nvl(r_trx.attribute1,jai_constants.no) <> jai_constants.yes)
584: THEN
585:
586: p_codepath := jai_general_pkg.plot_codepath(35, p_codepath);
587: jai_rcv_transactions_pkg.update_attributes(
588: p_transaction_id => p_transaction_id,
589: p_attribute1 => jai_rcv_deliver_rtr_pkg.cenvat_costed_flag,
590: p_attribute2 => lv_cenvat_costed_flag
594: -- Process is Successful. Now the PROCESS_FLAG can be set to 'Y'
595: p_process_status := 'Y';
596:
597: << exit_from_procedure >>
598: p_codepath := jai_general_pkg.plot_codepath(40, p_codepath, null, 'END'); /* 33 */
599: return;
600:
601: EXCEPTION
602: WHEN OTHERS THEN
602: WHEN OTHERS THEN
603: p_process_status := 'E';
604: p_process_message := 'DELIVER_RTR_PKG.process_transaction:' || sqlerrm;
605: fnd_file.put_line( fnd_file.log, 'Error in '||p_process_message);
606: p_codepath := jai_general_pkg.plot_codepath(999, p_codepath, null, 'END'); /* 34 */
607: return;
608: END process_transaction;
609:
610: /* ------------------------------------------------start of deliver_rtr_reco_nonexcise------------*/
669: lv_reference25 := 'transaction_id';
670: ln_individual_tax_amount := 0;
671: ln_rec_account_tax_amount := 0;
672:
673: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'jai_rcv_deliver_rtr_pkg.deliver_rtr_reco_nonexcise', 'START'); /* 1 */
674:
675: if p_transaction_type = 'CORRECT' then
676: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
677: lv_reference_10_desc := lv_reference_10_desc1 || p_receipt_num ||lv_reference_10_desc2 ||p_transaction_type ||' of Type ' || p_parent_transaction_type;
672:
673: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'jai_rcv_deliver_rtr_pkg.deliver_rtr_reco_nonexcise', 'START'); /* 1 */
674:
675: if p_transaction_type = 'CORRECT' then
676: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
677: lv_reference_10_desc := lv_reference_10_desc1 || p_receipt_num ||lv_reference_10_desc2 ||p_transaction_type ||' of Type ' || p_parent_transaction_type;
678: else
679: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
680: lv_reference_10_desc := lv_reference_10_desc1 || p_receipt_num ||lv_reference_10_desc2 ||p_transaction_type ;
675: if p_transaction_type = 'CORRECT' then
676: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
677: lv_reference_10_desc := lv_reference_10_desc1 || p_receipt_num ||lv_reference_10_desc2 ||p_transaction_type ||' of Type ' || p_parent_transaction_type;
678: else
679: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
680: lv_reference_10_desc := lv_reference_10_desc1 || p_receipt_num ||lv_reference_10_desc2 ||p_transaction_type ;
681: end if;
682:
683:
711: GROUP BY jtc.tax_account_id
712: )
713: LOOP
714:
715: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
716:
717: if tax_rec.tax_account_id is null then
718: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
719: p_process_status := 'E';
714:
715: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
716:
717: if tax_rec.tax_account_id is null then
718: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
719: p_process_status := 'E';
720: p_process_message := 'The Tax Account is not found for this Tax : ';
721: goto exit_from_procedure;
722: end if;
725: ln_rec_account_tax_amount := nvl(ln_rec_account_tax_amount,0) + nvl(ln_individual_tax_amount,0);
726:
727: if ln_individual_tax_amount <> 0 then
728:
729: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
730: if (p_transaction_type ='CORRECT' AND p_parent_transaction_type = 'DELIVER') or
731: p_transaction_type = 'DELIVER' then /* DELIVER scenario */
732:
733: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
729: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
730: if (p_transaction_type ='CORRECT' AND p_parent_transaction_type = 'DELIVER') or
731: p_transaction_type = 'DELIVER' then /* DELIVER scenario */
732:
733: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
734: ln_credit_amount := NULL;
735: ln_debit_amount := ln_individual_tax_amount;
736:
737: elsif (p_transaction_type ='CORRECT' AND p_parent_transaction_type = 'RETURN TO RECEIVING') or
736:
737: elsif (p_transaction_type ='CORRECT' AND p_parent_transaction_type = 'RETURN TO RECEIVING') or
738: p_transaction_type = 'RETURN TO RECEIVING' then /* RTR scenario */
739:
740: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
741: ln_credit_amount := ln_individual_tax_amount;
742: ln_debit_amount := NULL;
743:
744: end if;
742: ln_debit_amount := NULL;
743:
744: end if;
745:
746: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath); /* 8 */
747: jai_rcv_accounting_pkg.process_transaction
748: (
749: p_transaction_id => p_transaction_id,
750: p_acct_type => p_accounting_type,
767: p_process_message => p_process_message,
768: p_process_status => p_process_status
769: );
770:
771: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath); /* 9 */
772: if p_process_status IN ('E', 'X') then
773: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath); /* 10 */
774: goto exit_from_procedure;
775: end if;
769: );
770:
771: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath); /* 9 */
772: if p_process_status IN ('E', 'X') then
773: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath); /* 10 */
774: goto exit_from_procedure;
775: end if;
776:
777: end if; --end if for ln_individual_tax_amount <> 0
774: goto exit_from_procedure;
775: end if;
776:
777: end if; --end if for ln_individual_tax_amount <> 0
778: p_codepath := jai_general_pkg.plot_codepath(11, p_codepath); /* 11 */
779: end loop; --End Loop for Tax Rec.
780:
781: p_codepath := jai_general_pkg.plot_codepath(12, p_codepath); /* 12 */
782: if ln_rec_account_tax_amount <> 0 then
777: end if; --end if for ln_individual_tax_amount <> 0
778: p_codepath := jai_general_pkg.plot_codepath(11, p_codepath); /* 11 */
779: end loop; --End Loop for Tax Rec.
780:
781: p_codepath := jai_general_pkg.plot_codepath(12, p_codepath); /* 12 */
782: if ln_rec_account_tax_amount <> 0 then
783:
784: p_codepath := jai_general_pkg.plot_codepath(13, p_codepath); /* 13 */
785: if (p_transaction_type ='CORRECT' AND p_parent_transaction_type = 'DELIVER') or
780:
781: p_codepath := jai_general_pkg.plot_codepath(12, p_codepath); /* 12 */
782: if ln_rec_account_tax_amount <> 0 then
783:
784: p_codepath := jai_general_pkg.plot_codepath(13, p_codepath); /* 13 */
785: if (p_transaction_type ='CORRECT' AND p_parent_transaction_type = 'DELIVER') or
786: p_transaction_type = 'DELIVER' then /* DELIVER scenario */
787:
788: p_codepath := jai_general_pkg.plot_codepath(14, p_codepath); /* 14 */
784: p_codepath := jai_general_pkg.plot_codepath(13, p_codepath); /* 13 */
785: if (p_transaction_type ='CORRECT' AND p_parent_transaction_type = 'DELIVER') or
786: p_transaction_type = 'DELIVER' then /* DELIVER scenario */
787:
788: p_codepath := jai_general_pkg.plot_codepath(14, p_codepath); /* 14 */
789: ln_credit_amount := ln_rec_account_tax_amount;
790: ln_debit_amount := NULL;
791:
792: elsif (p_transaction_type ='CORRECT' AND p_parent_transaction_type = 'RETURN TO RECEIVING') or
791:
792: elsif (p_transaction_type ='CORRECT' AND p_parent_transaction_type = 'RETURN TO RECEIVING') or
793: p_transaction_type = 'RETURN TO RECEIVING' then /* RTR scenario */
794:
795: p_codepath := jai_general_pkg.plot_codepath(15, p_codepath); /* 15 */
796: ln_credit_amount := NULL;
797: ln_debit_amount := ln_rec_account_tax_amount;
798:
799: end if;
798:
799: end if;
800:
801:
802: p_codepath := jai_general_pkg.plot_codepath(16, p_codepath); /* 16 */
803: jai_rcv_accounting_pkg.process_transaction
804: (
805: p_transaction_id => p_transaction_id,
806: p_acct_type => p_accounting_type,
823: p_process_message => p_process_message,
824: p_process_status => p_process_status
825: );
826:
827: p_codepath := jai_general_pkg.plot_codepath(17, p_codepath); /* 17 */
828: if p_process_status in ('E', 'X') then
829: p_codepath := jai_general_pkg.plot_codepath(18, p_codepath); /* 18 */
830: goto exit_from_procedure;
831: end if;
825: );
826:
827: p_codepath := jai_general_pkg.plot_codepath(17, p_codepath); /* 17 */
828: if p_process_status in ('E', 'X') then
829: p_codepath := jai_general_pkg.plot_codepath(18, p_codepath); /* 18 */
830: goto exit_from_procedure;
831: end if;
832: end if; --end if for ln_rec_account_tax_amount <> 0
833:
831: end if;
832: end if; --end if for ln_rec_account_tax_amount <> 0
833:
834: << exit_from_procedure >>
835: p_codepath := jai_general_pkg.plot_codepath(19, p_codepath, null, 'END'); /* 19 */
836: return;
837:
838: EXCEPTION
839: WHEN OTHERS THEN
839: WHEN OTHERS THEN
840: p_process_status := 'E';
841: p_process_message := 'DELIVER_RTR_PKG.deliver_rtr_reco_nonexcise:' || sqlerrm;
842: fnd_file.put_line( fnd_file.log, 'Error in '||p_process_message);
843: p_codepath := jai_general_pkg.plot_codepath(999, p_codepath, null, 'END'); /* 20 */
844: return;
845: END deliver_rtr_reco_nonexcise;
846:
847: /*----------------------------------------------------------------------------------------*/
879: ln_non_modvat_amount := 0;
880: ln_other_modvat_amount := 0;
881: lv_debug := 'Y';
882:
883: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'jai_rcv_deliver_rtr_pkg.get_tax_amount_breakup' , 'START'); /* 1 */
884:
885: OPEN c_ja_in_rcv_transactions(p_transaction_id);
886: FETCH c_ja_in_rcv_transactions into r_ja_in_rcv_transactions;
887: CLOSE c_ja_in_rcv_transactions;
904:
905: )
906: LOOP
907:
908: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2*/
909: if tax_rec.currency <> jai_rcv_trx_processing_pkg.gv_func_curr THEN
910: ln_conv_factor := NVL(p_curr_conv_rate, 1);
911: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3*/
912: ELSE
907:
908: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2*/
909: if tax_rec.currency <> jai_rcv_trx_processing_pkg.gv_func_curr THEN
910: ln_conv_factor := NVL(p_curr_conv_rate, 1);
911: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3*/
912: ELSE
913: ln_conv_factor := 1;
914: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4*/
915: end if;
910: ln_conv_factor := NVL(p_curr_conv_rate, 1);
911: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3*/
912: ELSE
913: ln_conv_factor := 1;
914: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4*/
915: end if;
916:
917: /*
918: Comparison below is due to the case where Excise in RG23D ='Y', Tax_Rec.Modvat_Flag will be N
931: jai_constants.tax_type_cvd_edu_cess, -- Vijay Shankar for Bug#4068823 EDUCATION CESS
932: jai_constants.tax_type_sh_exc_edu_cess,jai_constants.tax_type_sh_cvd_edu_cess) -- added by csahoo for bug#5989740
933: then
934:
935: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
936: lv_tax_modvat_flag := 'Y';
937:
938: elsif upper(tax_rec.modvat_flag) = 'Y'
939: and tax_rec.tax_type NOT IN ('EXCISE', 'ADDL. EXCISE', 'OTHER EXCISE', 'CVD',
942: jai_constants.tax_type_cvd_edu_cess, -- Vijay Shankar for Bug#4068823 EDUCATION CESS
943: jai_constants.tax_type_sh_exc_edu_cess,jai_constants.tax_type_sh_cvd_edu_cess) -- added by csahoo for bug#5989740
944: then
945:
946: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
947: lv_tax_modvat_flag := 'Y';
948:
949: elsif tax_rec.modvat_flag = 'N'
950: and r_ja_in_rcv_transactions.item_trading_flag = 'Y' /* Excise IN RG23D scenario */
957: jai_constants.tax_type_cvd_edu_cess, -- Vijay Shankar for Bug#4068823 EDUCATION CESS
958: jai_constants.tax_type_sh_exc_edu_cess,jai_constants.tax_type_sh_cvd_edu_cess) -- added by csahoo for bug#5989740
959: then
960:
961: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
962: lv_tax_modvat_flag := 'Y';
963:
964: else
965: lv_tax_modvat_flag := 'N';
965: lv_tax_modvat_flag := 'N';
966:
967: end if; --tax_rec.modvat_flag = 'Y'
968:
969: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath); /* 8 */
970:
971: if upper(tax_rec.tax_type) NOT IN ('TDS', 'MODVAT RECOVERY') THEN
972:
973: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath); /* 9 */
969: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath); /* 8 */
970:
971: if upper(tax_rec.tax_type) NOT IN ('TDS', 'MODVAT RECOVERY') THEN
972:
973: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath); /* 9 */
974:
975: if lv_tax_modvat_flag = 'Y'
976: and upper(tax_rec.tax_type) IN ( 'EXCISE', 'ADDL. EXCISE', 'OTHER EXCISE', 'CVD',
977: jai_constants.tax_type_add_cvd , -- Date 01/11/2006 Bug 5228046 added by SACSETHI
979: jai_constants.tax_type_cvd_edu_cess, -- Vijay Shankar for Bug#4068823 EDUCATION CESS
980: jai_constants.tax_type_sh_exc_edu_cess,jai_constants.tax_type_sh_cvd_edu_cess) -- added by csahoo for bug#5989740
981: then
982:
983: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath); /* 10 */
984: ln_modvat_amount := ln_modvat_amount + tax_rec.tax_amount * (tax_rec.mod_cr_percentage/100) * ln_conv_factor;
985:
986: -- Added by Jia Li for India tax inclusive 2007/11/28, Begin
987: -- TD15-Changed Standard and Average Costing
1005: jai_constants.tax_type_cvd_edu_cess, -- Vijay Shankar for Bug#4068823 EDUCATION CESS
1006: jai_constants.tax_type_sh_exc_edu_cess,jai_constants.tax_type_sh_cvd_edu_cess) -- added by csahoo for bug#5989740
1007: then
1008:
1009: p_codepath := jai_general_pkg.plot_codepath(11, p_codepath); /* 11 */
1010: ln_other_modvat_amount := ln_other_modvat_amount + tax_rec.tax_amount * (tax_rec.mod_cr_percentage/100) * ln_conv_factor;
1011:
1012: -- Added by Jia Li for India tax inclusive 2007/11/28, Begin
1013: -- TD15-Changed Standard and Average Costing
1025: -- Added by Jia Li for India tax inclusive 2007/11/28, End
1026:
1027: ELSIF lv_tax_modvat_flag ='N' and upper(tax_rec.tax_type) NOT IN ('TDS', 'MODVAT RECOVERY') THEN
1028:
1029: p_codepath := jai_general_pkg.plot_codepath(12, p_codepath); /* 12 */
1030:
1031: -- Added by Jia Li for India tax inclusive 2007/11/28, Begin
1032: -- TD15-Changed Standard and Average Costing
1033: -- non-recoverable tax is inclusive, its costing should not be considered as it is already costed.
1043: ----------------------------------------------------------------------
1044: -- Added by Jia Li for India tax inclusive 2007/11/28, End
1045:
1046: end if; /* tax_rec.modvat_flag*/
1047: p_codepath := jai_general_pkg.plot_codepath(13, p_codepath); /* 13 */
1048:
1049: end if; /*tax_rec.tax_type NOT IN ('TDS', 'Modvat Recovery')*/
1050: p_codepath := jai_general_pkg.plot_codepath(14, p_codepath); /* 14 */
1051:
1046: end if; /* tax_rec.modvat_flag*/
1047: p_codepath := jai_general_pkg.plot_codepath(13, p_codepath); /* 13 */
1048:
1049: end if; /*tax_rec.tax_type NOT IN ('TDS', 'Modvat Recovery')*/
1050: p_codepath := jai_general_pkg.plot_codepath(14, p_codepath); /* 14 */
1051:
1052: END LOOP;
1053:
1054: /* Resseting the Out variables */
1056: p_non_modvat_amount := ln_non_modvat_amount;
1057: p_other_modvat_amount := ln_other_modvat_amount;
1058:
1059: << exit_from_procedure >>
1060: p_codepath := jai_general_pkg.plot_codepath(15, p_codepath, null, 'END'); /* 15 */
1061: return;
1062:
1063: EXCEPTION
1064: WHEN OTHERS THEN
1064: WHEN OTHERS THEN
1065: p_process_status := 'E';
1066: p_process_message := 'DELIVER_RTR_PKG.get_tax_amount_breakup:' || sqlerrm;
1067: fnd_file.put_line( fnd_file.log, 'Error in '||p_process_message);
1068: p_codepath := jai_general_pkg.plot_codepath(999, p_codepath, null, 'END'); /* 16 */
1069: return;
1070:
1071: END get_tax_amount_breakup;
1072:
1137: otherwise
1138: the Quantity of RCV_TRANSACTIONS can be picked up.
1139: */
1140:
1141: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'jai_rcv_deliver_rtr_pkg.opm_costing', 'START'); /* 1 */
1142:
1143: -- This procedure should not be used. So returning back
1144: -- GOTO exit_from_procedure;
1145:
1144: -- GOTO exit_from_procedure;
1145:
1146: if p_rcv_unit_of_measure <> p_rcv_source_unit_of_measure then
1147: ln_rcv_quantity := p_source_doc_quantity;
1148: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
1149: ELSE
1150: ln_rcv_quantity := p_rcv_quantity;
1151: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
1152: end if;
1147: ln_rcv_quantity := p_source_doc_quantity;
1148: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
1149: ELSE
1150: ln_rcv_quantity := p_rcv_quantity;
1151: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
1152: end if;
1153:
1154: if nvl(ln_rcv_quantity,0) = 0 THEN
1155: p_process_status := 'E';
1153:
1154: if nvl(ln_rcv_quantity,0) = 0 THEN
1155: p_process_status := 'E';
1156: p_process_message := 'The Quantity in RECEIVE line is Zero ';
1157: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
1158: goto exit_from_procedure;
1159: end if;
1160:
1161: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
1157: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
1158: goto exit_from_procedure;
1159: end if;
1160:
1161: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
1162: ln_material_account_id := material_account
1163: (
1164: p_organization_id => p_organization_id,
1165: p_source_document_code => p_source_document_code,
1169: p_process_status => p_process_status,
1170: p_codepath => p_codepath
1171: );
1172:
1173: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
1174:
1175: if p_process_status in ('E', 'X') then
1176: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
1177: goto exit_from_procedure;
1172:
1173: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
1174:
1175: if p_process_status in ('E', 'X') then
1176: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
1177: goto exit_from_procedure;
1178: end if;
1179:
1180: -- ln_costing_amount := p_costing_amount / ln_rcv_quantity;
1199:
1200: /* Destination in this case is O1, which indicates that the JAI_RCV_JOURNAL_ENTRIES would be hit
1201: and also rcv_transactions would be updated */
1202: /* Credit Inventory Receiving Account */
1203: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath); /* 8 */
1204: jai_rcv_accounting_pkg.process_transaction
1205: (
1206: p_transaction_id => p_transaction_id,
1207: p_acct_type => lv_accounting_type,
1227: p_process_message => p_process_message,
1228: p_process_status => p_process_status
1229: );
1230:
1231: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath); /* 9 */
1232:
1233: if p_process_status in ('E', 'X') then
1234: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath); /* 10 */
1235: goto exit_from_procedure;
1230:
1231: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath); /* 9 */
1232:
1233: if p_process_status in ('E', 'X') then
1234: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath); /* 10 */
1235: goto exit_from_procedure;
1236: end if;
1237:
1238: /* Debit Material Account
1238: /* Debit Material Account
1239: Destination in this case is O1, which indicates that the JAI_RCV_JOURNAL_ENTRIES would be hit
1240: and also rcv_transactions would be updated */
1241:
1242: p_codepath := jai_general_pkg.plot_codepath(11, p_codepath); /* 11 */
1243: jai_rcv_accounting_pkg.process_transaction
1244: (
1245: p_transaction_id => p_transaction_id,
1246: p_acct_type => lv_accounting_type,
1267: p_process_status => p_process_status
1268: );
1269:
1270: if p_process_status in ('E', 'X') then
1271: p_codepath := jai_general_pkg.plot_codepath(12, p_codepath); /* 12 */
1272: goto exit_from_procedure;
1273: end if;
1274:
1275: << exit_from_procedure >>
1272: goto exit_from_procedure;
1273: end if;
1274:
1275: << exit_from_procedure >>
1276: p_codepath := jai_general_pkg.plot_codepath(13, p_codepath, null, 'END'); /* 13 */
1277: return;
1278:
1279: EXCEPTION
1280: WHEN OTHERS THEN
1280: WHEN OTHERS THEN
1281: p_process_status := 'E';
1282: p_process_message := 'DELIVER_RTR_PKG.opm_costing:' || sqlerrm;
1283: fnd_file.put_line( fnd_file.log, 'Error in '||p_process_message);
1284: p_codepath := jai_general_pkg.plot_codepath(999, p_codepath, null, 'END'); /* 14 */
1285: return;
1286: END opm_costing;
1287:
1288: /*---------------------------------------------------------------------------------------*/
1353: lv_debug := 'Y';
1354: lv_reference_10_desc1 := 'India Local Receiving Entry for the Receipt Number ';
1355: lv_reference_10_desc2 := ' For the Transaction Type ';
1356:
1357: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'jai_rcv_deliver_rtr_pkg.expense_accounting', 'START'); /* 1 */
1358:
1359: /* Vijay Shankar for Bug#4068823. RECEIPTS DEPLUG
1360: vat_noclaim added by Vijay Shankar for Bug#4250236(4245089). VAT Impl. */
1361: IF p_process_special_source = jai_constants.cenvat_noclaim THEN
1364: lv_account_nature := 'VAT Unclaim Expense';
1365: END IF;
1366:
1367: if p_transaction_type='CORRECT' then
1368: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
1369: lv_reference_10_desc := lv_reference_10_desc1 || p_receipt_num ||lv_reference_10_desc2 ||p_transaction_type ||' of Type ' || p_parent_transaction_type;
1370: else
1371: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
1372: lv_reference_10_desc := lv_reference_10_desc1 || p_receipt_num ||lv_reference_10_desc2 ||p_transaction_type ;
1367: if p_transaction_type='CORRECT' then
1368: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
1369: lv_reference_10_desc := lv_reference_10_desc1 || p_receipt_num ||lv_reference_10_desc2 ||p_transaction_type ||' of Type ' || p_parent_transaction_type;
1370: else
1371: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
1372: lv_reference_10_desc := lv_reference_10_desc1 || p_receipt_num ||lv_reference_10_desc2 ||p_transaction_type ;
1373: end if;
1374:
1375:
1372: lv_reference_10_desc := lv_reference_10_desc1 || p_receipt_num ||lv_reference_10_desc2 ||p_transaction_type ;
1373: end if;
1374:
1375:
1376: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
1377: ln_expense_account := expense_account
1378: (
1379: p_transaction_id => p_transaction_id,
1380: p_organization_id => p_organization_id,
1385: p_process_message => p_process_message,
1386: p_process_status => p_process_status,
1387: p_codepath => p_codepath
1388: );
1389: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
1390:
1391: if p_process_status IN ('E', 'X') THEN
1392: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath, NULL, 'END'); /* 5 */
1393: goto exit_from_procedure;
1388: );
1389: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
1390:
1391: if p_process_status IN ('E', 'X') THEN
1392: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath, NULL, 'END'); /* 5 */
1393: goto exit_from_procedure;
1394: end if;
1395:
1396: if (p_transaction_type ='CORRECT' AND p_parent_transaction_type = 'DELIVER') or
1395:
1396: if (p_transaction_type ='CORRECT' AND p_parent_transaction_type = 'DELIVER') or
1397: p_transaction_type = 'DELIVER' then
1398:
1399: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
1400: ln_debit_amount := NULL;
1401: ln_credit_amount := p_accounted_amount;
1402:
1403: ELSIF (p_transaction_type ='CORRECT' AND p_parent_transaction_type = 'RETURN TO RECEIVING') or
1402:
1403: ELSIF (p_transaction_type ='CORRECT' AND p_parent_transaction_type = 'RETURN TO RECEIVING') or
1404: p_transaction_type = 'RETURN TO RECEIVING' then
1405:
1406: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
1407: ln_debit_amount := p_accounted_amount;
1408: ln_credit_amount := NULL;
1409:
1410: end if;
1409:
1410: end if;
1411:
1412: /* Inventory Receiving Account */
1413: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath); /* 8 */
1414: jai_rcv_accounting_pkg.process_transaction
1415: (
1416: p_transaction_id => p_transaction_id,
1417: p_acct_type => p_accounting_type,
1433: p_codepath => p_codepath,
1434: p_process_message => p_process_message,
1435: p_process_status => p_process_status
1436: );
1437: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath); /* 9 */
1438:
1439: if p_process_status in ('E', 'X') then
1440: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath); /* 10 */
1441: goto exit_from_procedure;
1436: );
1437: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath); /* 9 */
1438:
1439: if p_process_status in ('E', 'X') then
1440: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath); /* 10 */
1441: goto exit_from_procedure;
1442: end if;
1443:
1444: if (p_transaction_type ='CORRECT' AND p_parent_transaction_type ='DELIVER') or
1443:
1444: if (p_transaction_type ='CORRECT' AND p_parent_transaction_type ='DELIVER') or
1445: p_transaction_type ='DELIVER' then
1446:
1447: p_codepath := jai_general_pkg.plot_codepath(11, p_codepath); /* 11 */
1448: ln_debit_amount := p_accounted_amount;
1449: ln_credit_amount := NULL;
1450:
1451: elsif (p_transaction_type ='CORRECT' AND p_parent_transaction_type = 'RETURN TO RECEIVING') or
1450:
1451: elsif (p_transaction_type ='CORRECT' AND p_parent_transaction_type = 'RETURN TO RECEIVING') or
1452: p_transaction_type = 'RETURN TO RECEIVING' then
1453:
1454: p_codepath := jai_general_pkg.plot_codepath(12, p_codepath); /* 12 */
1455: ln_debit_amount := NULL;
1456: ln_credit_amount := p_accounted_amount;
1457: end if;
1458:
1456: ln_credit_amount := p_accounted_amount;
1457: end if;
1458:
1459: /* Expense Account */
1460: p_codepath := jai_general_pkg.plot_codepath(13, p_codepath); /* 13 */
1461: jai_rcv_accounting_pkg.process_transaction
1462: (
1463: p_transaction_id => p_transaction_id,
1464: p_acct_type => p_accounting_type,
1480: p_codepath => p_codepath,
1481: p_process_message => p_process_message,
1482: p_process_status => p_process_status
1483: );
1484: p_codepath := jai_general_pkg.plot_codepath(14, p_codepath); /* 14 */
1485:
1486: if p_process_status in ('E', 'X') then
1487: p_codepath := jai_general_pkg.plot_codepath(15, p_codepath); /* 15 */
1488: goto exit_from_procedure;
1483: );
1484: p_codepath := jai_general_pkg.plot_codepath(14, p_codepath); /* 14 */
1485:
1486: if p_process_status in ('E', 'X') then
1487: p_codepath := jai_general_pkg.plot_codepath(15, p_codepath); /* 15 */
1488: goto exit_from_procedure;
1489: end if;
1490:
1491: << exit_from_procedure >>
1488: goto exit_from_procedure;
1489: end if;
1490:
1491: << exit_from_procedure >>
1492: p_codepath := jai_general_pkg.plot_codepath(16, p_codepath, null, 'END'); /* 16 */
1493: return;
1494:
1495: EXCEPTION
1496: WHEN OTHERS THEN
1496: WHEN OTHERS THEN
1497: p_process_status := 'E';
1498: p_process_message := 'DELIVER_RTR_PKG.expense_accounting:' || sqlerrm ;
1499: fnd_file.put_line( fnd_file.log, 'Error in '||p_process_message);
1500: p_codepath := jai_general_pkg.plot_codepath(999, p_codepath, null, 'END'); /* 17 */
1501:
1502: END expense_accounting;
1503:
1504: /* ---------------------------------------------start of average costing procedure --------------*/
1564: lv_category := 'MTL';
1565: lv_debug := 'Y';
1566: lv_account_nature := 'Average Costing';
1567:
1568: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'jai_rcv_deliver_rtr_pkg.average_costing', 'START'); /* 1 */
1569:
1570: IF p_process_special_source = jai_constants.cenvat_noclaim THEN
1571: lv_account_nature := 'Unclaim Average Costing';
1572:
1585: p_process_message => p_process_message,
1586: p_process_status => p_process_status,
1587: p_codepath => p_codepath
1588: );
1589: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
1590:
1591: if p_process_status in ('E', 'X') then
1592: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
1593: goto exit_from_procedure;
1588: );
1589: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
1590:
1591: if p_process_status in ('E', 'X') then
1592: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
1593: goto exit_from_procedure;
1594: end if;
1595:
1596: lv_uom_code := jai_general_pkg.get_uom_code(p_uom => p_unit_of_measure);
1592: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
1593: goto exit_from_procedure;
1594: end if;
1595:
1596: lv_uom_code := jai_general_pkg.get_uom_code(p_uom => p_unit_of_measure);
1597:
1598:
1599: if lv_uom_code IS NULL THEN
1600:
1597:
1598:
1599: if lv_uom_code IS NULL THEN
1600:
1601: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
1602: lv_uom_code := jai_general_pkg.get_primary_uom_code
1603: (
1604: p_organization_id => p_organization_id,
1605: p_inventory_item_id => p_inventory_item_id
1598:
1599: if lv_uom_code IS NULL THEN
1600:
1601: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
1602: lv_uom_code := jai_general_pkg.get_primary_uom_code
1603: (
1604: p_organization_id => p_organization_id,
1605: p_inventory_item_id => p_inventory_item_id
1606: );
1613: if (p_transaction_type ='CORRECT' AND p_parent_transaction_type = 'DELIVER') or
1614: p_transaction_type = 'DELIVER' then
1615:
1616: ln_costing_amount := p_costing_amount;
1617: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
1618:
1619: elsif (p_transaction_type ='CORRECT' AND p_parent_transaction_type = 'RETURN TO RECEIVING') or
1620: p_transaction_type = 'RETURN TO RECEIVING' then
1621:
1619: elsif (p_transaction_type ='CORRECT' AND p_parent_transaction_type = 'RETURN TO RECEIVING') or
1620: p_transaction_type = 'RETURN TO RECEIVING' then
1621:
1622: ln_costing_amount := -p_costing_amount;
1623: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
1624:
1625: end if;
1626:
1627: /* Destination in this case is A1, which indicates that the JAI_RCV_JOURNAL_ENTRIES would be hit
1627: /* Destination in this case is A1, which indicates that the JAI_RCV_JOURNAL_ENTRIES would be hit
1628: and also MMTT would be updated */
1629:
1630: /* Inventory Receiving Account */
1631: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
1632: jai_rcv_accounting_pkg.process_transaction
1633: (
1634: p_transaction_id => p_transaction_id,
1635: p_acct_type => p_accounting_type,
1651: p_codepath => p_codepath,
1652: p_process_message => p_process_message,
1653: p_process_status => p_process_status
1654: );
1655: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath); /* 8 */
1656:
1657: if p_process_status in ('E', 'X') then
1658: goto exit_from_procedure;
1659: end if;
1661: /* Debit Material Account
1662: /* Destination in this case is A2, which indicates that the JAI_RCV_JOURNAL_ENTRIES would be hit
1663: and also MMTT would be updated */
1664:
1665: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath); /* 9 */
1666: jai_rcv_accounting_pkg.process_transaction
1667: (
1668: p_transaction_id => p_transaction_id,
1669: p_acct_type => p_accounting_type,
1687: p_process_status => p_process_status
1688: );
1689:
1690: if p_process_status in ('E', 'X') then
1691: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath); /* 10 */
1692: goto exit_from_procedure;
1693: end if;
1694:
1695: << exit_from_procedure >>
1692: goto exit_from_procedure;
1693: end if;
1694:
1695: << exit_from_procedure >>
1696: p_codepath := jai_general_pkg.plot_codepath(11, p_codepath, null, 'END'); /* 11 */
1697: return;
1698:
1699: exception
1700: WHEN OTHERS THEN
1700: WHEN OTHERS THEN
1701: p_process_status := 'E';
1702: p_process_message := 'DELIVER_RTR_PKG.average_costing:' || sqlerrm ;
1703: fnd_file.put_line( fnd_file.log, 'Error in '||p_process_message);
1704: p_codepath := jai_general_pkg.plot_codepath(999, p_codepath, null, 'END'); /* 12 */
1705:
1706: END average_costing;
1707:
1708: /*----------------------------start of standard costing-------------------------------------------------------*/
1773: lv_account_nature := 'Standard Costing';
1774: lv_reference_10_desc1 := 'India Local Receiving Entry for the Receipt Number ';--rchandan for bug#4473022
1775: lv_reference_10_desc2 := ' For the Transaction Type ';--rchandan for bug#4473022
1776:
1777: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'jai_rcv_deliver_rtr_pkg.standard_costing', 'START'); /* 1 */
1778:
1779: -- Vijay Shankar for Bug#4068823. RECEIPTS DEPLUG
1780: IF p_process_special_source = jai_constants.cenvat_noclaim THEN
1781: lv_account_nature := 'Unclaim Standard Costing';
1791: p_process_message => p_process_message,
1792: p_process_status => p_process_status,
1793: p_codepath => p_codepath
1794: );
1795: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
1796:
1797: if p_process_status in ('E', 'X') then
1798: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
1799: goto exit_from_procedure;
1794: );
1795: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
1796:
1797: if p_process_status in ('E', 'X') then
1798: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
1799: goto exit_from_procedure;
1800: end if;
1801:
1802: if (p_transaction_type ='CORRECT' AND p_parent_transaction_type = 'DELIVER') or
1801:
1802: if (p_transaction_type ='CORRECT' AND p_parent_transaction_type = 'DELIVER') or
1803: p_transaction_type = 'DELIVER' then
1804:
1805: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
1806: ln_credit_amount := p_costing_amount;
1807: ln_debit_amount := NULL;
1808:
1809: elsif (p_transaction_type ='CORRECT' AND p_parent_transaction_type = 'RETURN TO RECEIVING') or
1808:
1809: elsif (p_transaction_type ='CORRECT' AND p_parent_transaction_type = 'RETURN TO RECEIVING') or
1810: p_transaction_type = 'RETURN TO RECEIVING' then
1811:
1812: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
1813: ln_credit_amount := NULL;
1814: ln_debit_amount := p_costing_amount;
1815:
1816: end if;
1815:
1816: end if;
1817:
1818: /* Receiving Inspection Account */
1819: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
1820: jai_rcv_accounting_pkg.process_transaction
1821: (
1822: p_transaction_id => p_transaction_id,
1823: p_acct_type => p_accounting_type,
1840: p_process_message => p_process_message,
1841: p_process_status => p_process_status
1842: );
1843:
1844: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
1845: if p_process_status in ('E', 'X') then
1846: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath); /* 8 */
1847: goto exit_from_procedure;
1848: end if;
1842: );
1843:
1844: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
1845: if p_process_status in ('E', 'X') then
1846: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath); /* 8 */
1847: goto exit_from_procedure;
1848: end if;
1849:
1850: if (p_transaction_type ='CORRECT' AND p_parent_transaction_type = 'DELIVER') or
1849:
1850: if (p_transaction_type ='CORRECT' AND p_parent_transaction_type = 'DELIVER') or
1851: p_transaction_type = 'DELIVER' then
1852:
1853: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath); /* 9 */
1854: ln_credit_amount := NULL;
1855: ln_debit_amount := p_costing_amount;
1856:
1857: elsif (p_transaction_type ='CORRECT' AND p_parent_transaction_type = 'RETURN TO RECEIVING') or
1856:
1857: elsif (p_transaction_type ='CORRECT' AND p_parent_transaction_type = 'RETURN TO RECEIVING') or
1858: p_transaction_type = 'RETURN TO RECEIVING' then
1859:
1860: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath); /* 10 */
1861: ln_credit_amount := p_costing_amount;
1862: ln_debit_amount := NULL;
1863:
1864: end if;
1863:
1864: end if;
1865:
1866: /* PPV Account */
1867: p_codepath := jai_general_pkg.plot_codepath(11, p_codepath); /* 11 */
1868: jai_rcv_accounting_pkg.process_transaction
1869: (
1870: p_transaction_id => p_transaction_id,
1871: p_acct_type => p_accounting_type,
1889: p_process_status => p_process_status
1890: );
1891:
1892: if p_process_status in ('E', 'X') then
1893: p_codepath := jai_general_pkg.plot_codepath(12, p_codepath); /* 12 */
1894: goto exit_from_procedure;
1895: end if;
1896:
1897: << exit_from_procedure >>
1894: goto exit_from_procedure;
1895: end if;
1896:
1897: << exit_from_procedure >>
1898: p_codepath := jai_general_pkg.plot_codepath(13, p_codepath, null, 'END'); /* 13 */
1899: return;
1900:
1901: EXCEPTION
1902: WHEN OTHERS THEN
1902: WHEN OTHERS THEN
1903: p_process_status := 'E';
1904: p_process_message := 'DELIVER_RTR_PKG.standard_costing:' || sqlerrm ;
1905: fnd_file.put_line( fnd_file.log, 'Error in '||p_process_message);
1906: p_codepath := jai_general_pkg.plot_codepath(999, p_codepath, null, 'END'); /* 14 */
1907:
1908: END standard_costing;
1909:
1910:
1928: --lv_debug varchar2(1) := 'Y';
1929:
1930: BEGIN
1931:
1932: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'jai_rcv_deliver_rtr_pkg.receiving_account', 'START'); /* 1 */
1933: open c_receiving_account(p_organization_id);
1934: fetch c_receiving_account into ln_receiving_account_id;
1935: close c_receiving_account;
1936:
1934: fetch c_receiving_account into ln_receiving_account_id;
1935: close c_receiving_account;
1936:
1937: if ln_receiving_account_id is null then
1938: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath, null, 'END'); /* 2 */
1939: p_process_status :='E';
1940: p_process_message :='Receiving Account Not Defined';
1941: RETURN null;
1942: -- raise no_receiving_account;
1940: p_process_message :='Receiving Account Not Defined';
1941: RETURN null;
1942: -- raise no_receiving_account;
1943: else
1944: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath, null, 'END'); /* 3 */
1945: return(ln_receiving_account_id);
1946: end if;
1947:
1948: EXCEPTION
1949: WHEN OTHERS THEN
1950: p_process_status := 'E';
1951: p_process_message := 'DELIVER_RTR_PKG.receiving_account:' || SQLERRM;
1952: FND_FILE.put_line( FND_FILE.log, 'Error in '||p_process_message);
1953: p_codepath := jai_general_pkg.plot_codepath(999, p_codepath, null, 'END'); /* 5 */
1954: return null;
1955:
1956: END receiving_account;
1957:
1998:
1999: BEGIN
2000:
2001: lv_debug := 'Y';
2002: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'jai_rcv_deliver_rtr_pkg.material_account', 'START'); /* 1 */
2003:
2004: if p_source_document_code = 'PO' then
2005:
2006: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
2002: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'jai_rcv_deliver_rtr_pkg.material_account', 'START'); /* 1 */
2003:
2004: if p_source_document_code = 'PO' then
2005:
2006: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
2007: open c_costing_group_id(p_po_distribution_id);
2008: fetch c_costing_group_id into ln_costing_group_id;
2009: close c_costing_group_id;
2010:
2019: end if;
2020:
2021: end if;
2022:
2023: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
2024: if ln_material_account_id is null then
2025:
2026: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
2027: open c_material_account(p_organization_id,p_subinventory);
2022:
2023: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
2024: if ln_material_account_id is null then
2025:
2026: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
2027: open c_material_account(p_organization_id,p_subinventory);
2028: fetch c_material_account into ln_material_account_id;
2029: close c_material_account;
2030:
2030:
2031: end if;
2032:
2033: if ln_material_account_id is null then
2034: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath, null, 'END'); /* 5 */
2035: p_process_status :='E';
2036: p_process_message :='Material Account Not Defined';
2037: return null;
2038: --raise no_material_account;
2036: p_process_message :='Material Account Not Defined';
2037: return null;
2038: --raise no_material_account;
2039: else
2040: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath, null, 'END'); /* 6 */
2041: return(ln_material_account_id);
2042: end if;
2043:
2044:
2047: WHEN OTHERS THEN
2048: p_process_status :='E';
2049: p_process_message :='DELIVER_RTR_PKG.material_account:' || SQLERRM;
2050: FND_FILE.put_line( FND_FILE.log, 'Error in '||p_process_message);
2051: p_codepath := jai_general_pkg.plot_codepath(999, p_codepath, null, 'END'); /* 8 */
2052: return null;
2053:
2054: END material_account ;
2055:
2108: other possibilities
2109: */
2110:
2111: /* To be checked whether this can be done in a different way */
2112: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'jai_rcv_deliver_rtr_pkg.expense_account', 'START'); /* 1 */
2113:
2114: open c_fetch_expense_acct(p_organization_id, p_subinventory_code);
2115: fetch c_fetch_expense_acct into ln_expense_account;
2116: close c_fetch_expense_acct;
2116: close c_fetch_expense_acct;
2117:
2118: if ln_expense_account is null then
2119:
2120: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
2121: if p_po_distribution_id is not null then
2122:
2123: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
2124: open c_fetch_expense_acct1(p_po_distribution_id);
2119:
2120: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
2121: if p_po_distribution_id is not null then
2122:
2123: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
2124: open c_fetch_expense_acct1(p_po_distribution_id);
2125: fetch c_fetch_expense_acct1 into ln_expense_account;
2126: close c_fetch_expense_acct1;
2127:
2126: close c_fetch_expense_acct1;
2127:
2128: elsif p_po_line_location_id is not null then
2129:
2130: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
2131: open c_fetch_expense_acct2(p_po_line_location_id);
2132: fetch c_fetch_expense_acct2 into ln_expense_account;
2133: close c_fetch_expense_acct2;
2134:
2132: fetch c_fetch_expense_acct2 into ln_expense_account;
2133: close c_fetch_expense_acct2;
2134:
2135: end if;
2136: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
2137:
2138: end if; --end if for ln_expense_account.
2139:
2140: if ln_expense_account is null then
2138: end if; --end if for ln_expense_account.
2139:
2140: if ln_expense_account is null then
2141:
2142: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
2143: open c_fetch_expense_acct3(p_organization_id, p_item_id);
2144: fetch c_fetch_expense_acct3 into ln_expense_account;
2145: close c_fetch_expense_acct3;
2146:
2146:
2147: end if;
2148:
2149:
2150: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
2151: if ln_expense_account is null then
2152: p_process_status := 'E';
2153: p_process_message := 'Expense Account is Not Found ';
2154: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath, null, 'END'); /* 8 */
2150: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
2151: if ln_expense_account is null then
2152: p_process_status := 'E';
2153: p_process_message := 'Expense Account is Not Found ';
2154: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath, null, 'END'); /* 8 */
2155: return null;
2156: end if;
2157:
2158: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath, null, 'END'); /* 9 */
2154: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath, null, 'END'); /* 8 */
2155: return null;
2156: end if;
2157:
2158: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath, null, 'END'); /* 9 */
2159:
2160: return(ln_expense_account);
2161:
2162:
2164: WHEN OTHERS THEN
2165: p_process_status := 'E';
2166: p_process_message := 'DELIVER_RTR_PKG.expense_account:' || SQLERRM;
2167: FND_FILE.put_line( FND_FILE.log, 'Error in '||p_process_message);
2168: p_codepath := jai_general_pkg.plot_codepath(999, p_codepath, null, 'END'); /* 10 */
2169: return null;
2170: END expense_account;
2171:
2172: /*----------------------------------------------------------------------------------------*/
2192: BEGIN
2193:
2194: lv_debug := 'Y';
2195:
2196: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'jai_rcv_deliver_rtr_pkg.ppv_account', 'START'); /* 1 */
2197: open c_ppv_account(p_organization_id);
2198: fetch c_ppv_account into ln_ppv_account_id;
2199: close c_ppv_account;
2200:
2200:
2201: if ln_ppv_account_id is null then
2202: p_process_status := 'E';
2203: p_process_message := 'The Purchase Price Variance Account is not found ' ;
2204: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath, null, 'END'); /* 2 */
2205: return null;
2206: ELSE
2207: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
2208: return(ln_ppv_account_id);
2203: p_process_message := 'The Purchase Price Variance Account is not found ' ;
2204: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath, null, 'END'); /* 2 */
2205: return null;
2206: ELSE
2207: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
2208: return(ln_ppv_account_id);
2209: end if;
2210:
2211: EXCEPTION
2212: WHEN OTHERS THEN
2213: p_process_status := 'E';
2214: p_process_message := 'DELIVER_RTR_PKG.ppv_account:' || SQLERRM ;
2215: fnd_file.put_line( fnd_file.log, 'Error in '||p_process_message);
2216: p_codepath := jai_general_pkg.plot_codepath(999, p_codepath, null, 'END'); /* 4 */
2217: return null;
2218: END ppv_account;
2219:
2220: /*----------------------------------------------------------------------------------------*/
2257:
2258: begin
2259:
2260: lv_debug := 'Y';
2261: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'jai_rcv_deliver_rtr_pkg.include_cenvat_in_costing', 'START'); /* 1 */
2262:
2263: OPEN c_trx(p_transaction_id);
2264: FETCH c_trx INTO r_trx;
2265: CLOSE c_trx;
2268: FETCH c_receipt_cenvat_dtl INTO r_receipt_cenvat_dtl;
2269: CLOSE c_receipt_cenvat_dtl;
2270:
2271: IF r_receipt_cenvat_dtl.unclaim_cenvat_flag = 'Y' THEN
2272: p_codepath := jai_general_pkg.plot_codepath(1.1, p_codepath); /* 12 */
2273: lv_include_cenvat_in_costing :='Y';
2274: GOTO end_of_procedure;
2275:
2276: /* following is incorporated as part of non bonded delivery functionaliy
2281: */
2282: ELSIF r_receipt_cenvat_dtl.cenvat_claimed_amt = 0
2283: AND r_receipt_cenvat_dtl.non_bonded_delivery_flag = 'Y'
2284: THEN
2285: p_codepath := jai_general_pkg.plot_codepath(1.2, p_codepath); /* 12 */
2286: lv_include_cenvat_in_costing :='Y';
2287: GOTO end_of_procedure;
2288:
2289: END IF;
2288:
2289: END IF;
2290:
2291: IF r_trx.transaction_type = 'CORRECT' THEN
2292: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
2293: lv_transaction_type := r_trx.parent_transaction_type;
2294: ELSE
2295: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
2296: lv_transaction_type := r_trx.transaction_type;
2291: IF r_trx.transaction_type = 'CORRECT' THEN
2292: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
2293: lv_transaction_type := r_trx.parent_transaction_type;
2294: ELSE
2295: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
2296: lv_transaction_type := r_trx.transaction_type;
2297: END IF;
2298:
2299: IF lv_transaction_type NOT IN ( 'DELIVER', 'RETURN TO RECEIVING') THEN
2297: END IF;
2298:
2299: IF lv_transaction_type NOT IN ( 'DELIVER', 'RETURN TO RECEIVING') THEN
2300: /* this procedure is not valid for the transaction being processed */
2301: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
2302: RETURN 'X';
2303: END IF;
2304:
2305: IF lv_transaction_type = 'RETURN TO RECEIVING' THEN
2303: END IF;
2304:
2305: IF lv_transaction_type = 'RETURN TO RECEIVING' THEN
2306:
2307: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
2308: ln_dlry_trx_id := jai_rcv_trx_processing_pkg.get_ancestor_id
2309: ( r_trx.transaction_id, r_trx.shipment_line_id, 'DELIVER');
2310:
2311: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
2307: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
2308: ln_dlry_trx_id := jai_rcv_trx_processing_pkg.get_ancestor_id
2309: ( r_trx.transaction_id, r_trx.shipment_line_id, 'DELIVER');
2310:
2311: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
2312: OPEN c_trx(ln_dlry_trx_id);
2313: FETCH c_trx INTO r_dlry_trx;
2314: CLOSE c_trx;
2315:
2318:
2319:
2320: ELSE --DELIVER scenario.
2321:
2322: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
2323: lv_destination_type := r_trx.destination_type_code;
2324: lv_loc_subinv_type := nvl(r_trx.loc_subinv_type, 'X');
2325:
2326: END IF; --End if for RETURN TO RECEIVING
2330: CLOSE c_base_trx;
2331:
2332: if r_trx.organization_type = 'M' THEN
2333:
2334: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath);
2335: if r_trx.item_cenvatable = 'N' THEN
2336:
2337: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath);
2338: lv_include_cenvat_in_costing :='Y';
2333:
2334: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath);
2335: if r_trx.item_cenvatable = 'N' THEN
2336:
2337: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath);
2338: lv_include_cenvat_in_costing :='Y';
2339:
2340: elsif r_trx.item_class in ('OTIN','OTEX') then
2341:
2338: lv_include_cenvat_in_costing :='Y';
2339:
2340: elsif r_trx.item_class in ('OTIN','OTEX') then
2341:
2342: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath);
2343: lv_include_cenvat_in_costing :='Y';
2344:
2345: /* modified the following condition by vijay Shankar for Bug#4179823
2346: elsif r_base_trx.source_document_code <> 'REQ' and r_trx.item_class in ('FGIN', 'FGEX') then */
2346: elsif r_base_trx.source_document_code <> 'REQ' and r_trx.item_class in ('FGIN', 'FGEX') then */
2347: elsif r_base_trx.source_document_code <> 'RMA' and r_trx.item_class in ('FGIN', 'FGEX')
2348: and r_trx.organization_type = 'M'
2349: then
2350: p_codepath := jai_general_pkg.plot_codepath(9.1, p_codepath);
2351: lv_include_cenvat_in_costing :='Y';
2352:
2353: elsif lv_destination_type = 'INVENTORY' THEN
2354:
2351: lv_include_cenvat_in_costing :='Y';
2352:
2353: elsif lv_destination_type = 'INVENTORY' THEN
2354:
2355: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath); /* 10 */
2356: if r_trx.base_asset_inventory = 2 then
2357:
2358: p_codepath := jai_general_pkg.plot_codepath(11, p_codepath); /* 11 */
2359: if r_trx.item_class not in ('CGIN','CGEX') then
2354:
2355: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath); /* 10 */
2356: if r_trx.base_asset_inventory = 2 then
2357:
2358: p_codepath := jai_general_pkg.plot_codepath(11, p_codepath); /* 11 */
2359: if r_trx.item_class not in ('CGIN','CGEX') then
2360:
2361: p_codepath := jai_general_pkg.plot_codepath(12, p_codepath); /* 12 */
2362: lv_include_cenvat_in_costing :='Y';
2357:
2358: p_codepath := jai_general_pkg.plot_codepath(11, p_codepath); /* 11 */
2359: if r_trx.item_class not in ('CGIN','CGEX') then
2360:
2361: p_codepath := jai_general_pkg.plot_codepath(12, p_codepath); /* 12 */
2362: lv_include_cenvat_in_costing :='Y';
2363:
2364: elsif r_trx.item_class in ('CGIN','CGEX') then
2365:
2362: lv_include_cenvat_in_costing :='Y';
2363:
2364: elsif r_trx.item_class in ('CGIN','CGEX') then
2365:
2366: p_codepath := jai_general_pkg.plot_codepath(13, p_codepath); /* 13 */
2367: if lv_loc_subinv_type IN ('X','N') then
2368: p_codepath := jai_general_pkg.plot_codepath(14, p_codepath); /* 14 */
2369: lv_include_cenvat_in_costing :='Y';
2370: end if;
2364: elsif r_trx.item_class in ('CGIN','CGEX') then
2365:
2366: p_codepath := jai_general_pkg.plot_codepath(13, p_codepath); /* 13 */
2367: if lv_loc_subinv_type IN ('X','N') then
2368: p_codepath := jai_general_pkg.plot_codepath(14, p_codepath); /* 14 */
2369: lv_include_cenvat_in_costing :='Y';
2370: end if;
2371:
2372: end if; --end if for r_trx.item_class
2372: end if; --end if for r_trx.item_class
2373:
2374: elsif r_trx.base_asset_inventory = 1 then
2375:
2376: p_codepath := jai_general_pkg.plot_codepath(15, p_codepath); /* 15 */
2377: if lv_loc_subinv_type IN ('X','N') then
2378: p_codepath := jai_general_pkg.plot_codepath(16, p_codepath); /* 16 */
2379: lv_include_cenvat_in_costing :='Y';
2380: end if;
2374: elsif r_trx.base_asset_inventory = 1 then
2375:
2376: p_codepath := jai_general_pkg.plot_codepath(15, p_codepath); /* 15 */
2377: if lv_loc_subinv_type IN ('X','N') then
2378: p_codepath := jai_general_pkg.plot_codepath(16, p_codepath); /* 16 */
2379: lv_include_cenvat_in_costing :='Y';
2380: end if;
2381:
2382: end if; --end if for r_trx.base_asset_inventory
2382: end if; --end if for r_trx.base_asset_inventory
2383:
2384: elsif lv_destination_type = 'EXPENSE' THEN
2385:
2386: p_codepath := jai_general_pkg.plot_codepath(17, p_codepath); /* 17 */
2387: if r_trx.item_class not in ('CGIN','CGEX') then
2388: lv_include_cenvat_in_costing :='Y';
2389: end if;
2390: else
2387: if r_trx.item_class not in ('CGIN','CGEX') then
2388: lv_include_cenvat_in_costing :='Y';
2389: end if;
2390: else
2391: p_codepath := jai_general_pkg.plot_codepath(18, p_codepath); /* 18 */
2392: lv_include_cenvat_in_costing :='X';
2393: end if; --end if for r_trx.item_cenvatable='N'
2394:
2395: elsif r_trx.organization_type = 'T' THEN
2393: end if; --end if for r_trx.item_cenvatable='N'
2394:
2395: elsif r_trx.organization_type = 'T' THEN
2396:
2397: p_codepath := jai_general_pkg.plot_codepath(19, p_codepath); /* 19 */
2398: if r_trx.item_trading_flag <> 'Y'
2399: or r_trx.item_excisable <> 'Y'
2400: or r_trx.excise_in_trading <> 'Y'
2401: then
2398: if r_trx.item_trading_flag <> 'Y'
2399: or r_trx.item_excisable <> 'Y'
2400: or r_trx.excise_in_trading <> 'Y'
2401: then
2402: p_codepath := jai_general_pkg.plot_codepath(20, p_codepath); /* 20 */
2403: lv_include_cenvat_in_costing :='Y';
2404: end if;
2405:
2406: else
2404: end if;
2405:
2406: else
2407:
2408: p_codepath := jai_general_pkg.plot_codepath(21, p_codepath); /* 21 */
2409: lv_include_cenvat_in_costing :='X';
2410:
2411: end if; --r_trx.organization_type = 'M'
2412:
2412:
2413: <
2414:
2415: if lv_include_cenvat_in_costing is null then
2416: p_codepath := jai_general_pkg.plot_codepath(22, p_codepath); /* 22 */
2417: lv_include_cenvat_in_costing :='N';
2418: end if;
2419:
2420: p_codepath := jai_general_pkg.plot_codepath(23, p_codepath, null, 'END'); /* 23 */
2416: p_codepath := jai_general_pkg.plot_codepath(22, p_codepath); /* 22 */
2417: lv_include_cenvat_in_costing :='N';
2418: end if;
2419:
2420: p_codepath := jai_general_pkg.plot_codepath(23, p_codepath, null, 'END'); /* 23 */
2421: lv_ret_value := lv_include_cenvat_in_costing;
2422:
2423: return lv_ret_value;
2424:
2426: when others then
2427: p_process_status := 'E';
2428: p_process_message := 'DELIVER_RTR_PKG.include_cenvat_in_costing:' || SQLERRM ;
2429: fnd_file.put_line( fnd_file.log, 'Error in '||p_process_message);
2430: p_codepath := jai_general_pkg.plot_codepath(999, p_codepath, null, 'END'); /* 24 */
2431: return null;
2432: end include_cenvat_in_costing;
2433:
2434: END jai_rcv_deliver_rtr_pkg;