[Home] [Help]
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,
4016: -- creates entries in po_entity_locks table corresponding to the modified
7344: --Pre-reqs: None
7345: --Modifies:
7346: -- po_entity_locks
7347: --Locks:
7348: -- po_line_locations_all_ext_b, po_line_locations_all_ext_tl
7349: --Function:
7350: -- This procedure generates the change data for the passed entities PKs,
7351: -- creates entries in po_entity_locks table corresponding to the modified
7352: -- attributes, and locks the required rows in transaction tables.
7371: IF (PO_LOG.d_proc) THEN
7372: PO_LOG.proc_begin(d_module);
7373: PO_LOG.proc_begin(d_module, 'p_draft_id', p_draft_id);
7374: END IF;
7375: -- Identify Shipment level locks required because of change in po_line_locations_all_ext_b
7376: INSERT INTO po_session_gt(
7377: key,
7378: index_char1, -- records identifier
7379: index_char2, -- entity_name
7484: NVL(pllb.d_ext_attr9 ,G_NULL_DATE),
7485: NVL(pllb.d_ext_attr10 ,G_NULL_DATE)
7486: ) p_lock_attrs,
7487: pllb.attr_group_id
7488: FROM po_line_locations_all_ext_b pllb,
7489: po_session_gt pogt
7490: WHERE pllb.line_location_id = pogt.char1 -- po_header_id
7491: AND pllb.draft_id = G_DRAFT_ID_MINUS_1
7492: AND pogt.index_char1 = G_CHANGED_ENTTIES_ID
7586: NVL(pllbd.d_ext_attr9 ,G_NULL_DATE),
7587: NVL(pllbd.d_ext_attr10 ,G_NULL_DATE)
7588: ) p_lock_attrs,
7589: pllbd.attr_group_id
7590: FROM po_line_locations_all_ext_b pllbd,
7591: po_session_gt pogt
7592: WHERE pllbd.draft_id = p_draft_id
7593: AND pllbd.line_location_id = pogt.char1 -- line_location_id
7594: AND pogt.index_char1 = G_CHANGED_ENTTIES_ID
7604: END IF;
7605:
7606: -- When a UDA attribute group does not have any attribute which has default
7607: -- value and user also does not enter any attribute value, then records
7608: -- for such attribute groups are not created in po_line_locations_all_ext_b.
7609: -- Now if user modifies such attribute groups in Mod, then a new record is
7610: -- created with the draft_id. We need to identify such records and lock the
7611: -- shipment as P lock.
7612: INSERT INTO po_session_gt(
7629: AND pllbd.line_location_id = pogt.char1 -- line_location_id
7630: AND pogt.index_char1 = G_CHANGED_ENTTIES_ID
7631: AND pogt.index_char2 = G_LOCK_SHIPMENT_ENTITY
7632: AND EXISTS (SELECT draft.attr_group_id
7633: FROM po_line_locations_all_ext_b draft
7634: WHERE draft.line_location_id = pllbd.line_location_id
7635: AND draft.draft_id = p_draft_id
7636: MINUS
7637: SELECT base.attr_group_id
7634: WHERE draft.line_location_id = pllbd.line_location_id
7635: AND draft.draft_id = p_draft_id
7636: MINUS
7637: SELECT base.attr_group_id
7638: FROM po_line_locations_all_ext_b base
7639: WHERE base.line_location_id = pllbd.line_location_id
7640: AND base.draft_id = -1
7641: );
7642:
8433: END IF;
8434:
8435: FORALL itr IN 1..po_ship_ids_tbl.Count
8436: DELETE
8437: FROM po_line_locations_all_ext_b
8438: WHERE line_location_id = po_ship_ids_tbl(itr) AND draft_id = p_po_draft_id;
8439:
8440: FORALL itr IN 1..po_ship_ids_tbl.Count
8441: DELETE
8741: WHERE line_location_id = l_line_loc_id_tbl(i)
8742: AND draft_id = p_draft_id;
8743:
8744: FORALL i IN 1..l_line_loc_id_tbl.Count()
8745: DELETE FROM po_line_locations_all_ext_b
8746: WHERE line_location_id = l_line_loc_id_tbl(i)
8747: AND draft_id = p_draft_id;
8748:
8749: FORALL i IN 1..l_line_loc_id_tbl.Count()