112: p_RO_PRIORITY_CODE IN VARCHAR2, -- swai: R12
113: -- g_miss_date means default resolve_by_date during ro creation
114: -- null means do not default resolve_by_date during ro creation
115: p_RESOLVE_BY_DATE IN DATE, -- rfieldma, bug 5355051, defaulted to g_miss_date in spec
116: p_BULLETIN_CHECK_DATE IN DATE,-- := FND_API.G_MISS_DATE,
117: p_ESCALATION_CODE IN VARCHAR2, -- := FND_API.G_MISS_CHAR,
118: p_RO_WARRANTY_STATUS_CODE IN VARCHAR2,
119: x_repair_line_id OUT NOCOPY NUMBER,
120: x_repair_number OUT NOCOPY VARCHAR2,
113: -- g_miss_date means default resolve_by_date during ro creation
114: -- null means do not default resolve_by_date during ro creation
115: p_RESOLVE_BY_DATE IN DATE, -- rfieldma, bug 5355051, defaulted to g_miss_date in spec
116: p_BULLETIN_CHECK_DATE IN DATE,-- := FND_API.G_MISS_DATE,
117: p_ESCALATION_CODE IN VARCHAR2, -- := FND_API.G_MISS_CHAR,
118: p_RO_WARRANTY_STATUS_CODE IN VARCHAR2,
119: x_repair_line_id OUT NOCOPY NUMBER,
120: x_repair_number OUT NOCOPY VARCHAR2,
121: x_return_status OUT NOCOPY VARCHAR2,
132: -- Standard Start of API savepoint
133: SAVEPOINT CREATE_REPAIR_ORDER_GRP;
134: --
135: -- Initialize message list if p_init_msg_list is set to TRUE.
136: IF FND_API.to_Boolean(p_init_msg_list)
137: THEN
138: FND_MSG_PUB.initialize;
139: END IF;
140: -- Initialize API return status to success
137: THEN
138: FND_MSG_PUB.initialize;
139: END IF;
140: -- Initialize API return status to success
141: x_return_status := FND_API.G_RET_STS_SUCCESS;
142: --
143: -- API body
144: --
145: if (g_debug) > 0 then
245: x_msg_data => x_msg_data
246: );
247: --
248: -- Check return status from the above procedure call
249: IF not (x_return_status = FND_API.G_RET_STS_SUCCESS) then
250: ROLLBACK TO CREATE_REPAIR_ORDER_GRP;
251: return;
252: END IF;
253: --
253: --
254: -- End of API body.
255: --
256: -- Standard check for p_commit
257: IF FND_API.to_Boolean(p_commit)
258: THEN
259: COMMIT WORK;
260: END IF;
261: -- Standard call to get message count and if count is 1, get message info.
264: p_data => x_msg_data
265: );
266: --
267: EXCEPTION
268: WHEN FND_API.G_EXC_ERROR THEN
269: JTF_PLSQL_API.HANDLE_EXCEPTIONS
270: (P_API_NAME => L_API_NAME
271: ,P_PKG_NAME => G_PKG_NAME
272: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
275: ,X_MSG_DATA => X_MSG_DATA
276: ,X_RETURN_STATUS => X_RETURN_STATUS);
277: -- RAISE;
278: --
279: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
280: JTF_PLSQL_API.HANDLE_EXCEPTIONS
281: (P_API_NAME => L_API_NAME
282: ,P_PKG_NAME => G_PKG_NAME
283: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
378: p_RO_PRIORITY_CODE IN VARCHAR2, -- swai: R12
379: -- g_miss_date means keep field in table handler
380: -- null means clear field in table handler
381: p_RESOLVE_BY_DATE IN DATE, -- rfieldma, bug 5355051, defaulted to g_miss_date in spec
382: p_BULLETIN_CHECK_DATE IN DATE, -- := FND_API.G_MISS_DATE,
383: p_ESCALATION_CODE IN VARCHAR2, -- := FND_API.G_MISS_CHAR,
384: p_RO_WARRANTY_STATUS_CODE IN VARCHAR2,
385: x_return_status OUT NOCOPY VARCHAR2,
386: x_msg_count OUT NOCOPY NUMBER,
379: -- g_miss_date means keep field in table handler
380: -- null means clear field in table handler
381: p_RESOLVE_BY_DATE IN DATE, -- rfieldma, bug 5355051, defaulted to g_miss_date in spec
382: p_BULLETIN_CHECK_DATE IN DATE, -- := FND_API.G_MISS_DATE,
383: p_ESCALATION_CODE IN VARCHAR2, -- := FND_API.G_MISS_CHAR,
384: p_RO_WARRANTY_STATUS_CODE IN VARCHAR2,
385: x_return_status OUT NOCOPY VARCHAR2,
386: x_msg_count OUT NOCOPY NUMBER,
387: x_msg_data OUT NOCOPY VARCHAR2
396: -- Standard Start of API savepoint
397: SAVEPOINT UPDATE_REPAIR_ORDER_GRP;
398: --
399: -- Initialize message list if p_init_msg_list is set to TRUE.
400: IF FND_API.to_Boolean( p_init_msg_list )
401: THEN
402: FND_MSG_PUB.initialize;
403: END IF;
404: -- Initialize API return status to success
401: THEN
402: FND_MSG_PUB.initialize;
403: END IF;
404: -- Initialize API return status to success
405: x_return_status := FND_API.G_RET_STS_SUCCESS;
406: --
407: -- API body
408: --
409: if (g_debug > 0 ) then
501: x_msg_data => x_msg_data
502: );
503: --
504: -- Check return status from the above procedure call
505: IF not (x_return_status = FND_API.G_RET_STS_SUCCESS) then
506: ROLLBACK TO UPDATE_REPAIR_ORDER_GRP;
507: return;
508: END IF;
509: --
509: --
510: -- End of API body.
511: --
512: -- Standard check for p_commit
513: IF FND_API.to_Boolean( p_commit )
514: THEN
515: COMMIT WORK;
516: END IF;
517: -- Standard call to get message count and if count is 1, get message info.
520: p_data => x_msg_data
521: );
522: --
523: EXCEPTION
524: WHEN FND_API.G_EXC_ERROR THEN
525: JTF_PLSQL_API.HANDLE_EXCEPTIONS
526: (P_API_NAME => L_API_NAME
527: ,P_PKG_NAME => G_PKG_NAME
528: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
531: ,X_MSG_DATA => X_MSG_DATA
532: ,X_RETURN_STATUS => X_RETURN_STATUS);
533: -- RAISE;
534: --
535: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
536: JTF_PLSQL_API.HANDLE_EXCEPTIONS
537: (P_API_NAME => L_API_NAME
538: ,P_PKG_NAME => G_PKG_NAME
539: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
596: -- Standard Start of API savepoint
597: SAVEPOINT UPDATE_APPROVAL_STATUS_GRP;
598: --
599: -- Initialize API return status to success
600: x_return_status := FND_API.G_RET_STS_SUCCESS;
601: --
602: -- API Body
603: --
604: if (lc_proc_level >= lc_debug_level) then
643: 'Calling CSD_REPAIRS_PVT.Update_Repair_Order ');
644: end if;
645: CSD_REPAIRS_PVT.Update_Repair_Order
646: (p_API_version_number => 1.0,
647: p_init_msg_list => FND_API.G_TRUE,
648: p_commit => FND_API.G_FALSE,
649: p_validation_level => null,
650: p_repair_line_id => p_repair_line_id,
651: p_Repln_Rec => l_Repln_Rec,
644: end if;
645: CSD_REPAIRS_PVT.Update_Repair_Order
646: (p_API_version_number => 1.0,
647: p_init_msg_list => FND_API.G_TRUE,
648: p_commit => FND_API.G_FALSE,
649: p_validation_level => null,
650: p_repair_line_id => p_repair_line_id,
651: p_Repln_Rec => l_Repln_Rec,
652: x_return_status => x_return_status,
776: FND_LOG.STRING(lc_proc_level, lc_mod_name,
777: 'Returned from CSD_TO_FORM_REPAIR_HISTORY.Validate_And_Write. x_return_status='||x_return_status);
778: end if;
779: -- Check return status from the above procedure call
780: IF not (x_return_status = FND_API.G_RET_STS_SUCCESS) then
781: ROLLBACK TO UPDATE_APPROVAL_STATUS_GRP;
782: return;
783: END IF;
784: --
792: p_data => x_msg_data
793: );
794: --
795: EXCEPTION
796: WHEN FND_API.G_EXC_ERROR THEN
797: JTF_PLSQL_API.HANDLE_EXCEPTIONS
798: (P_API_NAME => L_API_NAME
799: ,P_PKG_NAME => G_PKG_NAME
800: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
803: ,X_MSG_DATA => X_MSG_DATA
804: ,X_RETURN_STATUS => X_RETURN_STATUS);
805: -- RAISE;
806: --
807: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
808: JTF_PLSQL_API.HANDLE_EXCEPTIONS
809: (P_API_NAME => L_API_NAME
810: ,P_PKG_NAME => G_PKG_NAME
811: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
852: -- Standard Start of API savepoint
853: SAVEPOINT UPDATE_STATUS_GRP;
854: --
855: -- Initialize API return status to success
856: x_return_status := FND_API.G_RET_STS_SUCCESS;
857: --
858: -- API Body
859: --
860: if p_new_status = p_old_status then
905: csd_gen_utility_pvt.add('CSD_REPAIRS_GRP.Update_Status before CSD_REPAIRS_PVT.Update_Repair_Order');
906: end if;
907: CSD_REPAIRS_PVT.Update_Repair_Order
908: (p_API_version_number => 1.0,
909: p_init_msg_list => FND_API.G_TRUE,
910: p_commit => FND_API.G_FALSE,
911: p_validation_level => null,
912: p_repair_line_id => p_repair_line_id,
913: p_Repln_Rec => l_Repln_Rec,
906: end if;
907: CSD_REPAIRS_PVT.Update_Repair_Order
908: (p_API_version_number => 1.0,
909: p_init_msg_list => FND_API.G_TRUE,
910: p_commit => FND_API.G_FALSE,
911: p_validation_level => null,
912: p_repair_line_id => p_repair_line_id,
913: p_Repln_Rec => l_Repln_Rec,
914: x_return_status => x_return_status,
919: csd_gen_utility_pvt.add('CSD_REPAIRS_GRP.Update_Status after CSD_REPAIRS_PVT.Update_Repair_Order status : '||x_return_status);
920: end if;
921: --
922: -- Check return status from the above procedure call
923: IF not (x_return_status = FND_API.G_RET_STS_SUCCESS) then
924: ROLLBACK TO UPDATE_STATUS_GRP;
925: return;
926: END IF;
927: --
1011: end if;
1012: --end if; -- only for changed status codes sangigup 3232547
1013: --
1014: -- Check return status from the above procedure call
1015: IF not (x_return_status = FND_API.G_RET_STS_SUCCESS) then
1016: ROLLBACK TO UPDATE_STATUS_GRP;
1017: return;
1018: END IF;
1019: --
1025: p_data => x_msg_data
1026: );
1027: --
1028: EXCEPTION
1029: WHEN FND_API.G_EXC_ERROR THEN
1030: JTF_PLSQL_API.HANDLE_EXCEPTIONS
1031: (P_API_NAME => L_API_NAME
1032: ,P_PKG_NAME => G_PKG_NAME
1033: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1036: ,X_MSG_DATA => X_MSG_DATA
1037: ,X_RETURN_STATUS => X_RETURN_STATUS);
1038: -- RAISE;
1039: --
1040: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1041: JTF_PLSQL_API.HANDLE_EXCEPTIONS
1042: (P_API_NAME => L_API_NAME
1043: ,P_PKG_NAME => G_PKG_NAME
1044: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
1063:
1064: -- travi 051002 code
1065: Procedure Update_Group_Approval_Status(
1066: p_api_version IN NUMBER,
1067: p_commit IN VARCHAR2 := fnd_api.g_false,
1068: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1069: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
1070: p_repair_group_id IN NUMBER,
1071: p_object_version_number IN OUT NOCOPY NUMBER,
1064: -- travi 051002 code
1065: Procedure Update_Group_Approval_Status(
1066: p_api_version IN NUMBER,
1067: p_commit IN VARCHAR2 := fnd_api.g_false,
1068: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1069: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
1070: p_repair_group_id IN NUMBER,
1071: p_object_version_number IN OUT NOCOPY NUMBER,
1072: x_return_status OUT NOCOPY VARCHAR2,
1065: Procedure Update_Group_Approval_Status(
1066: p_api_version IN NUMBER,
1067: p_commit IN VARCHAR2 := fnd_api.g_false,
1068: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1069: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
1070: p_repair_group_id IN NUMBER,
1071: p_object_version_number IN OUT NOCOPY NUMBER,
1072: x_return_status OUT NOCOPY VARCHAR2,
1073: x_msg_count OUT NOCOPY NUMBER,
1127:
1128: -----------------------------------------------------
1129: -- Standard call to check for call compatibility.
1130: -----------------------------------------------------
1131: IF NOT FND_API.Compatible_API_Call (l_api_version,
1132: p_api_version,
1133: l_api_name ,
1134: G_PKG_NAME)
1135: THEN
1132: p_api_version,
1133: l_api_name ,
1134: G_PKG_NAME)
1135: THEN
1136: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1137: END IF;
1138:
1139: ---------------------------------------------------------------
1140: -- Initialize message list if p_init_msg_list is set to TRUE.
1138:
1139: ---------------------------------------------------------------
1140: -- Initialize message list if p_init_msg_list is set to TRUE.
1141: ---------------------------------------------------------------
1142: IF FND_API.to_Boolean(p_init_msg_list)
1143: THEN
1144: FND_MSG_PUB.initialize;
1145: END IF;
1146:
1146:
1147: --------------------------------------------
1148: -- Initialize API return status to success
1149: --------------------------------------------
1150: x_return_status := FND_API.G_RET_STS_SUCCESS;
1151:
1152: --------------------
1153: -- Api body starts
1154: --------------------
1174: csd_gen_utility_pvt.ADD('Repair Group Id');
1175: end if;
1176: IF NOT( CSD_PROCESS_UTIL.Validate_repair_group_id
1177: ( p_repair_group_id => p_repair_group_id )) THEN
1178: RAISE FND_API.G_EXC_ERROR;
1179: END IF;
1180:
1181:
1182: -- get all repair lines having estimates with status as BID for the given Repair Group
1215: csd_gen_utility_pvt.add('CSD_REPAIRS_GRP.Update_Group_Approval_Status Update repairs call');
1216: end if;
1217: CSD_REPAIRS_PVT.Update_Repair_Order
1218: (p_API_version_number => 1.0,
1219: p_init_msg_list => FND_API.G_TRUE,
1220: p_commit => FND_API.G_FALSE,
1221: p_validation_level => null,
1222: p_repair_line_id => l_repair_line_id,
1223: p_Repln_Rec => l_rep_ord_rec,
1216: end if;
1217: CSD_REPAIRS_PVT.Update_Repair_Order
1218: (p_API_version_number => 1.0,
1219: p_init_msg_list => FND_API.G_TRUE,
1220: p_commit => FND_API.G_FALSE,
1221: p_validation_level => null,
1222: p_repair_line_id => l_repair_line_id,
1223: p_Repln_Rec => l_rep_ord_rec,
1224: x_return_status => x_return_status,
1229: if (g_debug > 0) then
1230: csd_gen_utility_pvt.add('CSD_REPAIRS_GRP.Update_Group_Approval_Status Update_Repair_Order :'||x_return_status);
1231: end if;
1232: -- Check return status from the update RO call
1233: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
1234: if (g_debug > 0) then
1235: csd_gen_utility_pvt.ADD('CSD_REPAIRS_PVT.Update_Repair_Order failed ');
1236: end if;
1237: RAISE FND_API.G_EXC_ERROR;
1233: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
1234: if (g_debug > 0) then
1235: csd_gen_utility_pvt.ADD('CSD_REPAIRS_PVT.Update_Repair_Order failed ');
1236: end if;
1237: RAISE FND_API.G_EXC_ERROR;
1238: --ROLLBACK TO UPDATE_GRP_APPV_STATUS;
1239: --return;
1240: ELSIF (x_return_status = FND_API.G_RET_STS_SUCCESS) then
1241: if (g_debug > 0) then
1236: end if;
1237: RAISE FND_API.G_EXC_ERROR;
1238: --ROLLBACK TO UPDATE_GRP_APPV_STATUS;
1239: --return;
1240: ELSIF (x_return_status = FND_API.G_RET_STS_SUCCESS) then
1241: if (g_debug > 0) then
1242: csd_gen_utility_pvt.add('CSD_REPAIRS_GRP.Update_Group_Approval_Status Update RO hist call');
1243: end if;
1244: CSD_TO_FORM_REPAIR_HISTORY.Validate_And_Write
1315: if (g_debug > 0) then
1316: csd_gen_utility_pvt.add('Update_Group_Approval_Status Validate_And_Write :'||x_return_status);
1317: end if;
1318: -- Check return status from the above procedure call
1319: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
1320: if (g_debug > 0) then
1321: csd_gen_utility_pvt.ADD('CSD_TO_FORM_REPAIR_HISTORY.Validate_And_Write failed ');
1322: end if;
1323: RAISE FND_API.G_EXC_ERROR;
1319: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
1320: if (g_debug > 0) then
1321: csd_gen_utility_pvt.ADD('CSD_TO_FORM_REPAIR_HISTORY.Validate_And_Write failed ');
1322: end if;
1323: RAISE FND_API.G_EXC_ERROR;
1324: --ROLLBACK TO UPDATE_GRP_APPV_STATUS;
1325: --return;
1326: END IF;
1327:
1335: csd_repair_estimate_pvt.update_repair_estimate
1336: (p_api_version => 1.0,
1337: p_commit => 'F',
1338: p_init_msg_list => 'T',
1339: p_validation_level => fnd_api.g_valid_level_full,
1340: x_estimate_rec => l_rep_est_rec,
1341: x_return_status => x_return_status,
1342: x_msg_count => l_msg_count,
1343: x_msg_data => l_msg_data);
1344: if (g_debug > 0) then
1345: csd_gen_utility_pvt.add('CSD_REPAIRS_GRP.Update_Group_Approval_Status update_repair_estimate :'||x_return_status);
1346: end if;
1347: -- Check return status from the above procedure call
1348: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
1349: if (g_debug > 0) then
1350: csd_gen_utility_pvt.ADD('csd_repair_estimate_pvt.update_repair_estimate failed ');
1351: end if;
1352: RAISE FND_API.G_EXC_ERROR;
1348: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
1349: if (g_debug > 0) then
1350: csd_gen_utility_pvt.ADD('csd_repair_estimate_pvt.update_repair_estimate failed ');
1351: end if;
1352: RAISE FND_API.G_EXC_ERROR;
1353: --ROLLBACK TO UPDATE_GRP_APPV_STATUS;
1354: --return;
1355: END IF;
1356:
1367:
1368: -------------------------------
1369: -- Standard check for p_commit
1370: -------------------------------
1371: IF FND_API.to_Boolean(p_commit)
1372: THEN
1373: COMMIT;
1374: END IF;
1375:
1380: (p_count => x_msg_count,
1381: p_data => x_msg_data);
1382:
1383: EXCEPTION
1384: WHEN FND_API.G_EXC_ERROR THEN
1385: x_return_status := FND_API.G_RET_STS_ERROR ;
1386: ROLLBACK TO UPDATE_GRP_APPV_STATUS;
1387: FND_MSG_PUB.Count_And_Get
1388: (p_count => x_msg_count,
1381: p_data => x_msg_data);
1382:
1383: EXCEPTION
1384: WHEN FND_API.G_EXC_ERROR THEN
1385: x_return_status := FND_API.G_RET_STS_ERROR ;
1386: ROLLBACK TO UPDATE_GRP_APPV_STATUS;
1387: FND_MSG_PUB.Count_And_Get
1388: (p_count => x_msg_count,
1389: p_data => x_msg_data );
1386: ROLLBACK TO UPDATE_GRP_APPV_STATUS;
1387: FND_MSG_PUB.Count_And_Get
1388: (p_count => x_msg_count,
1389: p_data => x_msg_data );
1390: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1391: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1392: ROLLBACK TO UPDATE_GRP_APPV_STATUS;
1393: FND_MSG_PUB.Count_And_Get
1394: ( p_count => x_msg_count,
1387: FND_MSG_PUB.Count_And_Get
1388: (p_count => x_msg_count,
1389: p_data => x_msg_data );
1390: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1391: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1392: ROLLBACK TO UPDATE_GRP_APPV_STATUS;
1393: FND_MSG_PUB.Count_And_Get
1394: ( p_count => x_msg_count,
1395: p_data => x_msg_data );
1393: FND_MSG_PUB.Count_And_Get
1394: ( p_count => x_msg_count,
1395: p_data => x_msg_data );
1396: WHEN OTHERS THEN
1397: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1398: ROLLBACK TO UPDATE_GRP_APPV_STATUS;
1399: IF FND_MSG_PUB.Check_Msg_Level
1400: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1401: THEN
1411:
1412: -- travi 051702 code
1413: Procedure Update_Group_Reject_Status(
1414: p_api_version IN NUMBER,
1415: p_commit IN VARCHAR2 := fnd_api.g_false,
1416: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1417: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
1418: p_repair_group_id IN NUMBER,
1419: p_object_version_number IN OUT NOCOPY NUMBER,
1412: -- travi 051702 code
1413: Procedure Update_Group_Reject_Status(
1414: p_api_version IN NUMBER,
1415: p_commit IN VARCHAR2 := fnd_api.g_false,
1416: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1417: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
1418: p_repair_group_id IN NUMBER,
1419: p_object_version_number IN OUT NOCOPY NUMBER,
1420: x_return_status OUT NOCOPY VARCHAR2,
1413: Procedure Update_Group_Reject_Status(
1414: p_api_version IN NUMBER,
1415: p_commit IN VARCHAR2 := fnd_api.g_false,
1416: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1417: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
1418: p_repair_group_id IN NUMBER,
1419: p_object_version_number IN OUT NOCOPY NUMBER,
1420: x_return_status OUT NOCOPY VARCHAR2,
1421: x_msg_count OUT NOCOPY NUMBER,
1475:
1476: -----------------------------------------------------
1477: -- Standard call to check for call compatibility.
1478: -----------------------------------------------------
1479: IF NOT FND_API.Compatible_API_Call (l_api_version,
1480: p_api_version,
1481: l_api_name ,
1482: G_PKG_NAME)
1483: THEN
1480: p_api_version,
1481: l_api_name ,
1482: G_PKG_NAME)
1483: THEN
1484: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1485: END IF;
1486:
1487: ---------------------------------------------------------------
1488: -- Initialize message list if p_init_msg_list is set to TRUE.
1486:
1487: ---------------------------------------------------------------
1488: -- Initialize message list if p_init_msg_list is set to TRUE.
1489: ---------------------------------------------------------------
1490: IF FND_API.to_Boolean(p_init_msg_list)
1491: THEN
1492: FND_MSG_PUB.initialize;
1493: END IF;
1494:
1494:
1495: --------------------------------------------
1496: -- Initialize API return status to success
1497: --------------------------------------------
1498: x_return_status := FND_API.G_RET_STS_SUCCESS;
1499: --------------------
1500: -- Api body starts
1501: --------------------
1502: csd_gen_utility_pvt.dump_api_info
1521: csd_gen_utility_pvt.ADD('Repair Group Id');
1522: end if;
1523: IF NOT( CSD_PROCESS_UTIL.Validate_repair_group_id
1524: ( p_repair_group_id => p_repair_group_id )) THEN
1525: RAISE FND_API.G_EXC_ERROR;
1526: END IF;
1527:
1528:
1529: -- get all repair lines having estimates for the given Repair Group
1563: csd_gen_utility_pvt.add('CSD_REPAIRS_GRP.Update_Group_Reject_Status Update repairs call');
1564: end if;
1565: CSD_REPAIRS_PVT.Update_Repair_Order
1566: (p_API_version_number => 1.0,
1567: p_init_msg_list => FND_API.G_TRUE,
1568: p_commit => FND_API.G_FALSE,
1569: p_validation_level => null,
1570: p_repair_line_id => l_repair_line_id,
1571: p_Repln_Rec => l_rep_ord_rec,
1564: end if;
1565: CSD_REPAIRS_PVT.Update_Repair_Order
1566: (p_API_version_number => 1.0,
1567: p_init_msg_list => FND_API.G_TRUE,
1568: p_commit => FND_API.G_FALSE,
1569: p_validation_level => null,
1570: p_repair_line_id => l_repair_line_id,
1571: p_Repln_Rec => l_rep_ord_rec,
1572: x_return_status => x_return_status,
1577: if (g_debug > 0) then
1578: csd_gen_utility_pvt.add('CSD_REPAIRS_GRP.Update_Group_Reject_Status Update_Repair_Order :'||x_return_status);
1579: end if;
1580: -- Check return status from the update RO call
1581: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
1582: if (g_debug > 0) then
1583: csd_gen_utility_pvt.ADD('CSD_REPAIRS_PVT.Update_Repair_Order failed ');
1584: end if;
1585: RAISE FND_API.G_EXC_ERROR;
1581: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
1582: if (g_debug > 0) then
1583: csd_gen_utility_pvt.ADD('CSD_REPAIRS_PVT.Update_Repair_Order failed ');
1584: end if;
1585: RAISE FND_API.G_EXC_ERROR;
1586: --ROLLBACK TO UPDATE_GRP_REJT_STATUS;
1587: --return;
1588: ELSIF (x_return_status = FND_API.G_RET_STS_SUCCESS) then
1589: if (g_debug > 0) then
1584: end if;
1585: RAISE FND_API.G_EXC_ERROR;
1586: --ROLLBACK TO UPDATE_GRP_REJT_STATUS;
1587: --return;
1588: ELSIF (x_return_status = FND_API.G_RET_STS_SUCCESS) then
1589: if (g_debug > 0) then
1590: csd_gen_utility_pvt.add('CSD_REPAIRS_GRP.Update_Group_Reject_Status Update RO hist call');
1591: end if;
1592: CSD_TO_FORM_REPAIR_HISTORY.Validate_And_Write
1663: if (g_debug > 0) then
1664: csd_gen_utility_pvt.add('CSD_REPAIRS_GRP.Update_Group_Reject_Status Validate_And_Write :'||x_return_status);
1665: end if;
1666: -- Check return status from the above procedure call
1667: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
1668: if (g_debug > 0) then
1669: csd_gen_utility_pvt.ADD('CSD_TO_FORM_REPAIR_HISTORY.Validate_And_Write failed ');
1670: end if;
1671: RAISE FND_API.G_EXC_ERROR;
1667: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
1668: if (g_debug > 0) then
1669: csd_gen_utility_pvt.ADD('CSD_TO_FORM_REPAIR_HISTORY.Validate_And_Write failed ');
1670: end if;
1671: RAISE FND_API.G_EXC_ERROR;
1672: --ROLLBACK TO UPDATE_GRP_REJT_STATUS;
1673: --return;
1674: END IF;
1675:
1683: csd_repair_estimate_pvt.update_repair_estimate
1684: (p_api_version => 1.0,
1685: p_commit => 'F',
1686: p_init_msg_list => 'T',
1687: p_validation_level => fnd_api.g_valid_level_full,
1688: x_estimate_rec => l_rep_est_rec,
1689: x_return_status => x_return_status,
1690: x_msg_count => l_msg_count,
1691: x_msg_data => l_msg_data);
1692: if (g_debug > 0) then
1693: csd_gen_utility_pvt.add('CSD_REPAIRS_GRP.Update_Group_Reject_Status update_repair_estimate :'||x_return_status);
1694: end if;
1695: -- Check return status from the above procedure call
1696: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
1697: if (g_debug > 0) then
1698: csd_gen_utility_pvt.ADD('csd_repair_estimate_pvt.update_repair_estimate failed ');
1699: end if;
1700: RAISE FND_API.G_EXC_ERROR;
1696: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
1697: if (g_debug > 0) then
1698: csd_gen_utility_pvt.ADD('csd_repair_estimate_pvt.update_repair_estimate failed ');
1699: end if;
1700: RAISE FND_API.G_EXC_ERROR;
1701: --ROLLBACK TO UPDATE_GRP_REJT_STATUS;
1702: --return;
1703: END IF;
1704:
1715:
1716: -------------------------------
1717: -- Standard check for p_commit
1718: -------------------------------
1719: IF FND_API.to_Boolean(p_commit)
1720: THEN
1721: COMMIT;
1722: END IF;
1723:
1729: p_data => x_msg_data
1730: );
1731:
1732: EXCEPTION
1733: WHEN FND_API.G_EXC_ERROR THEN
1734: x_return_status := FND_API.G_RET_STS_ERROR ;
1735: ROLLBACK TO UPDATE_GRP_REJT_STATUS;
1736: FND_MSG_PUB.Count_And_Get
1737: (p_count => x_msg_count,
1730: );
1731:
1732: EXCEPTION
1733: WHEN FND_API.G_EXC_ERROR THEN
1734: x_return_status := FND_API.G_RET_STS_ERROR ;
1735: ROLLBACK TO UPDATE_GRP_REJT_STATUS;
1736: FND_MSG_PUB.Count_And_Get
1737: (p_count => x_msg_count,
1738: p_data => x_msg_data );
1735: ROLLBACK TO UPDATE_GRP_REJT_STATUS;
1736: FND_MSG_PUB.Count_And_Get
1737: (p_count => x_msg_count,
1738: p_data => x_msg_data );
1739: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1740: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1741: ROLLBACK TO UPDATE_GRP_REJT_STATUS;
1742: FND_MSG_PUB.Count_And_Get
1743: ( p_count => x_msg_count,
1736: FND_MSG_PUB.Count_And_Get
1737: (p_count => x_msg_count,
1738: p_data => x_msg_data );
1739: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1740: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1741: ROLLBACK TO UPDATE_GRP_REJT_STATUS;
1742: FND_MSG_PUB.Count_And_Get
1743: ( p_count => x_msg_count,
1744: p_data => x_msg_data );
1742: FND_MSG_PUB.Count_And_Get
1743: ( p_count => x_msg_count,
1744: p_data => x_msg_data );
1745: WHEN OTHERS THEN
1746: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1747: ROLLBACK TO UPDATE_GRP_REJT_STATUS;
1748: IF FND_MSG_PUB.Check_Msg_Level
1749: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1750: THEN