mip/Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/APPA.TRG

PROMPT Creating Trigger Logic for Table 'APPLICATION_PARAMETERS'
PROMPT Creating Before Insert Statement Trigger on 'APPLICATION_PARAMETERS'
CREATE OR REPLACE TRIGGER cg$BIS_APPLICATION_PARAMETERS
BEFORE INSERT ON APPLICATION_PARAMETERS
BEGIN
--  Application_logic Pre-Before-Insert-statement <<Start>>
--  Application_logic Pre-Before-Insert-statement << End >>

    cg$APPLICATION_PARAMETERS.cg$table.DELETE;
    cg$APPLICATION_PARAMETERS.cg$tableind.DELETE;
    cg$APPLICATION_PARAMETERS.idx := 1;

--  Application_logic Post-Before-Insert-statement <<Start>>
--  Application_logic Post-Before-Insert-statement << End >>
END;
/
  

PROMPT Creating Before Insert Row Trigger on 'APPLICATION_PARAMETERS'
CREATE OR REPLACE TRIGGER cg$BIR_APPLICATION_PARAMETERS
BEFORE INSERT ON APPLICATION_PARAMETERS FOR EACH ROW
DECLARE
    cg$rec cg$APPLICATION_PARAMETERS.cg$row_type;
    cg$ind cg$APPLICATION_PARAMETERS.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.APPA_ID := :new.APPA_ID;
    cg$ind.APPA_ID := TRUE;
    cg$rec.PARAMETER := :new.PARAMETER;
    cg$ind.PARAMETER := TRUE;
    cg$rec.VALUE := :new.VALUE;
    cg$ind.VALUE := TRUE;
    cg$rec.DESCRIPTION := :new.DESCRIPTION;
    cg$ind.DESCRIPTION := TRUE;

    if not (cg$APPLICATION_PARAMETERS.called_from_package) then
        cg$APPLICATION_PARAMETERS.validate_arc(cg$rec);
        cg$APPLICATION_PARAMETERS.validate_domain(cg$rec);

        cg$APPLICATION_PARAMETERS.ins(cg$rec, cg$ind, FALSE);
        cg$APPLICATION_PARAMETERS.called_from_package := FALSE;
    end if;

    cg$APPLICATION_PARAMETERS.cg$table(cg$APPLICATION_PARAMETERS.idx).APPA_ID := cg$rec.APPA_ID;
    cg$APPLICATION_PARAMETERS.cg$tableind(cg$APPLICATION_PARAMETERS.idx).APPA_ID := cg$ind.APPA_ID;

    cg$APPLICATION_PARAMETERS.cg$table(cg$APPLICATION_PARAMETERS.idx).PARAMETER := cg$rec.PARAMETER;
    cg$APPLICATION_PARAMETERS.cg$tableind(cg$APPLICATION_PARAMETERS.idx).PARAMETER := cg$ind.PARAMETER;

    cg$APPLICATION_PARAMETERS.cg$table(cg$APPLICATION_PARAMETERS.idx).VALUE := cg$rec.VALUE;
    cg$APPLICATION_PARAMETERS.cg$tableind(cg$APPLICATION_PARAMETERS.idx).VALUE := cg$ind.VALUE;

    cg$APPLICATION_PARAMETERS.cg$table(cg$APPLICATION_PARAMETERS.idx).DESCRIPTION := cg$rec.DESCRIPTION;
    cg$APPLICATION_PARAMETERS.cg$tableind(cg$APPLICATION_PARAMETERS.idx).DESCRIPTION := cg$ind.DESCRIPTION;

    cg$APPLICATION_PARAMETERS.idx := cg$APPLICATION_PARAMETERS.idx + 1;

    :new.APPA_ID := cg$rec.APPA_ID;
    :new.PARAMETER := cg$rec.PARAMETER;
    :new.VALUE := cg$rec.VALUE;
    :new.DESCRIPTION := cg$rec.DESCRIPTION;

--  Application_logic Post-Before-Insert-row <<Start>>
--  Application_logic Post-Before-Insert-row << End >>
END;
/


-- No application logic defined for Trigger cg$AIR_APPLICATION_PARAMETERS, so drop it.
-- To avoid an error if there isn't one, create or replace it, and then drop it
CREATE OR REPLACE TRIGGER cg$AIR_APPLICATION_PARAMETERS
AFTER INSERT ON APPLICATION_PARAMETERS FOR EACH ROW
BEGIN
 null;
END;
/
drop trigger cg$AIR_APPLICATION_PARAMETERS
/

PROMPT Creating After Insert Statement Trigger on 'APPLICATION_PARAMETERS'
CREATE OR REPLACE TRIGGER cg$AIS_APPLICATION_PARAMETERS
AFTER INSERT ON APPLICATION_PARAMETERS
DECLARE
    idx      BINARY_INTEGER := cg$APPLICATION_PARAMETERS.cg$table.FIRST;
    cg$rec   cg$APPLICATION_PARAMETERS.cg$row_type;
    cg$old_rec   cg$APPLICATION_PARAMETERS.cg$row_type;
    fk_check INTEGER;
BEGIN
--  Application_logic Pre-After-Insert-statement <<Start>>
--  Application_logic Pre-After-Insert-statement << End >>


    IF NOT (cg$APPLICATION_PARAMETERS.called_from_package) THEN
        WHILE idx IS NOT NULL LOOP
            cg$rec.APPA_ID := cg$APPLICATION_PARAMETERS.cg$table(idx).APPA_ID;
            cg$rec.PARAMETER := cg$APPLICATION_PARAMETERS.cg$table(idx).PARAMETER;
            cg$rec.VALUE := cg$APPLICATION_PARAMETERS.cg$table(idx).VALUE;
            cg$rec.DESCRIPTION := cg$APPLICATION_PARAMETERS.cg$table(idx).DESCRIPTION;

            cg$APPLICATION_PARAMETERS.validate_foreign_keys_ins(cg$rec);

            cg$APPLICATION_PARAMETERS.upd_oper_denorm2( cg$rec,
                                                cg$old_rec,
                                                cg$APPLICATION_PARAMETERS.cg$tableind(idx),
                                                'INS'
                                              );
	
            idx := cg$APPLICATION_PARAMETERS.cg$table.NEXT(idx);
        END LOOP;
    END IF;

--  Application_logic Post-After-Insert-statement <<Start>>
--  Application_logic Post-After-Insert-statement << End >>

END;
/


    

PROMPT Creating Before Update Statement Trigger on 'APPLICATION_PARAMETERS'
CREATE OR REPLACE TRIGGER cg$BUS_APPLICATION_PARAMETERS
BEFORE UPDATE ON APPLICATION_PARAMETERS
BEGIN
--  Application_logic Pre-Before-Update-statement <<Start>>
--  Application_logic Pre-Before-Update-statement << End >>

    cg$APPLICATION_PARAMETERS.cg$table.DELETE;
    cg$APPLICATION_PARAMETERS.cg$tableind.DELETE;
    cg$APPLICATION_PARAMETERS.idx := 1;

--  Application_logic Post-Before-Update-statement <<Start>>
--  Application_logic Post-Before-Update-statement << End >>

END;
/
  

PROMPT Creating Before Update Row Trigger on 'APPLICATION_PARAMETERS'
CREATE OR REPLACE TRIGGER cg$BUR_APPLICATION_PARAMETERS
BEFORE UPDATE ON APPLICATION_PARAMETERS FOR EACH ROW
DECLARE
    cg$rec     cg$APPLICATION_PARAMETERS.cg$row_type;
    cg$ind     cg$APPLICATION_PARAMETERS.cg$ind_type;
    cg$old_rec cg$APPLICATION_PARAMETERS.cg$row_type;  
BEGIN
--  Application_logic Pre-Before-Update-row <<Start>>
--  Application_logic Pre-Before-Update-row << End >>

