[Home] [Help]
410: )
411: AND plla.po_header_id=p_po_header_id;
412:
413: -- Update the revision number for all distributions locked by the current mod
414: UPDATE po_distributions_all pda
415: SET revision_num = l_header_revision
416: WHERE EXISTS ( SELECT 'Lock exists for the distribution'
417: FROM po_entity_locks poel
418: WHERE poel.entity_pk1 = pda.po_distribution_id
4007: --Pre-reqs: None
4008: --Modifies:
4009: -- po_entity_locks
4010: --Locks:
4011: -- po_headers_all, po_lines_all, po_line_locations_all, po_distributions_all,
4012: -- po_headers_all_ext_b,po_lines_all_ext_b,po_line_locations_all_ext_b,
4013: -- po_distributions_all_ext_b, tl tables
4014: --Function:
4015: -- This procedure generates the change data for the passed entities PKs,
4009: -- po_entity_locks
4010: --Locks:
4011: -- po_headers_all, po_lines_all, po_line_locations_all, po_distributions_all,
4012: -- po_headers_all_ext_b,po_lines_all_ext_b,po_line_locations_all_ext_b,
4013: -- po_distributions_all_ext_b, tl tables
4014: --Function:
4015: -- This procedure generates the change data for the passed entities PKs,
4016: -- creates entries in po_entity_locks table corresponding to the modified
4017: -- attributes, and locks the required rows in transaction tables.
5025: WHERE pod_draft.po_line_id = pol.po_line_id
5026: AND pod_draft.draft_id = p_draft_id
5027: MINUS
5028: SELECT po_distribution_id
5029: FROM po_distributions_all pod_base
5030: WHERE pod_base.po_line_id = pol.po_line_id
5031: )
5032: AND pol.po_header_id = dft.document_id
5033: AND dft.draft_id = p_draft_id;
5319: --Pre-reqs: None
5320: --Modifies:
5321: -- po_entity_locks
5322: --Locks:
5323: -- po_distributions_all, locks because of line/shipment F lock
5324: --Function:
5325: -- This procedure generates the change data for the passed entities PKs,
5326: -- creates entries in po_entity_locks table corresponding to the modified
5327: -- attributes, and locks the required rows in transaction tables.
5420: NVL(pod.partial_funded_flag ,G_NULL_CHAR),
5421: NVL(pod.destination_type_code ,G_NULL_CHAR),
5422: NVL(pod.destination_subinventory ,G_NULL_CHAR)
5423: ) f_lock_attrs
5424: FROM po_distributions_all pod,
5425: po_session_gt pogt
5426: WHERE pod.po_distribution_id = pogt.char1 -- po_line_id
5427: AND pogt.index_char1 = G_CHANGED_ENTTIES_ID
5428: AND pogt.index_char2 = G_LOCK_DIST_ENTITY
5521: G_LOCK_DIST_ENTITY,
5522: pod.po_distribution_id,
5523: p_draft_id,
5524: 'F'
5525: FROM po_distributions_all pod,
5526: po_drafts dft
5527: WHERE pod.po_header_id = dft.document_id
5528: AND dft.draft_id = p_draft_id
5529: AND (EXISTS (SELECT 'Line is modified in current txn and requires F lock'
7956: --Pre-reqs:
7957: -- po_entity_locks is populated
7958: --Modifies: None
7959: --Locks:
7960: -- po_headers_all, po_lines_all, po_line_locations_all, po_distributions_all
7961: --Function:
7962: -- This procedure locks the required rows in transaction tables, and checks if
7963: -- the requested locks are compatible with existing locks.
7964: --Parameters:
8064: -- Lock distribution rows
8065: SELECT pod.po_line_id
8066: BULK COLLECT
8067: INTO l_entity_id_tbl
8068: FROM po_distributions_all pod
8069: WHERE EXISTS (SELECT 'lock exists'
8070: FROM po_entity_locks poel
8071: WHERE poel.entity_name = G_LOCK_DIST_ENTITY
8072: AND poel.lock_by_draft_id = p_draft_id
8410: END IF;
8411:
8412: SELECT po_distribution_id
8413: BULK COLLECT INTO po_distribution_id_tbl
8414: FROM po_distributions_all pda
8415: WHERE pda.line_location_id IN (SELECT * FROM TABLE(po_ship_ids_tbl));
8416:
8417: FORALL itr IN 1..po_ship_ids_tbl.Count
8418: DELETE