[Home] [Help]
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
121: x_return_status := FND_API.G_RET_STS_SUCCESS;
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
160: (
161: fnd_log.level_exception,
176: l_cost_price_rec.Cp_Request_Id; --salogan::Fetched and stored request id in cost record CP ER 9299910::01-JUN-2009
177:
178: IF (visit_info_csr%NOTFOUND)THEN
179: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_INV_VISIT');
180: FND_MSG_PUB.ADD;
181: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
182: fnd_log.string
183: (
184: fnd_log.level_exception,
199: OPEN customer_id_csr(l_cost_price_rec.service_request_id);
200: FETCH customer_id_csr INTO l_cost_price_rec.customer_id;
201: IF(customer_id_csr%NOTFOUND)THEN
202: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_INV_SR_ID');
203: FND_MSG_PUB.ADD;
204: IF(fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
205: fnd_log.string
206: (
207: fnd_log.level_unexpected,
234: FETCH price_list_name_csr INTO l_cost_price_rec.price_list_name;
235:
236: IF(price_list_name_csr%NOTFOUND)THEN
237: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_INV_VISIT');
238: FND_MSG_PUB.ADD;
239: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
240: fnd_log.string
241: (
242: fnd_log.level_error,
352: END IF;
353: END IF; -- status <> CANCELLED
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:
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);
419:
420:
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);
427:
428:
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;
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,
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;
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
518: x_return_status := FND_API.G_RET_STS_SUCCESS;
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
548: (
549: fnd_log.level_exception,
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
559: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_INPUT_OSP_INV');
560: FND_MSG_PUB.ADD;
561: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
562: fnd_log.string
563: (
564: fnd_log.level_exception,
577: l_close_date_time;
578:
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
592: END IF;
593:
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
607: END IF;
608:
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
628: FETCH visit_tasks_csr INTO l_exists;
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
653: IF (l_cost_price_rec.outside_party_flag = 'Y' AND l_cost_price_rec.price_list_name IS NULL)
654: THEN
655:
656: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_PRICE_LIST_MAND');
657: FND_MSG_PUB.ADD;
658: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
659: fnd_log.string
660: (
661: fnd_log.level_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.
690: FND_MSG_PUB.ADD;
691: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
692: fnd_log.string
693: (
694: fnd_log.level_error,
721: IF (TRUNC(l_price_list_active_start_date) > TRUNC(l_start_date_time)) OR
722: (TRUNC(l_price_list_active_end_date) < TRUNC(l_start_date_time)) THEN
723:
724: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_PRICE_LIST_INV_STR');
725: FND_MSG_PUB.ADD;
726: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
727: fnd_log.string
728: (
729: fnd_log.level_error,
742: IF (TRUNC(l_price_list_active_start_date) > TRUNC(l_close_date_time)) OR
743: (TRUNC(l_price_list_active_end_date) < TRUNC(l_close_date_time)) THEN
744:
745: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_PRICE_LIST_INV_END');
746: FND_MSG_PUB.ADD;
747: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
748: fnd_log.string
749: (
750: fnd_log.level_error,
764: (TRUNC(l_price_list_active_end_date) < TRUNC(sysdate)) THEN
765:
766: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_PRICE_LIST_INV_SYS');
767: -- CHANGE THIS MESSAGE TEST AND NAME TOO -- IMPORTANT
768: FND_MSG_PUB.ADD;
769: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
770: fnd_log.string
771: (
772: fnd_log.level_error,
863:
864: -- Reema End
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:
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);
893:
894:
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);
901:
902:
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;
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,
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:
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
969: x_return_status := FND_API.G_RET_STS_SUCCESS;
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
1011: fnd_log.string
1012: (
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;
1073: 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;
1103:
1104: IF x_msg_count > 0 THEN
1105: RAISE FND_API.G_EXC_ERROR;
1106: END IF;
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);
1135:
1136: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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);
1142:
1143: WHEN OTHERS THEN
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,
1149: p_procedure_name => 'estimate_visit_cost',
1150: p_error_text => SUBSTR(SQLERRM,1,500));
1151: END IF;
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,
1149: p_procedure_name => 'estimate_visit_cost',
1150: p_error_text => SUBSTR(SQLERRM,1,500));
1151: END IF;
1152:
1149: p_procedure_name => 'estimate_visit_cost',
1150: p_error_text => SUBSTR(SQLERRM,1,500));
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:
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
1511: x_return_status := FND_API.G_RET_STS_SUCCESS;
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
1539: (
1540: fnd_log.level_exception,
1551:
1552: IF(visit_info_csr%NOTFOUND)THEN
1553:
1554: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_INV_VISIT');
1555: FND_MSG_PUB.ADD;
1556:
1557: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
1558: fnd_log.string
1559: (
1571:
1572: -- price estimation valid or not
1573: IF(l_cost_price_rec.outside_party_flag <> 'Y')THEN
1574: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_INV_PR_EST');
1575: FND_MSG_PUB.ADD;
1576:
1577: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1578: fnd_log.string
1579: (
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;
1627: END IF;
1648: FETCH customer_id_csr INTO l_cost_price_rec.customer_id;
1649:
1650: IF(customer_id_csr%NOTFOUND)THEN
1651: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_INV_SRVREQ_NOCUST');
1652: FND_MSG_PUB.ADD;
1653:
1654: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1655: fnd_log.string
1656: (
1673:
1674: -- Check if currency value is null
1675: IF l_cost_price_rec.currency IS NULL THEN
1676: FND_MESSAGE.Set_Name(G_PKG_NAME,'AHL_VWP_CST_NO_CURRENCY');
1677: FND_MSG_PUB.ADD;
1678:
1679: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1680: fnd_log.string
1681: (
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:
1698: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1699: fnd_log.string
1700: (
1774: x_status_meaning => l_job_status_meaning
1775: );
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;
2123: p_x_cost_price_rec.estimated_price := l_estimated_price;
2124:
2125:
2126: -- Check Error Message stack.
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;
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,
2161:
2162: p_data => x_msg_data,
2163:
2164: p_encoded => fnd_api.g_false);
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,
2174:
2175: p_data => x_msg_data,
2176:
2177: p_encoded => fnd_api.g_false);
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
2186:
2187: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2188:
2189: p_procedure_name => 'estimate_visit_price',
2183: ROLLBACK TO estimate_visit_price;
2184:
2185: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2186:
2187: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2188:
2189: p_procedure_name => 'estimate_visit_price',
2190:
2191: p_error_text => SUBSTR(SQLERRM,1,500));
2191: p_error_text => SUBSTR(SQLERRM,1,500));
2192:
2193: END IF;
2194:
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);
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
2264:
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:
2291: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
2292: fnd_log.string
2293: (
2309:
2310: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_SNAP_PRC_MISS');
2311: FND_MESSAGE.Set_Token('VISIT_TASK_NUMBER',other_tasks_rec.visit_task_number);
2312: FND_MESSAGE.Set_Token('VISIT_NUMBER',other_tasks_rec.visit_number);
2313: FND_MSG_PUB.ADD;
2314:
2315: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2316: fnd_log.string
2317: (
2400:
2401:
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:
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,
2432:
2433: p_data => x_msg_data,
2434:
2435: p_encoded => fnd_api.g_false);
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,
2444:
2445: p_data => x_msg_data,
2446:
2447: p_encoded => fnd_api.g_false);
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
2456:
2457: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2458:
2459: p_procedure_name => 'create_price_snapshot',
2453: ROLLBACK TO create_price_snapshot;
2454:
2455: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2456:
2457: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2458:
2459: p_procedure_name => 'create_price_snapshot',
2460:
2461: p_error_text => SUBSTR(SQLERRM,1,500));
2461: p_error_text => SUBSTR(SQLERRM,1,500));
2462:
2463: END IF;
2464:
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);
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
2543: x_return_status := FND_API.G_RET_STS_SUCCESS;
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
2570: (
2571: fnd_log.level_exception,
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
2625: (
2626: fnd_log.level_error,
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
2693: (
2694: fnd_log.level_error,
2739: );
2740: END LOOP;
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:
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);
2768:
2769:
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);
2776:
2777:
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;
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,
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:
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:
2907: x_return_status:=FND_API.G_RET_STS_SUCCESS;
2908:
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
2926: fnd_log.string
2927: (
2940: Fetch c_visit_csr into l_visit_rec;
2941: If c_visit_csr%notfound
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;
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;
2997: END IF;
3002:
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:
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
3020: FND_MSG_PUB.ADD;
3021: RAISE FND_API.G_EXC_ERROR;
3022:
3023: END IF;
3024:
3069:
3070: -- Error handling
3071: IF l_cost_price_rec.currency IS NULL THEN
3072: FND_MESSAGE.Set_Name(G_PKG_NAME,'AHL_VWP_CST_NO_CURRENCY');
3073: FND_MSG_PUB.ADD;
3074: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3075: fnd_log.string
3076: (
3077: fnd_log.level_error,
3110: x_status_meaning => l_job_status_meaning
3111: );
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;
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;
3301: END IF;
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);
3333:
3334: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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);
3340: WHEN OTHERS THEN
3341: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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;
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,
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:
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;
3640:
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
3660: (
3661: l_log_unexpected,
3669: OPEN c_conc_req_phase(p_x_cost_price_rec.Visit_id);
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:
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
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;
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,
3766: p_encoded => fnd_api.g_false);
3767:
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,
3774: p_encoded => fnd_api.g_false);
3775:
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,
3782: p_procedure_name => 'bg_estimate_visit_cost',
3783: p_error_text => SUBSTR(SQLERRM,1,500));
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,
3782: p_procedure_name => 'bg_estimate_visit_cost',
3783: p_error_text => SUBSTR(SQLERRM,1,500));
3784: END IF;
3781: p_pkg_name => G_PKG_NAME,
3782: p_procedure_name => 'bg_estimate_visit_cost',
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;
3829: -- Standard start of API savepoint
3830: SAVEPOINT bg_exec_estimate_visit_cost;
3831:
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;
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;
3841:
3842: -- 2. Dump all input parameters
3863: x_return_status => l_return_status,
3864: x_msg_count => l_msg_count,
3865: x_msg_data => l_msg_data);
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;
3880: ROLLBACK TO bg_exec_estimate_visit_cost;
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:
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
3898: LOOP
3899: fnd_msg_pub.get( p_msg_index => i,
3900: p_encoded => FND_API.G_FALSE,
3895: retcode := 2;
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:
3907:
3908: WHEN OTHERS THEN
3909: ROLLBACK TO bg_exec_estimate_visit_cost;
3910: retcode := 2;
3911: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3912: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
3913: p_procedure_name => 'bg_exec_estimate_visit_cost',
3914: p_error_text => SUBSTR(SQLERRM,1,500));
3915: END IF;
3908: WHEN OTHERS THEN
3909: ROLLBACK TO bg_exec_estimate_visit_cost;
3910: retcode := 2;
3911: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3912: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
3913: p_procedure_name => 'bg_exec_estimate_visit_cost',
3914: p_error_text => SUBSTR(SQLERRM,1,500));
3915: END IF;
3916: l_msg_count := Fnd_Msg_Pub.count_msg;
3912: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
3913: p_procedure_name => 'bg_exec_estimate_visit_cost',
3914: p_error_text => SUBSTR(SQLERRM,1,500));
3915: END IF;
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,
3915: END IF;
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: