132: single start lot and single resulting lot.
133: Start Lot always gets stored in the 1st index position.
134: */
135:
136: x_return_status := FND_API.G_RET_STS_SUCCESS;
137: x_header_id := NULL;
138:
139: IF tab_index is NULL
140: THEN
279: x_return_status);
280: IF (l_debug = 1) THEN
281: INV_TRX_UTIL_PUB.trace('after returning from insert_mmtt:Stat:' || x_return_status || ':',g_pkg_name,9);
282: END IF;
283: IF (x_return_status = FND_API.G_RET_STS_ERROR)
284: THEN
285: IF (l_debug = 1) THEN
286: INV_TRX_UTIL_PUB.trace('FND_API.G_RET_STS_ERRO',g_pkg_name,9);
287: END IF;
282: END IF;
283: IF (x_return_status = FND_API.G_RET_STS_ERROR)
284: THEN
285: IF (l_debug = 1) THEN
286: INV_TRX_UTIL_PUB.trace('FND_API.G_RET_STS_ERRO',g_pkg_name,9);
287: END IF;
288: RAISE FND_API.G_EXC_ERROR ;
289: END IF;
290: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
284: THEN
285: IF (l_debug = 1) THEN
286: INV_TRX_UTIL_PUB.trace('FND_API.G_RET_STS_ERRO',g_pkg_name,9);
287: END IF;
288: RAISE FND_API.G_EXC_ERROR ;
289: END IF;
290: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
291: THEN
292: IF (l_debug = 1) THEN
286: INV_TRX_UTIL_PUB.trace('FND_API.G_RET_STS_ERRO',g_pkg_name,9);
287: END IF;
288: RAISE FND_API.G_EXC_ERROR ;
289: END IF;
290: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
291: THEN
292: IF (l_debug = 1) THEN
293: INV_TRX_UTIL_PUB.trace('FND_API.G_RET_STS_UNEXPERRO',g_pkg_name,9);
294: END IF;
289: END IF;
290: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
291: THEN
292: IF (l_debug = 1) THEN
293: INV_TRX_UTIL_PUB.trace('FND_API.G_RET_STS_UNEXPERRO',g_pkg_name,9);
294: END IF;
295: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
296: END IF;
297: x_header_id := tab_input(1).transaction_header_id;
291: THEN
292: IF (l_debug = 1) THEN
293: INV_TRX_UTIL_PUB.trace('FND_API.G_RET_STS_UNEXPERRO',g_pkg_name,9);
294: END IF;
295: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
296: END IF;
297: x_header_id := tab_input(1).transaction_header_id;
298: IF (l_debug = 1) THEN
299: INV_TRX_UTIL_PUB.trace('Header: '|| x_header_id ,g_pkg_name,9);
309: p_data => x_msg_data
310: );
311:
312: EXCEPTION
313: WHEN FND_API.G_EXC_ERROR THEN
314: ROLLBACK ;
315: x_return_status := FND_API.G_RET_STS_ERROR ;
316: FND_MSG_PUB.Count_And_Get
317: (p_encoded => FND_API.G_FALSE,
311:
312: EXCEPTION
313: WHEN FND_API.G_EXC_ERROR THEN
314: ROLLBACK ;
315: x_return_status := FND_API.G_RET_STS_ERROR ;
316: FND_MSG_PUB.Count_And_Get
317: (p_encoded => FND_API.G_FALSE,
318: p_count => x_msg_count,
319: p_data => x_msg_data);
313: WHEN FND_API.G_EXC_ERROR THEN
314: ROLLBACK ;
315: x_return_status := FND_API.G_RET_STS_ERROR ;
316: FND_MSG_PUB.Count_And_Get
317: (p_encoded => FND_API.G_FALSE,
318: p_count => x_msg_count,
319: p_data => x_msg_data);
320: IF (l_debug = 1) THEN
321: INV_TRX_UTIL_PUB.trace(x_msg_data || 'Close',g_pkg_name,9);
319: p_data => x_msg_data);
320: IF (l_debug = 1) THEN
321: INV_TRX_UTIL_PUB.trace(x_msg_data || 'Close',g_pkg_name,9);
322: END IF;
323: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
324: ROLLBACK ;
325: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
326: FND_MSG_PUB.Count_And_Get
327: (p_encoded => FND_API.G_FALSE,
321: INV_TRX_UTIL_PUB.trace(x_msg_data || 'Close',g_pkg_name,9);
322: END IF;
323: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
324: ROLLBACK ;
325: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
326: FND_MSG_PUB.Count_And_Get
327: (p_encoded => FND_API.G_FALSE,
328: p_count => x_msg_count,
329: p_data => x_msg_data);
323: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
324: ROLLBACK ;
325: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
326: FND_MSG_PUB.Count_And_Get
327: (p_encoded => FND_API.G_FALSE,
328: p_count => x_msg_count,
329: p_data => x_msg_data);
330: IF (l_debug = 1) THEN
331: INV_TRX_UTIL_PUB.trace(x_msg_data || 'Close',g_pkg_name,9);
332: END IF;
333: WHEN OTHERS
334: THEN
335: ROLLBACK ;
336: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
337: FND_MSG_PUB.Count_And_Get
338: (p_encoded => FND_API.G_FALSE,
339: p_count => x_msg_count,
340: p_data => x_msg_data);
334: THEN
335: ROLLBACK ;
336: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
337: FND_MSG_PUB.Count_And_Get
338: (p_encoded => FND_API.G_FALSE,
339: p_count => x_msg_count,
340: p_data => x_msg_data);
341: IF (l_debug = 1) THEN
342: INV_TRX_UTIL_PUB.trace(x_msg_data || 'Close',g_pkg_name,9);
355: IS
356: l_msg_data VARCHAR2(2000) := 'None..' ;
357: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
358: BEGIN
359: x_return_status := FND_API.G_RET_STS_SUCCESS;
360: BEGIN
361: l_msg_data := 'mtl_material_transactions_temp';
362: INSERT
363: INTO mtl_material_transactions_temp
654: IF (l_debug = 1) THEN
655: INV_TRX_UTIL_PUB.trace('inserted mtlt ' || p_ind,g_pkg_name,9);
656: END IF;
657: EXCEPTION
658: WHEN FND_API.G_EXC_ERROR THEN
659: x_return_status := FND_API.G_RET_STS_ERROR ;
660: IF (l_debug = 1) THEN
661: INV_TRX_UTIL_PUB.trace( 'G_EXC_ERROR:INV_LOT_COMMIT_FAILURE ' || l_msg_data || ':' || sqlerrm,g_pkg_name,9);
662: END IF;
655: INV_TRX_UTIL_PUB.trace('inserted mtlt ' || p_ind,g_pkg_name,9);
656: END IF;
657: EXCEPTION
658: WHEN FND_API.G_EXC_ERROR THEN
659: x_return_status := FND_API.G_RET_STS_ERROR ;
660: IF (l_debug = 1) THEN
661: INV_TRX_UTIL_PUB.trace( 'G_EXC_ERROR:INV_LOT_COMMIT_FAILURE ' || l_msg_data || ':' || sqlerrm,g_pkg_name,9);
662: END IF;
663: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
659: x_return_status := FND_API.G_RET_STS_ERROR ;
660: IF (l_debug = 1) THEN
661: INV_TRX_UTIL_PUB.trace( 'G_EXC_ERROR:INV_LOT_COMMIT_FAILURE ' || l_msg_data || ':' || sqlerrm,g_pkg_name,9);
662: END IF;
663: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
664: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
665: IF (l_debug = 1) THEN
666: INV_TRX_UTIL_PUB.trace( 'G_EXC_UNEXPECTED_ERROR:INV_LOT_COMMIT_FAILURE ' || l_msg_data || ':' || sqlerrm,g_pkg_name,9);
667: END IF;
660: IF (l_debug = 1) THEN
661: INV_TRX_UTIL_PUB.trace( 'G_EXC_ERROR:INV_LOT_COMMIT_FAILURE ' || l_msg_data || ':' || sqlerrm,g_pkg_name,9);
662: END IF;
663: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
664: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
665: IF (l_debug = 1) THEN
666: INV_TRX_UTIL_PUB.trace( 'G_EXC_UNEXPECTED_ERROR:INV_LOT_COMMIT_FAILURE ' || l_msg_data || ':' || sqlerrm,g_pkg_name,9);
667: END IF;
668: WHEN OTHERS THEN
665: IF (l_debug = 1) THEN
666: INV_TRX_UTIL_PUB.trace( 'G_EXC_UNEXPECTED_ERROR:INV_LOT_COMMIT_FAILURE ' || l_msg_data || ':' || sqlerrm,g_pkg_name,9);
667: END IF;
668: WHEN OTHERS THEN
669: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
670: FND_MESSAGE.SET_NAME('INV', 'INV_LOT_COMMIT_FAILURE');
671: -- INV_LOT_COMMIT_FAILURE: There has been a database insert error, please contact your dba or Oracle Support'
672: FND_MSG_PUB.ADD;
673: IF (l_debug = 1) THEN
701: BEGIN
702: IF (l_debug = 1) THEN
703: INV_TRX_UTIL_PUB.trace('in insert_mmtt',g_pkg_name,9);
704: END IF;
705: x_return_status := FND_API.G_RET_STS_SUCCESS;
706:
707: l_msg_data := 'select header_id from dual';
708: SELECT mtl_material_transactions_s.NEXTVAL
709: INTO l_header_id
735: WHEN NO_DATA_FOUND THEN
736: FND_MESSAGE.SET_NAME('INV', 'INV_NOOPEN_PERIOD_FOR_DATE');
737: FND_MESSAGE.SET_TOKEN('ATTRIBUTE1', SYSDATE);
738: FND_MSG_PUB.ADD;
739: x_return_status := FND_API.G_RET_STS_ERROR ;
740: IF (l_debug = 1) THEN
741: INV_TRX_UTIL_PUB.trace( 'INV_NOOPEN_PERIOD_FOR_DATE '
742: || ':' || sqlerrm,g_pkg_name,9);
743: END IF;
740: IF (l_debug = 1) THEN
741: INV_TRX_UTIL_PUB.trace( 'INV_NOOPEN_PERIOD_FOR_DATE '
742: || ':' || sqlerrm,g_pkg_name,9);
743: END IF;
744: RAISE FND_API.G_EXC_ERROR ;
745: WHEN OTHERS THEN
746: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
747: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
748: IF (l_debug = 1) THEN
742: || ':' || sqlerrm,g_pkg_name,9);
743: END IF;
744: RAISE FND_API.G_EXC_ERROR ;
745: WHEN OTHERS THEN
746: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
747: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
748: IF (l_debug = 1) THEN
749: INV_TRX_UTIL_PUB.trace( 'Others:INV_NOOPEN_PERIOD_FOR_DATE '
750: || ':' || sqlerrm,g_pkg_name,9);
743: END IF;
744: RAISE FND_API.G_EXC_ERROR ;
745: WHEN OTHERS THEN
746: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
747: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
748: IF (l_debug = 1) THEN
749: INV_TRX_UTIL_PUB.trace( 'Others:INV_NOOPEN_PERIOD_FOR_DATE '
750: || ':' || sqlerrm,g_pkg_name,9);
751: END IF;
748: IF (l_debug = 1) THEN
749: INV_TRX_UTIL_PUB.trace( 'Others:INV_NOOPEN_PERIOD_FOR_DATE '
750: || ':' || sqlerrm,g_pkg_name,9);
751: END IF;
752: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
753: END;
754:
755: /* For Lot Translate, need to get the distribution account id and populate
756: into mmtt */
781: FND_MSG_PUB.ADD;
782: IF (l_debug = 1) THEN
783: INV_TRX_UTIL_PUB.trace('INV_NO_DIST_ACCOUNT_ID' || ':' || sqlerrm, g_pkg_name, 9);
784: END IF;
785: x_return_status := FND_API.G_RET_STS_ERROR;
786: RAISE FND_API.G_EXC_ERROR;
787: END IF;
788:
789: EXCEPTION
782: IF (l_debug = 1) THEN
783: INV_TRX_UTIL_PUB.trace('INV_NO_DIST_ACCOUNT_ID' || ':' || sqlerrm, g_pkg_name, 9);
784: END IF;
785: x_return_status := FND_API.G_RET_STS_ERROR;
786: RAISE FND_API.G_EXC_ERROR;
787: END IF;
788:
789: EXCEPTION
790: WHEN NO_DATA_FOUND THEN
792: FND_MSG_PUB.ADD;
793: IF (l_debug = 1) THEN
794: INV_TRX_UTIL_PUB.trace('INV_NO_DIST_ACCOUNT_ID' || ':' || sqlerrm, g_pkg_name, 9);
795: END IF;
796: x_return_status := FND_API.G_RET_STS_ERROR;
797: RAISE FND_API.G_EXC_ERROR;
798: WHEN OTHERS THEN
799: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
800: FND_MESSAGE.SET_NAME('INV', 'INV_NO_DIST_ACCOUNT_ID');
793: IF (l_debug = 1) THEN
794: INV_TRX_UTIL_PUB.trace('INV_NO_DIST_ACCOUNT_ID' || ':' || sqlerrm, g_pkg_name, 9);
795: END IF;
796: x_return_status := FND_API.G_RET_STS_ERROR;
797: RAISE FND_API.G_EXC_ERROR;
798: WHEN OTHERS THEN
799: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
800: FND_MESSAGE.SET_NAME('INV', 'INV_NO_DIST_ACCOUNT_ID');
801: FND_MSG_PUB.ADD;
795: END IF;
796: x_return_status := FND_API.G_RET_STS_ERROR;
797: RAISE FND_API.G_EXC_ERROR;
798: WHEN OTHERS THEN
799: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
800: FND_MESSAGE.SET_NAME('INV', 'INV_NO_DIST_ACCOUNT_ID');
801: FND_MSG_PUB.ADD;
802: IF (l_debug = 1) THEN
803: INV_TRX_UTIL_PUB.trace('INV_NO_DIST_ACCOUNT_ID' || ':' || sqlerrm, g_pkg_name, 9);
801: FND_MSG_PUB.ADD;
802: IF (l_debug = 1) THEN
803: INV_TRX_UTIL_PUB.trace('INV_NO_DIST_ACCOUNT_ID' || ':' || sqlerrm, g_pkg_name, 9);
804: END IF;
805: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
806: END;
807:
808: END IF;
809:
883: 'msgt ' || l_msg_count ||
884: 'data ' || l_msg_data,g_pkg_name,9);
885: END IF;
886:
887: IF (x_return_status = FND_API.G_RET_STS_ERROR)
888: THEN
889: IF (l_debug = 1) THEN
890: INV_TRX_UTIL_PUB.trace('FND_API.G_RET_STS_ERROR',g_pkg_name,9);
891: END IF;
886:
887: IF (x_return_status = FND_API.G_RET_STS_ERROR)
888: THEN
889: IF (l_debug = 1) THEN
890: INV_TRX_UTIL_PUB.trace('FND_API.G_RET_STS_ERROR',g_pkg_name,9);
891: END IF;
892: FND_MESSAGE.SET_NAME('WMS', 'WMS_LPN_GENERATION_FAIL');
893: FND_MSG_PUB.ADD;
894: RAISE FND_API.G_EXC_ERROR ;
890: INV_TRX_UTIL_PUB.trace('FND_API.G_RET_STS_ERROR',g_pkg_name,9);
891: END IF;
892: FND_MESSAGE.SET_NAME('WMS', 'WMS_LPN_GENERATION_FAIL');
893: FND_MSG_PUB.ADD;
894: RAISE FND_API.G_EXC_ERROR ;
895: END IF;
896: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
897: THEN
898: FND_MESSAGE.SET_NAME('WMS', 'WMS_LPN_GENERATION_FAIL');
892: FND_MESSAGE.SET_NAME('WMS', 'WMS_LPN_GENERATION_FAIL');
893: FND_MSG_PUB.ADD;
894: RAISE FND_API.G_EXC_ERROR ;
895: END IF;
896: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
897: THEN
898: FND_MESSAGE.SET_NAME('WMS', 'WMS_LPN_GENERATION_FAIL');
899: FND_MSG_PUB.ADD;
900: IF (l_debug = 1) THEN
897: THEN
898: FND_MESSAGE.SET_NAME('WMS', 'WMS_LPN_GENERATION_FAIL');
899: FND_MSG_PUB.ADD;
900: IF (l_debug = 1) THEN
901: INV_TRX_UTIL_PUB.trace('FND_API.G_RET_STS_UNEXPERROR',g_pkg_name,9);
902: END IF;
903: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
904: END IF;
905:
899: FND_MSG_PUB.ADD;
900: IF (l_debug = 1) THEN
901: INV_TRX_UTIL_PUB.trace('FND_API.G_RET_STS_UNEXPERROR',g_pkg_name,9);
902: END IF;
903: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
904: END IF;
905:
906: WHEN OTHERS THEN
907: IF (l_debug = 1) THEN
913: END IF;
914: FND_MESSAGE.SET_NAME('INV', 'INV_FIELD_INVALID');
915: FND_MESSAGE.SET_TOKEN('ENTITY1', tab_input(ind).lpn_number);
916: FND_MSG_PUB.ADD;
917: RAISE FND_API.G_EXC_ERROR ;
918: EXIT;
919: END ;
920: ELSE
921: l_xfr_lpn_id := tab_input(ind).xfr_lpn_id;
1026: p_parent_id => l_parent_id ,
1027: p_dist_account_id => l_dist_account_id,
1028: x_return_status => x_return_status);
1029:
1030: IF (x_return_status = FND_API.G_RET_STS_ERROR)
1031: THEN
1032: IF (l_debug = 1) THEN
1033: INV_TRX_UTIL_PUB.trace('Split..FND_API.G_RET_STS_ERROR',g_pkg_name,9);
1034: END IF;
1029:
1030: IF (x_return_status = FND_API.G_RET_STS_ERROR)
1031: THEN
1032: IF (l_debug = 1) THEN
1033: INV_TRX_UTIL_PUB.trace('Split..FND_API.G_RET_STS_ERROR',g_pkg_name,9);
1034: END IF;
1035: RAISE FND_API.G_EXC_ERROR ;
1036: END IF;
1037: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
1031: THEN
1032: IF (l_debug = 1) THEN
1033: INV_TRX_UTIL_PUB.trace('Split..FND_API.G_RET_STS_ERROR',g_pkg_name,9);
1034: END IF;
1035: RAISE FND_API.G_EXC_ERROR ;
1036: END IF;
1037: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
1038: THEN
1039: IF (l_debug = 1) THEN
1033: INV_TRX_UTIL_PUB.trace('Split..FND_API.G_RET_STS_ERROR',g_pkg_name,9);
1034: END IF;
1035: RAISE FND_API.G_EXC_ERROR ;
1036: END IF;
1037: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
1038: THEN
1039: IF (l_debug = 1) THEN
1040: INV_TRX_UTIL_PUB.trace('Split..FND_API.G_RET_STS_UNEXPERROR',g_pkg_name,9);
1041: END IF;
1036: END IF;
1037: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
1038: THEN
1039: IF (l_debug = 1) THEN
1040: INV_TRX_UTIL_PUB.trace('Split..FND_API.G_RET_STS_UNEXPERROR',g_pkg_name,9);
1041: END IF;
1042: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1043: END IF;
1044:
1038: THEN
1039: IF (l_debug = 1) THEN
1040: INV_TRX_UTIL_PUB.trace('Split..FND_API.G_RET_STS_UNEXPERROR',g_pkg_name,9);
1041: END IF;
1042: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1043: END IF;
1044:
1045: END LOOP;
1046: END IF;
1099: p_parent_id => l_parent_id ,
1100: p_dist_account_id => l_dist_account_id,
1101: x_return_status => x_return_status);
1102:
1103: IF (x_return_status = FND_API.G_RET_STS_ERROR)
1104: THEN
1105: IF (l_debug = 1) THEN
1106: INV_TRX_UTIL_PUB.trace('Merge..FND_API.G_RET_STS_ERROR',g_pkg_name,9);
1107: INV_TRX_UTIL_PUB.trace('x_msg_data:x_label_status:'|| l_msg_data || ':'
1102:
1103: IF (x_return_status = FND_API.G_RET_STS_ERROR)
1104: THEN
1105: IF (l_debug = 1) THEN
1106: INV_TRX_UTIL_PUB.trace('Merge..FND_API.G_RET_STS_ERROR',g_pkg_name,9);
1107: INV_TRX_UTIL_PUB.trace('x_msg_data:x_label_status:'|| l_msg_data || ':'
1108: || l_label_status || ':' ,g_pkg_name,9);
1109: END IF;
1110: RAISE FND_API.G_EXC_ERROR ;
1106: INV_TRX_UTIL_PUB.trace('Merge..FND_API.G_RET_STS_ERROR',g_pkg_name,9);
1107: INV_TRX_UTIL_PUB.trace('x_msg_data:x_label_status:'|| l_msg_data || ':'
1108: || l_label_status || ':' ,g_pkg_name,9);
1109: END IF;
1110: RAISE FND_API.G_EXC_ERROR ;
1111: END IF;
1112: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
1113: THEN
1114: IF (l_debug = 1) THEN
1108: || l_label_status || ':' ,g_pkg_name,9);
1109: END IF;
1110: RAISE FND_API.G_EXC_ERROR ;
1111: END IF;
1112: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
1113: THEN
1114: IF (l_debug = 1) THEN
1115: INV_TRX_UTIL_PUB.trace('Merge..FND_API.G_RET_STS_UNEXPERROR',g_pkg_name,9);
1116: INV_TRX_UTIL_PUB.trace('x_msg_data:x_label_status:'|| l_msg_data || ':'
1111: END IF;
1112: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
1113: THEN
1114: IF (l_debug = 1) THEN
1115: INV_TRX_UTIL_PUB.trace('Merge..FND_API.G_RET_STS_UNEXPERROR',g_pkg_name,9);
1116: INV_TRX_UTIL_PUB.trace('x_msg_data:x_label_status:'|| l_msg_data || ':'
1117: || l_label_status || ':' ,g_pkg_name,9);
1118: END IF;
1119: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1115: INV_TRX_UTIL_PUB.trace('Merge..FND_API.G_RET_STS_UNEXPERROR',g_pkg_name,9);
1116: INV_TRX_UTIL_PUB.trace('x_msg_data:x_label_status:'|| l_msg_data || ':'
1117: || l_label_status || ':' ,g_pkg_name,9);
1118: END IF;
1119: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1120: END IF;
1121:
1122: END LOOP;
1123: END IF;
1121:
1122: END LOOP;
1123: END IF;
1124: EXCEPTION
1125: WHEN FND_API.G_EXC_ERROR THEN
1126: x_return_status := FND_API.G_RET_STS_ERROR ;
1127: IF (l_debug = 1) THEN
1128: INV_TRX_UTIL_PUB.trace('insert_mmtt:G_EXC_ERROR: ' || sqlerrm ,g_pkg_name,9);
1129: END IF;
1122: END LOOP;
1123: END IF;
1124: EXCEPTION
1125: WHEN FND_API.G_EXC_ERROR THEN
1126: x_return_status := FND_API.G_RET_STS_ERROR ;
1127: IF (l_debug = 1) THEN
1128: INV_TRX_UTIL_PUB.trace('insert_mmtt:G_EXC_ERROR: ' || sqlerrm ,g_pkg_name,9);
1129: END IF;
1130: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1126: x_return_status := FND_API.G_RET_STS_ERROR ;
1127: IF (l_debug = 1) THEN
1128: INV_TRX_UTIL_PUB.trace('insert_mmtt:G_EXC_ERROR: ' || sqlerrm ,g_pkg_name,9);
1129: END IF;
1130: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1131: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1132: IF (l_debug = 1) THEN
1133: INV_TRX_UTIL_PUB.trace('insert_mmtt:G_EXC_UNEXPECTED_ERROR: ' || sqlerrm ,g_pkg_name,9);
1134: END IF;
1127: IF (l_debug = 1) THEN
1128: INV_TRX_UTIL_PUB.trace('insert_mmtt:G_EXC_ERROR: ' || sqlerrm ,g_pkg_name,9);
1129: END IF;
1130: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1131: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1132: IF (l_debug = 1) THEN
1133: INV_TRX_UTIL_PUB.trace('insert_mmtt:G_EXC_UNEXPECTED_ERROR: ' || sqlerrm ,g_pkg_name,9);
1134: END IF;
1135: WHEN OTHERS
1133: INV_TRX_UTIL_PUB.trace('insert_mmtt:G_EXC_UNEXPECTED_ERROR: ' || sqlerrm ,g_pkg_name,9);
1134: END IF;
1135: WHEN OTHERS
1136: THEN
1137: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1138: IF (l_debug = 1) THEN
1139: INV_TRX_UTIL_PUB.trace('FND_API.G_RET_STS_UNEXP_ERROR; outer most others' || sqlerrm,g_pkg_name,9);
1140: INV_TRX_UTIL_PUB.trace('other outer most...file closed' ,g_pkg_name,9);
1141: INV_TRX_UTIL_PUB.trace(l_msg_data,g_pkg_name,9);
1135: WHEN OTHERS
1136: THEN
1137: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1138: IF (l_debug = 1) THEN
1139: INV_TRX_UTIL_PUB.trace('FND_API.G_RET_STS_UNEXP_ERROR; outer most others' || sqlerrm,g_pkg_name,9);
1140: INV_TRX_UTIL_PUB.trace('other outer most...file closed' ,g_pkg_name,9);
1141: INV_TRX_UTIL_PUB.trace(l_msg_data,g_pkg_name,9);
1142: END IF;
1143: END insert_mmtt;
1169: INV_Globals.G_type_inv_lot_translate);
1170: -- (82, 83, 84);
1171: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1172: BEGIN
1173: x_return_status := FND_API.G_RET_STS_SUCCESS;
1174: x_wmsinstall := 'N';
1175: x_wmsorg := 'N';
1176: x_split_txnname := '';
1177: x_merge_txnname := '';
1197: FND_MESSAGE.SET_TOKEN('ENTITY1', INV_Globals.G_type_inv_lot_split || ',' ||
1198: INV_Globals.G_type_inv_lot_merge || ',' ||
1199: INV_Globals.G_type_inv_lot_translate);
1200: FND_MSG_PUB.ADD;
1201: RAISE FND_API.G_EXC_ERROR ;
1202:
1203: END;
1204:
1205: BEGIN
1233: EXCEPTION
1234: WHEN NO_DATA_FOUND THEN
1235: FND_MESSAGE.SET_NAME('INV', 'INV_NO_LOCATOR_CONTROL_ORG');
1236: FND_MSG_PUB.ADD;
1237: RAISE FND_API.G_EXC_ERROR ;
1238: WHEN OTHERS THEN
1239: FND_MESSAGE.SET_NAME('INV', 'INV_NO_LOCATOR_CONTROL_ORG');
1240: FND_MSG_PUB.ADD;
1241: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1237: RAISE FND_API.G_EXC_ERROR ;
1238: WHEN OTHERS THEN
1239: FND_MESSAGE.SET_NAME('INV', 'INV_NO_LOCATOR_CONTROL_ORG');
1240: FND_MSG_PUB.ADD;
1241: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1242: END;
1243:
1244: -- Check if the WMS is installed ?
1245: BEGIN
1253: WHEN OTHERS THEN
1254: FND_MESSAGE.SET_NAME('WMS', 'WMS_INSTALL_CHK_ERROR');
1255: -- WMS_INSTALL_CHK_ERROR : Error determining if WMS is Installed
1256: FND_MSG_PUB.ADD;
1257: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1258: END;
1259:
1260: -- Check if the organization is a WMS organization ?
1261: BEGIN
1269: WHEN OTHERS THEN
1270: FND_MESSAGE.SET_NAME('INV', 'INV_WMS_ORG');
1271: -- INV_WMS_ORG: Error Determining if Organization is WMS enabled
1272: FND_MSG_PUB.ADD;
1273: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1274: END;
1275:
1276: x_return_status := FND_API.G_RET_STS_SUCCESS;
1277: FND_MSG_PUB.Count_And_Get
1272: FND_MSG_PUB.ADD;
1273: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1274: END;
1275:
1276: x_return_status := FND_API.G_RET_STS_SUCCESS;
1277: FND_MSG_PUB.Count_And_Get
1278: ( p_count => x_msg_count ,
1279: p_data => x_msg_data
1280: );
1278: ( p_count => x_msg_count ,
1279: p_data => x_msg_data
1280: );
1281: EXCEPTION
1282: WHEN FND_API.G_EXC_ERROR THEN
1283: x_return_status := FND_API.G_RET_STS_ERROR ;
1284: FND_MSG_PUB.Count_And_Get
1285: (p_encoded => FND_API.G_FALSE,
1286: p_count => x_msg_count,
1279: p_data => x_msg_data
1280: );
1281: EXCEPTION
1282: WHEN FND_API.G_EXC_ERROR THEN
1283: x_return_status := FND_API.G_RET_STS_ERROR ;
1284: FND_MSG_PUB.Count_And_Get
1285: (p_encoded => FND_API.G_FALSE,
1286: p_count => x_msg_count,
1287: p_data => x_msg_data);
1281: EXCEPTION
1282: WHEN FND_API.G_EXC_ERROR THEN
1283: x_return_status := FND_API.G_RET_STS_ERROR ;
1284: FND_MSG_PUB.Count_And_Get
1285: (p_encoded => FND_API.G_FALSE,
1286: p_count => x_msg_count,
1287: p_data => x_msg_data);
1288: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1289: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1284: FND_MSG_PUB.Count_And_Get
1285: (p_encoded => FND_API.G_FALSE,
1286: p_count => x_msg_count,
1287: p_data => x_msg_data);
1288: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1289: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1290: FND_MSG_PUB.Count_And_Get
1291: (p_encoded => FND_API.G_FALSE,
1292: p_count => x_msg_count,
1285: (p_encoded => FND_API.G_FALSE,
1286: p_count => x_msg_count,
1287: p_data => x_msg_data);
1288: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1289: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1290: FND_MSG_PUB.Count_And_Get
1291: (p_encoded => FND_API.G_FALSE,
1292: p_count => x_msg_count,
1293: p_data => x_msg_data);
1287: p_data => x_msg_data);
1288: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1289: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1290: FND_MSG_PUB.Count_And_Get
1291: (p_encoded => FND_API.G_FALSE,
1292: p_count => x_msg_count,
1293: p_data => x_msg_data);
1294: WHEN OTHERS THEN
1295: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1291: (p_encoded => FND_API.G_FALSE,
1292: p_count => x_msg_count,
1293: p_data => x_msg_data);
1294: WHEN OTHERS THEN
1295: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1296: FND_MSG_PUB.Count_And_Get
1297: (p_encoded => FND_API.G_FALSE,
1298: p_count => x_msg_count,
1299: p_data => x_msg_data);
1293: p_data => x_msg_data);
1294: WHEN OTHERS THEN
1295: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1296: FND_MSG_PUB.Count_And_Get
1297: (p_encoded => FND_API.G_FALSE,
1298: p_count => x_msg_count,
1299: p_data => x_msg_data);
1300:
1301: END select_init_parameters;