DBA Data[Home] [Help]

APPS.GMIVDX dependencies on IC_LOCT_INV

Line 231: x_ic_loct_inv_row ic_loct_inv%ROWTYPE;

227: x_ic_item_mst_row ic_item_mst%ROWTYPE;
228: x_ic_whse_mst_row ic_whse_mst%ROWTYPE;
229: x_sy_reas_cds_row sy_reas_cds%ROWTYPE;
230: x_ic_lots_mst_row ic_lots_mst%ROWTYPE;
231: x_ic_loct_inv_row ic_loct_inv%ROWTYPE;
232: l_check_qty NUMBER;
233: l_org INV_Validate.org;
234: l_item INV_Validate.item;
235: l_sub INV_Validate.sub;

Line 916: FROM ic_loct_inv

912: ELSIF ( (x_ic_whse_mst_row.loct_ctl = 2)
913: OR (x_ic_item_mst_row.loct_ctl = 2)
914: ) THEN
915: SELECT count(1) INTO l_count
916: FROM ic_loct_inv
917: WHERE whse_code = p_line_rec_tbl(i).opm_whse_code
918: AND location = p_line_rec_tbl(i).opm_location
919: AND location <> GMIGUTL.IC$DEFAULT_LOCT;
920:

Line 1078: x_ic_loct_inv_row.whse_code := p_line_rec_tbl(i).opm_whse_code;

1074: p_lot_rec_tbl(j).opm_lot_expiration_date := x_ic_lots_mst_row.expire_date;
1075: p_lot_rec_tbl(j).opm_grade := x_ic_lots_mst_row.qc_grade;
1076:
1077: --now lets check whether there is inventory to transfer from OPM to ODM
1078: x_ic_loct_inv_row.whse_code := p_line_rec_tbl(i).opm_whse_code;
1079: x_ic_loct_inv_row.location := p_line_rec_tbl(i).opm_location;
1080: x_ic_loct_inv_row.item_id := p_line_rec_tbl(i).opm_item_id;
1081: x_ic_loct_inv_row.lot_id := p_lot_rec_tbl(j).opm_lot_id;
1082:

Line 1079: x_ic_loct_inv_row.location := p_line_rec_tbl(i).opm_location;

1075: p_lot_rec_tbl(j).opm_grade := x_ic_lots_mst_row.qc_grade;
1076:
1077: --now lets check whether there is inventory to transfer from OPM to ODM
1078: x_ic_loct_inv_row.whse_code := p_line_rec_tbl(i).opm_whse_code;
1079: x_ic_loct_inv_row.location := p_line_rec_tbl(i).opm_location;
1080: x_ic_loct_inv_row.item_id := p_line_rec_tbl(i).opm_item_id;
1081: x_ic_loct_inv_row.lot_id := p_lot_rec_tbl(j).opm_lot_id;
1082:
1083:

Line 1080: x_ic_loct_inv_row.item_id := p_line_rec_tbl(i).opm_item_id;

1076:
1077: --now lets check whether there is inventory to transfer from OPM to ODM
1078: x_ic_loct_inv_row.whse_code := p_line_rec_tbl(i).opm_whse_code;
1079: x_ic_loct_inv_row.location := p_line_rec_tbl(i).opm_location;
1080: x_ic_loct_inv_row.item_id := p_line_rec_tbl(i).opm_item_id;
1081: x_ic_loct_inv_row.lot_id := p_lot_rec_tbl(j).opm_lot_id;
1082:
1083:
1084:

Line 1081: x_ic_loct_inv_row.lot_id := p_lot_rec_tbl(j).opm_lot_id;

1077: --now lets check whether there is inventory to transfer from OPM to ODM
1078: x_ic_loct_inv_row.whse_code := p_line_rec_tbl(i).opm_whse_code;
1079: x_ic_loct_inv_row.location := p_line_rec_tbl(i).opm_location;
1080: x_ic_loct_inv_row.item_id := p_line_rec_tbl(i).opm_item_id;
1081: x_ic_loct_inv_row.lot_id := p_lot_rec_tbl(j).opm_lot_id;
1082:
1083:
1084:
1085: --{

Line 1086: IF GMIVDBL.ic_loct_inv_select(x_ic_loct_inv_row, x_ic_loct_inv_row) THEN

1082:
1083:
1084:
1085: --{
1086: IF GMIVDBL.ic_loct_inv_select(x_ic_loct_inv_row, x_ic_loct_inv_row) THEN
1087: --store quantities in opm item UOM and ODM item UOM
1088:
1089: p_lot_rec_tbl(j).opm_lot_status := x_ic_loct_inv_row.lot_status;
1090: l_return_val := GMICUOM.uom_conversion

Line 1089: p_lot_rec_tbl(j).opm_lot_status := x_ic_loct_inv_row.lot_status;

1085: --{
1086: IF GMIVDBL.ic_loct_inv_select(x_ic_loct_inv_row, x_ic_loct_inv_row) THEN
1087: --store quantities in opm item UOM and ODM item UOM
1088:
1089: p_lot_rec_tbl(j).opm_lot_status := x_ic_loct_inv_row.lot_status;
1090: l_return_val := GMICUOM.uom_conversion
1091: (
1092: x_ic_item_mst_row.item_id,
1093: nvl(x_ic_lots_mst_row.lot_id,0),

Line 1135: AND (x_ic_loct_inv_row.loct_onhand <> p_lot_rec_tbl(j).opm_primary_quantity)

1131: RAISE FND_API.G_EXC_ERROR;
1132: END IF;
1133:
1134: IF ( (x_ic_item_mst_row.lot_indivisible = 1)
1135: AND (x_ic_loct_inv_row.loct_onhand <> p_lot_rec_tbl(j).opm_primary_quantity)
1136: ) THEN
1137: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_INDIVISIBLE_LOT');
1138: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1139: FND_MESSAGE.SET_TOKEN('LOT_ID',p_lot_rec_tbl(j).opm_lot_id);

Line 1154: IF (x_ic_loct_inv_row.loct_onhand = p_lot_rec_tbl(j).opm_primary_quantity) THEN

1150:
1151: --lets check the deviation between OPM primary and secondary if secondary is passed
1152: --if it is not passed we calculate the secondary qty.
1153: IF (x_ic_item_mst_row.dualum_ind > 0) THEN
1154: IF (x_ic_loct_inv_row.loct_onhand = p_lot_rec_tbl(j).opm_primary_quantity) THEN
1155: p_lot_rec_tbl(j).quantity2 := x_ic_loct_inv_row.loct_onhand2;
1156: ELSE
1157: IF (p_lot_rec_tbl(j).quantity2 IS NULL) THEN
1158:

Line 1155: p_lot_rec_tbl(j).quantity2 := x_ic_loct_inv_row.loct_onhand2;

1151: --lets check the deviation between OPM primary and secondary if secondary is passed
1152: --if it is not passed we calculate the secondary qty.
1153: IF (x_ic_item_mst_row.dualum_ind > 0) THEN
1154: IF (x_ic_loct_inv_row.loct_onhand = p_lot_rec_tbl(j).opm_primary_quantity) THEN
1155: p_lot_rec_tbl(j).quantity2 := x_ic_loct_inv_row.loct_onhand2;
1156: ELSE
1157: IF (p_lot_rec_tbl(j).quantity2 IS NULL) THEN
1158:
1159: IF (x_ic_item_mst_row.dualum_ind = 3) THEN

Line 1313: x_ic_loct_inv_row.whse_code := p_line_rec_tbl(i).opm_whse_code;

1309: p_lot_rec_tbl(j).opm_grade := x_ic_lots_mst_row.qc_grade;
1310: p_lot_rec_tbl(j).opm_lot_expiration_date := x_ic_lots_mst_row.expire_date;
1311:
1312: --We need this get the lot_status of the OPM lot.
1313: x_ic_loct_inv_row.whse_code := p_line_rec_tbl(i).opm_whse_code;
1314: x_ic_loct_inv_row.location := p_line_rec_tbl(i).opm_location;
1315: x_ic_loct_inv_row.item_id := p_line_rec_tbl(i).opm_item_id;
1316: x_ic_loct_inv_row.lot_id := p_lot_rec_tbl(j).opm_lot_id;
1317:

Line 1314: x_ic_loct_inv_row.location := p_line_rec_tbl(i).opm_location;

1310: p_lot_rec_tbl(j).opm_lot_expiration_date := x_ic_lots_mst_row.expire_date;
1311:
1312: --We need this get the lot_status of the OPM lot.
1313: x_ic_loct_inv_row.whse_code := p_line_rec_tbl(i).opm_whse_code;
1314: x_ic_loct_inv_row.location := p_line_rec_tbl(i).opm_location;
1315: x_ic_loct_inv_row.item_id := p_line_rec_tbl(i).opm_item_id;
1316: x_ic_loct_inv_row.lot_id := p_lot_rec_tbl(j).opm_lot_id;
1317:
1318: IF GMIVDBL.ic_loct_inv_select(x_ic_loct_inv_row, x_ic_loct_inv_row) THEN

Line 1315: x_ic_loct_inv_row.item_id := p_line_rec_tbl(i).opm_item_id;

1311:
1312: --We need this get the lot_status of the OPM lot.
1313: x_ic_loct_inv_row.whse_code := p_line_rec_tbl(i).opm_whse_code;
1314: x_ic_loct_inv_row.location := p_line_rec_tbl(i).opm_location;
1315: x_ic_loct_inv_row.item_id := p_line_rec_tbl(i).opm_item_id;
1316: x_ic_loct_inv_row.lot_id := p_lot_rec_tbl(j).opm_lot_id;
1317:
1318: IF GMIVDBL.ic_loct_inv_select(x_ic_loct_inv_row, x_ic_loct_inv_row) THEN
1319: p_lot_rec_tbl(j).opm_lot_status := x_ic_loct_inv_row.lot_status;

Line 1316: x_ic_loct_inv_row.lot_id := p_lot_rec_tbl(j).opm_lot_id;

1312: --We need this get the lot_status of the OPM lot.
1313: x_ic_loct_inv_row.whse_code := p_line_rec_tbl(i).opm_whse_code;
1314: x_ic_loct_inv_row.location := p_line_rec_tbl(i).opm_location;
1315: x_ic_loct_inv_row.item_id := p_line_rec_tbl(i).opm_item_id;
1316: x_ic_loct_inv_row.lot_id := p_lot_rec_tbl(j).opm_lot_id;
1317:
1318: IF GMIVDBL.ic_loct_inv_select(x_ic_loct_inv_row, x_ic_loct_inv_row) THEN
1319: p_lot_rec_tbl(j).opm_lot_status := x_ic_loct_inv_row.lot_status;
1320: ELSE

Line 1318: IF GMIVDBL.ic_loct_inv_select(x_ic_loct_inv_row, x_ic_loct_inv_row) THEN

1314: x_ic_loct_inv_row.location := p_line_rec_tbl(i).opm_location;
1315: x_ic_loct_inv_row.item_id := p_line_rec_tbl(i).opm_item_id;
1316: x_ic_loct_inv_row.lot_id := p_lot_rec_tbl(j).opm_lot_id;
1317:
1318: IF GMIVDBL.ic_loct_inv_select(x_ic_loct_inv_row, x_ic_loct_inv_row) THEN
1319: p_lot_rec_tbl(j).opm_lot_status := x_ic_loct_inv_row.lot_status;
1320: ELSE
1321: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1322: log_msg('Failed call to GMIVDBL.ic_loct_inv_select when transfer type is 1. Not an error.');

Line 1319: p_lot_rec_tbl(j).opm_lot_status := x_ic_loct_inv_row.lot_status;

1315: x_ic_loct_inv_row.item_id := p_line_rec_tbl(i).opm_item_id;
1316: x_ic_loct_inv_row.lot_id := p_lot_rec_tbl(j).opm_lot_id;
1317:
1318: IF GMIVDBL.ic_loct_inv_select(x_ic_loct_inv_row, x_ic_loct_inv_row) THEN
1319: p_lot_rec_tbl(j).opm_lot_status := x_ic_loct_inv_row.lot_status;
1320: ELSE
1321: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1322: log_msg('Failed call to GMIVDBL.ic_loct_inv_select when transfer type is 1. Not an error.');
1323: END IF;

Line 1322: log_msg('Failed call to GMIVDBL.ic_loct_inv_select when transfer type is 1. Not an error.');

1318: IF GMIVDBL.ic_loct_inv_select(x_ic_loct_inv_row, x_ic_loct_inv_row) THEN
1319: p_lot_rec_tbl(j).opm_lot_status := x_ic_loct_inv_row.lot_status;
1320: ELSE
1321: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1322: log_msg('Failed call to GMIVDBL.ic_loct_inv_select when transfer type is 1. Not an error.');
1323: END IF;
1324: END IF;
1325:
1326: END IF;