@@ -76,10 +90,14 @@ cat <
$(l10n prescriptions)
- $(sed -rn 's:(.*)\t'$id'$:\1:p' "$_DATA/mappings/attendance" |while read each; do
- cname="$(sed -rn 's:^SUMMARY\:(.*)$:\1:p' "$_DATA/ical/$each")"
- echo ' - '$cname'
'
- done)
+ $(find "$_DATA/prescriptions/" -name "${id%.vcf}.*.mpx" \
+ | while read pfile; do
+ printf '%s\t%s\t%s\n' "$(grep '^date' "$pfile")" "$(sed -nr 's;^icd10:(.*)$;\1;p' "$pfile")"
+ done \
+ | sort -r | cut -f2 \
+ | while read icd; do
+ printf '- %s
' "${id}" "${icd:-$(l10n no_icd)}"
+ done)
END_HTML