55: IS
56: l_api_name VARCHAR2(30) := 'G_Create_Item';
57: l_lot_rec GMIGAPI.lot_rec_typ;
58: l_return_status NUMBER;
59: l_ic_lots_mst_row ic_lots_mst%ROWTYPE;
60: l_ic_lots_cpg_row ic_lots_cpg%ROWTYPE;
61: BEGIN
62:
63: /* Standard call to check for call compatibility. */
127: , p_validation_level=> FND_API.G_VALID_LEVEL_NONE
128: , p_lot_rec => l_lot_rec
129: , p_ic_item_mst_row => x_ic_item_mst_row
130: , p_ic_item_cpg_row => x_ic_item_cpg_row
131: , x_ic_lots_mst_row => l_ic_lots_mst_row
132: , x_ic_lots_cpg_row => l_ic_lots_cpg_row
133: , x_return_status => x_return_status
134: , x_msg_count => x_msg_count
135: , x_msg_data => x_msg_data
214: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
215: , p_lot_rec IN lot_rec_typ
216: , p_ic_item_mst_row IN ic_item_mst%ROWTYPE
217: , p_ic_item_cpg_row IN ic_item_cpg%ROWTYPE
218: , x_ic_lots_mst_row OUT NOCOPY ic_lots_mst%ROWTYPE
219: , x_ic_lots_cpg_row OUT NOCOPY ic_lots_cpg%ROWTYPE
220: , x_return_status OUT NOCOPY VARCHAR2
221: , x_msg_count OUT NOCOPY NUMBER
222: , x_msg_data OUT NOCOPY VARCHAR2
246: , p_validation_level => p_validation_level
247: , p_lot_rec => p_lot_rec
248: , p_ic_item_mst_row => p_ic_item_mst_row
249: , p_ic_item_cpg_row => p_ic_item_cpg_row
250: , x_ic_lots_mst_row => x_ic_lots_mst_row
251: , x_ic_lots_cpg_row => x_ic_lots_cpg_row
252: , x_return_status => x_return_status
253: , x_msg_count => x_msg_count
254: , x_msg_data => x_msg_data
258: IF x_return_status = FND_API.G_RET_STS_SUCCESS
259: THEN
260: /* If no errors were found then proceed with the database inserts */
261:
262: IF GMIVDBL.ic_lots_mst_insert(x_ic_lots_mst_row, x_ic_lots_mst_row)
263: THEN
264: -- Jatinder - B3158806 - Removed SY$CPG_INSTALL check
265: x_ic_lots_cpg_row.lot_id := x_ic_lots_mst_row.lot_id;
266: IF GMIVDBL.ic_lots_cpg_insert(x_ic_lots_cpg_row, x_ic_lots_cpg_row)
261:
262: IF GMIVDBL.ic_lots_mst_insert(x_ic_lots_mst_row, x_ic_lots_mst_row)
263: THEN
264: -- Jatinder - B3158806 - Removed SY$CPG_INSTALL check
265: x_ic_lots_cpg_row.lot_id := x_ic_lots_mst_row.lot_id;
266: IF GMIVDBL.ic_lots_cpg_insert(x_ic_lots_cpg_row, x_ic_lots_cpg_row)
267: THEN
268: NULL;
269: ELSE
351: , p_commit IN VARCHAR2 := FND_API.G_FALSE
352: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
353: , p_conv_rec IN GMIGAPI.conv_rec_typ
354: , p_ic_item_mst_row IN ic_item_mst%ROWTYPE
355: , p_ic_lots_mst_row IN ic_lots_mst%ROWTYPE
356: , x_ic_item_cnv_row OUT NOCOPY ic_item_cnv%ROWTYPE
357: , x_return_status OUT NOCOPY VARCHAR2
358: , x_msg_count OUT NOCOPY NUMBER
359: , x_msg_data OUT NOCOPY VARCHAR2
382: ( p_api_version => p_api_version
383: , p_validation_level => p_validation_level
384: , p_item_cnv_rec => p_conv_rec
385: , p_ic_item_mst_row => p_ic_item_mst_row
386: , p_ic_lots_mst_row => p_ic_lots_mst_row
387: , x_ic_item_cnv_row => x_ic_item_cnv_row
388: , x_return_status => x_return_status
389: , x_msg_count => x_msg_count
390: , x_msg_data => x_msg_data
465: | p_validation_level IN VARCHAR2 - Validation Level Indicator |
466: | p_qty_rec IN GMIGAPI.qty_rec_typ - Quantity details |
467: | p_ic_item_mst_row IN ic_item_mst%ROWTYPE |
468: | p_ic_item_cpg_row IN ic_item_cpg%ROWTYPE |
469: | p_ic_lots_mst_row IN ic_lots_mst%ROWTYPE |
470: | p_ic_lots_cpg_row IN ic_lots_cpg%ROWTYPE |
471: | x_ic_jrnl_mst_row OUT ic_jrnl_mst%ROWTYPE |
472: | x_ic_adjs_jnl_row1 OUT ic_adjs_jnl%ROWTYPE |
473: | x_ic_adjs_jnl_row2 OUT ic_adjs_jnl%ROWTYPE |
516: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
517: , p_qty_rec IN GMIGAPI.qty_rec_typ
518: , p_ic_item_mst_row IN ic_item_mst%ROWTYPE
519: , p_ic_item_cpg_row IN ic_item_cpg%ROWTYPE
520: , p_ic_lots_mst_row IN ic_lots_mst%ROWTYPE
521: , p_ic_lots_cpg_row IN ic_lots_cpg%ROWTYPE
522: , x_ic_jrnl_mst_row OUT NOCOPY ic_jrnl_mst%ROWTYPE
523: , x_ic_adjs_jnl_row1 OUT NOCOPY ic_adjs_jnl%ROWTYPE
524: , x_ic_adjs_jnl_row2 OUT NOCOPY ic_adjs_jnl%ROWTYPE
526: , x_msg_count OUT NOCOPY NUMBER
527: , x_msg_data OUT NOCOPY VARCHAR2
528: )
529: IS
530: l_ic_lots_mst_row ic_lots_mst%ROWTYPE;
531: l_ic_lots_cpg_row ic_lots_cpg%ROWTYPE;
532: l_lot_rec GMIGAPI.lot_rec_typ;
533: l_tran_row1 ic_tran_cmp%ROWTYPE;
534: l_tran_row2 ic_tran_cmp%ROWTYPE;
601: , p_validation_level => p_validation_level
602: , p_qty_rec => p_qty_rec
603: , p_ic_item_mst_row => p_ic_item_mst_row
604: , p_ic_item_cpg_row => p_ic_item_cpg_row
605: , p_ic_lots_mst_row => p_ic_lots_mst_row
606: , p_ic_lots_cpg_row => p_ic_lots_cpg_row
607: , x_ic_jrnl_mst_row => x_ic_jrnl_mst_row
608: , x_ic_adjs_jnl_row1 => x_ic_adjs_jnl_row1
609: , x_ic_adjs_jnl_row2 => x_ic_adjs_jnl_row2
622: IF x_ic_adjs_jnl_row1.trans_type IN ('CREI','CRER')
623: THEN
624: IF p_ic_item_mst_row.lot_ctl = 0
625: THEN
626: l_ic_lots_mst_row.lot_id := 0;
627: l_ic_lots_mst_row.lot_no := GMIGUTL.IC$DEFAULT_LOT;
628: x_ic_adjs_jnl_row1.lot_id := l_ic_lots_mst_row.lot_id;
629: ELSE
630: l_lot_rec.lot_no := p_qty_rec.lot_no;
623: THEN
624: IF p_ic_item_mst_row.lot_ctl = 0
625: THEN
626: l_ic_lots_mst_row.lot_id := 0;
627: l_ic_lots_mst_row.lot_no := GMIGUTL.IC$DEFAULT_LOT;
628: x_ic_adjs_jnl_row1.lot_id := l_ic_lots_mst_row.lot_id;
629: ELSE
630: l_lot_rec.lot_no := p_qty_rec.lot_no;
631: IF p_ic_item_mst_row.sublot_ctl = 1
624: IF p_ic_item_mst_row.lot_ctl = 0
625: THEN
626: l_ic_lots_mst_row.lot_id := 0;
627: l_ic_lots_mst_row.lot_no := GMIGUTL.IC$DEFAULT_LOT;
628: x_ic_adjs_jnl_row1.lot_id := l_ic_lots_mst_row.lot_id;
629: ELSE
630: l_lot_rec.lot_no := p_qty_rec.lot_no;
631: IF p_ic_item_mst_row.sublot_ctl = 1
632: THEN
638: GMIGUTL.get_lot
639: ( p_ic_item_mst_row.item_id
640: , p_qty_rec.lot_no
641: , p_qty_rec.sublot_no
642: , l_ic_lots_mst_row
643: , l_ic_lots_cpg_row
644: );
645:
646: IF l_ic_lots_mst_row.lot_id IS NULL
642: , l_ic_lots_mst_row
643: , l_ic_lots_cpg_row
644: );
645:
646: IF l_ic_lots_mst_row.lot_id IS NULL
647: THEN
648: Create_Lot ( p_api_version => p_api_version
649: , p_init_msg_list => FND_API.G_FALSE
650: , p_commit => FND_API.G_FALSE
651: , p_validation_level=> FND_API.G_VALID_LEVEL_FULL
652: , p_lot_rec => l_lot_rec
653: , p_ic_item_mst_row => p_ic_item_mst_row
654: , p_ic_item_cpg_row => p_ic_item_cpg_row
655: , x_ic_lots_mst_row => l_ic_lots_mst_row
656: , x_ic_lots_cpg_row => l_ic_lots_cpg_row
657: , x_return_status => x_return_status
658: , x_msg_count => x_msg_count
659: , x_msg_data => x_msg_data
661: END IF;
662:
663: IF x_return_status = FND_API.G_RET_STS_SUCCESS
664: THEN
665: x_ic_adjs_jnl_row1.lot_id := l_ic_lots_mst_row.lot_id;
666: ELSE
667: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
668: END IF;
669: END IF;
669: END IF;
670: ELSE
671: IF p_ic_item_mst_row.lot_ctl = 0
672: THEN
673: l_ic_lots_mst_row.lot_id := 0;
674: l_ic_lots_mst_row.lot_no := GMIGUTL.IC$DEFAULT_LOT;
675: x_ic_adjs_jnl_row1.lot_id := l_ic_lots_mst_row.lot_id;
676: END IF;
677: END IF;
670: ELSE
671: IF p_ic_item_mst_row.lot_ctl = 0
672: THEN
673: l_ic_lots_mst_row.lot_id := 0;
674: l_ic_lots_mst_row.lot_no := GMIGUTL.IC$DEFAULT_LOT;
675: x_ic_adjs_jnl_row1.lot_id := l_ic_lots_mst_row.lot_id;
676: END IF;
677: END IF;
678:
671: IF p_ic_item_mst_row.lot_ctl = 0
672: THEN
673: l_ic_lots_mst_row.lot_id := 0;
674: l_ic_lots_mst_row.lot_no := GMIGUTL.IC$DEFAULT_LOT;
675: x_ic_adjs_jnl_row1.lot_id := l_ic_lots_mst_row.lot_id;
676: END IF;
677: END IF;
678:
679: /* *********************************************************************
931: END IF;
932: FND_MESSAGE.SET_TOKEN('JOURNAL_NO', x_ic_jrnl_mst_row.journal_no);
933: FND_MESSAGE.SET_TOKEN('ORGN_CODE', x_ic_adjs_jnl_row1.orgn_code);
934: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_ic_item_mst_row.item_no);
935: FND_MESSAGE.SET_TOKEN('LOT_NO',p_ic_lots_mst_row.lot_no);
936: FND_MESSAGE.SET_TOKEN('SUBLOT_NO',p_ic_lots_mst_row.sublot_no);
937: FND_MSG_PUB.Add;
938:
939: /* **************************************************************
932: FND_MESSAGE.SET_TOKEN('JOURNAL_NO', x_ic_jrnl_mst_row.journal_no);
933: FND_MESSAGE.SET_TOKEN('ORGN_CODE', x_ic_adjs_jnl_row1.orgn_code);
934: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_ic_item_mst_row.item_no);
935: FND_MESSAGE.SET_TOKEN('LOT_NO',p_ic_lots_mst_row.lot_no);
936: FND_MESSAGE.SET_TOKEN('SUBLOT_NO',p_ic_lots_mst_row.sublot_no);
937: FND_MSG_PUB.Add;
938:
939: /* **************************************************************
940: Jalaj Srivastava Bug 3282770
982: , p_validation_level IN NUMBER
983: , p_xfer_rec IN GMIGAPI.xfer_rec_typ
984: , p_ic_item_mst_row IN ic_item_mst%ROWTYPE
985: , p_ic_item_cpg_row IN ic_item_cpg%ROWTYPE
986: , p_ic_lots_mst_row IN ic_lots_mst%ROWTYPE
987: , p_ic_lots_cpg_row IN ic_lots_cpg%ROWTYPE
988: , p_ic_xfer_mst_row OUT NOCOPY ic_xfer_mst%ROWTYPE
989: , x_ic_xfer_mst_row OUT NOCOPY ic_xfer_mst%ROWTYPE
990: , x_return_status OUT NOCOPY VARCHAR2