[Home] [Help]
733:
734: -- yazhou end
735: --
736: BEGIN
737: -- Standard Start of API savepoint
738: SAVEPOINT Process_Visit;
739:
740: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
741: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure');
748: END IF;
749:
750: x_return_status := FND_API.G_RET_STS_SUCCESS;
751:
752: -- Standard call to check for call compatibility.
753: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
754: p_api_version,
755: l_api_name,G_PKG_NAME) THEN
756: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1026: END IF;
1027:
1028:
1029: ------------------------End of API Body---------------------------------------
1030: --Standard check to count messages
1031: l_msg_count := Fnd_Msg_Pub.count_msg;
1032:
1033: IF l_msg_count > 0 THEN
1034: x_msg_count := l_msg_count;
1039: END IF;
1040: END IF;
1041:
1042: -- Proceed to commit if status is 'S' or if there were only validation errors
1043: --Standard check for commit
1044: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
1045: COMMIT;
1046: END IF;
1047:
1333: l_sub_code VARCHAR2(10) := NULL;
1334: l_locator_code VARCHAR2(240) := NULL;
1335:
1336: BEGIN
1337: -- Standard start of API savepoint
1338: SAVEPOINT Get_Visit_Details;
1339:
1340: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1341: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure, p_visit_id - '||p_visit_id);
1348:
1349: -- Initialize API return status to success
1350: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1351:
1352: -- Standard call to check for call compatibility.
1353: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
1354: p_api_version,
1355: l_api_name,G_PKG_NAME) THEN
1356: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1590: --End Changes
1591: x_visit_rec := l_visit_rec;
1592: END IF;
1593: ------------------------End of API Body------------------------------------
1594: -- Standard call to get message count and if count is 1, get message info
1595: Fnd_Msg_Pub.Count_And_Get
1596: ( p_count => x_msg_count,
1597: p_data => x_msg_data,
1598: p_encoded => Fnd_Api.g_false);
1825:
1826: -- Initialize API return status to success
1827: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1828:
1829: -- Standard call to check for call compatibility.
1830: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
1831: p_api_version,
1832: l_api_name,G_PKG_NAME) THEN
1833: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2319: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit ID : '||l_Visit_rec.VISIT_ID);
2320: END IF;
2321: END IF;
2322:
2323: --Standard check to count messages
2324: l_msg_count := Fnd_Msg_Pub.count_msg;
2325:
2326: IF l_msg_count > 0 THEN
2327: x_msg_count := l_msg_count;
2400: ELSE
2401: l_Visit_rec.unit_schedule_id := NULL;
2402: END IF;
2403:
2404: --Standard check to count messages
2405: l_msg_count := Fnd_Msg_Pub.count_msg;
2406:
2407: IF l_msg_count > 0 THEN
2408: x_msg_count := l_msg_count;
2658: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2659: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VWP_TASKS_PVT.ASSOCIATE_DEFAULT_MRS - x_return_status : '||x_return_status);
2660: END IF;
2661:
2662: --Standard check to count messages
2663: l_msg_count := Fnd_Msg_Pub.count_msg;
2664:
2665: IF l_msg_count > 0 THEN
2666: X_msg_count := l_msg_count;
2686: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2687: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VWP_TIMES_PVT.Calculate_Task_Times - l_return_status : '||l_return_status);
2688: END IF;
2689:
2690: --Standard check to count messages
2691: l_msg_count := Fnd_Msg_Pub.count_msg;
2692:
2693: IF l_msg_count > 0 THEN
2694: X_msg_count := l_msg_count;
2763: -- SKPATHAK :: 02-MAY-2011 :: VWPE: ER:12424063 :: END
2764: END IF; -- l_Visit_rec.visit_create_type IS NOT NULL
2765:
2766: ---------------------------End of API Body---------------------------------------
2767: --Standard check to count messages
2768: l_msg_count := Fnd_Msg_Pub.count_msg;
2769:
2770: IF l_msg_count > 0 THEN
2771: X_msg_count := l_msg_count;
2772: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2773: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2774: END IF;
2775:
2776: --Standard check for commit
2777: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
2778: COMMIT;
2779: END IF;
2780:
2928:
2929: -- Initialize API return status to success
2930: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2931:
2932: -- Standard call to check for call compatibility.
2933: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
2934: p_api_version,
2935: l_api_name,G_PKG_NAME) THEN
2936: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3296: -- Return ID of the new visit
3297: p_x_Visit_rec.visit_id := l_visit_id;
3298:
3299: ---------------------------End of API Body---------------------------------------
3300: --Standard check to count messages
3301: l_msg_count := Fnd_Msg_Pub.count_msg;
3302:
3303: IF l_msg_count > 0 THEN
3304: X_msg_count := l_msg_count;
3305: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3306: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3307: END IF;
3308:
3309: --Standard check for commit
3310: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
3311: COMMIT;
3312: END IF;
3313:
3575:
3576: -- Initialize API return status to success
3577: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3578:
3579: -- Standard call to check for call compatibility.
3580: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
3581: p_api_version,
3582: l_api_name,G_PKG_NAME)
3583: THEN
5036: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5037: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5038: END IF;
5039:
5040: --Standard check for commit
5041: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
5042: COMMIT;
5043: END IF;
5044:
5308:
5309: --Initialize API return status to success
5310: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
5311:
5312: -- Standard call to check for call compatibility.
5313: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
5314: p_api_version,
5315: l_api_name,G_PKG_NAME) THEN
5316: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5617: LAST_UPDATE_LOGIN = Fnd_Global.LOGIN_ID
5618: WHERE VISIT_ID = l_visit_rec.visit_id;
5619: END IF; -- soft delete flag
5620: --------------------------End of API Body---------------------------------------
5621: --Standard check to count messages
5622: l_msg_count := Fnd_Msg_Pub.count_msg;
5623:
5624: IF l_msg_count > 0 THEN
5625: X_msg_count := l_msg_count;
5626: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5627: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5628: END IF;
5629:
5630: --Standard check for commit
5631: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
5632: COMMIT;
5633: END IF;
5634:
5960: IF (l_log_procedure >= l_log_current_level) THEN
5961: FND_LOG.string(l_log_procedure, l_full_name || '.begin', 'At the start of the API');
5962: END IF;
5963:
5964: -- Standard call to check for call compatibility
5965: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
5966: l_api_name, G_PKG_NAME) THEN
5967: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5968: END IF;
6395:
6396: -- Initialize API return status to success
6397: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
6398:
6399: -- Standard call to check for call compatibility.
6400: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
6401: p_api_version,
6402: l_api_name,G_PKG_NAME) THEN
6403: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
6730: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Mr Session ID:' || p_x_mr_session_id);
6731: END IF;
6732: ---------------------------End of API Body-------------------------------------
6733:
6734: -- Standard check of p_commit.
6735: IF Fnd_Api.To_Boolean ( p_commit ) THEN
6736: COMMIT WORK;
6737: END IF;
6738:
6915:
6916: -- Initialize API return status to success
6917: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
6918:
6919: -- Standard call to check for call compatibility.
6920: IF NOT Fnd_Api.COMPATIBLE_API_CALL( l_api_version,
6921: p_api_version,
6922: l_api_name,G_PKG_NAME) THEN
6923: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
7202: CLOSE c_service_request;
7203:
7204:
7205: ---------------------------End of API Body-------------------------------------
7206: -- Standard check of p_commit.
7207:
7208: IF Fnd_Api.To_Boolean ( p_commit ) THEN
7209: COMMIT WORK;
7210: END IF;
7326:
7327: -- Initialize API return status to success
7328: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
7329:
7330: -- Standard call to check for call compatibility.
7331: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
7332: p_api_version,
7333: l_api_name,G_PKG_NAME)
7334: THEN
7603: X_msg_count := l_msg_count;
7604: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
7605: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
7606: END IF;
7607: --Standard check for commit
7608: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
7609: COMMIT;
7610: END IF;
7611: