77:
78: --bug2880298 start
79:
80: l_req_enc_flag financials_system_parameters.req_encumbrance_flag%TYPE;
81: l_enf_vendor_hold_flag po_system_parameters.enforce_vendor_hold_flag%TYPE;
82:
83: -- bug2880298 end
84:
85: --
107: x_expense_accrual_code,
108: l_req_enc_flag, --bug2880298
109: l_enf_vendor_hold_flag --bug2880298
110: FROM FINANCIALS_SYSTEM_PARAMETERS FSP,
111: PO_SYSTEM_PARAMETERS POSP;
112:
113: IF SQL%NOTFOUND THEN
114: RAISE NO_DATA_FOUND;
115: END IF;
697:
698: x_release_num number := 0;
699: x_purch_encumbrance_flag varchar2(1) := 'N';
700: x_pay_on_code varchar2(25) := '';
701: x_acceptance_required_flag po_system_parameters.acceptance_required_flag%TYPE; /*Bug7668178*/
702:
703: BEGIN
704:
705: SELECT NVL(PURCH_ENCUMBRANCE_FLAG,'N')
705: SELECT NVL(PURCH_ENCUMBRANCE_FLAG,'N')
706: INTO x_purch_encumbrance_flag
707: FROM FINANCIALS_SYSTEM_PARAMETERS;
708:
709: /*Bug7668178: Get the default Acceptance Required Flag value from PO System Parameters */
710:
711: SELECT Decode(acceptance_required_flag,'D','Y','Y','Y','S','Y','N')
712: INTO x_acceptance_required_flag
713: FROM po_system_parameters;
709: /*Bug7668178: Get the default Acceptance Required Flag value from PO System Parameters */
710:
711: SELECT Decode(acceptance_required_flag,'D','Y','Y','Y','S','Y','N')
712: INTO x_acceptance_required_flag
713: FROM po_system_parameters;
714:
715:
716: IF (req_line.doc_generation_method = 'CREATE_AND_APPROVE' AND
717: x_purch_encumbrance_flag = 'N')
835: IS
836: l_api_name CONSTANT VARCHAR2(30) := 'create_release_shipment';
837:
838: x_ship_to_location_id number := 0;
839: x_taxable_flag po_system_parameters.taxable_flag%type;
840: x_shipment_num number := 0;
841: rcv_controls rcv_control_type;
842: x_conversion_rate number := 1;
843: x_best_price number :=0;
1790: into rcv_controls.inspection_required_flag,
1791: rcv_controls.receipt_required_flag,
1792: rcv_controls.invoice_close_tolerance,
1793: rcv_controls.receipt_close_tolerance
1794: from po_system_parameters posp;
1795:
1796: IF (rcv_controls.inspection_required_flag is NULL) THEN
1797: rcv_controls.inspection_required_flag := 'N';
1798: END IF;
2448: l_textline po_online_report_text.text_line%TYPE := NULL;
2449: l_api_name CONSTANT varchar2(40) := 'CHECK_REL_REQPRICE';
2450: l_progress VARCHAR2(3);
2451:
2452: l_enforce_price_tolerance po_system_parameters.enforce_price_change_allowance%TYPE;
2453: l_enforce_price_amount po_system_parameters.enforce_price_change_amount%TYPE;
2454: l_amount_tolerance po_system_parameters.price_change_amount%TYPE;
2455:
2456: TYPE unit_of_measure IS TABLE of PO_LINES.unit_meas_lookup_code%TYPE;
2449: l_api_name CONSTANT varchar2(40) := 'CHECK_REL_REQPRICE';
2450: l_progress VARCHAR2(3);
2451:
2452: l_enforce_price_tolerance po_system_parameters.enforce_price_change_allowance%TYPE;
2453: l_enforce_price_amount po_system_parameters.enforce_price_change_amount%TYPE;
2454: l_amount_tolerance po_system_parameters.price_change_amount%TYPE;
2455:
2456: TYPE unit_of_measure IS TABLE of PO_LINES.unit_meas_lookup_code%TYPE;
2457: TYPE NumTab IS TABLE of NUMBER;
2450: l_progress VARCHAR2(3);
2451:
2452: l_enforce_price_tolerance po_system_parameters.enforce_price_change_allowance%TYPE;
2453: l_enforce_price_amount po_system_parameters.enforce_price_change_amount%TYPE;
2454: l_amount_tolerance po_system_parameters.price_change_amount%TYPE;
2455:
2456: TYPE unit_of_measure IS TABLE of PO_LINES.unit_meas_lookup_code%TYPE;
2457: TYPE NumTab IS TABLE of NUMBER;
2458: l_ship_price_in_base_curr NumTab;
2564: nvl(price_change_amount, -1)
2565: INTO l_enforce_price_tolerance,
2566: l_enforce_price_amount,
2567: l_amount_tolerance
2568: FROM po_system_parameters;
2569:
2570: l_progress := '001';
2571: IF g_fnd_debug = 'Y' THEN
2572: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2666: SELECT NVL(MSI.price_tolerance_percent/100,
2667: NVL(POSP.price_change_allowance/100,-1))
2668: INTO l_price_tolerance_allowed
2669: FROM MTL_SYSTEM_ITEMS MSI,
2670: PO_SYSTEM_PARAMETERS POSP,
2671: FINANCIALS_SYSTEM_PARAMETERS FSP
2672: WHERE msi.inventory_item_id(+) = l_item_id(shipment_line)
2673: AND MSI.organization_id(+) = FSP.inventory_organization_id;
2674:
2782: --do the amount check
2783: --makes sure the requisition amount and
2784: --PO amount for each shipment line is within the value
2785: --defined in the column PRICE_CHANGE_AMOUNT of table
2786: --PO_SYSTEM_PARAMETERS.
2787: IF ((l_ship_price_ext_precn -
2788: (l_req_line_unit_price(req_line) *
2789: l_shipment_to_req_rate))
2790: * l_po_req_quantity(req_line)