[Home] [Help]
1: PACKAGE BODY PO_VALIDATION_HELPER AS
2: -- $Header: PO_VALIDATION_HELPER.plb 120.26.12020000.8 2013/04/03 22:24:34 rarajar ship $
3:
4: c_STANDARD CONSTANT VARCHAR2(30) := 'STANDARD';
5: c_RATE CONSTANT VARCHAR2(30) := 'RATE';
6: c_FIXED_PRICE CONSTANT VARCHAR2(30) := 'FIXED PRICE';
7: c_NEW CONSTANT VARCHAR2(30) := 'NEW';
8:
1461: AND LINE.po_line_id = SES.num1
1462: AND HEADER.po_header_id = LINE.po_header_id
1463: AND (l_ignore_start_date_flag = 'Y' OR SES.date1 > LINE.start_date)
1464: AND (l_ignore_expiration_date_flag = 'Y' OR SES.date2 < LINE.expiration_date)
1465: AND HEADER.type_lookup_code = c_STANDARD
1466: AND LINE.order_type_lookup_code = c_RATE
1467: ;
1468:
1469: IF PO_LOG.d_stmt THEN
2836:
2837:
2838: --------------------------------------------------------------------------------------------
2839: -- Validate secondary_unit_of_measure.
2840: -- To be called only for BLANKET AND STANDARD.
2841: --------------------------------------------------------------------------------------------
2842: PROCEDURE secondary_unit_of_measure(
2843: p_id_tbl IN po_tbl_number,
2844: p_entity_type IN VARCHAR2,
3058: END IF;
3059:
3060: d_position := 30;
3061:
3062: IF p_doc_type = 'STANDARD' AND
3063: p_secondary_quantity_tbl(i) IS NOT NULL AND
3064: p_secondary_quantity_tbl(i) = 0
3065: THEN
3066: IF (p_entity_type = PO_VALIDATIONS.c_entity_type_line) THEN
3083: -- x_item is not derived for existing items..
3084: IF ((p_create_or_update_item_flag = 'Y' AND p_item_id_tbl(i) IS NULL AND p_item_tbl(i) IS NULL) OR
3085: (p_create_or_update_item_flag = 'N' AND p_item_id_tbl(i) IS NULL )) AND
3086: p_secondary_quantity_tbl(i) IS NOT NULL AND
3087: p_doc_type IN ('STANDARD', 'BLANKET') THEN
3088: IF (p_entity_type = PO_VALIDATIONS.c_entity_type_line) THEN
3089: l_validation_id := PO_VAL_CONSTANTS.c_line_sec_quantity_not_reqd;
3090: ELSE
3091: l_validation_id := PO_VAL_CONSTANTS.c_loc_sec_quantity_not_reqd;
3104: IF l_secondary_unit_of_meas_tbl(i) IS NULL THEN
3105:
3106: d_position := 60;
3107:
3108: IF p_secondary_quantity_tbl(i) IS NOT NULL AND p_doc_type IN ('STANDARD', 'BLANKET') THEN
3109: -- Item is not dual control
3110: IF (p_entity_type = PO_VALIDATIONS.c_entity_type_line) THEN
3111: l_validation_id := PO_VAL_CONSTANTS.c_line_sec_quantity_no_req_uom;
3112: ELSE
3123: ELSE -- l_secondary_unit_of_measure is not null
3124:
3125: d_position := 70;
3126:
3127: IF p_secondary_quantity_tbl(i) IS NULL AND p_doc_type='STANDARD' THEN
3128: -- Secondary Quantity missing for dual control item
3129: IF (p_entity_type = PO_VALIDATIONS.c_entity_type_line) THEN
3130: l_validation_id := PO_VAL_CONSTANTS.c_line_sec_quantity_req_uom;
3131: ELSE
3163: END secondary_quantity;
3164:
3165: --------------------------------------------------------------------------------------------
3166: -- Validate secondary_unit_of_measure for the update case.
3167: -- To be called only for BLANKET AND STANDARD.
3168: --------------------------------------------------------------------------------------------
3169: PROCEDURE secondary_uom_update(
3170: p_id_tbl IN po_tbl_number,
3171: p_entity_type IN VARCHAR2,
3255: -- If grade is populated, then check whether item is lot grade controlled for the FSP
3256: -- validation organization. If item is not lot controlled grade enabled then log an
3257: -- exception error out. Otherwise validate the grade value against the grade master.
3258: -- If grade doesn't exist in the grade master table then log an exception error out.
3259: -- To be called only for BLANKET and STANDARD.
3260: --------------------------------------------------------------------------------------------
3261: PROCEDURE preferred_grade(
3262: p_id_tbl IN po_tbl_number,
3263: p_entity_type IN VARCHAR2,