FUNCTION cancel_move_order(usr                 IN bp_apps.AppsUsr)
   RETURN BOOLEAN
IS
   v_ret             varchar2(1);
   v_msg_cnt         number;
   v_msg             varchar2(1000);
   v_header_id       mtl_txn_request_headers.header_id%TYPE := gem_txn.get_number('header_id');
   v_api_version     NUMBER := 1.0;
BEGIN
   INV_MO_ADMIN_PUB.CANCEL_ORDER(
      p_api_version  	          => v_api_version,
			p_init_msg_list	          => FND_API.G_FALSE,
			p_commit	                => FND_API.G_FALSE,
			p_validation_level        => FND_API.G_VALID_LEVEL_FULL,
			p_header_Id	              => v_header_id,
			x_msg_count               => v_msg_cnt,
			x_msg_data	              => v_msg,
			x_return_status           => v_ret );

   IF (v_ret != FND_API.G_RET_STS_SUCCESS) THEN
      IF v_msg_cnt IS NOT NULL THEN
         FOR i IN 1..v_msg_cnt LOOP
            bpascui.display_error('MO HEADER API ERROR: ', FND_MSG_PUB.Get(i,NULL), usr.error_wait);
         END LOOP;

         RETURN (FALSE);
      ELSE
         bpascui.display_error('MO HEADER API ERROR', usr.error_wait);

         RETURN (FALSE);
      END IF;
   ELSE
      co_debug.debug('bpa_request.cancel_move_order', 'completed');
      RETURN (TRUE);
      co_debug.debug('bpa_request.cancel_move_order', 'move order: '||v_header_id||'cancelled');
   END IF;
END cancel_move_order;