The following lines contain the word 'select', 'insert', 'update' or 'delete':
REM | 08-AUG-2005 Aditya Rao Fixed Bug#4539411 in Update_Periodicity() |
REM | 19-SEP-2005 ashankar Fixed Bug#4612590 in Update_Periodicity() |
REM +=======================================================================+
*/
G_PKG_NAME CONSTANT VARCHAR2(30):='BSC_PERIODICITIES_PVT';
NOTE: These are raw insert statements, for validations,
please refer to the public and wrapper layeres
*/
-- Insert into Periodicity base tables
INSERT INTO BSC_SYS_PERIODICITIES (
PERIODICITY_ID
, NUM_OF_PERIODS
, SOURCE
, NUM_OF_SUBPERIODS
, PERIOD_COL_NAME
, SUBPERIOD_COL_NAME
, YEARLY_FLAG
, EDW_FLAG
, CALENDAR_ID
, EDW_PERIODICITY_ID
, CUSTOM_CODE
, DB_COLUMN_NAME
, PERIODICITY_TYPE
, PERIOD_TYPE_ID
, RECORD_TYPE_ID
, XTD_PATTERN
, SHORT_NAME
) VALUES (
l_Periodicities_Rec_Type.Periodicity_Id
, l_Periodicities_Rec_Type.Num_Of_Periods
, l_Periodicities_Rec_Type.Source
, l_Periodicities_Rec_Type.Num_Of_Subperiods
, l_Periodicities_Rec_Type.Period_Col_Name
, l_Periodicities_Rec_Type.Subperiod_Col_Name
, l_Periodicities_Rec_Type.Yearly_Flag
, l_Periodicities_Rec_Type.Edw_Flag
, l_Periodicities_Rec_Type.Calendar_Id
, l_Periodicities_Rec_Type.Edw_Periodicity_Id
, l_Periodicities_Rec_Type.Custom_Code
, l_Periodicities_Rec_Type.Db_Column_Name
, l_Periodicities_Rec_Type.Periodicity_Type
, l_Periodicities_Rec_Type.Period_Type_Id
, l_Periodicities_Rec_Type.Record_Type_Id
, l_Periodicities_Rec_Type.Xtd_Pattern
, l_Periodicities_Rec_Type.Short_Name
);
INSERT INTO BSC_SYS_PERIODICITIES_TL (
PERIODICITY_ID
, LANGUAGE
, SOURCE_LANG
, NAME
, CREATED_BY
, CREATION_DATE
, LAST_UPDATED_BY
, LAST_UPDATE_DATE
, LAST_UPDATE_LOGIN
)
SELECT
l_Periodicities_Rec_Type.Periodicity_Id
, L.LANGUAGE_CODE
, USERENV('LANG')
, l_Periodicities_Rec_Type.Name
, l_Periodicities_Rec_Type.Created_By
, l_Periodicities_Rec_Type.Creation_Date
, l_Periodicities_Rec_Type.Last_Updated_By
, l_Periodicities_Rec_Type.Last_Update_Date
, l_Periodicities_Rec_Type.Last_Update_Login
FROM FND_LANGUAGES L
WHERE L.INSTALLED_FLAG IN ('I', 'B')
AND NOT EXISTS
(
SELECT NULL
FROM BSC_SYS_PERIODICITIES_TL T
WHERE T.PERIODICITY_ID = l_Periodicities_Rec_Type.Periodicity_Id
AND T.LANGUAGE = L.LANGUAGE_CODE
);
SELECT
B.PERIODICITY_ID
, B.NUM_OF_PERIODS
, B.SOURCE
, B.NUM_OF_SUBPERIODS
, B.PERIOD_COL_NAME
, B.SUBPERIOD_COL_NAME
, B.YEARLY_FLAG
, B.EDW_FLAG
, B.CALENDAR_ID
, B.EDW_PERIODICITY_ID
, B.CUSTOM_CODE
, B.DB_COLUMN_NAME
, B.PERIODICITY_TYPE
, B.PERIOD_TYPE_ID
, B.RECORD_TYPE_ID
, B.XTD_PATTERN
, B.SHORT_NAME
, TL.NAME
, TL.CREATED_BY
, TL.CREATION_DATE
, TL.LAST_UPDATED_BY
, TL.LAST_UPDATE_DATE
, TL.LAST_UPDATE_LOGIN
FROM
BSC_SYS_PERIODICITIES B
, BSC_SYS_PERIODICITIES_TL TL
WHERE
B.PERIODICITY_ID = p_Periodicities_Rec_Type.Periodicity_Id
AND TL.PERIODICITY_ID = B.PERIODICITY_ID
AND TL.LANGUAGE = USERENV('LANG');
x_Periodicities_Rec_Type.Last_Updated_By := C1RP.LAST_UPDATED_BY;
x_Periodicities_Rec_Type.Last_Update_Date := C1RP.LAST_UPDATE_DATE;
x_Periodicities_Rec_Type.Last_Update_Login := C1RP.LAST_UPDATE_LOGIN ;
PROCEDURE Update_Periodicity (
p_Api_Version IN NUMBER
,p_Commit IN VARCHAR2
,p_Periodicities_Rec_Type IN BSC_PERIODICITIES_PUB.Periodicities_Rec_Type
,x_Structural_Flag OUT NOCOPY VARCHAR2
,x_Return_Status OUT NOCOPY VARCHAR2
,x_Msg_Count OUT NOCOPY NUMBER
,x_Msg_Data OUT NOCOPY VARCHAR2
) IS
l_Periodicities_Rec_Type BSC_PERIODICITIES_PUB.Periodicities_Rec_Type;
SAVEPOINT UpdatePeriodicityPVT;
IF (p_Periodicities_Rec_Type.Last_Updated_By IS NOT NULL) THEN
l_Periodicities_Rec_Type.Last_Updated_By := p_Periodicities_Rec_Type.Last_Updated_By;
l_Periodicities_Rec_Type.Last_Updated_By := FND_GLOBAL.USER_ID;
IF (p_Periodicities_Rec_Type.Last_Update_Date IS NOT NULL) THEN
l_Periodicities_Rec_Type.Last_Update_Date := p_Periodicities_Rec_Type.Last_Update_Date;
l_Periodicities_Rec_Type.Last_Update_Date := SYSDATE;
IF (p_Periodicities_Rec_Type.Last_Update_Login IS NOT NULL) THEN
l_Periodicities_Rec_Type.Last_Update_Login := p_Periodicities_Rec_Type.Last_Update_Login;
l_Periodicities_Rec_Type.Last_Update_Login := FND_GLOBAL.LOGIN_ID;
UPDATE bsc_sys_periodicities b
SET b.num_of_periods = l_Periodicities_Rec_Type.Num_Of_Periods
,b.source = l_Periodicities_Rec_Type.Source
,b.custom_code = l_Periodicities_Rec_Type.Custom_Code
WHERE b.periodicity_id = l_Periodicities_Rec_Type.Periodicity_id;
UPDATE bsc_sys_periodicities_tl t
SET t.name = l_Periodicities_Rec_Type.Name
,t.last_updated_by = l_Periodicities_Rec_Type.Last_Updated_By
,t.last_update_date = l_Periodicities_Rec_Type.Last_Update_Date
,t.last_update_login = l_Periodicities_Rec_Type.Last_Update_Login
,SOURCE_LANG = userenv('LANG')
WHERE t.periodicity_id = l_Periodicities_Rec_Type.Periodicity_id
AND USERENV('LANG') IN (t.language, t.source_lang);
SELECT name INTO l_Periodicities_Rec_Type.Name
FROM bsc_sys_periodicities_vl
WHERE periodicity_id = l_Periodicities_Rec_Type.Periodicity_id;
ROLLBACK TO UpdatePeriodicityPVT;
ROLLBACK TO UpdatePeriodicityPVT;
ROLLBACK TO UpdatePeriodicityPVT;
x_msg_data := x_msg_data||' -> BSC_PERIODICITIES_PVT.Update_Periodicity ';
x_msg_data := SQLERRM||' at BSC_PERIODICITIES_PVT.Update_Periodicity ';
ROLLBACK TO UpdatePeriodicityPVT;
x_msg_data := x_msg_data||' -> BSC_PERIODICITIES_PVT.Update_Periodicity ';
x_msg_data := SQLERRM||' at BSC_PERIODICITIES_PVT.Update_Periodicity ';
END Update_Periodicity;
SELECT K.INDICATOR
FROM BSC_KPI_PERIODICITIES K
WHERE K.PERIODICITY_ID = p_Periodicities_Rec_Type.Periodicity_Id;
PROCEDURE Delete_Periodicity (
p_Api_Version IN NUMBER
,p_Commit IN VARCHAR2
,p_Periodicities_Rec_Type IN BSC_PERIODICITIES_PUB.Periodicities_Rec_Type
,x_Return_Status OUT NOCOPY VARCHAR2
,x_Msg_Count OUT NOCOPY NUMBER
,x_Msg_Data OUT NOCOPY VARCHAR2
) IS
BEGIN
SAVEPOINT DeletePeriodicityPVT;
DELETE BSC_SYS_PERIODS_TL
WHERE PERIODICITY_ID = p_Periodicities_Rec_Type.Periodicity_Id;
DELETE BSC_SYS_PERIODS
WHERE PERIODICITY_ID = p_Periodicities_Rec_Type.Periodicity_Id;
DELETE BSC_SYS_PERIODICITIES_TL
WHERE PERIODICITY_ID = p_Periodicities_Rec_Type.Periodicity_Id;
DELETE BSC_SYS_PERIODICITIES
WHERE PERIODICITY_ID = p_Periodicities_Rec_Type.Periodicity_Id;
ROLLBACK TO DeletePeriodicityPVT;
ROLLBACK TO DeletePeriodicityPVT;
ROLLBACK TO DeletePeriodicityPVT;
x_msg_data := x_msg_data||' -> BSC_PERIODICITIES_PVT.Delete_Periodicity ';
x_msg_data := SQLERRM||' at BSC_PERIODICITIES_PVT.Delete_Periodicity ';
ROLLBACK TO DeletePeriodicityPVT;
x_msg_data := x_msg_data||' -> BSC_PERIODICITIES_PVT.Delete_Periodicity ';
x_msg_data := SQLERRM||' at BSC_PERIODICITIES_PVT.Delete_Periodicity ';
END Delete_Periodicity;