DBA Data[Home] [Help]

APPS.GMIVLOT dependencies on FND_API

Line 91: , p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL

87: +==========================================================================+
88: */
89: PROCEDURE Validate_Lot
90: ( p_api_version IN NUMBER
91: , p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL
92: , p_lot_rec IN GMIGAPI.lot_rec_typ
93: , p_ic_item_mst_row IN ic_item_mst%ROWTYPE
94: , p_ic_item_cpg_row IN ic_item_cpg%ROWTYPE
95: , x_ic_lots_mst_row OUT NOCOPY ic_lots_mst%ROWTYPE

Line 122: IF NOT FND_API.Compatible_API_CALL ( GMIGUTL.API_VERSION

118: l_def_lot_desc NUMBER; /* Bug 2343411 */
119:
120: BEGIN
121: /* Standard call to check for call compatibility. */
122: IF NOT FND_API.Compatible_API_CALL ( GMIGUTL.API_VERSION
123: , p_api_version
124: , l_api_name
125: , G_PKG_NAME
126: )

Line 128: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

124: , l_api_name
125: , G_PKG_NAME
126: )
127: THEN
128: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
129: END IF;
130:
131: /* Assume things are going to work out...... */
132: x_return_status := FND_API.G_RET_STS_SUCCESS;

Line 132: x_return_status := FND_API.G_RET_STS_SUCCESS;

128: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
129: END IF;
130:
131: /* Assume things are going to work out...... */
132: x_return_status := FND_API.G_RET_STS_SUCCESS;
133:
134: /* Initialise output records. Other values will be setup below */
135: /* First set up the audit columns on both rows */
136:

Line 259: IF p_validation_level = FND_API.G_VALID_LEVEL_NONE

255: x_ic_lots_mst_row.attribute29 := UPPER(p_lot_rec.attribute29);
256: x_ic_lots_mst_row.attribute30 := UPPER(p_lot_rec.attribute30);
257: x_ic_lots_mst_row.attribute_category := UPPER(p_lot_rec.attribute_category);
258:
259: IF p_validation_level = FND_API.G_VALID_LEVEL_NONE
260: AND p_lot_rec.lot_no = GMIGUTL.IC$DEFAULT_LOT
261: THEN
262: /* We are creating the default lot for a new item. */
263: x_ic_lots_mst_row.lot_no := GMIGUTL.IC$DEFAULT_LOT;

Line 268: -- being set to the FND_API.G_MISS_DATE

264: x_ic_lots_mst_row.lot_id := 0;
265: x_ic_lots_mst_row.qc_grade := UPPER(p_ic_item_mst_row.qc_grade);
266: x_ic_lots_mst_row.lot_created := p_ic_item_mst_row.creation_date;
267: -- Bug 2458413 - Need to set up default dates to avoid having them
268: -- being set to the FND_API.G_MISS_DATE
269: x_ic_lots_mst_row.expire_date := GMA_GLOBAL_GRP.SY$MAX_DATE;
270: x_ic_lots_mst_row.retest_date := GMA_GLOBAL_GRP.SY$MAX_DATE;
271: x_ic_lots_mst_row.expaction_date := GMA_GLOBAL_GRP.SY$MAX_DATE;
272:

Line 286: RAISE FND_API.G_EXC_ERROR;

282: THEN
283: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_ITEM_NO');
284: FND_MESSAGE.SET_TOKEN('ITEM_NO',p_ic_item_mst_row.item_no);
285: FND_MSG_PUB.Add;
286: RAISE FND_API.G_EXC_ERROR;
287: ELSIF p_ic_item_mst_row.inactive_ind = 1 AND
288: GMIGUTL.IC$API_ALLOW_INACTIVE = 0
289: THEN
290: FND_MESSAGE.SET_NAME('GMI','IC_API_INACTIVE_ITEM_NO');

Line 293: RAISE FND_API.G_EXC_ERROR;

289: THEN
290: FND_MESSAGE.SET_NAME('GMI','IC_API_INACTIVE_ITEM_NO');
291: FND_MESSAGE.SET_TOKEN('ITEM_NO',p_ic_item_mst_row.item_no);
292: FND_MSG_PUB.Add;
293: RAISE FND_API.G_EXC_ERROR;
294: END IF;
295:
296: /* If we're still alive carry on with validation */
297:

Line 304: x_return_status := FND_API.G_RET_STS_ERROR;

300: THEN
301: FND_MESSAGE.SET_NAME('GMI','IC_API_ITEM_NOT_LOT_CTL');
302: FND_MESSAGE.SET_TOKEN('ITEM_NO', l_item_no);
303: FND_MSG_PUB.Add;
304: x_return_status := FND_API.G_RET_STS_ERROR;
305: END IF;
306:
307: /* Check that lot number has been supplied */
308: IF NVL(p_lot_rec.lot_no,' ') <> ' '

Line 318: x_return_status := FND_API.G_RET_STS_ERROR;

314: FND_MESSAGE.SET_TOKEN('ITEM_NO', l_item_no);
315: FND_MESSAGE.SET_TOKEN('LOT_NO', l_lot_no);
316: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', l_sublot_no);
317: FND_MSG_PUB.Add;
318: x_return_status := FND_API.G_RET_STS_ERROR;
319: END IF;
320:
321: /* If item is not sublot controlled, flatten the sublot number, otherwise */
322: /* use what we are given. */

Line 355: x_return_status := FND_API.G_RET_STS_ERROR;

351: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_item_no);
352: FND_MESSAGE.SET_TOKEN('LOT_NO', l_lot_no);
353: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', l_sublot_no);
354: FND_MSG_PUB.Add;
355: x_return_status := FND_API.G_RET_STS_ERROR;
356: END IF;
357: END IF;
358: END IF;
359:

Line 375: x_return_status := FND_API.G_RET_STS_ERROR;

371: FND_MESSAGE.SET_TOKEN('ITEM_NO', l_item_no);
372: FND_MESSAGE.SET_TOKEN('LOT_NO', l_lot_no);
373: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', l_sublot_no);
374: FND_MSG_PUB.Add;
375: x_return_status := FND_API.G_RET_STS_ERROR;
376: END IF;
377: END IF;
378:
379: /* Validate Expiry Date */

Line 380: IF NVL(p_lot_rec.expire_date, FND_API.G_MISS_DATE) = FND_API.G_MISS_DATE

376: END IF;
377: END IF;
378:
379: /* Validate Expiry Date */
380: IF NVL(p_lot_rec.expire_date, FND_API.G_MISS_DATE) = FND_API.G_MISS_DATE
381: THEN
382: -- Bug 3621870
383: -- Check if its a grade controlled item.
384: -- Assign max date to expire date for non grade ctl items.

Line 413: IF NVL(p_lot_rec.retest_date, FND_API.G_MISS_DATE) = FND_API.G_MISS_DATE

409:
410:
411: /* Validate Retest Date */
412:
413: IF NVL(p_lot_rec.retest_date, FND_API.G_MISS_DATE) = FND_API.G_MISS_DATE
414: THEN
415: -- Bug 3621870
416: -- Check if its a grade controlled item.
417: -- Assign max date to retest date for non grade ctl items.

Line 438: x_return_status := FND_API.G_RET_STS_ERROR;

434: FND_MESSAGE.SET_TOKEN('ITEM_NO', l_item_no);
435: FND_MESSAGE.SET_TOKEN('LOT_NO', l_lot_no);
436: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', l_sublot_no);
437: FND_MSG_PUB.Add;
438: x_return_status := FND_API.G_RET_STS_ERROR;
439: END IF;
440: END IF;
441:
442: /* Validate Expiry Action Date */

Line 444: IF NVL(p_lot_rec.expaction_date, FND_API.G_MISS_DATE) = FND_API.G_MISS_DATE

440: END IF;
441:
442: /* Validate Expiry Action Date */
443:
444: IF NVL(p_lot_rec.expaction_date, FND_API.G_MISS_DATE) = FND_API.G_MISS_DATE
445: THEN
446: -- Bug 3621870
447: -- Check if its a grade controlled item.
448: -- Assign max date to expaction date for non grade ctl items.

Line 484: x_return_status := FND_API.G_RET_STS_ERROR;

480: FND_MESSAGE.SET_TOKEN('ITEM_NO', l_item_no);
481: FND_MESSAGE.SET_TOKEN('LOT_NO', l_lot_no);
482: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', l_sublot_no);
483: FND_MSG_PUB.Add;
484: x_return_status := FND_API.G_RET_STS_ERROR;
485: END IF;
486:
487: /* Validate Inactive Indicator */
488: IF p_lot_rec.inactive_ind IN (0,1)

Line 497: x_return_status := FND_API.G_RET_STS_ERROR;

493: FND_MESSAGE.SET_TOKEN('ITEM_NO', l_item_no);
494: FND_MESSAGE.SET_TOKEN('LOT_NO', l_lot_no);
495: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', l_sublot_no);
496: FND_MSG_PUB.Add;
497: x_return_status := FND_API.G_RET_STS_ERROR;
498: END IF;
499:
500: /* Validate Origination Type */
501:

Line 511: x_return_status := FND_API.G_RET_STS_ERROR;

