[Home] [Help]
213: SELECT 'jai_rcv_deliver_rtr_pkg-'||p_transaction_id INTO lv_temp FROM DUAL;
214:
215: 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'));
216:
217: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'jai_rcv_deliver_rtr_pkg.process_transaction', 'START'); /* 1 */
218:
219: /* Fetch all the information from JAI_RCV_TRANSACTIONS */
220: OPEN c_trx(p_transaction_id);
221: FETCH c_trx INTO r_trx;
239: CLOSE c_base_line_dtls;
240:
241: lv_statement_id := '2';
242: if r_base_line_dtls.quantity = 0 THEN
243: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
244: p_process_status := 'E';
245: p_process_message := 'The Quantity in rcv_transactions for RECEIVE line is Zero';
246: goto exit_from_procedure;
247: end if;
245: p_process_message := 'The Quantity in rcv_transactions for RECEIVE line is Zero';
246: goto exit_from_procedure;
247: end if;
248:
249: --p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
250: --lv_statement_id := '2.1';
251:
252: /* Fetch the information of certain columns which are not present in JAI_RCV_TRANSACTIONS */
253: OPEN c_rcv_trx(p_transaction_id);
254: FETCH c_rcv_trx into r_rcv_trx;
255: CLOSE c_rcv_trx;
256:
257: lv_statement_id := '3';
258: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
259:
260: /*bug 10335708 - Production Issue transaction for the quantity register when
261: cenvat is claimed and destination is to expense.*/
262: if -- (r_trx.transaction_type ='CORRECT' AND r_trx.parent_transaction_type = 'DELIVER') or Vijay Shankar for Bug#4038034
261: cenvat is claimed and destination is to expense.*/
262: if -- (r_trx.transaction_type ='CORRECT' AND r_trx.parent_transaction_type = 'DELIVER') or Vijay Shankar for Bug#4038034
263: r_trx.transaction_type = 'DELIVER'
264: then
265: p_codepath := jai_general_pkg.plot_codepath(5.1, p_codepath);
266: lv_destination_type := r_trx.destination_type_code;
267:
268: elsif -- 'DELIVER' in the following if elsif condition is added by Vijay Shankar for Bug#4038034
269: (r_trx.transaction_type ='CORRECT' AND r_trx.parent_transaction_type IN ('DELIVER', 'RETURN TO RECEIVING')) or
268: elsif -- 'DELIVER' in the following if elsif condition is added by Vijay Shankar for Bug#4038034
269: (r_trx.transaction_type ='CORRECT' AND r_trx.parent_transaction_type IN ('DELIVER', 'RETURN TO RECEIVING')) or
270: r_trx.transaction_type = 'RETURN TO RECEIVING'
271: then
272: p_codepath := jai_general_pkg.plot_codepath(5.2, p_codepath);
273: ln_dlry_trx_id := jai_rcv_trx_processing_pkg.get_ancestor_id
274: (
275: r_trx.transaction_id,
276: r_trx.shipment_line_id,
287: FETCH c_rcv_trx into r_rcv_dlry_trx;
288: CLOSE c_rcv_trx;
289:
290: end if;
291: p_codepath := jai_general_pkg.plot_codepath(5.3, p_codepath);
292: IF lv_destination_type = 'EXPENSE'
293: THEN
294: p_codepath := jai_general_pkg.plot_codepath(5.4, p_codepath);
295: pr_issue_expense_delivery
290: end if;
291: p_codepath := jai_general_pkg.plot_codepath(5.3, p_codepath);
292: IF lv_destination_type = 'EXPENSE'
293: THEN
294: p_codepath := jai_general_pkg.plot_codepath(5.4, p_codepath);
295: pr_issue_expense_delivery
296: ( pn_transaction_id => r_trx.transaction_id,
297: pv_process_message => p_process_message,
298: pv_process_status => p_process_status,
312: p_codepath => p_codepath
313: );
314:
315: if p_process_status in ('E', 'X') THEN
316: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
317: goto exit_from_procedure;
318: end if;
319:
320: lv_statement_id := '4';
321:
322: if (r_trx.transaction_type ='CORRECT' and r_trx.parent_transaction_type = 'DELIVER')
323: or r_trx.transaction_type = 'DELIVER'
324: then
325: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
326: lv_accounting_type := 'REGULAR';
327: elsif (r_trx.transaction_type ='CORRECT' and r_trx.parent_transaction_type = 'RETURN TO RECEIVING')
328: or r_trx.transaction_type = 'RETURN TO RECEIVING'
329: then
326: lv_accounting_type := 'REGULAR';
327: elsif (r_trx.transaction_type ='CORRECT' and r_trx.parent_transaction_type = 'RETURN TO RECEIVING')
328: or r_trx.transaction_type = 'RETURN TO RECEIVING'
329: then
330: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath); /* 8 */
331: lv_accounting_type := 'REVERSAL';
332: end if;
333:
334: /* following condition added by Vijay Shankar for Bug#4068823. RECEIPTS DEPLUG
337: if nvl(p_process_special_source, 'XX') NOT IN ( jai_constants.cenvat_noclaim, jai_constants.vat_noclaim) then
338:
339: -- following gets executed only for NORMAL DELIVER and RTR transactions and not for UNCLAIM Processing till <
340: lv_statement_id := '5';
341: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath); /* 9 */
342:
343: /* Apportion Factor */
344: ln_apportion_factor := jai_rcv_trx_processing_pkg.get_apportion_factor
345: (p_transaction_id => r_trx.transaction_id);
368: p_process_status => p_process_status,
369: p_codepath => p_codepath
370: );
371:
372: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath); /* 10 */
373: if p_process_status IN ('E', 'X') THEN
374: p_codepath := jai_general_pkg.plot_codepath(11, p_codepath); /* 11 */
375: goto exit_from_procedure;
376: end if;
370: );
371:
372: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath); /* 10 */
373: if p_process_status IN ('E', 'X') THEN
374: p_codepath := jai_general_pkg.plot_codepath(11, p_codepath); /* 11 */
375: goto exit_from_procedure;
376: end if;
377:
378: /* Get Register Type */
375: goto exit_from_procedure;
376: end if;
377:
378: /* Get Register Type */
379: -- lv_register_type := jai_general_pkg.get_rg_register_type(p_item_class => r_trx.item_class);
380:
381: p_codepath := jai_general_pkg.plot_codepath(12, p_codepath); /* 12 */
382: get_tax_amount_breakup
383: (
377:
378: /* Get Register Type */
379: -- lv_register_type := jai_general_pkg.get_rg_register_type(p_item_class => r_trx.item_class);
380:
381: p_codepath := jai_general_pkg.plot_codepath(12, p_codepath); /* 12 */
382: get_tax_amount_breakup
383: (
384: p_shipment_line_id => r_trx.shipment_line_id,
385: p_transaction_id => r_trx.transaction_id,
391: p_process_status => p_process_status,
392: p_codepath => p_codepath
393: );
394:
395: p_codepath := jai_general_pkg.plot_codepath(13, p_codepath); /* 13 */
396: if p_process_status in ('E', 'X') THEN
397: p_codepath := jai_general_pkg.plot_codepath(14, p_codepath); /* 14 */
398: goto exit_from_procedure;
399: end if;
393: );
394:
395: p_codepath := jai_general_pkg.plot_codepath(13, p_codepath); /* 13 */
396: if p_process_status in ('E', 'X') THEN
397: p_codepath := jai_general_pkg.plot_codepath(14, p_codepath); /* 14 */
398: goto exit_from_procedure;
399: end if;
400:
401: lv_include_cenvat_in_costing := include_cenvat_in_costing
405: p_process_status => p_process_status,
406: p_codepath => p_codepath
407: );
408:
409: p_codepath := jai_general_pkg.plot_codepath(15, p_codepath); /* 15 */
410: if p_process_status in ('E', 'X') THEN
411: p_codepath := jai_general_pkg.plot_codepath(16, p_codepath); /* 16 */
412: goto exit_from_procedure;
413: end if;
407: );
408:
409: p_codepath := jai_general_pkg.plot_codepath(15, p_codepath); /* 15 */
410: if p_process_status in ('E', 'X') THEN
411: p_codepath := jai_general_pkg.plot_codepath(16, p_codepath); /* 16 */
412: goto exit_from_procedure;
413: end if;
414:
415: /* Logic to arrive at the Total for which Costing or Expense Accounting has to be done */
413: end if;
414:
415: /* Logic to arrive at the Total for which Costing or Expense Accounting has to be done */
416: if lv_include_cenvat_in_costing ='Y' then
417: p_codepath := jai_general_pkg.plot_codepath(17, p_codepath); /* 17 */
418: ln_total := nvl(ln_non_modvat_amount,0) + nvl(ln_modvat_amount,0);
419: else
420: p_codepath := jai_general_pkg.plot_codepath(18, p_codepath); /* 18 */
421: ln_total := nvl(ln_non_modvat_amount,0);
416: if lv_include_cenvat_in_costing ='Y' then
417: p_codepath := jai_general_pkg.plot_codepath(17, p_codepath); /* 17 */
418: ln_total := nvl(ln_non_modvat_amount,0) + nvl(ln_modvat_amount,0);
419: else
420: p_codepath := jai_general_pkg.plot_codepath(18, p_codepath); /* 18 */
421: ln_total := nvl(ln_non_modvat_amount,0);
422: end if;
423:
424: end if; -- end of p_process_special_source not in ( jai_constants.cenvat_noclaim ...
426: /* following condition added by Vijay Shankar for Bug#4068823. RECEIPTS DEPLUG
427: vat_noclaim added by Vijay Shankar for Bug#4250236(4245089). VAT Impl. */
428: IF p_process_special_source IN ( jai_constants.cenvat_noclaim, jai_constants.vat_noclaim) THEN
429: ln_total := p_process_special_amount;
430: p_codepath := jai_general_pkg.plot_codepath(18.1, p_codepath);
431: ELSE
432: ln_total := nvl(ln_total,0); --In case the Total is Null.
433: p_codepath := jai_general_pkg.plot_codepath(19, p_codepath); /* 19 */
434: END IF;
429: ln_total := p_process_special_amount;
430: p_codepath := jai_general_pkg.plot_codepath(18.1, p_codepath);
431: ELSE
432: ln_total := nvl(ln_total,0); --In case the Total is Null.
433: p_codepath := jai_general_pkg.plot_codepath(19, p_codepath); /* 19 */
434: END IF;
435:
436: if lv_debug='Y' THEN
437: fnd_file.put_line( fnd_file.log, ' 1.3 ln_modvat_amount ='|| ln_modvat_amount
440: ||', ln_total ='|| ln_total);
441: end if;
442:
443: if ln_total = 0 then
444: p_codepath := jai_general_pkg.plot_codepath(20, p_codepath); /* 20 */
445: -- Vijay Shankar for Bug#4071458
446: -- following if condition added to return successfully so that Individual Accounting happens without Costing/Expense Accounting
447: if ln_other_modvat_amount <> 0 then
448: p_process_status := 'Y';
454:
455: goto exit_from_procedure;
456: else
457: /*Proportionate the Total with the Quantity of this transaction */
458: p_codepath := jai_general_pkg.plot_codepath(21, p_codepath); /* 21 */
459: ln_opm_total := ln_total; /*This Total is required as in OPM Organization, costing would be based on source doc quantity */
460: ln_total := ln_total * ln_apportion_factor; /*This Amount would be the one which would be used for costing */
461: end if;
462:
460: ln_total := ln_total * ln_apportion_factor; /*This Amount would be the one which would be used for costing */
461: end if;
462:
463: /* Logic to arrive at the Total for which Costing or Expense Accounting Ends here */
464: p_codepath := jai_general_pkg.plot_codepath(22, p_codepath); /* 22 */
465: open c_mtl_trx(r_trx.organization_id);
466: fetch c_mtl_trx into r_mtl_trx;
467: close c_mtl_trx;
468:
508: or r_trx.inv_item_flag ='N'
509: or r_trx.base_asset_inventory = 2
510: then
511:
512: p_codepath := jai_general_pkg.plot_codepath(23, p_codepath); /* 23 */
513:
514: expense_accounting
515: (
516: p_transaction_id => r_trx.transaction_id,
534: p_codepath => p_codepath,
535: p_process_special_source => p_process_special_source
536: );
537:
538: p_codepath := jai_general_pkg.plot_codepath(24, p_codepath); /* 24 */
539:
540: if p_process_status in ('E', 'X') THEN
541: p_codepath := jai_general_pkg.plot_codepath(25, p_codepath); /* 25 */
542: goto exit_from_procedure;
537:
538: p_codepath := jai_general_pkg.plot_codepath(24, p_codepath); /* 24 */
539:
540: if p_process_status in ('E', 'X') THEN
541: p_codepath := jai_general_pkg.plot_codepath(25, p_codepath); /* 25 */
542: goto exit_from_procedure;
543: end if;
544:
545: elsif nvl(r_mtl_trx.process_enabled_flag,'N') ='Y' then /* OPM Costing Route */
549:
550: if (r_trx.transaction_type ='CORRECT' AND r_trx.parent_transaction_type ='RETURN TO RECEIVING')
551: or r_trx.transaction_type ='RETURN TO RECEIVING'
552: then
553: p_codepath := jai_general_pkg.plot_codepath(26, p_codepath); -- 26
554: goto exit_from_procedure;
555: end if;
556:
557: --commented as opm is not taken part of this enhancement.
583: end if;
584:
585: elsif r_trx.costing_method = 2 then
586:
587: p_codepath := jai_general_pkg.plot_codepath(27, p_codepath); /* 27 */
588: average_costing
589: (
590: p_transaction_id => r_trx.transaction_id,
591: p_transaction_date => r_trx.transaction_date,
606: p_codepath => p_codepath,
607: p_process_special_source => p_process_special_source
608: );
609:
610: p_codepath := jai_general_pkg.plot_codepath(28, p_codepath); /* 28 */
611: if p_process_status in ('E', 'X') THEN
612: p_codepath := jai_general_pkg.plot_codepath(29, p_codepath); /* 29 */
613: goto exit_from_procedure;
614: end if;
608: );
609:
610: p_codepath := jai_general_pkg.plot_codepath(28, p_codepath); /* 28 */
611: if p_process_status in ('E', 'X') THEN
612: p_codepath := jai_general_pkg.plot_codepath(29, p_codepath); /* 29 */
613: goto exit_from_procedure;
614: end if;
615:
616:
615:
616:
617: elsif r_trx.costing_method = 1 then
618:
619: p_codepath := jai_general_pkg.plot_codepath(30, p_codepath); /* 30 */
620:
621: standard_costing
622: (
623: p_transaction_id => r_trx.transaction_id,
634: p_codepath => p_codepath,
635: p_process_special_source => p_process_special_source
636: );
637:
638: p_codepath := jai_general_pkg.plot_codepath(31, p_codepath); /* 31 */
639: if p_process_status in ('E', 'X') THEN
640: p_codepath := jai_general_pkg.plot_codepath(32, p_codepath); /* 32 */
641: goto exit_from_procedure;
642: end if;
636: );
637:
638: p_codepath := jai_general_pkg.plot_codepath(31, p_codepath); /* 31 */
639: if p_process_status in ('E', 'X') THEN
640: p_codepath := jai_general_pkg.plot_codepath(32, p_codepath); /* 32 */
641: goto exit_from_procedure;
642: end if;
643:
644: end if; --r_mtl_trx.process_enabled_flag
647: vat_noclaim added by Vijay Shankar for Bug#4250236(4245089). VAT Impl. */
648: IF lv_include_cenvat_in_costing = 'Y'
649: or p_process_special_source IN ( jai_constants.cenvat_noclaim, jai_constants.vat_noclaim)
650: THEN
651: p_codepath := jai_general_pkg.plot_codepath(33, p_codepath);
652: lv_cenvat_costed_flag := jai_constants.yes;
653: ELSE
654: p_codepath := jai_general_pkg.plot_codepath(34, p_codepath);
655: lv_cenvat_costed_flag := jai_constants.no;
650: THEN
651: p_codepath := jai_general_pkg.plot_codepath(33, p_codepath);
652: lv_cenvat_costed_flag := jai_constants.yes;
653: ELSE
654: p_codepath := jai_general_pkg.plot_codepath(34, p_codepath);
655: lv_cenvat_costed_flag := jai_constants.no;
656: END IF;
657:
658: IF r_trx.cenvat_costed_flag IS NULL --Modified by Bo Li for replacing the attribute2 with cenvat_costed_flag
659: OR (/*r_trx.attribute1 = jai_rcv_deliver_rtr_pkg.cenvat_costed_flag
660: AND*/nvl(r_trx.cenvat_costed_flag,jai_constants.no) <> jai_constants.yes)--Modified by Bo Li for replacing the attribute2 with cenvat_costed_flg
661: THEN
662:
663: p_codepath := jai_general_pkg.plot_codepath(35, p_codepath);
664:
665: --Modified by Bo Li for replacing the update_attributes with update_cenvat_costed_flag Begin
666: --------------------------------------------------------------------------------------------
667: /*jai_rcv_transactions_pkg.update_attributes(
681: -- Process is Successful. Now the PROCESS_FLAG can be set to 'Y'
682: p_process_status := 'Y';
683:
684: << exit_from_procedure >>
685: p_codepath := jai_general_pkg.plot_codepath(40, p_codepath, null, 'END'); /* 33 */
686: return;
687:
688: EXCEPTION
689: WHEN OTHERS THEN
689: WHEN OTHERS THEN
690: p_process_status := 'E';
691: p_process_message := 'DELIVER_RTR_PKG.process_transaction:' || sqlerrm;
692: fnd_file.put_line( fnd_file.log, 'Error in '||p_process_message);
693: p_codepath := jai_general_pkg.plot_codepath(999, p_codepath, null, 'END'); /* 34 */
694: return;
695: END process_transaction;
696:
697: /* ------------------------------------------------start of deliver_rtr_reco_nonexcise------------*/
756: lv_reference25 := 'transaction_id';
757: ln_individual_tax_amount := 0;
758: ln_rec_account_tax_amount := 0;
759:
760: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'jai_rcv_deliver_rtr_pkg.deliver_rtr_reco_nonexcise', 'START'); /* 1 */
761:
762: if p_transaction_type = 'CORRECT' then
763: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
764: lv_reference_10_desc := lv_reference_10_desc1 || p_receipt_num ||lv_reference_10_desc2 ||p_transaction_type ||' of Type ' || p_parent_transaction_type;
759:
760: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'jai_rcv_deliver_rtr_pkg.deliver_rtr_reco_nonexcise', 'START'); /* 1 */
761:
762: if p_transaction_type = 'CORRECT' then
763: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
764: lv_reference_10_desc := lv_reference_10_desc1 || p_receipt_num ||lv_reference_10_desc2 ||p_transaction_type ||' of Type ' || p_parent_transaction_type;
765: else
766: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
767: lv_reference_10_desc := lv_reference_10_desc1 || p_receipt_num ||lv_reference_10_desc2 ||p_transaction_type ;
762: if p_transaction_type = 'CORRECT' then
763: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
764: lv_reference_10_desc := lv_reference_10_desc1 || p_receipt_num ||lv_reference_10_desc2 ||p_transaction_type ||' of Type ' || p_parent_transaction_type;
765: else
766: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
767: lv_reference_10_desc := lv_reference_10_desc1 || p_receipt_num ||lv_reference_10_desc2 ||p_transaction_type ;
768: end if;
769:
770:
806: GROUP BY jtc.tax_account_id
807: )
808: LOOP
809:
810: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
811:
812: if tax_rec.tax_account_id is null then
813: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
814: p_process_status := 'E';
809:
810: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
811:
812: if tax_rec.tax_account_id is null then
813: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
814: p_process_status := 'E';
815: p_process_message := 'The Tax Account is not found for this Tax : ';
816: goto exit_from_procedure;
817: end if;
820: ln_rec_account_tax_amount := nvl(ln_rec_account_tax_amount,0) + nvl(ln_individual_tax_amount,0);
821:
822: if ln_individual_tax_amount <> 0 then
823:
824: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
825: if (p_transaction_type ='CORRECT' AND p_parent_transaction_type = 'DELIVER') or
826: p_transaction_type = 'DELIVER' then /* DELIVER scenario */
827:
828: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
824: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
825: if (p_transaction_type ='CORRECT' AND p_parent_transaction_type = 'DELIVER') or
826: p_transaction_type = 'DELIVER' then /* DELIVER scenario */
827:
828: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
829: ln_credit_amount := NULL;
830: ln_debit_amount := ln_individual_tax_amount;
831:
832: elsif (p_transaction_type ='CORRECT' AND p_parent_transaction_type = 'RETURN TO RECEIVING') or
831:
832: elsif (p_transaction_type ='CORRECT' AND p_parent_transaction_type = 'RETURN TO RECEIVING') or
833: p_transaction_type = 'RETURN TO RECEIVING' then /* RTR scenario */
834:
835: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
836: ln_credit_amount := ln_individual_tax_amount;
837: ln_debit_amount := NULL;
838:
839: end if;
837: ln_debit_amount := NULL;
838:
839: end if;
840:
841: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath); /* 8 */
842: jai_rcv_accounting_pkg.process_transaction
843: (
844: p_transaction_id => p_transaction_id,
845: p_acct_type => p_accounting_type,
862: p_process_message => p_process_message,
863: p_process_status => p_process_status
864: );
865:
866: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath); /* 9 */
867: if p_process_status IN ('E', 'X') then
868: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath); /* 10 */
869: goto exit_from_procedure;
870: end if;
864: );
865:
866: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath); /* 9 */
867: if p_process_status IN ('E', 'X') then
868: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath); /* 10 */
869: goto exit_from_procedure;
870: end if;
871:
872: end if; --end if for ln_individual_tax_amount <> 0
869: goto exit_from_procedure;
870: end if;
871:
872: end if; --end if for ln_individual_tax_amount <> 0
873: p_codepath := jai_general_pkg.plot_codepath(11, p_codepath); /* 11 */
874: end loop; --End Loop for Tax Rec.
875:
876: p_codepath := jai_general_pkg.plot_codepath(12, p_codepath); /* 12 */
877: if ln_rec_account_tax_amount <> 0 then
872: end if; --end if for ln_individual_tax_amount <> 0
873: p_codepath := jai_general_pkg.plot_codepath(11, p_codepath); /* 11 */
874: end loop; --End Loop for Tax Rec.
875:
876: p_codepath := jai_general_pkg.plot_codepath(12, p_codepath); /* 12 */
877: if ln_rec_account_tax_amount <> 0 then
878:
879: p_codepath := jai_general_pkg.plot_codepath(13, p_codepath); /* 13 */
880: if (p_transaction_type ='CORRECT' AND p_parent_transaction_type = 'DELIVER') or
875:
876: p_codepath := jai_general_pkg.plot_codepath(12, p_codepath); /* 12 */
877: if ln_rec_account_tax_amount <> 0 then
878:
879: p_codepath := jai_general_pkg.plot_codepath(13, p_codepath); /* 13 */
880: if (p_transaction_type ='CORRECT' AND p_parent_transaction_type = 'DELIVER') or
881: p_transaction_type = 'DELIVER' then /* DELIVER scenario */
882:
883: p_codepath := jai_general_pkg.plot_codepath(14, p_codepath); /* 14 */
879: p_codepath := jai_general_pkg.plot_codepath(13, p_codepath); /* 13 */
880: if (p_transaction_type ='CORRECT' AND p_parent_transaction_type = 'DELIVER') or
881: p_transaction_type = 'DELIVER' then /* DELIVER scenario */
882:
883: p_codepath := jai_general_pkg.plot_codepath(14, p_codepath); /* 14 */
884: ln_credit_amount := ln_rec_account_tax_amount;
885: ln_debit_amount := NULL;
886:
887: elsif (p_transaction_type ='CORRECT' AND p_parent_transaction_type = 'RETURN TO RECEIVING') or
886:
887: elsif (p_transaction_type ='CORRECT' AND p_parent_transaction_type = 'RETURN TO RECEIVING') or
888: p_transaction_type = 'RETURN TO RECEIVING' then /* RTR scenario */
889:
890: p_codepath := jai_general_pkg.plot_codepath(15, p_codepath); /* 15 */
891: ln_credit_amount := NULL;
892: ln_debit_amount := ln_rec_account_tax_amount;
893:
894: end if;
893:
894: end if;
895:
896:
897: p_codepath := jai_general_pkg.plot_codepath(16, p_codepath); /* 16 */
898: jai_rcv_accounting_pkg.process_transaction
899: (
900: p_transaction_id => p_transaction_id,
901: p_acct_type => p_accounting_type,
918: p_process_message => p_process_message,
919: p_process_status => p_process_status
920: );
921:
922: p_codepath := jai_general_pkg.plot_codepath(17, p_codepath); /* 17 */
923: if p_process_status in ('E', 'X') then
924: p_codepath := jai_general_pkg.plot_codepath(18, p_codepath); /* 18 */
925: goto exit_from_procedure;
926: end if;
920: );
921:
922: p_codepath := jai_general_pkg.plot_codepath(17, p_codepath); /* 17 */
923: if p_process_status in ('E', 'X') then
924: p_codepath := jai_general_pkg.plot_codepath(18, p_codepath); /* 18 */
925: goto exit_from_procedure;
926: end if;
927: end if; --end if for ln_rec_account_tax_amount <> 0
928:
926: end if;
927: end if; --end if for ln_rec_account_tax_amount <> 0
928:
929: << exit_from_procedure >>
930: p_codepath := jai_general_pkg.plot_codepath(19, p_codepath, null, 'END'); /* 19 */
931: return;
932:
933: EXCEPTION
934: WHEN OTHERS THEN
934: WHEN OTHERS THEN
935: p_process_status := 'E';
936: p_process_message := 'DELIVER_RTR_PKG.deliver_rtr_reco_nonexcise:' || sqlerrm;
937: fnd_file.put_line( fnd_file.log, 'Error in '||p_process_message);
938: p_codepath := jai_general_pkg.plot_codepath(999, p_codepath, null, 'END'); /* 20 */
939: return;
940: END deliver_rtr_reco_nonexcise;
941:
942: /*----------------------------------------------------------------------------------------*/
975: ln_non_modvat_amount := 0;
976: ln_other_modvat_amount := 0;
977: lv_debug := 'Y';
978:
979: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'jai_rcv_deliver_rtr_pkg.get_tax_amount_breakup' , 'START'); /* 1 */
980:
981: OPEN c_ja_in_rcv_transactions(p_transaction_id);
982: FETCH c_ja_in_rcv_transactions into r_ja_in_rcv_transactions;
983: CLOSE c_ja_in_rcv_transactions;
1001:
1002: )
1003: LOOP
1004:
1005: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2*/
1006: if tax_rec.currency <> jai_rcv_trx_processing_pkg.gv_func_curr THEN
1007: ln_conv_factor := NVL(p_curr_conv_rate, 1);
1008: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3*/
1009: ELSE
1004:
1005: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2*/
1006: if tax_rec.currency <> jai_rcv_trx_processing_pkg.gv_func_curr THEN
1007: ln_conv_factor := NVL(p_curr_conv_rate, 1);
1008: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3*/
1009: ELSE
1010: ln_conv_factor := 1;
1011: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4*/
1012: end if;
1007: ln_conv_factor := NVL(p_curr_conv_rate, 1);
1008: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3*/
1009: ELSE
1010: ln_conv_factor := 1;
1011: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4*/
1012: end if;
1013:
1014: /*
1015: Comparison below is due to the case where Excise in RG23D ='Y', Tax_Rec.Modvat_Flag will be N
1036: --Added by Wenqiong for the bug12645490 on 22/06/2011 End.
1037:
1038: then
1039:
1040: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
1041: lv_tax_modvat_flag := 'Y';
1042:
1043: elsif upper(tax_rec.modvat_flag) = 'Y'
1044: and tax_rec.tax_type NOT IN ('EXCISE', 'ADDL. EXCISE', 'OTHER EXCISE', 'CVD',
1054: jai_constants.tax_type_boe_other5)
1055: --Added by Wenqiong for the bug12645490 on 22/06/2011 End.
1056: then
1057:
1058: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
1059: lv_tax_modvat_flag := 'Y';
1060:
1061: elsif tax_rec.modvat_flag = 'N'
1062: and r_ja_in_rcv_transactions.item_trading_flag = 'Y' /* Excise IN RG23D scenario */
1076: jai_constants.tax_type_boe_other5)
1077: --Added by Wenqiong for the bug12645490 on 22/06/2011 End.
1078: then
1079:
1080: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
1081: lv_tax_modvat_flag := 'Y';
1082:
1083: else
1084: lv_tax_modvat_flag := 'N';
1084: lv_tax_modvat_flag := 'N';
1085:
1086: end if; --tax_rec.modvat_flag = 'Y'
1087:
1088: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath); /* 8 */
1089:
1090: /* Added for bug #13494816 *//* Start*/
1091: ln_tax_amount := 0;
1092:
1101: /* Added for bug #13494816 *//* End*/
1102:
1103: if upper(tax_rec.tax_type) NOT IN ('TDS', 'MODVAT RECOVERY') THEN
1104:
1105: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath); /* 9 */
1106:
1107: if lv_tax_modvat_flag = 'Y'
1108: and upper(tax_rec.tax_type) IN ( 'EXCISE', 'ADDL. EXCISE', 'OTHER EXCISE', 'CVD',
1109: jai_constants.tax_type_add_cvd , -- Date 01/11/2006 Bug 5228046 added by SACSETHI
1119: --Added by Wenqiong for the bug12645490 on 22/06/2011 End.
1120:
1121: then
1122:
1123: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath); /* 10 */
1124: ln_modvat_amount := ln_modvat_amount + ln_tax_amount * (tax_rec.mod_cr_percentage/100) * ln_conv_factor; /* Replaced ln_tax_amount in place of tax_rec.tax_amount for bug #13494816 */
1125:
1126: -- Added by Jia Li for India tax inclusive 2007/11/28, Begin
1127: -- TD15-Changed Standard and Average Costing
1154: --Added by Wenqiong for the bug12645490 on 22/06/2011 End.
1155:
1156: then
1157:
1158: p_codepath := jai_general_pkg.plot_codepath(11, p_codepath); /* 11 */
1159: ln_other_modvat_amount := ln_other_modvat_amount + ln_tax_amount * (tax_rec.mod_cr_percentage/100) * ln_conv_factor; /* Replaced ln_tax_amount in place of tax_rec.tax_amount for bug #13494816 */
1160:
1161: -- Added by Jia Li for India tax inclusive 2007/11/28, Begin
1162: -- TD15-Changed Standard and Average Costing
1175: -- Added by Jia Li for India tax inclusive 2007/11/28, End
1176:
1177: ELSIF lv_tax_modvat_flag ='N' and upper(tax_rec.tax_type) NOT IN ('TDS', 'MODVAT RECOVERY') THEN
1178:
1179: p_codepath := jai_general_pkg.plot_codepath(12, p_codepath); /* 12 */
1180:
1181: -- Added by Jia Li for India tax inclusive 2007/11/28, Begin
1182: -- TD15-Changed Standard and Average Costing
1183: -- non-recoverable tax is inclusive, its costing should not be considered as it is already costed.
1193: ----------------------------------------------------------------------
1194: -- Added by Jia Li for India tax inclusive 2007/11/28, End
1195:
1196: end if; /* tax_rec.modvat_flag*/
1197: p_codepath := jai_general_pkg.plot_codepath(13, p_codepath); /* 13 */
1198:
1199: end if; /*tax_rec.tax_type NOT IN ('TDS', 'Modvat Recovery')*/
1200: p_codepath := jai_general_pkg.plot_codepath(14, p_codepath); /* 14 */
1201:
1196: end if; /* tax_rec.modvat_flag*/
1197: p_codepath := jai_general_pkg.plot_codepath(13, p_codepath); /* 13 */
1198:
1199: end if; /*tax_rec.tax_type NOT IN ('TDS', 'Modvat Recovery')*/
1200: p_codepath := jai_general_pkg.plot_codepath(14, p_codepath); /* 14 */
1201:
1202: END LOOP;
1203:
1204: /* Resseting the Out variables */
1206: p_non_modvat_amount := ln_non_modvat_amount;
1207: p_other_modvat_amount := ln_other_modvat_amount;
1208:
1209: << exit_from_procedure >>
1210: p_codepath := jai_general_pkg.plot_codepath(15, p_codepath, null, 'END'); /* 15 */
1211: return;
1212:
1213: EXCEPTION
1214: WHEN OTHERS THEN
1214: WHEN OTHERS THEN
1215: p_process_status := 'E';
1216: p_process_message := 'DELIVER_RTR_PKG.get_tax_amount_breakup:' || sqlerrm;
1217: fnd_file.put_line( fnd_file.log, 'Error in '||p_process_message);
1218: p_codepath := jai_general_pkg.plot_codepath(999, p_codepath, null, 'END'); /* 16 */
1219: return;
1220:
1221: END get_tax_amount_breakup;
1222:
1287: otherwise
1288: the Quantity of RCV_TRANSACTIONS can be picked up.
1289: */
1290:
1291: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'jai_rcv_deliver_rtr_pkg.opm_costing', 'START'); /* 1 */
1292:
1293: -- This procedure should not be used. So returning back
1294: -- GOTO exit_from_procedure;
1295:
1294: -- GOTO exit_from_procedure;
1295:
1296: if p_rcv_unit_of_measure <> p_rcv_source_unit_of_measure then
1297: ln_rcv_quantity := p_source_doc_quantity;
1298: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
1299: ELSE
1300: ln_rcv_quantity := p_rcv_quantity;
1301: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
1302: end if;
1297: ln_rcv_quantity := p_source_doc_quantity;
1298: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
1299: ELSE
1300: ln_rcv_quantity := p_rcv_quantity;
1301: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
1302: end if;
1303:
1304: if nvl(ln_rcv_quantity,0) = 0 THEN
1305: p_process_status := 'E';
1303:
1304: if nvl(ln_rcv_quantity,0) = 0 THEN
1305: p_process_status := 'E';
1306: p_process_message := 'The Quantity in RECEIVE line is Zero ';
1307: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
1308: goto exit_from_procedure;
1309: end if;
1310:
1311: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
1307: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
1308: goto exit_from_procedure;
1309: end if;
1310:
1311: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
1312: ln_material_account_id := material_account
1313: (
1314: p_organization_id => p_organization_id,
1315: p_source_document_code => p_source_document_code,
1319: p_process_status => p_process_status,
1320: p_codepath => p_codepath
1321: );
1322:
1323: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
1324:
1325: if p_process_status in ('E', 'X') then
1326: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
1327: goto exit_from_procedure;
1322:
1323: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
1324:
1325: if p_process_status in ('E', 'X') then
1326: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
1327: goto exit_from_procedure;
1328: end if;
1329:
1330: -- ln_costing_amount := p_costing_amount / ln_rcv_quantity;
1349:
1350: /* Destination in this case is O1, which indicates that the JAI_RCV_JOURNAL_ENTRIES would be hit
1351: and also rcv_transactions would be updated */
1352: /* Credit Inventory Receiving Account */
1353: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath); /* 8 */
1354:
1355:
1356: /*
1357:
1384:
1385: end of comment for bug 7681614 by vumaasha
1386: */
1387:
1388: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath); /* 9 */
1389:
1390: if p_process_status in ('E', 'X') then
1391: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath); /* 10 */
1392: goto exit_from_procedure;
1387:
1388: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath); /* 9 */
1389:
1390: if p_process_status in ('E', 'X') then
1391: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath); /* 10 */
1392: goto exit_from_procedure;
1393: end if;
1394:
1395: /* Debit Material Account
1395: /* Debit Material Account
1396: Destination in this case is O1, which indicates that the JAI_RCV_JOURNAL_ENTRIES would be hit
1397: and also rcv_transactions would be updated */
1398:
1399: p_codepath := jai_general_pkg.plot_codepath(11, p_codepath); /* 11 */
1400:
1401: /*
1402:
1403: commented for bug 7681614 by vumaasha
1431:
1432: */
1433:
1434: if p_process_status in ('E', 'X') then
1435: p_codepath := jai_general_pkg.plot_codepath(12, p_codepath); /* 12 */
1436: goto exit_from_procedure;
1437: end if;
1438:
1439: << exit_from_procedure >>
1436: goto exit_from_procedure;
1437: end if;
1438:
1439: << exit_from_procedure >>
1440: p_codepath := jai_general_pkg.plot_codepath(13, p_codepath, null, 'END'); /* 13 */
1441: return;
1442:
1443: EXCEPTION
1444: WHEN OTHERS THEN
1444: WHEN OTHERS THEN
1445: p_process_status := 'E';
1446: p_process_message := 'DELIVER_RTR_PKG.opm_costing:' || sqlerrm;
1447: fnd_file.put_line( fnd_file.log, 'Error in '||p_process_message);
1448: p_codepath := jai_general_pkg.plot_codepath(999, p_codepath, null, 'END'); /* 14 */
1449: return;
1450: END opm_costing;
1451:
1452: /*---------------------------------------------------------------------------------------*/
1517: lv_debug := 'Y';
1518: lv_reference_10_desc1 := 'India Local Receiving Entry for the Receipt Number ';
1519: lv_reference_10_desc2 := ' For the Transaction Type ';
1520:
1521: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'jai_rcv_deliver_rtr_pkg.expense_accounting', 'START'); /* 1 */
1522:
1523: /* Vijay Shankar for Bug#4068823. RECEIPTS DEPLUG
1524: vat_noclaim added by Vijay Shankar for Bug#4250236(4245089). VAT Impl. */
1525: IF p_process_special_source = jai_constants.cenvat_noclaim THEN
1528: lv_account_nature := 'VAT Unclaim Expense';
1529: END IF;
1530:
1531: if p_transaction_type='CORRECT' then
1532: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
1533: lv_reference_10_desc := lv_reference_10_desc1 || p_receipt_num ||lv_reference_10_desc2 ||p_transaction_type ||' of Type ' || p_parent_transaction_type;
1534: else
1535: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
1536: lv_reference_10_desc := lv_reference_10_desc1 || p_receipt_num ||lv_reference_10_desc2 ||p_transaction_type ;
1531: if p_transaction_type='CORRECT' then
1532: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
1533: lv_reference_10_desc := lv_reference_10_desc1 || p_receipt_num ||lv_reference_10_desc2 ||p_transaction_type ||' of Type ' || p_parent_transaction_type;
1534: else
1535: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
1536: lv_reference_10_desc := lv_reference_10_desc1 || p_receipt_num ||lv_reference_10_desc2 ||p_transaction_type ;
1537: end if;
1538:
1539:
1536: lv_reference_10_desc := lv_reference_10_desc1 || p_receipt_num ||lv_reference_10_desc2 ||p_transaction_type ;
1537: end if;
1538:
1539:
1540: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
1541: ln_expense_account := expense_account
1542: (
1543: p_transaction_id => p_transaction_id,
1544: p_organization_id => p_organization_id,
1549: p_process_message => p_process_message,
1550: p_process_status => p_process_status,
1551: p_codepath => p_codepath
1552: );
1553: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
1554:
1555: if p_process_status IN ('E', 'X') THEN
1556: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath, NULL, 'END'); /* 5 */
1557: goto exit_from_procedure;
1552: );
1553: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
1554:
1555: if p_process_status IN ('E', 'X') THEN
1556: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath, NULL, 'END'); /* 5 */
1557: goto exit_from_procedure;
1558: end if;
1559:
1560: if (p_transaction_type ='CORRECT' AND p_parent_transaction_type = 'DELIVER') or
1559:
1560: if (p_transaction_type ='CORRECT' AND p_parent_transaction_type = 'DELIVER') or
1561: p_transaction_type = 'DELIVER' then
1562:
1563: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
1564: ln_debit_amount := NULL;
1565: ln_credit_amount := p_accounted_amount;
1566:
1567: ELSIF (p_transaction_type ='CORRECT' AND p_parent_transaction_type = 'RETURN TO RECEIVING') or
1566:
1567: ELSIF (p_transaction_type ='CORRECT' AND p_parent_transaction_type = 'RETURN TO RECEIVING') or
1568: p_transaction_type = 'RETURN TO RECEIVING' then
1569:
1570: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
1571: ln_debit_amount := p_accounted_amount;
1572: ln_credit_amount := NULL;
1573:
1574: end if;
1573:
1574: end if;
1575:
1576: /* Inventory Receiving Account */
1577: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath); /* 8 */
1578: jai_rcv_accounting_pkg.process_transaction
1579: (
1580: p_transaction_id => p_transaction_id,
1581: p_acct_type => p_accounting_type,
1597: p_codepath => p_codepath,
1598: p_process_message => p_process_message,
1599: p_process_status => p_process_status
1600: );
1601: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath); /* 9 */
1602:
1603: if p_process_status in ('E', 'X') then
1604: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath); /* 10 */
1605: goto exit_from_procedure;
1600: );
1601: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath); /* 9 */
1602:
1603: if p_process_status in ('E', 'X') then
1604: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath); /* 10 */
1605: goto exit_from_procedure;
1606: end if;
1607:
1608: if (p_transaction_type ='CORRECT' AND p_parent_transaction_type ='DELIVER') or
1607:
1608: if (p_transaction_type ='CORRECT' AND p_parent_transaction_type ='DELIVER') or
1609: p_transaction_type ='DELIVER' then
1610:
1611: p_codepath := jai_general_pkg.plot_codepath(11, p_codepath); /* 11 */
1612: ln_debit_amount := p_accounted_amount;
1613: ln_credit_amount := NULL;
1614:
1615: elsif (p_transaction_type ='CORRECT' AND p_parent_transaction_type = 'RETURN TO RECEIVING') or
1614:
1615: elsif (p_transaction_type ='CORRECT' AND p_parent_transaction_type = 'RETURN TO RECEIVING') or
1616: p_transaction_type = 'RETURN TO RECEIVING' then
1617:
1618: p_codepath := jai_general_pkg.plot_codepath(12, p_codepath); /* 12 */
1619: ln_debit_amount := NULL;
1620: ln_credit_amount := p_accounted_amount;
1621: end if;
1622:
1620: ln_credit_amount := p_accounted_amount;
1621: end if;
1622:
1623: /* Expense Account */
1624: p_codepath := jai_general_pkg.plot_codepath(13, p_codepath); /* 13 */
1625: jai_rcv_accounting_pkg.process_transaction
1626: (
1627: p_transaction_id => p_transaction_id,
1628: p_acct_type => p_accounting_type,
1644: p_codepath => p_codepath,
1645: p_process_message => p_process_message,
1646: p_process_status => p_process_status
1647: );
1648: p_codepath := jai_general_pkg.plot_codepath(14, p_codepath); /* 14 */
1649:
1650: if p_process_status in ('E', 'X') then
1651: p_codepath := jai_general_pkg.plot_codepath(15, p_codepath); /* 15 */
1652: goto exit_from_procedure;
1647: );
1648: p_codepath := jai_general_pkg.plot_codepath(14, p_codepath); /* 14 */
1649:
1650: if p_process_status in ('E', 'X') then
1651: p_codepath := jai_general_pkg.plot_codepath(15, p_codepath); /* 15 */
1652: goto exit_from_procedure;
1653: end if;
1654:
1655: << exit_from_procedure >>
1652: goto exit_from_procedure;
1653: end if;
1654:
1655: << exit_from_procedure >>
1656: p_codepath := jai_general_pkg.plot_codepath(16, p_codepath, null, 'END'); /* 16 */
1657: return;
1658:
1659: EXCEPTION
1660: WHEN OTHERS THEN
1660: WHEN OTHERS THEN
1661: p_process_status := 'E';
1662: p_process_message := 'DELIVER_RTR_PKG.expense_accounting:' || sqlerrm ;
1663: fnd_file.put_line( fnd_file.log, 'Error in '||p_process_message);
1664: p_codepath := jai_general_pkg.plot_codepath(999, p_codepath, null, 'END'); /* 17 */
1665:
1666: END expense_accounting;
1667:
1668: /* ---------------------------------------------start of average costing procedure --------------*/
1728: lv_category := 'MTL';
1729: lv_debug := 'Y';
1730: lv_account_nature := 'Average Costing';
1731:
1732: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'jai_rcv_deliver_rtr_pkg.average_costing', 'START'); /* 1 */
1733:
1734: IF p_process_special_source = jai_constants.cenvat_noclaim THEN
1735: lv_account_nature := 'Unclaim Average Costing';
1736:
1749: p_process_message => p_process_message,
1750: p_process_status => p_process_status,
1751: p_codepath => p_codepath
1752: );
1753: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
1754:
1755: if p_process_status in ('E', 'X') then
1756: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
1757: goto exit_from_procedure;
1752: );
1753: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
1754:
1755: if p_process_status in ('E', 'X') then
1756: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
1757: goto exit_from_procedure;
1758: end if;
1759:
1760: lv_uom_code := jai_general_pkg.get_uom_code(p_uom => p_unit_of_measure);
1756: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
1757: goto exit_from_procedure;
1758: end if;
1759:
1760: lv_uom_code := jai_general_pkg.get_uom_code(p_uom => p_unit_of_measure);
1761:
1762:
1763: if lv_uom_code IS NULL THEN
1764:
1761:
1762:
1763: if lv_uom_code IS NULL THEN
1764:
1765: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
1766: lv_uom_code := jai_general_pkg.get_primary_uom_code
1767: (
1768: p_organization_id => p_organization_id,
1769: p_inventory_item_id => p_inventory_item_id
1762:
1763: if lv_uom_code IS NULL THEN
1764:
1765: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
1766: lv_uom_code := jai_general_pkg.get_primary_uom_code
1767: (
1768: p_organization_id => p_organization_id,
1769: p_inventory_item_id => p_inventory_item_id
1770: );
1777: if (p_transaction_type ='CORRECT' AND p_parent_transaction_type = 'DELIVER') or
1778: p_transaction_type = 'DELIVER' then
1779:
1780: ln_costing_amount := p_costing_amount;
1781: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
1782:
1783: elsif (p_transaction_type ='CORRECT' AND p_parent_transaction_type = 'RETURN TO RECEIVING') or
1784: p_transaction_type = 'RETURN TO RECEIVING' then
1785:
1783: elsif (p_transaction_type ='CORRECT' AND p_parent_transaction_type = 'RETURN TO RECEIVING') or
1784: p_transaction_type = 'RETURN TO RECEIVING' then
1785:
1786: ln_costing_amount := -p_costing_amount;
1787: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
1788:
1789: end if;
1790:
1791: /* Destination in this case is A1, which indicates that the JAI_RCV_JOURNAL_ENTRIES would be hit
1791: /* Destination in this case is A1, which indicates that the JAI_RCV_JOURNAL_ENTRIES would be hit
1792: and also MMTT would be updated */
1793:
1794: /* Inventory Receiving Account */
1795: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
1796: jai_rcv_accounting_pkg.process_transaction
1797: (
1798: p_transaction_id => p_transaction_id,
1799: p_acct_type => p_accounting_type,
1815: p_codepath => p_codepath,
1816: p_process_message => p_process_message,
1817: p_process_status => p_process_status
1818: );
1819: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath); /* 8 */
1820:
1821: if p_process_status in ('E', 'X') then
1822: goto exit_from_procedure;
1823: end if;
1825: /* Debit Material Account
1826: /* Destination in this case is A2, which indicates that the JAI_RCV_JOURNAL_ENTRIES would be hit
1827: and also MMTT would be updated */
1828:
1829: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath); /* 9 */
1830: jai_rcv_accounting_pkg.process_transaction
1831: (
1832: p_transaction_id => p_transaction_id,
1833: p_acct_type => p_accounting_type,
1851: p_process_status => p_process_status
1852: );
1853:
1854: if p_process_status in ('E', 'X') then
1855: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath); /* 10 */
1856: goto exit_from_procedure;
1857: end if;
1858:
1859: << exit_from_procedure >>
1856: goto exit_from_procedure;
1857: end if;
1858:
1859: << exit_from_procedure >>
1860: p_codepath := jai_general_pkg.plot_codepath(11, p_codepath, null, 'END'); /* 11 */
1861: return;
1862:
1863: exception
1864: WHEN OTHERS THEN
1864: WHEN OTHERS THEN
1865: p_process_status := 'E';
1866: p_process_message := 'DELIVER_RTR_PKG.average_costing:' || sqlerrm ;
1867: fnd_file.put_line( fnd_file.log, 'Error in '||p_process_message);
1868: p_codepath := jai_general_pkg.plot_codepath(999, p_codepath, null, 'END'); /* 12 */
1869:
1870: END average_costing;
1871:
1872: /*----------------------------start of standard costing-------------------------------------------------------*/
1937: lv_account_nature := 'Standard Costing';
1938: lv_reference_10_desc1 := 'India Local Receiving Entry for the Receipt Number ';--rchandan for bug#4473022
1939: lv_reference_10_desc2 := ' For the Transaction Type ';--rchandan for bug#4473022
1940:
1941: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'jai_rcv_deliver_rtr_pkg.standard_costing', 'START'); /* 1 */
1942:
1943: -- Vijay Shankar for Bug#4068823. RECEIPTS DEPLUG
1944: IF p_process_special_source = jai_constants.cenvat_noclaim THEN
1945: lv_account_nature := 'Unclaim Standard Costing';
1955: p_process_message => p_process_message,
1956: p_process_status => p_process_status,
1957: p_codepath => p_codepath
1958: );
1959: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
1960:
1961: if p_process_status in ('E', 'X') then
1962: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
1963: goto exit_from_procedure;
1958: );
1959: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
1960:
1961: if p_process_status in ('E', 'X') then
1962: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
1963: goto exit_from_procedure;
1964: end if;
1965:
1966: if (p_transaction_type ='CORRECT' AND p_parent_transaction_type = 'DELIVER') or
1965:
1966: if (p_transaction_type ='CORRECT' AND p_parent_transaction_type = 'DELIVER') or
1967: p_transaction_type = 'DELIVER' then
1968:
1969: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
1970: ln_credit_amount := p_costing_amount;
1971: ln_debit_amount := NULL;
1972:
1973: elsif (p_transaction_type ='CORRECT' AND p_parent_transaction_type = 'RETURN TO RECEIVING') or
1972:
1973: elsif (p_transaction_type ='CORRECT' AND p_parent_transaction_type = 'RETURN TO RECEIVING') or
1974: p_transaction_type = 'RETURN TO RECEIVING' then
1975:
1976: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
1977: ln_credit_amount := NULL;
1978: ln_debit_amount := p_costing_amount;
1979:
1980: end if;
1979:
1980: end if;
1981:
1982: /* Receiving Inspection Account */
1983: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
1984: jai_rcv_accounting_pkg.process_transaction
1985: (
1986: p_transaction_id => p_transaction_id,
1987: p_acct_type => p_accounting_type,
2004: p_process_message => p_process_message,
2005: p_process_status => p_process_status
2006: );
2007:
2008: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
2009: if p_process_status in ('E', 'X') then
2010: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath); /* 8 */
2011: goto exit_from_procedure;
2012: end if;
2006: );
2007:
2008: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
2009: if p_process_status in ('E', 'X') then
2010: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath); /* 8 */
2011: goto exit_from_procedure;
2012: end if;
2013:
2014: if (p_transaction_type ='CORRECT' AND p_parent_transaction_type = 'DELIVER') or
2013:
2014: if (p_transaction_type ='CORRECT' AND p_parent_transaction_type = 'DELIVER') or
2015: p_transaction_type = 'DELIVER' then
2016:
2017: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath); /* 9 */
2018: ln_credit_amount := NULL;
2019: ln_debit_amount := p_costing_amount;
2020:
2021: elsif (p_transaction_type ='CORRECT' AND p_parent_transaction_type = 'RETURN TO RECEIVING') or
2020:
2021: elsif (p_transaction_type ='CORRECT' AND p_parent_transaction_type = 'RETURN TO RECEIVING') or
2022: p_transaction_type = 'RETURN TO RECEIVING' then
2023:
2024: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath); /* 10 */
2025: ln_credit_amount := p_costing_amount;
2026: ln_debit_amount := NULL;
2027:
2028: end if;
2027:
2028: end if;
2029:
2030: /* PPV Account */
2031: p_codepath := jai_general_pkg.plot_codepath(11, p_codepath); /* 11 */
2032: jai_rcv_accounting_pkg.process_transaction
2033: (
2034: p_transaction_id => p_transaction_id,
2035: p_acct_type => p_accounting_type,
2053: p_process_status => p_process_status
2054: );
2055:
2056: if p_process_status in ('E', 'X') then
2057: p_codepath := jai_general_pkg.plot_codepath(12, p_codepath); /* 12 */
2058: goto exit_from_procedure;
2059: end if;
2060:
2061: << exit_from_procedure >>
2058: goto exit_from_procedure;
2059: end if;
2060:
2061: << exit_from_procedure >>
2062: p_codepath := jai_general_pkg.plot_codepath(13, p_codepath, null, 'END'); /* 13 */
2063: return;
2064:
2065: EXCEPTION
2066: WHEN OTHERS THEN
2066: WHEN OTHERS THEN
2067: p_process_status := 'E';
2068: p_process_message := 'DELIVER_RTR_PKG.standard_costing:' || sqlerrm ;
2069: fnd_file.put_line( fnd_file.log, 'Error in '||p_process_message);
2070: p_codepath := jai_general_pkg.plot_codepath(999, p_codepath, null, 'END'); /* 14 */
2071:
2072: END standard_costing;
2073:
2074:
2092: --lv_debug varchar2(1) := 'Y';
2093:
2094: BEGIN
2095:
2096: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'jai_rcv_deliver_rtr_pkg.receiving_account', 'START'); /* 1 */
2097: open c_receiving_account(p_organization_id);
2098: fetch c_receiving_account into ln_receiving_account_id;
2099: close c_receiving_account;
2100:
2098: fetch c_receiving_account into ln_receiving_account_id;
2099: close c_receiving_account;
2100:
2101: if ln_receiving_account_id is null then
2102: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath, null, 'END'); /* 2 */
2103: p_process_status :='E';
2104: p_process_message :='Receiving Account Not Defined';
2105: RETURN null;
2106: -- raise no_receiving_account;
2104: p_process_message :='Receiving Account Not Defined';
2105: RETURN null;
2106: -- raise no_receiving_account;
2107: else
2108: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath, null, 'END'); /* 3 */
2109: return(ln_receiving_account_id);
2110: end if;
2111:
2112: EXCEPTION
2113: WHEN OTHERS THEN
2114: p_process_status := 'E';
2115: p_process_message := 'DELIVER_RTR_PKG.receiving_account:' || SQLERRM;
2116: FND_FILE.put_line( FND_FILE.log, 'Error in '||p_process_message);
2117: p_codepath := jai_general_pkg.plot_codepath(999, p_codepath, null, 'END'); /* 5 */
2118: return null;
2119:
2120: END receiving_account;
2121:
2162:
2163: BEGIN
2164:
2165: lv_debug := 'Y';
2166: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'jai_rcv_deliver_rtr_pkg.material_account', 'START'); /* 1 */
2167:
2168: if p_source_document_code = 'PO' then
2169:
2170: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
2166: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'jai_rcv_deliver_rtr_pkg.material_account', 'START'); /* 1 */
2167:
2168: if p_source_document_code = 'PO' then
2169:
2170: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
2171: open c_costing_group_id(p_po_distribution_id);
2172: fetch c_costing_group_id into ln_costing_group_id;
2173: close c_costing_group_id;
2174:
2183: end if;
2184:
2185: end if;
2186:
2187: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
2188: if ln_material_account_id is null then
2189:
2190: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
2191: open c_material_account(p_organization_id,p_subinventory);
2186:
2187: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
2188: if ln_material_account_id is null then
2189:
2190: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
2191: open c_material_account(p_organization_id,p_subinventory);
2192: fetch c_material_account into ln_material_account_id;
2193: close c_material_account;
2194:
2194:
2195: end if;
2196:
2197: if ln_material_account_id is null then
2198: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath, null, 'END'); /* 5 */
2199: p_process_status :='E';
2200: p_process_message :='Material Account Not Defined';
2201: return null;
2202: --raise no_material_account;
2200: p_process_message :='Material Account Not Defined';
2201: return null;
2202: --raise no_material_account;
2203: else
2204: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath, null, 'END'); /* 6 */
2205: return(ln_material_account_id);
2206: end if;
2207:
2208:
2211: WHEN OTHERS THEN
2212: p_process_status :='E';
2213: p_process_message :='DELIVER_RTR_PKG.material_account:' || SQLERRM;
2214: FND_FILE.put_line( FND_FILE.log, 'Error in '||p_process_message);
2215: p_codepath := jai_general_pkg.plot_codepath(999, p_codepath, null, 'END'); /* 8 */
2216: return null;
2217:
2218: END material_account ;
2219:
2272: other possibilities
2273: */
2274:
2275: /* To be checked whether this can be done in a different way */
2276: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'jai_rcv_deliver_rtr_pkg.expense_account', 'START'); /* 1 */
2277:
2278: open c_fetch_expense_acct(p_organization_id, p_subinventory_code);
2279: fetch c_fetch_expense_acct into ln_expense_account;
2280: close c_fetch_expense_acct;
2280: close c_fetch_expense_acct;
2281:
2282: if ln_expense_account is null then
2283:
2284: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
2285: if p_po_distribution_id is not null then
2286:
2287: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
2288: open c_fetch_expense_acct1(p_po_distribution_id);
2283:
2284: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
2285: if p_po_distribution_id is not null then
2286:
2287: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
2288: open c_fetch_expense_acct1(p_po_distribution_id);
2289: fetch c_fetch_expense_acct1 into ln_expense_account;
2290: close c_fetch_expense_acct1;
2291:
2290: close c_fetch_expense_acct1;
2291:
2292: elsif p_po_line_location_id is not null then
2293:
2294: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
2295: open c_fetch_expense_acct2(p_po_line_location_id);
2296: fetch c_fetch_expense_acct2 into ln_expense_account;
2297: close c_fetch_expense_acct2;
2298:
2296: fetch c_fetch_expense_acct2 into ln_expense_account;
2297: close c_fetch_expense_acct2;
2298:
2299: end if;
2300: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
2301:
2302: end if; --end if for ln_expense_account.
2303:
2304: if ln_expense_account is null then
2302: end if; --end if for ln_expense_account.
2303:
2304: if ln_expense_account is null then
2305:
2306: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
2307: open c_fetch_expense_acct3(p_organization_id, p_item_id);
2308: fetch c_fetch_expense_acct3 into ln_expense_account;
2309: close c_fetch_expense_acct3;
2310:
2310:
2311: end if;
2312:
2313:
2314: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
2315: if ln_expense_account is null then
2316: p_process_status := 'E';
2317: p_process_message := 'Expense Account is Not Found ';
2318: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath, null, 'END'); /* 8 */
2314: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
2315: if ln_expense_account is null then
2316: p_process_status := 'E';
2317: p_process_message := 'Expense Account is Not Found ';
2318: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath, null, 'END'); /* 8 */
2319: return null;
2320: end if;
2321:
2322: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath, null, 'END'); /* 9 */
2318: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath, null, 'END'); /* 8 */
2319: return null;
2320: end if;
2321:
2322: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath, null, 'END'); /* 9 */
2323:
2324: return(ln_expense_account);
2325:
2326:
2328: WHEN OTHERS THEN
2329: p_process_status := 'E';
2330: p_process_message := 'DELIVER_RTR_PKG.expense_account:' || SQLERRM;
2331: FND_FILE.put_line( FND_FILE.log, 'Error in '||p_process_message);
2332: p_codepath := jai_general_pkg.plot_codepath(999, p_codepath, null, 'END'); /* 10 */
2333: return null;
2334: END expense_account;
2335:
2336: /*----------------------------------------------------------------------------------------*/
2356: BEGIN
2357:
2358: lv_debug := 'Y';
2359:
2360: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'jai_rcv_deliver_rtr_pkg.ppv_account', 'START'); /* 1 */
2361: open c_ppv_account(p_organization_id);
2362: fetch c_ppv_account into ln_ppv_account_id;
2363: close c_ppv_account;
2364:
2364:
2365: if ln_ppv_account_id is null then
2366: p_process_status := 'E';
2367: p_process_message := 'The Purchase Price Variance Account is not found ' ;
2368: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath, null, 'END'); /* 2 */
2369: return null;
2370: ELSE
2371: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
2372: return(ln_ppv_account_id);
2367: p_process_message := 'The Purchase Price Variance Account is not found ' ;
2368: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath, null, 'END'); /* 2 */
2369: return null;
2370: ELSE
2371: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
2372: return(ln_ppv_account_id);
2373: end if;
2374:
2375: EXCEPTION
2376: WHEN OTHERS THEN
2377: p_process_status := 'E';
2378: p_process_message := 'DELIVER_RTR_PKG.ppv_account:' || SQLERRM ;
2379: fnd_file.put_line( fnd_file.log, 'Error in '||p_process_message);
2380: p_codepath := jai_general_pkg.plot_codepath(999, p_codepath, null, 'END'); /* 4 */
2381: return null;
2382: END ppv_account;
2383:
2384: /*----------------------------------------------------------------------------------------*/
2421:
2422: begin
2423:
2424: lv_debug := 'Y';
2425: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'jai_rcv_deliver_rtr_pkg.include_cenvat_in_costing', 'START'); /* 1 */
2426:
2427: OPEN c_trx(p_transaction_id);
2428: FETCH c_trx INTO r_trx;
2429: CLOSE c_trx;
2432: FETCH c_receipt_cenvat_dtl INTO r_receipt_cenvat_dtl;
2433: CLOSE c_receipt_cenvat_dtl;
2434:
2435: IF r_receipt_cenvat_dtl.unclaim_cenvat_flag = 'Y' THEN
2436: p_codepath := jai_general_pkg.plot_codepath(1.1, p_codepath); /* 12 */
2437: lv_include_cenvat_in_costing :='Y';
2438: GOTO end_of_procedure;
2439:
2440: /* following is incorporated as part of non bonded delivery functionaliy
2445: */
2446: ELSIF r_receipt_cenvat_dtl.cenvat_claimed_amt = 0
2447: AND r_receipt_cenvat_dtl.non_bonded_delivery_flag = 'Y'
2448: THEN
2449: p_codepath := jai_general_pkg.plot_codepath(1.2, p_codepath); /* 12 */
2450: lv_include_cenvat_in_costing :='Y';
2451: GOTO end_of_procedure;
2452:
2453: END IF;
2452:
2453: END IF;
2454:
2455: IF r_trx.transaction_type = 'CORRECT' THEN
2456: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
2457: lv_transaction_type := r_trx.parent_transaction_type;
2458: ELSE
2459: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
2460: lv_transaction_type := r_trx.transaction_type;
2455: IF r_trx.transaction_type = 'CORRECT' THEN
2456: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
2457: lv_transaction_type := r_trx.parent_transaction_type;
2458: ELSE
2459: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
2460: lv_transaction_type := r_trx.transaction_type;
2461: END IF;
2462:
2463: IF lv_transaction_type NOT IN ( 'DELIVER', 'RETURN TO RECEIVING') THEN
2461: END IF;
2462:
2463: IF lv_transaction_type NOT IN ( 'DELIVER', 'RETURN TO RECEIVING') THEN
2464: /* this procedure is not valid for the transaction being processed */
2465: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
2466: RETURN 'X';
2467: END IF;
2468:
2469: IF lv_transaction_type = 'RETURN TO RECEIVING' THEN
2467: END IF;
2468:
2469: IF lv_transaction_type = 'RETURN TO RECEIVING' THEN
2470:
2471: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
2472: ln_dlry_trx_id := jai_rcv_trx_processing_pkg.get_ancestor_id
2473: ( r_trx.transaction_id, r_trx.shipment_line_id, 'DELIVER');
2474:
2475: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
2471: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
2472: ln_dlry_trx_id := jai_rcv_trx_processing_pkg.get_ancestor_id
2473: ( r_trx.transaction_id, r_trx.shipment_line_id, 'DELIVER');
2474:
2475: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
2476: OPEN c_trx(ln_dlry_trx_id);
2477: FETCH c_trx INTO r_dlry_trx;
2478: CLOSE c_trx;
2479:
2482:
2483:
2484: ELSE --DELIVER scenario.
2485:
2486: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
2487: lv_destination_type := r_trx.destination_type_code;
2488: lv_loc_subinv_type := nvl(r_trx.loc_subinv_type, 'X');
2489:
2490: END IF; --End if for RETURN TO RECEIVING
2494: CLOSE c_base_trx;
2495:
2496: if r_trx.organization_type = 'M' THEN
2497:
2498: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath);
2499: if r_trx.item_cenvatable = 'N' THEN
2500:
2501: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath);
2502: lv_include_cenvat_in_costing :='Y';
2497:
2498: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath);
2499: if r_trx.item_cenvatable = 'N' THEN
2500:
2501: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath);
2502: lv_include_cenvat_in_costing :='Y';
2503:
2504: elsif r_trx.item_class in ('OTIN','OTEX') then
2505:
2502: lv_include_cenvat_in_costing :='Y';
2503:
2504: elsif r_trx.item_class in ('OTIN','OTEX') then
2505:
2506: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath);
2507: lv_include_cenvat_in_costing :='Y';
2508:
2509: /* modified the following condition by vijay Shankar for Bug#4179823
2510: elsif r_base_trx.source_document_code <> 'REQ' and r_trx.item_class in ('FGIN', 'FGEX') then */
2510: elsif r_base_trx.source_document_code <> 'REQ' and r_trx.item_class in ('FGIN', 'FGEX') then */
2511: elsif r_base_trx.source_document_code NOT IN ('REQ', 'RMA') and r_trx.item_class in ('FGIN', 'FGEX') --added for bug #13514510
2512: and r_trx.organization_type = 'M'
2513: then
2514: p_codepath := jai_general_pkg.plot_codepath(9.1, p_codepath);
2515: lv_include_cenvat_in_costing :='Y';
2516:
2517: elsif lv_destination_type = 'INVENTORY' THEN
2518:
2515: lv_include_cenvat_in_costing :='Y';
2516:
2517: elsif lv_destination_type = 'INVENTORY' THEN
2518:
2519: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath); /* 10 */
2520: if r_trx.base_asset_inventory = 2 then
2521:
2522: p_codepath := jai_general_pkg.plot_codepath(11, p_codepath); /* 11 */
2523: if r_trx.item_class not in ('CGIN','CGEX') then
2518:
2519: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath); /* 10 */
2520: if r_trx.base_asset_inventory = 2 then
2521:
2522: p_codepath := jai_general_pkg.plot_codepath(11, p_codepath); /* 11 */
2523: if r_trx.item_class not in ('CGIN','CGEX') then
2524:
2525: p_codepath := jai_general_pkg.plot_codepath(12, p_codepath); /* 12 */
2526: lv_include_cenvat_in_costing :='Y';
2521:
2522: p_codepath := jai_general_pkg.plot_codepath(11, p_codepath); /* 11 */
2523: if r_trx.item_class not in ('CGIN','CGEX') then
2524:
2525: p_codepath := jai_general_pkg.plot_codepath(12, p_codepath); /* 12 */
2526: lv_include_cenvat_in_costing :='Y';
2527:
2528: elsif r_trx.item_class in ('CGIN','CGEX') then
2529:
2526: lv_include_cenvat_in_costing :='Y';
2527:
2528: elsif r_trx.item_class in ('CGIN','CGEX') then
2529:
2530: p_codepath := jai_general_pkg.plot_codepath(13, p_codepath); /* 13 */
2531: if lv_loc_subinv_type IN ('X','N') then
2532: p_codepath := jai_general_pkg.plot_codepath(14, p_codepath); /* 14 */
2533: lv_include_cenvat_in_costing :='Y';
2534: end if;
2528: elsif r_trx.item_class in ('CGIN','CGEX') then
2529:
2530: p_codepath := jai_general_pkg.plot_codepath(13, p_codepath); /* 13 */
2531: if lv_loc_subinv_type IN ('X','N') then
2532: p_codepath := jai_general_pkg.plot_codepath(14, p_codepath); /* 14 */
2533: lv_include_cenvat_in_costing :='Y';
2534: end if;
2535:
2536: end if; --end if for r_trx.item_class
2536: end if; --end if for r_trx.item_class
2537:
2538: elsif r_trx.base_asset_inventory = 1 then
2539:
2540: p_codepath := jai_general_pkg.plot_codepath(15, p_codepath); /* 15 */
2541: if lv_loc_subinv_type IN ('X','N') then
2542: p_codepath := jai_general_pkg.plot_codepath(16, p_codepath); /* 16 */
2543: lv_include_cenvat_in_costing :='Y';
2544: end if;
2538: elsif r_trx.base_asset_inventory = 1 then
2539:
2540: p_codepath := jai_general_pkg.plot_codepath(15, p_codepath); /* 15 */
2541: if lv_loc_subinv_type IN ('X','N') then
2542: p_codepath := jai_general_pkg.plot_codepath(16, p_codepath); /* 16 */
2543: lv_include_cenvat_in_costing :='Y';
2544: end if;
2545:
2546: end if; --end if for r_trx.base_asset_inventory
2546: end if; --end if for r_trx.base_asset_inventory
2547:
2548: elsif lv_destination_type = 'EXPENSE' THEN
2549:
2550: p_codepath := jai_general_pkg.plot_codepath(17, p_codepath); /* 17 */
2551: if r_trx.item_class not in ('CGIN','CGEX','RMIN','RMEX','CCIN','CCEX') THEN /*RMIN,RMEX,CCIN,CCEX added for bug 10335708*/
2552: lv_include_cenvat_in_costing :='Y';
2553: end if;
2554: else
2551: if r_trx.item_class not in ('CGIN','CGEX','RMIN','RMEX','CCIN','CCEX') THEN /*RMIN,RMEX,CCIN,CCEX added for bug 10335708*/
2552: lv_include_cenvat_in_costing :='Y';
2553: end if;
2554: else
2555: p_codepath := jai_general_pkg.plot_codepath(18, p_codepath); /* 18 */
2556: lv_include_cenvat_in_costing :='X';
2557: end if; --end if for r_trx.item_cenvatable='N'
2558:
2559: elsif r_trx.organization_type = 'T' THEN
2557: end if; --end if for r_trx.item_cenvatable='N'
2558:
2559: elsif r_trx.organization_type = 'T' THEN
2560:
2561: p_codepath := jai_general_pkg.plot_codepath(19, p_codepath); /* 19 */
2562: if r_trx.item_trading_flag <> 'Y'
2563: or r_trx.item_excisable <> 'Y'
2564: or r_trx.excise_in_trading <> 'Y'
2565: then
2562: if r_trx.item_trading_flag <> 'Y'
2563: or r_trx.item_excisable <> 'Y'
2564: or r_trx.excise_in_trading <> 'Y'
2565: then
2566: p_codepath := jai_general_pkg.plot_codepath(20, p_codepath); /* 20 */
2567: lv_include_cenvat_in_costing :='Y';
2568: end if;
2569:
2570: else
2568: end if;
2569:
2570: else
2571:
2572: p_codepath := jai_general_pkg.plot_codepath(21, p_codepath); /* 21 */
2573: lv_include_cenvat_in_costing :='X';
2574:
2575: end if; --r_trx.organization_type = 'M'
2576:
2576:
2577: <
2578:
2579: if lv_include_cenvat_in_costing is null then
2580: p_codepath := jai_general_pkg.plot_codepath(22, p_codepath); /* 22 */
2581: lv_include_cenvat_in_costing :='N';
2582: end if;
2583:
2584: p_codepath := jai_general_pkg.plot_codepath(23, p_codepath, null, 'END'); /* 23 */
2580: p_codepath := jai_general_pkg.plot_codepath(22, p_codepath); /* 22 */
2581: lv_include_cenvat_in_costing :='N';
2582: end if;
2583:
2584: p_codepath := jai_general_pkg.plot_codepath(23, p_codepath, null, 'END'); /* 23 */
2585: lv_ret_value := lv_include_cenvat_in_costing;
2586:
2587: return lv_ret_value;
2588:
2590: when others then
2591: p_process_status := 'E';
2592: p_process_message := 'DELIVER_RTR_PKG.include_cenvat_in_costing:' || SQLERRM ;
2593: fnd_file.put_line( fnd_file.log, 'Error in '||p_process_message);
2594: p_codepath := jai_general_pkg.plot_codepath(999, p_codepath, null, 'END'); /* 24 */
2595: return null;
2596: end include_cenvat_in_costing;
2597: /*procedures added for bug 10335708*/
2598:
2613: BEGIN
2614:
2615: IF r_trx.transaction_type = 'CORRECT'
2616: THEN
2617: --p_codepath := jai_general_pkg.plot_codepath(1.1, p_codepath);
2618: lv_transaction_type := r_trx.parent_transaction_type;
2619: ELSE
2620: --p_codepath := jai_general_pkg.plot_codepath(1.2, p_codepath);
2621: lv_transaction_type := r_trx.transaction_type;
2616: THEN
2617: --p_codepath := jai_general_pkg.plot_codepath(1.1, p_codepath);
2618: lv_transaction_type := r_trx.parent_transaction_type;
2619: ELSE
2620: --p_codepath := jai_general_pkg.plot_codepath(1.2, p_codepath);
2621: lv_transaction_type := r_trx.transaction_type;
2622: END IF;
2623: --p_codepath := jai_general_pkg.plot_codepath(2, p_codepath);
2624:
2619: ELSE
2620: --p_codepath := jai_general_pkg.plot_codepath(1.2, p_codepath);
2621: lv_transaction_type := r_trx.transaction_type;
2622: END IF;
2623: --p_codepath := jai_general_pkg.plot_codepath(2, p_codepath);
2624:
2625: IF lv_transaction_type = 'DELIVER'
2626: THEN
2627: --p_codepath := jai_general_pkg.plot_codepath(2.1, p_codepath);
2623: --p_codepath := jai_general_pkg.plot_codepath(2, p_codepath);
2624:
2625: IF lv_transaction_type = 'DELIVER'
2626: THEN
2627: --p_codepath := jai_general_pkg.plot_codepath(2.1, p_codepath);
2628: ln_quantity := -1*r_trx.quantity;
2629: ELSE
2630: --p_codepath := jai_general_pkg.plot_codepath(2.2, p_codepath);
2631: ln_quantity := r_trx.quantity;
2626: THEN
2627: --p_codepath := jai_general_pkg.plot_codepath(2.1, p_codepath);
2628: ln_quantity := -1*r_trx.quantity;
2629: ELSE
2630: --p_codepath := jai_general_pkg.plot_codepath(2.2, p_codepath);
2631: ln_quantity := r_trx.quantity;
2632: END IF;
2633: --p_codepath := jai_general_pkg.plot_codepath(3, p_codepath);
2634:
2629: ELSE
2630: --p_codepath := jai_general_pkg.plot_codepath(2.2, p_codepath);
2631: ln_quantity := r_trx.quantity;
2632: END IF;
2633: --p_codepath := jai_general_pkg.plot_codepath(3, p_codepath);
2634:
2635: IF Nvl(p_rg23_entry,0)=1
2636: THEN
2637: jai_cmn_rg_23ac_i_trxs_PKG.insert_row(
2660: p_excise_invoice_date => NULL,
2661: p_oth_receipt_quantity => NULL,
2662: p_oth_receipt_id => NULL,
2663: p_oth_receipt_date => NULL,
2664: p_register_type => jai_general_pkg.get_rg_register_type(p_item_class => r_trx.item_class),
2665: p_identification_no => NULL,
2666: p_identification_mark => NULL,
2667: p_brand_name => NULL,
2668: p_date_of_verification => NULL,
2686: p_process_message => p_process_message
2687: );
2688: ELSIF Nvl(p_rg_i_entry,0)=1
2689: THEN
2690: --p_codepath := jai_general_pkg.plot_codepath(6.3, p_codepath);
2691: jai_cmn_rg_i_trxs_pkg.create_rg1_entry(
2692: p_register_id => ln_register_id,
2693: p_register_id_part_ii => null,
2694: p_fin_year => jai_general_pkg.get_fin_year(p_organization_id => r_trx.organization_id),
2690: --p_codepath := jai_general_pkg.plot_codepath(6.3, p_codepath);
2691: jai_cmn_rg_i_trxs_pkg.create_rg1_entry(
2692: p_register_id => ln_register_id,
2693: p_register_id_part_ii => null,
2694: p_fin_year => jai_general_pkg.get_fin_year(p_organization_id => r_trx.organization_id),
2695: p_slno => lv_slno,
2696: p_transaction_id => null,
2697: p_organization_id => r_trx.organization_id,
2698: p_location_id => r_trx.location_id,
2729: p_cess_amount => NULL ,
2730: p_sh_cess_amount => NULL
2731:
2732: );
2733: -- p_codepath := jai_general_pkg.plot_codepath(6.4, p_codepath);
2734: END IF;
2735:
2736: COMMIT;
2737: EXCEPTION
2778: r_trx c_trx%ROWTYPE;
2779: ln_rcv_trx_id NUMBER;
2780:
2781: BEGIN
2782: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'ja_in_deliver_rtr_pkg.pr_issue_expense_delivery', 'START');
2783: ln_rg23_i := 0;
2784: ln_rg_i := 0;
2785:
2786: OPEN c_trx;
2792: r_trx.transaction_id,
2793: r_trx.shipment_line_id,
2794: 'RECEIVE'
2795: );
2796: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath);
2797: OPEN c_rg23_i_entry(ln_rcv_trx_id);
2798: FETCH c_rg23_i_entry INTO ln_rg23_i;
2799: CLOSE c_rg23_i_entry;
2800: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath);
2796: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath);
2797: OPEN c_rg23_i_entry(ln_rcv_trx_id);
2798: FETCH c_rg23_i_entry INTO ln_rg23_i;
2799: CLOSE c_rg23_i_entry;
2800: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath);
2801: IF Nvl(ln_rg23_i,0) = 0
2802: THEN
2803: p_codepath := jai_general_pkg.plot_codepath(5.1, p_codepath);
2804: OPEN c_rg_i_entry(ln_rcv_trx_id, r_trx.inventory_item_id, r_trx.organization_id, r_trx.location_id);
2799: CLOSE c_rg23_i_entry;
2800: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath);
2801: IF Nvl(ln_rg23_i,0) = 0
2802: THEN
2803: p_codepath := jai_general_pkg.plot_codepath(5.1, p_codepath);
2804: OPEN c_rg_i_entry(ln_rcv_trx_id, r_trx.inventory_item_id, r_trx.organization_id, r_trx.location_id);
2805: FETCH c_rg_i_entry INTO ln_rg_i;
2806: CLOSE c_rg_i_entry;
2807: p_codepath := jai_general_pkg.plot_codepath(5.2, p_codepath);
2803: p_codepath := jai_general_pkg.plot_codepath(5.1, p_codepath);
2804: OPEN c_rg_i_entry(ln_rcv_trx_id, r_trx.inventory_item_id, r_trx.organization_id, r_trx.location_id);
2805: FETCH c_rg_i_entry INTO ln_rg_i;
2806: CLOSE c_rg_i_entry;
2807: p_codepath := jai_general_pkg.plot_codepath(5.2, p_codepath);
2808: END IF;
2809: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath);
2810:
2811: pr_issue_auto_trans(r_trx, pn_transaction_id, ln_rg23_i, ln_rg_i, pv_process_status, pv_process_message);
2805: FETCH c_rg_i_entry INTO ln_rg_i;
2806: CLOSE c_rg_i_entry;
2807: p_codepath := jai_general_pkg.plot_codepath(5.2, p_codepath);
2808: END IF;
2809: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath);
2810:
2811: pr_issue_auto_trans(r_trx, pn_transaction_id, ln_rg23_i, ln_rg_i, pv_process_status, pv_process_message);
2812:
2813: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath, NULL, 'END');
2809: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath);
2810:
2811: pr_issue_auto_trans(r_trx, pn_transaction_id, ln_rg23_i, ln_rg_i, pv_process_status, pv_process_message);
2812:
2813: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath, NULL, 'END');
2814:
2815: EXCEPTION
2816: WHEN OTHERS THEN
2817: pv_process_status := 'E';
2815: EXCEPTION
2816: WHEN OTHERS THEN
2817: pv_process_status := 'E';
2818: pv_process_message := 'Error when making issue entry in the quantity register: '||SQLERRM;
2819: p_codepath := jai_general_pkg.plot_codepath(999, p_codepath, NULL, 'END');
2820: END pr_issue_expense_delivery;
2821:
2822:
2823: END jai_rcv_deliver_rtr_pkg;