[Home] [Help]
1: PACKAGE BODY jai_po_proc_pkg AS
2: /* $Header: jai_po_proc.plb 120.1.12020000.2 2013/03/19 01:13:19 vkaranam noship $ */
3: G_PKG_NAME CONSTANT VARCHAR2(30) := 'jai_po_proc_pkg';
4: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
6: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
7: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
8: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
1: PACKAGE BODY jai_po_proc_pkg AS
2: /* $Header: jai_po_proc.plb 120.1.12020000.2 2013/03/19 01:13:19 vkaranam noship $ */
3: G_PKG_NAME CONSTANT VARCHAR2(30) := 'jai_po_proc_pkg';
4: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
6: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
7: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
8: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
2: /* $Header: jai_po_proc.plb 120.1.12020000.2 2013/03/19 01:13:19 vkaranam noship $ */
3: G_PKG_NAME CONSTANT VARCHAR2(30) := 'jai_po_proc_pkg';
4: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
6: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
7: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
8: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
10: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
3: G_PKG_NAME CONSTANT VARCHAR2(30) := 'jai_po_proc_pkg';
4: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
6: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
7: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
8: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
10: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
11: G_MODULE_NAME CONSTANT VARCHAR2(30) := 'JAI.PLSQL.jai_po_proc_pkg.';
4: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
6: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
7: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
8: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
10: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
11: G_MODULE_NAME CONSTANT VARCHAR2(30) := 'JAI.PLSQL.jai_po_proc_pkg.';
12:
5: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
6: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
7: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
8: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
10: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
11: G_MODULE_NAME CONSTANT VARCHAR2(30) := 'JAI.PLSQL.jai_po_proc_pkg.';
12:
13: /*----------------------------------------------------------------------------*
6: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
7: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
8: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
10: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
11: G_MODULE_NAME CONSTANT VARCHAR2(30) := 'JAI.PLSQL.jai_po_proc_pkg.';
12:
13: /*----------------------------------------------------------------------------*
14: | PRIVATE FUNCTIONS/PROCEDURES |
215: v_tax_category_id_dflt JAI_PO_LINE_LOCATIONS.tax_category_id%TYPE;
216:
217: BEGIN
218:
219: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
220: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
221: END IF;
222: lv_currency := v_currency;
223: lv_vendor_id := v_vendor_id;
216:
217: BEGIN
218:
219: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
220: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
221: END IF;
222: lv_currency := v_currency;
223: lv_vendor_id := v_vendor_id;
224:
227: OPEN c_tax_modified_flag(v_frm_po_line_id,v_frm_line_loc_id);
228: FETCH c_tax_modified_flag INTO v_tax_modified_flag;
229: CLOSE c_tax_modified_flag;
230:
231: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
232: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'v_tax_modified_flag:'||v_tax_modified_flag);
233: END IF;
234:
235: IF v_type_lookup_code IN ('QUOTATION') AND (v_frm_po_line_id IS NOT NULL OR v_frm_line_loc_id IS NOT NULL)
228: FETCH c_tax_modified_flag INTO v_tax_modified_flag;
229: CLOSE c_tax_modified_flag;
230:
231: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
232: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'v_tax_modified_flag:'||v_tax_modified_flag);
233: END IF;
234:
235: IF v_type_lookup_code IN ('QUOTATION') AND (v_frm_po_line_id IS NOT NULL OR v_frm_line_loc_id IS NOT NULL)
236: AND v_tax_modified_flag = 'Y' THEN--Move the below condition here
233: END IF;
234:
235: IF v_type_lookup_code IN ('QUOTATION') AND (v_frm_po_line_id IS NOT NULL OR v_frm_line_loc_id IS NOT NULL)
236: AND v_tax_modified_flag = 'Y' THEN--Move the below condition here
237: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
238: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'enter if branch for QUOTATION and tax modified flag is Y');
239: END IF;
240:
241: /*IF v_tax_modified_flag = 'Y' THEN Move to outter IF*/
234:
235: IF v_type_lookup_code IN ('QUOTATION') AND (v_frm_po_line_id IS NOT NULL OR v_frm_line_loc_id IS NOT NULL)
236: AND v_tax_modified_flag = 'Y' THEN--Move the below condition here
237: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
238: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'enter if branch for QUOTATION and tax modified flag is Y');
239: END IF;
240:
241: /*IF v_tax_modified_flag = 'Y' THEN Move to outter IF*/
242:
356: /*END IF;*/
357: ELSE--PO is not quotation from RFQ
358: /*Get tax category id from vendor default*/
359: IF p_tax_category_id is null then
360: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
361: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'enter if branch for not QUOTATION and p_tax_category is null');
362: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'parameters for tax default:v_org_id,'||to_char(v_org_id)||'lv_vendor_id,'||to_char(lv_vendor_id)||'vendor_site_id,'||to_char(v_vendor_site_id)
363: ||'item_id,'||to_char(v_item_id)||'po_hdr_id,'||to_char(v_po_hdr_id)||'line_loc_id,'||to_char(v_line_loc_id)||'v_po_line_id,'||to_char(v_po_line_id));
364: END IF;
357: ELSE--PO is not quotation from RFQ
358: /*Get tax category id from vendor default*/
359: IF p_tax_category_id is null then
360: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
361: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'enter if branch for not QUOTATION and p_tax_category is null');
362: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'parameters for tax default:v_org_id,'||to_char(v_org_id)||'lv_vendor_id,'||to_char(lv_vendor_id)||'vendor_site_id,'||to_char(v_vendor_site_id)
363: ||'item_id,'||to_char(v_item_id)||'po_hdr_id,'||to_char(v_po_hdr_id)||'line_loc_id,'||to_char(v_line_loc_id)||'v_po_line_id,'||to_char(v_po_line_id));
364: END IF;
365:
358: /*Get tax category id from vendor default*/
359: IF p_tax_category_id is null then
360: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
361: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'enter if branch for not QUOTATION and p_tax_category is null');
362: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'parameters for tax default:v_org_id,'||to_char(v_org_id)||'lv_vendor_id,'||to_char(lv_vendor_id)||'vendor_site_id,'||to_char(v_vendor_site_id)
363: ||'item_id,'||to_char(v_item_id)||'po_hdr_id,'||to_char(v_po_hdr_id)||'line_loc_id,'||to_char(v_line_loc_id)||'v_po_line_id,'||to_char(v_po_line_id));
364: END IF;
365:
366: IF nvl(v_line_loc_id,0) <> 0 THEN
399: AND NVL( Line_Location_Id, 0 ) = NVL( v_line_loc_id, 0 );
400:
401: v_tax_category_id_dflt := p_tax_category_id;
402: END IF;
403: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
404: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'after defaultation,tax_category:'||v_tax_category_id_dflt);
405: END IF;
406:
407: IF v_tax_category_id_dflt IS NOT NULL THEN
400:
401: v_tax_category_id_dflt := p_tax_category_id;
402: END IF;
403: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
404: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'after defaultation,tax_category:'||v_tax_category_id_dflt);
405: END IF;
406:
407: IF v_tax_category_id_dflt IS NOT NULL THEN
408:
444: ELSIF v_type_lookup_code = 'BLANKET' THEN
445: trans_name := v_type_lookup_code || TO_CHAR( v_line_loc_id ) || operation;
446: END IF;
447:
448: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
449: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'after defaultation,trans_name:'||trans_name);
450: END IF;
451:
452:
445: trans_name := v_type_lookup_code || TO_CHAR( v_line_loc_id ) || operation;
446: END IF;
447:
448: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
449: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'after defaultation,trans_name:'||trans_name);
450: END IF;
451:
452:
453: jai_cmn_tax_defaultation_pkg.Ja_In_Calc_Prec_Taxes(
507: WHERE Po_Line_Id = v_po_line_id
508: AND nvl(Line_Location_Id,0) = nvl(v_line_loc_id,0);
509: END IF;
510:
511: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
512: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
513: END IF;
514: EXCEPTION
515: WHEN OTHERS THEN
508: AND nvl(Line_Location_Id,0) = nvl(v_line_loc_id,0);
509: END IF;
510:
511: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
512: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
513: END IF;
514: EXCEPTION
515: WHEN OTHERS THEN
516: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
513: END IF;
514: EXCEPTION
515: WHEN OTHERS THEN
516: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
517: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
518: END IF;
519: END process_po_taxes;
520:
521: /*
648: AND FSP.org_id = v_org_id ;
649:
650: BEGIN
651:
652: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
653: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
654: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'prec_po_line.po_line_id:'||to_char(nvl(prec_po_line.po_line_id,0))||'line_location_id:'||to_char(nvl(prec_po_location.line_location_id,0)));
655: END IF;
656:
649:
650: BEGIN
651:
652: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
653: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
654: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'prec_po_line.po_line_id:'||to_char(nvl(prec_po_line.po_line_id,0))||'line_location_id:'||to_char(nvl(prec_po_location.line_location_id,0)));
655: END IF;
656:
657: /*Populate values to variables*/
650: BEGIN
651:
652: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
653: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
654: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'prec_po_line.po_line_id:'||to_char(nvl(prec_po_line.po_line_id,0))||'line_location_id:'||to_char(nvl(prec_po_location.line_location_id,0)));
655: END IF;
656:
657: /*Populate values to variables*/
658: IF prec_po_line.po_line_id IS NOT NULL THEN -- logic from JAI_PO_LA_TRIGGER_PKG. ARI_T1
691: OPEN c_line_info(v_po_line_id);
692: FETCH c_line_info INTO v_item_id;
693: CLOSE c_line_info;
694: END IF;
695: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
696: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'after value assignment');
697: END IF;
698:
699: /*Get values from PO header*/
692: FETCH c_line_info INTO v_item_id;
693: CLOSE c_line_info;
694: END IF;
695: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
696: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'after value assignment');
697: END IF;
698:
699: /*Get values from PO header*/
700: IF prec_po_header.po_header_id IS NOT NULL THEN--Added by Wenqiong for bug16288154 begin
714: CLOSE Check_Rfq_Quot_Cur;
715:
716: END IF;
717:
718: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
719: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Get values from PO header:'||'v_type_lookup_code:'||v_type_lookup_code
720: ||'v_quot_class_code:'||v_quot_class_code);
721: END IF;
722: OPEN fetch_uomcode_cur;
715:
716: END IF;
717:
718: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
719: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Get values from PO header:'||'v_type_lookup_code:'||v_type_lookup_code
720: ||'v_quot_class_code:'||v_quot_class_code);
721: END IF;
722: OPEN fetch_uomcode_cur;
723: FETCH fetch_uomcode_cur INTO v_uom_code;
721: END IF;
722: OPEN fetch_uomcode_cur;
723: FETCH fetch_uomcode_cur INTO v_uom_code;
724: CLOSE fetch_uomcode_cur;
725: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
726: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Get v_uom_code:'||'v_uom_code:'||v_uom_code);
727: END IF;
728:
729: OPEN Fetch_Org_Id_Cur;
722: OPEN fetch_uomcode_cur;
723: FETCH fetch_uomcode_cur INTO v_uom_code;
724: CLOSE fetch_uomcode_cur;
725: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
726: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Get v_uom_code:'||'v_uom_code:'||v_uom_code);
727: END IF;
728:
729: OPEN Fetch_Org_Id_Cur;
730: FETCH Fetch_Org_Id_Cur INTO v_inv_org_id;
730: FETCH Fetch_Org_Id_Cur INTO v_inv_org_id;
731: CLOSE Fetch_Org_Id_Cur;
732:
733:
734: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
735: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Get v_org_id:'||'v_org_id:'||to_char(v_org_id));
736: END IF;
737: v_currency_conv_rate := get_currency_conv_rate (v_inv_org_id => v_inv_org_id,
738: v_currency => v_currency,
731: CLOSE Fetch_Org_Id_Cur;
732:
733:
734: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
735: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Get v_org_id:'||'v_org_id:'||to_char(v_org_id));
736: END IF;
737: v_currency_conv_rate := get_currency_conv_rate (v_inv_org_id => v_inv_org_id,
738: v_currency => v_currency,
739: v_rate_date => v_conv_rate_date,
761: FETCH c_line_tax_modified_flag INTO v_tax_modified_flag;
762: CLOSE c_line_tax_modified_flag;
763: END IF;
764:
765: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
766: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Get v_tax_modified_flag:'||'v_tax_modified_flag:'||nvl(v_tax_modified_flag,'N'));
767: END IF;
768:
769: IF v_line_loc_id IS NOT NULL AND nvl(v_tax_modified_flag,'N') = 'Y' THEN
762: CLOSE c_line_tax_modified_flag;
763: END IF;
764:
765: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
766: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Get v_tax_modified_flag:'||'v_tax_modified_flag:'||nvl(v_tax_modified_flag,'N'));
767: END IF;
768:
769: IF v_line_loc_id IS NOT NULL AND nvl(v_tax_modified_flag,'N') = 'Y' THEN
770: --jai_po_tax_pkg.cal_tax called in LLA while jai_po_tax_pkg.calculate_tax is called in HA
817: ,v_currency => v_currency
818: ,v_line_focus_id => v_line_focus_id
819: );
820:
821: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
822: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'before calc_tax:'||'v_po_hdr_id:'||to_char(v_po_hdr_id)||'v_po_line_id:'||to_char(v_po_line_id)
823: ||'v_line_loc_id:'||to_char(v_line_loc_id)||'v_line_focus_id:'||to_char(v_line_focus_id)||'v_qty:'||to_char(v_qty)||'base_value:'||to_char(v_price*v_qty)||'v_assessable_value:'||to_char(v_assessable_value)||'v_vat_assess_value:'
824: ||to_char(v_vat_assess_value)||'v_default_curr:'||v_default_curr||'v_currency:'||v_currency
825: ||'p_line_quantity,'||v_qty||'p_base_value'||v_price*v_qty||'p_line_uom_code,'||v_uom_code||'p_tax_amount,'||nvl(v_tax_amount,0)||
818: ,v_line_focus_id => v_line_focus_id
819: );
820:
821: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
822: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'before calc_tax:'||'v_po_hdr_id:'||to_char(v_po_hdr_id)||'v_po_line_id:'||to_char(v_po_line_id)
823: ||'v_line_loc_id:'||to_char(v_line_loc_id)||'v_line_focus_id:'||to_char(v_line_focus_id)||'v_qty:'||to_char(v_qty)||'base_value:'||to_char(v_price*v_qty)||'v_assessable_value:'||to_char(v_assessable_value)||'v_vat_assess_value:'
824: ||to_char(v_vat_assess_value)||'v_default_curr:'||v_default_curr||'v_currency:'||v_currency
825: ||'p_line_quantity,'||v_qty||'p_base_value'||v_price*v_qty||'p_line_uom_code,'||v_uom_code||'p_tax_amount,'||nvl(v_tax_amount,0)||
826: 'v_item_id'||v_item_id||'v_currency_conv_rate'|| 1/v_currency_conv_rate||'p_func_curr'||v_default_curr);
846: , pv_retroprice_changed => pv_retro_price_flag
847: );
848:
849: ELSIF v_shipment_type IN ( 'SCHEDULED', 'BLANKET' ) AND nvl(v_tax_modified_flag,'N') = 'N' THEN
850: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
851:
852: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'process_release_shipment for v_shipment_type:'||v_shipment_type);
853: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'process_release_shipment,parameters:v_src_ship_id,'||v_src_ship_id||'v_line_loc_id,'||v_line_loc_id
854: ||'v_po_line_id,'||v_po_line_id||'v_po_hdr_id,'||v_po_hdr_id||'v_qty,'||v_qty||'v_po_rel_id,'||v_po_rel_id);
848:
849: ELSIF v_shipment_type IN ( 'SCHEDULED', 'BLANKET' ) AND nvl(v_tax_modified_flag,'N') = 'N' THEN
850: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
851:
852: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'process_release_shipment for v_shipment_type:'||v_shipment_type);
853: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'process_release_shipment,parameters:v_src_ship_id,'||v_src_ship_id||'v_line_loc_id,'||v_line_loc_id
854: ||'v_po_line_id,'||v_po_line_id||'v_po_hdr_id,'||v_po_hdr_id||'v_qty,'||v_qty||'v_po_rel_id,'||v_po_rel_id);
855: END IF;
856: delete_po_taxes(pn_po_line_id =>v_po_line_id, pn_line_loc_id => v_line_loc_id);
849: ELSIF v_shipment_type IN ( 'SCHEDULED', 'BLANKET' ) AND nvl(v_tax_modified_flag,'N') = 'N' THEN
850: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
851:
852: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'process_release_shipment for v_shipment_type:'||v_shipment_type);
853: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'process_release_shipment,parameters:v_src_ship_id,'||v_src_ship_id||'v_line_loc_id,'||v_line_loc_id
854: ||'v_po_line_id,'||v_po_line_id||'v_po_hdr_id,'||v_po_hdr_id||'v_qty,'||v_qty||'v_po_rel_id,'||v_po_rel_id);
855: END IF;
856: delete_po_taxes(pn_po_line_id =>v_po_line_id, pn_line_loc_id => v_line_loc_id);
857: delete_jai_po_lines(pn_line_loc_id => v_line_loc_id);
951: ,p_tax_category_id => NULL
952: ,pv_retroprice_changed => pv_retro_price_flag
953: );
954: END IF;
955: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
956: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
957: END IF;
958: EXCEPTION
959: WHEN OTHERS THEN
952: ,pv_retroprice_changed => pv_retro_price_flag
953: );
954: END IF;
955: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
956: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
957: END IF;
958: EXCEPTION
959: WHEN OTHERS THEN
960:
959: WHEN OTHERS THEN
960:
961:
962: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
963: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
964: END IF;
965: END process_po_tax_wrapper;
966: /*
967: REM +======================================================================+
1152: v_seq_val JAI_PO_LINE_LOCATIONS.line_focus_id%TYPE;
1153:
1154: BEGIN
1155:
1156: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1157: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
1158: END IF;
1159: /* OPEN Fetch_Line_Loc_Id_Cur;
1160: FETCH Fetch_Line_Loc_Id_Cur INTO v_ln_loc_id ;
1153:
1154: BEGIN
1155:
1156: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1157: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
1158: END IF;
1159: /* OPEN Fetch_Line_Loc_Id_Cur;
1160: FETCH Fetch_Line_Loc_Id_Cur INTO v_ln_loc_id ;
1161: CLOSE Fetch_Line_Loc_Id_Cur;*/
1276:
1277: END IF;
1278: END IF;
1279:
1280: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1281: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
1282: END IF;
1283: EXCEPTION
1284: WHEN OTHERS THEN
1277: END IF;
1278: END IF;
1279:
1280: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1281: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
1282: END IF;
1283: EXCEPTION
1284: WHEN OTHERS THEN
1285:
1284: WHEN OTHERS THEN
1285:
1286:
1287: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
1288: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
1289: END IF;
1290: app_exception.raise_exception;
1291:
1292:
1426: v_tax_amount NUMBER;
1427:
1428: BEGIN
1429:
1430: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1431: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
1432: END IF;
1433:
1434:
1427:
1428: BEGIN
1429:
1430: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1431: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
1432: END IF;
1433:
1434:
1435: OPEN cur_vendor_curr;
1552: ,pn_assessable_value => v_assessable_value
1553: ,pn_vat_assess_value => v_vat_assess_value
1554: );
1555:
1556: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1557: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||': p_po_hdr_id,'||p_po_hdr_id||'p_po_line_id,'||p_po_line_id||'p_line_loc_id,'||p_line_loc_id);
1558: END IF;
1559: jai_po_tax_pkg.calculate_tax(
1560: p_type => 'STANDARDPO'
1553: ,pn_vat_assess_value => v_vat_assess_value
1554: );
1555:
1556: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1557: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||': p_po_hdr_id,'||p_po_hdr_id||'p_po_line_id,'||p_po_line_id||'p_line_loc_id,'||p_line_loc_id);
1558: END IF;
1559: jai_po_tax_pkg.calculate_tax(
1560: p_type => 'STANDARDPO'
1561: ,p_header_id => p_po_hdr_id
1586:
1587:
1588: );*/
1589:
1590: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1591: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
1592: END IF;
1593: EXCEPTION
1594: WHEN OTHERS THEN
1587:
1588: );*/
1589:
1590: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1591: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
1592: END IF;
1593: EXCEPTION
1594: WHEN OTHERS THEN
1595:
1594: WHEN OTHERS THEN
1595:
1596:
1597: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
1598: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
1599: END IF;
1600: app_exception.raise_exception;
1601:
1602: END copy_quot_taxes;
1659:
1660:
1661: BEGIN
1662:
1663: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1664: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
1665: END IF;
1666: OPEN c_po_header;
1667: FETCH c_po_header INTO r_po_header;
1660:
1661: BEGIN
1662:
1663: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1664: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
1665: END IF;
1666: OPEN c_po_header;
1667: FETCH c_po_header INTO r_po_header;
1668: CLOSE c_po_header;
1672: v_last_upd_by := r_po_header.Last_Updated_By;
1673: v_last_upd_login := r_po_header.Last_Update_Login;
1674:
1675:
1676: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1677: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'pv_action:'||pv_action);
1678: END IF;
1679: IF pv_action = JAI_CONSTANTS.inserting THEN
1680: FOR r_po_line IN c_po_line
1673: v_last_upd_login := r_po_header.Last_Update_Login;
1674:
1675:
1676: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1677: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'pv_action:'||pv_action);
1678: END IF;
1679: IF pv_action = JAI_CONSTANTS.inserting THEN
1680: FOR r_po_line IN c_po_line
1681: LOOP
1685:
1686: OPEN c_old_curr_vendor;
1687: FETCH c_old_curr_vendor INTO v_old_currency,v_old_vendor_id,v_old_vendor_site_id;
1688: CLOSE c_old_curr_vendor;
1689: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1690: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'v_old_currency:'||v_old_currency||'v_old_vendor_id:'||nvl(v_old_vendor_id,-999)||'v_old_vendor_site_id:'||nvl(v_old_vendor_site_id,-999));
1691: END IF;
1692:
1693: /*************************************** Part 1 ********************************************************/
1686: OPEN c_old_curr_vendor;
1687: FETCH c_old_curr_vendor INTO v_old_currency,v_old_vendor_id,v_old_vendor_site_id;
1688: CLOSE c_old_curr_vendor;
1689: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1690: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'v_old_currency:'||v_old_currency||'v_old_vendor_id:'||nvl(v_old_vendor_id,-999)||'v_old_vendor_site_id:'||nvl(v_old_vendor_site_id,-999));
1691: END IF;
1692:
1693: /*************************************** Part 1 ********************************************************/
1694: /************************** Processing For Po Currency Changed *************************************/
1703: ,pn_last_upd_login => v_last_upd_login
1704: );
1705:
1706: END IF;
1707: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1708: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'after po curr changed checking');
1709: END IF;
1710: /*************************************** Part 2 ********************************************************/
1711: /************************** Processing For Po Vendor Changed *************************************/
1704: );
1705:
1706: END IF;
1707: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1708: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'after po curr changed checking');
1709: END IF;
1710: /*************************************** Part 2 ********************************************************/
1711: /************************** Processing For Po Vendor Changed *************************************/
1712: /*******************************************************************************************************/
1710: /*************************************** Part 2 ********************************************************/
1711: /************************** Processing For Po Vendor Changed *************************************/
1712: /*******************************************************************************************************/
1713: IF nvl(v_old_vendor_id,-999) <> nvl(r_po_header.vendor_id,-999) OR ( NVL(v_old_vendor_site_id, -999 ) <> NVL( r_po_header.Vendor_Site_Id, -999 ) ) THEN
1714: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1715: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'after po vendor changed checking');
1716: END IF;
1717: process_vendor_change(
1718: prec_po_header => r_po_header
1711: /************************** Processing For Po Vendor Changed *************************************/
1712: /*******************************************************************************************************/
1713: IF nvl(v_old_vendor_id,-999) <> nvl(r_po_header.vendor_id,-999) OR ( NVL(v_old_vendor_site_id, -999 ) <> NVL( r_po_header.Vendor_Site_Id, -999 ) ) THEN
1714: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1715: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'after po vendor changed checking');
1716: END IF;
1717: process_vendor_change(
1718: prec_po_header => r_po_header
1719: ,pn_old_vendor_id => v_old_vendor_id);
1829: END LOOP;
1830:
1831:
1832: END IF;
1833: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1834: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
1835: END IF;
1836: EXCEPTION
1837: WHEN OTHERS THEN
1830:
1831:
1832: END IF;
1833: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1834: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
1835: END IF;
1836: EXCEPTION
1837: WHEN OTHERS THEN
1838: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
1835: END IF;
1836: EXCEPTION
1837: WHEN OTHERS THEN
1838: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
1839: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
1840: END IF;
1841: app_exception.raise_exception;
1842:
1843: END process_po;
1939: r_jai_po_line_loc c_get_po_line_loc_details%ROWTYPE;
1940:
1941: BEGIN
1942:
1943: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1944: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
1945: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'po_line_id:'||pn_line_id||'pv_action:'||pv_action);
1946: END IF;
1947:
1940:
1941: BEGIN
1942:
1943: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1944: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
1945: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'po_line_id:'||pn_line_id||'pv_action:'||pv_action);
1946: END IF;
1947:
1948:
1941: BEGIN
1942:
1943: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1944: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
1945: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'po_line_id:'||pn_line_id||'pv_action:'||pv_action);
1946: END IF;
1947:
1948:
1949: OPEN c_po_line;
2170: pv_action =>JAI_CONSTANTS.inserting);
2171: END IF;
2172: END LOOP;
2173: END IF;
2174: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2175: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
2176: END IF;
2177: EXCEPTION
2178: WHEN OTHERS THEN
2171: END IF;
2172: END LOOP;
2173: END IF;
2174: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2175: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
2176: END IF;
2177: EXCEPTION
2178: WHEN OTHERS THEN
2179:
2178: WHEN OTHERS THEN
2179:
2180:
2181: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
2182: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
2183: END IF;
2184: app_exception.raise_exception;
2185:
2186: END process_po_line;
2304: r_po_line PO_LINES_ALL%ROWTYPE;
2305:
2306: BEGIN
2307:
2308: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2309: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
2310: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'pn_line_loc_id:'||pn_line_loc_id||'pv_action:'||pv_action);
2311: END IF;
2312: OPEN po_line_loc_cur;
2305:
2306: BEGIN
2307:
2308: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2309: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
2310: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'pn_line_loc_id:'||pn_line_loc_id||'pv_action:'||pv_action);
2311: END IF;
2312: OPEN po_line_loc_cur;
2313: FETCH po_line_loc_cur INTO po_line_loc_rec;
2306: BEGIN
2307:
2308: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2309: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
2310: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'pn_line_loc_id:'||pn_line_loc_id||'pv_action:'||pv_action);
2311: END IF;
2312: OPEN po_line_loc_cur;
2313: FETCH po_line_loc_cur INTO po_line_loc_rec;
2314: CLOSE po_line_loc_cur;
2474: IF pv_action = JAI_CONSTANTS.inserting THEN
2475:
2476: IF is_split_line(v_orig_ship_id, v_po_hdr_id, v_po_line_id) = TRUE THEN
2477: -- process for split line;
2478: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2479: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'v_orig_ship_id:'||v_orig_ship_id||'its split line.');
2480: END IF;
2481:
2482: jai_po_proc_pkg.process_split_line(v_orig_ship_id ,v_line_loc_id,v_qty,v_price,v_type_lookup_code);
2475:
2476: IF is_split_line(v_orig_ship_id, v_po_hdr_id, v_po_line_id) = TRUE THEN
2477: -- process for split line;
2478: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2479: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'v_orig_ship_id:'||v_orig_ship_id||'its split line.');
2480: END IF;
2481:
2482: jai_po_proc_pkg.process_split_line(v_orig_ship_id ,v_line_loc_id,v_qty,v_price,v_type_lookup_code);
2483: ELSE
2490: FETCH Fetch_Count_Cur INTO v_count;
2491: CLOSE Fetch_Count_Cur;
2492:
2493: IF v_count > 0 THEN
2494: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2495: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Process for copy documents,copy_source_taxes');
2496: END IF;
2497: OPEN Fetch_Line_Loc_Id_Cur(v_quot_from_hdr_id,v_line_num,v_item_id,v_shipment_num);
2498: FETCH Fetch_Line_Loc_Id_Cur INTO v_src_loc_id ;
2491: CLOSE Fetch_Count_Cur;
2492:
2493: IF v_count > 0 THEN
2494: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2495: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Process for copy documents,copy_source_taxes');
2496: END IF;
2497: OPEN Fetch_Line_Loc_Id_Cur(v_quot_from_hdr_id,v_line_num,v_item_id,v_shipment_num);
2498: FETCH Fetch_Line_Loc_Id_Cur INTO v_src_loc_id ;
2499: CLOSE Fetch_Line_Loc_Id_Cur;
2524: IF v_type_lookup_code IN ( 'STANDARD', 'PLANNED') AND v_q_line_id IS NOT NULL THEN
2525: OPEN fetch_uomcode_cur;
2526: FETCH fetch_uomcode_cur INTO v_uom_code;
2527: CLOSE fetch_uomcode_cur;
2528: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2529: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Process for copy documents from quotation,copy_quot_taxes');
2530: END IF;
2531: /*jai_po_proc_pkg.copy_quot_taxes(
2532: p_line_loc_id => v_line_loc_id
2525: OPEN fetch_uomcode_cur;
2526: FETCH fetch_uomcode_cur INTO v_uom_code;
2527: CLOSE fetch_uomcode_cur;
2528: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2529: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Process for copy documents from quotation,copy_quot_taxes');
2530: END IF;
2531: /*jai_po_proc_pkg.copy_quot_taxes(
2532: p_line_loc_id => v_line_loc_id
2533: ,p_po_hdr_id => v_po_hdr_id
2575: THEN
2576: lv_retro_price_flag := 'Y';
2577: END IF;
2578:
2579: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2580: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'old_price:'||r_get_po_line_loc_details.PRICE_OVERRIDE||'new_price:'||v_price||'lv_retro_price_flag is'||lv_retro_price_flag);
2581: END IF;
2582: -- IF (r_get_po_line_loc_details.quantity <> v_qty OR lv_retro_price_flag = 'Y') THEN
2583:
2576: lv_retro_price_flag := 'Y';
2577: END IF;
2578:
2579: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2580: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'old_price:'||r_get_po_line_loc_details.PRICE_OVERRIDE||'new_price:'||v_price||'lv_retro_price_flag is'||lv_retro_price_flag);
2581: END IF;
2582: -- IF (r_get_po_line_loc_details.quantity <> v_qty OR lv_retro_price_flag = 'Y') THEN
2583:
2584: IF lv_retro_price_flag = 'Y' THEN
2604: -- END IF;
2605:
2606:
2607: END IF;
2608: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2609: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
2610: END IF;
2611: EXCEPTION
2612: WHEN OTHERS THEN
2605:
2606:
2607: END IF;
2608: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2609: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
2610: END IF;
2611: EXCEPTION
2612: WHEN OTHERS THEN
2613:
2612: WHEN OTHERS THEN
2613:
2614:
2615: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
2616: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
2617: END IF;
2618: app_exception.raise_exception;
2619:
2620: END process_po_shipment_line;
2649: ) IS
2650: l_api_name CONSTANT VARCHAR2(30) := 'update_currency';
2651: BEGIN
2652:
2653: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2654: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
2655: END IF;
2656: UPDATE JAI_PO_TAXES
2657: SET Currency = pv_currency,
2650: l_api_name CONSTANT VARCHAR2(30) := 'update_currency';
2651: BEGIN
2652:
2653: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2654: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
2655: END IF;
2656: UPDATE JAI_PO_TAXES
2657: SET Currency = pv_currency,
2658: Last_Update_Date = pd_last_upd_dt,
2666: Last_Updated_By = pn_last_upd_by,
2667: Last_Update_Login = pn_last_upd_login
2668: WHERE Po_Header_Id = pn_po_header_id;
2669:
2670: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2671: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
2672: END IF;
2673: EXCEPTION
2674: WHEN OTHERS THEN
2667: Last_Update_Login = pn_last_upd_login
2668: WHERE Po_Header_Id = pn_po_header_id;
2669:
2670: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2671: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
2672: END IF;
2673: EXCEPTION
2674: WHEN OTHERS THEN
2675:
2674: WHEN OTHERS THEN
2675:
2676:
2677: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
2678: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
2679: END IF;
2680: app_exception.raise_exception;
2681:
2682: END update_currency;
2718: ) IS
2719: l_api_name CONSTANT VARCHAR2(30) := 'update_vendor';
2720: BEGIN
2721:
2722: IF (g_level_procedure >= fnd_log.g_current_runtime_level) THEN
2723: fnd_log.STRING(g_level_procedure,g_module_name || l_api_name || '.BEGIN',g_pkg_name || ': ' || l_api_name || '()+');
2724: END IF;
2725:
2726: UPDATE jai_po_taxes
2719: l_api_name CONSTANT VARCHAR2(30) := 'update_vendor';
2720: BEGIN
2721:
2722: IF (g_level_procedure >= fnd_log.g_current_runtime_level) THEN
2723: fnd_log.STRING(g_level_procedure,g_module_name || l_api_name || '.BEGIN',g_pkg_name || ': ' || l_api_name || '()+');
2724: END IF;
2725:
2726: UPDATE jai_po_taxes
2727: SET vendor_id = pn_vendor_id, last_update_date = pd_last_upd_dt,
2735: Last_Update_Date = pd_last_upd_dt,
2736: Last_Updated_By = pn_last_upd_by,
2737: Last_Update_Login = pn_last_upd_login
2738: WHERE Po_Header_Id = pn_po_header_id;
2739: IF (g_level_procedure >= fnd_log.g_current_runtime_level) THEN
2740: fnd_log.STRING(g_level_procedure,g_module_name || l_api_name || '.END',g_pkg_name || ': ' || l_api_name);
2741: END IF;
2742: EXCEPTION
2743: WHEN OTHERS THEN
2736: Last_Updated_By = pn_last_upd_by,
2737: Last_Update_Login = pn_last_upd_login
2738: WHERE Po_Header_Id = pn_po_header_id;
2739: IF (g_level_procedure >= fnd_log.g_current_runtime_level) THEN
2740: fnd_log.STRING(g_level_procedure,g_module_name || l_api_name || '.END',g_pkg_name || ': ' || l_api_name);
2741: END IF;
2742: EXCEPTION
2743: WHEN OTHERS THEN
2744:
2742: EXCEPTION
2743: WHEN OTHERS THEN
2744:
2745: IF (g_level_unexpected >= g_current_runtime_level) THEN
2746: fnd_log.STRING(g_level_unexpected,g_module_name || l_api_name,SQLERRM);
2747: END IF;
2748: app_exception.raise_exception;
2749:
2750: END update_vendor;
2773: IS
2774: l_api_name CONSTANT VARCHAR2(30) := 'delete_jai_po_lines';
2775: BEGIN
2776:
2777: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2778: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
2779: END IF;
2780: IF pn_line_loc_id IS NOT NULL THEN
2781: DELETE FROM JAI_PO_LINE_LOCATIONS WHERE Line_Location_Id = pn_line_loc_id;
2774: l_api_name CONSTANT VARCHAR2(30) := 'delete_jai_po_lines';
2775: BEGIN
2776:
2777: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2778: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
2779: END IF;
2780: IF pn_line_loc_id IS NOT NULL THEN
2781: DELETE FROM JAI_PO_LINE_LOCATIONS WHERE Line_Location_Id = pn_line_loc_id;
2782: ELSIF pn_line_id IS NOT NULL THEN
2781: DELETE FROM JAI_PO_LINE_LOCATIONS WHERE Line_Location_Id = pn_line_loc_id;
2782: ELSIF pn_line_id IS NOT NULL THEN
2783: DELETE FROM JAI_PO_LINE_LOCATIONS WHERE po_line_id = pn_line_id;
2784: END IF;
2785: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2786: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
2787: END IF;
2788: EXCEPTION
2789: WHEN OTHERS THEN
2782: ELSIF pn_line_id IS NOT NULL THEN
2783: DELETE FROM JAI_PO_LINE_LOCATIONS WHERE po_line_id = pn_line_id;
2784: END IF;
2785: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2786: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
2787: END IF;
2788: EXCEPTION
2789: WHEN OTHERS THEN
2790:
2789: WHEN OTHERS THEN
2790:
2791:
2792: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
2793: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
2794: END IF;
2795: app_exception.raise_exception;
2796:
2797: END delete_jai_po_lines;
2821: IS
2822: l_api_name CONSTANT VARCHAR2(30) := 'delete_po_taxes';
2823: BEGIN
2824:
2825: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2826: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
2827: END IF;
2828: IF pn_po_hdr_id IS NOT NULL THEN
2829: DELETE FROM JAI_PO_TAXES
2822: l_api_name CONSTANT VARCHAR2(30) := 'delete_po_taxes';
2823: BEGIN
2824:
2825: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2826: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
2827: END IF;
2828: IF pn_po_hdr_id IS NOT NULL THEN
2829: DELETE FROM JAI_PO_TAXES
2830: WHERE po_header_id = pn_po_hdr_id;
2832: DELETE FROM JAI_PO_TAXES
2833: WHERE Po_Line_Id = pn_po_line_id
2834: AND NVL( Line_Location_Id, -999 ) = NVL( pn_line_loc_id, -999 );
2835: END IF;
2836: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2837: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
2838: END IF;
2839: EXCEPTION
2840: WHEN OTHERS THEN
2833: WHERE Po_Line_Id = pn_po_line_id
2834: AND NVL( Line_Location_Id, -999 ) = NVL( pn_line_loc_id, -999 );
2835: END IF;
2836: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2837: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
2838: END IF;
2839: EXCEPTION
2840: WHEN OTHERS THEN
2841:
2840: WHEN OTHERS THEN
2841:
2842:
2843: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
2844: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
2845: END IF;
2846: app_exception.raise_exception;
2847:
2848: END delete_po_taxes;
2925: Po_Line_Id = v_po_line_id AND
2926: Po_Header_Id = v_po_hdr_id;
2927: BEGIN
2928:
2929: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2930: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
2931: END IF;
2932: v_service_type_code :=jai_ar_rctla_trigger_pkg.get_service_type(v_vendor_id,v_vendor_site_id,'V');
2933:
2926: Po_Header_Id = v_po_hdr_id;
2927: BEGIN
2928:
2929: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2930: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
2931: END IF;
2932: v_service_type_code :=jai_ar_rctla_trigger_pkg.get_service_type(v_vendor_id,v_vendor_site_id,'V');
2933:
2934:
2974: FETCH cur_Line_Focus_Id INTO v_seq_val;
2975: CLOSE cur_Line_Focus_Id;
2976: END IF;
2977: v_line_focus_id := v_seq_val;
2978: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2979: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
2980: END IF;
2981: EXCEPTION
2982: WHEN OTHERS THEN
2975: CLOSE cur_Line_Focus_Id;
2976: END IF;
2977: v_line_focus_id := v_seq_val;
2978: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2979: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
2980: END IF;
2981: EXCEPTION
2982: WHEN OTHERS THEN
2983:
2982: WHEN OTHERS THEN
2983:
2984:
2985: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
2986: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
2987: END IF;
2988: app_exception.raise_exception;
2989:
2990: END insert_jai_line_locs;
3039: ln_vat_assess_value NUMBER;
3040: ln_default_price NUMBER;
3041: BEGIN
3042:
3043: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3044: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
3045: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'parameters:pn_vendor_id,'||to_char(nvl(pn_vendor_id,0))||'pn_vendor_site_id,'||to_char(nvl(pn_vendor_site_id,0))
3046: ||'pn_item_id,'||to_char(nvl(pn_item_id,0))||'pn_price,'||to_char(nvl(pn_price,0))||'pn_qty,'||to_char(nvl(pn_qty,0))||'pv_uom_code,'||to_char(nvl(pv_uom_code,0))
3047: ||'pn_po_hdr_id,'||to_char(nvl(pn_po_hdr_id,0))||'pv_currency,'||to_char(nvl(pv_currency,0))||'pv_action,'||pv_action);
3040: ln_default_price NUMBER;
3041: BEGIN
3042:
3043: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3044: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
3045: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'parameters:pn_vendor_id,'||to_char(nvl(pn_vendor_id,0))||'pn_vendor_site_id,'||to_char(nvl(pn_vendor_site_id,0))
3046: ||'pn_item_id,'||to_char(nvl(pn_item_id,0))||'pn_price,'||to_char(nvl(pn_price,0))||'pn_qty,'||to_char(nvl(pn_qty,0))||'pv_uom_code,'||to_char(nvl(pv_uom_code,0))
3047: ||'pn_po_hdr_id,'||to_char(nvl(pn_po_hdr_id,0))||'pv_currency,'||to_char(nvl(pv_currency,0))||'pv_action,'||pv_action);
3048: END IF;
3041: BEGIN
3042:
3043: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3044: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
3045: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'parameters:pn_vendor_id,'||to_char(nvl(pn_vendor_id,0))||'pn_vendor_site_id,'||to_char(nvl(pn_vendor_site_id,0))
3046: ||'pn_item_id,'||to_char(nvl(pn_item_id,0))||'pn_price,'||to_char(nvl(pn_price,0))||'pn_qty,'||to_char(nvl(pn_qty,0))||'pv_uom_code,'||to_char(nvl(pv_uom_code,0))
3047: ||'pn_po_hdr_id,'||to_char(nvl(pn_po_hdr_id,0))||'pv_currency,'||to_char(nvl(pv_currency,0))||'pv_action,'||pv_action);
3048: END IF;
3049:
3050: v_assessable_value := jai_cmn_setup_pkg.get_po_assessable_value(pn_vendor_id
3051: ,pn_vendor_site_id
3052: ,pn_item_id
3053: ,pv_uom_code);
3054: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3055: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'after get_po_assessable_value,v_assessable_value:'||to_char(nvl(v_assessable_value,0)));
3056: END IF;
3057:
3058: IF nvl(v_assessable_value,0) = 0 THEN
3051: ,pn_vendor_site_id
3052: ,pn_item_id
3053: ,pv_uom_code);
3054: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3055: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'after get_po_assessable_value,v_assessable_value:'||to_char(nvl(v_assessable_value,0)));
3056: END IF;
3057:
3058: IF nvl(v_assessable_value,0) = 0 THEN
3059: v_assessable_value := pn_price * pn_qty;
3061: v_assessable_value := v_assessable_value * pn_qty;
3062: v_assessable_value := v_assessable_value * nvl(pn_conv_rate,1);--Modified by Junjian for bug#14729941 on 10-Oct-2012
3063: END IF;
3064:
3065: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3066: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'after ja_in_po_func_curr,v_assessable_value:'||to_char(nvl(v_assessable_value,0))||'factor:'||pn_conv_rate);
3067: END IF;
3068:
3069: IF pv_action = JAI_CONSTANTS.inserting THEN
3062: v_assessable_value := v_assessable_value * nvl(pn_conv_rate,1);--Modified by Junjian for bug#14729941 on 10-Oct-2012
3063: END IF;
3064:
3065: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3066: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'after ja_in_po_func_curr,v_assessable_value:'||to_char(nvl(v_assessable_value,0))||'factor:'||pn_conv_rate);
3067: END IF;
3068:
3069: IF pv_action = JAI_CONSTANTS.inserting THEN
3070: ln_default_price := 0;
3070: ln_default_price := 0;
3071: ELSE
3072: ln_default_price := pn_price;
3073: END IF;
3074: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3075: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'parameters:ln_default_price,'||to_char(nvl(ln_default_price,0)));
3076: END IF;
3077: ln_vat_assess_value := jai_general_pkg.ja_in_vat_assessable_value(p_party_id => pn_vendor_id
3078: ,p_party_site_id => pn_vendor_site_id
3071: ELSE
3072: ln_default_price := pn_price;
3073: END IF;
3074: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3075: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'parameters:ln_default_price,'||to_char(nvl(ln_default_price,0)));
3076: END IF;
3077: ln_vat_assess_value := jai_general_pkg.ja_in_vat_assessable_value(p_party_id => pn_vendor_id
3078: ,p_party_site_id => pn_vendor_site_id
3079: ,p_inventory_item_id => pn_item_id
3081: ,p_default_price => ln_default_price
3082: ,p_ass_value_date => trunc(SYSDATE)
3083: ,p_party_type => 'V');
3084:
3085: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3086: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'after ja_in_vat_assessable_value,ln_vat_assess_value:'||to_char(nvl(ln_vat_assess_value,0))||'factor:'||v_assessable_value);
3087: END IF;
3088: IF nvl(ln_vat_assess_value,0) = 0 THEN
3089: ln_vat_assess_value := pn_price * pn_qty;
3082: ,p_ass_value_date => trunc(SYSDATE)
3083: ,p_party_type => 'V');
3084:
3085: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3086: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'after ja_in_vat_assessable_value,ln_vat_assess_value:'||to_char(nvl(ln_vat_assess_value,0))||'factor:'||v_assessable_value);
3087: END IF;
3088: IF nvl(ln_vat_assess_value,0) = 0 THEN
3089: ln_vat_assess_value := pn_price * pn_qty;
3090: ELSE
3090: ELSE
3091: ln_vat_assess_value := ln_vat_assess_value * pn_qty;
3092: ln_vat_assess_value := ln_vat_assess_value * nvl(pn_conv_rate,1);
3093:
3094: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3095: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'after ja_in_po_func_curr,ln_vat_assess_value:'||to_char(nvl(ln_vat_assess_value,0))||'factor:'||v_assessable_value);
3096: END IF;
3097: END IF;
3098: pn_assessable_value := v_assessable_value;
3091: ln_vat_assess_value := ln_vat_assess_value * pn_qty;
3092: ln_vat_assess_value := ln_vat_assess_value * nvl(pn_conv_rate,1);
3093:
3094: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3095: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'after ja_in_po_func_curr,ln_vat_assess_value:'||to_char(nvl(ln_vat_assess_value,0))||'factor:'||v_assessable_value);
3096: END IF;
3097: END IF;
3098: pn_assessable_value := v_assessable_value;
3099: pn_vat_assess_value := ln_vat_assess_value;
3096: END IF;
3097: END IF;
3098: pn_assessable_value := v_assessable_value;
3099: pn_vat_assess_value := ln_vat_assess_value;
3100: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3101: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'after all,ln_vat_assess_value:'||to_char(nvl(ln_vat_assess_value,0))||'v_assessable_value:'||v_assessable_value);
3102: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
3103: END IF;
3104: EXCEPTION
3097: END IF;
3098: pn_assessable_value := v_assessable_value;
3099: pn_vat_assess_value := ln_vat_assess_value;
3100: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3101: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'after all,ln_vat_assess_value:'||to_char(nvl(ln_vat_assess_value,0))||'v_assessable_value:'||v_assessable_value);
3102: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
3103: END IF;
3104: EXCEPTION
3105: WHEN OTHERS THEN
3098: pn_assessable_value := v_assessable_value;
3099: pn_vat_assess_value := ln_vat_assess_value;
3100: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3101: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'after all,ln_vat_assess_value:'||to_char(nvl(ln_vat_assess_value,0))||'v_assessable_value:'||v_assessable_value);
3102: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
3103: END IF;
3104: EXCEPTION
3105: WHEN OTHERS THEN
3106:
3105: WHEN OTHERS THEN
3106:
3107:
3108: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
3109: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
3110: END IF;
3111: app_exception.raise_exception;
3112:
3113: END get_assessable_value;
3143: ln_orig_po_hdr_id NUMBER;
3144: ln_orig_po_line_id NUMBER;
3145: BEGIN
3146:
3147: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3148: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
3149: END IF;
3150: lb_split_line_flag := FALSE;
3151: IF pn_orig_ship_id IS NOT NULL THEN
3144: ln_orig_po_line_id NUMBER;
3145: BEGIN
3146:
3147: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3148: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
3149: END IF;
3150: lb_split_line_flag := FALSE;
3151: IF pn_orig_ship_id IS NOT NULL THEN
3152: OPEN c_get_po_line_loc_details(pn_orig_ship_id);
3156: lb_split_line_flag := TRUE;
3157: END IF;
3158: END IF;
3159:
3160: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3161:
3162: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
3163: END IF;
3164: RETURN lb_split_line_flag;
3158: END IF;
3159:
3160: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3161:
3162: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
3163: END IF;
3164: RETURN lb_split_line_flag;
3165: EXCEPTION
3166: WHEN OTHERS THEN
3166: WHEN OTHERS THEN
3167:
3168:
3169: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
3170: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
3171: END IF;
3172: app_exception.raise_exception;
3173:
3174: END is_split_line;
3227: rec_jai_line JAI_PO_LINE_LOCATIONS%ROWTYPE;
3228:
3229: BEGIN
3230:
3231: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3232: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
3233: END IF;
3234: /*Get the Quantity of the parent Line */
3235: OPEN cur_get_prev_qty;
3228:
3229: BEGIN
3230:
3231: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3232: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
3233: END IF;
3234: /*Get the Quantity of the parent Line */
3235: OPEN cur_get_prev_qty;
3236: FETCH cur_get_prev_qty INTO l_prev_quantity;
3296: tax_amount = l_tax_amount,
3297: total_amount = l_ship_line_amount + l_tax_amount
3298:
3299: WHERE line_location_id = pn_line_loc_id;
3300: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3301: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
3302: END IF;
3303: EXCEPTION
3304: WHEN OTHERS THEN
3297: total_amount = l_ship_line_amount + l_tax_amount
3298:
3299: WHERE line_location_id = pn_line_loc_id;
3300: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3301: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
3302: END IF;
3303: EXCEPTION
3304: WHEN OTHERS THEN
3305:
3304: WHEN OTHERS THEN
3305:
3306:
3307: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
3308: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
3309: END IF;
3310: app_exception.raise_exception;
3311:
3312: END process_split_line;
3397: lv_return_message VARCHAR2(200);
3398: l_api_name CONSTANT VARCHAR2(200) := 'process_dist';
3399: BEGIN
3400:
3401: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3402: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
3403:
3404: END IF;
3405:
3398: l_api_name CONSTANT VARCHAR2(200) := 'process_dist';
3399: BEGIN
3400:
3401: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3402: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
3403:
3404: END IF;
3405:
3406: OPEN c_dist;
3415:
3416:
3417: /* Move below code to process_distribution_line;
3418: IF nvl(rec_dist.req_distribution_id,0) <> 0 THEN
3419: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3420: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Its copied from requisition by autocreate.');
3421: END IF;
3422:
3423:
3416:
3417: /* Move below code to process_distribution_line;
3418: IF nvl(rec_dist.req_distribution_id,0) <> 0 THEN
3419: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3420: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Its copied from requisition by autocreate.');
3421: END IF;
3422:
3423:
3424: v_po_line_id := rec_dist.Po_Line_Id ;
3436: v_style_id;
3437: CLOSE get_po_hdr;
3438:
3439: IF jai_cmn_utils_pkg.validate_po_type(p_style_id => v_style_id) = FALSE THEN
3440: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3441: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'style_id:'||to_char(v_style_id)||'validate_po_type is false,return');
3442: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
3443: END IF;
3444:
3437: CLOSE get_po_hdr;
3438:
3439: IF jai_cmn_utils_pkg.validate_po_type(p_style_id => v_style_id) = FALSE THEN
3440: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3441: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'style_id:'||to_char(v_style_id)||'validate_po_type is false,return');
3442: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
3443: END IF;
3444:
3445: return;
3438:
3439: IF jai_cmn_utils_pkg.validate_po_type(p_style_id => v_style_id) = FALSE THEN
3440: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3441: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'style_id:'||to_char(v_style_id)||'validate_po_type is false,return');
3442: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
3443: END IF;
3444:
3445: return;
3446: END IF;
3457: IF nvl(v_override_flag,'N') = 'N' and NVL(v_tax_modified_flag, 'N') = 'N' THEN
3458: delete_po_taxes(pn_po_line_id =>v_po_line_id, pn_line_loc_id => v_line_location_id);
3459: delete_jai_po_lines(pn_line_loc_id =>v_line_location_id);
3460: END IF ;
3461: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3462: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'po_release_id is null, delete jai data before return.');
3463: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
3464: END IF;
3465: return;
3458: delete_po_taxes(pn_po_line_id =>v_po_line_id, pn_line_loc_id => v_line_location_id);
3459: delete_jai_po_lines(pn_line_loc_id =>v_line_location_id);
3460: END IF ;
3461: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3462: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'po_release_id is null, delete jai data before return.');
3463: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
3464: END IF;
3465: return;
3466: ELSE
3459: delete_jai_po_lines(pn_line_loc_id =>v_line_location_id);
3460: END IF ;
3461: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3462: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'po_release_id is null, delete jai data before return.');
3463: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
3464: END IF;
3465: return;
3466: ELSE
3467: OPEN c_loc_line_cnt;
3467: OPEN c_loc_line_cnt;
3468: FETCH c_loc_line_cnt INTO v_count;
3469: CLOSE c_loc_line_cnt;
3470: IF v_count > 0 THEN
3471: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3472: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'po_release_id is not null and jai data exists, just return.');
3473: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
3474: END IF;
3475: RETURN;
3468: FETCH c_loc_line_cnt INTO v_count;
3469: CLOSE c_loc_line_cnt;
3470: IF v_count > 0 THEN
3471: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3472: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'po_release_id is not null and jai data exists, just return.');
3473: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
3474: END IF;
3475: RETURN;
3476: END IF;
3469: CLOSE c_loc_line_cnt;
3470: IF v_count > 0 THEN
3471: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3472: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'po_release_id is not null and jai data exists, just return.');
3473: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
3474: END IF;
3475: RETURN;
3476: END IF;
3477: END IF;
3500:
3501: END IF;
3502: */ END LOOP;
3503: CLOSE c_dist;
3504: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3505: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
3506: END IF;
3507: EXCEPTION
3508: WHEN OTHERS THEN
3501: END IF;
3502: */ END LOOP;
3503: CLOSE c_dist;
3504: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3505: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
3506: END IF;
3507: EXCEPTION
3508: WHEN OTHERS THEN
3509:
3508: WHEN OTHERS THEN
3509:
3510:
3511: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
3512: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
3513: END IF;
3514: app_exception.raise_exception;
3515:
3516: END process_dist;
3552: ln_line_exist NUMBER;
3553: lv_action VARCHAR2(20);
3554: l_api_name CONSTANT VARCHAR2(200) := 'process_requisition';
3555: BEGIN
3556: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3557: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
3558: END IF;
3559:
3560:
3553: lv_action VARCHAR2(20);
3554: l_api_name CONSTANT VARCHAR2(200) := 'process_requisition';
3555: BEGIN
3556: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3557: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
3558: END IF;
3559:
3560:
3561: FOR line_rec IN c_all_req_lines
3569: ELSIF nvl(ln_line_exist,0) = 1 THEN
3570: lv_action := JAI_CONSTANTS.updating;
3571: END IF;
3572:
3573: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3574: FND_LOG.STRING(log_level =>G_LEVEL_PROCEDURE
3575: ,module =>l_api_name
3576: ,message => '**********begin requisition*********************'||lv_action);
3577: END IF;
3570: lv_action := JAI_CONSTANTS.updating;
3571: END IF;
3572:
3573: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3574: FND_LOG.STRING(log_level =>G_LEVEL_PROCEDURE
3575: ,module =>l_api_name
3576: ,message => '**********begin requisition*********************'||lv_action);
3577: END IF;
3578: process_po_req_line(line_rec.REQUISITION_LINE_ID,null,lv_action);
3575: ,module =>l_api_name
3576: ,message => '**********begin requisition*********************'||lv_action);
3577: END IF;
3578: process_po_req_line(line_rec.REQUISITION_LINE_ID,null,lv_action);
3579: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3580: FND_LOG.STRING(log_level =>G_LEVEL_PROCEDURE
3581: ,module =>l_api_name
3582: ,message => '**********end requisition*********************'||lv_action);
3583: END IF;
3576: ,message => '**********begin requisition*********************'||lv_action);
3577: END IF;
3578: process_po_req_line(line_rec.REQUISITION_LINE_ID,null,lv_action);
3579: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3580: FND_LOG.STRING(log_level =>G_LEVEL_PROCEDURE
3581: ,module =>l_api_name
3582: ,message => '**********end requisition*********************'||lv_action);
3583: END IF;
3584: END LOOP;
3581: ,module =>l_api_name
3582: ,message => '**********end requisition*********************'||lv_action);
3583: END IF;
3584: END LOOP;
3585: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3586: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
3587: END IF;
3588: EXCEPTION
3589: WHEN OTHERS THEN
3582: ,message => '**********end requisition*********************'||lv_action);
3583: END IF;
3584: END LOOP;
3585: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3586: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
3587: END IF;
3588: EXCEPTION
3589: WHEN OTHERS THEN
3590: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
3587: END IF;
3588: EXCEPTION
3589: WHEN OTHERS THEN
3590: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
3591: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
3592: END IF;
3593: END process_requisition;
3594: /*
3595: REM +======================================================================+
3626: WHERE requisition_line_id = pn_requisition_line_id;
3627: r_requisition_line PO_REQUISITION_LINES_ALL%ROWTYPE;
3628: l_api_name CONSTANT VARCHAR2(200) := 'process_po_req_line';
3629: BEGIN
3630: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3631: FND_LOG.STRING(log_level =>G_LEVEL_PROCEDURE
3632: ,module =>G_MODULE_NAME||l_api_name||'.BEGIN'
3633: ,message => G_PKG_NAME||':'||l_api_name||'()+');
3634: FND_LOG.STRING(log_level =>G_LEVEL_PROCEDURE
3627: r_requisition_line PO_REQUISITION_LINES_ALL%ROWTYPE;
3628: l_api_name CONSTANT VARCHAR2(200) := 'process_po_req_line';
3629: BEGIN
3630: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3631: FND_LOG.STRING(log_level =>G_LEVEL_PROCEDURE
3632: ,module =>G_MODULE_NAME||l_api_name||'.BEGIN'
3633: ,message => G_PKG_NAME||':'||l_api_name||'()+');
3634: FND_LOG.STRING(log_level =>G_LEVEL_PROCEDURE
3635: ,module =>G_MODULE_NAME||l_api_name
3630: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3631: FND_LOG.STRING(log_level =>G_LEVEL_PROCEDURE
3632: ,module =>G_MODULE_NAME||l_api_name||'.BEGIN'
3633: ,message => G_PKG_NAME||':'||l_api_name||'()+');
3634: FND_LOG.STRING(log_level =>G_LEVEL_PROCEDURE
3635: ,module =>G_MODULE_NAME||l_api_name
3636: ,message => 'pn_requisition_line_id'||pn_requisition_line_id||' pv_action='||pv_action);
3637: END IF;
3638: IF pr_requisition_line.REQUISITION_LINE_ID IS NULL THEN
3835: process_req_line_inserting(r_requisition_line);
3836: elsif pv_action = JAI_CONSTANTS.updating then
3837: process_req_line_updating(r_requisition_line);
3838: end if;
3839: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3840: FND_LOG.STRING(log_level =>G_LEVEL_PROCEDURE
3841: ,module =>G_MODULE_NAME||l_api_name||'.END'
3842: ,message => G_PKG_NAME||':'||l_api_name||'()+');
3843: END IF;
3836: elsif pv_action = JAI_CONSTANTS.updating then
3837: process_req_line_updating(r_requisition_line);
3838: end if;
3839: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3840: FND_LOG.STRING(log_level =>G_LEVEL_PROCEDURE
3841: ,module =>G_MODULE_NAME||l_api_name||'.END'
3842: ,message => G_PKG_NAME||':'||l_api_name||'()+');
3843: END IF;
3844: EXCEPTION
3843: END IF;
3844: EXCEPTION
3845: WHEN OTHERS THEN
3846: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
3847: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
3848: END IF;
3849: app_exception.raise_exception;
3850: end process_po_req_line;
3851: /*
3912:
3913: l_api_name CONSTANT VARCHAR2(200) := 'process_inserting';
3914:
3915: BEGIN
3916: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3917: FND_LOG.STRING(log_level =>G_LEVEL_PROCEDURE
3918: ,module =>G_MODULE_NAME||l_api_name||'.BEGIN'
3919: ,message => G_PKG_NAME||':'||l_api_name||'()+');
3920: END IF;
3913: l_api_name CONSTANT VARCHAR2(200) := 'process_inserting';
3914:
3915: BEGIN
3916: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3917: FND_LOG.STRING(log_level =>G_LEVEL_PROCEDURE
3918: ,module =>G_MODULE_NAME||l_api_name||'.BEGIN'
3919: ,message => G_PKG_NAME||':'||l_api_name||'()+');
3920: END IF;
3921: /*OPEN get_requesition_info;
3935:
3936: l_func_curr_det := jai_plsql_cache_pkg.return_sob_curr
3937: (p_org_id => pr_requisition_line.Destination_Organization_Id );
3938: v_gl_set_of_bks_id := l_func_curr_det.ledger_id;
3939: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3940: FND_LOG.STRING(log_level =>G_LEVEL_PROCEDURE
3941: ,module =>G_MODULE_NAME||l_api_name
3942: ,message => 'Before insert into JAI_PO_REQ_LINES');
3943: END IF;
3936: l_func_curr_det := jai_plsql_cache_pkg.return_sob_curr
3937: (p_org_id => pr_requisition_line.Destination_Organization_Id );
3938: v_gl_set_of_bks_id := l_func_curr_det.ledger_id;
3939: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3940: FND_LOG.STRING(log_level =>G_LEVEL_PROCEDURE
3941: ,module =>G_MODULE_NAME||l_api_name
3942: ,message => 'Before insert into JAI_PO_REQ_LINES');
3943: END IF;
3944: INSERT INTO JAI_PO_REQ_LINES (
3952: pr_requisition_line.creation_date, pr_requisition_line.created_by, pr_requisition_line.last_update_date,
3953: pr_requisition_line.last_updated_by, pr_requisition_line.last_update_login
3954: );
3955:
3956: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3957: FND_LOG.STRING(log_level =>G_LEVEL_PROCEDURE
3958: ,module =>G_MODULE_NAME||l_api_name
3959: ,message => 'After insert into JAI_PO_REQ_LINES');
3960: END IF;
3953: pr_requisition_line.last_updated_by, pr_requisition_line.last_update_login
3954: );
3955:
3956: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3957: FND_LOG.STRING(log_level =>G_LEVEL_PROCEDURE
3958: ,module =>G_MODULE_NAME||l_api_name
3959: ,message => 'After insert into JAI_PO_REQ_LINES');
3960: END IF;
3961:
3987: SET tax_amount = v_tax_amount,
3988: total_amount = v_total_amount,
3989: tax_category_id=v_tax_category_id
3990: WHERE requisition_line_id = pr_requisition_line.Requisition_Line_Id;
3991: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3992: FND_LOG.STRING(log_level =>G_LEVEL_PROCEDURE
3993: ,module =>G_MODULE_NAME||l_api_name||'.END'
3994: ,message => G_PKG_NAME||':'||l_api_name||'()+');
3995: END IF;
3988: total_amount = v_total_amount,
3989: tax_category_id=v_tax_category_id
3990: WHERE requisition_line_id = pr_requisition_line.Requisition_Line_Id;
3991: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3992: FND_LOG.STRING(log_level =>G_LEVEL_PROCEDURE
3993: ,module =>G_MODULE_NAME||l_api_name||'.END'
3994: ,message => G_PKG_NAME||':'||l_api_name||'()+');
3995: END IF;
3996: EXCEPTION
3995: END IF;
3996: EXCEPTION
3997: WHEN OTHERS THEN
3998: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
3999: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
4000: END IF;
4001: app_exception.raise_exception;
4002: END process_req_line_inserting;
4003: /*
4134:
4135: l_api_name CONSTANT VARCHAR2(200) := 'process_updating';
4136:
4137: BEGIN
4138: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4139: FND_LOG.STRING(log_level =>G_LEVEL_PROCEDURE
4140: ,module =>G_MODULE_NAME||l_api_name||'.BEGIN'
4141: ,message => G_PKG_NAME||':'||l_api_name||'()+');
4142: END IF;
4135: l_api_name CONSTANT VARCHAR2(200) := 'process_updating';
4136:
4137: BEGIN
4138: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4139: FND_LOG.STRING(log_level =>G_LEVEL_PROCEDURE
4140: ,module =>G_MODULE_NAME||l_api_name||'.BEGIN'
4141: ,message => G_PKG_NAME||':'||l_api_name||'()+');
4142: END IF;
4143: /* OPEN get_requesition_info;
4183: OPEN bind_cur;
4184: FETCH Bind_cur INTO v_seg_id, v_type_lookup_code , lv_apps_source_code;
4185: CLOSE bind_cur;
4186:
4187: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4188: FND_LOG.STRING(log_level =>G_LEVEL_PROCEDURE
4189: ,module =>G_MODULE_NAME||l_api_name
4190: ,message => 'Cancel_flag='||pr_requisition_line.cancel_flag);
4191: END IF;
4184: FETCH Bind_cur INTO v_seg_id, v_type_lookup_code , lv_apps_source_code;
4185: CLOSE bind_cur;
4186:
4187: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4188: FND_LOG.STRING(log_level =>G_LEVEL_PROCEDURE
4189: ,module =>G_MODULE_NAME||l_api_name
4190: ,message => 'Cancel_flag='||pr_requisition_line.cancel_flag);
4191: END IF;
4192: IF NVL(pr_requisition_line.cancel_flag,'$') = 'Y' THEN
4189: ,module =>G_MODULE_NAME||l_api_name
4190: ,message => 'Cancel_flag='||pr_requisition_line.cancel_flag);
4191: END IF;
4192: IF NVL(pr_requisition_line.cancel_flag,'$') = 'Y' THEN
4193: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4194: FND_LOG.STRING(log_level =>G_LEVEL_PROCEDURE
4195: ,module =>G_MODULE_NAME||l_api_name
4196: ,message => 'Processing cancelling requistion');
4197: END IF;
4190: ,message => 'Cancel_flag='||pr_requisition_line.cancel_flag);
4191: END IF;
4192: IF NVL(pr_requisition_line.cancel_flag,'$') = 'Y' THEN
4193: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4194: FND_LOG.STRING(log_level =>G_LEVEL_PROCEDURE
4195: ,module =>G_MODULE_NAME||l_api_name
4196: ,message => 'Processing cancelling requistion');
4197: END IF;
4198: DELETE from JAI_PO_REQ_LINE_TAXES
4294: OR v_tax_flag = 'N'
4295: ) THEN
4296: Delete From JAI_PO_REQ_LINE_TAXES
4297: Where Requisition_Line_Id = v_line_id;
4298: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4299: FND_LOG.STRING(log_level =>G_LEVEL_PROCEDURE
4300: ,module =>G_MODULE_NAME||l_api_name
4301: ,message => 'Before call po_req_tax_default');
4302: FND_LOG.STRING(log_level =>G_LEVEL_PROCEDURE
4295: ) THEN
4296: Delete From JAI_PO_REQ_LINE_TAXES
4297: Where Requisition_Line_Id = v_line_id;
4298: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4299: FND_LOG.STRING(log_level =>G_LEVEL_PROCEDURE
4300: ,module =>G_MODULE_NAME||l_api_name
4301: ,message => 'Before call po_req_tax_default');
4302: FND_LOG.STRING(log_level =>G_LEVEL_PROCEDURE
4303: ,module =>G_MODULE_NAME||l_api_name
4298: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4299: FND_LOG.STRING(log_level =>G_LEVEL_PROCEDURE
4300: ,module =>G_MODULE_NAME||l_api_name
4301: ,message => 'Before call po_req_tax_default');
4302: FND_LOG.STRING(log_level =>G_LEVEL_PROCEDURE
4303: ,module =>G_MODULE_NAME||l_api_name
4304: ,message => 'Updating table JAI_PO_REQ_LINES');
4305: END IF;
4306: --Added by Qiong for bug14681309 Begin
4369: total_amount = v_total_amount,
4370: tax_category_id=v_tax_category_id,
4371: currency_code = pr_requisition_line.currency_code
4372: WHERE requisition_line_id = pr_requisition_line.Requisition_Line_Id;
4373: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4374: FND_LOG.STRING(log_level =>G_LEVEL_PROCEDURE
4375: ,module =>G_MODULE_NAME||l_api_name||'.END'
4376: ,message => G_PKG_NAME||':'||l_api_name||'()+');
4377: END IF;
4370: tax_category_id=v_tax_category_id,
4371: currency_code = pr_requisition_line.currency_code
4372: WHERE requisition_line_id = pr_requisition_line.Requisition_Line_Id;
4373: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4374: FND_LOG.STRING(log_level =>G_LEVEL_PROCEDURE
4375: ,module =>G_MODULE_NAME||l_api_name||'.END'
4376: ,message => G_PKG_NAME||':'||l_api_name||'()+');
4377: END IF;
4378: EXCEPTION
4379: WHEN OTHERS THEN
4380:
4381:
4382: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
4383: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
4384: END IF;
4385: app_exception.raise_exception;
4386:
4387: END process_req_line_updating;
4541:
4542: l_api_name CONSTANT VARCHAR2(200) := 'po_req_tax_default';
4543:
4544: BEGIN
4545: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4546: FND_LOG.STRING(log_level =>G_LEVEL_PROCEDURE
4547: ,module =>G_MODULE_NAME||l_api_name||'.BEGIN'
4548: ,message => G_PKG_NAME||':'||l_api_name||'()+');
4549: END IF;
4542: l_api_name CONSTANT VARCHAR2(200) := 'po_req_tax_default';
4543:
4544: BEGIN
4545: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4546: FND_LOG.STRING(log_level =>G_LEVEL_PROCEDURE
4547: ,module =>G_MODULE_NAME||l_api_name||'.BEGIN'
4548: ,message => G_PKG_NAME||':'||l_api_name||'()+');
4549: END IF;
4550: /* OPEN get_requesition_info;
4727:
4728:
4729: END IF;
4730: pn_tax_category_id := v_tax_category_id ;
4731: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4732: FND_LOG.STRING(log_level =>G_LEVEL_PROCEDURE
4733: ,module =>G_MODULE_NAME||l_api_name||'.END'
4734: ,message => G_PKG_NAME||':'||l_api_name||'()+');
4735: END IF;
4728:
4729: END IF;
4730: pn_tax_category_id := v_tax_category_id ;
4731: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4732: FND_LOG.STRING(log_level =>G_LEVEL_PROCEDURE
4733: ,module =>G_MODULE_NAME||l_api_name||'.END'
4734: ,message => G_PKG_NAME||':'||l_api_name||'()+');
4735: END IF;
4736: EXCEPTION
4735: END IF;
4736: EXCEPTION
4737: WHEN OTHERS THEN
4738: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
4739: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
4740: END IF;
4741: END po_req_tax_default;
4742:
4743: /*
4990: tax_cnt NUMBER;
4991: l_api_name CONSTANT VARCHAR2(200) := 'copy_req_to_po';
4992: BEGIN
4993:
4994: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4995: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
4996: END IF;
4997:
4998: v_po_hdr_id := prec_po_location.Po_Header_Id ;
4991: l_api_name CONSTANT VARCHAR2(200) := 'copy_req_to_po';
4992: BEGIN
4993:
4994: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4995: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
4996: END IF;
4997:
4998: v_po_hdr_id := prec_po_location.Po_Header_Id ;
4999: v_po_line_id := prec_po_location.Po_Line_Id ;
5016: CLOSE Fetch_Po_Vendor_Id_Cur;
5017:
5018:
5019: IF jai_cmn_utils_pkg.validate_po_type(p_style_id => v_style_id) = FALSE THEN
5020: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5021: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'style_id:'||to_char(v_style_id)||'validate_po_type is false,return');
5022: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
5023: END IF;
5024: return;
5017:
5018:
5019: IF jai_cmn_utils_pkg.validate_po_type(p_style_id => v_style_id) = FALSE THEN
5020: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5021: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'style_id:'||to_char(v_style_id)||'validate_po_type is false,return');
5022: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
5023: END IF;
5024: return;
5025: END IF;
5018:
5019: IF jai_cmn_utils_pkg.validate_po_type(p_style_id => v_style_id) = FALSE THEN
5020: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5021: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'style_id:'||to_char(v_style_id)||'validate_po_type is false,return');
5022: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
5023: END IF;
5024: return;
5025: END IF;
5026:
5047: FETCH c_get_req_lines INTO rec_req_line;
5048: EXIT WHEN c_get_req_lines%NOTFOUND;
5049:
5050:
5051: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5052: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'v_requisition_line_id:'||to_char(rec_req_line.requisition_line_id));
5053: END IF;
5054:
5055:
5048: EXIT WHEN c_get_req_lines%NOTFOUND;
5049:
5050:
5051: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5052: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'v_requisition_line_id:'||to_char(rec_req_line.requisition_line_id));
5053: END IF;
5054:
5055:
5056: v_requisition_line_id := rec_req_line.Requisition_Line_Id;
5085: OPEN Chk_localization_entry(v_requisition_line_id);
5086: FETCH Chk_localization_entry INTO v_loc_count;
5087: CLOSE Chk_localization_entry;
5088:
5089: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5090: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'override_flag:'||NVL(v_override_flag,'N')||'v_shipment_type:'||v_shipment_type);
5091: END IF;
5092: IF NVL(v_override_flag,'N') = 'Y' AND v_shipment_type <> 'BLANKET' THEN
5093: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5086: FETCH Chk_localization_entry INTO v_loc_count;
5087: CLOSE Chk_localization_entry;
5088:
5089: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5090: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'override_flag:'||NVL(v_override_flag,'N')||'v_shipment_type:'||v_shipment_type);
5091: END IF;
5092: IF NVL(v_override_flag,'N') = 'Y' AND v_shipment_type <> 'BLANKET' THEN
5093: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5094: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||': override_flag is Y and shipment type <> BLANKET, return');
5089: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5090: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'override_flag:'||NVL(v_override_flag,'N')||'v_shipment_type:'||v_shipment_type);
5091: END IF;
5092: IF NVL(v_override_flag,'N') = 'Y' AND v_shipment_type <> 'BLANKET' THEN
5093: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5094: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||': override_flag is Y and shipment type <> BLANKET, return');
5095: END IF;
5096: RETURN;
5097: END IF;
5090: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'override_flag:'||NVL(v_override_flag,'N')||'v_shipment_type:'||v_shipment_type);
5091: END IF;
5092: IF NVL(v_override_flag,'N') = 'Y' AND v_shipment_type <> 'BLANKET' THEN
5093: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5094: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||': override_flag is Y and shipment type <> BLANKET, return');
5095: END IF;
5096: RETURN;
5097: END IF;
5098:
5097: END IF;
5098:
5099: IF v_shipment_type <> 'BLANKET' THEN
5100: IF NVL(v_loc_count,0) = 0 THEN
5101: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5102: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||':shipment type <> BLANKET and no data in JAI req table, return');
5103: END IF;
5104: RETURN;
5105: END IF;
5098:
5099: IF v_shipment_type <> 'BLANKET' THEN
5100: IF NVL(v_loc_count,0) = 0 THEN
5101: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5102: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||':shipment type <> BLANKET and no data in JAI req table, return');
5103: END IF;
5104: RETURN;
5105: END IF;
5106: ELSE
5121: -- so the taxes should get defaulted from SET UP's rather than carrying the reqn taxes to PO Shipment
5122:
5123: IF v_line_loc_cnt > 0 THEN
5124:
5125: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5126: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||':v_line_loc_cnt > 0');
5127: END IF;
5128:
5129:
5122:
5123: IF v_line_loc_cnt > 0 THEN
5124:
5125: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5126: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||':v_line_loc_cnt > 0');
5127: END IF;
5128:
5129:
5130: OPEN c_get_tax_modified_flag ;
5133:
5134:
5135: IF NVL(lv_tax_modified_flag,'N') = 'N' THEN
5136:
5137: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5138: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||':lv_tax_modified_flag = N');
5139: END IF;
5140:
5141: delete_jai_po_lines(pn_line_loc_id => v_line_loc_id);
5134:
5135: IF NVL(lv_tax_modified_flag,'N') = 'N' THEN
5136:
5137: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5138: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||':lv_tax_modified_flag = N');
5139: END IF;
5140:
5141: delete_jai_po_lines(pn_line_loc_id => v_line_loc_id);
5142:
5208: ,pn_vat_assess_value => v_vat_assess_value
5209: );
5210:
5211: END IF ;
5212: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5213: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||'v_line_loc_cnt >0 and after default for tax_modified_flag = N, and return.');
5214: END IF;
5215:
5216: return;
5209: );
5210:
5211: END IF ;
5212: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5213: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||'v_line_loc_cnt >0 and after default for tax_modified_flag = N, and return.');
5214: END IF;
5215:
5216: return;
5217: END IF;
5246: line location id */
5247: SELECT COUNT(1) INTO tax_cnt FROM JAI_PO_TAXES WHERE
5248: Po_Line_Id = v_po_line_id
5249: AND Line_Location_Id = v_line_loc_id;
5250: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5251: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'before insert taxes, tax_cnt is '||tax_cnt);
5252: END IF;
5253:
5254: v_reqn_tax := 0;
5247: SELECT COUNT(1) INTO tax_cnt FROM JAI_PO_TAXES WHERE
5248: Po_Line_Id = v_po_line_id
5249: AND Line_Location_Id = v_line_loc_id;
5250: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5251: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'before insert taxes, tax_cnt is '||tax_cnt);
5252: END IF;
5253:
5254: v_reqn_tax := 0;
5255: OPEN Fetch_Taxes_Cur( v_requisition_line_id );
5257: FETCH Fetch_Taxes_Cur INTO rec_tax;
5258:
5259: EXIT WHEN Fetch_Taxes_Cur%NOTFOUND;
5260: v_reqn_tax := v_reqn_tax + 1;
5261: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5262: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'in fetch_tax_cur loop:v_reqn_tax, '||v_reqn_tax);
5263: END IF;
5264:
5265: OPEN Fetch_Mod_Cr_Cur( rec_tax.tax_id );
5258:
5259: EXIT WHEN Fetch_Taxes_Cur%NOTFOUND;
5260: v_reqn_tax := v_reqn_tax + 1;
5261: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5262: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'in fetch_tax_cur loop:v_reqn_tax, '||v_reqn_tax);
5263: END IF;
5264:
5265: OPEN Fetch_Mod_Cr_Cur( rec_tax.tax_id );
5266: FETCH Fetch_Mod_Cr_Cur INTO v_tax_type, v_mod_cr, v_vendor1_id
5345: CLOSE Fetch_Taxes_Cur;
5346: SELECT COUNT(1) INTO tax_cnt FROM JAI_PO_TAXES WHERE
5347: Po_Line_Id = v_po_line_id
5348: AND Line_Location_Id = v_line_loc_id;
5349: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5350: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'after insert taxes, tax_cnt is '||tax_cnt);
5351: END IF;
5352: if v_reqn_tax > 0 then
5353:
5346: SELECT COUNT(1) INTO tax_cnt FROM JAI_PO_TAXES WHERE
5347: Po_Line_Id = v_po_line_id
5348: AND Line_Location_Id = v_line_loc_id;
5349: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5350: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'after insert taxes, tax_cnt is '||tax_cnt);
5351: END IF;
5352: if v_reqn_tax > 0 then
5353:
5354: /*calculate av and VAT av*/
5365: ,pn_conv_rate => v_curr_conv_factor
5366: ,pn_assessable_value => v_assessable_value
5367: ,pn_vat_assess_value => v_vat_assess_value
5368: );
5369: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5370: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'before calculate_tax ');
5371: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'v_po_hdr_id:'||v_po_hdr_id||'v_po_line_id:'
5372: ||v_po_line_id||'v_line_loc_id'||v_line_loc_id || 'v_quantity:'||v_quantity||
5373: 'line_tot:'||line_tot||'v_uom_code'||v_uom_code||'v_assessable_value:'||v_assessable_value
5366: ,pn_assessable_value => v_assessable_value
5367: ,pn_vat_assess_value => v_vat_assess_value
5368: );
5369: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5370: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'before calculate_tax ');
5371: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'v_po_hdr_id:'||v_po_hdr_id||'v_po_line_id:'
5372: ||v_po_line_id||'v_line_loc_id'||v_line_loc_id || 'v_quantity:'||v_quantity||
5373: 'line_tot:'||line_tot||'v_uom_code'||v_uom_code||'v_assessable_value:'||v_assessable_value
5374: ||'v_vat_assess_value'||v_vat_assess_value||'v_curr_conv_factor'||v_curr_conv_factor);
5367: ,pn_vat_assess_value => v_vat_assess_value
5368: );
5369: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5370: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'before calculate_tax ');
5371: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'v_po_hdr_id:'||v_po_hdr_id||'v_po_line_id:'
5372: ||v_po_line_id||'v_line_loc_id'||v_line_loc_id || 'v_quantity:'||v_quantity||
5373: 'line_tot:'||line_tot||'v_uom_code'||v_uom_code||'v_assessable_value:'||v_assessable_value
5374: ||'v_vat_assess_value'||v_vat_assess_value||'v_curr_conv_factor'||v_curr_conv_factor);
5375:
5435: WHEN OTHERS THEN
5436:
5437:
5438: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
5439: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
5440: END IF;
5441: app_exception.raise_exception;
5442:
5443: END copy_req_to_po;
5475:
5476: l_api_name CONSTANT VARCHAR2(200) := 'cancel_po';
5477: BEGIN
5478:
5479: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5480: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
5481: END IF;
5482:
5483: FOR rec_line_loc IN cur_line_loc
5476: l_api_name CONSTANT VARCHAR2(200) := 'cancel_po';
5477: BEGIN
5478:
5479: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5480: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
5481: END IF;
5482:
5483: FOR rec_line_loc IN cur_line_loc
5484: LOOP
5525: ln_flag NUMBER;
5526: lv_action VARCHAR2(20);
5527: l_api_name CONSTANT VARCHAR2(30) := 'process_release';
5528: BEGIN
5529: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5530: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
5531: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'pn_po_release_id:'||pn_po_release_id||'pv_action:'||pv_action);
5532: END IF;
5533:
5526: lv_action VARCHAR2(20);
5527: l_api_name CONSTANT VARCHAR2(30) := 'process_release';
5528: BEGIN
5529: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5530: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
5531: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'pn_po_release_id:'||pn_po_release_id||'pv_action:'||pv_action);
5532: END IF;
5533:
5534: OPEN c_release_line_locs;
5527: l_api_name CONSTANT VARCHAR2(30) := 'process_release';
5528: BEGIN
5529: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5530: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
5531: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'pn_po_release_id:'||pn_po_release_id||'pv_action:'||pv_action);
5532: END IF;
5533:
5534: OPEN c_release_line_locs;
5535: LOOP
5538: process_po_shipment_line(rec_line_location.line_location_id, NULL , NULL ,pv_action);
5539: END LOOP;
5540: CLOSE c_release_line_locs;
5541:
5542: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5543: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
5544: END IF;
5545: EXCEPTION
5546: WHEN OTHERS THEN
5539: END LOOP;
5540: CLOSE c_release_line_locs;
5541:
5542: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5543: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
5544: END IF;
5545: EXCEPTION
5546: WHEN OTHERS THEN
5547:
5546: WHEN OTHERS THEN
5547:
5548:
5549: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
5550: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
5551: END IF;
5552: app_exception.raise_exception;
5553: END process_release;
5554: /*
5827: v_seq_val NUMBER;
5828: l_api_name CONSTANT VARCHAR2(30) := 'copy_agreement_taxes';
5829:
5830: BEGIN
5831: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5832: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
5833: END IF;
5834:
5835: v_qty := p_qty;
5828: l_api_name CONSTANT VARCHAR2(30) := 'copy_agreement_taxes';
5829:
5830: BEGIN
5831: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5832: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
5833: END IF;
5834:
5835: v_qty := p_qty;
5836: i := 1;
6295: END IF;
6296:
6297:
6298: END IF ;
6299: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6300: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
6301: END IF;
6302: EXCEPTION
6303: WHEN OTHERS THEN
6296:
6297:
6298: END IF ;
6299: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6300: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
6301: END IF;
6302: EXCEPTION
6303: WHEN OTHERS THEN
6304:
6303: WHEN OTHERS THEN
6304:
6305:
6306: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
6307: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
6308: END IF;
6309: app_exception.raise_exception;
6310:
6311: END copy_agreement_taxes;
6425: v_last_upd_by, v_last_upd_login,
6426: v_tax_category_id
6427: );
6428:
6429: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6430: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
6431: END IF;
6432: EXCEPTION
6433: WHEN OTHERS THEN
6426: v_tax_category_id
6427: );
6428:
6429: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6430: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
6431: END IF;
6432: EXCEPTION
6433: WHEN OTHERS THEN
6434:
6433: WHEN OTHERS THEN
6434:
6435:
6436: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
6437: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
6438: END IF;
6439: app_exception.raise_exception;
6440:
6441: END insert_po_taxes;
6445: l_func_curr_det jai_plsql_cache_pkg.func_curr_details;
6446: l_api_name CONSTANT VARCHAR2(200) := 'get_currency_conv_rate';
6447: BEGIN
6448:
6449: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6450: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
6451: END IF;
6452: l_func_curr_det := jai_plsql_cache_pkg.return_sob_curr(p_org_id => v_inv_org_id );
6453:
6446: l_api_name CONSTANT VARCHAR2(200) := 'get_currency_conv_rate';
6447: BEGIN
6448:
6449: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6450: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
6451: END IF;
6452: l_func_curr_det := jai_plsql_cache_pkg.return_sob_curr(p_org_id => v_inv_org_id );
6453:
6454: IF l_func_curr_det.currency_code <> v_currency OR v_currency IS NOT NULL THEN
6464: ELSE
6465: v_conv_rate := 1;
6466: END IF;
6467:
6468: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6469: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||': v_conv_rate is '||v_conv_rate);
6470: END IF;
6471:
6472: RETURN v_conv_rate;
6465: v_conv_rate := 1;
6466: END IF;
6467:
6468: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6469: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||': v_conv_rate is '||v_conv_rate);
6470: END IF;
6471:
6472: RETURN v_conv_rate;
6473: EXCEPTION
6474: WHEN OTHERS THEN
6475:
6476:
6477: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
6478: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
6479: END IF;
6480: app_exception.raise_exception;
6481:
6482: END get_currency_conv_rate;
6511: r_po_line po_lines_all%ROWTYPE;
6512: l_api_name CONSTANT VARCHAR2(30) := 'ref_quotation_related';
6513: BEGIN
6514:
6515: IF (g_level_procedure >= fnd_log.g_current_runtime_level) THEN
6516: fnd_log.STRING(g_level_procedure,g_module_name || l_api_name || '.BEGIN',g_pkg_name || ': ' || l_api_name || '()+');
6517: END IF;
6518: IF pr_po_header.po_header_id IS NOT NULL THEN
6519: r_po_hdr := pr_po_header;
6512: l_api_name CONSTANT VARCHAR2(30) := 'ref_quotation_related';
6513: BEGIN
6514:
6515: IF (g_level_procedure >= fnd_log.g_current_runtime_level) THEN
6516: fnd_log.STRING(g_level_procedure,g_module_name || l_api_name || '.BEGIN',g_pkg_name || ': ' || l_api_name || '()+');
6517: END IF;
6518: IF pr_po_header.po_header_id IS NOT NULL THEN
6519: r_po_hdr := pr_po_header;
6520: IF (g_level_procedure >= fnd_log.g_current_runtime_level) THEN
6516: fnd_log.STRING(g_level_procedure,g_module_name || l_api_name || '.BEGIN',g_pkg_name || ': ' || l_api_name || '()+');
6517: END IF;
6518: IF pr_po_header.po_header_id IS NOT NULL THEN
6519: r_po_hdr := pr_po_header;
6520: IF (g_level_procedure >= fnd_log.g_current_runtime_level) THEN
6521: fnd_log.STRING(g_level_procedure,g_module_name || l_api_name,g_pkg_name || ': ' || l_api_name || 'its called from header trigger.');
6522: END IF;
6523:
6524: ELSIF pr_po_line.po_line_id IS NOT NULL THEN
6517: END IF;
6518: IF pr_po_header.po_header_id IS NOT NULL THEN
6519: r_po_hdr := pr_po_header;
6520: IF (g_level_procedure >= fnd_log.g_current_runtime_level) THEN
6521: fnd_log.STRING(g_level_procedure,g_module_name || l_api_name,g_pkg_name || ': ' || l_api_name || 'its called from header trigger.');
6522: END IF;
6523:
6524: ELSIF pr_po_line.po_line_id IS NOT NULL THEN
6525: OPEN c_po_hdr(pr_po_line.po_header_id);
6525: OPEN c_po_hdr(pr_po_line.po_header_id);
6526: FETCH c_po_hdr INTO r_po_hdr;
6527: CLOSE c_po_hdr;
6528: r_po_line := pr_po_line;
6529: IF (g_level_procedure >= fnd_log.g_current_runtime_level) THEN
6530: fnd_log.STRING(g_level_procedure,g_module_name || l_api_name,g_pkg_name || ': ' || l_api_name || 'its called from line trigger.');
6531: END IF;
6532:
6533: ELSIF pr_po_line_loc.line_location_id IS NOT NULL THEN
6526: FETCH c_po_hdr INTO r_po_hdr;
6527: CLOSE c_po_hdr;
6528: r_po_line := pr_po_line;
6529: IF (g_level_procedure >= fnd_log.g_current_runtime_level) THEN
6530: fnd_log.STRING(g_level_procedure,g_module_name || l_api_name,g_pkg_name || ': ' || l_api_name || 'its called from line trigger.');
6531: END IF;
6532:
6533: ELSIF pr_po_line_loc.line_location_id IS NOT NULL THEN
6534: OPEN c_po_hdr(pr_po_line_loc.po_header_id);
6537:
6538: OPEN c_po_line(pr_po_line_loc.po_line_id);
6539: FETCH c_po_line INTO r_po_line;
6540: CLOSE c_po_line;
6541: IF (g_level_procedure >= fnd_log.g_current_runtime_level) THEN
6542: fnd_log.STRING(g_level_procedure,g_module_name || l_api_name,g_pkg_name || ': ' || l_api_name || 'its called from LLA trigger.');
6543: END IF;
6544:
6545: END IF;
6538: OPEN c_po_line(pr_po_line_loc.po_line_id);
6539: FETCH c_po_line INTO r_po_line;
6540: CLOSE c_po_line;
6541: IF (g_level_procedure >= fnd_log.g_current_runtime_level) THEN
6542: fnd_log.STRING(g_level_procedure,g_module_name || l_api_name,g_pkg_name || ': ' || l_api_name || 'its called from LLA trigger.');
6543: END IF;
6544:
6545: END IF;
6546: lv_type_lookup_code :=r_po_hdr.type_lookup_code;
6552: OR (lv_type_lookup_code IN ( 'STANDARD', 'PLANNED') AND ln_from_line_id IS NOT NULL ) THEN
6553: lb_related := TRUE;
6554: END IF;
6555: -- RETURN TRUE;
6556: IF (g_level_procedure >= fnd_log.g_current_runtime_level) THEN
6557: IF lb_related THEN
6558: fnd_log.STRING(g_level_procedure,g_module_name || l_api_name ||'.END',g_pkg_name || ',lb_related:true '||'type:'||lv_type_lookup_code||'lv_from_type_lookup_code:'||lv_from_type_lookup_code);
6559: ELSE
6560: fnd_log.STRING(g_level_procedure,g_module_name || l_api_name ||'.END',g_pkg_name || ',lb_related:false '||'type:'||lv_type_lookup_code||'lv_from_type_lookup_code:'||lv_from_type_lookup_code);
6554: END IF;
6555: -- RETURN TRUE;
6556: IF (g_level_procedure >= fnd_log.g_current_runtime_level) THEN
6557: IF lb_related THEN
6558: fnd_log.STRING(g_level_procedure,g_module_name || l_api_name ||'.END',g_pkg_name || ',lb_related:true '||'type:'||lv_type_lookup_code||'lv_from_type_lookup_code:'||lv_from_type_lookup_code);
6559: ELSE
6560: fnd_log.STRING(g_level_procedure,g_module_name || l_api_name ||'.END',g_pkg_name || ',lb_related:false '||'type:'||lv_type_lookup_code||'lv_from_type_lookup_code:'||lv_from_type_lookup_code);
6561: END IF;
6562: END IF;
6556: IF (g_level_procedure >= fnd_log.g_current_runtime_level) THEN
6557: IF lb_related THEN
6558: fnd_log.STRING(g_level_procedure,g_module_name || l_api_name ||'.END',g_pkg_name || ',lb_related:true '||'type:'||lv_type_lookup_code||'lv_from_type_lookup_code:'||lv_from_type_lookup_code);
6559: ELSE
6560: fnd_log.STRING(g_level_procedure,g_module_name || l_api_name ||'.END',g_pkg_name || ',lb_related:false '||'type:'||lv_type_lookup_code||'lv_from_type_lookup_code:'||lv_from_type_lookup_code);
6561: END IF;
6562: END IF;
6563:
6564: RETURN lb_related;
6619: v_src_line_id NUMBER;
6620: l_api_name CONSTANT VARCHAR2(30) := 'process_quotation_line';
6621: BEGIN
6622:
6623: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6624: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
6625: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'pv_action:'||pv_action);
6626: END IF;
6627: pv_return_code := jai_constants.successful ;
6620: l_api_name CONSTANT VARCHAR2(30) := 'process_quotation_line';
6621: BEGIN
6622:
6623: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6624: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
6625: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'pv_action:'||pv_action);
6626: END IF;
6627: pv_return_code := jai_constants.successful ;
6628:
6621: BEGIN
6622:
6623: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6624: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
6625: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'pv_action:'||pv_action);
6626: END IF;
6627: pv_return_code := jai_constants.successful ;
6628:
6629: v_po_line_id := r_po_line.Po_Line_Id ;
6821: WHEN OTHERS THEN
6822:
6823:
6824: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
6825: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
6826: END IF;
6827: app_exception.raise_exception;
6828:
6829: END process_quotation_line;
6891: r_po_line PO_LINES_ALL%ROWTYPE;
6892:
6893: l_api_name CONSTANT VARCHAR2(30) := 'process_quotation_line_loc';
6894: BEGIN
6895: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6896: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
6897: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'pv_action:'||pv_action);
6898: END IF;
6899:
6892:
6893: l_api_name CONSTANT VARCHAR2(30) := 'process_quotation_line_loc';
6894: BEGIN
6895: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6896: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
6897: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'pv_action:'||pv_action);
6898: END IF;
6899:
6900: v_hook_value := jai_cmn_hook_pkg.Ja_In_po_line_locations_all(
6893: l_api_name CONSTANT VARCHAR2(30) := 'process_quotation_line_loc';
6894: BEGIN
6895: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6896: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
6897: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'pv_action:'||pv_action);
6898: END IF;
6899:
6900: v_hook_value := jai_cmn_hook_pkg.Ja_In_po_line_locations_all(
6901: po_line_loc_rec.LINE_LOCATION_ID ,
7050: IF pv_action = JAI_CONSTANTS.inserting THEN
7051:
7052: IF is_split_line(v_orig_ship_id, v_po_hdr_id, v_po_line_id) = TRUE THEN
7053: -- process for split line;
7054: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7055: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'v_orig_ship_id:'||v_orig_ship_id||'its split line.');
7056: END IF;
7057:
7058: jai_po_proc_pkg.process_split_line(v_orig_ship_id ,v_line_loc_id,v_qty,v_price,v_type_lookup_code);
7051:
7052: IF is_split_line(v_orig_ship_id, v_po_hdr_id, v_po_line_id) = TRUE THEN
7053: -- process for split line;
7054: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7055: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'v_orig_ship_id:'||v_orig_ship_id||'its split line.');
7056: END IF;
7057:
7058: jai_po_proc_pkg.process_split_line(v_orig_ship_id ,v_line_loc_id,v_qty,v_price,v_type_lookup_code);
7059:
7065: FETCH Fetch_Count_Cur INTO v_count;
7066: CLOSE Fetch_Count_Cur;
7067:
7068: IF v_count > 0 THEN
7069: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7070: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Process for copy documents,copy_source_taxes');
7071: END IF;
7072: v_src_loc_id := get_line_loc_id(v_quot_from_hdr_id ,v_line_num ,v_item_id , v_shipment_num);
7073: v_src_line_id := get_line_id(v_quot_from_hdr_id ,v_line_num );
7066: CLOSE Fetch_Count_Cur;
7067:
7068: IF v_count > 0 THEN
7069: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7070: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Process for copy documents,copy_source_taxes');
7071: END IF;
7072: v_src_loc_id := get_line_loc_id(v_quot_from_hdr_id ,v_line_num ,v_item_id , v_shipment_num);
7073: v_src_line_id := get_line_id(v_quot_from_hdr_id ,v_line_num );
7074: jai_po_proc_pkg.copy_source_taxes(
7097: IF v_type_lookup_code IN ( 'STANDARD', 'PLANNED') AND v_from_line_id IS NOT NULL THEN
7098: OPEN fetch_uomcode_cur;
7099: FETCH fetch_uomcode_cur INTO v_uom_code;
7100: CLOSE fetch_uomcode_cur;
7101: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7102: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Process for copy documents from quotation,copy_quot_taxes');
7103: END IF;
7104: jai_po_proc_pkg.copy_quot_taxes(
7105: p_line_loc_id => v_line_loc_id
7098: OPEN fetch_uomcode_cur;
7099: FETCH fetch_uomcode_cur INTO v_uom_code;
7100: CLOSE fetch_uomcode_cur;
7101: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7102: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Process for copy documents from quotation,copy_quot_taxes');
7103: END IF;
7104: jai_po_proc_pkg.copy_quot_taxes(
7105: p_line_loc_id => v_line_loc_id
7106: ,p_po_hdr_id => v_po_hdr_id
7154: WHEN OTHERS THEN
7155:
7156:
7157: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
7158: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
7159: END IF;
7160: app_exception.raise_exception;
7161:
7162: END process_quotation_line_loc;
7221: v_last_upd_by prec_po_header.Last_Updated_By%TYPE:= prec_po_header.Last_Updated_By;
7222: v_last_upd_login prec_po_header.Last_Update_Login%TYPE:= prec_po_header.Last_Update_Login;
7223: l_api_name CONSTANT VARCHAR2(200) := 'process_vendor_change';
7224: BEGIN
7225: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7226: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'begin');
7227: END IF;
7228:
7229: IF jai_cmn_utils_pkg.validate_po_type(p_style_id => prec_po_header.style_id) = FALSE THEN
7222: v_last_upd_login prec_po_header.Last_Update_Login%TYPE:= prec_po_header.Last_Update_Login;
7223: l_api_name CONSTANT VARCHAR2(200) := 'process_vendor_change';
7224: BEGIN
7225: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7226: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'begin');
7227: END IF;
7228:
7229: IF jai_cmn_utils_pkg.validate_po_type(p_style_id => prec_po_header.style_id) = FALSE THEN
7230: return;
7344: plla.shipment_num = p_ship_num;
7345: ln_line_loc_id NUMBER;
7346: l_api_name CONSTANT VARCHAR2(30) := 'get_line_loc_id';
7347: BEGIN
7348: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7349: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name);
7350: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||'p_from_hdr_id'||p_from_hdr_id);
7351: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||'p_line_num'||p_line_num);
7352: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||'p_item_id'||p_item_id);
7345: ln_line_loc_id NUMBER;
7346: l_api_name CONSTANT VARCHAR2(30) := 'get_line_loc_id';
7347: BEGIN
7348: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7349: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name);
7350: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||'p_from_hdr_id'||p_from_hdr_id);
7351: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||'p_line_num'||p_line_num);
7352: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||'p_item_id'||p_item_id);
7353: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||'p_ship_num'||p_ship_num);
7346: l_api_name CONSTANT VARCHAR2(30) := 'get_line_loc_id';
7347: BEGIN
7348: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7349: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name);
7350: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||'p_from_hdr_id'||p_from_hdr_id);
7351: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||'p_line_num'||p_line_num);
7352: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||'p_item_id'||p_item_id);
7353: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||'p_ship_num'||p_ship_num);
7354:
7347: BEGIN
7348: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7349: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name);
7350: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||'p_from_hdr_id'||p_from_hdr_id);
7351: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||'p_line_num'||p_line_num);
7352: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||'p_item_id'||p_item_id);
7353: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||'p_ship_num'||p_ship_num);
7354:
7355: END IF;
7348: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7349: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name);
7350: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||'p_from_hdr_id'||p_from_hdr_id);
7351: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||'p_line_num'||p_line_num);
7352: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||'p_item_id'||p_item_id);
7353: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||'p_ship_num'||p_ship_num);
7354:
7355: END IF;
7356: OPEN fetch_line_loc_id_cur;
7349: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name);
7350: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||'p_from_hdr_id'||p_from_hdr_id);
7351: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||'p_line_num'||p_line_num);
7352: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||'p_item_id'||p_item_id);
7353: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||'p_ship_num'||p_ship_num);
7354:
7355: END IF;
7356: OPEN fetch_line_loc_id_cur;
7357: FETCH fetch_line_loc_id_cur
7356: OPEN fetch_line_loc_id_cur;
7357: FETCH fetch_line_loc_id_cur
7358: INTO ln_line_loc_id;
7359: CLOSE fetch_line_loc_id_cur;
7360: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7361: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||', the returned ln_line_loc_id:'||ln_line_loc_id);
7362: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
7363: END IF;
7364: RETURN ln_line_loc_id;
7357: FETCH fetch_line_loc_id_cur
7358: INTO ln_line_loc_id;
7359: CLOSE fetch_line_loc_id_cur;
7360: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7361: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||', the returned ln_line_loc_id:'||ln_line_loc_id);
7362: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
7363: END IF;
7364: RETURN ln_line_loc_id;
7365: END get_line_loc_id;
7358: INTO ln_line_loc_id;
7359: CLOSE fetch_line_loc_id_cur;
7360: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7361: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||', the returned ln_line_loc_id:'||ln_line_loc_id);
7362: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
7363: END IF;
7364: RETURN ln_line_loc_id;
7365: END get_line_loc_id;
7366:
7378: AND pha.po_header_id =pla.po_header_id;
7379: l_api_name CONSTANT VARCHAR2(30) := 'get_line_id';
7380: ln_line_id NUMBER;
7381: BEGIN
7382: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7383: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name);
7384: END IF;
7385:
7386: OPEN fetch_line_id_cur;
7379: l_api_name CONSTANT VARCHAR2(30) := 'get_line_id';
7380: ln_line_id NUMBER;
7381: BEGIN
7382: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7383: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name);
7384: END IF;
7385:
7386: OPEN fetch_line_id_cur;
7387: FETCH fetch_line_id_cur INTO ln_line_id;
7386: OPEN fetch_line_id_cur;
7387: FETCH fetch_line_id_cur INTO ln_line_id;
7388: CLOSE fetch_line_id_cur;
7389:
7390: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7391: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||', the returned ln_line_id:'||ln_line_id);
7392: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
7393: END IF;
7394:
7387: FETCH fetch_line_id_cur INTO ln_line_id;
7388: CLOSE fetch_line_id_cur;
7389:
7390: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7391: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||', the returned ln_line_id:'||ln_line_id);
7392: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
7393: END IF;
7394:
7395: RETURN ln_line_id;
7388: CLOSE fetch_line_id_cur;
7389:
7390: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7391: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||', the returned ln_line_id:'||ln_line_id);
7392: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
7393: END IF;
7394:
7395: RETURN ln_line_id;
7396: END get_line_id;
7472: ------------------------------------------------------------------------------------------------------------
7473: 1 15/01/2013 Wenqiong for bug16101649, to avoid trigger mutating, copy this procedure from jai_po_cmn_pkg.locate_source_line
7474: Just PRAGMA AUTONOMOUS_TRANSACTION.
7475: ----------------------------------------------------------------------------------------------------------*/
7476: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7477: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||lv_object_name,G_PKG_NAME||': '||lv_object_name||'Begin');
7478: END IF;
7479: v_quantity := p_line_quantity; --Ramananda for File.Sql.35
7480:
7473: 1 15/01/2013 Wenqiong for bug16101649, to avoid trigger mutating, copy this procedure from jai_po_cmn_pkg.locate_source_line
7474: Just PRAGMA AUTONOMOUS_TRANSACTION.
7475: ----------------------------------------------------------------------------------------------------------*/
7476: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7477: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||lv_object_name,G_PKG_NAME||': '||lv_object_name||'Begin');
7478: END IF;
7479: v_quantity := p_line_quantity; --Ramananda for File.Sql.35
7480:
7481: IF NVL( p_line_id, -999 ) = -999 THEN
7528: p_line_location_id := Llid_tab( i );
7529: END IF;
7530: END IF;
7531: END IF;
7532: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7533: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||lv_object_name,G_PKG_NAME||': '||lv_object_name||'end');
7534: END IF;
7535: EXCEPTION
7536: WHEN OTHERS THEN
7529: END IF;
7530: END IF;
7531: END IF;
7532: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7533: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||lv_object_name,G_PKG_NAME||': '||lv_object_name||'end');
7534: END IF;
7535: EXCEPTION
7536: WHEN OTHERS THEN
7537: p_po_line_id := null;
7585: v_line_loc_id := pr_po_line_loc.LINE_LOCATION_ID;
7586: v_price := pr_po_line_loc.price_override;
7587: v_po_hdr_id := pr_po_line_loc.po_header_id;
7588:
7589: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7590: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||': v_quantity_cancelled,'||v_quantity_cancelled||'v_line_loc_id:'||v_line_loc_id);
7591: END IF;
7592: IF nvl(v_quantity_cancelled,-9999) = nvl(v_qty,0) THEN
7593: /*
7586: v_price := pr_po_line_loc.price_override;
7587: v_po_hdr_id := pr_po_line_loc.po_header_id;
7588:
7589: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7590: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||': v_quantity_cancelled,'||v_quantity_cancelled||'v_line_loc_id:'||v_line_loc_id);
7591: END IF;
7592: IF nvl(v_quantity_cancelled,-9999) = nvl(v_qty,0) THEN
7593: /*
7594: Indicating that the entire line has been cancelled and no receipt has been made for ths line,
7594: Indicating that the entire line has been cancelled and no receipt has been made for ths line,
7595: then delete the line and associated taxes from JAI_PO_LINE_LOCATIONS
7596: and JAI_PO_TAXES and return .
7597: */
7598: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7599: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||': entire line been cancelled.');
7600: END IF;
7601: delete_po_taxes(pn_po_line_id=>v_po_line_id,pn_line_loc_id => v_line_loc_id);
7602:
7595: then delete the line and associated taxes from JAI_PO_LINE_LOCATIONS
7596: and JAI_PO_TAXES and return .
7597: */
7598: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7599: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||': entire line been cancelled.');
7600: END IF;
7601: delete_po_taxes(pn_po_line_id=>v_po_line_id,pn_line_loc_id => v_line_loc_id);
7602:
7603: delete_jai_po_lines(pn_line_loc_id => v_line_loc_id);
7708: v_count NUMBER;
7709: l_api_name CONSTANT VARCHAR2(200) := 'process_distribution_line';
7710: BEGIN
7711:
7712: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7713: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
7714: END IF;
7715: pv_return_code := jai_constants.successful ;
7716: IF nvl(pr_dist.req_distribution_id,0) <> 0 THEN
7709: l_api_name CONSTANT VARCHAR2(200) := 'process_distribution_line';
7710: BEGIN
7711:
7712: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7713: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
7714: END IF;
7715: pv_return_code := jai_constants.successful ;
7716: IF nvl(pr_dist.req_distribution_id,0) <> 0 THEN
7717: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7713: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
7714: END IF;
7715: pv_return_code := jai_constants.successful ;
7716: IF nvl(pr_dist.req_distribution_id,0) <> 0 THEN
7717: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7718: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Its copied from requisition by autocreate.');
7719: END IF;
7720:
7721:
7714: END IF;
7715: pv_return_code := jai_constants.successful ;
7716: IF nvl(pr_dist.req_distribution_id,0) <> 0 THEN
7717: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7718: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Its copied from requisition by autocreate.');
7719: END IF;
7720:
7721:
7722: v_po_line_id := pr_dist.Po_Line_Id ;
7734: v_style_id;
7735: CLOSE get_po_hdr;
7736:
7737: IF jai_cmn_utils_pkg.validate_po_type(p_style_id => v_style_id) = FALSE THEN
7738: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7739: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'style_id:'||to_char(v_style_id)||'validate_po_type is false,return');
7740: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
7741: END IF;
7742:
7735: CLOSE get_po_hdr;
7736:
7737: IF jai_cmn_utils_pkg.validate_po_type(p_style_id => v_style_id) = FALSE THEN
7738: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7739: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'style_id:'||to_char(v_style_id)||'validate_po_type is false,return');
7740: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
7741: END IF;
7742:
7743: return;
7736:
7737: IF jai_cmn_utils_pkg.validate_po_type(p_style_id => v_style_id) = FALSE THEN
7738: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7739: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'style_id:'||to_char(v_style_id)||'validate_po_type is false,return');
7740: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
7741: END IF;
7742:
7743: return;
7744: END IF;
7755: IF nvl(v_override_flag,'N') = 'N' and NVL(v_tax_modified_flag, 'N') = 'N' THEN
7756: delete_po_taxes(pn_po_line_id =>v_po_line_id, pn_line_loc_id => v_line_location_id);
7757: delete_jai_po_lines(pn_line_loc_id =>v_line_location_id);
7758: END IF ;
7759: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7760: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'po_release_id is null, delete jai data before return.');
7761: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
7762: END IF;
7763: return;
7756: delete_po_taxes(pn_po_line_id =>v_po_line_id, pn_line_loc_id => v_line_location_id);
7757: delete_jai_po_lines(pn_line_loc_id =>v_line_location_id);
7758: END IF ;
7759: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7760: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'po_release_id is null, delete jai data before return.');
7761: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
7762: END IF;
7763: return;
7764: ELSE
7757: delete_jai_po_lines(pn_line_loc_id =>v_line_location_id);
7758: END IF ;
7759: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7760: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'po_release_id is null, delete jai data before return.');
7761: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
7762: END IF;
7763: return;
7764: ELSE
7765: OPEN c_loc_line_cnt(v_line_location_id);
7765: OPEN c_loc_line_cnt(v_line_location_id);
7766: FETCH c_loc_line_cnt INTO v_count;
7767: CLOSE c_loc_line_cnt;
7768: IF v_count > 0 THEN
7769: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7770: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'po_release_id is not null and jai data exists, just return.');
7771: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
7772: END IF;
7773: RETURN;
7766: FETCH c_loc_line_cnt INTO v_count;
7767: CLOSE c_loc_line_cnt;
7768: IF v_count > 0 THEN
7769: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7770: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'po_release_id is not null and jai data exists, just return.');
7771: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
7772: END IF;
7773: RETURN;
7774: END IF;
7767: CLOSE c_loc_line_cnt;
7768: IF v_count > 0 THEN
7769: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7770: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'po_release_id is not null and jai data exists, just return.');
7771: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
7772: END IF;
7773: RETURN;
7774: END IF;
7775: END IF;
7796:
7797: END IF;
7798:
7799: END IF;
7800: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7801: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'()-');
7802:
7803: END IF;
7804: EXCEPTION
7797: END IF;
7798:
7799: END IF;
7800: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7801: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'()-');
7802:
7803: END IF;
7804: EXCEPTION
7805: WHEN OTHERS THEN
7805: WHEN OTHERS THEN
7806:
7807: pv_return_code := 'Failure' ;
7808: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
7809: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
7810: END IF;
7811: app_exception.raise_exception;
7812:
7813:
7890: r_po_line PO_LINES_ALL%ROWTYPE;
7891: r_get_po_line_loc_details JAI_PO_LINE_LOCATIONS%ROWTYPE;
7892: l_api_name CONSTANT VARCHAR2(30) := 'process_quotation_line_loc';
7893: BEGIN
7894: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7895: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
7896: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'pv_action:'||pv_action);
7897: END IF;
7898:
7891: r_get_po_line_loc_details JAI_PO_LINE_LOCATIONS%ROWTYPE;
7892: l_api_name CONSTANT VARCHAR2(30) := 'process_quotation_line_loc';
7893: BEGIN
7894: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7895: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
7896: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'pv_action:'||pv_action);
7897: END IF;
7898:
7899: v_hook_value := jai_cmn_hook_pkg.Ja_In_po_line_locations_all(
7892: l_api_name CONSTANT VARCHAR2(30) := 'process_quotation_line_loc';
7893: BEGIN
7894: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7895: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
7896: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'pv_action:'||pv_action);
7897: END IF;
7898:
7899: v_hook_value := jai_cmn_hook_pkg.Ja_In_po_line_locations_all(
7900: po_line_loc_rec.LINE_LOCATION_ID ,
8049: IF pv_action = JAI_CONSTANTS.inserting THEN
8050:
8051: IF is_split_line(v_orig_ship_id, v_po_hdr_id, v_po_line_id) = TRUE THEN
8052: -- process for split line;
8053: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8054: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'v_orig_ship_id:'||v_orig_ship_id||'its split line.');
8055: END IF;
8056:
8057: jai_po_proc_pkg.process_split_line(v_orig_ship_id ,v_line_loc_id,v_qty,v_price,v_type_lookup_code);
8050:
8051: IF is_split_line(v_orig_ship_id, v_po_hdr_id, v_po_line_id) = TRUE THEN
8052: -- process for split line;
8053: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8054: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'v_orig_ship_id:'||v_orig_ship_id||'its split line.');
8055: END IF;
8056:
8057: jai_po_proc_pkg.process_split_line(v_orig_ship_id ,v_line_loc_id,v_qty,v_price,v_type_lookup_code);
8058:
8064: FETCH Fetch_Count_Cur INTO v_count;
8065: CLOSE Fetch_Count_Cur;
8066:
8067: IF v_count > 0 THEN
8068: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8069: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Process for copy documents,copy_source_taxes');
8070: END IF;
8071: v_src_loc_id := get_line_loc_id(v_quot_from_hdr_id ,v_line_num ,v_item_id , v_shipment_num);
8072: v_src_line_id := get_line_id(v_quot_from_hdr_id ,v_line_num );
8065: CLOSE Fetch_Count_Cur;
8066:
8067: IF v_count > 0 THEN
8068: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8069: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Process for copy documents,copy_source_taxes');
8070: END IF;
8071: v_src_loc_id := get_line_loc_id(v_quot_from_hdr_id ,v_line_num ,v_item_id , v_shipment_num);
8072: v_src_line_id := get_line_id(v_quot_from_hdr_id ,v_line_num );
8073: jai_po_proc_pkg.copy_source_taxes(
8096: IF v_type_lookup_code IN ( 'STANDARD', 'PLANNED') AND v_from_line_id IS NOT NULL THEN
8097: OPEN fetch_uomcode_cur;
8098: FETCH fetch_uomcode_cur INTO v_uom_code;
8099: CLOSE fetch_uomcode_cur;
8100: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8101: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Process for copy documents from quotation,copy_quot_taxes');
8102: END IF;
8103: jai_po_proc_pkg.copy_quot_taxes(
8104: p_line_loc_id => v_line_loc_id
8097: OPEN fetch_uomcode_cur;
8098: FETCH fetch_uomcode_cur INTO v_uom_code;
8099: CLOSE fetch_uomcode_cur;
8100: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8101: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Process for copy documents from quotation,copy_quot_taxes');
8102: END IF;
8103: jai_po_proc_pkg.copy_quot_taxes(
8104: p_line_loc_id => v_line_loc_id
8105: ,p_po_hdr_id => v_po_hdr_id
8147: THEN
8148: lv_retro_price_flag := 'Y';
8149: END IF;
8150:
8151: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8152: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'old_price:'||r_get_po_line_loc_details.PRICE_OVERRIDE||'new_price:'||v_price||'lv_retro_price_flag is'||lv_retro_price_flag);
8153: END IF;
8154: -- IF (r_get_po_line_loc_details.quantity <> v_qty OR lv_retro_price_flag = 'Y') THEN
8155:
8148: lv_retro_price_flag := 'Y';
8149: END IF;
8150:
8151: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8152: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'old_price:'||r_get_po_line_loc_details.PRICE_OVERRIDE||'new_price:'||v_price||'lv_retro_price_flag is'||lv_retro_price_flag);
8153: END IF;
8154: -- IF (r_get_po_line_loc_details.quantity <> v_qty OR lv_retro_price_flag = 'Y') THEN
8155:
8156: IF lv_retro_price_flag = 'Y' THEN
8178: WHEN OTHERS THEN
8179:
8180:
8181: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
8182: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
8183: END IF;
8184: app_exception.raise_exception;
8185:
8186: END process_po_line_loc;
8417: tax_cnt NUMBER;
8418: l_api_name CONSTANT VARCHAR2(200) := 'copy_req_tax_to_po';
8419: BEGIN
8420:
8421: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8422: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
8423: END IF;
8424: pv_return_code := jai_constants.successful ;
8425: OPEN c_get_po_line_loc;
8418: l_api_name CONSTANT VARCHAR2(200) := 'copy_req_tax_to_po';
8419: BEGIN
8420:
8421: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8422: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
8423: END IF;
8424: pv_return_code := jai_constants.successful ;
8425: OPEN c_get_po_line_loc;
8426: FETCH c_get_po_line_loc INTO prec_po_location;
8446: CLOSE Fetch_Po_Vendor_Id_Cur;
8447:
8448:
8449: IF jai_cmn_utils_pkg.validate_po_type(p_style_id => v_style_id) = FALSE THEN
8450: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8451: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'style_id:'||to_char(v_style_id)||'validate_po_type is false,return');
8452: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
8453: END IF;
8454: return;
8447:
8448:
8449: IF jai_cmn_utils_pkg.validate_po_type(p_style_id => v_style_id) = FALSE THEN
8450: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8451: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'style_id:'||to_char(v_style_id)||'validate_po_type is false,return');
8452: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
8453: END IF;
8454: return;
8455: END IF;
8448:
8449: IF jai_cmn_utils_pkg.validate_po_type(p_style_id => v_style_id) = FALSE THEN
8450: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8451: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'style_id:'||to_char(v_style_id)||'validate_po_type is false,return');
8452: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
8453: END IF;
8454: return;
8455: END IF;
8456:
8472: CLOSE tax_override_flag_cur;
8473:
8474:
8475:
8476: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8477: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'prec_po_location.line_location_id:'||to_char(prec_po_location.line_location_id));
8478: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'requisition_line_id:'||to_char(prec_po_req_line.requisition_line_id));
8479: END IF;
8480:
8473:
8474:
8475:
8476: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8477: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'prec_po_location.line_location_id:'||to_char(prec_po_location.line_location_id));
8478: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'requisition_line_id:'||to_char(prec_po_req_line.requisition_line_id));
8479: END IF;
8480:
8481:
8474:
8475:
8476: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8477: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'prec_po_location.line_location_id:'||to_char(prec_po_location.line_location_id));
8478: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'requisition_line_id:'||to_char(prec_po_req_line.requisition_line_id));
8479: END IF;
8480:
8481:
8482: v_requisition_line_id := prec_po_req_line.Requisition_Line_Id;
8511: OPEN Chk_localization_entry(v_requisition_line_id);
8512: FETCH Chk_localization_entry INTO v_loc_count;
8513: CLOSE Chk_localization_entry;
8514:
8515: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8516: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'override_flag:'||NVL(v_override_flag,'N')||'v_shipment_type:'||v_shipment_type);
8517: END IF;
8518:
8519: IF NVL(v_override_flag,'N') = 'Y' AND v_shipment_type <> 'BLANKET' THEN
8512: FETCH Chk_localization_entry INTO v_loc_count;
8513: CLOSE Chk_localization_entry;
8514:
8515: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8516: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'override_flag:'||NVL(v_override_flag,'N')||'v_shipment_type:'||v_shipment_type);
8517: END IF;
8518:
8519: IF NVL(v_override_flag,'N') = 'Y' AND v_shipment_type <> 'BLANKET' THEN
8520: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8516: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'override_flag:'||NVL(v_override_flag,'N')||'v_shipment_type:'||v_shipment_type);
8517: END IF;
8518:
8519: IF NVL(v_override_flag,'N') = 'Y' AND v_shipment_type <> 'BLANKET' THEN
8520: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8521: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||': override_flag is Y and shipment type <> BLANKET, return');
8522: END IF;
8523: RETURN;
8524: END IF;
8517: END IF;
8518:
8519: IF NVL(v_override_flag,'N') = 'Y' AND v_shipment_type <> 'BLANKET' THEN
8520: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8521: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||': override_flag is Y and shipment type <> BLANKET, return');
8522: END IF;
8523: RETURN;
8524: END IF;
8525:
8524: END IF;
8525:
8526: IF v_shipment_type <> 'BLANKET' THEN
8527: IF NVL(v_loc_count,0) = 0 THEN
8528: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8529: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||':shipment type <> BLANKET and no data in JAI req table, return');
8530: END IF;
8531: RETURN;
8532: END IF;
8525:
8526: IF v_shipment_type <> 'BLANKET' THEN
8527: IF NVL(v_loc_count,0) = 0 THEN
8528: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8529: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||':shipment type <> BLANKET and no data in JAI req table, return');
8530: END IF;
8531: RETURN;
8532: END IF;
8533: ELSE
8548: -- so the taxes should get defaulted from SET UP's rather than carrying the reqn taxes to PO Shipment
8549:
8550: IF v_line_loc_cnt > 0 THEN
8551:
8552: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8553: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||':v_line_loc_cnt > 0');
8554: END IF;
8555:
8556:
8549:
8550: IF v_line_loc_cnt > 0 THEN
8551:
8552: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8553: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||':v_line_loc_cnt > 0');
8554: END IF;
8555:
8556:
8557: OPEN c_get_tax_modified_flag ;
8560:
8561:
8562: IF NVL(lv_tax_modified_flag,'N') = 'N' THEN
8563:
8564: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8565: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||':lv_tax_modified_flag = N');
8566: END IF;
8567:
8568: delete_jai_po_lines(pn_line_loc_id => v_line_loc_id);
8561:
8562: IF NVL(lv_tax_modified_flag,'N') = 'N' THEN
8563:
8564: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8565: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||':lv_tax_modified_flag = N');
8566: END IF;
8567:
8568: delete_jai_po_lines(pn_line_loc_id => v_line_loc_id);
8569:
8635: ,pn_vat_assess_value => v_vat_assess_value
8636: );
8637:
8638: END IF ;
8639: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8640: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||'v_line_loc_cnt >0 and after default for tax_modified_flag = N, and return.');
8641: END IF;
8642:
8643: return;
8636: );
8637:
8638: END IF ;
8639: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8640: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,G_PKG_NAME||'v_line_loc_cnt >0 and after default for tax_modified_flag = N, and return.');
8641: END IF;
8642:
8643: return;
8644: END IF;
8675: line location id */
8676: SELECT COUNT(1) INTO tax_cnt FROM JAI_PO_TAXES WHERE
8677: Po_Line_Id = v_po_line_id
8678: AND Line_Location_Id = v_line_loc_id;
8679: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8680: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'before insert taxes, tax_cnt is '||tax_cnt);
8681: END IF;
8682:
8683: v_reqn_tax := 0;
8676: SELECT COUNT(1) INTO tax_cnt FROM JAI_PO_TAXES WHERE
8677: Po_Line_Id = v_po_line_id
8678: AND Line_Location_Id = v_line_loc_id;
8679: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8680: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'before insert taxes, tax_cnt is '||tax_cnt);
8681: END IF;
8682:
8683: v_reqn_tax := 0;
8684: OPEN Fetch_Taxes_Cur( v_requisition_line_id );
8686: FETCH Fetch_Taxes_Cur INTO rec_tax;
8687:
8688: EXIT WHEN Fetch_Taxes_Cur%NOTFOUND;
8689: v_reqn_tax := v_reqn_tax + 1;
8690: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8691: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'in fetch_tax_cur loop:v_reqn_tax, '||v_reqn_tax);
8692: END IF;
8693:
8694: OPEN Fetch_Mod_Cr_Cur( rec_tax.tax_id );
8687:
8688: EXIT WHEN Fetch_Taxes_Cur%NOTFOUND;
8689: v_reqn_tax := v_reqn_tax + 1;
8690: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8691: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'in fetch_tax_cur loop:v_reqn_tax, '||v_reqn_tax);
8692: END IF;
8693:
8694: OPEN Fetch_Mod_Cr_Cur( rec_tax.tax_id );
8695: FETCH Fetch_Mod_Cr_Cur INTO v_tax_type, v_mod_cr, v_vendor1_id
8776:
8777: SELECT COUNT(1) INTO tax_cnt FROM JAI_PO_TAXES WHERE
8778: Po_Line_Id = v_po_line_id
8779: AND Line_Location_Id = v_line_loc_id;
8780: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8781: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'after insert taxes, tax_cnt is '||tax_cnt);
8782: END IF;
8783: if v_reqn_tax > 0 then
8784:
8777: SELECT COUNT(1) INTO tax_cnt FROM JAI_PO_TAXES WHERE
8778: Po_Line_Id = v_po_line_id
8779: AND Line_Location_Id = v_line_loc_id;
8780: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8781: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'after insert taxes, tax_cnt is '||tax_cnt);
8782: END IF;
8783: if v_reqn_tax > 0 then
8784:
8785: /*calculate av and VAT av*/
8796: ,pn_conv_rate => v_curr_conv_factor
8797: ,pn_assessable_value => v_assessable_value
8798: ,pn_vat_assess_value => v_vat_assess_value
8799: );
8800: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8801: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'before calculate_tax ');
8802: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'v_po_hdr_id:'||v_po_hdr_id||'v_po_line_id:'
8803: ||v_po_line_id||'v_line_loc_id'||v_line_loc_id || 'v_quantity:'||v_quantity||
8804: 'line_tot:'||line_tot||'v_uom_code'||v_uom_code||'v_assessable_value:'||v_assessable_value
8797: ,pn_assessable_value => v_assessable_value
8798: ,pn_vat_assess_value => v_vat_assess_value
8799: );
8800: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8801: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'before calculate_tax ');
8802: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'v_po_hdr_id:'||v_po_hdr_id||'v_po_line_id:'
8803: ||v_po_line_id||'v_line_loc_id'||v_line_loc_id || 'v_quantity:'||v_quantity||
8804: 'line_tot:'||line_tot||'v_uom_code'||v_uom_code||'v_assessable_value:'||v_assessable_value
8805: ||'v_vat_assess_value'||v_vat_assess_value||'v_curr_conv_factor'||v_curr_conv_factor);
8798: ,pn_vat_assess_value => v_vat_assess_value
8799: );
8800: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8801: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'before calculate_tax ');
8802: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'v_po_hdr_id:'||v_po_hdr_id||'v_po_line_id:'
8803: ||v_po_line_id||'v_line_loc_id'||v_line_loc_id || 'v_quantity:'||v_quantity||
8804: 'line_tot:'||line_tot||'v_uom_code'||v_uom_code||'v_assessable_value:'||v_assessable_value
8805: ||'v_vat_assess_value'||v_vat_assess_value||'v_curr_conv_factor'||v_curr_conv_factor);
8806:
8806:
8807: END IF;
8808: v_tax_amt := NULL;
8809:
8810: jai_cmn_utils_pkg.write_fnd_log_msg('B13440775','14. jai_po_tax_pkg.calculate_tax. ' );
8811:
8812: jai_po_tax_pkg.calculate_tax( 'STANDARDPO',
8813: v_po_hdr_id ,
8814: v_po_line_id,
8850: WHEN OTHERS THEN
8851:
8852: pv_return_code := 'Failure' ;
8853: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
8854: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
8855: END IF;
8856: app_exception.raise_exception;
8857:
8858: END copy_req_tax_to_po;