-----------------------------------------------------------------------------
-- Object Name   : TR_CENSCODE_DEL                                         --
-- Type          : TRIGGER                                                 --
-- Last Modified : OCT 24 2001                                             --
-----------------------------------------------------------------------------

-- #beginsql
CREATE OR REPLACE TRIGGER TR_CENSCODE_DEL AFTER DELETE ON CENSCODE
REFERENCING NEW AS NEW OLD AS OLD FOR EACH ROW 
DECLARE
   CURSOR VALID_STFIPS IS SELECT STFIPS
                         FROM STATELST;

BEGIN
FOR EACH_STFIPS IN VALID_STFIPS LOOP
DELETE OCCCODES 
WHERE STFIPS   = EACH_STFIPS.STFIPS
AND   CODETYPE = '06'
AND   CODE     = :OLD.CENSCODE;
END LOOP;
END;

-- #endsql
/
;
-----------------------------------------------------------------------------
-- Object Name   : TR_CENSCODE_INS                                         --
-- Type          : TRIGGER                                                 --
-- Last Modified : OCT 24 2001                                             --
-----------------------------------------------------------------------------

-- #beginsql
CREATE OR REPLACE TRIGGER TR_CENSCODE_INS AFTER INSERT ON CENSCODE 
REFERENCING NEW AS NEW OLD AS OLD FOR EACH ROW 
DECLARE
   CURSOR VALID_STFIPS IS SELECT STFIPS
                         FROM STATELST;

BEGIN
FOR EACH_STFIPS IN VALID_STFIPS LOOP
INSERT INTO OCCCODES VALUES
(EACH_STFIPS.STFIPS,'06',:NEW.CENSCODE,:NEW.CENSTITLE);
END LOOP;
END;

-- #endsql
/
;
-----------------------------------------------------------------------------
-- Object Name   : TR_CENSCODE_UPD                                         --
-- Type          : TRIGGER                                                 --
-- Last Modified : OCT 24 2001                                             --
-----------------------------------------------------------------------------

-- #beginsql
CREATE OR REPLACE TRIGGER TR_CENSCODE_UPD AFTER UPDATE OF CENSCODE, CENSTITLE ON CENSCODE
REFERENCING NEW AS NEW OLD AS OLD FOR EACH ROW 
DECLARE
   CURSOR VALID_STFIPS IS SELECT STFIPS
                         FROM STATELST;

BEGIN
FOR EACH_STFIPS IN VALID_STFIPS LOOP
DELETE OCCCODES 
WHERE STFIPS   = EACH_STFIPS.STFIPS
AND   CODETYPE = '06'
AND   CODE     = :OLD.CENSCODE;
END LOOP;
FOR EACH_STFIPS IN VALID_STFIPS LOOP
INSERT INTO OCCCODES VALUES
(EACH_STFIPS.STFIPS,'06',:NEW.CENSCODE,:NEW.CENSTITLE);
END LOOP;
END;

-- #endsql
/
;
-----------------------------------------------------------------------------
-- Object Name   : TR_CIDSCODE_DEL                                         --
-- Type          : TRIGGER                                                 --
-- Last Modified : OCT 24 2001                                             --
-----------------------------------------------------------------------------

-- #beginsql
CREATE OR REPLACE TRIGGER TR_CIDSCODE_DEL AFTER DELETE ON CIDSCODE
REFERENCING NEW AS NEW OLD AS OLD FOR EACH ROW 
DECLARE
   CURSOR VALID_STFIPS IS SELECT STFIPS
                         FROM STATELST;

BEGIN
FOR EACH_STFIPS IN VALID_STFIPS LOOP
DELETE OCCCODES 
WHERE STFIPS   = EACH_STFIPS.STFIPS
AND   CODETYPE = '07'
AND   CODE     = :OLD.CIDSCODE;
END LOOP;
END;

-- #endsql
/
;
-----------------------------------------------------------------------------
-- Object Name   : TR_CIDSCODE_INS                                         --
-- Type          : TRIGGER                                                 --
-- Last Modified : OCT 24 2001                                             --
-----------------------------------------------------------------------------

-- #beginsql
CREATE OR REPLACE TRIGGER TR_CIDSCODE_INS AFTER INSERT ON CIDSCODE
REFERENCING NEW AS NEW OLD AS OLD FOR EACH ROW 
DECLARE
   CURSOR VALID_STFIPS IS SELECT STFIPS
                         FROM STATELST;

BEGIN
FOR EACH_STFIPS IN VALID_STFIPS LOOP
INSERT INTO OCCCODES VALUES
(EACH_STFIPS.STFIPS,'07',:NEW.CIDSCODE,:NEW.CIDSTITLE);
END LOOP;
END;

-- #endsql
/
;
-----------------------------------------------------------------------------
-- Object Name   : TR_CIDSCODE_UPD                                         --
-- Type          : TRIGGER                                                 --
-- Last Modified : OCT 24 2001                                             --
-----------------------------------------------------------------------------

-- #beginsql
CREATE OR REPLACE TRIGGER TR_CIDSCODE_UPD AFTER UPDATE  ON CIDSCODE 
REFERENCING NEW AS NEW OLD AS OLD FOR EACH ROW 
DECLARE
   CURSOR VALID_STFIPS IS SELECT STFIPS
                         FROM STATELST;

BEGIN
FOR EACH_STFIPS IN VALID_STFIPS LOOP
DELETE OCCCODES 
WHERE STFIPS   = EACH_STFIPS.STFIPS
AND   CODETYPE = '07'
AND   CODE     = :OLD.CIDSCODE;
END LOOP;
FOR EACH_STFIPS IN VALID_STFIPS LOOP
INSERT INTO OCCCODES VALUES
(EACH_STFIPS.STFIPS,'07',:NEW.CIDSCODE,:NEW.CIDSTITLE);
END LOOP;
END;

-- #endsql
/
;
-----------------------------------------------------------------------------
-- Object Name   : TR_CIPCODE_DEL                                          --
-- Type          : TRIGGER                                                 --
-- Last Modified : OCT 24 2001                                             --
-----------------------------------------------------------------------------

-- #beginsql
CREATE OR REPLACE TRIGGER TR_CIPCODE_DEL AFTER DELETE ON CIPCODE
REFERENCING NEW AS NEW OLD AS OLD FOR EACH ROW 
DECLARE
   CURSOR VALID_STFIPS IS SELECT STFIPS
                         FROM STATELST;

BEGIN
FOR EACH_STFIPS IN VALID_STFIPS LOOP
DELETE OCCCODES 
WHERE STFIPS   = EACH_STFIPS.STFIPS
AND   CODETYPE = '03'
AND   CODE     = :OLD.CIPCODE;
END LOOP;
END;

-- #endsql
/
;
-----------------------------------------------------------------------------
-- Object Name   : TR_CIPCODE_INS                                          --
-- Type          : TRIGGER                                                 --
-- Last Modified : OCT 24 2001                                             --
-----------------------------------------------------------------------------

-- #beginsql
CREATE OR REPLACE TRIGGER TR_CIPCODE_INS AFTER INSERT ON CIPCODE
REFERENCING NEW AS NEW OLD AS OLD FOR EACH ROW 
DECLARE
   CURSOR VALID_STFIPS IS SELECT STFIPS
                         FROM STATELST;

BEGIN
FOR EACH_STFIPS IN VALID_STFIPS LOOP
INSERT INTO OCCCODES VALUES
(EACH_STFIPS.STFIPS,'03',:NEW.CIPCODE,:NEW.CIPTITLE);
END LOOP;
END;

-- #endsql
/
;
-----------------------------------------------------------------------------
-- Object Name   : TR_CIPCODE_UPD                                          --
-- Type          : TRIGGER                                                 --
-- Last Modified : OCT 24 2001                                             --
-----------------------------------------------------------------------------

-- #beginsql
CREATE OR REPLACE TRIGGER TR_CIPCODE_UPD AFTER UPDATE  ON CIPCODE
REFERENCING NEW AS NEW OLD AS OLD FOR EACH ROW 
DECLARE
   CURSOR VALID_STFIPS IS SELECT STFIPS
                         FROM STATELST;

BEGIN
FOR EACH_STFIPS IN VALID_STFIPS LOOP
DELETE OCCCODES 
WHERE STFIPS   = EACH_STFIPS.STFIPS
AND   CODETYPE = '03'
AND   CODE     = :OLD.CIPCODE;
END LOOP;
FOR EACH_STFIPS IN VALID_STFIPS LOOP
INSERT INTO OCCCODES VALUES
(EACH_STFIPS.STFIPS,'03',:NEW.CIPCODE,:NEW.CIPTITLE);
END LOOP;
END;

-- #endsql
/
;
-----------------------------------------------------------------------------
-- Object Name   : TR_CLUSCODE_DEL                                         --
-- Type          : TRIGGER                                                 --
-- Last Modified : OCT 24 2001                                             --
-----------------------------------------------------------------------------

-- #beginsql
CREATE OR REPLACE TRIGGER TR_CLUSCODE_DEL AFTER DELETE ON CLUSCODE 
REFERENCING NEW AS NEW OLD AS OLD FOR EACH ROW 
BEGIN DELETE OCCCODES
WHERE STFIPS = :OLD.STFIPS
AND   CODETYPE = '01'
AND   CODE     = :OLD.CLUSCODE
; END;
-- #endsql
/
;
-----------------------------------------------------------------------------
-- Object Name   : TR_CLUSCODE_INS                                         --
-- Type          : TRIGGER                                                 --
-- Last Modified : OCT 24 2001                                             --
-----------------------------------------------------------------------------

-- #beginsql
CREATE OR REPLACE TRIGGER TR_CLUSCODE_INS AFTER INSERT ON CLUSCODE
REFERENCING NEW AS NEW OLD AS OLD FOR EACH ROW 
BEGIN INSERT INTO OCCCODES VALUES
(:NEW.STFIPS,'01',:NEW.CLUSCODE,:NEW.CLUSTITLE); END;
-- #endsql
/
;
-----------------------------------------------------------------------------
-- Object Name   : TR_CLUSCODE_UPD                                         --
-- Type          : TRIGGER                                                 --
-- Last Modified : OCT 24 2001                                             --
-----------------------------------------------------------------------------

-- #beginsql
CREATE OR REPLACE TRIGGER TR_CLUSCODE_UPD AFTER UPDATE OF STFIPS, CLUSCODE, CLUSTITLE, CLUSDESC ON CLUSCODE
REFERENCING NEW AS NEW OLD AS OLD FOR EACH ROW 
BEGIN UPDATE OCCCODES
SET STFIPS = :NEW.STFIPS,
CODETYPE   = '01',
CODE       = :NEW.CLUSCODE,
CODETITLE  = :NEW.CLUSTITLE
; END;
-- #endsql
/
;
-----------------------------------------------------------------------------
-- Object Name   : TR_DOTCODE_DEL                                          --
-- Type          : TRIGGER                                                 --
-- Last Modified : OCT 24 2001                                             --
-----------------------------------------------------------------------------

-- #beginsql
CREATE OR REPLACE TRIGGER TR_DOTCODE_DEL AFTER DELETE ON DOTCODE
REFERENCING NEW AS NEW OLD AS OLD FOR EACH ROW 
DECLARE
   CURSOR VALID_STFIPS IS SELECT STFIPS
                         FROM STATELST;

BEGIN
FOR EACH_STFIPS IN VALID_STFIPS LOOP
DELETE OCCCODES 
WHERE STFIPS   = EACH_STFIPS.STFIPS
AND   CODETYPE = '04'
AND   CODE     = :OLD.DOTCODE;
END LOOP;
END;

-- #endsql
/
;
-----------------------------------------------------------------------------
-- Object Name   : TR_DOTCODE_INS                                          --
-- Type          : TRIGGER                                                 --
-- Last Modified : OCT 24 2001                                             --
-----------------------------------------------------------------------------

-- #beginsql
CREATE OR REPLACE TRIGGER TR_DOTCODE_INS AFTER INSERT ON DOTCODE
REFERENCING NEW AS NEW OLD AS OLD FOR EACH ROW 
DECLARE
   CURSOR VALID_STFIPS IS SELECT STFIPS
                         FROM STATELST;

BEGIN
FOR EACH_STFIPS IN VALID_STFIPS LOOP
INSERT INTO OCCCODES VALUES
(EACH_STFIPS.STFIPS,'04',:NEW.DOTCODE,:NEW.DOTTITLE);
END LOOP;
END;

-- #endsql
/
;
-----------------------------------------------------------------------------
-- Object Name   : TR_DOTCODE_UPD                                          --
-- Type          : TRIGGER                                                 --
-- Last Modified : OCT 24 2001                                             --
-----------------------------------------------------------------------------

-- #beginsql
CREATE OR REPLACE TRIGGER TR_DOTCODE_UPD AFTER UPDATE  ON DOTCODE
REFERENCING NEW AS NEW OLD AS OLD FOR EACH ROW 
DECLARE
   CURSOR VALID_STFIPS IS SELECT STFIPS
                         FROM STATELST;

