The following lines contain the word 'select', 'insert', 'update' or 'delete':
REM | 13-FEB-03 sashaik 2784713 Measure update fix. |
REM | 11-APR-03 sugopal Not possible to update an existing value with null |
REM | in the Create/Update performance measures page - |
REM | modified UpdateMeasureRec for bug#2869324 |
REM | 23-APR-03 mdamle PMD - Measure Definer Support |
REM | 18-JUN-03 mdamle Fixed bug in Get_Measure_Id_From_Name |
REM | 24-JUN-2003 rchandra leap frog PMD Changes to verssion 115.68 |
REM | 24-JUN-2003 rchandra leap frog 115.70 to support dataset_id which |
REM | already has been coded for bug 3004651 |
REM | 26-JUN-2003 rchandra populated dataset_id into measure_rec in the |
REM | API retrieve_measure for bug 3004651 |
REM | 04-JUL-2003 arhegde bug# 2975949 If enable link is null, then insert/ |
REM | update 'N' instead |
REM | 14-JUL-2003 jxyu Fixed for bug#3037200. Remove the additional check |
REM | in Delete_Measure() for PMD |
REM | 18-JUL-2003 mdamle Added check for duplicate name in update_measure |
REM | Added check for enable_link |
REM | Added check for data source column |
REM | 01-Aug-2003 mdamle Bug#3055812 - Chk for duplicate name after trimming|
REM | 06-Aug-2003 mdamle Fixed isSourceColumnMappedAlready |
REM | 20-Aug-2003 mdamle Bug#3102928 - Added check for actual_data_source |
REM | 10-SEP-2003 mahrao Added check for matching dimensions in update_measure|
REM | procedure which will be called when measure is |
REM | uploaded through an ldt. |
REM | 25-SEP-2003 mdamle Bug#3160325 - Sync up measures for all installed |
REM | languages |
REM | 29-SEP-2003 adrao Bug#3160325 - Sync up measures for all installed |
REM | source languages |
REM | 12-NOV-2003 smargand added new function to determine whether the |
REM | given indicator is customized, |
REM | added enable column to the affected views, |
REM | 24-FEB-04 KYADAMAK Bug #3439942 space not allowed for PMF |
REM | Measures |
REM | 08-APR-04 ankgoel Modified for bug#3557236 |
REM | 27-MAY-04 ankgoel Modified for bug#3610655 |
REM | 03-JUN-04 ankgoel Modified for bug#3583357. Added procedure call |
REM | for re-sequencing dimensions in |
REM | bis_indicator_dimensions using the dim level |
REM | order in bis_target_levels. |
REM | 27-JUL-04 sawu Resolved WHO column info based on p_owner |
REM | 02-SEP-04 sawu Bug#3859267: added isColumnMappedAlready(), |
REM | isSourceColumnMappedAlready() and |
REM | isCompareColumnMappedAlready() |
REM | 13-SEP-04 sawu Bug#3852077: added api IsDimensionUpdatable() |
REM | 29-SEP-04 ankgoel Added WHO columns in Rec for Bug#3891748 |
REM | 01-OCT-04 ankgoel Bug#3922308 - The new and old set of dimensions |
REM | for a measure should be exactly same. Reverted |
REM | fix done for Bug#3852077. Also, got the dimensions|
REM | from existing measure record in case of re-order. |
REM | 20-Dec-04 sawu Bug#4045278: Modified update_measure to populate |
REM | last_update_date from l_Measure_Rec. Removed line |
REM | that updated last_update_date in api |
REM | Translate_Measure_by_lang to preserve lud integrity. |
REM | Overloaded create_measure() also. |
REM | 27-Dec-04 rpenneru Bug#4080204: Modifed Create_Measure(), |
REM | Update_Measure() to populate functional Area Name |
REM | to Measure extensions if the measure is uploaded. |
REM | 31-Jan-2005 rpenneru Modified for #4073262, BIS_MEASURES_EXTENSION_TL |
REM | Name and Description should not be updated, if the measure|
REM | is uploaded from BISPMFLD.lct |
REM | 09-FEB-04 skchoudh Enh#4141738 Added Functiona Area Combobox to MD |
REM | 21-MAR-05 ankagarw bug#4235732 - changing count(*) to count(1) |
REM | 22-APR-2005 akoduri Enhancement#3865711 -- Obsolete Seeded Objects |
REM | 03-MAY-2005 akoduri Enh #4268374 -- Weighted Average Measures |
REM | 19-MAY-2005 visuri GSCC Issues bug 4363854 |
REM | 19-JUL-2005 rpenneru bug#4447273- bis_measures_extension is corrupted|
REM | when the ldt file is not having the FA short name |
REM | 20-SEP-2005 akoduri bug#4607348 - Obsoletion of measures is not |
REM | changing the last_update_date and last_updated_by |
REM | 16-JUN-2006 akoduri bug#5286873 Error is not shown in data source |
REM | mapping page in non-US sessions |
REM +=======================================================================+
*/
--
G_PKG_NAME CONSTANT VARCHAR2(30):='BIS_MEASURE_PVT';
PROCEDURE Update_Measure_Rec_Total -- 2664898
( p_Measure_Rec_orig IN BIS_MEASURE_PUB.Measure_Rec_Type
, p_Measure_Rec_new IN BIS_MEASURE_PUB.Measure_Rec_Type
, x_Measure_Rec OUT NOCOPY BIS_MEASURE_PUB.Measure_Rec_Type
);
PROCEDURE UpdateMeasureRecNoDim -- 2664898
( p_Measure_Rec IN BIS_MEASURE_PUB.Measure_Rec_Type
, p_Measure_Rec1 IN BIS_MEASURE_PUB.Measure_Rec_Type
, x_Measure_Rec OUT NOCOPY BIS_MEASURE_PUB.Measure_Rec_Type
);
PROCEDURE Update_Measure_Rec_Dims -- 2664898
( p_Measure_Rec_orig IN BIS_MEASURE_PUB.Measure_Rec_Type
, p_Measure_Rec_new IN BIS_MEASURE_PUB.Measure_Rec_Type
, x_Measure_Rec OUT NOCOPY BIS_MEASURE_PUB.Measure_Rec_Type
);
select indicator_id
from bis_indicators
where short_name = p_measure_rec.Measure_Short_name;
select indicator_id
from bis_indicators_vl
where name = p_measure_rec.Measure_name;
insert into bis_indicator_dimensions
(
INDICATOR_ID
, Dimension_ID
, SEQUENCE_NO
, CREATION_DATE
, CREATED_BY
, LAST_UPDATE_DATE
, LAST_UPDATED_BY
, LAST_UPDATE_LOGIN
)
values
( p_Measure_ID
, p_dimension_id
, p_sequence_no
, SYSDATE
, l_user_id
, SYSDATE
, l_user_id
, l_login_id
);
x_measure_rec.Last_Updated_By := BIS_UTILITIES_PVT.CheckMissNum(p_measure_rec.Last_Updated_By);
x_measure_rec.Last_Update_Date := BIS_UTILITIES_PVT.CheckMissDate(p_measure_rec.Last_Update_Date);
x_measure_rec.Last_Update_Login := BIS_UTILITIES_PVT.CheckMissNum(p_measure_rec.Last_Update_Login);
IF (l_Measure_Rec.Last_Updated_By IS NULL) THEN
l_Measure_Rec.Last_Updated_By := l_Measure_Rec.Created_By;
IF (l_Measure_Rec.Last_Update_Login IS NULL) THEN
l_Measure_Rec.Last_Update_Login := fnd_global.LOGIN_ID;
IF (l_Measure_Rec.Last_Update_Date IS NULL) THEN
l_Measure_Rec.Last_Update_Date := sysdate;
select bis_indicators_s.NextVal into l_id from dual;
insert into bis_indicators(
INDICATOR_ID
, SHORT_NAME
, UOM_CLASS
, ACTUAL_DATA_SOURCE_TYPE
, ACTUAL_DATA_SOURCE
, FUNCTION_NAME
, COMPARISON_SOURCE
, INCREASE_IN_MEASURE
, ENABLE_LINK -- 2440739
-- mdamle 4/23/2003 - PMD - Measure Definer
, ENABLED -- #3031053
, OBSOLETE --#3865711
, MEASURE_TYPE
, DATASET_ID
, CREATION_DATE
, CREATED_BY
, LAST_UPDATE_DATE
, LAST_UPDATED_BY
, LAST_UPDATE_LOGIN
)
values
( l_id
, l_Measure_Rec.Measure_Short_Name
, l_Measure_Rec.Unit_Of_Measure_Class
, l_Measure_Rec.Actual_Data_Source_Type
, l_Measure_Rec.Actual_Data_Source
, l_Measure_Rec.Function_Name
, l_Measure_Rec.Comparison_Source
, l_Measure_Rec.Increase_In_Measure
, NVL(l_Measure_Rec.Enable_Link, 'N')
-- mdamle 4/23/2003 - PMD - Measure Definer
, l_Measure_Rec.enabled
-- #3031053
, l_Measure_Rec.Obsolete --3865711
, l_Measure_Rec.Measure_Type
, l_Measure_Rec.Dataset_id
, l_Measure_Rec.Creation_Date
, l_Measure_Rec.Created_By
, l_Measure_Rec.Last_Update_Date
, l_Measure_Rec.Last_Updated_By
, l_Measure_Rec.Last_Update_Login
);
insert into bis_INDICATORS_TL (
INDICATOR_ID,
LANGUAGE,
NAME,
DESCRIPTION,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
TRANSLATED,
SOURCE_LANG
) select
l_id
, L.LANGUAGE_CODE
, l_Measure_Rec.Measure_Name
, l_Measure_Rec.Description
, l_Measure_Rec.Creation_Date
, l_Measure_Rec.Created_By
, l_Measure_Rec.Last_Update_Date
, l_Measure_Rec.Last_Updated_By
, l_Measure_Rec.Last_Update_Login
, 'Y'
, userenv('LANG')
from FND_LANGUAGES L
where L.INSTALLED_FLAG in ('I', 'B')
and not exists
(select NULL
from bis_INDICATORS_TL T
where T.indicator_ID = l_id
and T.LANGUAGE = L.LANGUAGE_CODE);
IF (l_Measure_Rec.Last_Updated_By IS NULL) THEN
l_Measure_Rec.Last_Updated_By := l_Measure_Rec.Created_By;
IF (l_Measure_Rec.Last_Update_Login IS NULL) THEN
l_Measure_Rec.Last_Update_Login := fnd_global.LOGIN_ID;
IF (l_Measure_Rec.Last_Update_Date IS NULL) THEN
l_Measure_Rec.Last_Update_Date := sysdate;
select bis_indicators_s.NextVal into l_id from dual;
insert into bis_indicators(
INDICATOR_ID
, SHORT_NAME
, UOM_CLASS
, ACTUAL_DATA_SOURCE_TYPE
, ACTUAL_DATA_SOURCE
, FUNCTION_NAME
, COMPARISON_SOURCE
, INCREASE_IN_MEASURE
, ENABLE_LINK
-- mdamle 4/23/2003 - PMD - Measure Definer
, ENABLED -- #3031053
, OBSOLETE --3865711
, MEASURE_TYPE
, DATASET_ID
, CREATION_DATE
, CREATED_BY
, LAST_UPDATE_DATE
, LAST_UPDATED_BY
, LAST_UPDATE_LOGIN
)
values
( l_id
, l_Measure_Rec.Measure_Short_Name
, l_Measure_Rec.Unit_Of_Measure_Class
, l_Measure_Rec.Actual_Data_Source_Type
, l_Measure_Rec.Actual_Data_Source
, l_Measure_Rec.Function_Name
, l_Measure_Rec.Comparison_Source
, l_Measure_Rec.Increase_In_Measure
, NVL(l_Measure_Rec.Enable_Link, 'N')
-- mdamle 4/23/2003 - PMD - Measure Definer
, l_Measure_Rec.enabled
, l_Measure_Rec.Obsolete --3865711
, l_Measure_Rec.Measure_Type
, l_Measure_Rec.Dataset_id
, l_Measure_Rec.Creation_Date
, l_Measure_Rec.Created_By
, l_Measure_Rec.Last_Update_Date
, l_Measure_Rec.Last_Updated_By
, l_Measure_Rec.Last_Update_Login
);
insert into bis_indicators(
INDICATOR_ID
, SHORT_NAME
, UOM_CLASS
, CREATION_DATE
, CREATED_BY
, LAST_UPDATE_DATE
, LAST_UPDATED_BY
, LAST_UPDATE_LOGIN
)
values
( l_id
, l_Measure_Rec.Measure_Short_Name
, l_Measure_Rec.Unit_Of_Measure_Class
, SYSDATE
, l_user_id
, SYSDATE
, l_user_id
, l_login_id
);
insert into bis_INDICATORS_TL (
INDICATOR_ID,
LANGUAGE,
NAME,
DESCRIPTION,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
TRANSLATED,
SOURCE_LANG
) select
l_id
, L.LANGUAGE_CODE
, l_Measure_Rec.Measure_Name
, l_Measure_Rec.Description
, l_Measure_Rec.Creation_Date
, l_Measure_Rec.Created_By
, l_Measure_Rec.Last_Update_Date
, l_Measure_Rec.Last_Updated_By
, l_Measure_Rec.Last_Update_Login
, 'Y'
, userenv('LANG')
from FND_LANGUAGES L
where L.INSTALLED_FLAG in ('I', 'B')
and not exists
(select NULL
from bis_INDICATORS_TL T
where T.indicator_ID = l_id
and T.LANGUAGE = L.LANGUAGE_CODE);
select measure_id, measure_short_name, measure_name
from bisbv_performance_measures
order by UPPER(MEASURE_NAME);
Select Measure_id
, Measure_short_name
, Measure_name
, description
, actual_data_source_type
, actual_data_source
, Function_Name
, Comparison_Source
, Increase_In_Measure
, Enable_Link
, Enabled
, Obsolete --3865711
, Measure_Type
, Dimension1_Id
, Dimension2_Id
, Dimension3_Id
, Dimension4_Id
, Dimension5_Id
, Dimension6_Id
, Dimension7_Id
, Unit_of_Measure_Class
, Dataset_Id
into x_Measure_rec.Measure_id
, x_Measure_rec.Measure_short_name
, x_Measure_rec.Measure_name
, x_Measure_rec.description
, x_Measure_rec.Actual_Data_Source_Type
, x_Measure_rec.Actual_Data_Source
, x_Measure_rec.Function_Name
, x_Measure_rec.Comparison_Source
, x_Measure_rec.Increase_In_Measure
, x_Measure_rec.Enable_Link
, x_Measure_rec.Enabled
, x_Measure_rec.Obsolete --3865711
, x_Measure_rec.Measure_Type
, x_Measure_rec.Dimension1_Id
, x_Measure_rec.Dimension2_Id
, x_Measure_rec.Dimension3_Id
, x_Measure_rec.Dimension4_Id
, x_Measure_rec.Dimension5_Id
, x_Measure_rec.Dimension6_Id
, x_Measure_rec.Dimension7_Id
, x_Measure_rec.Unit_Of_Measure_Class
, x_Measure_rec.Dataset_Id
from bisbv_performance_measures
where measure_id = p_Measure_Rec.Measure_ID;
Select Measure_id
, Measure_short_name
, Measure_name
, description
, actual_data_source_type
, actual_data_source
, Function_Name
, Comparison_Source
, Increase_In_Measure
, Enable_Link
, Enabled
, Obsolete --3865711
, Measure_Type
, Dimension1_Id
, Dimension2_Id
, Dimension3_Id
, Dimension4_Id
, Dimension5_Id
, Dimension6_Id
, Dimension7_Id
, Unit_of_Measure_Class
, Dataset_Id
into x_Measure_rec.Measure_id
, x_Measure_rec.Measure_short_name
, x_Measure_rec.Measure_name
, x_Measure_rec.description
, x_Measure_rec.Actual_Data_Source_Type
, x_Measure_rec.Actual_Data_Source
, x_Measure_rec.Function_Name
, x_Measure_rec.Comparison_Source
, x_Measure_rec.Increase_In_Measure
, x_Measure_rec.Enable_Link
, x_Measure_rec.Enabled
, x_Measure_rec.Obsolete --3865711
, x_Measure_rec.Measure_Type
, x_Measure_rec.Dimension1_Id
, x_Measure_rec.Dimension2_Id
, x_Measure_rec.Dimension3_Id
, x_Measure_rec.Dimension4_Id
, x_Measure_rec.Dimension5_Id
, x_Measure_rec.Dimension6_Id
, x_Measure_rec.Dimension7_Id
, x_Measure_rec.Unit_Of_Measure_Class
, x_Measure_rec.Dataset_Id
from bisbv_performance_measures
where measure_short_name = p_Measure_Rec.Measure_Short_Name; -- bug fix -- mahesh
Procedure Update_Indicator_Dimension
( p_Measure_id number
, p_dimension_id number
, p_sequence_no number
, p_owner IN VARCHAR2 := BIS_UTILITIES_PUB.G_CUSTOM_OWNER
, x_return_status OUT NOCOPY VARCHAR2
, x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
)
is
l_user_id number;
UPDATE bis_indicator_dimensions
set
Dimension_ID = p_dimension_id
, CREATION_DATE = SYSDATE
, CREATED_BY = l_user_id
, LAST_UPDATE_DATE = SYSDATE
, LAST_UPDATED_BY = l_user_id
, LAST_UPDATE_LOGIN = l_login_id
where INDICATOR_ID = p_Measure_ID
AND SEQUENCE_NO = p_sequence_no;
, p_error_proc_name => G_PKG_NAME||'.Update_Indicator_Dimension'
, p_error_table => l_error_tbl
, x_error_table => x_error_tbl
);
end Update_Indicator_Dimension;
PROCEDURE UpdateMeasureRec -- Changed for 2784713
( p_Measure_Rec IN BIS_MEASURE_PUB.Measure_Rec_Type
, p_Measure_Rec1 IN BIS_MEASURE_PUB.Measure_Rec_Type
, x_Measure_Rec OUT NOCOPY BIS_MEASURE_PUB.Measure_Rec_Type
)
IS
BEGIN
x_measure_rec := p_Measure_Rec1;
END UpdateMeasureRec;
PROCEDURE Update_Measure_Rec_Total -- 2664898
( p_Measure_Rec_orig IN BIS_MEASURE_PUB.Measure_Rec_Type
, p_Measure_Rec_new IN BIS_MEASURE_PUB.Measure_Rec_Type
, x_Measure_Rec OUT NOCOPY BIS_MEASURE_PUB.Measure_Rec_Type
)
IS
l_Measure_Rec BIS_MEASURE_PUB.Measure_Rec_Type;
UpdateMeasureRecNoDim
( p_Measure_Rec => p_Measure_Rec_new
, p_Measure_Rec1 => p_Measure_Rec_Orig
, x_Measure_Rec => l_Measure_Rec
);
Update_Measure_Rec_Dims
( p_Measure_Rec_orig => l_Measure_Rec
, p_Measure_Rec_new => p_Measure_Rec_new
, x_Measure_Rec => x_Measure_Rec
);
END Update_Measure_Rec_Total;
PROCEDURE UpdateMeasureRecNoDim
( p_Measure_Rec IN BIS_MEASURE_PUB.Measure_Rec_Type
, p_Measure_Rec1 IN BIS_MEASURE_PUB.Measure_Rec_Type
, x_Measure_Rec OUT NOCOPY BIS_MEASURE_PUB.Measure_Rec_Type
)
IS
l_ret VARCHAR2(32000);
END UpdateMeasureRecNoDim;
PROCEDURE Update_Measure_Rec_Dims
( p_Measure_Rec_orig IN BIS_MEASURE_PUB.Measure_Rec_Type
, p_Measure_Rec_new IN BIS_MEASURE_PUB.Measure_Rec_Type
, x_Measure_Rec OUT NOCOPY BIS_MEASURE_PUB.Measure_Rec_Type
)
IS
BEGIN
x_Measure_Rec := p_Measure_Rec_orig;
END Update_Measure_Rec_Dims;
Procedure Update_Measure
( p_api_version IN NUMBER
, p_commit IN VARCHAR2 := FND_API.G_FALSE
, p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
, p_Measure_Rec IN BIS_MEASURE_PUB.Measure_Rec_Type
, x_return_status OUT NOCOPY VARCHAR2
, x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
)
IS
l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
BIS_MEASURE_PVT.Update_Measure
( p_api_version => p_api_version
, p_commit => p_commit
, p_validation_level => p_validation_level
, p_Measure_Rec => p_Measure_Rec
, p_owner => BIS_UTILITIES_PUB.G_CUSTOM_OWNER
, x_return_status => x_return_status
, x_error_Tbl => x_error_Tbl
);
, p_error_proc_name => G_PKG_NAME||'.Update_Measure'
, p_error_table => l_error_tbl
, x_error_table => x_error_tbl
);
END Update_Measure;
Procedure Update_Measure -- Changed for 2784713
( p_api_version IN NUMBER
, p_commit IN VARCHAR2 := FND_API.G_FALSE
, p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
, p_Measure_Rec IN BIS_MEASURE_PUB.Measure_Rec_Type
, p_owner IN VARCHAR2 := BIS_UTILITIES_PUB.G_CUSTOM_OWNER
, x_return_status OUT NOCOPY VARCHAR2
, x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
)
IS
l_user_id number;
, p_error_proc_name => G_PKG_NAME||'.Update_Measure'
, p_error_type => BIS_UTILITIES_PUB.G_ERROR
, p_error_table => l_error_tbl
, x_error_table => x_error_tbl
);
, p_error_proc_name => G_PKG_NAME||'.Update_Measure'
, p_error_type => BIS_UTILITIES_PUB.G_ERROR
, p_token1 => 'MEASURE'
, p_value1 => l_Mapped_measure
, p_error_table => l_error_tbl
, x_error_table => x_error_tbl
);
, p_error_proc_name => G_PKG_NAME||'.Update_Measure'
, p_error_type => BIS_UTILITIES_PUB.G_ERROR
, p_token1 => 'MEASURE'
, p_value1 => l_Mapped_measure
, p_error_table => l_error_tbl
, x_error_table => x_error_tbl
);
, p_error_proc_name => G_PKG_NAME||'.Update_Measure'
, p_error_type => BIS_UTILITIES_PUB.G_ERROR
, p_error_table => l_error_tbl
, x_error_table => x_error_tbl
);
, p_error_proc_name => G_PKG_NAME||'.Update_Measure'
, p_error_type => BIS_UTILITIES_PUB.G_ERROR
, p_error_table => l_error_tbl
, x_error_table => x_error_tbl
);
UpdateMeasureRec
( p_Measure_Rec => l_Measure_Rec_Overlap
, p_Measure_Rec1 => l_Measure_Rec_Orig
, x_Measure_Rec => l_Measure_Rec1
);
l_Measure_Rec.Last_Updated_By := l_user_id;
l_Measure_Rec.Last_Update_Login := l_login_id;
l_Measure_Rec.Last_Update_Date := p_Measure_Rec.Last_Update_Date;
IF (l_Measure_Rec.Last_Update_Date IS NULL) THEN
l_Measure_Rec.Last_Update_Date := SYSDATE;
Update bis_indicators
set
SHORT_NAME = l_Measure_Rec.Measure_Short_Name
, UOM_Class = l_Measure_Rec.Unit_Of_Measure_Class
, ACTUAL_DATA_SOURCE_TYPE = l_Measure_Rec.Actual_Data_Source_Type
, ACTUAL_DATA_SOURCE = l_Measure_Rec.Actual_Data_Source
, FUNCTION_NAME = l_Measure_Rec.Function_Name
, COMPARISON_SOURCE = l_Measure_Rec.Comparison_Source
, INCREASE_IN_MEASURE = l_Measure_Rec.Increase_In_Measure
, ENABLE_LINK = NVL(l_Measure_Rec.Enable_Link, 'N')
, ENABLED = l_Measure_Rec.enabled -- #3031053
, OBSOLETE = l_Measure_Rec.Obsolete --3865711
, MEASURE_TYPE = l_Measure_Rec.Measure_Type
, LAST_UPDATE_DATE = l_Measure_Rec.Last_Update_Date
, LAST_UPDATED_BY = l_user_id
, LAST_UPDATE_LOGIN = l_login_id
where INDICATOR_ID = l_Measure_Rec.Measure_Id;
delete from bis_indicator_dimensions
where indicator_id = l_measure_rec.Measure_id;
Update_Application_Measure
( p_api_version => p_api_version
, p_commit => p_commit
, p_Measure_rec => l_Measure_rec
, p_application_rec => l_application_rec
, p_owning_application => l_own_appl
, p_owner => p_owner
, x_return_status => x_return_status
, x_error_Tbl => x_error_Tbl
);
, p_error_proc_name => G_PKG_NAME||'.Update_Measure'
, p_error_table => l_error_tbl
, x_error_table => x_error_tbl
);
END Update_Measure;
Procedure Update_Measure
( p_api_version IN NUMBER
, p_commit IN VARCHAR2 := FND_API.G_FALSE
, p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
, p_Measure_Rec IN BIS_MEASURE_PUB.Measure_Rec_Type
, p_owner IN VARCHAR2 := BIS_UTILITIES_PUB.G_CUSTOM_OWNER
, p_Org_Dimension_ID IN NUMBER
, p_Time_Dimension_ID IN NUMBER
, x_return_status OUT NOCOPY VARCHAR2
, x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
)
IS
l_user_id number;
, p_error_proc_name => G_PKG_NAME||'.Update_Measure'
, p_error_type => BIS_UTILITIES_PUB.G_ERROR
, p_error_table => l_error_tbl
, x_error_table => x_error_tbl
);
, p_error_proc_name => G_PKG_NAME||'.Update_Measure'
, p_error_type => BIS_UTILITIES_PUB.G_ERROR
, p_error_table => l_error_tbl
, x_error_table => x_error_tbl
);
Update_Measure_Rec_Total -- 2664898
( p_Measure_Rec_orig => l_Measure_Rec_Orig
, p_Measure_Rec_new => p_Measure_Rec
, x_Measure_Rec => l_Measure_Rec
);
l_Measure_Rec.Last_Update_Date := p_Measure_Rec.Last_Update_Date;
IF (l_Measure_Rec.Last_Update_Date IS NULL) THEN
l_Measure_Rec.Last_Update_Date := SYSDATE;
Update bis_indicators
set
SHORT_NAME = l_Measure_Rec.Measure_Short_Name
, UOM_Class = l_Measure_Rec.Unit_Of_Measure_Class -- Fix for 2167619 starts here
, ACTUAL_DATA_SOURCE_TYPE = l_Measure_Rec.Actual_Data_Source_Type
, ACTUAL_DATA_SOURCE = l_Measure_Rec.Actual_Data_Source
, FUNCTION_NAME = l_Measure_Rec.Function_Name
, COMPARISON_SOURCE = l_Measure_Rec.Comparison_Source
, INCREASE_IN_MEASURE = l_Measure_Rec.Increase_In_Measure -- Fix for 2167619 ends here
, ENABLE_LINK = NVL(l_Measure_Rec.Enable_Link, 'N') -- 2440739
, ENABLED = l_Measure_Rec.enabled -- 3031053
, OBSOLETE = l_Measure_Rec.Obsolete --3865711
, MEASURE_TYPE = l_Measure_Rec.Measure_Type
, LAST_UPDATE_DATE = l_Measure_Rec.Last_Update_Date
, LAST_UPDATED_BY = l_user_id
, LAST_UPDATE_LOGIN = l_login_id
where INDICATOR_ID = l_Measure_Rec.Measure_Id;
delete from bis_indicator_dimensions
where indicator_id = l_measure_rec.Measure_id;
Update_Application_Measure
( p_api_version => p_api_version
, p_commit => p_commit
, p_Measure_rec => l_Measure_rec
, p_application_rec => l_application_rec
, p_owning_application => l_own_appl
, p_owner => p_owner
, x_return_status => x_return_status
, x_error_Tbl => x_error_Tbl
);
, p_error_proc_name => G_PKG_NAME||'.Update_Measure'
, p_error_table => l_error_tbl
, x_error_table => x_error_tbl
);
END Update_Measure;
Procedure Delete_Measure
( p_api_version IN NUMBER
, p_commit IN VARCHAR2 := FND_API.G_FALSE
, p_Measure_Rec IN BIS_MEASURE_PUB.Measure_Rec_Type
, x_return_status OUT NOCOPY VARCHAR2
, x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
)
IS
l_count number;
( p_error_msg_name => 'BIS_NO_DELETE_MEASURE'
, p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
, p_error_proc_name => G_PKG_NAME||'.Delete_Measure'
, p_error_type => BIS_UTILITIES_PUB.G_ERROR
, p_error_table => l_error_tbl
, x_error_table => x_error_tbl
);
select count(1) into l_dcount from bis_application_measures
where indicator_id = p_Measure_Rec.Measure_Id;
, p_error_proc_name => G_PKG_NAME||'.Delete_Measure'
, p_error_type => BIS_UTILITIES_PUB.G_ERROR
, p_error_table => l_error_tbl
, x_error_table => x_error_tbl
);
delete from bis_application_measures
where indicator_id = p_Measure_Rec.Measure_Id;
select count(1) into l_dcount from bis_indicator_dimensions
where indicator_id = p_Measure_Rec.Measure_Id;
delete from bis_indicator_dimensions
where indicator_id = p_Measure_Rec.Measure_Id;
delete from bis_indicators_tl
where indicator_id = p_Measure_Rec.Measure_Id;
delete from bis_indicators
where indicator_id = p_Measure_Rec.Measure_Id;
, p_error_proc_name => G_PKG_NAME||'.Delete_Measure'
, p_error_table => l_error_tbl
, x_error_table => x_error_tbl
);
END Delete_Measure;
UpdateMeasureRec
( p_Measure_Rec => p_Measure_Rec
, p_Measure_Rec1 => l_Measure_Rec_Orig
, x_Measure_Rec => l_Measure_Rec
);
Update bis_INDICATORS_TL
set
NAME = l_Measure_Rec.Measure_Name
, DESCRIPTION = l_Measure_Rec.description
, LAST_UPDATE_DATE = l_Measure_Rec.Last_Update_Date
, LAST_UPDATED_BY = l_user_id
, LAST_UPDATE_LOGIN = l_login_id
, SOURCE_LANG = userenv('LANG')
where INDICATOR_ID = l_Measure_Rec_orig.Measure_Id
and userenv('LANG') IN (LANGUAGE, SOURCE_LANG);
SELECT Measure_id into x_Measure_ID
FROM bisbv_Performance_Measures
WHERE Measure_short_name = p_Measure_Short_Name;
SELECT Measure_id into x_Measure_ID
FROM bisbv_Performance_Measures
WHERE Measure_name = p_Measure_Name;
select id.dimension_id
from bis_indicator_dimensions id
where id.indicator_id = p_measure_id
order by id.sequence_no;
PROCEDURE Retrieve_Last_Update_Date
( p_api_version IN NUMBER
, p_Measure_Rec IN BIS_MEASURE_PUB.Measure_Rec_Type
, x_last_update_date OUT NOCOPY DATE
, x_return_status OUT NOCOPY VARCHAR2
, x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
)
IS
l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
SELECT NVL(LAST_UPDATE_DATE, CREATION_DATE)
INTO x_last_update_date
FROM bis_indicators
WHERE INDICATOR_ID = p_Measure_Rec.Measure_ID;
, p_error_proc_name => G_PKG_NAME||'.Retrieve_Last_Update_Date'
, p_error_type => BIS_UTILITIES_PUB.G_ERROR
, p_error_table => l_error_tbl
, x_error_table => x_error_tbl
);
, p_error_proc_name => G_PKG_NAME||'.Retrieve_Last_Update_Date'
, p_error_table => l_error_tbl
, x_error_table => x_error_tbl
);
END Retrieve_Last_Update_Date;
l_last_update_date DATE;
BIS_MEASURE_PVT.Retrieve_Last_Update_Date
( p_api_version => 1.0
, p_Measure_Rec => p_Measure_Rec
, x_last_update_date => l_last_update_date
, x_return_status => x_return_status
, x_error_Tbl => x_error_Tbl
);
IF(l_form_date = l_last_update_date) THEN
x_return_status := FND_API.G_TRUE;
l_rec.Last_Updated_By := p_Measure_rec.Last_Updated_By;
l_rec.Last_Update_Login := p_Measure_rec.Last_Update_Login;
PROCEDURE Update_Application_Measure
( p_api_version IN NUMBER
, p_commit IN VARCHAR2 := FND_API.G_FALSE
, p_Measure_rec IN BIS_MEASURE_PUB.Measure_Rec_Type
, p_application_rec IN BIS_Application_PVT.Application_Rec_Type
, p_owning_application IN VARCHAR2
, p_owner IN VARCHAR2 := BIS_UTILITIES_PUB.G_CUSTOM_OWNER
, x_return_status OUT NOCOPY VARCHAR2
, x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
)
IS
l_rec BIS_APPLICATION_MEASURE_PVT.Application_Measure_Rec_type;
BIS_APPLICATION_MEASURE_PVT.Update_Application_Measure( p_api_version
, p_commit
, l_rec
, p_owner
, x_return_status
, x_error_tbl
);
, p_error_proc_name => G_PKG_NAME||'.Update_Application_Measure'
, p_error_table => l_error_tbl
, x_error_table => x_error_tbl
);
end Update_Application_Measure;
PROCEDURE Delete_Application_Measure
( p_api_version IN NUMBER
, p_commit IN VARCHAR2 := FND_API.G_FALSE
, p_Measure_rec IN BIS_MEASURE_PUB.Measure_Rec_Type
, p_application_rec IN BIS_Application_PVT.Application_Rec_Type
, x_return_status OUT NOCOPY VARCHAR2
, x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
)
IS
l_rec BIS_APPLICATION_MEASURE_PVT.Application_Measure_Rec_type;
BIS_APPLICATION_MEASURE_PVT.Delete_Application_Measure( p_api_version
, p_commit
, l_rec
, x_return_status
, x_error_tbl
);
, p_error_proc_name => G_PKG_NAME||'.Delete_Application_Measure'
, p_error_table => l_error_tbl
, x_error_table => x_error_tbl
);
end Delete_Application_Measure;
PROCEDURE Delete_Application_Measures
( p_api_version IN NUMBER
, p_commit IN VARCHAR2 := FND_API.G_FALSE
, p_Measure_rec IN BIS_MEASURE_PUB.Measure_Rec_Type
, x_return_status OUT NOCOPY VARCHAR2
, x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
)
IS
l_rec BIS_APPLICATION_PVT.Application_Rec_type;
delete from bis_application_measures
where indicator_id = p_Measure_rec.Measure_id;
, p_error_proc_name => G_PKG_NAME||'.Delete_Application_Measure'
, p_error_table => l_error_tbl
, x_error_table => x_error_tbl
);
end Delete_Application_Measures;
PROCEDURE Retrieve_Last_Update_Date
( p_api_version IN NUMBER
, p_Measure_rec IN BIS_MEASURE_PUB.Measure_Rec_Type
, p_application_rec IN BIS_Application_PVT.Application_Rec_Type
, x_last_update_date OUT NOCOPY DATE
, x_return_status OUT NOCOPY VARCHAR2
, x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
)
IS
l_rec BIS_APPLICATION_MEASURE_PVT.Application_Measure_Rec_type;
BIS_APPLICATION_MEASURE_PVT.Retrieve_Last_Update_Date( p_api_version
, l_rec
, x_last_update_date
, x_return_status
, x_error_tbl
);
, p_error_proc_name => G_PKG_NAME||'.Retrieve_Last_Update_Date'
, p_error_table => l_error_tbl
, x_error_table => x_error_tbl
);
end Retrieve_Last_Update_Date;
SELECT indicator_id
FROM bis_indicators
WHERE short_name = p_pm_short_name FOR UPDATE OF last_updated_by , created_by;
UPDATE bis_indicators SET last_updated_by = 1 , created_by = 1
WHERE current of c_updt1;
UPDATE bis_indicators_tl SET last_updated_by = 1 , created_by = 1
WHERE indicator_id = i.indicator_id;
UPDATE bis_indicator_dimensions SET last_updated_by = 1 , created_by = 1
WHERE indicator_id = i.indicator_id;
SELECT attribute1, attribute2 into l_attribute1, l_attribute2
FROM Ak_Region_Items
WHERE region_code = p_region_code
AND region_application_id = p_region_app_id
AND attribute_code = p_attribute_code
AND attribute_application_id = p_attribute_app_id;
Update bis_INDICATORS_TL
set
NAME = p_Measure_Rec.Measure_Name
, DESCRIPTION = p_Measure_Rec.description
, LAST_UPDATED_BY = l_user_id
, LAST_UPDATE_LOGIN = l_login_id
, SOURCE_LANG = p_source_lang
where INDICATOR_ID = p_Measure_Rec.Measure_Id
and LANGUAGE = p_lang;
CURSOR c_cust IS SELECT
ENABLED,
USER_ID,
APPLICATION_ID,
RESPONSIBILITY_ID,
ORG_ID,
SITE_ID
FROM BIS_IND_CUSTOMIZATIONS
WHERE INDICATOR_ID = p_indicator_id
AND (user_id = fnd_global.user_id
OR responsibility_id = fnd_global.RESP_ID
OR application_id = fnd_global.RESP_APPL_ID
OR org_id = fnd_global.ORG_ID
OR site_id = 0) ;
l_Measure_Extension_Rec.Last_Updated_By := p_Measure_Rec.Last_Updated_By;
l_Measure_Extension_Rec.Last_Update_Date := p_Measure_Rec.Last_Update_Date;
l_Measure_Extension_Rec.Last_Update_Login := p_Measure_Rec.Last_Update_Login;
PROCEDURE Update_Measure_Obsolete_Flag(
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_measure_short_name IN VARCHAR2,
p_obsolete IN VARCHAR2,
x_return_status OUT nocopy VARCHAR2,
x_Msg_Count OUT NOCOPY NUMBER,
x_msg_data OUT nocopy VARCHAR2
) IS
BEGIN
SAVEPOINT MeasureObsoleteUpdate;
UPDATE bis_indicators
SET
obsolete = p_obsolete ,
last_update_date = SYSDATE,
last_updated_by = FND_GLOBAL.USER_ID ,
last_update_login = FND_GLOBAL.USER_ID
WHERE short_name = p_measure_short_name;
ROLLBACK TO MeasureObsoleteUpdate;
x_msg_data := x_msg_data||' -> BIS_FORM_FUNCTIONS_PUB.Update_Measure_Obsolete_Flag ';
x_msg_data := SQLERRM||' at BIS_FORM_FUNCTIONS_PUB.Update_Measure_Obsolete_Flag ';
END Update_Measure_Obsolete_Flag;