The following lines contain the word 'select', 'insert', 'update' or 'delete':
UPDATE po_headers_all
SET clm_closeout_status = NULL,
last_update_date = SYSDATE,
last_updated_by = FND_GLOBAL.USER_ID,
last_update_login = FND_GLOBAL.LOGIN_ID
WHERE po_header_id = p_doc_header_id;
UPDATE PO_CLOSEOUT_DETAILS
SET closeout_date = NULL,
incloseout = NULL,
is_reopened = 'Y',
last_update_date = SYSDATE,
last_updated_by = FND_GLOBAL.USER_ID,
last_update_login = FND_GLOBAL.LOGIN_ID
WHERE reference_doc_id = p_doc_header_id
AND closeout_doc_type = po_closeout_pvt.g_CLOSEOUT_TYPE_INDIVIDUAL;
SELECT 'Y'
INTO l_open_mod_exists_flag
FROM dual
WHERE EXISTS (SELECT 'open mod exists'
FROM po_drafts
WHERE document_id = p_doc_header_id
AND status NOT IN ('COMPLETED', 'WITHDRAWN')
-- IN ('DRAFT', 'IN PROCESS', 'REJECTED',
-- 'PRE-APPROVED', 'SUPPLIER SIGN')
);
SELECT 'Y'
INTO l_open_award_exists_flag
FROM dual
WHERE EXISTS (SELECT 'open reference exists at header level'
FROM po_headers_all
WHERE clm_source_document_id = p_doc_header_id
AND NVL(frozen_flag,'N') = 'N'
)
OR EXISTS (SELECT 'open reference exists at line level'
FROM po_headers_all poh,
po_lines_all pol
WHERE poh.po_header_id = pol.po_header_id
AND (pol.from_header_id = p_doc_header_id
OR pol.contract_id = p_doc_header_id)
AND NVL(poh.frozen_flag,'N') = 'N'
);
SELECT 'Y'
INTO l_idv_not_open_flag
FROM po_headers_all award
WHERE award.po_header_id = p_doc_header_id AND
( EXISTS (SELECT 'source IDV at header level not open'
FROM po_headers_all idv
WHERE idv.po_header_id = award.clm_source_document_id
AND NVL(idv.frozen_flag,'N') = 'Y'
)
OR EXISTS (SELECT 'source IDV at line level not open'
FROM po_headers_all idv,
po_lines_all award_line
WHERE award_line.po_header_id = award.po_header_id
AND (award_line.from_header_id = idv.po_header_id
OR award_line.contract_id = idv.po_header_id)
AND NVL(idv.frozen_flag,'N') = 'Y'
)
);