[Home] [Help]
38: -- Procedure to get visit cost details for a specific visit --
39: --------------------------------------------------------------------------
40: PROCEDURE get_visit_cost_details(
41: p_api_version IN NUMBER := 1.0,
42: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
43: p_commit IN VARCHAR2 := FND_API.G_FALSE,
44: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
45: p_module_type IN VARCHAR2 := 'JSP',
46: p_x_cost_price_rec IN OUT NOCOPY AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type,
39: --------------------------------------------------------------------------
40: PROCEDURE get_visit_cost_details(
41: p_api_version IN NUMBER := 1.0,
42: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
43: p_commit IN VARCHAR2 := FND_API.G_FALSE,
44: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
45: p_module_type IN VARCHAR2 := 'JSP',
46: p_x_cost_price_rec IN OUT NOCOPY AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type,
47: x_return_status OUT NOCOPY VARCHAR2,
40: PROCEDURE get_visit_cost_details(
41: p_api_version IN NUMBER := 1.0,
42: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
43: p_commit IN VARCHAR2 := FND_API.G_FALSE,
44: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
45: p_module_type IN VARCHAR2 := 'JSP',
46: p_x_cost_price_rec IN OUT NOCOPY AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type,
47: x_return_status OUT NOCOPY VARCHAR2,
48: x_msg_count OUT NOCOPY NUMBER,
112: -- Standard start of API savepoint
113: SAVEPOINT get_visit_cost_details;
114:
115: -- Initialize message list if p_init_msg_list is set to TRUE
116: IF FND_API.To_Boolean( p_init_msg_list) THEN
117: FND_MSG_PUB.Initialize;
118: END IF;
119:
120: -- Initialize API return status to success
117: FND_MSG_PUB.Initialize;
118: END IF;
119:
120: -- Initialize API return status to success
121: x_return_status := FND_API.G_RET_STS_SUCCESS;
122:
123: -- Standard call to check for call compatibility.
124: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
125: p_api_version,
120: -- Initialize API return status to success
121: x_return_status := FND_API.G_RET_STS_SUCCESS;
122:
123: -- Standard call to check for call compatibility.
124: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
125: p_api_version,
126: l_api_name,G_PKG_NAME)
127: THEN
128: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
124: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
125: p_api_version,
126: l_api_name,G_PKG_NAME)
127: THEN
128: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
129: END IF;
130:
131: l_cost_price_rec:= p_x_cost_price_rec;
132:
151: );
152: END IF;
153:
154: -- make sure that visit id is present in the input
155: IF(p_x_cost_price_rec.visit_id IS NULL OR p_x_cost_price_rec.visit_id = FND_API.G_MISS_NUM) THEN
156: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_INPUT_MISS');
157: FND_MSG_PUB.ADD;
158: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
159: fnd_log.string
162: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.get_visit_cost_details',
163: 'Visit id is mandatory but found null in input '
164: );
165: END IF;
166: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
167: END IF;
168:
169: OPEN visit_info_csr(p_x_cost_price_rec.visit_id);
170: FETCH visit_info_csr INTO l_visit_status,
186: 'Visit id not found in ahl_visits_b table'
187: );
188: END IF;
189: CLOSE visit_info_csr;
190: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
191: END IF;
192: CLOSE visit_info_csr;
193:
194:
209: 'Service request associated is invalid as record not found : l_cost_price_rec.service_request_id : '||l_cost_price_rec.service_request_id
210: );
211: END IF;
212: CLOSE customer_id_csr;
213: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
214: END IF;
215: CLOSE customer_id_csr;
216:
217: -- can outside party flag be updated?
244: 'List name not found for stored list id'
245: );
246: END IF;
247: CLOSE price_list_name_csr;
248: RAISE FND_API.G_EXC_ERROR;
249: END IF;
250:
251: CLOSE price_list_name_csr;
252: END IF;
282: -- To call to get cost if calculated
283: AHL_VWP_COST_PVT.Calculate_WO_Cost
284: (
285: p_api_version => 1.0,
286: p_init_msg_list => Fnd_Api.G_FALSE,
287: p_commit=> Fnd_Api.G_FALSE,
288: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
289: p_x_cost_price_rec => l_cost_price_rec,
290: x_return_status => x_return_status
283: AHL_VWP_COST_PVT.Calculate_WO_Cost
284: (
285: p_api_version => 1.0,
286: p_init_msg_list => Fnd_Api.G_FALSE,
287: p_commit=> Fnd_Api.G_FALSE,
288: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
289: p_x_cost_price_rec => l_cost_price_rec,
290: x_return_status => x_return_status
291: );
284: (
285: p_api_version => 1.0,
286: p_init_msg_list => Fnd_Api.G_FALSE,
287: p_commit=> Fnd_Api.G_FALSE,
288: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
289: p_x_cost_price_rec => l_cost_price_rec,
290: x_return_status => x_return_status
291: );
292:
289: p_x_cost_price_rec => l_cost_price_rec,
290: x_return_status => x_return_status
291: );
292:
293: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
294: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
295: fnd_log.string
296: (
297: fnd_log.level_exception,
298: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.get_visit_cost_details',
299: 'AHL_VWP_COST_PVT.Calculate_WO_Cost API threw error : x_return_status : ' || x_return_status
300: );
301: END IF;
302: RAISE FND_API.G_EXC_ERROR;
303: END IF;
304:
305: -- To get visit cost calculated
306: IF(l_cost_price_rec.Is_Cst_Struc_updated = 'N') AND (l_cost_price_rec.workorder_id IS NOT NULL) THEN
313: x_Estimated_cost => l_cost_price_rec.estimated_cost,
314: x_return_status => x_return_status
315: );
316:
317: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
318: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
319: fnd_log.string
320: (
321: fnd_log.level_exception,
322: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.get_visit_cost_details',
323: 'AHL_VWP_COST_PVT.Calculate_Visit_Cost API threw error : x_return_status : ' || x_return_status
324: );
325: END IF;
326: RAISE FND_API.G_EXC_ERROR;
327: END IF;
328:
329: -- To get profit and loss
330: AHL_VWP_COST_PVT.Get_Profit_or_Loss
338: x_return_status => x_return_status
339: );
340: END IF;
341:
342: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
343: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
344: fnd_log.string
345: (
346: fnd_log.level_exception,
347: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.get_visit_cost_details',
348: 'AHL_VWP_COST_PVT.Get_Profit_or_Loss API threw error : x_return_status : ' || x_return_status
349: );
350: END IF;
351: RAISE FND_API.G_EXC_ERROR;
352: END IF;
353: END IF; -- status <> CANCELLED
354:
355: -- Check Error Message stack.
354:
355: -- Check Error Message stack.
356: x_msg_count := FND_MSG_PUB.count_msg;
357: IF x_msg_count > 0 THEN
358: RAISE FND_API.G_EXC_ERROR;
359: END IF;
360:
361: -- Standard check of p_commit
362: IF FND_API.TO_BOOLEAN(p_commit) THEN
358: RAISE FND_API.G_EXC_ERROR;
359: END IF;
360:
361: -- Standard check of p_commit
362: IF FND_API.TO_BOOLEAN(p_commit) THEN
363: COMMIT WORK;
364: END IF;
365:
366: p_x_cost_price_rec.outside_party_flag := l_cost_price_rec.outside_party_flag;
409: );
410: END IF;
411:
412: EXCEPTION
413: WHEN FND_API.G_EXC_ERROR THEN
414: x_return_status := FND_API.G_RET_STS_ERROR;
415: ROLLBACK TO get_visit_cost_details;
416: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
417: p_data => x_msg_data,
410: END IF;
411:
412: EXCEPTION
413: WHEN FND_API.G_EXC_ERROR THEN
414: x_return_status := FND_API.G_RET_STS_ERROR;
415: ROLLBACK TO get_visit_cost_details;
416: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
417: p_data => x_msg_data,
418: p_encoded => fnd_api.g_false);
414: x_return_status := FND_API.G_RET_STS_ERROR;
415: ROLLBACK TO get_visit_cost_details;
416: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
417: p_data => x_msg_data,
418: p_encoded => fnd_api.g_false);
419:
420:
421: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
422: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
417: p_data => x_msg_data,
418: p_encoded => fnd_api.g_false);
419:
420:
421: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
422: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
423: ROLLBACK TO get_visit_cost_details;
424: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
425: p_data => x_msg_data,
418: p_encoded => fnd_api.g_false);
419:
420:
421: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
422: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
423: ROLLBACK TO get_visit_cost_details;
424: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
425: p_data => x_msg_data,
426: p_encoded => fnd_api.g_false);
422: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
423: ROLLBACK TO get_visit_cost_details;
424: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
425: p_data => x_msg_data,
426: p_encoded => fnd_api.g_false);
427:
428:
429: WHEN OTHERS THEN
430: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
426: p_encoded => fnd_api.g_false);
427:
428:
429: WHEN OTHERS THEN
430: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
431: ROLLBACK TO get_visit_cost_details;
432: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
433: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
434: p_procedure_name => 'get_visit_cost_details',
435: p_error_text => SUBSTR(SQLERRM,1,500));
436: END IF;
437: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
438: p_data => x_msg_data,
439: p_encoded => fnd_api.g_false);
440:
441: END get_visit_cost_details;
442:
443: --------------------------------------------------------------------------
444: -- Procedure to get visit cost details for a specific visit --
445: --------------------------------------------------------------------------
446: PROCEDURE update_visit_cost_details(
447: p_api_version IN NUMBER := 1.0,
448: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
449: p_commit IN VARCHAR2 := FND_API.G_FALSE,
450: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
451: p_module_type IN VARCHAR2 := 'JSP',
452: p_x_cost_price_rec IN OUT NOCOPY AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type,
445: --------------------------------------------------------------------------
446: PROCEDURE update_visit_cost_details(
447: p_api_version IN NUMBER := 1.0,
448: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
449: p_commit IN VARCHAR2 := FND_API.G_FALSE,
450: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
451: p_module_type IN VARCHAR2 := 'JSP',
452: p_x_cost_price_rec IN OUT NOCOPY AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type,
453: x_return_status OUT NOCOPY VARCHAR2,
446: PROCEDURE update_visit_cost_details(
447: p_api_version IN NUMBER := 1.0,
448: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
449: p_commit IN VARCHAR2 := FND_API.G_FALSE,
450: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
451: p_module_type IN VARCHAR2 := 'JSP',
452: p_x_cost_price_rec IN OUT NOCOPY AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type,
453: x_return_status OUT NOCOPY VARCHAR2,
454: x_msg_count OUT NOCOPY NUMBER,
509: -- Standard start of API savepoint
510: SAVEPOINT update_visit_cost_details;
511:
512: -- Initialize message list if p_init_msg_list is set to TRUE
513: IF FND_API.To_Boolean( p_init_msg_list) THEN
514: FND_MSG_PUB.Initialize;
515: END IF;
516:
517: -- Initialize API return status to success
514: FND_MSG_PUB.Initialize;
515: END IF;
516:
517: -- Initialize API return status to success
518: x_return_status := FND_API.G_RET_STS_SUCCESS;
519: l_cost_price_rec := p_x_cost_price_rec;
520:
521: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
522: fnd_log.string
539: );
540: END IF;
541:
542: -- Make sure that visit id is present in the input
543: IF(p_x_cost_price_rec.visit_id IS NULL OR p_x_cost_price_rec.visit_id = FND_API.G_MISS_NUM) THEN
544: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_INPUT_MISS');
545: FND_MSG_PUB.ADD;
546: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
547: fnd_log.string
550: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.update_visit_cost_details',
551: 'Visit id is mandatory but found null in input '
552: );
553: END IF;
554: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
555: END IF;
556:
557: --make sure outside party flag is valid
558: IF (NVL(p_x_cost_price_rec.outside_party_flag,'N') NOT IN ('Y','N'))THEN
565: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.update_visit_cost_details',
566: 'Input OSP Flag is invalid : ' || p_x_cost_price_rec.outside_party_flag
567: );
568: END IF;
569: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
570: END IF;
571:
572: OPEN visit_info_csr(p_x_cost_price_rec.visit_id);
573: FETCH visit_info_csr INTO l_outside_party_flag,
579: IF (visit_info_csr%NOTFOUND)THEN
580: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_INV_VISIT');
581: FND_MSG_PUB.ADD;
582: CLOSE visit_info_csr;
583: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
584:
585: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
586: fnd_log.string
587: (
594: ELSIF (l_visit_status_code = 'CLOSED')THEN
595: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_INV_VISIT_UPDT_STS');
596: FND_MSG_PUB.ADD;
597: CLOSE visit_info_csr;
598: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
599:
600: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
601: fnd_log.string
602: (
609: ELSIF (l_service_request_id IS NULL)THEN
610: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_INV_VISIT_UPDT_NOSR');
611: FND_MSG_PUB.ADD;
612: CLOSE visit_info_csr;
613: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
614:
615: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
616: fnd_log.string
617: (
629:
630: IF (visit_tasks_csr%FOUND)THEN
631: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_INV_OSP_FLAG_MOD');
632: FND_MSG_PUB.ADD;
633: RAISE FND_API.G_EXC_ERROR;
634:
635: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
636: fnd_log.string
637: (
662: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.update_visit_cost_details',
663: 'Price List is mandatory'
664: );
665: END IF;
666: RAISE FND_API.G_EXC_ERROR;
667:
668: ELSIF (l_cost_price_rec.outside_party_flag = 'Y' AND l_cost_price_rec.price_list_name IS NOT NULL) THEN
669: AHL_VWP_RULES_PVT.Check_Price_List_Name_Or_Id
670: (
672: p_price_list_name => l_cost_price_rec.price_list_name,
673: x_price_list_id => l_cost_price_rec.price_list_id,
674: x_return_status => x_return_status
675: );
676: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
677: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
678: fnd_log.string
679: (
680: fnd_log.level_error,
681: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.update_visit_cost_details',
682: 'AHL_VWP_RULES_PVT.Check_Price_List_Name_Or_Id API Threw error'
683: );
684: END IF;
685: RAISE FND_API.G_EXC_ERROR;
686: END IF;
687: ELSIF(l_cost_price_rec.outside_party_flag = 'N' AND l_cost_price_rec.price_list_name IS NOT NULL)THEN
688: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_OSP_VISIT_PR_LIST');
689: -- Please select check box 'Visit for outside party' or remove price list from LOV.
695: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.update_visit_cost_details',
696: 'Price List is mandatory'
697: );
698: END IF;
699: RAISE FND_API.G_EXC_ERROR;
700: END IF;
701:
702: END IF; -- Check p_module_type if 'JSP'
703:
865:
866: -- Check Error Message stack.
867: x_msg_count := FND_MSG_PUB.count_msg;
868: IF x_msg_count > 0 THEN
869: RAISE FND_API.G_EXC_ERROR;
870: END IF;
871:
872: -- Standard check of p_commit
873: IF FND_API.TO_BOOLEAN(p_commit) THEN
869: RAISE FND_API.G_EXC_ERROR;
870: END IF;
871:
872: -- Standard check of p_commit
873: IF FND_API.TO_BOOLEAN(p_commit) THEN
874: COMMIT WORK;
875: END IF;
876:
877: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
883: );
884: END IF;
885:
886: EXCEPTION
887: WHEN FND_API.G_EXC_ERROR THEN
888: x_return_status := FND_API.G_RET_STS_ERROR;
889: ROLLBACK TO update_visit_cost_details;
890: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
891: p_data => x_msg_data,
884: END IF;
885:
886: EXCEPTION
887: WHEN FND_API.G_EXC_ERROR THEN
888: x_return_status := FND_API.G_RET_STS_ERROR;
889: ROLLBACK TO update_visit_cost_details;
890: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
891: p_data => x_msg_data,
892: p_encoded => fnd_api.g_false);
888: x_return_status := FND_API.G_RET_STS_ERROR;
889: ROLLBACK TO update_visit_cost_details;
890: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
891: p_data => x_msg_data,
892: p_encoded => fnd_api.g_false);
893:
894:
895: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
896: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
891: p_data => x_msg_data,
892: p_encoded => fnd_api.g_false);
893:
894:
895: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
896: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
897: ROLLBACK TO update_visit_cost_details;
898: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
899: p_data => x_msg_data,
892: p_encoded => fnd_api.g_false);
893:
894:
895: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
896: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
897: ROLLBACK TO update_visit_cost_details;
898: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
899: p_data => x_msg_data,
900: p_encoded => fnd_api.g_false);
896: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
897: ROLLBACK TO update_visit_cost_details;
898: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
899: p_data => x_msg_data,
900: p_encoded => fnd_api.g_false);
901:
902:
903: WHEN OTHERS THEN
904: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
900: p_encoded => fnd_api.g_false);
901:
902:
903: WHEN OTHERS THEN
904: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
905: ROLLBACK TO update_visit_cost_details;
906: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
907: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
908: p_procedure_name => 'update_visit_cost_details',
909: p_error_text => SUBSTR(SQLERRM,1,500));
910: END IF;
911: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
912: p_data => x_msg_data,
913: p_encoded => fnd_api.g_false);
914: END update_visit_cost_details;
915:
916: --------------------------------------------------------------------------
917: -- Procedure to estimate visit cost for a specific visit --
917: -- Procedure to estimate visit cost for a specific visit --
918: --------------------------------------------------------------------------
919: PROCEDURE estimate_visit_cost(
920: p_api_version IN NUMBER := 1.0,
921: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
922: p_commit IN VARCHAR2 := FND_API.G_FALSE,
923: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
924: p_module_type IN VARCHAR2 := 'JSP',
925: p_x_cost_price_rec IN OUT NOCOPY AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type,
918: --------------------------------------------------------------------------
919: PROCEDURE estimate_visit_cost(
920: p_api_version IN NUMBER := 1.0,
921: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
922: p_commit IN VARCHAR2 := FND_API.G_FALSE,
923: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
924: p_module_type IN VARCHAR2 := 'JSP',
925: p_x_cost_price_rec IN OUT NOCOPY AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type,
926: x_return_status OUT NOCOPY VARCHAR2,
919: PROCEDURE estimate_visit_cost(
920: p_api_version IN NUMBER := 1.0,
921: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
922: p_commit IN VARCHAR2 := FND_API.G_FALSE,
923: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
924: p_module_type IN VARCHAR2 := 'JSP',
925: p_x_cost_price_rec IN OUT NOCOPY AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type,
926: x_return_status OUT NOCOPY VARCHAR2,
927: x_msg_count OUT NOCOPY NUMBER,
935: l_num_rec NUMBER;
936: l_msg_count NUMBER;
937: l_msg_data VARCHAR2(2000);
938: l_return_status VARCHAR2(1);
939: l_init_msg_list VARCHAR2(10):=FND_API.G_FALSE;
940: l_commit VARCHAR2(30) := Fnd_Api.G_FALSE;
941: --salogan::Added local variables for CP ER 9299910::01-JUN-2009::BEGIN
942: l_bg_module_type CONSTANT VARCHAR2(10) := 'CST_EXEC';
943: l_bg_release_flag VARCHAR2(1) := 'N';
936: l_msg_count NUMBER;
937: l_msg_data VARCHAR2(2000);
938: l_return_status VARCHAR2(1);
939: l_init_msg_list VARCHAR2(10):=FND_API.G_FALSE;
940: l_commit VARCHAR2(30) := Fnd_Api.G_FALSE;
941: --salogan::Added local variables for CP ER 9299910::01-JUN-2009::BEGIN
942: l_bg_module_type CONSTANT VARCHAR2(10) := 'CST_EXEC';
943: l_bg_release_flag VARCHAR2(1) := 'N';
944: --salogan::Added local variables for CP ER 9299910::01-JUN-2009::END
960: SAVEPOINT estimate_visit_cost;
961:
962: -- Initialize message list if p_init_msg_list is set to TRUE
963:
964: IF FND_API.To_Boolean( p_init_msg_list) THEN
965: FND_MSG_PUB.Initialize;
966: END IF;
967:
968: -- Initialize API return status to success
965: FND_MSG_PUB.Initialize;
966: END IF;
967:
968: -- Initialize API return status to success
969: x_return_status := FND_API.G_RET_STS_SUCCESS;
970:
971: -- Standard call to check for call compatibility.
972: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
973: p_api_version,
968: -- Initialize API return status to success
969: x_return_status := FND_API.G_RET_STS_SUCCESS;
970:
971: -- Standard call to check for call compatibility.
972: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
973: p_api_version,
974: l_api_name,G_PKG_NAME)
975: THEN
976: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
972: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
973: p_api_version,
974: l_api_name,G_PKG_NAME)
975: THEN
976: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
977: END IF;
978:
979: l_cost_price_rec:= p_x_cost_price_rec;
980:
1002: END IF;
1003:
1004: -- make sure that visit id is present in the input
1005:
1006: IF(p_x_cost_price_rec.visit_id IS NULL OR p_x_cost_price_rec.visit_id = FND_API.G_MISS_NUM) THEN
1007: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_INPUT_MISS');
1008: FND_MSG_PUB.ADD;
1009:
1010: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
1014: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.estimate_visit_cost',
1015: 'Visit id is mandatory but found null in input '
1016: );
1017: END IF;
1018: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1019: END IF;
1020:
1021: check_for_release_visit
1022: (
1064: );
1065: END IF;
1066:
1067: -- Check Error Message stack.
1068: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1069: l_msg_count := FND_MSG_PUB.count_msg;
1070: IF l_msg_count > 0 THEN
1071: RAISE FND_API.G_EXC_ERROR;
1072: END IF;
1067: -- Check Error Message stack.
1068: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1069: l_msg_count := FND_MSG_PUB.count_msg;
1070: IF l_msg_count > 0 THEN
1071: RAISE FND_API.G_EXC_ERROR;
1072: END IF;
1073: END IF;
1074:
1075: END IF; -- released required flag
1078:
1079: AHL_VWP_COST_PVT.Estimate_WO_Cost
1080: (
1081: p_api_version => 1.0,
1082: p_init_msg_list => Fnd_Api.G_FALSE,
1083: p_commit=> Fnd_Api.G_FALSE,
1084: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
1085: p_x_cost_price_rec => l_cost_price_rec,
1086: x_return_status => x_return_status
1079: AHL_VWP_COST_PVT.Estimate_WO_Cost
1080: (
1081: p_api_version => 1.0,
1082: p_init_msg_list => Fnd_Api.G_FALSE,
1083: p_commit=> Fnd_Api.G_FALSE,
1084: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
1085: p_x_cost_price_rec => l_cost_price_rec,
1086: x_return_status => x_return_status
1087: );
1080: (
1081: p_api_version => 1.0,
1082: p_init_msg_list => Fnd_Api.G_FALSE,
1083: p_commit=> Fnd_Api.G_FALSE,
1084: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
1085: p_x_cost_price_rec => l_cost_price_rec,
1086: x_return_status => x_return_status
1087: );
1088:
1085: p_x_cost_price_rec => l_cost_price_rec,
1086: x_return_status => x_return_status
1087: );
1088:
1089: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
1090: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
1091: fnd_log.string
1092: (
1093: fnd_log.level_exception,
1094: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.estimate_visit_cost',
1095: 'AHL_VWP_COST_PVT.Estimate_WO_Cost API threw error : x_return_status : ' || x_return_status
1096: );
1097: END IF;
1098: RAISE FND_API.G_EXC_ERROR;
1099: END IF;
1100:
1101: -- Check Error Message stack.
1102: x_msg_count := FND_MSG_PUB.count_msg;
1101: -- Check Error Message stack.
1102: x_msg_count := FND_MSG_PUB.count_msg;
1103:
1104: IF x_msg_count > 0 THEN
1105: RAISE FND_API.G_EXC_ERROR;
1106: END IF;
1107:
1108: -- Standard check of p_commit
1109: IF FND_API.TO_BOOLEAN(p_commit) THEN
1105: RAISE FND_API.G_EXC_ERROR;
1106: END IF;
1107:
1108: -- Standard check of p_commit
1109: IF FND_API.TO_BOOLEAN(p_commit) THEN
1110: COMMIT WORK;
1111: END IF;
1112:
1113: p_x_cost_price_rec.Is_Cst_Struc_updated := l_cost_price_rec.Is_Cst_Struc_updated;
1124: END IF;
1125:
1126: EXCEPTION
1127:
1128: WHEN FND_API.G_EXC_ERROR THEN
1129:
1130: x_return_status := FND_API.G_RET_STS_ERROR;
1131: ROLLBACK TO estimate_visit_cost;
1132: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1126: EXCEPTION
1127:
1128: WHEN FND_API.G_EXC_ERROR THEN
1129:
1130: x_return_status := FND_API.G_RET_STS_ERROR;
1131: ROLLBACK TO estimate_visit_cost;
1132: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1133: p_data => x_msg_data,
1134: p_encoded => fnd_api.g_false);
1130: x_return_status := FND_API.G_RET_STS_ERROR;
1131: ROLLBACK TO estimate_visit_cost;
1132: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1133: p_data => x_msg_data,
1134: p_encoded => fnd_api.g_false);
1135:
1136: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1137: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1138: ROLLBACK TO estimate_visit_cost;
1132: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1133: p_data => x_msg_data,
1134: p_encoded => fnd_api.g_false);
1135:
1136: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1137: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1138: ROLLBACK TO estimate_visit_cost;
1139: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1140: p_data => x_msg_data,
1133: p_data => x_msg_data,
1134: p_encoded => fnd_api.g_false);
1135:
1136: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1137: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1138: ROLLBACK TO estimate_visit_cost;
1139: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1140: p_data => x_msg_data,
1141: p_encoded => fnd_api.g_false);
1137: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1138: ROLLBACK TO estimate_visit_cost;
1139: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1140: p_data => x_msg_data,
1141: p_encoded => fnd_api.g_false);
1142:
1143: WHEN OTHERS THEN
1144: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1145: ROLLBACK TO estimate_visit_cost;
1140: p_data => x_msg_data,
1141: p_encoded => fnd_api.g_false);
1142:
1143: WHEN OTHERS THEN
1144: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1145: ROLLBACK TO estimate_visit_cost;
1146:
1147: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1148: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1151: END IF;
1152:
1153: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1154: p_data => x_msg_data,
1155: p_encoded => fnd_api.g_false);
1156: END estimate_visit_cost;
1157:
1158: --------------------------------------------------------------------------
1159: -- Procedure to estimate price for a specific SR --
1209: );
1210: END IF;
1211:
1212: -- Initialize API return status to success
1213: x_return_status := FND_API.G_RET_STS_SUCCESS;
1214:
1215: l_cost_price_rec:= p_x_cost_price_rec;
1216:
1217: -- Initialize Price variables
1252:
1253: AHL_VWP_MR_CST_PR_PVT.Estimate_MR_Price
1254: (
1255: p_api_version => 1.0,
1256: p_init_msg_list => Fnd_Api.g_false,
1257: p_commit => Fnd_Api.g_false,
1258: p_validation_level => Fnd_Api.g_valid_level_full,
1259: p_module_type => 'VST',
1260: p_x_cost_price_rec => l_temp_cost_price_rec,
1253: AHL_VWP_MR_CST_PR_PVT.Estimate_MR_Price
1254: (
1255: p_api_version => 1.0,
1256: p_init_msg_list => Fnd_Api.g_false,
1257: p_commit => Fnd_Api.g_false,
1258: p_validation_level => Fnd_Api.g_valid_level_full,
1259: p_module_type => 'VST',
1260: p_x_cost_price_rec => l_temp_cost_price_rec,
1261: x_return_status => x_return_status,
1254: (
1255: p_api_version => 1.0,
1256: p_init_msg_list => Fnd_Api.g_false,
1257: p_commit => Fnd_Api.g_false,
1258: p_validation_level => Fnd_Api.g_valid_level_full,
1259: p_module_type => 'VST',
1260: p_x_cost_price_rec => l_temp_cost_price_rec,
1261: x_return_status => x_return_status,
1262: x_msg_count => l_msg_count,
1262: x_msg_count => l_msg_count,
1263: x_msg_data => l_msg_data
1264: );
1265:
1266: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
1267:
1268: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1269: fnd_log.string
1270: (
1272: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.Estimate_SR_Price',
1273: 'AHL_VWP_MR_CST_PR_PVT.Estimate_MR_Price API Threw error'
1274: );
1275: END IF;
1276: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1277:
1278: END IF;
1279:
1280: IF(l_temp_cost_price_rec.actual_price IS NOT NULL) THEN
1323:
1324: AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price
1325: (
1326: p_api_version => 1.0,
1327: p_init_msg_list => Fnd_Api.g_false,
1328: p_commit => Fnd_Api.g_false,
1329: p_validation_level => Fnd_Api.g_valid_level_full,
1330: p_module_type => 'VST',
1331: p_x_cost_price_rec => l_temp_cost_price_rec,
1324: AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price
1325: (
1326: p_api_version => 1.0,
1327: p_init_msg_list => Fnd_Api.g_false,
1328: p_commit => Fnd_Api.g_false,
1329: p_validation_level => Fnd_Api.g_valid_level_full,
1330: p_module_type => 'VST',
1331: p_x_cost_price_rec => l_temp_cost_price_rec,
1332: x_return_status => x_return_status,
1325: (
1326: p_api_version => 1.0,
1327: p_init_msg_list => Fnd_Api.g_false,
1328: p_commit => Fnd_Api.g_false,
1329: p_validation_level => Fnd_Api.g_valid_level_full,
1330: p_module_type => 'VST',
1331: p_x_cost_price_rec => l_temp_cost_price_rec,
1332: x_return_status => x_return_status,
1333: x_msg_count => l_msg_count,
1333: x_msg_count => l_msg_count,
1334: x_msg_data => l_msg_data
1335: );
1336:
1337: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
1338:
1339: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1340: fnd_log.string
1341: (
1343: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.estimate_SR_price',
1344: 'AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price API Threw error'
1345: );
1346: END IF;
1347: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1348: END IF;
1349:
1350: IF(l_temp_cost_price_rec.actual_price IS NOT NULL) THEN
1351:
1389: --------------------------------------------------------------------------
1390:
1391: PROCEDURE estimate_visit_price(
1392: p_api_version IN NUMBER := 1.0,
1393: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1394: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1395: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1396: p_module_type IN VARCHAR2 := 'JSP',
1397: p_x_cost_price_rec IN OUT NOCOPY AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type,
1390:
1391: PROCEDURE estimate_visit_price(
1392: p_api_version IN NUMBER := 1.0,
1393: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1394: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1395: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1396: p_module_type IN VARCHAR2 := 'JSP',
1397: p_x_cost_price_rec IN OUT NOCOPY AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type,
1398: x_return_status OUT NOCOPY VARCHAR2,
1391: PROCEDURE estimate_visit_price(
1392: p_api_version IN NUMBER := 1.0,
1393: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1394: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1395: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1396: p_module_type IN VARCHAR2 := 'JSP',
1397: p_x_cost_price_rec IN OUT NOCOPY AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type,
1398: x_return_status OUT NOCOPY VARCHAR2,
1399: x_msg_count OUT NOCOPY NUMBER,
1418: l_api_version NUMBER := 1.0;
1419: l_num_rec NUMBER;
1420: l_msg_count NUMBER;
1421: l_return_status VARCHAR2(1);
1422: l_init_msg_list VARCHAR2(10):=FND_API.G_FALSE;
1423: l_commit VARCHAR2(30) := Fnd_Api.G_FALSE;
1424: --
1425: CURSOR visit_info_csr(p_visit_id IN NUMBER) IS
1426: Select VISIT_ID,
1419: l_num_rec NUMBER;
1420: l_msg_count NUMBER;
1421: l_return_status VARCHAR2(1);
1422: l_init_msg_list VARCHAR2(10):=FND_API.G_FALSE;
1423: l_commit VARCHAR2(30) := Fnd_Api.G_FALSE;
1424: --
1425: CURSOR visit_info_csr(p_visit_id IN NUMBER) IS
1426: Select VISIT_ID,
1427: PRICE_LIST_ID,
1502: -- Standard start of API savepoint
1503: SAVEPOINT estimate_visit_price;
1504:
1505: -- Initialize message list if p_init_msg_list is set to TRUE
1506: IF FND_API.To_Boolean( p_init_msg_list) THEN
1507: FND_MSG_PUB.Initialize;
1508: END IF;
1509:
1510: -- Initialize API return status to success
1507: FND_MSG_PUB.Initialize;
1508: END IF;
1509:
1510: -- Initialize API return status to success
1511: x_return_status := FND_API.G_RET_STS_SUCCESS;
1512:
1513: -- Standard call to check for call compatibility.
1514: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
1515: p_api_version,
1510: -- Initialize API return status to success
1511: x_return_status := FND_API.G_RET_STS_SUCCESS;
1512:
1513: -- Standard call to check for call compatibility.
1514: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
1515: p_api_version,
1516: l_api_name,G_PKG_NAME)
1517: THEN
1518: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1514: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
1515: p_api_version,
1516: l_api_name,G_PKG_NAME)
1517: THEN
1518: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1519: END IF;
1520:
1521: l_cost_price_rec:= p_x_cost_price_rec;
1522:
1530: END IF;
1531:
1532: -- make sure that visit id is present in the input
1533:
1534: IF(p_x_cost_price_rec.visit_id IS NULL OR p_x_cost_price_rec.visit_id = FND_API.G_MISS_NUM) THEN
1535: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_INPUT_MISS');
1536: FND_MSG_PUB.ADD;
1537: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
1538: fnd_log.string
1541: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.estimate_visit_price',
1542: 'Visit id is mandatory but found null in input '
1543: );
1544: END IF;
1545: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1546: END IF;
1547:
1548: -- get outside party flag
1549: OPEN visit_info_csr(p_x_cost_price_rec.visit_id);
1562: 'visit info not found for input visit id'
1563: );
1564: END IF;
1565: CLOSE visit_info_csr;
1566: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1567: ELSE
1568: l_cost_price_rec.outside_party_flag := NVL(l_visit_rec.outside_party_flag,'N');
1569: END IF;
1570: CLOSE visit_info_csr;
1581: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.estimate_visit_price',
1582: 'Price estimation is restricted to outside party visit only '
1583: );
1584: END IF;
1585: RAISE FND_API.G_EXC_ERROR;
1586: END IF;
1587:
1588: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1589: fnd_log.string
1618: );
1619: END IF;
1620:
1621: -- Check Error Message stack.
1622: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1623: l_msg_count := FND_MSG_PUB.count_msg;
1624: IF l_msg_count > 0 THEN
1625: RAISE FND_API.G_EXC_ERROR;
1626: END IF;
1621: -- Check Error Message stack.
1622: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1623: l_msg_count := FND_MSG_PUB.count_msg;
1624: IF l_msg_count > 0 THEN
1625: RAISE FND_API.G_EXC_ERROR;
1626: END IF;
1627: END IF;
1628:
1629: --Assign the out variable
1659: 'Customer id not found for service request'
1660: );
1661: END IF;
1662: CLOSE customer_id_csr;
1663: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1664: END IF;
1665:
1666: CLOSE customer_id_csr;
1667:
1683: 'ahl.plsql.'||G_PKG_NAME||'.'||L_API_NAME,
1684: 'No curency is defined for the organization of the visit'
1685: );
1686: END IF;
1687: RAISE FND_API.G_EXC_ERROR;
1688: END IF;
1689:
1690:
1691: -- Get the visit price list if not passed
1689:
1690:
1691: -- Get the visit price list if not passed
1692: IF (l_visit_rec.price_list_id IS NULL OR
1693: l_visit_rec.price_list_id = FND_API.G_MISS_NUM ) THEN
1694:
1695: FND_MESSAGE.set_name( 'AHL','AHL_VWP_PRICE_LIST_INVALID' );
1696: FND_MSG_PUB.add;
1697:
1702: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1703: 'Price list not found for Visit'
1704: );
1705: END IF;
1706: RAISE FND_API.G_EXC_ERROR;
1707: END IF;
1708:
1709: l_cost_price_rec.PRICE_LIST_ID:=l_visit_rec.price_list_id;
1710: l_cost_price_rec.Organization_Id:=l_visit_rec.organization_id;
1776:
1777: IF (l_job_status_code is NULL) THEN
1778: l_msg_count := FND_MSG_PUB.count_msg;
1779: IF l_msg_count > 0 THEN
1780: RAISE FND_API.G_EXC_ERROR;
1781: END IF;
1782: END IF;
1783:
1784:
1824:
1825: AHL_VWP_MR_CST_PR_PVT.Estimate_MR_Price
1826: (
1827: p_api_version => 1.0,
1828: p_init_msg_list => Fnd_Api.g_false,
1829: p_commit => Fnd_Api.g_false,
1830: p_validation_level => Fnd_Api.g_valid_level_full,
1831: p_module_type => 'VST',
1832: p_x_cost_price_rec => l_temp_cost_price_rec,
1825: AHL_VWP_MR_CST_PR_PVT.Estimate_MR_Price
1826: (
1827: p_api_version => 1.0,
1828: p_init_msg_list => Fnd_Api.g_false,
1829: p_commit => Fnd_Api.g_false,
1830: p_validation_level => Fnd_Api.g_valid_level_full,
1831: p_module_type => 'VST',
1832: p_x_cost_price_rec => l_temp_cost_price_rec,
1833: x_return_status => x_return_status,
1826: (
1827: p_api_version => 1.0,
1828: p_init_msg_list => Fnd_Api.g_false,
1829: p_commit => Fnd_Api.g_false,
1830: p_validation_level => Fnd_Api.g_valid_level_full,
1831: p_module_type => 'VST',
1832: p_x_cost_price_rec => l_temp_cost_price_rec,
1833: x_return_status => x_return_status,
1834: x_msg_count => x_msg_count,
1834: x_msg_count => x_msg_count,
1835: x_msg_data => x_msg_data
1836: );
1837:
1838: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
1839:
1840: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1841: fnd_log.string
1842: (
1844: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.estimate_visit_price',
1845: 'AHL_VWP_MR_CST_PR_PVT.Estimate_MR_Price API Threw error'
1846: );
1847: END IF;
1848: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1849:
1850: END IF;
1851:
1852: IF(l_temp_cost_price_rec.actual_price IS NOT NULL) THEN
1891: p_x_cost_price_rec => l_temp_cost_price_rec,
1892: x_return_status => x_return_status
1893: );
1894:
1895: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
1896:
1897: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1898: fnd_log.string
1899: (
1901: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.estimate_visit_price',
1902: 'Estimate_SR_Price API Threw error'
1903: );
1904: END IF;
1905: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1906:
1907: END IF;
1908:
1909: IF(l_temp_cost_price_rec.actual_price IS NOT NULL) THEN
1952:
1953: AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price
1954: (
1955: p_api_version => 1.0,
1956: p_init_msg_list => Fnd_Api.g_false,
1957: p_commit => Fnd_Api.g_false,
1958: p_validation_level => Fnd_Api.g_valid_level_full,
1959: p_module_type => 'VST',
1960: p_x_cost_price_rec => l_temp_cost_price_rec,
1953: AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price
1954: (
1955: p_api_version => 1.0,
1956: p_init_msg_list => Fnd_Api.g_false,
1957: p_commit => Fnd_Api.g_false,
1958: p_validation_level => Fnd_Api.g_valid_level_full,
1959: p_module_type => 'VST',
1960: p_x_cost_price_rec => l_temp_cost_price_rec,
1961: x_return_status => x_return_status,
1954: (
1955: p_api_version => 1.0,
1956: p_init_msg_list => Fnd_Api.g_false,
1957: p_commit => Fnd_Api.g_false,
1958: p_validation_level => Fnd_Api.g_valid_level_full,
1959: p_module_type => 'VST',
1960: p_x_cost_price_rec => l_temp_cost_price_rec,
1961: x_return_status => x_return_status,
1962: x_msg_count => x_msg_count,
1962: x_msg_count => x_msg_count,
1963: x_msg_data => x_msg_data
1964: );
1965:
1966: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
1967:
1968: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1969: fnd_log.string
1970: (
1972: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.estimate_visit_price',
1973: 'AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price API Threw error'
1974: );
1975: END IF;
1976: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1977: END IF;
1978:
1979: IF(l_temp_cost_price_rec.actual_price IS NOT NULL) THEN
1980:
2127: x_msg_count := FND_MSG_PUB.count_msg;
2128:
2129: IF x_msg_count > 0 THEN
2130:
2131: RAISE FND_API.G_EXC_ERROR;
2132:
2133: END IF;
2134:
2135:
2135:
2136:
2137: -- Standard check of p_commit
2138:
2139: IF FND_API.TO_BOOLEAN(p_commit) THEN
2140: COMMIT WORK;
2141: END IF;
2142:
2143: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2150: END IF;
2151:
2152: EXCEPTION
2153:
2154: WHEN FND_API.G_EXC_ERROR THEN
2155:
2156: x_return_status := FND_API.G_RET_STS_ERROR;
2157:
2158: ROLLBACK TO estimate_visit_price;
2152: EXCEPTION
2153:
2154: WHEN FND_API.G_EXC_ERROR THEN
2155:
2156: x_return_status := FND_API.G_RET_STS_ERROR;
2157:
2158: ROLLBACK TO estimate_visit_price;
2159:
2160: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2160: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2161:
2162: p_data => x_msg_data,
2163:
2164: p_encoded => fnd_api.g_false);
2165:
2166:
2167: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2168:
2163:
2164: p_encoded => fnd_api.g_false);
2165:
2166:
2167: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2168:
2169: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2170:
2171: ROLLBACK TO estimate_visit_price;
2165:
2166:
2167: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2168:
2169: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2170:
2171: ROLLBACK TO estimate_visit_price;
2172:
2173: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2173: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2174:
2175: p_data => x_msg_data,
2176:
2177: p_encoded => fnd_api.g_false);
2178:
2179: WHEN OTHERS THEN
2180:
2181: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2177: p_encoded => fnd_api.g_false);
2178:
2179: WHEN OTHERS THEN
2180:
2181: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2182:
2183: ROLLBACK TO estimate_visit_price;
2184:
2185: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2195: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2196:
2197: p_data => x_msg_data,
2198:
2199: p_encoded => fnd_api.g_false);
2200:
2201: END estimate_visit_price;
2202:
2203: --------------------------------------------------------------------------
2204: -- Procedure to take a price snapshot for a specific visit --
2205: --------------------------------------------------------------------------
2206: PROCEDURE create_price_snapshot(
2207: p_api_version IN NUMBER := 1.0,
2208: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2209: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2210: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2211: p_module_type IN VARCHAR2 := 'JSP',
2212: p_visit_id IN NUMBER,
2205: --------------------------------------------------------------------------
2206: PROCEDURE create_price_snapshot(
2207: p_api_version IN NUMBER := 1.0,
2208: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2209: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2210: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2211: p_module_type IN VARCHAR2 := 'JSP',
2212: p_visit_id IN NUMBER,
2213: x_return_status OUT NOCOPY VARCHAR2,
2206: PROCEDURE create_price_snapshot(
2207: p_api_version IN NUMBER := 1.0,
2208: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2209: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2210: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2211: p_module_type IN VARCHAR2 := 'JSP',
2212: p_visit_id IN NUMBER,
2213: x_return_status OUT NOCOPY VARCHAR2,
2214: x_msg_count OUT NOCOPY NUMBER,
2255: SAVEPOINT create_price_snapshot;
2256:
2257: -- Initialize message list if p_init_msg_list is set to TRUE
2258:
2259: IF FND_API.To_Boolean( p_init_msg_list) THEN
2260: FND_MSG_PUB.Initialize;
2261: END IF;
2262:
2263: -- Initialize API return status to success
2261: END IF;
2262:
2263: -- Initialize API return status to success
2264:
2265: x_return_status := FND_API.G_RET_STS_SUCCESS;
2266:
2267: -- Standard call to check for call compatibility.
2268: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
2269: p_api_version,
2264:
2265: x_return_status := FND_API.G_RET_STS_SUCCESS;
2266:
2267: -- Standard call to check for call compatibility.
2268: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
2269: p_api_version,
2270: l_api_name,G_PKG_NAME)
2271: THEN
2272: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2268: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
2269: p_api_version,
2270: l_api_name,G_PKG_NAME)
2271: THEN
2272: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2273: END IF;
2274:
2275: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2276: fnd_log.string
2282: END IF;
2283:
2284: -- make sure that visit id is present in the input
2285:
2286: IF(p_visit_id IS NULL OR p_visit_id = FND_API.G_MISS_NUM) THEN
2287:
2288: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_INPUT_MISS');
2289: FND_MSG_PUB.ADD;
2290:
2295: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.create_price_snapshot',
2296: 'Visit id is mandatory but found null in input '
2297: );
2298: END IF;
2299: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2300:
2301: END IF;
2302:
2303: -- get a snapshot number for ahl_snapshot_number_s for the whole set
2402:
2403: -- Check Error Message stack.
2404: x_msg_count := FND_MSG_PUB.count_msg;
2405: IF x_msg_count > 0 THEN
2406: RAISE FND_API.G_EXC_ERROR;
2407: END IF;
2408:
2409: -- Standard check of p_commit
2410: IF FND_API.TO_BOOLEAN(p_commit) THEN
2406: RAISE FND_API.G_EXC_ERROR;
2407: END IF;
2408:
2409: -- Standard check of p_commit
2410: IF FND_API.TO_BOOLEAN(p_commit) THEN
2411: COMMIT WORK;
2412: END IF;
2413:
2414: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2421: END IF;
2422:
2423: EXCEPTION
2424:
2425: WHEN FND_API.G_EXC_ERROR THEN
2426:
2427: x_return_status := FND_API.G_RET_STS_ERROR;
2428:
2429: ROLLBACK TO create_price_snapshot;
2423: EXCEPTION
2424:
2425: WHEN FND_API.G_EXC_ERROR THEN
2426:
2427: x_return_status := FND_API.G_RET_STS_ERROR;
2428:
2429: ROLLBACK TO create_price_snapshot;
2430:
2431: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2431: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2432:
2433: p_data => x_msg_data,
2434:
2435: p_encoded => fnd_api.g_false);
2436:
2437: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2438:
2439: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2433: p_data => x_msg_data,
2434:
2435: p_encoded => fnd_api.g_false);
2436:
2437: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2438:
2439: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2440:
2441: ROLLBACK TO create_price_snapshot;
2435: p_encoded => fnd_api.g_false);
2436:
2437: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2438:
2439: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2440:
2441: ROLLBACK TO create_price_snapshot;
2442:
2443: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2443: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2444:
2445: p_data => x_msg_data,
2446:
2447: p_encoded => fnd_api.g_false);
2448:
2449: WHEN OTHERS THEN
2450:
2451: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2447: p_encoded => fnd_api.g_false);
2448:
2449: WHEN OTHERS THEN
2450:
2451: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2452:
2453: ROLLBACK TO create_price_snapshot;
2454:
2455: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2465: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2466:
2467: p_data => x_msg_data,
2468:
2469: p_encoded => fnd_api.g_false);
2470:
2471: END create_price_snapshot;
2472:
2473: --------------------------------------------------------------------------
2474: -- Procedure to take a cost snapshot for a specific visit --
2475: --------------------------------------------------------------------------
2476: PROCEDURE create_cost_snapshot(
2477: p_api_version IN NUMBER := 1.0,
2478: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2479: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2480: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2481: p_module_type IN VARCHAR2 := 'JSP',
2482: p_x_cost_price_rec IN OUT NOCOPY AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type,
2475: --------------------------------------------------------------------------
2476: PROCEDURE create_cost_snapshot(
2477: p_api_version IN NUMBER := 1.0,
2478: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2479: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2480: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2481: p_module_type IN VARCHAR2 := 'JSP',
2482: p_x_cost_price_rec IN OUT NOCOPY AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type,
2483: x_return_status OUT NOCOPY VARCHAR2,
2476: PROCEDURE create_cost_snapshot(
2477: p_api_version IN NUMBER := 1.0,
2478: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2479: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2480: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2481: p_module_type IN VARCHAR2 := 'JSP',
2482: p_x_cost_price_rec IN OUT NOCOPY AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type,
2483: x_return_status OUT NOCOPY VARCHAR2,
2484: x_msg_count OUT NOCOPY NUMBER,
2534: -- Standard start of API savepoint
2535: SAVEPOINT create_cost_snapshot;
2536:
2537: -- Initialize message list if p_init_msg_list is set to TRUE
2538: IF FND_API.To_Boolean( p_init_msg_list) THEN
2539: FND_MSG_PUB.Initialize;
2540: END IF;
2541:
2542: -- Initialize API return status to success
2539: FND_MSG_PUB.Initialize;
2540: END IF;
2541:
2542: -- Initialize API return status to success
2543: x_return_status := FND_API.G_RET_STS_SUCCESS;
2544:
2545: -- Standard call to check for call compatibility.
2546: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
2547: p_api_version,
2542: -- Initialize API return status to success
2543: x_return_status := FND_API.G_RET_STS_SUCCESS;
2544:
2545: -- Standard call to check for call compatibility.
2546: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
2547: p_api_version,
2548: l_api_name,G_PKG_NAME)
2549: THEN
2550: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2546: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
2547: p_api_version,
2548: l_api_name,G_PKG_NAME)
2549: THEN
2550: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2551: END IF;
2552:
2553: l_cost_price_rec := p_x_cost_price_rec;
2554:
2561: );
2562: END IF;
2563:
2564: -- make sure that visit id is present in the input
2565: IF(p_x_cost_price_rec.visit_id IS NULL OR p_x_cost_price_rec.visit_id = FND_API.G_MISS_NUM) THEN
2566: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_INPUT_MISS');
2567: FND_MSG_PUB.ADD;
2568: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
2569: fnd_log.string
2572: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.create_cost_snapshot',
2573: 'Visit id is mandatory but found null in input '
2574: );
2575: END IF;
2576: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2577: END IF;
2578:
2579: -- get a snapshot number for ahl_snapshot_number_s for the whole set
2580: SELECT AHL_SNAPSHOTS_S.NEXTVAL INTO l_snapshot_number FROM DUAL;
2582: -- call calculate workorder cost
2583: AHL_VWP_COST_PVT.Estimate_WO_Cost
2584: (
2585: p_api_version => 1.0,
2586: p_init_msg_list => Fnd_Api.G_FALSE,
2587: p_commit=> Fnd_Api.G_FALSE,
2588: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2589: p_x_cost_price_rec => l_cost_price_rec,
2590: x_return_status => x_return_status
2583: AHL_VWP_COST_PVT.Estimate_WO_Cost
2584: (
2585: p_api_version => 1.0,
2586: p_init_msg_list => Fnd_Api.G_FALSE,
2587: p_commit=> Fnd_Api.G_FALSE,
2588: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2589: p_x_cost_price_rec => l_cost_price_rec,
2590: x_return_status => x_return_status
2591: );
2584: (
2585: p_api_version => 1.0,
2586: p_init_msg_list => Fnd_Api.G_FALSE,
2587: p_commit=> Fnd_Api.G_FALSE,
2588: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2589: p_x_cost_price_rec => l_cost_price_rec,
2590: x_return_status => x_return_status
2591: );
2592:
2589: p_x_cost_price_rec => l_cost_price_rec,
2590: x_return_status => x_return_status
2591: );
2592:
2593: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2594: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
2595: fnd_log.string
2596: (
2597: fnd_log.level_exception,
2598: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.create_cost_snapshot',
2599: 'AHL_VWP_COST_PVT.Estimate_WO_Cost API threw error : x_return_status : ' || x_return_status
2600: );
2601: END IF;
2602: RAISE FND_API.G_EXC_ERROR;
2603: END IF;
2604:
2605: -- take a snapshot of manually created summary tasks
2606: FOR summary_tasks_rec IN summary_tasks_snapshot_csr(p_x_cost_price_rec.visit_id) LOOP
2616: x_Estimated_cost => l_estimated_cost,
2617: x_return_status => x_return_status
2618: );
2619:
2620: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2621: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_CALC_TCOST_ERR');
2622: FND_MSG_PUB.ADD;
2623: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2624: fnd_log.string
2684: x_Estimated_cost => l_estimated_cost,
2685: x_return_status => x_return_status
2686: );
2687:
2688: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2689: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_CALC_TCOST_ERR');
2690: FND_MSG_PUB.ADD;
2691: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2692: fnd_log.string
2741:
2742: -- Check Error Message stack.
2743: x_msg_count := FND_MSG_PUB.count_msg;
2744: IF x_msg_count > 0 THEN
2745: RAISE FND_API.G_EXC_ERROR;
2746: END IF;
2747:
2748: -- Standard check of p_commit
2749: IF FND_API.TO_BOOLEAN(p_commit) THEN
2745: RAISE FND_API.G_EXC_ERROR;
2746: END IF;
2747:
2748: -- Standard check of p_commit
2749: IF FND_API.TO_BOOLEAN(p_commit) THEN
2750: COMMIT WORK;
2751: END IF;
2752:
2753: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2758: 'At the end of PLSQL procedure'
2759: );
2760: END IF;
2761: EXCEPTION
2762: WHEN FND_API.G_EXC_ERROR THEN
2763: x_return_status := FND_API.G_RET_STS_ERROR;
2764: ROLLBACK TO create_cost_snapshot;
2765: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2766: p_data => x_msg_data,
2759: );
2760: END IF;
2761: EXCEPTION
2762: WHEN FND_API.G_EXC_ERROR THEN
2763: x_return_status := FND_API.G_RET_STS_ERROR;
2764: ROLLBACK TO create_cost_snapshot;
2765: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2766: p_data => x_msg_data,
2767: p_encoded => fnd_api.g_false);
2763: x_return_status := FND_API.G_RET_STS_ERROR;
2764: ROLLBACK TO create_cost_snapshot;
2765: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2766: p_data => x_msg_data,
2767: p_encoded => fnd_api.g_false);
2768:
2769:
2770: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2771: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2766: p_data => x_msg_data,
2767: p_encoded => fnd_api.g_false);
2768:
2769:
2770: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2771: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2772: ROLLBACK TO create_cost_snapshot;
2773: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2774: p_data => x_msg_data,
2767: p_encoded => fnd_api.g_false);
2768:
2769:
2770: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2771: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2772: ROLLBACK TO create_cost_snapshot;
2773: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2774: p_data => x_msg_data,
2775: p_encoded => fnd_api.g_false);
2771: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2772: ROLLBACK TO create_cost_snapshot;
2773: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2774: p_data => x_msg_data,
2775: p_encoded => fnd_api.g_false);
2776:
2777:
2778: WHEN OTHERS THEN
2779: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2775: p_encoded => fnd_api.g_false);
2776:
2777:
2778: WHEN OTHERS THEN
2779: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2780: ROLLBACK TO create_cost_snapshot;
2781: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2782: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2783: p_procedure_name => 'create_cost_snapshot',
2784: p_error_text => SUBSTR(SQLERRM,1,500));
2785: END IF;
2786: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2787: p_data => x_msg_data,
2788: p_encoded => fnd_api.g_false);
2789: END create_cost_snapshot;
2790:
2791: --------------------------------------------------------------------------
2792: -- Procedure to find out all visit items which have no price list --
2793: --------------------------------------------------------------------------
2794: PROCEDURE get_visit_items_no_price
2795: (
2796: p_api_version IN NUMBER := 1.0,
2797: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2798: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2799: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2800: p_module_type IN VARCHAR2 := NULL,
2801: x_return_status OUT NOCOPY VARCHAR2,
2794: PROCEDURE get_visit_items_no_price
2795: (
2796: p_api_version IN NUMBER := 1.0,
2797: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2798: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2799: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2800: p_module_type IN VARCHAR2 := NULL,
2801: x_return_status OUT NOCOPY VARCHAR2,
2802: x_msg_count OUT NOCOPY NUMBER,
2795: (
2796: p_api_version IN NUMBER := 1.0,
2797: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2798: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2799: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2800: p_module_type IN VARCHAR2 := NULL,
2801: x_return_status OUT NOCOPY VARCHAR2,
2802: x_msg_count OUT NOCOPY NUMBER,
2803: x_msg_data OUT NOCOPY VARCHAR2,
2808: l_api_name VARCHAR2(30) :='GET_VISIT_ITEMS_NO_PRICE';
2809: l_msg_data VARCHAR2(2000);
2810: l_return_status VARCHAR2(1);
2811: l_flag VARCHAR2(1);
2812: l_commit VARCHAR2(1) := FND_API.G_FALSE;
2813: l_release_visit_required VARCHAR2(1) :='N';
2814: l_module_name VARCHAR2(200):='ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.get_visit_items_no_price';
2815:
2816: l_cost_price_rec AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type:=p_cost_price_rec;
2891: END IF;
2892:
2893: SAVEPOINT Get_Visit_Items_no_price_PVT;
2894:
2895: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
2896: p_api_version,
2897: l_api_name,G_PKG_NAME)
2898: THEN
2899: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2895: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
2896: p_api_version,
2897: l_api_name,G_PKG_NAME)
2898: THEN
2899: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2900: END IF;
2901:
2902: IF FND_API.to_boolean(p_init_msg_list)
2903: THEN
2898: THEN
2899: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2900: END IF;
2901:
2902: IF FND_API.to_boolean(p_init_msg_list)
2903: THEN
2904: FND_MSG_PUB.initialize;
2905: END IF;
2906:
2903: THEN
2904: FND_MSG_PUB.initialize;
2905: END IF;
2906:
2907: x_return_status:=FND_API.G_RET_STS_SUCCESS;
2908:
2909: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2910: fnd_log.string
2911: (
2917:
2918:
2919: -- Check for Required Parameters
2920: IF(l_cost_price_rec.visit_id IS NULL OR
2921: l_cost_price_rec.visit_id = FND_API.G_MISS_NUM) THEN
2922: FND_MESSAGE.Set_Name('AHL','AHL_VWP_CST_INPUT_MISS');
2923: FND_MSG_PUB.ADD;
2924:
2925: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2929: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2930: 'Visit id is mandatory but found null in input '
2931: );
2932: END IF;
2933: RAISE FND_API.G_EXC_ERROR;
2934: END IF;
2935:
2936:
2937:
2942: Then
2943: Fnd_Message.SET_NAME('AHL','AHL_VWP_VISIT_INVALID');
2944: Fnd_Msg_Pub.ADD;
2945: Close c_visit_csr;
2946: RAISE FND_API.G_EXC_ERROR;
2947: End if;
2948: Close c_visit_csr;
2949:
2950: -- Release visit if required
2968:
2969: AHL_VWP_PROJ_PROD_PVT.release_visit
2970: (
2971: p_api_version =>l_api_version,
2972: p_init_msg_list =>Fnd_Api.g_false,
2973: p_commit =>Fnd_Api.g_false,
2974: p_validation_level =>Fnd_Api.g_valid_level_full,
2975: p_module_type => 'CST',
2976: x_return_status =>l_return_Status,
2969: AHL_VWP_PROJ_PROD_PVT.release_visit
2970: (
2971: p_api_version =>l_api_version,
2972: p_init_msg_list =>Fnd_Api.g_false,
2973: p_commit =>Fnd_Api.g_false,
2974: p_validation_level =>Fnd_Api.g_valid_level_full,
2975: p_module_type => 'CST',
2976: x_return_status =>l_return_Status,
2977: x_msg_count =>x_msg_count,
2970: (
2971: p_api_version =>l_api_version,
2972: p_init_msg_list =>Fnd_Api.g_false,
2973: p_commit =>Fnd_Api.g_false,
2974: p_validation_level =>Fnd_Api.g_valid_level_full,
2975: p_module_type => 'CST',
2976: x_return_status =>l_return_Status,
2977: x_msg_count =>x_msg_count,
2978: x_msg_data =>x_msg_data,
2988: );
2989: END IF;
2990:
2991: -- Check Error Message stack.
2992: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2993: l_msg_count := FND_MSG_PUB.count_msg;
2994: IF l_msg_count > 0 THEN
2995: RAISE FND_API.G_EXC_ERROR;
2996: END IF;
2991: -- Check Error Message stack.
2992: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2993: l_msg_count := FND_MSG_PUB.count_msg;
2994: IF l_msg_count > 0 THEN
2995: RAISE FND_API.G_EXC_ERROR;
2996: END IF;
2997: END IF;
2998:
2999: END IF; -- release required flag
3003: If l_visit_rec.outside_party_flag ='N'
3004: then
3005: FND_MESSAGE.Set_Name('AHL','AHL_VWP_CST_OUTSDPRTY_FLAG');
3006: FND_MSG_PUB.ADD;
3007: RAISE FND_API.G_EXC_ERROR;
3008: --Display an error message `Visit number visit_number is not an outside party.'
3009: END if;
3010:
3011: -- Populate pricing attributes
3011: -- Populate pricing attributes
3012:
3013: -- Populate price list ID
3014:
3015: if l_visit_rec.price_list_id is not Null and l_visit_rec.price_list_id <> FND_API.G_MISS_NUM
3016: then
3017: l_cost_price_rec.price_list_id :=l_visit_rec.price_list_id;
3018: Else
3019: FND_MESSAGE.Set_Name('AHL','AHL_VWP_CST_PRICELISTIDNULL'); --AHL_VWP_PRICE_LIST_ID_NULL
3017: l_cost_price_rec.price_list_id :=l_visit_rec.price_list_id;
3018: Else
3019: FND_MESSAGE.Set_Name('AHL','AHL_VWP_CST_PRICELISTIDNULL'); --AHL_VWP_PRICE_LIST_ID_NULL
3020: FND_MSG_PUB.ADD;
3021: RAISE FND_API.G_EXC_ERROR;
3022:
3023: END IF;
3024:
3025:
3078: 'ahl.plsql.'||G_PKG_NAME||'.'||L_API_NAME,
3079: 'No curency is defined for the organization of the visit'
3080: );
3081: END IF;
3082: RAISE FND_API.G_EXC_ERROR;
3083: END IF;
3084:
3085: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3086: fnd_log.string
3112:
3113: IF (l_job_status_code is NULL) THEN
3114: l_msg_count := FND_MSG_PUB.count_msg;
3115: IF l_msg_count > 0 THEN
3116: RAISE FND_API.G_EXC_ERROR;
3117: END IF;
3118: END IF;
3119:
3120: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3168:
3169: AHL_VWP_MR_CST_PR_PVT.get_mr_items_no_price
3170: (
3171: p_api_version =>l_api_version,
3172: p_init_msg_list =>Fnd_Api.g_false,
3173: p_commit =>Fnd_Api.g_false,
3174: p_validation_level =>Fnd_Api.g_valid_level_full,
3175: p_module_type =>'VST',
3176: x_return_status =>l_return_Status,
3169: AHL_VWP_MR_CST_PR_PVT.get_mr_items_no_price
3170: (
3171: p_api_version =>l_api_version,
3172: p_init_msg_list =>Fnd_Api.g_false,
3173: p_commit =>Fnd_Api.g_false,
3174: p_validation_level =>Fnd_Api.g_valid_level_full,
3175: p_module_type =>'VST',
3176: x_return_status =>l_return_Status,
3177: x_msg_count =>x_msg_count,
3170: (
3171: p_api_version =>l_api_version,
3172: p_init_msg_list =>Fnd_Api.g_false,
3173: p_commit =>Fnd_Api.g_false,
3174: p_validation_level =>Fnd_Api.g_valid_level_full,
3175: p_module_type =>'VST',
3176: x_return_status =>l_return_Status,
3177: x_msg_count =>x_msg_count,
3178: x_msg_data =>x_msg_data,
3251:
3252: AHL_VWP_TASK_CST_PR_PVT.get_task_items_no_price
3253: (
3254: p_api_version =>p_api_version,
3255: p_init_msg_list =>fnd_api.g_false,
3256: p_commit =>fnd_api.g_false,
3257: p_validation_level =>p_validation_level,
3258: p_module_type =>'VST',
3259: x_return_status =>l_return_status,
3252: AHL_VWP_TASK_CST_PR_PVT.get_task_items_no_price
3253: (
3254: p_api_version =>p_api_version,
3255: p_init_msg_list =>fnd_api.g_false,
3256: p_commit =>fnd_api.g_false,
3257: p_validation_level =>p_validation_level,
3258: p_module_type =>'VST',
3259: x_return_status =>l_return_status,
3260: x_msg_count =>x_msg_count,
3292: END LOOP; -- All unassociated tasks
3293: CLOSE c_task_csr;
3294:
3295: -- Check Error Message stack.
3296: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3297: l_msg_count := FND_MSG_PUB.count_msg;
3298: IF l_msg_count > 0 THEN
3299: RAISE FND_API.G_EXC_ERROR;
3300: END IF;
3295: -- Check Error Message stack.
3296: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3297: l_msg_count := FND_MSG_PUB.count_msg;
3298: IF l_msg_count > 0 THEN
3299: RAISE FND_API.G_EXC_ERROR;
3300: END IF;
3301: END IF;
3302:
3303: x_cost_price_tbl:=l_cost_price_tbl;
3310: 'Total number of items w/o price for the MR: ' || x_cost_price_tbl.count
3311: );
3312: END IF;
3313:
3314: IF FND_API.TO_BOOLEAN(p_commit) THEN
3315: COMMIT;
3316: END IF;
3317:
3318: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
3323: 'At the end of the procedure');
3324: END IF;
3325:
3326: EXCEPTION
3327: WHEN FND_API.G_EXC_ERROR THEN
3328: x_return_status := FND_API.G_RET_STS_ERROR;
3329: ROLLBACK TO Get_Visit_Items_no_price_PVT;
3330: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3331: p_data => x_msg_data,
3324: END IF;
3325:
3326: EXCEPTION
3327: WHEN FND_API.G_EXC_ERROR THEN
3328: x_return_status := FND_API.G_RET_STS_ERROR;
3329: ROLLBACK TO Get_Visit_Items_no_price_PVT;
3330: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3331: p_data => x_msg_data,
3332: p_encoded => fnd_api.g_false);
3328: x_return_status := FND_API.G_RET_STS_ERROR;
3329: ROLLBACK TO Get_Visit_Items_no_price_PVT;
3330: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3331: p_data => x_msg_data,
3332: p_encoded => fnd_api.g_false);
3333:
3334: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3335: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3336: ROLLBACK TO Get_Visit_Items_no_price_PVT;
3330: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3331: p_data => x_msg_data,
3332: p_encoded => fnd_api.g_false);
3333:
3334: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3335: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3336: ROLLBACK TO Get_Visit_Items_no_price_PVT;
3337: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3338: p_data => x_msg_data,
3331: p_data => x_msg_data,
3332: p_encoded => fnd_api.g_false);
3333:
3334: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3335: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3336: ROLLBACK TO Get_Visit_Items_no_price_PVT;
3337: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3338: p_data => x_msg_data,
3339: p_encoded => fnd_api.g_false);
3335: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3336: ROLLBACK TO Get_Visit_Items_no_price_PVT;
3337: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3338: p_data => x_msg_data,
3339: p_encoded => fnd_api.g_false);
3340: WHEN OTHERS THEN
3341: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3342: ROLLBACK TO Get_Visit_Items_no_price_PVT;
3343: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3337: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3338: p_data => x_msg_data,
3339: p_encoded => fnd_api.g_false);
3340: WHEN OTHERS THEN
3341: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3342: ROLLBACK TO Get_Visit_Items_no_price_PVT;
3343: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3344: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
3345: p_procedure_name => l_api_name,
3346: p_error_text => SUBSTR(SQLERRM,1,500));
3347: END IF;
3348: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3349: p_data => x_msg_data,
3350: p_encoded => fnd_api.g_false);
3351: END Get_Visit_Items_no_price;
3352:
3353: --------------------------------------------------------------------------------
3354: ------- Check various conditions and release visit if needed
3555: -- Parameters :
3556:
3557: -- Standard IN Parameters :
3558: -- p_api_version IN NUMBER := 1.0,
3559: -- p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3560: -- p_commit IN VARCHAR2 := Fnd_Api.G_FALSE
3561: -- p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3562: --
3563: -- Standard OUT Parameters :
3556:
3557: -- Standard IN Parameters :
3558: -- p_api_version IN NUMBER := 1.0,
3559: -- p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3560: -- p_commit IN VARCHAR2 := Fnd_Api.G_FALSE
3561: -- p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3562: --
3563: -- Standard OUT Parameters :
3564: -- x_return_status OUT VARCHAR2 Required
3557: -- Standard IN Parameters :
3558: -- p_api_version IN NUMBER := 1.0,
3559: -- p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3560: -- p_commit IN VARCHAR2 := Fnd_Api.G_FALSE
3561: -- p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3562: --
3563: -- Standard OUT Parameters :
3564: -- x_return_status OUT VARCHAR2 Required
3565: -- x_msg_count OUT NUMBER Required
3575: -- 01 JUN, 2010 Visit Cost Estimation CP ER 9299910 salogan Initial Version - 1.0
3576: -------------------------------------------------------------------------------------------------
3577: PROCEDURE bg_estimate_visit_cost
3578: ( p_api_version IN NUMBER := 1.0,
3579: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3580: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3581: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3582: p_module_type IN VARCHAR2 := 'CST',
3583: p_x_cost_price_rec IN OUT NOCOPY AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type,
3576: -------------------------------------------------------------------------------------------------
3577: PROCEDURE bg_estimate_visit_cost
3578: ( p_api_version IN NUMBER := 1.0,
3579: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3580: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3581: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3582: p_module_type IN VARCHAR2 := 'CST',
3583: p_x_cost_price_rec IN OUT NOCOPY AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type,
3584: x_request_id OUT NOCOPY NUMBER,
3577: PROCEDURE bg_estimate_visit_cost
3578: ( p_api_version IN NUMBER := 1.0,
3579: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3580: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3581: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3582: p_module_type IN VARCHAR2 := 'CST',
3583: p_x_cost_price_rec IN OUT NOCOPY AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type,
3584: x_request_id OUT NOCOPY NUMBER,
3585: x_return_status OUT NOCOPY VARCHAR2,
3631: -- Standard start of API savepoint
3632: SAVEPOINT bg_estimate_visit_cost_pvt;
3633:
3634: -- Initialize message list if p_init_msg_list is set to TRUE
3635: IF FND_API.To_Boolean(p_init_msg_list) THEN
3636: FND_MSG_PUB.Initialize;
3637: END IF;
3638: -- Initialize API return status to success
3639: x_return_status := FND_API.G_RET_STS_SUCCESS;
3635: IF FND_API.To_Boolean(p_init_msg_list) THEN
3636: FND_MSG_PUB.Initialize;
3637: END IF;
3638: -- Initialize API return status to success
3639: x_return_status := FND_API.G_RET_STS_SUCCESS;
3640:
3641: -- Standard call to check for call compatibility.
3642: IF NOT FND_API.COMPATIBLE_API_CALL(L_API_VERSION,
3643: p_api_version,
3638: -- Initialize API return status to success
3639: x_return_status := FND_API.G_RET_STS_SUCCESS;
3640:
3641: -- Standard call to check for call compatibility.
3642: IF NOT FND_API.COMPATIBLE_API_CALL(L_API_VERSION,
3643: p_api_version,
3644: L_API_NAME,G_PKG_NAME) THEN
3645: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3646: END IF;
3641: -- Standard call to check for call compatibility.
3642: IF NOT FND_API.COMPATIBLE_API_CALL(L_API_VERSION,
3643: p_api_version,
3644: L_API_NAME,G_PKG_NAME) THEN
3645: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3646: END IF;
3647:
3648: SELECT visit_number, status_code INTO l_visit_num, l_visit_status FROM AHL_VISITS_B WHERE visit_id = p_x_cost_price_rec.Visit_id;
3649:
3651: fnd_log.string(l_log_procedure,L_DEBUG_KEY||'.begin','After fetching the visit number, status from visit id. Visit Number = ' || l_visit_num|| 'Visit Status Code = '||l_visit_status);
3652: END IF;
3653:
3654: -- Check for Required Parameters
3655: IF(p_x_cost_price_rec.Visit_id IS NULL OR p_x_cost_price_rec.Visit_id = FND_API.G_MISS_NUM) THEN
3656: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_INPUT_MISS');
3657: FND_MSG_PUB.ADD;
3658: IF (l_log_unexpected >= l_log_current_level)THEN
3659: fnd_log.string
3662: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.bg_estimate_visit_cost',
3663: 'Visit id is mandatory but found null in input '
3664: );
3665: END IF;
3666: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3667: END IF;
3668:
3669: OPEN c_conc_req_phase(p_x_cost_price_rec.Visit_id);
3670: FETCH c_conc_req_phase INTO l_dummy;
3670: FETCH c_conc_req_phase INTO l_dummy;
3671: IF(c_conc_req_phase%FOUND) THEN
3672: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CP_P2P_IN_PROGS');
3673: FND_MSG_PUB.ADD;
3674: RAISE FND_API.G_EXC_ERROR;
3675: END IF;
3676: CLOSE c_conc_req_phase;
3677:
3678: -- Validate visit if required
3685: --Valdate before Cost Estimation happens
3686: AHL_VWP_PROJ_PROD_PVT.Validate_Before_Production
3687: (p_api_version => p_api_version,
3688: p_init_msg_list => p_init_msg_list,
3689: p_commit => FND_API.G_FALSE,
3690: p_validation_level => p_validation_level,
3691: p_module_type => p_module_type,
3692: p_visit_id => p_x_cost_price_rec.Visit_id,
3693: x_error_tbl => l_error_tbl_type,
3694: x_return_status => l_return_status,
3695: x_msg_count => l_msg_count,
3696: x_msg_data => l_msg_data);
3697:
3698: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) OR (l_error_tbl_type.COUNT > 0) THEN
3699: -- Check Error Message stack.
3700: x_msg_count := FND_MSG_PUB.count_msg;
3701:
3702: IF (l_log_statement >= l_log_current_level)THEN
3701:
3702: IF (l_log_statement >= l_log_current_level)THEN
3703: fnd_log.string ( l_log_statement, L_DEBUG_KEY,'Errors from AHL_VWP_PROJ_PROD_PVT.Validate_Before_Production - '||x_msg_count);
3704: END IF;
3705: RAISE Fnd_Api.g_exc_error;
3706: END IF;
3707: END IF;
3708:
3709: IF (l_log_statement >= l_log_current_level) THEN
3756: IF (l_log_procedure >= l_log_current_level)THEN
3757: fnd_log.string ( l_log_procedure,L_DEBUG_KEY ||'.end','At the end of PLSQL procedure, x_return_status=' || x_return_status);
3758: END IF;
3759: EXCEPTION
3760: WHEN FND_API.G_EXC_ERROR THEN
3761: x_return_status := FND_API.G_RET_STS_ERROR;
3762: ROLLBACK TO bg_estimate_visit_cost_pvt;
3763: FND_MSG_PUB.count_and_get(
3764: p_count => x_msg_count,
3757: fnd_log.string ( l_log_procedure,L_DEBUG_KEY ||'.end','At the end of PLSQL procedure, x_return_status=' || x_return_status);
3758: END IF;
3759: EXCEPTION
3760: WHEN FND_API.G_EXC_ERROR THEN
3761: x_return_status := FND_API.G_RET_STS_ERROR;
3762: ROLLBACK TO bg_estimate_visit_cost_pvt;
3763: FND_MSG_PUB.count_and_get(
3764: p_count => x_msg_count,
3765: p_data => x_msg_data,
3762: ROLLBACK TO bg_estimate_visit_cost_pvt;
3763: FND_MSG_PUB.count_and_get(
3764: p_count => x_msg_count,
3765: p_data => x_msg_data,
3766: p_encoded => fnd_api.g_false);
3767:
3768: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3769: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3770: ROLLBACK TO bg_estimate_visit_cost_pvt;
3764: p_count => x_msg_count,
3765: p_data => x_msg_data,
3766: p_encoded => fnd_api.g_false);
3767:
3768: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3769: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3770: ROLLBACK TO bg_estimate_visit_cost_pvt;
3771: FND_MSG_PUB.count_and_get(
3772: p_count => x_msg_count,
3765: p_data => x_msg_data,
3766: p_encoded => fnd_api.g_false);
3767:
3768: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3769: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3770: ROLLBACK TO bg_estimate_visit_cost_pvt;
3771: FND_MSG_PUB.count_and_get(
3772: p_count => x_msg_count,
3773: p_data => x_msg_data,
3770: ROLLBACK TO bg_estimate_visit_cost_pvt;
3771: FND_MSG_PUB.count_and_get(
3772: p_count => x_msg_count,
3773: p_data => x_msg_data,
3774: p_encoded => fnd_api.g_false);
3775:
3776: WHEN OTHERS THEN
3777: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3778: ROLLBACK TO bg_estimate_visit_cost_pvt;
3773: p_data => x_msg_data,
3774: p_encoded => fnd_api.g_false);
3775:
3776: WHEN OTHERS THEN
3777: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3778: ROLLBACK TO bg_estimate_visit_cost_pvt;
3779: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3780: fnd_msg_pub.add_exc_msg(
3781: p_pkg_name => G_PKG_NAME,
3783: p_error_text => SUBSTR(SQLERRM,1,500));
3784: END IF;
3785: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
3786: p_data => x_msg_data,
3787: p_encoded => fnd_api.g_false);
3788:
3789: END bg_estimate_visit_cost;
3790:
3791: --------------------------------------------------------------------------------------------
3832: -- 1. Initialize error message stack by default
3833: FND_MSG_PUB.Initialize;
3834:
3835: -- Standard call to check for call compatibility
3836: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3837: retcode := 2;
3838: errbuf := FND_MSG_PUB.Get;
3839: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3840: END IF;
3835: -- Standard call to check for call compatibility
3836: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3837: retcode := 2;
3838: errbuf := FND_MSG_PUB.Get;
3839: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3840: END IF;
3841:
3842: -- 2. Dump all input parameters
3843: fnd_file.put_line(fnd_file.log, '*************API input parameters**************');
3854: fnd_file.put_line(fnd_file.log, 'visit_id -> '||l_cost_price_rec.visit_id);
3855:
3856: estimate_visit_cost(
3857: p_api_version => 1.0,
3858: p_init_msg_list => FND_API.G_TRUE,
3859: p_commit => FND_API.G_TRUE,
3860: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3861: p_module_type => p_module_type,
3862: p_x_cost_price_rec => l_cost_price_rec,
3855:
3856: estimate_visit_cost(
3857: p_api_version => 1.0,
3858: p_init_msg_list => FND_API.G_TRUE,
3859: p_commit => FND_API.G_TRUE,
3860: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3861: p_module_type => p_module_type,
3862: p_x_cost_price_rec => l_cost_price_rec,
3863: x_return_status => l_return_status,
3856: estimate_visit_cost(
3857: p_api_version => 1.0,
3858: p_init_msg_list => FND_API.G_TRUE,
3859: p_commit => FND_API.G_TRUE,
3860: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3861: p_module_type => p_module_type,
3862: p_x_cost_price_rec => l_cost_price_rec,
3863: x_return_status => l_return_status,
3864: x_msg_count => l_msg_count,
3866:
3867: l_msg_count := FND_MSG_PUB.Count_Msg;
3868: IF (l_msg_count > 0) THEN
3869: fnd_file.put_line(fnd_file.log, 'Following error occured while estimating visit cost.');
3870: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3871: RAISE FND_API.G_EXC_ERROR;
3872: ELSE
3873: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3874: END IF;
3867: l_msg_count := FND_MSG_PUB.Count_Msg;
3868: IF (l_msg_count > 0) THEN
3869: fnd_file.put_line(fnd_file.log, 'Following error occured while estimating visit cost.');
3870: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3871: RAISE FND_API.G_EXC_ERROR;
3872: ELSE
3873: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3874: END IF;
3875: END IF;
3869: fnd_file.put_line(fnd_file.log, 'Following error occured while estimating visit cost.');
3870: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3871: RAISE FND_API.G_EXC_ERROR;
3872: ELSE
3873: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3874: END IF;
3875: END IF;
3876: END IF;
3877:
3875: END IF;
3876: END IF;
3877:
3878: EXCEPTION
3879: WHEN FND_API.G_EXC_ERROR THEN
3880: ROLLBACK TO bg_exec_estimate_visit_cost;
3881: retcode := 2;
3882: FOR i IN 1..l_msg_count
3883: LOOP
3881: retcode := 2;
3882: FOR i IN 1..l_msg_count
3883: LOOP
3884: fnd_msg_pub.get( p_msg_index => i,
3885: p_encoded => FND_API.G_FALSE,
3886: p_data => l_err_msg,
3887: p_msg_index_out => l_msg_index_out);
3888:
3889: fnd_file.put_line(FND_FILE.LOG, 'Err message-'||l_msg_index_out||':' || l_err_msg);
3889: fnd_file.put_line(FND_FILE.LOG, 'Err message-'||l_msg_index_out||':' || l_err_msg);
3890: END LOOP;
3891:
3892:
3893: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3894: ROLLBACK TO bg_exec_estimate_visit_cost;
3895: retcode := 2;
3896: l_msg_count := Fnd_Msg_Pub.count_msg;
3897: FOR i IN 1..l_msg_count
3896: l_msg_count := Fnd_Msg_Pub.count_msg;
3897: FOR i IN 1..l_msg_count
3898: LOOP
3899: fnd_msg_pub.get( p_msg_index => i,
3900: p_encoded => FND_API.G_FALSE,
3901: p_data => l_err_msg,
3902: p_msg_index_out => l_msg_index_out);
3903:
3904: fnd_file.put_line(FND_FILE.LOG, 'Err message-'||l_msg_index_out||':' || l_err_msg);
3916: l_msg_count := Fnd_Msg_Pub.count_msg;
3917: FOR i IN 1..l_msg_count
3918: LOOP
3919: fnd_msg_pub.get( p_msg_index => i,
3920: p_encoded => FND_API.G_FALSE,
3921: p_data => l_err_msg,
3922: p_msg_index_out => l_msg_index_out);
3923:
3924: fnd_file.put_line(FND_FILE.LOG, 'Err message-'||l_msg_index_out||':' || l_err_msg);