eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.GMI_OM_ALLOC_API_PUB dependencies on IC_LOTS_MST

Line 112: l_ic_lots_mst_rec ic_lots_mst%ROWTYPE;

108: l_loc_inactive NUMBER;
109: l_ship_from_org_id NUMBER;
110: l_ic_item_mst_rec ic_item_mst_b%ROWTYPE;
111: l_ic_whse_mst_rec ic_whse_mst%ROWTYPE;
112: l_ic_lots_mst_rec ic_lots_mst%ROWTYPE;
113: l_message VARCHAR2(1000);
114: i NUMBER;
115: l_epsilon NUMBER;
116: l_error_flag VARCHAR2(1) DEFAULT FND_API.G_FALSE;

Line 207: WHERE a.lot_id = l_ic_lots_mst_rec.lot_id

203: CURSOR get_commited_qty_cur IS
204: SELECT NVL(ABS(SUM(trans_qty)),0)
205: , NVL(ABS(SUM(trans_qty2)),0)
206: FROM IC_TRAN_PND a
207: WHERE a.lot_id = l_ic_lots_mst_rec.lot_id
208: AND a.item_id = l_ic_item_mst_rec.item_id
209: AND a.location = NVL(l_tran_rec.location ,l_default_location)
210: AND a.whse_code = l_ic_whse_mst_rec.whse_code
211: AND a.trans_id <> NVL(l_tran_rec.trans_id,0)

Line 889: /* Get lot details from ic_lots_mst */

885:
886: /* Lot/Sublot - Lot_id
887: ======================== */
888:
889: /* Get lot details from ic_lots_mst */
890:
891: IF (l_ic_item_mst_rec.lot_ctl <> 0 )
892: THEN
893:

Line 899: ,l_ic_lots_mst_rec

895: l_ic_item_mst_rec.item_id
896: ,l_tran_rec.lot_no
897: ,l_tran_rec.sublot_no
898: ,l_tran_rec.lot_id
899: ,l_ic_lots_mst_rec
900: ,x_return_status
901: ,x_msg_count
902: ,x_msg_data);
903:

Line 919: l_tran_rec.lot_no := l_ic_lots_mst_rec.lot_no;

915: FND_MSG_PUB.Add;
916: RAISE FND_API.G_EXC_ERROR;
917: END IF;
918:
919: l_tran_rec.lot_no := l_ic_lots_mst_rec.lot_no;
920:
921: /* Make sure the lot is active */
922: IF( l_ic_lots_mst_rec.inactive_ind = 1)
923: THEN

Line 922: IF( l_ic_lots_mst_rec.inactive_ind = 1)

918:
919: l_tran_rec.lot_no := l_ic_lots_mst_rec.lot_no;
920:
921: /* Make sure the lot is active */
922: IF( l_ic_lots_mst_rec.inactive_ind = 1)
923: THEN
924: PrintMsg(' ERROR : Lot is not active , Lot_no : '||l_tran_rec.lot_no||
925: ' lot_id : '||l_tran_rec.lot_id);
926: l_error_flag := FND_API.G_TRUE;

Line 936: IF( l_ic_lots_mst_rec.expire_date < SYSDATE)

932: RAISE FND_API.G_EXC_ERROR;
933: END IF;
934:
935: /* Is it expired? */
936: IF( l_ic_lots_mst_rec.expire_date < SYSDATE)
937: THEN
938: PrintMsg(' Lot is Expired , Lot_no '||l_tran_rec.lot_no||
939: ', lot_id : '||l_tran_rec.lot_id);
940: l_error_flag := FND_API.G_TRUE;

Line 950: IF( l_ic_lots_mst_rec.delete_mark = 1)

946: RAISE FND_API.G_EXC_ERROR;
947: END IF;
948:
949: /* Is it Deleted? */
950: IF( l_ic_lots_mst_rec.delete_mark = 1)
951: THEN
952: PrintMsg(' Lot is Deleted , Lot_no '||l_tran_rec.lot_no||
953: 'lot_id : '||l_tran_rec.lot_id);
954: l_error_flag := FND_API.G_TRUE;

Line 965: IF( NVL(l_ic_item_mst_rec.grade_ctl, 0) > 0 AND l_ic_lots_mst_rec.qc_grade IS NULL)

