DECLARE
   l_appl_id             NUMBER;
   l_appl_name           VARCHAR2 (100) := 'ONT';
   l_user_id             NUMBER;
   l_user_name           VARCHAR2 (100) := 'VKALE';
   l_responsibility_id   NUMBER;
   l_resp_name           VARCHAR2 (200)
                                       := 'Order Management Super User';
    p_changed_attributes            WSH_DELIVERY_DETAILS_PUB.ChangedAttributeTabType;
    p_serial_range_tab               WSH_DELIVERY_DETAILS_GRP.serialRangeTabType;
    l_err_flag_tr                varchar2(3);
    l_error_mesg_tr                   VARCHAR2(2000);
    l_tracking_number            VARCHAR2(40);
    x_msg_data                VARCHAR2 (5000);
    x_msg_summary             VARCHAR2 (1000);
    x_msg_details             VARCHAR2 (4000);
    x_msg_count          NUMBER;
    x_return_status          VARCHAR2(3);
    p_container_flag      VARCHAR2(5);
    l_err_m              VARCHAR2 (2000);
BEGIN
-- To get the Application ID of given Application.
   SELECT application_id
     INTO l_appl_id
     FROM fnd_application
    WHERE application_short_name = l_appl_name;
-- To get the User ID information of  given user
   SELECT user_id
     INTO l_user_id
     FROM fnd_user
    WHERE user_name = l_user_name;
-- To get the Resp ID information of the given responsibility.
   SELECT responsibility_id
     INTO l_responsibility_id
     FROM fnd_responsibility_tl
    WHERE responsibility_name = l_resp_name AND application_id = l_appl_id;
--Initialixze the Application to use the API. 
   fnd_global.apps_initialize (l_user_id, l_responsibility_id, l_appl_id);
   p_changed_attributes(1).subinventory := NULL;
   p_changed_attributes(1).source_header_id := 1645627 ;
	 p_changed_attributes(1).source_line_id := 4801062;
	 p_changed_attributes(1).tracking_number := '99999';
	 p_changed_attributes(1).delivery_detail_id := 5936253;
     		WSH_DELIVERY_DETAILS_PUB.Update_Shipping_Attributes (
                                  p_api_version_number     => 1.0,
                                  p_init_msg_list          => fnd_api.g_true,
                                  p_commit                 => fnd_api.g_true,
                                  x_return_status          => x_return_status,
                                  x_msg_count              => x_msg_count,
                                  x_msg_data               => x_msg_data,
                                  p_changed_attributes => p_changed_attributes,
                                  p_source_code    => 'WSH',
                                  p_container_flag => p_container_flag
                            );
 commit;                             
dbms_output.put_line(x_msg_data);
END;
/