[Home] [Help]
25: p_data => x_msg_data_temp,
26: p_msg_index_out => l_msg_index_out);
27: x_msg_data := x_msg_data || x_msg_data_temp;
28: End Loop;
29: FND_FILE.put_line(FND_FILE.log,x_msg_data);
30: fnd_msg_pub.delete_msg;
31: g_retcode := 1;
32: End if;
33: End;
321: Fetch c_ump into l_ump_rec;
322: Exit When c_ump%NOTFOUND;
323: --- reuse the savepoint to rollback or commit transaction for each UMP
324: SAVEPOINT Generate_SR_Tasks_PVT;
325: FND_FILE.put_line(FND_FILE.log,'MESSAGE: Processing Effectivity==='||l_ump_rec.unit_effectivity_id);
326:
327: l_product_number := l_ump_rec.instance_number;
328: l_serial_number := l_ump_rec.serial_number;
329:
358:
359: l_service_request_rec.bill_to_party_id := l_ump_rec.billto_party_id;
360: l_service_request_rec.ship_to_party_id := l_ump_rec.shipto_party_id;
361:
362: FND_FILE.put_line(FND_FILE.log,'MESSAGE: Processing Instance Number='||l_service_request_rec.customer_product_id);
363: /* rhungund - note
364: Adding the following 2 rec parameters to address bug 4379140
365: */
366: l_service_request_rec.bill_to_account_id := l_ump_rec.owner_party_account_id;
398:
399:
400: END IF;
401:
402: --FND_FILE.put_line(FND_FILE.log,'MESSAGE: install_site_id*='||l_service_request_rec.install_site_id);
403:
404:
405: -- Get bill to and ship to sites
406: l_billto_site_id := null;
463: Update_ServiceRequest() API has no such restriction as it's create counterpart does.
464:
465: The Update_ServiceRequest() API is also newly added to address the same ER.
466: */
467: FND_FILE.put_line(FND_FILE.log,'MESSAGE: before calling cs_servicerequest_pub.Create_ServiceRequest API');
468:
469:
470: IF (nvl(l_primary_contact,'N') = 'N') THEN
471:
524: x_group_owner => x_group_owner,
525: x_individual_type => x_individual_type );
526:
527: END IF;
528: FND_FILE.put_line(FND_FILE.log,'MESSAGE: after calling cs_servicerequest_pub.Create_ServiceRequest API x_return_status='||x_return_status);
529:
530: If X_Return_status <> FND_API.G_RET_STS_SUCCESS Then
531: fnd_message.set_name('CSF','CSF_PM_SR_CREATION_ERROR');
532: fnd_message.set_token('VALUE1',l_ump_rec.unit_effectivity_id);
671: p_planned_start_date => nvl(l_ump_rec.earliest_due_date,l_ump_rec.due_date),
672: p_planned_end_date => to_date(nvl(l_ump_rec.latest_due_date,l_ump_rec.due_date)
673: || ' 23:59:59', 'dd-mon-yy hh24:mi:ss'),
674: p_timezone_id => l_service_request_rec.time_zone_id);
675: FND_FILE.put_line(FND_FILE.log,'MESSAGE:after create task x_return_status !='||x_return_status);
676: If X_Return_status <> FND_API.G_RET_STS_SUCCESS Then
677: fnd_message.set_name('CSF','CSF_PM_TASK_CREATION_ERROR');
678: fnd_message.set_token('VALUE1',l_ump_rec.unit_effectivity_id);
679: fnd_message.set_token('VALUE2',l_route_rec.route_id);
710:
711: If task_created Then
712: -- If 1=1 Then
713: COMMIT WORK;
714: FND_FILE.put_line(FND_FILE.log,'MESSAGE:after commit');
715: -- Customer confirmation process
716: -- Get customer cofirmation flag from contracts
717: oks_pm_entitlements_pub.Get_PM_Confirmation
718: (p_api_version => 1.0
911: End If;
912:
913:
914: END LOOP;
915: FND_FILE.put_line(FND_FILE.log,'MESSAGE: End of loop of UMPs !!! ');
916:
917: If not fnd_profile.save('CSFPM_LAST_RUN_DATE',trunc(sysdate),'SITE') Then
918:
919:
932: );
933: retcode := g_retcode;
934: EXCEPTION
935: WHEN FND_API.G_EXC_ERROR THEN
936: FND_FILE.put_line(FND_FILE.log,'MESSAGE: Inside exception 1');
937: retcode := 1;
938: errbuf := X_Msg_Data;
939: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
940: P_API_NAME => L_API_NAME
944: ,X_MSG_COUNT => X_MSG_COUNT
945: ,X_MSG_DATA => X_MSG_DATA
946: ,X_RETURN_STATUS => X_RETURN_STATUS);
947: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
948: FND_FILE.put_line(FND_FILE.log,'MESSAGE: Inside exception 2');
949: retcode := 1;
950: errbuf := X_Msg_Data;
951: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
952: P_API_NAME => L_API_NAME
956: ,X_MSG_COUNT => X_MSG_COUNT
957: ,X_MSG_DATA => X_MSG_DATA
958: ,X_RETURN_STATUS => X_RETURN_STATUS);
959: WHEN OTHERS THEN
960: FND_FILE.put_line(FND_FILE.log,'MESSAGE: Inside exception 3');
961: retcode := 1;
962: errbuf := X_Msg_Data;
963: l_sqlcode := SQLCODE;
964: l_sqlerrm := SQLERRM;
1069: l_unit_accomplish_tbl(l_count).counter_name := ump_rec.counter_name;
1070: l_unit_accomplish_tbl(l_count).counter_value := ump_rec.net_reading;
1071: l_unit_accomplish_tbl(l_count).operation_flag := 'C';
1072: End If;
1073: FND_FILE.put_line(FND_FILE.log, 'unit_effectivity_id = ' ||
1074: ump_rec.unit_effectivity_id);
1075: END LOOP;
1076: FND_FILE.put_line(FND_FILE.log, 'before calling
1077: ahl_ump_unitmaint_pub.capture_mr_updates');
1072: End If;
1073: FND_FILE.put_line(FND_FILE.log, 'unit_effectivity_id = ' ||
1074: ump_rec.unit_effectivity_id);
1075: END LOOP;
1076: FND_FILE.put_line(FND_FILE.log, 'before calling
1077: ahl_ump_unitmaint_pub.capture_mr_updates');
1078: ahl_ump_unitmaint_pub.capture_mr_updates
1079: (p_api_version => 1.0,
1080: p_init_msg_list => FND_API.G_FALSE,
1085: p_x_unit_accomplish_tbl => l_unit_accomplish_tbl,
1086: x_return_status => x_return_status,
1087: x_msg_count => x_msg_count,
1088: x_msg_data => x_msg_data);
1089: FND_FILE.put_line(FND_FILE.log, 'after calling
1090: ahl_ump_unitmaint_pub.capture_mr_updates x_return_status=' || x_return_status);
1091: If X_Return_status <> FND_API.G_RET_STS_SUCCESS Then
1092: FND_MSG_PUB.Count_and_Get(p_count => x_msg_count,p_data => x_msg_data);
1093: for i in 1..x_msg_count loop fnd_file.put_line (FND_FILE.log, SUBSTR(FND_MSG_PUB.GET(P_MSG_INDEX=> i, p_encoded => 'F'), 1, 254));
1089: FND_FILE.put_line(FND_FILE.log, 'after calling
1090: ahl_ump_unitmaint_pub.capture_mr_updates x_return_status=' || x_return_status);
1091: If X_Return_status <> FND_API.G_RET_STS_SUCCESS Then
1092: FND_MSG_PUB.Count_and_Get(p_count => x_msg_count,p_data => x_msg_data);
1093: for i in 1..x_msg_count loop fnd_file.put_line (FND_FILE.log, SUBSTR(FND_MSG_PUB.GET(P_MSG_INDEX=> i, p_encoded => 'F'), 1, 254));
1094: end loop;
1095: End If;
1096:
1097: COMMIT WORK;