BEGIN
FOR EACH_STFIPS IN VALID_STFIPS LOOP
DELETE OCCCODES 
WHERE STFIPS   = EACH_STFIPS.STFIPS
AND   CODETYPE = '04'
AND   CODE     = :OLD.DOTCODE;
END LOOP;
FOR EACH_STFIPS IN VALID_STFIPS LOOP
INSERT INTO OCCCODES VALUES
(EACH_STFIPS.STFIPS,'04',:NEW.DOTCODE,:NEW.DOTTITLE);
END LOOP;
END;

-- #endsql
/
;
-----------------------------------------------------------------------------
-- Object Name   : TR_MOSCODE_DEL                                          --
-- Type          : TRIGGER                                                 --
-- Last Modified : OCT 24 2001                                             --
-----------------------------------------------------------------------------

-- #beginsql
CREATE OR REPLACE TRIGGER TR_MOSCODE_DEL AFTER DELETE ON MOSCODE
REFERENCING NEW AS NEW OLD AS OLD FOR EACH ROW 
DECLARE
   CURSOR VALID_STFIPS IS SELECT STFIPS
                         FROM STATELST;

BEGIN
FOR EACH_STFIPS IN VALID_STFIPS LOOP
DELETE OCCCODES 
WHERE STFIPS   = EACH_STFIPS.STFIPS
AND   CODETYPE = '11'
AND   CODE     = :OLD.MOSCODE;
END LOOP;
END;

-- #endsql
/
;
-----------------------------------------------------------------------------
-- Object Name   : TR_MOSCODE_INS                                          --
-- Type          : TRIGGER                                                 --
-- Last Modified : OCT 24 2001                                             --
-----------------------------------------------------------------------------

-- #beginsql
CREATE OR REPLACE TRIGGER TR_MOSCODE_INS AFTER INSERT ON MOSCODE
REFERENCING NEW AS NEW OLD AS OLD FOR EACH ROW 
DECLARE
   CURSOR VALID_STFIPS IS SELECT STFIPS
                         FROM STATELST;

BEGIN
FOR EACH_STFIPS IN VALID_STFIPS LOOP
INSERT INTO OCCCODES VALUES
(EACH_STFIPS.STFIPS,'11',:NEW.MOSCODE,:NEW.MOSTITLE);
END LOOP;
END;

-- #endsql
/
;
-----------------------------------------------------------------------------
-- Object Name   : TR_MOSCODE_UPD                                          --
-- Type          : TRIGGER                                                 --
-- Last Modified : OCT 24 2001                                             --
-----------------------------------------------------------------------------

-- #beginsql
CREATE OR REPLACE TRIGGER TR_MOSCODE_UPD AFTER UPDATE  ON MOSCODE
REFERENCING NEW AS NEW OLD AS OLD FOR EACH ROW 
DECLARE
   CURSOR VALID_STFIPS IS SELECT STFIPS
                         FROM STATELST;

BEGIN
FOR EACH_STFIPS IN VALID_STFIPS LOOP
DELETE OCCCODES 
WHERE STFIPS   = EACH_STFIPS.STFIPS
AND   CODETYPE = '11'
AND   CODE     = :OLD.MOSCODE;
END LOOP;
FOR EACH_STFIPS IN VALID_STFIPS LOOP
INSERT INTO OCCCODES VALUES
(EACH_STFIPS.STFIPS,'11',:NEW.MOSCODE,:NEW.MOSTITLE);
END LOOP;
END;

-- #endsql
/
;
-----------------------------------------------------------------------------
-- Object Name   : TR_NAICSCODE_DEL                                        --
-- Type          : TRIGGER                                                 --
-- Last Modified : OCT 24 2001                                             --
-----------------------------------------------------------------------------

-- #beginsql
CREATE OR REPLACE TRIGGER TR_NAICSCODE_DEL AFTER DELETE ON NAICCODE
REFERENCING NEW AS NEW OLD AS OLD FOR EACH ROW 
DECLARE
   CURSOR VALID_STFIPS IS SELECT STFIPS
                         FROM STATELST;

BEGIN
FOR EACH_STFIPS IN VALID_STFIPS LOOP
DELETE INDCODES 
WHERE STFIPS   = EACH_STFIPS.STFIPS
AND   CODETYPE = '10'
AND   CODE     = :OLD.NAICSCODE;
END LOOP;
END;

