132: FUNCTION Get_Component_Sequence
133: RETURN NUMBER
134: IS
135: CURSOR Comp_Seq IS
136: SELECT Bom_Inventory_Components_S.NEXTVAL Component_Sequence
137: FROM SYS.DUAL;
138: BEGIN
139:
140: FOR c_Comp_Seq IN Comp_Seq LOOP
502: CLOSE c_CheckForNew;
503:
504: IF l_Bill_Sequence_Id IS NULL
505: THEN
506: SELECT BOM_INVENTORY_COMPONENTS_S.NextVal
507: INTO l_Bill_Sequence_Id
508: FROM SYS.DUAL;
509:
510: RETURN l_Bill_Sequence_id;