[Home] [Help]
74: /* convert the dispensed qty in p_uom */
75: /* It is safe to assume that conversion will not fail because this is an internal
76: procedure and will only be called where conversion do exist and p_uom is not null.
77: Therefore no need to check the failure (-99999 return value) */
78: l_dispensed_qty := inv_convert.inv_um_convert(l_dispense_rec.inventory_item_id,
79: l_dispense_rec.lot_number,
80: l_dispense_rec.organization_id,
81: 5,
82: l_dispense_rec.dispensed_qty,
85: null,
86: null);
87: /* convert the undispensed qty too */
88: IF (l_undispensed_qty > 0) THEN
89: l_undispensed_qty := inv_convert.inv_um_convert(l_dispense_rec.inventory_item_id,
90: l_dispense_rec.lot_number,
91: l_dispense_rec.organization_id,
92: 5,
93: l_undispensed_qty,
138: IF(l_dispense_rec.dispense_uom <> p_uom) THEN
139: /* It is safe to assume that conversion will not fail because this is an internal
140: procedure and will only be called where conversion do exist and p_uom is not null.
141: Therefore no need to check the failure (-99999 return value) */
142: l_dispensed_qty := inv_convert.inv_um_convert(l_dispense_rec.inventory_item_id,
143: l_dispense_rec.lot_number,
144: l_dispense_rec.organization_id,
145: 5,
146: l_dispense_rec.dispensed_qty,
149: null,
150: null);
151: /* convert the undispensed qty too */
152: IF (l_undispensed_qty > 0) THEN
153: l_undispensed_qty := inv_convert.inv_um_convert(l_dispense_rec.inventory_item_id,
154: l_dispense_rec.lot_number,
155: l_dispense_rec.organization_id,
156: 5,
157: l_undispensed_qty,
267: X_DISPENSE_CONFIG_ID := l_dispense_config_rec.config_id;
268: -- change for kiosk : start
269: X_SECURITY_FLAG := l_dispense_config_rec.SECURECODE_REQUIRED_FLAG;
270: -- change for kiosk : End
271: l_mtl_reserved_qty := inv_convert.inv_um_convert(p_inventory_item_id,
272: p_lot_number,
273: p_organization_id,
274: 5,
275: P_RESERVED_QUANTITY,
284: X_RESERVATION_UOM_CONVERTIBLE := FND_API.G_TRUE;
285: end if ;
286: X_RESERVED_QUANTITY := l_mtl_reserved_qty;
287: l_net_mtl_dispensed_quantity := GET_NET_MTL_DISPENSED_QTY(P_MATERIAL_DETAILS_ID, l_dispense_uom);
288: l_planned_quantity := inv_convert.inv_um_convert(p_inventory_item_id,
289: p_lot_number,
290: p_organization_id,
291: 5,
292: p_plan_quantity,
560: OPEN C_GET_RESERVATIONS;
561: LOOP
562: FETCH C_GET_RESERVATIONS INTO l_reservation_record;
563: EXIT WHEN C_GET_RESERVATIONS%NOTFOUND;
564: l_reserved_qty := inv_convert.inv_um_convert(l_reservation_record.inventory_item_id,
565: l_reservation_record.lot_number,
566: l_organization_id,
567: 5,
568: l_reservation_record.primary_reservation_quantity,
591: -- Following Code was handling UOM change from Dispense row to dispense row with
592: -- Static Setup for a batch functionality implementation this is nolonger need
593: -- following code is modified to address additional Qty filed population
594: -- of reservation record (Bug 4892510)
595: l_temp_disp_qty := inv_convert.inv_um_convert(l_reservation_record.inventory_item_id,
596: l_reservation_record.lot_number,
597: l_organization_id,
598: 5,
599: l_dispense_record.net_dispensed_qty,
607: END IF;
608: -- push the dispensed qty in secondary UOM also
609: If (l_reservation_record.SECONDARY_RESERVATION_QUANTITY is not null AND
610: l_reservation_record.SECONDARY_UOM_CODE is not null) THEN
611: l_reserved_qty_in_sec_UOM := inv_convert.inv_um_convert(l_reservation_record.inventory_item_id,
612: l_reservation_record.lot_number,
613: l_organization_id,
614: 5,
615: l_dispense_record.net_dispensed_qty,
625: END IF;
626: END IF;
627: -- push primary reservation quantity
628: IF(l_reservation_record.primary_uom_code is not null ) then
629: l_net_disp_qty_in_prim_UOM := inv_convert.inv_um_convert(l_reservation_record.inventory_item_id,
630: l_reservation_record.lot_number,
631: l_organization_id,
632: 5,
633: l_dispense_record.net_dispensed_qty,
675: if(l_reserved_qty > 0) then
676: -- SP: 12/20/2005
677: -- We need convert reservation qty from dispense UOM to reservation UOM
678: -- (Bug 4892510)
679: l_reserved_qty := inv_convert.inv_um_convert(l_reservation_record.inventory_item_id,
680: l_reservation_record.lot_number,
681: l_organization_id,
682: 5,
683: l_reserved_qty,
692: -- Quantity need to be returned in reservation UOM.
693: -- l_reservation_record.reservation_uom_code := l_dispense_uom;
694: -- push primary reservation quantity
695: IF (l_reservation_record.primary_uom_code is not null ) then
696: l_net_disp_qty_in_prim_UOM := inv_convert.inv_um_convert(l_reservation_record.inventory_item_id,
697: l_reservation_record.lot_number,
698: l_organization_id,
699: 5,
700: l_reserved_qty,
711: -- push serial reservation quantity
712: l_reservation_record.serial_reservation_quantity := l_reservation_record.reservation_quantity;
713: If(l_reservation_record.SECONDARY_RESERVATION_QUANTITY is not null AND
714: l_reservation_record.SECONDARY_UOM_CODE is not null) THEN
715: l_reserved_qty_in_sec_UOM := inv_convert.inv_um_convert(l_reservation_record.inventory_item_id,
716: l_reservation_record.lot_number,
717: l_organization_id,
718: 5,
719: l_reserved_qty,