The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure Insert_Acc_Rejection_Row(itemtype in varchar2,
itemkey in varchar2,
actid in number,
flag in varchar2);
Insert_Acc_Rejection_Row(itemtype, itemkey, actid, 'Y');
Insert_Acc_Rejection_Row(itemtype, itemkey, actid, 'N');
select poh.segment1 || '-' || poh.revision_num, polc.displayed_field, poh.agent_id,
poh.acceptance_required_flag, poh.acceptance_due_date, poh.org_id
into x_document_num, x_document_type, x_agent_id, x_acceptance_required_flag,
x_acceptance_due_date, x_org_id
from po_headers_all poh,
po_lookup_codes polc
where poh.po_header_id = x_document_id
and poh.type_lookup_code = polc.lookup_code
and polc.lookup_type = 'PO TYPE';
select por.release_num, por.agent_id, poh.segment1 || '-' || poh.revision_num, polc.displayed_field,
por.acceptance_required_flag, por.acceptance_due_date, por.agent_id
into x_release_num, x_agent_id, x_document_num, x_document_type, x_acceptance_required_flag,
x_acceptance_due_date, x_agent_id
from po_releases_all por,
po_headers_all poh,
po_lookup_codes polc
where por.po_release_id = x_document_id
and por.po_header_id = poh.po_header_id
and polc.lookup_type = 'DOCUMENT TYPE'
and polc.lookup_code = 'RELEASE';
Procedure Insert_Acc_Rejection_Row(itemtype in varchar2,
itemkey in varchar2,
actid in number,
flag in varchar2)
is
x_row_id varchar2(30);
x_Last_Update_Date date := TRUNC(SYSDATE);
x_Last_Updated_By number := fnd_global.user_id;
SELECT po_acceptances_s.nextval into x_Acceptance_id FROM sys.dual;
select revision_num
into x_revision_num
from po_headers
where po_header_id = x_document_id;
select po_header_id, revision_num
into x_Po_Header_Id, x_revision_num
from po_releases
where po_release_id = x_document_id;
INSERT INTO PO_ACCEPTANCES(acceptance_id,
last_update_date,
last_updated_by,
creation_date,
created_by,
po_header_id,
po_release_id,
action,
action_date,
employee_id,
revision_num,
accepted_flag,
acceptance_lookup_code,
attribute_category,
attribute1,
attribute2,
attribute3,
attribute4,
attribute5,
attribute6,
attribute7,
attribute8,
attribute9,
attribute10,
attribute11,
attribute12,
attribute13,
attribute14,
attribute15
)
VALUES
(x_Acceptance_id,
x_last_update_date,
x_Last_Updated_By,
x_Creation_Date,
x_Created_By,
x_Po_Header_Id,
x_Po_Release_Id,
x_Action,
x_Action_Date,
x_Employee_Id,
x_Revision_Num,
x_Accepted_Flag,
x_Acceptance_Lookup_Code,
x_Attribute_Category,
x_Attribute1,
x_Attribute2,
x_Attribute3,
x_Attribute4,
x_Attribute5,
x_Attribute6,
x_Attribute7,
x_Attribute8,
x_Attribute9,
x_Attribute10,
x_Attribute11,
x_Attribute12,
x_Attribute13,
x_Attribute14,
x_Attribute15);
select nvl(acceptance_required_flag, 'N')
into x_acceptance_required
from po_releases
where po_release_id = document_id;
select nvl(acceptance_required_flag, 'N')
into x_acceptance_required
from po_headers
where po_header_id = document_id;
select poh.segment1 || ',' || poh.revision_num, polc.displayed_field,
poh.agent_id, poh.acceptance_required_flag, poh.acceptance_due_date,
poh.org_id
into x_document_num, x_document_type, x_agent_id,
x_acceptance_required_flag,
x_acceptance_due_date, x_org_id
from po_headers_all poh,
po_lookup_codes polc
where poh.po_header_id = x_document_id
and poh.type_lookup_code = polc.lookup_code
and polc.lookup_type = 'PO TYPE';
select por.release_num, por.agent_id,
poh.segment1 || ',' || poh.revision_num, polc.displayed_field,
por.acceptance_required_flag, por.acceptance_due_date, por.agent_id
into x_release_num, x_agent_id, x_document_num, x_document_type,
x_acceptance_required_flag,
x_acceptance_due_date, x_agent_id
from po_releases_all por,
po_headers_all poh,
po_lookup_codes polc
where por.po_release_id = x_document_id
and por.po_header_id = poh.po_header_id
and polc.lookup_type = 'DOCUMENT TYPE'
and polc.lookup_code = 'RELEASE';
--dbms_output.put_line('After Select');