92:
93:
94:
95: LOG_MESSAGE('p_api_version :'|| 1.0);
96: LOG_MESSAGE('p_Init_Msg_List :'|| 'FND_API.G_FALSE');
97: LOG_MESSAGE('p_commit :'|| 'FND_API.G_FALSE');
98: LOG_MESSAGE('P_repair_supplier_id :'|| Lv_repair_supplier_id);
99: LOG_MESSAGE('P_repair_supplier_org_id :'|| Lv_repair_org_id);
100: LOG_MESSAGE('P_repair_program :'|| Lv_repair_program);
93:
94:
95: LOG_MESSAGE('p_api_version :'|| 1.0);
96: LOG_MESSAGE('p_Init_Msg_List :'|| 'FND_API.G_FALSE');
97: LOG_MESSAGE('p_commit :'|| 'FND_API.G_FALSE');
98: LOG_MESSAGE('P_repair_supplier_id :'|| Lv_repair_supplier_id);
99: LOG_MESSAGE('P_repair_supplier_org_id :'|| Lv_repair_org_id);
100: LOG_MESSAGE('P_repair_program :'|| Lv_repair_program);
101: LOG_MESSAGE('P_dest_organization_id :'|| Lv_destination_org_id);
110: end loop;
111:
112: CSP_REPAIR_PO_GRP.CREATE_REPAIR_PO
113: (p_api_version => 1.0
114: ,p_Init_Msg_List => FND_API.G_FALSE
115: ,p_commit => FND_API.G_FALSE
116: ,P_repair_supplier_id => Lv_repair_supplier_id
117: ,P_repair_supplier_org_id => Lv_repair_org_id
118: ,P_repair_program => Lv_repair_program
111:
112: CSP_REPAIR_PO_GRP.CREATE_REPAIR_PO
113: (p_api_version => 1.0
114: ,p_Init_Msg_List => FND_API.G_FALSE
115: ,p_commit => FND_API.G_FALSE
116: ,P_repair_supplier_id => Lv_repair_supplier_id
117: ,P_repair_supplier_org_id => Lv_repair_org_id
118: ,P_repair_program => Lv_repair_program
119: ,P_dest_organization_id => Lv_destination_org_id
142: log_message('message data ='||X_Msg_Data);
143: END LOOP;
144: END IF ;
145:
146: IF X_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
147: LOG_MESSAGE('Error in Repair Req creation : FND_API.G_RET_STS_UNEXP_ERROR');
148: rollback ;
149: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
150: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
143: END LOOP;
144: END IF ;
145:
146: IF X_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
147: LOG_MESSAGE('Error in Repair Req creation : FND_API.G_RET_STS_UNEXP_ERROR');
148: rollback ;
149: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
150: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
151: LOG_MESSAGE('Error in Repair Req creation : FND_API.G_RET_STS_ERROR');
145:
146: IF X_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
147: LOG_MESSAGE('Error in Repair Req creation : FND_API.G_RET_STS_UNEXP_ERROR');
148: rollback ;
149: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
150: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
151: LOG_MESSAGE('Error in Repair Req creation : FND_API.G_RET_STS_ERROR');
152: rollback ;
153: RAISE FND_API.G_EXC_ERROR;
146: IF X_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
147: LOG_MESSAGE('Error in Repair Req creation : FND_API.G_RET_STS_UNEXP_ERROR');
148: rollback ;
149: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
150: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
151: LOG_MESSAGE('Error in Repair Req creation : FND_API.G_RET_STS_ERROR');
152: rollback ;
153: RAISE FND_API.G_EXC_ERROR;
154: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
147: LOG_MESSAGE('Error in Repair Req creation : FND_API.G_RET_STS_UNEXP_ERROR');
148: rollback ;
149: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
150: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
151: LOG_MESSAGE('Error in Repair Req creation : FND_API.G_RET_STS_ERROR');
152: rollback ;
153: RAISE FND_API.G_EXC_ERROR;
154: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
155: log_message('Successful in Creating Repair Req .');
149: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
150: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
151: LOG_MESSAGE('Error in Repair Req creation : FND_API.G_RET_STS_ERROR');
152: rollback ;
153: RAISE FND_API.G_EXC_ERROR;
154: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
155: log_message('Successful in Creating Repair Req .');
156: log_output('Successful in Creating Repair Req .');
157: select requisition_number into lv_req_number from csp_repair_po_headers
150: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
151: LOG_MESSAGE('Error in Repair Req creation : FND_API.G_RET_STS_ERROR');
152: rollback ;
153: RAISE FND_API.G_EXC_ERROR;
154: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
155: log_message('Successful in Creating Repair Req .');
156: log_output('Successful in Creating Repair Req .');
157: select requisition_number into lv_req_number from csp_repair_po_headers
158: where REQUISITION_HEADER_ID=X_requisition_header_id;
179:
180:
181: END IF ;
182: EXCEPTION
183: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
184: LOG_MESSAGE('Error in Release_new_ERO : FND_API.G_EXC_UNEXPECTED_ERROR');
185: LOG_MESSAGE(SQLERRM);
186: retcode := 1;
187: rollback ;
180:
181: END IF ;
182: EXCEPTION
183: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
184: LOG_MESSAGE('Error in Release_new_ERO : FND_API.G_EXC_UNEXPECTED_ERROR');
185: LOG_MESSAGE(SQLERRM);
186: retcode := 1;
187: rollback ;
188: log_message('Transaction rolled back');
187: rollback ;
188: log_message('Transaction rolled back');
189: log_message('----------------------------------------------------------');
190:
191: WHEN FND_API.G_EXC_ERROR THEN
192: LOG_MESSAGE('Error in Release_new_ERO : FND_API.G_EXC_ERROR');
193: LOG_MESSAGE(SQLERRM);
194: retcode := 1;
195: rollback ;
188: log_message('Transaction rolled back');
189: log_message('----------------------------------------------------------');
190:
191: WHEN FND_API.G_EXC_ERROR THEN
192: LOG_MESSAGE('Error in Release_new_ERO : FND_API.G_EXC_ERROR');
193: LOG_MESSAGE(SQLERRM);
194: retcode := 1;
195: rollback ;
196: log_message('Transaction rolled back');
233:
234: --fnd_global.apps_initialize(l_user_id, l_level_value, l_appl_id);
235:
236: LOG_MESSAGE('p_api_version :'|| 1.0);
237: LOG_MESSAGE('p_Init_Msg_List :'|| 'FND_API.G_FALSE');
238: LOG_MESSAGE('p_commit :'|| 'FND_API.G_FALSE');
239: LOG_MESSAGE('P_repair_supplier_id :'|| Lv_repair_supplier_id);
240: LOG_MESSAGE('P_repair_supplier_org_id :'|| Lv_repair_org_id);
241: LOG_MESSAGE('P_repair_program :'|| Lv_repair_program);
234: --fnd_global.apps_initialize(l_user_id, l_level_value, l_appl_id);
235:
236: LOG_MESSAGE('p_api_version :'|| 1.0);
237: LOG_MESSAGE('p_Init_Msg_List :'|| 'FND_API.G_FALSE');
238: LOG_MESSAGE('p_commit :'|| 'FND_API.G_FALSE');
239: LOG_MESSAGE('P_repair_supplier_id :'|| Lv_repair_supplier_id);
240: LOG_MESSAGE('P_repair_supplier_org_id :'|| Lv_repair_org_id);
241: LOG_MESSAGE('P_repair_program :'|| Lv_repair_program);
242: LOG_MESSAGE('P_dest_organization_id :'|| Lv_destination_org_id);
252: end loop;
253:
254: CSP_REPAIR_PO_GRP.CREATE_REPAIR_PO
255: (p_api_version => 1.0
256: ,p_Init_Msg_List => FND_API.G_FALSE
257: ,p_commit => FND_API.G_FALSE
258: ,P_repair_supplier_id => Lv_repair_supplier_id
259: ,P_repair_supplier_org_id => Lv_repair_org_id
260: ,P_repair_program => Lv_repair_program
253:
254: CSP_REPAIR_PO_GRP.CREATE_REPAIR_PO
255: (p_api_version => 1.0
256: ,p_Init_Msg_List => FND_API.G_FALSE
257: ,p_commit => FND_API.G_FALSE
258: ,P_repair_supplier_id => Lv_repair_supplier_id
259: ,P_repair_supplier_org_id => Lv_repair_org_id
260: ,P_repair_program => Lv_repair_program
261: ,P_dest_organization_id => Lv_destination_org_id
284: log_message('message data ='||X_Msg_Data);
285: END LOOP;
286: END IF ;
287:
288: IF X_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
289: LOG_MESSAGE('Error in Repair req creation : FND_API.G_RET_STS_UNEXP_ERROR');
290: rollback ;
291: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
292: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
285: END LOOP;
286: END IF ;
287:
288: IF X_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
289: LOG_MESSAGE('Error in Repair req creation : FND_API.G_RET_STS_UNEXP_ERROR');
290: rollback ;
291: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
292: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
293: LOG_MESSAGE('Error in Repair Req creation : FND_API.G_RET_STS_ERROR');
287:
288: IF X_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
289: LOG_MESSAGE('Error in Repair req creation : FND_API.G_RET_STS_UNEXP_ERROR');
290: rollback ;
291: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
292: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
293: LOG_MESSAGE('Error in Repair Req creation : FND_API.G_RET_STS_ERROR');
294: rollback ;
295: RAISE FND_API.G_EXC_ERROR;
288: IF X_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
289: LOG_MESSAGE('Error in Repair req creation : FND_API.G_RET_STS_UNEXP_ERROR');
290: rollback ;
291: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
292: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
293: LOG_MESSAGE('Error in Repair Req creation : FND_API.G_RET_STS_ERROR');
294: rollback ;
295: RAISE FND_API.G_EXC_ERROR;
296: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
289: LOG_MESSAGE('Error in Repair req creation : FND_API.G_RET_STS_UNEXP_ERROR');
290: rollback ;
291: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
292: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
293: LOG_MESSAGE('Error in Repair Req creation : FND_API.G_RET_STS_ERROR');
294: rollback ;
295: RAISE FND_API.G_EXC_ERROR;
296: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
297: log_message('Successful in Creating Repair Req .');
291: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
292: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
293: LOG_MESSAGE('Error in Repair Req creation : FND_API.G_RET_STS_ERROR');
294: rollback ;
295: RAISE FND_API.G_EXC_ERROR;
296: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
297: log_message('Successful in Creating Repair Req .');
298: log_output('Successful in Creating Repair Req .');
299: select requisition_number into lv_req_number from csp_repair_po_headers
292: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
293: LOG_MESSAGE('Error in Repair Req creation : FND_API.G_RET_STS_ERROR');
294: rollback ;
295: RAISE FND_API.G_EXC_ERROR;
296: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
297: log_message('Successful in Creating Repair Req .');
298: log_output('Successful in Creating Repair Req .');
299: select requisition_number into lv_req_number from csp_repair_po_headers
300: where REQUISITION_HEADER_ID=X_requisition_header_id;
301: log_output('External Repair Requisition number :' ||lv_req_number);
302: Commit ;
303: END IF;
304: EXCEPTION
305: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
306: LOG_MESSAGE('Error in Release_new_ERO : FND_API.G_EXC_UNEXPECTED_ERROR');
307: LOG_MESSAGE(SQLERRM);
308: retcode := 1;
309: rollback ;
302: Commit ;
303: END IF;
304: EXCEPTION
305: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
306: LOG_MESSAGE('Error in Release_new_ERO : FND_API.G_EXC_UNEXPECTED_ERROR');
307: LOG_MESSAGE(SQLERRM);
308: retcode := 1;
309: rollback ;
310: log_message('Transaction rolled back');
309: rollback ;
310: log_message('Transaction rolled back');
311: log_message('----------------------------------------------------------');
312:
313: WHEN FND_API.G_EXC_ERROR THEN
314: LOG_MESSAGE('Error in Release_new_ERO : FND_API.G_EXC_ERROR');
315: LOG_MESSAGE(SQLERRM);
316: retcode := 1;
317: rollback ;
310: log_message('Transaction rolled back');
311: log_message('----------------------------------------------------------');
312:
313: WHEN FND_API.G_EXC_ERROR THEN
314: LOG_MESSAGE('Error in Release_new_ERO : FND_API.G_EXC_ERROR');
315: LOG_MESSAGE(SQLERRM);
316: retcode := 1;
317: rollback ;
318: log_message('Transaction rolled back');
340: select * from csd_repairs
341: where repair_line_id = p_repair_line_id ;
342:
343: l_repair_rec CSD_REPAIRS%rowtype;
344: l_Init_Msg_List VARCHAR2(1000):= FND_API.G_FALSE;
345: l_Commit VARCHAR2(1000):= FND_API.G_FALSE;
346: l_validation_level NUMBER:=FND_API.G_VALID_LEVEL_FULL;
347: Q_REPLN_Rec CSD_REPAIRS_PUB.REPLN_Rec_Type;
348: X_Return_Status VARCHAR2(1000);
341: where repair_line_id = p_repair_line_id ;
342:
343: l_repair_rec CSD_REPAIRS%rowtype;
344: l_Init_Msg_List VARCHAR2(1000):= FND_API.G_FALSE;
345: l_Commit VARCHAR2(1000):= FND_API.G_FALSE;
346: l_validation_level NUMBER:=FND_API.G_VALID_LEVEL_FULL;
347: Q_REPLN_Rec CSD_REPAIRS_PUB.REPLN_Rec_Type;
348: X_Return_Status VARCHAR2(1000);
349: p_Msg_Count NUMBER;
342:
343: l_repair_rec CSD_REPAIRS%rowtype;
344: l_Init_Msg_List VARCHAR2(1000):= FND_API.G_FALSE;
345: l_Commit VARCHAR2(1000):= FND_API.G_FALSE;
346: l_validation_level NUMBER:=FND_API.G_VALID_LEVEL_FULL;
347: Q_REPLN_Rec CSD_REPAIRS_PUB.REPLN_Rec_Type;
348: X_Return_Status VARCHAR2(1000);
349: p_Msg_Count NUMBER;
350: X_Msg_Data VARCHAR2(5000);
447: Fnd_file.put_line(fnd_file.LOG,l_msg);
448: END LOOP;
449: END IF;
450: END IF;
451: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
452: LOG_MESSAGE('Error in updating reapir order : FND_API.G_RET_STS_UNEXP_ERROR');
453: rollback ;
454: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
455: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
448: END LOOP;
449: END IF;
450: END IF;
451: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
452: LOG_MESSAGE('Error in updating reapir order : FND_API.G_RET_STS_UNEXP_ERROR');
453: rollback ;
454: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
455: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
456: LOG_MESSAGE('Error in updating reapir order : FND_API.G_RET_STS_ERROR');
450: END IF;
451: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
452: LOG_MESSAGE('Error in updating reapir order : FND_API.G_RET_STS_UNEXP_ERROR');
453: rollback ;
454: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
455: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
456: LOG_MESSAGE('Error in updating reapir order : FND_API.G_RET_STS_ERROR');
457: rollback ;
458: RAISE FND_API.G_EXC_ERROR;
451: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
452: LOG_MESSAGE('Error in updating reapir order : FND_API.G_RET_STS_UNEXP_ERROR');
453: rollback ;
454: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
455: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
456: LOG_MESSAGE('Error in updating reapir order : FND_API.G_RET_STS_ERROR');
457: rollback ;
458: RAISE FND_API.G_EXC_ERROR;
459: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
452: LOG_MESSAGE('Error in updating reapir order : FND_API.G_RET_STS_UNEXP_ERROR');
453: rollback ;
454: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
455: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
456: LOG_MESSAGE('Error in updating reapir order : FND_API.G_RET_STS_ERROR');
457: rollback ;
458: RAISE FND_API.G_EXC_ERROR;
459: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
460: log_message('Successful in Updating repair order .');
454: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
455: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
456: LOG_MESSAGE('Error in updating reapir order : FND_API.G_RET_STS_ERROR');
457: rollback ;
458: RAISE FND_API.G_EXC_ERROR;
459: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
460: log_message('Successful in Updating repair order .');
461: log_message('repair number :' ||l_repair_rec.repair_number);
462: END IF;
455: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
456: LOG_MESSAGE('Error in updating reapir order : FND_API.G_RET_STS_ERROR');
457: rollback ;
458: RAISE FND_API.G_EXC_ERROR;
459: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
460: log_message('Successful in Updating repair order .');
461: log_message('repair number :' ||l_repair_rec.repair_number);
462: END IF;
463: EXCEPTION
460: log_message('Successful in Updating repair order .');
461: log_message('repair number :' ||l_repair_rec.repair_number);
462: END IF;
463: EXCEPTION
464: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
465: LOG_MESSAGE('Error in updating reapir order : FND_API.G_EXC_UNEXPECTED_ERROR');
466: LOG_MESSAGE(SQLERRM);
467: retcode := 1;
468: rollback ;
461: log_message('repair number :' ||l_repair_rec.repair_number);
462: END IF;
463: EXCEPTION
464: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
465: LOG_MESSAGE('Error in updating reapir order : FND_API.G_EXC_UNEXPECTED_ERROR');
466: LOG_MESSAGE(SQLERRM);
467: retcode := 1;
468: rollback ;
469: log_message('Transaction rolled back');
468: rollback ;
469: log_message('Transaction rolled back');
470: log_message('----------------------------------------------------------');
471:
472: WHEN FND_API.G_EXC_ERROR THEN
473: LOG_MESSAGE('Error in updating reapir order : FND_API.G_EXC_ERROR');
474: LOG_MESSAGE(SQLERRM);
475: retcode := 1;
476: rollback ;
469: log_message('Transaction rolled back');
470: log_message('----------------------------------------------------------');
471:
472: WHEN FND_API.G_EXC_ERROR THEN
473: LOG_MESSAGE('Error in updating reapir order : FND_API.G_EXC_ERROR');
474: LOG_MESSAGE(SQLERRM);
475: retcode := 1;
476: rollback ;
477: log_message('Transaction rolled back');
739: p_service_request_rec.customer_id := l_customer_id ;
740: p_service_request_rec.customer_number := NULL;
741: p_service_request_rec.employee_id := NULL;
742: p_service_request_rec.employee_number := '';
743: p_service_request_rec.verify_cp_flag := FND_API.G_MISS_CHAR;
744: p_service_request_rec.customer_product_id := NULL;
745: p_service_request_rec.platform_id := NULL;
746: p_service_request_rec.platform_version_id := NULL;
747: p_service_request_rec.cp_component_id := NULL;
886: /* Call to CSD API to cretate Incident Id for repair Order */
887: BEGIN
888: cs_servicerequest_pub.create_servicerequest
889: (p_api_version => 3.0,
890: p_init_msg_list => FND_API.G_TRUE,
891: p_commit => FND_API.G_TRUE,
892: x_return_status => x_return_status,
893: x_msg_count => x_msg_count,
894: x_msg_data => x_msg_data,
887: BEGIN
888: cs_servicerequest_pub.create_servicerequest
889: (p_api_version => 3.0,
890: p_init_msg_list => FND_API.G_TRUE,
891: p_commit => FND_API.G_TRUE,
892: x_return_status => x_return_status,
893: x_msg_count => x_msg_count,
894: x_msg_data => x_msg_data,
895: p_resp_appl_id => NULL,
1039:
1040: LOG_MESSAGE('Calling API CSD_Repairs_PUB.Create_Repair_Order');
1041:
1042: CSD_Repairs_PUB.Create_Repair_Order(P_Api_Version_Number => 1.0,
1043: P_Init_Msg_List => FND_API.G_FALSE,
1044: P_Commit => FND_API.G_FALSE,
1045: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1046: P_REPAIR_LINE_ID => P_REPAIR_LINE_ID,
1047: P_REPLN_Rec => Q_REPLN_Rec,
1040: LOG_MESSAGE('Calling API CSD_Repairs_PUB.Create_Repair_Order');
1041:
1042: CSD_Repairs_PUB.Create_Repair_Order(P_Api_Version_Number => 1.0,
1043: P_Init_Msg_List => FND_API.G_FALSE,
1044: P_Commit => FND_API.G_FALSE,
1045: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1046: P_REPAIR_LINE_ID => P_REPAIR_LINE_ID,
1047: P_REPLN_Rec => Q_REPLN_Rec,
1048: p_create_default_logistics => p_create_default_logistics,
1041:
1042: CSD_Repairs_PUB.Create_Repair_Order(P_Api_Version_Number => 1.0,
1043: P_Init_Msg_List => FND_API.G_FALSE,
1044: P_Commit => FND_API.G_FALSE,
1045: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1046: P_REPAIR_LINE_ID => P_REPAIR_LINE_ID,
1047: P_REPLN_Rec => Q_REPLN_Rec,
1048: p_create_default_logistics => p_create_default_logistics,
1049: X_REPAIR_LINE_ID => X_REPAIR_LINE_ID,
1135:
1136: LOG_MESSAGE('Calling API WIP_MASSLOAD_PUB.createOneJob');
1137:
1138: WIP_MASSLOAD_PUB.createOneJob( p_interfaceID => l_group_id,
1139: p_validationLevel => FND_API.G_VALID_LEVEL_FULL,
1140: x_wipEntityID => x_wipEntityID,
1141: x_returnStatus => x_return_status,
1142: x_errorMsg => x_msg_data );
1143:
1145: LOG_MESSAGE('x_wipEntityID :'||x_wipEntityID);
1146:
1147: log_output('Wip Job:'||l_wip_job_name);
1148:
1149: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1150: LOG_MESSAGE('Error Rep-work order creation : FND_API.G_RET_STS_UNEXP_ERROR');
1151: -- /* rollback ; */ commit;
1152: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1153: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1146:
1147: log_output('Wip Job:'||l_wip_job_name);
1148:
1149: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1150: LOG_MESSAGE('Error Rep-work order creation : FND_API.G_RET_STS_UNEXP_ERROR');
1151: -- /* rollback ; */ commit;
1152: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1153: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1154: LOG_MESSAGE('Error in Rep-work order creation : FND_API.G_RET_STS_ERROR');
1148:
1149: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1150: LOG_MESSAGE('Error Rep-work order creation : FND_API.G_RET_STS_UNEXP_ERROR');
1151: -- /* rollback ; */ commit;
1152: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1153: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1154: LOG_MESSAGE('Error in Rep-work order creation : FND_API.G_RET_STS_ERROR');
1155: rollback ;
1156: RAISE FND_API.G_EXC_ERROR;
1149: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1150: LOG_MESSAGE('Error Rep-work order creation : FND_API.G_RET_STS_UNEXP_ERROR');
1151: -- /* rollback ; */ commit;
1152: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1153: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1154: LOG_MESSAGE('Error in Rep-work order creation : FND_API.G_RET_STS_ERROR');
1155: rollback ;
1156: RAISE FND_API.G_EXC_ERROR;
1157: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1150: LOG_MESSAGE('Error Rep-work order creation : FND_API.G_RET_STS_UNEXP_ERROR');
1151: -- /* rollback ; */ commit;
1152: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1153: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1154: LOG_MESSAGE('Error in Rep-work order creation : FND_API.G_RET_STS_ERROR');
1155: rollback ;
1156: RAISE FND_API.G_EXC_ERROR;
1157: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1158: LOG_MESSAGE('Successful in Creating Rep-work .');
1152: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1153: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1154: LOG_MESSAGE('Error in Rep-work order creation : FND_API.G_RET_STS_ERROR');
1155: rollback ;
1156: RAISE FND_API.G_EXC_ERROR;
1157: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1158: LOG_MESSAGE('Successful in Creating Rep-work .');
1159: LOG_MESSAGE('wip etity id :' ||x_wipEntityID);
1160: -- commit ;
1153: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1154: LOG_MESSAGE('Error in Rep-work order creation : FND_API.G_RET_STS_ERROR');
1155: rollback ;
1156: RAISE FND_API.G_EXC_ERROR;
1157: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1158: LOG_MESSAGE('Successful in Creating Rep-work .');
1159: LOG_MESSAGE('wip etity id :' ||x_wipEntityID);
1160: -- commit ;
1161: LOG_MESSAGE('-------------------------------------------------------------------');
1163:
1164: BEGIN -- Code to call API to link WIp job To REpair ORder
1165: csd_to_form_repair_job_xref.validate_and_write(
1166: p_api_version_number => 1.0,
1167: p_init_msg_list => FND_API.G_FALSE,
1168: p_commit => FND_API.G_FALSE,
1169: p_validation_level => NULL,
1170: p_action_code => 0,
1171: px_repair_job_xref_id => px_REPAIR_JOB_XREF_ID,
1164: BEGIN -- Code to call API to link WIp job To REpair ORder
1165: csd_to_form_repair_job_xref.validate_and_write(
1166: p_api_version_number => 1.0,
1167: p_init_msg_list => FND_API.G_FALSE,
1168: p_commit => FND_API.G_FALSE,
1169: p_validation_level => NULL,
1170: p_action_code => 0,
1171: px_repair_job_xref_id => px_REPAIR_JOB_XREF_ID,
1172: p_created_by => l_user_id,
1206: x_return_status => l_return_status,
1207: x_msg_count => X_Msg_Count,
1208: x_msg_data => X_Msg_Data);
1209:
1210: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1211: LOG_MESSAGE('Error Rep-work order updation : FND_API.G_RET_STS_UNEXP_ERROR');
1212: rollback ;
1213: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1214: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1207: x_msg_count => X_Msg_Count,
1208: x_msg_data => X_Msg_Data);
1209:
1210: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1211: LOG_MESSAGE('Error Rep-work order updation : FND_API.G_RET_STS_UNEXP_ERROR');
1212: rollback ;
1213: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1214: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1215: LOG_MESSAGE('Error in Rep-work order updation : FND_API.G_RET_STS_ERROR');
1209:
1210: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1211: LOG_MESSAGE('Error Rep-work order updation : FND_API.G_RET_STS_UNEXP_ERROR');
1212: rollback ;
1213: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1214: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1215: LOG_MESSAGE('Error in Rep-work order updation : FND_API.G_RET_STS_ERROR');
1216: rollback ;
1217: RAISE FND_API.G_EXC_ERROR;
1210: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1211: LOG_MESSAGE('Error Rep-work order updation : FND_API.G_RET_STS_UNEXP_ERROR');
1212: rollback ;
1213: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1214: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1215: LOG_MESSAGE('Error in Rep-work order updation : FND_API.G_RET_STS_ERROR');
1216: rollback ;
1217: RAISE FND_API.G_EXC_ERROR;
1218: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1211: LOG_MESSAGE('Error Rep-work order updation : FND_API.G_RET_STS_UNEXP_ERROR');
1212: rollback ;
1213: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1214: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1215: LOG_MESSAGE('Error in Rep-work order updation : FND_API.G_RET_STS_ERROR');
1216: rollback ;
1217: RAISE FND_API.G_EXC_ERROR;
1218: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1219: LOG_MESSAGE('Successful in updating Rep-work .');
1213: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1214: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1215: LOG_MESSAGE('Error in Rep-work order updation : FND_API.G_RET_STS_ERROR');
1216: rollback ;
1217: RAISE FND_API.G_EXC_ERROR;
1218: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1219: LOG_MESSAGE('Successful in updating Rep-work .');
1220: LOG_MESSAGE('px_REPAIR_JOB_XREF_ID :' ||px_REPAIR_JOB_XREF_ID);
1221: commit ;
1214: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1215: LOG_MESSAGE('Error in Rep-work order updation : FND_API.G_RET_STS_ERROR');
1216: rollback ;
1217: RAISE FND_API.G_EXC_ERROR;
1218: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1219: LOG_MESSAGE('Successful in updating Rep-work .');
1220: LOG_MESSAGE('px_REPAIR_JOB_XREF_ID :' ||px_REPAIR_JOB_XREF_ID);
1221: commit ;
1222: END IF;
1221: commit ;
1222: END IF;
1223: LOG_MESSAGE('Ending....');
1224: EXCEPTION
1225: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1226: LOG_MESSAGE('Error : FND_API.G_EXC_UNEXPECTED_ERROR');
1227: LOG_MESSAGE(SQLERRM);
1228: -- retcode := 1;
1229: -- rollback ;
1222: END IF;
1223: LOG_MESSAGE('Ending....');
1224: EXCEPTION
1225: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1226: LOG_MESSAGE('Error : FND_API.G_EXC_UNEXPECTED_ERROR');
1227: LOG_MESSAGE(SQLERRM);
1228: -- retcode := 1;
1229: -- rollback ;
1230: LOG_MESSAGE('Transaction rolled back');
1229: -- rollback ;
1230: LOG_MESSAGE('Transaction rolled back');
1231: LOG_MESSAGE('----------------------------------------------------------');
1232:
1233: WHEN FND_API.G_EXC_ERROR THEN
1234: LOG_MESSAGE('Error : FND_API.G_EXC_ERROR');
1235: LOG_MESSAGE(SQLERRM);
1236: -- retcode := 1;
1237: -- rollback ;
1230: LOG_MESSAGE('Transaction rolled back');
1231: LOG_MESSAGE('----------------------------------------------------------');
1232:
1233: WHEN FND_API.G_EXC_ERROR THEN
1234: LOG_MESSAGE('Error : FND_API.G_EXC_ERROR');
1235: LOG_MESSAGE(SQLERRM);
1236: -- retcode := 1;
1237: -- rollback ;
1238: LOG_MESSAGE('Transaction rolled back');
1249: END IF;
1250: LOG_MESSAGE('x_return_status :'||x_return_status);
1251: LOG_MESSAGE('Ending....');
1252: EXCEPTION
1253: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1254: LOG_MESSAGE('Error : FND_API.G_EXC_UNEXPECTED_ERROR');
1255: LOG_MESSAGE(SQLERRM);
1256: -- retcode := 1;
1257: -- rollback ;
1250: LOG_MESSAGE('x_return_status :'||x_return_status);
1251: LOG_MESSAGE('Ending....');
1252: EXCEPTION
1253: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1254: LOG_MESSAGE('Error : FND_API.G_EXC_UNEXPECTED_ERROR');
1255: LOG_MESSAGE(SQLERRM);
1256: -- retcode := 1;
1257: -- rollback ;
1258: LOG_MESSAGE('Transaction rolled back');
1257: -- rollback ;
1258: LOG_MESSAGE('Transaction rolled back');
1259: LOG_MESSAGE('----------------------------------------------------------');
1260:
1261: WHEN FND_API.G_EXC_ERROR THEN
1262: LOG_MESSAGE('Error : FND_API.G_EXC_ERROR');
1263: LOG_MESSAGE(SQLERRM);
1264: -- retcode := 1;
1265: -- rollback ;
1258: LOG_MESSAGE('Transaction rolled back');
1259: LOG_MESSAGE('----------------------------------------------------------');
1260:
1261: WHEN FND_API.G_EXC_ERROR THEN
1262: LOG_MESSAGE('Error : FND_API.G_EXC_ERROR');
1263: LOG_MESSAGE(SQLERRM);
1264: -- retcode := 1;
1265: -- rollback ;
1266: LOG_MESSAGE('Transaction rolled back');
1317:
1318: if (retcode=0 ) then
1319: CSD_Refurbish_IRO_GRP.Create_InternalRO
1320: ( 1.0,
1321: FND_API.G_FALSE,
1322: FND_API.G_FALSE,
1323: FND_API.G_VALID_LEVEL_FULL,
1324: x_return_status ,
1325: p_msg_count ,
1318: if (retcode=0 ) then
1319: CSD_Refurbish_IRO_GRP.Create_InternalRO
1320: ( 1.0,
1321: FND_API.G_FALSE,
1322: FND_API.G_FALSE,
1323: FND_API.G_VALID_LEVEL_FULL,
1324: x_return_status ,
1325: p_msg_count ,
1326: x_msg_data ,
1319: CSD_Refurbish_IRO_GRP.Create_InternalRO
1320: ( 1.0,
1321: FND_API.G_FALSE,
1322: FND_API.G_FALSE,
1323: FND_API.G_VALID_LEVEL_FULL,
1324: x_return_status ,
1325: p_msg_count ,
1326: x_msg_data ,
1327: l_req_header_id1,
1345: END IF;
1346:
1347: END IF;
1348:
1349: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1350: LOG_MESSAGE('Error in Repair order creation : FND_API.G_RET_STS_UNEXP_ERROR');
1351: rollback ;
1352: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1353: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1346:
1347: END IF;
1348:
1349: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1350: LOG_MESSAGE('Error in Repair order creation : FND_API.G_RET_STS_UNEXP_ERROR');
1351: rollback ;
1352: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1353: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1354: LOG_MESSAGE('Error in Repair order creation : FND_API.G_RET_STS_ERROR');
1348:
1349: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1350: LOG_MESSAGE('Error in Repair order creation : FND_API.G_RET_STS_UNEXP_ERROR');
1351: rollback ;
1352: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1353: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1354: LOG_MESSAGE('Error in Repair order creation : FND_API.G_RET_STS_ERROR');
1355: rollback ;
1356: RAISE FND_API.G_EXC_ERROR;
1349: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1350: LOG_MESSAGE('Error in Repair order creation : FND_API.G_RET_STS_UNEXP_ERROR');
1351: rollback ;
1352: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1353: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1354: LOG_MESSAGE('Error in Repair order creation : FND_API.G_RET_STS_ERROR');
1355: rollback ;
1356: RAISE FND_API.G_EXC_ERROR;
1357: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1350: LOG_MESSAGE('Error in Repair order creation : FND_API.G_RET_STS_UNEXP_ERROR');
1351: rollback ;
1352: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1353: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1354: LOG_MESSAGE('Error in Repair order creation : FND_API.G_RET_STS_ERROR');
1355: rollback ;
1356: RAISE FND_API.G_EXC_ERROR;
1357: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1358: log_message('Successful in Creating Repair Req .');
1352: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1353: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1354: LOG_MESSAGE('Error in Repair order creation : FND_API.G_RET_STS_ERROR');
1355: rollback ;
1356: RAISE FND_API.G_EXC_ERROR;
1357: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1358: log_message('Successful in Creating Repair Req .');
1359: log_message('service request number :' ||x_service_request_number);
1360: log_output('Successful in Creating Repair Req .');
1353: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1354: LOG_MESSAGE('Error in Repair order creation : FND_API.G_RET_STS_ERROR');
1355: rollback ;
1356: RAISE FND_API.G_EXC_ERROR;
1357: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1358: log_message('Successful in Creating Repair Req .');
1359: log_message('service request number :' ||x_service_request_number);
1360: log_output('Successful in Creating Repair Req .');
1361: log_output('service request number :' ||x_service_request_number);
1386: global_retcode := retcode;
1387: end if;
1388:
1389: EXCEPTION
1390: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1391: LOG_MESSAGE('Error in Release_new_IRO : FND_API.G_EXC_UNEXPECTED_ERROR');
1392: LOG_MESSAGE(SQLERRM);
1393: retcode := 1;
1394: rollback ;
1387: end if;
1388:
1389: EXCEPTION
1390: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1391: LOG_MESSAGE('Error in Release_new_IRO : FND_API.G_EXC_UNEXPECTED_ERROR');
1392: LOG_MESSAGE(SQLERRM);
1393: retcode := 1;
1394: rollback ;
1395: log_message('Transaction rolled back');
1394: rollback ;
1395: log_message('Transaction rolled back');
1396: log_message('----------------------------------------------------------');
1397:
1398: WHEN FND_API.G_EXC_ERROR THEN
1399: LOG_MESSAGE('Error in Release_new_IRO : FND_API.G_EXC_ERROR');
1400: LOG_MESSAGE(SQLERRM);
1401: retcode := 1;
1402: rollback ;
1395: log_message('Transaction rolled back');
1396: log_message('----------------------------------------------------------');
1397:
1398: WHEN FND_API.G_EXC_ERROR THEN
1399: LOG_MESSAGE('Error in Release_new_IRO : FND_API.G_EXC_ERROR');
1400: LOG_MESSAGE(SQLERRM);
1401: retcode := 1;
1402: rollback ;
1403: log_message('Transaction rolled back');