git-svn-id: http://locode01.ad.dom/svn/WEBMIP/trunk@50874 248e525c-4dfb-0310-94bc-949c084e9493

2012-03-19 11:57:19 +00:00
parent 2a0f4900c3
commit 0e9ca75d77
1587 changed files with 500863 additions and 0 deletions
--- a/Data/BulkLoad/EFT/Nominations/plsql/cafo_session_variables.bdy
+++ b/Data/BulkLoad/EFT/Nominations/plsql/cafo_session_variables.bdy
@@ -0,0 +1,204 @@
+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;
+/
+