38: END IF;
39:
40: -- Initialize message list if p_init_msg_list is set to TRUE.
41: IF FND_API.to_Boolean( p_init_msg_list ) THEN
42: FND_MSG_PUB.initialize;
43: END IF;
44:
45:
46: -- validate the transaction_type_id, transaction_action_id and transaction_source_type_id
502: END IF;
503: END IF;
504:
505: -- Standard call to get message count and if count is 1, get message info.
506: FND_MSG_PUB.Count_And_Get
507: (p_count => x_msg_count,
508: p_data => x_msg_data);
509:
510: EXCEPTION
511: WHEN NO_DATA_FOUND THEN
512: ROLLBACK TO sp_insert_mmtt;
513: x_return_status := FND_API.G_RET_STS_ERROR;
514: FND_MESSAGE.SET_NAME('INV', 'INV_TRX_TYPE_ERROR');
515: FND_MSG_PUB.ADD;
516: IF (l_debug = 1) THEN
517: inv_log_util.trace('insert mmtt .. EXCEP NO_DATA_FOUND : ', g_pkg_name, 9);
518: END IF;
519: WHEN FND_API.G_EXC_ERROR THEN
518: END IF;
519: WHEN FND_API.G_EXC_ERROR THEN
520: ROLLBACK TO sp_insert_mmtt;
521: x_return_status := FND_API.G_RET_STS_ERROR ;
522: FND_MSG_PUB.Count_And_Get
523: (p_encoded => FND_API.G_FALSE,
524: p_count => x_msg_count,
525: p_data => x_msg_data);
526: IF (l_debug = 1) THEN
528: END IF;
529: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
530: ROLLBACK TO sp_insert_mmtt;
531: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
532: FND_MSG_PUB.Count_And_Get
533: (p_encoded => FND_API.G_FALSE,
534: p_count => x_msg_count,
535: p_data => x_msg_data);
536: IF (l_debug = 1) THEN
538: END IF;
539: WHEN OTHERS THEN
540: ROLLBACK TO sp_insert_mmtt;
541: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
542: IF FND_MSG_PUB.Check_Msg_Level
543: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
544: THEN
545: FND_MSG_PUB.Add_Exc_Msg
546: (G_PKG_NAME,
539: WHEN OTHERS THEN
540: ROLLBACK TO sp_insert_mmtt;
541: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
542: IF FND_MSG_PUB.Check_Msg_Level
543: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
544: THEN
545: FND_MSG_PUB.Add_Exc_Msg
546: (G_PKG_NAME,
547: l_api_name);
541: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
542: IF FND_MSG_PUB.Check_Msg_Level
543: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
544: THEN
545: FND_MSG_PUB.Add_Exc_Msg
546: (G_PKG_NAME,
547: l_api_name);
548: END IF;
549: FND_MSG_PUB.Count_And_Get
545: FND_MSG_PUB.Add_Exc_Msg
546: (G_PKG_NAME,
547: l_api_name);
548: END IF;
549: FND_MSG_PUB.Count_And_Get
550: (p_encoded => FND_API.G_FALSE,
551: p_count => x_msg_count,
552: p_data => x_msg_data);
553: IF (l_debug = 1) THEN
583: END IF;
584:
585: -- Initialize message list if p_init_msg_list is set to TRUE.
586: IF FND_API.to_Boolean( p_init_msg_list ) THEN
587: FND_MSG_PUB.initialize;
588: END IF;
589:
590: INSERT INTO mtl_transaction_lots_temp
591: (TRANSACTION_TEMP_ID
774: EXCEPTION
775: WHEN FND_API.G_EXC_ERROR THEN
776: ROLLBACK TO sp_insert_mtlt;
777: x_return_status := FND_API.G_RET_STS_ERROR ;
778: FND_MSG_PUB.Count_And_Get
779: (p_encoded => FND_API.G_FALSE,
780: p_count => x_msg_count,
781: p_data => x_msg_data);
782: IF (l_debug = 1) THEN
784: END IF;
785: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
786: ROLLBACK TO sp_insert_mtlt;
787: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
788: FND_MSG_PUB.Count_And_Get
789: (p_encoded => FND_API.G_FALSE,
790: p_count => x_msg_count,
791: p_data => x_msg_data);
792: IF (l_debug = 1) THEN
794: END IF;
795: WHEN OTHERS THEN
796: ROLLBACK TO sp_insert_mtlt;
797: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
798: IF FND_MSG_PUB.Check_Msg_Level
799: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
800: THEN
801: FND_MSG_PUB.Add_Exc_Msg
802: (G_PKG_NAME,
795: WHEN OTHERS THEN
796: ROLLBACK TO sp_insert_mtlt;
797: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
798: IF FND_MSG_PUB.Check_Msg_Level
799: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
800: THEN
801: FND_MSG_PUB.Add_Exc_Msg
802: (G_PKG_NAME,
803: l_api_name);
797: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
798: IF FND_MSG_PUB.Check_Msg_Level
799: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
800: THEN
801: FND_MSG_PUB.Add_Exc_Msg
802: (G_PKG_NAME,
803: l_api_name);
804: END IF;
805: FND_MSG_PUB.Count_And_Get
801: FND_MSG_PUB.Add_Exc_Msg
802: (G_PKG_NAME,
803: l_api_name);
804: END IF;
805: FND_MSG_PUB.Count_And_Get
806: (p_encoded => FND_API.G_FALSE,
807: p_count => x_msg_count,
808: p_data => x_msg_data);
809: IF (l_debug = 1) THEN
839: END IF;
840:
841: -- Initialize message list if p_init_msg_list is set to TRUE.
842: IF FND_API.to_Boolean( p_init_msg_list ) THEN
843: FND_MSG_PUB.initialize;
844: END IF;
845:
846: INSERT INTO mtl_serial_numbers_temp
847: (TRANSACTION_TEMP_ID
995: ,p_msnt_rec.number_of_repairs);
996: EXCEPTION
997: WHEN FND_API.G_EXC_ERROR THEN
998: ROLLBACK TO sp_insert_msnt;
999: IF FND_MSG_PUB.Check_Msg_Level
1000: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1001: THEN
1002: FND_MSG_PUB.Add_Exc_Msg
1003: (G_PKG_NAME,
996: EXCEPTION
997: WHEN FND_API.G_EXC_ERROR THEN
998: ROLLBACK TO sp_insert_msnt;
999: IF FND_MSG_PUB.Check_Msg_Level
1000: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1001: THEN
1002: FND_MSG_PUB.Add_Exc_Msg
1003: (G_PKG_NAME,
1004: l_api_name);
998: ROLLBACK TO sp_insert_msnt;
999: IF FND_MSG_PUB.Check_Msg_Level
1000: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1001: THEN
1002: FND_MSG_PUB.Add_Exc_Msg
1003: (G_PKG_NAME,
1004: l_api_name);
1005: END IF;
1006: x_return_status := FND_API.G_RET_STS_ERROR;
1008: inv_log_util.trace('proc_insert_msnt .. EXCEP G_EXC_ERROR : ', g_pkg_name, 9);
1009: END IF;
1010: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1011: ROLLBACK TO sp_insert_msnt;
1012: IF FND_MSG_PUB.Check_Msg_Level
1013: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1014: THEN
1015: FND_MSG_PUB.Add_Exc_Msg
1016: (G_PKG_NAME,
1009: END IF;
1010: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1011: ROLLBACK TO sp_insert_msnt;
1012: IF FND_MSG_PUB.Check_Msg_Level
1013: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1014: THEN
1015: FND_MSG_PUB.Add_Exc_Msg
1016: (G_PKG_NAME,
1017: l_api_name);
1011: ROLLBACK TO sp_insert_msnt;
1012: IF FND_MSG_PUB.Check_Msg_Level
1013: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1014: THEN
1015: FND_MSG_PUB.Add_Exc_Msg
1016: (G_PKG_NAME,
1017: l_api_name);
1018: END IF;
1019: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1022: END IF;
1023: WHEN OTHERS THEN
1024: ROLLBACK TO sp_insert_msnt;
1025: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1026: IF FND_MSG_PUB.Check_Msg_Level
1027: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1028: THEN
1029: FND_MSG_PUB.Add_Exc_Msg
1030: (G_PKG_NAME,
1023: WHEN OTHERS THEN
1024: ROLLBACK TO sp_insert_msnt;
1025: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1026: IF FND_MSG_PUB.Check_Msg_Level
1027: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1028: THEN
1029: FND_MSG_PUB.Add_Exc_Msg
1030: (G_PKG_NAME,
1031: l_api_name);
1025: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1026: IF FND_MSG_PUB.Check_Msg_Level
1027: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1028: THEN
1029: FND_MSG_PUB.Add_Exc_Msg
1030: (G_PKG_NAME,
1031: l_api_name);
1032: END IF;
1033: FND_MSG_PUB.Count_And_Get
1029: FND_MSG_PUB.Add_Exc_Msg
1030: (G_PKG_NAME,
1031: l_api_name);
1032: END IF;
1033: FND_MSG_PUB.Count_And_Get
1034: (p_encoded => FND_API.G_FALSE,
1035: p_count => x_msg_count,
1036: p_data => x_msg_data);
1037: IF (l_debug = 1) THEN