Acceptance Testing/Products Categories script

DECLARE
v_client_id number(10);
v_product_category_id number(10);

BEGIN

SELECT MAX(AD_CLIENT_ID) INTO v_client_id FROM AD_CLIENT;

SELECT MAX(M_PRODUCT_CATEGORY_ID)+1 INTO v_product_category_id FROM  M_PRODUCT_CATEGORY; 

INSERT INTO M_PRODUCT_CATEGORY (M_PRODUCT_CATEGORY_ID, AD_CLIENT_ID, AD_ORG_ID, 
  ISACTIVE, CREATED, CREATEDBY, UPDATED, UPDATEDBY, VALUE, NAME, PLANNEDMARGIN) 
VALUES (v_product_category_id, v_client_id, 0 , 'Y', sysdate , 100, sysdate, 100, 'BOM', 'BOMs', 0);

v_product_category_id:=v_product_category_id + 1;

INSERT INTO M_PRODUCT_CATEGORY (M_PRODUCT_CATEGORY_ID, AD_CLIENT_ID, AD_ORG_ID, 
  ISACTIVE, CREATED, CREATEDBY, UPDATED, UPDATEDBY, VALUE, NAME, PLANNEDMARGIN) 
VALUES (v_product_category_id, v_client_id, 0 , 'Y', sysdate , 100, sysdate, 100, 'FG', 'Final goods',0);

AD_UPDATE_SEQUENCE();

commit;

end;