--  Load cg$rec/cg$ind values from new

    cg$rec.APPA_ID := :new.APPA_ID;
    cg$ind.APPA_ID :=    (:new.APPA_ID IS NULL AND :old.APPA_ID IS NOT NULL )
                        OR (:new.APPA_ID IS NOT NULL AND :old.APPA_ID IS NULL)
                        OR NOT(:new.APPA_ID = :old.APPA_ID) ;
    cg$APPLICATION_PARAMETERS.cg$table(cg$APPLICATION_PARAMETERS.idx).APPA_ID := :old.APPA_ID;
    cg$rec.PARAMETER := :new.PARAMETER;
    cg$ind.PARAMETER :=    (:new.PARAMETER IS NULL AND :old.PARAMETER IS NOT NULL )
                        OR (:new.PARAMETER IS NOT NULL AND :old.PARAMETER IS NULL)
                        OR NOT(:new.PARAMETER = :old.PARAMETER) ;
    cg$APPLICATION_PARAMETERS.cg$table(cg$APPLICATION_PARAMETERS.idx).PARAMETER := :old.PARAMETER;
    cg$rec.VALUE := :new.VALUE;
    cg$ind.VALUE :=    (:new.VALUE IS NULL AND :old.VALUE IS NOT NULL )
                        OR (:new.VALUE IS NOT NULL AND :old.VALUE IS NULL)
                        OR NOT(:new.VALUE = :old.VALUE) ;
    cg$APPLICATION_PARAMETERS.cg$table(cg$APPLICATION_PARAMETERS.idx).VALUE := :old.VALUE;
    cg$rec.DESCRIPTION := :new.DESCRIPTION;
    cg$ind.DESCRIPTION :=    (:new.DESCRIPTION IS NULL AND :old.DESCRIPTION IS NOT NULL )
                        OR (:new.DESCRIPTION IS NOT NULL AND :old.DESCRIPTION IS NULL)
                        OR NOT(:new.DESCRIPTION = :old.DESCRIPTION) ;
    cg$APPLICATION_PARAMETERS.cg$table(cg$APPLICATION_PARAMETERS.idx).DESCRIPTION := :old.DESCRIPTION;


    cg$APPLICATION_PARAMETERS.idx := cg$APPLICATION_PARAMETERS.idx + 1;

    if not (cg$APPLICATION_PARAMETERS.called_from_package) then
        cg$APPLICATION_PARAMETERS.validate_arc(cg$rec);
        cg$APPLICATION_PARAMETERS.validate_domain(cg$rec, cg$ind);
        cg$APPLICATION_PARAMETERS.validate_domain_cascade_update(cg$old_rec);   

        cg$APPLICATION_PARAMETERS.upd(cg$rec, cg$ind, FALSE);
        cg$APPLICATION_PARAMETERS.called_from_package := FALSE;
    end if;

    :new.PARAMETER := cg$rec.PARAMETER;
    :new.VALUE := cg$rec.VALUE;
    :new.DESCRIPTION := cg$rec.DESCRIPTION;
--  Application_logic Post-Before-Update-row <<Start>>
--  Application_logic Post-Before-Update-row << End >>
END;
/

-- No application logic defined for Trigger cg$AUR_APPLICATION_PARAMETERS, so drop it.
-- To avoid an error if there isn't one, create or replace it, and then drop it
CREATE OR REPLACE TRIGGER cg$AUR_APPLICATION_PARAMETERS
AFTER UPDATE ON APPLICATION_PARAMETERS FOR EACH ROW
BEGIN
 null;
END;
/
drop trigger cg$AUR_APPLICATION_PARAMETERS
/






PROMPT Creating After Update Statement Trigger on 'APPLICATION_PARAMETERS'
CREATE OR REPLACE TRIGGER cg$AUS_APPLICATION_PARAMETERS
AFTER UPDATE ON APPLICATION_PARAMETERS
DECLARE
    idx        BINARY_INTEGER := cg$APPLICATION_PARAMETERS.cg$table.FIRST;
    cg$old_rec cg$APPLICATION_PARAMETERS.cg$row_type;
    cg$rec     cg$APPLICATION_PARAMETERS.cg$row_type;
    cg$ind     cg$APPLICATION_PARAMETERS.cg$ind_type;
