[Home] [Help]
The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure update_prop_checklist (
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_validate_only IN VARCHAR2 := FND_API.G_FALSE,
x_rowid IN VARCHAR2,
p_proposal_id IN NUMBER,
p_document_type_code IN VARCHAR2,
p_checklist_order IN NUMBER,
p_complete IN VARCHAR2,
p_not_applicable IN VARCHAR2,
p_record_version_number IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2) is
l_return_status VARCHAR2(1);
SAVEPOINT update_prop_checklist;
select count(*)
into n
from igw_budgets
where proposal_id = p_proposal_id
and final_version_flag = 'Y';
igw_prop_checklist_tbh.update_row (
x_rowid => x_rowid
,P_PROPOSAL_ID => P_PROPOSAL_ID
,P_DOCUMENT_TYPE_CODE => P_DOCUMENT_TYPE_CODE
,P_CHECKLIST_ORDER => P_CHECKLIST_ORDER
,P_COMPLETE => P_COMPLETE
,P_NOT_APPLICABLE => P_NOT_APPLICABLE
,p_mode => 'R'
,p_record_version_number => p_record_version_number
,x_return_status => x_return_status);
ROLLBACK TO update_prop_checklist;
ROLLBACK TO update_prop_checklist;
p_procedure_name => 'UPDATE_PROP_CHECKLIST',
p_error_text => SUBSTRB(SQLERRM,1,240));
END update_prop_checklist;
select proposal_id
into l_proposal_id
from igw_prop_checklist
where rowid = x_rowid
and record_version_number = p_record_version_number;
insert into igw_prop_checklist (
proposal_id,
document_type_code,
checklist_order,
complete,
not_applicable,
record_version_number,
last_update_date,
last_updated_by,
creation_date,
created_by,
last_update_login)
select p_proposal_id,
lookup_code,
decode(lookup_code, 'BASIC_INFORMATION', 1,
'PROGRAM', 2,
'PERSONNEL', 3,
'PERSON_ASSURANCES', 4,
'PERSON_BIOSKETCH', 5,
'PERSON_OTHER_SUPPORT', 6,
'SPECIAL_REVIEWS', 7,
'PARAGRAPHS', 8,
'RESEARCH_SUBJECTS', 9,
'ASSURANCES', 10,
'KEYWORDS', 11,
'BUDGETS', 12,
'NARRATIVES', 13, 14),
'N',
'N',
1,
null,
null,
sysdate,
fnd_global.user_id,
fnd_global.user_id
from fnd_lookups
where lookup_type = 'IGW_SS_PROP_DOC_TYPES';
select ppx.last_name || ',' || ppx.first_name
into l_full_name
from per_all_people_f ppx,
fnd_user fu
where fu.user_id = p_user_id
and fu.employee_id = ppx.person_id
and rownum < 2;