[Home] [Help]
1: PACKAGE BODY PO_VALIDATION_HELPER AS
2: -- $Header: PO_VALIDATION_HELPER.plb 120.20.12010000.2 2008/11/17 06:09:40 mugoel 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:
1307: AND LINE.po_line_id = SES.num1
1308: AND HEADER.po_header_id = LINE.po_header_id
1309: AND (l_ignore_start_date_flag = 'Y' OR SES.date1 > LINE.start_date)
1310: AND (l_ignore_expiration_date_flag = 'Y' OR SES.date2 < LINE.expiration_date)
1311: AND HEADER.type_lookup_code = c_STANDARD
1312: AND LINE.order_type_lookup_code = c_RATE
1313: ;
1314:
1315: IF PO_LOG.d_stmt THEN
2649:
2650:
2651: --------------------------------------------------------------------------------------------
2652: -- Validate secondary_unit_of_measure.
2653: -- To be called only for BLANKET AND STANDARD.
2654: --------------------------------------------------------------------------------------------
2655: PROCEDURE secondary_unit_of_measure(
2656: p_id_tbl IN po_tbl_number,
2657: p_entity_type IN VARCHAR2,
2871: END IF;
2872:
2873: d_position := 30;
2874:
2875: IF p_doc_type = 'STANDARD' AND
2876: p_secondary_quantity_tbl(i) IS NOT NULL AND
2877: p_secondary_quantity_tbl(i) = 0
2878: THEN
2879: IF (p_entity_type = PO_VALIDATIONS.c_entity_type_line) THEN
2896: -- x_item is not derived for existing items..
2897: IF ((p_create_or_update_item_flag = 'Y' AND p_item_id_tbl(i) IS NULL AND p_item_tbl(i) IS NULL) OR
2898: (p_create_or_update_item_flag = 'N' AND p_item_id_tbl(i) IS NULL )) AND
2899: p_secondary_quantity_tbl(i) IS NOT NULL AND
2900: p_doc_type IN ('STANDARD', 'BLANKET') THEN
2901: IF (p_entity_type = PO_VALIDATIONS.c_entity_type_line) THEN
2902: l_validation_id := PO_VAL_CONSTANTS.c_line_sec_quantity_not_reqd;
2903: ELSE
2904: l_validation_id := PO_VAL_CONSTANTS.c_loc_sec_quantity_not_reqd;
2917: IF l_secondary_unit_of_meas_tbl(i) IS NULL THEN
2918:
2919: d_position := 60;
2920:
2921: IF p_secondary_quantity_tbl(i) IS NOT NULL AND p_doc_type IN ('STANDARD', 'BLANKET') THEN
2922: -- Item is not dual control
2923: IF (p_entity_type = PO_VALIDATIONS.c_entity_type_line) THEN
2924: l_validation_id := PO_VAL_CONSTANTS.c_line_sec_quantity_no_req_uom;
2925: ELSE
2936: ELSE -- l_secondary_unit_of_measure is not null
2937:
2938: d_position := 70;
2939:
2940: IF p_secondary_quantity_tbl(i) IS NULL AND p_doc_type='STANDARD' THEN
2941: -- Secondary Quantity missing for dual control item
2942: IF (p_entity_type = PO_VALIDATIONS.c_entity_type_line) THEN
2943: l_validation_id := PO_VAL_CONSTANTS.c_line_sec_quantity_req_uom;
2944: ELSE
2976: END secondary_quantity;
2977:
2978: --------------------------------------------------------------------------------------------
2979: -- Validate secondary_unit_of_measure for the update case.
2980: -- To be called only for BLANKET AND STANDARD.
2981: --------------------------------------------------------------------------------------------
2982: PROCEDURE secondary_uom_update(
2983: p_id_tbl IN po_tbl_number,
2984: p_entity_type IN VARCHAR2,
3068: -- If grade is populated, then check whether item is lot grade controlled for the FSP
3069: -- validation organization. If item is not lot controlled grade enabled then log an
3070: -- exception error out. Otherwise validate the grade value against the grade master.
3071: -- If grade doesn't exist in the grade master table then log an exception error out.
3072: -- To be called only for BLANKET and STANDARD.
3073: --------------------------------------------------------------------------------------------
3074: PROCEDURE preferred_grade(
3075: p_id_tbl IN po_tbl_number,
3076: p_entity_type IN VARCHAR2,