BEGIN
--  Application_logic Pre-After-Update-statement <<Start>>
--  Application_logic Pre-After-Update-statement << End >>

    WHILE idx IS NOT NULL LOOP
        cg$old_rec.APPA_ID := cg$APPLICATION_PARAMETERS.cg$table(idx).APPA_ID;
        cg$old_rec.PARAMETER := cg$APPLICATION_PARAMETERS.cg$table(idx).PARAMETER;
        cg$old_rec.VALUE := cg$APPLICATION_PARAMETERS.cg$table(idx).VALUE;
        cg$old_rec.DESCRIPTION := cg$APPLICATION_PARAMETERS.cg$table(idx).DESCRIPTION;

    IF NOT (cg$APPLICATION_PARAMETERS.called_from_package) THEN
        idx := cg$APPLICATION_PARAMETERS.cg$table.NEXT(idx);
        cg$rec.APPA_ID := cg$APPLICATION_PARAMETERS.cg$table(idx).APPA_ID;
        cg$ind.APPA_ID := updating('APPA_ID');
        cg$rec.PARAMETER := cg$APPLICATION_PARAMETERS.cg$table(idx).PARAMETER;
        cg$ind.PARAMETER := updating('PARAMETER');
        cg$rec.VALUE := cg$APPLICATION_PARAMETERS.cg$table(idx).VALUE;
        cg$ind.VALUE := updating('VALUE');
        cg$rec.DESCRIPTION := cg$APPLICATION_PARAMETERS.cg$table(idx).DESCRIPTION;
        cg$ind.DESCRIPTION := updating('DESCRIPTION');

        cg$APPLICATION_PARAMETERS.validate_foreign_keys_upd(cg$rec, cg$old_rec, cg$ind);

        cg$APPLICATION_PARAMETERS.upd_denorm2( cg$rec,
                                       cg$APPLICATION_PARAMETERS.cg$tableind(idx)
                                     );
        cg$APPLICATION_PARAMETERS.upd_oper_denorm2( cg$rec,
                                            cg$old_rec,
                                            cg$APPLICATION_PARAMETERS.cg$tableind(idx)
								                  );
        cg$APPLICATION_PARAMETERS.cascade_update(cg$rec, cg$old_rec);
        cg$APPLICATION_PARAMETERS.domain_cascade_update(cg$rec, cg$ind, cg$old_rec);             

		cg$APPLICATION_PARAMETERS.called_from_package := FALSE;
	END IF;
        idx := cg$APPLICATION_PARAMETERS.cg$table.NEXT(idx);
    END LOOP;

    cg$APPLICATION_PARAMETERS.cg$table.DELETE;

--  Application_logic Post-After-Update-statement <<Start>>
--  Application_logic Post-After-Update-statement << End >>

END;
/

PROMPT Creating Before Delete Statement Trigger on 'APPLICATION_PARAMETERS'
CREATE OR REPLACE TRIGGER cg$BDS_APPLICATION_PARAMETERS
BEFORE DELETE ON APPLICATION_PARAMETERS
BEGIN
--  Application_logic Pre-Before-Delete-statement <<Start>>
--  Application_logic Pre-Before-Delete-statement << End >>

    cg$APPLICATION_PARAMETERS.cg$table.DELETE;
    cg$APPLICATION_PARAMETERS.cg$tableind.DELETE;
    cg$APPLICATION_PARAMETERS.idx := 1;

--  Application_logic Post-Before-Delete-statement <<Start>>
--  Application_logic Post-Before-Delete-statement << End >>
END;
/
  

PROMPT Creating Before Delete Row Trigger on 'APPLICATION_PARAMETERS'
CREATE OR REPLACE TRIGGER cg$BDR_APPLICATION_PARAMETERS
BEFORE DELETE ON APPLICATION_PARAMETERS FOR EACH ROW
DECLARE
    cg$pk cg$APPLICATION_PARAMETERS.cg$pk_type;
    cg$rec cg$APPLICATION_PARAMETERS.cg$row_type;
    cg$ind cg$APPLICATION_PARAMETERS.cg$ind_type;
BEGIN
--  Application_logic Pre-Before-Delete-row <<Start>>
--  Application_logic Pre-Before-Delete-row << End >>

--  Load cg$rec/cg$ind values from new

    cg$pk.APPA_ID  := :old.APPA_ID;
    cg$rec.APPA_ID := :old.APPA_ID;
    cg$APPLICATION_PARAMETERS.cg$table(cg$APPLICATION_PARAMETERS.idx).APPA_ID := :old.APPA_ID;
    cg$rec.PARAMETER := :old.PARAMETER;
    cg$APPLICATION_PARAMETERS.cg$table(cg$APPLICATION_PARAMETERS.idx).PARAMETER := :old.PARAMETER;


    cg$APPLICATION_PARAMETERS.idx := cg$APPLICATION_PARAMETERS.idx + 1;

    if not (cg$APPLICATION_PARAMETERS.called_from_package) then
        cg$APPLICATION_PARAMETERS.validate_domain_cascade_delete(cg$rec);   
        cg$APPLICATION_PARAMETERS.del(cg$pk, FALSE);
        cg$APPLICATION_PARAMETERS.called_from_package := FALSE;
    end if;

--  Application_logic Post-Before-Delete-row <<Start>>
--  Application_logic Post-Before-Delete-row << End >>
END;
/

-- No application logic defined for Trigger cg$ADR_APPLICATION_PARAMETERS, so drop it.
-- To avoid an error if there isn't one, create or replace it, and then drop it
CREATE OR REPLACE TRIGGER cg$ADR_APPLICATION_PARAMETERS
AFTER DELETE ON APPLICATION_PARAMETERS FOR EACH ROW
BEGIN
 null;
END;
/
drop trigger cg$ADR_APPLICATION_PARAMETERS
/

PROMPT Creating After Delete Statement Trigger on 'APPLICATION_PARAMETERS'
CREATE OR REPLACE TRIGGER cg$ADS_APPLICATION_PARAMETERS
AFTER DELETE ON APPLICATION_PARAMETERS
DECLARE
    idx        BINARY_INTEGER := cg$APPLICATION_PARAMETERS.cg$table.FIRST;
    cg$rec   cg$APPLICATION_PARAMETERS.cg$row_type;
    cg$old_rec   cg$APPLICATION_PARAMETERS.cg$row_type;
BEGIN
--  Application_logic Pre-After-Delete-statement <<Start>>
--  Application_logic Pre-After-Delete-statement << End >>

    IF NOT (cg$APPLICATION_PARAMETERS.called_from_package) THEN
        WHILE idx IS NOT NULL LOOP
            cg$rec.APPA_ID := cg$APPLICATION_PARAMETERS.cg$table(idx).APPA_ID;
            cg$APPLICATION_PARAMETERS.cg$tableind(idx).APPA_ID := TRUE;
            cg$rec.PARAMETER := cg$APPLICATION_PARAMETERS.cg$table(idx).PARAMETER;
            cg$APPLICATION_PARAMETERS.cg$tableind(idx).PARAMETER := TRUE;
            cg$rec.VALUE := cg$APPLICATION_PARAMETERS.cg$table(idx).VALUE;
            cg$APPLICATION_PARAMETERS.cg$tableind(idx).VALUE := TRUE;
            cg$rec.DESCRIPTION := cg$APPLICATION_PARAMETERS.cg$table(idx).DESCRIPTION;
            cg$APPLICATION_PARAMETERS.cg$tableind(idx).DESCRIPTION := TRUE;

            cg$APPLICATION_PARAMETERS.validate_foreign_keys_del(cg$rec);
            cg$APPLICATION_PARAMETERS.upd_oper_denorm2( cg$rec,
                                                cg$old_rec,
                                                cg$APPLICATION_PARAMETERS.cg$tableind(idx),
                                                'DEL'
                                              );
	
            cg$APPLICATION_PARAMETERS.cascade_delete(cg$rec);
            cg$APPLICATION_PARAMETERS.domain_cascade_delete(cg$rec);             

            idx := cg$APPLICATION_PARAMETERS.cg$table.NEXT(idx);
        END LOOP;
    END IF;

--  Application_logic Post-After-Delete-statement <<Start>>
--  Application_logic Post-After-Delete-statement << End >>

END;
/