[Home] [Help]
2: /* $Header: porelgeb.pls 120.16.12010000.7 2009/01/20 12:39:39 rakchakr ship $ */
3:
4: --
5: g_dest_type_code_SHOP_FLOOR CONSTANT
6: PO_DISTRIBUTIONS_ALL.destination_type_code%TYPE
7: := 'SHOP FLOOR'
8: ;
9:
10: -- Bug 2701147 START
363: plla.lcm_flag = NULL
364: WHERE plla.po_release_id = x_po_release_id
365: AND plla.lcm_flag = 'Y';
366:
367: UPDATE po_distributions_all pda
368: SET pda.lcm_flag = NULL
369: WHERE pda.line_location_id = x_line_location_id
370: AND pda.lcm_flag = 'Y';
371:
620: plla.lcm_flag = NULL
621: WHERE plla.po_release_id = x_po_release_id
622: AND plla.lcm_flag = 'Y';
623:
624: UPDATE po_distributions_all pda
625: SET pda.lcm_flag = NULL
626: WHERE pda.line_location_id = x_line_location_id
627: AND pda.lcm_flag = 'Y';
628:
1402: );
1403: END IF;
1404: -- Bug 3570793 END
1405:
1406: INSERT INTO PO_DISTRIBUTIONS
1407: (PO_DISTRIBUTION_ID,
1408: LAST_UPDATE_DATE,
1409: LAST_UPDATED_BY,
1410: PO_HEADER_ID,
1464: --added distribution_type for encumb. rewrite
1465: distribution_type,
1466: Org_Id --
1467: )
1468: SELECT PO_DISTRIBUTIONS_S.NEXTVAL,
1469: sysdate,
1470: req_line.last_updated_by, -- :cpo_last_updated_by
1471: req_line.blanket_po_header_id, --:po_header_id
1472: sysdate,
1577: SELECT SUM(POD.QUANTITY_ORDERED)
1578: INTO x_dist_quantity
1579: FROM PO_LINE_LOCATIONS POLL,
1580: PO_REQUISITION_LINES PORL,
1581: PO_DISTRIBUTIONS POD
1582: WHERE POLL.LINE_LOCATION_ID = PORL.LINE_LOCATION_ID
1583: AND PORL.REQUISITION_LINE_ID
1584: = req_line.requisition_line_id
1585: AND POD.LINE_LOCATION_ID = POLL.LINE_LOCATION_ID;
1586:
1587: x_qty_difference := x_shipment_quantity-x_dist_quantity;
1588:
1589: IF (x_qty_difference <> 0) THEN
1590: UPDATE PO_DISTRIBUTIONS POD
1591: SET POD.QUANTITY_ORDERED
1592: = POD.QUANTITY_ORDERED + x_qty_difference
1593: WHERE POD.PO_DISTRIBUTION_ID =
1594: (SELECT POD2.PO_DISTRIBUTION_ID
1591: SET POD.QUANTITY_ORDERED
1592: = POD.QUANTITY_ORDERED + x_qty_difference
1593: WHERE POD.PO_DISTRIBUTION_ID =
1594: (SELECT POD2.PO_DISTRIBUTION_ID
1595: FROM PO_DISTRIBUTIONS POD2,
1596: PO_LINE_LOCATIONS POLL,
1597: PO_REQUISITION_LINES PORL
1598: WHERE POD2.LINE_LOCATION_ID
1599: = POLL.LINE_LOCATION_ID
1955: pod.deliver_to_location_id,
1956: pod.destination_organization_id,
1957: pod.destination_subinventory,
1958: 'Y'
1959: from po_distributions pod,
1960: po_line_locations poll,
1961: po_lines pol
1962: where poll.line_location_id = x_line_location_id
1963: and nvl(poll.closed_code, 'OPEN') <> 'FINALLY CLOSED'
2389: IS
2390: BEGIN
2391: SELECT prh.segment1, prl.line_num
2392: INTO x_req_num, x_req_line_num
2393: FROM po_distributions pod,
2394: po_req_distributions prd,
2395: po_requisition_lines prl,
2396: po_requisition_headers prh
2397: WHERE pod.po_distribution_id = p_po_distribution_id
2419: l_po_distribution_id NUMBER;
2420: BEGIN
2421: SELECT min(pod.po_distribution_id)
2422: INTO l_po_distribution_id
2423: FROM po_distributions pod
2424: WHERE pod.line_location_id = p_line_location_id;
2425:
2426: get_req_info_from_po_dist (l_po_distribution_id,
2427: x_req_num, x_req_line_num);
2501: nvl( POLL.line_location_id,0) line_loc_id
2502: FROM PO_LINE_LOCATIONS POLL,
2503: PO_LINE_TYPES PLT,
2504: PO_LINES POL,
2505: PO_DISTRIBUTIONS POD
2506: WHERE POLL.po_line_id = POL.po_line_id
2507: AND POLL.line_location_id = POD.line_location_id
2508: AND POLL.po_release_id = p_document_id
2509: AND POL.line_type_id = PLT.line_type_id
2536: min(POLL.shipment_num)
2537: FROM PO_REQUISITION_LINES PRL,
2538: PO_LINE_LOCATIONS POLL,
2539: PO_LINES POL,
2540: PO_DISTRIBUTIONS PD,
2541: PO_REQ_DISTRIBUTIONS PRD
2542: WHERE POLL.line_location_id = p_line_location_id
2543: AND POLL.po_line_id = POL.po_line_id
2544: AND PRL.unit_price >= 0
2966: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_PDOI_INVALID_GL_ENC_PER');
2967: SELECT substr(l_textline,1,240),
2968: POD.po_distribution_id
2969: BULK COLLECT INTO l_error_messages, l_dist_id
2970: FROM PO_DISTRIBUTIONS POD, PO_LINE_LOCATIONS PLL, PO_LINES POL
2971: WHERE POD.line_location_id = PLL.line_location_id
2972: AND PLL.po_release_id = x_po_release_id
2973: AND POL.po_line_id = PLL.po_line_id
2974: AND nvl(POD.encumbered_flag,'N') = 'N'
3288: POD.distribution_num||g_delim||l_textline, 1,240)
3289: BULK COLLECT INTO l_error_messages
3290: FROM PO_RELEASES_GT POR,
3291: PO_LINE_LOCATIONS_GT PLL,
3292: PO_DISTRIBUTIONS_GT POD
3293: WHERE POR.po_release_id = POD.po_release_id
3294: AND POD.line_location_id = PLL.line_location_id
3295: AND POR.po_release_id = x_po_release_id
3296: AND Nvl(POD.LCM_FLAG,'N') = 'Y'
3434: --Name: create_award_distribution
3435: --Pre-reqs:
3436: -- None
3437: --Modifies:
3438: -- PO_DISTRIBUTIONS
3439: -- GMS_AWARD_DISTRIBUTIONS
3440: --Locks:
3441: -- None
3442: --Function:
3466:
3467: l_progress := '001';
3468:
3469: --SQL WHAT: Select the columns that Grants needs from the
3470: -- po_distributions table for this release where
3471: -- award_id is referenced.
3472: --SQL WHY : Need to call GMS API to update award distribution
3473: -- lines table.
3474:
3485: l_gms_po_interface_obj.project_id,
3486: l_gms_po_interface_obj.task_id,
3487: l_gms_po_interface_obj.award_set_id_in,
3488: l_gms_po_interface_obj.award_set_id_out
3489: FROM PO_DISTRIBUTIONS
3490: WHERE line_location_id = x_line_location_id AND
3491: award_id IS NOT NULL;
3492:
3493: IF SQL%NOTFOUND THEN
3511: END IF;
3512:
3513: l_progress := '003';
3514:
3515: --Update po_distributions table with the new award_id's
3516:
3517: FORALL i IN 1..l_gms_po_interface_obj.distribution_id.COUNT
3518: UPDATE po_distributions
3519: SET award_id = l_gms_po_interface_obj.award_set_id_out(i)
3514:
3515: --Update po_distributions table with the new award_id's
3516:
3517: FORALL i IN 1..l_gms_po_interface_obj.distribution_id.COUNT
3518: UPDATE po_distributions
3519: SET award_id = l_gms_po_interface_obj.award_set_id_out(i)
3520: WHERE po_distribution_id = l_gms_po_interface_obj.distribution_id(i);
3521:
3522: EXCEPTION