1: package body MTL_CATEGORY_SETS_PKG as
2: /* $Header: INVICSHB.pls 120.4 2006/06/05 12:08:59 lparihar ship $ */
3:
4: -- ----------------------------------------------------------------------
5: -- PROCEDURE: Insert_Row
264: X_CATEGORY_SET_ID in NUMBER
265: ) is
266: begin
267:
268: raise_application_error( -20000, 'MTL_CATEGORY_SETS_PKG: CANNOT_DELETE_RECORD' );
269:
270: -- This code is for future use when decided to validate
271: -- and delete category sets.
272: /*
560: NULL;
561: END;
562: END IF;
563:
564: MTL_CATEGORY_SETS_Pkg.Update_Row
565: (
566: x_category_set_id => x_category_set_id
567: , x_category_set_name => x_category_set_name
568: , x_description => x_description
617: l_control_level := db_control_level;
618: END IF;
619: --Bug:4225603 Ended
620:
621: MTL_CATEGORY_SETS_Pkg.Update_Row
622: (
623: x_category_set_id => X_CATEGORY_SET_ID
624: , X_CONTROL_LEVEL_UPDT_FLAG => X_CONTROL_LEVEL_UPDT_FLAG
625: , X_MULT_ITEM_CAT_UPDT_FLAG => X_MULT_ITEM_CAT_UPDT_FLAG
635: END IF;
636:
637: EXCEPTION
638: WHEN no_data_found THEN
639: MTL_CATEGORY_SETS_Pkg.Insert_Row
640: (
641: X_ROWID => l_Rowid
642: , x_category_set_id => x_category_set_id
643: , x_category_set_name => x_category_set_name
709: END;
710:
711: -- select sysdate into l_date from dual;
712:
713: MTL_CATEGORY_SETS_PKG.Update_Row(
714: X_CATEGORY_SET_ID => l_cat_set_id,
715: X_CATEGORY_SET_NAME => X_CATEGORY_SET_NAME,
716: X_DESCRIPTION => X_DESCRIPTION,
717: X_STRUCTURE_ID => l_structure_id,
755: END;
756:
757: --Insert the new category set name, but category set id
758: --is sequence generated
759: MTL_CATEGORY_SETS_Pkg.Insert_Row
760: (
761: X_ROWID => l_Rowid
762: , x_category_set_id => l_cat_set_id
763: , x_category_set_name => X_CATEGORY_SET_NAME
779: );
780: end;
781: end;
782:
783: end MTL_CATEGORY_SETS_PKG;