[Home] [Help]
41: */
42:
43: PROCEDURE Create_Item
44: ( p_api_version IN NUMBER
45: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
46: , p_commit IN VARCHAR2 := FND_API.G_FALSE
47: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
48: , p_item_rec IN GMIGAPI.item_rec_typ
49: , x_ic_item_mst_row OUT NOCOPY ic_item_mst%ROWTYPE
42:
43: PROCEDURE Create_Item
44: ( p_api_version IN NUMBER
45: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
46: , p_commit IN VARCHAR2 := FND_API.G_FALSE
47: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
48: , p_item_rec IN GMIGAPI.item_rec_typ
49: , x_ic_item_mst_row OUT NOCOPY ic_item_mst%ROWTYPE
50: , x_ic_item_cpg_row OUT NOCOPY ic_item_cpg%ROWTYPE
43: PROCEDURE Create_Item
44: ( p_api_version IN NUMBER
45: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
46: , p_commit IN VARCHAR2 := FND_API.G_FALSE
47: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
48: , p_item_rec IN GMIGAPI.item_rec_typ
49: , x_ic_item_mst_row OUT NOCOPY ic_item_mst%ROWTYPE
50: , x_ic_item_cpg_row OUT NOCOPY ic_item_cpg%ROWTYPE
51: , x_return_status OUT NOCOPY VARCHAR2
61: BEGIN
62:
63: /* Standard call to check for call compatibility. */
64:
65: IF NOT FND_API.Compatible_API_CALL
66: (GMIGUTL.api_version, p_api_version, l_api_name, G_PKG_NAME)
67: THEN
68: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
69: END IF;
64:
65: IF NOT FND_API.Compatible_API_CALL
66: (GMIGUTL.api_version, p_api_version, l_api_name, G_PKG_NAME)
67: THEN
68: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
69: END IF;
70:
71: /* Initialize message list if p_int_msg_list is set TRUE. */
72: IF FND_API.to_boolean(p_init_msg_list)
68: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
69: END IF;
70:
71: /* Initialize message list if p_int_msg_list is set TRUE. */
72: IF FND_API.to_boolean(p_init_msg_list)
73: THEN
74: FND_MSG_PUB.Initialize;
75: END IF;
76:
73: THEN
74: FND_MSG_PUB.Initialize;
75: END IF;
76:
77: x_return_status :=FND_API.G_RET_STS_SUCCESS;
78:
79: GMIVITM.Validate_Item
80: ( p_api_version => p_api_version
81: , p_validation_level => p_validation_level
88: );
89:
90: SAVEPOINT Create_Item;
91:
92: IF x_return_status = FND_API.G_RET_STS_SUCCESS
93: THEN
94: /* If no errors were found then proceed with the database inserts */
95: IF GMIVDBL.ic_item_mst_insert(x_ic_item_mst_row, x_ic_item_mst_row)
96: THEN
108: IF GMIVDBL.ic_item_cpg_insert(x_ic_item_cpg_row, x_ic_item_cpg_row)
109: THEN
110: NULL;
111: ELSE
112: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
113: END IF;
114: END IF;
115:
116: /* Item Master row(s) created ok, so now we must create */
121:
122: l_lot_rec.lot_no := GMIGUTL.IC$DEFAULT_LOT;
123:
124: Create_Lot ( p_api_version => p_api_version
125: , p_init_msg_list => FND_API.G_FALSE
126: , p_commit => FND_API.G_FALSE
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
122: l_lot_rec.lot_no := GMIGUTL.IC$DEFAULT_LOT;
123:
124: Create_Lot ( p_api_version => p_api_version
125: , p_init_msg_list => FND_API.G_FALSE
126: , p_commit => FND_API.G_FALSE
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
123:
124: Create_Lot ( p_api_version => p_api_version
125: , p_init_msg_list => FND_API.G_FALSE
126: , p_commit => FND_API.G_FALSE
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
134: , x_msg_count => x_msg_count
135: , x_msg_data => x_msg_data
136: );
137:
138: IF x_return_status = FND_API.G_RET_STS_SUCCESS
139: THEN
140: FND_MESSAGE.SET_NAME('GMI','IC_API_ITEM_CREATED');
141: FND_MESSAGE.SET_TOKEN('ITEM_NO', l_lot_rec.item_no);
142: FND_MSG_PUB.Add;
140: FND_MESSAGE.SET_NAME('GMI','IC_API_ITEM_CREATED');
141: FND_MESSAGE.SET_TOKEN('ITEM_NO', l_lot_rec.item_no);
142: FND_MSG_PUB.Add;
143:
144: IF FND_API.to_boolean(p_commit)
145: THEN
146: COMMIT;
147: END IF;
148: ELSE /* Bug 2513463 - Handle possbile errors with Create_Lot */
145: THEN
146: COMMIT;
147: END IF;
148: ELSE /* Bug 2513463 - Handle possbile errors with Create_Lot */
149: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
150: END IF;
151: ELSE /* Bug 2513463 - Handle possbile errors with ic_item_insert */
152: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
153: END IF;
148: ELSE /* Bug 2513463 - Handle possbile errors with Create_Lot */
149: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
150: END IF;
151: ELSE /* Bug 2513463 - Handle possbile errors with ic_item_insert */
152: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
153: END IF;
154: ELSE
155: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
156: END IF;
151: ELSE /* Bug 2513463 - Handle possbile errors with ic_item_insert */
152: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
153: END IF;
154: ELSE
155: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
156: END IF;
157:
158: FND_MSG_PUB.Count_AND_GET
159: (p_count => x_msg_count, p_data => x_msg_data);
157:
158: FND_MSG_PUB.Count_AND_GET
159: (p_count => x_msg_count, p_data => x_msg_data);
160:
161: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
162: THEN
163: ROLLBACK TO Create_Item;
164: END IF;
165:
165:
166: EXCEPTION
167: WHEN OTHERS THEN
168: ROLLBACK TO Create_Item;
169: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
170:
171: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
172: FND_MSG_PUB.Count_AND_GET
173: (p_count => x_msg_count, p_data => x_msg_data);
208: */
209:
210: PROCEDURE Create_Lot
211: ( p_api_version IN NUMBER
212: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
213: , p_commit IN VARCHAR2 := FND_API.G_FALSE
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
209:
210: PROCEDURE Create_Lot
211: ( p_api_version IN NUMBER
212: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
213: , p_commit IN VARCHAR2 := FND_API.G_FALSE
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
210: PROCEDURE Create_Lot
211: ( p_api_version IN NUMBER
212: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
213: , p_commit IN VARCHAR2 := FND_API.G_FALSE
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
226: BEGIN
227:
228: /* Standard call to check for call compatibility. */
229:
230: IF NOT FND_API.Compatible_API_CALL
231: (GMIGUTL.api_version, p_api_version, l_api_name, G_PKG_NAME)
232: THEN
233: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
234: END IF;
229:
230: IF NOT FND_API.Compatible_API_CALL
231: (GMIGUTL.api_version, p_api_version, l_api_name, G_PKG_NAME)
232: THEN
233: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
234: END IF;
235:
236: /* Initialize message list if p_int_msg_list is set TRUE. */
237: IF FND_API.to_boolean(p_init_msg_list)
233: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
234: END IF;
235:
236: /* Initialize message list if p_int_msg_list is set TRUE. */
237: IF FND_API.to_boolean(p_init_msg_list)
238: THEN
239: FND_MSG_PUB.Initialize;
240: END IF;
241:
238: THEN
239: FND_MSG_PUB.Initialize;
240: END IF;
241:
242: x_return_status :=FND_API.G_RET_STS_SUCCESS;
243:
244: GMIVLOT.Validate_Lot
245: ( p_api_version => p_api_version
246: , p_validation_level => p_validation_level
254: , x_msg_data => x_msg_data
255: );
256:
257: SAVEPOINT Create_Lot;
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)
266: IF GMIVDBL.ic_lots_cpg_insert(x_ic_lots_cpg_row, x_ic_lots_cpg_row)
267: THEN
268: NULL;
269: ELSE
270: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
271: END IF;
272:
273: FND_MESSAGE.SET_NAME('GMI','IC_API_LOT_CREATED');
274: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_lot_rec.item_no);
275: FND_MESSAGE.SET_TOKEN('LOT_NO', p_lot_rec.lot_no);
276: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', p_lot_rec.sublot_no);
277: FND_MSG_PUB.Add;
278:
279: IF FND_API.to_boolean(p_commit)
280: THEN
281: COMMIT WORK;
282: END IF;
283: ELSE
280: THEN
281: COMMIT WORK;
282: END IF;
283: ELSE
284: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
285: END IF;
286: --Jalaj Srivastava Bug 2485879
287: --Added else for assigning return status
288: ELSE
285: END IF;
286: --Jalaj Srivastava Bug 2485879
287: --Added else for assigning return status
288: ELSE
289: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
290: END IF;
291:
292: FND_MSG_PUB.Count_AND_GET
293: (p_count => x_msg_count, p_data => x_msg_data);
291:
292: FND_MSG_PUB.Count_AND_GET
293: (p_count => x_msg_count, p_data => x_msg_data);
294:
295: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
296: THEN
297: ROLLBACK TO Create_Lot;
298: END IF;
299:
299:
300: EXCEPTION
301: WHEN OTHERS THEN
302: ROLLBACK TO Create_Lot;
303: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
304:
305: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
306: FND_MSG_PUB.Count_AND_GET
307: (p_count => x_msg_count, p_data => x_msg_data);
346: +==========================================================================+
347: */
348: PROCEDURE Create_Item_Lot_Conv
349: ( p_api_version IN NUMBER
350: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
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
347: */
348: PROCEDURE Create_Item_Lot_Conv
349: ( p_api_version IN NUMBER
350: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
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
348: PROCEDURE Create_Item_Lot_Conv
349: ( p_api_version IN NUMBER
350: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
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
363: BEGIN
364:
365: /* Standard call to check for call compatibility. */
366:
367: IF NOT FND_API.Compatible_API_CALL
368: (GMIGUTL.api_version, p_api_version, l_api_name, G_PKG_NAME)
369: THEN
370: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
371: END IF;
366:
367: IF NOT FND_API.Compatible_API_CALL
368: (GMIGUTL.api_version, p_api_version, l_api_name, G_PKG_NAME)
369: THEN
370: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
371: END IF;
372:
373: /* Initialize message list if p_int_msg_list is set TRUE. */
374: IF FND_API.to_boolean(p_init_msg_list)
370: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
371: END IF;
372:
373: /* Initialize message list if p_int_msg_list is set TRUE. */
374: IF FND_API.to_boolean(p_init_msg_list)
375: THEN
376: FND_MSG_PUB.Initialize;
377: END IF;
378:
375: THEN
376: FND_MSG_PUB.Initialize;
377: END IF;
378:
379: x_return_status :=FND_API.G_RET_STS_SUCCESS;
380:
381: GMIVILC.Validate_Lot_Conversion
382: ( p_api_version => p_api_version
383: , p_validation_level => p_validation_level
390: , x_msg_data => x_msg_data
391: );
392:
393: SAVEPOINT Create_Conv;
394: IF x_return_status = FND_API.G_RET_STS_SUCCESS
395: THEN
396: /* If no errors were found then proceed with the database insert */
397: /* Bug 1741321 */
398: /* Set token for uom type to be displayed in the success message */
405: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', p_conv_rec.sublot_no);
406: FND_MESSAGE.SET_TOKEN('UM_TYPE', x_ic_item_cnv_row.um_type);
407: FND_MSG_PUB.Add;
408:
409: IF FND_API.to_boolean(p_commit)
410: THEN
411: COMMIT WORK;
412: END IF;
413: /* Bug 1741321 */
421: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', p_conv_rec.sublot_no);
422: FND_MESSAGE.SET_TOKEN('UM_TYPE', x_ic_item_cnv_row.um_type);
423: FND_MSG_PUB.Add;
424: ELSE
425: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
426: END IF;
427: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
428: END IF;
429: END IF;
423: FND_MSG_PUB.Add;
424: ELSE
425: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
426: END IF;
427: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
428: END IF;
429: END IF;
430:
431: FND_MSG_PUB.Count_AND_GET
430:
431: FND_MSG_PUB.Count_AND_GET
432: (p_count => x_msg_count, p_data => x_msg_data);
433:
434: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
435: THEN
436: ROLLBACK TO Create_Conv;
437: END IF;
438:
438:
439: EXCEPTION
440: WHEN OTHERS THEN
441: ROLLBACK TO Create_Conv;
442: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
443:
444: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
445: FND_MSG_PUB.Count_AND_GET
446: (p_count => x_msg_count, p_data => x_msg_data);
510: */
511:
512: PROCEDURE Inventory_Posting
513: ( p_api_version IN NUMBER
514: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
515: , p_commit IN VARCHAR2 := FND_API.G_FALSE
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
511:
512: PROCEDURE Inventory_Posting
513: ( p_api_version IN NUMBER
514: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
515: , p_commit IN VARCHAR2 := FND_API.G_FALSE
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
512: PROCEDURE Inventory_Posting
513: ( p_api_version IN NUMBER
514: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
515: , p_commit IN VARCHAR2 := FND_API.G_FALSE
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
580: BEGIN
581:
582: /* Standard call to check for call compatibility. */
583:
584: IF NOT FND_API.Compatible_API_CALL
585: (GMIGUTL.api_version, p_api_version, l_api_name, G_PKG_NAME)
586: THEN
587: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
588: END IF;
583:
584: IF NOT FND_API.Compatible_API_CALL
585: (GMIGUTL.api_version, p_api_version, l_api_name, G_PKG_NAME)
586: THEN
587: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
588: END IF;
589:
590: /* Initialize message list if p_int_msg_list is set TRUE. */
591: IF FND_API.to_boolean(p_init_msg_list)
587: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
588: END IF;
589:
590: /* Initialize message list if p_int_msg_list is set TRUE. */
591: IF FND_API.to_boolean(p_init_msg_list)
592: THEN
593: FND_MSG_PUB.Initialize;
594: END IF;
595:
592: THEN
593: FND_MSG_PUB.Initialize;
594: END IF;
595:
596: x_return_status :=FND_API.G_RET_STS_SUCCESS;
597: --Jalaj Srivastava Bug 2483656
598: l_qty_rec := p_qty_rec;
599: GMIVQTY.Validate_Inventory_Posting
600: ( p_api_version => p_api_version
612: , x_msg_data => x_msg_data
613: );
614:
615: SAVEPOINT Create_Posting;
616: IF x_return_status = FND_API.G_RET_STS_SUCCESS
617: THEN
618: /* If this is a 'CREI' transaction and the item is lot controlled */
619: /* then we must create the lot first as we'll need the ID in what */
620: /* follows. */
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
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
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
659: , x_msg_data => x_msg_data
660: );
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;
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;
670: ELSE
671: IF p_ic_item_mst_row.lot_ctl = 0
691: ) THEN
692:
693: GMIALLOC.CHECK_ALLOC_QTY
694: ( p_api_version => 1.0
695: ,p_init_msg_list => fnd_api.g_false
696: ,p_commit => fnd_api.g_false
697: ,p_validation_level => fnd_api.g_valid_level_full
698: ,x_return_status => x_return_status
699: ,x_msg_count => x_msg_count
692:
693: GMIALLOC.CHECK_ALLOC_QTY
694: ( p_api_version => 1.0
695: ,p_init_msg_list => fnd_api.g_false
696: ,p_commit => fnd_api.g_false
697: ,p_validation_level => fnd_api.g_valid_level_full
698: ,x_return_status => x_return_status
699: ,x_msg_count => x_msg_count
700: ,x_msg_data => x_msg_data
693: GMIALLOC.CHECK_ALLOC_QTY
694: ( p_api_version => 1.0
695: ,p_init_msg_list => fnd_api.g_false
696: ,p_commit => fnd_api.g_false
697: ,p_validation_level => fnd_api.g_valid_level_full
698: ,x_return_status => x_return_status
699: ,x_msg_count => x_msg_count
700: ,x_msg_data => x_msg_data
701: ,pfrom_whse_code => x_ic_adjs_jnl_row1.whse_code
706: ,pto_whse_code => x_ic_adjs_jnl_row2.whse_code
707: ,x_move_allocations => x_move_allocations
708: );
709:
710: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
711: RAISE FND_API.G_EXC_ERROR;
712: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
713: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
714: END IF;
707: ,x_move_allocations => x_move_allocations
708: );
709:
710: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
711: RAISE FND_API.G_EXC_ERROR;
712: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
713: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
714: END IF;
715: END IF;--}
708: );
709:
710: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
711: RAISE FND_API.G_EXC_ERROR;
712: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
713: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
714: END IF;
715: END IF;--}
716:
709:
710: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
711: RAISE FND_API.G_EXC_ERROR;
712: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
713: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
714: END IF;
715: END IF;--}
716:
717:
744: IF (l_record_count = 0) THEN
745: FND_MESSAGE.SET_NAME ('GMI', 'IC_API_INVALID_JOURNAL_NO');
746: FND_MESSAGE.SET_TOKEN('JOURNAL_NO',p_qty_rec.journal_no);
747: FND_MSG_PUB.Add;
748: RAISE FND_API.G_EXC_ERROR;
749: ELSE
750: x_ic_jrnl_mst_row.journal_no := l_qty_rec.journal_no;
751: END IF;
752: END IF;
764: x_ic_jrnl_mst_row.journal_no := l_qty_rec.journal_no;
765: ELSIF (p_qty_rec.trans_type <= 5) THEN
766: FND_MESSAGE.SET_NAME ('GMI', 'GMI_JOURNALNOEXISTS');
767: FND_MSG_PUB.Add;
768: RAISE FND_API.G_EXC_ERROR;
769: ELSIF (p_qty_rec.trans_type >=6) THEN
770: OPEN check_journal_no;
771: FETCH check_journal_no INTO l_record_count;
772: CLOSE check_journal_no;
773: IF (l_record_count = 0) THEN
774: FND_MESSAGE.SET_NAME ('GMI', 'IC_API_INVALID_JOURNAL_NO');
775: FND_MESSAGE.SET_TOKEN('JOURNAL_NO',l_qty_rec.journal_no);
776: FND_MSG_PUB.Add;
777: RAISE FND_API.G_EXC_ERROR;
778: ELSE
779: x_ic_jrnl_mst_row.journal_no := l_qty_rec.journal_no;
780: END IF;
781: END IF;
783: IF (upper(l_qty_rec.journal_no) = 'PREVIOUS') THEN
784: FND_MESSAGE.SET_NAME ('GMI', 'IC_API_INVALID_JOURNAL_NO');
785: FND_MESSAGE.SET_TOKEN('JOURNAL_NO',l_qty_rec.journal_no);
786: FND_MSG_PUB.Add;
787: RAISE FND_API.G_EXC_ERROR;
788: END IF;
789: IF (NVL(x_ic_jrnl_mst_row.journal_no, ' ') = ' ') THEN
790: FND_MESSAGE.SET_NAME('GMI','IC_API_UNABLE_TO_GET_DOC_NO');
791: FND_MESSAGE.SET_TOKEN('DOC_TYPE','JRNL');
790: FND_MESSAGE.SET_NAME('GMI','IC_API_UNABLE_TO_GET_DOC_NO');
791: FND_MESSAGE.SET_TOKEN('DOC_TYPE','JRNL');
792: FND_MESSAGE.SET_TOKEN('ORGN_CODE',p_qty_rec.orgn_code);
793: FND_MSG_PUB.Add;
794: RAISE FND_API.G_EXC_ERROR;
795: END IF;
796: IF GMIVDBL.ic_jrnl_mst_insert(x_ic_jrnl_mst_row, x_ic_jrnl_mst_row) THEN
797: x_return_status := FND_API.G_RET_STS_SUCCESS;
798: x_ic_adjs_jnl_row1.journal_id := x_ic_jrnl_mst_row.journal_id;
793: FND_MSG_PUB.Add;
794: RAISE FND_API.G_EXC_ERROR;
795: END IF;
796: IF GMIVDBL.ic_jrnl_mst_insert(x_ic_jrnl_mst_row, x_ic_jrnl_mst_row) THEN
797: x_return_status := FND_API.G_RET_STS_SUCCESS;
798: x_ic_adjs_jnl_row1.journal_id := x_ic_jrnl_mst_row.journal_id;
799: --Jalaj Srivastava Bug 2483656
800: IF ( (l_assign_type = 2)
801: AND (p_qty_rec.trans_type >=6)
810: FETCH get_doc_line INTO x_ic_adjs_jnl_row1.doc_line;
811: CLOSE get_doc_line;
812:
813: IF GMIVDBL.ic_adjs_jnl_insert(x_ic_adjs_jnl_row1,x_ic_adjs_jnl_row1) THEN
814: x_return_status := FND_API.G_RET_STS_SUCCESS;
815: IF (substr(x_ic_adjs_jnl_row1.trans_type,4,1) = 'I') THEN
816: GMIVQTY.construct_txn_rec
817: (x_ic_adjs_jnl_row1, l_tran_rec);
818: GMI_TRANS_ENGINE_PUB.create_completed_transaction
816: GMIVQTY.construct_txn_rec
817: (x_ic_adjs_jnl_row1, l_tran_rec);
818: GMI_TRANS_ENGINE_PUB.create_completed_transaction
819: ( p_api_version => 1.0
820: , p_init_msg_list => FND_API.G_FALSE
821: , p_commit => FND_API.G_FALSE
822: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
823: , p_tran_rec => l_tran_rec
824: , x_tran_row => l_tran_row1
817: (x_ic_adjs_jnl_row1, l_tran_rec);
818: GMI_TRANS_ENGINE_PUB.create_completed_transaction
819: ( p_api_version => 1.0
820: , p_init_msg_list => FND_API.G_FALSE
821: , p_commit => FND_API.G_FALSE
822: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
823: , p_tran_rec => l_tran_rec
824: , x_tran_row => l_tran_row1
825: , x_return_status => x_return_status
818: GMI_TRANS_ENGINE_PUB.create_completed_transaction
819: ( p_api_version => 1.0
820: , p_init_msg_list => FND_API.G_FALSE
821: , p_commit => FND_API.G_FALSE
822: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
823: , p_tran_rec => l_tran_rec
824: , x_tran_row => l_tran_row1
825: , x_return_status => x_return_status
826: , x_msg_count => x_msg_count
825: , x_return_status => x_return_status
826: , x_msg_count => x_msg_count
827: , x_msg_data => x_msg_data
828: );
829: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
830: THEN
831: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
832: END IF;
833: END IF; --IF (substr(x_ic_adjs_jnl_row1.trans_type,4,1) = 'I')
827: , x_msg_data => x_msg_data
828: );
829: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
830: THEN
831: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
832: END IF;
833: END IF; --IF (substr(x_ic_adjs_jnl_row1.trans_type,4,1) = 'I')
834:
835: IF substr(x_ic_adjs_jnl_row1.trans_type,1,3) IN ('TRN','STS','GRD') THEN
836: x_ic_adjs_jnl_row2.doc_id := x_ic_adjs_jnl_row1.doc_id;
837: x_ic_adjs_jnl_row2.journal_id := x_ic_adjs_jnl_row1.journal_id;
838: x_ic_adjs_jnl_row2.doc_line := x_ic_adjs_jnl_row1.doc_line + 1;
839: IF GMIVDBL.ic_adjs_jnl_insert(x_ic_adjs_jnl_row2, x_ic_adjs_jnl_row2) THEN
840: x_return_status := FND_API.G_RET_STS_SUCCESS;
841: IF (substr(x_ic_adjs_jnl_row1.trans_type,4,1) = 'I') THEN
842: GMIVQTY.construct_txn_rec
843: (x_ic_adjs_jnl_row2, l_tran_rec);
844: GMI_TRANS_ENGINE_PUB.create_completed_transaction
842: GMIVQTY.construct_txn_rec
843: (x_ic_adjs_jnl_row2, l_tran_rec);
844: GMI_TRANS_ENGINE_PUB.create_completed_transaction
845: ( p_api_version => 1.0
846: , p_init_msg_list => FND_API.G_FALSE
847: , p_commit => FND_API.G_FALSE
848: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
849: , p_tran_rec => l_tran_rec
850: , x_tran_row => l_tran_row2
843: (x_ic_adjs_jnl_row2, l_tran_rec);
844: GMI_TRANS_ENGINE_PUB.create_completed_transaction
845: ( p_api_version => 1.0
846: , p_init_msg_list => FND_API.G_FALSE
847: , p_commit => FND_API.G_FALSE
848: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
849: , p_tran_rec => l_tran_rec
850: , x_tran_row => l_tran_row2
851: , x_return_status => x_return_status
844: GMI_TRANS_ENGINE_PUB.create_completed_transaction
845: ( p_api_version => 1.0
846: , p_init_msg_list => FND_API.G_FALSE
847: , p_commit => FND_API.G_FALSE
848: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
849: , p_tran_rec => l_tran_rec
850: , x_tran_row => l_tran_row2
851: , x_return_status => x_return_status
852: , x_msg_count => x_msg_count
852: , x_msg_count => x_msg_count
853: , x_msg_data => x_msg_data
854: );
855:
856: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
857: THEN
858: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
859: END IF;
860: /* *********************************************************************
854: );
855:
856: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
857: THEN
858: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
859: END IF;
860: /* *********************************************************************
861: Jalaj Srivastava Bug 3282770
862: If it is a move immediate and moving allocations is
865: --{
866: IF (x_move_allocations = 'Y') THEN
867: GMIALLOC.UPDATE_PENDING_ALLOCATIONS
868: ( p_api_version => 1.0
869: ,p_init_msg_list => fnd_api.g_false
870: ,p_commit => fnd_api.g_false
871: ,p_validation_level => fnd_api.g_valid_level_full
872: ,x_return_status => x_return_status
873: ,x_msg_count => x_msg_count
866: IF (x_move_allocations = 'Y') THEN
867: GMIALLOC.UPDATE_PENDING_ALLOCATIONS
868: ( p_api_version => 1.0
869: ,p_init_msg_list => fnd_api.g_false
870: ,p_commit => fnd_api.g_false
871: ,p_validation_level => fnd_api.g_valid_level_full
872: ,x_return_status => x_return_status
873: ,x_msg_count => x_msg_count
874: ,x_msg_data => x_msg_data
867: GMIALLOC.UPDATE_PENDING_ALLOCATIONS
868: ( p_api_version => 1.0
869: ,p_init_msg_list => fnd_api.g_false
870: ,p_commit => fnd_api.g_false
871: ,p_validation_level => fnd_api.g_valid_level_full
872: ,x_return_status => x_return_status
873: ,x_msg_count => x_msg_count
874: ,x_msg_data => x_msg_data
875: ,pdoc_id => l_tran_rec.doc_id
877: ,pto_location => nvl(x_ic_adjs_jnl_row2.location,fnd_profile.value('IC$DEFAULT_LOCT'))
878: );
879:
880:
881: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
882: RAISE FND_API.G_EXC_ERROR;
883: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
884: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
885: END IF;
878: );
879:
880:
881: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
882: RAISE FND_API.G_EXC_ERROR;
883: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
884: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
885: END IF;
886:
879:
880:
881: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
882: RAISE FND_API.G_EXC_ERROR;
883: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
884: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
885: END IF;
886:
887: END IF;--}
880:
881: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
882: RAISE FND_API.G_EXC_ERROR;
883: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
884: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
885: END IF;
886:
887: END IF;--}
888:
887: END IF;--}
888:
889: END IF; --(substr(x_ic_adjs_jnl_row1.trans_type,4,1) = 'I')
890: ELSE --GMIVDBL.ic_adjs_jnl_insert(x_ic_adjs_jnl_row2, x_ic_adjs_jnl_row2)
891: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
892: END IF; --GMIVDBL.ic_adjs_jnl_insert(x_ic_adjs_jnl_row2, x_ic_adjs_jnl_row2)
893: END IF; --substr(x_ic_adjs_jnl_row1.trans_type,1,3) IN ('TRN','STS','GRD')
894: ELSE --GMIVDBL.ic_adjs_jnl_insert(x_ic_adjs_jnl_row1,x_ic_adjs_jnl_row1)
895: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
891: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
892: END IF; --GMIVDBL.ic_adjs_jnl_insert(x_ic_adjs_jnl_row2, x_ic_adjs_jnl_row2)
893: END IF; --substr(x_ic_adjs_jnl_row1.trans_type,1,3) IN ('TRN','STS','GRD')
894: ELSE --GMIVDBL.ic_adjs_jnl_insert(x_ic_adjs_jnl_row1,x_ic_adjs_jnl_row1)
895: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
896: END IF; --GMIVDBL.ic_adjs_jnl_insert(x_ic_adjs_jnl_row1,x_ic_adjs_jnl_row1)
897: ELSE --GMIVDBL.ic_jrnl_mst_insert(x_ic_jrnl_mst_row, x_ic_jrnl_mst_row)
898: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
899: END IF;
894: ELSE --GMIVDBL.ic_adjs_jnl_insert(x_ic_adjs_jnl_row1,x_ic_adjs_jnl_row1)
895: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
896: END IF; --GMIVDBL.ic_adjs_jnl_insert(x_ic_adjs_jnl_row1,x_ic_adjs_jnl_row1)
897: ELSE --GMIVDBL.ic_jrnl_mst_insert(x_ic_jrnl_mst_row, x_ic_jrnl_mst_row)
898: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
899: END IF;
900: END IF;
901:
902: /* Bug 1655794 - Generate the output log file with proper messages */
900: END IF;
901:
902: /* Bug 1655794 - Generate the output log file with proper messages */
903: /* upon sucessful run of the API. */
904: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
905: IF(x_ic_adjs_jnl_row1.trans_type = 'CREI') THEN
906: FND_MESSAGE.SET_NAME('GMI','IC_API_CRE_TRAN_POSTED');
907: ELSIF(x_ic_adjs_jnl_row1.trans_type = 'ADJI') THEN
908: FND_MESSAGE.SET_NAME('GMI','IC_API_ADJ_TRAN_POSTED');
945: FND_MESSAGE.SET_NAME('GMI','GMI_ALLOCATIONS_MOVED');
946: END IF;
947: FND_MSG_PUB.Add;
948:
949: IF FND_API.to_boolean(p_commit) THEN
950: COMMIT WORK;
951: END IF;
952: ELSE
953: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
949: IF FND_API.to_boolean(p_commit) THEN
950: COMMIT WORK;
951: END IF;
952: ELSE
953: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
954: END IF; --(x_return_status = FND_API.G_RET_STS_SUCCESS)
955: FND_MSG_PUB.Count_AND_GET
956: (p_count => x_msg_count, p_data => x_msg_data);
957: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
950: COMMIT WORK;
951: END IF;
952: ELSE
953: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
954: END IF; --(x_return_status = FND_API.G_RET_STS_SUCCESS)
955: FND_MSG_PUB.Count_AND_GET
956: (p_count => x_msg_count, p_data => x_msg_data);
957: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
958: ROLLBACK TO Create_Posting;
953: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
954: END IF; --(x_return_status = FND_API.G_RET_STS_SUCCESS)
955: FND_MSG_PUB.Count_AND_GET
956: (p_count => x_msg_count, p_data => x_msg_data);
957: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
958: ROLLBACK TO Create_Posting;
959: END IF;
960:
961: EXCEPTION
958: ROLLBACK TO Create_Posting;
959: END IF;
960:
961: EXCEPTION
962: WHEN FND_API.G_EXC_ERROR THEN
963: ROLLBACK TO Create_Posting;
964: x_return_status := FND_API.G_RET_STS_ERROR;
965: FND_MSG_PUB.Count_AND_GET
966: (p_count => x_msg_count, p_data => x_msg_data);
960:
961: EXCEPTION
962: WHEN FND_API.G_EXC_ERROR THEN
963: ROLLBACK TO Create_Posting;
964: x_return_status := FND_API.G_RET_STS_ERROR;
965: FND_MSG_PUB.Count_AND_GET
966: (p_count => x_msg_count, p_data => x_msg_data);
967: WHEN OTHERS THEN
968: ROLLBACK TO Create_Posting;
965: FND_MSG_PUB.Count_AND_GET
966: (p_count => x_msg_count, p_data => x_msg_data);
967: WHEN OTHERS THEN
968: ROLLBACK TO Create_Posting;
969: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
970:
971: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
972: FND_MSG_PUB.Count_AND_GET
973: (p_count => x_msg_count, p_data => x_msg_data);
994: IS
995: l_api_name VARCHAR2(30) := 'Inventory Transfer';
996: l_return_status NUMBER;
997: BEGIN
998: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
999:
1000: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
1001: FND_MSG_PUB.Count_AND_GET
1002: (p_count => x_msg_count, p_data => x_msg_data);