1: PACKAGE BODY GML_INTORD_LOT_STS AS
2: /* $Header: GMLIOLSB.pls 115.1 2004/01/20 16:30:41 pbamb noship $*/
3:
4:
5: -----------------------------------------------------------------------------
114: RETURN;
115: END IF;
116:
117: -- it is an existing lot and move_diff_sts = 0
118: IF GML_INTORD_LOT_STS.G_move_diff_stat = 0 THEN
119: IF (l_onhand_lot_qty >= 0 AND p_ship_lot_status <> l_onhand_lot_status) THEN
120: x_txn_allowed := 'N';
121: x_rcpt_lot_status := NULL;
122: RETURN;
128: END IF;
129:
130: /* it is an existing lot and move_diff_sts = 1
131: allow the transaction irrespective of onhand qty */
132: IF GML_INTORD_LOT_STS.G_move_diff_stat = 1 THEN
133: x_txn_allowed := 'Y';
134: x_rcpt_lot_status := l_onhand_lot_status;
135: RETURN;
136: END IF;
135: RETURN;
136: END IF;
137:
138: -- it is an existing lot and move_diff_sts = 2
139: IF GML_INTORD_LOT_STS.G_move_diff_stat = 2 THEN
140: IF (p_ship_lot_status = l_onhand_lot_status) THEN
141: x_txn_allowed := 'Y';
142: x_rcpt_lot_status := p_ship_lot_status;
143: RETURN;
148: ELSIF (l_onhand_lot_qty = 0 AND p_ship_lot_status <> l_onhand_lot_status) THEN
149: x_txn_allowed := 'Y';
150: x_rcpt_lot_status := p_ship_lot_status;
151: -- change the onhand_lot_status status to ship_lot_status in ic_lot_inv
152: GML_INTORD_LOT_STS.change_inv_lot_status( p_item_id => p_item_id
153: , p_whse_code => p_whse_code
154: , p_lot_id => p_lot_id
155: , p_location => p_location
156: , p_to_status => p_ship_lot_status
448:
449: END get_omso_lot_status;
450:
451:
452: END GML_INTORD_LOT_STS;