DBA Data[Home] [Help]

APPS.INV_CALCULATE_EXP_DATE dependencies on FND_API

Line 135: x_return_status := FND_API.G_RET_STS_SUCCESS;

131: , p_secondary_uom_code IN VARCHAR2
132: , x_return_status OUT NOCOPY VARCHAR2
133: ) IS
134: BEGIN
135: x_return_status := FND_API.G_RET_STS_SUCCESS;
136:
137: IF g_mti_tbl.COUNT > 0 THEN
138: g_mti_tbl.DELETE;
139: END IF;

Line 169: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

165: g_mti_tbl(0).secondary_uom_code := p_secondary_uom_code;
166:
167: EXCEPTION
168: WHEN OTHERS THEN
169: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
170: IF (l_debug = 1) THEN
171: mydebug('WHEN OTHERS exception : '||SQLERRM, 'GET_TXN_ID');
172: END IF;
173: END assign_mti_rec;

Line 220: x_return_status := FND_API.G_RET_STS_SUCCESS;

216: , p_secondary_uom_code IN VARCHAR2
217: , x_return_status OUT NOCOPY VARCHAR2
218: ) IS
219: BEGIN
220: x_return_status := FND_API.G_RET_STS_SUCCESS;
221:
222: IF g_mmtt_tbl.COUNT > 0 THEN
223: g_mmtt_tbl.DELETE;
224: END IF;

Line 254: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

250: g_mmtt_tbl(0).secondary_uom_code := p_secondary_uom_code;
251:
252: EXCEPTION
253: WHEN OTHERS THEN
254: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
255: IF (l_debug = 1) THEN
256: mydebug('WHEN OTHERS exception : '||SQLERRM, 'GET_TXN_ID');
257: END IF;
258: END assign_mmtt_rec;

Line 343: x_return_status := FND_API.G_RET_STS_SUCCESS;

339: ,x_return_status OUT NOCOPY VARCHAR2
340: ) IS
341: orig_date DATE;
342: BEGIN
343: x_return_status := FND_API.G_RET_STS_SUCCESS;
344: BEGIN /*begin segment 2 */
345: SELECT origination_date
346: INTO x_orig_date
347: FROM mtl_lot_numbers

Line 373: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

369: END;
370: EXCEPTION
371: WHEN OTHERS THEN
372: x_orig_date := NULL;
373: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
374: END get_origination_date;
375:
376: -- bug#6073680 START
377: -- Procedure to determine if lot is an existing lot.

Line 388: x_return_status := FND_API.G_RET_STS_SUCCESS;

384: ,x_return_status OUT NOCOPY VARCHAR2
385: ) IS
386: l_lot_exists NUMBER;
387: BEGIN
388: x_return_status := FND_API.G_RET_STS_SUCCESS;
389: l_lot_exists := 0;
390: x_lot_exist := 'FALSE';
391: BEGIN /*begin segment 2 */
392: SELECT 1

Line 410: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

406: END IF;
407: EXCEPTION
408: WHEN OTHERS THEN
409: x_lot_exist := 'FALSE';
410: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
411: END check_lot_exists;
412: -- bug#6073680 END
413:
414: -- Procedure to return the lot expiration date. This will call the custom lot expiration code.

Line 440: x_return_status := FND_API.G_RET_STS_SUCCESS;

