Acceptance Testing/Business partner category script

DECLARE

v_bp_category_id number(10);
v_client_id number(10);

BEGIN

SELECT MAX(AD_CLIENT_ID) INTO v_client_id FROM AD_CLIENT;

SELECT coalesce(MAX(C_BP_GROUP_ID),999999)+1 INTO v_bp_category_id FROM C_BP_GROUP;

INSERT INTO C_BP_GROUP (C_BP_GROUP_ID, AD_CLIENT_ID, AD_ORG_ID,ISACTIVE, CREATED, CREATEDBY, UPDATED, UPDATEDBY, VALUE,NAME) 
VALUES ( v_bp_category_id,  v_client_id, 0, 'Y',sysdate ,100 ,sysdate ,100 ,'VEN' ,'VENDOR');

v_bp_category_id:=v_bp_category_id+1;

INSERT INTO C_BP_GROUP (C_BP_GROUP_ID, AD_CLIENT_ID, AD_ORG_ID,ISACTIVE, CREATED, CREATEDBY, UPDATED, UPDATEDBY, VALUE,NAME) 
VALUES ( v_bp_category_id,  v_client_id, 0, 'Y',sysdate ,100 ,sysdate ,100 ,'CRT' ,'CREDITOR');
		   
 
v_bp_category_id:=v_bp_category_id+1;

INSERT INTO C_BP_GROUP (C_BP_GROUP_ID, AD_CLIENT_ID, AD_ORG_ID,ISACTIVE, CREATED, CREATEDBY,UPDATED, UPDATEDBY, VALUE,NAME) 
VALUES ( v_bp_category_id, v_client_id, 0, 'Y',sysdate ,100 ,sysdate ,100 ,'EM' ,'EMPLOYEE');
			   
v_bp_category_id:=v_bp_category_id+1;

INSERT INTO C_BP_GROUP (C_BP_GROUP_ID, AD_CLIENT_ID, AD_ORG_ID,ISACTIVE, CREATED, CREATEDBY, UPDATED, UPDATEDBY, VALUE,NAME) 
VALUES ( v_bp_category_id, v_client_id, 0, 'Y',sysdate ,100 ,sysdate ,100 ,'SM' ,'SALESMAN');
		   
AD_UPDATE_SEQUENCE();

commit;

END;