API to add lines in move order

I created API to add lines in move order without any error but no data inserted in move order:

DECLARE

    -- Common Declarations

    l_api_version   NUMBER := 1.0; 

    l_init_msg_list   VARCHAR2(2) := FND_API.G_TRUE; 

    l_return_values  VARCHAR2(2) := FND_API.G_FALSE; 

    l_commit   VARCHAR2(2) := FND_API.G_FALSE; 

    x_return_status  VARCHAR2(2);

    x_msg_count   NUMBER := 0;

    x_msg_data     VARCHAR2(255);

   

    -- WHO columns

    l_user_id     NUMBER := -1;

    l_resp_id     NUMBER := -1;

    l_application_id NUMBER := -1;

    l_row_cnt      NUMBER := 2;

    l_user_name     VARCHAR2(30) := 'MSHAZLY';

    l_resp_name    VARCHAR2(50) := 'Inventory - PBG';  

     

    -- API specific declarations