[Home] [Help]
828: AHL_DEBUG_PUB.debug('AHL Installation processing');
829: END IF;
830:
831: -- Call FMP api to build applicable MRs for the unit.
832: AHL_UMP_UTIL_PKG.Populate_Appl_MRs ( p_csi_ii_id => l_csi_item_instance_id,
833: --p_include_doNotImplmt => 'N',
834: p_include_doNotImplmt => 'Y',
835: x_return_status => x_return_status,
836: x_msg_count => x_msg_count,
842: RAISE FND_API.G_EXC_ERROR;
843: END IF;
844:
845: -- Build applicability for group MRs.
846: AHL_UMP_UTIL_PKG.Process_Group_MRs;
847:
848: ELSE -- for PM installation.
849: IF G_DEBUG = 'Y' THEN
850: AHL_DEBUG_PUB.debug('PM Installation processing');
3238: ELSE
3239: -- Lookup if any accomplishments exist.
3240:
3241: -- Get last accomplishment for the MR..
3242: AHL_UMP_UTIL_PKG.get_last_accomplishment(p_applicable_mrs_rec.csi_item_instance_id,
3243: p_applicable_mrs_rec.mr_header_id,
3244: l_last_accomplishment_date,
3245: l_acc_unit_effectivity_id,
3246: l_acc_deferral_flag,
3281: THEN
3282: l_dependent_mr_flag := TRUE;
3283: --dbms_output.put_line ('dependent flag true');
3284: -- Modified to get first accomplishment to fix bug#6711228
3285: AHL_UMP_UTIL_PKG.get_first_accomplishment(p_applicable_mrs_rec.csi_item_instance_id,
3286: p_applicable_mrs_rec.preceding_mr_header_id,
3287: l_last_accomplishment_date,
3288: l_acc_unit_effectivity_id,
3289: l_acc_deferral_flag,
3960: --dbms_output.put_line ('unit eff load i:' || l_unit_effectivity_tbl(i).unit_effectivity_id);
3961:
3962: FOR j IN l_ue_id_tbl.FIRST..l_ue_id_tbl.LAST LOOP
3963:
3964: l_visit_status := AHL_UMP_UTIL_PKG.get_Visit_Status(l_ue_id_tbl(j));
3965:
3966: -- modified for bug# 9263774: calc due date for prior MR versions.
3967: -- for expired MRs, we need to select only those UEs that have WOs associated.
3968: IF (p_applicable_mrs_rec.expired_mr_flag = 'N' AND l_prior_mr_header_tbl(j) = p_applicable_mrs_rec.mr_header_id ) OR
3982: l_unit_effectivity_tbl(i).prior_mr_header_id := l_prior_mr_header_tbl(j);
3983: END IF;
3984:
3985: -- Call visit work package to get visit end date if unit effectivity has been assigned to a visit.
3986: AHL_UMP_UTIL_PKG.get_visit_details (l_unit_effectivity_tbl(i).unit_effectivity_id,
3987: l_visit_start_date,
3988: l_visit_end_date,
3989: l_visit_assign_code);
3990:
4024: p_applicable_mrs_rec.title,
4025: G_application_usg_code)
4026: LOOP
4027: -- Get visit end date; unplanned MRs is always assigned to a visit.
4028: AHL_UMP_UTIL_PKG.get_visit_details (ahl_unplanned_MRs_rec.unit_effectivity_id,
4029: l_visit_start_date,
4030: l_visit_end_date,
4031: l_visit_assign_code);
4032: IF (l_visit_end_date IS NOT NULL) THEN
7494: l_reln_found := TRUE; /* ue_relns record found */
7495: l_appl_grp_found := TRUE; /* applicable grp mrs found */
7496:
7497: -- Check if workorder already created.
7498: l_visit_status := AHL_UMP_UTIL_PKG.get_Visit_Status (l_unit_effectivity_id);
7499:
7500: -- when UE is on shop floor or UE status is INIT-DUE, skip group MR comparison.
7501: -- This will be done later in flush_from_temp_table proc.
7502: IF (p_unit_effectivity_tbl(p_old_UE_forecast_sequence).status_code) = 'INIT-DUE'
7884:
7885: -- get first accomplishment or get calculated due date.
7886: IF (preceding_mr_rec.accomplished_ue_id IS NOT NULL) THEN
7887: -- get first accomplishment.
7888: AHL_UMP_UTIL_PKG.get_first_accomplishment(p_applicable_mrs_rec.csi_item_instance_id,
7889: preceding_mr_rec.mr_header_id,
7890: l_due_date,
7891: l_acc_unit_effectivity_id,
7892: l_acc_deferral_flag,
10401:
10402: END IF; -- unit_effectivity_rec.unit_deferral_type = 'MEL'
10403:
10404: -- Call visit work package to get visit end date if unit effectivity has been assigned to a visit.
10405: AHL_UMP_UTIL_PKG.get_visit_details (unit_effectivity_rec.unit_effectivity_id,
10406: l_visit_start_date,
10407: l_visit_end_date,
10408: l_visit_assign_code);
10409:
10442: --dbms_output.put_line ('Adue_ctr_val:' || l_calc_due_counter_value);
10443:
10444:
10445: -- Check if workorder already created.
10446: l_visit_status := AHL_UMP_UTIL_PKG.get_Visit_Status(unit_effectivity_rec.unit_effectivity_id);
10447:
10448: IF (nvl(l_visit_status,'X') IN ('RELEASED','CLOSED')) THEN
10449: -- if UE is on shop floor then keep UE structure as is.
10450: l_grp_match := 'Y';
10674: l_counter_id := null;
10675: END IF;
10676:
10677: -- Call visit work package to get visit end date if unit effectivity has been assigned to a visit.
10678: AHL_UMP_UTIL_PKG.get_visit_details (ahl_ue_sr_rec.unit_effectivity_id,
10679: l_visit_start_date,
10680: l_visit_end_date,
10681: l_visit_assign_code);
10682:
10702: END IF;
10703: END IF;
10704:
10705: -- Check if workorder already created.
10706: l_visit_status := AHL_UMP_UTIL_PKG.get_Visit_Status(ahl_ue_sr_rec.unit_effectivity_id);
10707:
10708: IF (nvl(l_visit_status,'X') IN ('RELEASED','CLOSED')) THEN
10709: -- if UE is on shop floor then keep UE structure as is.
10710: l_grp_match := 'Y';
11154: -- initialize.
11155: l_exception_flag := FALSE;
11156:
11157: -- Check if workorder already created.
11158: l_visit_status := AHL_UMP_UTIL_PKG.get_Visit_Status (ahl_unplanned_ue_rec.unit_effectivity_id);
11159:
11160: -- only if visit is in planning status we must mark an exception.
11161: -- if visit is already on the floor, we do nothing.
11162: IF (nvl(l_visit_status,'X') NOT IN ('RELEASED','CLOSED')) THEN
14837: -- in the case of unprocessed parent, check if parent MR is already accomplished. If yes, we do not need to process
14838: -- parent and instead we use the first accomplishment date.
14839: -- in case parent is already processed and has at least one accomplishment, we get the first one.
14840: -- get first accomplishment.
14841: AHL_UMP_UTIL_PKG.get_first_accomplishment(l_appl_rec.csi_item_instance_id,
14842: l_appl_rec.mr_header_id,
14843: l_due_date,
14844: l_acc_unit_effectivity_id,
14845: l_acc_deferral_flag,
15043: l_loop_chain_MR_tbl(i).accomplishment_exists := 'N';
15044: l_loop_chain_MR_tbl(i).mr_title := l_mr_title_tbl(i);
15045:
15046: -- check if MR is accomplished at least once.
15047: AHL_UMP_UTIL_PKG.get_last_accomplishment(p_csi_item_instance_id => p_applicable_mrs_rec.csi_item_instance_id,
15048: p_mr_header_id => l_mr_tbl(i),
15049: x_accomplishment_date => l_lc_mr_accomplishment_date,
15050: x_unit_effectivity_id => l_lc_acc_ue_id,
15051: x_deferral_flag => l_lc_acc_deferral_flag,
15263:
15264: -- get chain UE id
15265: CURSOR get_chain_ue_csr(p_start_lc_ue_id in number,
15266: p_chain_seq_num in number) is
15267: SELECT ue.unit_effectivity_id, AHL_UMP_UTIL_PKG.get_Visit_Status (ue.unit_effectivity_id) l_visit_status,
15268: ue.defer_from_ue_id, ue.mr_header_id, mr.title
15269: FROM ahl_unit_effectivities_b ue, ahl_mr_headers_b mr
15270: where ue.mr_header_id = mr.mr_header_id
15271: and ue.start_lc_ue_id = p_start_lc_ue_id
15388: l_loop_chain_MR_tbl(i).accomplishment_exists := 'N';
15389: l_loop_chain_MR_tbl(i).mr_title := l_mr_title_tbl(i);
15390:
15391: -- check if MR is accomplished at least once.
15392: AHL_UMP_UTIL_PKG.get_last_accomplishment(p_csi_item_instance_id => p_applicable_mrs_rec.csi_item_instance_id,
15393: p_mr_header_id => l_mr_tbl(i),
15394: x_accomplishment_date => l_lc_mr_accomplishment_date,
15395: x_unit_effectivity_id => l_lc_acc_ue_id,
15396: x_deferral_flag => l_lc_acc_deferral_flag,
15563: FOR i IN l_start_ue_id_tbl.FIRST..l_start_ue_id_tbl.LAST LOOP
15564:
15565: IF (l_iteration_seq = 1) THEN
15566: -- Call visit work package to get visit end date if unit effectivity has been assigned to a visit.
15567: AHL_UMP_UTIL_PKG.get_visit_details (l_start_ue_id_tbl(i),
15568: l_visit_start_date,
15569: l_visit_end_date,
15570: l_visit_assign_code);
15571:
15815: p_loop_chain_MR_tbl(l_loop_chain_seq_num).loop_chain_seq_num);
15816: fetch ahl_ue_csr INTO l_ue_id, l_ue_mr_title;
15817: if (ahl_ue_csr%found) THEN
15818: -- check if associcated to a visit.
15819: AHL_UMP_UTIL_PKG.get_visit_details (l_ue_id,
15820: l_visit_start_date,
15821: l_visit_end_date,
15822: l_visit_assign_code);
15823: IF (nvl(l_visit_assign_code,'x') NOT IN ('RELEASED','CLOSED')) THEN