git-svn-id: http://locode01.ad.dom/svn/WEBMIP/trunk@50874 248e525c-4dfb-0310-94bc-949c084e9493
This commit is contained in:
andrew.gilmore
@@ -0,0 +1,951 @@
|
||||
CREATE OR REPLACE PACKAGE BODY EFT_NOM.cg$HOMEPAGE_ELEMENT_VALUE IS
|
||||
|
||||
|
||||
PROCEDURE validate_mandatory(cg$val_rec IN cg$row_type,
|
||||
loc IN VARCHAR2 DEFAULT '');
|
||||
PROCEDURE up_autogen_columns(cg$rec IN OUT cg$row_type,
|
||||
cg$ind IN OUT cg$ind_type,
|
||||
operation IN VARCHAR2 DEFAULT 'INS',
|
||||
do_denorm IN BOOLEAN DEFAULT TRUE);
|
||||
PROCEDURE err_msg(msg IN VARCHAR2,
|
||||
type IN INTEGER,
|
||||
loc IN VARCHAR2 DEFAULT '');
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
-- Name: raise_uk_not_updateable
|
||||
--
|
||||
-- Description: Raise appropriate error when unique key updated
|
||||
--
|
||||
-- Parameters: none
|
||||
--------------------------------------------------------------------------------
|
||||
PROCEDURE raise_uk_not_updateable(uk IN VARCHAR2) IS
|
||||
BEGIN
|
||||
cg$errors.push(cg$errors.MsgGetText(cg$errors.API_UNIQUE_KEY_UPDATE, cg$errors.ERR_UK_UPDATE, uk),
|
||||
'E',
|
||||
'API',
|
||||
cg$errors.API_UNIQUE_KEY_UPDATE,
|
||||
'cg$HOMEPAGE_ELEMENT_VALUE.raise_uk_not_updateable');
|
||||
cg$errors.raise_failure;
|
||||
END raise_uk_not_updateable;
|
||||
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
-- Name: raise_fk_not_transferable
|
||||
--
|
||||
-- Description: Raise appropriate error when foreign key updated
|
||||
--
|
||||
-- Parameters: none
|
||||
--------------------------------------------------------------------------------
|
||||
PROCEDURE raise_fk_not_transferable(fk IN VARCHAR2) IS
|
||||
BEGIN
|
||||
cg$errors.push(cg$errors.MsgGetText(cg$errors.API_FOREIGN_KEY_TRANS, cg$errors.ERR_FK_TRANS, fk),
|
||||
'E',
|
||||
'API',
|
||||
cg$errors.API_FOREIGN_KEY_TRANS,
|
||||
'cg$HOMEPAGE_ELEMENT_VALUE.raise_fk_not_transferable');
|
||||
cg$errors.raise_failure;
|
||||
END raise_fk_not_transferable;
|
||||
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
-- Name: up_autogen_columns
|
||||
--
|
||||
-- Description: Specific autogeneration of column values and conversion to
|
||||
-- uppercase
|
||||
--
|
||||
-- Parameters: cg$rec Record of row to be manipulated
|
||||
-- cg$ind Indicators for row
|
||||
-- operation Procedure where this procedure was called
|
||||
--------------------------------------------------------------------------------
|
||||
PROCEDURE up_autogen_columns(cg$rec IN OUT cg$row_type,
|
||||
cg$ind IN OUT cg$ind_type,
|
||||
operation IN VARCHAR2 DEFAULT 'INS',
|
||||
do_denorm IN BOOLEAN DEFAULT TRUE) IS
|
||||
BEGIN
|
||||
IF (operation = 'INS') THEN
|
||||
|
||||
NULL;
|
||||
ELSE
|
||||
NULL;
|
||||
END IF;
|
||||
|
||||
|
||||
EXCEPTION
|
||||
WHEN no_data_found THEN
|
||||
NULL;
|
||||
WHEN OTHERS THEN
|
||||
cg$errors.push(SQLERRM,
|
||||
'E',
|
||||
'ORA',
|
||||
SQLCODE,
|
||||
'cg$HOMEPAGE_ELEMENT_VALUE.up_autogen_columns.denorm');
|
||||
cg$errors.raise_failure;
|
||||
|
||||
END up_autogen_columns;
|
||||
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
-- Name: validate_mandatory
|
||||
--
|
||||
-- Description: Checks all mandatory columns are not null and raises appropriate
|
||||
-- error if not satisfied
|
||||
--
|
||||
-- Parameters: cg$val_rec Record of row to be checked
|
||||
-- loc Place where this procedure was called for error
|
||||
-- trapping
|
||||
--------------------------------------------------------------------------------
|
||||
PROCEDURE validate_mandatory(cg$val_rec IN cg$row_type,
|
||||
loc IN VARCHAR2 DEFAULT '') IS
|
||||
BEGIN
|
||||
IF (cg$val_rec.HOEV_ID IS NULL) THEN
|
||||
cg$errors.push(cg$errors.MsgGetText(cg$errors.API_MAND_COLUMN_ISNULL, cg$errors.VAL_MAND, P10HOEV_ID),
|
||||
'E',
|
||||
'API',
|
||||
cg$errors.API_MAND_COLUMN_ISNULL,
|
||||
loc);
|
||||
END IF;
|
||||
IF (cg$val_rec.HOEL_ID IS NULL) THEN
|
||||
cg$errors.push(cg$errors.MsgGetText(cg$errors.API_MAND_COLUMN_ISNULL, cg$errors.VAL_MAND, P20HOEL_ID),
|
||||
'E',
|
||||
'API',
|
||||
cg$errors.API_MAND_COLUMN_ISNULL,
|
||||
loc);
|
||||
END IF;
|
||||
IF (cg$val_rec.ELEMENT_VALUE IS NULL) THEN
|
||||
cg$errors.push(cg$errors.MsgGetText(cg$errors.API_MAND_COLUMN_ISNULL, cg$errors.VAL_MAND, P30ELEMENT_VALUE),
|
||||
'E',
|
||||
'API',
|
||||
cg$errors.API_MAND_COLUMN_ISNULL,
|
||||
loc);
|
||||
END IF;
|
||||
NULL;
|
||||
END validate_mandatory;
|
||||
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
-- Name: validate_foreign_keys
|
||||
--
|
||||
-- Description: Checks all mandatory columns are not null and raises appropriate
|
||||
-- error if not satisfied
|
||||
--
|
||||
-- Parameters: cg$rec Record of row to be checked
|
||||
--------------------------------------------------------------------------------
|
||||
PROCEDURE validate_foreign_keys_ins(cg$rec IN cg$row_type) IS
|
||||
fk_check INTEGER;
|
||||
BEGIN
|
||||
NULL;
|
||||
END;
|
||||
|
||||
PROCEDURE validate_foreign_keys_upd( cg$rec IN cg$row_type,
|
||||
cg$old_rec IN cg$row_type,
|
||||
cg$ind IN cg$ind_type) IS
|
||||
fk_check INTEGER;
|
||||
BEGIN
|
||||
NULL;
|
||||
END;
|
||||
|
||||
PROCEDURE validate_foreign_keys_del(cg$rec IN cg$row_type) IS
|
||||
fk_check INTEGER;
|
||||
BEGIN
|
||||
NULL;
|
||||
END;
|
||||
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
-- Name: slct
|
||||
--
|
||||
-- Description: Selects into the given parameter all the attributes for the row
|
||||
-- given by the primary key
|
||||
--
|
||||
-- Parameters: cg$sel_rec Record of row to be selected into using its PK
|
||||
--------------------------------------------------------------------------------
|
||||
PROCEDURE slct(cg$sel_rec IN OUT cg$row_type) IS
|
||||
|
||||
BEGIN
|
||||
|
||||
IF cg$sel_rec.the_rowid is null THEN
|
||||
SELECT HOEV_ID
|
||||
, HOEL_ID
|
||||
, ELEMENT_VALUE
|
||||
, rowid
|
||||
INTO cg$sel_rec.HOEV_ID
|
||||
, cg$sel_rec.HOEL_ID
|
||||
, cg$sel_rec.ELEMENT_VALUE
|
||||
,cg$sel_rec.the_rowid
|
||||
FROM HOMEPAGE_ELEMENT_VALUE
|
||||
WHERE HOEV_ID = cg$sel_rec.HOEV_ID
|
||||
AND HOEL_ID = cg$sel_rec.HOEL_ID;
|
||||
ELSE
|
||||
SELECT HOEV_ID
|
||||
, HOEL_ID
|
||||
, ELEMENT_VALUE
|
||||
, rowid
|
||||
INTO cg$sel_rec.HOEV_ID
|
||||
, cg$sel_rec.HOEL_ID
|
||||
, cg$sel_rec.ELEMENT_VALUE
|
||||
,cg$sel_rec.the_rowid
|
||||
FROM HOMEPAGE_ELEMENT_VALUE
|
||||
WHERE rowid = cg$sel_rec.the_rowid;
|
||||
END IF;
|
||||
|
||||
EXCEPTION WHEN OTHERS THEN
|
||||
cg$errors.push(SQLERRM,
|
||||
'E',
|
||||
'ORA',
|
||||
SQLCODE,
|
||||
'cg$HOMEPAGE_ELEMENT_VALUE.slct.others');
|
||||
cg$errors.raise_failure;
|
||||
|
||||
END slct;
|
||||
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
-- Name: cascade_update
|
||||
--
|
||||
-- Description: Updates all child tables affected by a change to HOMEPAGE_ELEMENT_VALUE
|
||||
--
|
||||
-- Parameters: cg$rec Record of HOMEPAGE_ELEMENT_VALUE current values
|
||||
-- cg$old_rec Record of HOMEPAGE_ELEMENT_VALUE previous values
|
||||
--------------------------------------------------------------------------------
|
||||
PROCEDURE cascade_update(cg$new_rec IN OUT cg$row_type,
|
||||
cg$old_rec IN cg$row_type) IS
|
||||
BEGIN
|
||||
NULL;
|
||||
END cascade_update;
|
||||
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
-- Name: validate_domain_cascade_update
|
||||
--
|
||||
-- Description: Implement the Domain Key Constraint Cascade Updates Resticts rule
|
||||
-- of each child table that references this tableHOMEPAGE_ELEMENT_VALUE
|
||||
--
|
||||
-- Parameters: cg$old_rec Record of HOMEPAGE_ELEMENT_VALUE current values
|
||||
--------------------------------------------------------------------------------
|
||||
PROCEDURE validate_domain_cascade_update( cg$old_rec IN cg$row_type ) IS
|
||||
dk_check INTEGER;
|
||||
BEGIN
|
||||
NULL;
|
||||
END validate_domain_cascade_update;
|
||||
|
||||
|
||||
-----------------------------------------------------------------------------------------
|
||||
-- Name: domain_cascade_update
|
||||
--
|
||||
-- Description: Implement the Domain Key Constraint Cascade Updates rules of each
|
||||
-- child table that references this table HOMEPAGE_ELEMENT_VALUE
|
||||
--
|
||||
-- Parameters: cg$new_rec New values for HOMEPAGE_ELEMENT_VALUE's domain key constraint columns
|
||||
-- cg$new_ind Indicates changed HOMEPAGE_ELEMENT_VALUE's domain key constraint columns
|
||||
-- cg$old_rec Current values for HOMEPAGE_ELEMENT_VALUE's domain key constraint columns
|
||||
-----------------------------------------------------------------------------------------
|
||||
PROCEDURE domain_cascade_update(cg$new_rec IN OUT cg$row_type,
|
||||
cg$new_ind IN OUT cg$ind_type,
|
||||
cg$old_rec IN cg$row_type) IS
|
||||
BEGIN
|
||||
NULL;
|
||||
END domain_cascade_update;
|
||||
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
-- Name: cascade_delete
|
||||
--
|
||||
-- Description: Delete all child tables affected by a delete to HOMEPAGE_ELEMENT_VALUE
|
||||
--
|
||||
-- Parameters: cg$rec Record of HOMEPAGE_ELEMENT_VALUE current values
|
||||
--------------------------------------------------------------------------------
|
||||
PROCEDURE cascade_delete(cg$old_rec IN OUT cg$row_type)
|
||||
IS
|
||||
BEGIN
|
||||
NULL;
|
||||
END cascade_delete;
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
-- Name: domain_cascade_delete
|
||||
--
|
||||
-- Description: Implement the Domain Key Constraint Cascade Delete rules of each
|
||||
-- child table that references this tableHOMEPAGE_ELEMENT_VALUE
|
||||
--
|
||||
-- Parameters: cg$old_rec Record of HOMEPAGE_ELEMENT_VALUE current values
|
||||
--------------------------------------------------------------------------------
|
||||
PROCEDURE domain_cascade_delete( cg$old_rec IN cg$row_type )
|
||||
IS
|
||||
BEGIN
|
||||
NULL;
|
||||
END domain_cascade_delete;
|
||||
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
-- Name: validate_domain_cascade_delete
|
||||
--
|
||||
-- Description: Implement the Domain Key Constraint Cascade Delete Restricts rule
|
||||
-- of each child table that references this tableHOMEPAGE_ELEMENT_VALUE
|
||||
--
|
||||
-- Parameters: cg$old_rec Record of HOMEPAGE_ELEMENT_VALUE current values
|
||||
--------------------------------------------------------------------------------
|
||||
PROCEDURE validate_domain_cascade_delete(cg$old_rec IN cg$row_type)
|
||||
IS
|
||||
dk_check INTEGER;
|
||||
BEGIN
|
||||
NULL;
|
||||
END validate_domain_cascade_delete;
|
||||
|
||||
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
-- Name: validate_arc
|
||||
--
|
||||
-- Description: Checks for adherence to arc relationship
|
||||
--
|
||||
-- Parameters: cg$rec Record of HOMEPAGE_ELEMENT_VALUE current values
|
||||
--------------------------------------------------------------------------------
|
||||
PROCEDURE validate_arc(cg$rec IN OUT cg$row_type) IS
|
||||
i NUMBER;
|
||||
BEGIN
|
||||
NULL;
|
||||
END validate_arc;
|
||||
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
-- Name: validate_domain
|
||||
--
|
||||
-- Description: Checks against reference table for values lying in a domain
|
||||
--
|
||||
-- Parameters: cg$rec Record of HOMEPAGE_ELEMENT_VALUE current values
|
||||
--------------------------------------------------------------------------------
|
||||
PROCEDURE validate_domain(cg$rec IN OUT cg$row_type,
|
||||
cg$ind IN cg$ind_type DEFAULT cg$ind_true)
|
||||
IS
|
||||
dummy NUMBER;
|
||||
found BOOLEAN;
|
||||
no_tabview EXCEPTION;
|
||||
PRAGMA EXCEPTION_INIT(no_tabview, -942);
|
||||
BEGIN
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
NULL;
|
||||
|
||||
EXCEPTION
|
||||
WHEN cg$errors.cg$error THEN
|
||||
cg$errors.raise_failure;
|
||||
WHEN no_tabview THEN
|
||||
cg$errors.push(cg$errors.MsgGetText(cg$errors.API_RV_TAB_NOT_FOUND,
|
||||
cg$errors.APIMSG_RV_TAB_NOT_FOUND,
|
||||
'CG_REF_CODES','HOMEPAGE_ELEMENT_VALUE'),
|
||||
'E',
|
||||
'API',
|
||||
cg$errors.API_RV_TAB_NOT_FOUND,
|
||||
'cg$HOMEPAGE_ELEMENT_VALUE.v_domain.no_reftable_found');
|
||||
cg$errors.raise_failure;
|
||||
WHEN OTHERS THEN
|
||||
cg$errors.push(SQLERRM,
|
||||
'E',
|
||||
'ORA',
|
||||
SQLCODE,
|
||||
'cg$HOMEPAGE_ELEMENT_VALUE.v_domain.others');
|
||||
cg$errors.raise_failure;
|
||||
END validate_domain;
|
||||
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
-- Name: err_msg
|
||||
--
|
||||
-- Description: Pushes onto stack appropriate user defined error message
|
||||
-- depending on the rule violated
|
||||
--
|
||||
-- Parameters: msg Oracle error message
|
||||
-- type Type of violation e.g. check_constraint: ERR_CHECK_CON
|
||||
-- loc Place where this procedure was called for error
|
||||
-- trapping
|
||||
--------------------------------------------------------------------------------
|
||||
PROCEDURE err_msg(msg IN VARCHAR2,
|
||||
type IN INTEGER,
|
||||
loc IN VARCHAR2 DEFAULT '') IS
|
||||
con_name VARCHAR2(240);
|
||||
BEGIN
|
||||
con_name := cg$errors.parse_constraint(msg, type);
|
||||
IF (con_name = 'HOEV_PK') THEN
|
||||
cg$errors.push(nvl(HOEV_PK
|
||||
,cg$errors.MsgGetText(cg$errors.API_PK_CON_VIOLATED
|
||||
,cg$errors.APIMSG_PK_VIOLAT
|
||||
,'HOEV_PK'
|
||||
,'HOMEPAGE_ELEMENT_VALUE')),
|
||||
'E',
|
||||
'API',
|
||||
cg$errors.API_PK_CON_VIOLATED,
|
||||
loc);
|
||||
ELSIF (con_name = 'USHE_HOEV_FK' AND type = cg$errors.ERR_DELETE_RESTRICT) THEN
|
||||
cg$errors.push(cg$errors.MsgGetText(cg$errors.API_DEL_RESTRICT, cg$errors.ERR_DEL_RESTRICT, 'Homepage Element Value', 'User Homepage'),
|
||||
'E',
|
||||
'API',
|
||||
cg$errors.API_DEL_RESTRICT,
|
||||
loc);
|
||||
|
||||
ELSIF (con_name = 'HOEV_HOEL_FK') THEN
|
||||
cg$errors.push(nvl(HOEV_HOEL_FK
|
||||
,cg$errors.MsgGetText(cg$errors.API_FK_CON_VIOLATED
|
||||
,cg$errors.APIMSG_FK_VIOLAT
|
||||
,'HOEV_HOEL_FK'
|
||||
,'HOMEPAGE_ELEMENT_VALUE')),
|
||||
'E',
|
||||
'API',
|
||||
cg$errors.API_FK_CON_VIOLATED,
|
||||
loc);
|
||||
ELSE
|
||||
cg$errors.push(SQLERRM,
|
||||
'E',
|
||||
'ORA',
|
||||
SQLCODE,
|
||||
loc);
|
||||
END IF;
|
||||
END err_msg;
|
||||
|
||||
|
||||
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
-- Name: doLobs
|
||||
--
|
||||
-- Description: This function is updating lob columns
|
||||
--
|
||||
-- Parameters: cg$rec Record of row to be inserted
|
||||
-- cg$ind Record of columns specifically set
|
||||
--------------------------------------------------------------------------------
|
||||
PROCEDURE doLobs(cg$rec IN OUT cg$row_type,
|
||||
cg$ind IN OUT cg$ind_type) IS
|
||||
BEGIN
|
||||
NULL;
|
||||
END doLobs;
|
||||
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
-- Name: ins
|
||||
--
|
||||
-- Description: API insert procedure
|
||||
--
|
||||
-- Parameters: cg$rec Record of row to be inserted
|
||||
-- cg$ind Record of columns specifically set
|
||||
-- do_ins Whether we want the actual INSERT to occur
|
||||
--------------------------------------------------------------------------------
|
||||
PROCEDURE ins(cg$rec IN OUT cg$row_type,
|
||||
cg$ind IN OUT cg$ind_type,
|
||||
do_ins IN BOOLEAN DEFAULT TRUE) IS
|
||||
cg$tmp_rec cg$row_type;
|
||||
|
||||
-- Constant default values
|
||||
|
||||
|
||||
BEGIN
|
||||
-- Application_logic Pre-Insert <<Start>>
|
||||
-- Application_logic Pre-Insert << End >>
|
||||
|
||||
-- Defaulted
|
||||
|
||||
-- Auto-generated and uppercased columns
|
||||
|
||||
up_autogen_columns(cg$rec, cg$ind, 'INS', do_ins);
|
||||
|
||||
called_from_package := TRUE;
|
||||
|
||||
IF (do_ins) THEN
|
||||
validate_foreign_keys_ins(cg$rec);
|
||||
validate_arc(cg$rec);
|
||||
validate_domain(cg$rec);
|
||||
|
||||
INSERT INTO HOMEPAGE_ELEMENT_VALUE
|
||||
(HOEV_ID
|
||||
,HOEL_ID
|
||||
,ELEMENT_VALUE)
|
||||
VALUES
|
||||
(cg$rec.HOEV_ID
|
||||
,cg$rec.HOEL_ID
|
||||
,cg$rec.ELEMENT_VALUE
|
||||
);
|
||||
doLobs(cg$rec, cg$ind);
|
||||
slct(cg$rec);
|
||||
|
||||
upd_oper_denorm2(cg$rec, cg$tmp_rec, cg$ind, 'INS');
|
||||
END IF;
|
||||
|
||||
called_from_package := FALSE;
|
||||
|
||||
|
||||
|
||||
-- Application logic Post-Insert <<Start>>
|
||||
-- Application logic Post-Insert << End >>
|
||||
|
||||
EXCEPTION
|
||||
WHEN cg$errors.cg$error THEN
|
||||
called_from_package := FALSE;
|
||||
cg$errors.raise_failure;
|
||||
WHEN cg$errors.mandatory_missing THEN
|
||||
validate_mandatory(cg$rec, 'cg$HOMEPAGE_ELEMENT_VALUE.ins.mandatory_missing');
|
||||
called_from_package := FALSE;
|
||||
cg$errors.raise_failure;
|
||||
WHEN cg$errors.check_violation THEN
|
||||
err_msg(SQLERRM, cg$errors.ERR_CHECK_CON, 'cg$HOMEPAGE_ELEMENT_VALUE.ins.check_violation');
|
||||
called_from_package := FALSE;
|
||||
cg$errors.raise_failure;
|
||||
WHEN cg$errors.fk_violation THEN
|
||||
err_msg(SQLERRM, cg$errors.ERR_FOREIGN_KEY, 'cg$HOMEPAGE_ELEMENT_VALUE.ins.fk_violation');
|
||||
called_from_package := FALSE;
|
||||
cg$errors.raise_failure;
|
||||
WHEN cg$errors.uk_violation THEN
|
||||
err_msg(SQLERRM, cg$errors.ERR_UNIQUE_KEY, 'cg$HOMEPAGE_ELEMENT_VALUE.ins.uk_violation');
|
||||
called_from_package := FALSE;
|
||||
cg$errors.raise_failure;
|
||||
WHEN OTHERS THEN
|
||||
cg$errors.push(SQLERRM,
|
||||
'E',
|
||||
'ORA',
|
||||
SQLCODE,
|
||||
'cg$HOMEPAGE_ELEMENT_VALUE.ins.others');
|
||||
called_from_package := FALSE;
|
||||
cg$errors.raise_failure;
|
||||
END ins;
|
||||
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
-- Name: upd
|
||||
--
|
||||
-- Description: API update procedure
|
||||
--
|
||||
-- Parameters: cg$rec Record of row to be updated
|
||||
-- cg$ind Record of columns specifically set
|
||||
-- do_upd Whether we want the actual UPDATE to occur
|
||||
--------------------------------------------------------------------------------
|
||||
PROCEDURE upd(cg$rec IN OUT cg$row_type,
|
||||
cg$ind IN OUT cg$ind_type,
|
||||
do_upd IN BOOLEAN DEFAULT TRUE,
|
||||
cg$pk IN cg$row_type DEFAULT NULL )
|
||||
IS
|
||||
cg$upd_rec cg$row_type;
|
||||
cg$old_rec cg$row_type;
|
||||
RECORD_LOGGED BOOLEAN := FALSE;
|
||||
BEGIN
|
||||
-- Application_logic Pre-Update <<Start>>
|
||||
-- Application_logic Pre-Update << End >>
|
||||
|
||||
|
||||
IF ( cg$pk.HOEV_ID IS NULL ) THEN
|
||||
cg$upd_rec.HOEV_ID := cg$rec.HOEV_ID;
|
||||
ELSE
|
||||
cg$upd_rec.HOEV_ID := cg$pk.HOEV_ID;
|
||||
END IF;
|
||||
cg$old_rec.HOEV_ID := cg$upd_rec.HOEV_ID;
|
||||
IF ( cg$pk.HOEL_ID IS NULL ) THEN
|
||||
cg$upd_rec.HOEL_ID := cg$rec.HOEL_ID;
|
||||
ELSE
|
||||
cg$upd_rec.HOEL_ID := cg$pk.HOEL_ID;
|
||||
END IF;
|
||||
cg$old_rec.HOEL_ID := cg$upd_rec.HOEL_ID;
|
||||
|
||||
IF ( cg$pk.the_rowid IS NULL ) THEN
|
||||
cg$upd_rec.the_rowid := cg$rec.the_rowid;
|
||||
ELSE
|
||||
cg$upd_rec.the_rowid := cg$pk.the_rowid;
|
||||
END IF;
|
||||
cg$old_rec.the_rowid := cg$upd_rec.the_rowid;
|
||||
|
||||
IF ( do_upd ) THEN
|
||||
|
||||
slct(cg$upd_rec);
|
||||
|
||||
|
||||
-- Report error if attempt to update non updateable Primary Key HOEV_PK
|
||||
IF (cg$ind.HOEV_ID AND cg$rec.HOEV_ID != cg$upd_rec.HOEV_ID) THEN
|
||||
raise_uk_not_updateable('HOEV_PK');
|
||||
END IF;
|
||||
IF (cg$ind.HOEL_ID AND cg$rec.HOEL_ID != cg$upd_rec.HOEL_ID) THEN
|
||||
raise_uk_not_updateable('HOEV_PK');
|
||||
END IF;
|
||||
IF NOT (cg$ind.HOEV_ID) THEN
|
||||
cg$rec.HOEV_ID := cg$upd_rec.HOEV_ID;
|
||||
END IF;
|
||||
IF NOT (cg$ind.HOEL_ID) THEN
|
||||
cg$rec.HOEL_ID := cg$upd_rec.HOEL_ID;
|
||||
END IF;
|
||||
IF NOT (cg$ind.ELEMENT_VALUE) THEN
|
||||
cg$rec.ELEMENT_VALUE := cg$upd_rec.ELEMENT_VALUE;
|
||||
END IF;
|
||||
ELSE
|
||||
-- Perform checks if called from a trigger
|
||||
-- Indicators are only set on changed values
|
||||
null;
|
||||
-- Report error if attempt to update non updateable Primary Key HOEV_PK
|
||||
IF ( cg$ind.HOEV_ID
|
||||
OR cg$ind.HOEL_ID ) THEN
|
||||
raise_uk_not_updateable('HOEV_PK');
|
||||
END IF;
|
||||
END IF;
|
||||
|
||||
up_autogen_columns(cg$rec, cg$ind, 'UPD', do_upd); -- Auto-generated and uppercased columns
|
||||
|
||||
-- Now do update if updateable columns exist
|
||||
IF (do_upd) THEN
|
||||
DECLARE
|
||||
called_from BOOLEAN := called_from_package;
|
||||
BEGIN
|
||||
called_from_package := TRUE;
|
||||
|
||||
slct(cg$old_rec);
|
||||
validate_foreign_keys_upd(cg$rec, cg$old_rec, cg$ind);
|
||||
validate_arc(cg$rec);
|
||||
validate_domain(cg$rec, cg$ind);
|
||||
validate_domain_cascade_update(cg$old_rec);
|
||||
|
||||
IF cg$rec.the_rowid is null THEN
|
||||
UPDATE HOMEPAGE_ELEMENT_VALUE
|
||||
SET
|
||||
ELEMENT_VALUE = cg$rec.ELEMENT_VALUE
|
||||
WHERE HOEV_ID = cg$rec.HOEV_ID
|
||||
AND HOEL_ID = cg$rec.HOEL_ID;
|
||||
null;
|
||||
ELSE
|
||||
UPDATE HOMEPAGE_ELEMENT_VALUE
|
||||
SET
|
||||
ELEMENT_VALUE = cg$rec.ELEMENT_VALUE
|
||||
WHERE rowid = cg$rec.the_rowid;
|
||||
|
||||
null;
|
||||
END IF;
|
||||
|
||||
slct(cg$rec);
|
||||
|
||||
upd_denorm2(cg$rec, cg$ind);
|
||||
upd_oper_denorm2(cg$rec, cg$old_rec, cg$ind, 'UPD');
|
||||
cascade_update(cg$rec, cg$old_rec);
|
||||
domain_cascade_update(cg$rec, cg$ind, cg$old_rec);
|
||||
called_from_package := called_from;
|
||||
END;
|
||||
END IF;
|
||||
|
||||
|
||||
|
||||
IF NOT (do_upd) THEN
|
||||
cg$table(idx).HOEV_ID := cg$rec.HOEV_ID;
|
||||
cg$tableind(idx).HOEV_ID := cg$ind.HOEV_ID;
|
||||
cg$table(idx).HOEL_ID := cg$rec.HOEL_ID;
|
||||
cg$tableind(idx).HOEL_ID := cg$ind.HOEL_ID;
|
||||
cg$table(idx).ELEMENT_VALUE := cg$rec.ELEMENT_VALUE;
|
||||
cg$tableind(idx).ELEMENT_VALUE := cg$ind.ELEMENT_VALUE;
|
||||
idx := idx + 1;
|
||||
END IF;
|
||||
|
||||
-- Application_logic Post-Update <<Start>>
|
||||
-- Application_logic Post-Update << End >>
|
||||
|
||||
EXCEPTION
|
||||
WHEN cg$errors.cg$error THEN
|
||||
called_from_package := FALSE;
|
||||
cg$errors.raise_failure;
|
||||
WHEN cg$errors.upd_mandatory_null THEN
|
||||
validate_mandatory(cg$rec, 'cg$HOMEPAGE_ELEMENT_VALUE.upd.upd_mandatory_null');
|
||||
called_from_package := FALSE;
|
||||
cg$errors.raise_failure;
|
||||
WHEN cg$errors.check_violation THEN
|
||||
err_msg(SQLERRM, cg$errors.ERR_CHECK_CON, 'cg$HOMEPAGE_ELEMENT_VALUE.upd.check_violation');
|
||||
called_from_package := FALSE;
|
||||
cg$errors.raise_failure;
|
||||
WHEN cg$errors.fk_violation THEN
|
||||
err_msg(SQLERRM, cg$errors.ERR_FOREIGN_KEY, 'cg$HOMEPAGE_ELEMENT_VALUE.upd.fk_violation');
|
||||
called_from_package := FALSE;
|
||||
cg$errors.raise_failure;
|
||||
WHEN cg$errors.uk_violation THEN
|
||||
err_msg(SQLERRM, cg$errors.ERR_UNIQUE_KEY, 'cg$HOMEPAGE_ELEMENT_VALUE.upd.uk_violation');
|
||||
called_from_package := FALSE;
|
||||
cg$errors.raise_failure;
|
||||
WHEN OTHERS THEN
|
||||
cg$errors.push(SQLERRM,
|
||||
'E',
|
||||
'ORA',
|
||||
SQLCODE,
|
||||
'cg$HOMEPAGE_ELEMENT_VALUE.upd.others');
|
||||
called_from_package := FALSE;
|
||||
cg$errors.raise_failure;
|
||||
END upd;
|
||||
|
||||
|
||||
----------------------------------------------------------------------------------------
|
||||
-- Name: domain_cascade_upd
|
||||
--
|
||||
-- Description: Update the Domain Constraint Key columns of HOMEPAGE_ELEMENT_VALUE when the
|
||||
-- Cascade Update rule is Cascades and the domain table has been
|
||||
-- updated. Called from <Domain Table pkg>.domain_cascade_update().
|
||||
--
|
||||
-- Parameters: cg$rec New values for HOMEPAGE_ELEMENT_VALUE's domain key constraint columns
|
||||
-- cg$ind Indicates changed HOMEPAGE_ELEMENT_VALUE's domain key constraint columns
|
||||
-- cg$old_rec Current values for HOMEPAGE_ELEMENT_VALUE's domain key constraint columns
|
||||
----------------------------------------------------------------------------------------
|
||||
PROCEDURE domain_cascade_upd( cg$rec IN OUT cg$row_type,
|
||||
cg$ind IN OUT cg$ind_type,
|
||||
cg$old_rec IN cg$row_type )
|
||||
IS
|
||||
called_from BOOLEAN := called_from_package;
|
||||
BEGIN
|
||||
|
||||
null;
|
||||
END domain_cascade_upd;
|
||||
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
-- Name: upd_denorm
|
||||
--
|
||||
-- Description: API procedure for simple denormalization
|
||||
--
|
||||
-- Parameters: cg$rec Record of row to be updated
|
||||
-- cg$ind Record of columns specifically set
|
||||
-- do_upd Whether we want the actual UPDATE to occur
|
||||
--------------------------------------------------------------------------------
|
||||
PROCEDURE upd_denorm2( cg$rec IN cg$row_type,
|
||||
cg$ind IN cg$ind_type ) IS
|
||||
BEGIN
|
||||
NULL;
|
||||
END upd_denorm2;
|
||||
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
-- Name: upd_oper_denorm
|
||||
--
|
||||
-- Description: API procedure for operation denormalization
|
||||
--
|
||||
-- Parameters: cg$rec Record of row to be updated
|
||||
-- cg$ind Record of columns specifically set
|
||||
-- do_upd Whether we want the actual UPDATE to occur
|
||||
--------------------------------------------------------------------------------
|
||||
PROCEDURE upd_oper_denorm2( cg$rec IN cg$row_type,
|
||||
cg$old_rec IN cg$row_type,
|
||||
cg$ind IN cg$ind_type,
|
||||
operation IN VARCHAR2 DEFAULT 'UPD'
|
||||
)
|
||||
IS
|
||||
BEGIN
|
||||
|
||||
|
||||
|
||||
NULL;
|
||||
END upd_oper_denorm2;
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
-- Name: del
|
||||
--
|
||||
-- Description: API delete procedure
|
||||
--
|
||||
-- Parameters: cg$pk Primary key record of row to be deleted
|
||||
--------------------------------------------------------------------------------
|
||||
PROCEDURE del(cg$pk IN cg$pk_type,
|
||||
do_del IN BOOLEAN DEFAULT TRUE) IS
|
||||
BEGIN
|
||||
-- Application_logic Pre-Delete <<Start>>
|
||||
-- Application_logic Pre-Delete << End >>
|
||||
|
||||
-- Delete the record
|
||||
|
||||
called_from_package := TRUE;
|
||||
|
||||
IF (do_del) THEN
|
||||
DECLARE
|
||||
cg$rec cg$row_type;
|
||||
cg$old_rec cg$row_type;
|
||||
cg$ind cg$ind_type;
|
||||
BEGIN
|
||||
cg$rec.HOEV_ID := cg$pk.HOEV_ID;
|
||||
cg$rec.HOEL_ID := cg$pk.HOEL_ID;
|
||||
slct(cg$rec);
|
||||
|
||||
validate_foreign_keys_del(cg$rec);
|
||||
validate_domain_cascade_delete(cg$rec);
|
||||
|
||||
IF cg$pk.the_rowid is null THEN
|
||||
DELETE HOMEPAGE_ELEMENT_VALUE
|
||||
WHERE HOEV_ID = cg$pk.HOEV_ID
|
||||
AND HOEL_ID = cg$pk.HOEL_ID;
|
||||
ELSE
|
||||
DELETE HOMEPAGE_ELEMENT_VALUE
|
||||
WHERE rowid = cg$pk.the_rowid;
|
||||
END IF;
|
||||
|
||||
upd_oper_denorm2(cg$rec, cg$old_rec, cg$ind, 'DEL');
|
||||
cascade_delete(cg$rec);
|
||||
domain_cascade_delete(cg$rec);
|
||||
END;
|
||||
END IF;
|
||||
|
||||
called_from_package := FALSE;
|
||||
|
||||
|
||||
-- Application_logic Post-Delete <<Start>>
|
||||
-- Application_logic Post-Delete << End >>
|
||||
|
||||
EXCEPTION
|
||||
WHEN cg$errors.cg$error THEN
|
||||
called_from_package := FALSE;
|
||||
cg$errors.raise_failure;
|
||||
WHEN cg$errors.delete_restrict THEN
|
||||
err_msg(SQLERRM, cg$errors.ERR_DELETE_RESTRICT, 'cg$HOMEPAGE_ELEMENT_VALUE.del.delete_restrict');
|
||||
called_from_package := FALSE;
|
||||
cg$errors.raise_failure;
|
||||
WHEN no_data_found THEN
|
||||
cg$errors.push(cg$errors.MsgGetText(cg$errors.API_ROW_DEL, cg$errors.ROW_DEL),
|
||||
'E',
|
||||
'ORA',
|
||||
SQLCODE,
|
||||
'cg$HOMEPAGE_ELEMENT_VALUE.del.no_data_found');
|
||||
called_from_package := FALSE;
|
||||
cg$errors.raise_failure;
|
||||
WHEN OTHERS THEN
|
||||
cg$errors.push(SQLERRM,
|
||||
'E',
|
||||
'ORA',
|
||||
SQLCODE,
|
||||
'cg$HOMEPAGE_ELEMENT_VALUE.del.others');
|
||||
called_from_package := FALSE;
|
||||
cg$errors.raise_failure;
|
||||
END del;
|
||||
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
-- Name: lck
|
||||
--
|
||||
-- Description: API lock procedure
|
||||
--
|
||||
-- Parameters: cg$old_rec Calling apps view of record of row to be locked
|
||||
-- cg$old_ind Record of columns to raise error if modified
|
||||
-- nowait_flag TRUE lock with NOWAIT, FALSE don't fail if busy
|
||||
--------------------------------------------------------------------------------
|
||||
PROCEDURE lck(cg$old_rec IN cg$row_type,
|
||||
cg$old_ind IN cg$ind_type,
|
||||
nowait_flag IN BOOLEAN DEFAULT TRUE) IS
|
||||
cg$tmp_rec cg$row_type;
|
||||
any_modified BOOLEAN := FALSE;
|
||||
|
||||
BEGIN
|
||||
-- Application_logic Pre-Lock <<Start>>
|
||||
-- Application_logic Pre-Lock << End >>
|
||||
|
||||
-- Do the row lock
|
||||
|
||||
BEGIN
|
||||
IF (nowait_flag) THEN
|
||||
IF cg$old_rec.the_rowid is null THEN
|
||||
SELECT HOEV_ID
|
||||
, HOEL_ID
|
||||
, ELEMENT_VALUE
|
||||
INTO cg$tmp_rec.HOEV_ID
|
||||
, cg$tmp_rec.HOEL_ID
|
||||
, cg$tmp_rec.ELEMENT_VALUE
|
||||
FROM HOMEPAGE_ELEMENT_VALUE
|
||||
WHERE HOEV_ID = cg$old_rec.HOEV_ID
|
||||
AND HOEL_ID = cg$old_rec.HOEL_ID
|
||||
FOR UPDATE NOWAIT;
|
||||
ELSE
|
||||
SELECT HOEV_ID
|
||||
, HOEL_ID
|
||||
, ELEMENT_VALUE
|
||||
INTO cg$tmp_rec.HOEV_ID
|
||||
, cg$tmp_rec.HOEL_ID
|
||||
, cg$tmp_rec.ELEMENT_VALUE
|
||||
FROM HOMEPAGE_ELEMENT_VALUE
|
||||
WHERE rowid = cg$old_rec.the_rowid
|
||||
FOR UPDATE NOWAIT;
|
||||
END IF;
|
||||
ELSE
|
||||
IF cg$old_rec.the_rowid is null THEN
|
||||
SELECT HOEV_ID
|
||||
, HOEL_ID
|
||||
, ELEMENT_VALUE
|
||||
INTO cg$tmp_rec.HOEV_ID
|
||||
, cg$tmp_rec.HOEL_ID
|
||||
, cg$tmp_rec.ELEMENT_VALUE
|
||||
FROM HOMEPAGE_ELEMENT_VALUE
|
||||
WHERE HOEV_ID = cg$old_rec.HOEV_ID
|
||||
AND HOEL_ID = cg$old_rec.HOEL_ID
|
||||
FOR UPDATE;
|
||||
ELSE
|
||||
SELECT HOEV_ID
|
||||
, HOEL_ID
|
||||
, ELEMENT_VALUE
|
||||
INTO cg$tmp_rec.HOEV_ID
|
||||
, cg$tmp_rec.HOEL_ID
|
||||
, cg$tmp_rec.ELEMENT_VALUE
|
||||
FROM HOMEPAGE_ELEMENT_VALUE
|
||||
WHERE rowid = cg$old_rec.the_rowid
|
||||
FOR UPDATE;
|
||||
END IF;
|
||||
END IF;
|
||||
|
||||
EXCEPTION
|
||||
WHEN cg$errors.cg$error THEN
|
||||
cg$errors.raise_failure;
|
||||
WHEN cg$errors.resource_busy THEN
|
||||
cg$errors.push(cg$errors.MsgGetText(cg$errors.API_ROW_LCK, cg$errors.ROW_LCK),
|
||||
'E',
|
||||
'ORA',
|
||||
SQLCODE,
|
||||
'cg$HOMEPAGE_ELEMENT_VALUE.lck.resource_busy');
|
||||
cg$errors.raise_failure;
|
||||
WHEN no_data_found THEN
|
||||
cg$errors.push(cg$errors.MsgGetText(cg$errors.API_ROW_DEL, cg$errors.ROW_DEL),
|
||||
'E',
|
||||
'ORA',
|
||||
SQLCODE,
|
||||
'cg$HOMEPAGE_ELEMENT_VALUE.lck.no_data_found');
|
||||
cg$errors.raise_failure;
|
||||
WHEN OTHERS THEN
|
||||
cg$errors.push(SQLERRM,
|
||||
'E',
|
||||
'ORA',
|
||||
SQLCODE,
|
||||
'cg$HOMEPAGE_ELEMENT_VALUE.lck.others');
|
||||
cg$errors.raise_failure;
|
||||
END;
|
||||
|
||||
-- Optional Columns
|
||||
|
||||
|
||||
-- Mandatory Columns
|
||||
|
||||
IF (cg$old_ind.HOEV_ID) THEN
|
||||
IF (cg$tmp_rec.HOEV_ID != cg$old_rec.HOEV_ID) THEN
|
||||
cg$errors.push(cg$errors.MsgGetText(cg$errors.API_ROW_MOD, cg$errors.ROW_MOD, P10HOEV_ID
|
||||
),'E', 'API', CG$ERRORS.API_MODIFIED, 'cg$HOMEPAGE_ELEMENT_VALUE.lck');
|
||||
any_modified := TRUE;
|
||||
END IF;
|
||||
END IF;
|
||||
IF (cg$old_ind.HOEL_ID) THEN
|
||||
IF (cg$tmp_rec.HOEL_ID != cg$old_rec.HOEL_ID) THEN
|
||||
cg$errors.push(cg$errors.MsgGetText(cg$errors.API_ROW_MOD, cg$errors.ROW_MOD, P20HOEL_ID
|
||||
),'E', 'API', CG$ERRORS.API_MODIFIED, 'cg$HOMEPAGE_ELEMENT_VALUE.lck');
|
||||
any_modified := TRUE;
|
||||
END IF;
|
||||
END IF;
|
||||
IF (cg$old_ind.ELEMENT_VALUE) THEN
|
||||
IF (cg$tmp_rec.ELEMENT_VALUE != cg$old_rec.ELEMENT_VALUE) THEN
|
||||
cg$errors.push(cg$errors.MsgGetText(cg$errors.API_ROW_MOD, cg$errors.ROW_MOD, P30ELEMENT_VALUE
|
||||
),'E', 'API', CG$ERRORS.API_MODIFIED, 'cg$HOMEPAGE_ELEMENT_VALUE.lck');
|
||||
any_modified := TRUE;
|
||||
END IF;
|
||||
END IF;
|
||||
|
||||
IF (any_modified) THEN
|
||||
cg$errors.raise_failure;
|
||||
END IF;
|
||||
|
||||
-- Application_logic Post-Lock <<Start>>
|
||||
-- Application_logic Post-Lock << End >>
|
||||
|
||||
END lck;
|
||||
|
||||
|
||||
BEGIN
|
||||
cg$ind_true.HOEV_ID := TRUE;
|
||||
cg$ind_true.HOEL_ID := TRUE;
|
||||
cg$ind_true.ELEMENT_VALUE := TRUE;
|
||||
|
||||
|
||||
END cg$HOMEPAGE_ELEMENT_VALUE;
|
||||
/
|
||||
|
||||
Reference in New Issue
Block a user