49: -- Standard Start of API savepoint
50: SAVEPOINT Create_RO_Diagnostic_Code;
51:
52: -- Standard call to check for call compatibility.
53: IF NOT FND_API.Compatible_API_Call (lc_api_version,
54: p_api_version,
55: lc_api_name ,
56: G_PKG_NAME )
57: THEN
54: p_api_version,
55: lc_api_name ,
56: G_PKG_NAME )
57: THEN
58: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
59: END IF;
60:
61: -- Initialize message list if p_init_msg_list is set to TRUE.
62: IF FND_API.to_Boolean( p_init_msg_list ) THEN
58: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
59: END IF;
60:
61: -- Initialize message list if p_init_msg_list is set to TRUE.
62: IF FND_API.to_Boolean( p_init_msg_list ) THEN
63: FND_MSG_PUB.initialize;
64: END IF;
65:
66: IF (lc_proc_level >= lc_debug_level) THEN
74: ( p_ro_diagnostic_code_rec => p_ro_diagnostic_code_rec);
75: END IF;
76:
77: -- Initialize API return status to success
78: x_return_status := FND_API.G_RET_STS_SUCCESS;
79:
80: -- Api body starts
81:
82: -- Check the required parameters
111:
112: -- Validate the repair line ID
113: IF NOT( CSD_PROCESS_UTIL.Validate_rep_line_id
114: ( p_repair_line_id => p_ro_diagnostic_code_rec.repair_line_id )) THEN
115: RAISE FND_API.G_EXC_ERROR;
116: END IF;
117:
118: -- Validate the ro association for diagnostic code
119: if (lc_proc_level >= lc_debug_level) then
193: WHEN OTHERS THEN
194: IF ( lc_excep_level >= lc_debug_level) THEN
195: FND_LOG.STRING(lc_excep_level,lc_mod_name,'Others exception in CSD_RO_DIAGNOSTIC_CODES_PKG.Insert_Row Call :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
196: END IF;
197: x_return_status := FND_API.G_RET_STS_ERROR;
198: END;
199:
200: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
201: RAISE FND_API.G_EXC_ERROR;
196: END IF;
197: x_return_status := FND_API.G_RET_STS_ERROR;
198: END;
199:
200: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
201: RAISE FND_API.G_EXC_ERROR;
202: END IF;
203:
204: if (lc_proc_level >= lc_debug_level) then
197: x_return_status := FND_API.G_RET_STS_ERROR;
198: END;
199:
200: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
201: RAISE FND_API.G_EXC_ERROR;
202: END IF;
203:
204: if (lc_proc_level >= lc_debug_level) then
205: FND_LOG.STRING(lc_proc_level, lc_mod_name,
208:
209: -- Api body ends here
210:
211: -- Standard check of p_commit.
212: IF FND_API.To_Boolean( p_commit ) THEN
213: COMMIT WORK;
214: END IF;
215:
216: -- Standard call to get message count and IF count is get message info.
227: WHEN CSD_RDC_ASSOCIATION_EXISTS THEN
228: ROLLBACK TO Create_RO_Diagnostic_Code;
229:
230: -- RO diagnostic code already exists
231: x_return_status := FND_API.G_RET_STS_ERROR ;
232:
233: -- save message in fnd stack
234: if (lc_stat_level >= lc_debug_level) then
235: FND_LOG.STRING(lc_stat_level, lc_mod_name,
248: FND_LOG.STRING(lc_excep_level, lc_mod_name,
249: 'RO diagnostic code already exists');
250: END IF;
251:
252: WHEN FND_API.G_EXC_ERROR THEN
253: ROLLBACK TO Create_RO_Diagnostic_Code;
254:
255: x_return_status := FND_API.G_RET_STS_ERROR;
256:
251:
252: WHEN FND_API.G_EXC_ERROR THEN
253: ROLLBACK TO Create_RO_Diagnostic_Code;
254:
255: x_return_status := FND_API.G_RET_STS_ERROR;
256:
257: FND_MSG_PUB.Count_And_Get
258: (p_count => x_msg_count,
259: p_data => x_msg_data );
263: FND_LOG.STRING(lc_excep_level, lc_mod_name,
264: 'EXC_ERROR['||x_msg_data||']');
265: END IF;
266:
267: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
268: ROLLBACK TO Create_RO_Diagnostic_Code;
269:
270: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
271:
266:
267: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
268: ROLLBACK TO Create_RO_Diagnostic_Code;
269:
270: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
271:
272: IF FND_MSG_PUB.Check_Msg_Level
273: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
274: THEN
293:
294: WHEN OTHERS THEN
295: ROLLBACK TO Create_RO_Diagnostic_Code;
296:
297: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
298:
299: -- save message in fnd stack
300: IF FND_MSG_PUB.Check_Msg_Level
301: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
372: -- Standard Start of API savepoint
373: SAVEPOINT Update_RO_Diagnostic_Code;
374:
375: -- Standard call to check for call compatibility.
376: IF NOT FND_API.Compatible_API_Call (lc_api_version,
377: p_api_version,
378: lc_api_name ,
379: G_PKG_NAME )
380: THEN
377: p_api_version,
378: lc_api_name ,
379: G_PKG_NAME )
380: THEN
381: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
382: END IF;
383:
384: -- Initialize message list if p_init_msg_list is set to TRUE.
385: IF FND_API.to_Boolean( p_init_msg_list ) THEN
381: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
382: END IF;
383:
384: -- Initialize message list if p_init_msg_list is set to TRUE.
385: IF FND_API.to_Boolean( p_init_msg_list ) THEN
386: FND_MSG_PUB.initialize;
387: END IF;
388:
389: IF (lc_proc_level >= lc_debug_level) THEN
397: ( p_ro_diagnostic_code_rec => p_ro_diagnostic_code_rec);
398: END IF;
399:
400: -- Initialize API return status to success
401: x_return_status := FND_API.G_RET_STS_SUCCESS;
402:
403: -- Api body starts
404:
405: -- Check the required parameters
420: p_param_name => 'DIAGNOSTIC_ITEM_ID',
421: p_api_name => lc_api_name);
422:
423: -- Check if required parameter is passed in as G_MISS
424: IF (p_ro_diagnostic_code_rec.repair_line_id = FND_API.G_MISS_NUM) THEN
425: RAISE CSD_RDC_RO_ID_MISSING;
426: END IF;
427:
428: -- Check if required parameter is passed in as G_MISS
425: RAISE CSD_RDC_RO_ID_MISSING;
426: END IF;
427:
428: -- Check if required parameter is passed in as G_MISS
429: IF (p_ro_diagnostic_code_rec.diagnostic_code_id = FND_API.G_MISS_NUM) THEN
430: RAISE CSD_RDC_DC_ID_MISSING;
431: END IF;
432:
433: -- Validate the ro diagnostic code association
498: 'Validate object version number for ro diagnostic code association');
499: end if;
500:
501: -- Validate if object version number for ro diagnostic code is same as the one passed in
502: IF NVL(p_ro_diagnostic_code_rec.object_version_number,FND_API.G_MISS_NUM) <> l_obj_ver_num THEN
503: RAISE CSD_RDC_OVN_MISMATCH;
504: ELSE
505: if (lc_stat_level >= lc_debug_level) then
506: FND_LOG.STRING(lc_stat_level, lc_mod_name,
517: -- Validate the repair line ID
518: IF (p_ro_diagnostic_code_rec.repair_line_id IS NOT NULL) THEN
519: IF NOT( CSD_PROCESS_UTIL.Validate_rep_line_id
520: ( p_repair_line_id => p_ro_diagnostic_code_rec.repair_line_id )) THEN
521: RAISE FND_API.G_EXC_ERROR;
522: END IF;
523: END IF;
524:
525: -- Validate the ro association for diagnostic code
604: WHEN OTHERS THEN
605: IF ( lc_excep_level >= lc_debug_level) THEN
606: FND_LOG.STRING(lc_excep_level,lc_mod_name,'Others exception in CSD_RO_DIAGNOSTIC_CODES_PKG.Update_Row Call :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
607: END IF;
608: x_return_status := FND_API.G_RET_STS_ERROR;
609: END;
610:
611: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
612: RAISE FND_API.G_EXC_ERROR;
607: END IF;
608: x_return_status := FND_API.G_RET_STS_ERROR;
609: END;
610:
611: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
612: RAISE FND_API.G_EXC_ERROR;
613: END IF;
614:
615: if (lc_proc_level >= lc_debug_level) then
608: x_return_status := FND_API.G_RET_STS_ERROR;
609: END;
610:
611: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
612: RAISE FND_API.G_EXC_ERROR;
613: END IF;
614:
615: if (lc_proc_level >= lc_debug_level) then
616: FND_LOG.STRING(lc_proc_level, lc_mod_name,
619:
620: -- Api body ends here
621:
622: -- Standard check of p_commit.
623: IF FND_API.To_Boolean( p_commit ) THEN
624: COMMIT WORK;
625: END IF;
626:
627: -- Standard call to get message count and IF count is get message info.
638:
639: WHEN CSD_RDC_RO_ID_MISSING THEN
640: ROLLBACK TO Update_RO_Diagnostic_Code;
641: -- Repair line id is missing
642: x_return_status := FND_API.G_RET_STS_ERROR ;
643:
644: -- save message in fnd stack
645: if (lc_stat_level >= lc_debug_level) then
646: FND_LOG.STRING(lc_stat_level, lc_mod_name,
663:
664: WHEN CSD_RDC_DC_ID_MISSING THEN
665: ROLLBACK TO Update_RO_Diagnostic_Code;
666: -- Diagnostic code id is missing
667: x_return_status := FND_API.G_RET_STS_ERROR ;
668:
669: -- save message in fnd stack
670: if (lc_stat_level >= lc_debug_level) then
671: FND_LOG.STRING(lc_stat_level, lc_mod_name,
689: WHEN CSD_RDC_ASSOCIATION_EXISTS THEN
690: ROLLBACK TO Create_RO_Diagnostic_Code;
691:
692: -- RO diagnostic code already exists
693: x_return_status := FND_API.G_RET_STS_ERROR ;
694:
695: -- save message in fnd stack
696: if (lc_stat_level >= lc_debug_level) then
697: FND_LOG.STRING(lc_stat_level, lc_mod_name,
714: WHEN CSD_RDC_INVALID_ID THEN
715: ROLLBACK TO Update_RO_Diagnostic_Code;
716:
717: -- RO diagnostic code id is invalid
718: x_return_status := FND_API.G_RET_STS_ERROR ;
719:
720: -- save message in fnd stack
721: if (lc_stat_level >= lc_debug_level) then
722: FND_LOG.STRING(lc_stat_level, lc_mod_name,
739: WHEN CSD_RDC_GET_OVN_ERROR THEN
740: ROLLBACK TO Update_RO_Diagnostic_Code;
741:
742: -- RO diagnostic code get object version number error
743: x_return_status := FND_API.G_RET_STS_ERROR ;
744:
745: -- save message in fnd stack
746: if (lc_stat_level >= lc_debug_level) then
747: FND_LOG.STRING(lc_stat_level, lc_mod_name,
764: WHEN CSD_RDC_OVN_MISMATCH THEN
765: ROLLBACK TO Update_RO_Diagnostic_Code;
766:
767: -- RO diagnostic code object version number mismatch
768: x_return_status := FND_API.G_RET_STS_ERROR ;
769:
770: -- save message in fnd stack
771: if (lc_stat_level >= lc_debug_level) then
772: FND_LOG.STRING(lc_stat_level, lc_mod_name,
785: FND_LOG.STRING(lc_excep_level, lc_mod_name,
786: 'RO diagnostic code object version number mismatch');
787: END IF;
788:
789: WHEN FND_API.G_EXC_ERROR THEN
790: ROLLBACK TO Update_RO_Diagnostic_Code;
791:
792: x_return_status := FND_API.G_RET_STS_ERROR;
793:
788:
789: WHEN FND_API.G_EXC_ERROR THEN
790: ROLLBACK TO Update_RO_Diagnostic_Code;
791:
792: x_return_status := FND_API.G_RET_STS_ERROR;
793:
794: FND_MSG_PUB.Count_And_Get
795: (p_count => x_msg_count,
796: p_data => x_msg_data );
800: FND_LOG.STRING(lc_excep_level, lc_mod_name,
801: 'EXC_ERROR['||x_msg_data||']');
802: END IF;
803:
804: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
805: ROLLBACK TO Update_RO_Diagnostic_Code;
806:
807: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
808:
803:
804: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
805: ROLLBACK TO Update_RO_Diagnostic_Code;
806:
807: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
808:
809: IF FND_MSG_PUB.Check_Msg_Level
810: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
811: THEN
830:
831: WHEN OTHERS THEN
832: ROLLBACK TO Update_RO_Diagnostic_Code;
833:
834: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
835:
836: -- save message in fnd stack
837: IF FND_MSG_PUB.Check_Msg_Level
838: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
899: -- Standard Start of API savepoint
900: SAVEPOINT Delete_RO_Diagnostic_Code;
901:
902: -- Standard call to check for call compatibility.
903: IF NOT FND_API.Compatible_API_Call (lc_api_version,
904: p_api_version,
905: lc_api_name ,
906: G_PKG_NAME )
907: THEN
904: p_api_version,
905: lc_api_name ,
906: G_PKG_NAME )
907: THEN
908: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
909: END IF;
910:
911: -- Initialize message list if p_init_msg_list is set to TRUE.
912: IF FND_API.to_Boolean( p_init_msg_list ) THEN
908: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
909: END IF;
910:
911: -- Initialize message list if p_init_msg_list is set to TRUE.
912: IF FND_API.to_Boolean( p_init_msg_list ) THEN
913: FND_MSG_PUB.initialize;
914: END IF;
915:
916: IF (lc_proc_level >= lc_debug_level) THEN
918: 'Entered Delete_RO_Diagnostic_Code');
919: END IF;
920:
921: -- Initialize API return status to success
922: x_return_status := FND_API.G_RET_STS_SUCCESS;
923:
924: -- Api body starts
925:
926: -- Check the required parameters
951: WHEN OTHERS THEN
952: IF ( lc_excep_level >= lc_debug_level) THEN
953: FND_LOG.STRING(lc_excep_level,lc_mod_name,'Others exception in CSD_RO_DIAGNOSTIC_CODES_PKG.Delete_Row Call :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
954: END IF;
955: x_return_status := FND_API.G_RET_STS_ERROR;
956: END;
957:
958: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
959: RAISE FND_API.G_EXC_ERROR;
954: END IF;
955: x_return_status := FND_API.G_RET_STS_ERROR;
956: END;
957:
958: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
959: RAISE FND_API.G_EXC_ERROR;
960: END IF;
961:
962: if (lc_proc_level >= lc_debug_level) then
955: x_return_status := FND_API.G_RET_STS_ERROR;
956: END;
957:
958: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
959: RAISE FND_API.G_EXC_ERROR;
960: END IF;
961:
962: if (lc_proc_level >= lc_debug_level) then
963: FND_LOG.STRING(lc_proc_level, lc_mod_name,
966:
967: -- Api body ends here
968:
969: -- Standard check of p_commit.
970: IF FND_API.To_Boolean( p_commit ) THEN
971: COMMIT WORK;
972: END IF;
973:
974: -- Standard call to get message count and IF count is get message info.
981: 'Leaving Delete_RO_Diagnostic_Code');
982: END IF;
983:
984: EXCEPTION
985: WHEN FND_API.G_EXC_ERROR THEN
986: ROLLBACK TO Delete_RO_Diagnostic_Code;
987:
988: x_return_status := FND_API.G_RET_STS_ERROR;
989:
984: EXCEPTION
985: WHEN FND_API.G_EXC_ERROR THEN
986: ROLLBACK TO Delete_RO_Diagnostic_Code;
987:
988: x_return_status := FND_API.G_RET_STS_ERROR;
989:
990: FND_MSG_PUB.Count_And_Get
991: (p_count => x_msg_count,
992: p_data => x_msg_data );
996: FND_LOG.STRING(lc_excep_level, lc_mod_name,
997: 'EXC_ERROR['||x_msg_data||']');
998: END IF;
999:
1000: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1001: ROLLBACK TO Delete_RO_Diagnostic_Code;
1002:
1003: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1004:
999:
1000: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1001: ROLLBACK TO Delete_RO_Diagnostic_Code;
1002:
1003: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1004:
1005: IF FND_MSG_PUB.Check_Msg_Level
1006: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1007: THEN
1026:
1027: WHEN OTHERS THEN
1028: ROLLBACK TO Delete_RO_Diagnostic_Code;
1029:
1030: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1031:
1032: -- save message in fnd stack
1033: IF FND_MSG_PUB.Check_Msg_Level
1034: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1094: -- Standard Start of API savepoint
1095: SAVEPOINT Lock_RO_Diagnostic_Code;
1096:
1097: -- Standard call to check for call compatibility.
1098: IF NOT FND_API.Compatible_API_Call (lc_api_version,
1099: p_api_version,
1100: lc_api_name ,
1101: G_PKG_NAME )
1102: THEN
1099: p_api_version,
1100: lc_api_name ,
1101: G_PKG_NAME )
1102: THEN
1103: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1104: END IF;
1105:
1106: -- Initialize message list if p_init_msg_list is set to TRUE.
1107: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1103: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1104: END IF;
1105:
1106: -- Initialize message list if p_init_msg_list is set to TRUE.
1107: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1108: FND_MSG_PUB.initialize;
1109: END IF;
1110:
1111: IF (lc_proc_level >= lc_debug_level) THEN
1113: 'Entered Lock_RO_Diagnostic_Code');
1114: END IF;
1115:
1116: -- Initialize API return status to success
1117: x_return_status := FND_API.G_RET_STS_SUCCESS;
1118:
1119: -- Api body starts
1120:
1121: -- Check the required parameters
1181: WHEN OTHERS THEN
1182: IF ( lc_excep_level >= lc_debug_level) THEN
1183: FND_LOG.STRING(lc_excep_level,lc_mod_name,'Others exception in CSD_RO_DIAGNOSTIC_CODES_PKG.Lock_Row Call :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
1184: END IF;
1185: x_return_status := FND_API.G_RET_STS_ERROR;
1186: END;
1187:
1188: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1189: RAISE FND_API.G_EXC_ERROR;
1184: END IF;
1185: x_return_status := FND_API.G_RET_STS_ERROR;
1186: END;
1187:
1188: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1189: RAISE FND_API.G_EXC_ERROR;
1190: END IF;
1191:
1192: if (lc_proc_level >= lc_debug_level) then
1185: x_return_status := FND_API.G_RET_STS_ERROR;
1186: END;
1187:
1188: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1189: RAISE FND_API.G_EXC_ERROR;
1190: END IF;
1191:
1192: if (lc_proc_level >= lc_debug_level) then
1193: FND_LOG.STRING(lc_proc_level, lc_mod_name,
1196:
1197: -- Api body ends here
1198:
1199: -- Standard check of p_commit.
1200: IF FND_API.To_Boolean( p_commit ) THEN
1201: COMMIT WORK;
1202: END IF;
1203:
1204: -- Standard call to get message count and IF count is get message info.
1211: 'Leaving Lock_RO_Diagnostic_Code');
1212: END IF;
1213:
1214: EXCEPTION
1215: WHEN FND_API.G_EXC_ERROR THEN
1216: ROLLBACK TO Lock_RO_Diagnostic_Code;
1217:
1218: x_return_status := FND_API.G_RET_STS_ERROR;
1219:
1214: EXCEPTION
1215: WHEN FND_API.G_EXC_ERROR THEN
1216: ROLLBACK TO Lock_RO_Diagnostic_Code;
1217:
1218: x_return_status := FND_API.G_RET_STS_ERROR;
1219:
1220: FND_MSG_PUB.Count_And_Get
1221: (p_count => x_msg_count,
1222: p_data => x_msg_data );
1226: FND_LOG.STRING(lc_excep_level, lc_mod_name,
1227: 'EXC_ERROR['||x_msg_data||']');
1228: END IF;
1229:
1230: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1231: ROLLBACK TO Lock_RO_Diagnostic_Code;
1232:
1233: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1234:
1229:
1230: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1231: ROLLBACK TO Lock_RO_Diagnostic_Code;
1232:
1233: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1234:
1235: IF FND_MSG_PUB.Check_Msg_Level
1236: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1237: THEN
1256:
1257: WHEN OTHERS THEN
1258: ROLLBACK TO Lock_RO_Diagnostic_Code;
1259:
1260: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1261:
1262: -- save message in fnd stack
1263: IF FND_MSG_PUB.Check_Msg_Level
1264: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)