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

Data/BulkLoad/EFT/Nominations/plsql/pod_audit_inus.trg

@@ -0,0 +1,47 @@
+CREATE OR REPLACE TRIGGER EFT_NOM.POD_AUDIT_INUS
+
+ AFTER DELETE
+ ON INTERMEDIARY_USERS
+ FOR EACH ROW
+DECLARE
+
+  --
+  CURSOR c_syus IS
+    SELECT db_username
+    FROM   system_users
+    WHERE  syus_id = :old.syus_id;
+  --
+  CURSOR c_inte IS
+    SELECT name
+    FROM   intermediaries
+    WHERE  inte_id = :old.inte_id;
+  --
+  l_db_username system_users.db_username%TYPE;
+  l_inte_name intermediaries.name%TYPE;
+  --
+BEGIN
+  --
+  OPEN c_syus;
+  FETCH c_syus INTO l_db_username;
+  CLOSE c_syus;
+  --
+  OPEN c_inte;
+  FETCH c_inte INTO l_inte_name;
+  CLOSE c_inte;
+  --
+  amfr_journal.log_transaction('DELETE',
+                               'INTERMEDIARY_USERS',
+                               name_value_tab(
+                                              name_value_rec('DB USERNAME',l_db_username),
+                                              name_value_rec('INTERMEDIARY',l_inte_name),
+                                              name_value_rec('CREATED_BY',:old.CREATED_BY),
+                                              name_value_rec('CREATED_ON',:old.CREATED_ON),
+                                              name_value_rec('UPDATED_BY',:old.UPDATED_BY),
+                                              name_value_rec('UPDATED_ON',:old.UPDATED_ON)
+                                              ),
+                               amfr_journal.G_name_value_tab
+                              );
+  --
+END;
+/
+