190 lines
8.1 KiB
Plaintext
190 lines
8.1 KiB
Plaintext
CREATE OR REPLACE TRIGGER EFT_NOM.cg$BIR_SYSTEM_USERS
|
|
|
|
BEFORE INSERT ON SYSTEM_USERS FOR EACH ROW
|
|
DECLARE
|
|
cg$rec cg$SYSTEM_USERS.cg$row_type;
|
|
cg$ind cg$SYSTEM_USERS.cg$ind_type;
|
|
BEGIN
|
|
-- Application_logic Pre-Before-Insert-row <<Start>>
|
|
-- Application_logic Pre-Before-Insert-row << End >>
|
|
|
|
-- Load cg$rec/cg$ind values from new
|
|
|
|
cg$rec.UPDATED_BY := :new.UPDATED_BY;
|
|
IF (:new.UPDATED_BY IS NULL) THEN
|
|
cg$ind.UPDATED_BY := FALSE;
|
|
ELSE
|
|
cg$ind.UPDATED_BY := TRUE;
|
|
END IF;
|
|
cg$rec.CREATED_BY := :new.CREATED_BY;
|
|
IF (:new.CREATED_BY IS NULL) THEN
|
|
cg$ind.CREATED_BY := FALSE;
|
|
ELSE
|
|
cg$ind.CREATED_BY := TRUE;
|
|
END IF;
|
|
cg$rec.SYUS_ID := :new.SYUS_ID;
|
|
cg$ind.SYUS_ID := TRUE;
|
|
cg$rec.DB_USERNAME := :new.DB_USERNAME;
|
|
cg$ind.DB_USERNAME := TRUE;
|
|
cg$rec.FIRST_NAME := :new.FIRST_NAME;
|
|
cg$ind.FIRST_NAME := TRUE;
|
|
cg$rec.LAST_NAME := :new.LAST_NAME;
|
|
cg$ind.LAST_NAME := TRUE;
|
|
cg$rec.CONTACT_TELEPHONE := :new.CONTACT_TELEPHONE;
|
|
cg$ind.CONTACT_TELEPHONE := TRUE;
|
|
cg$rec.CONTACT_FAX := :new.CONTACT_FAX;
|
|
cg$ind.CONTACT_FAX := TRUE;
|
|
cg$rec.PERIOD_START := :new.PERIOD_START;
|
|
cg$ind.PERIOD_START := TRUE;
|
|
cg$rec.CREATED_ON := :new.CREATED_ON;
|
|
IF (:new.CREATED_ON IS NULL) THEN
|
|
cg$ind.CREATED_ON := FALSE;
|
|
ELSE
|
|
cg$ind.CREATED_ON := TRUE;
|
|
END IF;
|
|
cg$rec.DESIGNATION := :new.DESIGNATION;
|
|
cg$ind.DESIGNATION := TRUE;
|
|
cg$rec.DESCRIPTION := :new.DESCRIPTION;
|
|
cg$ind.DESCRIPTION := TRUE;
|
|
cg$rec.PERIOD_END := :new.PERIOD_END;
|
|
cg$ind.PERIOD_END := TRUE;
|
|
cg$rec.TITLE := :new.TITLE;
|
|
cg$ind.TITLE := TRUE;
|
|
cg$rec.UPDATED_ON := :new.UPDATED_ON;
|
|
IF (:new.UPDATED_ON IS NULL) THEN
|
|
cg$ind.UPDATED_ON := FALSE;
|
|
ELSE
|
|
cg$ind.UPDATED_ON := TRUE;
|
|
END IF;
|
|
cg$rec.EMAIL_ADDRESS := :new.EMAIL_ADDRESS;
|
|
cg$ind.EMAIL_ADDRESS := TRUE;
|
|
cg$rec.INTE_ID := :new.INTE_ID;
|
|
cg$ind.INTE_ID := TRUE;
|
|
cg$rec.CUST_ID := :new.CUST_ID;
|
|
cg$ind.CUST_ID := TRUE;
|
|
cg$rec.PASSWORD_EXPIRES := :new.PASSWORD_EXPIRES;
|
|
cg$ind.PASSWORD_EXPIRES := TRUE;
|
|
cg$rec.GRACE_LOGINS := :new.GRACE_LOGINS;
|
|
cg$ind.GRACE_LOGINS := TRUE;
|
|
cg$rec.USER_LOCKED := :new.USER_LOCKED;
|
|
cg$ind.USER_LOCKED := TRUE;
|
|
cg$rec.PASSWORD := :new.PASSWORD;
|
|
cg$ind.PASSWORD := TRUE;
|
|
cg$rec.LANGUAGE := :new.LANGUAGE;
|
|
cg$ind.LANGUAGE := TRUE;
|
|
cg$rec.MOBILE_TEL_NUMBER := :new.MOBILE_TEL_NUMBER;
|
|
cg$ind.MOBILE_TEL_NUMBER := TRUE;
|
|
|
|
if not (cg$SYSTEM_USERS.called_from_package) then
|
|
cg$SYSTEM_USERS.validate_arc(cg$rec);
|
|
cg$SYSTEM_USERS.validate_domain(cg$rec);
|
|
|
|
cg$SYSTEM_USERS.ins(cg$rec, cg$ind, FALSE);
|
|
cg$SYSTEM_USERS.called_from_package := FALSE;
|
|
end if;
|
|
|
|
cg$SYSTEM_USERS.cg$table(cg$SYSTEM_USERS.idx).UPDATED_BY := cg$rec.UPDATED_BY;
|
|
cg$SYSTEM_USERS.cg$tableind(cg$SYSTEM_USERS.idx).UPDATED_BY := cg$ind.UPDATED_BY;
|
|
|
|
cg$SYSTEM_USERS.cg$table(cg$SYSTEM_USERS.idx).CREATED_BY := cg$rec.CREATED_BY;
|
|
cg$SYSTEM_USERS.cg$tableind(cg$SYSTEM_USERS.idx).CREATED_BY := cg$ind.CREATED_BY;
|
|
|
|
cg$SYSTEM_USERS.cg$table(cg$SYSTEM_USERS.idx).SYUS_ID := cg$rec.SYUS_ID;
|
|
cg$SYSTEM_USERS.cg$tableind(cg$SYSTEM_USERS.idx).SYUS_ID := cg$ind.SYUS_ID;
|
|
|
|
cg$SYSTEM_USERS.cg$table(cg$SYSTEM_USERS.idx).DB_USERNAME := cg$rec.DB_USERNAME;
|
|
cg$SYSTEM_USERS.cg$tableind(cg$SYSTEM_USERS.idx).DB_USERNAME := cg$ind.DB_USERNAME;
|
|
|
|
cg$SYSTEM_USERS.cg$table(cg$SYSTEM_USERS.idx).FIRST_NAME := cg$rec.FIRST_NAME;
|
|
cg$SYSTEM_USERS.cg$tableind(cg$SYSTEM_USERS.idx).FIRST_NAME := cg$ind.FIRST_NAME;
|
|
|
|
cg$SYSTEM_USERS.cg$table(cg$SYSTEM_USERS.idx).LAST_NAME := cg$rec.LAST_NAME;
|
|
cg$SYSTEM_USERS.cg$tableind(cg$SYSTEM_USERS.idx).LAST_NAME := cg$ind.LAST_NAME;
|
|
|
|
cg$SYSTEM_USERS.cg$table(cg$SYSTEM_USERS.idx).CONTACT_TELEPHONE := cg$rec.CONTACT_TELEPHONE;
|
|
cg$SYSTEM_USERS.cg$tableind(cg$SYSTEM_USERS.idx).CONTACT_TELEPHONE := cg$ind.CONTACT_TELEPHONE;
|
|
|
|
cg$SYSTEM_USERS.cg$table(cg$SYSTEM_USERS.idx).CONTACT_FAX := cg$rec.CONTACT_FAX;
|
|
cg$SYSTEM_USERS.cg$tableind(cg$SYSTEM_USERS.idx).CONTACT_FAX := cg$ind.CONTACT_FAX;
|
|
|
|
cg$SYSTEM_USERS.cg$table(cg$SYSTEM_USERS.idx).PERIOD_START := cg$rec.PERIOD_START;
|
|
cg$SYSTEM_USERS.cg$tableind(cg$SYSTEM_USERS.idx).PERIOD_START := cg$ind.PERIOD_START;
|
|
|
|
cg$SYSTEM_USERS.cg$table(cg$SYSTEM_USERS.idx).CREATED_ON := cg$rec.CREATED_ON;
|
|
cg$SYSTEM_USERS.cg$tableind(cg$SYSTEM_USERS.idx).CREATED_ON := cg$ind.CREATED_ON;
|
|
|
|
cg$SYSTEM_USERS.cg$table(cg$SYSTEM_USERS.idx).DESIGNATION := cg$rec.DESIGNATION;
|
|
cg$SYSTEM_USERS.cg$tableind(cg$SYSTEM_USERS.idx).DESIGNATION := cg$ind.DESIGNATION;
|
|
|
|
cg$SYSTEM_USERS.cg$table(cg$SYSTEM_USERS.idx).DESCRIPTION := cg$rec.DESCRIPTION;
|
|
cg$SYSTEM_USERS.cg$tableind(cg$SYSTEM_USERS.idx).DESCRIPTION := cg$ind.DESCRIPTION;
|
|
|
|
cg$SYSTEM_USERS.cg$table(cg$SYSTEM_USERS.idx).PERIOD_END := cg$rec.PERIOD_END;
|
|
cg$SYSTEM_USERS.cg$tableind(cg$SYSTEM_USERS.idx).PERIOD_END := cg$ind.PERIOD_END;
|
|
|
|
cg$SYSTEM_USERS.cg$table(cg$SYSTEM_USERS.idx).TITLE := cg$rec.TITLE;
|
|
cg$SYSTEM_USERS.cg$tableind(cg$SYSTEM_USERS.idx).TITLE := cg$ind.TITLE;
|
|
|
|
cg$SYSTEM_USERS.cg$table(cg$SYSTEM_USERS.idx).UPDATED_ON := cg$rec.UPDATED_ON;
|
|
cg$SYSTEM_USERS.cg$tableind(cg$SYSTEM_USERS.idx).UPDATED_ON := cg$ind.UPDATED_ON;
|
|
|
|
cg$SYSTEM_USERS.cg$table(cg$SYSTEM_USERS.idx).EMAIL_ADDRESS := cg$rec.EMAIL_ADDRESS;
|
|
cg$SYSTEM_USERS.cg$tableind(cg$SYSTEM_USERS.idx).EMAIL_ADDRESS := cg$ind.EMAIL_ADDRESS;
|
|
|
|
cg$SYSTEM_USERS.cg$table(cg$SYSTEM_USERS.idx).INTE_ID := cg$rec.INTE_ID;
|
|
cg$SYSTEM_USERS.cg$tableind(cg$SYSTEM_USERS.idx).INTE_ID := cg$ind.INTE_ID;
|
|
|
|
cg$SYSTEM_USERS.cg$table(cg$SYSTEM_USERS.idx).CUST_ID := cg$rec.CUST_ID;
|
|
cg$SYSTEM_USERS.cg$tableind(cg$SYSTEM_USERS.idx).CUST_ID := cg$ind.CUST_ID;
|
|
|
|
cg$SYSTEM_USERS.cg$table(cg$SYSTEM_USERS.idx).PASSWORD_EXPIRES := cg$rec.PASSWORD_EXPIRES;
|
|
cg$SYSTEM_USERS.cg$tableind(cg$SYSTEM_USERS.idx).PASSWORD_EXPIRES := cg$ind.PASSWORD_EXPIRES;
|
|
|
|
cg$SYSTEM_USERS.cg$table(cg$SYSTEM_USERS.idx).GRACE_LOGINS := cg$rec.GRACE_LOGINS;
|
|
cg$SYSTEM_USERS.cg$tableind(cg$SYSTEM_USERS.idx).GRACE_LOGINS := cg$ind.GRACE_LOGINS;
|
|
|
|
cg$SYSTEM_USERS.cg$table(cg$SYSTEM_USERS.idx).USER_LOCKED := cg$rec.USER_LOCKED;
|
|
cg$SYSTEM_USERS.cg$tableind(cg$SYSTEM_USERS.idx).USER_LOCKED := cg$ind.USER_LOCKED;
|
|
|
|
cg$SYSTEM_USERS.cg$table(cg$SYSTEM_USERS.idx).PASSWORD := cg$rec.PASSWORD;
|
|
cg$SYSTEM_USERS.cg$tableind(cg$SYSTEM_USERS.idx).PASSWORD := cg$ind.PASSWORD;
|
|
|
|
cg$SYSTEM_USERS.cg$table(cg$SYSTEM_USERS.idx).LANGUAGE := cg$rec.LANGUAGE;
|
|
cg$SYSTEM_USERS.cg$tableind(cg$SYSTEM_USERS.idx).LANGUAGE := cg$ind.LANGUAGE;
|
|
|
|
cg$SYSTEM_USERS.cg$table(cg$SYSTEM_USERS.idx).MOBILE_TEL_NUMBER := cg$rec.MOBILE_TEL_NUMBER;
|
|
cg$SYSTEM_USERS.cg$tableind(cg$SYSTEM_USERS.idx).MOBILE_TEL_NUMBER := cg$ind.MOBILE_TEL_NUMBER;
|
|
|
|
cg$SYSTEM_USERS.idx := cg$SYSTEM_USERS.idx + 1;
|
|
|
|
:new.UPDATED_BY := cg$rec.UPDATED_BY;
|
|
:new.CREATED_BY := cg$rec.CREATED_BY;
|
|
:new.SYUS_ID := cg$rec.SYUS_ID;
|
|
:new.DB_USERNAME := cg$rec.DB_USERNAME;
|
|
:new.FIRST_NAME := cg$rec.FIRST_NAME;
|
|
:new.LAST_NAME := cg$rec.LAST_NAME;
|
|
:new.CONTACT_TELEPHONE := cg$rec.CONTACT_TELEPHONE;
|
|
:new.CONTACT_FAX := cg$rec.CONTACT_FAX;
|
|
:new.PERIOD_START := cg$rec.PERIOD_START;
|
|
:new.CREATED_ON := cg$rec.CREATED_ON;
|
|
:new.DESIGNATION := cg$rec.DESIGNATION;
|
|
:new.DESCRIPTION := cg$rec.DESCRIPTION;
|
|
:new.PERIOD_END := cg$rec.PERIOD_END;
|
|
:new.TITLE := cg$rec.TITLE;
|
|
:new.UPDATED_ON := cg$rec.UPDATED_ON;
|
|
:new.EMAIL_ADDRESS := cg$rec.EMAIL_ADDRESS;
|
|
:new.INTE_ID := cg$rec.INTE_ID;
|
|
:new.CUST_ID := cg$rec.CUST_ID;
|
|
:new.PASSWORD_EXPIRES := cg$rec.PASSWORD_EXPIRES;
|
|
:new.GRACE_LOGINS := cg$rec.GRACE_LOGINS;
|
|
:new.USER_LOCKED := cg$rec.USER_LOCKED;
|
|
:new.PASSWORD := cg$rec.PASSWORD;
|
|
:new.LANGUAGE := cg$rec.LANGUAGE;
|
|
:new.MOBILE_TEL_NUMBER := cg$rec.MOBILE_TEL_NUMBER;
|
|
|
|
-- Application_logic Post-Before-Insert-row <<Start>>
|
|
-- Application_logic Post-Before-Insert-row << End >>
|
|
END;
|
|
/
|
|
|