2090: --| Validates commodity_code |
2091: --| |
2092: --| DESCRIPTION |
2093: --| This function validates that Commodity Code exists on |
2094: --| ic_comd_cds and it is non blank if SY$INTRASTAT = 1 |
2095: --| |
2096: --| PARAMETERS |
2097: --| p_commodity_code IN VARCHAR2(9) - Commodity Code |
2098: --| p_sy$intrast IN VARCHAR2(40) - Intrastat Indicator |
2111: )
2112: RETURN BOOLEAN
2113: IS
2114: l_commodity_code ic_item_mst.commodity_code%TYPE;
2115: CURSOR ic_comd_cds_c1 IS
2116: SELECT
2117: commodity_code
2118: FROM
2119: ic_comd_cds
2115: CURSOR ic_comd_cds_c1 IS
2116: SELECT
2117: commodity_code
2118: FROM
2119: ic_comd_cds
2120: WHERE
2121: ic_comd_cds.commodity_code = p_commodity_code
2122: AND ic_comd_cds.delete_mark = 0;
2123:
2117: commodity_code
2118: FROM
2119: ic_comd_cds
2120: WHERE
2121: ic_comd_cds.commodity_code = p_commodity_code
2122: AND ic_comd_cds.delete_mark = 0;
2123:
2124: BEGIN
2125:
2118: FROM
2119: ic_comd_cds
2120: WHERE
2121: ic_comd_cds.commodity_code = p_commodity_code
2122: AND ic_comd_cds.delete_mark = 0;
2123:
2124: BEGIN
2125:
2126: IF (p_commodity_code = ' ' OR p_commodity_code IS NULL) AND
2132: THEN
2133: RETURN FALSE;
2134: END IF;
2135:
2136: OPEN ic_comd_cds_c1;
2137: FETCH ic_comd_cds_c1 INTO l_commodity_code;
2138: IF (ic_comd_cds_c1%NOTFOUND)
2139: THEN
2140: CLOSE ic_comd_cds_c1;
2133: RETURN FALSE;
2134: END IF;
2135:
2136: OPEN ic_comd_cds_c1;
2137: FETCH ic_comd_cds_c1 INTO l_commodity_code;
2138: IF (ic_comd_cds_c1%NOTFOUND)
2139: THEN
2140: CLOSE ic_comd_cds_c1;
2141: RETURN FALSE;
2134: END IF;
2135:
2136: OPEN ic_comd_cds_c1;
2137: FETCH ic_comd_cds_c1 INTO l_commodity_code;
2138: IF (ic_comd_cds_c1%NOTFOUND)
2139: THEN
2140: CLOSE ic_comd_cds_c1;
2141: RETURN FALSE;
2142: ELSE
2136: OPEN ic_comd_cds_c1;
2137: FETCH ic_comd_cds_c1 INTO l_commodity_code;
2138: IF (ic_comd_cds_c1%NOTFOUND)
2139: THEN
2140: CLOSE ic_comd_cds_c1;
2141: RETURN FALSE;
2142: ELSE
2143: CLOSE ic_comd_cds_c1;
2144: RETURN TRUE;
2139: THEN
2140: CLOSE ic_comd_cds_c1;
2141: RETURN FALSE;
2142: ELSE
2143: CLOSE ic_comd_cds_c1;
2144: RETURN TRUE;
2145: END IF;
2146:
2147: EXCEPTION