CREATE OR REPLACE FUNCTION GET_COLOR_NO(
    DATA_SRC IN VARCHAR2, 
    ITEM_NO IN NUMBER, 
    ITEM_TARGET_NO IN NUMBER, 
    VAL IN NUMBER) 
    RETURN NUMBER
IS
    COLOR_NO NUMBER;
BEGIN
    SELECT
        B.KBN INTO COLOR_NO
    FROM 
        EX_DSOURCEC A
        LEFT OUTER JOIN EX_SYSNAME B ON
            B.MEIKBN = '�F'
            AND B.MEICD = A.COLORCD
    WHERE 
        A.DSOURCEID = DATA_SRC
        AND A.KOUMOKUNO = ITEM_NO
        AND A.KOUMOKUNO2 = ITEM_TARGET_NO
        AND VAL >= A.RANGE_FROM
        AND VAL <= A.RANGE_TO
    ;
    RETURN COLOR_NO;
END;

CREATE OR REPLACE FUNCTION GET_COLOR_CODE(
    DATA_SRC IN VARCHAR2, 
    ITEM_NO IN NUMBER, 
    ITEM_TARGET_NO IN NUMBER, 
    VAL IN NUMBER) 
    RETURN VARCHAR2
IS
    COLOR_CODE VARCHAR2(10);
BEGIN
    SELECT
        B.SETVAL INTO COLOR_CODE
    FROM 
        EX_DSOURCEC A
        LEFT OUTER JOIN EX_SYSNAME B ON
            B.MEIKBN = '�F'
            AND B.MEICD = A.COLORCD
    WHERE 
        A.DSOURCEID = DATA_SRC
        AND A.KOUMOKUNO = ITEM_NO
        AND A.KOUMOKUNO2 = ITEM_TARGET_NO
        AND VAL >= A.RANGE_FROM
        AND VAL <= A.RANGE_TO
    ;
    RETURN COLOR_CODE;
END;