[Home] [Help]
769:
770: /* End of changes SGIDUGU - Seq Dep */
771:
772: /* ------------------------------- BOM declarations --------------------------- */
773: TYPE alternate_bom_designator IS TABLE OF msc_st_boms.alternate_bom_designator%TYPE
774: INDEX BY BINARY_INTEGER;
775: bom_alternate_bom_designator alternate_bom_designator ;
776: empty_alternate_bom_designator alternate_bom_designator ;
777:
774: INDEX BY BINARY_INTEGER;
775: bom_alternate_bom_designator alternate_bom_designator ;
776: empty_alternate_bom_designator alternate_bom_designator ;
777:
778: TYPE specific_assembly_comment IS TABLE OF msc_st_boms.specific_assembly_comment%TYPE
779: INDEX BY BINARY_INTEGER;
780: bom_specific_assembly_comment specific_assembly_comment ;
781: empty_bom_assembly_comment specific_assembly_comment ;
782:
782:
783: bom_scaling_type number_idx_tbl ;
784: bom_assembly_quantity number_idx_tbl ;
785:
786: TYPE uom IS TABLE OF msc_st_boms.uom%TYPE INDEX BY BINARY_INTEGER;
787: bom_uom uom ;
788: empty_bom_uom uom ;
789:
790: /* NAMIT_CR For Step Material Assoc */
4577: -- bom_created_by(bom_index) := 0;
4578:
4579: EXCEPTION
4580: WHEN OTHERS THEN
4581: log_message('Error writing to msc_st_boms: '||sqlerrm);
4582: /* B3837959 MMK Issue, set return status to false */
4583: return_status := FALSE;
4584: END;
4585: primary_bom_written := 1 ;
6872: stmt_no := 902 ;
6873: i := 1 ; /* B3837959 MMK Issue */
6874: IF bom_organization_id.FIRST > 0 THEN
6875: FORALL i IN bom_organization_id.FIRST..bom_organization_id.LAST
6876: INSERT INTO msc_st_boms (
6877: bill_sequence_id,
6878: sr_instance_id,
6879: organization_id,
6880: assembly_item_id,