@Override PROCEDURE Check_Common___ ( oldrec_ IN client_information_tab%ROWTYPE, newrec_ IN OUT client_information_tab%ROWTYPE, indrec_ IN OUT Indicator_Rec, attr_ IN OUT VARCHAR2 ) IS unit_type_ ISO_UNIT_DEF.unit_type%TYPE; BEGIN super(oldrec_, newrec_, indrec_, attr_); unit_type_ := Iso_Unit_Type_API.Encode(Get_Unit_Type(newrec_.base_unit)); IF (nvl(unit_type_, newrec_.unit_type) <> newrec_.unit_type) THEN newrec_.unit_type := unit_type_; Client_SYS.Add_To_Attr('UNIT_TYPE', unit_type_, attr_); Client_SYS.Add_Info(lu_name_, 'DERIVED_UNIT_TYPE: Unit type has been set to :P1. Derived from the base unit.', unit_type_); END IF; IF newrec_.status = 'INVALID' THEN Client_SYS.Add_Warning(lu_name_, 'INVALID_STATUS: Project activity :P1 is not valid. Do you want to continue?', newrec_.activity_name); END IF; END Check_Common___;