[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,
152: -- Standard start of API savepoint
153: SAVEPOINT Create_Wo_Cost_Structure;
154:
155: -- Initialize message list if p_init_msg_list is set to TRUE
156: IF FND_API.To_Boolean( p_init_msg_list) THEN
157: FND_MSG_PUB.Initialize;
158: END IF;
159:
160: -- Initialize API return status to success
157: FND_MSG_PUB.Initialize;
158: END IF;
159:
160: -- Initialize API return status to success
161: x_return_status := FND_API.G_RET_STS_SUCCESS;
162:
163: --Get progarm application id
164: l_application_id := FND_GLOBAL.prog_appl_id;
165:
271: 'After Calling Insert cost workorder hierarchy, Return Status = ' || l_return_status ||
272: 'Session id :' ||x_cost_session_id);
273: END IF;
274:
275: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
276:
277: IF (l_log_statement >= l_log_current_level) THEN
278: fnd_log.string(l_log_statement,
279: L_DEBUG_KEY,
279: L_DEBUG_KEY,
280: 'Errors from Insert cost workorder hierarchy' || x_msg_count);
281: END IF;
282:
283: RAISE Fnd_Api.g_exc_error;
284: END IF;
285:
286: IF (l_log_procedure >= l_log_current_level) THEN
287: fnd_log.string(l_log_procedure,
289: 'At the end of PL SQL procedure. Return Status = ' || l_return_status);
290: END IF;
291:
292: EXCEPTION
293: WHEN FND_API.G_EXC_ERROR THEN
294: x_return_status := FND_API.G_RET_STS_ERROR;
295: ROLLBACK TO Create_Wo_Cost_Structure;
296: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
297: p_data => x_msg_data,
290: END IF;
291:
292: EXCEPTION
293: WHEN FND_API.G_EXC_ERROR THEN
294: x_return_status := FND_API.G_RET_STS_ERROR;
295: ROLLBACK TO Create_Wo_Cost_Structure;
296: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
297: p_data => x_msg_data,
298: p_encoded => fnd_api.g_false);
294: x_return_status := FND_API.G_RET_STS_ERROR;
295: ROLLBACK TO Create_Wo_Cost_Structure;
296: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
297: p_data => x_msg_data,
298: p_encoded => fnd_api.g_false);
299:
300:
301: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
302: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
297: p_data => x_msg_data,
298: p_encoded => fnd_api.g_false);
299:
300:
301: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
302: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
303: ROLLBACK TO Create_Wo_Cost_Structure;
304: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
305: p_data => x_msg_data,
298: p_encoded => fnd_api.g_false);
299:
300:
301: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
302: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
303: ROLLBACK TO Create_Wo_Cost_Structure;
304: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
305: p_data => x_msg_data,
306: p_encoded => fnd_api.g_false);
302: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
303: ROLLBACK TO Create_Wo_Cost_Structure;
304: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
305: p_data => x_msg_data,
306: p_encoded => fnd_api.g_false);
307:
308:
309: WHEN OTHERS THEN
310: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
306: p_encoded => fnd_api.g_false);
307:
308:
309: WHEN OTHERS THEN
310: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
311: ROLLBACK TO Create_Wo_Cost_Structure;
312: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
313: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
314: p_procedure_name => 'Create_Wo_Cost_Structure',
315: p_error_text => SUBSTR(SQLERRM,1,500));
316: END IF;
317: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
318: p_data => x_msg_data,
319: p_encoded => fnd_api.g_false);
320: END Create_Wo_Cost_Structure;
321:
322:
323: ---------------------------------------------------------------------------------
325: ---------------------------------------------------------------------------------
326: PROCEDURE Create_Wo_Dependencies
327: (
328: p_api_version IN NUMBER,
329: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
330: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
331: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
332: p_visit_id IN NUMBER,
333: x_MR_session_id OUT NOCOPY NUMBER,
326: PROCEDURE Create_Wo_Dependencies
327: (
328: p_api_version IN NUMBER,
329: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
330: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
331: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
332: p_visit_id IN NUMBER,
333: x_MR_session_id OUT NOCOPY NUMBER,
334: x_return_status OUT NOCOPY VARCHAR2,
327: (
328: p_api_version IN NUMBER,
329: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
330: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
331: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
332: p_visit_id IN NUMBER,
333: x_MR_session_id OUT NOCOPY NUMBER,
334: x_return_status OUT NOCOPY VARCHAR2,
335: x_msg_count OUT NOCOPY NUMBER,
405: 'At the start of PL SQL procedure. Visit Id = ' || p_visit_id);
406: END IF;
407:
408: -- Initialize API return status to success
409: x_return_status := FND_API.G_RET_STS_SUCCESS;
410:
411: -- Standard Start of API savepoint
412: SAVEPOINT create_wo_dependencies_PVT;
413:
459:
460: Insert_Cst_Wo_Hierarchy
461: (
462: p_cst_job_tbl => l_cst_job_tbl,
463: p_commit => FND_API.G_FALSE,
464: x_session_id => x_MR_session_id,
465: x_return_status => l_return_status
466: );
467:
470: L_DEBUG_KEY,
471: 'After Calling Insert_Cst_Wo_Hierarchy, Return Status = ' || l_return_status);
472: END IF;
473:
474: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
475: IF (l_log_statement >= l_log_current_level) THEN
476: fnd_log.string(l_log_statement,
477: L_DEBUG_KEY,
478: 'Errors from Insert cost workorder hierarchy' || x_msg_count);
477: L_DEBUG_KEY,
478: 'Errors from Insert cost workorder hierarchy' || x_msg_count);
479: END IF;
480:
481: x_return_status := Fnd_Api.G_RET_STS_ERROR;
482: RAISE Fnd_Api.g_exc_error;
483: END IF;
484:
485: IF (l_log_procedure >= l_log_current_level) THEN
478: 'Errors from Insert cost workorder hierarchy' || x_msg_count);
479: END IF;
480:
481: x_return_status := Fnd_Api.G_RET_STS_ERROR;
482: RAISE Fnd_Api.g_exc_error;
483: END IF;
484:
485: IF (l_log_procedure >= l_log_current_level) THEN
486: fnd_log.string(l_log_procedure,
489: ' x_session_id = ' || x_MR_session_id );
490: END IF;
491: EXCEPTION
492:
493: WHEN FND_API.G_EXC_ERROR THEN
494: ROLLBACK TO create_wo_dependencies_PVT;
495: x_return_status := FND_API.G_RET_STS_ERROR;
496: FND_MSG_PUB.count_and_get
497: (
491: EXCEPTION
492:
493: WHEN FND_API.G_EXC_ERROR THEN
494: ROLLBACK TO create_wo_dependencies_PVT;
495: x_return_status := FND_API.G_RET_STS_ERROR;
496: FND_MSG_PUB.count_and_get
497: (
498: p_encoded => FND_API.G_FALSE,
499: p_count => x_msg_count,
494: ROLLBACK TO create_wo_dependencies_PVT;
495: x_return_status := FND_API.G_RET_STS_ERROR;
496: FND_MSG_PUB.count_and_get
497: (
498: p_encoded => FND_API.G_FALSE,
499: p_count => x_msg_count,
500: p_data => x_msg_data
501: );
502:
499: p_count => x_msg_count,
500: p_data => x_msg_data
501: );
502:
503: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
504: ROLLBACK TO create_wo_dependencies_PVT;
505: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
506: FND_MSG_PUB.count_and_get
507: (
501: );
502:
503: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
504: ROLLBACK TO create_wo_dependencies_PVT;
505: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
506: FND_MSG_PUB.count_and_get
507: (
508: p_encoded => FND_API.G_FALSE,
509: p_count => x_msg_count,
504: ROLLBACK TO create_wo_dependencies_PVT;
505: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
506: FND_MSG_PUB.count_and_get
507: (
508: p_encoded => FND_API.G_FALSE,
509: p_count => x_msg_count,
510: p_data => x_msg_data
511: );
512:
511: );
512:
513: WHEN OTHERS THEN
514: ROLLBACK TO create_wo_dependencies_PVT;
515: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
516: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
517: THEN
518: FND_MSG_PUB.add_exc_msg
519: (
523: );
524: END IF;
525: FND_MSG_PUB.count_and_get
526: (
527: p_encoded => FND_API.G_FALSE,
528: p_count => x_msg_count,
529: p_data => x_msg_data
530: );
531:
536: -- into Costing interface table CST_EAM_HIERARCHY_SNAPSHOT
537: ---------------------------------------------------------------------------------
538: PROCEDURE Insert_Cst_Wo_Hierarchy (
539: p_cst_job_tbl IN Cst_Job_Tbl,
540: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
541: x_session_id OUT NOCOPY NUMBER,
542: x_return_status OUT NOCOPY VARCHAR2)
543: IS
544:
561: 'At the start of PL SQL procedure.');
562: END IF;
563:
564: -- Initialize API return status to success
565: x_return_status := FND_API.G_RET_STS_SUCCESS;
566:
567: -- Get Cost Session Id
568: SELECT MTL_EAM_ASSET_ACTIVITIES_S.nextval INTO l_group_id
569: FROM DUAL;
576: fnd_log.string(l_log_statement,
577: L_DEBUG_KEY,
578: 'MTL_EAM_ASSET_ACTIVITIES_S Sequence not exists ');
579: END IF;
580: RAISE Fnd_Api.g_exc_error;
581: END IF;
582:
583: -- loop through all the records
584: IF l_cst_job_tbl.COUNT> 0 THEN
626:
627: -- Assign Cost Session Id
628: x_session_id := l_group_id;
629:
630: -- x_return_status := FND_API.G_RET_STS_SUCCESS;
631:
632: IF (l_log_procedure >= l_log_current_level) THEN
633: fnd_log.string(l_log_procedure,
634: L_DEBUG_KEY ||'.end',
712: -- Standard start of API savepoint
713: SAVEPOINT Calculate_Visit_Cost;
714:
715: -- Initialize API return status to success
716: x_return_status := FND_API.G_RET_STS_SUCCESS;
717:
718: ------------------------Start of API Body------------------------------------
719:
720: -- make sure that visit id is present in the input
718: ------------------------Start of API Body------------------------------------
719:
720: -- make sure that visit id is present in the input
721:
722: IF(p_visit_id IS NULL OR p_visit_id = FND_API.G_MISS_NUM) THEN
723:
724: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_INPUT_MISS');
725: FND_MSG_PUB.ADD;
726: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
722: IF(p_visit_id IS NULL OR p_visit_id = FND_API.G_MISS_NUM) THEN
723:
724: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_INPUT_MISS');
725: FND_MSG_PUB.ADD;
726: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
727:
728: END IF;
729:
730:
809: x_Estimated_cost := l_Estimated_cost;
810:
811: ------------------------End of API Body------------------------------------
812:
813: --x_return_status := FND_API.G_RET_STS_SUCCESS;
814:
815: IF (l_log_procedure >= l_log_current_level) THEN
816: fnd_log.string(l_log_procedure,
817: L_DEBUG_KEY ||'.end',
918: -- Standard start of API savepoint
919: SAVEPOINT Calculate_MR_Cost;
920:
921: -- Initialize API return status to success
922: x_return_status := FND_API.G_RET_STS_SUCCESS;
923:
924: ------------------------Start of API Body------------------------------------
925: -- Validate Visit Task and Session Exists
926: IF p_visit_task_id IS NULL THEN
925: -- Validate Visit Task and Session Exists
926: IF p_visit_task_id IS NULL THEN
927: Fnd_Message.Set_Name('AHL','AHL_CST_VISIT_TASK_ID_NULL');
928: Fnd_Msg_Pub.ADD;
929: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
930: END IF;
931:
932: -- Cursor to find out MR_Id value for the Summary Task
933: OPEN c_task(p_visit_task_id);
1027: x_actual_cost := l_actual_cost;
1028: x_estimated_cost := l_estimated_cost;
1029:
1030: ------------------------End of API Body------------------------------------
1031: --x_return_status := FND_API.G_RET_STS_SUCCESS;
1032:
1033: IF (l_log_procedure >= l_log_current_level) THEN
1034: fnd_log.string(l_log_procedure,
1035: L_DEBUG_KEY ||'.end',
1111: -- Standard start of API savepoint
1112: SAVEPOINT Calculate_Node_Cost;
1113:
1114: -- Initialize API return status to success
1115: x_return_status := FND_API.G_RET_STS_SUCCESS;
1116:
1117: ------------------------Start of API Body------------------------------------
1118: -- Validate Visit Task
1119: IF p_Visit_task_id IS NULL THEN
1118: -- Validate Visit Task
1119: IF p_Visit_task_id IS NULL THEN
1120: Fnd_Message.Set_Name('AHL','AHL_CST_VISIT_TASK_ID_NULL');
1121: Fnd_Msg_Pub.ADD;
1122: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1123: END IF;
1124:
1125: OPEN c_task(p_Visit_task_id);
1126: FETCH c_task INTO c_task_rec;
1260: 'Task Actual Cost : ' || x_actual_cost ||
1261: 'Task Estimated Cost : ' || x_estimated_cost );
1262: END IF;
1263:
1264: x_return_status := FND_API.G_RET_STS_SUCCESS;
1265:
1266: ------------------------Terminate API Body------------------------------------
1267: END Calculate_Node_Cost;
1268:
1331: -- Standard start of API savepoint
1332: SAVEPOINT Calculate_Task_Cost;
1333:
1334: -- Initialize API return status to success
1335: x_return_status := FND_API.G_RET_STS_SUCCESS;
1336:
1337: ------------------------Start of API Body------------------------------------
1338:
1339: -- Validate Visit Task
1339: -- Validate Visit Task
1340: IF p_Visit_task_id IS NULL THEN
1341: Fnd_Message.Set_Name('AHL','AHL_CST_VISIT_TASK_ID_NULL');
1342: Fnd_Msg_Pub.ADD;
1343: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1344: END IF;
1345:
1346: OPEN c_task(p_Visit_task_id);
1347: FETCH c_task INTO c_task_rec;
1458: 'Task Actual Cost : ' || x_actual_cost ||
1459: 'Task Estimated Cost : ' || x_estimated_cost );
1460: END IF;
1461:
1462: x_return_status := FND_API.G_RET_STS_SUCCESS;
1463:
1464: ------------------------Terminate API Body------------------------------------
1465: END Calculate_Task_Cost;
1466:
1471: -- Called from get_visit_cost_details/get_task_cost_details/get_MR_cost_details
1472: --------------------------------------------------------------------------
1473: PROCEDURE Calculate_WO_Cost(
1474: p_api_version IN NUMBER := 1.0,
1475: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
1476: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
1477: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
1478: p_x_cost_price_rec IN OUT NOCOPY AHL_VWP_VISIT_CST_PR_PVT.Cost_price_rec_type,
1479: x_return_status OUT NOCOPY VARCHAR2)
1472: --------------------------------------------------------------------------
1473: PROCEDURE Calculate_WO_Cost(
1474: p_api_version IN NUMBER := 1.0,
1475: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
1476: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
1477: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
1478: p_x_cost_price_rec IN OUT NOCOPY AHL_VWP_VISIT_CST_PR_PVT.Cost_price_rec_type,
1479: x_return_status OUT NOCOPY VARCHAR2)
1480: IS
1473: PROCEDURE Calculate_WO_Cost(
1474: p_api_version IN NUMBER := 1.0,
1475: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
1476: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
1477: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
1478: p_x_cost_price_rec IN OUT NOCOPY AHL_VWP_VISIT_CST_PR_PVT.Cost_price_rec_type,
1479: x_return_status OUT NOCOPY VARCHAR2)
1480: IS
1481: -- Define Local Variables
1528: -- Standard start of API savepoint
1529: SAVEPOINT Calculate_WO_Cost;
1530:
1531: -- Initialize API return status to success
1532: x_return_status := FND_API.G_RET_STS_SUCCESS;
1533:
1534: l_Visit_Id := l_cost_price_rec.visit_Id;
1535: l_MR_Session_Id := l_cost_price_rec.MR_Session_Id;
1536: l_Cost_Session_Id := l_cost_price_rec.Cost_Session_Id;
1535: l_MR_Session_Id := l_cost_price_rec.MR_Session_Id;
1536: l_Cost_Session_Id := l_cost_price_rec.Cost_Session_Id;
1537:
1538:
1539: IF l_visit_id IS NULL OR l_visit_id = FND_API.G_MISS_NUM THEN
1540:
1541: -- Whether call for Calculate_WO_Cost is from Visit OR Task
1542: 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
1543:
1538:
1539: IF l_visit_id IS NULL OR l_visit_id = FND_API.G_MISS_NUM THEN
1540:
1541: -- Whether call for Calculate_WO_Cost is from Visit OR Task
1542: 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
1543:
1544: -- Cursor for task related information in search task view
1545: OPEN c_task(l_cost_price_rec.visit_task_id);
1546: FETCH c_task INTO l_visit_id;
1548:
1549: END IF;
1550:
1551: -- Validate Visit exists
1552: IF l_visit_id IS NULL OR l_visit_id = FND_API.G_MISS_NUM THEN
1553:
1554: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_INPUT_MISS');
1555:
1556: FND_MSG_PUB.ADD;
1560: L_DEBUG_KEY,
1561: 'Visit id is mandatory but found null in input ' );
1562: END IF;
1563:
1564: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1565:
1566: END IF;
1567:
1568: END IF;
1601: IF visit_rec.status_code = 'PLANNING' THEN
1602:
1603: -- workorder created already
1604: IF l_cost_price_rec.workorder_id is not null and
1605: l_cost_price_rec.workorder_id <> FND_API.G_MISS_NUM THEN
1606:
1607: l_cost_rollup_flag := 'Y';
1608:
1609: END IF; -- Check for l_count
1644: p_Cost_Session_Id => l_Cost_Session_Id,
1645: x_return_status => l_return_status
1646: );
1647:
1648: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1649: RAISE Fnd_Api.G_EXC_ERROR;
1650: END IF;
1651:
1652: IF (l_log_statement >= l_log_current_level) THEN
1645: x_return_status => l_return_status
1646: );
1647:
1648: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1649: RAISE Fnd_Api.G_EXC_ERROR;
1650: END IF;
1651:
1652: IF (l_log_statement >= l_log_current_level) THEN
1653: fnd_log.string(l_log_statement,
1685: 'After calling Push_MR_Cost_Hierarchy API, Return Status = ' || l_return_status ||
1686: 'Visit Id : ' || l_visit_id );
1687: END IF;
1688:
1689: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1690: RAISE Fnd_Api.G_EXC_ERROR;
1691: END IF;
1692:
1693: IF (l_log_statement >= l_log_current_level) THEN
1686: 'Visit Id : ' || l_visit_id );
1687: END IF;
1688:
1689: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1690: RAISE Fnd_Api.G_EXC_ERROR;
1691: END IF;
1692:
1693: IF (l_log_statement >= l_log_current_level) THEN
1694: fnd_log.string(l_log_statement,
1707: p_Cost_Session_Id => l_Cost_Session_Id,
1708: x_return_status => l_return_status
1709: );
1710:
1711: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1712: RAISE Fnd_Api.G_EXC_ERROR;
1713: END IF;
1714:
1715: IF (l_log_statement >= l_log_current_level) THEN
1708: x_return_status => l_return_status
1709: );
1710:
1711: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1712: RAISE Fnd_Api.G_EXC_ERROR;
1713: END IF;
1714:
1715: IF (l_log_statement >= l_log_current_level) THEN
1716: fnd_log.string(l_log_statement,
1729: p_x_cost_price_rec.Cost_Session_Id := l_Cost_Session_Id;
1730: p_x_cost_price_rec.Is_Cst_Struc_updated := l_cost_price_rec.Is_Cst_Struc_updated;
1731: p_x_cost_price_rec.workorder_id := l_cost_price_rec.workorder_id;
1732:
1733: x_return_status := FND_API.G_RET_STS_SUCCESS;
1734:
1735: ------------------------End of API Body------------------------------------
1736:
1737: IF (l_log_procedure >= l_log_current_level) THEN
1755: -- Called from estimate_visit_cost/estimate_MR_cost/estimate_task_cost
1756: --------------------------------------------------------------------------
1757: PROCEDURE Estimate_WO_Cost(
1758: p_api_version IN NUMBER := 1.0,
1759: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
1760: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
1761: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
1762: p_x_cost_price_rec IN OUT NOCOPY AHL_VWP_VISIT_CST_PR_PVT.Cost_price_rec_type,
1763: x_return_status OUT NOCOPY VARCHAR2)
1756: --------------------------------------------------------------------------
1757: PROCEDURE Estimate_WO_Cost(
1758: p_api_version IN NUMBER := 1.0,
1759: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
1760: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
1761: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
1762: p_x_cost_price_rec IN OUT NOCOPY AHL_VWP_VISIT_CST_PR_PVT.Cost_price_rec_type,
1763: x_return_status OUT NOCOPY VARCHAR2)
1764: IS
1757: PROCEDURE Estimate_WO_Cost(
1758: p_api_version IN NUMBER := 1.0,
1759: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
1760: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
1761: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
1762: p_x_cost_price_rec IN OUT NOCOPY AHL_VWP_VISIT_CST_PR_PVT.Cost_price_rec_type,
1763: x_return_status OUT NOCOPY VARCHAR2)
1764: IS
1765: -- Define Local Variables
1797: -- Standard start of API savepoint
1798: SAVEPOINT Estimate_WO_Cost;
1799:
1800: -- Initialize API return status to success
1801: x_return_status := FND_API.G_RET_STS_SUCCESS;
1802:
1803: l_Visit_Id := l_cost_price_rec.visit_Id;
1804: l_MR_Session_Id := l_cost_price_rec.MR_Session_Id;
1805: l_Cost_Session_Id := l_cost_price_rec.Cost_Session_Id;
1804: l_MR_Session_Id := l_cost_price_rec.MR_Session_Id;
1805: l_Cost_Session_Id := l_cost_price_rec.Cost_Session_Id;
1806:
1807: -- Whether call for Calculate_WO_Cost is from Visit OR Task
1808: 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
1809:
1810: -- Cursor for task related information in search task view
1811: OPEN c_task(l_cost_price_rec.visit_task_id);
1812: FETCH c_task INTO task_rec;
1848: L_DEBUG_KEY,
1849: 'After calling Push_MR_Cost_Hierarchy API, Return Status = ' || l_return_status );
1850: END IF;
1851:
1852: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1853: RAISE Fnd_Api.G_EXC_ERROR;
1854: END IF;
1855:
1856: IF (l_log_statement >= l_log_current_level) THEN
1849: 'After calling Push_MR_Cost_Hierarchy API, Return Status = ' || l_return_status );
1850: END IF;
1851:
1852: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1853: RAISE Fnd_Api.G_EXC_ERROR;
1854: END IF;
1855:
1856: IF (l_log_statement >= l_log_current_level) THEN
1857: fnd_log.string(l_log_statement,
1892: p_x_cost_price_rec.MR_Session_Id := l_MR_Session_Id;
1893: p_x_cost_price_rec.Cost_Session_Id := l_Cost_Session_Id;
1894: p_x_cost_price_rec.Is_Cst_Struc_updated := l_cost_price_rec.Is_Cst_Struc_updated;
1895:
1896: x_return_status := FND_API.G_RET_STS_SUCCESS;
1897:
1898: ------------------------End of API Body------------------------------------
1899:
1900:
1959: -- Standard start of API savepoint
1960: SAVEPOINT Get_WO_Cost;
1961:
1962: -- Initialize API return status to success
1963: x_return_status := FND_API.G_RET_STS_SUCCESS;
1964:
1965: OPEN c_cost_csr(p_session_id, p_id, p_program_id);
1966: FETCH c_cost_csr INTO c_cost_csr_rec;
1967: IF c_cost_csr%FOUND THEN
1974:
1975: END IF;
1976: CLOSE c_cost_csr;
1977:
1978: x_return_status := FND_API.G_RET_STS_SUCCESS;
1979:
1980: ------------------------End of API Body------------------------------------
1981:
1982: IF (l_log_procedure >= l_log_current_level) THEN
1998: -- 'CST_EAM_HIERARCHY_SNAPSHOT' and inserting in CST_EAM_ROLLUP_COSTS --
1999: --------------------------------------------------------------------------
2000: PROCEDURE Rollup_MR_Cost_Hierarchy(
2001: p_api_version IN NUMBER := 1.0,
2002: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
2003: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
2004: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
2005: p_visit_id IN NUMBER,
2006: p_MR_session_Id IN NUMBER,
1999: --------------------------------------------------------------------------
2000: PROCEDURE Rollup_MR_Cost_Hierarchy(
2001: p_api_version IN NUMBER := 1.0,
2002: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
2003: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
2004: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
2005: p_visit_id IN NUMBER,
2006: p_MR_session_Id IN NUMBER,
2007: p_cost_session_id IN NUMBER,
2000: PROCEDURE Rollup_MR_Cost_Hierarchy(
2001: p_api_version IN NUMBER := 1.0,
2002: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
2003: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
2004: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
2005: p_visit_id IN NUMBER,
2006: p_MR_session_Id IN NUMBER,
2007: p_cost_session_id IN NUMBER,
2008: x_return_status OUT NOCOPY VARCHAR2)
2069: -- Standard start of API savepoint
2070: SAVEPOINT Rollup_MR_Cost_Hierarchy;
2071:
2072: -- Initialize API return status to success
2073: x_return_status := FND_API.G_RET_STS_SUCCESS;
2074:
2075: OPEN c_visit_details(p_visit_id);
2076: FETCH c_visit_details INTO visit_rec;
2077: CLOSE c_visit_details;
2105: END IF;
2106:
2107: CST_EAMCOST_PUB.Delete_eamPerBal (
2108: p_api_version => 1.0,
2109: p_init_msg_list => Fnd_Api.G_FALSE,
2110: p_commit => Fnd_Api.G_FALSE,
2111: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2112:
2113: x_return_status => l_return_status,
2106:
2107: CST_EAMCOST_PUB.Delete_eamPerBal (
2108: p_api_version => 1.0,
2109: p_init_msg_list => Fnd_Api.G_FALSE,
2110: p_commit => Fnd_Api.G_FALSE,
2111: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2112:
2113: x_return_status => l_return_status,
2114: x_msg_count => l_msg_count,
2107: CST_EAMCOST_PUB.Delete_eamPerBal (
2108: p_api_version => 1.0,
2109: p_init_msg_list => Fnd_Api.G_FALSE,
2110: p_commit => Fnd_Api.G_FALSE,
2111: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2112:
2113: x_return_status => l_return_status,
2114: x_msg_count => l_msg_count,
2115: x_msg_data => l_msg_data,
2123: L_DEBUG_KEY,
2124: 'After Calling CST_EAMCOST_PUB.Delete_eamPerBal, Return Status = ' || l_return_status );
2125: END IF;
2126:
2127: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2128:
2129: IF (l_log_statement >= l_log_current_level) THEN
2130: fnd_log.string(l_log_statement,
2131: L_DEBUG_KEY,
2131: L_DEBUG_KEY,
2132: 'Errors from CST_EAMCOST_PUB.Delete_eamPerBal API -COST SESSION' || l_msg_count );
2133: END IF;
2134:
2135: RAISE Fnd_Api.g_exc_error;
2136: END IF;
2137:
2138: -- yazhou 22Sept2005 ends
2139:
2154: END IF;
2155:
2156: CST_EAMCOST_PUB.Compute_Job_Estimate (
2157: p_api_version => 1.0,
2158: p_init_msg_list => Fnd_Api.G_FALSE,
2159: p_commit => Fnd_Api.G_FALSE,
2160: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2161: p_debug => 'N',
2162: p_wip_entity_id => c_wip_jobs_rec.wip_entity_id,
2155:
2156: CST_EAMCOST_PUB.Compute_Job_Estimate (
2157: p_api_version => 1.0,
2158: p_init_msg_list => Fnd_Api.G_FALSE,
2159: p_commit => Fnd_Api.G_FALSE,
2160: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2161: p_debug => 'N',
2162: p_wip_entity_id => c_wip_jobs_rec.wip_entity_id,
2163: p_user_id => fnd_global.user_id,
2156: CST_EAMCOST_PUB.Compute_Job_Estimate (
2157: p_api_version => 1.0,
2158: p_init_msg_list => Fnd_Api.G_FALSE,
2159: p_commit => Fnd_Api.G_FALSE,
2160: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2161: p_debug => 'N',
2162: p_wip_entity_id => c_wip_jobs_rec.wip_entity_id,
2163: p_user_id => fnd_global.user_id,
2164: p_request_id => NULL,
2174: L_DEBUG_KEY,
2175: 'After calling CST_EAMCOST_PUB.Compute_Job_Estimate, Return Status = ' || l_return_status);
2176: END IF;
2177:
2178: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2179:
2180: IF (l_log_statement >= l_log_current_level) THEN
2181: fnd_log.string(l_log_statement,
2182: L_DEBUG_KEY,
2183: 'Errors from CST_EAMCOST_PUB.Delete_eamPerBal API -COST SESSION' || l_msg_count );
2184: END IF;
2185:
2186: CLOSE c_wip_jobs;
2187: RAISE Fnd_Api.g_exc_error;
2188: END IF;
2189:
2190: END IF;
2191:
2206:
2207: CST_EAMCOST_PUB.Rollup_WorkOrderCost
2208: (
2209: p_api_version => 1.0,
2210: p_init_msg_list => Fnd_Api.G_FALSE,
2211: p_commit => Fnd_Api.G_FALSE,
2212: p_group_id => p_cost_session_id,
2213: p_organization_id => visit_rec.organization_id,
2214: p_user_id => Fnd_Global.USER_ID,
2207: CST_EAMCOST_PUB.Rollup_WorkOrderCost
2208: (
2209: p_api_version => 1.0,
2210: p_init_msg_list => Fnd_Api.G_FALSE,
2211: p_commit => Fnd_Api.G_FALSE,
2212: p_group_id => p_cost_session_id,
2213: p_organization_id => visit_rec.organization_id,
2214: p_user_id => Fnd_Global.USER_ID,
2215: p_prog_appl_id => Fnd_Global.PROG_APPL_ID,
2223: 'After Calling CST_EAMCOST_PUB.Rollup_WorkOrderCost-COST SESSION, Return Status = ' || l_return_status );
2224: END IF;
2225:
2226:
2227: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2228:
2229: IF (l_log_statement >= l_log_current_level) THEN
2230: fnd_log.string(l_log_statement,
2231: L_DEBUG_KEY,
2231: L_DEBUG_KEY,
2232: 'Errors from CST_EAMCOST_PUB.Rollup_WorkOrderCosts API -COST SESSION' || l_msg_count );
2233: END IF;
2234:
2235: RAISE Fnd_Api.g_exc_error;
2236: ELSE
2237: FND_MSG_PUB.Initialize;
2238: END IF;
2239:
2251:
2252: CST_EAMCOST_PUB.Rollup_WorkOrderCost
2253: (
2254: p_api_version => 1.0,
2255: p_init_msg_list => Fnd_Api.G_FALSE,
2256: p_commit => Fnd_Api.G_FALSE,
2257: p_group_id => p_MR_session_id,
2258: p_organization_id => visit_rec.organization_id,
2259: p_user_id => Fnd_Global.USER_ID,
2252: CST_EAMCOST_PUB.Rollup_WorkOrderCost
2253: (
2254: p_api_version => 1.0,
2255: p_init_msg_list => Fnd_Api.G_FALSE,
2256: p_commit => Fnd_Api.G_FALSE,
2257: p_group_id => p_MR_session_id,
2258: p_organization_id => visit_rec.organization_id,
2259: p_user_id => Fnd_Global.USER_ID,
2260: p_prog_appl_id => Fnd_Global.PROG_APPL_ID,
2267: L_DEBUG_KEY,
2268: 'After Calling CST_EAMCOST_PUB.Rollup_WorkOrderCost-MR SESSION, Return Status = ' || l_return_status);
2269: END IF;
2270:
2271: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2272:
2273: IF (l_log_statement >= l_log_current_level) THEN
2274: fnd_log.string(l_log_statement,
2275: L_DEBUG_KEY,
2275: L_DEBUG_KEY,
2276: 'Errors from CST_EAMCOST_PUB.Rollup_WorkOrderCosts API -MR SESSION' || l_msg_count);
2277: END IF;
2278:
2279: RAISE Fnd_Api.g_exc_error;
2280: ELSE
2281: FND_MSG_PUB.Initialize;
2282: END IF;
2283:
2288: L_DEBUG_KEY ||'.end',
2289: 'At the end of PL SQL procedure. Return Status = ' || l_return_status);
2290: END IF;
2291:
2292: --x_return_status := FND_API.G_RET_STS_SUCCESS;
2293:
2294: ------------------------Terminate API Body------------------------------------
2295: END Rollup_MR_Cost_Hierarchy;
2296:
2300: -- Cost Hierarchy structure by inserting in Costing tables --
2301: --------------------------------------------------------------------------
2302: PROCEDURE Push_MR_Cost_Hierarchy(
2303: p_api_version IN NUMBER := 1.0,
2304: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
2305: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
2306: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
2307: p_visit_id IN NUMBER,
2308: x_cost_session_id OUT NOCOPY NUMBER,
2301: --------------------------------------------------------------------------
2302: PROCEDURE Push_MR_Cost_Hierarchy(
2303: p_api_version IN NUMBER := 1.0,
2304: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
2305: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
2306: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
2307: p_visit_id IN NUMBER,
2308: x_cost_session_id OUT NOCOPY NUMBER,
2309: x_MR_session_id OUT NOCOPY NUMBER,
2302: PROCEDURE Push_MR_Cost_Hierarchy(
2303: p_api_version IN NUMBER := 1.0,
2304: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
2305: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
2306: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
2307: p_visit_id IN NUMBER,
2308: x_cost_session_id OUT NOCOPY NUMBER,
2309: x_MR_session_id OUT NOCOPY NUMBER,
2310: x_return_status OUT NOCOPY VARCHAR2 )
2332: -- Standard start of API savepoint
2333: SAVEPOINT Push_MR_Cost_Hierarchy;
2334:
2335: -- Initialize API return status to success
2336: x_return_status := FND_API.G_RET_STS_SUCCESS;
2337:
2338: IF (l_log_statement >= l_log_current_level) THEN
2339: fnd_log.string(l_log_statement,
2340: L_DEBUG_KEY,
2344: -- Calling Create_WO_Cost_Structure API
2345: Create_WO_Cost_Structure
2346: (
2347: p_api_version => 1.0,
2348: p_init_msg_list => Fnd_Api.G_FALSE,
2349: p_commit => Fnd_Api.G_FALSE,
2350: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2351: p_visit_id => p_visit_id,
2352: x_cost_session_id => l_cost_session_id,
2345: Create_WO_Cost_Structure
2346: (
2347: p_api_version => 1.0,
2348: p_init_msg_list => Fnd_Api.G_FALSE,
2349: p_commit => Fnd_Api.G_FALSE,
2350: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2351: p_visit_id => p_visit_id,
2352: x_cost_session_id => l_cost_session_id,
2353: x_return_status => l_return_status,
2346: (
2347: p_api_version => 1.0,
2348: p_init_msg_list => Fnd_Api.G_FALSE,
2349: p_commit => Fnd_Api.G_FALSE,
2350: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2351: p_visit_id => p_visit_id,
2352: x_cost_session_id => l_cost_session_id,
2353: x_return_status => l_return_status,
2354: x_msg_count => l_msg_count,
2360: L_DEBUG_KEY,
2361: 'After Calling AHL_VWP_CST_WO_PVT.Create_WO_Cost_Structure, Return Status = ' || l_return_status);
2362: END IF;
2363:
2364: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2365:
2366: IF (l_log_statement >= l_log_current_level) THEN
2367: fnd_log.string(l_log_statement,
2368: L_DEBUG_KEY,
2368: L_DEBUG_KEY,
2369: 'Errors from Create_WO_Cost_Structure API' || l_msg_count) ;
2370: END IF;
2371:
2372: RAISE Fnd_Api.g_exc_error;
2373: END IF;
2374:
2375: IF (l_log_statement >= l_log_current_level) THEN
2376: fnd_log.string(l_log_statement,
2380:
2381: Create_WO_Dependencies
2382: (
2383: p_api_version => 1.0,
2384: p_init_msg_list => Fnd_Api.G_FALSE,
2385: p_commit => Fnd_Api.G_FALSE,
2386: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2387: p_visit_id => p_visit_id,
2388: x_MR_session_id => l_MR_session_id,
2381: Create_WO_Dependencies
2382: (
2383: p_api_version => 1.0,
2384: p_init_msg_list => Fnd_Api.G_FALSE,
2385: p_commit => Fnd_Api.G_FALSE,
2386: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2387: p_visit_id => p_visit_id,
2388: x_MR_session_id => l_MR_session_id,
2389: x_return_status => l_return_status,
2382: (
2383: p_api_version => 1.0,
2384: p_init_msg_list => Fnd_Api.G_FALSE,
2385: p_commit => Fnd_Api.G_FALSE,
2386: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2387: p_visit_id => p_visit_id,
2388: x_MR_session_id => l_MR_session_id,
2389: x_return_status => l_return_status,
2390: x_msg_count => l_msg_count,
2396: L_DEBUG_KEY,
2397: 'After Calling AHL_VWP_CST_WO_PVT.Create_WO_Dependencies, Return Status = ' || l_return_status);
2398: END IF;
2399:
2400: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2401:
2402: IF (l_log_statement >= l_log_current_level) THEN
2403: fnd_log.string(l_log_statement,
2404: L_DEBUG_KEY,
2404: L_DEBUG_KEY,
2405: 'Errors from Create_WO_Dependencies API' || l_msg_count );
2406: END IF;
2407:
2408: RAISE Fnd_Api.g_exc_error;
2409: END IF;
2410:
2411: x_MR_session_id := l_MR_session_id;
2412: x_cost_session_id := l_cost_session_id;
2410:
2411: x_MR_session_id := l_MR_session_id;
2412: x_cost_session_id := l_cost_session_id;
2413:
2414: x_return_status := FND_API.G_RET_STS_SUCCESS;
2415:
2416: ------------------------End of API Body------------------------------------
2417: IF (l_log_procedure >= l_log_current_level) THEN
2418: fnd_log.string(l_log_procedure,
2455: -- Standard start of API savepoint
2456: SAVEPOINT Get_Profit_or_Loss;
2457:
2458: -- Initialize API return status to success
2459: x_return_status := FND_API.G_RET_STS_SUCCESS;
2460:
2461: IF p_actual_price IS NOT NULL AND p_actual_cost IS NOT NULL THEN
2462: x_actual_profit := p_actual_price - p_actual_cost;
2463: ELSE
2478: 'Actual Profit : ' || x_actual_profit ||
2479: 'Estimated Profit : ' || x_estimated_profit );
2480: END IF;
2481:
2482: --x_return_status := FND_API.G_RET_STS_SUCCESS;
2483:
2484: ------------------------Terminate API Body------------------------------------
2485: END Get_Profit_or_Loss;
2486: