[Home] [Help]
82: -- ---------------------------------------------------------
83:
84: PROCEDURE group_wip_update
85: ( p_api_version IN NUMBER,
86: p_commit IN VARCHAR2 := fnd_api.g_false,
87: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
88: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
89: p_incident_id IN NUMBER,
90: x_return_status OUT NOCOPY VARCHAR2,
83:
84: PROCEDURE group_wip_update
85: ( p_api_version IN NUMBER,
86: p_commit IN VARCHAR2 := fnd_api.g_false,
87: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
88: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
89: p_incident_id IN NUMBER,
90: x_return_status OUT NOCOPY VARCHAR2,
91: x_msg_count OUT NOCOPY NUMBER,
84: PROCEDURE group_wip_update
85: ( p_api_version IN NUMBER,
86: p_commit IN VARCHAR2 := fnd_api.g_false,
87: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
88: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
89: p_incident_id IN NUMBER,
90: x_return_status OUT NOCOPY VARCHAR2,
91: x_msg_count OUT NOCOPY NUMBER,
92: x_msg_data OUT NOCOPY VARCHAR2
179: -- Standard Start of API savepoint
180: SAVEPOINT group_wip_update;
181:
182: -- Standard call to check for call compatibility.
183: IF NOT FND_API.Compatible_API_Call (l_api_version,
184: p_api_version,
185: l_api_name ,
186: G_PKG_NAME )
187: THEN
184: p_api_version,
185: l_api_name ,
186: G_PKG_NAME )
187: THEN
188: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
189: END IF;
190:
191: -- Initialize message list if p_init_msg_list is set to TRUE.
192: IF FND_API.to_Boolean( p_init_msg_list ) THEN
188: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
189: END IF;
190:
191: -- Initialize message list if p_init_msg_list is set to TRUE.
192: IF FND_API.to_Boolean( p_init_msg_list ) THEN
193: FND_MSG_PUB.initialize;
194: END IF;
195:
196: -- Initialize API return status to success
193: FND_MSG_PUB.initialize;
194: END IF;
195:
196: -- Initialize API return status to success
197: x_return_status := FND_API.G_RET_STS_SUCCESS;
198:
199: -- Api body starts
200: if (g_debug > 0) then
201: csd_gen_utility_pvt.dump_api_info
214: IF (g_debug > 0 ) THEN
215: csd_gen_utility_pvt.add('The Incident Id is invalid ');
216: END IF;
217:
218: Raise FND_API.G_EXC_ERROR;
219: END IF;
220:
221: -- travi new code 2501113 update with wip_entity_id
222: -- BEGIN LOOPS
334: csd_gen_utility_pvt.add('No WIP Job found for the wip_entity_id '||TO_CHAR(p_WIP_ENTITY_ID));
335: END IF;
336:
337: v_quantity_completed := 0;
338: -- Raise FND_API.G_EXC_ERROR;
339: WHEN OTHERS THEN
340: IF (g_debug > 0 ) THEN
341: csd_gen_utility_pvt.add('when other exception at - get_wip_job_completed_qty_gr');
342: END IF;
340: IF (g_debug > 0 ) THEN
341: csd_gen_utility_pvt.add('when other exception at - get_wip_job_completed_qty_gr');
342: END IF;
343:
344: Raise FND_API.G_EXC_ERROR;
345: END;
346:
347: -- Get the original qty completed from csd_repair_job_xref based on the wip_entity_id
348: SELECT nvl(sum(quantity_completed),0)
460: X_Return_Status => l_return_status ,
461: X_Msg_Count => l_msg_count,
462: X_Msg_Data => l_msg_data );
463:
464: IF NOT(l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
465: IF (g_debug > 0 ) THEN
466: csd_gen_utility_pvt.ADD('validate_and_write failed ');
467: END IF;
468:
465: IF (g_debug > 0 ) THEN
466: csd_gen_utility_pvt.ADD('validate_and_write failed ');
467: END IF;
468:
469: RAISE FND_API.G_EXC_ERROR;
470: END IF;
471:
472: END LOOP; -- END LOOP FOR C3
473:
487:
488: END LOOP; -- END LOOP FOR C1
489:
490: -- Standard check of p_commit.
491: IF FND_API.To_Boolean( p_commit ) THEN
492: COMMIT WORK;
493: END IF;
494:
495: -- Standard call to get message count and IF count is get message info.
497: (p_count => x_msg_count,
498: p_data => x_msg_data );
499:
500: EXCEPTION
501: WHEN FND_API.G_EXC_ERROR THEN
502: ROLLBACK TO Group_Wip_update;
503: x_return_status := FND_API.G_RET_STS_ERROR ;
504: FND_MSG_PUB.Count_And_Get
505: (p_count => x_msg_count,
499:
500: EXCEPTION
501: WHEN FND_API.G_EXC_ERROR THEN
502: ROLLBACK TO Group_Wip_update;
503: x_return_status := FND_API.G_RET_STS_ERROR ;
504: FND_MSG_PUB.Count_And_Get
505: (p_count => x_msg_count,
506: p_data => x_msg_data );
507: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
503: x_return_status := FND_API.G_RET_STS_ERROR ;
504: FND_MSG_PUB.Count_And_Get
505: (p_count => x_msg_count,
506: p_data => x_msg_data );
507: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
508: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
509: ROLLBACK TO Group_Wip_update;
510: FND_MSG_PUB.Count_And_Get
511: ( p_count => x_msg_count,
504: FND_MSG_PUB.Count_And_Get
505: (p_count => x_msg_count,
506: p_data => x_msg_data );
507: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
508: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
509: ROLLBACK TO Group_Wip_update;
510: FND_MSG_PUB.Count_And_Get
511: ( p_count => x_msg_count,
512: p_data => x_msg_data );
510: FND_MSG_PUB.Count_And_Get
511: ( p_count => x_msg_count,
512: p_data => x_msg_data );
513: WHEN OTHERS THEN
514: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
515: ROLLBACK TO Group_Wip_update ;
516: IF FND_MSG_PUB.Check_Msg_Level
517: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
518: THEN
533: /*-------------------------------------------------------*/
534:
535: procedure Pre_process_update
536: ( p_api_version IN NUMBER,
537: p_commit IN VARCHAR2 := fnd_api.g_false,
538: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
539: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
540: p_incident_id IN number,
541: x_return_status OUT NOCOPY VARCHAR2,
534:
535: procedure Pre_process_update
536: ( p_api_version IN NUMBER,
537: p_commit IN VARCHAR2 := fnd_api.g_false,
538: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
539: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
540: p_incident_id IN number,
541: x_return_status OUT NOCOPY VARCHAR2,
542: x_msg_count OUT NOCOPY NUMBER,
535: procedure Pre_process_update
536: ( p_api_version IN NUMBER,
537: p_commit IN VARCHAR2 := fnd_api.g_false,
538: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
539: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
540: p_incident_id IN number,
541: x_return_status OUT NOCOPY VARCHAR2,
542: x_msg_count OUT NOCOPY NUMBER,
543: x_msg_data OUT NOCOPY VARCHAR2
568: -- Standard Start of API savepoint
569: SAVEPOINT Pre_process_update;
570:
571: -- Standard call to check for call compatibility.
572: IF NOT FND_API.Compatible_API_Call (l_api_version,
573: p_api_version,
574: l_api_name ,
575: G_PKG_NAME )
576: THEN
573: p_api_version,
574: l_api_name ,
575: G_PKG_NAME )
576: THEN
577: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
578: END IF;
579:
580: -- Initialize message list if p_init_msg_list is set to TRUE.
581: IF FND_API.to_Boolean( p_init_msg_list ) THEN
577: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
578: END IF;
579:
580: -- Initialize message list if p_init_msg_list is set to TRUE.
581: IF FND_API.to_Boolean( p_init_msg_list ) THEN
582: FND_MSG_PUB.initialize;
583: END IF;
584:
585: -- Initialize API return status to success
582: FND_MSG_PUB.initialize;
583: END IF;
584:
585: -- Initialize API return status to success
586: x_return_status := FND_API.G_RET_STS_SUCCESS;
587:
588: -- Api body starts
589: if (g_debug > 0) then
590: csd_gen_utility_pvt.dump_api_info
603: IF (g_debug > 0 ) THEN
604: csd_gen_utility_pvt.add('The Incident Id is invalid ');
605: END IF;
606:
607: Raise FND_API.G_EXC_ERROR;
608: END IF;
609:
610: FOR grp in get_rep_group (p_incident_id )
611: LOOP
630: -- Calling Group_Rma_Update to update
631: -- all the RO that have been recd
632: Group_Rma_Update
633: ( p_api_version => p_api_version,
634: p_commit => fnd_api.g_false,
635: p_init_msg_list => fnd_api.g_true,
636: p_validation_level => fnd_api.g_valid_level_full,
637: p_repair_group_id => grp.repair_group_id,
638: x_update_count => x_update_count,
631: -- all the RO that have been recd
632: Group_Rma_Update
633: ( p_api_version => p_api_version,
634: p_commit => fnd_api.g_false,
635: p_init_msg_list => fnd_api.g_true,
636: p_validation_level => fnd_api.g_valid_level_full,
637: p_repair_group_id => grp.repair_group_id,
638: x_update_count => x_update_count,
639: x_return_status => x_return_status,
632: Group_Rma_Update
633: ( p_api_version => p_api_version,
634: p_commit => fnd_api.g_false,
635: p_init_msg_list => fnd_api.g_true,
636: p_validation_level => fnd_api.g_valid_level_full,
637: p_repair_group_id => grp.repair_group_id,
638: x_update_count => x_update_count,
639: x_return_status => x_return_status,
640: x_msg_count => x_msg_count,
644: csd_gen_utility_pvt.add('x_update_count ='||x_update_count );
645: END IF;
646:
647:
648: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
649: IF (g_debug > 0 ) THEN
650: csd_gen_utility_pvt.ADD('Group_ship_update failed ');
651: END IF;
652:
649: IF (g_debug > 0 ) THEN
650: csd_gen_utility_pvt.ADD('Group_ship_update failed ');
651: END IF;
652:
653: RAISE FND_API.G_EXC_ERROR;
654: END IF;
655:
656: IF (nvl(grp.received_quantity,0) + nvl(x_update_count,0) = nvl(grp.repair_order_quantity,0)) then
657:
684: -- Calling Group_Rma_Update to update
685: -- all the RO that have been recd
686: Group_Rma_Update
687: ( p_api_version => p_api_version,
688: p_commit => fnd_api.g_false,
689: p_init_msg_list => fnd_api.g_true,
690: p_validation_level => fnd_api.g_valid_level_full,
691: p_repair_group_id => grp.repair_group_id,
692: x_update_count => x_update_count,
685: -- all the RO that have been recd
686: Group_Rma_Update
687: ( p_api_version => p_api_version,
688: p_commit => fnd_api.g_false,
689: p_init_msg_list => fnd_api.g_true,
690: p_validation_level => fnd_api.g_valid_level_full,
691: p_repair_group_id => grp.repair_group_id,
692: x_update_count => x_update_count,
693: x_return_status => x_return_status,
686: Group_Rma_Update
687: ( p_api_version => p_api_version,
688: p_commit => fnd_api.g_false,
689: p_init_msg_list => fnd_api.g_true,
690: p_validation_level => fnd_api.g_valid_level_full,
691: p_repair_group_id => grp.repair_group_id,
692: x_update_count => x_update_count,
693: x_return_status => x_return_status,
694: x_msg_count => x_msg_count,
702: csd_gen_utility_pvt.add('x_update_count ='||x_update_count );
703: END IF;
704:
705:
706: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
707: IF (g_debug > 0 ) THEN
708: csd_gen_utility_pvt.ADD('Group_rma_update failed ');
709: END IF;
710:
707: IF (g_debug > 0 ) THEN
708: csd_gen_utility_pvt.ADD('Group_rma_update failed ');
709: END IF;
710:
711: RAISE FND_API.G_EXC_ERROR;
712: END IF;
713:
714: IF (nvl(grp.received_quantity,0) + nvl(x_update_count,0) = nvl(grp.repair_order_quantity,0)) then
715:
737: -- Calling Group_ship_update to update
738: -- all the loaner that have been shipped
739: Group_ship_update
740: ( p_api_version => p_api_version,
741: p_commit => fnd_api.g_false,
742: p_init_msg_list => fnd_api.g_true,
743: p_validation_level => fnd_api.g_valid_level_full,
744: p_repair_group_id => grp.repair_group_id,
745: x_update_count => x_update_count,
738: -- all the loaner that have been shipped
739: Group_ship_update
740: ( p_api_version => p_api_version,
741: p_commit => fnd_api.g_false,
742: p_init_msg_list => fnd_api.g_true,
743: p_validation_level => fnd_api.g_valid_level_full,
744: p_repair_group_id => grp.repair_group_id,
745: x_update_count => x_update_count,
746: x_return_status => x_return_status,
739: Group_ship_update
740: ( p_api_version => p_api_version,
741: p_commit => fnd_api.g_false,
742: p_init_msg_list => fnd_api.g_true,
743: p_validation_level => fnd_api.g_valid_level_full,
744: p_repair_group_id => grp.repair_group_id,
745: x_update_count => x_update_count,
746: x_return_status => x_return_status,
747: x_msg_count => x_msg_count,
746: x_return_status => x_return_status,
747: x_msg_count => x_msg_count,
748: x_msg_data => x_msg_data );
749:
750: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
751: IF (g_debug > 0 ) THEN
752: csd_gen_utility_pvt.ADD('Group_ship_update failed ');
753: END IF;
754:
751: IF (g_debug > 0 ) THEN
752: csd_gen_utility_pvt.ADD('Group_ship_update failed ');
753: END IF;
754:
755: RAISE FND_API.G_EXC_ERROR;
756: END IF;
757:
758: --END IF;
759:
764: -- Calling Group_ship_update to update
765: -- all the RO that have been shipped
766: Group_ship_update
767: ( p_api_version => p_api_version,
768: p_commit => fnd_api.g_false,
769: p_init_msg_list => fnd_api.g_true,
770: p_validation_level => fnd_api.g_valid_level_full,
771: p_repair_group_id => grp.repair_group_id,
772: x_update_count => x_update_count,
765: -- all the RO that have been shipped
766: Group_ship_update
767: ( p_api_version => p_api_version,
768: p_commit => fnd_api.g_false,
769: p_init_msg_list => fnd_api.g_true,
770: p_validation_level => fnd_api.g_valid_level_full,
771: p_repair_group_id => grp.repair_group_id,
772: x_update_count => x_update_count,
773: x_return_status => x_return_status,
766: Group_ship_update
767: ( p_api_version => p_api_version,
768: p_commit => fnd_api.g_false,
769: p_init_msg_list => fnd_api.g_true,
770: p_validation_level => fnd_api.g_valid_level_full,
771: p_repair_group_id => grp.repair_group_id,
772: x_update_count => x_update_count,
773: x_return_status => x_return_status,
774: x_msg_count => x_msg_count,
782: csd_gen_utility_pvt.add('x_update_count ='||x_update_count );
783: END IF;
784:
785:
786: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
787: IF (g_debug > 0 ) THEN
788: csd_gen_utility_pvt.ADD('Group_ship_update failed ');
789: END IF;
790:
787: IF (g_debug > 0 ) THEN
788: csd_gen_utility_pvt.ADD('Group_ship_update failed ');
789: END IF;
790:
791: RAISE FND_API.G_EXC_ERROR;
792: END IF;
793:
794: IF (nvl(grp.shipped_quantity,0) + nvl(x_update_count,0)) = nvl(grp.repair_order_quantity,0) then
795: IF (g_debug > 0 ) THEN
818: END IF; -- end if repair_type_ref
819:
820: END LOOP; -- end of all groups
821: EXCEPTION
822: WHEN FND_API.G_EXC_ERROR THEN
823: ROLLBACK TO Pre_process_update;
824: x_return_status := FND_API.G_RET_STS_ERROR ;
825: FND_MSG_PUB.Count_And_Get
826: (p_count => x_msg_count,
820: END LOOP; -- end of all groups
821: EXCEPTION
822: WHEN FND_API.G_EXC_ERROR THEN
823: ROLLBACK TO Pre_process_update;
824: x_return_status := FND_API.G_RET_STS_ERROR ;
825: FND_MSG_PUB.Count_And_Get
826: (p_count => x_msg_count,
827: p_data => x_msg_data );
828: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
824: x_return_status := FND_API.G_RET_STS_ERROR ;
825: FND_MSG_PUB.Count_And_Get
826: (p_count => x_msg_count,
827: p_data => x_msg_data );
828: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
829: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
830: ROLLBACK TO Pre_process_update ;
831: FND_MSG_PUB.Count_And_Get
832: ( p_count => x_msg_count,
825: FND_MSG_PUB.Count_And_Get
826: (p_count => x_msg_count,
827: p_data => x_msg_data );
828: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
829: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
830: ROLLBACK TO Pre_process_update ;
831: FND_MSG_PUB.Count_And_Get
832: ( p_count => x_msg_count,
833: p_data => x_msg_data );
831: FND_MSG_PUB.Count_And_Get
832: ( p_count => x_msg_count,
833: p_data => x_msg_data );
834: WHEN OTHERS THEN
835: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
836: ROLLBACK TO Pre_process_update ;
837: IF FND_MSG_PUB.Check_Msg_Level
838: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
839: THEN
853: /*--------------------------------------------------*/
854:
855: procedure Post_process_update
856: ( p_api_version IN NUMBER,
857: p_commit IN VARCHAR2 := fnd_api.g_false,
858: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
859: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
860: p_incident_id IN number,
861: x_return_status OUT NOCOPY VARCHAR2,
854:
855: procedure Post_process_update
856: ( p_api_version IN NUMBER,
857: p_commit IN VARCHAR2 := fnd_api.g_false,
858: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
859: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
860: p_incident_id IN number,
861: x_return_status OUT NOCOPY VARCHAR2,
862: x_msg_count OUT NOCOPY NUMBER,
855: procedure Post_process_update
856: ( p_api_version IN NUMBER,
857: p_commit IN VARCHAR2 := fnd_api.g_false,
858: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
859: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
860: p_incident_id IN number,
861: x_return_status OUT NOCOPY VARCHAR2,
862: x_msg_count OUT NOCOPY NUMBER,
863: x_msg_data OUT NOCOPY VARCHAR2
888: -- Standard Start of API savepoint
889: SAVEPOINT Post_process_update;
890:
891: -- Standard call to check for call compatibility.
892: IF NOT FND_API.Compatible_API_Call (l_api_version,
893: p_api_version,
894: l_api_name ,
895: G_PKG_NAME )
896: THEN
893: p_api_version,
894: l_api_name ,
895: G_PKG_NAME )
896: THEN
897: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
898: END IF;
899:
900: -- Initialize message list if p_init_msg_list is set to TRUE.
901: IF FND_API.to_Boolean( p_init_msg_list ) THEN
897: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
898: END IF;
899:
900: -- Initialize message list if p_init_msg_list is set to TRUE.
901: IF FND_API.to_Boolean( p_init_msg_list ) THEN
902: FND_MSG_PUB.initialize;
903: END IF;
904:
905: -- Initialize API return status to success
902: FND_MSG_PUB.initialize;
903: END IF;
904:
905: -- Initialize API return status to success
906: x_return_status := FND_API.G_RET_STS_SUCCESS;
907:
908: -- Api body starts
909: if (g_debug > 0 ) then
910: csd_gen_utility_pvt.dump_api_info
922: IF (g_debug > 0 ) THEN
923: csd_gen_utility_pvt.add('The Incident Id is invalid ');
924: END IF;
925:
926: Raise FND_API.G_EXC_ERROR ;
927: END IF;
928:
929: FOR grp in get_rep_group (p_incident_id )
930: LOOP
945: -- Calling Group_Rma_Update to update
946: -- all the RO that have been recd
947: Group_Rma_Update
948: ( p_api_version => p_api_version,
949: p_commit => fnd_api.g_false,
950: p_init_msg_list => fnd_api.g_true,
951: p_validation_level => fnd_api.g_valid_level_full,
952: p_repair_group_id => grp.repair_group_id,
953: x_update_count => x_update_count,
946: -- all the RO that have been recd
947: Group_Rma_Update
948: ( p_api_version => p_api_version,
949: p_commit => fnd_api.g_false,
950: p_init_msg_list => fnd_api.g_true,
951: p_validation_level => fnd_api.g_valid_level_full,
952: p_repair_group_id => grp.repair_group_id,
953: x_update_count => x_update_count,
954: x_return_status => x_return_status,
947: Group_Rma_Update
948: ( p_api_version => p_api_version,
949: p_commit => fnd_api.g_false,
950: p_init_msg_list => fnd_api.g_true,
951: p_validation_level => fnd_api.g_valid_level_full,
952: p_repair_group_id => grp.repair_group_id,
953: x_update_count => x_update_count,
954: x_return_status => x_return_status,
955: x_msg_count => x_msg_count,
963: csd_gen_utility_pvt.add('x_update_count ='||x_update_count );
964: END IF;
965:
966:
967: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
968: IF (g_debug > 0 ) THEN
969: csd_gen_utility_pvt.ADD('Group_ship_update failed ');
970: END IF;
971:
968: IF (g_debug > 0 ) THEN
969: csd_gen_utility_pvt.ADD('Group_ship_update failed ');
970: END IF;
971:
972: RAISE FND_API.G_EXC_ERROR;
973: END IF;
974:
975: IF nvl(grp.received_quantity,0)+nvl(x_update_count,0) = nvl(grp.repair_order_quantity,0) then
976: IF (g_debug > 0 ) THEN
1003: -- Calling Group_ship_update to update
1004: -- all the RO that have been recd
1005: Group_ship_update
1006: ( p_api_version => p_api_version,
1007: p_commit => fnd_api.g_false,
1008: p_init_msg_list => fnd_api.g_true,
1009: p_validation_level => fnd_api.g_valid_level_full,
1010: p_repair_group_id => grp.repair_group_id,
1011: x_update_count => x_update_count,
1004: -- all the RO that have been recd
1005: Group_ship_update
1006: ( p_api_version => p_api_version,
1007: p_commit => fnd_api.g_false,
1008: p_init_msg_list => fnd_api.g_true,
1009: p_validation_level => fnd_api.g_valid_level_full,
1010: p_repair_group_id => grp.repair_group_id,
1011: x_update_count => x_update_count,
1012: x_return_status => x_return_status,
1005: Group_ship_update
1006: ( p_api_version => p_api_version,
1007: p_commit => fnd_api.g_false,
1008: p_init_msg_list => fnd_api.g_true,
1009: p_validation_level => fnd_api.g_valid_level_full,
1010: p_repair_group_id => grp.repair_group_id,
1011: x_update_count => x_update_count,
1012: x_return_status => x_return_status,
1013: x_msg_count => x_msg_count,
1021: csd_gen_utility_pvt.add('x_update_count ='||x_update_count );
1022: END IF;
1023:
1024:
1025: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1026: IF (g_debug > 0 ) THEN
1027: csd_gen_utility_pvt.ADD('Group_ship_update failed ');
1028: END IF;
1029:
1026: IF (g_debug > 0 ) THEN
1027: csd_gen_utility_pvt.ADD('Group_ship_update failed ');
1028: END IF;
1029:
1030: RAISE FND_API.G_EXC_ERROR;
1031: END IF;
1032:
1033: IF nvl(grp.shipped_quantity,0) + nvl(x_update_count,0) = grp.repair_order_quantity then
1034: IF (g_debug > 0 ) THEN
1062: -- Calling Group_ship_update to update
1063: -- all the RO that have been recd
1064: Group_ship_update
1065: ( p_api_version => p_api_version,
1066: p_commit => fnd_api.g_false,
1067: p_init_msg_list => fnd_api.g_true,
1068: p_validation_level => fnd_api.g_valid_level_full,
1069: p_repair_group_id => grp.repair_group_id,
1070: x_update_count => x_update_count,
1063: -- all the RO that have been recd
1064: Group_ship_update
1065: ( p_api_version => p_api_version,
1066: p_commit => fnd_api.g_false,
1067: p_init_msg_list => fnd_api.g_true,
1068: p_validation_level => fnd_api.g_valid_level_full,
1069: p_repair_group_id => grp.repair_group_id,
1070: x_update_count => x_update_count,
1071: x_return_status => x_return_status,
1064: Group_ship_update
1065: ( p_api_version => p_api_version,
1066: p_commit => fnd_api.g_false,
1067: p_init_msg_list => fnd_api.g_true,
1068: p_validation_level => fnd_api.g_valid_level_full,
1069: p_repair_group_id => grp.repair_group_id,
1070: x_update_count => x_update_count,
1071: x_return_status => x_return_status,
1072: x_msg_count => x_msg_count,
1080: csd_gen_utility_pvt.add('x_update_count ='||x_update_count );
1081: END IF;
1082:
1083:
1084: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1085: IF (g_debug > 0 ) THEN
1086: csd_gen_utility_pvt.ADD('Group_ship_update failed ');
1087: END IF;
1088:
1085: IF (g_debug > 0 ) THEN
1086: csd_gen_utility_pvt.ADD('Group_ship_update failed ');
1087: END IF;
1088:
1089: RAISE FND_API.G_EXC_ERROR;
1090: END IF;
1091:
1092: IF nvl(grp.shipped_quantity,0) + nvl(x_update_count,0) = grp.repair_order_quantity then
1093:
1116: -- Calling Group_Rma_Update to update
1117: -- all the loaner that have been recd
1118: Group_Rma_Update
1119: ( p_api_version => p_api_version,
1120: p_commit => fnd_api.g_false,
1121: p_init_msg_list => fnd_api.g_true,
1122: p_validation_level => fnd_api.g_valid_level_full,
1123: p_repair_group_id => grp.repair_group_id,
1124: x_update_count => x_update_count,
1117: -- all the loaner that have been recd
1118: Group_Rma_Update
1119: ( p_api_version => p_api_version,
1120: p_commit => fnd_api.g_false,
1121: p_init_msg_list => fnd_api.g_true,
1122: p_validation_level => fnd_api.g_valid_level_full,
1123: p_repair_group_id => grp.repair_group_id,
1124: x_update_count => x_update_count,
1125: x_return_status => x_return_status,
1118: Group_Rma_Update
1119: ( p_api_version => p_api_version,
1120: p_commit => fnd_api.g_false,
1121: p_init_msg_list => fnd_api.g_true,
1122: p_validation_level => fnd_api.g_valid_level_full,
1123: p_repair_group_id => grp.repair_group_id,
1124: x_update_count => x_update_count,
1125: x_return_status => x_return_status,
1126: x_msg_count => x_msg_count,
1125: x_return_status => x_return_status,
1126: x_msg_count => x_msg_count,
1127: x_msg_data => x_msg_data );
1128:
1129: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1130: IF (g_debug > 0 ) THEN
1131: csd_gen_utility_pvt.ADD('Group_rma_update failed ');
1132: END IF;
1133:
1130: IF (g_debug > 0 ) THEN
1131: csd_gen_utility_pvt.ADD('Group_rma_update failed ');
1132: END IF;
1133:
1134: RAISE FND_API.G_EXC_ERROR;
1135: END IF;
1136:
1137: -- END IF;
1138:
1140:
1141: END LOOP; -- end of all groups
1142:
1143: EXCEPTION
1144: WHEN FND_API.G_EXC_ERROR THEN
1145: ROLLBACK TO Post_process_update;
1146: x_return_status := FND_API.G_RET_STS_ERROR ;
1147: FND_MSG_PUB.Count_And_Get
1148: (p_count => x_msg_count,
1142:
1143: EXCEPTION
1144: WHEN FND_API.G_EXC_ERROR THEN
1145: ROLLBACK TO Post_process_update;
1146: x_return_status := FND_API.G_RET_STS_ERROR ;
1147: FND_MSG_PUB.Count_And_Get
1148: (p_count => x_msg_count,
1149: p_data => x_msg_data );
1150: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1146: x_return_status := FND_API.G_RET_STS_ERROR ;
1147: FND_MSG_PUB.Count_And_Get
1148: (p_count => x_msg_count,
1149: p_data => x_msg_data );
1150: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1151: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1152: ROLLBACK TO Post_process_update ;
1153: FND_MSG_PUB.Count_And_Get
1154: ( p_count => x_msg_count,
1147: FND_MSG_PUB.Count_And_Get
1148: (p_count => x_msg_count,
1149: p_data => x_msg_data );
1150: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1151: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1152: ROLLBACK TO Post_process_update ;
1153: FND_MSG_PUB.Count_And_Get
1154: ( p_count => x_msg_count,
1155: p_data => x_msg_data );
1153: FND_MSG_PUB.Count_And_Get
1154: ( p_count => x_msg_count,
1155: p_data => x_msg_data );
1156: WHEN OTHERS THEN
1157: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1158: ROLLBACK TO Post_process_update ;
1159: IF FND_MSG_PUB.Check_Msg_Level
1160: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1161: THEN
1175: /*--------------------------------------------------*/
1176:
1177: procedure Group_Rma_Update
1178: ( p_api_version IN NUMBER,
1179: p_commit IN VARCHAR2 := fnd_api.g_false,
1180: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1181: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
1182: p_repair_group_id IN NUMBER,
1183: x_update_count OUT NOCOPY NUMBER,
1176:
1177: procedure Group_Rma_Update
1178: ( p_api_version IN NUMBER,
1179: p_commit IN VARCHAR2 := fnd_api.g_false,
1180: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1181: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
1182: p_repair_group_id IN NUMBER,
1183: x_update_count OUT NOCOPY NUMBER,
1184: x_return_status OUT NOCOPY VARCHAR2,
1177: procedure Group_Rma_Update
1178: ( p_api_version IN NUMBER,
1179: p_commit IN VARCHAR2 := fnd_api.g_false,
1180: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1181: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
1182: p_repair_group_id IN NUMBER,
1183: x_update_count OUT NOCOPY NUMBER,
1184: x_return_status OUT NOCOPY VARCHAR2,
1185: x_msg_count OUT NOCOPY NUMBER,
1268: -- Standard Start of API savepoint
1269: SAVEPOINT Group_Rma_Update;
1270:
1271: -- Standard call to check for call compatibility.
1272: IF NOT FND_API.Compatible_API_Call (l_api_version,
1273: p_api_version,
1274: l_api_name ,
1275: G_PKG_NAME )
1276: THEN
1273: p_api_version,
1274: l_api_name ,
1275: G_PKG_NAME )
1276: THEN
1277: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1278: END IF;
1279:
1280: -- Initialize message list if p_init_msg_list is set to TRUE.
1281: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1277: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1278: END IF;
1279:
1280: -- Initialize message list if p_init_msg_list is set to TRUE.
1281: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1282: FND_MSG_PUB.initialize;
1283: END IF;
1284:
1285: -- Initialize API return status to success
1282: FND_MSG_PUB.initialize;
1283: END IF;
1284:
1285: -- Initialize API return status to success
1286: x_return_status := FND_API.G_RET_STS_SUCCESS;
1287:
1288: -- Api body starts
1289: if (g_debug > 0) then
1290: csd_gen_utility_pvt.dump_api_info
1359:
1360: fnd_message.set_name('CSD','CSD_INVALID_ITEM_ID');
1361: fnd_message.set_token('INVENTORY_ITEM_ID',C1.inventory_item_id);
1362: fnd_msg_pub.add;
1363: RAISE FND_API.G_EXC_ERROR;
1364: End;
1365:
1366: IF l_ib_flag = 'Y' THEN
1367:
1429:
1430: fnd_message.set_name('CSD','CSD_INVALID_SERIAL_NUMBER');
1431: fnd_message.set_token('SERIAL_NUMBER',C1.serial_number );
1432: fnd_msg_pub.add;
1433: RAISE FND_API.G_EXC_ERROR;
1434: End;
1435:
1436: -- Update csd_repairs with txn_status
1437: -- and the rscd_qty
1550: csd_gen_utility_pvt.add('Successfully completed Depot RMA receipt update ');
1551: END IF;
1552:
1553:
1554: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1555: IF (g_debug > 0 ) THEN
1556: csd_gen_utility_pvt.ADD('validate_and_write failed ');
1557: END IF;
1558:
1555: IF (g_debug > 0 ) THEN
1556: csd_gen_utility_pvt.ADD('validate_and_write failed ');
1557: END IF;
1558:
1559: RAISE FND_API.G_EXC_ERROR;
1560: END IF;
1561:
1562: v_total_records := v_total_records + 1;
1563:
1573: -- Return the count of number of records updated
1574: x_update_count := v_total_records ;
1575:
1576: EXCEPTION
1577: WHEN FND_API.G_EXC_ERROR THEN
1578: ROLLBACK TO Group_Rma_Update;
1579: x_return_status := FND_API.G_RET_STS_ERROR ;
1580: FND_MSG_PUB.Count_And_Get
1581: (p_count => x_msg_count,
1575:
1576: EXCEPTION
1577: WHEN FND_API.G_EXC_ERROR THEN
1578: ROLLBACK TO Group_Rma_Update;
1579: x_return_status := FND_API.G_RET_STS_ERROR ;
1580: FND_MSG_PUB.Count_And_Get
1581: (p_count => x_msg_count,
1582: p_data => x_msg_data );
1583: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1579: x_return_status := FND_API.G_RET_STS_ERROR ;
1580: FND_MSG_PUB.Count_And_Get
1581: (p_count => x_msg_count,
1582: p_data => x_msg_data );
1583: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1584: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1585: ROLLBACK TO Group_Rma_Update ;
1586: FND_MSG_PUB.Count_And_Get
1587: ( p_count => x_msg_count,
1580: FND_MSG_PUB.Count_And_Get
1581: (p_count => x_msg_count,
1582: p_data => x_msg_data );
1583: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1584: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1585: ROLLBACK TO Group_Rma_Update ;
1586: FND_MSG_PUB.Count_And_Get
1587: ( p_count => x_msg_count,
1588: p_data => x_msg_data );
1586: FND_MSG_PUB.Count_And_Get
1587: ( p_count => x_msg_count,
1588: p_data => x_msg_data );
1589: WHEN OTHERS THEN
1590: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1591: ROLLBACK TO Group_Rma_Update ;
1592: IF FND_MSG_PUB.Check_Msg_Level
1593: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1594: THEN
1608: /*--------------------------------------------------*/
1609:
1610: procedure Group_ship_update
1611: ( p_api_version IN NUMBER,
1612: p_commit IN VARCHAR2 := fnd_api.g_false,
1613: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1614: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
1615: p_repair_group_id IN number,
1616: x_update_count OUT NOCOPY NUMBER,
1609:
1610: procedure Group_ship_update
1611: ( p_api_version IN NUMBER,
1612: p_commit IN VARCHAR2 := fnd_api.g_false,
1613: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1614: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
1615: p_repair_group_id IN number,
1616: x_update_count OUT NOCOPY NUMBER,
1617: x_return_status OUT NOCOPY VARCHAR2,
1610: procedure Group_ship_update
1611: ( p_api_version IN NUMBER,
1612: p_commit IN VARCHAR2 := fnd_api.g_false,
1613: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1614: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
1615: p_repair_group_id IN number,
1616: x_update_count OUT NOCOPY NUMBER,
1617: x_return_status OUT NOCOPY VARCHAR2,
1618: x_msg_count OUT NOCOPY NUMBER,
1688: -- Standard Start of API savepoint
1689: SAVEPOINT Group_ship_update;
1690:
1691: -- Standard call to check for call compatibility.
1692: IF NOT FND_API.Compatible_API_Call (l_api_version,
1693: p_api_version,
1694: l_api_name ,
1695: G_PKG_NAME )
1696: THEN
1693: p_api_version,
1694: l_api_name ,
1695: G_PKG_NAME )
1696: THEN
1697: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1698: END IF;
1699:
1700: -- Initialize message list if p_init_msg_list is set to TRUE.
1701: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1697: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1698: END IF;
1699:
1700: -- Initialize message list if p_init_msg_list is set to TRUE.
1701: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1702: FND_MSG_PUB.initialize;
1703: END IF;
1704:
1705: -- Initialize API return status to success
1702: FND_MSG_PUB.initialize;
1703: END IF;
1704:
1705: -- Initialize API return status to success
1706: x_return_status := FND_API.G_RET_STS_SUCCESS;
1707:
1708: IF (g_debug > 0 ) THEN
1709: csd_gen_utility_pvt.add('at the begin Group_ship_update');
1710: END IF;
1851: END IF;
1852:
1853:
1854: v_total_records := v_total_records + 1;
1855: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1856: IF (g_debug > 0 ) THEN
1857: csd_gen_utility_pvt.ADD('Validate_and_write failed ');
1858: END IF;
1859:
1856: IF (g_debug > 0 ) THEN
1857: csd_gen_utility_pvt.ADD('Validate_and_write failed ');
1858: END IF;
1859:
1860: RAISE FND_API.G_EXC_ERROR;
1861: END IF;
1862:
1863: End loop;
1864:
1871:
1872: x_update_count := v_total_records;
1873:
1874: EXCEPTION
1875: WHEN FND_API.G_EXC_ERROR THEN
1876: ROLLBACK TO Group_ship_update;
1877: x_return_status := FND_API.G_RET_STS_ERROR ;
1878: FND_MSG_PUB.Count_And_Get
1879: (p_count => x_msg_count,
1873:
1874: EXCEPTION
1875: WHEN FND_API.G_EXC_ERROR THEN
1876: ROLLBACK TO Group_ship_update;
1877: x_return_status := FND_API.G_RET_STS_ERROR ;
1878: FND_MSG_PUB.Count_And_Get
1879: (p_count => x_msg_count,
1880: p_data => x_msg_data );
1881: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1877: x_return_status := FND_API.G_RET_STS_ERROR ;
1878: FND_MSG_PUB.Count_And_Get
1879: (p_count => x_msg_count,
1880: p_data => x_msg_data );
1881: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1882: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1883: ROLLBACK TO Group_ship_update ;
1884: FND_MSG_PUB.Count_And_Get
1885: ( p_count => x_msg_count,
1878: FND_MSG_PUB.Count_And_Get
1879: (p_count => x_msg_count,
1880: p_data => x_msg_data );
1881: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1882: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1883: ROLLBACK TO Group_ship_update ;
1884: FND_MSG_PUB.Count_And_Get
1885: ( p_count => x_msg_count,
1886: p_data => x_msg_data );
1884: FND_MSG_PUB.Count_And_Get
1885: ( p_count => x_msg_count,
1886: p_data => x_msg_data );
1887: WHEN OTHERS THEN
1888: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1889: ROLLBACK TO Group_ship_update ;
1890: IF FND_MSG_PUB.Check_Msg_Level
1891: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1892: THEN