[Home] [Help]
61: end;
62:
63: PROCEDURE Create_Repair_Order(
64: P_Api_Version_Number IN NUMBER,
65: P_Init_Msg_List IN VARCHAR2 := Fnd_Api.G_FALSE,
66: P_Commit IN VARCHAR2 := Fnd_Api.G_FALSE,
67: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
68: p_REPAIR_LINE_ID IN NUMBER := Fnd_Api.G_MISS_NUM,
69: P_REPLN_Rec IN Csd_Repairs_Pub.REPLN_Rec_Type,
62:
63: PROCEDURE Create_Repair_Order(
64: P_Api_Version_Number IN NUMBER,
65: P_Init_Msg_List IN VARCHAR2 := Fnd_Api.G_FALSE,
66: P_Commit IN VARCHAR2 := Fnd_Api.G_FALSE,
67: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
68: p_REPAIR_LINE_ID IN NUMBER := Fnd_Api.G_MISS_NUM,
69: P_REPLN_Rec IN Csd_Repairs_Pub.REPLN_Rec_Type,
70: X_REPAIR_LINE_ID OUT NOCOPY NUMBER,
63: PROCEDURE Create_Repair_Order(
64: P_Api_Version_Number IN NUMBER,
65: P_Init_Msg_List IN VARCHAR2 := Fnd_Api.G_FALSE,
66: P_Commit IN VARCHAR2 := Fnd_Api.G_FALSE,
67: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
68: p_REPAIR_LINE_ID IN NUMBER := Fnd_Api.G_MISS_NUM,
69: P_REPLN_Rec IN Csd_Repairs_Pub.REPLN_Rec_Type,
70: X_REPAIR_LINE_ID OUT NOCOPY NUMBER,
71: X_REPAIR_NUMBER OUT NOCOPY VARCHAR2,
64: P_Api_Version_Number IN NUMBER,
65: P_Init_Msg_List IN VARCHAR2 := Fnd_Api.G_FALSE,
66: P_Commit IN VARCHAR2 := Fnd_Api.G_FALSE,
67: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
68: p_REPAIR_LINE_ID IN NUMBER := Fnd_Api.G_MISS_NUM,
69: P_REPLN_Rec IN Csd_Repairs_Pub.REPLN_Rec_Type,
70: X_REPAIR_LINE_ID OUT NOCOPY NUMBER,
71: X_REPAIR_NUMBER OUT NOCOPY VARCHAR2,
72: X_Return_Status OUT NOCOPY VARCHAR2,
166:
167: -- Standard Start of API savepoint
168: SAVEPOINT CREATE_REPAIR_ORDER_PVT;
169: -- Standard call to check for call compatibility.
170: IF NOT Fnd_Api.Compatible_API_Call
171: (l_api_version_number,
172: p_api_version_number,
173: l_api_name,
174: G_PKG_NAME)
172: p_api_version_number,
173: l_api_name,
174: G_PKG_NAME)
175: THEN
176: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
177: END IF;
178:
179: -- swai: bug 7657379
180: -- move msg initialization further up, since call to DEFAULT_RO_ATTRS_FROM_RULE
179: -- swai: bug 7657379
180: -- move msg initialization further up, since call to DEFAULT_RO_ATTRS_FROM_RULE
181: -- may add additional messages to the stack.
182: -- Initialize message list if p_init_msg_list is set to TRUE.
183: IF Fnd_Api.to_Boolean(p_init_msg_list)
184: THEN
185: Fnd_Msg_Pub.initialize;
186: END IF;
187: -- Initialize API return status to SUCCESS
184: THEN
185: Fnd_Msg_Pub.initialize;
186: END IF;
187: -- Initialize API return status to SUCCESS
188: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
189:
190: -- swai: bug 7657379
191: -- Default fields in repln_rec from defauling rules before
192: -- checking required params.
192: -- checking required params.
193: l_REPLN_Rec := p_REPLN_Rec;
194: Csd_Repairs_Util.DEFAULT_RO_ATTRS_FROM_RULE
195: ( p_api_version => 1.0,
196: p_commit => fnd_api.g_false,
197: p_init_msg_list => fnd_api.g_false,
198: px_repln_rec => l_REPLN_Rec,
199: x_return_status => x_return_status,
200: x_msg_count => x_msg_count,
193: l_REPLN_Rec := p_REPLN_Rec;
194: Csd_Repairs_Util.DEFAULT_RO_ATTRS_FROM_RULE
195: ( p_api_version => 1.0,
196: p_commit => fnd_api.g_false,
197: p_init_msg_list => fnd_api.g_false,
198: px_repln_rec => l_REPLN_Rec,
199: x_return_status => x_return_status,
200: x_msg_count => x_msg_count,
201: x_msg_data => x_msg_data);
268: Fnd_Message.Set_Name('CSD', 'CSD_CANNOT_GET_PROFILE_VALUE');
269: Fnd_Message.Set_Token('PROFILE', 'USER_ID', FALSE);
270: Fnd_Msg_Pub.ADD;
271: END IF;
272: RAISE Fnd_Api.G_EXC_ERROR;
273: END IF;
274:
275:
276: -- Validate Repair Order Group id
277:
278:
279: -- Generate REPAIR_NUMBER
280:
281: IF l_REPLN_Rec.repair_number = Fnd_Api.G_MISS_CHAR
282: OR l_REPLN_Rec.repair_number IS NULL THEN
283: OPEN C2;
284: FETCH C2 INTO l_REPAIR_NUMBER;
285: CLOSE C2;
307: x_dff_rec => x_dff_value_rec
308: );
309:
310: -- Check return status from the above procedure call
311: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
312: ROLLBACK TO CREATE_REPAIR_ORDER_PVT;
313: RETURN;
314: END IF;
315:
334: -- Repair Order creation failed.
335: -- Unable to get the draft status details.
336: Fnd_Message.SET_NAME('CSD','CSD_RO_NO_DRAFT_STATUS_DTLS');
337: Fnd_Msg_Pub.ADD;
338: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
339: END IF;
340:
341: ELSE
342: -- Get the start flow status from repair type
350: x_status_code => l_status
351: );
352: IF x_return_status <> 'S' THEN
353: -- Unexpected error. Raise an exception.
354: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
355: END IF;
356: END IF;
357:
358: -- For R12 Flex Flow, date closed is set to a value
365:
366:
367: -- Generate REPAIR_LINE_ID
368:
369: IF p_repair_line_id = Fnd_Api.G_MISS_NUM
370: OR p_repair_line_id IS NULL THEN
371: OPEN C1;
372: FETCH C1 INTO l_REPAIR_LINE_ID;
373: CLOSE C1;
397: -- rfieldma: 5355051
398: -- Default Resolve By date if there is a contract and
399: -- user want it to be derived
400: -- if resolve_by_date = null => don't default
401: -- if resolve_by_date = fnd_api.G_Miss_date => default
402: -- else, (resolve_by_date is passed in) => use the passed in value
403:
404: l_resolve_by_date := l_REPLN_Rec.resolve_by_date;
405:
402: -- else, (resolve_by_date is passed in) => use the passed in value
403:
404: l_resolve_by_date := l_REPLN_Rec.resolve_by_date;
405:
406: IF (l_resolve_by_date = FND_API.G_MISS_DATE) THEN
407: -- only default if there is a default contract
408: IF ( l_REPLN_Rec.contract_line_id IS NOT NULL
409: AND l_REPLN_Rec.contract_line_id <> Fnd_Api.G_MISS_NUM) THEN
410: -- get business process id
405:
406: IF (l_resolve_by_date = FND_API.G_MISS_DATE) THEN
407: -- only default if there is a default contract
408: IF ( l_REPLN_Rec.contract_line_id IS NOT NULL
409: AND l_REPLN_Rec.contract_line_id <> Fnd_Api.G_MISS_NUM) THEN
410: -- get business process id
411: -- subhat. Huawei changes (resolve by date).
412: OPEN c_get_bus_proc_id(l_REPLN_Rec.repair_type_id);
413: FETCH c_get_bus_proc_id
433: x_msg_count => x_msg_count,
434: x_msg_data => x_msg_data,
435: x_resolve_by_date => l_resolve_by_date);
436:
437: IF (x_return_status = Fnd_Api.G_RET_STS_ERROR) THEN
438: RAISE Fnd_Api.G_EXC_ERROR ;
439: ELSIF (x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR) THEN
440: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR ;
441: END IF; -- end exception handling
434: x_msg_data => x_msg_data,
435: x_resolve_by_date => l_resolve_by_date);
436:
437: IF (x_return_status = Fnd_Api.G_RET_STS_ERROR) THEN
438: RAISE Fnd_Api.G_EXC_ERROR ;
439: ELSIF (x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR) THEN
440: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR ;
441: END IF; -- end exception handling
442: ELSE
435: x_resolve_by_date => l_resolve_by_date);
436:
437: IF (x_return_status = Fnd_Api.G_RET_STS_ERROR) THEN
438: RAISE Fnd_Api.G_EXC_ERROR ;
439: ELSIF (x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR) THEN
440: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR ;
441: END IF; -- end exception handling
442: ELSE
443: l_resolve_by_date := NULL;
436:
437: IF (x_return_status = Fnd_Api.G_RET_STS_ERROR) THEN
438: RAISE Fnd_Api.G_EXC_ERROR ;
439: ELSIF (x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR) THEN
440: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR ;
441: END IF; -- end exception handling
442: ELSE
443: l_resolve_by_date := NULL;
444: END IF; -- end subhat changes.
586: Fnd_Log.STRING(Fnd_Log.LEVEL_PROCEDURE, 'CSD.PLSQL.csd_repairs_pvt.create_repair_order',
587: 'Calling Repair History to log activity');
588: END IF;
589:
590: IF l_REPLN_Rec.parent_repair_line_id is not null and l_REPLN_Rec.parent_repair_line_id <> FND_API.G_MISS_NUM THEN
591: OPEN c_get_repair_number (l_REPLN_Rec.parent_repair_line_id);
592: FETCH c_get_repair_number INTO l_parent_repair_number;
593: CLOSE c_get_repair_number;
594: ELSE
605:
606: -- log an activity on the newly created repair order
607: Csd_To_Form_Repair_History.Validate_And_Write
608: (p_Api_Version_Number => 1.0,
609: p_init_msg_list => Fnd_Api.G_FALSE,
610: p_commit => Fnd_Api.G_FALSE,
611: p_validation_level => NULL,
612: p_action_code => 0,
613: px_REPAIR_HISTORY_ID => l_repair_history_id,
606: -- log an activity on the newly created repair order
607: Csd_To_Form_Repair_History.Validate_And_Write
608: (p_Api_Version_Number => 1.0,
609: p_init_msg_list => Fnd_Api.G_FALSE,
610: p_commit => Fnd_Api.G_FALSE,
611: p_validation_level => NULL,
612: p_action_code => 0,
613: px_REPAIR_HISTORY_ID => l_repair_history_id,
614: p_OBJECT_VERSION_NUMBER => NULL,
639: -- Unable to update repair status. Adding repair activity
640: -- process has failed.
641: Fnd_Message.Set_Name('CSD', 'CSD_CREATE_RO_ACTY_FAIL');
642: Fnd_Msg_Pub.ADD;
643: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
644: END IF;
645:
646: IF l_REPLN_Rec.parent_repair_line_id is not NULL and l_REPLN_Rec.parent_repair_line_id <> FND_API.G_MISS_NUM THEN
647: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
642: Fnd_Msg_Pub.ADD;
643: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
644: END IF;
645:
646: IF l_REPLN_Rec.parent_repair_line_id is not NULL and l_REPLN_Rec.parent_repair_line_id <> FND_API.G_MISS_NUM THEN
647: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
648: Fnd_Log.STRING(Fnd_Log.LEVEL_PROCEDURE, 'CSD.PLSQL.csd_repairs_pvt.create_repair_order',
649: 'Calling Repair History to log activity for parent RO');
650: END IF;
651:
652: -- log an activity on the newly created repair order
653: Csd_To_Form_Repair_History.Validate_And_Write
654: (p_Api_Version_Number => 1.0,
655: p_init_msg_list => Fnd_Api.G_FALSE,
656: p_commit => Fnd_Api.G_FALSE,
657: p_validation_level => NULL,
658: p_action_code => 0,
659: px_REPAIR_HISTORY_ID => l_repair_history_id,
652: -- log an activity on the newly created repair order
653: Csd_To_Form_Repair_History.Validate_And_Write
654: (p_Api_Version_Number => 1.0,
655: p_init_msg_list => Fnd_Api.G_FALSE,
656: p_commit => Fnd_Api.G_FALSE,
657: p_validation_level => NULL,
658: p_action_code => 0,
659: px_REPAIR_HISTORY_ID => l_repair_history_id,
660: p_OBJECT_VERSION_NUMBER => NULL,
685: -- Unable to update repair status. Adding repair activity
686: -- process has failed.
687: Fnd_Message.Set_Name('CSD', 'CSD_CREATE_CHILD_RO_ACTY_FAIL');
688: Fnd_Msg_Pub.ADD;
689: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
690: END IF;
691: END IF;
692: -- END bug#13698799 auto create ro, parent ro
693:
694: --
695: -- End of API body
696: --
697: -- Standard check for p_commit
698: IF Fnd_Api.to_Boolean( p_commit )
699: THEN
700: COMMIT WORK;
701: END IF;
702: -- Standard call to get message count and if count is 1, get message info.
705: p_data => x_msg_data
706: );
707:
708: EXCEPTION
709: WHEN Fnd_Api.G_EXC_ERROR THEN
710: Jtf_Plsql_Api.HANDLE_EXCEPTIONS
711: ( P_API_NAME => L_API_NAME
712: ,P_PKG_NAME => G_PKG_NAME
713: ,P_EXCEPTION_LEVEL => Fnd_Msg_Pub.G_MSG_LVL_ERROR
715: ,X_MSG_COUNT => X_MSG_COUNT
716: ,X_MSG_DATA => X_MSG_DATA
717: ,X_RETURN_STATUS => X_RETURN_STATUS);
718:
719: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
720: ROLLBACK TO CREATE_REPAIR_ORDER_PVT;
721: Jtf_Plsql_Api.HANDLE_EXCEPTIONS
722: (P_API_NAME => L_API_NAME
723: ,P_PKG_NAME => G_PKG_NAME
740: END Create_Repair_Order;
741:
742: PROCEDURE Update_Repair_Order(
743: P_Api_Version_Number IN NUMBER,
744: P_Init_Msg_List IN VARCHAR2 := Fnd_Api.G_FALSE,
745: P_Commit IN VARCHAR2 := Fnd_Api.G_FALSE,
746: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
747: p_REPAIR_LINE_ID IN NUMBER,
748: P_REPLN_Rec IN OUT NOCOPY Csd_Repairs_Pub.REPLN_Rec_Type,
741:
742: PROCEDURE Update_Repair_Order(
743: P_Api_Version_Number IN NUMBER,
744: P_Init_Msg_List IN VARCHAR2 := Fnd_Api.G_FALSE,
745: P_Commit IN VARCHAR2 := Fnd_Api.G_FALSE,
746: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
747: p_REPAIR_LINE_ID IN NUMBER,
748: P_REPLN_Rec IN OUT NOCOPY Csd_Repairs_Pub.REPLN_Rec_Type,
749: X_Return_Status OUT NOCOPY VARCHAR2,
742: PROCEDURE Update_Repair_Order(
743: P_Api_Version_Number IN NUMBER,
744: P_Init_Msg_List IN VARCHAR2 := Fnd_Api.G_FALSE,
745: P_Commit IN VARCHAR2 := Fnd_Api.G_FALSE,
746: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
747: p_REPAIR_LINE_ID IN NUMBER,
748: P_REPLN_Rec IN OUT NOCOPY Csd_Repairs_Pub.REPLN_Rec_Type,
749: X_Return_Status OUT NOCOPY VARCHAR2,
750: X_Msg_Count OUT NOCOPY NUMBER,
869:
870: -- Standard Start of API savepoint
871: SAVEPOINT UPDATE_REPAIR_ORDER_PVT;
872: -- Standard call to check for call compatibility.
873: IF NOT Fnd_Api.Compatible_API_Call
874: (l_api_version_number,
875: p_api_version_number,
876: l_api_name,
877: G_PKG_NAME)
875: p_api_version_number,
876: l_api_name,
877: G_PKG_NAME)
878: THEN
879: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
880: END IF;
881: -- Check for required parameters
882: Csd_Repairs_Util.check_reqd_param
883: (p_param_value => p_repair_line_id,
885: p_api_name => l_api_name
886: );
887:
888: -- Initialize message list if p_init_msg_list is set to TRUE.
889: IF Fnd_Api.to_Boolean(p_init_msg_list)
890: THEN
891: Fnd_Msg_Pub.initialize;
892: END IF;
893: -- Initialize API return status to SUCCESS
890: THEN
891: Fnd_Msg_Pub.initialize;
892: END IF;
893: -- Initialize API return status to SUCCESS
894: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
895:
896: -- Api body
897:
898: -- Validate Environment
904: Fnd_Message.Set_Name('CSD', 'CSD_CANNOT_GET_PROFILE_VALUE');
905: Fnd_Message.Set_Token('PROFILE', 'USER_ID', FALSE);
906: Fnd_Msg_Pub.ADD;
907: END IF;
908: RAISE Fnd_Api.G_EXC_ERROR;
909: END IF;
910:
911: OPEN C_Get_repairs(p_REPAIR_LINE_ID);
912: FETCH C_Get_repairs INTO
1014: Fnd_Message.Set_Token ('INFO', 'Repairs', FALSE);
1015: Fnd_Msg_Pub.ADD;
1016: END IF;
1017: CLOSE C_Get_repairs;
1018: RAISE Fnd_Api.G_EXC_ERROR;
1019: END IF;
1020: CLOSE C_Get_repairs;
1021:
1022: -- bug#12884352
1020: CLOSE C_Get_repairs;
1021:
1022: -- bug#12884352
1023: -- should use csd_repairs_pub.update_repair_type to update repair type, not this function
1024: IF P_REPLN_rec.repair_type_id is not NULL and P_REPLN_rec.repair_type_id <> Fnd_Api.G_MISS_NUM and l_OLD_REPLN_rec.repair_type_id <> P_REPLN_Rec.repair_type_id THEN
1025: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1026: Fnd_Message.Set_Name('CSD', 'CSD_UPDATE_REPAIR_TYPE');
1027: Fnd_Msg_Pub.ADD;
1028: END IF;
1025: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1026: Fnd_Message.Set_Name('CSD', 'CSD_UPDATE_REPAIR_TYPE');
1027: Fnd_Msg_Pub.ADD;
1028: END IF;
1029: RAISE Fnd_Api.G_EXC_ERROR;
1030: END IF;
1031:
1032: /*
1033: if l_OLD_REPLN_Rec.status = 'C' then
1035: FND_MESSAGE.Set_Name('CSD', 'CSD_RO_CLOSED');
1036: FND_MESSAGE.Set_Token ('REP_NUM', l_OLD_REPLN_Rec.repair_number);
1037: FND_MSG_PUB.Add;
1038: END IF;
1039: raise FND_API.G_EXC_ERROR;
1040: end if;
1041: */
1042:
1043: -- Invoke validation procedures
1058: x_dff_rec => x_dff_value_rec
1059: );
1060: --
1061: -- Check return status from the above procedure call
1062: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
1063: ROLLBACK TO UPDATE_REPAIR_ORDER_PVT;
1064: RETURN;
1065: END IF;
1066:
1076: p_PROGRAM_ID => G_PROGRAM_ID,
1077: p_PROGRAM_APPLICATION_ID => G_PROG_APPL_ID,
1078: p_PROGRAM_UPDATE_DATE => SYSDATE,
1079: p_CREATED_BY => G_USER_ID,
1080: p_CREATION_DATE => Fnd_Api.G_MISS_DATE, -- swai ADS bug 3063922, changed from sysdate
1081: p_LAST_UPDATED_BY => G_USER_ID,
1082: p_LAST_UPDATE_DATE => SYSDATE,
1083: p_LAST_UPDATE_LOGIN => G_LOGIN_ID,
1084: p_REPAIR_NUMBER => p_REPLN_rec.REPAIR_NUMBER,
1199: --
1200: -- End of API body.
1201: --
1202: -- Standard check for p_commit
1203: IF Fnd_Api.to_Boolean(p_commit) THEN
1204: COMMIT WORK;
1205: END IF;
1206: -- Standard call to get message count and if count is 1, get message info.
1207: Fnd_Msg_Pub.Count_And_Get
1209: p_data => x_msg_data
1210: );
1211:
1212: EXCEPTION
1213: WHEN Fnd_Api.G_EXC_ERROR THEN
1214: Jtf_Plsql_Api.HANDLE_EXCEPTIONS
1215: (P_API_NAME => L_API_NAME
1216: ,P_PKG_NAME => G_PKG_NAME
1217: ,P_EXCEPTION_LEVEL => Fnd_Msg_Pub.G_MSG_LVL_ERROR
1219: ,X_MSG_COUNT => X_MSG_COUNT
1220: ,X_MSG_DATA => X_MSG_DATA
1221: ,X_RETURN_STATUS => X_RETURN_STATUS);
1222:
1223: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1224: Jtf_Plsql_Api.HANDLE_EXCEPTIONS
1225: (P_API_NAME => L_API_NAME
1226: ,P_PKG_NAME => G_PKG_NAME
1227: ,P_EXCEPTION_LEVEL => Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR
1243: END Update_Repair_Order;
1244:
1245: PROCEDURE Delete_Repair_Order(
1246: P_Api_Version_Number IN NUMBER,
1247: P_Init_Msg_List IN VARCHAR2 := Fnd_Api.G_FALSE,
1248: P_Commit IN VARCHAR2 := Fnd_Api.G_FALSE,
1249: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
1250: p_REPAIR_LINE_ID IN NUMBER,
1251: X_Return_Status OUT NOCOPY VARCHAR2,
1244:
1245: PROCEDURE Delete_Repair_Order(
1246: P_Api_Version_Number IN NUMBER,
1247: P_Init_Msg_List IN VARCHAR2 := Fnd_Api.G_FALSE,
1248: P_Commit IN VARCHAR2 := Fnd_Api.G_FALSE,
1249: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
1250: p_REPAIR_LINE_ID IN NUMBER,
1251: X_Return_Status OUT NOCOPY VARCHAR2,
1252: X_Msg_Count OUT NOCOPY NUMBER,
1245: PROCEDURE Delete_Repair_Order(
1246: P_Api_Version_Number IN NUMBER,
1247: P_Init_Msg_List IN VARCHAR2 := Fnd_Api.G_FALSE,
1248: P_Commit IN VARCHAR2 := Fnd_Api.G_FALSE,
1249: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
1250: p_REPAIR_LINE_ID IN NUMBER,
1251: X_Return_Status OUT NOCOPY VARCHAR2,
1252: X_Msg_Count OUT NOCOPY NUMBER,
1253: X_Msg_Data OUT NOCOPY VARCHAR2
1261: --
1262: -- Standard Start of API savepoint
1263: SAVEPOINT DELETE_REPAIR_ORDER_PVT;
1264: -- Standard call to check for call compatibility.
1265: IF NOT Fnd_Api.Compatible_API_Call
1266: (l_api_version_number,
1267: p_api_version_number,
1268: l_api_name,
1269: G_PKG_NAME)
1267: p_api_version_number,
1268: l_api_name,
1269: G_PKG_NAME)
1270: THEN
1271: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1272: END IF;
1273: -- Initialize message list if p_init_msg_list is set to TRUE.
1274: IF Fnd_Api.to_Boolean(p_init_msg_list) THEN
1275: Fnd_Msg_Pub.initialize;
1270: THEN
1271: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1272: END IF;
1273: -- Initialize message list if p_init_msg_list is set to TRUE.
1274: IF Fnd_Api.to_Boolean(p_init_msg_list) THEN
1275: Fnd_Msg_Pub.initialize;
1276: END IF;
1277: -- Initialize API return status to SUCCESS
1278: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1274: IF Fnd_Api.to_Boolean(p_init_msg_list) THEN
1275: Fnd_Msg_Pub.initialize;
1276: END IF;
1277: -- Initialize API return status to SUCCESS
1278: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1279: --
1280: -- Api body
1281: --
1282: -- Invoke table handler(CSD_REPAIRS_PKG.Delete_Row)
1285:
1286: -- End of API body
1287:
1288: -- Standard check for p_commit
1289: IF Fnd_Api.to_Boolean(p_commit) THEN
1290: COMMIT WORK;
1291: END IF;
1292: -- Standard call to get message count and if count is 1, get message info.
1293: Fnd_Msg_Pub.Count_And_Get
1295: p_data => x_msg_data
1296: );
1297:
1298: EXCEPTION
1299: WHEN Fnd_Api.G_EXC_ERROR THEN
1300: Jtf_Plsql_Api.HANDLE_EXCEPTIONS
1301: (P_API_NAME => L_API_NAME
1302: ,P_PKG_NAME => G_PKG_NAME
1303: ,P_EXCEPTION_LEVEL => Fnd_Msg_Pub.G_MSG_LVL_ERROR
1305: ,X_MSG_COUNT => X_MSG_COUNT
1306: ,X_MSG_DATA => X_MSG_DATA
1307: ,X_RETURN_STATUS => X_RETURN_STATUS);
1308:
1309: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1310: Jtf_Plsql_Api.HANDLE_EXCEPTIONS
1311: (P_API_NAME => L_API_NAME
1312: ,P_PKG_NAME => G_PKG_NAME
1313: ,P_EXCEPTION_LEVEL => Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR
1348: l_valid VARCHAR2(1) := 'Y';
1349:
1350: BEGIN
1351:
1352: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1353:
1354: IF p_validation_mode = Jtf_Plsql_Api.G_UPDATE THEN
1355: RETURN;
1356: END IF;
1354: IF p_validation_mode = Jtf_Plsql_Api.G_UPDATE THEN
1355: RETURN;
1356: END IF;
1357:
1358: IF p_repair_line_id = Fnd_Api.G_MISS_NUM
1359: OR p_repair_line_id IS NULL THEN
1360: RETURN;
1361: END IF;
1362:
1367: END IF;
1368: CLOSE c1;
1369:
1370: IF l_valid = 'N' THEN
1371: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1372: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1373: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_REPLN_ID');
1374: Fnd_Msg_Pub.ADD;
1375: END IF;
1396: l_valid VARCHAR2(1) := 'Y';
1397:
1398: BEGIN
1399:
1400: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1401:
1402: IF p_validation_mode = Jtf_Plsql_Api.G_CREATE
1403: AND (p_repair_number = Fnd_Api.G_MISS_CHAR
1404: OR p_repair_number IS NULL) THEN
1399:
1400: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1401:
1402: IF p_validation_mode = Jtf_Plsql_Api.G_CREATE
1403: AND (p_repair_number = Fnd_Api.G_MISS_CHAR
1404: OR p_repair_number IS NULL) THEN
1405: RETURN;
1406: END IF;
1407:
1406: END IF;
1407:
1408: IF p_validation_mode = Jtf_Plsql_Api.G_UPDATE THEN
1409: IF p_repair_number IS NULL THEN
1410: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1411: Fnd_Message.SET_NAME('CSD', 'CSD_API_NULL_PARAM');
1412: Fnd_Message.SET_TOKEN('API_NAME', 'Update_Repair_Order');
1413: Fnd_Message.SET_TOKEN('NULL_PARAM', 'REPAIR_NUMBER');
1414: Fnd_Msg_Pub.ADD;
1413: Fnd_Message.SET_TOKEN('NULL_PARAM', 'REPAIR_NUMBER');
1414: Fnd_Msg_Pub.ADD;
1415: RETURN;
1416: ELSIF p_repair_number = p_old_repair_number
1417: OR p_repair_number = Fnd_Api.G_MISS_CHAR THEN
1418: RETURN;
1419: END IF;
1420: END IF;
1421:
1426: END IF;
1427: CLOSE c1;
1428:
1429: IF l_valid = 'N' THEN
1430: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1431: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1432: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_REPLN_NUMBER');
1433: Fnd_Msg_Pub.ADD;
1434: END IF;
1455: l_valid VARCHAR2(1) := 'Y';
1456:
1457: BEGIN
1458:
1459: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1460:
1461: IF p_validation_mode = Jtf_Plsql_Api.G_UPDATE THEN
1462: IF p_incident_id IS NULL THEN
1463: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1459: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1460:
1461: IF p_validation_mode = Jtf_Plsql_Api.G_UPDATE THEN
1462: IF p_incident_id IS NULL THEN
1463: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1464: Fnd_Message.SET_NAME('CSD', 'CSD_API_NULL_PARAM');
1465: Fnd_Message.SET_TOKEN('API_NAME', 'Update_Repair_Order');
1466: Fnd_Message.SET_TOKEN('NULL_PARAM', 'INCIDENT_ID');
1467: Fnd_Msg_Pub.ADD;
1466: Fnd_Message.SET_TOKEN('NULL_PARAM', 'INCIDENT_ID');
1467: Fnd_Msg_Pub.ADD;
1468: RETURN;
1469: ELSIF p_incident_id = p_old_incident_id
1470: OR p_incident_id = Fnd_Api.G_MISS_NUM THEN
1471: RETURN;
1472: END IF;
1473: END IF;
1474:
1479: END IF;
1480: CLOSE c1;
1481:
1482: IF l_valid = 'N' THEN
1483: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1484: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1485: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_INCIDENT_ID');
1486: Fnd_Msg_Pub.ADD;
1487: END IF;
1511: l_valid VARCHAR2(1) := 'Y';
1512:
1513: BEGIN
1514:
1515: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1516:
1517: IF p_validation_mode = Jtf_Plsql_Api.G_UPDATE THEN
1518: IF p_inventory_item_id IS NULL THEN
1519: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1515: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1516:
1517: IF p_validation_mode = Jtf_Plsql_Api.G_UPDATE THEN
1518: IF p_inventory_item_id IS NULL THEN
1519: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1520: Fnd_Message.SET_NAME('CSD', 'CSD_API_NULL_PARAM');
1521: Fnd_Message.SET_TOKEN('API_NAME', 'Update_Repair_Order');
1522: Fnd_Message.SET_TOKEN('NULL_PARAM', 'INVENTORY_ITEM_ID');
1523: Fnd_Msg_Pub.ADD;
1522: Fnd_Message.SET_TOKEN('NULL_PARAM', 'INVENTORY_ITEM_ID');
1523: Fnd_Msg_Pub.ADD;
1524: RETURN;
1525: ELSIF p_inventory_item_id = p_old_inventory_item_id
1526: OR p_inventory_item_id = Fnd_Api.G_MISS_NUM THEN
1527: RETURN;
1528: END IF;
1529: END IF;
1530:
1535: END IF;
1536: CLOSE c1;
1537:
1538: IF l_valid = 'N' THEN
1539: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1540: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1541: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_INVENTORY_ITEM');
1542: Fnd_Msg_Pub.ADD;
1543: END IF;
1585: l_valid VARCHAR2(1) := 'Y';
1586:
1587: BEGIN
1588:
1589: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1590:
1591: IF (p_validation_mode = Jtf_Plsql_Api.G_CREATE)
1592: AND (p_customer_product_id = Fnd_Api.G_MISS_NUM
1593: OR p_customer_product_id IS NULL) THEN
1588:
1589: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1590:
1591: IF (p_validation_mode = Jtf_Plsql_Api.G_CREATE)
1592: AND (p_customer_product_id = Fnd_Api.G_MISS_NUM
1593: OR p_customer_product_id IS NULL) THEN
1594: RETURN;
1595: END IF;
1596:
1595: END IF;
1596:
1597: IF (p_validation_mode = Jtf_Plsql_Api.G_UPDATE)
1598: AND (p_customer_product_id = p_old_customer_product_id
1599: OR p_customer_product_id = Fnd_Api.G_MISS_NUM
1600: OR p_customer_product_id IS NULL) THEN
1601: RETURN;
1602: END IF;
1603:
1608: END IF;
1609: CLOSE c1;
1610:
1611: IF l_valid = 'N' THEN
1612: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1613: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1614: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_CUST_PROD');
1615: Fnd_Msg_Pub.ADD;
1616: END IF;
1649: l_valid VARCHAR2(1) := 'Y';
1650:
1651: BEGIN
1652:
1653: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1654:
1655: IF (p_validation_mode = Jtf_Plsql_Api.G_CREATE)
1656: AND (p_customer_product_id = Fnd_Api.G_MISS_NUM
1657: OR p_customer_product_id IS NULL) THEN
1652:
1653: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1654:
1655: IF (p_validation_mode = Jtf_Plsql_Api.G_CREATE)
1656: AND (p_customer_product_id = Fnd_Api.G_MISS_NUM
1657: OR p_customer_product_id IS NULL) THEN
1658: RETURN;
1659: END IF;
1660:
1659: END IF;
1660:
1661: IF (p_validation_mode = Jtf_Plsql_Api.G_UPDATE)
1662: AND (p_customer_product_id = p_old_customer_product_id
1663: OR p_customer_product_id = Fnd_Api.G_MISS_NUM
1664: OR p_customer_product_id IS NULL) THEN
1665: RETURN;
1666: END IF;
1667:
1677: END IF;
1678: CLOSE c1;
1679:
1680: IF l_valid = 'N' THEN
1681: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1682: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1683: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_CUST_PROD');
1684: Fnd_Msg_Pub.ADD;
1685: END IF;
1708: l_valid VARCHAR2(1) := 'Y';
1709:
1710: BEGIN
1711:
1712: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1713:
1714: IF p_validation_mode = Jtf_Plsql_Api.G_UPDATE THEN
1715: IF p_unit_of_measure IS NULL THEN
1716: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1712: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1713:
1714: IF p_validation_mode = Jtf_Plsql_Api.G_UPDATE THEN
1715: IF p_unit_of_measure IS NULL THEN
1716: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1717: Fnd_Message.SET_NAME('CSD', 'CSD_API_NULL_PARAM');
1718: Fnd_Message.SET_TOKEN('API_NAME', 'Update_Repair_Order');
1719: Fnd_Message.SET_TOKEN('NULL_PARAM', 'UNIT_OF_MEASURE');
1720: Fnd_Msg_Pub.ADD;
1719: Fnd_Message.SET_TOKEN('NULL_PARAM', 'UNIT_OF_MEASURE');
1720: Fnd_Msg_Pub.ADD;
1721: RETURN;
1722: ELSIF p_unit_of_measure = p_unit_of_measure
1723: OR p_unit_of_measure = Fnd_Api.G_MISS_CHAR THEN
1724: RETURN;
1725: END IF;
1726: END IF;
1727:
1732: END IF;
1733: CLOSE c1;
1734:
1735: IF l_valid = 'N' THEN
1736: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1737: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1738: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_UOM');
1739: Fnd_Msg_Pub.ADD;
1740: END IF;
1763: l_valid VARCHAR2(1) := 'Y';
1764:
1765: BEGIN
1766:
1767: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1768:
1769: IF p_validation_mode = Jtf_Plsql_Api.G_UPDATE THEN
1770: IF p_repair_type_id IS NULL THEN
1771: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1767: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1768:
1769: IF p_validation_mode = Jtf_Plsql_Api.G_UPDATE THEN
1770: IF p_repair_type_id IS NULL THEN
1771: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1772: Fnd_Message.SET_NAME('CSD', 'CSD_API_NULL_PARAM');
1773: Fnd_Message.SET_TOKEN('API_NAME', 'Update_Repair_Order');
1774: Fnd_Message.SET_TOKEN('NULL_PARAM', 'REPAIR_TYPE_ID');
1775: Fnd_Msg_Pub.ADD;
1774: Fnd_Message.SET_TOKEN('NULL_PARAM', 'REPAIR_TYPE_ID');
1775: Fnd_Msg_Pub.ADD;
1776: RETURN;
1777: ELSIF p_repair_type_id = p_old_repair_type_id
1778: OR p_repair_type_id = Fnd_Api.G_MISS_NUM THEN
1779: RETURN;
1780: END IF;
1781: END IF;
1782:
1787: END IF;
1788: CLOSE c1;
1789:
1790: IF l_valid = 'N' THEN
1791: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1792: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1793: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_REPAIR_TYPE');
1794: Fnd_Msg_Pub.ADD;
1795: END IF;
1839: l_resource_group NUMBER; -- swai: bug 7565999
1840:
1841: BEGIN
1842:
1843: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1844:
1845: -- swai: bug 7565999
1846: if(p_resource_group = Fnd_Api.G_MISS_NUM) THEN
1847: l_resource_group := NULL;
1842:
1843: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1844:
1845: -- swai: bug 7565999
1846: if(p_resource_group = Fnd_Api.G_MISS_NUM) THEN
1847: l_resource_group := NULL;
1848: else
1849: l_resource_group := p_resource_group;
1850: end if;
1850: end if;
1851: -- end swai: bug 7565999
1852:
1853: IF (p_validation_mode = Jtf_Plsql_Api.G_CREATE)
1854: AND (p_resource_id = Fnd_Api.G_MISS_NUM
1855: OR p_resource_id IS NULL) THEN
1856: RETURN;
1857: END IF;
1858:
1857: END IF;
1858:
1859: IF (p_validation_mode = Jtf_Plsql_Api.G_UPDATE)
1860: AND (p_resource_id = p_old_resource_id
1861: OR p_resource_id = Fnd_Api.G_MISS_NUM
1862: OR p_resource_id IS NULL) THEN
1863: RETURN;
1864: END IF;
1865:
1870: END IF;
1871: CLOSE c1;
1872:
1873: IF l_valid = 'N' THEN
1874: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1875: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1876: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_RESOURCE');
1877: Fnd_Msg_Pub.ADD;
1878: END IF;
1905: l_valid VARCHAR2(1) := 'Y';
1906:
1907: BEGIN
1908:
1909: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1910:
1911: IF (p_validation_mode = Jtf_Plsql_Api.G_CREATE)
1912: AND (p_resource_group = Fnd_Api.G_MISS_NUM
1913: OR p_resource_group IS NULL) THEN
1908:
1909: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1910:
1911: IF (p_validation_mode = Jtf_Plsql_Api.G_CREATE)
1912: AND (p_resource_group = Fnd_Api.G_MISS_NUM
1913: OR p_resource_group IS NULL) THEN
1914: RETURN;
1915: END IF;
1916:
1915: END IF;
1916:
1917: IF (p_validation_mode = Jtf_Plsql_Api.G_UPDATE)
1918: AND (p_resource_group = p_old_resource_group
1919: OR p_resource_group = Fnd_Api.G_MISS_NUM
1920: OR p_resource_group IS NULL) THEN
1921: RETURN;
1922: END IF;
1923:
1928: END IF;
1929: CLOSE c1;
1930:
1931: IF l_valid = 'N' THEN
1932: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1933: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1934: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_RS_GROUP');
1935: Fnd_Msg_Pub.ADD;
1936: END IF;
1947: IS
1948:
1949: BEGIN
1950:
1951: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1952:
1953: RETURN;
1954:
1955: END Validate_PROJECT_ID;
1963: IS
1964: --
1965: BEGIN
1966: --
1967: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1968: --
1969: RETURN;
1970: --
1971: END Validate_TASK_ID;
1979: IS
1980:
1981: BEGIN
1982:
1983: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1984:
1985: RETURN;
1986:
1987: END Validate_INSTANCE_ID;
2009: l_valid VARCHAR2(1) := 'Y';
2010:
2011: BEGIN
2012:
2013: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2014:
2015: IF p_validation_mode = Jtf_Plsql_Api.G_UPDATE THEN
2016: IF p_status IS NULL THEN
2017: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2013: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2014:
2015: IF p_validation_mode = Jtf_Plsql_Api.G_UPDATE THEN
2016: IF p_status IS NULL THEN
2017: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2018: Fnd_Message.SET_NAME('CSD', 'CSD_API_NULL_PARAM');
2019: Fnd_Message.SET_TOKEN('API_NAME', 'Update_Repair_Order');
2020: Fnd_Message.SET_TOKEN('NULL_PARAM', 'STATUS');
2021: Fnd_Msg_Pub.ADD;
2020: Fnd_Message.SET_TOKEN('NULL_PARAM', 'STATUS');
2021: Fnd_Msg_Pub.ADD;
2022: RETURN;
2023: ELSIF p_status = p_old_status
2024: OR p_status = Fnd_Api.G_MISS_CHAR THEN
2025: RETURN;
2026: END IF;
2027: END IF;
2028:
2033: END IF;
2034: CLOSE c1;
2035:
2036: IF l_valid = 'N' THEN
2037: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2038: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
2039: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_STATUS');
2040: Fnd_Msg_Pub.ADD;
2041: END IF;
2065: l_valid VARCHAR2(1) := 'Y';
2066:
2067: BEGIN
2068:
2069: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2070:
2071: IF p_validation_mode = Jtf_Plsql_Api.G_UPDATE THEN
2072: IF p_approval_required_flag IS NULL THEN
2073: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2069: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2070:
2071: IF p_validation_mode = Jtf_Plsql_Api.G_UPDATE THEN
2072: IF p_approval_required_flag IS NULL THEN
2073: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2074: Fnd_Message.SET_NAME('CSD', 'CSD_API_NULL_PARAM');
2075: Fnd_Message.SET_TOKEN('API_NAME', 'Update_Repair_Order');
2076: Fnd_Message.SET_TOKEN('NULL_PARAM', 'APPROVAL_REQUIRED_FLAG');
2077: Fnd_Msg_Pub.ADD;
2076: Fnd_Message.SET_TOKEN('NULL_PARAM', 'APPROVAL_REQUIRED_FLAG');
2077: Fnd_Msg_Pub.ADD;
2078: RETURN;
2079: ELSIF p_approval_required_flag = p_old_approval_required_flag
2080: OR p_approval_required_flag = Fnd_Api.G_MISS_CHAR THEN
2081: RETURN;
2082: END IF;
2083: END IF;
2084:
2089: END IF;
2090: CLOSE c1;
2091:
2092: IF l_valid = 'N' THEN
2093: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2094: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
2095: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_APRVL_REQD_FLG');
2096: Fnd_Msg_Pub.ADD;
2097: END IF;
2129: l_valid VARCHAR2(1) := 'Y';
2130:
2131: BEGIN
2132:
2133: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2134:
2135: IF (p_validation_mode = Jtf_Plsql_Api.G_CREATE)
2136: AND (p_approval_status = Fnd_Api.G_MISS_CHAR
2137: OR p_approval_status IS NULL) THEN
2132:
2133: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2134:
2135: IF (p_validation_mode = Jtf_Plsql_Api.G_CREATE)
2136: AND (p_approval_status = Fnd_Api.G_MISS_CHAR
2137: OR p_approval_status IS NULL) THEN
2138: RETURN;
2139: END IF;
2140:
2139: END IF;
2140:
2141: IF (p_validation_mode = Jtf_Plsql_Api.G_UPDATE)
2142: AND (p_approval_status = p_old_approval_status
2143: OR p_approval_status = Fnd_Api.G_MISS_CHAR
2144: OR p_approval_status IS NULL) THEN
2145: RETURN;
2146: END IF;
2147:
2152: END IF;
2153: CLOSE c1;
2154:
2155: IF l_valid = 'N' THEN
2156: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2157: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
2158: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_APRVL_STATUS');
2159: Fnd_Msg_Pub.ADD;
2160: END IF;
2171: IS
2172:
2173: BEGIN
2174:
2175: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2176:
2177: RETURN;
2178:
2179: END Validate_SERIAL_NUMBER;
2191: l_valid VARCHAR2(1) := 'Y';
2192:
2193: BEGIN
2194:
2195: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2196:
2197: IF (p_validation_mode = Jtf_Plsql_Api.G_CREATE)
2198: AND (p_promise_date = Fnd_Api.G_MISS_DATE
2199: OR p_promise_date IS NULL) THEN
2194:
2195: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2196:
2197: IF (p_validation_mode = Jtf_Plsql_Api.G_CREATE)
2198: AND (p_promise_date = Fnd_Api.G_MISS_DATE
2199: OR p_promise_date IS NULL) THEN
2200: RETURN;
2201: END IF;
2202:
2201: END IF;
2202:
2203: IF (p_validation_mode = Jtf_Plsql_Api.G_UPDATE)
2204: AND (p_promise_date = p_old_promise_date
2205: OR p_promise_date = Fnd_Api.G_MISS_DATE
2206: OR p_promise_date IS NULL) THEN
2207: RETURN;
2208: END IF;
2209:
2212: -- l_valid := 'N';
2213: -- END IF;
2214:
2215: IF l_valid = 'N' THEN
2216: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2217: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
2218: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_PROMISE_DATE');
2219: Fnd_Msg_Pub.ADD;
2220: END IF;
2235: l_valid VARCHAR2(1) := 'Y';
2236:
2237: BEGIN
2238:
2239: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2240:
2241: IF p_validation_mode = Jtf_Plsql_Api.G_UPDATE THEN
2242: IF p_quantity IS NULL THEN
2243: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2239: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2240:
2241: IF p_validation_mode = Jtf_Plsql_Api.G_UPDATE THEN
2242: IF p_quantity IS NULL THEN
2243: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2244: Fnd_Message.SET_NAME('CSD', 'CSD_API_NULL_PARAM');
2245: Fnd_Message.SET_TOKEN('API_NAME', 'Update_Repair_Order');
2246: Fnd_Message.SET_TOKEN('NULL_PARAM', 'QUANTITY');
2247: Fnd_Msg_Pub.ADD;
2246: Fnd_Message.SET_TOKEN('NULL_PARAM', 'QUANTITY');
2247: Fnd_Msg_Pub.ADD;
2248: RETURN;
2249: ELSIF p_quantity = p_old_quantity
2250: OR p_quantity = Fnd_Api.G_MISS_NUM THEN
2251: RETURN;
2252: END IF;
2253: END IF;
2254:
2256: l_valid := 'N';
2257: END IF;
2258:
2259: IF l_valid = 'N' THEN
2260: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2261: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
2262: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_QUANTITY');
2263: Fnd_Msg_Pub.ADD;
2264: END IF;
2280: l_valid VARCHAR2(1) := 'Y';
2281:
2282: BEGIN
2283:
2284: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2285: /*****************************************saupadhy
2286: Following procedure will always return success , after JDSU enhancements,
2287: user can submit quantities more then quantity received. i.e Quantity_in_WIP can
2288: can be greater then Quantity_Rcvd ****************************
2285: /*****************************************saupadhy
2286: Following procedure will always return success , after JDSU enhancements,
2287: user can submit quantities more then quantity received. i.e Quantity_in_WIP can
2288: can be greater then Quantity_Rcvd ****************************
2289: if p_quantity_in_wip = FND_API.G_MISS_NUM
2290: or p_quantity_in_wip is null then
2291: return;
2292: end if;
2293:
2295: if p_quantity < p_quantity_in_wip then
2296: l_valid := 'N';
2297: end if;
2298: elsif p_validation_mode = JTF_PLSQL_API.G_UPDATE then
2299: if p_quantity = FND_API.G_MISS_NUM
2300: or p_quantity is null then
2301: if p_old_quantity < p_quantity_in_wip then
2302: l_valid := 'N';
2303: end if;
2308: end if;
2309: end if;
2310:
2311: if l_valid = 'N' then
2312: x_return_status := FND_API.G_RET_STS_ERROR;
2313: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2314: FND_MESSAGE.Set_Name('CSD', 'CSD_INVALID_QTY_IN_WIP');
2315: FND_MSG_PUB.ADD;
2316: END IF;
2330: IS
2331:
2332: BEGIN
2333:
2334: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2335:
2336: RETURN;
2337:
2338: END Validate_QUANTITY_RCVD;
2347: IS
2348:
2349: BEGIN
2350:
2351: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2352:
2353: RETURN;
2354:
2355: END Validate_QUANTITY_SHIPPED;
2365:
2366:
2367: BEGIN
2368:
2369: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2370:
2371: -- Check if the current obj ver num from form and the obj ver num in db are different
2372: IF (p_OBJECT_VERSION_NUMBER <> p_OLD_OBJECT_VERSION_NUMBER) THEN
2373: l_valid := 'N';
2373: l_valid := 'N';
2374: END IF;
2375:
2376: IF l_valid = 'N' THEN
2377: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2378: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
2379:
2380: -- travi this mesg need to be changed
2381: -- travi FND_MESSAGE.Set_Name('CSD', 'CSD_INVALID_OBJ_VER_NUM');
2409: l_valid VARCHAR2(1) := 'Y';
2410:
2411: BEGIN
2412:
2413: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2414:
2415: -- travi fix
2416: IF p_validation_mode = Jtf_Plsql_Api.G_CREATE THEN
2417: IF (p_ro_group_id IS NULL) THEN
2434: IF (g_debug > 0 ) THEN
2435: Csd_Gen_Utility_Pvt.ADD('Update_Repair_Order group_id p_validation_mode : '||p_validation_mode);
2436: END IF;
2437:
2438: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2439: Fnd_Message.SET_NAME('CSD', 'CSD_API_NULL_PARAM');
2440: Fnd_Message.SET_TOKEN('API_NAME', 'Update_Repair_Order');
2441: Fnd_Message.SET_TOKEN('NULL_PARAM', 'RO_GROUP_ID');
2442: Fnd_Msg_Pub.ADD;
2441: Fnd_Message.SET_TOKEN('NULL_PARAM', 'RO_GROUP_ID');
2442: Fnd_Msg_Pub.ADD;
2443: RETURN;
2444: ELSIF p_ro_group_id = p_old_ro_group_id
2445: OR p_ro_group_id = Fnd_Api.G_MISS_NUM THEN
2446: IF (g_debug > 0 ) THEN
2447: Csd_Gen_Utility_Pvt.ADD('Update_Repair_Order group_id is not null or g_miss_num : Validate_RO_GROUP_ID');
2448: END IF;
2449:
2457:
2458: /* old code
2459: if p_validation_mode = JTF_PLSQL_API.G_UPDATE then
2460: if p_ro_group_id is null then
2461: x_return_status := FND_API.G_RET_STS_ERROR;
2462: FND_MESSAGE.SET_NAME('CSD', 'CSD_API_NULL_PARAM');
2463: FND_MESSAGE.SET_TOKEN('API_NAME', 'Update_Repair_Order');
2464: FND_MESSAGE.SET_TOKEN('NULL_PARAM', 'RO_GROUP_ID');
2465: FND_MSG_PUB.Add;
2464: FND_MESSAGE.SET_TOKEN('NULL_PARAM', 'RO_GROUP_ID');
2465: FND_MSG_PUB.Add;
2466: return;
2467: elsif p_ro_group_id = p_old_ro_group_id
2468: or p_ro_group_id = FND_API.G_MISS_NUM then
2469: return;
2470: end if;
2471: end if;
2472: */
2471: end if;
2472: */
2473:
2474: IF (p_ro_group_id IS NOT NULL) OR
2475: (p_ro_group_id = Fnd_Api.G_MISS_NUM) THEN
2476: IF (g_debug > 0 ) THEN
2477: Csd_Gen_Utility_Pvt.ADD('Create / update Repair_Order group_id is not null or g_miss_num : Validate_RO_GROUP_ID');
2478: END IF;
2479:
2488: END IF;
2489: CLOSE c1;
2490:
2491: IF l_valid = 'N' THEN
2492: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2493: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
2494: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_RO_GROUP_ID');
2495: Fnd_Msg_Pub.ADD;
2496: END IF;
2519: l_valid VARCHAR2(1) := 'Y';
2520:
2521: BEGIN
2522:
2523: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2524:
2525: IF (p_validation_mode = Jtf_Plsql_Api.G_CREATE)
2526: AND (p_ORIGINAL_SOURCE_REFERENCE = Fnd_Api.G_MISS_CHAR
2527: OR p_ORIGINAL_SOURCE_REFERENCE IS NULL) THEN
2522:
2523: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2524:
2525: IF (p_validation_mode = Jtf_Plsql_Api.G_CREATE)
2526: AND (p_ORIGINAL_SOURCE_REFERENCE = Fnd_Api.G_MISS_CHAR
2527: OR p_ORIGINAL_SOURCE_REFERENCE IS NULL) THEN
2528: RETURN;
2529: END IF;
2530:
2535: END IF;
2536: CLOSE c1;
2537:
2538: IF l_valid = 'N' THEN
2539: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2540: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
2541: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_SOURCE');
2542: Fnd_Message.SET_TOKEN('ORDER_LINE_ID', p_ORIGINAL_SOURCE_LINE_ID);
2543: Fnd_Message.SET_TOKEN('ORDER_HEADER_ID', p_ORIGINAL_SOURCE_HEADER_ID);
2554: --
2555: PROCEDURE Validate_Repairs
2556: (
2557: P_Api_Version_Number IN NUMBER,
2558: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
2559: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
2560: P_Validation_mode IN VARCHAR2,
2561: p_repair_line_id IN NUMBER := Fnd_Api.G_MISS_NUM,
2562: P_REPLN_Rec IN Csd_Repairs_Pub.REPLN_Rec_Type,
2555: PROCEDURE Validate_Repairs
2556: (
2557: P_Api_Version_Number IN NUMBER,
2558: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
2559: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
2560: P_Validation_mode IN VARCHAR2,
2561: p_repair_line_id IN NUMBER := Fnd_Api.G_MISS_NUM,
2562: P_REPLN_Rec IN Csd_Repairs_Pub.REPLN_Rec_Type,
2563: P_OLD_REPLN_Rec IN Csd_Repairs_Pub.REPLN_Rec_Type := Csd_Repairs_Pub.G_MISS_REPLN_Rec,
2557: P_Api_Version_Number IN NUMBER,
2558: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
2559: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
2560: P_Validation_mode IN VARCHAR2,
2561: p_repair_line_id IN NUMBER := Fnd_Api.G_MISS_NUM,
2562: P_REPLN_Rec IN Csd_Repairs_Pub.REPLN_Rec_Type,
2563: P_OLD_REPLN_Rec IN Csd_Repairs_Pub.REPLN_Rec_Type := Csd_Repairs_Pub.G_MISS_REPLN_Rec,
2564: x_return_status OUT NOCOPY VARCHAR2,
2565: x_msg_count OUT NOCOPY NUMBER,
2614:
2615: -- Standard Start of API savepoint
2616: SAVEPOINT VALIDATE_REPAIRS_PVT;
2617: -- Standard call to check for call compatibility.
2618: IF NOT Fnd_Api.Compatible_API_Call
2619: (l_api_version_number,
2620: p_api_version_number,
2621: l_api_name,
2622: G_PKG_NAME)
2620: p_api_version_number,
2621: l_api_name,
2622: G_PKG_NAME)
2623: THEN
2624: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2625: END IF;
2626: -- Initialize message list if p_init_msg_list is set to TRUE.
2627: IF Fnd_Api.to_Boolean(p_init_msg_list)
2628: THEN
2623: THEN
2624: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2625: END IF;
2626: -- Initialize message list if p_init_msg_list is set to TRUE.
2627: IF Fnd_Api.to_Boolean(p_init_msg_list)
2628: THEN
2629: Fnd_Msg_Pub.initialize;
2630: END IF;
2631: -- Initialize API return status to SUCCESS
2628: THEN
2629: Fnd_Msg_Pub.initialize;
2630: END IF;
2631: -- Initialize API return status to SUCCESS
2632: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2633: --
2634: -- API Body
2635: --
2636:
2652: p_validation_mode => p_validation_mode,
2653: x_return_status => x_return_status
2654: );
2655: -- Check return status from the above procedure call
2656: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2657: RAISE Fnd_Api.G_EXC_ERROR;
2658: END IF;
2659:
2660: Validate_REPAIR_NUMBER
2653: x_return_status => x_return_status
2654: );
2655: -- Check return status from the above procedure call
2656: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2657: RAISE Fnd_Api.G_EXC_ERROR;
2658: END IF;
2659:
2660: Validate_REPAIR_NUMBER
2661: (
2664: p_validation_mode => p_validation_mode,
2665: x_return_status => x_return_status
2666: );
2667: -- Check return status from the above procedure call
2668: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2669: RAISE Fnd_Api.G_EXC_ERROR;
2670: END IF;
2671:
2672: Validate_INCIDENT_ID
2665: x_return_status => x_return_status
2666: );
2667: -- Check return status from the above procedure call
2668: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2669: RAISE Fnd_Api.G_EXC_ERROR;
2670: END IF;
2671:
2672: Validate_INCIDENT_ID
2673: (
2676: p_validation_mode => p_validation_mode,
2677: x_return_status => x_return_status
2678: );
2679: -- Check return status from the above procedure call
2680: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2681: RAISE Fnd_Api.G_EXC_ERROR;
2682: END IF;
2683:
2684: Validate_INVENTORY_ITEM_ID
2677: x_return_status => x_return_status
2678: );
2679: -- Check return status from the above procedure call
2680: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2681: RAISE Fnd_Api.G_EXC_ERROR;
2682: END IF;
2683:
2684: Validate_INVENTORY_ITEM_ID
2685: (
2688: p_validation_mode => p_validation_mode,
2689: x_return_status => x_return_status
2690: );
2691: -- Check return status from the above procedure call
2692: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2693: RAISE Fnd_Api.G_EXC_ERROR;
2694: END IF;
2695:
2696: Validate_UNIT_OF_MEASURE
2689: x_return_status => x_return_status
2690: );
2691: -- Check return status from the above procedure call
2692: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2693: RAISE Fnd_Api.G_EXC_ERROR;
2694: END IF;
2695:
2696: Validate_UNIT_OF_MEASURE
2697: (
2700: p_validation_mode => p_validation_mode,
2701: x_return_status => x_return_status
2702: );
2703: -- Check return status from the above procedure call
2704: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2705: RAISE Fnd_Api.G_EXC_ERROR;
2706: END IF;
2707:
2708: Validate_REPAIR_TYPE_ID
2701: x_return_status => x_return_status
2702: );
2703: -- Check return status from the above procedure call
2704: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2705: RAISE Fnd_Api.G_EXC_ERROR;
2706: END IF;
2707:
2708: Validate_REPAIR_TYPE_ID
2709: (
2726: l_Refurbished_repair_Type_Flag := 'N' ;
2727: END;
2728:
2729: -- Check return status from the above procedure call
2730: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2731: RAISE Fnd_Api.G_EXC_ERROR;
2732: END IF;
2733:
2734: Validate_APPROVAL_STATUS
2727: END;
2728:
2729: -- Check return status from the above procedure call
2730: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2731: RAISE Fnd_Api.G_EXC_ERROR;
2732: END IF;
2733:
2734: Validate_APPROVAL_STATUS
2735: (
2738: p_validation_mode => p_validation_mode,
2739: x_return_status => x_return_status
2740: );
2741: -- Check return status from the above procedure call
2742: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2743: RAISE Fnd_Api.G_EXC_ERROR;
2744: END IF;
2745:
2746: /* Commented for R12 Flex Flow
2739: x_return_status => x_return_status
2740: );
2741: -- Check return status from the above procedure call
2742: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2743: RAISE Fnd_Api.G_EXC_ERROR;
2744: END IF;
2745:
2746: /* Commented for R12 Flex Flow
2747: -- No validation for Status required.
2752: p_validation_mode => p_validation_mode,
2753: x_return_status => x_return_status
2754: );
2755: -- Check return status from the above procedure call
2756: IF not (x_return_status = FND_API.G_RET_STS_SUCCESS) then
2757: RAISE FND_API.G_EXC_ERROR;
2758: END IF;
2759: */
2760:
2753: x_return_status => x_return_status
2754: );
2755: -- Check return status from the above procedure call
2756: IF not (x_return_status = FND_API.G_RET_STS_SUCCESS) then
2757: RAISE FND_API.G_EXC_ERROR;
2758: END IF;
2759: */
2760:
2761: Validate_QUANTITY
2765: p_validation_mode => p_validation_mode,
2766: x_return_status => x_return_status
2767: );
2768: -- Check return status from the above procedure call
2769: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2770: RAISE Fnd_Api.G_EXC_ERROR;
2771: END IF;
2772:
2773: -- travi new code to validate the object version number
2766: x_return_status => x_return_status
2767: );
2768: -- Check return status from the above procedure call
2769: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2770: RAISE Fnd_Api.G_EXC_ERROR;
2771: END IF;
2772:
2773: -- travi new code to validate the object version number
2774: Validate_OBJECT_VERSION_NUMBER
2778: x_return_status => x_return_status
2779: );
2780:
2781: -- Check return status from the above procedure call
2782: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2783: RAISE Fnd_Api.G_EXC_ERROR;
2784: END IF;
2785:
2786: IF (p_validation_level >= Fnd_Api.G_VALID_LEVEL_FULL) THEN
2779: );
2780:
2781: -- Check return status from the above procedure call
2782: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2783: RAISE Fnd_Api.G_EXC_ERROR;
2784: END IF;
2785:
2786: IF (p_validation_level >= Fnd_Api.G_VALID_LEVEL_FULL) THEN
2787:
2782: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2783: RAISE Fnd_Api.G_EXC_ERROR;
2784: END IF;
2785:
2786: IF (p_validation_level >= Fnd_Api.G_VALID_LEVEL_FULL) THEN
2787:
2788:
2789: -- Do following validation only for non refurbished repair orders
2790: -- Validation for customer_product_id should not be done for
2812:
2813: END IF;
2814:
2815: -- Check return status from the above procedure call
2816: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2817: RAISE Fnd_Api.G_EXC_ERROR;
2818: END IF;
2819:
2820: Validate_SOURCE
2813: END IF;
2814:
2815: -- Check return status from the above procedure call
2816: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2817: RAISE Fnd_Api.G_EXC_ERROR;
2818: END IF;
2819:
2820: Validate_SOURCE
2821: (
2825: p_validation_mode => Jtf_Plsql_Api.G_CREATE,
2826: x_return_status => x_return_status);
2827:
2828: -- Check return status from the above procedure call
2829: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2830: RAISE Fnd_Api.G_EXC_ERROR;
2831: END IF;
2832:
2833: --Vijay 10/28/2004 Begin
2826: x_return_status => x_return_status);
2827:
2828: -- Check return status from the above procedure call
2829: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2830: RAISE Fnd_Api.G_EXC_ERROR;
2831: END IF;
2832:
2833: --Vijay 10/28/2004 Begin
2834:
2839: p_validation_mode => p_validation_mode,
2840: x_return_status => x_return_status
2841: );
2842: -- Check return status from the above procedure call
2843: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2844: RAISE Fnd_Api.G_EXC_ERROR;
2845: END IF;
2846: --Vijay 10/28/2004 End
2847:
2840: x_return_status => x_return_status
2841: );
2842: -- Check return status from the above procedure call
2843: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2844: RAISE Fnd_Api.G_EXC_ERROR;
2845: END IF;
2846: --Vijay 10/28/2004 End
2847:
2848: Validate_RESOURCE_ID
2853: p_validation_mode => p_validation_mode,
2854: x_return_status => x_return_status
2855: );
2856: -- Check return status from the above procedure call
2857: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2858: RAISE Fnd_Api.G_EXC_ERROR;
2859: END IF;
2860:
2861: Validate_APPROVAL_REQD_FLAG
2854: x_return_status => x_return_status
2855: );
2856: -- Check return status from the above procedure call
2857: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2858: RAISE Fnd_Api.G_EXC_ERROR;
2859: END IF;
2860:
2861: Validate_APPROVAL_REQD_FLAG
2862: (
2865: p_validation_mode => p_validation_mode,
2866: x_return_status => x_return_status
2867: );
2868: -- Check return status from the above procedure call
2869: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2870: RAISE Fnd_Api.G_EXC_ERROR;
2871: END IF;
2872:
2873:
2866: x_return_status => x_return_status
2867: );
2868: -- Check return status from the above procedure call
2869: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2870: RAISE Fnd_Api.G_EXC_ERROR;
2871: END IF;
2872:
2873:
2874: Validate_PROMISE_DATE
2878: p_validation_mode => p_validation_mode,
2879: x_return_status => x_return_status
2880: );
2881: -- Check return status from the above procedure call
2882: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2883: RAISE Fnd_Api.G_EXC_ERROR;
2884: END IF;
2885:
2886: Validate_QUANTITY_IN_WIP
2879: x_return_status => x_return_status
2880: );
2881: -- Check return status from the above procedure call
2882: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2883: RAISE Fnd_Api.G_EXC_ERROR;
2884: END IF;
2885:
2886: Validate_QUANTITY_IN_WIP
2887: (
2892: x_return_status => x_return_status
2893: );
2894:
2895: -- Check return status from the above procedure call
2896: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2897: RAISE Fnd_Api.G_EXC_ERROR;
2898: END IF;
2899:
2900: -- bugfix 3390579: p_repln_rec does not contain all the values. To validate
2893: );
2894:
2895: -- Check return status from the above procedure call
2896: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2897: RAISE Fnd_Api.G_EXC_ERROR;
2898: END IF;
2899:
2900: -- bugfix 3390579: p_repln_rec does not contain all the values. To validate
2901: -- DFF, we need proper values to be populated. Here, we will populate the
2901: -- DFF, we need proper values to be populated. Here, we will populate the
2902: -- appropriate values from p_old_repln_rec record structure so that
2903: -- validation happens correctly.
2904:
2905: IF (p_REPLN_Rec.attribute_category IS NULL) OR (p_REPLN_Rec.attribute_category = Fnd_Api.G_MISS_CHAR) THEN
2906: IF NVL(p_old_repln_rec.attribute_category,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
2907: l_attribute_category := p_old_repln_rec.attribute_category;
2908: END IF;
2909: ELSE
2902: -- appropriate values from p_old_repln_rec record structure so that
2903: -- validation happens correctly.
2904:
2905: IF (p_REPLN_Rec.attribute_category IS NULL) OR (p_REPLN_Rec.attribute_category = Fnd_Api.G_MISS_CHAR) THEN
2906: IF NVL(p_old_repln_rec.attribute_category,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
2907: l_attribute_category := p_old_repln_rec.attribute_category;
2908: END IF;
2909: ELSE
2910: l_attribute_category := p_REPLN_Rec.attribute_category;
2909: ELSE
2910: l_attribute_category := p_REPLN_Rec.attribute_category;
2911: END IF;
2912:
2913: IF (p_REPLN_Rec.attribute1 IS NULL) OR (p_REPLN_Rec.attribute1 = Fnd_Api.G_MISS_CHAR) THEN
2914: IF NVL(p_old_repln_rec.attribute1,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
2915: l_attribute1 := p_old_repln_rec.attribute1;
2916: END IF;
2917: ELSE
2910: l_attribute_category := p_REPLN_Rec.attribute_category;
2911: END IF;
2912:
2913: IF (p_REPLN_Rec.attribute1 IS NULL) OR (p_REPLN_Rec.attribute1 = Fnd_Api.G_MISS_CHAR) THEN
2914: IF NVL(p_old_repln_rec.attribute1,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
2915: l_attribute1 := p_old_repln_rec.attribute1;
2916: END IF;
2917: ELSE
2918: l_attribute1 := p_REPLN_Rec.attribute1;
2917: ELSE
2918: l_attribute1 := p_REPLN_Rec.attribute1;
2919: END IF;
2920:
2921: IF (p_REPLN_Rec.attribute2 IS NULL) OR (p_REPLN_Rec.attribute2 = Fnd_Api.G_MISS_CHAR) THEN
2922: IF NVL(p_old_repln_rec.attribute2,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
2923: l_attribute2 := p_old_repln_rec.attribute2;
2924: END IF;
2925: ELSE
2918: l_attribute1 := p_REPLN_Rec.attribute1;
2919: END IF;
2920:
2921: IF (p_REPLN_Rec.attribute2 IS NULL) OR (p_REPLN_Rec.attribute2 = Fnd_Api.G_MISS_CHAR) THEN
2922: IF NVL(p_old_repln_rec.attribute2,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
2923: l_attribute2 := p_old_repln_rec.attribute2;
2924: END IF;
2925: ELSE
2926: l_attribute2 := p_REPLN_Rec.attribute2;
2925: ELSE
2926: l_attribute2 := p_REPLN_Rec.attribute2;
2927: END IF;
2928:
2929: IF (p_REPLN_Rec.attribute3 IS NULL) OR (p_REPLN_Rec.attribute3 = Fnd_Api.G_MISS_CHAR) THEN
2930: IF NVL(p_old_repln_rec.attribute3,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
2931: l_attribute3 := p_old_repln_rec.attribute3;
2932: END IF;
2933: ELSE
2926: l_attribute2 := p_REPLN_Rec.attribute2;
2927: END IF;
2928:
2929: IF (p_REPLN_Rec.attribute3 IS NULL) OR (p_REPLN_Rec.attribute3 = Fnd_Api.G_MISS_CHAR) THEN
2930: IF NVL(p_old_repln_rec.attribute3,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
2931: l_attribute3 := p_old_repln_rec.attribute3;
2932: END IF;
2933: ELSE
2934: l_attribute3 := p_REPLN_Rec.attribute3;
2933: ELSE
2934: l_attribute3 := p_REPLN_Rec.attribute3;
2935: END IF;
2936:
2937: IF (p_REPLN_Rec.attribute4 IS NULL) OR (p_REPLN_Rec.attribute4 = Fnd_Api.G_MISS_CHAR) THEN
2938: IF NVL(p_old_repln_rec.attribute4,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
2939: l_attribute4 := p_old_repln_rec.attribute4;
2940: END IF;
2941: ELSE
2934: l_attribute3 := p_REPLN_Rec.attribute3;
2935: END IF;
2936:
2937: IF (p_REPLN_Rec.attribute4 IS NULL) OR (p_REPLN_Rec.attribute4 = Fnd_Api.G_MISS_CHAR) THEN
2938: IF NVL(p_old_repln_rec.attribute4,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
2939: l_attribute4 := p_old_repln_rec.attribute4;
2940: END IF;
2941: ELSE
2942: l_attribute4 := p_REPLN_Rec.attribute4;
2941: ELSE
2942: l_attribute4 := p_REPLN_Rec.attribute4;
2943: END IF;
2944:
2945: IF (p_REPLN_Rec.attribute5 IS NULL) OR (p_REPLN_Rec.attribute5 = Fnd_Api.G_MISS_CHAR) THEN
2946: IF NVL(p_old_repln_rec.attribute5,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
2947: l_attribute5 := p_old_repln_rec.attribute5;
2948: END IF;
2949: ELSE
2942: l_attribute4 := p_REPLN_Rec.attribute4;
2943: END IF;
2944:
2945: IF (p_REPLN_Rec.attribute5 IS NULL) OR (p_REPLN_Rec.attribute5 = Fnd_Api.G_MISS_CHAR) THEN
2946: IF NVL(p_old_repln_rec.attribute5,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
2947: l_attribute5 := p_old_repln_rec.attribute5;
2948: END IF;
2949: ELSE
2950: l_attribute5 := p_REPLN_Rec.attribute5;
2949: ELSE
2950: l_attribute5 := p_REPLN_Rec.attribute5;
2951: END IF;
2952:
2953: IF (p_REPLN_Rec.attribute6 IS NULL) OR (p_REPLN_Rec.attribute6 = Fnd_Api.G_MISS_CHAR) THEN
2954: IF NVL(p_old_repln_rec.attribute6,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
2955: l_attribute6 := p_old_repln_rec.attribute6;
2956: END IF;
2957: ELSE
2950: l_attribute5 := p_REPLN_Rec.attribute5;
2951: END IF;
2952:
2953: IF (p_REPLN_Rec.attribute6 IS NULL) OR (p_REPLN_Rec.attribute6 = Fnd_Api.G_MISS_CHAR) THEN
2954: IF NVL(p_old_repln_rec.attribute6,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
2955: l_attribute6 := p_old_repln_rec.attribute6;
2956: END IF;
2957: ELSE
2958: l_attribute6 := p_REPLN_Rec.attribute6;
2957: ELSE
2958: l_attribute6 := p_REPLN_Rec.attribute6;
2959: END IF;
2960:
2961: IF (p_REPLN_Rec.attribute7 IS NULL) OR (p_REPLN_Rec.attribute7 = Fnd_Api.G_MISS_CHAR) THEN
2962: IF NVL(p_old_repln_rec.attribute7,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
2963: l_attribute7 := p_old_repln_rec.attribute7;
2964: END IF;
2965: ELSE
2958: l_attribute6 := p_REPLN_Rec.attribute6;
2959: END IF;
2960:
2961: IF (p_REPLN_Rec.attribute7 IS NULL) OR (p_REPLN_Rec.attribute7 = Fnd_Api.G_MISS_CHAR) THEN
2962: IF NVL(p_old_repln_rec.attribute7,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
2963: l_attribute7 := p_old_repln_rec.attribute7;
2964: END IF;
2965: ELSE
2966: l_attribute7 := p_REPLN_Rec.attribute7;
2965: ELSE
2966: l_attribute7 := p_REPLN_Rec.attribute7;
2967: END IF;
2968:
2969: IF (p_REPLN_Rec.attribute8 IS NULL) OR (p_REPLN_Rec.attribute8 = Fnd_Api.G_MISS_CHAR) THEN
2970: IF NVL(p_old_repln_rec.attribute8,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
2971: l_attribute8 := p_old_repln_rec.attribute8;
2972: END IF;
2973: ELSE
2966: l_attribute7 := p_REPLN_Rec.attribute7;
2967: END IF;
2968:
2969: IF (p_REPLN_Rec.attribute8 IS NULL) OR (p_REPLN_Rec.attribute8 = Fnd_Api.G_MISS_CHAR) THEN
2970: IF NVL(p_old_repln_rec.attribute8,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
2971: l_attribute8 := p_old_repln_rec.attribute8;
2972: END IF;
2973: ELSE
2974: l_attribute8 := p_REPLN_Rec.attribute8;
2973: ELSE
2974: l_attribute8 := p_REPLN_Rec.attribute8;
2975: END IF;
2976:
2977: IF (p_REPLN_Rec.attribute9 IS NULL) OR (p_REPLN_Rec.attribute9 = Fnd_Api.G_MISS_CHAR) THEN
2978: IF NVL(p_old_repln_rec.attribute9,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
2979: l_attribute9 := p_old_repln_rec.attribute9;
2980: END IF;
2981: ELSE
2974: l_attribute8 := p_REPLN_Rec.attribute8;
2975: END IF;
2976:
2977: IF (p_REPLN_Rec.attribute9 IS NULL) OR (p_REPLN_Rec.attribute9 = Fnd_Api.G_MISS_CHAR) THEN
2978: IF NVL(p_old_repln_rec.attribute9,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
2979: l_attribute9 := p_old_repln_rec.attribute9;
2980: END IF;
2981: ELSE
2982: l_attribute9 := p_REPLN_Rec.attribute9;
2981: ELSE
2982: l_attribute9 := p_REPLN_Rec.attribute9;
2983: END IF;
2984:
2985: IF (p_REPLN_Rec.attribute10 IS NULL) OR (p_REPLN_Rec.attribute10 = Fnd_Api.G_MISS_CHAR) THEN
2986: IF NVL(p_old_repln_rec.attribute10,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
2987: l_attribute10 := p_old_repln_rec.attribute10;
2988: END IF;
2989: ELSE
2982: l_attribute9 := p_REPLN_Rec.attribute9;
2983: END IF;
2984:
2985: IF (p_REPLN_Rec.attribute10 IS NULL) OR (p_REPLN_Rec.attribute10 = Fnd_Api.G_MISS_CHAR) THEN
2986: IF NVL(p_old_repln_rec.attribute10,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
2987: l_attribute10 := p_old_repln_rec.attribute10;
2988: END IF;
2989: ELSE
2990: l_attribute10 := p_REPLN_Rec.attribute10;
2989: ELSE
2990: l_attribute10 := p_REPLN_Rec.attribute10;
2991: END IF;
2992:
2993: IF (p_REPLN_Rec.attribute11 IS NULL) OR (p_REPLN_Rec.attribute11 = Fnd_Api.G_MISS_CHAR) THEN
2994: IF NVL(p_old_repln_rec.attribute11,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
2995: l_attribute11 := p_old_repln_rec.attribute11;
2996: END IF;
2997: ELSE
2990: l_attribute10 := p_REPLN_Rec.attribute10;
2991: END IF;
2992:
2993: IF (p_REPLN_Rec.attribute11 IS NULL) OR (p_REPLN_Rec.attribute11 = Fnd_Api.G_MISS_CHAR) THEN
2994: IF NVL(p_old_repln_rec.attribute11,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
2995: l_attribute11 := p_old_repln_rec.attribute11;
2996: END IF;
2997: ELSE
2998: l_attribute11 := p_REPLN_Rec.attribute11;
2997: ELSE
2998: l_attribute11 := p_REPLN_Rec.attribute11;
2999: END IF;
3000:
3001: IF (p_REPLN_Rec.attribute12 IS NULL) OR (p_REPLN_Rec.attribute12 = Fnd_Api.G_MISS_CHAR) THEN
3002: IF NVL(p_old_repln_rec.attribute12,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
3003: l_attribute12 := p_old_repln_rec.attribute12;
3004: END IF;
3005: ELSE
2998: l_attribute11 := p_REPLN_Rec.attribute11;
2999: END IF;
3000:
3001: IF (p_REPLN_Rec.attribute12 IS NULL) OR (p_REPLN_Rec.attribute12 = Fnd_Api.G_MISS_CHAR) THEN
3002: IF NVL(p_old_repln_rec.attribute12,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
3003: l_attribute12 := p_old_repln_rec.attribute12;
3004: END IF;
3005: ELSE
3006: l_attribute12 := p_REPLN_Rec.attribute12;
3005: ELSE
3006: l_attribute12 := p_REPLN_Rec.attribute12;
3007: END IF;
3008:
3009: IF (p_REPLN_Rec.attribute13 IS NULL) OR (p_REPLN_Rec.attribute13 = Fnd_Api.G_MISS_CHAR) THEN
3010: IF NVL(p_old_repln_rec.attribute13,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
3011: l_attribute13 := p_old_repln_rec.attribute13;
3012: END IF;
3013: ELSE
3006: l_attribute12 := p_REPLN_Rec.attribute12;
3007: END IF;
3008:
3009: IF (p_REPLN_Rec.attribute13 IS NULL) OR (p_REPLN_Rec.attribute13 = Fnd_Api.G_MISS_CHAR) THEN
3010: IF NVL(p_old_repln_rec.attribute13,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
3011: l_attribute13 := p_old_repln_rec.attribute13;
3012: END IF;
3013: ELSE
3014: l_attribute13 := p_REPLN_Rec.attribute13;
3013: ELSE
3014: l_attribute13 := p_REPLN_Rec.attribute13;
3015: END IF;
3016:
3017: IF (p_REPLN_Rec.attribute14 IS NULL) OR (p_REPLN_Rec.attribute14 = Fnd_Api.G_MISS_CHAR) THEN
3018: IF NVL(p_old_repln_rec.attribute14,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
3019: l_attribute14 := p_old_repln_rec.attribute14;
3020: END IF;
3021: ELSE
3014: l_attribute13 := p_REPLN_Rec.attribute13;
3015: END IF;
3016:
3017: IF (p_REPLN_Rec.attribute14 IS NULL) OR (p_REPLN_Rec.attribute14 = Fnd_Api.G_MISS_CHAR) THEN
3018: IF NVL(p_old_repln_rec.attribute14,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
3019: l_attribute14 := p_old_repln_rec.attribute14;
3020: END IF;
3021: ELSE
3022: l_attribute14 := p_REPLN_Rec.attribute14;
3021: ELSE
3022: l_attribute14 := p_REPLN_Rec.attribute14;
3023: END IF;
3024:
3025: IF (p_REPLN_Rec.attribute15 IS NULL) OR (p_REPLN_Rec.attribute15 = Fnd_Api.G_MISS_CHAR) THEN
3026: IF NVL(p_old_repln_rec.attribute15,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
3027: l_attribute15 := p_old_repln_rec.attribute15;
3028: END IF;
3029: ELSE
3022: l_attribute14 := p_REPLN_Rec.attribute14;
3023: END IF;
3024:
3025: IF (p_REPLN_Rec.attribute15 IS NULL) OR (p_REPLN_Rec.attribute15 = Fnd_Api.G_MISS_CHAR) THEN
3026: IF NVL(p_old_repln_rec.attribute15,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
3027: l_attribute15 := p_old_repln_rec.attribute15;
3028: END IF;
3029: ELSE
3030: l_attribute15 := p_REPLN_Rec.attribute15;
3030: l_attribute15 := p_REPLN_Rec.attribute15;
3031: END IF;
3032:
3033: --subhat, 15 new DFF columns(bug#7497907), 12.1 FP.
3034: IF (p_REPLN_Rec.attribute16 is null) or (p_REPLN_Rec.attribute16 = FND_API.G_MISS_CHAR) then
3035: IF nvl(p_old_repln_rec.attribute16,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
3036: l_attribute16 := p_old_repln_rec.attribute16;
3037: END IF;
3038: ELSE
3031: END IF;
3032:
3033: --subhat, 15 new DFF columns(bug#7497907), 12.1 FP.
3034: IF (p_REPLN_Rec.attribute16 is null) or (p_REPLN_Rec.attribute16 = FND_API.G_MISS_CHAR) then
3035: IF nvl(p_old_repln_rec.attribute16,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
3036: l_attribute16 := p_old_repln_rec.attribute16;
3037: END IF;
3038: ELSE
3039: l_attribute16 := p_REPLN_Rec.attribute16;
3038: ELSE
3039: l_attribute16 := p_REPLN_Rec.attribute16;
3040: END IF;
3041:
3042: IF (p_REPLN_Rec.attribute17 is null) or (p_REPLN_Rec.attribute17 = FND_API.G_MISS_CHAR) then
3043: IF nvl(p_old_repln_rec.attribute17,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
3044: l_attribute17 := p_old_repln_rec.attribute17;
3045: END IF;
3046: ELSE
3039: l_attribute16 := p_REPLN_Rec.attribute16;
3040: END IF;
3041:
3042: IF (p_REPLN_Rec.attribute17 is null) or (p_REPLN_Rec.attribute17 = FND_API.G_MISS_CHAR) then
3043: IF nvl(p_old_repln_rec.attribute17,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
3044: l_attribute17 := p_old_repln_rec.attribute17;
3045: END IF;
3046: ELSE
3047: l_attribute17 := p_REPLN_Rec.attribute17;
3046: ELSE
3047: l_attribute17 := p_REPLN_Rec.attribute17;
3048: END IF;
3049:
3050: IF (p_REPLN_Rec.attribute18 is null) or (p_REPLN_Rec.attribute18 = FND_API.G_MISS_CHAR) then
3051: IF nvl(p_old_repln_rec.attribute18,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
3052: l_attribute18 := p_old_repln_rec.attribute18;
3053: END IF;
3054: ELSE
3047: l_attribute17 := p_REPLN_Rec.attribute17;
3048: END IF;
3049:
3050: IF (p_REPLN_Rec.attribute18 is null) or (p_REPLN_Rec.attribute18 = FND_API.G_MISS_CHAR) then
3051: IF nvl(p_old_repln_rec.attribute18,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
3052: l_attribute18 := p_old_repln_rec.attribute18;
3053: END IF;
3054: ELSE
3055: l_attribute18 := p_REPLN_Rec.attribute18;
3054: ELSE
3055: l_attribute18 := p_REPLN_Rec.attribute18;
3056: END IF;
3057:
3058: IF (p_REPLN_Rec.attribute19 is null) or (p_REPLN_Rec.attribute19 = FND_API.G_MISS_CHAR) then
3059: IF nvl(p_old_repln_rec.attribute19,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
3060: l_attribute19 := p_old_repln_rec.attribute19;
3061: END IF;
3062: ELSE
3055: l_attribute18 := p_REPLN_Rec.attribute18;
3056: END IF;
3057:
3058: IF (p_REPLN_Rec.attribute19 is null) or (p_REPLN_Rec.attribute19 = FND_API.G_MISS_CHAR) then
3059: IF nvl(p_old_repln_rec.attribute19,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
3060: l_attribute19 := p_old_repln_rec.attribute19;
3061: END IF;
3062: ELSE
3063: l_attribute19 := p_REPLN_Rec.attribute19;
3062: ELSE
3063: l_attribute19 := p_REPLN_Rec.attribute19;
3064: END IF;
3065:
3066: IF (p_REPLN_Rec.attribute20 is null) or (p_REPLN_Rec.attribute20 = FND_API.G_MISS_CHAR) then
3067: IF nvl(p_old_repln_rec.attribute20,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
3068: l_attribute20 := p_old_repln_rec.attribute20;
3069: END IF;
3070: ELSE
3063: l_attribute19 := p_REPLN_Rec.attribute19;
3064: END IF;
3065:
3066: IF (p_REPLN_Rec.attribute20 is null) or (p_REPLN_Rec.attribute20 = FND_API.G_MISS_CHAR) then
3067: IF nvl(p_old_repln_rec.attribute20,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
3068: l_attribute20 := p_old_repln_rec.attribute20;
3069: END IF;
3070: ELSE
3071: l_attribute20 := p_REPLN_Rec.attribute20;
3070: ELSE
3071: l_attribute20 := p_REPLN_Rec.attribute20;
3072: END IF;
3073:
3074: IF (p_REPLN_Rec.attribute21 is null) or (p_REPLN_Rec.attribute21 = FND_API.G_MISS_CHAR) then
3075: IF nvl(p_old_repln_rec.attribute21,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
3076: l_attribute21 := p_old_repln_rec.attribute21;
3077: END IF;
3078: ELSE
3071: l_attribute20 := p_REPLN_Rec.attribute20;
3072: END IF;
3073:
3074: IF (p_REPLN_Rec.attribute21 is null) or (p_REPLN_Rec.attribute21 = FND_API.G_MISS_CHAR) then
3075: IF nvl(p_old_repln_rec.attribute21,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
3076: l_attribute21 := p_old_repln_rec.attribute21;
3077: END IF;
3078: ELSE
3079: l_attribute21 := p_REPLN_Rec.attribute21;
3078: ELSE
3079: l_attribute21 := p_REPLN_Rec.attribute21;
3080: END IF;
3081:
3082: IF (p_REPLN_Rec.attribute22 is null) or (p_REPLN_Rec.attribute22 = FND_API.G_MISS_CHAR) then
3083: IF nvl(p_old_repln_rec.attribute22,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
3084: l_attribute22 := p_old_repln_rec.attribute22;
3085: END IF;
3086: ELSE
3079: l_attribute21 := p_REPLN_Rec.attribute21;
3080: END IF;
3081:
3082: IF (p_REPLN_Rec.attribute22 is null) or (p_REPLN_Rec.attribute22 = FND_API.G_MISS_CHAR) then
3083: IF nvl(p_old_repln_rec.attribute22,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
3084: l_attribute22 := p_old_repln_rec.attribute22;
3085: END IF;
3086: ELSE
3087: l_attribute22 := p_REPLN_Rec.attribute22;
3086: ELSE
3087: l_attribute22 := p_REPLN_Rec.attribute22;
3088: END IF;
3089:
3090: IF (p_REPLN_Rec.attribute23 is null) or (p_REPLN_Rec.attribute23 = FND_API.G_MISS_CHAR) then
3091: IF nvl(p_old_repln_rec.attribute23,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
3092: l_attribute23 := p_old_repln_rec.attribute23;
3093: END IF;
3094: ELSE
3087: l_attribute22 := p_REPLN_Rec.attribute22;
3088: END IF;
3089:
3090: IF (p_REPLN_Rec.attribute23 is null) or (p_REPLN_Rec.attribute23 = FND_API.G_MISS_CHAR) then
3091: IF nvl(p_old_repln_rec.attribute23,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
3092: l_attribute23 := p_old_repln_rec.attribute23;
3093: END IF;
3094: ELSE
3095: l_attribute23 := p_REPLN_Rec.attribute23;
3094: ELSE
3095: l_attribute23 := p_REPLN_Rec.attribute23;
3096: END IF;
3097:
3098: IF (p_REPLN_Rec.attribute24 is null) or (p_REPLN_Rec.attribute24 = FND_API.G_MISS_CHAR) then
3099: IF nvl(p_old_repln_rec.attribute24,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
3100: l_attribute24 := p_old_repln_rec.attribute24;
3101: END IF;
3102: ELSE
3095: l_attribute23 := p_REPLN_Rec.attribute23;
3096: END IF;
3097:
3098: IF (p_REPLN_Rec.attribute24 is null) or (p_REPLN_Rec.attribute24 = FND_API.G_MISS_CHAR) then
3099: IF nvl(p_old_repln_rec.attribute24,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
3100: l_attribute24 := p_old_repln_rec.attribute24;
3101: END IF;
3102: ELSE
3103: l_attribute24 := p_REPLN_Rec.attribute24;
3102: ELSE
3103: l_attribute24 := p_REPLN_Rec.attribute24;
3104: END IF;
3105:
3106: IF (p_REPLN_Rec.attribute25 is null) or (p_REPLN_Rec.attribute25 = FND_API.G_MISS_CHAR) then
3107: IF nvl(p_old_repln_rec.attribute25,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
3108: l_attribute25 := p_old_repln_rec.attribute25;
3109: END IF;
3110: ELSE
3103: l_attribute24 := p_REPLN_Rec.attribute24;
3104: END IF;
3105:
3106: IF (p_REPLN_Rec.attribute25 is null) or (p_REPLN_Rec.attribute25 = FND_API.G_MISS_CHAR) then
3107: IF nvl(p_old_repln_rec.attribute25,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
3108: l_attribute25 := p_old_repln_rec.attribute25;
3109: END IF;
3110: ELSE
3111: l_attribute25 := p_REPLN_Rec.attribute25;
3110: ELSE
3111: l_attribute25 := p_REPLN_Rec.attribute25;
3112: END IF;
3113:
3114: IF (p_REPLN_Rec.attribute26 is null) or (p_REPLN_Rec.attribute26 = FND_API.G_MISS_CHAR) then
3115: IF nvl(p_old_repln_rec.attribute26,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
3116: l_attribute26 := p_old_repln_rec.attribute26;
3117: END IF;
3118: ELSE
3111: l_attribute25 := p_REPLN_Rec.attribute25;
3112: END IF;
3113:
3114: IF (p_REPLN_Rec.attribute26 is null) or (p_REPLN_Rec.attribute26 = FND_API.G_MISS_CHAR) then
3115: IF nvl(p_old_repln_rec.attribute26,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
3116: l_attribute26 := p_old_repln_rec.attribute26;
3117: END IF;
3118: ELSE
3119: l_attribute26 := p_REPLN_Rec.attribute26;
3118: ELSE
3119: l_attribute26 := p_REPLN_Rec.attribute26;
3120: END IF;
3121:
3122: IF (p_REPLN_Rec.attribute27 is null) or (p_REPLN_Rec.attribute27 = FND_API.G_MISS_CHAR) then
3123: IF nvl(p_old_repln_rec.attribute27,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
3124: l_attribute27 := p_old_repln_rec.attribute27;
3125: END IF;
3126: ELSE
3119: l_attribute26 := p_REPLN_Rec.attribute26;
3120: END IF;
3121:
3122: IF (p_REPLN_Rec.attribute27 is null) or (p_REPLN_Rec.attribute27 = FND_API.G_MISS_CHAR) then
3123: IF nvl(p_old_repln_rec.attribute27,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
3124: l_attribute27 := p_old_repln_rec.attribute27;
3125: END IF;
3126: ELSE
3127: l_attribute27 := p_REPLN_Rec.attribute27;
3126: ELSE
3127: l_attribute27 := p_REPLN_Rec.attribute27;
3128: END IF;
3129:
3130: IF (p_REPLN_Rec.attribute28 is null) or (p_REPLN_Rec.attribute28 = FND_API.G_MISS_CHAR) then
3131: IF nvl(p_old_repln_rec.attribute28,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
3132: l_attribute28 := p_old_repln_rec.attribute28;
3133: END IF;
3134: ELSE
3127: l_attribute27 := p_REPLN_Rec.attribute27;
3128: END IF;
3129:
3130: IF (p_REPLN_Rec.attribute28 is null) or (p_REPLN_Rec.attribute28 = FND_API.G_MISS_CHAR) then
3131: IF nvl(p_old_repln_rec.attribute28,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
3132: l_attribute28 := p_old_repln_rec.attribute28;
3133: END IF;
3134: ELSE
3135: l_attribute28 := p_REPLN_Rec.attribute28;
3134: ELSE
3135: l_attribute28 := p_REPLN_Rec.attribute28;
3136: END IF;
3137:
3138: IF (p_REPLN_Rec.attribute29 is null) or (p_REPLN_Rec.attribute29 = FND_API.G_MISS_CHAR) then
3139: IF nvl(p_old_repln_rec.attribute29,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
3140: l_attribute29 := p_old_repln_rec.attribute29;
3141: END IF;
3142: ELSE
3135: l_attribute28 := p_REPLN_Rec.attribute28;
3136: END IF;
3137:
3138: IF (p_REPLN_Rec.attribute29 is null) or (p_REPLN_Rec.attribute29 = FND_API.G_MISS_CHAR) then
3139: IF nvl(p_old_repln_rec.attribute29,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
3140: l_attribute29 := p_old_repln_rec.attribute29;
3141: END IF;
3142: ELSE
3143: l_attribute29 := p_REPLN_Rec.attribute29;
3142: ELSE
3143: l_attribute29 := p_REPLN_Rec.attribute29;
3144: END IF;
3145:
3146: IF (p_REPLN_Rec.attribute30 is null) or (p_REPLN_Rec.attribute30 = FND_API.G_MISS_CHAR) then
3147: IF nvl(p_old_repln_rec.attribute30,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
3148: l_attribute30 := p_old_repln_rec.attribute30;
3149: END IF;
3150: ELSE
3143: l_attribute29 := p_REPLN_Rec.attribute29;
3144: END IF;
3145:
3146: IF (p_REPLN_Rec.attribute30 is null) or (p_REPLN_Rec.attribute30 = FND_API.G_MISS_CHAR) then
3147: IF nvl(p_old_repln_rec.attribute30,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
3148: l_attribute30 := p_old_repln_rec.attribute30;
3149: END IF;
3150: ELSE
3151: l_attribute30 := p_REPLN_Rec.attribute30;
3194: l_valid_def_rec := Csd_Repairs_Util.Is_DescFlex_Valid
3195: (p_api_name => 'Create_Repair_Order',
3196: p_desc_flex_name => 'CSD_REPAIRS',
3197: p_attr_values => x_dff_rec,
3198: p_validate_only => FND_API.G_FALSE);
3199: else
3200: l_valid_def_rec := CSD_REPAIRS_UTIL.Is_DescFlex_Valid
3201: (p_api_name => 'Create_Repair_Order',
3202: p_desc_flex_name => 'CSD_REPAIRS',
3200: l_valid_def_rec := CSD_REPAIRS_UTIL.Is_DescFlex_Valid
3201: (p_api_name => 'Create_Repair_Order',
3202: p_desc_flex_name => 'CSD_REPAIRS',
3203: p_attr_values => x_dff_rec,
3204: p_validate_only => FND_API.G_TRUE
3205: );
3206: end if;
3207: ELSE
3208: l_valid_def_rec := CSD_REPAIRS_UTIL.Is_DescFlex_Valid
3208: l_valid_def_rec := CSD_REPAIRS_UTIL.Is_DescFlex_Valid
3209: (p_api_name => 'Update_Repair_Order',
3210: p_desc_flex_name => 'CSD_REPAIRS',
3211: p_attr_values => x_dff_rec,
3212: p_validate_only => FND_API.G_TRUE
3213: );
3214: END IF;
3215: -- Check validation status from the above procedure call
3216: IF NOT (l_valid_def_rec) THEN
3213: );
3214: END IF;
3215: -- Check validation status from the above procedure call
3216: IF NOT (l_valid_def_rec) THEN
3217: RAISE Fnd_Api.G_EXC_ERROR;
3218: END IF;
3219:
3220: END IF; -- End of Validation Level IF Block
3221: --
3219:
3220: END IF; -- End of Validation Level IF Block
3221: --
3222: EXCEPTION
3223: WHEN Fnd_Api.G_EXC_ERROR THEN
3224: Jtf_Plsql_Api.HANDLE_EXCEPTIONS
3225: ( P_API_NAME => L_API_NAME
3226: ,P_PKG_NAME => G_PKG_NAME
3227: ,P_EXCEPTION_LEVEL => Fnd_Msg_Pub.G_MSG_LVL_ERROR
3229: ,X_MSG_COUNT => X_MSG_COUNT
3230: ,X_MSG_DATA => X_MSG_DATA
3231: ,X_RETURN_STATUS => X_RETURN_STATUS);
3232:
3233: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
3234: Jtf_Plsql_Api.HANDLE_EXCEPTIONS
3235: (P_API_NAME => L_API_NAME
3236: ,P_PKG_NAME => G_PKG_NAME
3237: ,P_EXCEPTION_LEVEL => Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR
3393: 'Entered Copy_Attachments API');
3394: END IF;
3395:
3396: -- Standard call to check for call compatibility.
3397: IF NOT Fnd_Api.Compatible_API_Call (l_api_version,
3398: p_api_version,
3399: l_api_name,
3400: G_PKG_NAME)
3401: THEN
3398: p_api_version,
3399: l_api_name,
3400: G_PKG_NAME)
3401: THEN
3402: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3403: END IF;
3404:
3405: -- Initialize message list if p_init_msg_list is set to TRUE.
3406: IF Fnd_Api.to_Boolean(p_init_msg_list) THEN
3402: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3403: END IF;
3404:
3405: -- Initialize message list if p_init_msg_list is set to TRUE.
3406: IF Fnd_Api.to_Boolean(p_init_msg_list) THEN
3407: Fnd_Msg_Pub.initialize;
3408: END IF;
3409:
3410: -- Initialize API return status to success
3407: Fnd_Msg_Pub.initialize;
3408: END IF;
3409:
3410: -- Initialize API return status to success
3411: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3412:
3413: IF(Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level) THEN
3414: Fnd_Log.STRING(Fnd_Log.Level_Statement,
3415: 'CSD.PLSQL.csd_repairs_pvt.copy_attachments',
3417: END IF;
3418:
3419: IF NOT (Csd_Process_Util.Validate_rep_line_id
3420: ( p_repair_line_id => p_original_ro_id)) THEN
3421: RAISE Fnd_Api.G_EXC_ERROR;
3422: END IF;
3423:
3424: IF(Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level) THEN
3425: Fnd_Log.STRING(Fnd_Log.Level_Statement,
3434: END IF;
3435:
3436: IF NOT (Csd_Process_Util.Validate_rep_line_id
3437: ( p_repair_line_id => p_new_ro_id)) THEN
3438: RAISE Fnd_Api.G_EXC_ERROR;
3439: END IF;
3440:
3441: IF(Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level) THEN
3442: Fnd_Log.STRING(Fnd_Log.Level_Statement,
3721:
3722: -- Api body ends here
3723:
3724: -- Standard check of p_commit.
3725: IF Fnd_Api.To_Boolean( p_commit ) THEN
3726: COMMIT;
3727: END IF;
3728:
3729: -- Standard call to get message count and if count is 1, get message info
3737: 'Copy Attachments completed successfully ');
3738: END IF;
3739:
3740: EXCEPTION
3741: WHEN Fnd_Api.G_EXC_ERROR THEN
3742: ROLLBACK TO Copy_Attachments;
3743: x_return_status := Fnd_Api.G_RET_STS_ERROR ;
3744: Fnd_Msg_Pub.Count_And_Get
3745: (p_count => x_msg_count,
3739:
3740: EXCEPTION
3741: WHEN Fnd_Api.G_EXC_ERROR THEN
3742: ROLLBACK TO Copy_Attachments;
3743: x_return_status := Fnd_Api.G_RET_STS_ERROR ;
3744: Fnd_Msg_Pub.Count_And_Get
3745: (p_count => x_msg_count,
3746: p_data => x_msg_data
3747: );
3750: 'CSD.PLSQL.csd_repairs_pvt.copy_attachments',
3751: 'EXC_ERROR ['||x_msg_data||']');
3752: END IF;
3753:
3754: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
3755: ROLLBACK TO Copy_Attachments;
3756: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ;
3757: Fnd_Msg_Pub.Count_And_Get (p_count => x_msg_count,
3758: p_data => x_msg_data );
3752: END IF;
3753:
3754: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
3755: ROLLBACK TO Copy_Attachments;
3756: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ;
3757: Fnd_Msg_Pub.Count_And_Get (p_count => x_msg_count,
3758: p_data => x_msg_data );
3759:
3760: IF ( Fnd_Log.LEVEL_EXCEPTION >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL ) THEN
3764: END IF;
3765:
3766: WHEN OTHERS THEN
3767: ROLLBACK TO Copy_Attachments;
3768: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ;
3769: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
3770: THEN
3771: Fnd_Msg_Pub.Add_Exc_Msg (G_PKG_NAME ,
3772: l_api_name );
3827: 'Entered Delete_Attachments API');
3828: END IF;
3829:
3830: -- Standard call to check for call compatibility.
3831: IF NOT Fnd_Api.Compatible_API_Call (l_api_version,
3832: p_api_version,
3833: l_api_name,
3834: G_PKG_NAME)
3835: THEN
3832: p_api_version,
3833: l_api_name,
3834: G_PKG_NAME)
3835: THEN
3836: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3837: END IF;
3838:
3839: -- Initialize message list if p_init_msg_list is set to TRUE.
3840: IF Fnd_Api.to_Boolean(p_init_msg_list) THEN
3836: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3837: END IF;
3838:
3839: -- Initialize message list if p_init_msg_list is set to TRUE.
3840: IF Fnd_Api.to_Boolean(p_init_msg_list) THEN
3841: Fnd_Msg_Pub.initialize;
3842: END IF;
3843:
3844: -- Initialize API return status to success
3841: Fnd_Msg_Pub.initialize;
3842: END IF;
3843:
3844: -- Initialize API return status to success
3845: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3846:
3847: IF(Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level) THEN
3848: Fnd_Log.STRING(Fnd_Log.Level_Statement,
3849: 'CSD.PLSQL.csd_repairs_pvt.delete_attachments',
3851: END IF;
3852:
3853: IF NOT (Csd_Process_Util.Validate_rep_line_id
3854: ( p_repair_line_id => p_repair_line_id)) THEN
3855: RAISE Fnd_Api.G_EXC_ERROR;
3856: END IF;
3857:
3858: IF(Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level) THEN
3859: Fnd_Log.STRING(Fnd_Log.Level_Statement,
3990:
3991: -- Api body ends here
3992:
3993: -- Standard check of p_commit.
3994: IF Fnd_Api.To_Boolean( p_commit ) THEN
3995: COMMIT;
3996: END IF;
3997:
3998: -- Standard call to get message count and if count is 1, get message info
4006: 'Delete_Attachments completed successfully');
4007: END IF;
4008:
4009: EXCEPTION
4010: WHEN Fnd_Api.G_EXC_ERROR THEN
4011: ROLLBACK TO Delete_Attachments;
4012: x_return_status := Fnd_Api.G_RET_STS_ERROR ;
4013: Fnd_Msg_Pub.Count_And_Get
4014: (p_count => x_msg_count,
4008:
4009: EXCEPTION
4010: WHEN Fnd_Api.G_EXC_ERROR THEN
4011: ROLLBACK TO Delete_Attachments;
4012: x_return_status := Fnd_Api.G_RET_STS_ERROR ;
4013: Fnd_Msg_Pub.Count_And_Get
4014: (p_count => x_msg_count,
4015: p_data => x_msg_data
4016: );
4019: 'CSD.PLSQL.csd_repairs_pvt.delete_attachments',
4020: 'EXC_ERROR ['||x_msg_data||']');
4021: END IF;
4022:
4023: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
4024: ROLLBACK TO Delete_Attachments;
4025: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ;
4026: Fnd_Msg_Pub.Count_And_Get (p_count => x_msg_count,
4027: p_data => x_msg_data );
4021: END IF;
4022:
4023: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
4024: ROLLBACK TO Delete_Attachments;
4025: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ;
4026: Fnd_Msg_Pub.Count_And_Get (p_count => x_msg_count,
4027: p_data => x_msg_data );
4028:
4029: IF ( Fnd_Log.LEVEL_EXCEPTION >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL ) THEN
4033: END IF;
4034:
4035: WHEN OTHERS THEN
4036: ROLLBACK TO Delete_Attachments;
4037: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ;
4038: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
4039: THEN
4040: Fnd_Msg_Pub.Add_Exc_Msg (G_PKG_NAME ,
4041: l_api_name );
4126: Fnd_Log.STRING (Fnd_Log.level_procedure,
4127: 'csd.plsql.csd_repairs_pvt.update_ro_status.begin',
4128: 'Entering update_ro_status private api');
4129: END IF;
4130: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
4131: Fnd_Msg_Pub.initialize;
4132: END IF;
4133: IF NOT Fnd_Api.compatible_api_call(l_api_version_number, p_api_version, l_api_name, g_pkg_name) THEN
4134: RAISE Fnd_Api.g_exc_unexpected_error;
4129: END IF;
4130: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
4131: Fnd_Msg_Pub.initialize;
4132: END IF;
4133: IF NOT Fnd_Api.compatible_api_call(l_api_version_number, p_api_version, l_api_name, g_pkg_name) THEN
4134: RAISE Fnd_Api.g_exc_unexpected_error;
4135: END IF;
4136:
4137: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
4130: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
4131: Fnd_Msg_Pub.initialize;
4132: END IF;
4133: IF NOT Fnd_Api.compatible_api_call(l_api_version_number, p_api_version, l_api_name, g_pkg_name) THEN
4134: RAISE Fnd_Api.g_exc_unexpected_error;
4135: END IF;
4136:
4137: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
4138: SAVEPOINT update_ro_status_pvt;
4133: IF NOT Fnd_Api.compatible_api_call(l_api_version_number, p_api_version, l_api_name, g_pkg_name) THEN
4134: RAISE Fnd_Api.g_exc_unexpected_error;
4135: END IF;
4136:
4137: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
4138: SAVEPOINT update_ro_status_pvt;
4139:
4140: l_repair_status_Rec := p_repair_status_rec;
4141:
4170: IF(ro_details_cur%NOTFOUND) THEN
4171: CLOSE ro_details_cur;
4172: Fnd_Message.SET_NAME('CSD','CSD_INVALID_REPAIR_ORDER');
4173: Fnd_Msg_Pub.ADD;
4174: RAISE Fnd_Api.G_EXC_ERROR;
4175: END IF;
4176: CLOSE ro_details_cur;
4177:
4178: OPEN flow_stat_cur(l_repair_status_Rec.repair_status_id);
4180: IF(flow_stat_cur%NOTFOUND) THEN
4181: CLOSE flow_stat_cur;
4182: Fnd_Message.SET_NAME('CSD','CSD_INVALID_FLOW_STATUS');
4183: Fnd_Msg_Pub.ADD;
4184: RAISE Fnd_Api.G_EXC_ERROR;
4185: END IF;
4186: CLOSE flow_stat_cur;
4187:
4188: IF (Fnd_Log.level_event >= Fnd_Log.g_current_runtime_level) THEN
4201: x_return_status => l_return_status,
4202: x_msg_count => l_msg_count,
4203: x_msg_data => l_msg_data );
4204:
4205: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
4206: RAISE Fnd_Api.G_EXC_ERROR;
4207: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
4208: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4209: END IF;
4202: x_msg_count => l_msg_count,
4203: x_msg_data => l_msg_data );
4204:
4205: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
4206: RAISE Fnd_Api.G_EXC_ERROR;
4207: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
4208: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4209: END IF;
4210:
4203: x_msg_data => l_msg_data );
4204:
4205: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
4206: RAISE Fnd_Api.G_EXC_ERROR;
4207: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
4208: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4209: END IF;
4210:
4211:
4204:
4205: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
4206: RAISE Fnd_Api.G_EXC_ERROR;
4207: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
4208: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4209: END IF;
4210:
4211:
4212: END IF;
4220: '-----step 5a: Calling another private api to validate and update status');
4221: END IF;
4222: Csd_Repairs_Pvt.UPDATE_FLOW_STATUS (
4223: p_api_version => 1.0,
4224: p_commit => Fnd_api.g_false,
4225: p_init_msg_list => Fnd_Api.g_false,
4226: p_validation_level => Fnd_Api.g_valid_level_full,
4227: x_return_status => l_return_status,
4228: x_msg_count => l_msg_count,
4221: END IF;
4222: Csd_Repairs_Pvt.UPDATE_FLOW_STATUS (
4223: p_api_version => 1.0,
4224: p_commit => Fnd_api.g_false,
4225: p_init_msg_list => Fnd_Api.g_false,
4226: p_validation_level => Fnd_Api.g_valid_level_full,
4227: x_return_status => l_return_status,
4228: x_msg_count => l_msg_count,
4229: x_msg_data => l_msg_data,
4222: Csd_Repairs_Pvt.UPDATE_FLOW_STATUS (
4223: p_api_version => 1.0,
4224: p_commit => Fnd_api.g_false,
4225: p_init_msg_list => Fnd_Api.g_false,
4226: p_validation_level => Fnd_Api.g_valid_level_full,
4227: x_return_status => l_return_status,
4228: x_msg_count => l_msg_count,
4229: x_msg_data => l_msg_data,
4230: p_repair_line_id => l_repair_status_rec.repair_line_id,
4236: p_check_access_flag => 'Y',
4237: p_object_version_number => l_repair_status_rec.object_version_number,
4238: x_object_version_number => x_object_version_number) ;
4239:
4240: IF(l_return_status = Fnd_Api.G_RET_STS_ERROR) THEN
4241: RAISE Fnd_Api.G_EXC_ERROR;
4242: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
4243: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4244: END IF;
4237: p_object_version_number => l_repair_status_rec.object_version_number,
4238: x_object_version_number => x_object_version_number) ;
4239:
4240: IF(l_return_status = Fnd_Api.G_RET_STS_ERROR) THEN
4241: RAISE Fnd_Api.G_EXC_ERROR;
4242: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
4243: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4244: END IF;
4245:
4238: x_object_version_number => x_object_version_number) ;
4239:
4240: IF(l_return_status = Fnd_Api.G_RET_STS_ERROR) THEN
4241: RAISE Fnd_Api.G_EXC_ERROR;
4242: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
4243: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4244: END IF;
4245:
4246:
4239:
4240: IF(l_return_status = Fnd_Api.G_RET_STS_ERROR) THEN
4241: RAISE Fnd_Api.G_EXC_ERROR;
4242: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
4243: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4244: END IF;
4245:
4246:
4247: -- Api body ends here
4246:
4247: -- Api body ends here
4248:
4249: -- Standard check of p_commit.
4250: IF Fnd_Api.to_boolean (p_commit) THEN
4251: COMMIT WORK;
4252: END IF;
4253:
4254: -- Standard call to get message count and IF count is get message info.
4260: 'Leaving update_ro_Status private api');
4261: END IF;
4262:
4263: EXCEPTION
4264: WHEN Fnd_Api.g_exc_error
4265: THEN
4266: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4267: ROLLBACK TO update_ro_status_pvt;
4268: Fnd_Msg_Pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
4262:
4263: EXCEPTION
4264: WHEN Fnd_Api.g_exc_error
4265: THEN
4266: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4267: ROLLBACK TO update_ro_status_pvt;
4268: Fnd_Msg_Pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
4269: IF (Fnd_Log.level_error >= Fnd_Log.g_current_runtime_level) THEN
4270: Fnd_Log.STRING (Fnd_Log.level_error,
4270: Fnd_Log.STRING (Fnd_Log.level_error,
4271: 'csd.plsql.csd_repairs_pvt.update_ro_status',
4272: 'EXC_ERROR[' || x_msg_data || ']');
4273: END IF;
4274: WHEN Fnd_Api.g_exc_unexpected_error
4275: THEN
4276: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4277: ROLLBACK TO update_ro_status_pvt;
4278: Fnd_Msg_Pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
4272: 'EXC_ERROR[' || x_msg_data || ']');
4273: END IF;
4274: WHEN Fnd_Api.g_exc_unexpected_error
4275: THEN
4276: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4277: ROLLBACK TO update_ro_status_pvt;
4278: Fnd_Msg_Pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
4279:
4280: IF (Fnd_Log.level_exception >= Fnd_Log.g_current_runtime_level) THEN
4283: 'EXC_UNEXP_ERROR[' || x_msg_data || ']');
4284: END IF;
4285: WHEN OTHERS
4286: THEN
4287: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4288: ROLLBACK TO update_ro_status_pvt;
4289:
4290: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error) THEN
4291: Fnd_Msg_Pub.add_exc_msg (g_pkg_name, l_api_name);
4397: -- Standard Start of API savepoint
4398: SAVEPOINT Update_Flow_Status;
4399:
4400: -- Standard call to check for call compatibility.
4401: IF NOT Fnd_Api.Compatible_API_Call (lc_api_version,
4402: p_api_version,
4403: lc_api_name ,
4404: G_PKG_NAME )
4405: THEN
4402: p_api_version,
4403: lc_api_name ,
4404: G_PKG_NAME )
4405: THEN
4406: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4407: END IF;
4408:
4409: -- Initialize message list if p_init_msg_list is set to TRUE.
4410: IF Fnd_Api.to_Boolean( p_init_msg_list ) THEN
4406: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4407: END IF;
4408:
4409: -- Initialize message list if p_init_msg_list is set to TRUE.
4410: IF Fnd_Api.to_Boolean( p_init_msg_list ) THEN
4411: Fnd_Msg_Pub.initialize;
4412: END IF;
4413:
4414: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
4416: 'Entered Update_Flow_Status');
4417: END IF;
4418:
4419: -- Initialize API return status to success
4420: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
4421:
4422: -- Api body starts
4423:
4424: -- STEP 1: Validate Mandatory Parameters.
4463: IF P_TO_FLOW_STATUS_ID IS NULL THEN
4464: -- "Unable to update repair status. A new status is required for the transition."
4465: Fnd_Message.Set_Name('CSD', 'CSD_FLEX_FLWSTS_TO_STATUS_REQD');
4466: Fnd_Msg_Pub.ADD;
4467: RAISE Fnd_Api.G_EXC_ERROR;
4468: END IF;
4469:
4470:
4471: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
4498: -- "Unable to update repair status. The status transition
4499: -- is not valid for the current repair type."
4500: Fnd_Message.Set_Name('CSD', 'CSD_FLEX_FLWSTS_INVALID');
4501: Fnd_Msg_Pub.ADD;
4502: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4503: ELSIF (l_reason_required_flag = 'Y') AND (p_reason_code IS NULL) THEN
4504: -- "Unable to update repair status. A reason is required for the transition."
4505: Fnd_Message.Set_Name('CSD', 'CSD_FLEX_FLWSTS_REASON_REQD');
4506: Fnd_Msg_Pub.ADD;
4504: -- "Unable to update repair status. A reason is required for the transition."
4505: Fnd_Message.Set_Name('CSD', 'CSD_FLEX_FLWSTS_REASON_REQD');
4506: Fnd_Msg_Pub.ADD;
4507: -- 5362259, chaging exception from G_EXC_UNEXPECTED_ERROR to G_EXC_ERROR
4508: RAISE Fnd_Api.G_EXC_ERROR;
4509: END IF;
4510:
4511: -- STEP 3: Check access if requested.
4512:
4531: -- rfieldma, 5494587,
4532: -- changing exception from G_EXC_UNEXPECTED_ERROR
4533: -- to G_EXC_ERROR so that the extra developer's error
4534: -- won't show.
4535: RAISE Fnd_Api.G_EXC_ERROR;
4536: END IF;
4537:
4538: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
4539: Fnd_Log.STRING(Fnd_Log.LEVEL_PROCEDURE, lc_mod_name,
4559: -- "Unable to update repair status.
4560: -- Invalid reason selected for the transition."
4561: Fnd_Message.Set_Name('CSD', 'CSD_FLEX_FLWSTS_INVD_REASON');
4562: Fnd_Msg_Pub.ADD;
4563: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4564: END IF;
4565: END IF;
4566:
4567: -- STEP 5: Launch Workflow.
4587: END IF;
4588:
4589: Launch_Flwsts_Wf (
4590: p_api_version => 1.0,
4591: p_commit => Fnd_Api.G_FALSE,
4592: p_init_msg_list => Fnd_Api.G_FALSE,
4593: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
4594: x_return_status => x_return_status,
4595: x_msg_count => x_msg_count,
4588:
4589: Launch_Flwsts_Wf (
4590: p_api_version => 1.0,
4591: p_commit => Fnd_Api.G_FALSE,
4592: p_init_msg_list => Fnd_Api.G_FALSE,
4593: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
4594: x_return_status => x_return_status,
4595: x_msg_count => x_msg_count,
4596: x_msg_data => x_msg_data,
4589: Launch_Flwsts_Wf (
4590: p_api_version => 1.0,
4591: p_commit => Fnd_Api.G_FALSE,
4592: p_init_msg_list => Fnd_Api.G_FALSE,
4593: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
4594: x_return_status => x_return_status,
4595: x_msg_count => x_msg_count,
4596: x_msg_data => x_msg_data,
4597: p_flwsts_wf_rec => l_flwsts_wf_rec
4596: x_msg_data => x_msg_data,
4597: p_flwsts_wf_rec => l_flwsts_wf_rec
4598: );
4599:
4600: IF x_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
4601: -- "Unable to update repair status.
4602: -- Failed to create the workflow process."
4603: Fnd_Message.Set_Name('CSD', 'CSD_FLEX_FLWSTS_WF_FAIL');
4604: Fnd_Msg_Pub.ADD;
4601: -- "Unable to update repair status.
4602: -- Failed to create the workflow process."
4603: Fnd_Message.Set_Name('CSD', 'CSD_FLEX_FLWSTS_WF_FAIL');
4604: Fnd_Msg_Pub.ADD;
4605: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4606: END IF;
4607:
4608: END IF;
4609:
4641: -- updated the repair order. Please requery the
4642: -- original data and try again.
4643: --Fnd_Message.Set_Name('CSD', 'CSD_FLEX_FLWSTS_OLD_VERSION');
4644: --Fnd_Msg_Pub.ADD;
4645: --RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4646: --END;
4647:
4648: if(sql%rowcount > 0) then
4649: -- swai: bug 6937272 (FP of 6882484)
4654: else
4655: --debug('object_Version mismatch');
4656: Fnd_Message.Set_Name('CSD', 'CSD_FLEX_FLWSTS_OLD_VERSION');
4657: Fnd_Msg_Pub.ADD;
4658: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4659: end if;
4660:
4661: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
4662: Fnd_Log.STRING(Fnd_Log.LEVEL_PROCEDURE, lc_mod_name,
4675:
4676:
4677: Csd_To_Form_Repair_History.Validate_And_Write
4678: (p_Api_Version_Number => 1.0 ,
4679: p_init_msg_list => Fnd_Api.G_FALSE,
4680: p_commit => Fnd_Api.G_FALSE,
4681: p_validation_level => NULL,
4682: p_action_code => 0,
4683: px_REPAIR_HISTORY_ID => x_repair_history_id,
4676:
4677: Csd_To_Form_Repair_History.Validate_And_Write
4678: (p_Api_Version_Number => 1.0 ,
4679: p_init_msg_list => Fnd_Api.G_FALSE,
4680: p_commit => Fnd_Api.G_FALSE,
4681: p_validation_level => NULL,
4682: p_action_code => 0,
4683: px_REPAIR_HISTORY_ID => x_repair_history_id,
4684: p_OBJECT_VERSION_NUMBER => NULL,
4717: -- Unable to update repair status. Adding repair activity
4718: -- process has failed.
4719: Fnd_Message.Set_Name('CSD', 'CSD_FLEX_FLWSTS_ACTY_FAIL');
4720: Fnd_Msg_Pub.ADD;
4721: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4722: END IF;
4723:
4724: END IF;
4725:
4733:
4734: -- Incident Id must be NULL.
4735: Csd_Process_Pvt.Close_status
4736: ( p_api_version => 1.0,
4737: p_commit => Fnd_Api.G_FALSE,
4738: p_init_msg_list => Fnd_Api.G_FALSE,
4739: p_validation_level => Csd_Process_Util.G_VALID_LEVEL_FULL,
4740: p_incident_id => NULL,
4741: p_repair_line_id => p_repair_line_id,
4734: -- Incident Id must be NULL.
4735: Csd_Process_Pvt.Close_status
4736: ( p_api_version => 1.0,
4737: p_commit => Fnd_Api.G_FALSE,
4738: p_init_msg_list => Fnd_Api.G_FALSE,
4739: p_validation_level => Csd_Process_Util.G_VALID_LEVEL_FULL,
4740: p_incident_id => NULL,
4741: p_repair_line_id => p_repair_line_id,
4742: x_return_status => x_return_status,
4748: -- Unable to update repair status. Adding repair activity
4749: -- process has failed.
4750: Fnd_Message.Set_Name('CSD', 'CSD_FLEX_FLWSTS_SR_FAIL');
4751: Fnd_Msg_Pub.ADD;
4752: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4753: END IF;
4754: END IF;
4755:
4756: -- STEP 9: Launch the Business Event.
4763: l_ro_status_bevent_rec.object_version_number := p_object_version_number;
4764:
4765: raise_ro_status_bevent
4766: ( p_ro_status_bevent_rec => l_ro_status_bevent_rec,
4767: p_commit => Fnd_Api.G_FALSE,
4768: x_return_status => x_return_status,
4769: x_msg_count => x_msg_count,
4770: x_msg_data => x_msg_data
4771: );
4775: -- Unable to update repair status. Failed
4776: -- to Initialize the business event.
4777: Fnd_Message.Set_Name('CSD', 'CSD_FLEX_FLWSTS_BE_FAIL');
4778: Fnd_Msg_Pub.ADD;
4779: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4780: END IF;
4781:
4782: --debug('update_flow_status: Step 11');
4783:
4794:
4795: --debug('update_flow_status: Step 12');
4796: CSD_REPAIR_MILESTONES_PVT.Create_Repair_Milestone
4797: ( p_api_version => 1.0,
4798: p_commit => Fnd_Api.G_FALSE,
4799: p_init_msg_list => Fnd_Api.G_FALSE,
4800: p_validation_level => Csd_Process_Util.G_VALID_LEVEL_FULL,
4801: x_return_status => x_return_status,
4802: x_msg_count => x_msg_count,
4795: --debug('update_flow_status: Step 12');
4796: CSD_REPAIR_MILESTONES_PVT.Create_Repair_Milestone
4797: ( p_api_version => 1.0,
4798: p_commit => Fnd_Api.G_FALSE,
4799: p_init_msg_list => Fnd_Api.G_FALSE,
4800: p_validation_level => Csd_Process_Util.G_VALID_LEVEL_FULL,
4801: x_return_status => x_return_status,
4802: x_msg_count => x_msg_count,
4803: x_msg_data => x_msg_data,
4810: -- Api body ends here
4811:
4812: --debug('update_flow_status: Step 13');
4813: -- Standard check of p_commit.
4814: IF Fnd_Api.To_Boolean( p_commit ) THEN
4815: COMMIT WORK;
4816: END IF;
4817: --debug('update_flow_status: Step 14');
4818:
4826: 'Leaving Update_Flow_Status');
4827: END IF;
4828:
4829: EXCEPTION
4830: WHEN Fnd_Api.G_EXC_ERROR THEN
4831: ROLLBACK TO Update_Flow_Status;
4832: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4833:
4834: Fnd_Msg_Pub.Count_And_Get
4828:
4829: EXCEPTION
4830: WHEN Fnd_Api.G_EXC_ERROR THEN
4831: ROLLBACK TO Update_Flow_Status;
4832: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4833:
4834: Fnd_Msg_Pub.Count_And_Get
4835: (p_count => x_msg_count,
4836: p_data => x_msg_data );
4840: Fnd_Log.STRING(Fnd_Log.LEVEL_EXCEPTION, lc_mod_name,
4841: 'EXC_ERROR['||x_msg_data||']');
4842: END IF;
4843:
4844: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
4845: ROLLBACK TO Update_Flow_Status;
4846: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4847:
4848: -- save message in fnd stack
4842: END IF;
4843:
4844: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
4845: ROLLBACK TO Update_Flow_Status;
4846: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4847:
4848: -- save message in fnd stack
4849: IF Fnd_Msg_Pub.Check_Msg_Level
4850: (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
4869: END IF;
4870:
4871: WHEN OTHERS THEN
4872: ROLLBACK TO Update_Flow_Status;
4873: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4874:
4875: -- save message in fnd stack
4876: IF Fnd_Msg_Pub.Check_Msg_Level
4877: (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
5041: -- Standard Start of API savepoint
5042: SAVEPOINT Update_Repair_Type;
5043:
5044: -- Standard call to check for call compatibility.
5045: IF NOT Fnd_Api.Compatible_API_Call (lc_api_version,
5046: p_api_version,
5047: lc_api_name ,
5048: G_PKG_NAME )
5049: THEN
5046: p_api_version,
5047: lc_api_name ,
5048: G_PKG_NAME )
5049: THEN
5050: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5051: END IF;
5052:
5053: -- Initialize message list if p_init_msg_list is set to TRUE.
5054: IF Fnd_Api.to_Boolean( p_init_msg_list ) THEN
5050: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5051: END IF;
5052:
5053: -- Initialize message list if p_init_msg_list is set to TRUE.
5054: IF Fnd_Api.to_Boolean( p_init_msg_list ) THEN
5055: Fnd_Msg_Pub.initialize;
5056: END IF;
5057:
5058: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
5060: 'Entered Update_Repair_Type');
5061: END IF;
5062:
5063: -- Initialize API return status to success
5064: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
5065:
5066: -- Api body starts
5067:
5068: -- Check the required parameters
5118: IF (p_to_repair_type_id IS NULL) THEN
5119: -- "Unable to update repair type. A new repair type is required for the transition."
5120: Fnd_Message.Set_Name('CSD', 'CSD_FLEX_RT_TO_RT_REQD');
5121: Fnd_Msg_Pub.ADD;
5122: RAISE Fnd_Api.G_EXC_ERROR;
5123: END IF;
5124:
5125:
5126: -- Validate whether the set up exists for transition of
5131: -- "Unable to update repair type. The repair type transition
5132: -- is not valid for the current status."
5133: Fnd_Message.Set_Name('CSD', 'CSD_FLEX_RT_TRANS_INVALID');
5134: Fnd_Msg_Pub.ADD;
5135: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5136: ELSIF (l_reason_required_flag = 'Y') AND (p_reason_code IS NULL) THEN
5137: -- "Unable to update repair type. A reason is required for the transition."
5138: Fnd_Message.Set_Name('CSD', 'CSD_FLEX_RT_REASON_REQD');
5139: Fnd_Msg_Pub.ADD;
5137: -- "Unable to update repair type. A reason is required for the transition."
5138: Fnd_Message.Set_Name('CSD', 'CSD_FLEX_RT_REASON_REQD');
5139: Fnd_Msg_Pub.ADD;
5140: --5362259, changing exeception from G_EXC_UPEXPECTED_ERROR to G_EXC_ERROR
5141: RAISE Fnd_Api.G_EXC_ERROR;
5142: END IF;
5143:
5144: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
5145: Fnd_Log.STRING(Fnd_Log.LEVEL_PROCEDURE, lc_mod_name,
5154: -- Unable to update repair type. The user does not
5155: -- have access to update the repair type.
5156: Fnd_Message.Set_Name('CSD', 'CSD_FLEX_RT_TRANS_NO_ACCESS');
5157: Fnd_Msg_Pub.ADD;
5158: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5159: END IF;
5160:
5161: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
5162: Fnd_Log.STRING(Fnd_Log.LEVEL_PROCEDURE, lc_mod_name,
5179: -- "Unable to update repair type.
5180: -- Invalid reason selected for the transition."
5181: Fnd_Message.Set_Name('CSD', 'CSD_FLEX_RT_INVD_REASON');
5182: Fnd_Msg_Pub.ADD;
5183: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5184: END IF;
5185: END IF;
5186:
5187: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
5210: -- updated the repair order. Please requery the
5211: -- original data and try again.
5212: Fnd_Message.Set_Name('CSD', 'CSD_FLEX_RT_TRANS_OLD_VERSION');
5213: Fnd_Msg_Pub.ADD;
5214: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5215: END;
5216:
5217: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
5218: Fnd_Log.STRING(Fnd_Log.LEVEL_PROCEDURE, lc_mod_name,
5327: -- Unable to update repair type. Adding repair activity
5328: -- process has failed.
5329: Fnd_Message.Set_Name('CSD', 'CSD_FLEX_RT_ACTIVITY_FAILED');
5330: Fnd_Msg_Pub.ADD;
5331: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5332: END IF;
5333:
5334: END IF;
5335:
5335:
5336: -- Api body ends here
5337:
5338: -- Standard check of p_commit.
5339: IF Fnd_Api.To_Boolean( p_commit ) THEN
5340: COMMIT WORK;
5341: END IF;
5342:
5343: -- Standard call to get message count and IF count is get message info.
5350: 'Leaving Update_Repair_Type');
5351: END IF;
5352:
5353: EXCEPTION
5354: WHEN Fnd_Api.G_EXC_ERROR THEN
5355: ROLLBACK TO Update_Repair_Type;
5356: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5357:
5358: Fnd_Msg_Pub.Count_And_Get
5352:
5353: EXCEPTION
5354: WHEN Fnd_Api.G_EXC_ERROR THEN
5355: ROLLBACK TO Update_Repair_Type;
5356: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5357:
5358: Fnd_Msg_Pub.Count_And_Get
5359: (p_count => x_msg_count,
5360: p_data => x_msg_data );
5364: Fnd_Log.STRING(Fnd_Log.LEVEL_EXCEPTION, lc_mod_name,
5365: 'EXC_ERROR['||x_msg_data||']');
5366: END IF;
5367:
5368: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5369: ROLLBACK TO Update_Repair_Type;
5370: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5371:
5372: -- save message in fnd stack
5366: END IF;
5367:
5368: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5369: ROLLBACK TO Update_Repair_Type;
5370: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5371:
5372: -- save message in fnd stack
5373: IF Fnd_Msg_Pub.Check_Msg_Level
5374: (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
5393: END IF;
5394:
5395: WHEN OTHERS THEN
5396: ROLLBACK TO Update_Repair_Type;
5397: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5398:
5399: -- save message in fnd stack
5400: IF Fnd_Msg_Pub.Check_Msg_Level
5401: (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
5537: -- Standard Start of API savepoint
5538: SAVEPOINT Launch_Flwsts_Wf;
5539:
5540: -- Standard call to check for call compatibility.
5541: IF NOT Fnd_Api.Compatible_API_Call (lc_api_version,
5542: p_api_version,
5543: lc_api_name,
5544: G_PKG_NAME)
5545: THEN
5542: p_api_version,
5543: lc_api_name,
5544: G_PKG_NAME)
5545: THEN
5546: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5547: END IF;
5548:
5549: -- Initialize message list if p_init_msg_list is set to TRUE.
5550: IF Fnd_Api.to_Boolean( p_init_msg_list ) THEN
5546: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5547: END IF;
5548:
5549: -- Initialize message list if p_init_msg_list is set to TRUE.
5550: IF Fnd_Api.to_Boolean( p_init_msg_list ) THEN
5551: Fnd_Msg_Pub.initialize;
5552: END IF;
5553:
5554: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
5556: 'Entered Launch_Flwsts_Wf');
5557: END IF;
5558:
5559: -- Initialize API return status to success
5560: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
5561:
5562: -- Api body starts
5563:
5564: -- Check the required parameters
5705:
5706: -- Api body ends here
5707:
5708: -- Standard check of p_commit.
5709: IF Fnd_Api.To_Boolean( p_commit ) THEN
5710: COMMIT WORK;
5711: END IF;
5712:
5713: -- Standard call to get message count and IF count is get message info.
5720: 'Leaving Launch_Flwsts_Wf');
5721: END IF;
5722:
5723: EXCEPTION
5724: WHEN Fnd_Api.G_EXC_ERROR THEN
5725: ROLLBACK TO Launch_Flwsts_Wf;
5726: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5727:
5728: Fnd_Msg_Pub.Count_And_Get
5722:
5723: EXCEPTION
5724: WHEN Fnd_Api.G_EXC_ERROR THEN
5725: ROLLBACK TO Launch_Flwsts_Wf;
5726: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5727:
5728: Fnd_Msg_Pub.Count_And_Get
5729: (p_count => x_msg_count,
5730: p_data => x_msg_data );
5734: Fnd_Log.STRING(Fnd_Log.LEVEL_EXCEPTION, lc_mod_name,
5735: 'EXC_ERROR['||x_msg_data||']');
5736: END IF;
5737:
5738: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5739: ROLLBACK TO Launch_Flwsts_Wf;
5740: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5741:
5742: -- save message in fnd stack
5736: END IF;
5737:
5738: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5739: ROLLBACK TO Launch_Flwsts_Wf;
5740: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5741:
5742: -- save message in fnd stack
5743: IF Fnd_Msg_Pub.Check_Msg_Level
5744: (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
5763: END IF;
5764:
5765: WHEN OTHERS THEN
5766: ROLLBACK TO Launch_Flwsts_Wf;
5767: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5768:
5769: -- save message in fnd stack
5770: IF Fnd_Msg_Pub.Check_Msg_Level
5771: (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
5848: -- Standard Start of API savepoint
5849: SAVEPOINT UPDATE_RO_STATUS_WEBSRVC_PVT;
5850:
5851: -- Standard call to check for call compatibility.
5852: IF NOT Fnd_Api.Compatible_API_Call (lc_api_version,
5853: p_api_version,
5854: lc_api_name,
5855: G_PKG_NAME)
5856: THEN
5853: p_api_version,
5854: lc_api_name,
5855: G_PKG_NAME)
5856: THEN
5857: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5858: END IF;
5859: --debug('security_group['||SYS_CONTEXT('FND','SECURITY_GROUP_ID')||']');
5860: --debug('resp_id['||SYS_CONTEXT('FND','RESP_ID')||']');
5861: --debug('resp_appl_id['||SYS_CONTEXT('FND','RESP_APPL_ID')||']');
5861: --debug('resp_appl_id['||SYS_CONTEXT('FND','RESP_APPL_ID')||']');
5862: --debug('operatingunit['||SYS_CONTEXT('FND','ORG_ID')||']');
5863:
5864: -- Initialize message list if p_init_msg_list is set to TRUE.
5865: IF Fnd_Api.to_Boolean( p_init_msg_list ) THEN
5866: Fnd_Msg_Pub.initialize;
5867: END IF;
5868:
5869: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
5870: Fnd_Log.STRING(Fnd_Log.LEVEL_PROCEDURE, lc_mod_name || '.BEGIN',
5871: 'Entered UPDATE_RO_STATUS_WEBSRVC');
5872: END IF;
5873:
5874: l_return_Status := Fnd_Api.G_RET_STS_SUCCESS;
5875:
5876: --debug('In plsql api to update ro status for web service['||to_char(p_repair_line_id)||']');
5877: csd_repairs_util.Check_WebSrvc_Security(
5878: p_repair_line_id => p_repair_line_id,
5877: csd_repairs_util.Check_WebSrvc_Security(
5878: p_repair_line_id => p_repair_line_id,
5879: x_return_status => l_return_status);
5880:
5881: IF(l_return_Status <> Fnd_Api.G_RET_STS_SUCCESS) THEN
5882: Fnd_Message.Set_Name('CSD', 'CSD_SECURITY_CHECK_FAILED');
5883: Fnd_Msg_Pub.ADD;
5884: RAISE Fnd_Api.G_EXC_ERROR;
5885: END IF;
5880:
5881: IF(l_return_Status <> Fnd_Api.G_RET_STS_SUCCESS) THEN
5882: Fnd_Message.Set_Name('CSD', 'CSD_SECURITY_CHECK_FAILED');
5883: Fnd_Msg_Pub.ADD;
5884: RAISE Fnd_Api.G_EXC_ERROR;
5885: END IF;
5886:
5887: l_repair_status_rec.repair_line_id := p_repair_line_id;
5888: l_repair_status_rec.repair_status := p_repair_status;
5895: --debug('calling update_ro_status private api');
5896: Csd_Repairs_Pvt.UPDATE_RO_STATUS(P_Api_Version => p_api_version,
5897: P_Commit => p_commit,
5898: P_Init_Msg_List => p_init_msg_list,
5899: P_Validation_Level => Fnd_Api.G_VALID_LEVEL_FULL,
5900: X_Return_Status => x_return_status,
5901: X_Msg_Count => x_msg_count,
5902: X_Msg_Data => x_msg_data,
5903: P_REPAIR_STATUS_REC => l_repair_status_rec,
5905: X_OBJECT_VERSION_NUMBER => l_object_Version_number);
5906: --
5907:
5908: -- Standard check of p_commit.
5909: IF Fnd_Api.To_Boolean( p_commit ) THEN
5910: COMMIT WORK;
5911: END IF;
5912:
5913: -- Standard call to get message count and IF count is get message info.
5920: 'Leaving UPDATE_RO_STATUS_WEBSRVC');
5921: END IF;
5922:
5923: EXCEPTION
5924: WHEN Fnd_Api.G_EXC_ERROR THEN
5925: ROLLBACK TO UPDATE_RO_STATUS_WEBSRVC_PVT;
5926: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5927:
5928: Fnd_Msg_Pub.Count_And_Get
5922:
5923: EXCEPTION
5924: WHEN Fnd_Api.G_EXC_ERROR THEN
5925: ROLLBACK TO UPDATE_RO_STATUS_WEBSRVC_PVT;
5926: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5927:
5928: Fnd_Msg_Pub.Count_And_Get
5929: (p_count => x_msg_count,
5930: p_data => x_msg_data );
5934: Fnd_Log.STRING(Fnd_Log.LEVEL_EXCEPTION, lc_mod_name,
5935: 'EXC_ERROR['||x_msg_data||']');
5936: END IF;
5937:
5938: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5939: ROLLBACK TO UPDATE_RO_STATUS_WEBSRVC_PVT;
5940: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5941:
5942: -- save message in fnd stack
5936: END IF;
5937:
5938: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5939: ROLLBACK TO UPDATE_RO_STATUS_WEBSRVC_PVT;
5940: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5941:
5942: -- save message in fnd stack
5943: IF Fnd_Msg_Pub.Check_Msg_Level
5944: (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
5963: END IF;
5964:
5965: WHEN OTHERS THEN
5966: ROLLBACK TO UPDATE_RO_STATUS_WEBSRVC_PVT;
5967: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5968:
5969: -- save message in fnd stack
5970: IF Fnd_Msg_Pub.Check_Msg_Level
5971: (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
6016:
6017: Savepoint ro_status_bevent_savepoint;
6018:
6019: -- Initialize API return status to success
6020: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
6021:
6022: -- Derive the Event Key
6023: Select csd_ro_status_bevent_key_s1.nextval into l_event_key from dual ;
6024:
6041: p_event_key => l_event_key,
6042: p_parameters => l_param_list);
6043:
6044: -- Standard check of p_commit.
6045: If FND_API.To_Boolean( p_commit ) then
6046: commit;
6047: End if;
6048:
6049: EXCEPTION
6047: End if;
6048:
6049: EXCEPTION
6050: When OTHERS then
6051: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6052: Rollback To ro_status_bevent_savepoint;
6053: If FND_MSG_PUB.Check_Msg_Level
6054: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)then
6055: FND_MSG_PUB.Add_Exc_Msg
6131: BEGIN
6132:
6133: --bug#9284580
6134: -- set the return status
6135: l_return_status := fnd_api.g_ret_sts_success;
6136: --bug#9284580
6137:
6138: IF ( funcmode = 'RUN' ) THEN
6139:
6168: end;
6169:
6170: if l_to_flow_status_id <> l_from_flow_status_id then
6171: csd_repairs_pvt.update_flow_status(p_api_version => 1.0,
6172: p_commit => fnd_api.g_false,
6173: p_init_msg_list => fnd_api.g_false,
6174: p_validation_level => fnd_api.g_valid_level_full,
6175: x_return_status => l_return_status,
6176: x_msg_count => l_msg_count,
6169:
6170: if l_to_flow_status_id <> l_from_flow_status_id then
6171: csd_repairs_pvt.update_flow_status(p_api_version => 1.0,
6172: p_commit => fnd_api.g_false,
6173: p_init_msg_list => fnd_api.g_false,
6174: p_validation_level => fnd_api.g_valid_level_full,
6175: x_return_status => l_return_status,
6176: x_msg_count => l_msg_count,
6177: x_msg_data => l_msg_data,
6170: if l_to_flow_status_id <> l_from_flow_status_id then
6171: csd_repairs_pvt.update_flow_status(p_api_version => 1.0,
6172: p_commit => fnd_api.g_false,
6173: p_init_msg_list => fnd_api.g_false,
6174: p_validation_level => fnd_api.g_valid_level_full,
6175: x_return_status => l_return_status,
6176: x_msg_count => l_msg_count,
6177: x_msg_data => l_msg_data,
6178: p_repair_line_id => l_repair_line_id,
6199: );
6200: */
6201: --bug#9284580
6202:
6203: IF NOT(l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
6204:
6205: resultout := 'COMPLETE:ERROR';
6206:
6207: l_module_name := 'UPDATE_RO_STATUS';
6270: IF p_msg_count = 1 THEN
6271:
6272: IF l_msg is null then
6273: l_msg := fnd_msg_pub.get(p_msg_index => 1,
6274: p_encoded => FND_API.G_FALSE );
6275: ELSE
6276: l_next_msg := fnd_msg_pub.get(p_msg_index => 1,
6277: p_encoded => FND_API.G_FALSE );
6278:
6273: l_msg := fnd_msg_pub.get(p_msg_index => 1,
6274: p_encoded => FND_API.G_FALSE );
6275: ELSE
6276: l_next_msg := fnd_msg_pub.get(p_msg_index => 1,
6277: p_encoded => FND_API.G_FALSE );
6278:
6279: l_msg := substr(l_msg ||'-'||rtrim(l_next_msg),1,2000);
6280: END IF;
6281:
6284: FOR i in 1..p_msg_count LOOP
6285:
6286: IF l_msg is null THEN
6287: l_msg := fnd_msg_pub.get(p_msg_index => i,
6288: p_encoded => FND_API.G_FALSE );
6289: ELSE
6290: l_next_msg := fnd_msg_pub.get(p_msg_index => i,
6291: p_encoded => FND_API.G_FALSE );
6292:
6287: l_msg := fnd_msg_pub.get(p_msg_index => i,
6288: p_encoded => FND_API.G_FALSE );
6289: ELSE
6290: l_next_msg := fnd_msg_pub.get(p_msg_index => i,
6291: p_encoded => FND_API.G_FALSE );
6292:
6293: l_msg := substr(l_msg ||'-'||rtrim(l_next_msg),1,2000);
6294:
6295: END IF;