109: END IF;
110:
111: --Initialize message list if p_init_msg_list is set to TRUE.
112: IF FND_API.to_boolean( p_init_msg_list ) THEN
113: FND_MSG_PUB.initialize;
114: END IF;
115:
116: -- This table stores details of only one visit temporarily.
117: OPEN is_visit_present(p_visit_id);
306: COMMIT WORK;
307: END IF;
308:
309: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
310: x_msg_count := FND_MSG_PUB.count_msg;
311: IF x_msg_count > 0 THEN
312: RAISE FND_API.G_EXC_ERROR;
313: END IF;
314:
312: RAISE FND_API.G_EXC_ERROR;
313: END IF;
314:
315: -- Count and Get messages (optional)
316: FND_MSG_PUB.count_and_get(
317: p_encoded => FND_API.G_FALSE,
318: p_count => x_msg_count,
319: p_data => x_msg_data);
320:
320:
321: EXCEPTION
322: WHEN FND_API.G_EXC_ERROR THEN
323: x_return_status := FND_API.G_RET_STS_ERROR ;
324: FND_MSG_PUB.count_and_get(
325: p_encoded => FND_API.G_FALSE,
326: p_count => x_msg_count,
327: p_data => x_msg_data);
328:
327: p_data => x_msg_data);
328:
329: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
330: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
331: FND_MSG_PUB.count_and_get(
332: p_encoded => FND_API.G_FALSE,
333: p_count => x_msg_count,
334: p_data => x_msg_data);
335:
334: p_data => x_msg_data);
335:
336: WHEN OTHERS THEN
337: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
338: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
339: THEN
340: FND_MSG_PUB.add_exc_msg(
341: p_pkg_name => G_PKG_NAME,
342: p_procedure_name => l_api_name,
336: WHEN OTHERS THEN
337: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
338: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
339: THEN
340: FND_MSG_PUB.add_exc_msg(
341: p_pkg_name => G_PKG_NAME,
342: p_procedure_name => l_api_name,
343: p_error_text => SUBSTRB(SQLERRM,1,240));
344: END IF;
341: p_pkg_name => G_PKG_NAME,
342: p_procedure_name => l_api_name,
343: p_error_text => SUBSTRB(SQLERRM,1,240));
344: END IF;
345: FND_MSG_PUB.count_and_get(
346: p_encoded => FND_API.G_FALSE,
347: p_count => x_msg_count,
348: p_data => x_msg_data);
349: END Get_visit_ir_uc_details;
401: END IF;
402:
403: --Initialize message list if p_init_msg_list is set to TRUE.
404: IF FND_API.to_boolean( p_init_msg_list ) THEN
405: FND_MSG_PUB.initialize;
406: END IF;
407:
408: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
409: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
471: COMMIT WORK;
472: END IF;
473:
474: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
475: x_msg_count := FND_MSG_PUB.count_msg;
476: IF x_msg_count > 0 THEN
477: RAISE FND_API.G_EXC_ERROR;
478: END IF;
479:
477: RAISE FND_API.G_EXC_ERROR;
478: END IF;
479:
480: -- Count and Get messages (optional)
481: FND_MSG_PUB.count_and_get(
482: p_encoded => FND_API.G_FALSE,
483: p_count => x_msg_count,
484: p_data => x_msg_data);
485:
486: EXCEPTION
487: WHEN FND_API.G_EXC_ERROR THEN
488: ROLLBACK TO Process_instance_routings;
489: x_return_status := FND_API.G_RET_STS_ERROR ;
490: FND_MSG_PUB.count_and_get(
491: p_encoded => FND_API.G_FALSE,
492: p_count => x_msg_count,
493: p_data => x_msg_data);
494:
494:
495: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
496: ROLLBACK TO Process_instance_routings;
497: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
498: FND_MSG_PUB.count_and_get(
499: p_encoded => FND_API.G_FALSE,
500: p_count => x_msg_count,
501: p_data => x_msg_data);
502:
502:
503: WHEN OTHERS THEN
504: ROLLBACK TO Process_instance_routings;
505: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
506: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
507: THEN
508: FND_MSG_PUB.add_exc_msg(
509: p_pkg_name => G_PKG_NAME,
510: p_procedure_name => l_api_name,
504: ROLLBACK TO Process_instance_routings;
505: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
506: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
507: THEN
508: FND_MSG_PUB.add_exc_msg(
509: p_pkg_name => G_PKG_NAME,
510: p_procedure_name => l_api_name,
511: p_error_text => SUBSTRB(SQLERRM,1,240));
512: END IF;
509: p_pkg_name => G_PKG_NAME,
510: p_procedure_name => l_api_name,
511: p_error_text => SUBSTRB(SQLERRM,1,240));
512: END IF;
513: FND_MSG_PUB.count_and_get(
514: p_encoded => FND_API.G_FALSE,
515: p_count => x_msg_count,
516: p_data => x_msg_data);
517: END Process_instance_routings;
1195: IF validate_visit_csr%NOTFOUND THEN
1196: CLOSE validate_visit_csr;
1197: Fnd_Message.SET_NAME('AHL','AHL_VWP_INVALID_VST' ); -- Visit id VISIT_ID is invalid.
1198: Fnd_Message.Set_Token('VISIT_ID', p_visit_id);
1199: Fnd_Msg_Pub.ADD;
1200:
1201: x_return_status := FND_API.G_RET_STS_ERROR;
1202: RETURN;
1203: END IF;
1209: IF validate_instance_csr%NOTFOUND THEN
1210: CLOSE validate_instance_csr;
1211: Fnd_Message.SET_NAME('AHL','AHL_FMP_INVALID_ITEM_INSTANCE' ); -- The item instance INSTANCE is invalid.
1212: Fnd_Message.Set_Token('INSTANCE', p_item_instance_id);
1213: Fnd_Msg_Pub.ADD;
1214:
1215: x_return_status := FND_API.G_RET_STS_ERROR;
1216: RETURN;
1217: END IF;
1308: IF validate_routing_csr%NOTFOUND THEN
1309: CLOSE validate_routing_csr;
1310: Fnd_Message.SET_NAME('AHL','AHL_CAM_INVALID_INST_ROUTING' ); -- The Instance routing id ROUTID is invalid.
1311: Fnd_Message.Set_Token('ROUTID', p_inst_routing_id);
1312: Fnd_Msg_Pub.ADD;
1313:
1314: x_return_status := FND_API.G_RET_STS_ERROR;
1315: RETURN;
1316: END IF;
1321: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1322: FND_LOG.string(FND_LOG.level_statement, 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name, 'object_version_number mismatch');
1323: END IF;
1324: FND_MESSAGE.Set_Name('AHL', 'AHL_COM_RECORD_CHANGED'); -- Record has been modified by another user.
1325: FND_MSG_PUB.ADD;
1326:
1327: x_return_status := FND_API.G_RET_STS_ERROR;
1328: RETURN;
1329: END IF;
1383: IF validate_routing_csr%NOTFOUND THEN
1384: CLOSE validate_routing_csr;
1385: Fnd_Message.SET_NAME('AHL','AHL_CAM_INVALID_INST_ROUTING' ); -- The Instance routing id ROUTID is invalid.
1386: Fnd_Message.Set_Token('ROUTID', p_inst_routing_id);
1387: Fnd_Msg_Pub.ADD;
1388:
1389: x_return_status := FND_API.G_RET_STS_ERROR;
1390: RETURN;
1391: END IF;
1447: x_return_status:=FND_API.G_RET_STS_SUCCESS;
1448:
1449: IF (p_visit_id IS NULL) THEN
1450: FND_MESSAGE.SET_NAME('AHL','AHL_VWP_VISIT_NULL');
1451: FND_MSG_PUB.ADD;
1452: RAISE FND_API.G_EXC_ERROR;
1453: END IF;
1454:
1455: IF (p_instance_id IS NULL) THEN
1453: END IF;
1454:
1455: IF (p_instance_id IS NULL) THEN
1456: FND_MESSAGE.SET_NAME('AHL','AHL_LTP_APS_INST_ID_NULL');
1457: FND_MSG_PUB.ADD;
1458: RAISE FND_API.G_EXC_ERROR;
1459: END IF;
1460:
1461: IF (p_old_inst_rtng_code IS NULL AND p_new_inst_rtng_code IS NULL) THEN
1459: END IF;
1460:
1461: IF (p_old_inst_rtng_code IS NULL AND p_new_inst_rtng_code IS NULL) THEN
1462: FND_MESSAGE.SET_NAME('AHL','AHL_CAM_INST_RTNG_NULL'); -- pending to define.
1463: FND_MSG_PUB.ADD;
1464: RAISE FND_API.G_EXC_ERROR;
1465: END IF;
1466:
1467: IF (NVL(p_old_inst_rtng_code,'A') <> NVL(p_new_inst_rtng_code,'B')) THEN
1480: p_old_inst_rtng => p_old_inst_rtng_code,
1481: p_new_inst_rtng => p_new_inst_rtng_code
1482: );
1483:
1484: l_msg_count := FND_MSG_PUB.count_msg;
1485: IF l_msg_count > 0 THEN
1486: RAISE FND_API.G_EXC_ERROR;
1487: END IF;
1488:
1492: EXCEPTION
1493: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1494: ROLLBACK TO process_inst_rtng;
1495: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1496: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1497: p_count => x_msg_count,
1498: p_data => x_msg_data);
1499: WHEN FND_API.G_EXC_ERROR THEN
1500: ROLLBACK TO process_inst_rtng;
1498: p_data => x_msg_data);
1499: WHEN FND_API.G_EXC_ERROR THEN
1500: ROLLBACK TO process_inst_rtng;
1501: x_return_status := FND_API.G_RET_STS_ERROR;
1502: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1503: p_count => x_msg_count,
1504: p_data => x_msg_data);
1505: WHEN OTHERS THEN
1506: ROLLBACK TO process_inst_rtng;
1504: p_data => x_msg_data);
1505: WHEN OTHERS THEN
1506: ROLLBACK TO process_inst_rtng;
1507: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1508: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1509: FND_MSG_PUB.add_exc_msg(p_pkg_name => g_pkg_name,
1510: p_procedure_name => l_api_name,
1511: p_error_text => SUBSTRB(SQLERRM,1,240));
1512:
1505: WHEN OTHERS THEN
1506: ROLLBACK TO process_inst_rtng;
1507: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1508: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1509: FND_MSG_PUB.add_exc_msg(p_pkg_name => g_pkg_name,
1510: p_procedure_name => l_api_name,
1511: p_error_text => SUBSTRB(SQLERRM,1,240));
1512:
1513: END IF;
1510: p_procedure_name => l_api_name,
1511: p_error_text => SUBSTRB(SQLERRM,1,240));
1512:
1513: END IF;
1514: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1515: p_count => x_msg_count,
1516: p_data => x_msg_data);
1517: END Process_Inst_Rtng_Notes;
1518: