143: WHERE draft_id = p_draft_id;
144: --End Deleting Headers/Lines/Shipments/Distributions
145:
146: --Start Deleting UDA Atribs
147: DELETE FROM po_headers_all_ext_b
148: WHERE draft_id = p_draft_id;
149:
150: DELETE FROM po_lines_all_ext_b
151: WHERE draft_id = p_draft_id;
152:
153: DELETE FROM po_line_locations_all_ext_b
154: WHERE draft_id = p_draft_id;
155:
156: DELETE FROM po_headers_all_ext_tl
157: WHERE draft_id = p_draft_id;
158:
159: DELETE FROM po_lines_all_ext_tl
160: WHERE draft_id = p_draft_id;
3880: --Start of Comments
3881: --Name: SYNC_UDA_ATTRIBS
3882: --Pre-reqs: None
3883: --Modifies:
3884: -- PO_HEADERS_ALL_EXT_B / PO_HEADERS_ALL_EXT_TL
3885: -- PO_LINES_ALL_EXT_B / PO_LINES_ALL_EXT_TL
3886: -- PO_LINE_LOCATIONS_ALL_EXT_B / PO_LINE_LOCATIONS_ALL_EXT_TL
3887: --Locks:
3888: -- None.
3934: l_new_line_loc_ext_id_tbl PO_TBL_NUMBER;
3935:
3936: CURSOR po_headers_ext_cursor IS
3937: SELECT extension_id, EGO_EXTFWK_S.NEXTVAL
3938: FROM PO_HEADERS_ALL_EXT_B_ARCHIVE
3939: WHERE po_header_id = p_document_id
3940: AND draft_id = -1
3941: AND revision_num = p_revision_num;
3942:
3972:
3973: -- Check if Document is UDA Enabled
3974: SELECT 'PURCHASING', TYPE_LOOKUP_CODE, STYLE_ID
3975: INTO l_functional_area_code, l_document_type_code, l_document_style_id
3976: FROM po_headers_all
3977: WHERE PO_HEADER_ID = p_document_id;
3978:
3979: d_position := 20;
3980: IF PO_LOG.d_stmt THEN
4009: OPEN po_headers_ext_cursor;
4010: FETCH po_headers_ext_cursor BULK COLLECT INTO l_old_hdr_ext_id_tbl, l_new_hdr_ext_id_tbl;
4011: CLOSE po_headers_ext_cursor;
4012:
4013: -- Start Sync PO_HEADERS_ALL_EXT_B
4014: d_position := 40;
4015: IF PO_LOG.d_stmt THEN
4016: PO_LOG.stmt(d_mod,d_position,'Sync PO_HEADERS_ALL_EXT_B');
4017: END IF;
4012:
4013: -- Start Sync PO_HEADERS_ALL_EXT_B
4014: d_position := 40;
4015: IF PO_LOG.d_stmt THEN
4016: PO_LOG.stmt(d_mod,d_position,'Sync PO_HEADERS_ALL_EXT_B');
4017: END IF;
4018:
4019: FORALL i IN 1..l_old_hdr_ext_id_tbl.Count
4020: INSERT INTO PO_HEADERS_ALL_EXT_B
4016: PO_LOG.stmt(d_mod,d_position,'Sync PO_HEADERS_ALL_EXT_B');
4017: END IF;
4018:
4019: FORALL i IN 1..l_old_hdr_ext_id_tbl.Count
4020: INSERT INTO PO_HEADERS_ALL_EXT_B
4021: (EXTENSION_ID
4022: ,ATTR_GROUP_ID
4023: ,PO_HEADER_ID
4024: ,DATA_LEVEL_ID
4231: ,D_EXT_ATTR9
4232: ,D_EXT_ATTR10
4233: ,UDA_TEMPLATE_ID
4234: ,p_draft_id
4235: FROM PO_HEADERS_ALL_EXT_B_ARCHIVE
4236: WHERE extension_id = l_old_hdr_ext_id_tbl(i)
4237: AND revision_num = p_revision_num;
4238:
4239: d_position := 50;
4239: d_position := 50;
4240: IF PO_LOG.d_stmt THEN
4241: PO_LOG.stmt(d_mod,d_position,'Number of rows inserted: '||SQL%rowcount);
4242: END IF;
4243: -- End PO_HEADERS_ALL_EXT_B
4244:
4245: -- Start PO_HEADERS_ALL_EXT_TL
4246: d_position := 60;
4247: IF PO_LOG.d_stmt THEN
4241: PO_LOG.stmt(d_mod,d_position,'Number of rows inserted: '||SQL%rowcount);
4242: END IF;
4243: -- End PO_HEADERS_ALL_EXT_B
4244:
4245: -- Start PO_HEADERS_ALL_EXT_TL
4246: d_position := 60;
4247: IF PO_LOG.d_stmt THEN
4248: PO_LOG.stmt(d_mod,d_position,'Sync PO_HEADERS_ALL_EXT_TL');
4249: END IF;
4244:
4245: -- Start PO_HEADERS_ALL_EXT_TL
4246: d_position := 60;
4247: IF PO_LOG.d_stmt THEN
4248: PO_LOG.stmt(d_mod,d_position,'Sync PO_HEADERS_ALL_EXT_TL');
4249: END IF;
4250:
4251: FORALL i IN 1..l_old_hdr_ext_id_tbl.Count
4252: INSERT INTO PO_HEADERS_ALL_EXT_TL
4248: PO_LOG.stmt(d_mod,d_position,'Sync PO_HEADERS_ALL_EXT_TL');
4249: END IF;
4250:
4251: FORALL i IN 1..l_old_hdr_ext_id_tbl.Count
4252: INSERT INTO PO_HEADERS_ALL_EXT_TL
4253: (EXTENSION_ID
4254: ,ATTR_GROUP_ID
4255: ,PO_HEADER_ID
4256: ,DATA_LEVEL_ID
4367: ,TL_EXT_ATTR39
4368: ,TL_EXT_ATTR40
4369: ,UDA_TEMPLATE_ID
4370: ,p_draft_id
4371: FROM PO_HEADERS_ALL_EXT_TL_ARCHIVE
4372: WHERE extension_id = l_old_hdr_ext_id_tbl(i)
4373: AND language = userenv('LANG')
4374: AND revision_num = p_revision_num;
4375:
4376: d_position := 70;
4377: IF PO_LOG.d_stmt THEN
4378: PO_LOG.stmt(d_mod,d_position,'Number of rows inserted: '||SQL%rowcount);
4379: END IF;
4380: -- End PO_HEADERS_ALL_EXT_TL
4381:
4382: -- Sync UDA Line and Line Locations data only for PO or PA BLANKETS
4383: IF (p_document_type = 'PO') OR
4384: (p_document_type = 'PA' AND p_document_subtype='BLANKET') THEN
5420: d_api_name CONSTANT VARCHAR2(30) := 'SYNC_DRAFT_FROM_ARCHIVE';
5421: d_module CONSTANT VARCHAR2(2000) := d_pkg_name || d_api_name || '.';
5422: d_position NUMBER;
5423:
5424: l_ga_flag PO_HEADERS_ALL.global_agreement_flag%TYPE;
5425: l_return_status VARCHAR2(1);
5426: l_isUcaEnabled Varchar2(1); -- UCA Project Changes.
5427:
5428: BEGIN
5678: -- SQL What:Find out if it is a global agreement
5679: -- SQL Why :Sync org_assignment draft table if needed
5680: SELECT NVL(global_agreement_flag, 'N')
5681: INTO l_ga_flag
5682: FROM po_headers_all
5683: WHERE po_header_id = p_document_id;
5684:
5685: IF (l_ga_flag = 'Y') THEN
5686: