[Home] [Help]
472: x_return_status := FND_API.G_RET_STS_SUCCESS;
473:
474: /* Added condition for date through bug 3238782 */
475:
476: SELECT count(*) INTO l_total FROM bom_inventory_components WHERE
477: bill_sequence_id = p_bom_comp_unexp_rec.bill_sequence_id
478: and sysdate between effectivity_date and
479: nvl(disable_date,sysdate + 1);
480:
746: X_Count NUMBER := 0;
747: CURSOR X_All_Dates IS
748: SELECT 'X' date_available FROM sys.dual
749: WHERE EXISTS (
750: SELECT 1 from BOM_Inventory_Components
751: WHERE Component_Item_Id = X_Member_Item_Id
752: AND Bill_Sequence_Id = X_Bill_Sequence_Id
753: AND Operation_Seq_Num = X_Operation_Seq_Num
754: --Commented out line below for bug 8839091
809: X_Count NUMBER := 0;
810: CURSOR X_All_Numbers IS
811: SELECT 'X' unit_available FROM sys.dual
812: WHERE EXISTS (
813: SELECT 1 from BOM_Inventory_Components
814: WHERE Component_Item_Id = X_Member_Item_Id
815: AND Bill_Sequence_Id = X_Bill_Sequence_Id
816: AND Operation_Seq_Num = X_Operation_Seq_Num
817: AND DISABLE_DATE IS NULL --bug:5347036 Consider only enabled components
2113:
2114: CURSOR c_Op_Seq_Date_Used IS
2115: /* Check same component is not already effective */
2116: SELECT 'Already Used' op_seq_used
2117: FROM bom_inventory_components bic
2118: WHERE bic.bill_sequence_id =
2119: g_rev_comp_Unexp_rec.bill_sequence_id
2120: AND bic.component_item_id =
2121: g_rev_comp_Unexp_rec.component_item_id
2138:
2139: CURSOR c_Op_Seq_Unit_Used IS
2140: /* Check same component is not already effective */
2141: SELECT 'Already Used' op_seq_used
2142: FROM bom_inventory_components bic
2143: WHERE bic.bill_sequence_id =
2144: g_rev_comp_Unexp_rec.bill_sequence_id
2145: AND bic.component_item_id =
2146: g_rev_comp_Unexp_rec.component_item_id
2249: IS
2250: CURSOR c_Unit_Num_Used IS
2251: /* Check same component is not already effective */
2252: SELECT 'Already Used' unit_num_used
2253: FROM bom_inventory_components bic
2254: WHERE bic.bill_sequence_id =
2255: g_rev_comp_Unexp_rec.bill_sequence_id
2256: AND bic.component_item_id =
2257: g_rev_comp_Unexp_rec.component_item_id
3109:
3110: item_num_for_bill number := 0;
3111: CURSOR c_ItemDateNum IS
3112: SELECT 'Valid'
3113: FROM BOM_inventory_components
3114: WHERE item_num = p_rev_component_rec.item_sequence_number
3115: AND component_item_id <> p_rev_comp_unexp_rec.component_item_id
3116: AND trunc(effectivity_date) <=
3117: trunc(p_rev_component_rec.start_effective_date)
3121: AND bill_sequence_id = p_Rev_Comp_Unexp_rec.bill_sequence_id;
3122:
3123: CURSOR c_ItemUnitNum IS
3124: SELECT 'Valid'
3125: FROM BOM_inventory_components
3126: WHERE item_num = p_rev_component_rec.item_sequence_number
3127: AND component_item_id <> p_rev_comp_unexp_rec.component_item_id
3128: AND disable_date is NULL
3129: AND from_end_item_unit_number <=
3171:
3172: l_bill_to_end_number VARCHAR2(30);
3173: CURSOR c_To_End_Item_Number IS
3174: SELECT To_End_Item_Unit_Number
3175: FROM BOM_Inventory_Components
3176: WHERE component_sequence_id =
3177: g_rev_comp_unexp_rec.old_component_sequence_id;
3178:
3179:
3186: IS
3187: SELECT 'Old Comp is invalid'
3188: FROM SYS.DUAL
3189: WHERE NOT EXISTS ( SELECT NULL
3190: FROM BOM_INVENTORY_COMPONENTS ic
3191: WHERE /*bug 11786826 comment this. TRUNC(ic.effectivity_date) <=
3192: TRUNC(p_rev_component_rec.start_effective_date)
3193: AND */
3194: NVL(ic.disable_date,
3197: AND NVL(ic.disable_date , SYSDATE + 1) > SYSDATE
3198: AND NVL(ic.revised_item_sequence_id, -999)
3199: <> NVL(p_rev_comp_unexp_rec.revised_item_sequence_id, -100)
3200: AND NOT EXISTS (SELECT NULL
3201: FROM bom_inventory_components ic2
3202: WHERE ic2.revised_item_sequence_id
3203: = NVL(p_rev_comp_unexp_rec.revised_item_sequence_id,
3204: -888)
3205: AND decode(ic2.implementation_date,
4447: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Old sequence: ' || to_char(p_rev_comp_Unexp_rec.old_component_sequence_id)); END IF;
4448: BEGIN
4449: SELECT 'Component Implemented'
4450: INTO l_dummy
4451: FROM bom_inventory_components
4452: WHERE component_sequence_id =
4453: p_rev_comp_Unexp_rec.old_component_sequence_id
4454: AND implementation_date IS NOT NULL;
4455:
4702: THEN
4703: BEGIN
4704: SELECT operation_seq_num
4705: INTO l_result
4706: FROM bom_inventory_components
4707: WHERE component_sequence_id =
4708: p_rev_comp_unexp_rec.old_component_sequence_id
4709: AND operation_seq_num =
4710: p_Rev_Component_rec.old_operation_sequence_number;
6777: SELECT 'Component cancelled'
6778: INTO l_dummy
6779: FROM sys.dual
6780: WHERE NOT EXISTS
6781: (SELECT 1 from bom_inventory_components
6782: WHERE component_sequence_id =
6783: p_rev_comp_Unexp_rec.component_sequence_id
6784: )
6785: AND EXISTS (SELECT 1 from eng_revised_components
6954: )
6955: IS
6956: CURSOR c_GetComponent IS
6957: SELECT revised_item_sequence_id
6958: FROM bom_inventory_components
6959: WHERE component_item_id = p_rev_comp_unexp_rec.component_item_id
6960: AND bill_sequence_id = p_rev_comp_unexp_rec.bill_sequence_id
6961: AND operation_seq_num =
6962: p_rev_component_rec.operation_sequence_number
7059: SELECT 1
7060: FROM sys.dual
7061: WHERE NOT EXISTS
7062: ( SELECT component_sequence_id
7063: FROM bom_inventory_components
7064: WHERE component_item_id = p_component_item_id
7065: AND bill_sequence_id = p_bill_sequence_id
7066: AND effectivity_date = p_effectivity_date
7067: AND operation_seq_num = p_operation_seq_num
7076: );
7077:
7078: CURSOR c_CheckDisabled IS
7079: SELECT component_item_id
7080: FROM bom_inventory_components
7081: WHERE component_item_id = p_component_item_id
7082: AND bill_sequence_id = p_bill_sequence_id
7083: AND effectivity_date = p_effectivity_date
7084: AND operation_seq_num = p_operation_seq_num