+
+view_prescription(){
+ id="$1"
+ prescfile="$_DATA/prescriptions/$id"
+
+ mpx=()
+ cat "$prescfile" |while read -r line; do
+ val="${line#*:}"
+ mpx[${line%%:*}]="$(htmlsafe "${val//\\n/$BR}")"
+ done
+
+ . "$_EXEC/templates/view_prescription.sh"
+}
+
+therapy_dates(){
+ tpyfile="$_DATA/therapies/${1%.mpx}.tpy"
+ sed -rn 's;^session[0-9]+_date:(.+)$;\1;p' "$tpyfile"
+}