The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure Update_header_status(p_api_version IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_data OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
p_init_msg_list in varchar2 default FND_API.G_FALSE,
p_chr_sts_tbl in OUT NOCOPY chr_sts_tbl_type
) is
l_api_name CONSTANT VARCHAR2(30) := 'Update_header_status';
oke_change_status_pUB.Update_header_status(
p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_chr_sts_rec => p_chr_sts_tbl(i)
);
END Update_header_status;
Select ste_code from okc_statuses_b where code = p_code;
Select sts_code, start_date, end_date from okc_k_headers_b where id = p_id;
select 'Y' from dual where (p_new_sts_code,p_new_ste_code) in
(select
S.CODE STATUS_CODE
,S.STE_CODE STE_CODE
from
okc_statuses_v S
,fnd_lookups ST
where
S.STE_CODE in
(
NVL(p_old_ste_code,'ENTERED')
,decode(p_old_ste_code,
NULL, 'CANCELLED',
'ENTERED','CANCELLED',
'ACTIVE','HOLD',
'SIGNED','HOLD',
'HOLD',decode(
NVL(sign(months_between
(p_start_date,sysdate+1)),1),
-1,decode(
NVL(sign(months_between(p_end_date,sysdate-1)),
1),1,'ACTIVE'
,'EXPIRED'),'SIGNED')))
and sysdate between s.start_date and nvl(s.end_date,sysdate)
and st.lookup_type='OKC_STATUS_TYPE'
and st.lookup_code=s.ste_code
and sysdate between st.start_date_active and
nvl(st.end_date_active,sysdate)
and ST.enabled_flag='Y'
and S.code<>NVL(p_old_sts_code,'ENTERED')
and p_old_sts_code not like 'QA%HOLD'
and S.code not like 'QA%HOLD'
AND p_old_ste_code <> 'CANCELLED'
UNION ALL
SELECT S.CODE STATUS_CODE
,S.STE_CODE STE_CODE1
FROM OKC_STATUSES_V S
,FND_LOOKUPS ST
WHERE S.STE_CODE in ('ENTERED', 'CANCELLED')
AND SYSDATE BETWEEN S.START_DATE AND NVL(S.END_DATE, SYSDATE)
AND ST.LOOKUP_TYPE = 'OKC_STATUS_TYPE'
AND ST.LOOKUP_CODE=S.STE_CODE
AND SYSDATE BETWEEN ST.START_DATE_ACTIVE AND NVL(ST.END_DATE_ACTIVE, SYSDATE)
AND ST.ENABLED_FLAG = 'Y'
AND S.code <> p_old_sts_code
AND p_old_ste_code='CANCELLED');
SELECT object_version_number, decode(
NVL(sign(months_between(START_DATE,sysdate+1)),1),-1,decode(
NVL(sign(months_between(END_DATE,sysdate-1)),1),1,'ACTIVE','EXPIRED'),'SIGNED' )
FROM okc_k_headers_b
WHERE id = p_id;
procedure Update_header_status(p_api_version IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_data OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
p_init_msg_list in varchar2 default FND_API.G_FALSE,
p_chr_sts_rec in OUT NOCOPY chr_sts_type
) is
l_api_name CONSTANT VARCHAR2(30) := 'Update_header_status';
OKC_CONTRACT_PUB.update_contract_header(
p_api_version => p_api_version,
P_INIT_MSG_LIST => 'F',
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_restricted_update => 'T',
p_chrv_rec => l_chrv_tbl(1),
p_control_rec => p_control_rec,
x_chrv_rec => l_chrv_tbl(1));
OKC_CONTRACT_PUB.UPDATE_LINES(p_id => p_chr_sts_rec.k_header_id,
p_sts_code => p_chr_sts_rec.new_sts_code ,
p_new_ste_code => l_new_ste_code,
p_old_ste_code => l_old_ste_code ,
p_ste_code => l_ste_code1,
x_return_status =>l_line_return_status);
END Update_header_status;