[Home] [Help]
154: -- may add additional messages to the stack.
155: -- Initialize message list if p_init_msg_list is set to TRUE.
156: IF Fnd_Api.to_Boolean(p_init_msg_list)
157: THEN
158: Fnd_Msg_Pub.initialize;
159: END IF;
160: -- Initialize API return status to SUCCESS
161: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
162:
235: -- Validate Environment
236:
237: IF G_USER_ID IS NULL
238: THEN
239: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_ERROR)
240: THEN
241: Fnd_Message.Set_Name('CSD', 'CSD_CANNOT_GET_PROFILE_VALUE');
242: Fnd_Message.Set_Token('PROFILE', 'USER_ID', FALSE);
243: Fnd_Msg_Pub.ADD;
239: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_ERROR)
240: THEN
241: Fnd_Message.Set_Name('CSD', 'CSD_CANNOT_GET_PROFILE_VALUE');
242: Fnd_Message.Set_Token('PROFILE', 'USER_ID', FALSE);
243: Fnd_Msg_Pub.ADD;
244: END IF;
245: RAISE Fnd_Api.G_EXC_ERROR;
246: END IF;
247:
306: IF l_flow_status_id IS NULL THEN
307: -- Repair Order creation failed.
308: -- Unable to get the draft status details.
309: Fnd_Message.SET_NAME('CSD','CSD_RO_NO_DRAFT_STATUS_DTLS');
310: Fnd_Msg_Pub.ADD;
311: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
312: END IF;
313:
314: ELSE
519: THEN
520: COMMIT WORK;
521: END IF;
522: -- Standard call to get message count and if count is 1, get message info.
523: Fnd_Msg_Pub.Count_And_Get
524: (p_count => x_msg_count,
525: p_data => x_msg_data
526: );
527:
529: WHEN Fnd_Api.G_EXC_ERROR THEN
530: Jtf_Plsql_Api.HANDLE_EXCEPTIONS
531: ( P_API_NAME => L_API_NAME
532: ,P_PKG_NAME => G_PKG_NAME
533: ,P_EXCEPTION_LEVEL => Fnd_Msg_Pub.G_MSG_LVL_ERROR
534: ,P_PACKAGE_TYPE => Jtf_Plsql_Api.G_PVT
535: ,X_MSG_COUNT => X_MSG_COUNT
536: ,X_MSG_DATA => X_MSG_DATA
537: ,X_RETURN_STATUS => X_RETURN_STATUS);
540: ROLLBACK TO CREATE_REPAIR_ORDER_PVT;
541: Jtf_Plsql_Api.HANDLE_EXCEPTIONS
542: (P_API_NAME => L_API_NAME
543: ,P_PKG_NAME => G_PKG_NAME
544: ,P_EXCEPTION_LEVEL => Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR
545: ,P_PACKAGE_TYPE => Jtf_Plsql_Api.G_PVT
546: ,X_MSG_COUNT => X_MSG_COUNT
547: ,X_MSG_DATA => X_MSG_DATA
548: ,X_RETURN_STATUS => X_RETURN_STATUS);
673:
674: -- Initialize message list if p_init_msg_list is set to TRUE.
675: IF Fnd_Api.to_Boolean(p_init_msg_list)
676: THEN
677: Fnd_Msg_Pub.initialize;
678: END IF;
679: -- Initialize API return status to SUCCESS
680: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
681:
684: -- Validate Environment
685:
686: IF G_USER_ID IS NULL
687: THEN
688: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_ERROR)
689: THEN
690: Fnd_Message.Set_Name('CSD', 'CSD_CANNOT_GET_PROFILE_VALUE');
691: Fnd_Message.Set_Token('PROFILE', 'USER_ID', FALSE);
692: Fnd_Msg_Pub.ADD;
688: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_ERROR)
689: THEN
690: Fnd_Message.Set_Name('CSD', 'CSD_CANNOT_GET_PROFILE_VALUE');
691: Fnd_Message.Set_Token('PROFILE', 'USER_ID', FALSE);
692: Fnd_Msg_Pub.ADD;
693: END IF;
694: RAISE Fnd_Api.G_EXC_ERROR;
695: END IF;
696:
760: l_OLD_REPLN_rec.ATTRIBUTE30
761: ;
762:
763: IF (C_Get_repairs%NOTFOUND) THEN
764: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
765: Fnd_Message.Set_Name('CSD', 'CSD_API_MISSING_UPDATE_TARGET');
766: Fnd_Message.Set_Token ('INFO', 'Repairs', FALSE);
767: Fnd_Msg_Pub.ADD;
768: END IF;
763: IF (C_Get_repairs%NOTFOUND) THEN
764: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
765: Fnd_Message.Set_Name('CSD', 'CSD_API_MISSING_UPDATE_TARGET');
766: Fnd_Message.Set_Token ('INFO', 'Repairs', FALSE);
767: Fnd_Msg_Pub.ADD;
768: END IF;
769: CLOSE C_Get_repairs;
770: RAISE Fnd_Api.G_EXC_ERROR;
771: END IF;
772: CLOSE C_Get_repairs;
773:
774: /*
775: if l_OLD_REPLN_Rec.status = 'C' then
776: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
777: FND_MESSAGE.Set_Name('CSD', 'CSD_RO_CLOSED');
778: FND_MESSAGE.Set_Token ('REP_NUM', l_OLD_REPLN_Rec.repair_number);
779: FND_MSG_PUB.Add;
780: END IF;
775: if l_OLD_REPLN_Rec.status = 'C' then
776: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
777: FND_MESSAGE.Set_Name('CSD', 'CSD_RO_CLOSED');
778: FND_MESSAGE.Set_Token ('REP_NUM', l_OLD_REPLN_Rec.repair_number);
779: FND_MSG_PUB.Add;
780: END IF;
781: raise FND_API.G_EXC_ERROR;
782: end if;
783: */
909: IF Fnd_Api.to_Boolean(p_commit) THEN
910: COMMIT WORK;
911: END IF;
912: -- Standard call to get message count and if count is 1, get message info.
913: Fnd_Msg_Pub.Count_And_Get
914: (p_count => x_msg_count,
915: p_data => x_msg_data
916: );
917:
919: WHEN Fnd_Api.G_EXC_ERROR THEN
920: Jtf_Plsql_Api.HANDLE_EXCEPTIONS
921: (P_API_NAME => L_API_NAME
922: ,P_PKG_NAME => G_PKG_NAME
923: ,P_EXCEPTION_LEVEL => Fnd_Msg_Pub.G_MSG_LVL_ERROR
924: ,P_PACKAGE_TYPE => Jtf_Plsql_Api.G_PVT
925: ,X_MSG_COUNT => X_MSG_COUNT
926: ,X_MSG_DATA => X_MSG_DATA
927: ,X_RETURN_STATUS => X_RETURN_STATUS);
929: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
930: Jtf_Plsql_Api.HANDLE_EXCEPTIONS
931: (P_API_NAME => L_API_NAME
932: ,P_PKG_NAME => G_PKG_NAME
933: ,P_EXCEPTION_LEVEL => Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR
934: ,P_PACKAGE_TYPE => Jtf_Plsql_Api.G_PVT
935: ,X_MSG_COUNT => X_MSG_COUNT
936: ,X_MSG_DATA => X_MSG_DATA
937: ,X_RETURN_STATUS => X_RETURN_STATUS);
977: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
978: END IF;
979: -- Initialize message list if p_init_msg_list is set to TRUE.
980: IF Fnd_Api.to_Boolean(p_init_msg_list) THEN
981: Fnd_Msg_Pub.initialize;
982: END IF;
983: -- Initialize API return status to SUCCESS
984: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
985: --
995: IF Fnd_Api.to_Boolean(p_commit) THEN
996: COMMIT WORK;
997: END IF;
998: -- Standard call to get message count and if count is 1, get message info.
999: Fnd_Msg_Pub.Count_And_Get
1000: (p_count => x_msg_count,
1001: p_data => x_msg_data
1002: );
1003:
1005: WHEN Fnd_Api.G_EXC_ERROR THEN
1006: Jtf_Plsql_Api.HANDLE_EXCEPTIONS
1007: (P_API_NAME => L_API_NAME
1008: ,P_PKG_NAME => G_PKG_NAME
1009: ,P_EXCEPTION_LEVEL => Fnd_Msg_Pub.G_MSG_LVL_ERROR
1010: ,P_PACKAGE_TYPE => Jtf_Plsql_Api.G_PVT
1011: ,X_MSG_COUNT => X_MSG_COUNT
1012: ,X_MSG_DATA => X_MSG_DATA
1013: ,X_RETURN_STATUS => X_RETURN_STATUS);
1015: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1016: Jtf_Plsql_Api.HANDLE_EXCEPTIONS
1017: (P_API_NAME => L_API_NAME
1018: ,P_PKG_NAME => G_PKG_NAME
1019: ,P_EXCEPTION_LEVEL => Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR
1020: ,P_PACKAGE_TYPE => Jtf_Plsql_Api.G_PVT
1021: ,X_MSG_COUNT => X_MSG_COUNT
1022: ,X_MSG_DATA => X_MSG_DATA
1023: ,X_RETURN_STATUS => X_RETURN_STATUS);
1074: CLOSE c1;
1075:
1076: IF l_valid = 'N' THEN
1077: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1078: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1079: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_REPLN_ID');
1080: Fnd_Msg_Pub.ADD;
1081: END IF;
1082: END IF;
1076: IF l_valid = 'N' THEN
1077: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1078: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1079: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_REPLN_ID');
1080: Fnd_Msg_Pub.ADD;
1081: END IF;
1082: END IF;
1083:
1084: END Validate_REPAIR_LINE_ID;
1116: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1117: Fnd_Message.SET_NAME('CSD', 'CSD_API_NULL_PARAM');
1118: Fnd_Message.SET_TOKEN('API_NAME', 'Update_Repair_Order');
1119: Fnd_Message.SET_TOKEN('NULL_PARAM', 'REPAIR_NUMBER');
1120: Fnd_Msg_Pub.ADD;
1121: RETURN;
1122: ELSIF p_repair_number = p_old_repair_number
1123: OR p_repair_number = Fnd_Api.G_MISS_CHAR THEN
1124: RETURN;
1133: CLOSE c1;
1134:
1135: IF l_valid = 'N' THEN
1136: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1137: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1138: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_REPLN_NUMBER');
1139: Fnd_Msg_Pub.ADD;
1140: END IF;
1141: END IF;
1135: IF l_valid = 'N' THEN
1136: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1137: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1138: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_REPLN_NUMBER');
1139: Fnd_Msg_Pub.ADD;
1140: END IF;
1141: END IF;
1142:
1143: END Validate_REPAIR_NUMBER;
1169: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1170: Fnd_Message.SET_NAME('CSD', 'CSD_API_NULL_PARAM');
1171: Fnd_Message.SET_TOKEN('API_NAME', 'Update_Repair_Order');
1172: Fnd_Message.SET_TOKEN('NULL_PARAM', 'INCIDENT_ID');
1173: Fnd_Msg_Pub.ADD;
1174: RETURN;
1175: ELSIF p_incident_id = p_old_incident_id
1176: OR p_incident_id = Fnd_Api.G_MISS_NUM THEN
1177: RETURN;
1186: CLOSE c1;
1187:
1188: IF l_valid = 'N' THEN
1189: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1190: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1191: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_INCIDENT_ID');
1192: Fnd_Msg_Pub.ADD;
1193: END IF;
1194: END IF;
1188: IF l_valid = 'N' THEN
1189: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1190: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1191: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_INCIDENT_ID');
1192: Fnd_Msg_Pub.ADD;
1193: END IF;
1194: END IF;
1195:
1196: END Validate_INCIDENT_ID;
1225: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1226: Fnd_Message.SET_NAME('CSD', 'CSD_API_NULL_PARAM');
1227: Fnd_Message.SET_TOKEN('API_NAME', 'Update_Repair_Order');
1228: Fnd_Message.SET_TOKEN('NULL_PARAM', 'INVENTORY_ITEM_ID');
1229: Fnd_Msg_Pub.ADD;
1230: RETURN;
1231: ELSIF p_inventory_item_id = p_old_inventory_item_id
1232: OR p_inventory_item_id = Fnd_Api.G_MISS_NUM THEN
1233: RETURN;
1242: CLOSE c1;
1243:
1244: IF l_valid = 'N' THEN
1245: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1246: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1247: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_INVENTORY_ITEM');
1248: Fnd_Msg_Pub.ADD;
1249: END IF;
1250: END IF;
1244: IF l_valid = 'N' THEN
1245: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1246: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1247: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_INVENTORY_ITEM');
1248: Fnd_Msg_Pub.ADD;
1249: END IF;
1250: END IF;
1251:
1252: END Validate_INVENTORY_ITEM_ID;
1302: CLOSE c1;
1303:
1304: IF l_valid = 'N' THEN
1305: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1306: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1307: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_CUST_PROD');
1308: Fnd_Msg_Pub.ADD;
1309: END IF;
1310: END IF;
1304: IF l_valid = 'N' THEN
1305: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1306: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1307: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_CUST_PROD');
1308: Fnd_Msg_Pub.ADD;
1309: END IF;
1310: END IF;
1311:
1312: END Validate_CUSTOMER_PRODUCT_ID;
1371: CLOSE c1;
1372:
1373: IF l_valid = 'N' THEN
1374: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1375: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1376: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_CUST_PROD');
1377: Fnd_Msg_Pub.ADD;
1378: END IF;
1379: END IF;
1373: IF l_valid = 'N' THEN
1374: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1375: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1376: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_CUST_PROD');
1377: Fnd_Msg_Pub.ADD;
1378: END IF;
1379: END IF;
1380:
1381: END Validate_Internal_CUST_PROD_ID;
1409: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1410: Fnd_Message.SET_NAME('CSD', 'CSD_API_NULL_PARAM');
1411: Fnd_Message.SET_TOKEN('API_NAME', 'Update_Repair_Order');
1412: Fnd_Message.SET_TOKEN('NULL_PARAM', 'UNIT_OF_MEASURE');
1413: Fnd_Msg_Pub.ADD;
1414: RETURN;
1415: ELSIF p_unit_of_measure = p_unit_of_measure
1416: OR p_unit_of_measure = Fnd_Api.G_MISS_CHAR THEN
1417: RETURN;
1426: CLOSE c1;
1427:
1428: IF l_valid = 'N' THEN
1429: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1430: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1431: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_UOM');
1432: Fnd_Msg_Pub.ADD;
1433: END IF;
1434: END IF;
1428: IF l_valid = 'N' THEN
1429: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1430: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1431: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_UOM');
1432: Fnd_Msg_Pub.ADD;
1433: END IF;
1434: END IF;
1435:
1436: END Validate_UNIT_OF_MEASURE;
1464: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1465: Fnd_Message.SET_NAME('CSD', 'CSD_API_NULL_PARAM');
1466: Fnd_Message.SET_TOKEN('API_NAME', 'Update_Repair_Order');
1467: Fnd_Message.SET_TOKEN('NULL_PARAM', 'REPAIR_TYPE_ID');
1468: Fnd_Msg_Pub.ADD;
1469: RETURN;
1470: ELSIF p_repair_type_id = p_old_repair_type_id
1471: OR p_repair_type_id = Fnd_Api.G_MISS_NUM THEN
1472: RETURN;
1481: CLOSE c1;
1482:
1483: IF l_valid = 'N' THEN
1484: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1485: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1486: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_REPAIR_TYPE');
1487: Fnd_Msg_Pub.ADD;
1488: END IF;
1489: END IF;
1483: IF l_valid = 'N' THEN
1484: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1485: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1486: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_REPAIR_TYPE');
1487: Fnd_Msg_Pub.ADD;
1488: END IF;
1489: END IF;
1490:
1491: END Validate_REPAIR_TYPE_ID;
1564: CLOSE c1;
1565:
1566: IF l_valid = 'N' THEN
1567: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1568: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1569: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_RESOURCE');
1570: Fnd_Msg_Pub.ADD;
1571: END IF;
1572: END IF;
1566: IF l_valid = 'N' THEN
1567: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1568: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1569: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_RESOURCE');
1570: Fnd_Msg_Pub.ADD;
1571: END IF;
1572: END IF;
1573:
1574: END Validate_RESOURCE_ID;
1622: CLOSE c1;
1623:
1624: IF l_valid = 'N' THEN
1625: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1626: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1627: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_RS_GROUP');
1628: Fnd_Msg_Pub.ADD;
1629: END IF;
1630: END IF;
1624: IF l_valid = 'N' THEN
1625: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1626: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1627: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_RS_GROUP');
1628: Fnd_Msg_Pub.ADD;
1629: END IF;
1630: END IF;
1631:
1632: END Validate_RESOURCE_GROUP;
1710: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1711: Fnd_Message.SET_NAME('CSD', 'CSD_API_NULL_PARAM');
1712: Fnd_Message.SET_TOKEN('API_NAME', 'Update_Repair_Order');
1713: Fnd_Message.SET_TOKEN('NULL_PARAM', 'STATUS');
1714: Fnd_Msg_Pub.ADD;
1715: RETURN;
1716: ELSIF p_status = p_old_status
1717: OR p_status = Fnd_Api.G_MISS_CHAR THEN
1718: RETURN;
1727: CLOSE c1;
1728:
1729: IF l_valid = 'N' THEN
1730: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1731: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1732: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_STATUS');
1733: Fnd_Msg_Pub.ADD;
1734: END IF;
1735: END IF;
1729: IF l_valid = 'N' THEN
1730: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1731: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1732: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_STATUS');
1733: Fnd_Msg_Pub.ADD;
1734: END IF;
1735: END IF;
1736:
1737: END Validate_STATUS;
1766: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1767: Fnd_Message.SET_NAME('CSD', 'CSD_API_NULL_PARAM');
1768: Fnd_Message.SET_TOKEN('API_NAME', 'Update_Repair_Order');
1769: Fnd_Message.SET_TOKEN('NULL_PARAM', 'APPROVAL_REQUIRED_FLAG');
1770: Fnd_Msg_Pub.ADD;
1771: RETURN;
1772: ELSIF p_approval_required_flag = p_old_approval_required_flag
1773: OR p_approval_required_flag = Fnd_Api.G_MISS_CHAR THEN
1774: RETURN;
1783: CLOSE c1;
1784:
1785: IF l_valid = 'N' THEN
1786: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1787: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1788: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_APRVL_REQD_FLG');
1789: Fnd_Msg_Pub.ADD;
1790: END IF;
1791: END IF;
1785: IF l_valid = 'N' THEN
1786: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1787: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1788: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_APRVL_REQD_FLG');
1789: Fnd_Msg_Pub.ADD;
1790: END IF;
1791: END IF;
1792:
1793: END Validate_APPROVAL_REQD_FLAG;
1846: CLOSE c1;
1847:
1848: IF l_valid = 'N' THEN
1849: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1850: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1851: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_APRVL_STATUS');
1852: Fnd_Msg_Pub.ADD;
1853: END IF;
1854: END IF;
1848: IF l_valid = 'N' THEN
1849: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1850: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1851: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_APRVL_STATUS');
1852: Fnd_Msg_Pub.ADD;
1853: END IF;
1854: END IF;
1855:
1856: END Validate_APPROVAL_STATUS;
1905: END IF;
1906:
1907: IF l_valid = 'N' THEN
1908: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1909: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1910: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_PROMISE_DATE');
1911: Fnd_Msg_Pub.ADD;
1912: END IF;
1913: END IF;
1907: IF l_valid = 'N' THEN
1908: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1909: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1910: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_PROMISE_DATE');
1911: Fnd_Msg_Pub.ADD;
1912: END IF;
1913: END IF;
1914:
1915: END Validate_PROMISE_DATE;
1935: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1936: Fnd_Message.SET_NAME('CSD', 'CSD_API_NULL_PARAM');
1937: Fnd_Message.SET_TOKEN('API_NAME', 'Update_Repair_Order');
1938: Fnd_Message.SET_TOKEN('NULL_PARAM', 'QUANTITY');
1939: Fnd_Msg_Pub.ADD;
1940: RETURN;
1941: ELSIF p_quantity = p_old_quantity
1942: OR p_quantity = Fnd_Api.G_MISS_NUM THEN
1943: RETURN;
1949: END IF;
1950:
1951: IF l_valid = 'N' THEN
1952: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1953: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1954: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_QUANTITY');
1955: Fnd_Msg_Pub.ADD;
1956: END IF;
1957: END IF;
1951: IF l_valid = 'N' THEN
1952: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1953: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1954: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_QUANTITY');
1955: Fnd_Msg_Pub.ADD;
1956: END IF;
1957: END IF;
1958:
1959: END Validate_QUANTITY;
2001: end if;
2002:
2003: if l_valid = 'N' then
2004: x_return_status := FND_API.G_RET_STS_ERROR;
2005: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2006: FND_MESSAGE.Set_Name('CSD', 'CSD_INVALID_QTY_IN_WIP');
2007: FND_MSG_PUB.ADD;
2008: END IF;
2009: end if;
2003: if l_valid = 'N' then
2004: x_return_status := FND_API.G_RET_STS_ERROR;
2005: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2006: FND_MESSAGE.Set_Name('CSD', 'CSD_INVALID_QTY_IN_WIP');
2007: FND_MSG_PUB.ADD;
2008: END IF;
2009: end if;
2010: Commented by saupadhy after JDSU enhancements
2011: **************************************************/
2066: END IF;
2067:
2068: IF l_valid = 'N' THEN
2069: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2070: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
2071:
2072: -- travi this mesg need to be changed
2073: -- travi FND_MESSAGE.Set_Name('CSD', 'CSD_INVALID_OBJ_VER_NUM');
2074: Fnd_Msg_Pub.ADD;
2070: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
2071:
2072: -- travi this mesg need to be changed
2073: -- travi FND_MESSAGE.Set_Name('CSD', 'CSD_INVALID_OBJ_VER_NUM');
2074: Fnd_Msg_Pub.ADD;
2075:
2076: END IF;
2077: END IF;
2078:
2130: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2131: Fnd_Message.SET_NAME('CSD', 'CSD_API_NULL_PARAM');
2132: Fnd_Message.SET_TOKEN('API_NAME', 'Update_Repair_Order');
2133: Fnd_Message.SET_TOKEN('NULL_PARAM', 'RO_GROUP_ID');
2134: Fnd_Msg_Pub.ADD;
2135: RETURN;
2136: ELSIF p_ro_group_id = p_old_ro_group_id
2137: OR p_ro_group_id = Fnd_Api.G_MISS_NUM THEN
2138: IF (g_debug > 0 ) THEN
2153: x_return_status := FND_API.G_RET_STS_ERROR;
2154: FND_MESSAGE.SET_NAME('CSD', 'CSD_API_NULL_PARAM');
2155: FND_MESSAGE.SET_TOKEN('API_NAME', 'Update_Repair_Order');
2156: FND_MESSAGE.SET_TOKEN('NULL_PARAM', 'RO_GROUP_ID');
2157: FND_MSG_PUB.Add;
2158: return;
2159: elsif p_ro_group_id = p_old_ro_group_id
2160: or p_ro_group_id = FND_API.G_MISS_NUM then
2161: return;
2181: CLOSE c1;
2182:
2183: IF l_valid = 'N' THEN
2184: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2185: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
2186: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_RO_GROUP_ID');
2187: Fnd_Msg_Pub.ADD;
2188: END IF;
2189: END IF;
2183: IF l_valid = 'N' THEN
2184: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2185: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
2186: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_RO_GROUP_ID');
2187: Fnd_Msg_Pub.ADD;
2188: END IF;
2189: END IF;
2190: END IF;
2191:
2228: CLOSE c1;
2229:
2230: IF l_valid = 'N' THEN
2231: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2232: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
2233: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_SOURCE');
2234: Fnd_Message.SET_TOKEN('ORDER_LINE_ID', p_ORIGINAL_SOURCE_LINE_ID);
2235: Fnd_Message.SET_TOKEN('ORDER_HEADER_ID', p_ORIGINAL_SOURCE_HEADER_ID);
2236: Fnd_Msg_Pub.ADD;
2232: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
2233: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_SOURCE');
2234: Fnd_Message.SET_TOKEN('ORDER_LINE_ID', p_ORIGINAL_SOURCE_LINE_ID);
2235: Fnd_Message.SET_TOKEN('ORDER_HEADER_ID', p_ORIGINAL_SOURCE_HEADER_ID);
2236: Fnd_Msg_Pub.ADD;
2237: END IF;
2238: END IF;
2239:
2240: END Validate_SOURCE;
2317: END IF;
2318: -- Initialize message list if p_init_msg_list is set to TRUE.
2319: IF Fnd_Api.to_Boolean(p_init_msg_list)
2320: THEN
2321: Fnd_Msg_Pub.initialize;
2322: END IF;
2323: -- Initialize API return status to SUCCESS
2324: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2325: --
2915: WHEN Fnd_Api.G_EXC_ERROR THEN
2916: Jtf_Plsql_Api.HANDLE_EXCEPTIONS
2917: ( P_API_NAME => L_API_NAME
2918: ,P_PKG_NAME => G_PKG_NAME
2919: ,P_EXCEPTION_LEVEL => Fnd_Msg_Pub.G_MSG_LVL_ERROR
2920: ,P_PACKAGE_TYPE => Jtf_Plsql_Api.G_PVT
2921: ,X_MSG_COUNT => X_MSG_COUNT
2922: ,X_MSG_DATA => X_MSG_DATA
2923: ,X_RETURN_STATUS => X_RETURN_STATUS);
2925: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2926: Jtf_Plsql_Api.HANDLE_EXCEPTIONS
2927: (P_API_NAME => L_API_NAME
2928: ,P_PKG_NAME => G_PKG_NAME
2929: ,P_EXCEPTION_LEVEL => Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR
2930: ,P_PACKAGE_TYPE => Jtf_Plsql_Api.G_PVT
2931: ,X_MSG_COUNT => X_MSG_COUNT
2932: ,X_MSG_DATA => X_MSG_DATA
2933: ,X_RETURN_STATUS => X_RETURN_STATUS);
3095: END IF;
3096:
3097: -- Initialize message list if p_init_msg_list is set to TRUE.
3098: IF Fnd_Api.to_Boolean(p_init_msg_list) THEN
3099: Fnd_Msg_Pub.initialize;
3100: END IF;
3101:
3102: -- Initialize API return status to success
3103: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3418: COMMIT;
3419: END IF;
3420:
3421: -- Standard call to get message count and if count is 1, get message info
3422: Fnd_Msg_Pub.Count_And_Get
3423: (p_count => x_msg_count,
3424: p_data => x_msg_data);
3425:
3426: IF ( Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level) THEN
3432: EXCEPTION
3433: WHEN Fnd_Api.G_EXC_ERROR THEN
3434: ROLLBACK TO Copy_Attachments;
3435: x_return_status := Fnd_Api.G_RET_STS_ERROR ;
3436: Fnd_Msg_Pub.Count_And_Get
3437: (p_count => x_msg_count,
3438: p_data => x_msg_data
3439: );
3440: IF ( Fnd_Log.LEVEL_ERROR >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL ) THEN
3445:
3446: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
3447: ROLLBACK TO Copy_Attachments;
3448: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ;
3449: Fnd_Msg_Pub.Count_And_Get (p_count => x_msg_count,
3450: p_data => x_msg_data );
3451:
3452: IF ( Fnd_Log.LEVEL_EXCEPTION >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL ) THEN
3453: Fnd_Log.STRING(Fnd_Log.LEVEL_EXCEPTION,
3457:
3458: WHEN OTHERS THEN
3459: ROLLBACK TO Copy_Attachments;
3460: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ;
3461: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
3462: THEN
3463: Fnd_Msg_Pub.Add_Exc_Msg (G_PKG_NAME ,
3464: l_api_name );
3465: END IF;
3459: ROLLBACK TO Copy_Attachments;
3460: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ;
3461: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
3462: THEN
3463: Fnd_Msg_Pub.Add_Exc_Msg (G_PKG_NAME ,
3464: l_api_name );
3465: END IF;
3466: Fnd_Msg_Pub.Count_And_Get (p_count => x_msg_count,
3467: p_data => x_msg_data );
3462: THEN
3463: Fnd_Msg_Pub.Add_Exc_Msg (G_PKG_NAME ,
3464: l_api_name );
3465: END IF;
3466: Fnd_Msg_Pub.Count_And_Get (p_count => x_msg_count,
3467: p_data => x_msg_data );
3468:
3469: IF ( Fnd_Log.LEVEL_EXCEPTION >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL ) THEN
3470: Fnd_Log.STRING(Fnd_Log.LEVEL_EXCEPTION,
3529: END IF;
3530:
3531: -- Initialize message list if p_init_msg_list is set to TRUE.
3532: IF Fnd_Api.to_Boolean(p_init_msg_list) THEN
3533: Fnd_Msg_Pub.initialize;
3534: END IF;
3535:
3536: -- Initialize API return status to success
3537: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3687: COMMIT;
3688: END IF;
3689:
3690: -- Standard call to get message count and if count is 1, get message info
3691: Fnd_Msg_Pub.Count_And_Get
3692: (p_count => x_msg_count,
3693: p_data => x_msg_data);
3694:
3695: IF(Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level) THEN
3701: EXCEPTION
3702: WHEN Fnd_Api.G_EXC_ERROR THEN
3703: ROLLBACK TO Delete_Attachments;
3704: x_return_status := Fnd_Api.G_RET_STS_ERROR ;
3705: Fnd_Msg_Pub.Count_And_Get
3706: (p_count => x_msg_count,
3707: p_data => x_msg_data
3708: );
3709: IF ( Fnd_Log.LEVEL_ERROR >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL ) THEN
3714:
3715: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
3716: ROLLBACK TO Delete_Attachments;
3717: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ;
3718: Fnd_Msg_Pub.Count_And_Get (p_count => x_msg_count,
3719: p_data => x_msg_data );
3720:
3721: IF ( Fnd_Log.LEVEL_EXCEPTION >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL ) THEN
3722: Fnd_Log.STRING(Fnd_Log.LEVEL_EXCEPTION,
3726:
3727: WHEN OTHERS THEN
3728: ROLLBACK TO Delete_Attachments;
3729: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ;
3730: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
3731: THEN
3732: Fnd_Msg_Pub.Add_Exc_Msg (G_PKG_NAME ,
3733: l_api_name );
3734: END IF;
3728: ROLLBACK TO Delete_Attachments;
3729: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ;
3730: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
3731: THEN
3732: Fnd_Msg_Pub.Add_Exc_Msg (G_PKG_NAME ,
3733: l_api_name );
3734: END IF;
3735: Fnd_Msg_Pub.Count_And_Get (p_count => x_msg_count,
3736: p_data => x_msg_data );
3731: THEN
3732: Fnd_Msg_Pub.Add_Exc_Msg (G_PKG_NAME ,
3733: l_api_name );
3734: END IF;
3735: Fnd_Msg_Pub.Count_And_Get (p_count => x_msg_count,
3736: p_data => x_msg_data );
3737:
3738: IF ( Fnd_Log.LEVEL_EXCEPTION >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL ) THEN
3739: Fnd_Log.STRING(Fnd_Log.LEVEL_EXCEPTION,
3819: 'csd.plsql.csd_repairs_pvt.update_ro_status.begin',
3820: 'Entering update_ro_status private api');
3821: END IF;
3822: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
3823: Fnd_Msg_Pub.initialize;
3824: END IF;
3825: IF NOT Fnd_Api.compatible_api_call(l_api_version_number, p_api_version, l_api_name, g_pkg_name) THEN
3826: RAISE Fnd_Api.g_exc_unexpected_error;
3827: END IF;
3861: FETCH ro_Details_cur INTO l_repair_status_rec.from_status_id, l_repair_type_id;
3862: IF(ro_details_cur%NOTFOUND) THEN
3863: CLOSE ro_details_cur;
3864: Fnd_Message.SET_NAME('CSD','CSD_INVALID_REPAIR_ORDER');
3865: Fnd_Msg_Pub.ADD;
3866: RAISE Fnd_Api.G_EXC_ERROR;
3867: END IF;
3868: CLOSE ro_details_cur;
3869:
3871: FETCH flow_stat_cur INTO l_repair_status_rec.repair_state;
3872: IF(flow_stat_cur%NOTFOUND) THEN
3873: CLOSE flow_stat_cur;
3874: Fnd_Message.SET_NAME('CSD','CSD_INVALID_FLOW_STATUS');
3875: Fnd_Msg_Pub.ADD;
3876: RAISE Fnd_Api.G_EXC_ERROR;
3877: END IF;
3878: CLOSE flow_stat_cur;
3879:
3943: COMMIT WORK;
3944: END IF;
3945:
3946: -- Standard call to get message count and IF count is get message info.
3947: Fnd_Msg_Pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3948:
3949: IF (Fnd_Log.level_procedure >= Fnd_Log.g_current_runtime_level) THEN
3950: Fnd_Log.STRING (Fnd_Log.level_procedure,
3951: 'csd.plsql.csd_repairs_pvt.update_ro_status',
3956: WHEN Fnd_Api.g_exc_error
3957: THEN
3958: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3959: ROLLBACK TO update_ro_status_pvt;
3960: Fnd_Msg_Pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3961: IF (Fnd_Log.level_error >= Fnd_Log.g_current_runtime_level) THEN
3962: Fnd_Log.STRING (Fnd_Log.level_error,
3963: 'csd.plsql.csd_repairs_pvt.update_ro_status',
3964: 'EXC_ERROR[' || x_msg_data || ']');
3966: WHEN Fnd_Api.g_exc_unexpected_error
3967: THEN
3968: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3969: ROLLBACK TO update_ro_status_pvt;
3970: Fnd_Msg_Pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3971:
3972: IF (Fnd_Log.level_exception >= Fnd_Log.g_current_runtime_level) THEN
3973: Fnd_Log.STRING (Fnd_Log.level_exception,
3974: 'csd.plsql.csd_repairs_pvt.update_ro_status',
3978: THEN
3979: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3980: ROLLBACK TO update_ro_status_pvt;
3981:
3982: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error) THEN
3983: Fnd_Msg_Pub.add_exc_msg (g_pkg_name, l_api_name);
3984: END IF;
3985:
3986: Fnd_Msg_Pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3979: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3980: ROLLBACK TO update_ro_status_pvt;
3981:
3982: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error) THEN
3983: Fnd_Msg_Pub.add_exc_msg (g_pkg_name, l_api_name);
3984: END IF;
3985:
3986: Fnd_Msg_Pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3987:
3982: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error) THEN
3983: Fnd_Msg_Pub.add_exc_msg (g_pkg_name, l_api_name);
3984: END IF;
3985:
3986: Fnd_Msg_Pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3987:
3988: IF (Fnd_Log.level_exception >= Fnd_Log.g_current_runtime_level) THEN
3989: Fnd_Log.STRING (Fnd_Log.level_exception,
3990: 'csd.plsql.csd_repairs_pvt.update_ro_status',
4099: END IF;
4100:
4101: -- Initialize message list if p_init_msg_list is set to TRUE.
4102: IF Fnd_Api.to_Boolean( p_init_msg_list ) THEN
4103: Fnd_Msg_Pub.initialize;
4104: END IF;
4105:
4106: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
4107: Fnd_Log.STRING(Fnd_Log.LEVEL_PROCEDURE, lc_mod_name || '.BEGIN',
4154: -- 5362259, check to_flow_status_id
4155: IF P_TO_FLOW_STATUS_ID IS NULL THEN
4156: -- "Unable to update repair status. A new status is required for the transition."
4157: Fnd_Message.Set_Name('CSD', 'CSD_FLEX_FLWSTS_TO_STATUS_REQD');
4158: Fnd_Msg_Pub.ADD;
4159: RAISE Fnd_Api.G_EXC_ERROR;
4160: END IF;
4161:
4162:
4189: IF l_to_status_code IS NULL THEN
4190: -- "Unable to update repair status. The status transition
4191: -- is not valid for the current repair type."
4192: Fnd_Message.Set_Name('CSD', 'CSD_FLEX_FLWSTS_INVALID');
4193: Fnd_Msg_Pub.ADD;
4194: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4195: ELSIF (l_reason_required_flag = 'Y') AND (p_reason_code IS NULL) THEN
4196: -- "Unable to update repair status. A reason is required for the transition."
4197: Fnd_Message.Set_Name('CSD', 'CSD_FLEX_FLWSTS_REASON_REQD');
4194: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4195: ELSIF (l_reason_required_flag = 'Y') AND (p_reason_code IS NULL) THEN
4196: -- "Unable to update repair status. A reason is required for the transition."
4197: Fnd_Message.Set_Name('CSD', 'CSD_FLEX_FLWSTS_REASON_REQD');
4198: Fnd_Msg_Pub.ADD;
4199: -- 5362259, chaging exception from G_EXC_UNEXPECTED_ERROR to G_EXC_ERROR
4200: RAISE Fnd_Api.G_EXC_ERROR;
4201: END IF;
4202:
4218: ) THEN
4219: -- Unable to update repair status. The user does not
4220: -- have access to update the repair status.
4221: Fnd_Message.Set_Name('CSD', 'CSD_FLEX_FLWSTS_NO_ACCESS');
4222: Fnd_Msg_Pub.ADD;
4223: -- rfieldma, 5494587,
4224: -- changing exception from G_EXC_UNEXPECTED_ERROR
4225: -- to G_EXC_ERROR so that the extra developer's error
4226: -- won't show.
4250: IF l_reason_meaning IS NULL THEN
4251: -- "Unable to update repair status.
4252: -- Invalid reason selected for the transition."
4253: Fnd_Message.Set_Name('CSD', 'CSD_FLEX_FLWSTS_INVD_REASON');
4254: Fnd_Msg_Pub.ADD;
4255: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4256: END IF;
4257: END IF;
4258:
4292: IF x_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
4293: -- "Unable to update repair status.
4294: -- Failed to create the workflow process."
4295: Fnd_Message.Set_Name('CSD', 'CSD_FLEX_FLWSTS_WF_FAIL');
4296: Fnd_Msg_Pub.ADD;
4297: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4298: END IF;
4299:
4300: END IF;
4332: -- Unable to update repair status. Another user may have
4333: -- updated the repair order. Please requery the
4334: -- original data and try again.
4335: --Fnd_Message.Set_Name('CSD', 'CSD_FLEX_FLWSTS_OLD_VERSION');
4336: --Fnd_Msg_Pub.ADD;
4337: --RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4338: --END;
4339:
4340: if(sql%rowcount > 0) then
4345: CLOSE c_get_object_version_number;
4346: else
4347: --debug('object_Version mismatch');
4348: Fnd_Message.Set_Name('CSD', 'CSD_FLEX_FLWSTS_OLD_VERSION');
4349: Fnd_Msg_Pub.ADD;
4350: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4351: end if;
4352:
4353: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
4408: IF x_return_status <> 'S' THEN
4409: -- Unable to update repair status. Adding repair activity
4410: -- process has failed.
4411: Fnd_Message.Set_Name('CSD', 'CSD_FLEX_FLWSTS_ACTY_FAIL');
4412: Fnd_Msg_Pub.ADD;
4413: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4414: END IF;
4415:
4416: END IF;
4439: IF x_return_status <> 'S' THEN
4440: -- Unable to update repair status. Adding repair activity
4441: -- process has failed.
4442: Fnd_Message.Set_Name('CSD', 'CSD_FLEX_FLWSTS_SR_FAIL');
4443: Fnd_Msg_Pub.ADD;
4444: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4445: END IF;
4446: END IF;
4447:
4466: IF x_return_status <> 'S' THEN
4467: -- Unable to update repair status. Failed
4468: -- to Initialize the business event.
4469: Fnd_Message.Set_Name('CSD', 'CSD_FLEX_FLWSTS_BE_FAIL');
4470: Fnd_Msg_Pub.ADD;
4471: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4472: END IF;
4473:
4474: --debug('update_flow_status: Step 11');
4508: END IF;
4509: --debug('update_flow_status: Step 14');
4510:
4511: -- Standard call to get message count and IF count is get message info.
4512: Fnd_Msg_Pub.Count_And_Get
4513: (p_count => x_msg_count,
4514: p_data => x_msg_data );
4515:
4516: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
4522: WHEN Fnd_Api.G_EXC_ERROR THEN
4523: ROLLBACK TO Update_Flow_Status;
4524: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4525:
4526: Fnd_Msg_Pub.Count_And_Get
4527: (p_count => x_msg_count,
4528: p_data => x_msg_data );
4529:
4530: -- save message in debug log
4537: ROLLBACK TO Update_Flow_Status;
4538: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4539:
4540: -- save message in fnd stack
4541: IF Fnd_Msg_Pub.Check_Msg_Level
4542: (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
4543: THEN
4544: IF (Fnd_Log.LEVEL_STATEMENT >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
4545: Fnd_Log.STRING(Fnd_Log.LEVEL_STATEMENT, lc_mod_name,
4538: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4539:
4540: -- save message in fnd stack
4541: IF Fnd_Msg_Pub.Check_Msg_Level
4542: (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
4543: THEN
4544: IF (Fnd_Log.LEVEL_STATEMENT >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
4545: Fnd_Log.STRING(Fnd_Log.LEVEL_STATEMENT, lc_mod_name,
4546: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
4542: (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
4543: THEN
4544: IF (Fnd_Log.LEVEL_STATEMENT >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
4545: Fnd_Log.STRING(Fnd_Log.LEVEL_STATEMENT, lc_mod_name,
4546: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
4547: END IF;
4548: Fnd_Msg_Pub.Add_Exc_Msg
4549: (G_PKG_NAME ,
4550: lc_api_name );
4544: IF (Fnd_Log.LEVEL_STATEMENT >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
4545: Fnd_Log.STRING(Fnd_Log.LEVEL_STATEMENT, lc_mod_name,
4546: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
4547: END IF;
4548: Fnd_Msg_Pub.Add_Exc_Msg
4549: (G_PKG_NAME ,
4550: lc_api_name );
4551: END IF;
4552:
4549: (G_PKG_NAME ,
4550: lc_api_name );
4551: END IF;
4552:
4553: Fnd_Msg_Pub.Count_And_Get
4554: ( p_count => x_msg_count,
4555: p_data => x_msg_data );
4556:
4557: -- save message in debug log
4564: ROLLBACK TO Update_Flow_Status;
4565: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4566:
4567: -- save message in fnd stack
4568: IF Fnd_Msg_Pub.Check_Msg_Level
4569: (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
4570: THEN
4571: IF (Fnd_Log.LEVEL_STATEMENT >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
4572: Fnd_Log.STRING(Fnd_Log.LEVEL_STATEMENT, lc_mod_name,
4565: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4566:
4567: -- save message in fnd stack
4568: IF Fnd_Msg_Pub.Check_Msg_Level
4569: (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
4570: THEN
4571: IF (Fnd_Log.LEVEL_STATEMENT >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
4572: Fnd_Log.STRING(Fnd_Log.LEVEL_STATEMENT, lc_mod_name,
4573: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
4569: (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
4570: THEN
4571: IF (Fnd_Log.LEVEL_STATEMENT >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
4572: Fnd_Log.STRING(Fnd_Log.LEVEL_STATEMENT, lc_mod_name,
4573: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
4574: END IF;
4575: Fnd_Msg_Pub.Add_Exc_Msg
4576: (G_PKG_NAME ,
4577: lc_api_name );
4571: IF (Fnd_Log.LEVEL_STATEMENT >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
4572: Fnd_Log.STRING(Fnd_Log.LEVEL_STATEMENT, lc_mod_name,
4573: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
4574: END IF;
4575: Fnd_Msg_Pub.Add_Exc_Msg
4576: (G_PKG_NAME ,
4577: lc_api_name );
4578: END IF;
4579:
4576: (G_PKG_NAME ,
4577: lc_api_name );
4578: END IF;
4579:
4580: Fnd_Msg_Pub.Count_And_Get
4581: (p_count => x_msg_count,
4582: p_data => x_msg_data );
4583:
4584: -- save message in debug log
4743: END IF;
4744:
4745: -- Initialize message list if p_init_msg_list is set to TRUE.
4746: IF Fnd_Api.to_Boolean( p_init_msg_list ) THEN
4747: Fnd_Msg_Pub.initialize;
4748: END IF;
4749:
4750: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
4751: Fnd_Log.STRING(Fnd_Log.LEVEL_PROCEDURE, lc_mod_name || '.BEGIN',
4809: -- 5362259, validate p_to_repair_type_id and show error msg
4810: IF (p_to_repair_type_id IS NULL) THEN
4811: -- "Unable to update repair type. A new repair type is required for the transition."
4812: Fnd_Message.Set_Name('CSD', 'CSD_FLEX_RT_TO_RT_REQD');
4813: Fnd_Msg_Pub.ADD;
4814: RAISE Fnd_Api.G_EXC_ERROR;
4815: END IF;
4816:
4817:
4822: IF l_reason_required_flag IS NULL THEN
4823: -- "Unable to update repair type. The repair type transition
4824: -- is not valid for the current status."
4825: Fnd_Message.Set_Name('CSD', 'CSD_FLEX_RT_TRANS_INVALID');
4826: Fnd_Msg_Pub.ADD;
4827: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4828: ELSIF (l_reason_required_flag = 'Y') AND (p_reason_code IS NULL) THEN
4829: -- "Unable to update repair type. A reason is required for the transition."
4830: Fnd_Message.Set_Name('CSD', 'CSD_FLEX_RT_REASON_REQD');
4827: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4828: ELSIF (l_reason_required_flag = 'Y') AND (p_reason_code IS NULL) THEN
4829: -- "Unable to update repair type. A reason is required for the transition."
4830: Fnd_Message.Set_Name('CSD', 'CSD_FLEX_RT_REASON_REQD');
4831: Fnd_Msg_Pub.ADD;
4832: --5362259, changing exeception from G_EXC_UPEXPECTED_ERROR to G_EXC_ERROR
4833: RAISE Fnd_Api.G_EXC_ERROR;
4834: END IF;
4835:
4845: ) THEN
4846: -- Unable to update repair type. The user does not
4847: -- have access to update the repair type.
4848: Fnd_Message.Set_Name('CSD', 'CSD_FLEX_RT_TRANS_NO_ACCESS');
4849: Fnd_Msg_Pub.ADD;
4850: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4851: END IF;
4852:
4853: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
4870: IF l_dummy IS NULL THEN
4871: -- "Unable to update repair type.
4872: -- Invalid reason selected for the transition."
4873: Fnd_Message.Set_Name('CSD', 'CSD_FLEX_RT_INVD_REASON');
4874: Fnd_Msg_Pub.ADD;
4875: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4876: END IF;
4877: END IF;
4878:
4901: -- Unable to update repair type. Another user may have
4902: -- updated the repair order. Please requery the
4903: -- original data and try again.
4904: Fnd_Message.Set_Name('CSD', 'CSD_FLEX_RT_TRANS_OLD_VERSION');
4905: Fnd_Msg_Pub.ADD;
4906: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4907: END;
4908:
4909: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
5018: IF x_return_status <> 'S' THEN
5019: -- Unable to update repair type. Adding repair activity
5020: -- process has failed.
5021: Fnd_Message.Set_Name('CSD', 'CSD_FLEX_RT_ACTIVITY_FAILED');
5022: Fnd_Msg_Pub.ADD;
5023: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5024: END IF;
5025:
5026: END IF;
5032: COMMIT WORK;
5033: END IF;
5034:
5035: -- Standard call to get message count and IF count is get message info.
5036: Fnd_Msg_Pub.Count_And_Get
5037: (p_count => x_msg_count,
5038: p_data => x_msg_data );
5039:
5040: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
5046: WHEN Fnd_Api.G_EXC_ERROR THEN
5047: ROLLBACK TO Update_Repair_Type;
5048: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5049:
5050: Fnd_Msg_Pub.Count_And_Get
5051: (p_count => x_msg_count,
5052: p_data => x_msg_data );
5053:
5054: -- save message in debug log
5061: ROLLBACK TO Update_Repair_Type;
5062: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5063:
5064: -- save message in fnd stack
5065: IF Fnd_Msg_Pub.Check_Msg_Level
5066: (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
5067: THEN
5068: IF (Fnd_Log.LEVEL_STATEMENT >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
5069: Fnd_Log.STRING(Fnd_Log.LEVEL_STATEMENT, lc_mod_name,
5062: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5063:
5064: -- save message in fnd stack
5065: IF Fnd_Msg_Pub.Check_Msg_Level
5066: (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
5067: THEN
5068: IF (Fnd_Log.LEVEL_STATEMENT >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
5069: Fnd_Log.STRING(Fnd_Log.LEVEL_STATEMENT, lc_mod_name,
5070: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
5066: (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
5067: THEN
5068: IF (Fnd_Log.LEVEL_STATEMENT >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
5069: Fnd_Log.STRING(Fnd_Log.LEVEL_STATEMENT, lc_mod_name,
5070: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
5071: END IF;
5072: Fnd_Msg_Pub.Add_Exc_Msg
5073: (G_PKG_NAME ,
5074: lc_api_name );
5068: IF (Fnd_Log.LEVEL_STATEMENT >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
5069: Fnd_Log.STRING(Fnd_Log.LEVEL_STATEMENT, lc_mod_name,
5070: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
5071: END IF;
5072: Fnd_Msg_Pub.Add_Exc_Msg
5073: (G_PKG_NAME ,
5074: lc_api_name );
5075: END IF;
5076:
5073: (G_PKG_NAME ,
5074: lc_api_name );
5075: END IF;
5076:
5077: Fnd_Msg_Pub.Count_And_Get
5078: ( p_count => x_msg_count,
5079: p_data => x_msg_data );
5080:
5081: -- save message in debug log
5088: ROLLBACK TO Update_Repair_Type;
5089: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5090:
5091: -- save message in fnd stack
5092: IF Fnd_Msg_Pub.Check_Msg_Level
5093: (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
5094: THEN
5095: IF (Fnd_Log.LEVEL_STATEMENT >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
5096: Fnd_Log.STRING(Fnd_Log.LEVEL_STATEMENT, lc_mod_name,
5089: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5090:
5091: -- save message in fnd stack
5092: IF Fnd_Msg_Pub.Check_Msg_Level
5093: (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
5094: THEN
5095: IF (Fnd_Log.LEVEL_STATEMENT >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
5096: Fnd_Log.STRING(Fnd_Log.LEVEL_STATEMENT, lc_mod_name,
5097: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
5093: (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
5094: THEN
5095: IF (Fnd_Log.LEVEL_STATEMENT >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
5096: Fnd_Log.STRING(Fnd_Log.LEVEL_STATEMENT, lc_mod_name,
5097: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
5098: END IF;
5099: Fnd_Msg_Pub.Add_Exc_Msg
5100: (G_PKG_NAME ,
5101: lc_api_name );
5095: IF (Fnd_Log.LEVEL_STATEMENT >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
5096: Fnd_Log.STRING(Fnd_Log.LEVEL_STATEMENT, lc_mod_name,
5097: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
5098: END IF;
5099: Fnd_Msg_Pub.Add_Exc_Msg
5100: (G_PKG_NAME ,
5101: lc_api_name );
5102: END IF;
5103:
5100: (G_PKG_NAME ,
5101: lc_api_name );
5102: END IF;
5103:
5104: Fnd_Msg_Pub.Count_And_Get
5105: (p_count => x_msg_count,
5106: p_data => x_msg_data );
5107:
5108: -- save message in debug log
5239: END IF;
5240:
5241: -- Initialize message list if p_init_msg_list is set to TRUE.
5242: IF Fnd_Api.to_Boolean( p_init_msg_list ) THEN
5243: Fnd_Msg_Pub.initialize;
5244: END IF;
5245:
5246: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
5247: Fnd_Log.STRING(Fnd_Log.LEVEL_PROCEDURE, lc_mod_name || '.BEGIN',
5399: COMMIT WORK;
5400: END IF;
5401:
5402: -- Standard call to get message count and IF count is get message info.
5403: Fnd_Msg_Pub.Count_And_Get
5404: (p_count => x_msg_count,
5405: p_data => x_msg_data );
5406:
5407: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
5413: WHEN Fnd_Api.G_EXC_ERROR THEN
5414: ROLLBACK TO Launch_Flwsts_Wf;
5415: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5416:
5417: Fnd_Msg_Pub.Count_And_Get
5418: (p_count => x_msg_count,
5419: p_data => x_msg_data );
5420:
5421: -- save message in debug log
5428: ROLLBACK TO Launch_Flwsts_Wf;
5429: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5430:
5431: -- save message in fnd stack
5432: IF Fnd_Msg_Pub.Check_Msg_Level
5433: (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
5434: THEN
5435: IF (Fnd_Log.LEVEL_STATEMENT >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
5436: Fnd_Log.STRING(Fnd_Log.LEVEL_STATEMENT, lc_mod_name,
5429: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5430:
5431: -- save message in fnd stack
5432: IF Fnd_Msg_Pub.Check_Msg_Level
5433: (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
5434: THEN
5435: IF (Fnd_Log.LEVEL_STATEMENT >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
5436: Fnd_Log.STRING(Fnd_Log.LEVEL_STATEMENT, lc_mod_name,
5437: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
5433: (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
5434: THEN
5435: IF (Fnd_Log.LEVEL_STATEMENT >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
5436: Fnd_Log.STRING(Fnd_Log.LEVEL_STATEMENT, lc_mod_name,
5437: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
5438: END IF;
5439: Fnd_Msg_Pub.Add_Exc_Msg
5440: (G_PKG_NAME ,
5441: lc_api_name );
5435: IF (Fnd_Log.LEVEL_STATEMENT >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
5436: Fnd_Log.STRING(Fnd_Log.LEVEL_STATEMENT, lc_mod_name,
5437: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
5438: END IF;
5439: Fnd_Msg_Pub.Add_Exc_Msg
5440: (G_PKG_NAME ,
5441: lc_api_name );
5442: END IF;
5443:
5440: (G_PKG_NAME ,
5441: lc_api_name );
5442: END IF;
5443:
5444: Fnd_Msg_Pub.Count_And_Get
5445: ( p_count => x_msg_count,
5446: p_data => x_msg_data );
5447:
5448: -- save message in debug log
5455: ROLLBACK TO Launch_Flwsts_Wf;
5456: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5457:
5458: -- save message in fnd stack
5459: IF Fnd_Msg_Pub.Check_Msg_Level
5460: (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
5461: THEN
5462: IF (Fnd_Log.LEVEL_STATEMENT >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
5463: Fnd_Log.STRING(Fnd_Log.LEVEL_STATEMENT, lc_mod_name,
5456: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5457:
5458: -- save message in fnd stack
5459: IF Fnd_Msg_Pub.Check_Msg_Level
5460: (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
5461: THEN
5462: IF (Fnd_Log.LEVEL_STATEMENT >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
5463: Fnd_Log.STRING(Fnd_Log.LEVEL_STATEMENT, lc_mod_name,
5464: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
5460: (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
5461: THEN
5462: IF (Fnd_Log.LEVEL_STATEMENT >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
5463: Fnd_Log.STRING(Fnd_Log.LEVEL_STATEMENT, lc_mod_name,
5464: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
5465: END IF;
5466: Fnd_Msg_Pub.Add_Exc_Msg
5467: (G_PKG_NAME ,
5468: lc_api_name );
5462: IF (Fnd_Log.LEVEL_STATEMENT >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
5463: Fnd_Log.STRING(Fnd_Log.LEVEL_STATEMENT, lc_mod_name,
5464: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
5465: END IF;
5466: Fnd_Msg_Pub.Add_Exc_Msg
5467: (G_PKG_NAME ,
5468: lc_api_name );
5469: END IF;
5470:
5467: (G_PKG_NAME ,
5468: lc_api_name );
5469: END IF;
5470:
5471: Fnd_Msg_Pub.Count_And_Get
5472: (p_count => x_msg_count,
5473: p_data => x_msg_data );
5474:
5475: -- save message in debug log
5551: --debug('operatingunit['||SYS_CONTEXT('FND','ORG_ID')||']');
5552:
5553: -- Initialize message list if p_init_msg_list is set to TRUE.
5554: IF Fnd_Api.to_Boolean( p_init_msg_list ) THEN
5555: Fnd_Msg_Pub.initialize;
5556: END IF;
5557:
5558: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
5559: Fnd_Log.STRING(Fnd_Log.LEVEL_PROCEDURE, lc_mod_name || '.BEGIN',
5568: x_return_status => l_return_status);
5569:
5570: IF(l_return_Status <> Fnd_Api.G_RET_STS_SUCCESS) THEN
5571: Fnd_Message.Set_Name('CSD', 'CSD_SECURITY_CHECK_FAILED');
5572: Fnd_Msg_Pub.ADD;
5573: RAISE Fnd_Api.G_EXC_ERROR;
5574: END IF;
5575:
5576: l_repair_status_rec.repair_line_id := p_repair_line_id;
5599: COMMIT WORK;
5600: END IF;
5601:
5602: -- Standard call to get message count and IF count is get message info.
5603: Fnd_Msg_Pub.Count_And_Get
5604: (p_count => x_msg_count,
5605: p_data => x_msg_data );
5606:
5607: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
5613: WHEN Fnd_Api.G_EXC_ERROR THEN
5614: ROLLBACK TO UPDATE_RO_STATUS_WEBSRVC_PVT;
5615: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5616:
5617: Fnd_Msg_Pub.Count_And_Get
5618: (p_count => x_msg_count,
5619: p_data => x_msg_data );
5620:
5621: -- save message in debug log
5628: ROLLBACK TO UPDATE_RO_STATUS_WEBSRVC_PVT;
5629: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5630:
5631: -- save message in fnd stack
5632: IF Fnd_Msg_Pub.Check_Msg_Level
5633: (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
5634: THEN
5635: IF (Fnd_Log.LEVEL_STATEMENT >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
5636: Fnd_Log.STRING(Fnd_Log.LEVEL_STATEMENT, lc_mod_name,
5629: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5630:
5631: -- save message in fnd stack
5632: IF Fnd_Msg_Pub.Check_Msg_Level
5633: (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
5634: THEN
5635: IF (Fnd_Log.LEVEL_STATEMENT >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
5636: Fnd_Log.STRING(Fnd_Log.LEVEL_STATEMENT, lc_mod_name,
5637: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
5633: (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
5634: THEN
5635: IF (Fnd_Log.LEVEL_STATEMENT >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
5636: Fnd_Log.STRING(Fnd_Log.LEVEL_STATEMENT, lc_mod_name,
5637: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
5638: END IF;
5639: Fnd_Msg_Pub.Add_Exc_Msg
5640: (G_PKG_NAME ,
5641: lc_api_name );
5635: IF (Fnd_Log.LEVEL_STATEMENT >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
5636: Fnd_Log.STRING(Fnd_Log.LEVEL_STATEMENT, lc_mod_name,
5637: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
5638: END IF;
5639: Fnd_Msg_Pub.Add_Exc_Msg
5640: (G_PKG_NAME ,
5641: lc_api_name );
5642: END IF;
5643:
5640: (G_PKG_NAME ,
5641: lc_api_name );
5642: END IF;
5643:
5644: Fnd_Msg_Pub.Count_And_Get
5645: ( p_count => x_msg_count,
5646: p_data => x_msg_data );
5647:
5648: -- save message in debug log
5655: ROLLBACK TO UPDATE_RO_STATUS_WEBSRVC_PVT;
5656: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5657:
5658: -- save message in fnd stack
5659: IF Fnd_Msg_Pub.Check_Msg_Level
5660: (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
5661: THEN
5662: IF (Fnd_Log.LEVEL_STATEMENT >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
5663: Fnd_Log.STRING(Fnd_Log.LEVEL_STATEMENT, lc_mod_name,
5656: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5657:
5658: -- save message in fnd stack
5659: IF Fnd_Msg_Pub.Check_Msg_Level
5660: (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
5661: THEN
5662: IF (Fnd_Log.LEVEL_STATEMENT >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
5663: Fnd_Log.STRING(Fnd_Log.LEVEL_STATEMENT, lc_mod_name,
5664: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
5660: (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
5661: THEN
5662: IF (Fnd_Log.LEVEL_STATEMENT >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
5663: Fnd_Log.STRING(Fnd_Log.LEVEL_STATEMENT, lc_mod_name,
5664: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
5665: END IF;
5666: Fnd_Msg_Pub.Add_Exc_Msg
5667: (G_PKG_NAME ,
5668: lc_api_name );
5662: IF (Fnd_Log.LEVEL_STATEMENT >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
5663: Fnd_Log.STRING(Fnd_Log.LEVEL_STATEMENT, lc_mod_name,
5664: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
5665: END IF;
5666: Fnd_Msg_Pub.Add_Exc_Msg
5667: (G_PKG_NAME ,
5668: lc_api_name );
5669: END IF;
5670:
5667: (G_PKG_NAME ,
5668: lc_api_name );
5669: END IF;
5670:
5671: Fnd_Msg_Pub.Count_And_Get
5672: (p_count => x_msg_count,
5673: p_data => x_msg_data );
5674:
5675: -- save message in debug log
5738: EXCEPTION
5739: When OTHERS then
5740: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5741: Rollback To ro_status_bevent_savepoint;
5742: If FND_MSG_PUB.Check_Msg_Level
5743: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)then
5744: FND_MSG_PUB.Add_Exc_Msg
5745: (G_PKG_NAME,
5746: l_api_name );
5739: When OTHERS then
5740: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5741: Rollback To ro_status_bevent_savepoint;
5742: If FND_MSG_PUB.Check_Msg_Level
5743: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)then
5744: FND_MSG_PUB.Add_Exc_Msg
5745: (G_PKG_NAME,
5746: l_api_name );
5747: End If;
5740: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5741: Rollback To ro_status_bevent_savepoint;
5742: If FND_MSG_PUB.Check_Msg_Level
5743: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)then
5744: FND_MSG_PUB.Add_Exc_Msg
5745: (G_PKG_NAME,
5746: l_api_name );
5747: End If;
5748: FND_MSG_PUB.Count_And_Get
5744: FND_MSG_PUB.Add_Exc_Msg
5745: (G_PKG_NAME,
5746: l_api_name );
5747: End If;
5748: FND_MSG_PUB.Count_And_Get
5749: (p_count => x_msg_count,
5750: p_data => x_msg_data );
5751: END;
5752:
5903:
5904: IF p_msg_count = 1 THEN
5905:
5906: IF l_msg is null then
5907: l_msg := fnd_msg_pub.get(p_msg_index => 1,
5908: p_encoded => FND_API.G_FALSE );
5909: ELSE
5910: l_next_msg := fnd_msg_pub.get(p_msg_index => 1,
5911: p_encoded => FND_API.G_FALSE );
5906: IF l_msg is null then
5907: l_msg := fnd_msg_pub.get(p_msg_index => 1,
5908: p_encoded => FND_API.G_FALSE );
5909: ELSE
5910: l_next_msg := fnd_msg_pub.get(p_msg_index => 1,
5911: p_encoded => FND_API.G_FALSE );
5912:
5913: l_msg := substr(l_msg ||'-'||rtrim(l_next_msg),1,2000);
5914: END IF;
5917:
5918: FOR i in 1..p_msg_count LOOP
5919:
5920: IF l_msg is null THEN
5921: l_msg := fnd_msg_pub.get(p_msg_index => i,
5922: p_encoded => FND_API.G_FALSE );
5923: ELSE
5924: l_next_msg := fnd_msg_pub.get(p_msg_index => i,
5925: p_encoded => FND_API.G_FALSE );
5920: IF l_msg is null THEN
5921: l_msg := fnd_msg_pub.get(p_msg_index => i,
5922: p_encoded => FND_API.G_FALSE );
5923: ELSE
5924: l_next_msg := fnd_msg_pub.get(p_msg_index => i,
5925: p_encoded => FND_API.G_FALSE );
5926:
5927: l_msg := substr(l_msg ||'-'||rtrim(l_next_msg),1,2000);
5928: