DBA Data[Home] [Help]

APPS.GMI_QUANTITY_PVT dependencies on IC_LOCT_INV

Line 95: l_ic_loct_inv_rec_from ic_loct_inv%ROWTYPE;

91: l_ic_item_cpg_rec ic_item_cpg%ROWTYPE;
92: l_ic_lots_mst_rec ic_lots_mst%ROWTYPE;
93: l_ic_lots_cpg_rec ic_lots_cpg%ROWTYPE;
94: l_ic_whse_mst_rec ic_whse_mst%ROWTYPE;
95: l_ic_loct_inv_rec_from ic_loct_inv%ROWTYPE;
96: l_ic_loct_inv_rec_to ic_loct_inv%ROWTYPE;
97: l_sy_reas_cds_rec sy_reas_cds%ROWTYPE;
98: l_lot_rec GMI_LOTS_PUB.lot_rec_typ;
99: l_item_id ic_item_mst.item_id%TYPE;

Line 96: l_ic_loct_inv_rec_to ic_loct_inv%ROWTYPE;

92: l_ic_lots_mst_rec ic_lots_mst%ROWTYPE;
93: l_ic_lots_cpg_rec ic_lots_cpg%ROWTYPE;
94: l_ic_whse_mst_rec ic_whse_mst%ROWTYPE;
95: l_ic_loct_inv_rec_from ic_loct_inv%ROWTYPE;
96: l_ic_loct_inv_rec_to ic_loct_inv%ROWTYPE;
97: l_sy_reas_cds_rec sy_reas_cds%ROWTYPE;
98: l_lot_rec GMI_LOTS_PUB.lot_rec_typ;
99: l_item_id ic_item_mst.item_id%TYPE;
100: l_lot_id ic_lots_mst.lot_id%TYPE;

Line 684: , x_ic_loct_inv =>l_ic_loct_inv_rec_from

680: GMI_GLOBAL_GRP.Get_loct_inv ( p_item_id =>l_item_id
681: , p_whse_code =>l_trans_rec.from_whse_code
682: , p_lot_id =>l_lot_id
683: , p_location =>l_trans_rec.from_location
684: , x_ic_loct_inv =>l_ic_loct_inv_rec_from
685: );
686: -- If inventory create then should be no stock at location.
687: -- If inventory adjust then may or may not be stock at location
688: IF (l_trans_type <> 5)

Line 691: (l_ic_loct_inv_rec_from.item_id = 0)

687: -- If inventory adjust then may or may not be stock at location
688: IF (l_trans_type <> 5)
689: THEN
690: IF (l_trans_type = 1 OR l_trans_type = 2) AND
691: (l_ic_loct_inv_rec_from.item_id = 0)
692: THEN
693: l_ic_loct_inv_rec_from.loct_onhand :=0;
694: l_ic_loct_inv_rec_from.loct_onhand2 :=0;
695: l_trans_rec.lot_status :=l_ic_item_mst_rec.lot_status;

Line 693: l_ic_loct_inv_rec_from.loct_onhand :=0;

689: THEN
690: IF (l_trans_type = 1 OR l_trans_type = 2) AND
691: (l_ic_loct_inv_rec_from.item_id = 0)
692: THEN
693: l_ic_loct_inv_rec_from.loct_onhand :=0;
694: l_ic_loct_inv_rec_from.loct_onhand2 :=0;
695: l_trans_rec.lot_status :=l_ic_item_mst_rec.lot_status;
696: ELSIF (l_trans_type = 1)
697: THEN

Line 694: l_ic_loct_inv_rec_from.loct_onhand2 :=0;

690: IF (l_trans_type = 1 OR l_trans_type = 2) AND
691: (l_ic_loct_inv_rec_from.item_id = 0)
692: THEN
693: l_ic_loct_inv_rec_from.loct_onhand :=0;
694: l_ic_loct_inv_rec_from.loct_onhand2 :=0;
695: l_trans_rec.lot_status :=l_ic_item_mst_rec.lot_status;
696: ELSIF (l_trans_type = 1)
697: THEN
698: FND_MESSAGE.SET_NAME('GMI','IC_API_LOCT_ONHAND_EXISTS');

Line 706: ELSIF (l_ic_loct_inv_rec_from.item_id = 0) OR

702: FND_MESSAGE.SET_TOKEN('WHSE_CODE',l_trans_rec.from_whse_code);
703: FND_MESSAGE.SET_TOKEN('LOCATION',l_trans_rec.from_location);
704: FND_MSG_PUB.Add;
705: RAISE FND_API.G_EXC_ERROR;
706: ELSIF (l_ic_loct_inv_rec_from.item_id = 0) OR
707: (l_ic_loct_inv_rec_from.loct_onhand = 0 AND l_trans_type =4)
708: THEN
709: FND_MESSAGE.SET_NAME('GMI','IC_API_NO_LOCT_ONHAND');
710: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_trans_rec.item_no);

Line 707: (l_ic_loct_inv_rec_from.loct_onhand = 0 AND l_trans_type =4)

703: FND_MESSAGE.SET_TOKEN('LOCATION',l_trans_rec.from_location);
704: FND_MSG_PUB.Add;
705: RAISE FND_API.G_EXC_ERROR;
706: ELSIF (l_ic_loct_inv_rec_from.item_id = 0) OR
707: (l_ic_loct_inv_rec_from.loct_onhand = 0 AND l_trans_type =4)
708: THEN
709: FND_MESSAGE.SET_NAME('GMI','IC_API_NO_LOCT_ONHAND');
710: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_trans_rec.item_no);
711: FND_MESSAGE.SET_TOKEN('LOT_NO',l_trans_rec.lot_no);

Line 719: l_trans_rec.lot_status :=l_ic_loct_inv_rec_from.lot_status;

715: FND_MSG_PUB.Add;
716: RAISE FND_API.G_EXC_ERROR;
717: ELSIF (l_trans_type = 2)
718: THEN
719: l_trans_rec.lot_status :=l_ic_loct_inv_rec_from.lot_status;
720: -- If adjust inventory then this will also be new lot status
721: ELSIF (l_trans_type = 4) AND
722: (l_trans_rec.lot_status = l_ic_loct_inv_rec_from.lot_status)
723: THEN

Line 722: (l_trans_rec.lot_status = l_ic_loct_inv_rec_from.lot_status)

718: THEN
719: l_trans_rec.lot_status :=l_ic_loct_inv_rec_from.lot_status;
720: -- If adjust inventory then this will also be new lot status
721: ELSIF (l_trans_type = 4) AND
722: (l_trans_rec.lot_status = l_ic_loct_inv_rec_from.lot_status)
723: THEN
724: FND_MESSAGE.SET_NAME('GMI','IC_API_SAME_LOT_STATUS');
725: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_trans_rec.item_no);
726: FND_MESSAGE.SET_TOKEN('LOT_NO',l_trans_rec.lot_no);

Line 732: x_old_lot_status :=l_ic_loct_inv_rec_from.lot_status;

728: FND_MSG_PUB.Add;
729: RAISE FND_API.G_EXC_ERROR;
730: ELSE
731: -- Store original lot status
732: x_old_lot_status :=l_ic_loct_inv_rec_from.lot_status;
733: END IF;
734: -- If changing QC grade then check lot has inventory
735: ELSIF (l_trans_type = 5)
736: THEN

Line 741: x_old_lot_status :=l_ic_loct_inv_rec_from.lot_status;

