[Home] [Help]
109: -- Standard Start of API savepoint
110: SAVEPOINT CREATE_REPAIR_ACTUAL_LINES;
111:
112: -- Standard call to check for call compatibility.
113: IF NOT FND_API.Compatible_API_Call ( l_api_version,
114: p_api_version,
115: l_api_name,
116: G_PKG_NAME)
117: THEN
114: p_api_version,
115: l_api_name,
116: G_PKG_NAME)
117: THEN
118: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
119: END IF;
120:
121: -- Initialize message list if p_init_msg_list is set to TRUE.
122: IF FND_API.to_Boolean( p_init_msg_list ) THEN
118: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
119: END IF;
120:
121: -- Initialize message list if p_init_msg_list is set to TRUE.
122: IF FND_API.to_Boolean( p_init_msg_list ) THEN
123: FND_MSG_PUB.initialize;
124: END IF;
125:
126: -- Initialize API return status to success
123: FND_MSG_PUB.initialize;
124: END IF;
125:
126: -- Initialize API return status to success
127: x_return_status := FND_API.G_RET_STS_SUCCESS;
128:
129: -- Api body starts
130: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
131: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'At the Beginning of create_repair_actual_lines');
156:
157: -- Validate the repair line ID
158: IF NOT( CSD_PROCESS_UTIL.Validate_rep_line_id
159: ( p_repair_line_id => px_CSD_ACTUAL_LINES_REC.repair_line_id )) THEN
160: RAISE FND_API.G_EXC_ERROR;
161: END IF;
162:
163: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
164: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'End Validate Repair Line id');
235: X_Return_Status => x_return_status,
236: X_Msg_Count => x_msg_count,
237: X_Msg_Data => x_msg_data);
238:
239: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
240: IF ( Fnd_Log.Level_Procedure >= G_debug_level) THEN
241: FND_LOG.STRING(Fnd_Log.Level_Procedure,l_mod_name,'csd_repair_actuals_pvt.create_repair_actuals failed');
242: END IF;
243: RAISE FND_API.G_EXC_ERROR;
239: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
240: IF ( Fnd_Log.Level_Procedure >= G_debug_level) THEN
241: FND_LOG.STRING(Fnd_Log.Level_Procedure,l_mod_name,'csd_repair_actuals_pvt.create_repair_actuals failed');
242: END IF;
243: RAISE FND_API.G_EXC_ERROR;
244: END IF;
245:
246: -- assign the created actuals header to actual lines record
247: px_CSD_ACTUAL_LINES_REC.repair_actual_id := lx_csd_actuals_rec.REPAIR_ACTUAL_ID;
287: FND_MSG_PUB.ADD;
288: IF (Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level) THEN
289: FND_LOG.MESSAGE(Fnd_Log.Level_Error,l_mod_name, FALSE);
290: END IF;
291: RAISE FND_API.G_EXC_ERROR;
292: End IF;
293: -- End check Actuals Header call
294:
295: END IF;
307: -- Calling charges API copy actual from estimate to create the record
308: -- in CS_ESTIMATE_DETAILS and will send in estimate_detail_id
309: -- which is the estimate_detail_id of the Actual line
310:
311: -- Raise FND_API.G_EXC_ERROR if the estimate_detail_id is null
312: IF (px_CSD_ACTUAL_LINES_REC.ESTIMATE_DETAIL_ID is null) THEN
313: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
314: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Missing estimate_detail_id for actual_source_code : '||px_CSD_ACTUAL_LINES_REC.actual_source_code);
315: END IF;
313: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
314: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Missing estimate_detail_id for actual_source_code : '||px_CSD_ACTUAL_LINES_REC.actual_source_code);
315: END IF;
316:
317: RAISE FND_API.G_EXC_ERROR;
318: END IF;
319:
320: --
321: -- API body
406: WHEN OTHERS THEN
407: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
408: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Others exception in CSD_REPAIR_ACTUAL_LINES_PKG.Insert_Row Call :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
409: END IF;
410: x_return_status := FND_API.G_RET_STS_ERROR;
411: END;
412:
413: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
414: RAISE FND_API.G_EXC_ERROR;
409: END IF;
410: x_return_status := FND_API.G_RET_STS_ERROR;
411: END;
412:
413: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
414: RAISE FND_API.G_EXC_ERROR;
415: END IF;
416:
417: --
410: x_return_status := FND_API.G_RET_STS_ERROR;
411: END;
412:
413: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
414: RAISE FND_API.G_EXC_ERROR;
415: END IF;
416:
417: --
418: -- End of API body
425: -- Debrief would have created a Charge line in the cs_estimate_details table
426: -- which is the estimate_detail_id of the Actual line
427: -- we link the Debrief createsd charge line to our Actual Line
428:
429: -- Raise FND_API.G_EXC_ERROR if the estimate_detail_id is null
430: IF (px_CSD_ACTUAL_LINES_REC.ESTIMATE_DETAIL_ID is null) THEN
431: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
432: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Missing estimate_detail_id for actual_source_code : '||px_CSD_ACTUAL_LINES_REC.actual_source_code);
433: END IF;
430: IF (px_CSD_ACTUAL_LINES_REC.ESTIMATE_DETAIL_ID is null) THEN
431: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
432: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Missing estimate_detail_id for actual_source_code : '||px_CSD_ACTUAL_LINES_REC.actual_source_code);
433: END IF;
434: RAISE FND_API.G_EXC_ERROR;
435: END IF;
436:
437: --
438: -- API body
520: WHEN OTHERS THEN
521: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
522: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Others exception in CSD_REPAIR_ACTUAL_LINES_PKG.Insert_Row Call :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
523: END IF;
524: x_return_status := FND_API.G_RET_STS_ERROR;
525: END;
526:
527: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
528: RAISE FND_API.G_EXC_ERROR;
523: END IF;
524: x_return_status := FND_API.G_RET_STS_ERROR;
525: END;
526:
527: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
528: RAISE FND_API.G_EXC_ERROR;
529: END IF;
530:
531: --
524: x_return_status := FND_API.G_RET_STS_ERROR;
525: END;
526:
527: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
528: RAISE FND_API.G_EXC_ERROR;
529: END IF;
530:
531: --
532: -- End of API body
543: END IF;
544:
545: -- If the actual_source_code = MANUAL then do validation for the
546: -- actual line record values passed from the Actuals UI
547: -- Raise FND_API.G_EXC_ERROR if it fails
548: --IF (px_CSD_ACTUAL_LINES_REC.actual_source_code in ('MANUAL') ) THEN
549:
550: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
551: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Begin Check reqd parameter');
602: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'l_bus_process_id ='||l_bus_process_id);
603: END IF;
604:
605: IF l_bus_process_id < 0 THEN
606: IF NVL(px_CHARGES_REC.business_process_id,FND_API.G_MISS_NUM)
607: <> FND_API.G_MISS_NUM THEN
608: l_bus_process_id := px_CHARGES_REC.business_process_id;
609: ELSE
610: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
603: END IF;
604:
605: IF l_bus_process_id < 0 THEN
606: IF NVL(px_CHARGES_REC.business_process_id,FND_API.G_MISS_NUM)
607: <> FND_API.G_MISS_NUM THEN
608: l_bus_process_id := px_CHARGES_REC.business_process_id;
609: ELSE
610: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
611: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Business process does not exist');
609: ELSE
610: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
611: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Business process does not exist');
612: END IF;
613: RAISE FND_API.G_EXC_ERROR;
614: END IF;
615: END IF;
616:
617: OPEN order_rec(px_CHARGES_REC.incident_id);
625: FND_MSG_PUB.ADD;
626: IF (Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level) THEN
627: FND_LOG.MESSAGE(Fnd_Log.Level_Error,l_mod_name, FALSE);
628: END IF;
629: RAISE FND_API.G_EXC_ERROR;
630: END IF;
631:
632: IF order_rec%ISOPEN THEN
633: CLOSE order_rec;
647: x_line_type_id => l_line_type_id,
648: x_line_category_code => l_line_category_code,
649: x_return_status => x_return_status );
650:
651: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
652: RAISE FND_API.G_EXC_ERROR;
653: END IF;
654:
655: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
648: x_line_category_code => l_line_category_code,
649: x_return_status => x_return_status );
650:
651: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
652: RAISE FND_API.G_EXC_ERROR;
653: END IF;
654:
655: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
656: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'line_type_id ='||l_line_type_id);
666: FND_MSG_PUB.ADD;
667: IF (Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level) THEN
668: FND_LOG.MESSAGE(Fnd_Log.Level_Error,l_mod_name, FALSE);
669: END IF;
670: RAISE FND_API.G_EXC_ERROR;
671: END IF;
672:
673: -- Get the currency code
674: IF NVL(px_CHARGES_REC.price_list_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
670: RAISE FND_API.G_EXC_ERROR;
671: END IF;
672:
673: -- Get the currency code
674: IF NVL(px_CHARGES_REC.price_list_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
675: BEGIN
676: SELECT currency_code
677: INTO l_curr_code
678: FROM oe_price_lists
684: FND_MSG_PUB.ADD;
685: IF (Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level) THEN
686: FND_LOG.MESSAGE(Fnd_Log.Level_Error,l_mod_name, FALSE);
687: END IF;
688: RAISE FND_API.G_EXC_ERROR;
689: END;
690: END IF;
691:
692: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
700: FND_MSG_PUB.ADD;
701: IF (Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level) THEN
702: FND_LOG.MESSAGE(Fnd_Log.Level_Error,l_mod_name, FALSE);
703: END IF;
704: RAISE FND_API.G_EXC_ERROR;
705: END IF;
706:
707: -- assigning values for the charge record
708: px_CHARGES_REC.business_process_id := l_bus_process_id;
726: -- ( p_estimate_line_rec => px_CSD_ACTUAL_LINES_REC,
727: -- x_charges_rec => lx_charges_rec,
728: -- x_return_status => x_return_status );
729:
730: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
731: RAISE FND_API.G_EXC_ERROR;
732: END IF;
733:
734: END IF;
727: -- x_charges_rec => lx_charges_rec,
728: -- x_return_status => x_return_status );
729:
730: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
731: RAISE FND_API.G_EXC_ERROR;
732: END IF;
733:
734: END IF;
735: -- end check for incident id is not null
745: -- Call table handler CSD_REPAIR_ESTIMATE_PVT.Process_Estimate_Lines in create mode
746: -- which calls charges API to update the record in CS_ESTIMATE_DETAILS
747: CSD_REPAIR_ESTIMATE_PVT.PROCESS_ESTIMATE_LINES
748: ( p_api_version => 1.0 ,
749: p_commit => fnd_api.g_false,
750: p_init_msg_list => fnd_api.g_true,
751: p_validation_level => fnd_api.g_valid_level_full,
752: p_action => 'CREATE',
753: p_cs_cost_flag => l_cs_cost_flag, -- swai: 12.1 service costing uptake bug 6960295
746: -- which calls charges API to update the record in CS_ESTIMATE_DETAILS
747: CSD_REPAIR_ESTIMATE_PVT.PROCESS_ESTIMATE_LINES
748: ( p_api_version => 1.0 ,
749: p_commit => fnd_api.g_false,
750: p_init_msg_list => fnd_api.g_true,
751: p_validation_level => fnd_api.g_valid_level_full,
752: p_action => 'CREATE',
753: p_cs_cost_flag => l_cs_cost_flag, -- swai: 12.1 service costing uptake bug 6960295
754: x_Charges_Rec => px_charges_rec,
747: CSD_REPAIR_ESTIMATE_PVT.PROCESS_ESTIMATE_LINES
748: ( p_api_version => 1.0 ,
749: p_commit => fnd_api.g_false,
750: p_init_msg_list => fnd_api.g_true,
751: p_validation_level => fnd_api.g_valid_level_full,
752: p_action => 'CREATE',
753: p_cs_cost_flag => l_cs_cost_flag, -- swai: 12.1 service costing uptake bug 6960295
754: x_Charges_Rec => px_charges_rec,
755: x_return_status => x_return_status,
755: x_return_status => x_return_status,
756: x_msg_count => x_msg_count,
757: x_msg_data => x_msg_data );
758:
759: -- Raise FND_API.G_EXC_ERROR if it fails
760: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
761: RAISE FND_API.G_EXC_ERROR;
762: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
763: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Creating Charge line failed for actual_source_code : '||px_CSD_ACTUAL_LINES_REC.actual_source_code);
756: x_msg_count => x_msg_count,
757: x_msg_data => x_msg_data );
758:
759: -- Raise FND_API.G_EXC_ERROR if it fails
760: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
761: RAISE FND_API.G_EXC_ERROR;
762: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
763: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Creating Charge line failed for actual_source_code : '||px_CSD_ACTUAL_LINES_REC.actual_source_code);
764: END IF;
757: x_msg_data => x_msg_data );
758:
759: -- Raise FND_API.G_EXC_ERROR if it fails
760: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
761: RAISE FND_API.G_EXC_ERROR;
762: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
763: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Creating Charge line failed for actual_source_code : '||px_CSD_ACTUAL_LINES_REC.actual_source_code);
764: END IF;
765: END IF;
845: WHEN OTHERS THEN
846: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
847: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Others exception in CSD_REPAIR_ACTUAL_LINES_PKG.Insert_Row Call :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
848: END IF;
849: x_return_status := FND_API.G_RET_STS_ERROR;
850: END;
851:
852: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
853: RAISE FND_API.G_EXC_ERROR;
848: END IF;
849: x_return_status := FND_API.G_RET_STS_ERROR;
850: END;
851:
852: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
853: RAISE FND_API.G_EXC_ERROR;
854: END IF;
855:
856: --
849: x_return_status := FND_API.G_RET_STS_ERROR;
850: END;
851:
852: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
853: RAISE FND_API.G_EXC_ERROR;
854: END IF;
855:
856: --
857: -- End of API body
860: END IF;
861:
862:
863: -- Standard check of p_commit.
864: IF FND_API.To_Boolean( p_commit ) THEN
865: COMMIT WORK;
866: END IF;
867:
868: -- Standard call to get message count and IF count is get message info.
870: (p_count => x_msg_count,
871: p_data => x_msg_data );
872:
873: EXCEPTION
874: WHEN FND_API.G_EXC_ERROR THEN
875: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
876: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_ERROR exception');
877: END IF;
878: x_return_status := FND_API.G_RET_STS_ERROR ;
872:
873: EXCEPTION
874: WHEN FND_API.G_EXC_ERROR THEN
875: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
876: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_ERROR exception');
877: END IF;
878: x_return_status := FND_API.G_RET_STS_ERROR ;
879: ROLLBACK TO CREATE_REPAIR_ACTUAL_LINES;
880: FND_MSG_PUB.Count_And_Get
874: WHEN FND_API.G_EXC_ERROR THEN
875: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
876: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_ERROR exception');
877: END IF;
878: x_return_status := FND_API.G_RET_STS_ERROR ;
879: ROLLBACK TO CREATE_REPAIR_ACTUAL_LINES;
880: FND_MSG_PUB.Count_And_Get
881: (p_count => x_msg_count,
882: p_data => x_msg_data );
879: ROLLBACK TO CREATE_REPAIR_ACTUAL_LINES;
880: FND_MSG_PUB.Count_And_Get
881: (p_count => x_msg_count,
882: p_data => x_msg_data );
883: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
884: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
885: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_UNEXPECTED_ERROR exception ');
886: END IF;
887: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
881: (p_count => x_msg_count,
882: p_data => x_msg_data );
883: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
884: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
885: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_UNEXPECTED_ERROR exception ');
886: END IF;
887: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
888: ROLLBACK TO CREATE_REPAIR_ACTUAL_LINES;
889: FND_MSG_PUB.Count_And_Get
883: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
884: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
885: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_UNEXPECTED_ERROR exception ');
886: END IF;
887: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
888: ROLLBACK TO CREATE_REPAIR_ACTUAL_LINES;
889: FND_MSG_PUB.Count_And_Get
890: ( p_count => x_msg_count,
891: p_data => x_msg_data );
893: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
894: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In OTHERS exception');
895: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Sql Err Msg :'||SQLERRM );
896: END IF;
897: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
898: ROLLBACK TO CREATE_REPAIR_ACTUAL_LINES;
899: IF FND_MSG_PUB.Check_Msg_Level
900: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
901: THEN
996: -- Standard Start of API savepoint
997: SAVEPOINT UPDATE_REPAIR_ACTUAL_LINES;
998:
999: -- Standard call to check for call compatibility.
1000: IF NOT FND_API.Compatible_API_Call ( l_api_version,
1001: p_api_version,
1002: l_api_name,
1003: G_PKG_NAME)
1004: THEN
1001: p_api_version,
1002: l_api_name,
1003: G_PKG_NAME)
1004: THEN
1005: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1006: END IF;
1007:
1008: -- Initialize message list if p_init_msg_list is set to TRUE.
1009: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1005: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1006: END IF;
1007:
1008: -- Initialize message list if p_init_msg_list is set to TRUE.
1009: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1010: FND_MSG_PUB.initialize;
1011: END IF;
1012:
1013: -- Initialize API return status to success
1010: FND_MSG_PUB.initialize;
1011: END IF;
1012:
1013: -- Initialize API return status to success
1014: x_return_status := FND_API.G_RET_STS_SUCCESS;
1015:
1016: -- Api body starts
1017: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1018: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'At the Beginning of update_repair_actual_lines');
1058:
1059: -- Validate the repair line ID
1060: IF NOT( CSD_PROCESS_UTIL.Validate_rep_line_id
1061: ( p_repair_line_id => px_CSD_ACTUAL_LINES_REC.repair_line_id )) THEN
1062: RAISE FND_API.G_EXC_ERROR;
1063: END IF;
1064:
1065: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1066: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'End Validate Repair Line id');
1066: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'End Validate Repair Line id');
1067: END IF;
1068:
1069: -- Validate the repair actual line id against csd_repair_actual_lines
1070: -- If it is invalid then raise FND_API.G_EXC_ERROR
1071: IF NVL(px_CSD_ACTUAL_LINES_REC.repair_actual_line_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
1072:
1073: OPEN repair_actual_lines(px_CSD_ACTUAL_LINES_REC.repair_actual_line_id);
1074: FETCH repair_actual_lines
1067: END IF;
1068:
1069: -- Validate the repair actual line id against csd_repair_actual_lines
1070: -- If it is invalid then raise FND_API.G_EXC_ERROR
1071: IF NVL(px_CSD_ACTUAL_LINES_REC.repair_actual_line_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
1072:
1073: OPEN repair_actual_lines(px_CSD_ACTUAL_LINES_REC.repair_actual_line_id);
1074: FETCH repair_actual_lines
1075: INTO l_act_obj_ver_num;
1080: FND_MSG_PUB.ADD;
1081: IF (Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level) THEN
1082: FND_LOG.MESSAGE(Fnd_Log.Level_Error,l_mod_name, FALSE);
1083: END IF;
1084: RAISE FND_API.G_EXC_ERROR;
1085: END IF;
1086:
1087: IF repair_actual_lines%ISOPEN THEN
1088: CLOSE repair_actual_lines;
1088: CLOSE repair_actual_lines;
1089: END IF;
1090:
1091: -- Validate the estimate detail id against cs_estimate_details
1092: -- If it is invalid then raise FND_API.G_EXC_ERROR
1093: OPEN charge_lines(px_Charges_Rec.estimate_detail_id);
1094: FETCH charge_lines
1095: INTO l_est_obj_ver_num;
1096:
1100: FND_MSG_PUB.ADD;
1101: IF (Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level) THEN
1102: FND_LOG.MESSAGE(Fnd_Log.Level_Error,l_mod_name, FALSE);
1103: END IF;
1104: RAISE FND_API.G_EXC_ERROR;
1105: END IF;
1106:
1107: IF charge_lines%ISOPEN THEN
1108: CLOSE charge_lines;
1113: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1114: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Validate Object Version Number for Charge and Actual Line');
1115: END IF;
1116:
1117: IF NVL(px_CSD_ACTUAL_LINES_REC.object_version_number,FND_API.G_MISS_NUM) <> l_act_obj_ver_num THEN
1118: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1119: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Actual Line Object Version Number does not match'
1120: || ' for the Repair Actual Line ID = ' || px_CSD_ACTUAL_LINES_REC.repair_actual_line_id);
1121: END IF;
1127: FND_MSG_PUB.ADD;
1128: IF (Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level) THEN
1129: FND_LOG.MESSAGE(Fnd_Log.Level_Error,l_mod_name, FALSE);
1130: END IF;
1131: RAISE FND_API.G_EXC_ERROR;
1132: ELSE
1133: -- Assigning object version number
1134: px_CSD_ACTUAL_LINES_REC.object_version_number := l_act_obj_ver_num+1;
1135: END IF;
1240: /*FP Fixed for bug#5117652 end*/
1241:
1242:
1243: -- Initialize API return status to SUCCESS
1244: x_return_status := FND_API.G_RET_STS_SUCCESS;
1245:
1246: -- --------------------------------------------------------------------
1247: -- Check the Repair_Actual_Lines_Rec.actual_source_code for validations
1248:
1281: -- Call table handler CSD_REPAIR_ESTIMATE_PVT.Process_Estimate_Lines in update mode
1282: -- which calls charges API to update the record in CS_ESTIMATE_DETAILS
1283: CSD_REPAIR_ESTIMATE_PVT.PROCESS_ESTIMATE_LINES
1284: ( p_api_version => 1.0 ,
1285: p_commit => fnd_api.g_false,
1286: p_init_msg_list => fnd_api.g_true,
1287: p_validation_level => fnd_api.g_valid_level_full,
1288: p_action => 'UPDATE',
1289: -- swai: 12.1 service costing uptake bug 6960295
1282: -- which calls charges API to update the record in CS_ESTIMATE_DETAILS
1283: CSD_REPAIR_ESTIMATE_PVT.PROCESS_ESTIMATE_LINES
1284: ( p_api_version => 1.0 ,
1285: p_commit => fnd_api.g_false,
1286: p_init_msg_list => fnd_api.g_true,
1287: p_validation_level => fnd_api.g_valid_level_full,
1288: p_action => 'UPDATE',
1289: -- swai: 12.1 service costing uptake bug 6960295
1290: p_cs_cost_flag => l_cs_cost_flag,
1283: CSD_REPAIR_ESTIMATE_PVT.PROCESS_ESTIMATE_LINES
1284: ( p_api_version => 1.0 ,
1285: p_commit => fnd_api.g_false,
1286: p_init_msg_list => fnd_api.g_true,
1287: p_validation_level => fnd_api.g_valid_level_full,
1288: p_action => 'UPDATE',
1289: -- swai: 12.1 service costing uptake bug 6960295
1290: p_cs_cost_flag => l_cs_cost_flag,
1291: x_Charges_Rec => px_charges_rec,
1295:
1296: -- The following check was added as a fix for bug 3378602. vkjain
1297: -- We do not want to continue with updating the Actual line if Charges
1298: -- API returned error.
1299: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1300: RAISE FND_API.G_EXC_ERROR;
1301: END IF;
1302:
1303: EXCEPTION
1296: -- The following check was added as a fix for bug 3378602. vkjain
1297: -- We do not want to continue with updating the Actual line if Charges
1298: -- API returned error.
1299: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1300: RAISE FND_API.G_EXC_ERROR;
1301: END IF;
1302:
1303: EXCEPTION
1304: -- The following exception was added as a fix for bug 3378602. vkjain
1301: END IF;
1302:
1303: EXCEPTION
1304: -- The following exception was added as a fix for bug 3378602. vkjain
1305: WHEN FND_API.G_EXC_ERROR THEN
1306: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1307: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Charges API returned error while calling UPDATE.');
1308: END IF;
1309: RAISE FND_API.G_EXC_ERROR;
1305: WHEN FND_API.G_EXC_ERROR THEN
1306: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1307: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Charges API returned error while calling UPDATE.');
1308: END IF;
1309: RAISE FND_API.G_EXC_ERROR;
1310: WHEN OTHERS THEN
1311: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1312: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Others exception error :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
1313: END IF;
1310: WHEN OTHERS THEN
1311: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1312: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Others exception error :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
1313: END IF;
1314: RAISE FND_API.G_EXC_ERROR;
1315: END;
1316:
1317: IF ( Fnd_Log.Level_Procedure >= G_debug_level) THEN
1318: FND_LOG.STRING(Fnd_Log.Level_Procedure,l_mod_name,'Call to CSD_REPAIR_ACTUAL_LINES_REC_PKG.Update_Row');
1325: ,p_OBJECT_VERSION_NUMBER => px_CSD_ACTUAL_LINES_REC.OBJECT_VERSION_NUMBER
1326: ,p_ESTIMATE_DETAIL_ID => px_CSD_ACTUAL_LINES_REC.ESTIMATE_DETAIL_ID
1327: ,p_REPAIR_ACTUAL_ID => px_CSD_ACTUAL_LINES_REC.REPAIR_ACTUAL_ID
1328: ,p_REPAIR_LINE_ID => px_CSD_ACTUAL_LINES_REC.REPAIR_LINE_ID
1329: ,p_CREATED_BY => FND_API.G_MISS_NUM
1330: ,p_CREATION_DATE => FND_API.G_MISS_DATE
1331: ,p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID
1332: ,p_LAST_UPDATE_DATE => SYSDATE
1333: ,p_LAST_UPDATE_LOGIN => FND_GLOBAL.CONC_LOGIN_ID
1326: ,p_ESTIMATE_DETAIL_ID => px_CSD_ACTUAL_LINES_REC.ESTIMATE_DETAIL_ID
1327: ,p_REPAIR_ACTUAL_ID => px_CSD_ACTUAL_LINES_REC.REPAIR_ACTUAL_ID
1328: ,p_REPAIR_LINE_ID => px_CSD_ACTUAL_LINES_REC.REPAIR_LINE_ID
1329: ,p_CREATED_BY => FND_API.G_MISS_NUM
1330: ,p_CREATION_DATE => FND_API.G_MISS_DATE
1331: ,p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID
1332: ,p_LAST_UPDATE_DATE => SYSDATE
1333: ,p_LAST_UPDATE_LOGIN => FND_GLOBAL.CONC_LOGIN_ID
1334: ,p_ITEM_COST => px_CSD_ACTUAL_LINES_REC.ITEM_COST
1384: WHEN OTHERS THEN
1385: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1386: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Others exception in CSD_REPAIR_ACTUAL_LINES_PKG.Update_Row Cal:'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
1387: END IF;
1388: RAISE FND_API.G_EXC_ERROR;
1389: END;
1390: --
1391: -- End of API body
1392: --
1391: -- End of API body
1392: --
1393:
1394: -- Standard check of p_commit.
1395: IF FND_API.To_Boolean( p_commit ) THEN
1396: COMMIT WORK;
1397: END IF;
1398:
1399: -- Standard call to get message count and IF count is get message info.
1401: (p_count => x_msg_count,
1402: p_data => x_msg_data );
1403:
1404: EXCEPTION
1405: WHEN FND_API.G_EXC_ERROR THEN
1406: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1407: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_ERROR exception');
1408: END IF;
1409: x_return_status := FND_API.G_RET_STS_ERROR ;
1403:
1404: EXCEPTION
1405: WHEN FND_API.G_EXC_ERROR THEN
1406: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1407: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_ERROR exception');
1408: END IF;
1409: x_return_status := FND_API.G_RET_STS_ERROR ;
1410: ROLLBACK TO UPDATE_REPAIR_ACTUAL_LINES;
1411: FND_MSG_PUB.Count_And_Get
1405: WHEN FND_API.G_EXC_ERROR THEN
1406: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1407: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_ERROR exception');
1408: END IF;
1409: x_return_status := FND_API.G_RET_STS_ERROR ;
1410: ROLLBACK TO UPDATE_REPAIR_ACTUAL_LINES;
1411: FND_MSG_PUB.Count_And_Get
1412: (p_count => x_msg_count,
1413: p_data => x_msg_data );
1410: ROLLBACK TO UPDATE_REPAIR_ACTUAL_LINES;
1411: FND_MSG_PUB.Count_And_Get
1412: (p_count => x_msg_count,
1413: p_data => x_msg_data );
1414: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1415: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1416: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_UNEXPECTED_ERROR exception ');
1417: END IF;
1418: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1412: (p_count => x_msg_count,
1413: p_data => x_msg_data );
1414: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1415: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1416: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_UNEXPECTED_ERROR exception ');
1417: END IF;
1418: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1419: ROLLBACK TO UPDATE_REPAIR_ACTUAL_LINES;
1420: FND_MSG_PUB.Count_And_Get
1414: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1415: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1416: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_UNEXPECTED_ERROR exception ');
1417: END IF;
1418: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1419: ROLLBACK TO UPDATE_REPAIR_ACTUAL_LINES;
1420: FND_MSG_PUB.Count_And_Get
1421: ( p_count => x_msg_count,
1422: p_data => x_msg_data );
1424: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1425: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In OTHERS exception');
1426: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Sql Err Msg :'||SQLERRM );
1427: END IF;
1428: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1429: ROLLBACK TO UPDATE_REPAIR_ACTUAL_LINES;
1430: IF FND_MSG_PUB.Check_Msg_Level
1431: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1432: THEN
1520: -- Standard Start of API savepoint
1521: SAVEPOINT DELETE_REPAIR_ACTUAL_LINES;
1522:
1523: -- Standard call to check for call compatibility.
1524: IF NOT FND_API.Compatible_API_Call ( l_api_version,
1525: p_api_version,
1526: l_api_name,
1527: G_PKG_NAME)
1528: THEN
1525: p_api_version,
1526: l_api_name,
1527: G_PKG_NAME)
1528: THEN
1529: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1530: END IF;
1531:
1532: -- Initialize message list if p_init_msg_list is set to TRUE.
1533: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1529: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1530: END IF;
1531:
1532: -- Initialize message list if p_init_msg_list is set to TRUE.
1533: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1534: FND_MSG_PUB.initialize;
1535: END IF;
1536:
1537: -- Initialize API return status to success
1534: FND_MSG_PUB.initialize;
1535: END IF;
1536:
1537: -- Initialize API return status to success
1538: x_return_status := FND_API.G_RET_STS_SUCCESS;
1539:
1540: -- Api body starts
1541: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1542: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'At the Beginning of delete_repair_actual_lines');
1569:
1570: -- Validate the repair line ID
1571: IF NOT( CSD_PROCESS_UTIL.Validate_rep_line_id
1572: ( p_repair_line_id => px_CSD_ACTUAL_LINES_REC.repair_line_id )) THEN
1573: RAISE FND_API.G_EXC_ERROR;
1574: END IF;
1575:
1576: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1577: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'End Validate Repair Line id');
1587:
1588: IF (px_CSD_ACTUAL_LINES_REC.actual_source_code in ('MANUAL', 'ESTIMATE')) then
1589:
1590: -- Validate the repair actual line id against csd_repair_actual_lines
1591: -- If it is interfaced then raise FND_API.G_EXC_ERROR
1592: IF NVL(px_CSD_ACTUAL_LINES_REC.repair_actual_line_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
1593:
1594: OPEN repair_actual_lines(px_CSD_ACTUAL_LINES_REC.repair_actual_line_id);
1595: FETCH repair_actual_lines
1588: IF (px_CSD_ACTUAL_LINES_REC.actual_source_code in ('MANUAL', 'ESTIMATE')) then
1589:
1590: -- Validate the repair actual line id against csd_repair_actual_lines
1591: -- If it is interfaced then raise FND_API.G_EXC_ERROR
1592: IF NVL(px_CSD_ACTUAL_LINES_REC.repair_actual_line_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
1593:
1594: OPEN repair_actual_lines(px_CSD_ACTUAL_LINES_REC.repair_actual_line_id);
1595: FETCH repair_actual_lines
1596: INTO l_actual_line_id,
1602: FND_MSG_PUB.ADD;
1603: IF (Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level) THEN
1604: FND_LOG.MESSAGE(Fnd_Log.Level_Error,l_mod_name, FALSE);
1605: END IF;
1606: RAISE FND_API.G_EXC_ERROR;
1607: END IF;
1608:
1609: IF repair_actual_lines%ISOPEN THEN
1610: CLOSE repair_actual_lines;
1615: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1616: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Validate Object Version Number');
1617: END IF;
1618:
1619: IF NVL(px_CSD_ACTUAL_LINES_REC.object_version_number,FND_API.G_MISS_NUM) <>l_obj_ver_num THEN
1620: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1621: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Object Version Number does not match'
1622: || ' for the Repair Actual Line ID = ' || l_actual_line_id);
1623: END IF;
1629: FND_MSG_PUB.ADD;
1630: IF (Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level) THEN
1631: FND_LOG.MESSAGE(Fnd_Log.Level_Error,l_mod_name, FALSE);
1632: END IF;
1633: RAISE FND_API.G_EXC_ERROR;
1634: END IF;
1635:
1636: IF (px_Charges_Rec.order_header_id is not null) THEN
1637: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1643: FND_MSG_PUB.ADD;
1644: IF (Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level) THEN
1645: FND_LOG.MESSAGE(Fnd_Log.Level_Error,l_mod_name, FALSE);
1646: END IF;
1647: RAISE FND_API.G_EXC_ERROR;
1648: END IF;
1649:
1650: -- Call table handler CSD_REPAIR_ESTIMATE_PVT.Process_Estimate_Lines to
1651: -- delete the record in CS_ESTIMATE_DETAILS
1654: END IF;
1655:
1656: CSD_REPAIR_ESTIMATE_PVT.PROCESS_ESTIMATE_LINES
1657: ( p_api_version => 1.0 ,
1658: p_commit => fnd_api.g_false,
1659: p_init_msg_list => fnd_api.g_true,
1660: p_validation_level => fnd_api.g_valid_level_full,
1661: p_action => 'DELETE',
1662: -- swai: 12.1 service costing uptake bug 6960295
1655:
1656: CSD_REPAIR_ESTIMATE_PVT.PROCESS_ESTIMATE_LINES
1657: ( p_api_version => 1.0 ,
1658: p_commit => fnd_api.g_false,
1659: p_init_msg_list => fnd_api.g_true,
1660: p_validation_level => fnd_api.g_valid_level_full,
1661: p_action => 'DELETE',
1662: -- swai: 12.1 service costing uptake bug 6960295
1663: p_cs_cost_flag => l_cs_cost_flag,
1656: CSD_REPAIR_ESTIMATE_PVT.PROCESS_ESTIMATE_LINES
1657: ( p_api_version => 1.0 ,
1658: p_commit => fnd_api.g_false,
1659: p_init_msg_list => fnd_api.g_true,
1660: p_validation_level => fnd_api.g_valid_level_full,
1661: p_action => 'DELETE',
1662: -- swai: 12.1 service costing uptake bug 6960295
1663: p_cs_cost_flag => l_cs_cost_flag,
1664: x_Charges_Rec => px_charges_rec,
1665: x_return_status => x_return_status,
1666: x_msg_count => x_msg_count,
1667: x_msg_data => x_msg_data);
1668:
1669: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1670: RAISE FND_API.G_EXC_ERROR;
1671: END IF;
1672:
1673: IF ( Fnd_Log.Level_Procedure >= G_debug_level) THEN
1666: x_msg_count => x_msg_count,
1667: x_msg_data => x_msg_data);
1668:
1669: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1670: RAISE FND_API.G_EXC_ERROR;
1671: END IF;
1672:
1673: IF ( Fnd_Log.Level_Procedure >= G_debug_level) THEN
1674: FND_LOG.STRING(Fnd_Log.Level_Procedure,l_mod_name,'Call to CSD_REPAIR_ACTUAL_LINES_PKG.Delete_Row');
1685: WHEN OTHERS THEN
1686: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1687: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Others exception in CSD_REPAIR_ACTUAL_LINES_PKG.Delete_Row Call :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
1688: END IF;
1689: x_return_status := FND_API.G_RET_STS_ERROR;
1690: END;
1691:
1692: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1693: RAISE FND_API.G_EXC_ERROR;
1688: END IF;
1689: x_return_status := FND_API.G_RET_STS_ERROR;
1690: END;
1691:
1692: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1693: RAISE FND_API.G_EXC_ERROR;
1694: END IF;
1695:
1696: END IF;
1689: x_return_status := FND_API.G_RET_STS_ERROR;
1690: END;
1691:
1692: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1693: RAISE FND_API.G_EXC_ERROR;
1694: END IF;
1695:
1696: END IF;
1697: --
1698: -- End of API body
1699: --
1700:
1701: -- Standard check of p_commit.
1702: IF FND_API.To_Boolean( p_commit ) THEN
1703: COMMIT WORK;
1704: END IF;
1705:
1706: -- Standard call to get message count and IF count is get message info.
1707: FND_MSG_PUB.Count_And_Get
1708: (p_count => x_msg_count,
1709: p_data => x_msg_data );
1710: EXCEPTION
1711: WHEN FND_API.G_EXC_ERROR THEN
1712: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1713: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_ERROR exception');
1714: END IF;
1715: x_return_status := FND_API.G_RET_STS_ERROR ;
1709: p_data => x_msg_data );
1710: EXCEPTION
1711: WHEN FND_API.G_EXC_ERROR THEN
1712: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1713: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_ERROR exception');
1714: END IF;
1715: x_return_status := FND_API.G_RET_STS_ERROR ;
1716: ROLLBACK TO DELETE_REPAIR_ACTUAL_LINES;
1717: FND_MSG_PUB.Count_And_Get
1711: WHEN FND_API.G_EXC_ERROR THEN
1712: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1713: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_ERROR exception');
1714: END IF;
1715: x_return_status := FND_API.G_RET_STS_ERROR ;
1716: ROLLBACK TO DELETE_REPAIR_ACTUAL_LINES;
1717: FND_MSG_PUB.Count_And_Get
1718: (p_count => x_msg_count,
1719: p_data => x_msg_data );
1716: ROLLBACK TO DELETE_REPAIR_ACTUAL_LINES;
1717: FND_MSG_PUB.Count_And_Get
1718: (p_count => x_msg_count,
1719: p_data => x_msg_data );
1720: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1721: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1722: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_UNEXPECTED_ERROR exception ');
1723: END IF;
1724: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1718: (p_count => x_msg_count,
1719: p_data => x_msg_data );
1720: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1721: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1722: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_UNEXPECTED_ERROR exception ');
1723: END IF;
1724: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1725: ROLLBACK TO DELETE_REPAIR_ACTUAL_LINES;
1726: FND_MSG_PUB.Count_And_Get
1720: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1721: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1722: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_UNEXPECTED_ERROR exception ');
1723: END IF;
1724: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1725: ROLLBACK TO DELETE_REPAIR_ACTUAL_LINES;
1726: FND_MSG_PUB.Count_And_Get
1727: ( p_count => x_msg_count,
1728: p_data => x_msg_data );
1730: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1731: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In OTHERS exception');
1732: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Sql Err Msg :'||SQLERRM );
1733: END IF;
1734: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1735: ROLLBACK TO DELETE_REPAIR_ACTUAL_LINES;
1736: IF FND_MSG_PUB.Check_Msg_Level
1737: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1738: THEN
1801: -- Standard Start of API savepoint
1802: SAVEPOINT LOCK_REPAIR_ACTUAL_LINES;
1803:
1804: -- Standard call to check for call compatibility.
1805: IF NOT FND_API.Compatible_API_Call ( l_api_version,
1806: p_api_version,
1807: l_api_name,
1808: G_PKG_NAME)
1809: THEN
1806: p_api_version,
1807: l_api_name,
1808: G_PKG_NAME)
1809: THEN
1810: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1811: END IF;
1812:
1813: -- Initialize message list if p_init_msg_list is set to TRUE.
1814: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1810: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1811: END IF;
1812:
1813: -- Initialize message list if p_init_msg_list is set to TRUE.
1814: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1815: FND_MSG_PUB.initialize;
1816: END IF;
1817:
1818: -- Initialize API return status to success
1815: FND_MSG_PUB.initialize;
1816: END IF;
1817:
1818: -- Initialize API return status to success
1819: x_return_status := FND_API.G_RET_STS_SUCCESS;
1820:
1821: -- Api body starts
1822: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1823: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'At the Beginning of lock_repair_actual_lines');
1862: WHEN OTHERS THEN
1863: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1864: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Others exception in CSD_REPAIR_ACTUAL_LINES_PKG.Lock_Row Call :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
1865: END IF;
1866: x_return_status := FND_API.G_RET_STS_ERROR;
1867: END;
1868:
1869: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1870: RAISE FND_API.G_EXC_ERROR;
1865: END IF;
1866: x_return_status := FND_API.G_RET_STS_ERROR;
1867: END;
1868:
1869: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1870: RAISE FND_API.G_EXC_ERROR;
1871: END IF;
1872:
1873: --
1866: x_return_status := FND_API.G_RET_STS_ERROR;
1867: END;
1868:
1869: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1870: RAISE FND_API.G_EXC_ERROR;
1871: END IF;
1872:
1873: --
1874: -- End of API body
1874: -- End of API body
1875: --
1876:
1877: -- Standard check of p_commit.
1878: IF FND_API.To_Boolean( p_commit ) THEN
1879: COMMIT WORK;
1880: END IF;
1881:
1882: -- Standard call to get message count and IF count is get message info.
1883: FND_MSG_PUB.Count_And_Get
1884: (p_count => x_msg_count,
1885: p_data => x_msg_data );
1886: EXCEPTION
1887: WHEN FND_API.G_EXC_ERROR THEN
1888: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1889: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_ERROR exception');
1890: END IF;
1891: x_return_status := FND_API.G_RET_STS_ERROR ;
1885: p_data => x_msg_data );
1886: EXCEPTION
1887: WHEN FND_API.G_EXC_ERROR THEN
1888: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1889: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_ERROR exception');
1890: END IF;
1891: x_return_status := FND_API.G_RET_STS_ERROR ;
1892: ROLLBACK TO LOCK_REPAIR_ACTUAL_LINES;
1893: FND_MSG_PUB.Count_And_Get
1887: WHEN FND_API.G_EXC_ERROR THEN
1888: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1889: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_ERROR exception');
1890: END IF;
1891: x_return_status := FND_API.G_RET_STS_ERROR ;
1892: ROLLBACK TO LOCK_REPAIR_ACTUAL_LINES;
1893: FND_MSG_PUB.Count_And_Get
1894: (p_count => x_msg_count,
1895: p_data => x_msg_data );
1892: ROLLBACK TO LOCK_REPAIR_ACTUAL_LINES;
1893: FND_MSG_PUB.Count_And_Get
1894: (p_count => x_msg_count,
1895: p_data => x_msg_data );
1896: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1897: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1898: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_UNEXPECTED_ERROR exception ');
1899: END IF;
1900: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1894: (p_count => x_msg_count,
1895: p_data => x_msg_data );
1896: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1897: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1898: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_UNEXPECTED_ERROR exception ');
1899: END IF;
1900: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1901: ROLLBACK TO LOCK_REPAIR_ACTUAL_LINES;
1902: FND_MSG_PUB.Count_And_Get
1896: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1897: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1898: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_UNEXPECTED_ERROR exception ');
1899: END IF;
1900: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1901: ROLLBACK TO LOCK_REPAIR_ACTUAL_LINES;
1902: FND_MSG_PUB.Count_And_Get
1903: ( p_count => x_msg_count,
1904: p_data => x_msg_data );
1906: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1907: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In OTHERS exception');
1908: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Sql Err Msg :'||SQLERRM );
1909: END IF;
1910: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1911: ROLLBACK TO LOCK_REPAIR_ACTUAL_LINES;
1912: IF FND_MSG_PUB.Check_Msg_Level
1913: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1914: THEN