961: END IF;
962:
963: -- BEGIN BUG 2966077
964: -- Is GRADE null for grade controlled item?
965: IF( NVL(l_ic_item_mst_rec.grade_ctl, 0) > 0 AND l_ic_lots_mst_rec.qc_grade IS NULL)
966: THEN
967: PrintMsg(' GRADE for LOT '||l_tran_rec.lot_no ||' IS NOT VALID');
968: l_error_flag := FND_API.G_TRUE;
969: FND_MESSAGE.Set_Name('GMI','IC_INVALID_QC_GRADE');

Line 980: l_ic_lots_mst_rec.lot_id := 0;

976: --END BUG 2966077
977:
978: ELSE /* item is not lot controlled */
979:
980: l_ic_lots_mst_rec.lot_id := 0;
981:
982: END IF; /* if item is lot_ctl */
983:
984: /* Get lot_status from ic_loct_inv */

Line 990: PrintMsg (' ** lot_id : '|| l_ic_lots_mst_rec.lot_id);

986: -- IF( l_ic_item_mst_rec.status_ctl > 0 ) /* check */
987: -- THEN
988:
989: PrintMsg (' ** Item_id : '|| l_ic_item_mst_rec.item_id);
990: PrintMsg (' ** lot_id : '|| l_ic_lots_mst_rec.lot_id);
991: PrintMsg (' ** Whse_code : '|| l_ic_whse_mst_rec.whse_code);
992: PrintMsg (' ** location : '|| l_tran_rec.location);
993:
994: OPEN get_loct_inv_dtls_cur(l_ic_item_mst_rec.item_id

Line 995: ,l_ic_lots_mst_rec.lot_id

991: PrintMsg (' ** Whse_code : '|| l_ic_whse_mst_rec.whse_code);
992: PrintMsg (' ** location : '|| l_tran_rec.location);
993:
994: OPEN get_loct_inv_dtls_cur(l_ic_item_mst_rec.item_id
995: ,l_ic_lots_mst_rec.lot_id
996: ,l_ic_whse_mst_rec.whse_code
997: ,l_tran_rec.location);
998:
999: FETCH get_loct_inv_dtls_cur INTO l_loct_inv_rec;

Line 1009: ,l_ic_lots_mst_rec.lot_id

1005:
1006: IF( l_ic_whse_mst_rec.loct_ctl * l_ic_whse_mst_rec.loct_ctl > 1)
1007: THEN
1008: OPEN get_loct_inv_dtls_cur2(l_ic_item_mst_rec.item_id
1009: ,l_ic_lots_mst_rec.lot_id
1010: ,l_ic_whse_mst_rec.whse_code);
1011:
1012: FETCH get_loct_inv_dtls_cur2 INTO l_loct_inv_rec;
1013:

Line 1075: PrintMsg('Rejected ind is 1 - unusable lot'|| l_ic_lots_mst_rec.lot_no);

1071: END IF;
1072:
1073: IF( l_lot_status_rec.rejected_ind = 1 )
1074: THEN
1075: PrintMsg('Rejected ind is 1 - unusable lot'|| l_ic_lots_mst_rec.lot_no);
1076: l_error_flag := FND_API.G_TRUE;
1077: FND_MESSAGE.SET_NAME('GMI','GMI_API_REJECTED_LOT');
1078: FND_MESSAGE.Set_Token('LOT_NO', l_tran_rec.lot_no);
1079: FND_MESSAGE.Set_Token('LINE_ID', l_tran_rec.line_id);

Line 1087: PrintMsg('Order_proc_ind is 0 - unusable lot'|| l_ic_lots_mst_rec.lot_no);

1083: END IF;
1084:
1085: IF(l_lot_status_rec.order_proc_ind = 0)
1086: THEN
1087: PrintMsg('Order_proc_ind is 0 - unusable lot'|| l_ic_lots_mst_rec.lot_no);
1088: l_error_flag := FND_API.G_TRUE;
1089: FND_MESSAGE.SET_NAME('GMI', 'GMI_API_LOT_NOT_ORDERABLE');
1090: FND_MESSAGE.Set_Token('LOT_NO', l_tran_rec.lot_no);
1091: FND_MESSAGE.Set_Token('LINE_ID', l_tran_rec.line_id);

Line 1098: PrintMsg('Lot is not Nettable Lot_no :'||l_ic_lots_mst_rec.lot_no);

1094: END IF;
1095:
1096: IF(l_lot_status_rec.nettable_ind <> 1)
1097: THEN
1098: PrintMsg('Lot is not Nettable Lot_no :'||l_ic_lots_mst_rec.lot_no);
1099: l_error_flag := FND_API.G_TRUE;
1100: FND_MESSAGE.Set_Name('GMI','GMI_API_LOT_NOT_NETTABLE');
1101: FND_MESSAGE.Set_Token('LOT_NO', l_tran_rec.lot_no);
1102: FND_MESSAGE.Set_Token('LINE_ID', l_tran_rec.line_id);

Line 1109: l_pick_lots_rec.lot_id := l_ic_lots_mst_rec.lot_id;

1105: END IF;
1106:
1107: END IF; /* Status_ctl >0 */
1108:
1109: l_pick_lots_rec.lot_id := l_ic_lots_mst_rec.lot_id;
1110: l_pick_lots_rec.lot_status := l_loct_inv_rec.lot_status;
1111:
1112: PrintMsg('l_pick_lots_rec.lot_id : '||l_pick_lots_rec.lot_id);
1113:

Line 1116: l_pick_lots_rec.qc_grade := l_ic_lots_mst_rec.qc_grade;

1112: PrintMsg('l_pick_lots_rec.lot_id : '||l_pick_lots_rec.lot_id);
1113:
1114: -- BEGIN BUG 2966077
1115: IF ( NVL(l_ic_item_mst_rec.grade_ctl, 0) > 0) THEN
1116: l_pick_lots_rec.qc_grade := l_ic_lots_mst_rec.qc_grade;
1117: PrintMsg('l_pick_lots_rec.qc_grade : '||l_pick_lots_rec.qc_grade);
1118: END IF;
1119: --END BUG 2966077
1120:

Line 1182: plot_id =>l_ic_lots_mst_rec.lot_id,

1178: PrintMsg('to uom (OPM) '||l_opm_um);
1179:
1180: GMICUOM.icuomcv(
1181: pitem_id =>l_ic_item_mst_rec.item_id,
1182: plot_id =>l_ic_lots_mst_rec.lot_id,
1183: pcur_qty =>l_tran_rec.trans_qty,
1184: pcur_uom =>l_opm_um,
1185: pnew_uom =>l_ic_item_mst_rec.item_um,
1186: onew_qty =>l_tmp_qty);

Line 1242: plot_id => l_ic_lots_mst_rec.lot_id,

1238: AND l_ic_item_mst_rec.dualum_ind > 0 )
1239: THEN
1240:
1241: GMICUOM.icuomcv( pitem_id => l_ic_item_mst_rec.item_id,
1242: plot_id => l_ic_lots_mst_rec.lot_id,
1243: pcur_qty => l_tmp_qty,
1244: pcur_uom => l_ic_item_mst_rec.item_um,
1245: pnew_uom => l_ic_item_mst_rec.item_um2,
1246: onew_qty => l_tmp_qty2);

