The following lines contain the word 'select', 'insert', 'update' or 'delete':
REM | 27-JUL-2004 sawu Modified create/update application measure to use |
REM | BIS_UTILITIES_PUB.Get_Owner_Id to lookup user_id |
REM | 29-SEP-2004 ankgoel Added WHO columns in Rec for Bug#3891748 |
REM | 21-MAR-2005 ankagarw bug#4235732 - changing count(*) to count(1) |
REM | 01-JUN-2005 akoduri Modified for Bug #4397786 |
REM +=======================================================================+
*/
--
G_PKG_NAME CONSTANT VARCHAR2(30):='BIS_APPLICATION_MEASURE_PVT';
SELECT count(1) FROM BIS_APPLICATION_MEASURES
WHERE indicator_id = cp_ind_id;
IF (l_Rec.Last_Updated_By IS NULL) THEN
l_Rec.Last_Updated_By := l_Rec.Created_By;
IF (l_Rec.Last_Update_Login IS NULL) THEN
l_Rec.Last_Update_Login := fnd_global.LOGIN_ID;
insert into bis_application_measures
(
INDICATOR_ID
, APPLICATION_ID
, OWNING_APPLICATION
, CREATION_DATE
, CREATED_BY
, LAST_UPDATE_DATE
, LAST_UPDATED_BY
, LAST_UPDATE_LOGIN
)
values
( l_Rec.Measure_ID
, l_Rec.APPLICATION_ID
, l_Rec.OWNING_APPLICATION
, SYSDATE
, l_Rec.Created_By
, SYSDATE
, l_Rec.Last_Updated_By
, l_Rec.Last_Update_Login
);
select Measure_id
, MEASURE_SHORT_NAME
, MEASURE_NAME
, Application_id
, Application_Short_name
, Application_name
, owning_application
, Dataset_Id
from bisfv_application_measures
where measure_id = p_Measure_Rec.Measure_id;
select Measure_id
, MEASURE_SHORT_NAME
, MEASURE_NAME
, Application_id
, owning_application
, Dataset_Id
from bisbv_application_measures
where measure_id = p_Measure_Rec.Measure_id;
PROCEDURE Update_Application_Measure
( p_api_version IN NUMBER
, p_commit IN VARCHAR2 := FND_API.G_FALSE
, p_Application_Measure_Rec IN
BIS_Application_Measure_PVT.Application_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;
Update_Application_Measure
( p_api_version => p_api_version
, p_commit => p_commit
, p_Application_Measure_Rec => p_Application_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_Application_Measure'
, p_error_table => l_error_tbl
, x_error_table => x_error_tbl
);
END Update_Application_Measure;
PROCEDURE Update_Application_Measure
( p_api_version IN NUMBER
, p_commit IN VARCHAR2 := FND_API.G_FALSE
, p_Application_Measure_Rec IN
BIS_Application_Measure_PVT.Application_Measure_Rec_Type
, p_owner IN VARCHAR2
, 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_Application_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_count
from bis_application_measures
where INDICATOR_ID = l_rec.Measure_Id;
Update bis_application_measures
set
OWNING_APPLICATION = l_Rec.OWNING_APPLICATION
, LAST_UPDATE_DATE = SYSDATE
, LAST_UPDATED_BY = l_user_id
, LAST_UPDATE_LOGIN = l_login_id
, APPLICATION_ID = l_Rec.Application_Id --2465354
where INDICATOR_ID = l_rec.Measure_Id ;
, 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_Application_Measure_Rec IN
BIS_Application_Measure_PVT.Application_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_Measure_PVT.Application_Measure_Rec_Type;
delete from bis_application_measures
where APPLICATION_ID = l_Rec.Application_id
AND indicator_id = l_Rec.Measure_id;
, p_error_proc_name => G_PKG_NAME||'.Delete_Application_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||'.Delete_Application_Measure'
, p_error_table => l_error_tbl
, x_error_table => x_error_tbl
);
end Delete_Application_Measure;
PROCEDURE Retrieve_Last_Update_Date
( p_api_version IN NUMBER
, p_Application_Measure_Rec IN
BIS_Application_Measure_PVT.Application_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_application_measures
WHERE INDICATOR_ID = p_Application_Measure_Rec.Measure_id
AND Application_ID = p_Application_Measure_Rec.Application_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
);
END Retrieve_Last_Update_Date;
l_last_update_date DATE;
Retrieve_Last_Update_Date
( p_api_version => 1.0
, p_Application_Measure_Rec => p_Application_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;
PROCEDURE Update_Application_Measure
( p_api_version IN NUMBER
, p_commit IN VARCHAR2 := FND_API.G_FALSE
, p_Measure_Short_Name IN BIS_INDICATORS.SHORT_NAME%TYPE
, p_Application_Id IN BIS_APPLICATION_MEASURES.APPLICATION_ID%TYPE
, x_return_status OUT NOCOPY VARCHAR2
, x_msg_count OUT NOCOPY NUMBER
, x_msg_data OUT NOCOPY VARCHAR2
)
IS
l_rec BIS_APPLICATION_MEASURE_PVT.Application_Measure_Rec_type;
SELECT indicator_id
INTO l_measure_id
FROM BIS_INDICATORS
WHERE SHORT_NAME = p_Measure_Short_Name;
BIS_APPLICATION_MEASURE_PVT.Update_Application_Measure( p_api_version
, p_commit
, l_rec
, x_return_status
, l_error_tbl);
x_msg_data := x_msg_data||' -> BIS_APPLICATION_MEASURE_PVT.Update_Application_Measure ';
x_msg_data := SQLERRM||' at BIS_APPLICATION_MEASURE_PVT.Update_Application_Measure ';
END Update_Application_Measure;