737: GMI_GLOBAL_GRP.Get_lot_inv ( p_item_id =>l_item_id
738: , p_lot_id =>l_lot_id
739: , x_lot_onhand =>l_lot_onhand
740: );
741: x_old_lot_status :=l_ic_loct_inv_rec_from.lot_status;
742: IF (l_lot_onhand = 0 OR l_lot_onhand IS NULL)
743: THEN
744: FND_MESSAGE.SET_NAME('GMI','IC_API_NO_LOT_ONHAND');
745: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_trans_rec.item_no);

Line 942: (l_ic_loct_inv_rec_from.loct_onhand +

938: -- Check location inventory for becoming negative
939: IF (IC$ALLOWNEGINV = '0')
940: THEN
941: IF ((l_trans_type = 1 OR l_trans_type = 2) AND
942: (l_ic_loct_inv_rec_from.loct_onhand +
943: l_trans_rec.trans_qty) < 0) OR
944: (l_trans_type = 3 AND (l_ic_loct_inv_rec_from.loct_onhand -
945: l_trans_rec.trans_qty) < 0)
946: THEN

Line 944: (l_trans_type = 3 AND (l_ic_loct_inv_rec_from.loct_onhand -

940: THEN
941: IF ((l_trans_type = 1 OR l_trans_type = 2) AND
942: (l_ic_loct_inv_rec_from.loct_onhand +
943: l_trans_rec.trans_qty) < 0) OR
944: (l_trans_type = 3 AND (l_ic_loct_inv_rec_from.loct_onhand -
945: l_trans_rec.trans_qty) < 0)
946: THEN
947: FND_MESSAGE.SET_NAME('GMI','IC_API_NEG_QTY_NOT_ALLOWED');
948: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_trans_rec.item_no);

Line 985: (l_ic_loct_inv_rec_from.loct_onhand <> l_trans_rec.trans_qty)

981:
982: -- Check move quantity if item is lot-indivisble
983: IF (l_ic_item_mst_rec.lot_indivisible = 1) AND
984: (l_trans_type = 3) AND
985: (l_ic_loct_inv_rec_from.loct_onhand <> l_trans_rec.trans_qty)
986: THEN
987: FND_MESSAGE.SET_NAME('GMI','IC_API_LOT_INDIVISIBLE');
988: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_trans_rec.item_no);
989: FND_MESSAGE.SET_TOKEN('LOT_NO',l_trans_rec.lot_no);

Line 1005: , x_ic_loct_inv =>l_ic_loct_inv_rec_to

1001: ( p_item_id =>l_item_id
1002: , p_whse_code =>l_trans_rec.to_whse_code
1003: , p_lot_id =>l_lot_id
1004: , p_location =>l_trans_rec.to_location
1005: , x_ic_loct_inv =>l_ic_loct_inv_rec_to
1006: );
1007: -- If location inventory not found then insert row into IC_LOCT_INV
1008: IF (l_ic_loct_inv_rec_to.item_id = 0)
1009: THEN

Line 1007: -- If location inventory not found then insert row into IC_LOCT_INV

1003: , p_lot_id =>l_lot_id
1004: , p_location =>l_trans_rec.to_location
1005: , x_ic_loct_inv =>l_ic_loct_inv_rec_to
1006: );
1007: -- If location inventory not found then insert row into IC_LOCT_INV
1008: IF (l_ic_loct_inv_rec_to.item_id = 0)
1009: THEN
1010: l_trans_rec.lot_status := l_ic_loct_inv_rec_from.lot_status;
1011: -- If location inventory found then check lot_status if status

Line 1008: IF (l_ic_loct_inv_rec_to.item_id = 0)

1004: , p_location =>l_trans_rec.to_location
1005: , x_ic_loct_inv =>l_ic_loct_inv_rec_to
1006: );
1007: -- If location inventory not found then insert row into IC_LOCT_INV
1008: IF (l_ic_loct_inv_rec_to.item_id = 0)
1009: THEN
1010: l_trans_rec.lot_status := l_ic_loct_inv_rec_from.lot_status;
1011: -- If location inventory found then check lot_status if status
1012: -- controlled item

Line 1010: l_trans_rec.lot_status := l_ic_loct_inv_rec_from.lot_status;

1006: );
1007: -- If location inventory not found then insert row into IC_LOCT_INV
1008: IF (l_ic_loct_inv_rec_to.item_id = 0)
1009: THEN
1010: l_trans_rec.lot_status := l_ic_loct_inv_rec_from.lot_status;
1011: -- If location inventory found then check lot_status if status
1012: -- controlled item
1013: ELSE
1014: IF (l_ic_item_mst_rec.status_ctl = 1)

Line 1016: IF (l_ic_loct_inv_rec_from.lot_status <>

1012: -- controlled item
1013: ELSE
1014: IF (l_ic_item_mst_rec.status_ctl = 1)
1015: THEN
1016: IF (l_ic_loct_inv_rec_from.lot_status <>
1017: l_ic_loct_inv_rec_to.lot_status)
1018: THEN
1019: IF (l_ic_loct_inv_rec_to.loct_onhand = 0 AND
1020: IC$MOVEDIFFSTAT = '2')

Line 1017: l_ic_loct_inv_rec_to.lot_status)

1013: ELSE
1014: IF (l_ic_item_mst_rec.status_ctl = 1)
1015: THEN
1016: IF (l_ic_loct_inv_rec_from.lot_status <>
1017: l_ic_loct_inv_rec_to.lot_status)
1018: THEN
1019: IF (l_ic_loct_inv_rec_to.loct_onhand = 0 AND
1020: IC$MOVEDIFFSTAT = '2')
1021: THEN

Line 1019: IF (l_ic_loct_inv_rec_to.loct_onhand = 0 AND

1015: THEN
1016: IF (l_ic_loct_inv_rec_from.lot_status <>
1017: l_ic_loct_inv_rec_to.lot_status)
1018: THEN
1019: IF (l_ic_loct_inv_rec_to.loct_onhand = 0 AND
1020: IC$MOVEDIFFSTAT = '2')
1021: THEN
1022: l_trans_rec.lot_status := l_ic_loct_inv_rec_from.lot_status;
1023: ELSIF (IC$MOVEDIFFSTAT = '1')

Line 1022: l_trans_rec.lot_status := l_ic_loct_inv_rec_from.lot_status;

1018: THEN
1019: IF (l_ic_loct_inv_rec_to.loct_onhand = 0 AND
1020: IC$MOVEDIFFSTAT = '2')
1021: THEN
1022: l_trans_rec.lot_status := l_ic_loct_inv_rec_from.lot_status;
1023: ELSIF (IC$MOVEDIFFSTAT = '1')
1024: THEN
1025: l_trans_rec.lot_status := l_ic_loct_inv_rec_to.lot_status;
1026: ELSE

Line 1025: l_trans_rec.lot_status := l_ic_loct_inv_rec_to.lot_status;

1021: THEN
1022: l_trans_rec.lot_status := l_ic_loct_inv_rec_from.lot_status;
1023: ELSIF (IC$MOVEDIFFSTAT = '1')
1024: THEN
1025: l_trans_rec.lot_status := l_ic_loct_inv_rec_to.lot_status;
1026: ELSE
1027: FND_MESSAGE.SET_NAME('GMI','IC_API_MOVE_STATUS_ERR');
1028: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_trans_rec.item_no);
1029: FND_MESSAGE.SET_TOKEN('LOT_NO',l_trans_rec.lot_no);

Line 1035: l_trans_rec.lot_status := l_ic_loct_inv_rec_from.lot_status;

1031: FND_MSG_PUB.Add;
1032: RAISE FND_API.G_EXC_ERROR;
1033: END IF;
1034: ELSE
1035: l_trans_rec.lot_status := l_ic_loct_inv_rec_from.lot_status;
1036: END IF;
1037: END IF;
1038: END IF;
1039: END IF;