The following lines contain the word 'select', 'insert', 'update' or 'delete':
select distinct business_group_id
from per_person_types;
select person_type_id
from per_person_types
where seeded_person_type_key= p_seeded_person_type_key
and last_updated_by=1;
l_updated varchar2(1);
update per_person_types
set seeded_person_type_key = p_seeded_person_type_key
,last_updated_by = 1
,last_update_login = 1
,created_by =1
,last_update_date = sysdate
where user_person_type = p_user_person_type
and system_person_type = p_system_person_type
and business_group_id = l_bus_grp;
insert into per_person_types
(PERSON_TYPE_ID
,BUSINESS_GROUP_ID
,SEEDED_PERSON_TYPE_KEY
,ACTIVE_FLAG
,DEFAULT_FLAG
,SYSTEM_PERSON_TYPE
,USER_PERSON_TYPE
,LAST_UPDATED_BY
,CREATED_BY
,LAST_UPDATE_LOGIN
,LAST_UPDATE_DATE
,CREATION_DATE)
Values
(PER_PERSON_TYPES_S.nextval
,C1.business_group_id
,p_seeded_person_type_key
,'N'
,'N'
,p_system_person_type
,p_user_person_type
,1
,1
,1
,sysdate
,sysdate);
update per_person_types_tl
set last_updated_by = 1,
last_update_login = 1,
created_by = 1,
last_update_date = sysdate
where person_type_id = c2.person_type_id;
insert into PER_PERSON_TYPES_TL (
PERSON_TYPE_ID
,LANGUAGE
,SOURCE_LANG
,USER_PERSON_TYPE
,LAST_UPDATE_DATE
,LAST_UPDATED_BY
,LAST_UPDATE_LOGIN
,CREATED_BY
,CREATION_DATE
)select
c2.person_type_id
,l.language_code
,userenv('lang')
,p_user_person_Type
,sysdate
,1
,1
,1
,sysdate
from fnd_languages l
where L.INSTALLED_FLAG in ('I', 'B');
procedure INSERT_ROW (
X_ROWID in out nocopy VARCHAR2,
X_SEEDED_PERSON_TYPE_KEY in VARCHAR2,
X_DEFAULT_FLAG in VARCHAR2,
X_SYSTEM_PERSON_TYPE in VARCHAR2,
X_CURRENT_APPLICANT_FLAG in VARCHAR2,
X_CURRENT_EMP_OR_APL_FLAG in VARCHAR2,
X_CURRENT_EMPLOYEE_FLAG in VARCHAR2,
X_USER_PERSON_TYPE in VARCHAR2,
X_CREATION_DATE in DATE,
X_CREATED_BY in NUMBER,
X_LAST_UPDATE_DATE in DATE,
X_LAST_UPDATED_BY in NUMBER,
X_LAST_UPDATE_LOGIN in NUMBER
) is
begin
hr_general.g_data_migrator_mode :='Y';
insert into PER_PERSON_TYPES (
PERSON_TYPE_ID
,BUSINESS_GROUP_ID
,ACTIVE_FLAG
,DEFAULT_FLAG
,seeded_person_type_key
,SYSTEM_PERSON_TYPE
,USER_PERSON_TYPE
,LAST_UPDATE_DATE
,LAST_UPDATED_BY
,LAST_UPDATE_LOGIN
,CREATED_BY
,CREATION_DATE
)select
PER_PERSON_TYPES_S.nextval
,business_group_id
,'Y'
,x_default_flag
,x_seeded_person_type_key
,x_system_person_type
,x_user_person_Type
,sysdate
,1
,1
,1
,sysdate
from per_business_groups bg
where not exists(
select null
from per_person_types
where user_person_type = x_user_person_Type
and system_person_type = x_system_person_type
and business_group_id = bg.business_group_id);
insert into PER_PERSON_TYPES_TL (
PERSON_TYPE_ID
,LANGUAGE
,SOURCE_LANG
,USER_PERSON_TYPE
,LAST_UPDATE_DATE
,LAST_UPDATED_BY
,LAST_UPDATE_LOGIN
,CREATED_BY
,CREATION_DATE
)select
ppt.person_type_id
,l.language_code
,userenv('lang')
,x_user_person_Type
,sysdate
,1
,1
,1
,sysdate
from per_person_types ppt, fnd_languages l
where L.INSTALLED_FLAG in ('I', 'B')
and x_seeded_person_type_key = ppt.seeded_person_type_key
and x_system_person_type = ppt.system_person_type
and x_user_person_type = ppt.user_person_type
and not exists (
select null
from per_person_types_tl
where person_type_id = ppt.person_type_id
and language = l.language_code);
insert into PER_STARTUP_PERSON_TYPES_TL (
seeded_person_type_key,
USER_PERSON_TYPE,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
CREATED_BY,
CREATION_DATE,
CURRENT_EMP_OR_APL_FLAG,
CURRENT_EMPLOYEE_FLAG,
DEFAULT_FLAG,
SYSTEM_PERSON_TYPE,
CURRENT_APPLICANT_FLAG,
LANGUAGE,
SOURCE_LANG
) select
x_seeded_person_type_key,
X_USER_PERSON_TYPE,
SYSDATE,
X_LAST_UPDATED_BY,
X_LAST_UPDATE_LOGIN,
X_CREATED_BY,
X_CREATION_DATE,
X_CURRENT_EMP_OR_APL_FLAG,
X_CURRENT_EMPLOYEE_FLAG,
X_DEFAULT_FLAG,
X_SYSTEM_PERSON_TYPE,
X_CURRENT_APPLICANT_FLAG,
L.LANGUAGE_CODE,
userenv('LANG')
from FND_LANGUAGES L
where L.INSTALLED_FLAG in ('I', 'B')
and not exists (
select null
from per_startup_person_types_tl
where seeded_person_type_key = X_SEEDED_PERSON_TYPE_KEY
and language= l.language_code);
end INSERT_ROW;
procedure UPDATE_ROW (
X_FORCE_MODE in varchar2,
X_SEEDED_PERSON_TYPE_KEY in VARCHAR2,
X_DEFAULT_FLAG in VARCHAR2,
X_SYSTEM_PERSON_TYPE in VARCHAR2,
X_CURRENT_APPLICANT_FLAG in VARCHAR2,
X_CURRENT_EMP_OR_APL_FLAG in VARCHAR2,
X_CURRENT_EMPLOYEE_FLAG in VARCHAR2,
X_USER_PERSON_TYPE in VARCHAR2,
X_LAST_UPDATE_DATE in DATE,
X_LAST_UPDATED_BY in NUMBER,
X_LAST_UPDATE_LOGIN in NUMBER
) is
l_count number;
select person_type_id from per_person_types
where SEEDED_PERSON_TYPE_KEY = X_SEEDED_PERSON_TYPE_KEY
and LAST_UPDATED_BY = 1;
update PER_STARTUP_PERSON_TYPES_TL set
USER_PERSON_TYPE = X_USER_PERSON_TYPE,
CURRENT_APPLICANT_FLAG = X_CURRENT_APPLICANT_FLAG,
CURRENT_EMP_OR_APL_FLAG = X_CURRENT_EMP_OR_APL_FLAG,
CURRENT_EMPLOYEE_FLAG = X_CURRENT_EMPLOYEE_FLAG,
LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
LAST_UPDATED_BY = X_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
where SEEDED_PERSON_TYPE_KEY = X_SEEDED_PERSON_TYPE_KEY
and userenv('lang') in (LANGUAGE, SOURCE_LANG);
select count(*) into l_count from per_startup_person_types_tl where
SEEDED_PERSON_TYPE_KEY = X_SEEDED_PERSON_TYPE_KEY
and language = userenv('lang');
update PER_PERSON_TYPES set
USER_PERSON_TYPE = X_USER_PERSON_TYPE,
LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
LAST_UPDATED_BY = X_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
where person_type_id = c_row.person_type_id
and last_updated_by = 1;
update per_person_types_tl set
USER_PERSON_TYPE = X_USER_PERSON_TYPE,
LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
LAST_UPDATED_BY = X_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
SOURCE_LANG = userenv('LANG')
where person_type_id = c_row.person_type_id
and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
and last_updated_by = 1;
end UPDATE_ROW;
procedure DELETE_ROW (
X_SEEDED_PERSON_TYPE_KEY in VARCHAR2
) is
begin
delete from PER_STARTUP_PERSON_TYPES_TL
where SEEDED_PERSON_TYPE_KEY = X_SEEDED_PERSON_TYPE_KEY;
end DELETE_ROW;
x_last_update_date in varchar2,
X_USER_PERSON_TYPE in VARCHAR2
) is
l_last_update_date date;
X_LAST_UPDATED_BY NUMBER;
X_LAST_UPDATE_LOGIN NUMBER;
x_last_updated_by := 1;
x_last_update_login :=1;
l_last_update_date := to_date(x_last_update_date,'DD/MM/YYYY');
select count(*) into l_count
from per_startup_person_types_tl
where seeded_person_type_key = 'UNKNOWN';
delete from per_startup_person_types_tl;
UPDATE_ROW (
l_force,
X_SEEDED_PERSON_TYPE_KEY,
X_DEFAULT_FLAG,
X_SYSTEM_PERSON_TYPE,
X_CURRENT_APPLICANT_FLAG,
X_CURRENT_EMP_OR_APL_FLAG,
X_CURRENT_EMPLOYEE_FLAG,
X_USER_PERSON_TYPE,
l_LAST_UPDATE_DATE,
X_LAST_UPDATED_BY,
X_LAST_UPDATE_LOGIN
);
INSERT_ROW (
X_ROWID,
X_SEEDED_PERSON_TYPE_KEY,
X_DEFAULT_FLAG,
X_SYSTEM_PERSON_TYPE,
X_CURRENT_APPLICANT_FLAG,
X_CURRENT_EMP_OR_APL_FLAG,
X_CURRENT_EMPLOYEE_FLAG,
X_USER_PERSON_TYPE,
X_CREATION_DATE,
X_CREATED_BY,
l_LAST_UPDATE_DATE,
X_LAST_UPDATED_BY,
X_LAST_UPDATE_LOGIN
);
x_last_update_date in varchar2)
is
cursor c_ppt is
select person_type_id from per_person_types
where SEEDED_PERSON_TYPE_KEY = X_SEEDED_PERSON_TYPE_KEY
and LAST_UPDATED_BY = 1;
update PER_STARTUP_PERSON_TYPES_TL set
USER_PERSON_TYPE = X_USER_PERSON_TYPE,
LAST_UPDATE_DATE = sysdate,
LAST_UPDATED_BY = 1,
LAST_UPDATE_LOGIN = 1,
SOURCE_LANG = userenv('LANG')
where userenv('LANG') in (LANGUAGE,SOURCE_LANG)
and X_SEEDED_PERSON_TYPE_KEY = SEEDED_PERSON_TYPE_KEY;
update PER_PERSON_TYPES_TL set
USER_PERSON_TYPE = X_USER_PERSON_TYPE,
LAST_UPDATE_DATE = sysdate,
LAST_UPDATED_BY = 1,
LAST_UPDATE_LOGIN = 1,
SOURCE_LANG = userenv('LANG')
where userenv('LANG') in (LANGUAGE,SOURCE_LANG)
and person_type_id = c_row.person_type_id
and last_updated_by = 1;
p_new_row_updated_by in varchar2,
p_new_row_update_date in date,
p_Table_key_name in varchar2,
p_table_key_value in varchar2)
return boolean
is
l_last_updated_by varchar2(30);
l_last_update_date date;
l_select_stmt varchar2(1000);
l_select_stmt := '
select last_updated_by, last_update_date
from ' ||p_table_name||'
where '||p_table_key_name||' = '''||p_table_key_value||'''
';
execute immediate l_select_stmt INTO l_last_updated_by, l_last_update_date;
((l_last_updated_by = 1) AND
(p_new_row_updated_by <> 1)) OR
((l_last_updated_by = p_new_row_updated_by) AND
(l_last_update_date <= p_new_row_update_date))) then
return true;
insert into PER_STARTUP_PERSON_TYPES_TL (
SEEDED_PERSON_TYPE_KEY,
USER_PERSON_TYPE,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
CREATED_BY,
CREATION_DATE,
CURRENT_EMP_OR_APL_FLAG,
CURRENT_EMPLOYEE_FLAG,
DEFAULT_FLAG,
SYSTEM_PERSON_TYPE,
CURRENT_APPLICANT_FLAG,
LANGUAGE,
SOURCE_LANG
) select
B.SEEDED_PERSON_TYPE_KEY,
B.USER_PERSON_TYPE,
B.LAST_UPDATE_DATE,
B.LAST_UPDATED_BY,
B.LAST_UPDATE_LOGIN,
B.CREATED_BY,
B.CREATION_DATE,
B.CURRENT_EMP_OR_APL_FLAG,
B.CURRENT_EMPLOYEE_FLAG,
B.DEFAULT_FLAG,
B.SYSTEM_PERSON_TYPE,
B.CURRENT_APPLICANT_FLAG,
L.LANGUAGE_CODE,
B.SOURCE_LANG
from PER_STARTUP_PERSON_TYPES_TL B, FND_LANGUAGES L
where L.INSTALLED_FLAG in ('B','I')
and B.LANGUAGE = userenv('LANG')
and not exists
(select NULL
from PER_STARTUP_PERSON_TYPES_TL T
where T.SEEDED_PERSON_TYPE_KEY = B.SEEDED_PERSON_TYPE_KEY
and T.LANGUAGE = L.LANGUAGE_CODE);