The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE insert_row
( p_init_msg_list IN VARCHAR2, --< Shared Proc FPJ >
x_return_status OUT NOCOPY VARCHAR2, --< Shared Proc FPJ >
p_org_assign_rec IN PO_GA_ORG_ASSIGNMENTS%ROWTYPE,
x_row_id OUT NOCOPY ROWID
)
IS
l_org_assignment_id PO_GA_ORG_ASSIGNMENTS.ORG_ASSIGNMENT_ID%TYPE; --
SELECT PO_GA_ORG_ASSIGNMENTS_S.nextval
INTO l_org_assignment_id
FROM dual;
INSERT INTO po_ga_org_assignments
( org_assignment_id , --
po_header_id ,
organization_id ,
enabled_flag ,
vendor_site_id ,
last_update_date ,
last_updated_by ,
creation_date ,
created_by ,
last_update_login ,
purchasing_org_id ) --< Shared Proc FPJ >
VALUES
( l_org_assignment_id , --
p_org_assign_rec.po_header_id ,
p_org_assign_rec.organization_id ,
p_org_assign_rec.enabled_flag ,
p_org_assign_rec.vendor_site_id ,
p_org_assign_rec.last_update_date ,
p_org_assign_rec.last_updated_by ,
p_org_assign_rec.creation_date ,
p_org_assign_rec.created_by ,
p_org_assign_rec.last_update_login ,
p_org_assign_rec.purchasing_org_id ) --< Shared Proc FPJ >
RETURNING
rowid
INTO
x_row_id;
p_procedure_name => 'insert_row');
END insert_row;
PROCEDURE update_row
( p_init_msg_list IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
p_org_assign_rec IN PO_GA_ORG_ASSIGNMENTS%ROWTYPE,
p_row_id IN ROWID
)
IS
BEGIN
-- Start standard API initialization
IF FND_API.to_boolean(p_init_msg_list) THEN
FND_MSG_PUB.initialize;
UPDATE po_ga_org_assignments
SET organization_id = p_org_assign_rec.organization_id,
purchasing_org_id = p_org_assign_rec.purchasing_org_id,
enabled_flag = p_org_assign_rec.enabled_flag,
vendor_site_id = p_org_assign_rec.vendor_site_id,
last_update_date = p_org_assign_rec.last_update_date,
last_updated_by = p_org_assign_rec.last_updated_by,
last_update_login = p_org_assign_rec.last_update_login
WHERE rowid = p_row_id;
p_procedure_name => 'update_row');
END update_row;
PROCEDURE: delete_row
DESCRIPTION: Deletes a row from PO_GA_ORG_ASSIGNMENTS.
==============================================================================*/
PROCEDURE delete_row
(
p_po_header_id IN PO_GA_ORG_ASSIGNMENTS.po_header_id%TYPE
)
IS
BEGIN
DELETE FROM po_ga_org_assignments
WHERE po_header_id = p_po_header_id;
PO_MESSAGE_S.sql_error('delete_row','000',SQLCODE);
END delete_row;
PROCEDURE delete_row
( p_po_header_id IN NUMBER,
p_organization_id IN NUMBER
)
IS
BEGIN
DELETE FROM po_ga_org_assignments
WHERE po_header_id = p_po_header_id
AND organization_id = p_organization_id;
PO_MESSAGE_S.sql_error(routine => 'PO_GA_ORG_ASSIGN_PVT.delete_row',
location => '200',
error_code => SQLCODE);
END delete_row;
SELECT *
INTO l_pgoa_rec
FROM po_ga_org_assignments
WHERE rowid = p_row_id
FOR UPDATE NOWAIT;
name => 'FORM_RECORD_DELETED');
p_last_update_date IN DATE,
p_last_updated_by IN NUMBER,
p_creation_date IN DATE,
p_created_by IN NUMBER,
p_last_update_login IN NUMBER
)
IS
BEGIN
-- Start standard API initialization
IF FND_API.to_boolean(p_init_msg_list) THEN
FND_MSG_PUB.initialize;
INSERT INTO PO_GA_ORG_ASSIGNMENTS
(
org_assignment_id, --
po_header_id,
organization_id,
enabled_flag,
vendor_site_id,
last_update_date,
last_updated_by,
creation_date,
created_by,
last_update_login,
purchasing_org_id
)
SELECT PO_GA_ORG_ASSIGNMENTS_S.nextval ,--Bug#4623941
p_to_po_header_id,
pgoa.organization_id,
pgoa.enabled_flag,
pgoa.vendor_site_id,
p_last_update_date,
p_last_updated_by,
p_creation_date,
p_created_by,
p_last_update_login,
pgoa.purchasing_org_id
FROM po_ga_org_assignments pgoa
WHERE pgoa.po_header_id = p_from_po_header_id;