[Home] [Help]
1: PACKAGE BODY AHL_COMPLETIONS_PVT AS
2: /* $Header: AHLVPRCB.pls 120.71.12020000.5 2013/03/26 06:29:58 sosahni ship $ */
3:
4: G_PKG_NAME VARCHAR2(30) := 'AHL_COMPLETIONS_PVT';
5: G_DEBUG VARCHAR2(1) := AHL_DEBUG_PUB.is_log_enabled;
6:
7: -- Operation Statuses
8: G_OP_STATUS_UNCOMPLETE VARCHAR2(2) := '2'; --Uncomplete
9: G_OP_STATUS_COMPLETE VARCHAR2(2) := '1'; --Complete
1157: -- rroy
1158: -- ACL Changes
1159:
1160: IF ( G_DEBUG = 'Y' ) THEN
1161: AHL_DEBUG_PUB.debug( 'before validating actual dates for wo_op_id->'||p_operation_rec.workorder_operation_id);
1162: AHL_DEBUG_PUB.debug( 'p_operation_rec.actual_start_date->'||TO_CHAR(p_operation_rec.actual_start_date,'DD-MON-YYYY HH24:MI:SS'));
1163: AHL_DEBUG_PUB.debug( 'p_operation_rec.actual_end_date->'||TO_CHAR(p_operation_rec.actual_end_date,'DD-MON-YYYY HH24:MI:SS'));
1164: END IF;
1165:
1158: -- ACL Changes
1159:
1160: IF ( G_DEBUG = 'Y' ) THEN
1161: AHL_DEBUG_PUB.debug( 'before validating actual dates for wo_op_id->'||p_operation_rec.workorder_operation_id);
1162: AHL_DEBUG_PUB.debug( 'p_operation_rec.actual_start_date->'||TO_CHAR(p_operation_rec.actual_start_date,'DD-MON-YYYY HH24:MI:SS'));
1163: AHL_DEBUG_PUB.debug( 'p_operation_rec.actual_end_date->'||TO_CHAR(p_operation_rec.actual_end_date,'DD-MON-YYYY HH24:MI:SS'));
1164: END IF;
1165:
1166: IF (NVL(p_validate_date, FND_API.G_TRUE) = FND_API.G_TRUE) THEN
1159:
1160: IF ( G_DEBUG = 'Y' ) THEN
1161: AHL_DEBUG_PUB.debug( 'before validating actual dates for wo_op_id->'||p_operation_rec.workorder_operation_id);
1162: AHL_DEBUG_PUB.debug( 'p_operation_rec.actual_start_date->'||TO_CHAR(p_operation_rec.actual_start_date,'DD-MON-YYYY HH24:MI:SS'));
1163: AHL_DEBUG_PUB.debug( 'p_operation_rec.actual_end_date->'||TO_CHAR(p_operation_rec.actual_end_date,'DD-MON-YYYY HH24:MI:SS'));
1164: END IF;
1165:
1166: IF (NVL(p_validate_date, FND_API.G_TRUE) = FND_API.G_TRUE) THEN
1167: l_return_status :=
2455: l_ctr_rdg_tbl(l_ctr_count).valid_flag := 'Y';
2456: l_ctr_rdg_tbl(l_ctr_count).override_valid_flag := 'N';
2457:
2458: IF ( G_DEBUG = 'Y' ) THEN
2459: AHL_DEBUG_PUB.debug( 'Ctr ID:' || TO_CHAR( l_ctr_rdg_tbl(l_ctr_count).counter_id ) || ' Reset Value :' || TO_CHAR( l_ctr_rdg_tbl(l_ctr_count).counter_reading ) );
2460: END IF;
2461:
2462: IF ( p_x_counter_tbl(i).counter_reading <> 0 ) THEN
2463: l_ctr_rdg_tbl(l_ctr_count).reset_flag := 'Y';
2472: l_ctr_rdg_tbl(l_ctr_count).pre_reset_last_rdg := p_x_counter_tbl(i).reset_value;
2473: l_ctr_rdg_tbl(l_ctr_count).post_reset_first_rdg := p_x_counter_tbl(i).reset_value;
2474: /* end of fix -- IB(Anju) suggested as part of fix for bug#6267502 */
2475: IF ( G_DEBUG = 'Y' ) THEN
2476: AHL_DEBUG_PUB.debug( 'Reset Ctr ID:' || TO_CHAR( l_ctr_rdg_tbl(l_ctr_count).counter_id ) || ' Pre-Reset:' || TO_CHAR( l_ctr_rdg_tbl(l_ctr_count).pre_reset_last_rdg ) || ' Adj:' || TO_CHAR( l_ctr_rdg_tbl(l_ctr_count).misc_reading ) );
2477: END IF;
2478: END IF;
2479:
2480: -- Store the Reset Value as the Current Reading ( for UMP )
2860:
2861: BEGIN
2862: -- Enable Debug (optional)
2863: IF ( G_DEBUG = 'Y' ) THEN
2864: AHL_DEBUG_PUB.enable_debug;
2865: END IF;
2866:
2867: -- Initialize API return status to success
2868: x_return_status := FND_API.G_RET_STS_SUCCESS;
3091: END IF;
3092:
3093: -- Disable debug (if enabled)
3094: IF ( G_DEBUG = 'Y' ) THEN
3095: AHL_DEBUG_PUB.disable_debug;
3096: END IF;
3097:
3098: EXCEPTION
3099:
3107: p_data => x_msg_data
3108: );
3109:
3110: IF ( G_DEBUG = 'Y' ) THEN
3111: AHL_DEBUG_PUB.disable_debug;
3112: END IF;
3113:
3114: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3115: ROLLBACK TO complete_operation_PVT;
3121: p_data => x_msg_data
3122: );
3123:
3124: IF ( G_DEBUG = 'Y' ) THEN
3125: AHL_DEBUG_PUB.disable_debug;
3126: END IF;
3127:
3128: WHEN OTHERS THEN
3129: ROLLBACK TO complete_operation_PVT;
3144: p_data => x_msg_data
3145: );
3146:
3147: IF ( G_DEBUG = 'Y' ) THEN
3148: AHL_DEBUG_PUB.disable_debug;
3149: END IF;
3150: END complete_operation;
3151:
3152: PROCEDURE complete_workorder
3280:
3281: BEGIN
3282: -- Enable Debug (optional)
3283: IF ( G_DEBUG = 'Y' ) THEN
3284: AHL_DEBUG_PUB.enable_debug;
3285: END IF;
3286:
3287: -- Initialize API return status to success
3288: x_return_status := FND_API.G_RET_STS_SUCCESS;
3683:
3684: -- Abort for Unexpected errors, but, continue for other errors.
3685: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3686: IF ( G_DEBUG = 'Y' ) THEN
3687: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Could Not Complete MR Instance with UE : ' || TO_CHAR( l_workorder_rec.unit_effectivity_id ) || ' associated to Workorder : ' || TO_CHAR( p_workorder_id ) || ' because of...' );
3688: FOR I IN 1..l_msg_count LOOP
3689: FND_MSG_PUB.get
3690: (
3691: p_msg_index => i,
3693: p_data => l_msg_data,
3694: p_msg_index_out => l_msg_index_out
3695: );
3696:
3697: AHL_DEBUG_PUB.debug(' Error : ' || I || ': ' || l_msg_data);
3698: END LOOP;
3699: END IF;
3700:
3701: -- Initialize message list since errors are not reported
3709: x_msg_count := l_msg_count;
3710: RETURN;
3711: ELSE
3712: IF ( G_DEBUG = 'Y' ) THEN
3713: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Completed MR Instance with UE : ' || TO_CHAR( l_workorder_rec.unit_effectivity_id ) || ' associated to Workorder : ' || TO_CHAR( p_workorder_id ) || ' Successfuly...' );
3714: END IF;
3715:
3716: -- Re-set the API savepoint because, complete_mr_instance commits
3717: IF FND_API.to_boolean( p_commit ) THEN
3729: END IF;
3730:
3731: -- Disable debug (if enabled)
3732: IF ( G_DEBUG = 'Y' ) THEN
3733: AHL_DEBUG_PUB.disable_debug;
3734: END IF;
3735:
3736: EXCEPTION
3737:
3745: p_data => x_msg_data
3746: );
3747:
3748: IF ( G_DEBUG = 'Y' ) THEN
3749: AHL_DEBUG_PUB.disable_debug;
3750: END IF;
3751:
3752: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3753: ROLLBACK TO complete_workorder_PVT;
3759: p_data => x_msg_data
3760: );
3761:
3762: IF ( G_DEBUG = 'Y' ) THEN
3763: AHL_DEBUG_PUB.disable_debug;
3764: END IF;
3765:
3766: WHEN OTHERS THEN
3767: ROLLBACK TO complete_workorder_PVT;
3782: p_data => x_msg_data
3783: );
3784:
3785: IF ( G_DEBUG = 'Y' ) THEN
3786: AHL_DEBUG_PUB.disable_debug;
3787: END IF;
3788: END complete_workorder;
3789:
3790: PROCEDURE defer_workorder
3813:
3814: BEGIN
3815: -- Enable Debug (optional)
3816: IF ( G_DEBUG = 'Y' ) THEN
3817: AHL_DEBUG_PUB.enable_debug;
3818: END IF;
3819:
3820: -- Initialize API return status to success
3821: x_return_status := FND_API.G_RET_STS_SUCCESS;
3978: END IF;
3979:
3980: -- Disable debug (if enabled)
3981: IF ( G_DEBUG = 'Y' ) THEN
3982: AHL_DEBUG_PUB.disable_debug;
3983: END IF;
3984:
3985: EXCEPTION
3986:
3994: p_data => x_msg_data
3995: );
3996:
3997: IF ( G_DEBUG = 'Y' ) THEN
3998: AHL_DEBUG_PUB.disable_debug;
3999: END IF;
4000:
4001: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4002: ROLLBACK TO defer_workorder_PVT;
4008: p_data => x_msg_data
4009: );
4010:
4011: IF ( G_DEBUG = 'Y' ) THEN
4012: AHL_DEBUG_PUB.disable_debug;
4013: END IF;
4014:
4015: WHEN OTHERS THEN
4016: ROLLBACK TO defer_workorder_PVT;
4031: p_data => x_msg_data
4032: );
4033:
4034: IF ( G_DEBUG = 'Y' ) THEN
4035: AHL_DEBUG_PUB.disable_debug;
4036: END IF;
4037:
4038: END defer_workorder;
4039:
4079:
4080: BEGIN
4081: -- Enable Debug (optional)
4082: IF ( G_DEBUG = 'Y' ) THEN
4083: AHL_DEBUG_PUB.enable_debug;
4084: END IF;
4085:
4086: -- Initialize API return status to success
4087: x_return_status := FND_API.G_RET_STS_SUCCESS;
4120: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4121: END IF;
4122:
4123: IF ( G_DEBUG = 'Y' ) THEN
4124: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' Inputs:' );
4125: AHL_DEBUG_PUB.debug( 'unit_effectivity_id:' || p_x_mr_rec.unit_effectivity_id );
4126: AHL_DEBUG_PUB.debug( 'ue_object_version_no:' || p_x_mr_rec.ue_object_version_no );
4127: AHL_DEBUG_PUB.debug( 'item_instance_id:' || p_x_mr_rec.item_instance_id );
4128: AHL_DEBUG_PUB.debug( 'mr_header_id:' || p_x_mr_rec.mr_header_id );
4121: END IF;
4122:
4123: IF ( G_DEBUG = 'Y' ) THEN
4124: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' Inputs:' );
4125: AHL_DEBUG_PUB.debug( 'unit_effectivity_id:' || p_x_mr_rec.unit_effectivity_id );
4126: AHL_DEBUG_PUB.debug( 'ue_object_version_no:' || p_x_mr_rec.ue_object_version_no );
4127: AHL_DEBUG_PUB.debug( 'item_instance_id:' || p_x_mr_rec.item_instance_id );
4128: AHL_DEBUG_PUB.debug( 'mr_header_id:' || p_x_mr_rec.mr_header_id );
4129: AHL_DEBUG_PUB.debug( 'incident_id:' || p_x_mr_rec.incident_id );
4122:
4123: IF ( G_DEBUG = 'Y' ) THEN
4124: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' Inputs:' );
4125: AHL_DEBUG_PUB.debug( 'unit_effectivity_id:' || p_x_mr_rec.unit_effectivity_id );
4126: AHL_DEBUG_PUB.debug( 'ue_object_version_no:' || p_x_mr_rec.ue_object_version_no );
4127: AHL_DEBUG_PUB.debug( 'item_instance_id:' || p_x_mr_rec.item_instance_id );
4128: AHL_DEBUG_PUB.debug( 'mr_header_id:' || p_x_mr_rec.mr_header_id );
4129: AHL_DEBUG_PUB.debug( 'incident_id:' || p_x_mr_rec.incident_id );
4130: AHL_DEBUG_PUB.debug( 'mr_title:' || p_x_mr_rec.mr_title );
4123: IF ( G_DEBUG = 'Y' ) THEN
4124: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' Inputs:' );
4125: AHL_DEBUG_PUB.debug( 'unit_effectivity_id:' || p_x_mr_rec.unit_effectivity_id );
4126: AHL_DEBUG_PUB.debug( 'ue_object_version_no:' || p_x_mr_rec.ue_object_version_no );
4127: AHL_DEBUG_PUB.debug( 'item_instance_id:' || p_x_mr_rec.item_instance_id );
4128: AHL_DEBUG_PUB.debug( 'mr_header_id:' || p_x_mr_rec.mr_header_id );
4129: AHL_DEBUG_PUB.debug( 'incident_id:' || p_x_mr_rec.incident_id );
4130: AHL_DEBUG_PUB.debug( 'mr_title:' || p_x_mr_rec.mr_title );
4131: AHL_DEBUG_PUB.debug( 'ue_status_code:' || p_x_mr_rec.ue_status_code );
4124: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' Inputs:' );
4125: AHL_DEBUG_PUB.debug( 'unit_effectivity_id:' || p_x_mr_rec.unit_effectivity_id );
4126: AHL_DEBUG_PUB.debug( 'ue_object_version_no:' || p_x_mr_rec.ue_object_version_no );
4127: AHL_DEBUG_PUB.debug( 'item_instance_id:' || p_x_mr_rec.item_instance_id );
4128: AHL_DEBUG_PUB.debug( 'mr_header_id:' || p_x_mr_rec.mr_header_id );
4129: AHL_DEBUG_PUB.debug( 'incident_id:' || p_x_mr_rec.incident_id );
4130: AHL_DEBUG_PUB.debug( 'mr_title:' || p_x_mr_rec.mr_title );
4131: AHL_DEBUG_PUB.debug( 'ue_status_code:' || p_x_mr_rec.ue_status_code );
4132: AHL_DEBUG_PUB.debug( 'qa_inspection_type:' || p_x_mr_rec.qa_inspection_type );
4125: AHL_DEBUG_PUB.debug( 'unit_effectivity_id:' || p_x_mr_rec.unit_effectivity_id );
4126: AHL_DEBUG_PUB.debug( 'ue_object_version_no:' || p_x_mr_rec.ue_object_version_no );
4127: AHL_DEBUG_PUB.debug( 'item_instance_id:' || p_x_mr_rec.item_instance_id );
4128: AHL_DEBUG_PUB.debug( 'mr_header_id:' || p_x_mr_rec.mr_header_id );
4129: AHL_DEBUG_PUB.debug( 'incident_id:' || p_x_mr_rec.incident_id );
4130: AHL_DEBUG_PUB.debug( 'mr_title:' || p_x_mr_rec.mr_title );
4131: AHL_DEBUG_PUB.debug( 'ue_status_code:' || p_x_mr_rec.ue_status_code );
4132: AHL_DEBUG_PUB.debug( 'qa_inspection_type:' || p_x_mr_rec.qa_inspection_type );
4133: AHL_DEBUG_PUB.debug( 'actual_end_date:' || p_x_mr_rec.actual_end_date );
4126: AHL_DEBUG_PUB.debug( 'ue_object_version_no:' || p_x_mr_rec.ue_object_version_no );
4127: AHL_DEBUG_PUB.debug( 'item_instance_id:' || p_x_mr_rec.item_instance_id );
4128: AHL_DEBUG_PUB.debug( 'mr_header_id:' || p_x_mr_rec.mr_header_id );
4129: AHL_DEBUG_PUB.debug( 'incident_id:' || p_x_mr_rec.incident_id );
4130: AHL_DEBUG_PUB.debug( 'mr_title:' || p_x_mr_rec.mr_title );
4131: AHL_DEBUG_PUB.debug( 'ue_status_code:' || p_x_mr_rec.ue_status_code );
4132: AHL_DEBUG_PUB.debug( 'qa_inspection_type:' || p_x_mr_rec.qa_inspection_type );
4133: AHL_DEBUG_PUB.debug( 'actual_end_date:' || p_x_mr_rec.actual_end_date );
4134: AHL_DEBUG_PUB.debug( 'qa_plan_id:' || p_x_mr_rec.qa_plan_id );
4127: AHL_DEBUG_PUB.debug( 'item_instance_id:' || p_x_mr_rec.item_instance_id );
4128: AHL_DEBUG_PUB.debug( 'mr_header_id:' || p_x_mr_rec.mr_header_id );
4129: AHL_DEBUG_PUB.debug( 'incident_id:' || p_x_mr_rec.incident_id );
4130: AHL_DEBUG_PUB.debug( 'mr_title:' || p_x_mr_rec.mr_title );
4131: AHL_DEBUG_PUB.debug( 'ue_status_code:' || p_x_mr_rec.ue_status_code );
4132: AHL_DEBUG_PUB.debug( 'qa_inspection_type:' || p_x_mr_rec.qa_inspection_type );
4133: AHL_DEBUG_PUB.debug( 'actual_end_date:' || p_x_mr_rec.actual_end_date );
4134: AHL_DEBUG_PUB.debug( 'qa_plan_id:' || p_x_mr_rec.qa_plan_id );
4135: AHL_DEBUG_PUB.debug( 'qa_collection_id:' || p_x_mr_rec.qa_collection_id );
4128: AHL_DEBUG_PUB.debug( 'mr_header_id:' || p_x_mr_rec.mr_header_id );
4129: AHL_DEBUG_PUB.debug( 'incident_id:' || p_x_mr_rec.incident_id );
4130: AHL_DEBUG_PUB.debug( 'mr_title:' || p_x_mr_rec.mr_title );
4131: AHL_DEBUG_PUB.debug( 'ue_status_code:' || p_x_mr_rec.ue_status_code );
4132: AHL_DEBUG_PUB.debug( 'qa_inspection_type:' || p_x_mr_rec.qa_inspection_type );
4133: AHL_DEBUG_PUB.debug( 'actual_end_date:' || p_x_mr_rec.actual_end_date );
4134: AHL_DEBUG_PUB.debug( 'qa_plan_id:' || p_x_mr_rec.qa_plan_id );
4135: AHL_DEBUG_PUB.debug( 'qa_collection_id:' || p_x_mr_rec.qa_collection_id );
4136: END IF;
4129: AHL_DEBUG_PUB.debug( 'incident_id:' || p_x_mr_rec.incident_id );
4130: AHL_DEBUG_PUB.debug( 'mr_title:' || p_x_mr_rec.mr_title );
4131: AHL_DEBUG_PUB.debug( 'ue_status_code:' || p_x_mr_rec.ue_status_code );
4132: AHL_DEBUG_PUB.debug( 'qa_inspection_type:' || p_x_mr_rec.qa_inspection_type );
4133: AHL_DEBUG_PUB.debug( 'actual_end_date:' || p_x_mr_rec.actual_end_date );
4134: AHL_DEBUG_PUB.debug( 'qa_plan_id:' || p_x_mr_rec.qa_plan_id );
4135: AHL_DEBUG_PUB.debug( 'qa_collection_id:' || p_x_mr_rec.qa_collection_id );
4136: END IF;
4137:
4130: AHL_DEBUG_PUB.debug( 'mr_title:' || p_x_mr_rec.mr_title );
4131: AHL_DEBUG_PUB.debug( 'ue_status_code:' || p_x_mr_rec.ue_status_code );
4132: AHL_DEBUG_PUB.debug( 'qa_inspection_type:' || p_x_mr_rec.qa_inspection_type );
4133: AHL_DEBUG_PUB.debug( 'actual_end_date:' || p_x_mr_rec.actual_end_date );
4134: AHL_DEBUG_PUB.debug( 'qa_plan_id:' || p_x_mr_rec.qa_plan_id );
4135: AHL_DEBUG_PUB.debug( 'qa_collection_id:' || p_x_mr_rec.qa_collection_id );
4136: END IF;
4137:
4138: -- Validate the status to check if the MR/SR status is valid for Sign off
4131: AHL_DEBUG_PUB.debug( 'ue_status_code:' || p_x_mr_rec.ue_status_code );
4132: AHL_DEBUG_PUB.debug( 'qa_inspection_type:' || p_x_mr_rec.qa_inspection_type );
4133: AHL_DEBUG_PUB.debug( 'actual_end_date:' || p_x_mr_rec.actual_end_date );
4134: AHL_DEBUG_PUB.debug( 'qa_plan_id:' || p_x_mr_rec.qa_plan_id );
4135: AHL_DEBUG_PUB.debug( 'qa_collection_id:' || p_x_mr_rec.qa_collection_id );
4136: END IF;
4137:
4138: -- Validate the status to check if the MR/SR status is valid for Sign off
4139: l_return_status :=
4181: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4182: END IF;
4183:
4184: IF ( G_DEBUG = 'Y' ) THEN
4185: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || 'Getting Reset Counters' );
4186: END IF;
4187:
4188: -- Get the Reset Counter Readings for all Counters associted with
4189: -- the MR and the Item Instance.
4206:
4207: IF ( l_reset_counter_tbl IS NOT NULL AND l_reset_counter_tbl.COUNT > 0 ) THEN
4208:
4209: IF ( G_DEBUG = 'Y' ) THEN
4210: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || 'Resetting Counters' );
4211: END IF;
4212:
4213: -- Reset all the Counters with Reset Values specified in FMP
4214: l_return_status :=
4235:
4236: END IF;
4237:
4238: IF ( G_DEBUG = 'Y' ) THEN
4239: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || 'Getting CP Counters' );
4240: END IF;
4241:
4242: -- Get the Current Counter Readings for all Counters associted with
4243: -- the Item Instance.
4261: IF ( l_counter_tbl.COUNT > 0 ) THEN
4262: */
4263:
4264: IF ( G_DEBUG = 'Y' ) THEN
4265: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || 'Updating UMP' );
4266: END IF;
4267:
4268: -- Record Accomplishment in UMP for UMP MR Instance
4269: l_return_status :=
4384:
4385: -- Abort for Unexpected errors, but, continue for other errors.
4386: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4387: IF ( G_DEBUG = 'Y' ) THEN
4388: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
4389: ||' : Could Not Complete Parent MR Instance with UE : '
4390: ||TO_CHAR( parent_csr.unit_effectivity_id )
4391: || ' associated to UE : ' || TO_CHAR( p_x_mr_rec.unit_effectivity_id )
4392: || ' because of...' );
4398: p_data => l_msg_data,
4399: p_msg_index_out => l_msg_index_out
4400: );
4401:
4402: AHL_DEBUG_PUB.debug(' Error : ' || I || ': ' || l_msg_data);
4403: END LOOP;
4404: END IF;
4405:
4406: -- Initialize message list since errors are not reported
4414: x_msg_count := l_msg_count;
4415: RETURN;
4416: ELSE
4417: IF ( G_DEBUG = 'Y' ) THEN
4418: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Completed MR Instance with UE : ' || TO_CHAR( parent_csr.unit_effectivity_id ) || ' associated to UE : ' || TO_CHAR( p_x_mr_rec.unit_effectivity_id ) || ' Successfuly...' );
4419: END IF;
4420:
4421: -- Re-establish the save point because the complete_mr_instance Commits
4422: IF FND_API.to_boolean( p_commit ) THEN
4432: END IF;
4433:
4434: -- Disable debug (if enabled)
4435: IF ( G_DEBUG = 'Y' ) THEN
4436: AHL_DEBUG_PUB.disable_debug;
4437: END IF;
4438:
4439: EXCEPTION
4440:
4448: p_data => x_msg_data
4449: );
4450:
4451: IF ( G_DEBUG = 'Y' ) THEN
4452: AHL_DEBUG_PUB.disable_debug;
4453: END IF;
4454:
4455: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4456: ROLLBACK TO complete_mr_instance_PVT;
4462: p_data => x_msg_data
4463: );
4464:
4465: IF ( G_DEBUG = 'Y' ) THEN
4466: AHL_DEBUG_PUB.disable_debug;
4467: END IF;
4468:
4469: WHEN OTHERS THEN
4470: ROLLBACK TO complete_mr_instance_PVT;
4485: p_data => x_msg_data
4486: );
4487:
4488: IF ( G_DEBUG = 'Y' ) THEN
4489: AHL_DEBUG_PUB.disable_debug;
4490: END IF;
4491: END complete_mr_instance;
4492:
4493: -- Function added in 11.5.10 for getting the status of an MR instance.
5292: l_ctr := l_ctr + 1;
5293: l_workorder_tbl(l_ctr).parent_object_id := wo_csr.parent_object_id;
5294:
5295: IF ( G_DEBUG = 'Y' ) THEN
5296: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Getting ' || l_ctr || ' th WO of Visit - ' || wo_csr.workorder_name );
5297: END IF;
5298:
5299: -- Check if Incomplete Master Workorder
5300: IF ( wo_csr.master_workorder_flag = 'Y' AND
5303: wo_csr.status_code <> G_JOB_STATUS_CLOSED AND
5304: wo_csr.status_code <> G_JOB_STATUS_CANCELLED ) THEN
5305:
5306: IF ( G_DEBUG = 'Y' ) THEN
5307: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : This is a Master Workorder ' );
5308: END IF;
5309:
5310: -- Since Master Workorders are obtained after the child Workorders
5311: -- It is enough to iterate through these child Workorders obtained
5357: END IF;
5358: */--End ER # 4757222
5359:
5360: IF ( G_DEBUG = 'Y' ) THEN
5361: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
5362: || ' : Calculated ACtual Start Date - '
5363: || to_char( l_workorder_tbl(l_ctr).actual_start_date, 'DD-MON-YYYY HH24:MI' )
5364: || ' Calculated Actual End Date - '
5365: || to_char( l_workorder_tbl(l_ctr).actual_end_date, 'DD-MON-YYYY HH24:MI' ) );
5391: END IF;
5392: END IF;
5393:
5394: IF ( G_DEBUG = 'Y' ) THEN
5395: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Calculated ACtual Start Date - ' ||
5396: to_char( l_workorder_tbl(l_ctr).actual_start_date, 'DD-MON-YYYY HH24:MI' ) ||
5397: ' Calculated Actual End Date - ' || to_char( l_workorder_tbl(l_ctr).actual_end_date, 'DD-MON-YYYY HH24:MI' ) );
5398: END IF;
5399: --pekambar added for ER 9274897 and 9504544 -- End
5421:
5422: ELSE
5423:
5424: IF ( G_DEBUG = 'Y' ) THEN
5425: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Storing ACtual Start Date of Child - ' || to_char( wo_csr.actual_start_date, 'DD-MON-YYYY HH24:MI' ) || ' Actual End Date' || to_char( wo_csr.actual_end_date, 'DD-MON-YYYY HH24:MI' ) );
5426: END IF;
5427:
5428: -- Store the Child Wo or Complete Master Wo Actual Dates as it is
5429: l_workorder_tbl(l_ctr).actual_start_date := wo_csr.actual_start_date;
5455: END IF;
5456: END LOOP;
5457:
5458: IF ( G_DEBUG = 'Y' ) THEN
5459: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : l_min - ' || to_char( l_min, 'DD-MON-YYYY HH24:MI:SS' ) || ' l_max' || to_char( l_max, 'DD-MON-YYYY HH24:MI:SS' ) );
5460: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : p_actual_start_date - ' || to_char( p_actual_start_date, 'DD-MON-YYYY HH24:MI:SS' ) || ' p_actual_end_date' || to_char( p_actual_end_date, 'DD-MON-YYYY HH24:MI:SS' ) );
5461: END IF;
5462:
5463: --pekambar added for ER 9274897 and 9504544 -- Start
5456: END LOOP;
5457:
5458: IF ( G_DEBUG = 'Y' ) THEN
5459: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : l_min - ' || to_char( l_min, 'DD-MON-YYYY HH24:MI:SS' ) || ' l_max' || to_char( l_max, 'DD-MON-YYYY HH24:MI:SS' ) );
5460: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : p_actual_start_date - ' || to_char( p_actual_start_date, 'DD-MON-YYYY HH24:MI:SS' ) || ' p_actual_end_date' || to_char( p_actual_end_date, 'DD-MON-YYYY HH24:MI:SS' ) );
5461: END IF;
5462:
5463: --pekambar added for ER 9274897 and 9504544 -- Start
5464: -- If Overwrite workorders Flag is Checked then Update Master workorder with
5575: l_api_name VARCHAR2(30) := 'complete_visit_mr_wos';
5576: BEGIN
5577:
5578: IF ( G_DEBUG = 'Y' ) THEN
5579: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Getting Visit Dependencies' );
5580: END IF;
5581:
5582: -- Get all the completion dependencies in a Visit
5583: FOR parent_csr IN get_visit_dependencies( p_wip_entity_id ) LOOP
5591: -- There are no Completion Dependencies.
5592: IF ( l_parent_wo_tbl.COUNT = 0 ) THEN
5593:
5594: IF ( G_DEBUG = 'Y' ) THEN
5595: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Completion Dependencies do not exist' );
5596: END IF;
5597:
5598: /* Complete all Workorders
5599: * MANESING, 14-May-2012, use WHILE loop (not FOR) to iterate over table p_x_workorder_tbl as
5606: -- Master Workorders are completed automatically
5607: IF ( p_x_workorder_tbl(indx).master_workorder_flag = 'N' ) THEN
5608:
5609: IF ( G_DEBUG = 'Y' ) THEN
5610: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Completing Workorder - ' || p_x_workorder_tbl(indx).workorder_name || ' ID - ' || p_x_workorder_tbl(indx).workorder_id );
5611: END IF;
5612:
5613: complete_workorder
5614: (
5636:
5637: ELSE
5638:
5639: IF ( G_DEBUG = 'Y' ) THEN
5640: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Completion Dependencies exist' );
5641: END IF;
5642:
5643: -- Since Completion dependencies exist multiple iterations may be
5644: -- required for completing the Visit or MR Workorders
5645: -- Break out when all the Wos of the Visit or MR are complete
5646: WHILE TRUE LOOP
5647:
5648: IF ( G_DEBUG = 'Y' ) THEN
5649: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Begin Iteration - ' || l_iteration_ctr );
5650: END IF;
5651:
5652: -- Increment Iteration counter
5653: l_iteration_ctr := l_iteration_ctr + 1;
5665: IF ( p_x_workorder_tbl(indx).master_workorder_flag = 'N' AND
5666: NVL(p_x_workorder_tbl(indx).status_code,'X') <> NVL(G_JOB_STATUS_COMPLETE,'Y') ) THEN
5667:
5668: IF ( G_DEBUG = 'Y' ) THEN
5669: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Need to Complete WO - ' || p_x_workorder_tbl(indx).workorder_name );
5670: END IF;
5671:
5672: -- Reset for Every Iteration of a Child Workorder
5673: l_parent_wo_cmpl := TRUE;
5722: -- Break out of the iterate parents loop
5723: IF ( l_parent_wo_cmpl = FALSE ) THEN
5724:
5725: IF ( G_DEBUG = 'Y' ) THEN
5726: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Workorder cannot be completed in this iteration because one or more parents are not complete ' );
5727: END IF;
5728:
5729: EXIT;
5730: END IF;
5734: -- All the Parents of a child WO are complete
5735: IF ( l_parent_wo_cmpl = TRUE ) THEN
5736:
5737: IF ( G_DEBUG = 'Y' ) THEN
5738: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Workorder can be completed in this iteration because all parents are complete ' );
5739: END IF;
5740:
5741: -- Complete the Child Workorder
5742: complete_workorder
5779: -- If all the Wos of the Visit or MR are complete in this iteration
5780: -- Break out of the outermost loop
5781: IF ( l_all_wos_cmpl = TRUE ) THEN
5782: IF ( G_DEBUG = 'Y' ) THEN
5783: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : All Workorders are completed in this iteration ' );
5784: END IF;
5785:
5786: EXIT;
5787: END IF;
6213: BEGIN
6214:
6215: -- Enable Debug (optional)
6216: IF ( G_DEBUG = 'Y' ) THEN
6217: AHL_DEBUG_PUB.enable_debug;
6218: END IF;
6219:
6220: -- Initialize API return status to success
6221: x_return_status := FND_API.G_RET_STS_SUCCESS;
6228: FND_MSG_PUB.initialize;
6229: END IF;
6230:
6231: IF ( G_DEBUG = 'Y' ) THEN
6232: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Before Validating Inputs' );
6233: END IF;
6234:
6235: -- Validate all the inputs of the API
6236: l_return_status :=
6245: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6246: END IF;
6247:
6248: IF ( G_DEBUG = 'Y' ) THEN
6249: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.unit_effectivity_id - ' || p_signoff_mr_rec.unit_effectivity_id );
6250: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.object_version_number - ' || p_signoff_mr_rec.object_version_number );
6251: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.signoff_child_mrs_flag - ' || p_signoff_mr_rec.signoff_child_mrs_flag );
6252: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.complete_job_ops_flag - ' || p_signoff_mr_rec.complete_job_ops_flag );
6253: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.default_actual_dates_flag - ' || p_signoff_mr_rec.default_actual_dates_flag );
6246: END IF;
6247:
6248: IF ( G_DEBUG = 'Y' ) THEN
6249: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.unit_effectivity_id - ' || p_signoff_mr_rec.unit_effectivity_id );
6250: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.object_version_number - ' || p_signoff_mr_rec.object_version_number );
6251: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.signoff_child_mrs_flag - ' || p_signoff_mr_rec.signoff_child_mrs_flag );
6252: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.complete_job_ops_flag - ' || p_signoff_mr_rec.complete_job_ops_flag );
6253: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.default_actual_dates_flag - ' || p_signoff_mr_rec.default_actual_dates_flag );
6254: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.actual_start_date - ' || p_signoff_mr_rec.actual_start_date );
6247:
6248: IF ( G_DEBUG = 'Y' ) THEN
6249: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.unit_effectivity_id - ' || p_signoff_mr_rec.unit_effectivity_id );
6250: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.object_version_number - ' || p_signoff_mr_rec.object_version_number );
6251: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.signoff_child_mrs_flag - ' || p_signoff_mr_rec.signoff_child_mrs_flag );
6252: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.complete_job_ops_flag - ' || p_signoff_mr_rec.complete_job_ops_flag );
6253: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.default_actual_dates_flag - ' || p_signoff_mr_rec.default_actual_dates_flag );
6254: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.actual_start_date - ' || p_signoff_mr_rec.actual_start_date );
6255: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.actual_end_date - ' || p_signoff_mr_rec.actual_end_date );
6248: IF ( G_DEBUG = 'Y' ) THEN
6249: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.unit_effectivity_id - ' || p_signoff_mr_rec.unit_effectivity_id );
6250: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.object_version_number - ' || p_signoff_mr_rec.object_version_number );
6251: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.signoff_child_mrs_flag - ' || p_signoff_mr_rec.signoff_child_mrs_flag );
6252: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.complete_job_ops_flag - ' || p_signoff_mr_rec.complete_job_ops_flag );
6253: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.default_actual_dates_flag - ' || p_signoff_mr_rec.default_actual_dates_flag );
6254: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.actual_start_date - ' || p_signoff_mr_rec.actual_start_date );
6255: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.actual_end_date - ' || p_signoff_mr_rec.actual_end_date );
6256: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.transact_resource_flag - ' || p_signoff_mr_rec.transact_resource_flag );
6249: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.unit_effectivity_id - ' || p_signoff_mr_rec.unit_effectivity_id );
6250: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.object_version_number - ' || p_signoff_mr_rec.object_version_number );
6251: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.signoff_child_mrs_flag - ' || p_signoff_mr_rec.signoff_child_mrs_flag );
6252: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.complete_job_ops_flag - ' || p_signoff_mr_rec.complete_job_ops_flag );
6253: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.default_actual_dates_flag - ' || p_signoff_mr_rec.default_actual_dates_flag );
6254: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.actual_start_date - ' || p_signoff_mr_rec.actual_start_date );
6255: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.actual_end_date - ' || p_signoff_mr_rec.actual_end_date );
6256: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.transact_resource_flag - ' || p_signoff_mr_rec.transact_resource_flag );
6257: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.employee_number - ' || p_signoff_mr_rec.employee_number );
6250: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.object_version_number - ' || p_signoff_mr_rec.object_version_number );
6251: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.signoff_child_mrs_flag - ' || p_signoff_mr_rec.signoff_child_mrs_flag );
6252: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.complete_job_ops_flag - ' || p_signoff_mr_rec.complete_job_ops_flag );
6253: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.default_actual_dates_flag - ' || p_signoff_mr_rec.default_actual_dates_flag );
6254: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.actual_start_date - ' || p_signoff_mr_rec.actual_start_date );
6255: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.actual_end_date - ' || p_signoff_mr_rec.actual_end_date );
6256: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.transact_resource_flag - ' || p_signoff_mr_rec.transact_resource_flag );
6257: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.employee_number - ' || p_signoff_mr_rec.employee_number );
6258: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.serial_number - ' || p_signoff_mr_rec.serial_number );
6251: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.signoff_child_mrs_flag - ' || p_signoff_mr_rec.signoff_child_mrs_flag );
6252: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.complete_job_ops_flag - ' || p_signoff_mr_rec.complete_job_ops_flag );
6253: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.default_actual_dates_flag - ' || p_signoff_mr_rec.default_actual_dates_flag );
6254: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.actual_start_date - ' || p_signoff_mr_rec.actual_start_date );
6255: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.actual_end_date - ' || p_signoff_mr_rec.actual_end_date );
6256: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.transact_resource_flag - ' || p_signoff_mr_rec.transact_resource_flag );
6257: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.employee_number - ' || p_signoff_mr_rec.employee_number );
6258: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.serial_number - ' || p_signoff_mr_rec.serial_number );
6259: END IF;
6252: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.complete_job_ops_flag - ' || p_signoff_mr_rec.complete_job_ops_flag );
6253: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.default_actual_dates_flag - ' || p_signoff_mr_rec.default_actual_dates_flag );
6254: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.actual_start_date - ' || p_signoff_mr_rec.actual_start_date );
6255: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.actual_end_date - ' || p_signoff_mr_rec.actual_end_date );
6256: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.transact_resource_flag - ' || p_signoff_mr_rec.transact_resource_flag );
6257: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.employee_number - ' || p_signoff_mr_rec.employee_number );
6258: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.serial_number - ' || p_signoff_mr_rec.serial_number );
6259: END IF;
6260:
6253: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.default_actual_dates_flag - ' || p_signoff_mr_rec.default_actual_dates_flag );
6254: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.actual_start_date - ' || p_signoff_mr_rec.actual_start_date );
6255: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.actual_end_date - ' || p_signoff_mr_rec.actual_end_date );
6256: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.transact_resource_flag - ' || p_signoff_mr_rec.transact_resource_flag );
6257: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.employee_number - ' || p_signoff_mr_rec.employee_number );
6258: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.serial_number - ' || p_signoff_mr_rec.serial_number );
6259: END IF;
6260:
6261: --pekambar added the code for ER 9274897 and 9504544
6254: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.actual_start_date - ' || p_signoff_mr_rec.actual_start_date );
6255: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.actual_end_date - ' || p_signoff_mr_rec.actual_end_date );
6256: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.transact_resource_flag - ' || p_signoff_mr_rec.transact_resource_flag );
6257: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.employee_number - ' || p_signoff_mr_rec.employee_number );
6258: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.serial_number - ' || p_signoff_mr_rec.serial_number );
6259: END IF;
6260:
6261: --pekambar added the code for ER 9274897 and 9504544
6262: --IF MR is already signed off new api update_signoff_dates() will be called.
6261: --pekambar added the code for ER 9274897 and 9504544
6262: --IF MR is already signed off new api update_signoff_dates() will be called.
6263: l_ue_status_code := get_mr_status( p_signoff_mr_rec.unit_effectivity_id);
6264: IF ( G_DEBUG = 'Y' ) THEN
6265: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || 'MR Status = '||l_ue_status_code );
6266: END IF;
6267:
6268: IF ( l_ue_status_code = G_MR_STATUS_SIGNED_OFF )
6269: THEN
6285: p_signoff_mr_rec => p_signoff_mr_rec
6286: );
6287:
6288: IF ( G_DEBUG = 'Y' ) THEN
6289: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' After Calling update_signoff_dates, Status = '||l_return_status );
6290: END IF;
6291:
6292: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
6293: RAISE FND_API.G_EXC_ERROR;
6307: p_signoff_mr_rec.complete_job_ops_flag = 'N' AND
6308: p_signoff_mr_rec.transact_resource_flag = 'N' ) THEN
6309:
6310: IF ( G_DEBUG = 'Y' ) THEN
6311: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Not Top Down Signoff ' );
6312: END IF;
6313:
6314: l_ctr := l_ctr + 1;
6315: l_child_mr_tbl(l_ctr).unit_effectivity_id := p_signoff_mr_rec.unit_effectivity_id;
6329: p_x_mr_rec => l_child_mr_tbl(l_ctr)
6330: );
6331:
6332: IF ( G_DEBUG = 'Y' ) THEN
6333: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' After Calling complete_mr_instance, Status = '||l_return_status );
6334: END IF;
6335:
6336: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
6337: RAISE FND_API.G_EXC_ERROR;
6362: l_workorder_tbl(l_ctr).actual_end_date := l_mr_rec.actual_end_date;
6363:
6364:
6365: IF ( G_DEBUG = 'Y' ) THEN
6366: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' Before GOTO counter_qa_results_label' );
6367: END IF;
6368:
6369: -- GOTO
6370: GOTO counter_qa_results_label;
6371:
6372: END IF;
6373:
6374: IF ( G_DEBUG = 'Y' ) THEN
6375: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Before Processing UE' );
6376: END IF;
6377:
6378: -- Get the UE Details
6379: OPEN get_ue_details( p_signoff_mr_rec.unit_effectivity_id );
6446: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6447: END IF;
6448:
6449: IF ( G_DEBUG = 'Y' ) THEN
6450: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Before Processing Child UEs' );
6451: END IF;
6452:
6453: -- Balaji added the following loop for the BAE bug.
6454: -- The cursor get_child_ue_details doesnt UEs at the leaf node first
6473: END IF;
6474: END LOOP;
6475:
6476: IF ( G_DEBUG = 'Y' ) THEN
6477: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Child UE Table Size '||l_child_ue_tbl.COUNT );
6478: END IF;
6479: -- Get the Child UE Details
6480: IF l_child_ue_tbl.COUNT > 0 THEN
6481:
6482: -- Reverse the order of signing off the Ues. First child UE then its parent
6483: -- etc.,Balaji modified the code for BAE bug.
6484: FOR l_ue_count IN REVERSE l_child_ue_tbl.FIRST..l_child_ue_tbl.LAST LOOP
6485: IF ( G_DEBUG = 'Y' ) THEN
6486: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : l_child_ue_tbl(l_ue_count).title '||l_child_ue_tbl(l_ue_count).title );
6487: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : ump_status_code '||l_child_ue_tbl(l_ue_count).ump_status_code );
6488: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : l_child_ue_tbl(l_ue_count).qa_collection_id '||l_child_ue_tbl(l_ue_count).qa_collection_id );
6489: END IF;
6490: -- If top down signoff is required for the Child UEs
6483: -- etc.,Balaji modified the code for BAE bug.
6484: FOR l_ue_count IN REVERSE l_child_ue_tbl.FIRST..l_child_ue_tbl.LAST LOOP
6485: IF ( G_DEBUG = 'Y' ) THEN
6486: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : l_child_ue_tbl(l_ue_count).title '||l_child_ue_tbl(l_ue_count).title );
6487: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : ump_status_code '||l_child_ue_tbl(l_ue_count).ump_status_code );
6488: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : l_child_ue_tbl(l_ue_count).qa_collection_id '||l_child_ue_tbl(l_ue_count).qa_collection_id );
6489: END IF;
6490: -- If top down signoff is required for the Child UEs
6491: IF ( p_signoff_mr_rec.signoff_child_mrs_flag = 'Y' ) THEN
6484: FOR l_ue_count IN REVERSE l_child_ue_tbl.FIRST..l_child_ue_tbl.LAST LOOP
6485: IF ( G_DEBUG = 'Y' ) THEN
6486: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : l_child_ue_tbl(l_ue_count).title '||l_child_ue_tbl(l_ue_count).title );
6487: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : ump_status_code '||l_child_ue_tbl(l_ue_count).ump_status_code );
6488: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : l_child_ue_tbl(l_ue_count).qa_collection_id '||l_child_ue_tbl(l_ue_count).qa_collection_id );
6489: END IF;
6490: -- If top down signoff is required for the Child UEs
6491: IF ( p_signoff_mr_rec.signoff_child_mrs_flag = 'Y' ) THEN
6492:
6540: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6541: END IF;
6542:
6543: IF ( G_DEBUG = 'Y' ) THEN
6544: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : l_ue_status_code '||l_ue_status_code );
6545: END IF;
6546:
6547: l_ctr := l_ctr + 1;
6548: l_child_mr_tbl(l_ctr).unit_effectivity_id := l_child_ue_tbl(l_ue_count).unit_effectivity_id;
6583:
6584: l_ctr := 0;
6585:
6586: IF ( G_DEBUG = 'Y' ) THEN
6587: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Before Processing UE Workorders' );
6588: END IF;
6589:
6590: -- Get all the Workorders for the UE
6591: FOR wo_csr IN get_ue_workorders( l_mr_rec.wip_entity_id ) LOOP
6754: l_workorder_tbl(l_ctr).actual_end_date := wo_csr.actual_end_date;
6755: END IF;
6756:
6757: IF ( G_DEBUG = 'Y' ) THEN
6758: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
6759: || ' : Wo Name - ' || l_workorder_tbl(l_ctr).workorder_name
6760: || ' WO ID - ' || l_workorder_tbl(l_ctr).workorder_id
6761: || ' Actual Start Date - ' || l_workorder_tbl(l_ctr).actual_start_date
6762: || ' Actual End Date - ' || l_workorder_tbl(l_ctr).actual_end_date );
6920: */
6921: l_ctr := 0;
6922:
6923: IF ( G_DEBUG = 'Y' ) THEN
6924: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
6925: || ' : Before Processing Resource Transactions' );
6926: END IF;
6927:
6928: -- Check if Resources need to transacted
7031:
7032: END IF; -- Check Transact Resource Flag
7033:
7034: IF ( G_DEBUG = 'Y' ) THEN
7035: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
7036: || ' : Before Calling resource request table:' ||l_resource_req_tbl.COUNT);
7037: END IF;
7038:
7039: IF ( l_resource_req_tbl.COUNT > 0 ) THEN
7114: -- Subtract the consumed quantity from the required quantity
7115: l_resource_req_tbl(i).transaction_quantity := l_resource_req_tbl(i).usage_rate_or_amount - l_txn_qty - l_pending_txn_qty;
7116:
7117: IF ( G_DEBUG = 'Y' ) THEN
7118: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
7119: || ' :l_resource_req_tbl(i).usage_rate_or_amount--> :' ||l_resource_req_tbl(i).usage_rate_or_amount);
7120: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
7121: || ' :l_txn_qty--> :' ||l_txn_qty);
7122: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
7116:
7117: IF ( G_DEBUG = 'Y' ) THEN
7118: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
7119: || ' :l_resource_req_tbl(i).usage_rate_or_amount--> :' ||l_resource_req_tbl(i).usage_rate_or_amount);
7120: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
7121: || ' :l_txn_qty--> :' ||l_txn_qty);
7122: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
7123: || ' :l_txn_qty--> :' ||l_pending_txn_qty);
7124: END IF;
7118: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
7119: || ' :l_resource_req_tbl(i).usage_rate_or_amount--> :' ||l_resource_req_tbl(i).usage_rate_or_amount);
7120: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
7121: || ' :l_txn_qty--> :' ||l_txn_qty);
7122: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
7123: || ' :l_txn_qty--> :' ||l_pending_txn_qty);
7124: END IF;
7125:
7126: -- If the required qty is greater than zero then txn needs to be performed
7168:
7169: END LOOP; -- Iterate Requirements
7170:
7171: IF ( G_DEBUG = 'Y' ) THEN
7172: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
7173: || ' : size of l_prd_resrc_txn_tbl is:' ||l_prd_resrc_txn_tbl.COUNT);
7174: END IF;
7175:
7176: --IF ( l_res_txn_tbl.COUNT > 0 ) THEN
7217:
7218: l_ctr := 0;
7219:
7220: IF ( G_DEBUG = 'Y' ) THEN
7221: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Before Processing UE Operations' );
7222: END IF;
7223:
7224: -- Get all the Workorder Operations for the UE
7225: FOR op_csr IN get_ue_operations( l_mr_rec.wip_entity_id ) LOOP
7354: END IF;
7355: /*End ER # 4757222*/
7356: /* Bug # 4955278 - end */
7357: IF ( G_DEBUG = 'Y' ) THEN
7358: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
7359: || ' : Wo Name - ' || l_operation_tbl(l_ctr).workorder_name
7360: || ' OP Seq - ' || op_csr.operation_seq_num || ' WO OP ID - '
7361: || l_operation_tbl(l_ctr).workorder_operation_id || ' Actual Start Date - '
7362: || TO_CHAR(l_operation_tbl(l_ctr).actual_start_date,'DD-MON-YYYY HH24:MI:SS') || ' Actual End Date - '
7399: FOR l_unassoc_ue_op_rec IN get_unassoc_ue_op( l_mr_rec.wip_entity_id )
7400: LOOP
7401:
7402: IF ( G_DEBUG = 'Y' ) THEN
7403: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
7404: || ' : Wo op id - ' ||l_unassoc_ue_op_rec.workorder_operation_id);
7405: END IF;
7406:
7407: IF ( p_signoff_mr_rec.complete_job_ops_flag = 'Y' ) THEN
7531: END IF;
7532: /* Bug # 4955278 - end */
7533:
7534: IF ( G_DEBUG = 'Y' ) THEN
7535: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
7536: || ' : Wo Name - ' || l_operation_tbl(l_ctr).workorder_name
7537: || ' OP Seq - ' || l_unassoc_ue_op_rec.operation_seq_num || ' WO OP ID - '
7538: || l_operation_tbl(l_ctr).workorder_operation_id || ' Actual Start Date - '
7539: || l_operation_tbl(l_ctr).actual_start_date || ' Actual End Date - '
7558: END IF; -- IF l_ctr = 0 THEN
7559: -- end of changes for bug 4087041
7560:
7561: IF ( G_DEBUG = 'Y' ) THEN
7562: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
7563: || ' : Before Updating Operations. Total - ' || l_operation_tbl.COUNT );
7564: END IF;
7565:
7566: -- R12
7592: END IF;
7593:
7594: --Balaji-debug
7595: IF ( G_DEBUG = 'Y' ) THEN
7596: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
7597: || ' : Actual start date - ' || to_char(l_operation_tbl(i).actual_start_date,'DD-MM-YYYY HH24:MI'));
7598: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
7599: || ' : Actual end date - ' || to_char(l_operation_tbl(i).actual_end_date,'DD-MM-YYYY HH24:MI'));
7600: END IF;
7594: --Balaji-debug
7595: IF ( G_DEBUG = 'Y' ) THEN
7596: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
7597: || ' : Actual start date - ' || to_char(l_operation_tbl(i).actual_start_date,'DD-MM-YYYY HH24:MI'));
7598: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
7599: || ' : Actual end date - ' || to_char(l_operation_tbl(i).actual_end_date,'DD-MM-YYYY HH24:MI'));
7600: END IF;
7601:
7602: l_operation_tbl(i).object_version_number := l_operation_tbl(i).object_version_number + 1;
7604: END IF;
7605: END IF;
7606:
7607: IF ( G_DEBUG = 'Y' ) THEN
7608: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
7609: || ' : Before Updating Workorders. Total - ' || l_workorder_tbl.COUNT );
7610: END IF;
7611:
7612:
7610: END IF;
7611:
7612:
7613: IF ( G_DEBUG = 'Y' ) THEN
7614: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Before Completing Operations' );
7615: END IF;
7616:
7617: -- Invoke Complete Operation API to Complete All Operations
7618: IF ( l_operation_tbl.COUNT > 0 ) THEN
7618: IF ( l_operation_tbl.COUNT > 0 ) THEN
7619: FOR i IN l_operation_tbl.FIRST..l_operation_tbl.LAST LOOP
7620:
7621: IF ( G_DEBUG = 'Y' ) THEN
7622: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
7623: || ' : Before Completing Operation - ' || l_operation_tbl(i).workorder_operation_id );
7624: END IF;
7625:
7626: -- R12
7760: l_actual_start_date := p_signoff_mr_rec.actual_start_date;
7761: l_actual_end_date := p_signoff_mr_rec.actual_end_date;
7762: END IF;
7763: IF ( G_DEBUG = 'Y' ) THEN
7764: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Before Updating Master Workorders' );
7765: END IF;
7766:
7767: IF ( G_DEBUG = 'Y' ) THEN
7768: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : l_mr_rec.visit_wip_entity_id::'|| l_mr_rec.visit_wip_entity_id );
7764: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Before Updating Master Workorders' );
7765: END IF;
7766:
7767: IF ( G_DEBUG = 'Y' ) THEN
7768: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : l_mr_rec.visit_wip_entity_id::'|| l_mr_rec.visit_wip_entity_id );
7769: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : l_mr_rec.wip_entity_id::'|| l_mr_rec.wip_entity_id );
7770: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : l_actual_start_date - ' || to_char( l_actual_start_date, 'DD-MON-YYYY HH24:MI:SS' ) || ' l_actual_end_date' || to_char( l_actual_end_date, 'DD-MON-YYYY HH24:MI:SS' ) );
7771: END IF;
7772:
7765: END IF;
7766:
7767: IF ( G_DEBUG = 'Y' ) THEN
7768: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : l_mr_rec.visit_wip_entity_id::'|| l_mr_rec.visit_wip_entity_id );
7769: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : l_mr_rec.wip_entity_id::'|| l_mr_rec.wip_entity_id );
7770: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : l_actual_start_date - ' || to_char( l_actual_start_date, 'DD-MON-YYYY HH24:MI:SS' ) || ' l_actual_end_date' || to_char( l_actual_end_date, 'DD-MON-YYYY HH24:MI:SS' ) );
7771: END IF;
7772:
7773: -- Update the Actual Dates for Master Workorders in the Visit
7766:
7767: IF ( G_DEBUG = 'Y' ) THEN
7768: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : l_mr_rec.visit_wip_entity_id::'|| l_mr_rec.visit_wip_entity_id );
7769: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : l_mr_rec.wip_entity_id::'|| l_mr_rec.wip_entity_id );
7770: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : l_actual_start_date - ' || to_char( l_actual_start_date, 'DD-MON-YYYY HH24:MI:SS' ) || ' l_actual_end_date' || to_char( l_actual_end_date, 'DD-MON-YYYY HH24:MI:SS' ) );
7771: END IF;
7772:
7773: -- Update the Actual Dates for Master Workorders in the Visit
7774: l_return_status :=
7792: END IF;
7793:
7794:
7795: IF ( G_DEBUG = 'Y' ) THEN
7796: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Before Completing WOs' );
7797: END IF;
7798:
7799: -- Complete All MR Workorders in the Order of Completion Dependencies
7800: IF ( l_workorder_tbl.COUNT > 0 ) THEN
7813:
7814: END IF;
7815:
7816: IF ( G_DEBUG = 'Y' ) THEN
7817: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Before Completing UEs' );
7818: END IF;
7819:
7820: -- Invoke Complete MR Instance API to Complete All UEs
7821: IF ( l_child_mr_tbl.COUNT > 0 ) THEN
7845: RAISE FND_API.G_EXC_ERROR;
7846: END IF;
7847:
7848: IF ( G_DEBUG = 'Y' ) THEN
7849: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
7850: || ' : Before Completing MR - ' || l_child_mr_tbl(i).unit_effectivity_id );
7851: END IF;
7852:
7853: complete_mr_instance
7878: --JKJain, Bug 9250614, Define label
7879: <
7880:
7881: IF ( G_DEBUG = 'Y' ) THEN
7882: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Before Recording Counter Readings, COUNT = '||l_workorder_tbl.COUNT|| ' and Plan_ID = '|| G_CTR_READING_PLAN_ID );
7883: END IF;
7884:
7885: -- Record Counter Readings for all WOs
7886: IF ( l_workorder_tbl.COUNT > 0 AND
7937: --END IF;
7938: END IF;
7939:
7940: IF ( G_DEBUG = 'Y' ) THEN
7941: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
7942: || ' : Before Firing QA Actions for UE, WO and OP, Count = '||l_child_mr_tbl.COUNT );
7943: END IF;
7944:
7945: -- Fire QA Actions for all UEs
8036: END IF;
8037:
8038: -- Disable debug (if enabled)
8039: IF ( G_DEBUG = 'Y' ) THEN
8040: AHL_DEBUG_PUB.disable_debug;
8041: END IF;
8042:
8043: EXCEPTION
8044:
8052: p_data => x_msg_data
8053: );
8054:
8055: IF ( G_DEBUG = 'Y' ) THEN
8056: AHL_DEBUG_PUB.disable_debug;
8057: END IF;
8058:
8059: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8060: ROLLBACK TO signoff_mr_instance_PVT;
8066: p_data => x_msg_data
8067: );
8068:
8069: IF ( G_DEBUG = 'Y' ) THEN
8070: AHL_DEBUG_PUB.disable_debug;
8071: END IF;
8072:
8073: WHEN OTHERS THEN
8074: ROLLBACK TO signoff_mr_instance_PVT;
8089: p_data => x_msg_data
8090: );
8091:
8092: IF ( G_DEBUG = 'Y' ) THEN
8093: AHL_DEBUG_PUB.disable_debug;
8094: END IF;
8095: END signoff_mr_instance;
8096:
8097: PROCEDURE close_visit
8491: BEGIN
8492:
8493: -- Enable Debug (optional)
8494: IF ( G_DEBUG = 'Y' ) THEN
8495: AHL_DEBUG_PUB.enable_debug;
8496: END IF;
8497:
8498: -- Initialize API return status to success
8499: x_return_status := FND_API.G_RET_STS_SUCCESS;
8506: FND_MSG_PUB.initialize;
8507: END IF;
8508:
8509: IF ( G_DEBUG = 'Y' ) THEN
8510: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Before Validating Inputs' );
8511: END IF;
8512:
8513: -- Validate all the inputs of the API
8514: l_return_status :=
8523: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8524: END IF;
8525:
8526: IF ( G_DEBUG = 'Y' ) THEN
8527: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
8528: || ' : Inputs - p_close_visit_rec.visit_id - ' || p_close_visit_rec.visit_id );
8529: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
8530: || ' : Inputs - p_close_visit_rec.object_version_number - ' || p_close_visit_rec.object_version_number );
8531: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
8525:
8526: IF ( G_DEBUG = 'Y' ) THEN
8527: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
8528: || ' : Inputs - p_close_visit_rec.visit_id - ' || p_close_visit_rec.visit_id );
8529: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
8530: || ' : Inputs - p_close_visit_rec.object_version_number - ' || p_close_visit_rec.object_version_number );
8531: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
8532: || ' : Inputs - p_close_visit_rec.signoff_mrs_flag - ' || p_close_visit_rec.signoff_mrs_flag );
8533: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
8527: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
8528: || ' : Inputs - p_close_visit_rec.visit_id - ' || p_close_visit_rec.visit_id );
8529: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
8530: || ' : Inputs - p_close_visit_rec.object_version_number - ' || p_close_visit_rec.object_version_number );
8531: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
8532: || ' : Inputs - p_close_visit_rec.signoff_mrs_flag - ' || p_close_visit_rec.signoff_mrs_flag );
8533: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
8534: || ' : Inputs - p_close_visit_rec.complete_job_ops_flag - ' || p_close_visit_rec.complete_job_ops_flag );
8535: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
8529: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
8530: || ' : Inputs - p_close_visit_rec.object_version_number - ' || p_close_visit_rec.object_version_number );
8531: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
8532: || ' : Inputs - p_close_visit_rec.signoff_mrs_flag - ' || p_close_visit_rec.signoff_mrs_flag );
8533: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
8534: || ' : Inputs - p_close_visit_rec.complete_job_ops_flag - ' || p_close_visit_rec.complete_job_ops_flag );
8535: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
8536: || ' : Inputs - p_close_visit_rec.default_actual_dates_flag - '
8537: || p_close_visit_rec.default_actual_dates_flag );
8531: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
8532: || ' : Inputs - p_close_visit_rec.signoff_mrs_flag - ' || p_close_visit_rec.signoff_mrs_flag );
8533: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
8534: || ' : Inputs - p_close_visit_rec.complete_job_ops_flag - ' || p_close_visit_rec.complete_job_ops_flag );
8535: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
8536: || ' : Inputs - p_close_visit_rec.default_actual_dates_flag - '
8537: || p_close_visit_rec.default_actual_dates_flag );
8538: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
8539: || ' : Inputs - p_close_visit_rec.actual_start_date - ' || p_close_visit_rec.actual_start_date );
8534: || ' : Inputs - p_close_visit_rec.complete_job_ops_flag - ' || p_close_visit_rec.complete_job_ops_flag );
8535: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
8536: || ' : Inputs - p_close_visit_rec.default_actual_dates_flag - '
8537: || p_close_visit_rec.default_actual_dates_flag );
8538: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
8539: || ' : Inputs - p_close_visit_rec.actual_start_date - ' || p_close_visit_rec.actual_start_date );
8540: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
8541: || ' : Inputs - p_close_visit_rec.actual_end_date - ' || p_close_visit_rec.actual_end_date );
8542: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
8536: || ' : Inputs - p_close_visit_rec.default_actual_dates_flag - '
8537: || p_close_visit_rec.default_actual_dates_flag );
8538: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
8539: || ' : Inputs - p_close_visit_rec.actual_start_date - ' || p_close_visit_rec.actual_start_date );
8540: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
8541: || ' : Inputs - p_close_visit_rec.actual_end_date - ' || p_close_visit_rec.actual_end_date );
8542: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
8543: || ' : Inputs - p_close_visit_rec.transact_resource_flag - '
8544: || p_close_visit_rec.transact_resource_flag );
8538: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
8539: || ' : Inputs - p_close_visit_rec.actual_start_date - ' || p_close_visit_rec.actual_start_date );
8540: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
8541: || ' : Inputs - p_close_visit_rec.actual_end_date - ' || p_close_visit_rec.actual_end_date );
8542: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
8543: || ' : Inputs - p_close_visit_rec.transact_resource_flag - '
8544: || p_close_visit_rec.transact_resource_flag );
8545: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
8546: || ' : Inputs - p_close_visit_rec.wo_comp_dates_flag - '
8541: || ' : Inputs - p_close_visit_rec.actual_end_date - ' || p_close_visit_rec.actual_end_date );
8542: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
8543: || ' : Inputs - p_close_visit_rec.transact_resource_flag - '
8544: || p_close_visit_rec.transact_resource_flag );
8545: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
8546: || ' : Inputs - p_close_visit_rec.wo_comp_dates_flag - '
8547: || p_close_visit_rec.wo_comp_dates_flag );
8548: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
8549: || ' : Inputs - p_close_visit_rec.wo_childmr_dates_flag - '
8544: || p_close_visit_rec.transact_resource_flag );
8545: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
8546: || ' : Inputs - p_close_visit_rec.wo_comp_dates_flag - '
8547: || p_close_visit_rec.wo_comp_dates_flag );
8548: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
8549: || ' : Inputs - p_close_visit_rec.wo_childmr_dates_flag - '
8550: || p_close_visit_rec.wo_childmr_dates_flag );
8551: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
8552: || ' : Inputs - p_close_visit_rec.employee_number - ' || p_close_visit_rec.employee_number );
8547: || p_close_visit_rec.wo_comp_dates_flag );
8548: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
8549: || ' : Inputs - p_close_visit_rec.wo_childmr_dates_flag - '
8550: || p_close_visit_rec.wo_childmr_dates_flag );
8551: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
8552: || ' : Inputs - p_close_visit_rec.employee_number - ' || p_close_visit_rec.employee_number );
8553: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
8554: || ' : Inputs - p_close_visit_rec.serial_number - ' || p_close_visit_rec.serial_number );
8555: --sukhwsin::SB Effectivity - Added following comment for check_unit_complete_flag.
8549: || ' : Inputs - p_close_visit_rec.wo_childmr_dates_flag - '
8550: || p_close_visit_rec.wo_childmr_dates_flag );
8551: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
8552: || ' : Inputs - p_close_visit_rec.employee_number - ' || p_close_visit_rec.employee_number );
8553: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
8554: || ' : Inputs - p_close_visit_rec.serial_number - ' || p_close_visit_rec.serial_number );
8555: --sukhwsin::SB Effectivity - Added following comment for check_unit_complete_flag.
8556: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
8557: || ' : Inputs - p_close_visit_rec.check_unit_complete_flag - ' || p_close_visit_rec.check_unit_complete_flag );
8552: || ' : Inputs - p_close_visit_rec.employee_number - ' || p_close_visit_rec.employee_number );
8553: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
8554: || ' : Inputs - p_close_visit_rec.serial_number - ' || p_close_visit_rec.serial_number );
8555: --sukhwsin::SB Effectivity - Added following comment for check_unit_complete_flag.
8556: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
8557: || ' : Inputs - p_close_visit_rec.check_unit_complete_flag - ' || p_close_visit_rec.check_unit_complete_flag );
8558: END IF;
8559:
8560: -- SOSAHNI :: BUG 16089728 :: FP base bug 14258761 :: 10/01/2013 :: Moved this code to check for visit status value in below code - Start
8577: --it is complete then only visit can be closed otherwise error msg will be returned.
8578: -- SOSAHNI :: BUG 16089728 :: FP base bug 14258761 :: 10/01/2013 :: Added visit status condition to avoid unit completeness check for a closed visit
8579: IF ( upper(p_close_visit_rec.check_unit_complete_flag) = 'N' AND l_visit_status_code <> 'CLOSED') THEN
8580: IF ( G_DEBUG = 'Y' ) THEN
8581: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Check Unit Completeness' );
8582: END IF;
8583: l_visit_uc_header_id := null;
8584: OPEN get_unit_on_visit( p_close_visit_rec.visit_id );
8585: FETCH get_unit_on_visit
8591: RAISE FND_API.G_EXC_ERROR;
8592: END IF; */
8593: CLOSE get_unit_on_visit;
8594: IF ( G_DEBUG = 'Y' ) THEN
8595: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' Visit UC Header Id: ' || l_visit_uc_header_id );
8596: END IF;
8597: --Call Check_Unit_Completeness if unit is present on visit.
8598: IF (l_visit_uc_header_id IS NOT NULL AND l_visit_uc_header_id <> -1 AND p_close_visit_rec.visit_id IS NOT NULL)
8599: THEN
8597: --Call Check_Unit_Completeness if unit is present on visit.
8598: IF (l_visit_uc_header_id IS NOT NULL AND l_visit_uc_header_id <> -1 AND p_close_visit_rec.visit_id IS NOT NULL)
8599: THEN
8600: IF ( G_DEBUG = 'Y' ) THEN
8601: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' Before Calling AHL_UC_VALIDATION_PUB.Validate_Completeness' );
8602: END IF;
8603: AHL_UC_VALIDATION_PUB.Validate_Completeness (
8604: p_api_version => 1.0,
8605: p_init_msg_list => FND_API.G_FALSE,
8613: x_error_tbl => l_erring_rules_tbl
8614: );
8615:
8616: IF ( G_DEBUG = 'Y' ) THEN
8617: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' After Calling Check_Unit_Completeness , Status = '|| l_return_status );
8618: END IF;
8619:
8620: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
8621: RAISE FND_API.G_EXC_ERROR;
8638: --IF Visit is already Closed new api update_signoff_dates() will be called.
8639:
8640:
8641: IF ( G_DEBUG = 'Y' ) THEN
8642: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || 'Visit Status = '||l_visit_status_code );
8643: END IF;
8644:
8645: IF ( l_visit_status_code = 'CLOSED' )
8646: THEN
8674: p_signoff_mr_rec => l_temp_signoff_mr_rec
8675: );
8676:
8677: IF ( G_DEBUG = 'Y' ) THEN
8678: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' After Calling update_signoff_dates, Status = '||l_return_status );
8679: END IF;
8680:
8681: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
8682: RAISE FND_API.G_EXC_ERROR;
8697: p_close_visit_rec.complete_job_ops_flag = 'N' AND
8698: p_close_visit_rec.transact_resource_flag = 'N' ) THEN
8699:
8700: IF ( G_DEBUG = 'Y' ) THEN
8701: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Not Top Down Signoff ' );
8702: END IF;
8703:
8704: AHL_VWP_VISITS_PVT.close_visit
8705: (
8716: x_msg_data => l_msg_data
8717: );
8718:
8719: IF ( G_DEBUG = 'Y' ) THEN
8720: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' After Calling AHL_VWP_VISITS_PVT.close_visit, Status = '||l_return_status );
8721: END IF;
8722:
8723: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
8724: RAISE FND_API.G_EXC_ERROR;
8749: l_workorder_tbl(l_ctr).wip_entity_id := l_visit_rec.wip_entity_id;
8750: l_workorder_tbl(l_ctr).actual_end_date := l_visit_rec.actual_end_date;
8751:
8752: IF ( G_DEBUG = 'Y' ) THEN
8753: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' Before GOTO vmwo_counter_qa_results_label' );
8754: END IF;
8755:
8756: -- GOTO
8758:
8759: END IF;
8760:
8761: IF ( G_DEBUG = 'Y' ) THEN
8762: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Before Processing Visit' );
8763: END IF;
8764:
8765: -- Get the Visit Details
8766: OPEN get_visit_details( p_close_visit_rec.visit_id );
8791: FND_MSG_PUB.add;
8792: END IF;
8793:
8794: IF ( G_DEBUG = 'Y' ) THEN
8795: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Before Processing MRs in the Visit' );
8796: END IF;
8797:
8798: -- Get all the Top UE Details for the Visit
8799: FOR mr_csr IN get_visit_ue_details( p_close_visit_rec.visit_id ) LOOP
8917: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8918: END IF;
8919:
8920: IF ( G_DEBUG = 'Y' ) THEN
8921: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : l_ue_status_code '||l_ue_status_code );
8922: END IF;
8923: IF ( G_DEBUG = 'Y' ) THEN
8924: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
8925: || ' : Child MR needs Signoff - ' || l_child_ue_tbl(l_ue_count).unit_effectivity_id );
8920: IF ( G_DEBUG = 'Y' ) THEN
8921: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : l_ue_status_code '||l_ue_status_code );
8922: END IF;
8923: IF ( G_DEBUG = 'Y' ) THEN
8924: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
8925: || ' : Child MR needs Signoff - ' || l_child_ue_tbl(l_ue_count).unit_effectivity_id );
8926: END IF;
8927: l_ctr := l_ctr + 1;
8928: l_child_mr_tbl(l_ctr).unit_effectivity_id := l_child_ue_tbl(l_ue_count).unit_effectivity_id;
8941: -- IF ( nvl(mr_csr.ump_status_code,'x') <> nvl(G_MR_STATUS_SIGNED_OFF,'y') ) THEN
8942: IF ( nvl(mr_csr.ump_status_code,'x') <> nvl(G_MR_STATUS_SIGNED_OFF,'y') OR p_close_visit_rec.wo_comp_dates_flag = 'Y') THEN
8943:
8944: IF ( G_DEBUG = 'Y' ) THEN
8945: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
8946: || ' : Top MR needs Signoff - ' || mr_csr.unit_effectivity_id );
8947: END IF;
8948:
8949: l_ctr := l_ctr + 1;
8979:
8980: l_ctr := 0;
8981:
8982: IF ( G_DEBUG = 'Y' ) THEN
8983: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Before Processing Visit WOs' );
8984: END IF;
8985:
8986: -- Get all the Workorders for the Visit
8987: FOR wo_csr IN get_visit_workorders( l_visit_rec.visit_id ) LOOP
9155: IF ( G_DEBUG = 'Y' ) THEN
9156: --sukhwsin::Added following condition to stop the problem of accessing l_workorder_tbl table
9157: --when l_workorder_tbl.count is 0. This is to remove no data found error that was coming while accessing
9158: --l_workorder_tbl table when count is 0
9159: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' l_workorder_tbl.count ' || l_workorder_tbl.count);
9160: IF (l_workorder_tbl.count > 0) THEN
9161: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
9162: || ' : Wo Name - ' || l_workorder_tbl(l_ctr).workorder_name
9163: || ' WO ID - ' || l_workorder_tbl(l_ctr).workorder_id
9157: --when l_workorder_tbl.count is 0. This is to remove no data found error that was coming while accessing
9158: --l_workorder_tbl table when count is 0
9159: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' l_workorder_tbl.count ' || l_workorder_tbl.count);
9160: IF (l_workorder_tbl.count > 0) THEN
9161: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
9162: || ' : Wo Name - ' || l_workorder_tbl(l_ctr).workorder_name
9163: || ' WO ID - ' || l_workorder_tbl(l_ctr).workorder_id
9164: || ' Actual Start Date - ' || l_workorder_tbl(l_ctr).actual_start_date
9165: || ' Actual End Date - ' || l_workorder_tbl(l_ctr).actual_end_date );
9187: END IF;
9188: END LOOP;
9189:
9190: IF ( G_DEBUG = 'Y' ) THEN
9191: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Before Processing Visit WO' );
9192: END IF;
9193:
9194: -- Add the Visit Workorder for Updates
9195: -- Do not process Visit Workorder if it is already Complete
9260: */
9261: l_ctr := 0;
9262:
9263: IF ( G_DEBUG = 'Y' ) THEN
9264: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Before Processing Resource Transactions' );
9265: END IF;
9266:
9267: -- Check if Resource Transactions are required
9268: IF ( p_close_visit_rec.transact_resource_flag = 'Y' ) THEN
9479:
9480: l_ctr := 0;
9481:
9482: IF ( G_DEBUG = 'Y' ) THEN
9483: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Before Processing WO Operations' );
9484: END IF;
9485:
9486: -- Get all the Workorder Operations for the Visit
9487: FOR op_csr IN get_visit_operations( l_visit_rec.visit_id ) LOOP
9670: END IF;
9671: */
9672:
9673: IF ( G_DEBUG = 'Y' ) THEN
9674: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
9675: || ' : Wo Name - ' || l_operation_tbl(l_ctr).workorder_name
9676: || ' OP Seq - ' || op_csr.operation_seq_num || ' WO OP ID - '
9677: || l_operation_tbl(l_ctr).workorder_operation_id || ' Actual Start Date - '
9678: || l_operation_tbl(l_ctr).actual_start_date || ' Actual End Date - '
9694: END LOOP;
9695:
9696:
9697: IF ( G_DEBUG = 'Y' ) THEN
9698: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Before Updating Operation Actual Dates' );
9699: END IF;
9700:
9701: -- perform the Operation Updates
9702: -- If the dates are to be defaulted then this will be done in the Completions API itself
9730:
9731: END IF;
9732:
9733: IF ( G_DEBUG = 'Y' ) THEN
9734: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Before Completing Operations' );
9735: END IF;
9736:
9737: -- Invoke Complete Operation API to Complete All Operations
9738: IF ( l_operation_tbl.COUNT > 0 ) THEN
9766: END LOOP;
9767: END IF;
9768:
9769: IF ( G_DEBUG = 'Y' ) THEN
9770: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Before Updating WO Actual Dates' );
9771: END IF;
9772:
9773: -- Perform the Workorder Updates
9774: -- After operation updates and operation completion
9855: l_actual_end_date := p_close_visit_rec.actual_end_date;
9856: END IF;
9857:
9858: IF ( G_DEBUG = 'Y' ) THEN
9859: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Before Updating Actual Dates for Master WOs in Visit' );
9860: END IF;
9861:
9862: -- Update the Actual Dates for Master Workorders in the Visit
9863: l_return_status :=
9881: END IF;
9882:
9883:
9884: IF ( G_DEBUG = 'Y' ) THEN
9885: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Before Completing WOs' );
9886: END IF;
9887:
9888: -- Complete All Visit Workorders in the Order of Completion Dependencies
9889: IF ( l_workorder_tbl.COUNT > 0 ) THEN
9933:
9934: END IF;
9935:
9936: IF ( G_DEBUG = 'Y' ) THEN
9937: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Before Signing off MRs' );
9938: END IF;
9939:
9940: -- Invoke Complete MR Instance API to Complete All UEs
9941: IF ( l_child_mr_tbl.COUNT > 0 ) THEN
10028: END LOOP;
10029: END IF;
10030:
10031: IF ( G_DEBUG = 'Y' ) THEN
10032: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Before Closing Visit' );
10033: END IF;
10034:
10035: -- Invoke close_visit API to close the Visit in VWP and Projects
10036: AHL_VWP_VISITS_PVT.close_visit
10057: --JKJain, Bug 9250614, Define label
10058: <
10059:
10060: IF ( G_DEBUG = 'Y' ) THEN
10061: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Before Recording Counter Readings, COUNT = '||l_workorder_tbl.COUNT|| ' and Plan_ID = '|| G_CTR_READING_PLAN_ID );
10062: END IF;
10063:
10064:
10065: -- Record Counter Readings for all WOs
10067: G_CTR_READING_PLAN_ID IS NOT NULL AND
10068: l_visit_rec.item_instance_id IS NOT NULL ) THEN
10069:
10070: IF ( G_DEBUG = 'Y' ) THEN
10071: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Before Getting Counters' );
10072: END IF;
10073:
10074: -- Bug # 6750836 -- Start
10075:
10075:
10076: --IF ( l_counter_tbl.COUNT > 0 ) THEN
10077:
10078: IF ( G_DEBUG = 'Y' ) THEN
10079: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Before Recording WO Counter Readings' );
10080: END IF;
10081:
10082: -- Record Counter Readings for all the Workorders.
10083: FOR i IN l_workorder_tbl.FIRST..l_workorder_tbl.LAST LOOP
10125: -- Bug # 6750836 -- end
10126: END IF;
10127:
10128: IF ( G_DEBUG = 'Y' ) THEN
10129: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Before Firing QA Actions' );
10130: END IF;
10131:
10132: -- Fire QA Actions for all MRs
10133: IF ( l_child_mr_tbl.COUNT > 0 ) THEN
10257: END IF;
10258:
10259: -- Disable debug (if enabled)
10260: IF ( G_DEBUG = 'Y' ) THEN
10261: AHL_DEBUG_PUB.disable_debug;
10262: END IF;
10263:
10264: EXCEPTION
10265:
10273: p_data => x_msg_data
10274: );
10275:
10276: IF ( G_DEBUG = 'Y' ) THEN
10277: AHL_DEBUG_PUB.disable_debug;
10278: END IF;
10279:
10280: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10281: ROLLBACK TO close_visit_PVT;
10287: p_data => x_msg_data
10288: );
10289:
10290: IF ( G_DEBUG = 'Y' ) THEN
10291: AHL_DEBUG_PUB.disable_debug;
10292: END IF;
10293:
10294: WHEN OTHERS THEN
10295: ROLLBACK TO close_visit_PVT;
10310: p_data => x_msg_data
10311: );
10312:
10313: IF ( G_DEBUG = 'Y' ) THEN
10314: AHL_DEBUG_PUB.disable_debug;
10315: END IF;
10316: END close_visit;
10317:
10318: ------------------------------------------------------------------------------------------------
11083:
11084: BEGIN
11085:
11086: IF ( G_DEBUG = 'Y' ) THEN
11087: AHL_DEBUG_PUB.debug( 'Start complete_master_wo: Input Params:');
11088: AHL_DEBUG_PUB.debug( 'In complete_master_wo: p_visit_id:' || p_visit_id);
11089: AHL_DEBUG_PUB.debug( 'In complete_master_wo: p_ue_id:' || p_ue_id);
11090: AHL_DEBUG_PUB.debug( 'In complete_master_wo: p_workorder_id:' || p_workorder_id);
11091: END IF;
11084: BEGIN
11085:
11086: IF ( G_DEBUG = 'Y' ) THEN
11087: AHL_DEBUG_PUB.debug( 'Start complete_master_wo: Input Params:');
11088: AHL_DEBUG_PUB.debug( 'In complete_master_wo: p_visit_id:' || p_visit_id);
11089: AHL_DEBUG_PUB.debug( 'In complete_master_wo: p_ue_id:' || p_ue_id);
11090: AHL_DEBUG_PUB.debug( 'In complete_master_wo: p_workorder_id:' || p_workorder_id);
11091: END IF;
11092:
11085:
11086: IF ( G_DEBUG = 'Y' ) THEN
11087: AHL_DEBUG_PUB.debug( 'Start complete_master_wo: Input Params:');
11088: AHL_DEBUG_PUB.debug( 'In complete_master_wo: p_visit_id:' || p_visit_id);
11089: AHL_DEBUG_PUB.debug( 'In complete_master_wo: p_ue_id:' || p_ue_id);
11090: AHL_DEBUG_PUB.debug( 'In complete_master_wo: p_workorder_id:' || p_workorder_id);
11091: END IF;
11092:
11093: IF(p_visit_id IS NOT NULL) THEN
11086: IF ( G_DEBUG = 'Y' ) THEN
11087: AHL_DEBUG_PUB.debug( 'Start complete_master_wo: Input Params:');
11088: AHL_DEBUG_PUB.debug( 'In complete_master_wo: p_visit_id:' || p_visit_id);
11089: AHL_DEBUG_PUB.debug( 'In complete_master_wo: p_ue_id:' || p_ue_id);
11090: AHL_DEBUG_PUB.debug( 'In complete_master_wo: p_workorder_id:' || p_workorder_id);
11091: END IF;
11092:
11093: IF(p_visit_id IS NOT NULL) THEN
11094: OPEN get_visit_master_wo(p_visit_id);
11115: RETURN FND_API.G_RET_STS_ERROR;
11116: END IF;
11117:
11118: IF ( G_DEBUG = 'Y' ) THEN
11119: AHL_DEBUG_PUB.debug( 'In complete_master_wo: workorder_id:ovn:wip_entity_id:' || l_workorder_id
11120: || ':' || l_ovn || ':' || l_wip_entity_id);
11121: END IF;
11122:
11123: -- Check if all workorders are cancelled.
11124: OPEN chk_cmplt_wo_exists(l_wip_entity_id);
11125: FETCH chk_cmplt_wo_exists INTO l_junk;
11126: IF (chk_cmplt_wo_exists%NOTFOUND) THEN
11127: IF ( G_DEBUG = 'Y' ) THEN
11128: AHL_DEBUG_PUB.debug('In complete_master_wo: processing for cancelled mwo');
11129: END IF;
11130:
11131: CLOSE chk_cmplt_wo_exists;
11132: -- all jobs cancelled.
11210: END IF; -- l_workorder_id IS NOT NULL ..
11211: END IF; -- chk_cmplt_wo_exists%NOTFOUND
11212:
11213: IF ( G_DEBUG = 'Y' ) THEN
11214: AHL_DEBUG_PUB.debug('End complete_master_wo: l_return_status:' || l_return_status);
11215: END IF;
11216:
11217: RETURN l_return_status;
11218:
11934:
11935: IF ( l_reset_counter_tbl IS NOT NULL AND l_reset_counter_tbl.COUNT > 0 ) THEN
11936:
11937: IF ( G_DEBUG = 'Y' ) THEN
11938: AHL_DEBUG_PUB.debug( 'update_accomplishments :: Resetting Counters' );
11939: END IF;
11940:
11941: -- Reset all the Counters with Reset Values specified in FMP
11942: l_return_status :=
11962:
11963: END IF;
11964:
11965: IF ( G_DEBUG = 'Y' ) THEN
11966: AHL_DEBUG_PUB.debug( 'update_accomplishments::Getting CP Counters' );
11967: END IF;
11968: -- Get the Current Counter Readings for all Counters associted with
11969: -- the Item Instance.
11970: l_return_status :=
11982: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11983: END IF;
11984:
11985: IF ( G_DEBUG = 'Y' ) THEN
11986: AHL_DEBUG_PUB.debug( ' update_accomplishments :: Updating UMP' );
11987: END IF;
11988:
11989: -- Record Accomplishment in UMP for UMP MR Instance
11990: l_return_status :=
12016: p_data => x_msg_data
12017: );
12018:
12019: IF ( G_DEBUG = 'Y' ) THEN
12020: AHL_DEBUG_PUB.disable_debug;
12021: END IF;
12022:
12023: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12024: ROLLBACK TO update_accomplishments_PVT;
12143:
12144: BEGIN
12145: -- Enable Debug (optional)
12146: IF ( G_DEBUG = 'Y' ) THEN
12147: AHL_DEBUG_PUB.enable_debug;
12148: END IF;
12149:
12150: -- Initialize API return status to success
12151: x_return_status := FND_API.G_RET_STS_SUCCESS;
12158: FND_MSG_PUB.initialize;
12159: END IF;
12160:
12161: IF ( G_DEBUG = 'Y' ) THEN
12162: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name|| ' : Start of API ');
12163: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name|| ' unit_effectivity_id :' || p_signoff_mr_rec.unit_effectivity_id );
12164: END IF;
12165:
12166: --Get the Wip Enitityid for the given Unit_effectivity_id
12159: END IF;
12160:
12161: IF ( G_DEBUG = 'Y' ) THEN
12162: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name|| ' : Start of API ');
12163: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name|| ' unit_effectivity_id :' || p_signoff_mr_rec.unit_effectivity_id );
12164: END IF;
12165:
12166: --Get the Wip Enitityid for the given Unit_effectivity_id
12167: OPEN get_wip_entity_id( p_signoff_mr_rec.unit_effectivity_id );
12175: END IF;*/
12176: CLOSE get_wip_entity_id;
12177:
12178: IF ( G_DEBUG = 'Y' ) THEN
12179: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name|| ' l_wip_entity_id :' || l_wip_entity_id);
12180: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name|| ' l_workorder_id :' || l_workorder_id);
12181: END IF;
12182:
12183: -- If Update Child MRs Flag is also Checked then Update Child Master workorders
12176: CLOSE get_wip_entity_id;
12177:
12178: IF ( G_DEBUG = 'Y' ) THEN
12179: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name|| ' l_wip_entity_id :' || l_wip_entity_id);
12180: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name|| ' l_workorder_id :' || l_workorder_id);
12181: END IF;
12182:
12183: -- If Update Child MRs Flag is also Checked then Update Child Master workorders
12184: -- start date and End date with User entered dates if these dates are outside
12191: l_ctr := l_ctr + 1;
12192: l_workorder_tbl(l_ctr).parent_object_id := wo_csr.parent_object_id;
12193:
12194: IF ( G_DEBUG = 'Y' ) THEN
12195: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Getting ' || l_ctr || ' th WO of Visit - ' || wo_csr.workorder_name );
12196: END IF;
12197:
12198: -- Check if Master Workorder
12199: IF ( wo_csr.master_workorder_flag = 'Y' AND
12200: wo_csr.status_code <> G_JOB_STATUS_CLOSED AND
12201: wo_csr.status_code <> G_JOB_STATUS_CANCELLED ) THEN
12202:
12203: IF ( G_DEBUG = 'Y' ) THEN
12204: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : This is a Master Workorder ' );
12205: END IF;
12206: -- Since Master Workorders are obtained after the child Workorders
12207: -- It is enough to iterate through these child Workorders obtained
12208: -- in the previous iterations
12246: END IF;
12247: END IF;
12248:
12249: IF ( G_DEBUG = 'Y' ) THEN
12250: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
12251: || ' : Calculated ACtual Start Date - '
12252: || to_char( l_workorder_tbl(l_ctr).actual_start_date, 'DD-MON-YYYY HH24:MI' )
12253: || ' Calculated Actual End Date - '
12254: || to_char( l_workorder_tbl(l_ctr).actual_end_date, 'DD-MON-YYYY HH24:MI' ) );
12252: || to_char( l_workorder_tbl(l_ctr).actual_start_date, 'DD-MON-YYYY HH24:MI' )
12253: || ' Calculated Actual End Date - '
12254: || to_char( l_workorder_tbl(l_ctr).actual_end_date, 'DD-MON-YYYY HH24:MI' ) );
12255:
12256: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
12257: || ' : p_signoff_mr_rec.actual_start_date- '
12258: || to_char( p_signoff_mr_rec.actual_start_date, 'DD-MON-YYYY HH24:MI' )
12259: || ' p_signoff_mr_rec.actual_end_date - '
12260: || to_char( p_signoff_mr_rec.actual_end_date, 'DD-MON-YYYY HH24:MI' ) );
12313: END IF;
12314:
12315: ELSE
12316: IF ( G_DEBUG = 'Y' ) THEN
12317: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Storing ACtual Start Date of Child - ' || to_char( wo_csr.actual_start_date, 'DD-MON-YYYY HH24:MI' ) || ' Actual End Date' || to_char( wo_csr.actual_end_date, 'DD-MON-YYYY HH24:MI' ) );
12318: END IF;
12319:
12320: -- Store the Child Wo or Complete Master Wo Actual Dates as it is
12321: l_workorder_tbl(l_ctr).actual_start_date := wo_csr.actual_start_date;
12330: l_min := NULL;
12331: l_max := NULL;
12332:
12333: IF ( G_DEBUG = 'Y' ) THEN
12334: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' Updating Actual Master workorder detials' );
12335: END IF;
12336:
12337: FOR wo_csr IN get_child_wos( l_wip_entity_id ) LOOP
12338: IF wo_csr.actual_start_date IS NOT NULL
12417: END IF;
12418:
12419:
12420: IF ( G_DEBUG = 'Y' ) THEN
12421: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || 'End of the API' );
12422: END IF;
12423:
12424:
12425: -- Perform the Commit (if requested)
12428: END IF;
12429:
12430: -- Disable debug (if enabled)
12431: IF ( G_DEBUG = 'Y' ) THEN
12432: AHL_DEBUG_PUB.disable_debug;
12433: END IF;
12434:
12435: EXCEPTION
12436:
12444: p_data => x_msg_data
12445: );
12446:
12447: IF ( G_DEBUG = 'Y' ) THEN
12448: AHL_DEBUG_PUB.disable_debug;
12449: END IF;
12450:
12451: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12452: ROLLBACK TO update_signoff_dates_PVT;
12458: p_data => x_msg_data
12459: );
12460:
12461: IF ( G_DEBUG = 'Y' ) THEN
12462: AHL_DEBUG_PUB.disable_debug;
12463: END IF;
12464:
12465: WHEN OTHERS THEN
12466: ROLLBACK TO update_signoff_dates_PVT;
12481: p_data => x_msg_data
12482: );
12483:
12484: IF ( G_DEBUG = 'Y' ) THEN
12485: AHL_DEBUG_PUB.disable_debug;
12486: END IF;
12487:
12488: END update_signoff_dates;
12489: