andy/mip
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

Browse Source
This commit is contained in:
andrew.gilmore
2012-03-19 11:57:19 +00:00
parent 2a0f4900c3
commit 0e9ca75d77
1587 changed files with 500863 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

372
Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/APPA.TRG Normal file
View File

@@ -0,0 +1,372 @@
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;
/