122: x_visit_assign_code := null;
123:
124: -- Call VWP API.
125: /* AHL_VWP_VISITS_PVT.UMP_Visit_Info( p_api_version => 1.0,
126: p_init_msg_list => FND_API.G_FALSE,
127: p_commit => FND_API.G_FALSE,
128: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
129: p_unit_effectivity_id => p_unit_effectivity_id,
130: x_return_status => l_return_status,
123:
124: -- Call VWP API.
125: /* AHL_VWP_VISITS_PVT.UMP_Visit_Info( p_api_version => 1.0,
126: p_init_msg_list => FND_API.G_FALSE,
127: p_commit => FND_API.G_FALSE,
128: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
129: p_unit_effectivity_id => p_unit_effectivity_id,
130: x_return_status => l_return_status,
131: x_msg_count => l_msg_count,
124: -- Call VWP API.
125: /* AHL_VWP_VISITS_PVT.UMP_Visit_Info( p_api_version => 1.0,
126: p_init_msg_list => FND_API.G_FALSE,
127: p_commit => FND_API.G_FALSE,
128: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
129: p_unit_effectivity_id => p_unit_effectivity_id,
130: x_return_status => l_return_status,
131: x_msg_count => l_msg_count,
132: x_msg_data => l_msg_data,
132: x_msg_data => l_msg_data,
133: x_ump_visit_rec => l_ump_visit_rec);
134:
135:
136: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
137: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
138: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
139: RAISE FND_API.G_EXC_ERROR;
140: END IF; */
133: x_ump_visit_rec => l_ump_visit_rec);
134:
135:
136: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
137: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
138: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
139: RAISE FND_API.G_EXC_ERROR;
140: END IF; */
141:
134:
135:
136: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
137: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
138: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
139: RAISE FND_API.G_EXC_ERROR;
140: END IF; */
141:
142: open ahl_visit_csr (p_unit_effectivity_id);
135:
136: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
137: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
138: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
139: RAISE FND_API.G_EXC_ERROR;
140: END IF; */
141:
142: open ahl_visit_csr (p_unit_effectivity_id);
143: FETCH ahl_visit_csr INTO x_visit_start_date, l_visit_id;
145: /* Call vwp function to get visit end date */
146:
147: IF (ahl_visit_csr%FOUND) THEN
148: x_visit_End_date := AHL_VWP_TIMES_PVT.get_visit_end_time(p_visit_id => l_visit_id,
149: p_use_actuals => FND_API.G_FALSE);
150: END IF;
151:
152: close ahl_visit_csr;
153:
201: begin
202: /*
203: -- Call VWP API.
204: AHL_VWP_VISITS_PVT.UMP_Visit_Info( p_api_version => 1.0,
205: p_init_msg_list => FND_API.G_FALSE,
206: p_commit => FND_API.G_FALSE,
207: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
208: p_unit_effectivity_id => p_unit_effectivity_id,
209: x_return_status => l_return_status,
202: /*
203: -- Call VWP API.
204: AHL_VWP_VISITS_PVT.UMP_Visit_Info( p_api_version => 1.0,
205: p_init_msg_list => FND_API.G_FALSE,
206: p_commit => FND_API.G_FALSE,
207: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
208: p_unit_effectivity_id => p_unit_effectivity_id,
209: x_return_status => l_return_status,
210: x_msg_count => l_msg_count,
203: -- Call VWP API.
204: AHL_VWP_VISITS_PVT.UMP_Visit_Info( p_api_version => 1.0,
205: p_init_msg_list => FND_API.G_FALSE,
206: p_commit => FND_API.G_FALSE,
207: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
208: p_unit_effectivity_id => p_unit_effectivity_id,
209: x_return_status => l_return_status,
210: x_msg_count => l_msg_count,
211: x_msg_data => l_msg_data,
210: x_msg_count => l_msg_count,
211: x_msg_data => l_msg_data,
212: x_ump_visit_rec => l_ump_visit_rec);
213:
214: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
215: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
216: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
217: RAISE FND_API.G_EXC_ERROR;
218: END IF;
211: x_msg_data => l_msg_data,
212: x_ump_visit_rec => l_ump_visit_rec);
213:
214: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
215: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
216: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
217: RAISE FND_API.G_EXC_ERROR;
218: END IF;
219:
212: x_ump_visit_rec => l_ump_visit_rec);
213:
214: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
215: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
216: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
217: RAISE FND_API.G_EXC_ERROR;
218: END IF;
219:
220: */
213:
214: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
215: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
216: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
217: RAISE FND_API.G_EXC_ERROR;
218: END IF;
219:
220: */
221:
485:
486: -- call api to fetch all applicable mrs for ASO installation.
487: AHL_FMP_PVT.get_applicable_mrs(
488: p_api_version => l_api_version,
489: p_init_msg_list => FND_API.G_FALSE,
490: p_commit => FND_API.G_FALSE,
491: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
492: x_return_status => x_return_status,
493: x_msg_count => x_msg_count,
486: -- call api to fetch all applicable mrs for ASO installation.
487: AHL_FMP_PVT.get_applicable_mrs(
488: p_api_version => l_api_version,
489: p_init_msg_list => FND_API.G_FALSE,
490: p_commit => FND_API.G_FALSE,
491: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
492: x_return_status => x_return_status,
493: x_msg_count => x_msg_count,
494: x_msg_data => x_msg_data,
487: AHL_FMP_PVT.get_applicable_mrs(
488: p_api_version => l_api_version,
489: p_init_msg_list => FND_API.G_FALSE,
490: p_commit => FND_API.G_FALSE,
491: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
492: x_return_status => x_return_status,
493: x_msg_count => x_msg_count,
494: x_msg_data => x_msg_data,
495: p_item_instance_id => p_csi_ii_id,
498: x_applicable_mr_tbl => l_appl_mrs_tbl);
499:
500:
501: -- Raise errors if exceptions occur
502: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
503: RAISE FND_API.G_EXC_ERROR;
504: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
505: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
506: END IF;
499:
500:
501: -- Raise errors if exceptions occur
502: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
503: RAISE FND_API.G_EXC_ERROR;
504: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
505: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
506: END IF;
507:
500:
501: -- Raise errors if exceptions occur
502: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
503: RAISE FND_API.G_EXC_ERROR;
504: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
505: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
506: END IF;
507:
508: -- Populate temporary table ahl_applicable_mrs.
501: -- Raise errors if exceptions occur
502: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
503: RAISE FND_API.G_EXC_ERROR;
504: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
505: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
506: END IF;
507:
508: -- Populate temporary table ahl_applicable_mrs.
509: IF (l_appl_mrs_tbl.COUNT > 0) THEN