[Home] [Help]
1555:
1556: l_data_key := PO_CORE_S.get_session_gt_nextval();
1557:
1558: FORALL i IN 1 .. p_header_id_tbl.COUNT
1559: INSERT INTO PO_SESSION_GT
1560: ( key
1561: , num1
1562: , num2
1563: , num3
1579: BULK COLLECT INTO
1580: l_header_id_tbl
1581: , l_segment1_tbl
1582: FROM
1583: PO_SESSION_GT SES
1584: , PO_SYSTEM_PARAMETERS_ALL PARAMS
1585: , PO_DOC_STYLE_HEADERS PDSH
1586: WHERE
1587: SES.key = l_data_key
1697: l_results_count := x_results.result_type.COUNT;
1698:
1699: ----------------------------------------------------------
1700: --
1701: -- The following mapping is used for PO_SESSION_GT in this
1702: -- procedure:
1703: --
1704: -- num1 - po_header_id
1705: -- num2 - org_id
1714:
1715: -- Only check unsaved headers with manually entered document numbers.
1716:
1717: FORALL i IN 1 .. p_header_id_tbl.COUNT
1718: INSERT INTO PO_SESSION_GT
1719: ( key
1720: , num1
1721: , num2
1722: , index_char1
1746: IF (SQL%ROWCOUNT > 0) THEN
1747:
1748: d_position := 110;
1749:
1750: UPDATE PO_SESSION_GT SES
1751: SET index_char2 = 'X'
1752: WHERE
1753: SES.key = l_data_key
1754: AND
1776: OR
1777: -- Check for other in-memory documents.
1778: EXISTS
1779: ( SELECT NULL
1780: FROM PO_SESSION_GT UNSAVED_DATA
1781: WHERE
1782: UNSAVED_DATA.key = l_data_key
1783: AND UNSAVED_DATA.num2 = SES.num2 -- org_id
1784: AND UNSAVED_DATA.index_char1 = SES.index_char1 -- segment1
1809: , l_org_id_tbl
1810: , l_segment1_tbl
1811: , l_nonunique_tbl
1812: FROM
1813: PO_SESSION_GT SES
1814: WHERE
1815: SES.key = l_data_key
1816: AND
1817: ( SES.index_char2 = 'X'
3203:
3204: l_data_key := PO_CORE_S.get_session_gt_nextval();
3205:
3206: FORALL i IN 1..p_intf_header_id.Count
3207: INSERT INTO po_session_gt(KEY,num1,num2)
3208: SELECT l_data_key,
3209: p_intf_header_id(i),
3210: p_style_id_tbl(i)
3211: FROM dual
3211: FROM dual
3212: WHERE p_style_id_tbl(i) IS NULL
3213: OR p_style_id_tbl(i) NOT IN ( SELECT column_value FROM TABLE(l_clm_style_id_tbl) );
3214:
3215: DELETE FROM po_session_gt
3216: WHERE key = l_data_key
3217: RETURNING num1,num2 BULK COLLECT INTO l_intf_header_id_tbl,l_style_id_tbl;
3218:
3219: FOR i IN 1..l_intf_header_id_tbl.Count
3282:
3283: l_data_key := PO_CORE_S.get_session_gt_nextval();
3284:
3285: FORALL i IN 1..p_intf_header_id.Count
3286: INSERT INTO po_session_gt(KEY,num1, num2)
3287: SELECT l_data_key,
3288: p_intf_header_id(i),
3289: p_style_id_tbl(i)
3290: FROM po_headers_all
3291: WHERE p_clm_source_document_id_tbl(i) IS NOT NULL
3292: AND po_header_id = p_clm_source_document_id_tbl(i)
3293: AND Nvl(style_id,-1) <> Nvl(p_style_id_tbl(i),-1);
3294:
3295: DELETE FROM po_session_gt
3296: WHERE key = l_data_key
3297: RETURNING num1, num2 BULK COLLECT INTO l_intf_header_id_tbl, l_style_id_tbl;
3298:
3299: FOR i IN 1..l_intf_header_id_tbl.Count
3352:
3353: l_data_key := PO_CORE_S.get_session_gt_nextval();
3354:
3355: FORALL i IN 1..p_intf_header_id.Count
3356: INSERT INTO po_session_gt(KEY,num1, num2)
3357: SELECT l_data_key,
3358: p_intf_header_id(i),
3359: p_vendor_id_tbl(i)
3360: FROM po_headers_all
3362: AND p_vendor_id_tbl(i) IS NOT NULL
3363: AND po_header_id = p_clm_source_document_id_tbl(i)
3364: AND vendor_id <> p_vendor_id_tbl(i);
3365:
3366: DELETE FROM po_session_gt
3367: WHERE key = l_data_key
3368: RETURNING num1, num2 BULK COLLECT INTO l_intf_header_id_tbl, l_vendor_id_tbl;
3369:
3370: FOR i IN 1..l_intf_header_id_tbl.Count
3424:
3425: l_data_key := PO_CORE_S.get_session_gt_nextval();
3426:
3427: FORALL i IN 1..p_intf_header_id.Count
3428: INSERT INTO po_session_gt(KEY,num1, num2)
3429: SELECT l_data_key,
3430: p_intf_header_id(i),
3431: p_vendor_site_id_tbl(i)
3432: FROM po_headers_all
3434: AND p_vendor_site_id_tbl(i) IS NOT NULL
3435: AND po_header_id = p_clm_source_document_id_tbl(i)
3436: AND vendor_site_id <> p_vendor_site_id_tbl(i);
3437:
3438: DELETE FROM po_session_gt
3439: WHERE key = l_data_key
3440: RETURNING num1, num2 BULK COLLECT INTO l_intf_header_id_tbl, l_vendor_site_id_tbl;
3441:
3442: FOR i IN 1..l_intf_header_id_tbl.Count