The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE insert_parameter(
p_parameter_name IN VARCHAR2,
p_parameter_value IN VARCHAR2,
p_pk1 IN VARCHAR2,
p_pk2 IN VARCHAR2,
p_pk3 IN VARCHAR2,
p_pk4 IN VARCHAR2,
p_pk5 IN VARCHAR2)
is
l_dummy number;
select 1 into l_dummy
from amw_parameters
where parameter_name = p_parameter_name
and pk1 = p_pk1
and NVL(pk2,-99) = NVL(p_pk2,-99)
and NVL(pk3,-99) = NVL(p_pk3,-99)
and NVL(pk4,-99) = NVL(p_pk4,-99)
and NVL(pk5,-99) = NVL(p_pk5,-99) ;
INSERT INTO
AMW_PARAMETERS(
OBJECT_VERSION_NUMBER,
PARAMETER_NAME,
PARAMETER_VALUE,
PK1,PK2,PK3,PK4,PK5,CREATED_BY,CREATION_DATE,LAST_UPDATED_BY,
LAST_UPDATE_DATE,LAST_UPDATE_LOGIN)
VALUES(1,p_parameter_name, p_parameter_value,p_pk1,p_pk2,p_pk3,p_pk4,p_pk5,G_USER_ID, SYSDATE, G_USER_ID,SYSDATE,G_LOGIN_ID);
end insert_parameter;
PROCEDURE update_parameter(
p_parameter_name in varchar2,
p_parameter_value in varchar2,
p_pk1 in varchar2,
p_pk2 in varchar2,
p_pk3 in varchar2,
p_pk4 in varchar2,
p_pk5 in varchar2)
is
l_param_value varchar2(80);
select parameter_value
into l_param_value
from amw_parameters
where parameter_name = p_parameter_name
and pk1 = p_pk1
and NVL(pk2,-99) = NVL(p_pk2,-99)
and NVL(pk3,-99) = NVL(p_pk3,-99)
and NVL(pk4,-99) = NVL(p_pk4,-99)
and NVL(pk5,-99) = NVL(p_pk5,-99) ;
update amw_parameters
set parameter_value = p_parameter_value,
last_updated_by = g_user_id,
last_update_date = sysdate,
last_update_login = G_LOGIN_ID,
object_version_number = object_version_number+1
where
parameter_name = p_parameter_name
and pk1 = p_pk1
and NVL(pk2,-99) = NVL(p_pk2,-99)
and NVL(pk3,-99) = NVL(p_pk3,-99)
and NVL(pk4,-99) = NVL(p_pk4,-99)
and NVL(pk5,-99) = NVL(p_pk5,-99) ;
END update_parameter;
insert_parameter(
p_parameter_name => 'PROCESS_APPROVAL_OPTION',
p_parameter_value => p_process_approval_option,
p_pk1 => p_pk1,
p_pk2 => p_pk2,
p_pk3 => p_pk3,
p_pk4 => p_pk4,
p_pk5 => p_pk5);
insert_parameter(
p_parameter_name => 'PROCESS_AUTO_APPROVE',
p_parameter_value => p_process_auto_approve,
p_pk1 => p_pk1,
p_pk2 => p_pk2,
p_pk3 => p_pk3,
p_pk4 => p_pk4,
p_pk5 => p_pk5);
INSERT INTO AMW_PROCESS_ORGANIZATION(
PROCESS_ORGANIZATION_ID,
PROCESS_ID,
STANDARD_PROCESS_FLAG,
APPROVAL_STATUS,
ORGANIZATION_ID,
OBJECT_VERSION_NUMBER,
PROCESS_CODE,
REVISION_NUMBER,
PROCESS_ORG_REV_ID,
START_DATE,
APPROVAL_DATE,
RL_PROCESS_REV_ID,
RISK_CATEGORY,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN)
values( AMW_PROCESS_ORGANIZATION_S.nextval,
-2,
'Y',
'A',
p_pk1,
1,
'-2',
1,
AMW_PROCESS_ORG_REV_S.nextval,
sysdate,
sysdate,
-2,
'R',
g_user_id,
sysdate,
g_user_id,
sysdate,
G_LOGIN_ID
);
PROCEDURE update_org_parameters(
p_process_approval_option IN VARCHAR2,
p_process_auto_approve IN VARCHAR2,
p_pk1 IN VARCHAR2,
p_pk2 IN VARCHAR2 := NULL,
p_pk3 IN VARCHAR2 := NULL,
p_pk4 IN VARCHAR2 := NULL,
p_pk5 IN VARCHAR2 := NULL,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY VARCHAR2,
x_msg_data OUT NOCOPY VARCHAR2
) IS
L_API_NAME CONSTANT VARCHAR2(30) := 'update_org_parameters';
update_parameter(
p_parameter_name => 'PROCESS_APPROVAL_OPTION',
p_parameter_value => p_process_approval_option,
p_pk1 => p_pk1,
p_pk2 => p_pk2,
p_pk3 => p_pk3,
p_pk4 => p_pk4,
p_pk5 => p_pk5);
update_parameter(
p_parameter_name => 'PROCESS_AUTO_APPROVE',
p_parameter_value => p_process_auto_approve,
p_pk1 => p_pk1,
p_pk2 => p_pk2,
p_pk3 => p_pk3,
p_pk4 => p_pk4,
p_pk5 => p_pk5);
end update_org_parameters;
x_last_update_date in varchar2) is
l_OWNER number;
l_last_update_date date;
select 1 into l_dummy from amw_parameters where PARAMETER_NAME = p_PARAMETER_NAME and PK1 = p_PK1;
l_last_update_date := nvl(to_date(X_LAST_UPDATE_DATE, 'YYYY/MM/DD'), sysdate);
insert into amw_parameters(OBJECT_VERSION_NUMBER,
PARAMETER_NAME,
PARAMETER_VALUE,
PK1,
pk2,
pk3,
pk4,
pk5,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN)
VALUES (
1,
p_PARAMETER_NAME,
p_parameter_value,
decode (p_pk1, '*NULL*', null, p_pk1),
decode (p_pk2, '*NULL*', null, p_pk2),
decode (p_pk3, '*NULL*', null, p_pk3),
decode (p_pk4, '*NULL*', null, p_pk4),
decode (p_pk5, '*NULL*', null, p_pk5),
l_OWNER,
l_last_update_date,
l_OWNER,
l_last_update_date,
0);
select parameter_value
into l_proc_approval_option
from amw_parameters
where parameter_name = 'PROCESS_APPROVAL_OPTION'
and pk1 = -1;
select parameter_value
into l_proc_auto_approve
from amw_parameters
where parameter_name = 'PROCESS_AUTO_APPROVE'
and pk1 = -1;
PROCEDURE update_all_org_params_cp(
errbuf out nocopy varchar2,
retcode out nocopy varchar2,
p_proc_approval_option in varchar2, -- A,B,C..
p_approval_required in varchar2, -- Y/N ..Y means auto_approve is No and N means auto_approve is Yes.
p_all_orgs in varchar2 -- NOCONF means only orgs that have not been configured..ALL means set/update all the orgs..
) is
L_API_NAME CONSTANT VARCHAR2(30) := 'update_all_org_params_cp';
select organization_id
from amw_audit_units_v
where organization_id not in (select organization_id
from amw_process_organization
where process_id = -2 );
cursor orgs_to_update is
select organization_id
from amw_process_organization
where process_id = -2
and organization_id not in (select distinct organization_id
from amw_process_locks);
select parameter_value
into l_proc_approval_option
from amw_parameters
where parameter_name = 'PROCESS_APPROVAL_OPTION'
and pk1 = -1;
select parameter_value
into l_proc_auto_approve
from amw_parameters
where parameter_name = 'PROCESS_AUTO_APPROVE'
and pk1 = -1;
for org in orgs_to_update loop
exit when orgs_to_update%notfound;
update_parameter(
p_parameter_name => 'PROCESS_APPROVAL_OPTION',
p_parameter_value => l_proc_approval_option,
p_pk1 => org.organization_id,
p_pk2 => null,
p_pk3 => null,
p_pk4 => null,
p_pk5 => null);
update_parameter(
p_parameter_name => 'PROCESS_AUTO_APPROVE',
p_parameter_value => l_proc_auto_approve,
p_pk1 => org.organization_id,
p_pk2 => null,
p_pk3 => null,
p_pk4 => null,
p_pk5 => null);
insert_parameter(
p_parameter_name => 'PROCESS_APPROVAL_OPTION',
p_parameter_value => l_proc_approval_option,
p_pk1 => org.organization_id,
p_pk2 => null,
p_pk3 => null,
p_pk4 => null,
p_pk5 => null);
insert_parameter(
p_parameter_name => 'PROCESS_AUTO_APPROVE',
p_parameter_value => l_proc_auto_approve,
p_pk1 => org.organization_id,
p_pk2 => null,
p_pk3 => null,
p_pk4 => null,
p_pk5 => null);
INSERT INTO AMW_PROCESS_ORGANIZATION(
PROCESS_ORGANIZATION_ID,
PROCESS_ID,
STANDARD_PROCESS_FLAG,
APPROVAL_STATUS,
ORGANIZATION_ID,
OBJECT_VERSION_NUMBER,
PROCESS_CODE,
REVISION_NUMBER,
PROCESS_ORG_REV_ID,
START_DATE,
APPROVAL_DATE,
RL_PROCESS_REV_ID,
RISK_CATEGORY,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN)
values(
AMW_PROCESS_ORGANIZATION_S.nextval,
-2,
'Y',
'A',
org.organization_id,
1,
'-2',
1,
AMW_PROCESS_ORG_REV_S.nextval,
sysdate,
sysdate,
-2,
'R',
g_user_id,
sysdate,
g_user_id,
sysdate,
G_LOGIN_ID
);
end update_all_org_params_cp;