507: FND_MESSAGE.SET_TOKEN('ITEM_NO', l_item_no);
508: FND_MESSAGE.SET_TOKEN('LOT_NO', l_lot_no);
509: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', l_sublot_no);
510: FND_MSG_PUB.Add;
511: x_return_status := FND_API.G_RET_STS_ERROR;
512: END IF;
513:
514: /* Validate Shipvendor Number */
515: IF NVL(p_lot_rec.shipvendor_no, ' ') = ' '

Line 528: x_return_status := FND_API.G_RET_STS_ERROR;

524: FND_MESSAGE.SET_TOKEN('ITEM_NO', l_item_no);
525: FND_MESSAGE.SET_TOKEN('LOT_NO', l_lot_no);
526: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', l_sublot_no);
527: FND_MSG_PUB.Add;
528: x_return_status := FND_API.G_RET_STS_ERROR;
529: END IF;
530: END IF;
531:
532:

Line 536: IF NVL(p_lot_rec.ic_hold_date, FND_API.G_MISS_DATE) = FND_API.G_MISS_DATE

532:
533: /* Jatinder - B3158806- Moved this out of CPG block as this is a standard
534: OPM field now. */
535: /* Validate Hold release date (CPG) */
536: IF NVL(p_lot_rec.ic_hold_date, FND_API.G_MISS_DATE) = FND_API.G_MISS_DATE
537: THEN
538: /* Jalaj Srivastava Bug 3158806
539: hold release date would be populated by the first yielding transaction
540: for non CPG installs */

Line 552: x_return_status := FND_API.G_RET_STS_ERROR;

548: THEN
549: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_LOT_HOLD_DATE');
550: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_item_no);
551: FND_MSG_PUB.Add;
552: x_return_status := FND_API.G_RET_STS_ERROR;
553: END IF;
554: /* Jalaj Srivastava Bug 3158806
555: Assign hold release date when passed by the user*/
556: x_ic_lots_cpg_row.ic_hold_date := p_lot_rec.ic_hold_date;

Line 562: IF NVL(p_lot_rec.ic_matr_date, FND_API.G_MISS_DATE) = FND_API.G_MISS_DATE

558:
559: IF GMIGUTL.SY$CPG_INSTALL <> 0
560: THEN
561: /* Validate Maturity date (CPG) */
562: IF NVL(p_lot_rec.ic_matr_date, FND_API.G_MISS_DATE) = FND_API.G_MISS_DATE
563: THEN
564: x_ic_lots_cpg_row.ic_matr_date :=
565: x_ic_lots_mst_row.creation_date + NVL(p_ic_item_cpg_row.ic_matr_days, 0);
566: ELSE

Line 572: x_return_status := FND_API.G_RET_STS_ERROR;

568: THEN
569: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_LOT_MATR_DATE');
570: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_item_no);
571: FND_MSG_PUB.Add;
572: x_return_status := FND_API.G_RET_STS_ERROR;
573: END IF;
574: END IF;
575:
576: END IF;

Line 591: x_return_status := FND_API.G_RET_STS_ERROR;

587: --we would instead set the error status individually for error cases.
588: /* ***********************************************************************
589: IF x_msg_count > 0
590: THEN
591: x_return_status := FND_API.G_RET_STS_ERROR;
592: END IF;
593: ************************************************************************** */
594:
595: EXCEPTION

Line 597: WHEN FND_API.G_EXC_ERROR THEN

593: ************************************************************************** */
594:
595: EXCEPTION
596:
597: WHEN FND_API.G_EXC_ERROR THEN
598: x_return_status := FND_API.G_RET_STS_ERROR;
599: FND_MSG_PUB.Count_AND_GET
600: ( p_count => x_msg_count,
601: p_data => x_msg_data

Line 598: x_return_status := FND_API.G_RET_STS_ERROR;

594:
595: EXCEPTION
596:
597: WHEN FND_API.G_EXC_ERROR THEN
598: x_return_status := FND_API.G_RET_STS_ERROR;
599: FND_MSG_PUB.Count_AND_GET
600: ( p_count => x_msg_count,
601: p_data => x_msg_data
602: );

Line 603: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

599: FND_MSG_PUB.Count_AND_GET
600: ( p_count => x_msg_count,
601: p_data => x_msg_data
602: );
603: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
604: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
605: FND_MSG_PUB.Count_AND_GET
606: ( p_count => x_msg_count,
607: p_data => x_msg_data

Line 604: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

600: ( p_count => x_msg_count,
601: p_data => x_msg_data
602: );
603: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
604: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
605: FND_MSG_PUB.Count_AND_GET
606: ( p_count => x_msg_count,
607: p_data => x_msg_data
608: );

Line 610: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

606: ( p_count => x_msg_count,
607: p_data => x_msg_data
608: );
609: WHEN OTHERS THEN
610: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
611: FND_MSG_PUB.Add_Exc_Msg
612: ( G_PKG_NAME ,
613: l_api_name
614: );