[Home] [Help]
178: x_return_status OUT NOCOPY VARCHAR2
179: )
180: AS
181: BEGIN
182: x_return_status:=FND_API.G_RET_STS_SUCCESS;
183:
184: IF p_cost_price_rec.visit_task_id IS NULL
185: THEN
186: FND_MESSAGE.SET_NAME('AHL','AHL_VWP_ESTMCOST_TASK_ID_NULL');
184: IF p_cost_price_rec.visit_task_id IS NULL
185: THEN
186: FND_MESSAGE.SET_NAME('AHL','AHL_VWP_ESTMCOST_TASK_ID_NULL');
187: FND_MSG_PUB.ADD;
188: x_return_status:=Fnd_Api.g_ret_sts_error;
189: END IF;
190: /*
191: IF p_cost_price_rec.mr_session_id IS NULL
192: THEN
203: END VALIDATE_EST_MR_COST;
204:
205: PROCEDURE ESTIMATE_MR_Cost (
206: p_api_version IN NUMBER,
207: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
208: p_commit IN VARCHAR2 :=Fnd_Api.g_false,
209: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
210: p_module_type IN VARCHAR2,
211: p_x_cost_price_rec IN OUT NOCOPY AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type,
204:
205: PROCEDURE ESTIMATE_MR_Cost (
206: p_api_version IN NUMBER,
207: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
208: p_commit IN VARCHAR2 :=Fnd_Api.g_false,
209: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
210: p_module_type IN VARCHAR2,
211: p_x_cost_price_rec IN OUT NOCOPY AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type,
212: x_return_status OUT NOCOPY VARCHAR2,
205: PROCEDURE ESTIMATE_MR_Cost (
206: p_api_version IN NUMBER,
207: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
208: p_commit IN VARCHAR2 :=Fnd_Api.g_false,
209: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
210: p_module_type IN VARCHAR2,
211: p_x_cost_price_rec IN OUT NOCOPY AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type,
212: x_return_status OUT NOCOPY VARCHAR2,
213: x_msg_count OUT NOCOPY NUMBER,
233: l_num_rec NUMBER;
234: l_msg_count NUMBER;
235: l_msg_data VARCHAR2(2000);
236: l_return_status VARCHAR2(1);
237: l_init_msg_list VARCHAR2(10):=FND_API.G_FALSE;
238: l_commit VARCHAR2(30) := Fnd_Api.G_FALSE;
239:
240:
241: l_release_visit_required VARCHAR2(1) :='N';
234: l_msg_count NUMBER;
235: l_msg_data VARCHAR2(2000);
236: l_return_status VARCHAR2(1);
237: l_init_msg_list VARCHAR2(10):=FND_API.G_FALSE;
238: l_commit VARCHAR2(30) := Fnd_Api.G_FALSE;
239:
240:
241: l_release_visit_required VARCHAR2(1) :='N';
242:
245: BEGIN
246:
247: SAVEPOINT ESTIMATE_MR_Cost_PVT;
248:
249: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
250: p_api_version,
251: l_api_name,G_PKG_NAME)
252: THEN
253: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
249: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
250: p_api_version,
251: l_api_name,G_PKG_NAME)
252: THEN
253: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
254: END IF;
255:
256: IF FND_API.to_boolean(p_init_msg_list)
257: THEN
252: THEN
253: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
254: END IF;
255:
256: IF FND_API.to_boolean(p_init_msg_list)
257: THEN
258: FND_MSG_PUB.initialize;
259: END IF;
260:
259: END IF;
260:
261: -- Initialize API return status to success
262:
263: x_return_status := FND_API.G_RET_STS_SUCCESS;
264:
265: l_cost_price_rec:= p_x_cost_price_rec;
266:
267:
321: (p_cost_price_rec =>l_cost_price_rec,
322: x_return_status =>x_return_status
323: );
324:
325: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
326: IF G_DEBUG='Y' THEN
327: AHL_DEBUG_PUB.Debug( G_MODULE_NAME||l_api_name ||' Validate Estimate MR Cost errored');
328: END IF;
329: RAISE Fnd_Api.G_EXC_ERROR;
325: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
326: IF G_DEBUG='Y' THEN
327: AHL_DEBUG_PUB.Debug( G_MODULE_NAME||l_api_name ||' Validate Estimate MR Cost errored');
328: END IF;
329: RAISE Fnd_Api.G_EXC_ERROR;
330: END IF;
331:
332:
333: -- Retrieve visit information
379: );
380: END IF;
381:
382: -- Check Error Message stack.
383: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
384: l_msg_count := FND_MSG_PUB.count_msg;
385: IF l_msg_count > 0 THEN
386: RAISE FND_API.G_EXC_ERROR;
387: END IF;
382: -- Check Error Message stack.
383: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
384: l_msg_count := FND_MSG_PUB.count_msg;
385: IF l_msg_count > 0 THEN
386: RAISE FND_API.G_EXC_ERROR;
387: END IF;
388: END IF;
389:
390: END IF; -- released required flag
405:
406: IF FND_MSG_PUB.count_msg > 0
407: THEN
408: x_msg_count := l_msg_count;
409: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
410: RAISE FND_API.G_EXC_ERROR;
411: END IF;
412:
413: IF FND_API.TO_BOOLEAN(p_commit) THEN
406: IF FND_MSG_PUB.count_msg > 0
407: THEN
408: x_msg_count := l_msg_count;
409: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
410: RAISE FND_API.G_EXC_ERROR;
411: END IF;
412:
413: IF FND_API.TO_BOOLEAN(p_commit) THEN
414: COMMIT;
409: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
410: RAISE FND_API.G_EXC_ERROR;
411: END IF;
412:
413: IF FND_API.TO_BOOLEAN(p_commit) THEN
414: COMMIT;
415: END IF;
416:
417:
429: END IF;
430:
431:
432: EXCEPTION
433: WHEN Fnd_Api.g_exc_error THEN
434: ROLLBACK TO ESTIMATE_MR_Cost_PVT;
435: x_return_status := Fnd_Api.g_ret_sts_error;
436: Fnd_Msg_Pub.count_and_get (
437: p_encoded => Fnd_Api.g_false,
431:
432: EXCEPTION
433: WHEN Fnd_Api.g_exc_error THEN
434: ROLLBACK TO ESTIMATE_MR_Cost_PVT;
435: x_return_status := Fnd_Api.g_ret_sts_error;
436: Fnd_Msg_Pub.count_and_get (
437: p_encoded => Fnd_Api.g_false,
438: p_count => x_msg_count,
439: p_data => x_msg_data
433: WHEN Fnd_Api.g_exc_error THEN
434: ROLLBACK TO ESTIMATE_MR_Cost_PVT;
435: x_return_status := Fnd_Api.g_ret_sts_error;
436: Fnd_Msg_Pub.count_and_get (
437: p_encoded => Fnd_Api.g_false,
438: p_count => x_msg_count,
439: p_data => x_msg_data
440: );
441: WHEN Fnd_Api.g_exc_unexpected_error THEN
437: p_encoded => Fnd_Api.g_false,
438: p_count => x_msg_count,
439: p_data => x_msg_data
440: );
441: WHEN Fnd_Api.g_exc_unexpected_error THEN
442: ROLLBACK TO ESTIMATE_MR_Cost_PVT;
443: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
444: Fnd_Msg_Pub.count_and_get (
445: p_encoded => Fnd_Api.g_false,
439: p_data => x_msg_data
440: );
441: WHEN Fnd_Api.g_exc_unexpected_error THEN
442: ROLLBACK TO ESTIMATE_MR_Cost_PVT;
443: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
444: Fnd_Msg_Pub.count_and_get (
445: p_encoded => Fnd_Api.g_false,
446: p_count => x_msg_count,
447: p_data => x_msg_data
441: WHEN Fnd_Api.g_exc_unexpected_error THEN
442: ROLLBACK TO ESTIMATE_MR_Cost_PVT;
443: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
444: Fnd_Msg_Pub.count_and_get (
445: p_encoded => Fnd_Api.g_false,
446: p_count => x_msg_count,
447: p_data => x_msg_data
448: );
449: WHEN OTHERS THEN
447: p_data => x_msg_data
448: );
449: WHEN OTHERS THEN
450: ROLLBACK TO ESTIMATE_MR_Cost_PVT;
451: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
452: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
453: THEN
454: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
455: END IF;
453: THEN
454: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
455: END IF;
456: Fnd_Msg_Pub.count_and_get (
457: p_encoded => Fnd_Api.g_false,
458: p_count => x_msg_count,
459: p_data => x_msg_data
460: );
461: END ESTIMATE_MR_COST;
466: ------
467:
468: PROCEDURE ESTIMATE_MR_PRICE (
469: p_api_version IN NUMBER,
470: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
471: p_commit IN VARCHAR2 :=Fnd_Api.g_false,
472: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
473: p_module_type IN VARCHAR2,
474: p_x_cost_price_rec IN OUT NOCOPY AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type,
467:
468: PROCEDURE ESTIMATE_MR_PRICE (
469: p_api_version IN NUMBER,
470: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
471: p_commit IN VARCHAR2 :=Fnd_Api.g_false,
472: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
473: p_module_type IN VARCHAR2,
474: p_x_cost_price_rec IN OUT NOCOPY AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type,
475: x_return_status OUT NOCOPY VARCHAR2,
468: PROCEDURE ESTIMATE_MR_PRICE (
469: p_api_version IN NUMBER,
470: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
471: p_commit IN VARCHAR2 :=Fnd_Api.g_false,
472: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
473: p_module_type IN VARCHAR2,
474: p_x_cost_price_rec IN OUT NOCOPY AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type,
475: x_return_status OUT NOCOPY VARCHAR2,
476: x_msg_count OUT NOCOPY NUMBER,
579: l_num_rec NUMBER;
580: l_msg_count NUMBER;
581: l_msg_data VARCHAR2(2000);
582: l_return_status VARCHAR2(1);
583: l_init_msg_list VARCHAR2(10):=FND_API.G_FALSE;
584: l_commit VARCHAR2(30) := Fnd_Api.G_FALSE;
585:
586: -- Variables for price calculation
587: l_actual_price NUMBER:=0;
580: l_msg_count NUMBER;
581: l_msg_data VARCHAR2(2000);
582: l_return_status VARCHAR2(1);
583: l_init_msg_list VARCHAR2(10):=FND_API.G_FALSE;
584: l_commit VARCHAR2(30) := Fnd_Api.G_FALSE;
585:
586: -- Variables for price calculation
587: l_actual_price NUMBER:=0;
588: l_estimate_price NUMBER:=0;
601: -- Standard start of API savepoint
602: SAVEPOINT ESTIMATE_MR_PRICE_PVT;
603:
604: -- Initialize message list if p_init_msg_list is set to TRUE
605: IF FND_API.To_Boolean( p_init_msg_list) THEN
606: FND_MSG_PUB.Initialize;
607: END IF;
608:
609: -- Initialize API return status to success
606: FND_MSG_PUB.Initialize;
607: END IF;
608:
609: -- Initialize API return status to success
610: x_return_status := FND_API.G_RET_STS_SUCCESS;
611:
612:
613: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
614: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
624:
625:
626: -- Check for Required Parameters
627: IF(l_cost_price_rec.visit_task_id IS NULL OR
628: l_cost_price_rec.visit_task_id = FND_API.G_MISS_NUM) THEN
629: FND_MESSAGE.Set_Name(G_PKG_NAME,'AHL_VWP_CST_INPUT_MISS');
630: FND_MSG_PUB.ADD;
631:
632:
634: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
635: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': ',
636: 'Visit Task id is mandatory but found null in input ');
637: END IF;
638: RAISE FND_API.G_EXC_ERROR;
639: END IF;
640:
641: -- Retrieve visit task info
642:
653: ' Visit Task not found in ahl_visit_tasks_b table ');
654: END IF;
655:
656: CLOSE c_task_csr;
657: RAISE FND_API.G_EXC_ERROR;
658: END IF;
659: CLOSE c_task_csr;
660:
661: -- Retrieve visit info
711: );
712: END IF;
713:
714: -- Check Error Message stack.
715: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
716: l_msg_count := FND_MSG_PUB.count_msg;
717: IF l_msg_count > 0 THEN
718: RAISE FND_API.G_EXC_ERROR;
719: END IF;
714: -- Check Error Message stack.
715: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
716: l_msg_count := FND_MSG_PUB.count_msg;
717: IF l_msg_count > 0 THEN
718: RAISE FND_API.G_EXC_ERROR;
719: END IF;
720: END IF;
721:
722:
746:
747: IF (l_job_status_code is NULL) THEN
748: l_msg_count := FND_MSG_PUB.count_msg;
749: IF l_msg_count > 0 THEN
750: RAISE FND_API.G_EXC_ERROR;
751: END IF;
752: END IF;
753:
754:
756: --- Populate attributes required by pricing API
757:
758: -- Populate customer ID if not passed
759: IF (l_cost_price_rec.Customer_Id is null) OR
760: (l_cost_price_rec.Customer_Id = FND_API.G_MISS_NUM) THEN
761:
762: open c_customer (l_visit_rec.service_request_id);
763: fetch c_customer into l_cost_price_rec.Customer_Id;
764: close c_customer;
766:
767:
768: -- Populate currency code if not passed
769: IF(l_cost_price_rec.currency IS NULL OR
770: l_cost_price_rec.currency = FND_API.G_MISS_CHAR) THEN
771:
772: ahl_vwp_rules_pvt.check_currency_for_costing
773: (
774: p_visit_id => l_task_rec.visit_id,
785: 'ahl.plsql.'||G_PKG_NAME||'.'||L_API_NAME,
786: 'No curency is defined for the organization of the visit'
787: );
788: END IF;
789: RAISE FND_API.G_EXC_ERROR;
790: END IF;
791: END IF; --If currency is null
792:
793:
792:
793:
794: -- Get the visit price list if not passed
795: IF (l_visit_rec.price_list_id IS NULL OR
796: l_visit_rec.price_list_id = FND_API.G_MISS_NUM ) THEN
797: FND_MESSAGE.set_name( 'AHL','AHL_VWP_PRICE_LIST_INVALID' );
798: FND_MSG_PUB.add;
799: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
800: fnd_log.string
803: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
804: 'Price list not found for Visit'
805: );
806: END IF;
807: RAISE FND_API.G_EXC_ERROR;
808: END IF;
809:
810: l_cost_price_rec.PRICE_LIST_ID:=l_visit_rec.price_list_id;
811: l_cost_price_rec.Organization_Id:=l_visit_rec.organization_id;
886: CLOSE get_summary_task_times_csr;
887:
888: -- Task Date can not be null
889: IF (l_cost_price_rec.task_start_date IS NULL OR
890: l_cost_price_rec.task_start_date = FND_API.G_MISS_DATE ) THEN
891:
892: FND_MESSAGE.set_name( 'AHL','AHL_VWP_VALIDATE_ERROR' );
893: FND_MSG_PUB.add;
894:
895: IF G_DEBUG='Y' THEN
896: Ahl_Debug_Pub.debug( l_full_name ||'Task Start Date is null');
897: END IF;
898:
899: RAISE FND_API.G_EXC_ERROR;
900: END IF;
901:
902: AHL_VWP_PRICE_PVT.get_item_price
903: (p_item_id =>l_mr_rec.billing_item_id,
912:
913:
914:
915: -- Check Error Message stack.
916: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
917: l_msg_count := FND_MSG_PUB.count_msg;
918: IF l_msg_count > 0 THEN
919: RAISE FND_API.G_EXC_ERROR;
920: END IF;
915: -- Check Error Message stack.
916: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
917: l_msg_count := FND_MSG_PUB.count_msg;
918: IF l_msg_count > 0 THEN
919: RAISE FND_API.G_EXC_ERROR;
920: END IF;
921: END IF;
922:
923: l_cost_price_rec.actual_price := nvl(l_price,0);
1027:
1028: AHL_VWP_MR_CST_PR_PVT.estimate_mr_price
1029: (
1030: p_api_version =>l_api_version,
1031: p_init_msg_list =>Fnd_Api.g_false,
1032: p_commit =>Fnd_Api.g_false,
1033: p_validation_level =>Fnd_Api.g_valid_level_full,
1034: P_MODULE_TYPE =>l_module_type,
1035: x_return_status =>x_return_Status,
1028: AHL_VWP_MR_CST_PR_PVT.estimate_mr_price
1029: (
1030: p_api_version =>l_api_version,
1031: p_init_msg_list =>Fnd_Api.g_false,
1032: p_commit =>Fnd_Api.g_false,
1033: p_validation_level =>Fnd_Api.g_valid_level_full,
1034: P_MODULE_TYPE =>l_module_type,
1035: x_return_status =>x_return_Status,
1036: x_msg_count =>x_msg_count,
1029: (
1030: p_api_version =>l_api_version,
1031: p_init_msg_list =>Fnd_Api.g_false,
1032: p_commit =>Fnd_Api.g_false,
1033: p_validation_level =>Fnd_Api.g_valid_level_full,
1034: P_MODULE_TYPE =>l_module_type,
1035: x_return_status =>x_return_Status,
1036: x_msg_count =>x_msg_count,
1037: x_msg_data =>x_msg_data,
1064:
1065: AHL_VWP_TASK_CST_PR_PVT.estimate_task_price
1066: (
1067: p_api_version =>l_api_version,
1068: p_init_msg_list =>Fnd_Api.g_false,
1069: p_commit =>Fnd_Api.g_false,
1070: p_validation_level =>Fnd_Api.g_valid_level_full,
1071: p_module_type =>l_module_type,
1072: x_return_status =>x_return_Status,
1065: AHL_VWP_TASK_CST_PR_PVT.estimate_task_price
1066: (
1067: p_api_version =>l_api_version,
1068: p_init_msg_list =>Fnd_Api.g_false,
1069: p_commit =>Fnd_Api.g_false,
1070: p_validation_level =>Fnd_Api.g_valid_level_full,
1071: p_module_type =>l_module_type,
1072: x_return_status =>x_return_Status,
1073: x_msg_count =>x_msg_count,
1066: (
1067: p_api_version =>l_api_version,
1068: p_init_msg_list =>Fnd_Api.g_false,
1069: p_commit =>Fnd_Api.g_false,
1070: p_validation_level =>Fnd_Api.g_valid_level_full,
1071: p_module_type =>l_module_type,
1072: x_return_status =>x_return_Status,
1073: x_msg_count =>x_msg_count,
1074: x_msg_data =>x_msg_data,
1162:
1163: END IF;
1164:
1165:
1166: IF FND_API.TO_BOOLEAN(p_commit) THEN
1167: COMMIT;
1168: END IF;
1169:
1170: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1174: END IF;
1175:
1176:
1177: EXCEPTION
1178: WHEN Fnd_Api.g_exc_error THEN
1179: ROLLBACK TO ESTIMATE_MR_PRICE_PVT;
1180: x_return_status := Fnd_Api.g_ret_sts_error;
1181: Fnd_Msg_Pub.count_and_get (
1182: p_encoded => Fnd_Api.g_false,
1176:
1177: EXCEPTION
1178: WHEN Fnd_Api.g_exc_error THEN
1179: ROLLBACK TO ESTIMATE_MR_PRICE_PVT;
1180: x_return_status := Fnd_Api.g_ret_sts_error;
1181: Fnd_Msg_Pub.count_and_get (
1182: p_encoded => Fnd_Api.g_false,
1183: p_count => x_msg_count,
1184: p_data => x_msg_data
1178: WHEN Fnd_Api.g_exc_error THEN
1179: ROLLBACK TO ESTIMATE_MR_PRICE_PVT;
1180: x_return_status := Fnd_Api.g_ret_sts_error;
1181: Fnd_Msg_Pub.count_and_get (
1182: p_encoded => Fnd_Api.g_false,
1183: p_count => x_msg_count,
1184: p_data => x_msg_data
1185: );
1186: WHEN Fnd_Api.g_exc_unexpected_error THEN
1182: p_encoded => Fnd_Api.g_false,
1183: p_count => x_msg_count,
1184: p_data => x_msg_data
1185: );
1186: WHEN Fnd_Api.g_exc_unexpected_error THEN
1187: ROLLBACK TO ESTIMATE_MR_PRICE_PVT;
1188: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1189: Fnd_Msg_Pub.count_and_get (
1190: p_encoded => Fnd_Api.g_false,
1184: p_data => x_msg_data
1185: );
1186: WHEN Fnd_Api.g_exc_unexpected_error THEN
1187: ROLLBACK TO ESTIMATE_MR_PRICE_PVT;
1188: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1189: Fnd_Msg_Pub.count_and_get (
1190: p_encoded => Fnd_Api.g_false,
1191: p_count => x_msg_count,
1192: p_data => x_msg_data
1186: WHEN Fnd_Api.g_exc_unexpected_error THEN
1187: ROLLBACK TO ESTIMATE_MR_PRICE_PVT;
1188: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1189: Fnd_Msg_Pub.count_and_get (
1190: p_encoded => Fnd_Api.g_false,
1191: p_count => x_msg_count,
1192: p_data => x_msg_data
1193: );
1194: WHEN OTHERS THEN
1192: p_data => x_msg_data
1193: );
1194: WHEN OTHERS THEN
1195: ROLLBACK TO ESTIMATE_MR_PRICE_PVT;
1196: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1197: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
1198: THEN
1199: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
1200: END IF;
1198: THEN
1199: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
1200: END IF;
1201: Fnd_Msg_Pub.count_and_get (
1202: p_encoded => Fnd_Api.g_false,
1203: p_count => x_msg_count,
1204: p_data => x_msg_data
1205: );
1206: END ESTIMATE_MR_PRICE;
1207:
1208:
1209: PROCEDURE get_mr_items_no_price(
1210: p_api_version IN NUMBER,
1211: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1212: p_commit IN VARCHAR2 :=Fnd_Api.g_false,
1213: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1214: p_module_type IN VARCHAR2,
1215: x_return_status OUT NOCOPY VARCHAR2,
1208:
1209: PROCEDURE get_mr_items_no_price(
1210: p_api_version IN NUMBER,
1211: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1212: p_commit IN VARCHAR2 :=Fnd_Api.g_false,
1213: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1214: p_module_type IN VARCHAR2,
1215: x_return_status OUT NOCOPY VARCHAR2,
1216: x_msg_count OUT NOCOPY NUMBER,
1209: PROCEDURE get_mr_items_no_price(
1210: p_api_version IN NUMBER,
1211: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1212: p_commit IN VARCHAR2 :=Fnd_Api.g_false,
1213: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1214: p_module_type IN VARCHAR2,
1215: x_return_status OUT NOCOPY VARCHAR2,
1216: x_msg_count OUT NOCOPY NUMBER,
1217: x_msg_data OUT NOCOPY VARCHAR2,
1411: END IF;
1412:
1413: SAVEPOINT Get_MR_Items_No_Price_pvt;
1414:
1415: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
1416: p_api_version,
1417: l_api_name,G_PKG_NAME)
1418: THEN
1419: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1415: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
1416: p_api_version,
1417: l_api_name,G_PKG_NAME)
1418: THEN
1419: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1420: END IF;
1421:
1422: IF FND_API.to_boolean(p_init_msg_list)
1423: THEN
1418: THEN
1419: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1420: END IF;
1421:
1422: IF FND_API.to_boolean(p_init_msg_list)
1423: THEN
1424: FND_MSG_PUB.initialize;
1425: END IF;
1426:
1425: END IF;
1426:
1427: -- initialize return status
1428:
1429: x_return_status:=FND_API.G_RET_STS_SUCCESS;
1430:
1431: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1432: fnd_log.string
1433: (
1440:
1441:
1442: -- Check for Required Parameters
1443: IF(l_cost_price_rec.visit_task_id IS NULL OR
1444: l_cost_price_rec.visit_task_id = FND_API.G_MISS_NUM) THEN
1445: FND_MESSAGE.Set_Name('AHL','AHL_VWP_CST_INPUT_MISS');
1446: FND_MSG_PUB.ADD;
1447: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1448: fnd_log.string
1451: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1452: 'Visit Task id is mandatory but found null in input '
1453: );
1454: END IF;
1455: RAISE FND_API.G_EXC_ERROR;
1456: END IF;
1457:
1458: -- retrieve task info
1459:
1472: 'Visit Task not found in ahl_visit_tasks_b table'
1473: );
1474: END IF;
1475: CLOSE c_task_csr;
1476: RAISE FND_API.G_EXC_ERROR;
1477: END IF;
1478: CLOSE c_task_csr;
1479:
1480: l_cost_price_rec.visit_id:=l_task_rec.visit_id;
1487: Then
1488: Fnd_Message.SET_NAME('AHL','AHL_VWP_VISIT_INVALID');
1489: Fnd_Msg_Pub.ADD;
1490: Close c_visit_csr;
1491: RAISE FND_API.G_EXC_ERROR;
1492: End if;
1493: Close c_visit_csr;
1494:
1495: -- Need to release visit only if the module type is JSP
1517:
1518: AHL_VWP_PROJ_PROD_PVT.release_visit
1519: (
1520: p_api_version =>l_api_version,
1521: p_init_msg_list =>Fnd_Api.g_false,
1522: p_commit =>Fnd_Api.g_false,
1523: p_validation_level =>Fnd_Api.g_valid_level_full,
1524: p_module_type => 'CST',
1525: x_return_status =>l_return_Status,
1518: AHL_VWP_PROJ_PROD_PVT.release_visit
1519: (
1520: p_api_version =>l_api_version,
1521: p_init_msg_list =>Fnd_Api.g_false,
1522: p_commit =>Fnd_Api.g_false,
1523: p_validation_level =>Fnd_Api.g_valid_level_full,
1524: p_module_type => 'CST',
1525: x_return_status =>l_return_Status,
1526: x_msg_count =>x_msg_count,
1519: (
1520: p_api_version =>l_api_version,
1521: p_init_msg_list =>Fnd_Api.g_false,
1522: p_commit =>Fnd_Api.g_false,
1523: p_validation_level =>Fnd_Api.g_valid_level_full,
1524: p_module_type => 'CST',
1525: x_return_status =>l_return_Status,
1526: x_msg_count =>x_msg_count,
1527: x_msg_data =>x_msg_data,
1537: );
1538: END IF;
1539:
1540: -- Check Error Message stack.
1541: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1542: l_msg_count := FND_MSG_PUB.count_msg;
1543: IF l_msg_count > 0 THEN
1544: RAISE FND_API.G_EXC_ERROR;
1545: END IF;
1540: -- Check Error Message stack.
1541: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1542: l_msg_count := FND_MSG_PUB.count_msg;
1543: IF l_msg_count > 0 THEN
1544: RAISE FND_API.G_EXC_ERROR;
1545: END IF;
1546: END IF;
1547:
1548: END IF; -- release required flag
1558: Then
1559: Fnd_Message.SET_NAME('AHL','AHL_VWP_MR_HEADER_ID_NULL');
1560: Fnd_Msg_Pub.ADD;
1561: Close c_mr_header;
1562: RAISE FND_API.G_EXC_ERROR;
1563: End if;
1564: Close c_mr_header;
1565: End if;
1566:
1569: If l_visit_rec.outside_party_flag ='N'
1570: then
1571: FND_MESSAGE.Set_Name('AHL','AHL_VWP_CST_OUTSDPRTY_FLAG');
1572: FND_MSG_PUB.ADD;
1573: RAISE FND_API.G_EXC_ERROR;
1574: --Display an error message `Visit number visit_number is not an outside party.'
1575: END if;
1576:
1577:
1578: -- Populate pricing attributes
1579:
1580: -- Populate price list ID
1581:
1582: if l_visit_rec.price_list_id is not Null and l_visit_rec.price_list_id <> FND_API.G_MISS_NUM
1583: then
1584: l_cost_price_rec.price_list_id :=l_visit_rec.price_list_id;
1585: Else
1586: FND_MESSAGE.Set_Name('AHL','AHL_VWP_CST_PRICELISTIDNULL'); --AHL_VWP_PRICE_LIST_ID_NULL
1584: l_cost_price_rec.price_list_id :=l_visit_rec.price_list_id;
1585: Else
1586: FND_MESSAGE.Set_Name('AHL','AHL_VWP_CST_PRICELISTIDNULL'); --AHL_VWP_PRICE_LIST_ID_NULL
1587: FND_MSG_PUB.ADD;
1588: RAISE FND_API.G_EXC_ERROR;
1589:
1590: END IF;
1591:
1592:
1613: END IF;
1614:
1615: -- Populate customer ID if not passed
1616: IF (l_cost_price_rec.Customer_Id is null) OR
1617: (l_cost_price_rec.Customer_Id = FND_API.G_MISS_NUM) THEN
1618:
1619: Open c_customer_csr(l_visit_rec.service_request_id);
1620: fetch c_customer_csr into l_cost_price_rec.customer_id;
1621: close c_customer_csr;
1631: END IF;
1632:
1633: -- Populate currency code if not passed
1634: IF(l_cost_price_rec.currency IS NULL OR
1635: l_cost_price_rec.currency = FND_API.G_MISS_CHAR) THEN
1636:
1637: AHL_VWP_RULES_PVT.check_currency_for_costing
1638: (p_visit_id =>l_task_rec.visit_id,
1639: x_currency_code =>l_cost_price_rec.currency
1650: 'ahl.plsql.'||G_PKG_NAME||'.'||L_API_NAME,
1651: 'No curency is defined for the organization of the visit'
1652: );
1653: END IF;
1654: RAISE FND_API.G_EXC_ERROR;
1655: END IF;
1656: END IF; --If currency is null
1657:
1658: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1675:
1676: IF (l_job_status_code is NULL) THEN
1677: l_msg_count := FND_MSG_PUB.count_msg;
1678: IF l_msg_count > 0 THEN
1679: RAISE FND_API.G_EXC_ERROR;
1680: END IF;
1681: END IF;
1682:
1683: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1713: CLOSE get_summary_task_times_csr;
1714:
1715: -- Task Date can not be null
1716: IF (l_cost_price_rec.task_start_date IS NULL OR
1717: l_cost_price_rec.task_start_date = FND_API.G_MISS_DATE ) THEN
1718:
1719: FND_MESSAGE.set_name( 'AHL','AHL_VWP_VALIDATE_ERROR' );
1720: FND_MSG_PUB.add;
1721:
1722: IF G_DEBUG='Y' THEN
1723: Ahl_Debug_Pub.debug( l_full_name ||'Task Start Date is null');
1724: END IF;
1725:
1726: RAISE FND_API.G_EXC_ERROR;
1727: END IF;
1728:
1729: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1730:
1757: x_return_status =>l_return_status
1758: );
1759:
1760: -- Check Error Message stack.
1761: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1762: l_msg_count := FND_MSG_PUB.count_msg;
1763: IF l_msg_count > 0 THEN
1764: RAISE FND_API.G_EXC_ERROR;
1765: END IF;
1760: -- Check Error Message stack.
1761: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1762: l_msg_count := FND_MSG_PUB.count_msg;
1763: IF l_msg_count > 0 THEN
1764: RAISE FND_API.G_EXC_ERROR;
1765: END IF;
1766: END IF;
1767:
1768: -- no price set up for the mr billing item
1893:
1894: AHL_VWP_MR_CST_PR_PVT.get_mr_items_no_price
1895: (
1896: p_api_version =>l_api_version,
1897: p_init_msg_list =>Fnd_Api.g_false,
1898: p_commit =>Fnd_Api.g_false,
1899: p_validation_level =>Fnd_Api.g_valid_level_full,
1900: p_module_type =>l_module_type,
1901: x_return_status =>l_return_status,
1894: AHL_VWP_MR_CST_PR_PVT.get_mr_items_no_price
1895: (
1896: p_api_version =>l_api_version,
1897: p_init_msg_list =>Fnd_Api.g_false,
1898: p_commit =>Fnd_Api.g_false,
1899: p_validation_level =>Fnd_Api.g_valid_level_full,
1900: p_module_type =>l_module_type,
1901: x_return_status =>l_return_status,
1902: x_msg_count =>x_msg_count,
1895: (
1896: p_api_version =>l_api_version,
1897: p_init_msg_list =>Fnd_Api.g_false,
1898: p_commit =>Fnd_Api.g_false,
1899: p_validation_level =>Fnd_Api.g_valid_level_full,
1900: p_module_type =>l_module_type,
1901: x_return_status =>l_return_status,
1902: x_msg_count =>x_msg_count,
1903: x_msg_data =>x_msg_data,
1903: x_msg_data =>x_msg_data,
1904: p_cost_price_rec =>l_temp_cost_price_rec,
1905: x_cost_price_tbl =>l_cost_price_tbl1
1906: );
1907: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1908: RAISE Fnd_Api.G_EXC_ERROR;
1909: END IF;
1910: else --- all other tasks
1911:
1904: p_cost_price_rec =>l_temp_cost_price_rec,
1905: x_cost_price_tbl =>l_cost_price_tbl1
1906: );
1907: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1908: RAISE Fnd_Api.G_EXC_ERROR;
1909: END IF;
1910: else --- all other tasks
1911:
1912:
1929:
1930: AHL_VWP_TASK_CST_PR_PVT.GET_TASK_ITEMS_NO_PRICE
1931: (
1932: p_api_version =>p_api_version,
1933: p_init_msg_list =>Fnd_Api.G_FALSE,
1934: p_commit =>Fnd_Api.G_FALSE,
1935: p_validation_level =>Fnd_Api.G_VALID_LEVEL_FULL,
1936: p_module_type =>l_module_type,
1937: x_return_status =>l_return_status,
1930: AHL_VWP_TASK_CST_PR_PVT.GET_TASK_ITEMS_NO_PRICE
1931: (
1932: p_api_version =>p_api_version,
1933: p_init_msg_list =>Fnd_Api.G_FALSE,
1934: p_commit =>Fnd_Api.G_FALSE,
1935: p_validation_level =>Fnd_Api.G_VALID_LEVEL_FULL,
1936: p_module_type =>l_module_type,
1937: x_return_status =>l_return_status,
1938: x_msg_count =>x_msg_count,
1931: (
1932: p_api_version =>p_api_version,
1933: p_init_msg_list =>Fnd_Api.G_FALSE,
1934: p_commit =>Fnd_Api.G_FALSE,
1935: p_validation_level =>Fnd_Api.G_VALID_LEVEL_FULL,
1936: p_module_type =>l_module_type,
1937: x_return_status =>l_return_status,
1938: x_msg_count =>x_msg_count,
1939: x_msg_data =>x_msg_data,
1939: x_msg_data =>x_msg_data,
1940: p_cost_price_rec =>l_temp_cost_price_rec,
1941: x_cost_price_tbl =>l_cost_price_tbl1
1942: );
1943: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1944: RAISE Fnd_Api.G_EXC_ERROR;
1945: END IF;
1946:
1947: END IF; ----- if child mr or other tasks
1940: p_cost_price_rec =>l_temp_cost_price_rec,
1941: x_cost_price_tbl =>l_cost_price_tbl1
1942: );
1943: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1944: RAISE Fnd_Api.G_EXC_ERROR;
1945: END IF;
1946:
1947: END IF; ----- if child mr or other tasks
1948:
1971:
1972: close c_mr_csr;
1973:
1974: -- Check Error Message stack.
1975: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1976: l_msg_count := FND_MSG_PUB.count_msg;
1977: IF l_msg_count > 0 THEN
1978: RAISE FND_API.G_EXC_ERROR;
1979: END IF;
1974: -- Check Error Message stack.
1975: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1976: l_msg_count := FND_MSG_PUB.count_msg;
1977: IF l_msg_count > 0 THEN
1978: RAISE FND_API.G_EXC_ERROR;
1979: END IF;
1980: END IF;
1981:
1982: x_cost_price_tbl:=l_cost_price_tbl;
1992: );
1993:
1994: END IF;
1995:
1996: IF FND_API.TO_BOOLEAN(p_commit) THEN
1997: COMMIT;
1998: END IF;
1999:
2000: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2005: END IF;
2006:
2007:
2008: EXCEPTION
2009: WHEN Fnd_Api.g_exc_error THEN
2010: ROLLBACK TO Get_MR_Items_No_Price_pvt;
2011: x_return_status := Fnd_Api.g_ret_sts_error;
2012: Fnd_Msg_Pub.count_and_get (
2013: p_encoded => Fnd_Api.g_false,
2007:
2008: EXCEPTION
2009: WHEN Fnd_Api.g_exc_error THEN
2010: ROLLBACK TO Get_MR_Items_No_Price_pvt;
2011: x_return_status := Fnd_Api.g_ret_sts_error;
2012: Fnd_Msg_Pub.count_and_get (
2013: p_encoded => Fnd_Api.g_false,
2014: p_count => x_msg_count,
2015: p_data => x_msg_data
2009: WHEN Fnd_Api.g_exc_error THEN
2010: ROLLBACK TO Get_MR_Items_No_Price_pvt;
2011: x_return_status := Fnd_Api.g_ret_sts_error;
2012: Fnd_Msg_Pub.count_and_get (
2013: p_encoded => Fnd_Api.g_false,
2014: p_count => x_msg_count,
2015: p_data => x_msg_data
2016: );
2017: WHEN Fnd_Api.g_exc_unexpected_error THEN
2013: p_encoded => Fnd_Api.g_false,
2014: p_count => x_msg_count,
2015: p_data => x_msg_data
2016: );
2017: WHEN Fnd_Api.g_exc_unexpected_error THEN
2018: ROLLBACK TO Get_MR_Items_No_Price_pvt;
2019: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2020: Fnd_Msg_Pub.count_and_get (
2021: p_encoded => Fnd_Api.g_false,
2015: p_data => x_msg_data
2016: );
2017: WHEN Fnd_Api.g_exc_unexpected_error THEN
2018: ROLLBACK TO Get_MR_Items_No_Price_pvt;
2019: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2020: Fnd_Msg_Pub.count_and_get (
2021: p_encoded => Fnd_Api.g_false,
2022: p_count => x_msg_count,
2023: p_data => x_msg_data
2017: WHEN Fnd_Api.g_exc_unexpected_error THEN
2018: ROLLBACK TO Get_MR_Items_No_Price_pvt;
2019: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2020: Fnd_Msg_Pub.count_and_get (
2021: p_encoded => Fnd_Api.g_false,
2022: p_count => x_msg_count,
2023: p_data => x_msg_data
2024: );
2025: WHEN OTHERS THEN
2023: p_data => x_msg_data
2024: );
2025: WHEN OTHERS THEN
2026: ROLLBACK TO Get_MR_Items_No_Price_pvt;
2027: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2028: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
2029: THEN
2030: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
2031: END IF;
2029: THEN
2030: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
2031: END IF;
2032: Fnd_Msg_Pub.count_and_get (
2033: p_encoded => Fnd_Api.g_false,
2034: p_count => x_msg_count,
2035: p_data => x_msg_data
2036: );
2037:
2040:
2041:
2042: PROCEDURE Get_MR_Cost_Details(
2043: p_api_version IN NUMBER,
2044: p_init_msg_list IN VARCHAR2 :=Fnd_Api.g_false,
2045: p_commit IN VARCHAR2 :=Fnd_Api.g_false,
2046: p_validation_level IN NUMBER :=Fnd_Api.g_valid_level_full,
2047: p_module_type IN VARCHAR2,
2048: p_x_cost_price_rec IN OUT NOCOPY AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type,
2041:
2042: PROCEDURE Get_MR_Cost_Details(
2043: p_api_version IN NUMBER,
2044: p_init_msg_list IN VARCHAR2 :=Fnd_Api.g_false,
2045: p_commit IN VARCHAR2 :=Fnd_Api.g_false,
2046: p_validation_level IN NUMBER :=Fnd_Api.g_valid_level_full,
2047: p_module_type IN VARCHAR2,
2048: p_x_cost_price_rec IN OUT NOCOPY AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type,
2049: x_return_status OUT NOCOPY VARCHAR2,
2042: PROCEDURE Get_MR_Cost_Details(
2043: p_api_version IN NUMBER,
2044: p_init_msg_list IN VARCHAR2 :=Fnd_Api.g_false,
2045: p_commit IN VARCHAR2 :=Fnd_Api.g_false,
2046: p_validation_level IN NUMBER :=Fnd_Api.g_valid_level_full,
2047: p_module_type IN VARCHAR2,
2048: p_x_cost_price_rec IN OUT NOCOPY AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type,
2049: x_return_status OUT NOCOPY VARCHAR2,
2050: x_msg_count OUT NOCOPY NUMBER,
2056: l_num_rec NUMBER;
2057: l_msg_count NUMBER;
2058: l_msg_data VARCHAR2(2000);
2059: l_return_status VARCHAR2(1);
2060: l_init_msg_list VARCHAR2(10):=FND_API.G_FALSE;
2061:
2062: l_visit_status VARCHAR2(30);
2063:
2064:
2101: BEGIN
2102:
2103: SAVEPOINT Get_MR_Cost_Details_PVT;
2104:
2105: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
2106: p_api_version,
2107: l_api_name,G_PKG_NAME)
2108: THEN
2109: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2105: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
2106: p_api_version,
2107: l_api_name,G_PKG_NAME)
2108: THEN
2109: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2110: END IF;
2111:
2112: IF FND_API.to_boolean(p_init_msg_list)
2113: THEN
2108: THEN
2109: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2110: END IF;
2111:
2112: IF FND_API.to_boolean(p_init_msg_list)
2113: THEN
2114: FND_MSG_PUB.initialize;
2115: END IF;
2116:
2113: THEN
2114: FND_MSG_PUB.initialize;
2115: END IF;
2116:
2117: x_return_status:=FND_API.G_RET_STS_SUCCESS;
2118:
2119: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2120: THEN
2121: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2151: 'Visit id not found in ahl_visits_b table'
2152: );
2153: END IF;
2154: CLOSE visit_info_csr;
2155: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2156: END IF;
2157: CLOSE visit_info_csr;
2158:
2159: --
2197:
2198: AHL_VWP_COST_PVT.calculate_wo_cost(
2199: p_api_version =>p_api_version,
2200: p_init_msg_list =>p_init_msg_list,
2201: p_commit =>FND_API.G_FALSE,
2202: p_validation_level =>p_validation_level,
2203: p_x_cost_price_rec =>l_cost_price_rec,
2204: x_return_status =>x_return_status
2205: );
2202: p_validation_level =>p_validation_level,
2203: p_x_cost_price_rec =>l_cost_price_rec,
2204: x_return_status =>x_return_status
2205: );
2206: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2207: RAISE Fnd_Api.G_EXC_ERROR;
2208: END IF;
2209:
2210: log_message('after call to calculate_wo_cost l_cost_price_rec.visit_id'||l_cost_price_rec.visit_id,l_api_name);
2203: p_x_cost_price_rec =>l_cost_price_rec,
2204: x_return_status =>x_return_status
2205: );
2206: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2207: RAISE Fnd_Api.G_EXC_ERROR;
2208: END IF;
2209:
2210: log_message('after call to calculate_wo_cost l_cost_price_rec.visit_id'||l_cost_price_rec.visit_id,l_api_name);
2211: log_message('after call to calculate_wo_cost l_cost_price_rec.estimated_price:'||l_cost_price_rec.estimated_price,l_api_name);
2227: x_actual_cost =>l_cost_price_rec.actual_cost,
2228: x_ESTIMATEd_cost =>l_cost_price_rec.ESTIMATEd_cost,
2229: x_return_status =>x_return_status
2230: );
2231: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2232: RAISE Fnd_Api.G_EXC_ERROR;
2233: END IF;
2234:
2235: log_message('after call to calculate_mr_cost l_cost_price_rec.visit_id'||l_cost_price_rec.visit_id,l_api_name);
2228: x_ESTIMATEd_cost =>l_cost_price_rec.ESTIMATEd_cost,
2229: x_return_status =>x_return_status
2230: );
2231: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2232: RAISE Fnd_Api.G_EXC_ERROR;
2233: END IF;
2234:
2235: log_message('after call to calculate_mr_cost l_cost_price_rec.visit_id'||l_cost_price_rec.visit_id,l_api_name);
2236: log_message('after call to calculate_mr_cost l_cost_price_rec.estimated_price:'||l_cost_price_rec.estimated_price,l_api_name);
2251: x_actual_profit =>l_cost_price_rec.actual_profit,
2252: x_ESTIMATEd_profit =>l_cost_price_rec.ESTIMATEd_profit,
2253: x_return_status =>x_return_status
2254: );
2255: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2256: RAISE Fnd_Api.G_EXC_ERROR;
2257: END IF;
2258:
2259: end if;
2252: x_ESTIMATEd_profit =>l_cost_price_rec.ESTIMATEd_profit,
2253: x_return_status =>x_return_status
2254: );
2255: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2256: RAISE Fnd_Api.G_EXC_ERROR;
2257: END IF;
2258:
2259: end if;
2260:
2277:
2278: IF FND_MSG_PUB.count_msg > 0
2279: THEN
2280: x_msg_count := l_msg_count;
2281: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2282: RAISE FND_API.G_EXC_ERROR;
2283: END IF;
2284:
2285: p_x_cost_price_rec:=l_cost_price_rec;
2278: IF FND_MSG_PUB.count_msg > 0
2279: THEN
2280: x_msg_count := l_msg_count;
2281: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2282: RAISE FND_API.G_EXC_ERROR;
2283: END IF;
2284:
2285: p_x_cost_price_rec:=l_cost_price_rec;
2286: log_message('billing_item_id :'||l_mr_rec.billing_item_id,l_api_name);
2293: END IF;
2294:
2295:
2296: EXCEPTION
2297: WHEN Fnd_Api.g_exc_error THEN
2298: ROLLBACK TO Get_MR_Cost_Details_PVT;
2299: x_return_status := Fnd_Api.g_ret_sts_error;
2300: Fnd_Msg_Pub.count_and_get (
2301: p_encoded => Fnd_Api.g_false,
2295:
2296: EXCEPTION
2297: WHEN Fnd_Api.g_exc_error THEN
2298: ROLLBACK TO Get_MR_Cost_Details_PVT;
2299: x_return_status := Fnd_Api.g_ret_sts_error;
2300: Fnd_Msg_Pub.count_and_get (
2301: p_encoded => Fnd_Api.g_false,
2302: p_count => x_msg_count,
2303: p_data => x_msg_data
2297: WHEN Fnd_Api.g_exc_error THEN
2298: ROLLBACK TO Get_MR_Cost_Details_PVT;
2299: x_return_status := Fnd_Api.g_ret_sts_error;
2300: Fnd_Msg_Pub.count_and_get (
2301: p_encoded => Fnd_Api.g_false,
2302: p_count => x_msg_count,
2303: p_data => x_msg_data
2304: );
2305: WHEN Fnd_Api.g_exc_unexpected_error THEN
2301: p_encoded => Fnd_Api.g_false,
2302: p_count => x_msg_count,
2303: p_data => x_msg_data
2304: );
2305: WHEN Fnd_Api.g_exc_unexpected_error THEN
2306: ROLLBACK TO Get_MR_Cost_Details_PVT;
2307: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2308: Fnd_Msg_Pub.count_and_get (
2309: p_encoded => Fnd_Api.g_false,
2303: p_data => x_msg_data
2304: );
2305: WHEN Fnd_Api.g_exc_unexpected_error THEN
2306: ROLLBACK TO Get_MR_Cost_Details_PVT;
2307: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2308: Fnd_Msg_Pub.count_and_get (
2309: p_encoded => Fnd_Api.g_false,
2310: p_count => x_msg_count,
2311: p_data => x_msg_data
2305: WHEN Fnd_Api.g_exc_unexpected_error THEN
2306: ROLLBACK TO Get_MR_Cost_Details_PVT;
2307: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2308: Fnd_Msg_Pub.count_and_get (
2309: p_encoded => Fnd_Api.g_false,
2310: p_count => x_msg_count,
2311: p_data => x_msg_data
2312: );
2313: WHEN OTHERS THEN
2311: p_data => x_msg_data
2312: );
2313: WHEN OTHERS THEN
2314: ROLLBACK TO Get_MR_Cost_Details_PVT;
2315: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2316: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
2317: THEN
2318: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
2319: END IF;
2317: THEN
2318: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
2319: END IF;
2320: Fnd_Msg_Pub.count_and_get (
2321: p_encoded => Fnd_Api.g_false,
2322: p_count => x_msg_count,
2323: p_data => x_msg_data
2324: );
2325: