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: x_repair_line_id OUT NOCOPY NUMBER,
119: x_repair_number OUT NOCOPY VARCHAR2,
120: x_return_status 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: x_repair_line_id OUT NOCOPY NUMBER,
119: x_repair_number OUT NOCOPY VARCHAR2,
120: x_return_status OUT NOCOPY VARCHAR2,
121: x_msg_count OUT NOCOPY NUMBER,
131: -- Standard Start of API savepoint
132: SAVEPOINT CREATE_REPAIR_ORDER_GRP;
133: --
134: -- Initialize message list if p_init_msg_list is set to TRUE.
135: IF FND_API.to_Boolean(p_init_msg_list)
136: THEN
137: FND_MSG_PUB.initialize;
138: END IF;
139: -- Initialize API return status to success
136: THEN
137: FND_MSG_PUB.initialize;
138: END IF;
139: -- Initialize API return status to success
140: x_return_status := FND_API.G_RET_STS_SUCCESS;
141: --
142: -- API body
143: --
144: if (g_debug) > 0 then
243: x_msg_data => x_msg_data
244: );
245: --
246: -- Check return status from the above procedure call
247: IF not (x_return_status = FND_API.G_RET_STS_SUCCESS) then
248: ROLLBACK TO CREATE_REPAIR_ORDER_GRP;
249: return;
250: END IF;
251: --
251: --
252: -- End of API body.
253: --
254: -- Standard check for p_commit
255: IF FND_API.to_Boolean(p_commit)
256: THEN
257: COMMIT WORK;
258: END IF;
259: -- Standard call to get message count and if count is 1, get message info.
262: p_data => x_msg_data
263: );
264: --
265: EXCEPTION
266: WHEN FND_API.G_EXC_ERROR THEN
267: JTF_PLSQL_API.HANDLE_EXCEPTIONS
268: (P_API_NAME => L_API_NAME
269: ,P_PKG_NAME => G_PKG_NAME
270: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
273: ,X_MSG_DATA => X_MSG_DATA
274: ,X_RETURN_STATUS => X_RETURN_STATUS);
275: -- RAISE;
276: --
277: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
278: JTF_PLSQL_API.HANDLE_EXCEPTIONS
279: (P_API_NAME => L_API_NAME
280: ,P_PKG_NAME => G_PKG_NAME
281: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
376: p_RO_PRIORITY_CODE IN VARCHAR2, -- swai: R12
377: -- g_miss_date means keep field in table handler
378: -- null means clear field in table handler
379: p_RESOLVE_BY_DATE IN DATE, -- rfieldma, bug 5355051, defaulted to g_miss_date in spec
380: p_BULLETIN_CHECK_DATE IN DATE, -- := FND_API.G_MISS_DATE,
381: p_ESCALATION_CODE IN VARCHAR2, -- := FND_API.G_MISS_CHAR,
382: x_return_status OUT NOCOPY VARCHAR2,
383: x_msg_count OUT NOCOPY NUMBER,
384: x_msg_data OUT NOCOPY VARCHAR2
377: -- g_miss_date means keep field in table handler
378: -- null means clear field in table handler
379: p_RESOLVE_BY_DATE IN DATE, -- rfieldma, bug 5355051, defaulted to g_miss_date in spec
380: p_BULLETIN_CHECK_DATE IN DATE, -- := FND_API.G_MISS_DATE,
381: p_ESCALATION_CODE IN VARCHAR2, -- := FND_API.G_MISS_CHAR,
382: x_return_status OUT NOCOPY VARCHAR2,
383: x_msg_count OUT NOCOPY NUMBER,
384: x_msg_data OUT NOCOPY VARCHAR2
385: )
393: -- Standard Start of API savepoint
394: SAVEPOINT UPDATE_REPAIR_ORDER_GRP;
395: --
396: -- Initialize message list if p_init_msg_list is set to TRUE.
397: IF FND_API.to_Boolean( p_init_msg_list )
398: THEN
399: FND_MSG_PUB.initialize;
400: END IF;
401: -- Initialize API return status to success
398: THEN
399: FND_MSG_PUB.initialize;
400: END IF;
401: -- Initialize API return status to success
402: x_return_status := FND_API.G_RET_STS_SUCCESS;
403: --
404: -- API body
405: --
406: if (g_debug > 0 ) then
497: x_msg_data => x_msg_data
498: );
499: --
500: -- Check return status from the above procedure call
501: IF not (x_return_status = FND_API.G_RET_STS_SUCCESS) then
502: ROLLBACK TO UPDATE_REPAIR_ORDER_GRP;
503: return;
504: END IF;
505: --
505: --
506: -- End of API body.
507: --
508: -- Standard check for p_commit
509: IF FND_API.to_Boolean( p_commit )
510: THEN
511: COMMIT WORK;
512: END IF;
513: -- Standard call to get message count and if count is 1, get message info.
516: p_data => x_msg_data
517: );
518: --
519: EXCEPTION
520: WHEN FND_API.G_EXC_ERROR THEN
521: JTF_PLSQL_API.HANDLE_EXCEPTIONS
522: (P_API_NAME => L_API_NAME
523: ,P_PKG_NAME => G_PKG_NAME
524: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
527: ,X_MSG_DATA => X_MSG_DATA
528: ,X_RETURN_STATUS => X_RETURN_STATUS);
529: -- RAISE;
530: --
531: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
532: JTF_PLSQL_API.HANDLE_EXCEPTIONS
533: (P_API_NAME => L_API_NAME
534: ,P_PKG_NAME => G_PKG_NAME
535: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
592: -- Standard Start of API savepoint
593: SAVEPOINT UPDATE_APPROVAL_STATUS_GRP;
594: --
595: -- Initialize API return status to success
596: x_return_status := FND_API.G_RET_STS_SUCCESS;
597: --
598: -- API Body
599: --
600: if (lc_proc_level >= lc_debug_level) then
639: 'Calling CSD_REPAIRS_PVT.Update_Repair_Order ');
640: end if;
641: CSD_REPAIRS_PVT.Update_Repair_Order
642: (p_API_version_number => 1.0,
643: p_init_msg_list => FND_API.G_TRUE,
644: p_commit => FND_API.G_FALSE,
645: p_validation_level => null,
646: p_repair_line_id => p_repair_line_id,
647: p_Repln_Rec => l_Repln_Rec,
640: end if;
641: CSD_REPAIRS_PVT.Update_Repair_Order
642: (p_API_version_number => 1.0,
643: p_init_msg_list => FND_API.G_TRUE,
644: p_commit => FND_API.G_FALSE,
645: p_validation_level => null,
646: p_repair_line_id => p_repair_line_id,
647: p_Repln_Rec => l_Repln_Rec,
648: x_return_status => x_return_status,
772: FND_LOG.STRING(lc_proc_level, lc_mod_name,
773: 'Returned from CSD_TO_FORM_REPAIR_HISTORY.Validate_And_Write. x_return_status='||x_return_status);
774: end if;
775: -- Check return status from the above procedure call
776: IF not (x_return_status = FND_API.G_RET_STS_SUCCESS) then
777: ROLLBACK TO UPDATE_APPROVAL_STATUS_GRP;
778: return;
779: END IF;
780: --
788: p_data => x_msg_data
789: );
790: --
791: EXCEPTION
792: WHEN FND_API.G_EXC_ERROR THEN
793: JTF_PLSQL_API.HANDLE_EXCEPTIONS
794: (P_API_NAME => L_API_NAME
795: ,P_PKG_NAME => G_PKG_NAME
796: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
799: ,X_MSG_DATA => X_MSG_DATA
800: ,X_RETURN_STATUS => X_RETURN_STATUS);
801: -- RAISE;
802: --
803: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
804: JTF_PLSQL_API.HANDLE_EXCEPTIONS
805: (P_API_NAME => L_API_NAME
806: ,P_PKG_NAME => G_PKG_NAME
807: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
848: -- Standard Start of API savepoint
849: SAVEPOINT UPDATE_STATUS_GRP;
850: --
851: -- Initialize API return status to success
852: x_return_status := FND_API.G_RET_STS_SUCCESS;
853: --
854: -- API Body
855: --
856: if p_new_status = p_old_status then
901: csd_gen_utility_pvt.add('CSD_REPAIRS_GRP.Update_Status before CSD_REPAIRS_PVT.Update_Repair_Order');
902: end if;
903: CSD_REPAIRS_PVT.Update_Repair_Order
904: (p_API_version_number => 1.0,
905: p_init_msg_list => FND_API.G_TRUE,
906: p_commit => FND_API.G_FALSE,
907: p_validation_level => null,
908: p_repair_line_id => p_repair_line_id,
909: p_Repln_Rec => l_Repln_Rec,
902: end if;
903: CSD_REPAIRS_PVT.Update_Repair_Order
904: (p_API_version_number => 1.0,
905: p_init_msg_list => FND_API.G_TRUE,
906: p_commit => FND_API.G_FALSE,
907: p_validation_level => null,
908: p_repair_line_id => p_repair_line_id,
909: p_Repln_Rec => l_Repln_Rec,
910: x_return_status => x_return_status,
915: csd_gen_utility_pvt.add('CSD_REPAIRS_GRP.Update_Status after CSD_REPAIRS_PVT.Update_Repair_Order status : '||x_return_status);
916: end if;
917: --
918: -- Check return status from the above procedure call
919: IF not (x_return_status = FND_API.G_RET_STS_SUCCESS) then
920: ROLLBACK TO UPDATE_STATUS_GRP;
921: return;
922: END IF;
923: --
1007: end if;
1008: --end if; -- only for changed status codes sangigup 3232547
1009: --
1010: -- Check return status from the above procedure call
1011: IF not (x_return_status = FND_API.G_RET_STS_SUCCESS) then
1012: ROLLBACK TO UPDATE_STATUS_GRP;
1013: return;
1014: END IF;
1015: --
1021: p_data => x_msg_data
1022: );
1023: --
1024: EXCEPTION
1025: WHEN FND_API.G_EXC_ERROR THEN
1026: JTF_PLSQL_API.HANDLE_EXCEPTIONS
1027: (P_API_NAME => L_API_NAME
1028: ,P_PKG_NAME => G_PKG_NAME
1029: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1032: ,X_MSG_DATA => X_MSG_DATA
1033: ,X_RETURN_STATUS => X_RETURN_STATUS);
1034: -- RAISE;
1035: --
1036: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1037: JTF_PLSQL_API.HANDLE_EXCEPTIONS
1038: (P_API_NAME => L_API_NAME
1039: ,P_PKG_NAME => G_PKG_NAME
1040: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
1059:
1060: -- travi 051002 code
1061: Procedure Update_Group_Approval_Status(
1062: p_api_version IN NUMBER,
1063: p_commit IN VARCHAR2 := fnd_api.g_false,
1064: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1065: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
1066: p_repair_group_id IN NUMBER,
1067: p_object_version_number IN OUT NOCOPY NUMBER,
1060: -- travi 051002 code
1061: Procedure Update_Group_Approval_Status(
1062: p_api_version IN NUMBER,
1063: p_commit IN VARCHAR2 := fnd_api.g_false,
1064: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1065: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
1066: p_repair_group_id IN NUMBER,
1067: p_object_version_number IN OUT NOCOPY NUMBER,
1068: x_return_status OUT NOCOPY VARCHAR2,
1061: Procedure Update_Group_Approval_Status(
1062: p_api_version IN NUMBER,
1063: p_commit IN VARCHAR2 := fnd_api.g_false,
1064: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1065: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
1066: p_repair_group_id IN NUMBER,
1067: p_object_version_number IN OUT NOCOPY NUMBER,
1068: x_return_status OUT NOCOPY VARCHAR2,
1069: x_msg_count OUT NOCOPY NUMBER,
1123:
1124: -----------------------------------------------------
1125: -- Standard call to check for call compatibility.
1126: -----------------------------------------------------
1127: IF NOT FND_API.Compatible_API_Call (l_api_version,
1128: p_api_version,
1129: l_api_name ,
1130: G_PKG_NAME)
1131: THEN
1128: p_api_version,
1129: l_api_name ,
1130: G_PKG_NAME)
1131: THEN
1132: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1133: END IF;
1134:
1135: ---------------------------------------------------------------
1136: -- Initialize message list if p_init_msg_list is set to TRUE.
1134:
1135: ---------------------------------------------------------------
1136: -- Initialize message list if p_init_msg_list is set to TRUE.
1137: ---------------------------------------------------------------
1138: IF FND_API.to_Boolean(p_init_msg_list)
1139: THEN
1140: FND_MSG_PUB.initialize;
1141: END IF;
1142:
1142:
1143: --------------------------------------------
1144: -- Initialize API return status to success
1145: --------------------------------------------
1146: x_return_status := FND_API.G_RET_STS_SUCCESS;
1147:
1148: --------------------
1149: -- Api body starts
1150: --------------------
1170: csd_gen_utility_pvt.ADD('Repair Group Id');
1171: end if;
1172: IF NOT( CSD_PROCESS_UTIL.Validate_repair_group_id
1173: ( p_repair_group_id => p_repair_group_id )) THEN
1174: RAISE FND_API.G_EXC_ERROR;
1175: END IF;
1176:
1177:
1178: -- get all repair lines having estimates with status as BID for the given Repair Group
1211: csd_gen_utility_pvt.add('CSD_REPAIRS_GRP.Update_Group_Approval_Status Update repairs call');
1212: end if;
1213: CSD_REPAIRS_PVT.Update_Repair_Order
1214: (p_API_version_number => 1.0,
1215: p_init_msg_list => FND_API.G_TRUE,
1216: p_commit => FND_API.G_FALSE,
1217: p_validation_level => null,
1218: p_repair_line_id => l_repair_line_id,
1219: p_Repln_Rec => l_rep_ord_rec,
1212: end if;
1213: CSD_REPAIRS_PVT.Update_Repair_Order
1214: (p_API_version_number => 1.0,
1215: p_init_msg_list => FND_API.G_TRUE,
1216: p_commit => FND_API.G_FALSE,
1217: p_validation_level => null,
1218: p_repair_line_id => l_repair_line_id,
1219: p_Repln_Rec => l_rep_ord_rec,
1220: x_return_status => x_return_status,
1225: if (g_debug > 0) then
1226: csd_gen_utility_pvt.add('CSD_REPAIRS_GRP.Update_Group_Approval_Status Update_Repair_Order :'||x_return_status);
1227: end if;
1228: -- Check return status from the update RO call
1229: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
1230: if (g_debug > 0) then
1231: csd_gen_utility_pvt.ADD('CSD_REPAIRS_PVT.Update_Repair_Order failed ');
1232: end if;
1233: RAISE FND_API.G_EXC_ERROR;
1229: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
1230: if (g_debug > 0) then
1231: csd_gen_utility_pvt.ADD('CSD_REPAIRS_PVT.Update_Repair_Order failed ');
1232: end if;
1233: RAISE FND_API.G_EXC_ERROR;
1234: --ROLLBACK TO UPDATE_GRP_APPV_STATUS;
1235: --return;
1236: ELSIF (x_return_status = FND_API.G_RET_STS_SUCCESS) then
1237: if (g_debug > 0) then
1232: end if;
1233: RAISE FND_API.G_EXC_ERROR;
1234: --ROLLBACK TO UPDATE_GRP_APPV_STATUS;
1235: --return;
1236: ELSIF (x_return_status = FND_API.G_RET_STS_SUCCESS) then
1237: if (g_debug > 0) then
1238: csd_gen_utility_pvt.add('CSD_REPAIRS_GRP.Update_Group_Approval_Status Update RO hist call');
1239: end if;
1240: CSD_TO_FORM_REPAIR_HISTORY.Validate_And_Write
1311: if (g_debug > 0) then
1312: csd_gen_utility_pvt.add('Update_Group_Approval_Status Validate_And_Write :'||x_return_status);
1313: end if;
1314: -- Check return status from the above procedure call
1315: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
1316: if (g_debug > 0) then
1317: csd_gen_utility_pvt.ADD('CSD_TO_FORM_REPAIR_HISTORY.Validate_And_Write failed ');
1318: end if;
1319: RAISE FND_API.G_EXC_ERROR;
1315: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
1316: if (g_debug > 0) then
1317: csd_gen_utility_pvt.ADD('CSD_TO_FORM_REPAIR_HISTORY.Validate_And_Write failed ');
1318: end if;
1319: RAISE FND_API.G_EXC_ERROR;
1320: --ROLLBACK TO UPDATE_GRP_APPV_STATUS;
1321: --return;
1322: END IF;
1323:
1331: csd_repair_estimate_pvt.update_repair_estimate
1332: (p_api_version => 1.0,
1333: p_commit => 'F',
1334: p_init_msg_list => 'T',
1335: p_validation_level => fnd_api.g_valid_level_full,
1336: x_estimate_rec => l_rep_est_rec,
1337: x_return_status => x_return_status,
1338: x_msg_count => l_msg_count,
1339: x_msg_data => l_msg_data);
1340: if (g_debug > 0) then
1341: csd_gen_utility_pvt.add('CSD_REPAIRS_GRP.Update_Group_Approval_Status update_repair_estimate :'||x_return_status);
1342: end if;
1343: -- Check return status from the above procedure call
1344: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
1345: if (g_debug > 0) then
1346: csd_gen_utility_pvt.ADD('csd_repair_estimate_pvt.update_repair_estimate failed ');
1347: end if;
1348: RAISE FND_API.G_EXC_ERROR;
1344: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
1345: if (g_debug > 0) then
1346: csd_gen_utility_pvt.ADD('csd_repair_estimate_pvt.update_repair_estimate failed ');
1347: end if;
1348: RAISE FND_API.G_EXC_ERROR;
1349: --ROLLBACK TO UPDATE_GRP_APPV_STATUS;
1350: --return;
1351: END IF;
1352:
1363:
1364: -------------------------------
1365: -- Standard check for p_commit
1366: -------------------------------
1367: IF FND_API.to_Boolean(p_commit)
1368: THEN
1369: COMMIT;
1370: END IF;
1371:
1376: (p_count => x_msg_count,
1377: p_data => x_msg_data);
1378:
1379: EXCEPTION
1380: WHEN FND_API.G_EXC_ERROR THEN
1381: x_return_status := FND_API.G_RET_STS_ERROR ;
1382: ROLLBACK TO UPDATE_GRP_APPV_STATUS;
1383: FND_MSG_PUB.Count_And_Get
1384: (p_count => x_msg_count,
1377: p_data => x_msg_data);
1378:
1379: EXCEPTION
1380: WHEN FND_API.G_EXC_ERROR THEN
1381: x_return_status := FND_API.G_RET_STS_ERROR ;
1382: ROLLBACK TO UPDATE_GRP_APPV_STATUS;
1383: FND_MSG_PUB.Count_And_Get
1384: (p_count => x_msg_count,
1385: p_data => x_msg_data );
1382: ROLLBACK TO UPDATE_GRP_APPV_STATUS;
1383: FND_MSG_PUB.Count_And_Get
1384: (p_count => x_msg_count,
1385: p_data => x_msg_data );
1386: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1387: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1388: ROLLBACK TO UPDATE_GRP_APPV_STATUS;
1389: FND_MSG_PUB.Count_And_Get
1390: ( p_count => x_msg_count,
1383: FND_MSG_PUB.Count_And_Get
1384: (p_count => x_msg_count,
1385: p_data => x_msg_data );
1386: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1387: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1388: ROLLBACK TO UPDATE_GRP_APPV_STATUS;
1389: FND_MSG_PUB.Count_And_Get
1390: ( p_count => x_msg_count,
1391: p_data => x_msg_data );
1389: FND_MSG_PUB.Count_And_Get
1390: ( p_count => x_msg_count,
1391: p_data => x_msg_data );
1392: WHEN OTHERS THEN
1393: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1394: ROLLBACK TO UPDATE_GRP_APPV_STATUS;
1395: IF FND_MSG_PUB.Check_Msg_Level
1396: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1397: THEN
1407:
1408: -- travi 051702 code
1409: Procedure Update_Group_Reject_Status(
1410: p_api_version IN NUMBER,
1411: p_commit IN VARCHAR2 := fnd_api.g_false,
1412: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1413: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
1414: p_repair_group_id IN NUMBER,
1415: p_object_version_number IN OUT NOCOPY NUMBER,
1408: -- travi 051702 code
1409: Procedure Update_Group_Reject_Status(
1410: p_api_version IN NUMBER,
1411: p_commit IN VARCHAR2 := fnd_api.g_false,
1412: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1413: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
1414: p_repair_group_id IN NUMBER,
1415: p_object_version_number IN OUT NOCOPY NUMBER,
1416: x_return_status OUT NOCOPY VARCHAR2,
1409: Procedure Update_Group_Reject_Status(
1410: p_api_version IN NUMBER,
1411: p_commit IN VARCHAR2 := fnd_api.g_false,
1412: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1413: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
1414: p_repair_group_id IN NUMBER,
1415: p_object_version_number IN OUT NOCOPY NUMBER,
1416: x_return_status OUT NOCOPY VARCHAR2,
1417: x_msg_count OUT NOCOPY NUMBER,
1471:
1472: -----------------------------------------------------
1473: -- Standard call to check for call compatibility.
1474: -----------------------------------------------------
1475: IF NOT FND_API.Compatible_API_Call (l_api_version,
1476: p_api_version,
1477: l_api_name ,
1478: G_PKG_NAME)
1479: THEN
1476: p_api_version,
1477: l_api_name ,
1478: G_PKG_NAME)
1479: THEN
1480: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1481: END IF;
1482:
1483: ---------------------------------------------------------------
1484: -- Initialize message list if p_init_msg_list is set to TRUE.
1482:
1483: ---------------------------------------------------------------
1484: -- Initialize message list if p_init_msg_list is set to TRUE.
1485: ---------------------------------------------------------------
1486: IF FND_API.to_Boolean(p_init_msg_list)
1487: THEN
1488: FND_MSG_PUB.initialize;
1489: END IF;
1490:
1490:
1491: --------------------------------------------
1492: -- Initialize API return status to success
1493: --------------------------------------------
1494: x_return_status := FND_API.G_RET_STS_SUCCESS;
1495: --------------------
1496: -- Api body starts
1497: --------------------
1498: csd_gen_utility_pvt.dump_api_info
1517: csd_gen_utility_pvt.ADD('Repair Group Id');
1518: end if;
1519: IF NOT( CSD_PROCESS_UTIL.Validate_repair_group_id
1520: ( p_repair_group_id => p_repair_group_id )) THEN
1521: RAISE FND_API.G_EXC_ERROR;
1522: END IF;
1523:
1524:
1525: -- get all repair lines having estimates for the given Repair Group
1559: csd_gen_utility_pvt.add('CSD_REPAIRS_GRP.Update_Group_Reject_Status Update repairs call');
1560: end if;
1561: CSD_REPAIRS_PVT.Update_Repair_Order
1562: (p_API_version_number => 1.0,
1563: p_init_msg_list => FND_API.G_TRUE,
1564: p_commit => FND_API.G_FALSE,
1565: p_validation_level => null,
1566: p_repair_line_id => l_repair_line_id,
1567: p_Repln_Rec => l_rep_ord_rec,
1560: end if;
1561: CSD_REPAIRS_PVT.Update_Repair_Order
1562: (p_API_version_number => 1.0,
1563: p_init_msg_list => FND_API.G_TRUE,
1564: p_commit => FND_API.G_FALSE,
1565: p_validation_level => null,
1566: p_repair_line_id => l_repair_line_id,
1567: p_Repln_Rec => l_rep_ord_rec,
1568: x_return_status => x_return_status,
1573: if (g_debug > 0) then
1574: csd_gen_utility_pvt.add('CSD_REPAIRS_GRP.Update_Group_Reject_Status Update_Repair_Order :'||x_return_status);
1575: end if;
1576: -- Check return status from the update RO call
1577: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
1578: if (g_debug > 0) then
1579: csd_gen_utility_pvt.ADD('CSD_REPAIRS_PVT.Update_Repair_Order failed ');
1580: end if;
1581: RAISE FND_API.G_EXC_ERROR;
1577: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
1578: if (g_debug > 0) then
1579: csd_gen_utility_pvt.ADD('CSD_REPAIRS_PVT.Update_Repair_Order failed ');
1580: end if;
1581: RAISE FND_API.G_EXC_ERROR;
1582: --ROLLBACK TO UPDATE_GRP_REJT_STATUS;
1583: --return;
1584: ELSIF (x_return_status = FND_API.G_RET_STS_SUCCESS) then
1585: if (g_debug > 0) then
1580: end if;
1581: RAISE FND_API.G_EXC_ERROR;
1582: --ROLLBACK TO UPDATE_GRP_REJT_STATUS;
1583: --return;
1584: ELSIF (x_return_status = FND_API.G_RET_STS_SUCCESS) then
1585: if (g_debug > 0) then
1586: csd_gen_utility_pvt.add('CSD_REPAIRS_GRP.Update_Group_Reject_Status Update RO hist call');
1587: end if;
1588: CSD_TO_FORM_REPAIR_HISTORY.Validate_And_Write
1659: if (g_debug > 0) then
1660: csd_gen_utility_pvt.add('CSD_REPAIRS_GRP.Update_Group_Reject_Status Validate_And_Write :'||x_return_status);
1661: end if;
1662: -- Check return status from the above procedure call
1663: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
1664: if (g_debug > 0) then
1665: csd_gen_utility_pvt.ADD('CSD_TO_FORM_REPAIR_HISTORY.Validate_And_Write failed ');
1666: end if;
1667: RAISE FND_API.G_EXC_ERROR;
1663: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
1664: if (g_debug > 0) then
1665: csd_gen_utility_pvt.ADD('CSD_TO_FORM_REPAIR_HISTORY.Validate_And_Write failed ');
1666: end if;
1667: RAISE FND_API.G_EXC_ERROR;
1668: --ROLLBACK TO UPDATE_GRP_REJT_STATUS;
1669: --return;
1670: END IF;
1671:
1679: csd_repair_estimate_pvt.update_repair_estimate
1680: (p_api_version => 1.0,
1681: p_commit => 'F',
1682: p_init_msg_list => 'T',
1683: p_validation_level => fnd_api.g_valid_level_full,
1684: x_estimate_rec => l_rep_est_rec,
1685: x_return_status => x_return_status,
1686: x_msg_count => l_msg_count,
1687: x_msg_data => l_msg_data);
1688: if (g_debug > 0) then
1689: csd_gen_utility_pvt.add('CSD_REPAIRS_GRP.Update_Group_Reject_Status update_repair_estimate :'||x_return_status);
1690: end if;
1691: -- Check return status from the above procedure call
1692: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
1693: if (g_debug > 0) then
1694: csd_gen_utility_pvt.ADD('csd_repair_estimate_pvt.update_repair_estimate failed ');
1695: end if;
1696: RAISE FND_API.G_EXC_ERROR;
1692: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
1693: if (g_debug > 0) then
1694: csd_gen_utility_pvt.ADD('csd_repair_estimate_pvt.update_repair_estimate failed ');
1695: end if;
1696: RAISE FND_API.G_EXC_ERROR;
1697: --ROLLBACK TO UPDATE_GRP_REJT_STATUS;
1698: --return;
1699: END IF;
1700:
1711:
1712: -------------------------------
1713: -- Standard check for p_commit
1714: -------------------------------
1715: IF FND_API.to_Boolean(p_commit)
1716: THEN
1717: COMMIT;
1718: END IF;
1719:
1725: p_data => x_msg_data
1726: );
1727:
1728: EXCEPTION
1729: WHEN FND_API.G_EXC_ERROR THEN
1730: x_return_status := FND_API.G_RET_STS_ERROR ;
1731: ROLLBACK TO UPDATE_GRP_REJT_STATUS;
1732: FND_MSG_PUB.Count_And_Get
1733: (p_count => x_msg_count,
1726: );
1727:
1728: EXCEPTION
1729: WHEN FND_API.G_EXC_ERROR THEN
1730: x_return_status := FND_API.G_RET_STS_ERROR ;
1731: ROLLBACK TO UPDATE_GRP_REJT_STATUS;
1732: FND_MSG_PUB.Count_And_Get
1733: (p_count => x_msg_count,
1734: p_data => x_msg_data );
1731: ROLLBACK TO UPDATE_GRP_REJT_STATUS;
1732: FND_MSG_PUB.Count_And_Get
1733: (p_count => x_msg_count,
1734: p_data => x_msg_data );
1735: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1736: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1737: ROLLBACK TO UPDATE_GRP_REJT_STATUS;
1738: FND_MSG_PUB.Count_And_Get
1739: ( p_count => x_msg_count,
1732: FND_MSG_PUB.Count_And_Get
1733: (p_count => x_msg_count,
1734: p_data => x_msg_data );
1735: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1736: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1737: ROLLBACK TO UPDATE_GRP_REJT_STATUS;
1738: FND_MSG_PUB.Count_And_Get
1739: ( p_count => x_msg_count,
1740: p_data => x_msg_data );
1738: FND_MSG_PUB.Count_And_Get
1739: ( p_count => x_msg_count,
1740: p_data => x_msg_data );
1741: WHEN OTHERS THEN
1742: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1743: ROLLBACK TO UPDATE_GRP_REJT_STATUS;
1744: IF FND_MSG_PUB.Check_Msg_Level
1745: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1746: THEN