for {
      c         <- client                                     \/> "No CP client defined !"
      userId    <- basket.owner                               \/> "No onwer set for basket"
      user      <- configuration.pharmacy.users.get(userId)   \/> "User not found"
      response  <- c.createParcel(basket, user, description)
      result    <- response.SetParcelResult                   \/> "No result in CP response"
      labelUrl  <- result.LabelUrl                            \/> "No label in CP response"
      parcelId  <- result.CPPclCode                           \/> "No parcel id in CP response"
    } yield PackagePrepared(configuration.pharmacy.id, basket.id, pharmacist, PackageDetails(labelUrl, parcelId, description))