Packages
hl7v2
1.0.0
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/eld.ex
defmodule HL7v2.Type.ELD do
@moduledoc """
Error Location and Description (ELD) -- HL7v2 composite data type.
Deprecated in v2.5.1 (replaced by ERL + CWE), but retained for backward
compatibility with ERR-1 which uses this type.
4 components:
1. Segment ID (ST)
2. Segment Sequence (NM)
3. Field Position (NM)
4. Code Identifying Error (CE) -- sub-components delimited by `&`
"""
@behaviour HL7v2.Type
alias HL7v2.Type
alias HL7v2.Type.CE
defstruct [
:segment_id,
:segment_sequence,
:field_position,
:code_identifying_error
]
@type t :: %__MODULE__{
segment_id: binary() | nil,
segment_sequence: binary() | nil,
field_position: binary() | nil,
code_identifying_error: CE.t() | nil
}
@doc """
Parses an ELD from a list of components.
## Examples
iex> HL7v2.Type.ELD.parse(["PID", "1", "4", "101&Required field missing&HL70357"])
%HL7v2.Type.ELD{
segment_id: "PID",
segment_sequence: "1",
field_position: "4",
code_identifying_error: %HL7v2.Type.CE{identifier: "101", text: "Required field missing", name_of_coding_system: "HL70357"}
}
iex> HL7v2.Type.ELD.parse(["PID", "1"])
%HL7v2.Type.ELD{segment_id: "PID", segment_sequence: "1"}
iex> HL7v2.Type.ELD.parse([])
%HL7v2.Type.ELD{}
"""
@spec parse(list()) :: t()
def parse(components) when is_list(components) do
%__MODULE__{
segment_id: Type.get_component(components, 0),
segment_sequence: Type.get_component(components, 1),
field_position: Type.get_component(components, 2),
code_identifying_error: parse_sub_ce(Type.get_component(components, 3))
}
end
@doc """
Encodes an ELD to a list of component strings.
## Examples
iex> HL7v2.Type.ELD.encode(%HL7v2.Type.ELD{segment_id: "PID", segment_sequence: "1", field_position: "4", code_identifying_error: %HL7v2.Type.CE{identifier: "101", text: "Required field missing", name_of_coding_system: "HL70357"}})
["PID", "1", "4", "101&Required field missing&HL70357"]
iex> HL7v2.Type.ELD.encode(%HL7v2.Type.ELD{segment_id: "PID", segment_sequence: "1"})
["PID", "1"]
iex> HL7v2.Type.ELD.encode(nil)
[]
iex> HL7v2.Type.ELD.encode(%HL7v2.Type.ELD{})
[]
"""
@spec encode(t() | nil) :: list()
def encode(nil), do: []
def encode(%__MODULE__{} = eld) do
[
eld.segment_id || "",
eld.segment_sequence || "",
eld.field_position || "",
encode_sub_ce(eld.code_identifying_error)
]
|> Type.trim_trailing()
end
defp parse_sub_ce(nil), do: nil
defp parse_sub_ce(value) when is_binary(value) do
subs = String.split(value, Type.sub_component_separator())
ce_val = CE.parse(subs)
if all_nil?(ce_val), do: nil, else: ce_val
end
defp encode_sub_ce(nil), do: ""
defp encode_sub_ce(%CE{} = ce) do
ce |> CE.encode() |> Enum.join(Type.sub_component_separator())
end
defp all_nil?(struct) do
struct
|> Map.from_struct()
|> Map.values()
|> Enum.all?(&is_nil/1)
end
end