[Home] [Help]
2: /* $Header: AHLVPRJB.pls 120.74.12020000.3 2012/12/17 07:33:07 jkjain ship $ */
3:
4:
5: G_PKG_NAME VARCHAR2(30) := 'AHL_PRD_WORKORDER_PVT';
6: G_DEBUG VARCHAR2(1) := AHL_DEBUG_PUB.is_log_enabled;
7:
8: -- Operation Statuses
9: G_OP_STATUS_UNCOMPLETE VARCHAR2(2) := '2'; --Uncomplete
10: G_OP_STATUS_COMPLETE VARCHAR2(2) := '1'; --Complete
175: x_debug_file_name := 'EAMDEBUG.log';
176: x_debug_file_mode := 'a';
177:
178: IF ( G_DEBUG = 'Y' ) THEN
179: AHL_DEBUG_PUB.debug( 'Debug Log Directory Path:'||x_output_dir );
180: AHL_DEBUG_PUB.debug( 'Debug Log File Name:'||x_debug_file_name );
181: END IF;
182:
183: END set_eam_debug_params;
176: x_debug_file_mode := 'a';
177:
178: IF ( G_DEBUG = 'Y' ) THEN
179: AHL_DEBUG_PUB.debug( 'Debug Log Directory Path:'||x_output_dir );
180: AHL_DEBUG_PUB.debug( 'Debug Log File Name:'||x_debug_file_name );
181: END IF;
182:
183: END set_eam_debug_params;
184: -- End of Modification
252: FETCH get_inv_item_id INTO l_prd_workorder_rec.inventory_item_id, l_prd_workorder_rec.serial_number;
253: CLOSE get_inv_item_id;
254:
255: IF (G_DEBUG = 'Y') THEN
256: AHL_DEBUG_PUB.debug('Update Workorder: Defaulting Inv Item ID for Visit MWO:' || l_prd_workorder_rec.inventory_item_id);
257: AHL_DEBUG_PUB.debug('Update Workorder: Defaulting Serial Num for Visit MWO:' || l_prd_workorder_rec.serial_number);
258: END IF;
259: END IF;
260:
253: CLOSE get_inv_item_id;
254:
255: IF (G_DEBUG = 'Y') THEN
256: AHL_DEBUG_PUB.debug('Update Workorder: Defaulting Inv Item ID for Visit MWO:' || l_prd_workorder_rec.inventory_item_id);
257: AHL_DEBUG_PUB.debug('Update Workorder: Defaulting Serial Num for Visit MWO:' || l_prd_workorder_rec.serial_number);
258: END IF;
259: END IF;
260:
261: IF G_CALLED_FROM = 'API' THEN
908: p_date_ss => l_sec);
909:
910: END IF;
911: IF ( G_DEBUG = 'Y' ) THEN
912: AHL_DEBUG_PUB.debug( 'p_x_prd_workorder_rec.SCHEDULED_START_DATE : ' || to_char(p_x_prd_workorder_rec.SCHEDULED_START_DATE,'DD-MON-YY hh24:mi:ss') );
913: END IF;
914:
915: IF p_x_prd_workorder_rec.SCHEDULED_END_DATE IS NOT NULL AND
916: p_x_prd_workorder_rec.SCHEDULED_END_DATE <> FND_API.G_MISS_DATE
935:
936:
937: END IF;
938: IF ( G_DEBUG = 'Y' ) THEN
939: AHL_DEBUG_PUB.debug( 'p_x_prd_workorder_rec.SCHEDULED_END_DATE : ' || to_char(p_x_prd_workorder_rec.SCHEDULED_END_DATE,'DD-MON-YY hh24:mi:ss') );
940: END IF;
941: END IF; -- l_wo_status <> '17'
942:
943: -- portion of the code to get workorder seconds from the DB.
963: p_date_hh24 => p_x_prd_workorder_rec.ACTUAL_START_HR,
964: p_date_mi => p_x_prd_workorder_rec.ACTUAL_START_MI,
965: p_date_ss => l_sec);
966: IF ( G_DEBUG = 'Y' ) THEN
967: AHL_DEBUG_PUB.debug( 'p_x_prd_workorder_rec.ACTUAL_START_DATE : ' || to_char(p_x_prd_workorder_rec.ACTUAL_START_DATE,'DD-MON-YY hh24:mi:ss') );
968: END IF;
969:
970: END IF;
971:
985: p_date_hh24 => p_x_prd_workorder_rec.ACTUAL_END_HR,
986: p_date_mi => p_x_prd_workorder_rec.ACTUAL_END_MI,
987: p_date_ss => l_sec);
988: IF ( G_DEBUG = 'Y' ) THEN
989: AHL_DEBUG_PUB.debug( 'p_x_prd_workorder_rec.ACTUAL_START_DATE : ' || to_char(p_x_prd_workorder_rec.ACTUAL_END_DATE,'DD-MON-YY hh24:mi:ss') );
990: END IF;
991:
992: END IF;
993:
1778:
1779: BEGIN
1780:
1781: IF ( G_DEBUG = 'Y' ) THEN
1782: AHL_DEBUG_PUB.debug( 'Get_Default_Rt_Op_dept-'|| 'p_object_id:' || p_object_id );
1783: AHL_DEBUG_PUB.debug( 'Get_Default_Rt_Op_dept-'|| 'p_association_type:' || p_association_type);
1784: AHL_DEBUG_PUB.debug( 'Get_Default_Rt_Op_dept-'|| 'p_organization_id:' || p_organization_id);
1785: END IF;
1786:
1779: BEGIN
1780:
1781: IF ( G_DEBUG = 'Y' ) THEN
1782: AHL_DEBUG_PUB.debug( 'Get_Default_Rt_Op_dept-'|| 'p_object_id:' || p_object_id );
1783: AHL_DEBUG_PUB.debug( 'Get_Default_Rt_Op_dept-'|| 'p_association_type:' || p_association_type);
1784: AHL_DEBUG_PUB.debug( 'Get_Default_Rt_Op_dept-'|| 'p_organization_id:' || p_organization_id);
1785: END IF;
1786:
1787: l_final_department_id := NULL;
1780:
1781: IF ( G_DEBUG = 'Y' ) THEN
1782: AHL_DEBUG_PUB.debug( 'Get_Default_Rt_Op_dept-'|| 'p_object_id:' || p_object_id );
1783: AHL_DEBUG_PUB.debug( 'Get_Default_Rt_Op_dept-'|| 'p_association_type:' || p_association_type);
1784: AHL_DEBUG_PUB.debug( 'Get_Default_Rt_Op_dept-'|| 'p_organization_id:' || p_organization_id);
1785: END IF;
1786:
1787: l_final_department_id := NULL;
1788: x_object_resource_found := 'N';
1792: FETCH get_rt_oper_resources INTO l_rt_oper_resource_rec;
1793: EXIT WHEN get_rt_oper_resources%NOTFOUND;
1794:
1795: IF ( G_DEBUG = 'Y' ) THEN
1796: AHL_DEBUG_PUB.debug( 'Get_Default_Rt_Op_dept-'|| 'Found Route/Oper Res:' || l_rt_oper_resource_rec.aso_resource_id );
1797: AHL_DEBUG_PUB.debug( 'Get_Default_Rt_Op_dept-'|| 'Resource Name:' || l_rt_oper_resource_rec.name);
1798: END IF;
1799:
1800: -- Atleast one Resource Requirement Found for the Route
1793: EXIT WHEN get_rt_oper_resources%NOTFOUND;
1794:
1795: IF ( G_DEBUG = 'Y' ) THEN
1796: AHL_DEBUG_PUB.debug( 'Get_Default_Rt_Op_dept-'|| 'Found Route/Oper Res:' || l_rt_oper_resource_rec.aso_resource_id );
1797: AHL_DEBUG_PUB.debug( 'Get_Default_Rt_Op_dept-'|| 'Resource Name:' || l_rt_oper_resource_rec.name);
1798: END IF;
1799:
1800: -- Atleast one Resource Requirement Found for the Route
1801: x_object_resource_found := 'Y';
1807: l_department_id,
1808: l_department_name,
1809: l_return_status);
1810: IF ( G_DEBUG = 'Y' ) THEN
1811: AHL_DEBUG_PUB.debug( 'Get_Default_Rt_Op_dept-'|| 'l_return_status:' || l_return_status );
1812: AHL_DEBUG_PUB.debug( 'Get_Default_Rt_Op_dept-'|| 'l_department_id:' || l_department_id);
1813: AHL_DEBUG_PUB.debug( 'Get_Default_Rt_Op_dept-'|| 'l_department_name:' || l_department_name);
1814: AHL_DEBUG_PUB.debug( 'Get_Default_Rt_Op_dept-'|| 'l_final_department_id:' || l_final_department_id);
1815: END IF;
1808: l_department_name,
1809: l_return_status);
1810: IF ( G_DEBUG = 'Y' ) THEN
1811: AHL_DEBUG_PUB.debug( 'Get_Default_Rt_Op_dept-'|| 'l_return_status:' || l_return_status );
1812: AHL_DEBUG_PUB.debug( 'Get_Default_Rt_Op_dept-'|| 'l_department_id:' || l_department_id);
1813: AHL_DEBUG_PUB.debug( 'Get_Default_Rt_Op_dept-'|| 'l_department_name:' || l_department_name);
1814: AHL_DEBUG_PUB.debug( 'Get_Default_Rt_Op_dept-'|| 'l_final_department_id:' || l_final_department_id);
1815: END IF;
1816:
1809: l_return_status);
1810: IF ( G_DEBUG = 'Y' ) THEN
1811: AHL_DEBUG_PUB.debug( 'Get_Default_Rt_Op_dept-'|| 'l_return_status:' || l_return_status );
1812: AHL_DEBUG_PUB.debug( 'Get_Default_Rt_Op_dept-'|| 'l_department_id:' || l_department_id);
1813: AHL_DEBUG_PUB.debug( 'Get_Default_Rt_Op_dept-'|| 'l_department_name:' || l_department_name);
1814: AHL_DEBUG_PUB.debug( 'Get_Default_Rt_Op_dept-'|| 'l_final_department_id:' || l_final_department_id);
1815: END IF;
1816:
1817: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1810: IF ( G_DEBUG = 'Y' ) THEN
1811: AHL_DEBUG_PUB.debug( 'Get_Default_Rt_Op_dept-'|| 'l_return_status:' || l_return_status );
1812: AHL_DEBUG_PUB.debug( 'Get_Default_Rt_Op_dept-'|| 'l_department_id:' || l_department_id);
1813: AHL_DEBUG_PUB.debug( 'Get_Default_Rt_Op_dept-'|| 'l_department_name:' || l_department_name);
1814: AHL_DEBUG_PUB.debug( 'Get_Default_Rt_Op_dept-'|| 'l_final_department_id:' || l_final_department_id);
1815: END IF;
1816:
1817: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1818: RAISE FND_API.G_EXC_ERROR;
2504: --
2505: BEGIN
2506:
2507: IF ( G_DEBUG = 'Y' ) THEN
2508: AHL_DEBUG_PUB.debug( l_full_name || '.begin - At the start of API' );
2509: END IF;
2510:
2511: -- Iterate the newly obtained CMRO Resource Requirements for the Stage workorder
2512: l_cmro_res_id_indx := p_nrp_res_req_tbl.FIRST;
2532: l_bom_resource_tbl(l_bom_res_id_indx) := l_bom_resource_rec;
2533: END IF;
2534:
2535: IF ( G_DEBUG = 'Y' ) THEN
2536: AHL_DEBUG_PUB.debug( l_full_name || ' - BOM resource id ' || l_bom_res_id_indx
2537: || ' found for CMRO resource id ' || l_cmro_res_id_indx );
2538: END IF;
2539:
2540: END IF;
2669: END IF; -- p_workorder_rec.dml_operation = 'U'
2670: END IF; -- if l_bom_resource_tbl.COUNT > 0
2671:
2672: IF ( G_DEBUG = 'Y' ) THEN
2673: AHL_DEBUG_PUB.debug( l_full_name || ' - Total Resource requirements to be Created: ' || x_create_res_tbl.COUNT );
2674: AHL_DEBUG_PUB.debug( l_full_name || ' - Total Resource requirements to be Updated: ' || x_update_res_tbl.COUNT );
2675: AHL_DEBUG_PUB.debug( l_full_name || ' - Total Resource requirements to be Deleted: ' || x_delete_res_tbl.COUNT );
2676: AHL_DEBUG_PUB.debug( l_full_name || '.end - At the end of API' );
2677: END IF;
2670: END IF; -- if l_bom_resource_tbl.COUNT > 0
2671:
2672: IF ( G_DEBUG = 'Y' ) THEN
2673: AHL_DEBUG_PUB.debug( l_full_name || ' - Total Resource requirements to be Created: ' || x_create_res_tbl.COUNT );
2674: AHL_DEBUG_PUB.debug( l_full_name || ' - Total Resource requirements to be Updated: ' || x_update_res_tbl.COUNT );
2675: AHL_DEBUG_PUB.debug( l_full_name || ' - Total Resource requirements to be Deleted: ' || x_delete_res_tbl.COUNT );
2676: AHL_DEBUG_PUB.debug( l_full_name || '.end - At the end of API' );
2677: END IF;
2678:
2671:
2672: IF ( G_DEBUG = 'Y' ) THEN
2673: AHL_DEBUG_PUB.debug( l_full_name || ' - Total Resource requirements to be Created: ' || x_create_res_tbl.COUNT );
2674: AHL_DEBUG_PUB.debug( l_full_name || ' - Total Resource requirements to be Updated: ' || x_update_res_tbl.COUNT );
2675: AHL_DEBUG_PUB.debug( l_full_name || ' - Total Resource requirements to be Deleted: ' || x_delete_res_tbl.COUNT );
2676: AHL_DEBUG_PUB.debug( l_full_name || '.end - At the end of API' );
2677: END IF;
2678:
2679: END aggregate_stg_resource_req;
2672: IF ( G_DEBUG = 'Y' ) THEN
2673: AHL_DEBUG_PUB.debug( l_full_name || ' - Total Resource requirements to be Created: ' || x_create_res_tbl.COUNT );
2674: AHL_DEBUG_PUB.debug( l_full_name || ' - Total Resource requirements to be Updated: ' || x_update_res_tbl.COUNT );
2675: AHL_DEBUG_PUB.debug( l_full_name || ' - Total Resource requirements to be Deleted: ' || x_delete_res_tbl.COUNT );
2676: AHL_DEBUG_PUB.debug( l_full_name || '.end - At the end of API' );
2677: END IF;
2678:
2679: END aggregate_stg_resource_req;
2680:
2739: --
2740: BEGIN
2741:
2742: IF ( G_DEBUG = 'Y' ) THEN
2743: AHL_DEBUG_PUB.debug( l_full_name || '.begin - At the start of API' );
2744: END IF;
2745:
2746: -- Initialize Procedure return status to success
2747: x_return_status := FND_API.G_RET_STS_SUCCESS;
2780: -- Delete the BOM resources obtained above
2781: IF ( l_resource_tbl.COUNT > 0 ) THEN
2782:
2783: IF ( G_DEBUG = 'Y' ) THEN
2784: AHL_DEBUG_PUB.debug( l_full_name || ' - Invoking Process_resrc_require API for Removing all the Resource Requirements for Workorder id: ' || p_workorder_tbl(i).workorder_id );
2785: END IF;
2786:
2787: AHL_PP_RESRC_REQUIRE_PVT.process_resrc_require
2788: (
2799: x_msg_data => l_msg_data
2800: );
2801:
2802: IF ( G_DEBUG = 'Y' ) THEN
2803: AHL_DEBUG_PUB.debug( l_full_name || ' - After call to Process_resrc_require API. Return Status: ' || l_return_status );
2804: END IF;
2805:
2806: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
2807: x_return_status := l_return_status;
2813: END LOOP;
2814: END IF; -- p_workorder_tbl.COUNT > 0
2815:
2816: IF ( G_DEBUG = 'Y' ) THEN
2817: AHL_DEBUG_PUB.debug( l_full_name || '.end - At the end of API' );
2818: END IF;
2819:
2820: END remove_wo_resrc_reqs;
2821:
3544: -- Added for FP bug# 7238868
3545: IF (p_workorder_rec.ROUTE_ID IS NOT NULL ) THEN
3546:
3547: IF ( G_DEBUG = 'Y' ) THEN
3548: AHL_DEBUG_PUB.debug( 'Get_Operations'|| ' - Before Get_Default_Rt_Op_dept' );
3549: END IF;
3550:
3551: -- Get default department from route/oper resources.
3552: Get_Default_Rt_Op_dept(p_object_id => p_workorder_rec.ROUTE_ID,
3557: x_department_name => l_department_name,
3558: x_object_resource_found => l_route_found);
3559:
3560: IF ( G_DEBUG = 'Y' ) THEN
3561: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'l_return_status:' || l_return_status );
3562: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'l_department_id:' || l_department_id);
3563: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'l_department_name:' || l_department_name);
3564: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'l_route_found:' || l_route_found);
3565: END IF;
3558: x_object_resource_found => l_route_found);
3559:
3560: IF ( G_DEBUG = 'Y' ) THEN
3561: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'l_return_status:' || l_return_status );
3562: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'l_department_id:' || l_department_id);
3563: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'l_department_name:' || l_department_name);
3564: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'l_route_found:' || l_route_found);
3565: END IF;
3566:
3559:
3560: IF ( G_DEBUG = 'Y' ) THEN
3561: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'l_return_status:' || l_return_status );
3562: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'l_department_id:' || l_department_id);
3563: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'l_department_name:' || l_department_name);
3564: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'l_route_found:' || l_route_found);
3565: END IF;
3566:
3567: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3560: IF ( G_DEBUG = 'Y' ) THEN
3561: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'l_return_status:' || l_return_status );
3562: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'l_department_id:' || l_department_id);
3563: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'l_department_name:' || l_department_name);
3564: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'l_route_found:' || l_route_found);
3565: END IF;
3566:
3567: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3568: RAISE FND_API.G_EXC_ERROR;
3588: x_department_name => l_department_name,
3589: x_object_resource_found => l_oper_found);
3590:
3591: IF ( G_DEBUG = 'Y' ) THEN
3592: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'l_return_status:' || l_return_status );
3593: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'l_department_id:' || l_department_id);
3594: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'l_department_name:' || l_department_name);
3595: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'l_oper_found:' || l_oper_found);
3596: END IF;
3589: x_object_resource_found => l_oper_found);
3590:
3591: IF ( G_DEBUG = 'Y' ) THEN
3592: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'l_return_status:' || l_return_status );
3593: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'l_department_id:' || l_department_id);
3594: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'l_department_name:' || l_department_name);
3595: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'l_oper_found:' || l_oper_found);
3596: END IF;
3597:
3590:
3591: IF ( G_DEBUG = 'Y' ) THEN
3592: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'l_return_status:' || l_return_status );
3593: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'l_department_id:' || l_department_id);
3594: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'l_department_name:' || l_department_name);
3595: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'l_oper_found:' || l_oper_found);
3596: END IF;
3597:
3598: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3591: IF ( G_DEBUG = 'Y' ) THEN
3592: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'l_return_status:' || l_return_status );
3593: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'l_department_id:' || l_department_id);
3594: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'l_department_name:' || l_department_name);
3595: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'l_oper_found:' || l_oper_found);
3596: END IF;
3597:
3598: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3599: RAISE FND_API.G_EXC_ERROR;
3711: l_reln_count := l_reln_count + 1;
3712: END LOOP;
3713:
3714: IF ( G_DEBUG = 'Y' ) THEN
3715: AHL_DEBUG_PUB.debug( l_api_name || ' - Total Workorder operations relationships:' || l_reln_count );
3716: END IF;
3717:
3718: END process_wo_operations_reln;
3719:
3854:
3855: x_return_status:=FND_API.G_RET_STS_SUCCESS;
3856:
3857: IF G_DEBUG='Y' THEN
3858: AHL_DEBUG_PUB.enable_debug;
3859: END IF;
3860:
3861: -- User Hooks
3862: IF (JTF_USR_HKS.Ok_to_execute('AHL_PRD_WORKORDER_PVT', 'CREATE_JOB', 'B', 'C' )) then
3872: END IF;
3873: END IF;
3874:
3875: IF ( G_DEBUG = 'Y' ) THEN
3876: AHL_DEBUG_PUB.debug( l_api_name || ' - Before validate_workorder' );
3877: END IF;
3878:
3879: IF (p_validation_level = FND_API.G_VALID_LEVEL_FULL ) THEN
3880: validate_workorder
3890: END IF;
3891: END IF;
3892:
3893: IF ( G_DEBUG = 'Y' ) THEN
3894: AHL_DEBUG_PUB.debug( l_api_name || ' - Before default_attributes' );
3895: END IF;
3896:
3897: default_attributes
3898: (
3899: p_x_prd_workorder_rec =>p_x_prd_workorder_rec
3900: );
3901:
3902: IF ( G_DEBUG = 'Y' ) THEN
3903: AHL_DEBUG_PUB.debug( l_api_name || ' - Before Insert into AHL_WORKORDERS' );
3904: END IF;
3905:
3906: -- Begin OGMA Issue # 105 - Balaji
3907: -- update VWP planned task quantity current instance quantity
4041: p_x_prd_workorder_rec.AOG_FLAG
4042: );
4043:
4044: IF ( G_DEBUG = 'Y' ) THEN
4045: AHL_DEBUG_PUB.debug( l_api_name || ' - Before Insert into AHL_WORKORDER_TXNS' );
4046: END IF;
4047:
4048: INSERT INTO AHL_WORKORDER_TXNS
4049: (
4155:
4156: IF ( p_x_prd_workorder_rec.master_workorder_flag = 'N' ) THEN
4157:
4158: IF ( G_DEBUG = 'Y' ) THEN
4159: AHL_DEBUG_PUB.debug( l_api_name || ' - Before get_operations. Route ID: '|| p_x_prd_workorder_rec.route_id );
4160: END IF;
4161:
4162: get_operations
4163: (
4165: p_x_operations_tbl => x_operation_tbl
4166: );
4167:
4168: IF ( G_DEBUG = 'Y' ) THEN
4169: AHL_DEBUG_PUB.debug( l_api_name || ' - Before AHL_PRD_OPERATIONS_PVT.process_operations . Total Operations : '|| x_operation_tbl.COUNT );
4170: END IF;
4171:
4172: AHL_PRD_OPERATIONS_PVT.process_operations
4173: (
4190:
4191: IF ( p_x_prd_workorder_rec.route_id IS NOT NULL ) THEN
4192:
4193: IF ( G_DEBUG = 'Y' ) THEN
4194: AHL_DEBUG_PUB.debug( l_api_name || ' - Before get_rt_resource_req' );
4195: END IF;
4196:
4197: get_rt_resource_req
4198: (
4203:
4204: IF ( x_resource_tbl.COUNT > 0 ) THEN
4205:
4206: IF ( G_DEBUG = 'Y' ) THEN
4207: AHL_DEBUG_PUB.debug( l_api_name || ' - Before AHL_PP_RESRC_REQUIRE_PVT.process_resrc_require' );
4208: END IF;
4209:
4210: AHL_PP_RESRC_REQUIRE_PVT.process_resrc_require
4211: (
4240: IF ( p_x_prd_workorder_rec.route_id IS NOT NULL OR
4241: NVL(l_is_stage_workorder, 'N') = 'Y' ) THEN
4242:
4243: IF ( G_DEBUG = 'Y' ) THEN
4244: AHL_DEBUG_PUB.debug( l_api_name || ' - Before AHL_PP_MATERIALS_PVT.Process_Wo_Op_Materials' );
4245: END IF;
4246: --Code changes made by Srini
4247:
4248: AHL_PP_MATERIALS_PVT.Process_Wo_Op_Materials
4263: RAISE FND_API.G_EXC_ERROR;
4264: END IF;
4265:
4266: IF ( G_DEBUG = 'Y' ) THEN
4267: AHL_DEBUG_PUB.debug( l_api_name || ' - After AHL_PP_MATERIALS_PVT.Process_Wo_Op_Materials' );
4268: END IF;
4269:
4270: END IF;
4271:
4273:
4274: IF ( p_wip_load_flag = 'Y' ) THEN
4275:
4276: IF ( G_DEBUG = 'Y' ) THEN
4277: AHL_DEBUG_PUB.debug( l_api_name || ' - Before AHL_EAM_JOB_PVT.create_eam_workorder' );
4278: END IF;
4279:
4280: AHL_EAM_JOB_PVT.create_eam_workorder
4281: (
4298: RAISE FND_API.G_EXC_ERROR;
4299: ELSE
4300:
4301: IF ( G_DEBUG = 'Y' ) THEN
4302: AHL_DEBUG_PUB.debug( l_api_name || ' - Before Update AHL_WORKORDERS with wip_entity_id' );
4303: END IF;
4304:
4305: UPDATE AHL_WORKORDERS
4306: SET wip_entity_id = p_x_prd_workorder_rec.wip_entity_id
4330: END IF;
4331: END IF;
4332:
4333: IF ( G_DEBUG = 'Y' ) THEN
4334: AHL_DEBUG_PUB.debug( l_api_name || ' - Success' );
4335: END IF;
4336:
4337: IF G_DEBUG='Y' THEN
4338: AHL_DEBUG_PUB.disable_debug;
4334: AHL_DEBUG_PUB.debug( l_api_name || ' - Success' );
4335: END IF;
4336:
4337: IF G_DEBUG='Y' THEN
4338: AHL_DEBUG_PUB.disable_debug;
4339: END IF;
4340:
4341: EXCEPTION
4342: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4791:
4792: x_return_status:=FND_API.G_RET_STS_SUCCESS;
4793:
4794: IF G_DEBUG='Y' THEN
4795: AHL_DEBUG_PUB.enable_debug;
4796: END IF;
4797:
4798: IF ( G_DEBUG = 'Y' ) THEN
4799: AHL_DEBUG_PUB.debug( l_api_name || ' - At Start of Update Job API' );
4795: AHL_DEBUG_PUB.enable_debug;
4796: END IF;
4797:
4798: IF ( G_DEBUG = 'Y' ) THEN
4799: AHL_DEBUG_PUB.debug( l_api_name || ' - At Start of Update Job API' );
4800: AHL_DEBUG_PUB.debug( l_api_name || ' - Before default_missing_attributes' );
4801: END IF;
4802: --Modified by Srini
4803: /*IF p_module_type = 'API'
4796: END IF;
4797:
4798: IF ( G_DEBUG = 'Y' ) THEN
4799: AHL_DEBUG_PUB.debug( l_api_name || ' - At Start of Update Job API' );
4800: AHL_DEBUG_PUB.debug( l_api_name || ' - Before default_missing_attributes' );
4801: END IF;
4802: --Modified by Srini
4803: /*IF p_module_type = 'API'
4804: THEN
4804: THEN
4805: G_CALLED_FROM := 'API';
4806: END IF;*/
4807: G_CALLED_FROM := p_module_type;
4808: AHL_DEBUG_PUB.debug( FND_MSG_PUB.count_msg || ' skp1 FND_MSG_PUB.count_msg= '||FND_MSG_PUB.count_msg );
4809: -- User Hooks
4810: IF (JTF_USR_HKS.Ok_to_execute('AHL_PRD_WORKORDER_PVT', 'UPDATE_JOB', 'B', 'C' )) THEN
4811: AHL_DEBUG_PUB.debug( FND_MSG_PUB.count_msg || ' skp2 FND_MSG_PUB.count_msg= '||FND_MSG_PUB.count_msg );
4812: ahl_prd_workorder_CUHK.update_job_pre(
4807: G_CALLED_FROM := p_module_type;
4808: AHL_DEBUG_PUB.debug( FND_MSG_PUB.count_msg || ' skp1 FND_MSG_PUB.count_msg= '||FND_MSG_PUB.count_msg );
4809: -- User Hooks
4810: IF (JTF_USR_HKS.Ok_to_execute('AHL_PRD_WORKORDER_PVT', 'UPDATE_JOB', 'B', 'C' )) THEN
4811: AHL_DEBUG_PUB.debug( FND_MSG_PUB.count_msg || ' skp2 FND_MSG_PUB.count_msg= '||FND_MSG_PUB.count_msg );
4812: ahl_prd_workorder_CUHK.update_job_pre(
4813: p_prd_workorder_rec => p_x_prd_workorder_rec,
4814: p_prd_workoper_tbl => p_x_prd_workoper_tbl,
4815: x_msg_count => l_msg_count,
4820: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4821: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4822: END IF;
4823: END IF;
4824: AHL_DEBUG_PUB.debug( FND_MSG_PUB.count_msg || ' skp3 FND_MSG_PUB.count_msg= '||FND_MSG_PUB.count_msg );
4825: --IF FND_API.to_boolean(p_default) THEN
4826: default_missing_attributes
4827: (
4828: p_x_prd_workorder_rec
4838:
4839: IF (p_validation_level = FND_API.G_VALID_LEVEL_FULL ) THEN
4840:
4841: IF ( G_DEBUG = 'Y' ) THEN
4842: AHL_DEBUG_PUB.debug( l_api_name || ' - Before convert_values_to_ids' );
4843: END IF;
4844:
4845: convert_values_to_ids
4846: (
4875: --Newly Calulated End date for validation and updating Master WO
4876: p_x_prd_workorder_rec.scheduled_end_date := l_mo_scheduled_end_date + l_start_date_offset + l_end_date_offset ;
4877:
4878: IF ( G_DEBUG = 'Y' ) THEN
4879: AHL_DEBUG_PUB.debug( l_api_name || ' - Pekambar new End Date :' || p_x_prd_workorder_rec.scheduled_end_date );
4880: END IF;
4881:
4882: END IF;
4883:
4885:
4886: IF (p_validation_level = FND_API.G_VALID_LEVEL_FULL ) THEN
4887:
4888: IF ( G_DEBUG = 'Y' ) THEN
4889: AHL_DEBUG_PUB.debug( l_api_name || ' - Before validate_workorder' );
4890: END IF;
4891:
4892: validate_workorder
4893: (
4988: -- Log all technicians out of the workorder being cancelled.
4989: IF (p_x_prd_workorder_rec.status_code IN (G_JOB_STATUS_COMPLETE_NC, G_JOB_STATUS_COMPLETE,
4990: G_JOB_STATUS_CANCELLED)) THEN
4991: IF ( G_DEBUG = 'Y' ) THEN
4992: AHL_DEBUG_PUB.debug( l_api_name || ' Before - AHL_PRD_WO_LOGIN_PVT.Workorder_Logout');
4993: AHL_DEBUG_PUB.debug( 'Workorder Status:' || p_x_prd_workorder_rec.status_code);
4994: END IF;
4995:
4996: OPEN c_get_login_recs(p_x_prd_workorder_rec.workorder_id);
4989: IF (p_x_prd_workorder_rec.status_code IN (G_JOB_STATUS_COMPLETE_NC, G_JOB_STATUS_COMPLETE,
4990: G_JOB_STATUS_CANCELLED)) THEN
4991: IF ( G_DEBUG = 'Y' ) THEN
4992: AHL_DEBUG_PUB.debug( l_api_name || ' Before - AHL_PRD_WO_LOGIN_PVT.Workorder_Logout');
4993: AHL_DEBUG_PUB.debug( 'Workorder Status:' || p_x_prd_workorder_rec.status_code);
4994: END IF;
4995:
4996: OPEN c_get_login_recs(p_x_prd_workorder_rec.workorder_id);
4997: LOOP
5015: END LOOP;
5016: CLOSE c_get_login_recs;
5017:
5018: IF ( G_DEBUG = 'Y' ) THEN
5019: AHL_DEBUG_PUB.debug( l_api_name || ' Before - AHL_PRD_WO_LOGIN_PVT.Workorder_Logout');
5020: AHL_DEBUG_PUB.debug( 'Return Status:' || l_return_status);
5021: END IF;
5022:
5023: END IF; -- p_x_prd_workorder_rec.STATUS_CODE
5016: CLOSE c_get_login_recs;
5017:
5018: IF ( G_DEBUG = 'Y' ) THEN
5019: AHL_DEBUG_PUB.debug( l_api_name || ' Before - AHL_PRD_WO_LOGIN_PVT.Workorder_Logout');
5020: AHL_DEBUG_PUB.debug( 'Return Status:' || l_return_status);
5021: END IF;
5022:
5023: END IF; -- p_x_prd_workorder_rec.STATUS_CODE
5024:
5032: p_x_prd_workorder_rec.HOLD_REASON_CODE := NULL;
5033: END IF;
5034:
5035: IF ( G_DEBUG = 'Y' ) THEN
5036: AHL_DEBUG_PUB.debug( l_api_name || ' - Before Updating AHL_WORKORDERS' );
5037: END IF;
5038:
5039: -- Begin OGMA Issue # 105 - Balaji
5040: -- update VWP planned task quantity current instance quantity
5112: -- sansatpa - modified for marshalling
5113: -- begin check if any material requirement for WO is AOG, then WO cant me modified to non AOG
5114:
5115: IF ( G_DEBUG = 'Y' ) THEN
5116: AHL_DEBUG_PUB.DEBUG( L_API_NAME || ' - Workorder AOG status to be updated to - ' || P_X_PRD_WORKORDER_REC.AOG_FLAG);
5117: AHL_DEBUG_PUB.DEBUG( L_API_NAME || ' - Check for Workorder material requiremengt AOG status - ');
5118: END IF;
5119:
5120: IF(P_X_PRD_WORKORDER_REC.AOG_FLAG = 'N') THEN
5113: -- begin check if any material requirement for WO is AOG, then WO cant me modified to non AOG
5114:
5115: IF ( G_DEBUG = 'Y' ) THEN
5116: AHL_DEBUG_PUB.DEBUG( L_API_NAME || ' - Workorder AOG status to be updated to - ' || P_X_PRD_WORKORDER_REC.AOG_FLAG);
5117: AHL_DEBUG_PUB.DEBUG( L_API_NAME || ' - Check for Workorder material requiremengt AOG status - ');
5118: END IF;
5119:
5120: IF(P_X_PRD_WORKORDER_REC.AOG_FLAG = 'N') THEN
5121:
5124:
5125: IF(GET_WO_MATERIAL_REQ_DETAILS%FOUND) THEN
5126:
5127: IF ( G_DEBUG = 'Y' ) THEN
5128: AHL_DEBUG_PUB.DEBUG( L_API_NAME || ' Atleast one material requirement is AOG for workorder - ' || P_X_PRD_WORKORDER_REC.WORKORDER_ID);
5129: AHL_DEBUG_PUB.DEBUG( L_API_NAME || ' Workorder AOG status can not be updated to NO');
5130: END IF;
5131:
5132: FND_MESSAGE.SET_NAME('AHL','AHL_WO_AOG_UPD_NOT_ALD');
5125: IF(GET_WO_MATERIAL_REQ_DETAILS%FOUND) THEN
5126:
5127: IF ( G_DEBUG = 'Y' ) THEN
5128: AHL_DEBUG_PUB.DEBUG( L_API_NAME || ' Atleast one material requirement is AOG for workorder - ' || P_X_PRD_WORKORDER_REC.WORKORDER_ID);
5129: AHL_DEBUG_PUB.DEBUG( L_API_NAME || ' Workorder AOG status can not be updated to NO');
5130: END IF;
5131:
5132: FND_MESSAGE.SET_NAME('AHL','AHL_WO_AOG_UPD_NOT_ALD');
5133: FND_MSG_PUB.ADD;
5187: END IF;
5188:
5189:
5190: IF ( G_DEBUG = 'Y' ) THEN
5191: AHL_DEBUG_PUB.debug( l_api_name || ' - Before Inserting into AHL_WORKORDER_TXNS' );
5192: END IF;
5193:
5194: INSERT INTO AHL_WORKORDER_TXNS
5195: (
5270: FETCH get_operation_details INTO p_x_prd_workoper_tbl(i).operation_id;
5271: CLOSE get_operation_details;
5272:
5273: IF ( G_DEBUG = 'Y' ) THEN
5274: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'dept id:' || p_x_prd_workorder_rec.department_id);
5275: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'dept ID(Oper):' || p_x_prd_workoper_tbl(i).DEPARTMENT_ID);
5276: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'deptnameD(Oper):' || p_x_prd_workoper_tbl(i).DEPARTMENT_NAME);
5277:
5278: END IF;
5271: CLOSE get_operation_details;
5272:
5273: IF ( G_DEBUG = 'Y' ) THEN
5274: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'dept id:' || p_x_prd_workorder_rec.department_id);
5275: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'dept ID(Oper):' || p_x_prd_workoper_tbl(i).DEPARTMENT_ID);
5276: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'deptnameD(Oper):' || p_x_prd_workoper_tbl(i).DEPARTMENT_NAME);
5277:
5278: END IF;
5279:
5272:
5273: IF ( G_DEBUG = 'Y' ) THEN
5274: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'dept id:' || p_x_prd_workorder_rec.department_id);
5275: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'dept ID(Oper):' || p_x_prd_workoper_tbl(i).DEPARTMENT_ID);
5276: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'deptnameD(Oper):' || p_x_prd_workoper_tbl(i).DEPARTMENT_NAME);
5277:
5278: END IF;
5279:
5280: --IF (p_x_prd_workoper_tbl(i).DEPARTMENT_ID = p_x_prd_workorder_rec.department_id) THEN
5287: x_department_name => l_department_name,
5288: x_object_resource_found => l_oper_found);
5289:
5290: IF ( G_DEBUG = 'Y' ) THEN
5291: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'l_return_status:' || l_return_status );
5292: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'l_department_id:' || l_department_id);
5293: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'l_oper_found:' || l_oper_found);
5294: END IF;
5295:
5288: x_object_resource_found => l_oper_found);
5289:
5290: IF ( G_DEBUG = 'Y' ) THEN
5291: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'l_return_status:' || l_return_status );
5292: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'l_department_id:' || l_department_id);
5293: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'l_oper_found:' || l_oper_found);
5294: END IF;
5295:
5296: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5289:
5290: IF ( G_DEBUG = 'Y' ) THEN
5291: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'l_return_status:' || l_return_status );
5292: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'l_department_id:' || l_department_id);
5293: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'l_oper_found:' || l_oper_found);
5294: END IF;
5295:
5296: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5297: RAISE FND_API.G_EXC_ERROR;
5347:
5348: END LOOP;
5349:
5350: IF ( G_DEBUG = 'Y' ) THEN
5351: AHL_DEBUG_PUB.debug( l_api_name || ' - Before AHL_PRD_OPERATIONS_PVT.process_operations' );
5352: END IF;
5353:
5354: AHL_PRD_OPERATIONS_PVT.process_operations
5355: (
5372:
5373: IF ( p_wip_load_flag = 'Y' ) THEN
5374:
5375: IF ( G_DEBUG = 'Y' ) THEN
5376: AHL_DEBUG_PUB.debug( l_api_name || ' - Before get_op_resource_req' );
5377: END IF;
5378:
5379: -- Get the Resource Requirements for New Operations
5380: get_op_resource_req
5384: p_x_resource_tbl => l_resource_tbl
5385: );
5386:
5387: IF ( G_DEBUG = 'Y' ) THEN
5388: AHL_DEBUG_PUB.debug( l_api_name || ' - Before AHL_PP_RESRC_REQUIRE_PVT.process_resrc_require' );
5389: END IF;
5390:
5391: IF ( l_resource_tbl.COUNT > 0 ) THEN
5392: AHL_PP_RESRC_REQUIRE_PVT.process_resrc_require
5409: END IF;
5410: END IF;
5411:
5412: IF ( G_DEBUG = 'Y' ) THEN
5413: AHL_DEBUG_PUB.debug( l_api_name || ' - Before get_op_material_req' );
5414: END IF;
5415:
5416: -- Get the Material Requirements for New Operations
5417: get_op_material_req
5427: END IF;
5428:
5429: --sukhwsin::SB Effectivity - Code Changes for UOM Conversion -starts
5430: IF ( G_DEBUG = 'Y' ) THEN
5431: AHL_DEBUG_PUB.debug( l_api_name || ' - Before UOM - Quantity conversion' );
5432: END IF;
5433: IF ( l_material_tbl.COUNT > 0 ) THEN
5434: FOR k in l_material_tbl.FIRST..l_material_tbl.LAST LOOP
5435: IF (l_material_tbl(k).mc_header_id IS NULL AND l_material_tbl(k).mc_position_key IS NULL) THEN
5455: END IF;
5456: --sukhwsin::SB Effectivity - Code Changes for UOM Conversion -ends
5457:
5458: IF ( G_DEBUG = 'Y' ) THEN
5459: AHL_DEBUG_PUB.debug( l_api_name || ' - Before AHL_PP_MATERIALS_PVT.create_material_reqst' );
5460: END IF;
5461:
5462: IF ( l_material_tbl.COUNT > 0 ) THEN
5463: AHL_PP_MATERIALS_PVT.create_material_reqst
5485:
5486: IF ( p_wip_load_flag = 'Y' ) THEN
5487:
5488: IF ( G_DEBUG = 'Y' ) THEN
5489: AHL_DEBUG_PUB.debug( l_api_name || ' - Getting parent_workorders' );
5490: END IF;
5491:
5492: FOR parent_csr IN get_parent_workorders( p_x_prd_workorder_rec.wip_entity_id ) LOOP
5493: l_parent_workorder_rec.workorder_id := parent_csr.workorder_id;
5493: l_parent_workorder_rec.workorder_id := parent_csr.workorder_id;
5494: l_parent_workorder_rec.object_version_number := parent_csr.object_version_number;
5495:
5496: IF ( G_DEBUG = 'Y' ) THEN
5497: AHL_DEBUG_PUB.debug( l_api_name || ' - parent workorder_id :' || l_parent_workorder_rec.workorder_id );
5498: END IF;
5499:
5500: FOR child_csr IN get_child_workorders( parent_csr.wip_entity_id ) LOOP
5501:
5618: l_parent_workorder_rec.status_code := parent_csr.status_code;
5619: END IF;
5620:
5621: IF ( G_DEBUG = 'Y' ) THEN
5622: AHL_DEBUG_PUB.debug( l_api_name || ' - Before update_job for parent workorder' );
5623: AHL_DEBUG_PUB.debug( l_api_name || ' - parent workorder-status_code: '|| l_parent_workorder_rec.status_code );
5624: AHL_DEBUG_PUB.debug( l_api_name || ' - parent workorder-scheduled_start_date: '|| TO_CHAR(l_parent_workorder_rec.scheduled_start_date , 'DD-MON-YYYY HH24:MI' ) );
5625: AHL_DEBUG_PUB.debug( l_api_name || ' - parent workorder-scheduled_end_date: '|| TO_CHAR(l_parent_workorder_rec.scheduled_end_date , 'DD-MON-YYYY HH24:MI' ) );
5626: AHL_DEBUG_PUB.debug( l_api_name || ' - parent workorder-actual_start_date: '|| TO_CHAR(l_parent_workorder_rec.actual_start_date , 'DD-MON-YYYY HH24:MI' ) );
5619: END IF;
5620:
5621: IF ( G_DEBUG = 'Y' ) THEN
5622: AHL_DEBUG_PUB.debug( l_api_name || ' - Before update_job for parent workorder' );
5623: AHL_DEBUG_PUB.debug( l_api_name || ' - parent workorder-status_code: '|| l_parent_workorder_rec.status_code );
5624: AHL_DEBUG_PUB.debug( l_api_name || ' - parent workorder-scheduled_start_date: '|| TO_CHAR(l_parent_workorder_rec.scheduled_start_date , 'DD-MON-YYYY HH24:MI' ) );
5625: AHL_DEBUG_PUB.debug( l_api_name || ' - parent workorder-scheduled_end_date: '|| TO_CHAR(l_parent_workorder_rec.scheduled_end_date , 'DD-MON-YYYY HH24:MI' ) );
5626: AHL_DEBUG_PUB.debug( l_api_name || ' - parent workorder-actual_start_date: '|| TO_CHAR(l_parent_workorder_rec.actual_start_date , 'DD-MON-YYYY HH24:MI' ) );
5627: AHL_DEBUG_PUB.debug( l_api_name || ' - parent workorder-actual_end_date: '|| TO_CHAR(l_parent_workorder_rec.actual_end_date , 'DD-MON-YYYY HH24:MI' ) );
5620:
5621: IF ( G_DEBUG = 'Y' ) THEN
5622: AHL_DEBUG_PUB.debug( l_api_name || ' - Before update_job for parent workorder' );
5623: AHL_DEBUG_PUB.debug( l_api_name || ' - parent workorder-status_code: '|| l_parent_workorder_rec.status_code );
5624: AHL_DEBUG_PUB.debug( l_api_name || ' - parent workorder-scheduled_start_date: '|| TO_CHAR(l_parent_workorder_rec.scheduled_start_date , 'DD-MON-YYYY HH24:MI' ) );
5625: AHL_DEBUG_PUB.debug( l_api_name || ' - parent workorder-scheduled_end_date: '|| TO_CHAR(l_parent_workorder_rec.scheduled_end_date , 'DD-MON-YYYY HH24:MI' ) );
5626: AHL_DEBUG_PUB.debug( l_api_name || ' - parent workorder-actual_start_date: '|| TO_CHAR(l_parent_workorder_rec.actual_start_date , 'DD-MON-YYYY HH24:MI' ) );
5627: AHL_DEBUG_PUB.debug( l_api_name || ' - parent workorder-actual_end_date: '|| TO_CHAR(l_parent_workorder_rec.actual_end_date , 'DD-MON-YYYY HH24:MI' ) );
5628: END IF;
5621: IF ( G_DEBUG = 'Y' ) THEN
5622: AHL_DEBUG_PUB.debug( l_api_name || ' - Before update_job for parent workorder' );
5623: AHL_DEBUG_PUB.debug( l_api_name || ' - parent workorder-status_code: '|| l_parent_workorder_rec.status_code );
5624: AHL_DEBUG_PUB.debug( l_api_name || ' - parent workorder-scheduled_start_date: '|| TO_CHAR(l_parent_workorder_rec.scheduled_start_date , 'DD-MON-YYYY HH24:MI' ) );
5625: AHL_DEBUG_PUB.debug( l_api_name || ' - parent workorder-scheduled_end_date: '|| TO_CHAR(l_parent_workorder_rec.scheduled_end_date , 'DD-MON-YYYY HH24:MI' ) );
5626: AHL_DEBUG_PUB.debug( l_api_name || ' - parent workorder-actual_start_date: '|| TO_CHAR(l_parent_workorder_rec.actual_start_date , 'DD-MON-YYYY HH24:MI' ) );
5627: AHL_DEBUG_PUB.debug( l_api_name || ' - parent workorder-actual_end_date: '|| TO_CHAR(l_parent_workorder_rec.actual_end_date , 'DD-MON-YYYY HH24:MI' ) );
5628: END IF;
5629:
5622: AHL_DEBUG_PUB.debug( l_api_name || ' - Before update_job for parent workorder' );
5623: AHL_DEBUG_PUB.debug( l_api_name || ' - parent workorder-status_code: '|| l_parent_workorder_rec.status_code );
5624: AHL_DEBUG_PUB.debug( l_api_name || ' - parent workorder-scheduled_start_date: '|| TO_CHAR(l_parent_workorder_rec.scheduled_start_date , 'DD-MON-YYYY HH24:MI' ) );
5625: AHL_DEBUG_PUB.debug( l_api_name || ' - parent workorder-scheduled_end_date: '|| TO_CHAR(l_parent_workorder_rec.scheduled_end_date , 'DD-MON-YYYY HH24:MI' ) );
5626: AHL_DEBUG_PUB.debug( l_api_name || ' - parent workorder-actual_start_date: '|| TO_CHAR(l_parent_workorder_rec.actual_start_date , 'DD-MON-YYYY HH24:MI' ) );
5627: AHL_DEBUG_PUB.debug( l_api_name || ' - parent workorder-actual_end_date: '|| TO_CHAR(l_parent_workorder_rec.actual_end_date , 'DD-MON-YYYY HH24:MI' ) );
5628: END IF;
5629:
5630: -- Bug # 7643668 (FP for Bug # 6493302) -- start
5623: AHL_DEBUG_PUB.debug( l_api_name || ' - parent workorder-status_code: '|| l_parent_workorder_rec.status_code );
5624: AHL_DEBUG_PUB.debug( l_api_name || ' - parent workorder-scheduled_start_date: '|| TO_CHAR(l_parent_workorder_rec.scheduled_start_date , 'DD-MON-YYYY HH24:MI' ) );
5625: AHL_DEBUG_PUB.debug( l_api_name || ' - parent workorder-scheduled_end_date: '|| TO_CHAR(l_parent_workorder_rec.scheduled_end_date , 'DD-MON-YYYY HH24:MI' ) );
5626: AHL_DEBUG_PUB.debug( l_api_name || ' - parent workorder-actual_start_date: '|| TO_CHAR(l_parent_workorder_rec.actual_start_date , 'DD-MON-YYYY HH24:MI' ) );
5627: AHL_DEBUG_PUB.debug( l_api_name || ' - parent workorder-actual_end_date: '|| TO_CHAR(l_parent_workorder_rec.actual_end_date , 'DD-MON-YYYY HH24:MI' ) );
5628: END IF;
5629:
5630: -- Bug # 7643668 (FP for Bug # 6493302) -- start
5631: -- Unless any of scheduled date, actual date or status changes for a
5696: RAISE FND_API.G_EXC_ERROR;
5697: END IF;
5698:
5699: IF ( G_DEBUG = 'Y' ) THEN
5700: AHL_DEBUG_PUB.debug( l_api_name || ' - update_job for parent_workorder successful' );
5701: END IF;
5702:
5703: END IF;
5704: -- Bug # 7643668 (FP for Bug # 6493302) -- end
5704: -- Bug # 7643668 (FP for Bug # 6493302) -- end
5705: END LOOP;
5706:
5707: IF ( G_DEBUG = 'Y' ) THEN
5708: AHL_DEBUG_PUB.debug( l_api_name || ' - Before AHL_EAM_JOB_PVT.update_job_operations' );
5709: END IF;
5710:
5711: -- Fix for Bug # 8329755 (FP for Bug # 7697909) -- start
5712: -- Though resource requirements are added in call to AHL_PP_RESRC_REQUIRE_PVT.process_resrc_require
5755: END IF;
5756:
5757: IF ( G_DEBUG = 'Y' )
5758: THEN
5759: AHL_DEBUG_PUB.debug( l_api_name || ' - Before AHL_EAM_JOB_PVT.update_job_operations ' );
5760: END IF;
5761:
5762: AHL_EAM_JOB_PVT.update_job_operations
5763: (
5781: END IF;
5782:
5783: --sansatpa adding for marshalling - for Set MR Priority feature
5784: IF ( G_DEBUG = 'Y' ) THEN
5785: AHL_DEBUG_PUB.DEBUG( L_API_NAME || ' - set MR priority value - ' || P_X_PRD_WORKORDER_REC.set_mr_priority);
5786: END IF;
5787:
5788: -- Check if Set MR Priority check box is selected
5789: IF(P_X_PRD_WORKORDER_REC.SET_MR_PRIORITY = 'Y')
5789: IF(P_X_PRD_WORKORDER_REC.SET_MR_PRIORITY = 'Y')
5790: THEN
5791:
5792: IF ( G_DEBUG = 'Y' ) THEN
5793: AHL_DEBUG_PUB.DEBUG( L_API_NAME || ' - Before updating MR Priority, priority selected - ' || P_X_PRD_WORKORDER_REC.JOB_PRIORITY || ', MR header id - ' || P_X_PRD_WORKORDER_REC.MR_HEADER_ID);
5794: END IF;
5795:
5796: -- Loop through each Work Order under the MR
5797: FOR CHILD_WO_REC IN GET_CHILD_WORKORDER_DETAILS(P_X_PRD_WORKORDER_REC.MR_HEADER_ID, P_X_PRD_WORKORDER_REC.VISIT_ID)
5800: L_CHILD_WO_ID := CHILD_WO_REC.WORKORDER_ID;
5801: L_CHILD_WO_WIP_ID := CHILD_WO_REC.WIP_ENTITY_ID;
5802:
5803: IF ( G_DEBUG = 'Y' ) THEN
5804: AHL_DEBUG_PUB.DEBUG( L_API_NAME || ' - child workorder id - ' || L_CHILD_WO_ID || ', child workorder wip id - ' || L_CHILD_WO_WIP_ID);
5805: END IF;
5806:
5807: -- Update required paparms to L_X_PRD_WORKORDER_REC
5808: L_X_PRD_WORKORDER_REC.DML_OPERATION := 'U';
5855: --reverted the startdate.
5856: p_x_prd_workorder_rec.scheduled_start_date := l_temp_scheduled_start_date;
5857:
5858: IF ( G_DEBUG = 'Y' ) THEN
5859: AHL_DEBUG_PUB.debug( l_api_name || ' - IN AHL_EAM_JOB_PVT.move_workorder ');
5860: END IF;
5861:
5862: l_mo_wip_entity_id := p_x_prd_workorder_rec.wip_entity_id ;
5863: l_mo_scheduled_start_date := p_x_prd_workorder_rec.scheduled_start_date;
5898: --Child wororders start date and End date
5899: Update_Master_Wo_Dates(p_x_prd_workorder_rec.workorder_id);
5900:
5901: IF ( G_DEBUG = 'Y' ) THEN
5902: AHL_DEBUG_PUB.debug( l_api_name || ' - After AHL_EAM_JOB_PVT.update_job_operations or move ' );
5903: END IF;
5904:
5905: --pekambar for ER # 9410221 --end
5906:
5934: RAISE FND_API.G_EXC_ERROR;
5935: END IF;
5936:
5937: IF ( G_DEBUG = 'Y' ) THEN
5938: AHL_DEBUG_PUB.debug( l_api_name || ' - AHL_EAM_JOB_PVT.update_job_operations succesful' );
5939: END IF;
5940:
5941: END IF; -- For WIP Load Flag
5942:
5944: -- Delete existing reservations if cancelling or completing a workorder.
5945: IF (p_x_prd_workorder_rec.status_code IN (G_JOB_STATUS_COMPLETE_NC, G_JOB_STATUS_COMPLETE,
5946: G_JOB_STATUS_CANCELLED, G_JOB_STATUS_DELETED)) THEN
5947: IF ( G_DEBUG = 'Y' ) THEN
5948: AHL_DEBUG_PUB.debug( l_api_name || ' Before - AHL_RSV_RESERVATIONS_PVT.Delete_Reservation');
5949: AHL_DEBUG_PUB.debug( 'Workorder Status:' || p_x_prd_workorder_rec.status_code);
5950: END IF;
5951:
5952: FOR get_scheduled_mater_rec IN get_scheduled_mater_csr(p_x_prd_workorder_rec.workorder_id)
5945: IF (p_x_prd_workorder_rec.status_code IN (G_JOB_STATUS_COMPLETE_NC, G_JOB_STATUS_COMPLETE,
5946: G_JOB_STATUS_CANCELLED, G_JOB_STATUS_DELETED)) THEN
5947: IF ( G_DEBUG = 'Y' ) THEN
5948: AHL_DEBUG_PUB.debug( l_api_name || ' Before - AHL_RSV_RESERVATIONS_PVT.Delete_Reservation');
5949: AHL_DEBUG_PUB.debug( 'Workorder Status:' || p_x_prd_workorder_rec.status_code);
5950: END IF;
5951:
5952: FOR get_scheduled_mater_rec IN get_scheduled_mater_csr(p_x_prd_workorder_rec.workorder_id)
5953: LOOP
5965:
5966: -- Check return status.
5967: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
5968: IF ( G_DEBUG = 'Y' ) THEN
5969: AHL_DEBUG_PUB.debug('Delete_Reservation failed for schedule material ID: '
5970: || get_scheduled_mater_rec.scheduled_material_id);
5971: END IF; -- G_DEBUG.
5972:
5973: EXIT;
5999: p_reservation_id => GET_SRC_RES_ID_REC.RESERVATION_ID);
6000: -- Check return status.
6001: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
6002: IF ( G_DEBUG = 'Y' ) THEN
6003: AHL_DEBUG_PUB.debug('Delete_Reservation failed for Reservation ID: '
6004: || GET_SRC_RES_ID_REC.RESERVATION_ID);
6005: END IF; -- G_DEBUG.
6006:
6007: EXIT;
6223: END IF;
6224: END IF;
6225:
6226: IF ( G_DEBUG = 'Y' ) THEN
6227: AHL_DEBUG_PUB.debug( l_api_name || ' - Success' );
6228: END IF;
6229:
6230: IF G_DEBUG='Y' THEN
6231: AHL_DEBUG_PUB.disable_debug;
6227: AHL_DEBUG_PUB.debug( l_api_name || ' - Success' );
6228: END IF;
6229:
6230: IF G_DEBUG='Y' THEN
6231: AHL_DEBUG_PUB.disable_debug;
6232: END IF;
6233:
6234: EXCEPTION
6235: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6318:
6319: x_return_status:=FND_API.G_RET_STS_SUCCESS;
6320:
6321: IF G_DEBUG='Y' THEN
6322: AHL_DEBUG_PUB.enable_debug;
6323: END IF;
6324:
6325: FOR i IN p_x_prd_workorder_tbl.FIRST..p_x_prd_workorder_tbl.LAST LOOP
6326:
6338: RAISE FND_API.G_EXC_ERROR;
6339: END IF;
6340:
6341: IF ( G_DEBUG = 'Y' ) THEN
6342: AHL_DEBUG_PUB.debug( 'Processing Batch : ' || p_x_prd_workorder_tbl(i).batch_id || ' Header : ' || p_x_prd_workorder_tbl(i).header_id );
6343: END IF;
6344:
6345: IF ( p_x_prd_workorder_tbl(i).dml_operation = 'C' ) THEN
6346:
6367: l_wo_rel_rec_found := FALSE;
6368: END IF;
6369: */
6370: IF ( G_DEBUG = 'Y' ) THEN
6371: AHL_DEBUG_PUB.debug( 'Invoking create_job API for Workorder ' || i );
6372: END IF;
6373:
6374: create_job
6375: (
6393: RAISE FND_API.G_EXC_ERROR;
6394: END IF;
6395:
6396: IF ( G_DEBUG = 'Y' ) THEN
6397: AHL_DEBUG_PUB.debug( 'create_job API Success' );
6398: END IF;
6399:
6400: IF ( G_DEBUG = 'Y' ) THEN
6401: AHL_DEBUG_PUB.debug( 'Mapping Job Header Record Number : ' || i );
6397: AHL_DEBUG_PUB.debug( 'create_job API Success' );
6398: END IF;
6399:
6400: IF ( G_DEBUG = 'Y' ) THEN
6401: AHL_DEBUG_PUB.debug( 'Mapping Job Header Record Number : ' || i );
6402: END IF;
6403:
6404: -- Map all input AHL Job Header record attributes to the
6405: -- corresponding EAM Job Header record attributes.
6409: x_eam_wo_rec => l_eam_wo_tbl(i)
6410: );
6411:
6412: IF ( G_DEBUG = 'Y' ) THEN
6413: AHL_DEBUG_PUB.debug( 'Job Header Record Mapping Complete' );
6414: END IF;
6415:
6416: -- Map all input AHL Operation record attributes to the
6417: -- corresponding EAM Operation record attributes.
6418: IF ( l_operation_tbl.COUNT > 0 ) THEN
6419: FOR j IN l_operation_tbl.FIRST..l_operation_tbl.LAST LOOP
6420:
6421: IF ( G_DEBUG = 'Y' ) THEN
6422: AHL_DEBUG_PUB.debug( 'Mapping Operation Record Number : ' || j );
6423: END IF;
6424:
6425: total_operations := total_operations + 1;
6426:
6435:
6436: END LOOP;
6437:
6438: IF ( G_DEBUG = 'Y' ) THEN
6439: AHL_DEBUG_PUB.debug( 'Operations Record Mapping Complete' );
6440: END IF;
6441: END IF;
6442:
6443: -- Map all input AHL Material Requirement record attributes to the
6445: IF ( l_material_tbl.COUNT > 0 ) THEN
6446: FOR j IN l_material_tbl.FIRST..l_material_tbl.LAST LOOP
6447:
6448: IF ( G_DEBUG = 'Y' ) THEN
6449: AHL_DEBUG_PUB.debug( 'Mapping Material Requirement Record Number : ' || j );
6450: END IF;
6451:
6452: total_materials := total_materials + 1;
6453:
6462:
6463: END LOOP;
6464:
6465: IF ( G_DEBUG = 'Y' ) THEN
6466: AHL_DEBUG_PUB.debug( 'Material Requirements Record Mapping Complete' );
6467: END IF;
6468:
6469: END IF;
6470:
6473: IF ( l_resource_tbl.COUNT > 0 ) THEN
6474: FOR j IN l_resource_tbl.FIRST..l_resource_tbl.LAST LOOP
6475:
6476: IF ( G_DEBUG = 'Y' ) THEN
6477: AHL_DEBUG_PUB.debug( 'Mapping Resource Requirement Record Number : ' || j );
6478: END IF;
6479:
6480: total_resources := total_resources + 1;
6481:
6490:
6491: END LOOP;
6492:
6493: IF ( G_DEBUG = 'Y' ) THEN
6494: AHL_DEBUG_PUB.debug( 'Resource Requirement Record Mapping Complete' );
6495: END IF;
6496:
6497: END IF;
6498:
6510:
6511: ELSIF ( p_x_prd_workorder_tbl(i).dml_operation = 'U' ) THEN
6512:
6513: IF ( G_DEBUG = 'Y' ) THEN
6514: AHL_DEBUG_PUB.debug( 'Invoking update_job API for Workorder ' || i );
6515: END IF;
6516:
6517: update_job
6518: (
6534: RAISE FND_API.G_EXC_ERROR;
6535: END IF;
6536:
6537: IF ( G_DEBUG = 'Y' ) THEN
6538: AHL_DEBUG_PUB.debug( 'update_job API Success' );
6539: END IF;
6540:
6541: IF ( G_DEBUG = 'Y' ) THEN
6542: AHL_DEBUG_PUB.debug( 'Mapping Job Header Record Number : ' || i );
6538: AHL_DEBUG_PUB.debug( 'update_job API Success' );
6539: END IF;
6540:
6541: IF ( G_DEBUG = 'Y' ) THEN
6542: AHL_DEBUG_PUB.debug( 'Mapping Job Header Record Number : ' || i );
6543: END IF;
6544:
6545: -- Map all input AHL Job Header record attributes to the
6546: -- corresponding EAM Job Header record attributes.
6550: x_eam_wo_rec => l_eam_wo_tbl(i)
6551: );
6552:
6553: IF ( G_DEBUG = 'Y' ) THEN
6554: AHL_DEBUG_PUB.debug( 'Job Header Record Mapping Complete' );
6555: END IF;
6556:
6557: END IF;
6558:
6582: IF ( p_prd_workorder_rel_tbl.COUNT > 0 ) THEN
6583: FOR i IN p_prd_workorder_rel_tbl.FIRST..p_prd_workorder_rel_tbl.LAST LOOP
6584:
6585: IF ( G_DEBUG = 'Y' ) THEN
6586: AHL_DEBUG_PUB.debug( 'Mapping WO Relationship Record Number : ' || i );
6587: END IF;
6588:
6589: -- Map all input AHL Workorder Relationship attributes to the
6590: -- corresponding EAM Workorder Relationship attributes.
6594: x_eam_wo_relations_rec => l_eam_wo_relations_tbl(i)
6595: );
6596:
6597: IF ( G_DEBUG = 'Y' ) THEN
6598: AHL_DEBUG_PUB.debug( 'WO Relationship Record Mapping Complete' );
6599: END IF;
6600: END LOOP;
6601: END IF;
6602:
6600: END LOOP;
6601: END IF;
6602:
6603: IF ( G_DEBUG = 'Y' ) THEN
6604: AHL_DEBUG_PUB.debug( 'Invoking AHL_EAM_JOB_PVT.process_eam_workorders API');
6605: AHL_DEBUG_PUB.debug( 'Total Workorders : ' || l_eam_wo_tbl.COUNT);
6606: AHL_DEBUG_PUB.debug( 'Total Operations : ' || l_eam_op_tbl.COUNT);
6607: AHL_DEBUG_PUB.debug( 'Total Resources : ' || l_eam_res_req_tbl.COUNT);
6608: AHL_DEBUG_PUB.debug( 'Total Materials : ' || l_eam_mat_req_tbl.COUNT);
6601: END IF;
6602:
6603: IF ( G_DEBUG = 'Y' ) THEN
6604: AHL_DEBUG_PUB.debug( 'Invoking AHL_EAM_JOB_PVT.process_eam_workorders API');
6605: AHL_DEBUG_PUB.debug( 'Total Workorders : ' || l_eam_wo_tbl.COUNT);
6606: AHL_DEBUG_PUB.debug( 'Total Operations : ' || l_eam_op_tbl.COUNT);
6607: AHL_DEBUG_PUB.debug( 'Total Resources : ' || l_eam_res_req_tbl.COUNT);
6608: AHL_DEBUG_PUB.debug( 'Total Materials : ' || l_eam_mat_req_tbl.COUNT);
6609: AHL_DEBUG_PUB.debug( 'Total Relationships : ' || l_eam_wo_relations_tbl.COUNT);
6602:
6603: IF ( G_DEBUG = 'Y' ) THEN
6604: AHL_DEBUG_PUB.debug( 'Invoking AHL_EAM_JOB_PVT.process_eam_workorders API');
6605: AHL_DEBUG_PUB.debug( 'Total Workorders : ' || l_eam_wo_tbl.COUNT);
6606: AHL_DEBUG_PUB.debug( 'Total Operations : ' || l_eam_op_tbl.COUNT);
6607: AHL_DEBUG_PUB.debug( 'Total Resources : ' || l_eam_res_req_tbl.COUNT);
6608: AHL_DEBUG_PUB.debug( 'Total Materials : ' || l_eam_mat_req_tbl.COUNT);
6609: AHL_DEBUG_PUB.debug( 'Total Relationships : ' || l_eam_wo_relations_tbl.COUNT);
6610: END IF;
6603: IF ( G_DEBUG = 'Y' ) THEN
6604: AHL_DEBUG_PUB.debug( 'Invoking AHL_EAM_JOB_PVT.process_eam_workorders API');
6605: AHL_DEBUG_PUB.debug( 'Total Workorders : ' || l_eam_wo_tbl.COUNT);
6606: AHL_DEBUG_PUB.debug( 'Total Operations : ' || l_eam_op_tbl.COUNT);
6607: AHL_DEBUG_PUB.debug( 'Total Resources : ' || l_eam_res_req_tbl.COUNT);
6608: AHL_DEBUG_PUB.debug( 'Total Materials : ' || l_eam_mat_req_tbl.COUNT);
6609: AHL_DEBUG_PUB.debug( 'Total Relationships : ' || l_eam_wo_relations_tbl.COUNT);
6610: END IF;
6611:
6604: AHL_DEBUG_PUB.debug( 'Invoking AHL_EAM_JOB_PVT.process_eam_workorders API');
6605: AHL_DEBUG_PUB.debug( 'Total Workorders : ' || l_eam_wo_tbl.COUNT);
6606: AHL_DEBUG_PUB.debug( 'Total Operations : ' || l_eam_op_tbl.COUNT);
6607: AHL_DEBUG_PUB.debug( 'Total Resources : ' || l_eam_res_req_tbl.COUNT);
6608: AHL_DEBUG_PUB.debug( 'Total Materials : ' || l_eam_mat_req_tbl.COUNT);
6609: AHL_DEBUG_PUB.debug( 'Total Relationships : ' || l_eam_wo_relations_tbl.COUNT);
6610: END IF;
6611:
6612:
6605: AHL_DEBUG_PUB.debug( 'Total Workorders : ' || l_eam_wo_tbl.COUNT);
6606: AHL_DEBUG_PUB.debug( 'Total Operations : ' || l_eam_op_tbl.COUNT);
6607: AHL_DEBUG_PUB.debug( 'Total Resources : ' || l_eam_res_req_tbl.COUNT);
6608: AHL_DEBUG_PUB.debug( 'Total Materials : ' || l_eam_mat_req_tbl.COUNT);
6609: AHL_DEBUG_PUB.debug( 'Total Relationships : ' || l_eam_wo_relations_tbl.COUNT);
6610: END IF;
6611:
6612:
6613: AHL_EAM_JOB_PVT.process_eam_workorders
6630: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
6631: RAISE FND_API.G_EXC_ERROR;
6632: ELSE
6633: IF ( G_DEBUG = 'Y' ) THEN
6634: AHL_DEBUG_PUB.debug( 'AHL_EAM_JOB_PVT.process_eam_workorders API Success' );
6635: END IF;
6636:
6637: FOR i IN p_x_prd_workorder_tbl.FIRST..p_x_prd_workorder_tbl.LAST LOOP
6638:
6637: FOR i IN p_x_prd_workorder_tbl.FIRST..p_x_prd_workorder_tbl.LAST LOOP
6638:
6639: IF ( p_x_prd_workorder_tbl(i).dml_operation = 'C' ) THEN
6640: IF ( G_DEBUG = 'Y' ) THEN
6641: AHL_DEBUG_PUB.debug( l_api_name || 'Updating AHL_WORKORDERS with wip_entity_id for Workorder ' || i );
6642: END IF;
6643:
6644: UPDATE AHL_WORKORDERS
6645: SET wip_entity_id = l_eam_wo_tbl(i).wip_entity_id,
6657: IF ( p_x_prd_workorder_tbl(i).master_workorder_flag = 'N' AND
6658: p_x_prd_workorder_tbl(i).route_id IS NOT NULL ) THEN
6659:
6660: IF ( G_DEBUG = 'Y' ) THEN
6661: AHL_DEBUG_PUB.debug( l_api_name || ' - Before calling process_wo_operations_reln' );
6662: END IF;
6663:
6664: p_x_prd_workorder_tbl(i).wip_entity_id := l_eam_wo_tbl(i).wip_entity_id;
6665: process_wo_operations_reln
6668: );
6669: END IF;
6670:
6671: IF ( G_DEBUG = 'Y' ) THEN
6672: AHL_DEBUG_PUB.debug( l_api_name || 'Before calling Create Job Dispostions ' || i );
6673: AHL_DEBUG_PUB.debug( 'Workorder Id: ' || p_x_prd_workorder_tbl(i).workorder_id );
6674:
6675: END IF;
6676:
6669: END IF;
6670:
6671: IF ( G_DEBUG = 'Y' ) THEN
6672: AHL_DEBUG_PUB.debug( l_api_name || 'Before calling Create Job Dispostions ' || i );
6673: AHL_DEBUG_PUB.debug( 'Workorder Id: ' || p_x_prd_workorder_tbl(i).workorder_id );
6674:
6675: END IF;
6676:
6677: --Call disposition API Post 11.5.10 Changes
6690: END IF;
6691:
6692: ELSIF ( p_x_prd_workorder_tbl(i).dml_operation = 'U' ) THEN
6693: IF ( G_DEBUG = 'Y' ) THEN
6694: AHL_DEBUG_PUB.debug( l_api_name || 'Updating AHL_WORKORDERS with status code for Workorder ' || i );
6695: END IF;
6696: --
6697: --sukhwsin::VEE - enhancement for insertion of wo status change - starts
6698: ADD_WO_OPER_TURNOVER_NOTES
6731: */
6732: l_is_comp_visit := AHL_CMP_UTIL_PKG.Is_Comp_Visit (p_x_prd_workorder_tbl(p_x_prd_workorder_tbl.FIRST).visit_id);
6733: IF (l_is_comp_visit = 'N') THEN
6734: IF ( G_DEBUG = 'Y' ) THEN
6735: AHL_DEBUG_PUB.debug( l_api_name || ' - Invoking Process_stage_jobs API. Total MR workorders: ' || total_mr_workorders );
6736: END IF;
6737:
6738: process_stage_jobs
6739: (
6748: x_msg_data => l_msg_data
6749: );
6750:
6751: IF ( G_DEBUG = 'Y' ) THEN
6752: AHL_DEBUG_PUB.debug( l_api_name || ' - After call to Process_stage_jobs API. Return Status: ' || l_return_status );
6753: END IF;
6754:
6755: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
6756:
6776:
6777: END IF;
6778:
6779: IF G_DEBUG='Y' THEN
6780: AHL_DEBUG_PUB.disable_debug;
6781: END IF;
6782:
6783: EXCEPTION
6784: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6931: --
6932: BEGIN
6933:
6934: IF ( G_DEBUG = 'Y' ) THEN
6935: AHL_DEBUG_PUB.enable_debug;
6936: AHL_DEBUG_PUB.debug( l_full_name || '.begin - At the start of API' );
6937: END IF;
6938:
6939: -- Standard start of API savepoint
6932: BEGIN
6933:
6934: IF ( G_DEBUG = 'Y' ) THEN
6935: AHL_DEBUG_PUB.enable_debug;
6936: AHL_DEBUG_PUB.debug( l_full_name || '.begin - At the start of API' );
6937: END IF;
6938:
6939: -- Standard start of API savepoint
6940: SAVEPOINT process_stage_jobs_pvt;
6960: */
6961: IF ( p_module_type = 'VWP' ) THEN
6962:
6963: IF ( G_DEBUG = 'Y' ) THEN
6964: AHL_DEBUG_PUB.debug( l_full_name || ' - Invoking Remove_wo_resrc_reqs API. Total Stage workorders: ' || p_workorder_tbl.COUNT );
6965: END IF;
6966:
6967: remove_wo_resrc_reqs
6968: (
6972: x_msg_data => l_msg_data
6973: );
6974:
6975: IF ( G_DEBUG = 'Y' ) THEN
6976: AHL_DEBUG_PUB.debug( l_full_name || ' - After call to Remove_wo_resrc_reqs API. Return Status: ' || l_return_status );
6977: END IF;
6978:
6979: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
6980:
6995: IF ( p_workorder_tbl.COUNT > 0 ) THEN
6996: FOR i IN p_workorder_tbl.FIRST..p_workorder_tbl.LAST LOOP
6997:
6998: IF ( G_DEBUG = 'Y' ) THEN
6999: AHL_DEBUG_PUB.debug( l_full_name || ' - Invoking Get_prof_res_req API for Mr_header_id: ' || p_workorder_tbl(i).mr_header_id
7000: || ' Item_instance_id: ' || p_workorder_tbl(i).item_instance_id
7001: || ' Unit_effectivity_id: ' || p_workorder_tbl(i).unit_effectivity_id );
7002: END IF;
7003:
7019: x_prof_res_req_tbl => l_prof_res_req_tbl
7020: );
7021:
7022: IF ( G_DEBUG = 'Y' ) THEN
7023: AHL_DEBUG_PUB.debug( l_full_name || ' - After call to Get_prof_res_req API. Return Status: ' || l_return_status );
7024: AHL_DEBUG_PUB.debug( l_full_name || ' - Total Resource Requirements from NR profile API for this MR: ' || l_prof_res_req_tbl.COUNT );
7025: END IF;
7026:
7027: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
7020: );
7021:
7022: IF ( G_DEBUG = 'Y' ) THEN
7023: AHL_DEBUG_PUB.debug( l_full_name || ' - After call to Get_prof_res_req API. Return Status: ' || l_return_status );
7024: AHL_DEBUG_PUB.debug( l_full_name || ' - Total Resource Requirements from NR profile API for this MR: ' || l_prof_res_req_tbl.COUNT );
7025: END IF;
7026:
7027: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
7028:
7049: l_res_id_index := l_prof_res_req_tbl(j).cmro_resource_id;
7050: l_stg_typ_index := NVL(l_prof_res_req_tbl(j).stage_type_code, l_default_stg);
7051:
7052: IF ( G_DEBUG = 'Y' ) THEN
7053: AHL_DEBUG_PUB.debug( l_full_name || ' - CMRO Resource id: ' || l_res_id_index );
7054: AHL_DEBUG_PUB.debug( l_full_name || ' - Stage Type code: ' || l_stg_typ_index );
7055: AHL_DEBUG_PUB.debug( l_full_name || ' - Resource duration: ' || l_prof_res_req_tbl(j).duration );
7056: END IF;
7057:
7050: l_stg_typ_index := NVL(l_prof_res_req_tbl(j).stage_type_code, l_default_stg);
7051:
7052: IF ( G_DEBUG = 'Y' ) THEN
7053: AHL_DEBUG_PUB.debug( l_full_name || ' - CMRO Resource id: ' || l_res_id_index );
7054: AHL_DEBUG_PUB.debug( l_full_name || ' - Stage Type code: ' || l_stg_typ_index );
7055: AHL_DEBUG_PUB.debug( l_full_name || ' - Resource duration: ' || l_prof_res_req_tbl(j).duration );
7056: END IF;
7057:
7058: -- If a resource already exists in the associative array, then aggregate the durations.
7051:
7052: IF ( G_DEBUG = 'Y' ) THEN
7053: AHL_DEBUG_PUB.debug( l_full_name || ' - CMRO Resource id: ' || l_res_id_index );
7054: AHL_DEBUG_PUB.debug( l_full_name || ' - Stage Type code: ' || l_stg_typ_index );
7055: AHL_DEBUG_PUB.debug( l_full_name || ' - Resource duration: ' || l_prof_res_req_tbl(j).duration );
7056: END IF;
7057:
7058: -- If a resource already exists in the associative array, then aggregate the durations.
7059: IF ( l_stg_typ_res_tbl.EXISTS(l_stg_typ_index) AND
7080: l_stg_typ_index := l_stg_typ_res_tbl.FIRST;
7081: WHILE l_stg_typ_index IS NOT NULL LOOP
7082:
7083: IF ( G_DEBUG = 'Y' ) THEN
7084: AHL_DEBUG_PUB.debug( l_full_name || ' - Total Resource Requirements for Stage_type_code ' || l_stg_typ_index
7085: || ' are: ' || l_stg_typ_res_tbl(l_stg_typ_index).nrp_res_req_tbl.COUNT );
7086: END IF;
7087:
7088: -- Find Stage id corresponding to this Stage Type
7104: CLOSE get_stg_id_csr;
7105: END IF;
7106:
7107: IF ( G_DEBUG = 'Y' ) THEN
7108: AHL_DEBUG_PUB.debug( l_full_name || ' This Stage Type maps to Stage id: ' || l_stg_id_index );
7109: END IF;
7110:
7111: /* Transfer Resource Requirements for this Stage Type to Stage id Associative array by
7112: * iterating through the resource table (which itself is an Associative array ) inside Stage Type array.
7163: l_stg_workorder_rec.dml_operation := p_workorder_tbl(p_workorder_tbl.FIRST).dml_operation;
7164:
7165: -- Aggregate the Resource Requirements obtained for this Stage id with the corresponding Stage workorder
7166: IF ( G_DEBUG = 'Y' ) THEN
7167: AHL_DEBUG_PUB.debug( l_full_name || ' - Invoking Aggregate_stg_resource_req API for Stage Workorder id: ' || l_stg_workorder_rec.workorder_id );
7168: END IF;
7169:
7170: -- Empty Resource Requirements tables before calling Aggregate_stg_resource_req API
7171: l_create_res_tbl.DELETE;
7184: -- Process the aggregated Resource Requirements for the Stage Workorder
7185: IF ( l_create_res_tbl.COUNT > 0 ) THEN
7186:
7187: IF ( G_DEBUG = 'Y' ) THEN
7188: AHL_DEBUG_PUB.debug( l_full_name || ' - Invoking Process_resrc_require API for Creating Resource Requirements for Stage Workorder id: ' || l_stg_workorder_rec.workorder_id );
7189: END IF;
7190:
7191: AHL_PP_RESRC_REQUIRE_PVT.process_resrc_require
7192: (
7203: x_msg_data => l_msg_data
7204: );
7205:
7206: IF ( G_DEBUG = 'Y' ) THEN
7207: AHL_DEBUG_PUB.debug( l_full_name || ' - After call to Process_resrc_require API. Return Status: ' || l_return_status );
7208: END IF;
7209:
7210: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
7211:
7225:
7226: IF ( l_update_res_tbl.COUNT > 0 ) THEN
7227:
7228: IF ( G_DEBUG = 'Y' ) THEN
7229: AHL_DEBUG_PUB.debug( l_full_name || ' - Invoking Process_resrc_require API for Updating Resource Requirements for Stage Workorder id: ' || l_stg_workorder_rec.workorder_id );
7230: END IF;
7231:
7232: AHL_PP_RESRC_REQUIRE_PVT.process_resrc_require
7233: (
7244: x_msg_data => l_msg_data
7245: );
7246:
7247: IF ( G_DEBUG = 'Y' ) THEN
7248: AHL_DEBUG_PUB.debug( l_full_name || ' - After call to Process_resrc_require API. Return Status: ' || l_return_status );
7249: END IF;
7250:
7251: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
7252:
7266:
7267: IF ( l_delete_res_tbl.COUNT > 0 ) THEN
7268:
7269: IF ( G_DEBUG = 'Y' ) THEN
7270: AHL_DEBUG_PUB.debug( l_full_name || ' - Invoking Process_resrc_require API for Removing Resource Requirements for Stage Workorder id: ' || l_stg_workorder_rec.workorder_id );
7271: END IF;
7272:
7273: AHL_PP_RESRC_REQUIRE_PVT.process_resrc_require
7274: (
7285: x_msg_data => l_msg_data
7286: );
7287:
7288: IF ( G_DEBUG = 'Y' ) THEN
7289: AHL_DEBUG_PUB.debug( l_full_name || ' - After call to Process_resrc_require API. Return Status: ' || l_return_status );
7290: END IF;
7291:
7292: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
7293:
7316: COMMIT WORK;
7317: END IF;
7318:
7319: IF ( G_DEBUG = 'Y' ) THEN
7320: AHL_DEBUG_PUB.debug( l_full_name || '.end - At the end of API' );
7321: AHL_DEBUG_PUB.disable_debug;
7322: END IF;
7323:
7324: EXCEPTION
7317: END IF;
7318:
7319: IF ( G_DEBUG = 'Y' ) THEN
7320: AHL_DEBUG_PUB.debug( l_full_name || '.end - At the end of API' );
7321: AHL_DEBUG_PUB.disable_debug;
7322: END IF;
7323:
7324: EXCEPTION
7325: WHEN FND_API.G_EXC_ERROR THEN
7328: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
7329: p_count => x_msg_count,
7330: p_data => x_msg_data );
7331: IF ( G_DEBUG = 'Y' ) THEN
7332: AHL_DEBUG_PUB.debug( l_full_name || ' - Expected Exception: ' || x_msg_data );
7333: AHL_DEBUG_PUB.disable_debug;
7334: END IF;
7335:
7336: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7329: p_count => x_msg_count,
7330: p_data => x_msg_data );
7331: IF ( G_DEBUG = 'Y' ) THEN
7332: AHL_DEBUG_PUB.debug( l_full_name || ' - Expected Exception: ' || x_msg_data );
7333: AHL_DEBUG_PUB.disable_debug;
7334: END IF;
7335:
7336: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7337: ROLLBACK TO process_stage_jobs_pvt;
7339: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
7340: p_count => x_msg_count,
7341: p_data => x_msg_data );
7342: IF ( G_DEBUG = 'Y' ) THEN
7343: AHL_DEBUG_PUB.debug( l_full_name || ' - Unexpected Exception: ' || x_msg_data );
7344: AHL_DEBUG_PUB.disable_debug;
7345: END IF;
7346:
7347: WHEN OTHERS THEN
7340: p_count => x_msg_count,
7341: p_data => x_msg_data );
7342: IF ( G_DEBUG = 'Y' ) THEN
7343: AHL_DEBUG_PUB.debug( l_full_name || ' - Unexpected Exception: ' || x_msg_data );
7344: AHL_DEBUG_PUB.disable_debug;
7345: END IF;
7346:
7347: WHEN OTHERS THEN
7348: ROLLBACK TO process_stage_jobs_pvt;
7356: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
7357: p_count => x_msg_count,
7358: p_data => x_msg_data );
7359: IF ( G_DEBUG = 'Y' ) THEN
7360: AHL_DEBUG_PUB.debug( l_full_name || ' - Other Exception: ' || x_msg_data );
7361: AHL_DEBUG_PUB.disable_debug;
7362: END IF;
7363:
7364: END process_stage_jobs;
7357: p_count => x_msg_count,
7358: p_data => x_msg_data );
7359: IF ( G_DEBUG = 'Y' ) THEN
7360: AHL_DEBUG_PUB.debug( l_full_name || ' - Other Exception: ' || x_msg_data );
7361: AHL_DEBUG_PUB.disable_debug;
7362: END IF;
7363:
7364: END process_stage_jobs;
7365:
7503:
7504: x_return_status:=FND_API.G_RET_STS_SUCCESS;
7505:
7506: IF G_DEBUG='Y' THEN
7507: AHL_DEBUG_PUB.enable_debug;
7508: END IF;
7509: -- Validate Inputs
7510: IF ( ( p_workorder_id IS NULL OR
7511: p_workorder_id = FND_API.G_MISS_NUM ) AND
7880: COMMIT;
7881: END IF;
7882:
7883: IF G_DEBUG='Y' THEN
7884: AHL_DEBUG_PUB.disable_debug;
7885: END IF;
7886:
7887: EXCEPTION
7888: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8049:
8050: x_return_status:=FND_API.G_RET_STS_SUCCESS;
8051:
8052: IF G_DEBUG='Y' THEN
8053: AHL_DEBUG_PUB.enable_debug;
8054: END IF;
8055:
8056: -- Validate Inputs
8057: IF ( ( p_workorder_id IS NULL OR
8655:
8656: x_return_status:=FND_API.G_RET_STS_SUCCESS;
8657:
8658: IF G_DEBUG='Y' THEN
8659: AHL_DEBUG_PUB.enable_debug;
8660: END IF;
8661:
8662: --sikumar: added for FP for ER 5571241 -- Check if user has permission to cancel jobs.
8663: IF AHL_PRD_UTIL_PKG.Is_Wo_Cancel_Allowed = FND_API.G_FALSE THEN
9828: COMMIT;
9829: END IF;
9830:
9831: IF G_DEBUG='Y' THEN
9832: AHL_DEBUG_PUB.disable_debug;
9833: END IF;
9834:
9835: EXCEPTION
9836: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12008:
12009: x_return_status:=FND_API.G_RET_STS_SUCCESS;
12010:
12011: IF G_DEBUG='Y' THEN
12012: AHL_DEBUG_PUB.enable_debug;
12013: END IF;
12014:
12015: IF ( G_DEBUG = 'Y' ) THEN
12016: AHL_DEBUG_PUB.debug( l_api_name || ' - At Start of Populate Entitlement API' );
12012: AHL_DEBUG_PUB.enable_debug;
12013: END IF;
12014:
12015: IF ( G_DEBUG = 'Y' ) THEN
12016: AHL_DEBUG_PUB.debug( l_api_name || ' - At Start of Populate Entitlement API' );
12017: END IF;
12018:
12019: -- Get the error message count till this point
12020: l_msg_count := FND_MSG_PUB.count_msg;
12084: END IF;
12085: END IF;
12086:
12087: IF ( G_DEBUG = 'Y' ) THEN
12088: AHL_DEBUG_PUB.debug( l_api_name || ' - Success' );
12089: END IF;
12090:
12091: IF G_DEBUG='Y' THEN
12092: AHL_DEBUG_PUB.disable_debug;
12088: AHL_DEBUG_PUB.debug( l_api_name || ' - Success' );
12089: END IF;
12090:
12091: IF G_DEBUG='Y' THEN
12092: AHL_DEBUG_PUB.disable_debug;
12093: END IF;
12094:
12095: EXCEPTION
12096: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12210: FETCH Get_Wo_Cur_Values INTO l_old_status_code, l_organization_id;
12211: CLOSE Get_Wo_Cur_Values;
12212: IF(l_old_status_code <> p_new_status_code) THEN
12213: IF ( G_DEBUG = 'Y' ) THEN
12214: AHL_DEBUG_PUB.debug( 'Handling Wo status change' );
12215: END IF;
12216: OPEN Get_Emp_Name_And_Id(l_organization_id);
12217: /* FETCH Get_Emp_Name_And_Id INTO l_emp_name, l_emp_id;
12218: IF( Get_Emp_Name_And_Id%NOTFOUND ) THEN
12256: FETCH Get_Op_Details INTO l_organization_id, l_operation_seq_num,l_old_status_code, l_workorder_id;
12257: CLOSE Get_Op_Details;
12258: IF(l_old_status_code <> p_new_status_code) THEN
12259: IF ( G_DEBUG = 'Y' ) THEN
12260: AHL_DEBUG_PUB.debug( 'Handling Wo Operation status change' );
12261: END IF;
12262: /*OPEN Get_Emp_Name_And_Id(l_organization_id);
12263: FETCH Get_Emp_Name_And_Id INTO l_emp_name, l_emp_id;
12264: IF( Get_Emp_Name_And_Id%NOTFOUND ) THEN