DBA Data[Home] [Help]

APPS.AHL_UMP_PROCESSUNIT_PVT dependencies on AHL_APPLICABLE_MRS

Line 2071: CURSOR ahl_applicable_MRs (p_csi_item_instance_id IN NUMBER) IS

2067: --------------------------------------------------------------------------------
2068: -- Process Unit for ASO installation.
2069: PROCEDURE Process_ASO_Unit IS
2070:
2071: CURSOR ahl_applicable_MRs (p_csi_item_instance_id IN NUMBER) IS
2072: SELECT DISTINCT appl.csi_item_instance_id,
2073: appl.MR_header_id,
2074: mr.Title,
2075: mr.version_number,

Line 2085: --FROM ahl_applicable_MRs appl, ahl_mr_headers_vl mr

2081: appl.descendent_count,
2082: mr.whichever_first_code,
2083: mr.effective_to,
2084: mr.effective_from
2085: --FROM ahl_applicable_MRs appl, ahl_mr_headers_vl mr
2086: FROM ahl_applicable_MRs appl, ahl_mr_headers_b mr
2087: WHERE appl.csi_item_instance_id = p_csi_item_instance_id
2088: AND (appl.implement_status_code <> 'OPTIONAL_DO_NOT_IMPLEMENT')
2089: AND appl.preceding_mr_header_id IS NULL

Line 2086: FROM ahl_applicable_MRs appl, ahl_mr_headers_b mr

2082: mr.whichever_first_code,
2083: mr.effective_to,
2084: mr.effective_from
2085: --FROM ahl_applicable_MRs appl, ahl_mr_headers_vl mr
2086: FROM ahl_applicable_MRs appl, ahl_mr_headers_b mr
2087: WHERE appl.csi_item_instance_id = p_csi_item_instance_id
2088: AND (appl.implement_status_code <> 'OPTIONAL_DO_NOT_IMPLEMENT')
2089: AND appl.preceding_mr_header_id IS NULL
2090: AND appl.mr_header_id = mr.mr_header_id

Line 2140: -- Read ahl_applicable_mrs for all MRs applicable to the item instance.

2136:
2137: -- For Unplanned MRs (MRs directly planned into a Visit from FMP), validate applicability.
2138: Process_Unplanned_UE(p_csi_item_instance_id => G_config_node_tbl(i).csi_item_instance_id);
2139:
2140: -- Read ahl_applicable_mrs for all MRs applicable to the item instance.
2141: FOR l_appl_rec IN ahl_applicable_MRs(G_config_node_tbl(i).csi_item_instance_id) LOOP
2142:
2143: IF G_DEBUG = 'Y' THEN
2144: AHL_DEBUG_PUB.debug('Found applicable MR-ID:Title' || l_appl_rec.mr_header_id || '[' || l_appl_rec.title || ']');

Line 2141: FOR l_appl_rec IN ahl_applicable_MRs(G_config_node_tbl(i).csi_item_instance_id) LOOP

2137: -- For Unplanned MRs (MRs directly planned into a Visit from FMP), validate applicability.
2138: Process_Unplanned_UE(p_csi_item_instance_id => G_config_node_tbl(i).csi_item_instance_id);
2139:
2140: -- Read ahl_applicable_mrs for all MRs applicable to the item instance.
2141: FOR l_appl_rec IN ahl_applicable_MRs(G_config_node_tbl(i).csi_item_instance_id) LOOP
2142:
2143: IF G_DEBUG = 'Y' THEN
2144: AHL_DEBUG_PUB.debug('Found applicable MR-ID:Title' || l_appl_rec.mr_header_id || '[' || l_appl_rec.title || ']');
2145: END IF;

Line 3590: FROM ahl_applicable_mrs mr, ahl_mr_effectivities eff

3586: -- Read all effectivities for the mr and item instance.
3587: CURSOR ahl_applicable_csr (p_instance_id IN NUMBER,
3588: p_mr_header_id IN NUMBER) IS
3589: SELECT DISTINCT mr.mr_effectivity_id, threshold_date
3590: FROM ahl_applicable_mrs mr, ahl_mr_effectivities eff
3591: WHERE mr.mr_effectivity_id = eff.mr_effectivity_id AND
3592: csi_item_instance_id = p_instance_id AND
3593: mr.mr_header_id = p_mr_header_id;
3594:

Line 6154: FROM ahl_applicable_mrs

6150: -- To check if mr has a preceding mr.
6151: CURSOR ahl_appl_mr_csr (p_item_instance_id IN NUMBER,
6152: p_mr_header_id IN NUMBER) IS
6153: SELECT 'x'
6154: FROM ahl_applicable_mrs
6155: WHERE csi_item_instance_id = p_item_instance_id AND
6156: mr_header_id = p_mr_header_id AND
6157: implement_status_code <> 'OPTIONAL_DO_NOT_IMPLEMENT' AND
6158: preceding_mr_header_id IS NOT NULL;

Line 6447: FROM ahl_mr_headers_app_v mr, ahl_mr_headers_b curr_mr, ahl_applicable_mrs apmr

6443: curr_mr.mr_header_id preceding_mr_header_id,
6444: apmr.descendent_count,
6445: mr.whichever_first_code,
6446: apmr.repetitive_flag
6447: FROM ahl_mr_headers_app_v mr, ahl_mr_headers_b curr_mr, ahl_applicable_mrs apmr
6448: --fix for bug number 5922149
6449: --WHERE mr.preceding_mr_header_id = curr_mr.mr_header_id AND
6450: WHERE mr.preceding_mr_header_id IN (SELECT t.mr_header_id FROM ahl_mr_headers_b t where t.title = curr_mr.title ) AND
6451: curr_mr.mr_header_id = p_mr_header_id AND

Line 6476: FROM ahl_mr_headers_app_v mr, ahl_applicable_mrs apmr

6472: apmr.repetitive_flag,
6473: mr.title,
6474: mr.effective_from,
6475: mr.effective_to
6476: FROM ahl_mr_headers_app_v mr, ahl_applicable_mrs apmr
6477: WHERE mr.preceding_mr_header_id IN (SELECT t.mr_header_id FROM ahl_mr_headers_app_v t where t.title = p_curr_mr_title ) AND
6478: apmr.mr_header_id = mr.mr_header_id AND
6479: trunc(sysdate) >= trunc(nvl(mr.effective_from, sysdate)) AND
6480: trunc(sysdate) <= trunc(nvl(mr.effective_to, sysdate+1)) AND

Line 6691: -- Function : Calls FMP and populates the AHL_APPLICABLE_MRS table

6687:
6688: END log_error_messages;
6689:
6690: -----------------------------------------------------------------------
6691: -- Function : Calls FMP and populates the AHL_APPLICABLE_MRS table
6692: -- for preventive maintenance installation.
6693: -- Pre-reqs :
6694: -- Parameters :
6695: --

