UOM CONVERSION

declare
  X_ROW_ID                VARCHAR2(100):=NULL;
  X_UNIT_OF_MEASURE       VARCHAR2(100):='gillie';--UNIT_OF_MEASURE
  X_UNIT_OF_MEASURE_TL    VARCHAR2(100):='gillie';--UNIT_OF_MEASURE_TL
  X_ATTRIBUTE_CATEGORY    VARCHAR2(100):=NULL;
  X_ATTRIBUTE1            VARCHAR2(100):=NULL;
  X_ATTRIBUTE2            VARCHAR2(100):=NULL;
  X_ATTRIBUTE3            VARCHAR2(100):=NULL;
  X_ATTRIBUTE4            VARCHAR2(100):=NULL;
  X_ATTRIBUTE5            VARCHAR2(100):=NULL; --
  X_ATTRIBUTE6            VARCHAR2(100):=NULL;
  X_ATTRIBUTE7            VARCHAR2(100):=NULL;
  X_ATTRIBUTE8            VARCHAR2(100):=NULL;
  X_ATTRIBUTE9            VARCHAR2(100):=NULL;
  X_ATTRIBUTE10           VARCHAR2(100):=NULL;
  X_ATTRIBUTE11           VARCHAR2(100):=NULL;
  X_ATTRIBUTE12           VARCHAR2(100):=NULL;
  X_ATTRIBUTE13           VARCHAR2(100):=NULL;
  X_ATTRIBUTE14           VARCHAR2(100):=NULL;
  X_ATTRIBUTE15           VARCHAR2(100):=NULL;  --
  X_REQUEST_ID             NUMBER :=1;
  X_DISABLE_DATE             DATE :=NULL;
  X_BASE_UOM_FLAG         VARCHAR2(100) :='N';
  X_UOM_CODE              VARCHAR2(100):='gs';--UOM_CODE
  X_UOM_CLASS             VARCHAR2(100):='Area';--uom class from MTL_UOM_CLASSES table
  X_DESCRIPTION           VARCHAR2(100):='our uom';--uom description
  X_CREATION_DATE         DATE := SYSDATE;
  X_LAST_UPDATE_DATE      DATE  := SYSDATE;
  X_LAST_UPDATE_LOGIN     NUMBER;
  X_PROGRAM_APPLICATION_ID NUMBER :=1;--30
  X_PROGRAM_ID            NUMBER := 1;
  X_PROGRAM_UPDATE_DATE   DATE  :=sysdate;
  l_user_id               NUMBER :=Fnd_Profile.VALUE('USER_ID');--profile value
  l_resp_id               NUMBER :=fnd_global.resp_id;
  l_appl_id               NUMBER :=fnd_global.resp_appl_id;
  l_org_id                NUMBER :=fnd_global.org_id;
  l_login_id              NUMBER :=Fnd_Profile.VALUE('LOGIN_ID');--profile value
  X_LAST_UPDATED_BY       NUMBER :=Fnd_Profile.VALUE('USER_ID');
  X_CREATED_BY            NUMBER :=Fnd_Profile.VALUE('USER_ID');

begin
X_LAST_UPDATE_LOGIN:=l_login_id;
fnd_client_info.set_org_context(204);--initializing org_id
fnd_global.apps_initialize(l_user_id, l_resp_id, l_appl_id,l_login_id);
dbms_output.put_line('Calling API');
mtl_units_of_measure_tl_pkg.insert_row(
x_ROW_ID
,X_UNIT_OF_MEASURE
,X_UNIT_OF_MEASURE_TL
,X_ATTRIBUTE_CATEGORY
,X_ATTRIBUTE1--50
,X_ATTRIBUTE2
,X_ATTRIBUTE3
,X_ATTRIBUTE4
,X_ATTRIBUTE5
,X_ATTRIBUTE6
,X_ATTRIBUTE7
,X_ATTRIBUTE8
,X_ATTRIBUTE9
,X_ATTRIBUTE10
,X_ATTRIBUTE11
,X_ATTRIBUTE12
,X_ATTRIBUTE13
,X_ATTRIBUTE14
,X_ATTRIBUTE15
,X_REQUEST_ID
,X_DISABLE_DATE
,X_BASE_UOM_FLAG
,X_UOM_CODE
,X_UOM_CLASS
,X_DESCRIPTION
,X_CREATION_DATE
,X_CREATED_BY
,X_LAST_UPDATE_DATE
,X_LAST_UPDATED_BY
,X_LAST_UPDATE_LOGIN
,X_PROGRAM_APPLICATION_ID
,X_PROGRAM_ID
,X_PROGRAM_UPDATE_DATE
 );--,userenv
commit;
if(X_ROW_ID IS not NULL ) then
dbms_output.put_line('UOM CREATED SUCCESSFULLY');
dbms_output.put_line(' ROW ID : '||x_ROW_ID);
ELSE
dbms_output.put_line('SORRY NO UOM IS CREATED');
END IF;
EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE('ERROR!');
DBMS_OUTPUT.PUT_LINE('ERROR='||sqlerrm);
end;