The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT *
BULK COLLECT INTO l_entity_pk1_tbl
FROM (SELECT * FROM TABLE(l_entity_pk_tbl)
UNION ALL
SELECT * FROM TABLE(l_temp_entity_pk_tbl)
);
SELECT *
BULK COLLECT INTO l_entity_pk1_tbl
FROM (SELECT * FROM TABLE(l_entity_pk_tbl)
UNION ALL
SELECT * FROM TABLE(l_temp_entity_pk_tbl)
);
SELECT style_id
BULK COLLECT
INTO l_style_id_tbl
FROM PO_DOC_STYLE_HEADERS
WHERE CHANGE_PROCESS_TYPE = 'MODIFICATION'
AND NVL(CONC_MODS_ENABLED_FLAG,'N') = 'N' ;
SELECT p_style_id
BULK COLLECT
INTO l_style_id_tbl
FROM dual
WHERE EXISTS ( SELECT 'conc_mod_enabled_flag is N '
FROM PO_DOC_STYLE_HEADERS
WHERE NVL(CONC_MODS_ENABLED_FLAG,'N') = 'N'
AND CHANGE_PROCESS_TYPE = 'MODIFICATION');
SAVEPOINT update_sp;
SELECT pod.draft_id
BULK COLLECT
INTO l_draft_id_tbl
FROM po_drafts pod,
po_headers_all poh
WHERE pod.document_id = poh.po_header_id
AND poh.style_id = p_style_id
AND pod.draft_type= 'MOD'
AND pod.status IN ('DRAFT','REJECTED','IN PROCESS',
'PRE-APPROVED','SUPPLIER SIGN');
SELECT poha.po_header_id ,
PO_DRAFTS_PVT.G_LOCK_HEADER_ENTITY ,
null,
null,
null
BULK COLLECT
INTO l_entity_pk1_tbl
, l_entity_name_tbl
, l_entity_pk2_tbl
, l_entity_pk3_tbl
, l_entity_pk4_tbl
FROM po_headers_draft_all poha
WHERE poha.draft_id = l_draft_id_tbl(i);
SELECT pola.po_line_id,
PO_DRAFTS_PVT.G_LOCK_LINE_ENTITY ,
null,
null,
null
BULK COLLECT
INTO l_temp_entity_pk1_tbl
, l_temp_entity_name_tbl
, l_temp_entity_pk2_tbl
, l_temp_entity_pk3_tbl
, l_temp_entity_pk4_tbl
FROM po_lines_draft_all pola
WHERE pola.draft_id= l_draft_id_tbl(i);
FND_FILE.put_line(FND_FILE.log,'enable_conc_mod_for_styleId:Update Lines Start');
FND_FILE.put_line(FND_FILE.log,'enable_conc_mod_for_styleId:Update Lines END');
SELECT polla.line_location_id ,
PO_DRAFTS_PVT.G_LOCK_SHIPMENT_ENTITY ,
null,
null,
null
BULK COLLECT
INTO l_temp_entity_pk1_tbl
, l_temp_entity_name_tbl
, l_temp_entity_pk2_tbl
, l_temp_entity_pk3_tbl
, l_temp_entity_pk4_tbl
FROM PO_LINE_LOCATIONS_DRAFT_ALL polla
WHERE polla.draft_id= l_draft_id_tbl(i);
FND_FILE.put_line(FND_FILE.log,'enable_conc_mod_for_styleId:Update SHIPMENT Start');
FND_FILE.put_line(FND_FILE.log,'enable_conc_mod_for_styleId:Update SHIPMENT End');
SELECT pod.po_distribution_id,
PO_DRAFTS_PVT.G_LOCK_DIST_ENTITY ,
null,
null,
null
BULK COLLECT
INTO l_temp_entity_pk1_tbl
, l_temp_entity_name_tbl
, l_temp_entity_pk2_tbl
, l_temp_entity_pk3_tbl
, l_temp_entity_pk4_tbl
FROM PO_DISTRIBUTIONS_DRAFT_ALL pod
WHERE pod.draft_id= l_draft_id_tbl(i);
FND_FILE.put_line(FND_FILE.log,'enable_conc_mod_for_styleId:Update DISTRIBUTION Start');
FND_FILE.put_line(FND_FILE.log,'enable_conc_mod_for_styleId:Update DISTRIBUTION End');
SELECT phbd.po_header_id ,
PO_DRAFTS_PVT.G_LOCK_ADDRESS_ENTITY ,
phbd.c_ext_attr39,
null,
null
BULK COLLECT
INTO l_temp_entity_pk1_tbl
, l_temp_entity_name_tbl
, l_temp_entity_pk2_tbl
, l_temp_entity_pk3_tbl
, l_temp_entity_pk4_tbl
FROM po_headers_all_ext_b phbd
WHERE phbd.c_ext_attr40 ='PO_UDA_ADDRESS_TYPES'
-- multi-row attribute groups
AND EXISTS (SELECT 'Multi row attr grp'
FROM ego_fnd_dsc_flx_ctx_ext ag
WHERE phbd.attr_group_id = ag.attr_group_id
AND ag.multi_row = 'Y')
AND phbd.draft_id= l_draft_id_tbl(i);
FND_FILE.put_line(FND_FILE.log,'enable_conc_mod_for_styleId:Update UDA-ADDRESS Start');
FND_FILE.put_line(FND_FILE.log,'enable_conc_mod_for_styleId:Update UDA-ADDRESS End');
UPDATE PO_HEADERS_DRAFT_ALL phd
SET phd.OLD_AMOUNT_LIMIT = ( SELECT phb.AMOUNT_LIMIT
FROM PO_HEADERS_ALL phb
WHERE phb.po_header_id=phd.po_header_id)
WHERE phd.draft_id=l_draft_id_tbl(i);
FND_FILE.put_line(FND_FILE.log,'enable_conc_mod_for_styleId:Number of Rows Updated PO_HEADERS_DRAFT_ALL'||SQL%ROWCOUNT);
UPDATE PO_LINES_DRAFT_ALL phd
SET phd.OLD_AMOUNT = ( SELECT phb.AMOUNT
FROM PO_LINES_ALL phb
WHERE phb.po_line_id= phd.po_line_id)
WHERE phd.draft_id=l_draft_id_tbl(i);
FND_FILE.put_line(FND_FILE.log,'enable_conc_mod_for_styleId:Number of Rows Updated PO_LINES_DRAFT_ALL'||SQL%ROWCOUNT);
UPDATE PO_LINE_LOCATIONS_DRAFT_ALL phd
SET phd.OLD_AMOUNT = ( SELECT phb.AMOUNT
FROM PO_LINE_LOCATIONS_ALL phb
WHERE phb.line_location_id= phd.line_location_id)
WHERE phd.draft_id=l_draft_id_tbl(i);
FND_FILE.put_line(FND_FILE.log,'enable_conc_mod_for_styleId:Number of Rows Updated PO_LINE_LOCATIONS_DRAFT_ALL'||SQL%ROWCOUNT);
UPDATE PO_DISTRIBUTIONS_DRAFT_ALL phd
SET phd.OLD_AMOUNT_ORDERED = ( SELECT phb.AMOUNT_ORDERED
FROM PO_DISTRIBUTIONS_ALL phb
WHERE phb.po_distribution_id= phd.po_distribution_id)
WHERE phd.draft_id=l_draft_id_tbl(i);
FND_FILE.put_line(FND_FILE.log,'enable_conc_mod_for_styleId:Number of Rows Updated PO_DISTRIBUTIONS_DRAFT_ALL'||SQL%ROWCOUNT);
UPDATE PO_DRAFTS phd
SET phd.AGENT_ID = ( SELECT phb.AGENT_ID
FROM PO_HEADERS_ALL phb
WHERE phb.po_header_id=phd.document_id)
WHERE phd.draft_id=l_draft_id_tbl(i);
FND_FILE.put_line(FND_FILE.log,'enable_conc_mod_for_styleId:Number of Rows Updated PO_DRAFTS'||SQL%ROWCOUNT);
ROLLBACK TO UPDATE_SP;
UPDATE PO_DOC_STYLE_HEADERS
SET CONC_MODS_ENABLED_FLAG='Y'
WHERE style_id=p_style_id;
FND_FILE.put_line(FND_FILE.log,'enable_conc_mod_for_styleId:Number of Rows Updated PO_DOC_STYLE_HEADERS'||SQL%ROWCOUNT);
SELECT attached_document_id
FROM fnd_attached_documents
WHERE pk1_value = To_Char(p_entity_id)||'-'||To_Char(p_draft_id)
AND entity_name = p_entity_name;
INSERT INTO po_entity_locks(
po_entity_lock_id,
entity_name,
entity_pk1,
entity_pk2,
lock_by_draft_id,
lock_type,
last_update_date,
last_updated_by,
creation_date,
created_by
)
VALUES(
po_entity_locks_s.NEXTVAL,
PO_DRAFTS_PVT.G_LOCK_HEADER_ATTACH_ENTITY,
p_pk1_tbl(itr),
l_rec.attached_document_id,
p_draft_id,
l_attachment_lock_type,
SYSDATE,
FND_GLOBAL.user_id,
SYSDATE,
FND_GLOBAL.user_id
);
INSERT INTO po_entity_locks(
po_entity_lock_id,
entity_name,
entity_pk1,
entity_pk2,
lock_by_draft_id,
lock_type,
last_update_date,
last_updated_by,
creation_date,
created_by
)
VALUES(
po_entity_locks_s.NEXTVAL,
PO_DRAFTS_PVT.G_LOCK_LINE_ATTACH_ENTITY,
p_pk1_tbl(itr),
l_rec.attached_document_id,
p_draft_id,
l_attachment_lock_type,
SYSDATE,
FND_GLOBAL.user_id,
SYSDATE,
FND_GLOBAL.user_id
);
INSERT INTO po_entity_locks(
po_entity_lock_id,
entity_name,
entity_pk1,
entity_pk2,
lock_by_draft_id,
lock_type,
last_update_date,
last_updated_by,
creation_date,
created_by
)
VALUES(
po_entity_locks_s.NEXTVAL,
PO_DRAFTS_PVT.G_LOCK_SHIPMENT_ATTACH_ENTITY,
p_pk1_tbl(itr),
l_rec.attached_document_id,
p_draft_id,
l_attachment_lock_type,
SYSDATE,
FND_GLOBAL.user_id,
SYSDATE,
FND_GLOBAL.user_id
);