17: -----------------------------------------------------------------------
18: --Start of Comments
19: --Name: process_doc_control_action
20: --Pre-reqs: org context is set
21: --Modifies: po_headers_all
22: --Locks:
23: -- po_headers_all
24: --Function:
25: -- Performs the document control action for the CLM Document passed.
19: --Name: process_doc_control_action
20: --Pre-reqs: org context is set
21: --Modifies: po_headers_all
22: --Locks:
23: -- po_headers_all
24: --Function:
25: -- Performs the document control action for the CLM Document passed.
26: --Parameters:
27: --IN:
125:
126: -- Update clm_closeout_status
127: IF p_control_action = g_action_clm_reopen
128: THEN
129: UPDATE po_headers_all
130: SET clm_closeout_status = NULL,
131: last_update_date = SYSDATE,
132: last_updated_by = FND_GLOBAL.USER_ID,
133: last_update_login = FND_GLOBAL.LOGIN_ID
305: SELECT 'Y'
306: INTO l_open_award_exists_flag
307: FROM dual
308: WHERE EXISTS (SELECT 'open reference exists at header level'
309: FROM po_headers_all
310: WHERE clm_source_document_id = p_doc_header_id
311: AND NVL(frozen_flag,'N') = 'N'
312: )
313: OR EXISTS (SELECT 'open reference exists at line level'
310: WHERE clm_source_document_id = p_doc_header_id
311: AND NVL(frozen_flag,'N') = 'N'
312: )
313: OR EXISTS (SELECT 'open reference exists at line level'
314: FROM po_headers_all poh,
315: po_lines_all pol
316: WHERE poh.po_header_id = pol.po_header_id
317: AND (pol.from_header_id = p_doc_header_id
318: OR pol.contract_id = p_doc_header_id)
337: THEN
338: BEGIN
339: SELECT 'Y'
340: INTO l_idv_not_open_flag
341: FROM po_headers_all award
342: WHERE award.po_header_id = p_doc_header_id AND
343: ( EXISTS (SELECT 'source IDV at header level not open'
344: FROM po_headers_all idv
345: WHERE idv.po_header_id = award.clm_source_document_id
340: INTO l_idv_not_open_flag
341: FROM po_headers_all award
342: WHERE award.po_header_id = p_doc_header_id AND
343: ( EXISTS (SELECT 'source IDV at header level not open'
344: FROM po_headers_all idv
345: WHERE idv.po_header_id = award.clm_source_document_id
346: AND NVL(idv.frozen_flag,'N') = 'Y'
347: )
348: OR EXISTS (SELECT 'source IDV at line level not open'
345: WHERE idv.po_header_id = award.clm_source_document_id
346: AND NVL(idv.frozen_flag,'N') = 'Y'
347: )
348: OR EXISTS (SELECT 'source IDV at line level not open'
349: FROM po_headers_all idv,
350: po_lines_all award_line
351: WHERE award_line.po_header_id = award.po_header_id
352: AND (award_line.from_header_id = idv.po_header_id
353: OR award_line.contract_id = idv.po_header_id)