Packages
hl7v2
0.5.6
3.10.1
3.9.0
3.8.0
3.7.0
3.6.0
3.5.0
3.4.0
3.3.6
3.3.5
3.3.4
3.3.3
3.3.2
3.3.1
3.3.0
3.2.0
3.1.1
3.1.0
3.0.2
3.0.1
3.0.0
2.11.0
2.10.0
2.9.1
2.9.0
2.8.2
2.8.1
2.8.0
2.7.1
2.7.0
2.6.0
2.5.0
2.4.0
2.3.0
2.2.0
2.1.3
2.1.2
2.1.1
2.1.0
1.4.6
1.4.4
1.4.3
1.4.2
1.4.1
1.4.0
1.3.0
1.2.0
1.1.0
1.0.0
0.6.0
0.5.6
0.5.5
0.5.4
0.5.3
0.5.2
0.5.1
0.5.0
0.1.0
Pure Elixir HL7 v2.x toolkit — schema-driven parsing, typed segments, message builder, MLLP transport
Current section
Files
Jump to
Current section
Files
lib/hl7v2/type/dld.ex
defmodule HL7v2.Type.DLD do
@moduledoc """
Discharge to Location and Date (DLD) -- HL7v2 composite data type.
Used to convey the location where a patient is discharged to and the
effective date of discharge.
2 components:
1. Discharge to Location (IS) -- Table 0113
2. Effective Date (TS) -- sub-components delimited by `&`
"""
@behaviour HL7v2.Type
alias HL7v2.Type
alias HL7v2.Type.TS
defstruct [:discharge_to_location, :effective_date]
@type t :: %__MODULE__{
discharge_to_location: binary() | nil,
effective_date: TS.t() | nil
}
@doc """
Parses a DLD from a list of components.
## Examples
iex> HL7v2.Type.DLD.parse(["HOME"])
%HL7v2.Type.DLD{discharge_to_location: "HOME"}
iex> HL7v2.Type.DLD.parse(["HOME", "20260322"])
%HL7v2.Type.DLD{discharge_to_location: "HOME", effective_date: %HL7v2.Type.TS{time: %HL7v2.Type.DTM{year: 2026, month: 3, day: 22}}}
iex> HL7v2.Type.DLD.parse([])
%HL7v2.Type.DLD{}
"""
@spec parse(list()) :: t()
def parse(components) when is_list(components) do
%__MODULE__{
discharge_to_location: Type.get_component(components, 0),
effective_date: parse_sub_ts(Type.get_component(components, 1))
}
end
@doc """
Encodes a DLD to a list of component strings.
## Examples
iex> HL7v2.Type.DLD.encode(%HL7v2.Type.DLD{discharge_to_location: "HOME"})
["HOME"]
iex> HL7v2.Type.DLD.encode(nil)
[]
"""
@spec encode(t() | nil) :: list()
def encode(nil), do: []
def encode(%__MODULE__{} = dld) do
[
dld.discharge_to_location || "",
encode_sub_ts(dld.effective_date)
]
|> Type.trim_trailing()
end
defp parse_sub_ts(nil), do: nil
defp parse_sub_ts(value) when is_binary(value) do
subs = String.split(value, Type.sub_component_separator())
ts_val = TS.parse(subs)
if ts_val.time == nil and ts_val.degree_of_precision == nil, do: nil, else: ts_val
end
defp encode_sub_ts(nil), do: ""
defp encode_sub_ts(%TS{} = ts) do
ts |> TS.encode() |> Enum.join(Type.sub_component_separator())
end
end