-- #endsql
/
;
-----------------------------------------------------------------------------
-- Object Name   : TR_NAICSCODE_INS                                        --
-- Type          : TRIGGER                                                 --
-- Last Modified : OCT 24 2001                                             --
-----------------------------------------------------------------------------

-- #beginsql
CREATE OR REPLACE TRIGGER TR_NAICSCODE_INS AFTER INSERT ON NAICCODE
REFERENCING NEW AS NEW OLD AS OLD FOR EACH ROW 
DECLARE
   CURSOR VALID_STFIPS IS SELECT STFIPS
                         FROM STATELST;

BEGIN
FOR EACH_STFIPS IN VALID_STFIPS LOOP
INSERT INTO INDCODES VALUES
(EACH_STFIPS.STFIPS,'10',:NEW.NAICSCODE,:NEW.NAICSTITLE);
END LOOP;
END;

-- #endsql
/
;
-----------------------------------------------------------------------------
-- Object Name   : TR_NAICSCODE_UPD                                        --
-- Type          : TRIGGER                                                 --
-- Last Modified : OCT 24 2001                                             --
-----------------------------------------------------------------------------

-- #beginsql
CREATE OR REPLACE TRIGGER TR_NAICSCODE_UPD AFTER UPDATE  ON NAICCODE
REFERENCING NEW AS NEW OLD AS OLD FOR EACH ROW 
DECLARE
   CURSOR VALID_STFIPS IS SELECT STFIPS
                         FROM STATELST;

BEGIN
FOR EACH_STFIPS IN VALID_STFIPS LOOP
DELETE INDCODES 
WHERE STFIPS   = EACH_STFIPS.STFIPS
AND   CODETYPE = '10'
AND   CODE     = :OLD.NAICSCODE;
END LOOP;
FOR EACH_STFIPS IN VALID_STFIPS LOOP
INSERT INTO INDCODES VALUES
(EACH_STFIPS.STFIPS,'10',:NEW.NAICSCODE,:NEW.NAICSTITLE);
END LOOP;
END;

-- #endsql
/
;
-----------------------------------------------------------------------------
-- Object Name   : TR_OCCDIR_DEL                                           --
-- Type          : TRIGGER                                                 --
-- Last Modified : OCT 24 2001                                             --
-----------------------------------------------------------------------------

-- #beginsql
CREATE OR REPLACE TRIGGER TR_OCCDIR_DEL AFTER DELETE ON OCCDIR
REFERENCING NEW AS NEW OLD AS OLD FOR EACH ROW 
BEGIN DELETE OCCCODES
WHERE STFIPS = :OLD.STFIPS
AND CODETYPE = :OLD.MATOCCODTY
AND CODE = :OLD.MATOCCODE; END;
-- #endsql
/
;
-----------------------------------------------------------------------------
-- Object Name   : TR_OCCDIR_INS                                           --
-- Type          : TRIGGER                                                 --
-- Last Modified : OCT 24 2001                                             --
-----------------------------------------------------------------------------

-- #beginsql
CREATE OR REPLACE TRIGGER TR_OCCDIR_INS AFTER INSERT ON OCCDIR
REFERENCING NEW AS NEW OLD AS OLD FOR EACH ROW 
BEGIN INSERT INTO OCCCODES VALUES
(:NEW.STFIPS,:NEW.MATOCCODTY,:NEW.MATOCCODE,:NEW.MATOCCTITL); END;
-- #endsql
/
;
-----------------------------------------------------------------------------
-- Object Name   : TR_OCCDIR_UPD                                           --
-- Type          : TRIGGER                                                 --
-- Last Modified : OCT 24 2001                                             --
-----------------------------------------------------------------------------

-- #beginsql
CREATE OR REPLACE TRIGGER TR_OCCDIR_UPD AFTER UPDATE OF STFIPS, MATOCCODE, PERIODID, MATOCCODTY, MATOCCTITL ON OCCDIR
REFERENCING NEW AS NEW OLD AS OLD FOR EACH ROW 
BEGIN UPDATE OCCCODES
SET STFIPS = :NEW.STFIPS,
CODETYPE = :NEW.MATOCCODTY,
CODE = :NEW.MATOCCODE,
CODETITLE = :NEW.MATOCCTITL; END;
-- #endsql
/
;
-----------------------------------------------------------------------------
-- Object Name   : TR_OESCODE_DEL                                          --
-- Type          : TRIGGER                                                 --
-- Last Modified : OCT 24 2001                                             --
-----------------------------------------------------------------------------

-- #beginsql
CREATE OR REPLACE TRIGGER TR_OESCODE_DEL AFTER DELETE ON OESCODE
REFERENCING NEW AS NEW OLD AS OLD FOR EACH ROW 
DECLARE
   CURSOR VALID_STFIPS IS SELECT STFIPS
                         FROM STATELST;

BEGIN
FOR EACH_STFIPS IN VALID_STFIPS LOOP
DELETE OCCCODES 
WHERE STFIPS   = EACH_STFIPS.STFIPS
AND   CODETYPE = '02'
AND   CODE     = :OLD.OESCODE;
END LOOP;
END;

-- #endsql
/
;
-----------------------------------------------------------------------------
-- Object Name   : TR_OESCODE_INS                                          --
-- Type          : TRIGGER                                                 --
-- Last Modified : OCT 24 2001                                             --
-----------------------------------------------------------------------------

-- #beginsql
CREATE OR REPLACE TRIGGER TR_OESCODE_INS AFTER INSERT ON OESCODE
REFERENCING NEW AS NEW OLD AS OLD FOR EACH ROW 
DECLARE
   CURSOR VALID_STFIPS IS SELECT STFIPS
                         FROM STATELST;

BEGIN
FOR EACH_STFIPS IN VALID_STFIPS LOOP
INSERT INTO OCCCODES VALUES
(EACH_STFIPS.STFIPS,'02',:NEW.OESCODE,:NEW.OESTITLE);
END LOOP;
END;

-- #endsql
/
;
-----------------------------------------------------------------------------
-- Object Name   : TR_OESCODE_UPD                                          --
-- Type          : TRIGGER                                                 --
-- Last Modified : OCT 24 2001                                             --
-----------------------------------------------------------------------------

-- #beginsql
CREATE OR REPLACE TRIGGER TR_OESCODE_UPD AFTER UPDATE  ON OESCODE
REFERENCING NEW AS NEW OLD AS OLD FOR EACH ROW 
DECLARE
   CURSOR VALID_STFIPS IS SELECT STFIPS
                         FROM STATELST;

BEGIN
FOR EACH_STFIPS IN VALID_STFIPS LOOP
DELETE OCCCODES 
WHERE STFIPS   = EACH_STFIPS.STFIPS
AND   CODETYPE = '02'
AND   CODE     = :OLD.OESCODE;
END LOOP;
FOR EACH_STFIPS IN VALID_STFIPS LOOP
INSERT INTO OCCCODES VALUES
(EACH_STFIPS.STFIPS,'02',:NEW.OESCODE,:NEW.OESTITLE);
END LOOP;
END;

-- #endsql
/
;
-----------------------------------------------------------------------------
-- Object Name   : TR_ONETCODE_DEL                                         --
-- Type          : TRIGGER                                                 --
-- Last Modified : OCT 24 2001                                             --
-----------------------------------------------------------------------------

-- #beginsql
CREATE OR REPLACE TRIGGER TR_ONETCODE_DEL AFTER DELETE ON ONETCODE
REFERENCING NEW AS NEW OLD AS OLD FOR EACH ROW 
DECLARE
   CURSOR VALID_STFIPS IS SELECT STFIPS
                         FROM STATELST;

BEGIN
FOR EACH_STFIPS IN VALID_STFIPS LOOP
DELETE OCCCODES 
WHERE STFIPS   = EACH_STFIPS.STFIPS
AND   CODETYPE = '12'
AND   CODE     = :OLD.ONETCODE;
END LOOP;
END;

-- #endsql
/
;
-----------------------------------------------------------------------------
-- Object Name   : TR_ONETCODE_INS                                         --
-- Type          : TRIGGER                                                 --
-- Last Modified : OCT 24 2001                                             --
-----------------------------------------------------------------------------

-- #beginsql
CREATE OR REPLACE TRIGGER TR_ONETCODE_INS AFTER INSERT ON ONETCODE
REFERENCING NEW AS NEW OLD AS OLD FOR EACH ROW 
DECLARE
   CURSOR VALID_STFIPS IS SELECT STFIPS
                         FROM STATELST;

BEGIN
FOR EACH_STFIPS IN VALID_STFIPS LOOP
INSERT INTO OCCCODES VALUES
(EACH_STFIPS.STFIPS,'12',:NEW.ONETCODE,:NEW.ONETTITLE);
END LOOP;
END;