Line 6764: INSERT INTO AHL_APPLICABLE_MRS (

6760: FOR j IN l_appl_activities_tbl.FIRST..l_appl_activities_tbl.LAST LOOP
6761: IF (l_appl_activities_tbl(j).service_line_id = l_appl_programs_tbl(i).service_line_id)
6762: THEN
6763:
6764: INSERT INTO AHL_APPLICABLE_MRS (
6765: CSI_ITEM_INSTANCE_ID,
6766: MR_HEADER_ID,
6767: MR_EFFECTIVITY_ID,
6768: REPETITIVE_FLAG ,

Line 6895: FROM ahl_applicable_mrs appl, ahl_mr_headers_b mr

6891:
6892: -- get all programs which have no schedules.
6893: CURSOR ahl_cont_not_scheduled_csr IS
6894: SELECT DISTINCT appl.program_mr_header_id, mr.whichever_first_code
6895: FROM ahl_applicable_mrs appl, ahl_mr_headers_b mr
6896: -- replaced ahl_mr_headers_app_v with ahl_mr_headers_b as ahl_applicable_mrs has
6897: -- the filter of application_usg_code.
6898: WHERE appl.program_mr_header_id = mr.mr_header_id
6899: AND pm_schedule_exists = 'N';

Line 6896: -- replaced ahl_mr_headers_app_v with ahl_mr_headers_b as ahl_applicable_mrs has

6892: -- get all programs which have no schedules.
6893: CURSOR ahl_cont_not_scheduled_csr IS
6894: SELECT DISTINCT appl.program_mr_header_id, mr.whichever_first_code
6895: FROM ahl_applicable_mrs appl, ahl_mr_headers_b mr
6896: -- replaced ahl_mr_headers_app_v with ahl_mr_headers_b as ahl_applicable_mrs has
6897: -- the filter of application_usg_code.
6898: WHERE appl.program_mr_header_id = mr.mr_header_id
6899: AND pm_schedule_exists = 'N';
6900:

Line 7101: -- Update record in ahl_applicable_mrs with the calculated program end date.

7097: AHL_DEBUG_PUB.Debug('Program end date:' || l_program_due_date );
7098: AHL_DEBUG_PUB.Debug('Program calender days:' || l_program_calender_days );
7099: END IF;
7100:
7101: -- Update record in ahl_applicable_mrs with the calculated program end date.
7102: IF (l_program_expired_flag) THEN
7103: -- For this case, set program end date = sysdate -1.
7104: l_upd_SQLstmt_str := 'UPDATE ahl_applicable_mrs' ||
7105: ' SET program_end_date = :1' ||

Line 7104: l_upd_SQLstmt_str := 'UPDATE ahl_applicable_mrs' ||

7100:
7101: -- Update record in ahl_applicable_mrs with the calculated program end date.
7102: IF (l_program_expired_flag) THEN
7103: -- For this case, set program end date = sysdate -1.
7104: l_upd_SQLstmt_str := 'UPDATE ahl_applicable_mrs' ||
7105: ' SET program_end_date = :1' ||
7106: ' WHERE program_mr_header_id = :2'||
7107: ' AND PM_schedule_exists = :3';
7108:

Line 7120: --UPDATE ahl_applicable_mrs

7116: ELSE
7117:
7118: -- dbms_output.put_line('Not expired');
7119: -- set program end date = least of (program_calculated_date, contract_start + calender_days, contract_end_date)
7120: --UPDATE ahl_applicable_mrs
7121: --SET program_end_date = LEAST (nvl(l_program_due_date,contract_end_date),
7122: -- decode(l_program_calender_days,0, contract_end_date, contract_start_date + l_program_calender_days),
7123: -- contract_end_date)
7124: --WHERE program_mr_header_id = program_rec.program_mr_header_id

Line 7132: l_upd_SQLstmt_str := 'UPDATE ahl_applicable_mrs' ||

7128: -- and l_program_due_date.
7129:
7130: IF (program_rec.whichever_first_code = 'FIRST') THEN
7131:
7132: l_upd_SQLstmt_str := 'UPDATE ahl_applicable_mrs' ||
7133: ' SET program_end_date = LEAST (nvl(:1,contract_end_date),' ||
7134: ' decode(:2,0, contract_end_date, contract_start_date + :3),' ||
7135: ' contract_end_date)' ||
7136: ' WHERE program_mr_header_id = :4' ||

Line 7140: l_upd_SQLstmt_str := 'UPDATE ahl_applicable_mrs' ||

7136: ' WHERE program_mr_header_id = :4' ||
7137: ' AND PM_schedule_exists = :5';
7138: ELSE
7139:
7140: l_upd_SQLstmt_str := 'UPDATE ahl_applicable_mrs' ||
7141: ' SET program_end_date = LEAST ( GREATEST (nvl(:1,contract_end_date),' ||
7142: ' decode(:2,0, contract_end_date, contract_start_date + :3)),' ||
7143: ' contract_end_date)' ||
7144: ' WHERE program_mr_header_id = :4' ||

Line 7178: FROM ahl_applicable_mrs

7174: SELECT DISTINCT mr_header_id, csi_item_instance_id, service_line_id,
7175: program_mr_header_id, contract_end_date, program_end_date,
7176: show_repetitive_code,
7177: repetitive_flag
7178: FROM ahl_applicable_mrs
7179: WHERE pm_schedule_exists = 'Y';
7180:
7181: -- Fix for FP bug# 6327241. We should be able to process multiple contracts.
7182: /*

Line 7188: FROM ahl_applicable_mrs

7184: -- and contract_start_date. Process only the first one.
7185: CURSOR ahl_cont_scheduled_csr(p_mr_header_id IN NUMBER) IS
7186: SELECT mr_header_id, service_line_id, mr_effectivity_id,
7187: program_mr_header_id, contract_end_date, program_end_date
7188: FROM ahl_applicable_mrs
7189: WHERE mr_header_id = p_mr_header_id
7190: AND pm_schedule_exists = 'Y'
7191: ORDER BY coverage_imp_level , contract_start_date;
7192: */

Line 7462: l_del_SQLstmt_str := 'DELETE FROM ahl_applicable_mrs' ||

7458: END IF; /* count */
7459: --END IF; /* one time mr flag */
7460:
7461: -- Delete duplicate programs/contracts for this mr_header_id if they exist.
7462: l_del_SQLstmt_str := 'DELETE FROM ahl_applicable_mrs' ||
7463: ' WHERE mr_header_id = :1 AND pm_schedule_exists = ''N'' '||
7464: ' AND service_line_id <> :2';
7465:
7466: IF G_DEBUG = 'Y' THEN

Line 7495: FROM ahl_applicable_mrs appl, ahl_mr_headers_b mr

7491: appl.repetitive_flag,
7492: appl.show_repetitive_code,
7493: mr.effective_to,
7494: mr.effective_from
7495: FROM ahl_applicable_mrs appl, ahl_mr_headers_b mr
7496: WHERE appl.mr_header_id = mr.mr_header_id AND
7497: appl.pm_schedule_exists = 'N';
7498:
7499: l_last_day_of_window DATE;

Line 7851: FROM ahl_applicable_mrs

7847: CURSOR ahl_contract_exists_csr(p_mr_header_id IN NUMBER,
7848: p_due_date IN DATE) IS
7849: SELECT program_mr_header_id,
7850: service_line_id, contract_start_date, contract_end_date, program_end_date
7851: FROM ahl_applicable_mrs
7852: WHERE mr_header_id = p_mr_header_id
7853: AND pm_schedule_exists = 'N'
7854: AND trunc(program_end_date) >= trunc(p_due_date) -- eliminate expired programs.
7855: AND trunc(p_due_date) >= trunc(contract_start_date)

Line 7865: FROM ahl_applicable_mrs

7861: p_due_date IN DATE) IS
7862: SELECT program_mr_header_id,
7863: service_line_id,
7864: contract_start_date, contract_end_date, program_end_date
7865: FROM ahl_applicable_mrs
7866: WHERE pm_schedule_exists = 'N'
7867: AND trunc(program_end_date) >= trunc(p_due_date) -- eliminate expired programs.
7868: AND mr_header_id = p_mr_header_id
7869: AND trunc(p_due_date) <= trunc(contract_start_date)

Line 9500: FROM ahl_applicable_mrs

9496:
9497: CURSOR ahl_applicable_mr_csr (p_csi_item_instance_id IN NUMBER,
9498: p_mr_header_id IN NUMBER) IS
9499: SELECT 'x'
9500: FROM ahl_applicable_mrs
9501: WHERE mr_header_id = p_mr_header_id AND
9502: csi_item_instance_id = p_csi_item_instance_id;
9503:
9504: