The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE UpdateRecord
( p_Business_Plan_Rec BIS_Business_Plan_PUB.Business_Plan_Rec_Type
, x_Business_Plan_Rec OUT NOCOPY BIS_Business_Plan_PUB.Business_Plan_Rec_Type
, x_return_status OUT NOCOPY VARCHAR2
, x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
);
PROCEDURE UpdateRecord
( p_Business_Plan_Rec BIS_Business_Plan_PUB.Business_Plan_Rec_Type
, x_Business_Plan_Rec OUT NOCOPY BIS_Business_Plan_PUB.Business_Plan_Rec_Type
, x_return_status OUT NOCOPY VARCHAR2
, x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
)
IS
--
l_Business_Plan_Rec BIS_Business_Plan_PUB.Business_Plan_Rec_Type;
END UpdateRecord;
select plan_id
, short_name
, name
, description
, version_no
, current_plan_flag
from bisfv_business_plans;
SELECT bp.short_name
, bptl.name
, bptl.description
, bp.version_no
, bp.current_plan_flag
INTO x_Business_Plan_Rec.business_plan_short_name
, x_Business_Plan_Rec.business_plan_name
, x_Business_Plan_Rec.description
, x_Business_Plan_Rec.version_number
, x_Business_Plan_Rec.current_plan_flag
FROM bis_business_plans bp, bis_business_plans_tl bptl
WHERE bp.plan_id = p_Business_Plan_Rec.business_plan_id
AND bp.plan_id = bptl.plan_id
AND bptl.language = userenv('LANG');
select bis_business_plans_s.NextVal into l_id from dual;
insert into bis_business_plans(
PLAN_ID
, SHORT_NAME
, VERSION_NO
, CURRENT_PLAN_FLAG
, CREATION_DATE
, CREATED_BY
, LAST_UPDATE_DATE
, LAST_UPDATED_BY
, LAST_UPDATE_LOGIN
)
values
( l_id
, l_Business_Plan_Rec.Business_Plan_Short_Name
, l_Business_Plan_Rec.Version_Number
, l_Business_Plan_Rec.Current_Plan_Flag
, SYSDATE
, l_user_id
, SYSDATE
, l_user_id
, l_login_id
);
insert into bis_BUSINESS_PLANS_TL (
PLAN_ID,
LANGUAGE,
NAME,
DESCRIPTION,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
TRANSLATED,
SOURCE_LANG
) select
P.Plan_id
, L.LANGUAGE_CODE
, l_Business_Plan_Rec.Business_Plan_Name
, l_Business_Plan_Rec.Description
, SYSDATE
, l_user_id
, SYSDATE
, l_user_id
, l_login_id
, 'Y'
, userenv('LANG')
FROM FND_LANGUAGES L
, BIS_BUSINESS_PLANS P
WHERE L.INSTALLED_FLAG IN ('I', 'B')
AND P.SHORT_NAME = l_Business_Plan_Rec.Business_Plan_Short_Name
AND NOT EXISTS
(SELECT 'EXISTS'
FROM BIS_BUSINESS_PLANS_TL TL
, BIS_BUSINESS_PLANS P
WHERE TL.PLAN_ID = P.PLAN_ID
AND P.SHORT_NAME = l_Business_Plan_Rec.Business_Plan_Short_Name
AND TL.LANGUAGE = L.LANGUAGE_CODE) ;
Procedure Update_Business_Plan
( 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_Business_Plan_Rec IN BIS_BUSINESS_PLAN_PUB.Business_Plan_Rec_Type
, x_return_status OUT NOCOPY VARCHAR2
, x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
)
IS
BEGIN
Update_Business_Plan
( p_api_version => p_api_version
, p_commit => p_commit
, p_validation_level => p_validation_level
, p_Business_Plan_Rec => p_Business_Plan_Rec
, p_owner => BIS_UTILITIES_PUB.G_CUSTOM_OWNER
, x_return_status => x_return_status
, x_error_Tbl => x_error_Tbl
);
END Update_Business_Plan;
Procedure Update_Business_Plan
( 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_Business_Plan_Rec IN BIS_BUSINESS_PLAN_PUB.Business_Plan_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;
UpdateRecord
( p_Business_Plan_Rec => p_Business_Plan_Rec
, x_Business_Plan_Rec => l_Business_Plan_Rec
, x_return_status => x_return_status
, x_error_Tbl => x_error_Tbl
);
Update bis_business_plans
set
SHORT_NAME
= l_Business_Plan_Rec.Business_Plan_Short_Name
, VERSION_NO
= l_Business_Plan_Rec.Version_Number
, CURRENT_PLAN_FLAG
= l_Business_Plan_Rec.Current_Plan_Flag
, LAST_UPDATE_DATE = SYSDATE
, LAST_UPDATED_BY = l_user_id
, LAST_UPDATE_LOGIN = l_login_id
where plan_ID = l_Business_Plan_Rec.Business_Plan_Id;
, p_error_proc_name => G_PKG_NAME||'.Update_Business_Plan'
);
END Update_Business_Plan;
UpdateRecord
( p_Business_Plan_Rec => p_Business_Plan_Rec
, x_Business_Plan_Rec => l_Business_Plan_Rec
, x_return_status => x_return_status
, x_error_Tbl => x_error_Tbl
);
Update bis_business_plans_TL
set
NAME = l_Business_Plan_Rec.Business_Plan_Name
, DESCRIPTION = l_Business_Plan_Rec.description
, LAST_UPDATE_DATE = SYSDATE
, LAST_UPDATED_BY = l_user_id
, LAST_UPDATE_LOGIN = l_login_id
, SOURCE_LANG = userenv('LANG')
where PLAN_ID = l_Business_Plan_Rec.Business_Plan_Id
and userenv('LANG') IN (LANGUAGE, SOURCE_LANG);
SELECT plan_id into x_Business_Plan_ID
FROM bis_business_plans
WHERE short_name = p_Business_Plan_Short_Name;
SELECT plan_id into x_Business_Plan_ID
FROM bis_business_plans_tl
WHERE name = p_Business_Plan_Name
AND language = userenv('LANG');