[Home] [Help]
72: -- Procedure to create Workorder Cost Structure from visit Cost Hierarchy --
73: ---------------------------------------------------------------------------------
74: PROCEDURE Create_Wo_Cost_Structure (
75: p_api_version IN NUMBER,
76: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
77: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
78: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
79: p_visit_id IN NUMBER,
80: x_cost_session_id OUT NOCOPY NUMBER,
73: ---------------------------------------------------------------------------------
74: PROCEDURE Create_Wo_Cost_Structure (
75: p_api_version IN NUMBER,
76: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
77: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
78: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
79: p_visit_id IN NUMBER,
80: x_cost_session_id OUT NOCOPY NUMBER,
81: x_return_status OUT NOCOPY VARCHAR2,
74: PROCEDURE Create_Wo_Cost_Structure (
75: p_api_version IN NUMBER,
76: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
77: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
78: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
79: p_visit_id IN NUMBER,
80: x_cost_session_id OUT NOCOPY NUMBER,
81: x_return_status OUT NOCOPY VARCHAR2,
82: x_msg_count OUT NOCOPY NUMBER,
155: -- Standard start of API savepoint
156: SAVEPOINT Create_Wo_Cost_Structure;
157:
158: -- Initialize message list if p_init_msg_list is set to TRUE
159: IF FND_API.To_Boolean( p_init_msg_list) THEN
160: FND_MSG_PUB.Initialize;
161: END IF;
162:
163: -- Initialize API return status to success
160: FND_MSG_PUB.Initialize;
161: END IF;
162:
163: -- Initialize API return status to success
164: x_return_status := FND_API.G_RET_STS_SUCCESS;
165:
166: --Get progarm application id
167: l_application_id := FND_GLOBAL.prog_appl_id;
168:
274: 'After Calling Insert cost workorder hierarchy, Return Status = ' || l_return_status ||
275: 'Session id :' ||x_cost_session_id);
276: END IF;
277:
278: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
279:
280: IF (l_log_statement >= l_log_current_level) THEN
281: fnd_log.string(l_log_statement,
282: L_DEBUG_KEY,
282: L_DEBUG_KEY,
283: 'Errors from Insert cost workorder hierarchy' || x_msg_count);
284: END IF;
285:
286: RAISE Fnd_Api.g_exc_error;
287: END IF;
288:
289: IF (l_log_procedure >= l_log_current_level) THEN
290: fnd_log.string(l_log_procedure,
292: 'At the end of PL SQL procedure. Return Status = ' || l_return_status);
293: END IF;
294:
295: EXCEPTION
296: WHEN FND_API.G_EXC_ERROR THEN
297: x_return_status := FND_API.G_RET_STS_ERROR;
298: ROLLBACK TO Create_Wo_Cost_Structure;
299: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
300: p_data => x_msg_data,
293: END IF;
294:
295: EXCEPTION
296: WHEN FND_API.G_EXC_ERROR THEN
297: x_return_status := FND_API.G_RET_STS_ERROR;
298: ROLLBACK TO Create_Wo_Cost_Structure;
299: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
300: p_data => x_msg_data,
301: p_encoded => fnd_api.g_false);
297: x_return_status := FND_API.G_RET_STS_ERROR;
298: ROLLBACK TO Create_Wo_Cost_Structure;
299: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
300: p_data => x_msg_data,
301: p_encoded => fnd_api.g_false);
302:
303:
304: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
305: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
300: p_data => x_msg_data,
301: p_encoded => fnd_api.g_false);
302:
303:
304: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
305: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
306: ROLLBACK TO Create_Wo_Cost_Structure;
307: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
308: p_data => x_msg_data,
301: p_encoded => fnd_api.g_false);
302:
303:
304: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
305: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
306: ROLLBACK TO Create_Wo_Cost_Structure;
307: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
308: p_data => x_msg_data,
309: p_encoded => fnd_api.g_false);
305: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
306: ROLLBACK TO Create_Wo_Cost_Structure;
307: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
308: p_data => x_msg_data,
309: p_encoded => fnd_api.g_false);
310:
311:
312: WHEN OTHERS THEN
313: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
309: p_encoded => fnd_api.g_false);
310:
311:
312: WHEN OTHERS THEN
313: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
314: ROLLBACK TO Create_Wo_Cost_Structure;
315: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
316: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
317: p_procedure_name => 'Create_Wo_Cost_Structure',
318: p_error_text => SUBSTR(SQLERRM,1,500));
319: END IF;
320: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
321: p_data => x_msg_data,
322: p_encoded => fnd_api.g_false);
323: END Create_Wo_Cost_Structure;
324:
325:
326: ---------------------------------------------------------------------------------
328: ---------------------------------------------------------------------------------
329: PROCEDURE Create_Wo_Dependencies
330: (
331: p_api_version IN NUMBER,
332: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
333: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
334: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
335: p_visit_id IN NUMBER,
336: x_MR_session_id OUT NOCOPY NUMBER,
329: PROCEDURE Create_Wo_Dependencies
330: (
331: p_api_version IN NUMBER,
332: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
333: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
334: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
335: p_visit_id IN NUMBER,
336: x_MR_session_id OUT NOCOPY NUMBER,
337: x_return_status OUT NOCOPY VARCHAR2,
330: (
331: p_api_version IN NUMBER,
332: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
333: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
334: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
335: p_visit_id IN NUMBER,
336: x_MR_session_id OUT NOCOPY NUMBER,
337: x_return_status OUT NOCOPY VARCHAR2,
338: x_msg_count OUT NOCOPY NUMBER,
408: 'At the start of PL SQL procedure. Visit Id = ' || p_visit_id);
409: END IF;
410:
411: -- Initialize API return status to success
412: x_return_status := FND_API.G_RET_STS_SUCCESS;
413:
414: -- Standard Start of API savepoint
415: SAVEPOINT create_wo_dependencies_PVT;
416:
462:
463: Insert_Cst_Wo_Hierarchy
464: (
465: p_cst_job_tbl => l_cst_job_tbl,
466: p_commit => FND_API.G_FALSE,
467: x_session_id => x_MR_session_id,
468: x_return_status => l_return_status
469: );
470:
473: L_DEBUG_KEY,
474: 'After Calling Insert_Cst_Wo_Hierarchy, Return Status = ' || l_return_status);
475: END IF;
476:
477: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
478: IF (l_log_statement >= l_log_current_level) THEN
479: fnd_log.string(l_log_statement,
480: L_DEBUG_KEY,
481: 'Errors from Insert cost workorder hierarchy' || x_msg_count);
480: L_DEBUG_KEY,
481: 'Errors from Insert cost workorder hierarchy' || x_msg_count);
482: END IF;
483:
484: x_return_status := Fnd_Api.G_RET_STS_ERROR;
485: RAISE Fnd_Api.g_exc_error;
486: END IF;
487:
488: IF (l_log_procedure >= l_log_current_level) THEN
481: 'Errors from Insert cost workorder hierarchy' || x_msg_count);
482: END IF;
483:
484: x_return_status := Fnd_Api.G_RET_STS_ERROR;
485: RAISE Fnd_Api.g_exc_error;
486: END IF;
487:
488: IF (l_log_procedure >= l_log_current_level) THEN
489: fnd_log.string(l_log_procedure,
492: ' x_session_id = ' || x_MR_session_id );
493: END IF;
494: EXCEPTION
495:
496: WHEN FND_API.G_EXC_ERROR THEN
497: ROLLBACK TO create_wo_dependencies_PVT;
498: x_return_status := FND_API.G_RET_STS_ERROR;
499: FND_MSG_PUB.count_and_get
500: (
494: EXCEPTION
495:
496: WHEN FND_API.G_EXC_ERROR THEN
497: ROLLBACK TO create_wo_dependencies_PVT;
498: x_return_status := FND_API.G_RET_STS_ERROR;
499: FND_MSG_PUB.count_and_get
500: (
501: p_encoded => FND_API.G_FALSE,
502: p_count => x_msg_count,
497: ROLLBACK TO create_wo_dependencies_PVT;
498: x_return_status := FND_API.G_RET_STS_ERROR;
499: FND_MSG_PUB.count_and_get
500: (
501: p_encoded => FND_API.G_FALSE,
502: p_count => x_msg_count,
503: p_data => x_msg_data
504: );
505:
502: p_count => x_msg_count,
503: p_data => x_msg_data
504: );
505:
506: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
507: ROLLBACK TO create_wo_dependencies_PVT;
508: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
509: FND_MSG_PUB.count_and_get
510: (
504: );
505:
506: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
507: ROLLBACK TO create_wo_dependencies_PVT;
508: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
509: FND_MSG_PUB.count_and_get
510: (
511: p_encoded => FND_API.G_FALSE,
512: p_count => x_msg_count,
507: ROLLBACK TO create_wo_dependencies_PVT;
508: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
509: FND_MSG_PUB.count_and_get
510: (
511: p_encoded => FND_API.G_FALSE,
512: p_count => x_msg_count,
513: p_data => x_msg_data
514: );
515:
514: );
515:
516: WHEN OTHERS THEN
517: ROLLBACK TO create_wo_dependencies_PVT;
518: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
519: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
520: THEN
521: FND_MSG_PUB.add_exc_msg
522: (
526: );
527: END IF;
528: FND_MSG_PUB.count_and_get
529: (
530: p_encoded => FND_API.G_FALSE,
531: p_count => x_msg_count,
532: p_data => x_msg_data
533: );
534:
539: -- into Costing interface table CST_EAM_HIERARCHY_SNAPSHOT
540: ---------------------------------------------------------------------------------
541: PROCEDURE Insert_Cst_Wo_Hierarchy (
542: p_cst_job_tbl IN Cst_Job_Tbl,
543: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
544: x_session_id OUT NOCOPY NUMBER,
545: x_return_status OUT NOCOPY VARCHAR2)
546: IS
547:
564: 'At the start of PL SQL procedure.');
565: END IF;
566:
567: -- Initialize API return status to success
568: x_return_status := FND_API.G_RET_STS_SUCCESS;
569:
570: -- Get Cost Session Id
571: SELECT MTL_EAM_ASSET_ACTIVITIES_S.nextval INTO l_group_id
572: FROM DUAL;
579: fnd_log.string(l_log_statement,
580: L_DEBUG_KEY,
581: 'MTL_EAM_ASSET_ACTIVITIES_S Sequence not exists ');
582: END IF;
583: RAISE Fnd_Api.g_exc_error;
584: END IF;
585:
586: -- loop through all the records
587: IF l_cst_job_tbl.COUNT> 0 THEN
629:
630: -- Assign Cost Session Id
631: x_session_id := l_group_id;
632:
633: -- x_return_status := FND_API.G_RET_STS_SUCCESS;
634:
635: IF (l_log_procedure >= l_log_current_level) THEN
636: fnd_log.string(l_log_procedure,
637: L_DEBUG_KEY ||'.end',
715: -- Standard start of API savepoint
716: SAVEPOINT Calculate_Visit_Cost;
717:
718: -- Initialize API return status to success
719: x_return_status := FND_API.G_RET_STS_SUCCESS;
720:
721: ------------------------Start of API Body------------------------------------
722:
723: -- make sure that visit id is present in the input
721: ------------------------Start of API Body------------------------------------
722:
723: -- make sure that visit id is present in the input
724:
725: IF(p_visit_id IS NULL OR p_visit_id = FND_API.G_MISS_NUM) THEN
726:
727: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_INPUT_MISS');
728: FND_MSG_PUB.ADD;
729: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
725: IF(p_visit_id IS NULL OR p_visit_id = FND_API.G_MISS_NUM) THEN
726:
727: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_INPUT_MISS');
728: FND_MSG_PUB.ADD;
729: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
730:
731: END IF;
732:
733:
812: x_Estimated_cost := l_Estimated_cost;
813:
814: ------------------------End of API Body------------------------------------
815:
816: --x_return_status := FND_API.G_RET_STS_SUCCESS;
817:
818: IF (l_log_procedure >= l_log_current_level) THEN
819: fnd_log.string(l_log_procedure,
820: L_DEBUG_KEY ||'.end',
921: -- Standard start of API savepoint
922: SAVEPOINT Calculate_MR_Cost;
923:
924: -- Initialize API return status to success
925: x_return_status := FND_API.G_RET_STS_SUCCESS;
926:
927: ------------------------Start of API Body------------------------------------
928: -- Validate Visit Task and Session Exists
929: IF p_visit_task_id IS NULL THEN
928: -- Validate Visit Task and Session Exists
929: IF p_visit_task_id IS NULL THEN
930: Fnd_Message.Set_Name('AHL','AHL_CST_VISIT_TASK_ID_NULL');
931: Fnd_Msg_Pub.ADD;
932: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
933: END IF;
934:
935: -- Cursor to find out MR_Id value for the Summary Task
936: OPEN c_task(p_visit_task_id);
1030: x_actual_cost := l_actual_cost;
1031: x_estimated_cost := l_estimated_cost;
1032:
1033: ------------------------End of API Body------------------------------------
1034: --x_return_status := FND_API.G_RET_STS_SUCCESS;
1035:
1036: IF (l_log_procedure >= l_log_current_level) THEN
1037: fnd_log.string(l_log_procedure,
1038: L_DEBUG_KEY ||'.end',
1114: -- Standard start of API savepoint
1115: SAVEPOINT Calculate_Node_Cost;
1116:
1117: -- Initialize API return status to success
1118: x_return_status := FND_API.G_RET_STS_SUCCESS;
1119:
1120: ------------------------Start of API Body------------------------------------
1121: -- Validate Visit Task
1122: IF p_Visit_task_id IS NULL THEN
1121: -- Validate Visit Task
1122: IF p_Visit_task_id IS NULL THEN
1123: Fnd_Message.Set_Name('AHL','AHL_CST_VISIT_TASK_ID_NULL');
1124: Fnd_Msg_Pub.ADD;
1125: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1126: END IF;
1127:
1128: OPEN c_task(p_Visit_task_id);
1129: FETCH c_task INTO c_task_rec;
1263: 'Task Actual Cost : ' || x_actual_cost ||
1264: 'Task Estimated Cost : ' || x_estimated_cost );
1265: END IF;
1266:
1267: x_return_status := FND_API.G_RET_STS_SUCCESS;
1268:
1269: ------------------------Terminate API Body------------------------------------
1270: END Calculate_Node_Cost;
1271:
1334: -- Standard start of API savepoint
1335: SAVEPOINT Calculate_Task_Cost;
1336:
1337: -- Initialize API return status to success
1338: x_return_status := FND_API.G_RET_STS_SUCCESS;
1339:
1340: ------------------------Start of API Body------------------------------------
1341:
1342: -- Validate Visit Task
1342: -- Validate Visit Task
1343: IF p_Visit_task_id IS NULL THEN
1344: Fnd_Message.Set_Name('AHL','AHL_CST_VISIT_TASK_ID_NULL');
1345: Fnd_Msg_Pub.ADD;
1346: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1347: END IF;
1348:
1349: OPEN c_task(p_Visit_task_id);
1350: FETCH c_task INTO c_task_rec;
1461: 'Task Actual Cost : ' || x_actual_cost ||
1462: 'Task Estimated Cost : ' || x_estimated_cost );
1463: END IF;
1464:
1465: x_return_status := FND_API.G_RET_STS_SUCCESS;
1466:
1467: ------------------------Terminate API Body------------------------------------
1468: END Calculate_Task_Cost;
1469:
1474: -- Called from get_visit_cost_details/get_task_cost_details/get_MR_cost_details
1475: --------------------------------------------------------------------------
1476: PROCEDURE Calculate_WO_Cost(
1477: p_api_version IN NUMBER := 1.0,
1478: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
1479: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
1480: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
1481: p_x_cost_price_rec IN OUT NOCOPY AHL_VWP_VISIT_CST_PR_PVT.Cost_price_rec_type,
1482: x_return_status OUT NOCOPY VARCHAR2)
1475: --------------------------------------------------------------------------
1476: PROCEDURE Calculate_WO_Cost(
1477: p_api_version IN NUMBER := 1.0,
1478: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
1479: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
1480: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
1481: p_x_cost_price_rec IN OUT NOCOPY AHL_VWP_VISIT_CST_PR_PVT.Cost_price_rec_type,
1482: x_return_status OUT NOCOPY VARCHAR2)
1483: IS
1476: PROCEDURE Calculate_WO_Cost(
1477: p_api_version IN NUMBER := 1.0,
1478: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
1479: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
1480: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
1481: p_x_cost_price_rec IN OUT NOCOPY AHL_VWP_VISIT_CST_PR_PVT.Cost_price_rec_type,
1482: x_return_status OUT NOCOPY VARCHAR2)
1483: IS
1484: -- Define Local Variables
1531: -- Standard start of API savepoint
1532: SAVEPOINT Calculate_WO_Cost;
1533:
1534: -- Initialize API return status to success
1535: x_return_status := FND_API.G_RET_STS_SUCCESS;
1536:
1537: l_Visit_Id := l_cost_price_rec.visit_Id;
1538: l_MR_Session_Id := l_cost_price_rec.MR_Session_Id;
1539: l_Cost_Session_Id := l_cost_price_rec.Cost_Session_Id;
1538: l_MR_Session_Id := l_cost_price_rec.MR_Session_Id;
1539: l_Cost_Session_Id := l_cost_price_rec.Cost_Session_Id;
1540:
1541:
1542: IF l_visit_id IS NULL OR l_visit_id = FND_API.G_MISS_NUM THEN
1543:
1544: -- Whether call for Calculate_WO_Cost is from Visit OR Task
1545: IF l_cost_price_rec.visit_task_id IS NOT NULL AND l_cost_price_rec.visit_task_id <> FND_API.G_MISS_NUM THEN
1546:
1541:
1542: IF l_visit_id IS NULL OR l_visit_id = FND_API.G_MISS_NUM THEN
1543:
1544: -- Whether call for Calculate_WO_Cost is from Visit OR Task
1545: IF l_cost_price_rec.visit_task_id IS NOT NULL AND l_cost_price_rec.visit_task_id <> FND_API.G_MISS_NUM THEN
1546:
1547: -- Cursor for task related information in search task view
1548: OPEN c_task(l_cost_price_rec.visit_task_id);
1549: FETCH c_task INTO l_visit_id;
1551:
1552: END IF;
1553:
1554: -- Validate Visit exists
1555: IF l_visit_id IS NULL OR l_visit_id = FND_API.G_MISS_NUM THEN
1556:
1557: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_INPUT_MISS');
1558:
1559: FND_MSG_PUB.ADD;
1563: L_DEBUG_KEY,
1564: 'Visit id is mandatory but found null in input ' );
1565: END IF;
1566:
1567: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1568:
1569: END IF;
1570:
1571: END IF;
1604: IF visit_rec.status_code = 'PLANNING' THEN
1605:
1606: -- workorder created already
1607: IF l_cost_price_rec.workorder_id is not null and
1608: l_cost_price_rec.workorder_id <> FND_API.G_MISS_NUM THEN
1609:
1610: l_cost_rollup_flag := 'Y';
1611:
1612: END IF; -- Check for l_count
1647: p_Cost_Session_Id => l_Cost_Session_Id,
1648: x_return_status => l_return_status
1649: );
1650:
1651: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1652: RAISE Fnd_Api.G_EXC_ERROR;
1653: END IF;
1654:
1655: IF (l_log_statement >= l_log_current_level) THEN
1648: x_return_status => l_return_status
1649: );
1650:
1651: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1652: RAISE Fnd_Api.G_EXC_ERROR;
1653: END IF;
1654:
1655: IF (l_log_statement >= l_log_current_level) THEN
1656: fnd_log.string(l_log_statement,
1688: 'After calling Push_MR_Cost_Hierarchy API, Return Status = ' || l_return_status ||
1689: 'Visit Id : ' || l_visit_id );
1690: END IF;
1691:
1692: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1693: RAISE Fnd_Api.G_EXC_ERROR;
1694: END IF;
1695:
1696: IF (l_log_statement >= l_log_current_level) THEN
1689: 'Visit Id : ' || l_visit_id );
1690: END IF;
1691:
1692: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1693: RAISE Fnd_Api.G_EXC_ERROR;
1694: END IF;
1695:
1696: IF (l_log_statement >= l_log_current_level) THEN
1697: fnd_log.string(l_log_statement,
1710: p_Cost_Session_Id => l_Cost_Session_Id,
1711: x_return_status => l_return_status
1712: );
1713:
1714: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1715: RAISE Fnd_Api.G_EXC_ERROR;
1716: END IF;
1717:
1718: IF (l_log_statement >= l_log_current_level) THEN
1711: x_return_status => l_return_status
1712: );
1713:
1714: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1715: RAISE Fnd_Api.G_EXC_ERROR;
1716: END IF;
1717:
1718: IF (l_log_statement >= l_log_current_level) THEN
1719: fnd_log.string(l_log_statement,
1732: p_x_cost_price_rec.Cost_Session_Id := l_Cost_Session_Id;
1733: p_x_cost_price_rec.Is_Cst_Struc_updated := l_cost_price_rec.Is_Cst_Struc_updated;
1734: p_x_cost_price_rec.workorder_id := l_cost_price_rec.workorder_id;
1735:
1736: x_return_status := FND_API.G_RET_STS_SUCCESS;
1737:
1738: ------------------------End of API Body------------------------------------
1739:
1740: IF (l_log_procedure >= l_log_current_level) THEN
1758: -- Called from estimate_visit_cost/estimate_MR_cost/estimate_task_cost
1759: --------------------------------------------------------------------------
1760: PROCEDURE Estimate_WO_Cost(
1761: p_api_version IN NUMBER := 1.0,
1762: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
1763: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
1764: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
1765: p_x_cost_price_rec IN OUT NOCOPY AHL_VWP_VISIT_CST_PR_PVT.Cost_price_rec_type,
1766: x_return_status OUT NOCOPY VARCHAR2)
1759: --------------------------------------------------------------------------
1760: PROCEDURE Estimate_WO_Cost(
1761: p_api_version IN NUMBER := 1.0,
1762: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
1763: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
1764: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
1765: p_x_cost_price_rec IN OUT NOCOPY AHL_VWP_VISIT_CST_PR_PVT.Cost_price_rec_type,
1766: x_return_status OUT NOCOPY VARCHAR2)
1767: IS
1760: PROCEDURE Estimate_WO_Cost(
1761: p_api_version IN NUMBER := 1.0,
1762: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
1763: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
1764: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
1765: p_x_cost_price_rec IN OUT NOCOPY AHL_VWP_VISIT_CST_PR_PVT.Cost_price_rec_type,
1766: x_return_status OUT NOCOPY VARCHAR2)
1767: IS
1768: -- Define Local Variables
1800: -- Standard start of API savepoint
1801: SAVEPOINT Estimate_WO_Cost;
1802:
1803: -- Initialize API return status to success
1804: x_return_status := FND_API.G_RET_STS_SUCCESS;
1805:
1806: l_Visit_Id := l_cost_price_rec.visit_Id;
1807: l_MR_Session_Id := l_cost_price_rec.MR_Session_Id;
1808: l_Cost_Session_Id := l_cost_price_rec.Cost_Session_Id;
1807: l_MR_Session_Id := l_cost_price_rec.MR_Session_Id;
1808: l_Cost_Session_Id := l_cost_price_rec.Cost_Session_Id;
1809:
1810: -- Whether call for Calculate_WO_Cost is from Visit OR Task
1811: IF l_cost_price_rec.visit_task_id IS NOT NULL AND l_cost_price_rec.visit_task_id <> FND_API.G_MISS_NUM THEN
1812:
1813: -- Cursor for task related information in search task view
1814: OPEN c_task(l_cost_price_rec.visit_task_id);
1815: FETCH c_task INTO task_rec;
1851: L_DEBUG_KEY,
1852: 'After calling Push_MR_Cost_Hierarchy API, Return Status = ' || l_return_status );
1853: END IF;
1854:
1855: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1856: RAISE Fnd_Api.G_EXC_ERROR;
1857: END IF;
1858:
1859: IF (l_log_statement >= l_log_current_level) THEN
1852: 'After calling Push_MR_Cost_Hierarchy API, Return Status = ' || l_return_status );
1853: END IF;
1854:
1855: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1856: RAISE Fnd_Api.G_EXC_ERROR;
1857: END IF;
1858:
1859: IF (l_log_statement >= l_log_current_level) THEN
1860: fnd_log.string(l_log_statement,
1895: p_x_cost_price_rec.MR_Session_Id := l_MR_Session_Id;
1896: p_x_cost_price_rec.Cost_Session_Id := l_Cost_Session_Id;
1897: p_x_cost_price_rec.Is_Cst_Struc_updated := l_cost_price_rec.Is_Cst_Struc_updated;
1898:
1899: x_return_status := FND_API.G_RET_STS_SUCCESS;
1900:
1901: ------------------------End of API Body------------------------------------
1902:
1903:
1962: -- Standard start of API savepoint
1963: SAVEPOINT Get_WO_Cost;
1964:
1965: -- Initialize API return status to success
1966: x_return_status := FND_API.G_RET_STS_SUCCESS;
1967:
1968: OPEN c_cost_csr(p_session_id, p_id, p_program_id);
1969: FETCH c_cost_csr INTO c_cost_csr_rec;
1970: IF c_cost_csr%FOUND THEN
1977:
1978: END IF;
1979: CLOSE c_cost_csr;
1980:
1981: x_return_status := FND_API.G_RET_STS_SUCCESS;
1982:
1983: ------------------------End of API Body------------------------------------
1984:
1985: IF (l_log_procedure >= l_log_current_level) THEN
2001: -- 'CST_EAM_HIERARCHY_SNAPSHOT' and inserting in CST_EAM_ROLLUP_COSTS --
2002: --------------------------------------------------------------------------
2003: PROCEDURE Rollup_MR_Cost_Hierarchy(
2004: p_api_version IN NUMBER := 1.0,
2005: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
2006: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
2007: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
2008: p_visit_id IN NUMBER,
2009: p_MR_session_Id IN NUMBER,
2002: --------------------------------------------------------------------------
2003: PROCEDURE Rollup_MR_Cost_Hierarchy(
2004: p_api_version IN NUMBER := 1.0,
2005: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
2006: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
2007: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
2008: p_visit_id IN NUMBER,
2009: p_MR_session_Id IN NUMBER,
2010: p_cost_session_id IN NUMBER,
2003: PROCEDURE Rollup_MR_Cost_Hierarchy(
2004: p_api_version IN NUMBER := 1.0,
2005: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
2006: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
2007: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
2008: p_visit_id IN NUMBER,
2009: p_MR_session_Id IN NUMBER,
2010: p_cost_session_id IN NUMBER,
2011: x_return_status OUT NOCOPY VARCHAR2)
2072: -- Standard start of API savepoint
2073: SAVEPOINT Rollup_MR_Cost_Hierarchy;
2074:
2075: -- Initialize API return status to success
2076: x_return_status := FND_API.G_RET_STS_SUCCESS;
2077:
2078: OPEN c_visit_details(p_visit_id);
2079: FETCH c_visit_details INTO visit_rec;
2080: CLOSE c_visit_details;
2108: END IF;
2109:
2110: CST_EAMCOST_PUB.Delete_eamPerBal (
2111: p_api_version => 1.0,
2112: p_init_msg_list => Fnd_Api.G_FALSE,
2113: p_commit => Fnd_Api.G_FALSE,
2114: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2115:
2116: x_return_status => l_return_status,
2109:
2110: CST_EAMCOST_PUB.Delete_eamPerBal (
2111: p_api_version => 1.0,
2112: p_init_msg_list => Fnd_Api.G_FALSE,
2113: p_commit => Fnd_Api.G_FALSE,
2114: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2115:
2116: x_return_status => l_return_status,
2117: x_msg_count => l_msg_count,
2110: CST_EAMCOST_PUB.Delete_eamPerBal (
2111: p_api_version => 1.0,
2112: p_init_msg_list => Fnd_Api.G_FALSE,
2113: p_commit => Fnd_Api.G_FALSE,
2114: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2115:
2116: x_return_status => l_return_status,
2117: x_msg_count => l_msg_count,
2118: x_msg_data => l_msg_data,
2126: L_DEBUG_KEY,
2127: 'After Calling CST_EAMCOST_PUB.Delete_eamPerBal, Return Status = ' || l_return_status );
2128: END IF;
2129:
2130: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2131:
2132: IF (l_log_statement >= l_log_current_level) THEN
2133: fnd_log.string(l_log_statement,
2134: L_DEBUG_KEY,
2134: L_DEBUG_KEY,
2135: 'Errors from CST_EAMCOST_PUB.Delete_eamPerBal API -COST SESSION' || l_msg_count );
2136: END IF;
2137:
2138: RAISE Fnd_Api.g_exc_error;
2139: END IF;
2140:
2141: -- yazhou 22Sept2005 ends
2142:
2157: END IF;
2158:
2159: CST_EAMCOST_PUB.Compute_Job_Estimate (
2160: p_api_version => 1.0,
2161: p_init_msg_list => Fnd_Api.G_FALSE,
2162: p_commit => Fnd_Api.G_FALSE,
2163: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2164: p_debug => 'N',
2165: p_wip_entity_id => c_wip_jobs_rec.wip_entity_id,
2158:
2159: CST_EAMCOST_PUB.Compute_Job_Estimate (
2160: p_api_version => 1.0,
2161: p_init_msg_list => Fnd_Api.G_FALSE,
2162: p_commit => Fnd_Api.G_FALSE,
2163: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2164: p_debug => 'N',
2165: p_wip_entity_id => c_wip_jobs_rec.wip_entity_id,
2166: p_user_id => fnd_global.user_id,
2159: CST_EAMCOST_PUB.Compute_Job_Estimate (
2160: p_api_version => 1.0,
2161: p_init_msg_list => Fnd_Api.G_FALSE,
2162: p_commit => Fnd_Api.G_FALSE,
2163: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2164: p_debug => 'N',
2165: p_wip_entity_id => c_wip_jobs_rec.wip_entity_id,
2166: p_user_id => fnd_global.user_id,
2167: p_request_id => NULL,
2177: L_DEBUG_KEY,
2178: 'After calling CST_EAMCOST_PUB.Compute_Job_Estimate, Return Status = ' || l_return_status);
2179: END IF;
2180:
2181: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2182:
2183: IF (l_log_statement >= l_log_current_level) THEN
2184: fnd_log.string(l_log_statement,
2185: L_DEBUG_KEY,
2186: 'Errors from CST_EAMCOST_PUB.Delete_eamPerBal API -COST SESSION' || l_msg_count );
2187: END IF;
2188:
2189: CLOSE c_wip_jobs;
2190: RAISE Fnd_Api.g_exc_error;
2191: END IF;
2192:
2193: END IF;
2194:
2209:
2210: CST_EAMCOST_PUB.Rollup_WorkOrderCost
2211: (
2212: p_api_version => 1.0,
2213: p_init_msg_list => Fnd_Api.G_FALSE,
2214: p_commit => Fnd_Api.G_FALSE,
2215: p_group_id => p_cost_session_id,
2216: p_organization_id => visit_rec.organization_id,
2217: p_user_id => Fnd_Global.USER_ID,
2210: CST_EAMCOST_PUB.Rollup_WorkOrderCost
2211: (
2212: p_api_version => 1.0,
2213: p_init_msg_list => Fnd_Api.G_FALSE,
2214: p_commit => Fnd_Api.G_FALSE,
2215: p_group_id => p_cost_session_id,
2216: p_organization_id => visit_rec.organization_id,
2217: p_user_id => Fnd_Global.USER_ID,
2218: p_prog_appl_id => Fnd_Global.PROG_APPL_ID,
2226: 'After Calling CST_EAMCOST_PUB.Rollup_WorkOrderCost-COST SESSION, Return Status = ' || l_return_status );
2227: END IF;
2228:
2229:
2230: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2231:
2232: IF (l_log_statement >= l_log_current_level) THEN
2233: fnd_log.string(l_log_statement,
2234: L_DEBUG_KEY,
2234: L_DEBUG_KEY,
2235: 'Errors from CST_EAMCOST_PUB.Rollup_WorkOrderCosts API -COST SESSION' || l_msg_count );
2236: END IF;
2237:
2238: RAISE Fnd_Api.g_exc_error;
2239: ELSE
2240: FND_MSG_PUB.Initialize;
2241: END IF;
2242:
2254:
2255: CST_EAMCOST_PUB.Rollup_WorkOrderCost
2256: (
2257: p_api_version => 1.0,
2258: p_init_msg_list => Fnd_Api.G_FALSE,
2259: p_commit => Fnd_Api.G_FALSE,
2260: p_group_id => p_MR_session_id,
2261: p_organization_id => visit_rec.organization_id,
2262: p_user_id => Fnd_Global.USER_ID,
2255: CST_EAMCOST_PUB.Rollup_WorkOrderCost
2256: (
2257: p_api_version => 1.0,
2258: p_init_msg_list => Fnd_Api.G_FALSE,
2259: p_commit => Fnd_Api.G_FALSE,
2260: p_group_id => p_MR_session_id,
2261: p_organization_id => visit_rec.organization_id,
2262: p_user_id => Fnd_Global.USER_ID,
2263: p_prog_appl_id => Fnd_Global.PROG_APPL_ID,
2270: L_DEBUG_KEY,
2271: 'After Calling CST_EAMCOST_PUB.Rollup_WorkOrderCost-MR SESSION, Return Status = ' || l_return_status);
2272: END IF;
2273:
2274: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2275:
2276: IF (l_log_statement >= l_log_current_level) THEN
2277: fnd_log.string(l_log_statement,
2278: L_DEBUG_KEY,
2278: L_DEBUG_KEY,
2279: 'Errors from CST_EAMCOST_PUB.Rollup_WorkOrderCosts API -MR SESSION' || l_msg_count);
2280: END IF;
2281:
2282: RAISE Fnd_Api.g_exc_error;
2283: ELSE
2284: FND_MSG_PUB.Initialize;
2285: END IF;
2286:
2291: L_DEBUG_KEY ||'.end',
2292: 'At the end of PL SQL procedure. Return Status = ' || l_return_status);
2293: END IF;
2294:
2295: --x_return_status := FND_API.G_RET_STS_SUCCESS;
2296:
2297: ------------------------Terminate API Body------------------------------------
2298: END Rollup_MR_Cost_Hierarchy;
2299:
2303: -- Cost Hierarchy structure by inserting in Costing tables --
2304: --------------------------------------------------------------------------
2305: PROCEDURE Push_MR_Cost_Hierarchy(
2306: p_api_version IN NUMBER := 1.0,
2307: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
2308: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
2309: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
2310: p_visit_id IN NUMBER,
2311: x_cost_session_id OUT NOCOPY NUMBER,
2304: --------------------------------------------------------------------------
2305: PROCEDURE Push_MR_Cost_Hierarchy(
2306: p_api_version IN NUMBER := 1.0,
2307: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
2308: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
2309: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
2310: p_visit_id IN NUMBER,
2311: x_cost_session_id OUT NOCOPY NUMBER,
2312: x_MR_session_id OUT NOCOPY NUMBER,
2305: PROCEDURE Push_MR_Cost_Hierarchy(
2306: p_api_version IN NUMBER := 1.0,
2307: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
2308: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
2309: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
2310: p_visit_id IN NUMBER,
2311: x_cost_session_id OUT NOCOPY NUMBER,
2312: x_MR_session_id OUT NOCOPY NUMBER,
2313: x_return_status OUT NOCOPY VARCHAR2 )
2335: -- Standard start of API savepoint
2336: SAVEPOINT Push_MR_Cost_Hierarchy;
2337:
2338: -- Initialize API return status to success
2339: x_return_status := FND_API.G_RET_STS_SUCCESS;
2340:
2341: IF (l_log_statement >= l_log_current_level) THEN
2342: fnd_log.string(l_log_statement,
2343: L_DEBUG_KEY,
2347: -- Calling Create_WO_Cost_Structure API
2348: Create_WO_Cost_Structure
2349: (
2350: p_api_version => 1.0,
2351: p_init_msg_list => Fnd_Api.G_FALSE,
2352: p_commit => Fnd_Api.G_FALSE,
2353: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2354: p_visit_id => p_visit_id,
2355: x_cost_session_id => l_cost_session_id,
2348: Create_WO_Cost_Structure
2349: (
2350: p_api_version => 1.0,
2351: p_init_msg_list => Fnd_Api.G_FALSE,
2352: p_commit => Fnd_Api.G_FALSE,
2353: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2354: p_visit_id => p_visit_id,
2355: x_cost_session_id => l_cost_session_id,
2356: x_return_status => l_return_status,
2349: (
2350: p_api_version => 1.0,
2351: p_init_msg_list => Fnd_Api.G_FALSE,
2352: p_commit => Fnd_Api.G_FALSE,
2353: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2354: p_visit_id => p_visit_id,
2355: x_cost_session_id => l_cost_session_id,
2356: x_return_status => l_return_status,
2357: x_msg_count => l_msg_count,
2363: L_DEBUG_KEY,
2364: 'After Calling AHL_VWP_CST_WO_PVT.Create_WO_Cost_Structure, Return Status = ' || l_return_status);
2365: END IF;
2366:
2367: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2368:
2369: IF (l_log_statement >= l_log_current_level) THEN
2370: fnd_log.string(l_log_statement,
2371: L_DEBUG_KEY,
2371: L_DEBUG_KEY,
2372: 'Errors from Create_WO_Cost_Structure API' || l_msg_count) ;
2373: END IF;
2374:
2375: RAISE Fnd_Api.g_exc_error;
2376: END IF;
2377:
2378: IF (l_log_statement >= l_log_current_level) THEN
2379: fnd_log.string(l_log_statement,
2383:
2384: Create_WO_Dependencies
2385: (
2386: p_api_version => 1.0,
2387: p_init_msg_list => Fnd_Api.G_FALSE,
2388: p_commit => Fnd_Api.G_FALSE,
2389: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2390: p_visit_id => p_visit_id,
2391: x_MR_session_id => l_MR_session_id,
2384: Create_WO_Dependencies
2385: (
2386: p_api_version => 1.0,
2387: p_init_msg_list => Fnd_Api.G_FALSE,
2388: p_commit => Fnd_Api.G_FALSE,
2389: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2390: p_visit_id => p_visit_id,
2391: x_MR_session_id => l_MR_session_id,
2392: x_return_status => l_return_status,
2385: (
2386: p_api_version => 1.0,
2387: p_init_msg_list => Fnd_Api.G_FALSE,
2388: p_commit => Fnd_Api.G_FALSE,
2389: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2390: p_visit_id => p_visit_id,
2391: x_MR_session_id => l_MR_session_id,
2392: x_return_status => l_return_status,
2393: x_msg_count => l_msg_count,
2399: L_DEBUG_KEY,
2400: 'After Calling AHL_VWP_CST_WO_PVT.Create_WO_Dependencies, Return Status = ' || l_return_status);
2401: END IF;
2402:
2403: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2404:
2405: IF (l_log_statement >= l_log_current_level) THEN
2406: fnd_log.string(l_log_statement,
2407: L_DEBUG_KEY,
2407: L_DEBUG_KEY,
2408: 'Errors from Create_WO_Dependencies API' || l_msg_count );
2409: END IF;
2410:
2411: RAISE Fnd_Api.g_exc_error;
2412: END IF;
2413:
2414: x_MR_session_id := l_MR_session_id;
2415: x_cost_session_id := l_cost_session_id;
2413:
2414: x_MR_session_id := l_MR_session_id;
2415: x_cost_session_id := l_cost_session_id;
2416:
2417: x_return_status := FND_API.G_RET_STS_SUCCESS;
2418:
2419: ------------------------End of API Body------------------------------------
2420: IF (l_log_procedure >= l_log_current_level) THEN
2421: fnd_log.string(l_log_procedure,
2458: -- Standard start of API savepoint
2459: SAVEPOINT Get_Profit_or_Loss;
2460:
2461: -- Initialize API return status to success
2462: x_return_status := FND_API.G_RET_STS_SUCCESS;
2463:
2464: IF p_actual_price IS NOT NULL AND p_actual_cost IS NOT NULL THEN
2465: x_actual_profit := p_actual_price - p_actual_cost;
2466: ELSE
2481: 'Actual Profit : ' || x_actual_profit ||
2482: 'Estimated Profit : ' || x_estimated_profit );
2483: END IF;
2484:
2485: --x_return_status := FND_API.G_RET_STS_SUCCESS;
2486:
2487: ------------------------Terminate API Body------------------------------------
2488: END Get_Profit_or_Loss;
2489: