[Home] [Help]
6: -- Global VARIABLES
7: ---------------------------------------------------------------------------
8: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKC_CDRL_PVT';
9: G_APP_NAME CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
10: G_ENTITY_NAME CONSTANT VARCHAR2(40) := 'OKC_DELIVERABLES';
11:
12: G_MODULE CONSTANT VARCHAR2(200) := 'okc.plsql.'||G_PKG_NAME||'.';
13:
14:
104: END LOOP;
105:
106: -- Delete deliverable.
107: FORALL i IN p_del_id_tbl.first..p_del_id_tbl.last
108: DELETE FROM okc_deliverables
109: WHERE deliverable_id = p_del_id_tbl(i);
110: RETURN;
111: END IF;
112:
110: RETURN;
111: END IF;
112:
113: FORALL i IN p_del_id_tbl.first..p_del_id_tbl.last
114: UPDATE okc_deliverables
115: SET amendment_operation = 'DELETED'
116: , summary_amend_operation_code = 'DELETED'
117: WHERE deliverable_id = p_del_id_tbl(i)
118: ;
225:
226: CURSOR cur_new_cdrl
227: IS
228: SELECT deliverable_id,orig_system_reference_id1
229: FROM okc_deliverables
230: WHERE business_document_type = p_doc_type
231: and business_document_id = p_doc_id
232: AND business_document_version = Nvl(p_doc_version,-99)
233: AND exhibit_code=p_target_exhibit
277: x_return_status := G_RET_STS_SUCCESS;
278:
279: -- Generate CDRL Data item numbers:
280: SELECT Count(1) INTO l_src_cdrl_count
281: FROM okc_deliverables
282: WHERE business_document_type = p_doc_type
283: and business_document_id =p_doc_id
284: AND business_document_version = Nvl(p_doc_version,-99)
285: and DEL_CATEGORY_CODE = 'CDRL'
316: ORDER BY NEXT_ELIN_SET
317: ;
318:
319: --
320: INSERT INTO okc_deliverables
321: ( deliverable_id
322: , business_document_type
323: , business_document_id
324: , business_document_number
513: , price_group
514: , estimated_price
515: , uda_template_id
516: , schedule_type
517: FROM okc_deliverables
518: WHERE business_document_type = p_doc_type
519: AND business_document_id = p_doc_id
520: AND business_document_version = Nvl(p_doc_version,-99)
521: AND exhibit_code = p_src_exhibit
530: CLOSE cur_new_cdrl;
531:
532: -- Update exhibit, data item num on deliverable
533: FORALL i IN new_del_id_tbl.first..new_del_id_tbl.last
534: UPDATE okc_deliverables
535: SET data_item_number=data_item_num_tbl(i)
536: WHERE deliverable_id= new_del_id_tbl(i);
537:
538: -- copy uda data
611:
612: CURSOR cur_cdrl_for_exhibit (p_exhibit_code VARCHAR2)
613: IS
614: SELECT deliverable_id
615: FROM okc_deliverables
616: WHERE business_document_type = p_doc_type
617: AND business_document_id = p_doc_id
618: AND business_document_version = Nvl(p_doc_version,-99)
619: AND exhibit_code = p_exhibit_code
948:
949: IF p_validate_before_delete = 'Y' THEN
950: SELECT Count(1)
951: INTO l_cdrl_count
952: FROM okc_deliverables
953: WHERE business_document_type = p_doc_type
954: AND business_document_id = p_doc_id
955: AND business_document_version = Nvl(p_doc_version,-99)
956: AND exhibit_code = p_exhibit_code
1138:
1139: exhibit_len:=Length(p_exhibit_code);
1140:
1141: line_num_tbl_qry := 'SELECT Nvl(Max(ROWNUM),0)+1
1142: FROM (SELECT OKC_CDRL_PVT.ELIN_TO_DECIMAL(SubStr(data_item_number,'|| exhibit_len||'+1,4-'||exhibit_len||')) elin_decimal FROM okc_deliverables
1143: where business_document_type = :1 and business_document_id =:2
1144: and business_document_version = -99 and DEL_CATEGORY_CODE = :3
1145: and exhibit_code = :4 order by 1) WHERE ELIN_DECIMAL=rownum';
1146:
1403:
1404: CURSOR cur_exhibits
1405: IS
1406: SELECT DISTINCT exhibit_code
1407: FROM okc_deliverables;
1408:
1409: l_okc_cdrl_ids okc_tbl_number;
1410: l_exhibit_tbl exhibit_tbl_type;
1411: l_input_cdrl_count NUMBER;
1479:
1480: l_progress := '050';
1481: SELECT DISTINCT c.exhibit_code
1482: BULK COLLECT INTO l_exhibit_tbl
1483: FROM okc_deliverables c,
1484: TABLE(l_okc_cdrl_ids) d
1485: WHERE Value(d)=c.deliverable_id;
1486:
1487: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1488: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name, l_progress|| ' l_exhibit_tbl count ' || l_exhibit_tbl.count);
1489: END IF;
1490:
1491: SELECT Count(1) INTO l_existing_cdrl_count
1492: FROM okc_deliverables
1493: WHERE business_document_type = p_doc_type
1494: and business_document_id =p_doc_id
1495: AND business_document_version = Nvl(p_doc_version,-99)
1496: and DEL_CATEGORY_CODE = 'CDRL'
1566: )
1567: )
1568: WHERE NEXT_ELIN_SET
1569: NOT IN (SELECT data_item_number
1570: FROM okc_deliverables
1571: WHERE business_document_type = p_doc_type
1572: and business_document_id =p_doc_id
1573: AND business_document_version = Nvl(p_doc_version,-99)
1574: and DEL_CATEGORY_CODE = 'CDRL'
1586:
1587: l_progress := '080';
1588: -- Update exhibit, data item num on deliverable
1589: FORALL i IN p_cdrl_tbl.first..p_cdrl_tbl.last
1590: UPDATE okc_deliverables
1591: SET exhibit_code= p_exhibit_code
1592: ,data_item_number=data_item_num_tbl(i)
1593: WHERE deliverable_id= p_cdrl_tbl(i);
1594:
1704:
1705: CURSOR cur_exhibits
1706: IS
1707: SELECT DISTINCT exhibit_code
1708: FROM okc_deliverables
1709: WHERE business_document_type = p_doc_type
1710: AND business_document_id = p_doc_id
1711: AND DEL_CATEGORY_CODE = 'CDRL'
1712: AND (p_retain_lock_deliverables_yn = 'N'
1718:
1719: CURSOR cur_exhibits_ver
1720: IS
1721: SELECT DISTINCT exhibit_code
1722: FROM okc_deliverables
1723: WHERE business_document_type = p_doc_type
1724: AND business_document_id = p_doc_id
1725: AND DEL_CATEGORY_CODE = 'CDRL'
1726: AND business_document_version = p_doc_version
1852:
1853: CURSOR cur_get_cdrl
1854: IS
1855: SELECT 'Y'
1856: FROM okc_deliverables
1857: WHERE business_document_type = p_document_type
1858: AND business_document_id = p_document_id
1859: AND business_document_version=Nvl(p_doc_version,-99)
1860: AND del_category_code='CDRL';
1957: -- Get the exhibits on document
1958: BEGIN
1959: SELECT DISTINCT exhibit_code
1960: BULK COLLECT INTO l_doc_exhibit_tbl
1961: FROM okc_deliverables
1962: WHERE business_document_type = p_doc_type
1963: AND business_document_id = p_doc_id
1964: AND business_document_version=Nvl(p_doc_version,-99)
1965: AND del_category_code='CDRL'