The following lines contain the word 'select', 'insert', 'update' or 'delete':
PURPOSE : To Update or Create the Lookup_code
ERRORS HANDLED : Raise warning for EMPTY LINE
Raise an Error for the Empty Lookup Code
*/
PROCEDURE READ_RECORD
( p_line IN varchar2
)
is
l_update_flag varchar2(50);
l_update_flag:='N';
select SECURITY_GROUP_ID into g_security_group_id from per_business_groups where business_group_id = g_bg_id;
/* if so update the description only */
SELECT 'Y',flv.meaning
INTO l_update_flag,l_original_meaning
FROM fnd_lookup_values flv
WHERE flv.lookup_type=g_lookup_type
AND flv.lookup_code=l_code and
security_group_id = g_security_group_id and
view_application_id = g_view_application_id;
IF l_update_flag='Y'
THEN
IF l_original_meaning <>l_code||' '||g_meaning
THEN
UPDATE_ROW(l_code,g_meaning,l_Description);
INSERT_ROW(l_code,g_meaning,l_Description);
PROCEDURE INSERT_ROW(
p_lookup_code in fnd_lookup_values.lookup_code%TYPE
,p_meaning in fnd_lookup_values.meaning%TYPE
,p_description IN fnd_lookup_values.description%type
)
is
--G_LOOKUP_TYPE CONSTANT VARCHAR2(50) :='SE_POSTAL_CODE';
FND_LOOKUP_VALUES_PKG.INSERT_ROW(
X_ROWID => l_rowid,
X_LOOKUP_TYPE => g_lookup_type,
X_SECURITY_GROUP_ID => g_security_group_id,
X_VIEW_APPLICATION_ID => 3,
X_LOOKUP_CODE => p_lookup_code,
X_TAG => NULL,
X_ATTRIBUTE_CATEGORY => null,
X_ATTRIBUTE1 => null,
X_ATTRIBUTE2 => null,
X_ATTRIBUTE3 => null,
X_ATTRIBUTE4 => null,
X_ENABLED_FLAG => 'Y',
X_START_DATE_ACTIVE => SYSDATE,
X_END_DATE_ACTIVE => null,
X_TERRITORY_CODE => 'FI',
X_ATTRIBUTE5 => null,
X_ATTRIBUTE6 => null,
X_ATTRIBUTE7 => null,
X_ATTRIBUTE8 => null,
X_ATTRIBUTE9 => null,
X_ATTRIBUTE10 => null,
X_ATTRIBUTE11 => null,
X_ATTRIBUTE12 => null,
X_ATTRIBUTE13 => null,
X_ATTRIBUTE14 => null,
X_ATTRIBUTE15 => null,
X_MEANING => p_lookup_code||' '||p_meaning,
X_DESCRIPTION => p_description,
X_CREATION_DATE => SYSDATE,
X_CREATED_BY => TO_NUMBER(FND_PROFILE.VALUE('USER_ID')),
X_LAST_UPDATE_DATE => SYSDATE,
X_LAST_UPDATED_BY => TO_NUMBER(FND_PROFILE.VALUE('USER_ID')),
X_LAST_UPDATE_LOGIN => TO_NUMBER(FND_PROFILE.VALUE('LOGIN_ID'))
);
end INSERT_ROW;
PROCEDURE UPDATE_ROW(p_lookup_code in fnd_lookup_values.lookup_code%TYPE,
p_meaning in fnd_lookup_values.meaning%TYPE,
p_description IN fnd_lookup_values.description%type)
is
--G_LOOKUP_TYPE CONSTANT VARCHAR2(50) :='FI_POSTAL_CODE';
FND_LOOKUP_VALUES_PKG.UPDATE_ROW(
X_LOOKUP_TYPE => g_lookup_type,
X_SECURITY_GROUP_ID => g_security_group_id,
X_VIEW_APPLICATION_ID => 3,
X_LOOKUP_CODE => p_lookup_code,
X_TAG => NULL,
X_ATTRIBUTE_CATEGORY => NULL,
X_ATTRIBUTE1 => NULL,
X_ATTRIBUTE2 => NULL,
X_ATTRIBUTE3 => NULL,
X_ATTRIBUTE4 => NULL,
X_ENABLED_FLAG => 'Y',
X_START_DATE_ACTIVE => SYSDATE,
X_END_DATE_ACTIVE => NULL,
X_TERRITORY_CODE => 'FI',
X_ATTRIBUTE5 => NULL,
X_ATTRIBUTE6 => NULL,
X_ATTRIBUTE7 => NULL,
X_ATTRIBUTE8 => NULL,
X_ATTRIBUTE9 => NULL,
X_ATTRIBUTE10 => NULL,
X_ATTRIBUTE11 => NULL,
X_ATTRIBUTE12 => NULL,
X_ATTRIBUTE13 => NULL,
X_ATTRIBUTE14 => NULL,
X_ATTRIBUTE15 => NULL,
X_MEANING => p_lookup_code||' '||p_meaning,
X_DESCRIPTION => null,
X_LAST_UPDATE_DATE => SYSDATE,
X_LAST_UPDATED_BY => TO_NUMBER(FND_PROFILE.VALUE('USER_ID')),
X_LAST_UPDATE_LOGIN => TO_NUMBER(FND_PROFILE.VALUE('LOGIN_ID')));
end UPDATE_ROW;