DBA Data[Home] [Help]

APPS.GMI_LOTS_PUB dependencies on IC_ITEM_MST

Line 97: l_ic_item_mst_rec ic_item_mst%ROWTYPE;

93: l_msg_data VARCHAR2(2000);
94: l_return_status VARCHAR2(1);
95: l_user_name fnd_user.user_name%TYPE;
96: l_user_id fnd_user.user_id%TYPE;
97: l_ic_item_mst_rec ic_item_mst%ROWTYPE;
98: l_ic_lots_mst_rec ic_lots_mst%ROWTYPE;
99: l_ic_lots_cpg_rec ic_lots_cpg%ROWTYPE;
100: l_lot_rec lot_rec_typ;
101: l_po_vend_mst_rec po_vend_mst%ROWTYPE;

Line 166: , x_ic_item_mst => l_ic_item_mst_rec

162:
163: -- Get item details
164:
165: GMI_GLOBAL_GRP.Get_Item ( p_item_no => l_lot_rec.item_no
166: , x_ic_item_mst => l_ic_item_mst_rec
167: , x_ic_item_cpg => l_ic_item_cpg_rec
168: );
169:
170: IF (l_ic_item_mst_rec.item_id < 0)

Line 170: IF (l_ic_item_mst_rec.item_id < 0)

166: , x_ic_item_mst => l_ic_item_mst_rec
167: , x_ic_item_cpg => l_ic_item_cpg_rec
168: );
169:
170: IF (l_ic_item_mst_rec.item_id < 0)
171: THEN
172: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
173: ELSIF (l_ic_item_mst_rec.item_id = 0) OR
174: (l_ic_item_mst_rec.delete_mark = 1)

Line 173: ELSIF (l_ic_item_mst_rec.item_id = 0) OR

169:
170: IF (l_ic_item_mst_rec.item_id < 0)
171: THEN
172: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
173: ELSIF (l_ic_item_mst_rec.item_id = 0) OR
174: (l_ic_item_mst_rec.delete_mark = 1)
175: THEN
176: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_ITEM_NO');
177: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_lot_rec.item_no);

Line 174: (l_ic_item_mst_rec.delete_mark = 1)

170: IF (l_ic_item_mst_rec.item_id < 0)
171: THEN
172: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
173: ELSIF (l_ic_item_mst_rec.item_id = 0) OR
174: (l_ic_item_mst_rec.delete_mark = 1)
175: THEN
176: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_ITEM_NO');
177: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_lot_rec.item_no);
178: FND_MSG_PUB.Add;

Line 180: ELSIF (l_ic_item_mst_rec.noninv_ind = 1) AND

176: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_ITEM_NO');
177: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_lot_rec.item_no);
178: FND_MSG_PUB.Add;
179: RAISE FND_API.G_EXC_ERROR;
180: ELSIF (l_ic_item_mst_rec.noninv_ind = 1) AND
181: (p_lot_rec.lot_no <> 'NEWITEM')
182: THEN
183: FND_MESSAGE.SET_NAME('GMI','IC_API_NONINV_ITEM_NO');
184: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_lot_rec.item_no);

Line 187: ELSIF (l_ic_item_mst_rec.inactive_ind = 1) AND

183: FND_MESSAGE.SET_NAME('GMI','IC_API_NONINV_ITEM_NO');
184: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_lot_rec.item_no);
185: FND_MSG_PUB.Add;
186: RAISE FND_API.G_EXC_ERROR;
187: ELSIF (l_ic_item_mst_rec.inactive_ind = 1) AND
188: (p_lot_rec.lot_no <> 'NEWITEM')
189: THEN
190: FND_MESSAGE.SET_NAME('GMI','IC_API_INACTIVE_ITEM_NO');
191: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_lot_rec.item_no);

Line 220: (l_ic_item_mst_rec.grade_ctl = 1)

216: -- Set up default values for required where fields have been left blank
217: -- QC Grade
218: IF (l_lot_rec.qc_grade = ' ' OR
219: l_lot_rec.qc_grade IS NULL) AND
220: (l_ic_item_mst_rec.grade_ctl = 1)
221: THEN
222: l_lot_rec.qc_grade :=l_ic_item_mst_rec.qc_grade;
223: END IF;
224:

Line 222: l_lot_rec.qc_grade :=l_ic_item_mst_rec.qc_grade;

218: IF (l_lot_rec.qc_grade = ' ' OR
219: l_lot_rec.qc_grade IS NULL) AND
220: (l_ic_item_mst_rec.grade_ctl = 1)
221: THEN
222: l_lot_rec.qc_grade :=l_ic_item_mst_rec.qc_grade;
223: END IF;
224:
225: --Expaction Code
226: IF (l_lot_rec.expaction_code = ' ' OR l_lot_rec.expaction_code IS NULL)

Line 228: l_lot_rec.expaction_code := l_ic_item_mst_rec.expaction_code;

224:
225: --Expaction Code
226: IF (l_lot_rec.expaction_code = ' ' OR l_lot_rec.expaction_code IS NULL)
227: THEN
228: l_lot_rec.expaction_code := l_ic_item_mst_rec.expaction_code;
229: END IF;
230:
231: -- Expire Date
232: IF (l_lot_rec.expire_date IS NULL)

Line 235: IF (l_ic_item_mst_rec.grade_ctl = 1)

231: -- Expire Date
232: IF (l_lot_rec.expire_date IS NULL)
233: THEN
234: --BEGIN BUG#2158123 12/21/2001 RajaSekhar
235: IF (l_ic_item_mst_rec.grade_ctl = 1)
236: THEN
237: l_lot_rec.expire_date := l_lot_rec.lot_created +
238: NVL(l_ic_item_mst_rec.shelf_life,0);
239: --END BUG#2158123

Line 238: NVL(l_ic_item_mst_rec.shelf_life,0);

234: --BEGIN BUG#2158123 12/21/2001 RajaSekhar
235: IF (l_ic_item_mst_rec.grade_ctl = 1)
236: THEN
237: l_lot_rec.expire_date := l_lot_rec.lot_created +
238: NVL(l_ic_item_mst_rec.shelf_life,0);
239: --END BUG#2158123
240: ELSE
241: l_lot_rec.expire_date := GMA_GLOBAL_GRP.SY$MAX_DATE;
242: END IF;

Line 249: IF (l_ic_item_mst_rec.grade_ctl = 1)

245: --Expaction Date
246: IF (l_lot_rec.expaction_date IS NULL) OR (l_lot_rec.expaction_code IS NULL)
247: THEN
248: --BEGIN BUG#2158123 12/21/2001 RajaSekhar
249: IF (l_ic_item_mst_rec.grade_ctl = 1)
250: THEN
251: l_lot_rec.expaction_date := l_lot_rec.expire_date +
252: NVL(l_ic_item_mst_rec.expaction_interval,0);
253: --END BUG#2158123

Line 252: NVL(l_ic_item_mst_rec.expaction_interval,0);

248: --BEGIN BUG#2158123 12/21/2001 RajaSekhar
249: IF (l_ic_item_mst_rec.grade_ctl = 1)
250: THEN
251: l_lot_rec.expaction_date := l_lot_rec.expire_date +
252: NVL(l_ic_item_mst_rec.expaction_interval,0);
253: --END BUG#2158123
254: ELSE
255: l_lot_rec.expaction_date := GMA_GLOBAL_GRP.SY$MAX_DATE;
256: END IF;

Line 263: IF (l_ic_item_mst_rec.grade_ctl = 1)

259: --Retest Date
260: IF (l_lot_rec.retest_date IS NULL)
261: THEN
262: --BEGIN BUG#2158123 12/21/2001 RajaSekhar
263: IF (l_ic_item_mst_rec.grade_ctl = 1)
264: THEN
265: l_lot_rec.retest_date := l_lot_rec.lot_created +
266: NVL(l_ic_item_mst_rec.retest_interval,0);
267: --END BUG#2158123

Line 266: NVL(l_ic_item_mst_rec.retest_interval,0);

262: --BEGIN BUG#2158123 12/21/2001 RajaSekhar
263: IF (l_ic_item_mst_rec.grade_ctl = 1)
264: THEN
265: l_lot_rec.retest_date := l_lot_rec.lot_created +
266: NVL(l_ic_item_mst_rec.retest_interval,0);
267: --END BUG#2158123
268: ELSE
269: l_lot_rec.retest_date := GMA_GLOBAL_GRP.SY$MAX_DATE;
270: END IF;

Line 293: , p_item_rec => l_ic_item_mst_rec

289: GMI_LOTS_PUB.Validate_Lot ( p_api_version => 2.0
290: , p_init_msg_list => FND_API.G_FALSE
291: , p_validation_level =>FND_API.G_VALID_LEVEL_FULL
292: , p_lot_rec => l_lot_rec
293: , p_item_rec => l_ic_item_mst_rec
294: , x_return_status => l_return_status
295: , x_msg_count => l_msg_count
296: , x_msg_data => l_msg_data
297: );

Line 335: l_ic_lots_mst_rec.item_id := l_ic_item_mst_rec.item_id;

331: END IF;
332:
333: -- Set up PL/SQL record and insert lot into ic_lots_mst
334:
335: l_ic_lots_mst_rec.item_id := l_ic_item_mst_rec.item_id;
336: l_ic_lots_mst_rec.lot_no := l_lot_rec.lot_no;
337: l_ic_lots_mst_rec.sublot_no := l_lot_rec.sublot_no;
338: l_ic_lots_mst_rec.lot_id := l_lot_id;
339: l_ic_lots_mst_rec.lot_desc := l_lot_rec.lot_desc;

Line 400: l_ic_lots_cpg_rec.item_id := l_ic_item_mst_rec.item_id;

396: END IF;
397:
398: -- Set up PL/SQL record and insert lot into ic_lots_cpg
399:
400: l_ic_lots_cpg_rec.item_id := l_ic_item_mst_rec.item_id;
401: l_ic_lots_cpg_rec.lot_id := l_lot_id;
402: l_ic_lots_cpg_rec.ic_matr_date := l_lot_rec.ic_matr_date;
403: l_ic_lots_cpg_rec.ic_hold_date := l_lot_rec.ic_hold_date;
404: l_ic_lots_cpg_rec.created_by := l_user_id;

Line 506: , p_item_rec IN ic_item_mst%ROWTYPE

502: ( p_api_version IN NUMBER
503: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
504: , p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL
505: , p_lot_rec IN lot_rec_typ
506: , p_item_rec IN ic_item_mst%ROWTYPE
507: , x_return_status OUT NOCOPY VARCHAR2
508: , x_msg_count OUT NOCOPY NUMBER
509: , x_msg_data OUT NOCOPY VARCHAR2
510: )

Line 517: l_item_no ic_item_mst.item_no%TYPE;

513: l_api_version CONSTANT NUMBER := 2.0;
514: l_msg_count NUMBER;
515: l_msg_data VARCHAR2(2000);
516: l_return_status VARCHAR2(1);
517: l_item_no ic_item_mst.item_no%TYPE;
518: l_lot_no ic_lots_mst.lot_no%TYPE;
519: l_sublot_no ic_lots_mst.sublot_no%TYPE;
520: l_qc_grade ic_lots_mst.qc_grade%TYPE;
521: l_expaction_code ic_lots_mst.expaction_code%TYPE;