[Home] [Help]
1650:
1651: CURSOR Get_Operational_Routing_Info( routing_id IN NUMBER) IS
1652: SELECT pending_from_ecn
1653: , alternate_routing_designator
1654: FROM bom_operational_routings
1655: WHERE routing_sequence_id = routing_id ;
1656: -- ERES change ends
1657:
1658: abort_implementation exception;
2169: CURSOR get_common_routing IS
2170: SELECT r.organization_id,
2171: r.assembly_item_id,
2172: r.routing_sequence_id
2173: FROM bom_operational_routings r
2174: WHERE r.common_assembly_item_id = item.revised_item_id
2175: AND r.common_routing_sequence_id = item.routing_sequence_id;
2176:
2177: common_routing get_common_routing%ROWTYPE;
2798: null bom_revision,
2799: null routing_revision
2800: FROM wip_discrete_jobs wdj,
2801: wip_entities we,
2802: bom_operational_routings b
2803: WHERE we.organization_id = wdj.organization_id
2804: AND wdj.wip_entity_id = we.wip_entity_id
2805: AND wdj.status_type = 1
2806: AND wdj.job_type = 1
2853: Cursor Check_Routing(p_item_id IN NUMBER,
2854: p_org_id IN NUMBER,
2855: p_alternate IN VARCHAR2) is
2856: Select 'x' dummy
2857: From bom_operational_routings bor
2858: Where bor.assembly_item_id = p_item_id
2859: And bor.organization_id = p_org_id
2860: And nvl(bor.alternate_routing_designator, 'PRIMARY ALTERNATE') =
2861: nvl(p_alternate, 'PRIMARY ALTERNATE')
3408: --Again, we allow empty routings to get implemented for the same reason for which we allowe empty BOMs
3409: SELECT Count(*) INTO l_no_operations FROM dual WHERE EXISTS(
3410: select 1 FROM bom_operation_sequences WHERE routing_sequence_id IN
3411: (
3412: SELECT routing_sequence_id FROM BOM_OPERATIONAL_ROUTINGS WHERE
3413: ASSEMBLY_ITEM_ID = item.revised_item_id and
3414: ORGANIZATION_ID = item.organization_id
3415: ) AND revised_item_sequence_id = item.revised_item_sequence_id AND acd_type <> acd_delete
3416: );
5068: IF item.routing_sequence_id IS NOT NULL
5069: THEN
5070: SELECT alternate_routing_designator
5071: INTO l_alternate_routing_designator
5072: FROM bom_operational_routings
5073: WHERE routing_sequence_id = item.routing_sequence_id;
5074: /*
5075: BOM_Rtg_Header_Util.Query_Row
5076: ( p_assembly_item_id => item.revised_item_id
5112: ,l_common_routing_sequence_id
5113: ,l_ctp_flag
5114: ,l_priority
5115: ,l_routing_comment
5116: FROM bom_operational_routings
5117: WHERE assembly_item_id = item.revised_item_id
5118: AND organization_id = item.organization_id
5119: AND NVL(alternate_routing_designator, 'NULL_ALTERNATE_DESIGNATOR' )
5120: = NVL(l_alternate_routing_designator, 'NULL_ALTERNATE_DESIGNATOR')
5127: item.priority IS NOT NULL OR
5128: item.routing_comment IS NOT NULL
5129: THEN
5130:
5131: UPDATE bom_operational_routings
5132: SET common_assembly_item_id =
5133: l_common_assembly_item_id
5134: , common_routing_sequence_id =
5135: l_common_routing_sequence_id
5157: -- ERES flag to be set for triggering Routing Event:
5158: bERES_Flag_for_Routing := TRUE;
5159: -- Bug 4455543: Set l_WIP_Flag_for_Routing when routing header is being updated by revised item
5160: l_WIP_Flag_for_Routing := 'Y';
5161: FND_FILE.PUT_LINE(FND_FILE.LOG, 'in bom_operational_routings ... bERES_Flag_for_Routing=TRUE');
5162: END IF;
5163: -- ERES changes end.
5164: END IF;
5165: --end of bugfix 3234628
7797: , l_alternate_designator;
7798: CLOSE Get_Operational_Routing_Info;
7799: -- ERES change ends
7800:
7801: Update bom_operational_routings
7802: set last_update_date = sysdate,
7803: last_updated_by = userid,
7804: last_update_login = loginid,
7805: request_id = reqstid,
7820: IF (l_eres_enabled = 'Y')
7821: THEN
7822: -- bug 3234628, May-2004:
7823: -- odaboval added this test in order to only raise an ERES event
7824: -- when a row in bom_operational_routings has been updated:
7825: -- bug 3908563 : added bERES_Flag_for_Routing in the condition
7826: -- and removed ROWCOUNT>0 from the condition.
7827: IF (bERES_Flag_for_Routing)
7828: THEN