[Home] [Help]
1: PACKAGE BODY AHL_CMP_UTIL_PKG AS
2: /* $Header: AHLUCMPB.pls 120.0.12020000.4 2013/02/19 20:55:18 sikumar noship $ */
3:
4: -- Package constants
5: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AHL_CMP_UTIL_PKG';
1: PACKAGE BODY AHL_CMP_UTIL_PKG AS
2: /* $Header: AHLUCMPB.pls 120.0.12020000.4 2013/02/19 20:55:18 sikumar noship $ */
3:
4: -- Package constants
5: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AHL_CMP_UTIL_PKG';
6: G_APP_NAME CONSTANT VARCHAR2(3) := 'AHL';
7:
8: ------------------------------------------------------------------------------------
9: -- Common variables
179: OPEN validate_inst_loc_csr (p_instance_id);
180: FETCH validate_inst_loc_csr INTO l_dummy;
181: IF (validate_inst_loc_csr%FOUND) THEN
182: -- For instances in INVENTORY, get the repair batch for the instance
183: l_rpr_batch := AHL_CMP_UTIL_PKG.Get_Rpr_Batch_For_Inst(p_instance_id, p_org_id);
184:
185: IF (l_rpr_batch IS NOT NULL) THEN
186: -- if the repair batch has any RTS workorder for this instance, then the status is PRODUCTION
187: -- else, the status is PLANNING
184:
185: IF (l_rpr_batch IS NOT NULL) THEN
186: -- if the repair batch has any RTS workorder for this instance, then the status is PRODUCTION
187: -- else, the status is PLANNING
188: l_rts_flag := AHL_CMP_UTIL_PKG.Check_Rts_Workorder_Exists(l_rpr_batch, p_instance_id);
189: IF (l_rts_flag = 'Y') THEN
190: l_ret_val := 'PRODUCTION';
191: ELSE
192: l_ret_val := 'PLANNING';
765: AND task.VISIT_ID = visit.visit_id
766: AND task.inventory_item_id = p_item_id
767: AND visit.organization_id = p_org_id
768: AND (p_comp_visit_flag IS NULL OR
769: AHL_CMP_UTIL_PKG.Is_Comp_Visit(task.visit_id) = p_comp_visit_flag)
770: AND WDJ.scheduled_completion_date >=
771: NVL(p_start_date,WDJ.scheduled_completion_date)
772: AND WDJ.scheduled_completion_date <=
773: NVL(p_end_date,WDJ.scheduled_completion_date)
789: AND WDJ.WIP_ENTITY_ID = WO.WIP_ENTITY_ID
790: AND WO.STATUS_CODE IN (1,3,6,17,19,20)
791: AND task.instance_id = p_instance_id
792: AND (p_comp_visit_flag IS NULL OR
793: AHL_CMP_UTIL_PKG.Is_Comp_Visit(task.visit_id) = p_comp_visit_flag)
794: AND WDJ.scheduled_completion_date >=
795: NVL(p_start_date,WDJ.scheduled_completion_date)
796: AND WDJ.scheduled_completion_date <=
797: NVL(p_end_date,WDJ.scheduled_completion_date)
877: AND task.inventory_item_id = p_item_id
878: AND visit.organization_id = p_org_id
879: AND return_to_supply_flag = 'Y'
880: AND (p_comp_visit_flag IS NULL OR
881: AHL_CMP_UTIL_PKG.Is_Comp_Visit(task.visit_id) = p_comp_visit_flag)
882: AND WDJ.scheduled_completion_date >=
883: NVL(p_start_date,WDJ.scheduled_completion_date)
884: AND WDJ.scheduled_completion_date <=
885: NVL(p_end_date,WDJ.scheduled_completion_date)
1003: OPEN rpr_batch_quantities_csr(p_repair_batch);
1004: FETCH rpr_batch_quantities_csr INTO l_serviceable_qty, l_unserviceable_qty;
1005: CLOSE rpr_batch_quantities_csr;
1006:
1007: l_repair_qty := AHL_CMP_UTIL_PKG.Get_Batch_Qty(p_repair_batch) + l_serviceable_qty + l_unserviceable_qty;
1008:
1009: RETURN l_repair_qty;
1010:
1011: END Get_Rpr_Qty;
1010:
1011: END Get_Rpr_Qty;
1012: -----------------------------------------------------------------------------------------------------------
1013:
1014: END AHL_CMP_UTIL_PKG;