-- #endsql
/
;
-----------------------------------------------------------------------------
-- Object Name   : TR_ONETCODE_UPD                                         --
-- Type          : TRIGGER                                                 --
-- Last Modified : OCT 24 2001                                             --
-----------------------------------------------------------------------------

-- #beginsql
CREATE OR REPLACE TRIGGER TR_ONETCODE_UPD AFTER UPDATE  ON ONETCODE
REFERENCING NEW AS NEW OLD AS OLD FOR EACH ROW 
DECLARE
   CURSOR VALID_STFIPS IS SELECT STFIPS
                         FROM STATELST;

BEGIN
FOR EACH_STFIPS IN VALID_STFIPS LOOP
DELETE OCCCODES 
WHERE STFIPS   = EACH_STFIPS.STFIPS
AND   CODETYPE = '12'
AND   CODE     = :OLD.ONETCODE;
END LOOP;
FOR EACH_STFIPS IN VALID_STFIPS LOOP
INSERT INTO OCCCODES VALUES
(EACH_STFIPS.STFIPS,'12',:NEW.ONETCODE,:NEW.ONETTITLE);
END LOOP;
END;

-- #endsql
/
;
-----------------------------------------------------------------------------
-- Object Name   : TR_SICCODE_DEL                                          --
-- Type          : TRIGGER                                                 --
-- Last Modified : OCT 24 2001                                             --
-----------------------------------------------------------------------------

-- #beginsql
CREATE OR REPLACE TRIGGER TR_SICCODE_DEL AFTER DELETE ON SICCODE
REFERENCING NEW AS NEW OLD AS OLD FOR EACH ROW 
DECLARE
   CURSOR VALID_STFIPS IS SELECT STFIPS
                         FROM STATELST;

BEGIN
FOR EACH_STFIPS IN VALID_STFIPS LOOP
DELETE INDCODES 
WHERE STFIPS   = EACH_STFIPS.STFIPS
AND   CODETYPE = '05'
AND   CODE     = :OLD.SICCODE;
END LOOP;
END;

-- #endsql
/
;
-----------------------------------------------------------------------------
-- Object Name   : TR_SICCODE_INS                                          --
-- Type          : TRIGGER                                                 --
-- Last Modified : OCT 24 2001                                             --
-----------------------------------------------------------------------------

-- #beginsql
CREATE OR REPLACE TRIGGER TR_SICCODE_INS AFTER INSERT ON SICCODE
REFERENCING NEW AS NEW OLD AS OLD FOR EACH ROW 
DECLARE
   CURSOR VALID_STFIPS IS SELECT STFIPS
                         FROM STATELST;

BEGIN
FOR EACH_STFIPS IN VALID_STFIPS LOOP
INSERT INTO INDCODES VALUES
(EACH_STFIPS.STFIPS,'05',:NEW.SICCODE,:NEW.SICTITLE);
END LOOP;
END;

-- #endsql
/
;
-----------------------------------------------------------------------------
-- Object Name   : TR_SICCODE_UPD                                          --
-- Type          : TRIGGER                                                 --
-- Last Modified : OCT 24 2001                                             --
-----------------------------------------------------------------------------

-- #beginsql
CREATE OR REPLACE TRIGGER TR_SICCODE_UPD AFTER UPDATE  ON SICCODE
REFERENCING NEW AS NEW OLD AS OLD FOR EACH ROW 
DECLARE
   CURSOR VALID_STFIPS IS SELECT STFIPS
                         FROM STATELST;

BEGIN
FOR EACH_STFIPS IN VALID_STFIPS LOOP
DELETE INDCODES 
WHERE STFIPS   = EACH_STFIPS.STFIPS
AND   CODETYPE = '05'
AND   CODE     = :OLD.SICCODE;
END LOOP;
FOR EACH_STFIPS IN VALID_STFIPS LOOP
INSERT INTO INDCODES VALUES
(EACH_STFIPS.STFIPS,'05',:NEW.SICCODE,:NEW.SICTITLE);
END LOOP;
END;

-- #endsql
/
;
-----------------------------------------------------------------------------
-- Object Name   : TR_SOCCODE_DEL                                          --
-- Type          : TRIGGER                                                 --
-- Last Modified : OCT 24 2001                                             --
-----------------------------------------------------------------------------

-- #beginsql
CREATE OR REPLACE TRIGGER TR_SOCCODE_DEL AFTER DELETE ON SOCCODE
REFERENCING NEW AS NEW OLD AS OLD FOR EACH ROW 
DECLARE
   CURSOR VALID_STFIPS IS SELECT STFIPS
                         FROM STATELST;

BEGIN
FOR EACH_STFIPS IN VALID_STFIPS LOOP
DELETE OCCCODES 
WHERE STFIPS   = EACH_STFIPS.STFIPS
AND   CODETYPE = '08'
AND   CODE     = :OLD.SOCCODE;
END LOOP;
END;

-- #endsql
/
;
-----------------------------------------------------------------------------
-- Object Name   : TR_SOCCODE_INS                                          --
-- Type          : TRIGGER                                                 --
-- Last Modified : OCT 24 2001                                             --
-----------------------------------------------------------------------------

-- #beginsql
CREATE OR REPLACE TRIGGER TR_SOCCODE_INS AFTER INSERT ON SOCCODE
REFERENCING NEW AS NEW OLD AS OLD FOR EACH ROW 
DECLARE
   CURSOR VALID_STFIPS IS SELECT STFIPS
                         FROM STATELST;

BEGIN
FOR EACH_STFIPS IN VALID_STFIPS LOOP
INSERT INTO OCCCODES VALUES
(EACH_STFIPS.STFIPS,'08',:NEW.SOCCODE,:NEW.SOCTITLE);
END LOOP;
END;

-- #endsql
/
;
-----------------------------------------------------------------------------
-- Object Name   : TR_SOCCODE_UPD                                          --
-- Type          : TRIGGER                                                 --
-- Last Modified : OCT 24 2001                                             --
-----------------------------------------------------------------------------

-- #beginsql
CREATE OR REPLACE TRIGGER TR_SOCCODE_UPD AFTER UPDATE  ON SOCCODE
REFERENCING NEW AS NEW OLD AS OLD FOR EACH ROW 
DECLARE
   CURSOR VALID_STFIPS IS SELECT STFIPS
                         FROM STATELST;

BEGIN
FOR EACH_STFIPS IN VALID_STFIPS LOOP
DELETE OCCCODES 
WHERE STFIPS   = EACH_STFIPS.STFIPS
AND   CODETYPE = '08'
AND   CODE     = :OLD.SOCCODE;
END LOOP;
FOR EACH_STFIPS IN VALID_STFIPS LOOP
INSERT INTO OCCCODES VALUES
(EACH_STFIPS.STFIPS,'08',:NEW.SOCCODE,:NEW.SOCTITLE);
END LOOP;
END;

-- #endsql
/
;
-----------------------------------------------------------------------------
-- Object Name   : TR_STPROGCD_DEL                                         --
-- Type          : TRIGGER                                                 --
-- Last Modified : OCT 24 2001                                             --
-----------------------------------------------------------------------------

-- #beginsql
CREATE OR REPLACE TRIGGER TR_STPROGCD_DEL AFTER DELETE ON STPROGCD
REFERENCING NEW AS NEW OLD AS OLD FOR EACH ROW 
BEGIN DELETE OCCCODES
WHERE STFIPS = :OLD.STFIPS
AND   CODETYPE = :OLD.CODETYPE
AND   CODE = :OLD.CODE; END;
-- #endsql
/
;
-----------------------------------------------------------------------------
-- Object Name   : TR_STPROGCD_INS                                         --
-- Type          : TRIGGER                                                 --
-- Last Modified : OCT 24 2001                                             --
-----------------------------------------------------------------------------

-- #beginsql
CREATE OR REPLACE TRIGGER TR_STPROGCD_INS AFTER INSERT ON STPROGCD
REFERENCING NEW AS NEW OLD AS OLD FOR EACH ROW 
BEGIN INSERT INTO OCCCODES VALUES
(:NEW.STFIPS,:NEW.CODETYPE,:NEW.CODE,:NEW.TITLE); END;
-- #endsql
/
;
-----------------------------------------------------------------------------
-- Object Name   : TR_STPROGCD_UPD                                         --
-- Type          : TRIGGER                                                 --
-- Last Modified : OCT 24 2001                                             --
-----------------------------------------------------------------------------

-- #beginsql
CREATE OR REPLACE TRIGGER TR_STPROGCD_UPD AFTER UPDATE  ON STPROGCD
REFERENCING NEW AS NEW OLD AS OLD FOR EACH ROW 
BEGIN UPDATE OCCCODES
SET STFIPS = :NEW.STFIPS,
CODETYPE = :NEW.CODETYPE,
CODE   = :NEW.CODE,
CODETITLE = :NEW.TITLE; END;
-- #endsql
/