184: *//* Call INV_Transfer_Order_PVT.Process_Transfer_Order *//*
185:
186: INV_Transfer_Order_PVT.Process_Transfer_Order
187: ( p_api_version_number => 1.0
188: , p_init_msg_list => FND_API.G_TRUE
189: , x_return_status => l_return_status
190: , x_msg_count => x_msg_count
191: , x_msg_data => x_msg_data
192: , p_control_rec => l_control_rec
194: , x_trohdr_rec => l_x_trohdr_rec
195: , x_trolin_tbl => l_x_trolin_tbl
196: );
197:
198: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
199: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
200: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
201: RAISE FND_API.G_EXC_ERROR;
202: END IF;
195: , x_trolin_tbl => l_x_trolin_tbl
196: );
197:
198: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
199: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
200: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
201: RAISE FND_API.G_EXC_ERROR;
202: END IF;
203:
196: );
197:
198: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
199: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
200: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
201: RAISE FND_API.G_EXC_ERROR;
202: END IF;
203:
204:
197:
198: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
199: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
200: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
201: RAISE FND_API.G_EXC_ERROR;
202: END IF;
203:
204:
205: *//* Unload out tbl *//*
284:
285: *//* Write to cache. *//*
286: *//* Set db_flag to False before writing to cache *//*
287:
288: l_x_trolin_rec.db_flag := FND_API.G_FALSE;
289:
290: Write_trolin
291: ( p_trolin_rec => l_x_trolin_rec
292: );
292: );
293:
294: *//* Set return status. *//*
295:
296: x_return_status := FND_API.G_RET_STS_SUCCESS;
297:
298: *//* Get message count and data *//*
299:
300: FND_MSG_PUB.Count_And_Get
304:
305:
306: EXCEPTION
307:
308: WHEN FND_API.G_EXC_ERROR THEN
309:
310: x_return_status := FND_API.G_RET_STS_ERROR;
311:
312: *//* Get message count and data *//*
306: EXCEPTION
307:
308: WHEN FND_API.G_EXC_ERROR THEN
309:
310: x_return_status := FND_API.G_RET_STS_ERROR;
311:
312: *//* Get message count and data *//*
313:
314: FND_MSG_PUB.Count_And_Get
315: ( p_count => x_msg_count
316: , p_data => x_msg_data
317: );
318:
319: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
320:
321: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
322:
323: *//* Get message count and data *//*
317: );
318:
319: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
320:
321: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
322:
323: *//* Get message count and data *//*
324:
325: FND_MSG_PUB.Count_And_Get
328: );
329:
330: WHEN OTHERS THEN
331:
332: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
333:
334: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
335: THEN
336: FND_MSG_PUB.Add_Exc_Msg
443: l_trolin_rec.db_flag := p_db_flag;
444:
445: *//* Read trolin from cache *//*
446:
447: IF FND_API.To_Boolean(l_trolin_rec.db_flag) THEN
448:
449: l_trolin_rec := Get_trolin
450: ( p_db_record => FALSE
451: , p_line_id => p_line_id
514: l_trolin_rec.ship_to_location_id := p_ship_to_location_id;
515: *//* ssia end of move order enhancement changes *//*
516: *//* Set Operation. *//*
517:
518: IF FND_API.To_Boolean(l_trolin_rec.db_flag) THEN
519: l_trolin_rec.operation := INV_GLOBALS.G_OPR_UPDATE;
520: ELSE
521: l_trolin_rec.operation := INV_GLOBALS.G_OPR_CREATE;
522: END IF;
529: *//* Call INV_Transfer_Order_PVT.Process_Transfer_Order *//*
530:
531: INV_Transfer_Order_PVT.Process_Transfer_Order
532: ( p_api_version_number => 1.0
533: , p_init_msg_list => FND_API.G_TRUE
534: , p_validation_level => FND_API.G_VALID_LEVEL_NONE
535: , x_return_status => l_return_status
536: , x_msg_count => x_msg_count
537: , x_msg_data => x_msg_data
530:
531: INV_Transfer_Order_PVT.Process_Transfer_Order
532: ( p_api_version_number => 1.0
533: , p_init_msg_list => FND_API.G_TRUE
534: , p_validation_level => FND_API.G_VALID_LEVEL_NONE
535: , x_return_status => l_return_status
536: , x_msg_count => x_msg_count
537: , x_msg_data => x_msg_data
538: , p_control_rec => l_control_rec
541: , x_trohdr_rec => l_x_trohdr_rec
542: , x_trolin_tbl => l_x_trolin_tbl
543: );
544:
545: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
546: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
547: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
548: RAISE FND_API.G_EXC_ERROR;
549: END IF;
542: , x_trolin_tbl => l_x_trolin_tbl
543: );
544:
545: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
546: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
547: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
548: RAISE FND_API.G_EXC_ERROR;
549: END IF;
550:
543: );
544:
545: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
546: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
547: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
548: RAISE FND_API.G_EXC_ERROR;
549: END IF;
550:
551:
544:
545: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
546: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
547: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
548: RAISE FND_API.G_EXC_ERROR;
549: END IF;
550:
551:
552: *//* Unload out tbl *//*
561: );
562:
563: *//* Set return status. *//*
564:
565: x_return_status := FND_API.G_RET_STS_SUCCESS;
566:
567: *//* Get message count and data *//*
568:
569: FND_MSG_PUB.Count_And_Get
573:
574:
575: EXCEPTION
576:
577: WHEN FND_API.G_EXC_ERROR THEN
578:
579: x_return_status := FND_API.G_RET_STS_ERROR;
580:
581: *//* Get message count and data *//*
575: EXCEPTION
576:
577: WHEN FND_API.G_EXC_ERROR THEN
578:
579: x_return_status := FND_API.G_RET_STS_ERROR;
580:
581: *//* Get message count and data *//*
582:
583: FND_MSG_PUB.Count_And_Get
584: ( p_count => x_msg_count
585: , p_data => x_msg_data
586: );
587:
588: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
589:
590: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
591:
592: *//* Get message count and data *//*
586: );
587:
588: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
589:
590: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
591:
592: *//* Get message count and data *//*
593:
594: FND_MSG_PUB.Count_And_Get
597: );
598:
599: WHEN OTHERS THEN
600:
601: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
602:
603: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
604: THEN
605: FND_MSG_PUB.Add_Exc_Msg
631:
632: /* Populate trolin table */
633: GMI_Move_Order_Line_Util.Update_Row(p_mo_line_rec);
634:
635: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
636: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
637: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
638: RAISE FND_API.G_EXC_ERROR;
639: END IF;
632: /* Populate trolin table */
633: GMI_Move_Order_Line_Util.Update_Row(p_mo_line_rec);
634:
635: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
636: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
637: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
638: RAISE FND_API.G_EXC_ERROR;
639: END IF;
640:
633: GMI_Move_Order_Line_Util.Update_Row(p_mo_line_rec);
634:
635: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
636: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
637: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
638: RAISE FND_API.G_EXC_ERROR;
639: END IF;
640:
641:
634:
635: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
636: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
637: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
638: RAISE FND_API.G_EXC_ERROR;
639: END IF;
640:
641:
642:
646: Clear_trolin;
647:
648: /* Set return status. */
649:
650: x_return_status := FND_API.G_RET_STS_SUCCESS;
651:
652: /* Get message count and data */
653:
654: FND_MSG_PUB.Count_And_Get
658:
659:
660: EXCEPTION
661:
662: WHEN FND_API.G_EXC_ERROR THEN
663:
664: x_return_status := FND_API.G_RET_STS_ERROR;
665:
666: /* Get message count and data */
660: EXCEPTION
661:
662: WHEN FND_API.G_EXC_ERROR THEN
663:
664: x_return_status := FND_API.G_RET_STS_ERROR;
665:
666: /* Get message count and data */
667:
668: FND_MSG_PUB.Count_And_Get
669: ( p_count => x_msg_count
670: , p_data => x_msg_data
671: );
672:
673: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
674:
675: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
676:
677: /* Get message count and data */
671: );
672:
673: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
674:
675: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
676:
677: /* Get message count and data */
678:
679: FND_MSG_PUB.Count_And_Get
682: );
683:
684: WHEN OTHERS THEN
685:
686: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
687:
688: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
689: THEN
690: FND_MSG_PUB.Add_Exc_Msg
754: *//* Call INV_Transfer_Order_PVT.Process_Transfer_Order *//*
755:
756: INV_Transfer_Order_PVT.Process_Transfer_Order
757: ( p_api_version_number => 1.0
758: , p_init_msg_list => FND_API.G_TRUE
759: , x_return_status => l_return_status
760: , x_msg_count => x_msg_count
761: , x_msg_data => x_msg_data
762: , p_control_rec => l_control_rec
764: , x_trohdr_rec => l_x_trohdr_rec
765: , x_trolin_tbl => l_x_trolin_tbl
766: );
767:
768: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
769: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
770: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
771: RAISE FND_API.G_EXC_ERROR;
772: END IF;
765: , x_trolin_tbl => l_x_trolin_tbl
766: );
767:
768: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
769: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
770: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
771: RAISE FND_API.G_EXC_ERROR;
772: END IF;
773:
766: );
767:
768: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
769: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
770: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
771: RAISE FND_API.G_EXC_ERROR;
772: END IF;
773:
774:
767:
768: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
769: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
770: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
771: RAISE FND_API.G_EXC_ERROR;
772: END IF;
773:
774:
775: *//* Clear trolin record cache *//*
777: Clear_trolin;
778:
779: *//* Set return status. *//*
780:
781: x_return_status := FND_API.G_RET_STS_SUCCESS;
782:
783: *//* Get message count and data *//*
784:
785: FND_MSG_PUB.Count_And_Get
789:
790:
791: EXCEPTION
792:
793: WHEN FND_API.G_EXC_ERROR THEN
794:
795: x_return_status := FND_API.G_RET_STS_ERROR;
796:
797: *//* Get message count and data *//*
791: EXCEPTION
792:
793: WHEN FND_API.G_EXC_ERROR THEN
794:
795: x_return_status := FND_API.G_RET_STS_ERROR;
796:
797: *//* Get message count and data *//*
798:
799: FND_MSG_PUB.Count_And_Get
800: ( p_count => x_msg_count
801: , p_data => x_msg_data
802: );
803:
804: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
805:
806: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
807:
808: *//* Get message count and data *//*
802: );
803:
804: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
805:
806: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
807:
808: *//* Get message count and data *//*
809:
810: FND_MSG_PUB.Count_And_Get
813: );
814:
815: WHEN OTHERS THEN
816:
817: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
818:
819: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
820: THEN
821: FND_MSG_PUB.Add_Exc_Msg
867: *//* Call INV_Transfer_Order_PVT.Process_Transfer_Order *//*
868:
869: INV_Transfer_Order_PVT.Process_Transfer_Order
870: ( p_api_version_number => 1.0
871: , p_init_msg_list => FND_API.G_TRUE
872: , x_return_status => l_return_status
873: , x_msg_count => x_msg_count
874: , x_msg_data => x_msg_data
875: , p_control_rec => l_control_rec
876: , x_trohdr_rec => l_x_trohdr_rec
877: , x_trolin_tbl => l_x_trolin_tbl
878: );
879:
880: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
881: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
882: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
883: RAISE FND_API.G_EXC_ERROR;
884: END IF;
877: , x_trolin_tbl => l_x_trolin_tbl
878: );
879:
880: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
881: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
882: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
883: RAISE FND_API.G_EXC_ERROR;
884: END IF;
885:
878: );
879:
880: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
881: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
882: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
883: RAISE FND_API.G_EXC_ERROR;
884: END IF;
885:
886:
879:
880: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
881: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
882: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
883: RAISE FND_API.G_EXC_ERROR;
884: END IF;
885:
886:
887: *//* Set return status. *//*
885:
886:
887: *//* Set return status. *//*
888:
889: x_return_status := FND_API.G_RET_STS_SUCCESS;
890:
891: *//* Get message count and data *//*
892:
893: FND_MSG_PUB.Count_And_Get
897:
898:
899: EXCEPTION
900:
901: WHEN FND_API.G_EXC_ERROR THEN
902:
903: x_return_status := FND_API.G_RET_STS_ERROR;
904:
905: *//* Get message count and data *//*
899: EXCEPTION
900:
901: WHEN FND_API.G_EXC_ERROR THEN
902:
903: x_return_status := FND_API.G_RET_STS_ERROR;
904:
905: *//* Get message count and data *//*
906:
907: FND_MSG_PUB.Count_And_Get
908: ( p_count => x_msg_count
909: , p_data => x_msg_data
910: );
911:
912: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
913:
914: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
915:
916: *//* Get message count and data *//*
910: );
911:
912: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
913:
914: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
915:
916: *//* Get message count and data *//*
917:
918: FND_MSG_PUB.Count_And_Get
921: );
922:
923: WHEN OTHERS THEN
924:
925: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
926:
927: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
928: THEN
929: FND_MSG_PUB.Add_Exc_Msg
971: , x_return_status => l_return_status
972: );
973:
974: /* odab
975: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
976:
977: *//* Set DB flag and write record to cache. *//*
978: Write_trolin
979: ( p_mo_line_rec => p_mo_line_rec
992: ( p_count => x_msg_count
993: , p_data => x_msg_data
994: );
995:
996: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
997: THEN
998: ROLLBACK TO SAVEPOINT Lock_Row_SP;
999: END IF;
1000:
1010: , 'Lock_Row'
1011: );
1012: END IF;
1013:
1014: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1015:
1016: /* Get message count and data */
1017:
1018: FND_MSG_PUB.Count_And_Get
1059: g_trolin_rec := GMI_Move_Order_Line_Util.Query_Row
1060: ( p_line_id => p_line_id
1061: );
1062:
1063: /* odab g_trolin_rec.db_flag := FND_API.G_TRUE; */
1064:
1065: /* Load DB record */
1066:
1067: g_db_trolin_rec := g_trolin_rec;