CREATE OR REPLACE PACKAGE BODY EFT_NOM.cafo_session_variables IS

g_user_rec t_user_rec;
---------------------------------------------------

FUNCTION getsyus RETURN VARCHAR2 IS

  CURSOR cur_syus_id IS
  SELECT syus_id
  FROM   system_users
  WHERE  UPPER(db_username) = UPPER(USER);

  v_syus_id SYSTEM_USERS.SYUS_ID%TYPE;

BEGIN

/*  OPEN  cur_syus_id;
  FETCH cur_syus_id INTO v_syus_id;
  IF    cur_syus_id%FOUND THEN
    CLOSE cur_syus_id;
    RETURN v_syus_id;
  ELSE
    CLOSE cur_syus_id;
    RETURN '0';
  END IF; */

  RETURN caco_utilities.get_syus_id;

END getsyus;

FUNCTION getcust RETURN VARCHAR2 IS

  CURSOR cur_cust_id (b_syus_id VARCHAR2)IS
  SELECT cust_id
  FROM   system_users
  WHERE  syus_id = b_syus_id;

  v_cust_id SYSTEM_USERS.CUST_ID%TYPE;
  v_syus_id SYSTEM_USERS.SYUS_ID%TYPE;

BEGIN

/*  v_syus_id := cafo_session_variables.getsyus;

  OPEN  cur_cust_id (v_syus_id);
  FETCH cur_cust_id INTO v_cust_id;
  IF    cur_cust_id%FOUND THEN
    CLOSE  cur_cust_id;
    RETURN v_cust_id;
  ELSE
    CLOSE  cur_cust_id;
    RETURN '0';
  END IF; */

  RETURN caco_utilities.get_cust_id;

END getcust;

FUNCTION getcustname RETURN VARCHAR2 IS

  v_cust VARCHAR2(40);

  CURSOR cur_name (b_id VARCHAR2)IS
  SELECT name
  FROM   customers
  WHERE  cust_id = to_number(b_id);

BEGIN

  OPEN  cur_name(cafo_session_variables.getcust);
  FETCH cur_name INTO v_cust;
  IF cur_name%FOUND THEN
    CLOSE cur_name;
    RETURN v_cust;
  ELSE
    CLOSE cur_name;
    RETURN '0';
  END IF;
END;

FUNCTION getinte RETURN VARCHAR2 IS

  CURSOR cur_inte_id (b_syus_id VARCHAR2)IS
  SELECT inte_id
  FROM   system_users
  WHERE  syus_id = b_syus_id;

  v_inte_id SYSTEM_USERS.CUST_ID%TYPE;

BEGIN

/*  OPEN  cur_inte_id(cafo_session_variables.getsyus);
  FETCH cur_inte_id INTO v_inte_id;
  IF    cur_inte_id%FOUND THEN
    CLOSE  cur_inte_id;
    RETURN v_inte_id;
  ELSE
    CLOSE  cur_inte_id;
    RETURN '0';
  END IF; */

  RETURN caco_utilities.get_inte_id;

END getinte;

FUNCTION getintename RETURN VARCHAR2 IS

  v_inte VARCHAR2(40);

  CURSOR cur_name (b_id VARCHAR2)IS
  SELECT name
  FROM   intermediaries
  WHERE  inte_id = to_number(b_id);

BEGIN

  OPEN  cur_name(cafo_session_variables.getinte);
  FETCH cur_name INTO v_inte;
  IF cur_name%FOUND THEN
    RETURN v_inte;
    CLOSE cur_name;
  ELSE
    RETURN '0';
    CLOSE cur_name;
  END IF;

END;

PROCEDURE setinte (p_id NUMBER) IS

  v_syus_id SYSTEM_USERS.SYUS_ID%TYPE;

BEGIN

  v_syus_id := cafo_session_variables.getsyus;
  IF v_syus_id != 0 THEN
    --dbms_output.put_line(v_syus_id||'*'||p_id);
    UPDATE system_users
    SET    inte_id = to_number(p_id)
    WHERE  syus_id = to_number(v_syus_id);
    COMMIT;
  END IF;

END;

PROCEDURE setcust (p_id NUMBER) IS

  v_syus_id SYSTEM_USERS.SYUS_ID%TYPE;

BEGIN

  v_syus_id := cafo_session_variables.getsyus;
  IF v_syus_id != 0 THEN
    --dbms_output.put_line(v_syus_id||'*'||p_id);
    UPDATE system_users
    SET    cust_id = to_number(p_id)
    WHERE  syus_id = to_number(v_syus_id);
    COMMIT;
  END IF;

END;

PROCEDURE setdetails (p_cust NUMBER
                     ,p_inte NUMBER) IS

  v_syus_id SYSTEM_USERS.SYUS_ID%TYPE;

BEGIN

  v_syus_id := cafo_session_variables.getsyus;
  IF v_syus_id != 0 THEN
    --dbms_output.put_line(v_syus_id||'*'||p_id);
    UPDATE system_users
    SET    cust_id = to_number(p_cust)
          ,inte_id = to_number(p_inte)
    WHERE  syus_id = to_number(v_syus_id);
    COMMIT;
  END IF;

END;

-----------------------------------------------------
PROCEDURE setcookies IS

BEGIN

  NULL;
END;

-- produce user rec to match up to the cafo_session_variables
FUNCTION  get_user_rec
RETURN    t_user_rec
IS
BEGIN
   g_user_rec.syus_id             := to_number(getsyus);
   g_user_rec.inte_id             := to_number(getinte);
   g_user_rec.cust_id_employer    := to_number(getcust);
   g_user_rec.cust_id_on_behalf   := to_number(getcust);
   RETURN g_user_rec;
END get_user_rec;

END cafo_session_variables;
/