65 lines
3.1 KiB
Plaintext
65 lines
3.1 KiB
Plaintext
CREATE OR REPLACE TRIGGER EFT_NOM.POI_AUDIT_SYUS
|
|
|
|
AFTER INSERT
|
|
ON SYSTEM_USERS
|
|
FOR EACH ROW
|
|
DECLARE
|
|
|
|
--
|
|
CURSOR c_inte(cp_inte_id IN intermediaries.inte_id%TYPE) IS
|
|
SELECT name
|
|
FROM intermediaries
|
|
WHERE inte_id = :new.inte_id;
|
|
--
|
|
CURSOR c_cust(cp_cust_id IN customers.cust_id%TYPE) IS
|
|
SELECT name
|
|
FROM customers
|
|
WHERE cust_id = :new.cust_id;
|
|
|
|
l_inte_name_new intermediaries.name%TYPE;
|
|
l_Cust_name_new customers.name%TYPE;
|
|
--
|
|
BEGIN
|
|
--
|
|
OPEN c_inte(:new.inte_id);
|
|
FETCH c_inte INTO l_inte_name_new;
|
|
CLOSE c_inte;
|
|
--
|
|
OPEN c_cust(:new.cust_id);
|
|
FETCH c_cust INTO l_cust_name_new;
|
|
CLOSE c_cust;
|
|
--
|
|
amfr_journal.log_transaction('INSERT',
|
|
'SYSTEM_USERS',
|
|
amfr_journal.g_name_value_tab,
|
|
name_value_tab(
|
|
name_value_rec('USER IDENTIFIER',:new.SYUS_ID),
|
|
name_value_rec('DATABASE USERNAME',:new.DB_USERNAME),
|
|
name_value_rec('FIRST NAME',:new.FIRST_NAME),
|
|
name_value_rec('LAST NAME',:new.LAST_NAME),
|
|
name_value_rec('EMAIL ADDRESS',:new.EMAIL_ADDRESS),
|
|
name_value_rec('TELEPHONE',:new.CONTACT_TELEPHONE),
|
|
name_value_rec('MOBILE TELEPHONE',:new.MOBILE_TEL_NUMBER),
|
|
name_value_rec('FAX',:new.CONTACT_FAX),
|
|
name_value_rec('PERIOD_START',:new.PERIOD_START),
|
|
name_value_rec('PERIOD_END',:new.PERIOD_END),
|
|
name_value_rec('CREATED_BY',:new.CREATED_BY),
|
|
name_value_rec('CREATED_ON',:new.CREATED_ON),
|
|
name_value_rec('POSITION',:new.DESIGNATION),
|
|
name_value_rec('USER DESCRIPTION',:new.DESCRIPTION),
|
|
name_value_rec('UPDATED_BY',:new.UPDATED_BY),
|
|
name_value_rec('UPDATED_ON',:new.UPDATED_ON),
|
|
name_value_rec('TITLE',:new.TITLE),
|
|
name_value_rec('INTERMEDIARY',l_inte_name_new),
|
|
name_value_rec('CUSTOMER',l_cust_name_new),
|
|
name_value_rec('PASSWORD_EXPIRES',:new.PASSWORD_EXPIRES),
|
|
name_value_rec('GRACE_LOGINS',:new.GRACE_LOGINS),
|
|
name_value_rec('USER_LOCKED',:new.USER_LOCKED),
|
|
name_value_rec('LANGUAGE',:new.LANGUAGE)
|
|
)
|
|
);
|
|
--
|
|
END;
|
|
/
|
|
|