Line 1455: FND_MESSAGE.Set_Token('LOT_NO', l_ic_lots_mst_rec.lot_no);

1451: PrintMsg('ERROR - lot is indivisible. trans_qty is less than
1452: available qty and over picking is not enabled');
1453: l_error_flag := FND_API.G_TRUE;
1454: FND_MESSAGE.Set_Name('GMI','GMI_API_LOT_INDIV_NO_OVEPIC');
1455: FND_MESSAGE.Set_Token('LOT_NO', l_ic_lots_mst_rec.lot_no);
1456: FND_MESSAGE.Set_Token('ITEM_NO', l_ic_item_mst_rec.item_no);
1457: FND_MESSAGE.Set_Token('LINE_ID', l_tran_rec.line_id);
1458: FND_MSG_PUB.Add;
1459: RAISE FND_API.G_EXC_ERROR;

Line 1540: plot_id =>l_ic_lots_mst_rec.lot_id,

1536: END IF;
1537:
1538: GMICUOM.icuomcv(
1539: pitem_id =>l_ic_item_mst_rec.item_id,
1540: plot_id =>l_ic_lots_mst_rec.lot_id,
1541: pcur_qty =>l_ordered_quantity,
1542: pcur_uom =>l_opm_um,
1543: pnew_uom =>l_ic_item_mst_rec.item_um,
1544: onew_qty =>l_requested_quantity);

Line 1750: --| This procedure is used to retrieve all details from ic_lots_mst |

1746: --| USAGE |
1747: --| Used to retrieve lot master details |
1748: --| |
1749: --| DESCRIPTION |
1750: --| This procedure is used to retrieve all details from ic_lots_mst |
1751: --| |
1752: --| PARAMETERS |
1753: --| p_item_id IN NUMBER - Item ID of lot to be retrieved |
1754: --| p_lot_no IN VARCHAR2(32) - Lot number of lot to be retrieved |

Line 1757: --| x_ic_lots_mst OUT RECORD - Record containing ic_lots_mst |

1753: --| p_item_id IN NUMBER - Item ID of lot to be retrieved |
1754: --| p_lot_no IN VARCHAR2(32) - Lot number of lot to be retrieved |
1755: --| p_sublot_no IN VARCHAR2(32) - Sublot number to be retrieved |
1756: --| p_lot_id IN NUMBER - lot id to be retrieved |
1757: --| x_ic_lots_mst OUT RECORD - Record containing ic_lots_mst |
1758: --| x_return_status OUT VARCHAR2 |
1759: --| x_msg_count OUT NUMBER |
1760: --| x_msg_data OUT VARCHAR2 |
1761: --| |

Line 1766: ( p_item_id IN ic_lots_mst.item_id%TYPE

1762: --| HISTORY |
1763: --| 16-SEP-2002 NC Created |
1764: --+=========================================================================+*/
1765: PROCEDURE Get_Lot_Details
1766: ( p_item_id IN ic_lots_mst.item_id%TYPE
1767: , p_lot_no IN ic_lots_mst.lot_no%TYPE
1768: , p_sublot_no IN ic_lots_mst.sublot_no%TYPE
1769: , p_lot_id IN ic_lots_mst.lot_id%TYPE
1770: , x_ic_lots_mst OUT NOCOPY ic_lots_mst%ROWTYPE

Line 1767: , p_lot_no IN ic_lots_mst.lot_no%TYPE

1763: --| 16-SEP-2002 NC Created |
1764: --+=========================================================================+*/
1765: PROCEDURE Get_Lot_Details
1766: ( p_item_id IN ic_lots_mst.item_id%TYPE
1767: , p_lot_no IN ic_lots_mst.lot_no%TYPE
1768: , p_sublot_no IN ic_lots_mst.sublot_no%TYPE
1769: , p_lot_id IN ic_lots_mst.lot_id%TYPE
1770: , x_ic_lots_mst OUT NOCOPY ic_lots_mst%ROWTYPE
1771: , x_return_status OUT NOCOPY VARCHAR2

Line 1768: , p_sublot_no IN ic_lots_mst.sublot_no%TYPE

1764: --+=========================================================================+*/
1765: PROCEDURE Get_Lot_Details
1766: ( p_item_id IN ic_lots_mst.item_id%TYPE
1767: , p_lot_no IN ic_lots_mst.lot_no%TYPE
1768: , p_sublot_no IN ic_lots_mst.sublot_no%TYPE
1769: , p_lot_id IN ic_lots_mst.lot_id%TYPE
1770: , x_ic_lots_mst OUT NOCOPY ic_lots_mst%ROWTYPE
1771: , x_return_status OUT NOCOPY VARCHAR2
1772: , x_msg_count OUT NOCOPY NUMBER

Line 1769: , p_lot_id IN ic_lots_mst.lot_id%TYPE

1765: PROCEDURE Get_Lot_Details
1766: ( p_item_id IN ic_lots_mst.item_id%TYPE
1767: , p_lot_no IN ic_lots_mst.lot_no%TYPE
1768: , p_sublot_no IN ic_lots_mst.sublot_no%TYPE
1769: , p_lot_id IN ic_lots_mst.lot_id%TYPE
1770: , x_ic_lots_mst OUT NOCOPY ic_lots_mst%ROWTYPE
1771: , x_return_status OUT NOCOPY VARCHAR2
1772: , x_msg_count OUT NOCOPY NUMBER
1773: , x_msg_data OUT NOCOPY VARCHAR2

Line 1770: , x_ic_lots_mst OUT NOCOPY ic_lots_mst%ROWTYPE

1766: ( p_item_id IN ic_lots_mst.item_id%TYPE
1767: , p_lot_no IN ic_lots_mst.lot_no%TYPE
1768: , p_sublot_no IN ic_lots_mst.sublot_no%TYPE
1769: , p_lot_id IN ic_lots_mst.lot_id%TYPE
1770: , x_ic_lots_mst OUT NOCOPY ic_lots_mst%ROWTYPE
1771: , x_return_status OUT NOCOPY VARCHAR2
1772: , x_msg_count OUT NOCOPY NUMBER
1773: , x_msg_data OUT NOCOPY VARCHAR2
1774: )

Line 1779: CURSOR ic_lots_mst_c1 IS

1775: IS
1776:
1777: l_api_name CONSTANT VARCHAR2 (30) := 'Get_Lot_Details';
1778:
1779: CURSOR ic_lots_mst_c1 IS
1780: SELECT *
1781: FROM ic_lots_mst
1782: WHERE
1783: lot_no = p_lot_no

Line 1781: FROM ic_lots_mst

1777: l_api_name CONSTANT VARCHAR2 (30) := 'Get_Lot_Details';
1778:
1779: CURSOR ic_lots_mst_c1 IS
1780: SELECT *
1781: FROM ic_lots_mst
1782: WHERE
1783: lot_no = p_lot_no
1784: AND ( sublot_no = p_sublot_no OR
1785: sublot_no is NULL)

Line 1788: CURSOR ic_lots_mst_c2 IS

1784: AND ( sublot_no = p_sublot_no OR
1785: sublot_no is NULL)
1786: AND item_id = p_item_id;
1787:
1788: CURSOR ic_lots_mst_c2 IS
1789: SELECT *
1790: FROM ic_lots_mst
1791: WHERE
1792: lot_id = p_lot_id

Line 1790: FROM ic_lots_mst

1786: AND item_id = p_item_id;
1787:
1788: CURSOR ic_lots_mst_c2 IS
1789: SELECT *
1790: FROM ic_lots_mst
1791: WHERE
1792: lot_id = p_lot_id
1793: AND item_id = p_item_id;
1794:

Line 1803: OPEN ic_lots_mst_c2;

1799:
1800:
1801: IF ( NVL(p_lot_id,-1) <> -1) THEN
1802:
1803: OPEN ic_lots_mst_c2;
1804: FETCH ic_lots_mst_c2 INTO x_ic_lots_mst;
1805:
1806: IF (ic_lots_mst_c2%NOTFOUND) THEN
1807: CLOSE ic_lots_mst_c2;

Line 1804: FETCH ic_lots_mst_c2 INTO x_ic_lots_mst;

1800:
1801: IF ( NVL(p_lot_id,-1) <> -1) THEN
1802:
1803: OPEN ic_lots_mst_c2;
1804: FETCH ic_lots_mst_c2 INTO x_ic_lots_mst;
1805:
1806: IF (ic_lots_mst_c2%NOTFOUND) THEN
1807: CLOSE ic_lots_mst_c2;
1808: PrintMsg('Error : In Get_Lot_Details .Invalid Lot_id = '||

Line 1806: IF (ic_lots_mst_c2%NOTFOUND) THEN

1802:
1803: OPEN ic_lots_mst_c2;
1804: FETCH ic_lots_mst_c2 INTO x_ic_lots_mst;
1805:
1806: IF (ic_lots_mst_c2%NOTFOUND) THEN
1807: CLOSE ic_lots_mst_c2;
1808: PrintMsg('Error : In Get_Lot_Details .Invalid Lot_id = '||
1809: p_lot_id||', item_id = '||p_item_id);
1810:

Line 1807: CLOSE ic_lots_mst_c2;

1803: OPEN ic_lots_mst_c2;
1804: FETCH ic_lots_mst_c2 INTO x_ic_lots_mst;
1805:
1806: IF (ic_lots_mst_c2%NOTFOUND) THEN
1807: CLOSE ic_lots_mst_c2;
1808: PrintMsg('Error : In Get_Lot_Details .Invalid Lot_id = '||
1809: p_lot_id||', item_id = '||p_item_id);
1810:
1811: FND_MESSAGE.Set_Name('GMI','GMI_API_LOT_NOT_FOUND');

Line 1821: IF (ic_lots_mst_c2%ISOPEN)

1817: RAISE FND_API.G_EXC_ERROR;
1818:
1819: END IF;
1820:
1821: IF (ic_lots_mst_c2%ISOPEN)
1822: THEN
1823: CLOSE ic_lots_mst_c2;
1824: END IF;
1825:

Line 1823: CLOSE ic_lots_mst_c2;

1819: END IF;
1820:
1821: IF (ic_lots_mst_c2%ISOPEN)
1822: THEN
1823: CLOSE ic_lots_mst_c2;
1824: END IF;
1825:
1826: ELSE
1827: OPEN ic_lots_mst_c1;

Line 1827: OPEN ic_lots_mst_c1;

1823: CLOSE ic_lots_mst_c2;
1824: END IF;
1825:
1826: ELSE
1827: OPEN ic_lots_mst_c1;
1828: FETCH ic_lots_mst_c1 INTO x_ic_lots_mst;
1829:
1830: IF (ic_lots_mst_c1%NOTFOUND) THEN
1831: CLOSE ic_lots_mst_c1;

Line 1828: FETCH ic_lots_mst_c1 INTO x_ic_lots_mst;

1824: END IF;
1825:
1826: ELSE
1827: OPEN ic_lots_mst_c1;
1828: FETCH ic_lots_mst_c1 INTO x_ic_lots_mst;
1829:
1830: IF (ic_lots_mst_c1%NOTFOUND) THEN
1831: CLOSE ic_lots_mst_c1;
1832: PrintMsg('Error :in Get_Lot_Details .Invalid Lot_No/Sublot_no = '

Line 1830: IF (ic_lots_mst_c1%NOTFOUND) THEN

1826: ELSE
1827: OPEN ic_lots_mst_c1;
1828: FETCH ic_lots_mst_c1 INTO x_ic_lots_mst;
1829:
1830: IF (ic_lots_mst_c1%NOTFOUND) THEN
1831: CLOSE ic_lots_mst_c1;
1832: PrintMsg('Error :in Get_Lot_Details .Invalid Lot_No/Sublot_no = '
1833: ||p_lot_no|| ', Sublot_no = '||p_sublot_no);
1834:

Line 1831: CLOSE ic_lots_mst_c1;

1827: OPEN ic_lots_mst_c1;
1828: FETCH ic_lots_mst_c1 INTO x_ic_lots_mst;
1829:
1830: IF (ic_lots_mst_c1%NOTFOUND) THEN
1831: CLOSE ic_lots_mst_c1;
1832: PrintMsg('Error :in Get_Lot_Details .Invalid Lot_No/Sublot_no = '
1833: ||p_lot_no|| ', Sublot_no = '||p_sublot_no);
1834:
1835: FND_MESSAGE.Set_Name('GMI','GMI_API_LOT_NOT_FOUND');

Line 1845: IF(ic_lots_mst_c1%ISOPEN)

1841: RAISE FND_API.G_EXC_ERROR;
1842:
1843: END IF;
1844:
1845: IF(ic_lots_mst_c1%ISOPEN)
1846: THEN
1847: CLOSE ic_lots_mst_c1;
1848: END IF;
1849: END IF;

Line 1847: CLOSE ic_lots_mst_c1;

1843: END IF;
1844:
1845: IF(ic_lots_mst_c1%ISOPEN)
1846: THEN
1847: CLOSE ic_lots_mst_c1;
1848: END IF;
1849: END IF;
1850:
1851: EXCEPTION

Line 1882: --| This procedure is used to retrieve all details from ic_lots_mst |

1878: --| USAGE |
1879: --| Used to retrieve item master details |
1880: --| |
1881: --| DESCRIPTION |
1882: --| This procedure is used to retrieve all details from ic_lots_mst |
1883: --| |
1884: --| PARAMETERS |
1885: --| p_organization_id IN NUMBER - Inventory Organization Id |
1886: --| p_inventory_item_id IN VARCHAR2(32) - Inventory Item Id |