436: WHERE msi.inventory_item_id = c_inventory_item_id
437: AND msi.organization_id = c_organization_id;
438: BEGIN
439: /* Initialize return status to success */
440: x_return_status := FND_API.G_RET_STS_SUCCESS;
441:
442: IF ((p_table = 1 AND p_mti_trx_rec.inventory_item_id IS NOT NULL
443: AND p_mti_trx_rec.organization_id IS NOT NULL)
444: OR

Line 501: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

497:
498:
499: EXCEPTION
500: WHEN OTHERS THEN
501: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
502: IF (l_debug = 1) THEN
503: mydebug('WHEN OTHERS exception : '||SQLERRM, 'GET_TXN_ID');
504: END IF;
505: END get_lot_expiration_date;

Line 606: x_return_status := FND_API.G_RET_STS_SUCCESS;

602: l_exc_error EXCEPTION;
603: l_exc_unexpected_error EXCEPTION;
604:
605: BEGIN
606: x_return_status := FND_API.G_RET_STS_SUCCESS;
607:
608: /* Populating the variables and calling the overloaded API */
609:
610: l_in_lot_rec.inventory_item_id := p_inventory_item_id;

Line 777: l_init_msg_list := fnd_api.g_false;

773: l_in_lot_rec.d_attribute10 := p_d_attribute10;
774: END IF;
775: --END BUG 4748451
776: l_api_version := 1.0;
777: l_init_msg_list := fnd_api.g_false;
778: l_commit := fnd_api.g_false;
779:
780: /* Calling the overloaded procedure */
781: inv_lot_api_pub.Update_Inv_lot(

Line 778: l_commit := fnd_api.g_false;

774: END IF;
775: --END BUG 4748451
776: l_api_version := 1.0;
777: l_init_msg_list := fnd_api.g_false;
778: l_commit := fnd_api.g_false;
779:
780: /* Calling the overloaded procedure */
781: inv_lot_api_pub.Update_Inv_lot(
782: x_return_status => l_return_status

Line 796: IF l_return_status = fnd_api.g_ret_sts_error THEN

792:
793: IF l_debug = 1 THEN
794: mydebug('Program Update_Inv_lot return ' || l_return_status, 9);
795: END IF;
796: IF l_return_status = fnd_api.g_ret_sts_error THEN
797: IF l_debug = 1 THEN
798: mydebug('Program Update_Inv_lot has failed with a user defined exception', 9);
799: END IF;
800: RAISE l_exc_error;

Line 801: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN

797: IF l_debug = 1 THEN
798: mydebug('Program Update_Inv_lot has failed with a user defined exception', 9);
799: END IF;
800: RAISE l_exc_error;
801: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
802: IF l_debug = 1 THEN
803: mydebug('Program Update_Inv_lot has failed with a Unexpected exception', 9);
804: END IF;
805: FND_MESSAGE.SET_NAME('INV','INV_PROGRAM_ERROR');

Line 813: x_return_status := fnd_api.g_ret_sts_error;

809: END IF;
810:
811: EXCEPTION
812: WHEN NO_DATA_FOUND THEN
813: x_return_status := fnd_api.g_ret_sts_error;
814: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
815: if( x_msg_count > 1 ) then
816: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
817: end if;

Line 814: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);

810:
811: EXCEPTION
812: WHEN NO_DATA_FOUND THEN
813: x_return_status := fnd_api.g_ret_sts_error;
814: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
815: if( x_msg_count > 1 ) then
816: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
817: end if;
818: mydebug('Upd Inv Lot Attr: In No data found ' || SQLERRM, 9);

Line 816: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);

812: WHEN NO_DATA_FOUND THEN
813: x_return_status := fnd_api.g_ret_sts_error;
814: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
815: if( x_msg_count > 1 ) then
816: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
817: end if;
818: mydebug('Upd Inv Lot Attr: In No data found ' || SQLERRM, 9);
819: WHEN l_exc_error THEN
820: x_return_status := fnd_api.g_ret_sts_error;

Line 820: x_return_status := fnd_api.g_ret_sts_error;

816: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
817: end if;
818: mydebug('Upd Inv Lot Attr: In No data found ' || SQLERRM, 9);
819: WHEN l_exc_error THEN
820: x_return_status := fnd_api.g_ret_sts_error;
821: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
822: if( x_msg_count > 1 ) then
823: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
824: end if;

Line 821: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);

817: end if;
818: mydebug('Upd Inv Lot Attr: In No data found ' || SQLERRM, 9);
819: WHEN l_exc_error THEN
820: x_return_status := fnd_api.g_ret_sts_error;
821: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
822: if( x_msg_count > 1 ) then
823: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
824: end if;
825: mydebug('Upd Inv Lot Attr: In l_exc_error ' || SQLERRM, 9);

Line 823: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);

819: WHEN l_exc_error THEN
820: x_return_status := fnd_api.g_ret_sts_error;
821: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
822: if( x_msg_count > 1 ) then
823: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
824: end if;
825: mydebug('Upd Inv Lot Attr: In l_exc_error ' || SQLERRM, 9);
826: WHEN l_exc_unexpected_error THEN
827: x_return_status := fnd_api.g_ret_sts_unexp_error;

Line 827: x_return_status := fnd_api.g_ret_sts_unexp_error;

823: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
824: end if;
825: mydebug('Upd Inv Lot Attr: In l_exc_error ' || SQLERRM, 9);
826: WHEN l_exc_unexpected_error THEN
827: x_return_status := fnd_api.g_ret_sts_unexp_error;
828: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
829: if ( x_msg_count > 1 ) then
830: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
831: end if;

Line 828: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);

824: end if;
825: mydebug('Upd Inv Lot Attr: In l_exc_error ' || SQLERRM, 9);
826: WHEN l_exc_unexpected_error THEN
827: x_return_status := fnd_api.g_ret_sts_unexp_error;
828: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
829: if ( x_msg_count > 1 ) then
830: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
831: end if;
832: mydebug('In l_exc_unexpected_error ' || SQLERRM, 9);

Line 830: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);

826: WHEN l_exc_unexpected_error THEN
827: x_return_status := fnd_api.g_ret_sts_unexp_error;
828: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
829: if ( x_msg_count > 1 ) then
830: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
831: end if;
832: mydebug('In l_exc_unexpected_error ' || SQLERRM, 9);
833: WHEN OTHERS THEN
834: x_return_status := fnd_api.g_ret_sts_unexp_error;

Line 834: x_return_status := fnd_api.g_ret_sts_unexp_error;

830: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
831: end if;
832: mydebug('In l_exc_unexpected_error ' || SQLERRM, 9);
833: WHEN OTHERS THEN
834: x_return_status := fnd_api.g_ret_sts_unexp_error;
835: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
836: if( x_msg_count > 1 ) then
837: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
838: end if;

Line 835: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);

831: end if;
832: mydebug('In l_exc_unexpected_error ' || SQLERRM, 9);
833: WHEN OTHERS THEN
834: x_return_status := fnd_api.g_ret_sts_unexp_error;
835: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
836: if( x_msg_count > 1 ) then
837: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
838: end if;
839: mydebug('Upd Inv Lot Attr: In others ' || SQLERRM, 9);

Line 837: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);

833: WHEN OTHERS THEN
834: x_return_status := fnd_api.g_ret_sts_unexp_error;
835: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
836: if( x_msg_count > 1 ) then
837: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
838: end if;
839: mydebug('Upd Inv Lot Attr: In others ' || SQLERRM, 9);
840: END;
841: