Deprecate plural functions.

* ksh-discharge.el (forms-format-list, form-to-org): Deprecate
form-entries, single-line-org-entries, multi-line-org-entries.
* ksh-scan2.el (forms-format-list): Deprecate form-entries.
(form-to-org): Deprecate single-line-org-entries,
multi-line-org-entries.
* ksh-scan3.el (forms-format-list, form-to-org): Deprecate
form-entries, single-line-org-entries, multi-line-org-entries.
* ksh-forms-improved.el (single-line-org-entries,
multi-line-org-entries, form-entries): Delete functions.

squash! Deprecate plural functions.

4 files changed, 210 insertions, 216 deletions

diff --git a/ksh-discharge.el b/ksh-discharge.el
index 9bd0e6d..4aa382d 100644
--- a/ksh-discharge.el
+++ b/ksh-discharge.el
@@ -20,44 +20,44 @@
 (setq forms-format-list
       (append
        (list "Discharge Summary\n\n")
-       (form-entries
-	'(("IP/OP No" . ip-op-no)
-	  ("Age" . age)
-	  ("Sex" . sex)
-	  ("Name of Patient" . patient-name)
-	  ("Address" . address)
-	  ("Date of Admission" . admission-date)
-	  ("Date of Discharge" . discharge-date)
-	  ("Diagnosis" . diagnosis)
-	  ("Surgical Procedure" . surgical-procedure)
-	  ("History" . history)
-	  ("Clinical Examination" . clinical-examination)
-	  ("Course in Hospital" . course-in-hospital)
-	  ("Investigation" . investigation)
-	  ("Treatment" . treatment)
-	  ("Condition on Discharge" . condition-on-discharge)
-	  ("Advice" . advice)))))
+       (seq-mapcat 'form-entry
+                   '(("IP/OP No" . ip-op-no)
+                     ("Age" . age)
+                     ("Sex" . sex)
+                     ("Name of Patient" . patient-name)
+                     ("Address" . address)
+                     ("Date of Admission" . admission-date)
+                     ("Date of Discharge" . discharge-date)
+                     ("Diagnosis" . diagnosis)
+                     ("Surgical Procedure" . surgical-procedure)
+                     ("History" . history)
+                     ("Clinical Examination" . clinical-examination)
+                     ("Course in Hospital" . course-in-hospital)
+                     ("Investigation" . investigation)
+                     ("Treatment" . treatment)
+                     ("Condition on Discharge" . condition-on-discharge)
+                     ("Advice" . advice)))))
 
 (setq form-to-org
       (lambda ()
 	(with-output-to-string
 	  (make-report-header "DISCHARGE SUMMARY")
-	  (single-line-org-entries
-	   `(("IP/OP No" . ,ip-op-no)
-	     ("Age" . ,age)
-	     ("Sex" . ,sex)
-	     ("Name of Patient" . ,patient-name)
-	     ("Date of Admission" . ,admission-date)
-	     ("Date of Discharge" . ,discharge-date)))
-	  (multi-line-org-entries
-	   `(("Address" . ,address)
-	     ("Diagnosis" . ,diagnosis)
-	     ("Surgical Procedure" . ,surgical-procedure)
-	     ("History" . ,history)
-	     ("Clinical Examination" . ,clinical-examination)
-	     ("Course in Hospital" . ,course-in-hospital)
-	     ("Investigation" . ,investigation)
-	     ("Treatment" . ,treatment)
-	     ("Condition on Discharge" . ,condition-on-discharge)
-	     ("Advice" . ,advice)
-	     ("Signature of the Medical Officer" . ""))))))
+	  (seq-do 'single-line-org-entry
+                  `(("IP/OP No" . ,ip-op-no)
+                    ("Age" . ,age)
+                    ("Sex" . ,sex)
+                    ("Name of Patient" . ,patient-name)
+                    ("Date of Admission" . ,admission-date)
+                    ("Date of Discharge" . ,discharge-date)))
+	  (seq-do 'multi-line-org-entry
+                  `(("Address" . ,address)
+                    ("Diagnosis" . ,diagnosis)
+                    ("Surgical Procedure" . ,surgical-procedure)
+                    ("History" . ,history)
+                    ("Clinical Examination" . ,clinical-examination)
+                    ("Course in Hospital" . ,course-in-hospital)
+                    ("Investigation" . ,investigation)
+                    ("Treatment" . ,treatment)
+                    ("Condition on Discharge" . ,condition-on-discharge)
+                    ("Advice" . ,advice)
+                    ("Signature of the Medical Officer" . ""))))))
diff --git a/ksh-forms-improved.el b/ksh-forms-improved.el
index ed2cf7e..67f03b1 100644
--- a/ksh-forms-improved.el
+++ b/ksh-forms-improved.el
@@ -40,7 +40,6 @@
   (list (format "%s\n" (car label-field))
 	(cdr label-field) "\n\n"))
 
-(setfun form-entries (mapped 'cl-mapcan 'form-entry))
 
 (defun new-record-filter (record)
   (set-values record default-field-values)
@@ -65,8 +64,6 @@
 
 (setfun single-line-org-entry (make-org-entry-function "*%s:* %s\n\n"))
 (setfun multi-line-org-entry (make-org-entry-function "\n* %s\n%s\n\n"))
-(setfun single-line-org-entries (mapped 'mapc 'single-line-org-entry))
-(setfun multi-line-org-entries (mapped 'mapc 'multi-line-org-entry))
 
 (defun text-if-non-blank (text)
   (if (and text (not (string-blank-p text)))
diff --git a/ksh-scan2.el b/ksh-scan2.el
index 75f3ae4..fae934d 100644
--- a/ksh-scan2.el
+++ b/ksh-scan2.el
@@ -50,96 +50,95 @@
 (setq forms-format-list
       (append
        (list "Trimester 2 - Scan Report\n\n")
-       (form-entries
-	'(("IP/OP No" . ip-op-no)
-	  ("Patient Name" . patient-name)
-	  ("Age" . age)
-	  ("Sex" . sex)
-	  ("Visit Date" . visit-date)
-	  ("LMP Date" . lmp-date)
-	  ("LMP EDD" . lmp-edd)))
+       (seq-mapcat 'form-entry
+                   '(("IP/OP No" . ip-op-no)
+                     ("Patient Name" . patient-name)
+                     ("Age" . age)
+                     ("Sex" . sex)
+                     ("Visit Date" . visit-date)
+                     ("LMP Date" . lmp-date)
+                     ("LMP EDD" . lmp-edd)))
        (list "Indications\n" "Growth Scan\n"
 	     "Real time B-mode ultrasonography of gravid uterus done.\n"
 	     "Route: Transabdominal\n" scan "\n\n")
        (list "Maternal\n")
-       (form-entries
-	'(("Cervix" . maternal-cervix)
-	  ("Internal os" . maternal-internal-os)))
+       (seq-mapcat 'form-entry
+                   '(("Cervix" . maternal-cervix)
+                     ("Internal os" . maternal-internal-os)))
        (list "Fetal Survey\n")
-       (form-entries
-	'(("Presentation" . survey-presentation)
-	  ("Placenta" . survey-placenta)
-	  ("Liquor" . survey-liquor)
-	  ("Umbilical cord" . survey-umbilical-cord)
-	  ("Fetal activity" . survey-fetal-activity)
-	  ("Cardiac activity" . survey-cardiac-activity)))
+       (seq-mapcat 'form-entry
+                   '(("Presentation" . survey-presentation)
+                     ("Placenta" . survey-placenta)
+                     ("Liquor" . survey-liquor)
+                     ("Umbilical cord" . survey-umbilical-cord)
+                     ("Fetal activity" . survey-fetal-activity)
+                     ("Cardiac activity" . survey-cardiac-activity)))
        (list "Fetal Biometry\n")
-       (form-entries
-	'(("BPD" . biometry-bpd)
-	  ("BPD-Age" . biometry-bpd-age)
-	  ("BPD-Percentile" . biometry-bpd-percentile)
-	  ("HC" . biometry-hc)
-	  ("HC-Age" . biometry-hc-age)
-	  ("HC-Percentile" . biometry-hc-percentile)
-	  ("AC" . biometry-ac)
-	  ("AC-Age" . biometry-ac-age)
-	  ("AC-Percentile" . biometry-ac-percentile)
-	  ("FL" . biometry-fl)
-	  ("FL-Age" . biometry-fl-age)
-	  ("FL-Percentile" . biometry-fl-percentile)
-	  ("Estimated fetal weight according to BPD, HC, AC, FL" . biometry-fetal-weight)))
+       (seq-mapcat 'form-entry
+                   '(("BPD" . biometry-bpd)
+                     ("BPD-Age" . biometry-bpd-age)
+                     ("BPD-Percentile" . biometry-bpd-percentile)
+                     ("HC" . biometry-hc)
+                     ("HC-Age" . biometry-hc-age)
+                     ("HC-Percentile" . biometry-hc-percentile)
+                     ("AC" . biometry-ac)
+                     ("AC-Age" . biometry-ac-age)
+                     ("AC-Percentile" . biometry-ac-percentile)
+                     ("FL" . biometry-fl)
+                     ("FL-Age" . biometry-fl-age)
+                     ("FL-Percentile" . biometry-fl-percentile)
+                     ("Estimated fetal weight according to BPD, HC, AC, FL" . biometry-fetal-weight)))
        (list "Extended Biometry\n")
-       (form-entries
-	'(("Foot Length" . extended-foot-length)
-	  ("TCD" . extended-tcd)))
+       (seq-mapcat 'form-entry
+                   '(("Foot Length" . extended-foot-length)
+                     ("TCD" . extended-tcd)))
        (list "Fetal Anatomy\n")
-       (form-entries
-	'(("Intracranial structures" . anatomy-intracranial)
-	  ("Neck" . anatomy-neck)
-	  ("Spine" . anatomy-spine)
-	  ("Fetal face" . anatomy-face)
-	  ("Both lungs" . anatomy-lungs)
-	  ("Heart" . anatomy-heart)
-	  ("Abdominal situs" . anatomy-abdominal-situs)
-	  ("Both kidneys and bladder" . anatomy-kidneys-bladder)
-	  ("All long bones" . anatomy-long-bones)))
+       (seq-mapcat 'form-entry
+                   '(("Intracranial structures" . anatomy-intracranial)
+                     ("Neck" . anatomy-neck)
+                     ("Spine" . anatomy-spine)
+                     ("Fetal face" . anatomy-face)
+                     ("Both lungs" . anatomy-lungs)
+                     ("Heart" . anatomy-heart)
+                     ("Abdominal situs" . anatomy-abdominal-situs)
+                     ("Both kidneys and bladder" . anatomy-kidneys-bladder)
+                     ("All long bones" . anatomy-long-bones)))
        (list "Impression\n")
-       (form-entries
-	'(("Gestational age" . impression-gestational-age)
-	  ("Menstrual age" . impression-menstrual-age)
-	  ("Corrected EDD" . impression-corrected-edd)
-	  ("Notes" . impression-notes)
-	  ("Sonologist" . sonologist)))))
+       (seq-mapcat 'form-entry
+                   '(("Gestational age" . impression-gestational-age)
+                     ("Menstrual age" . impression-menstrual-age)
+                     ("Corrected EDD" . impression-corrected-edd)
+                     ("Notes" . impression-notes)
+                     ("Sonologist" . sonologist)))))
 
 (setq form-to-org
       (lambda ()
 	(with-output-to-string
 	  (make-report-header "OB - 2/3 TRIMESTER SCAN REPORT")
-	  (single-line-org-entries
-	   `(("IP/OP No" . ,ip-op-no)
-	     ("Age" . ,age)
-	     ("Sex" . ,sex)
-	     ("Name of Patient" . ,patient-name)
-	     ("Visit Date" . ,visit-date)
-	     ("LMP Date" . ,lmp-date)
-	     ("LMP EDD" . ,lmp-edd)))
+	  (seq-do 'single-line-org-entry
+                  `(("IP/OP No" . ,ip-op-no)
+                    ("Age" . ,age)
+                    ("Sex" . ,sex)
+                    ("Name of Patient" . ,patient-name)
+                    ("Visit Date" . ,visit-date)
+                    ("LMP Date" . ,lmp-date)
+                    ("LMP EDD" . ,lmp-edd)))
 	  (mapc 'princ `("* Indications\n" "** Target Scan\n"
 			 "Real time B-mode ultrasonography of gravid uterus done.\n\n"))
-	  (single-line-org-entries
-	   `(("Route" . "Transabdominal")))
+          (single-line-org-entry '("Route" . "Transabdominal"))
 	  (princ (get-field scan))
 	  (princ "\n\n* Maternal\n")
-	  (single-line-org-entries
-	   `(("Cervix" . ,maternal-cervix)
-	     ("Internal os" . ,maternal-internal-os)))
+	  (seq-do 'single-line-org-entry
+                  `(("Cervix" . ,maternal-cervix)
+                    ("Internal os" . ,maternal-internal-os)))
 	  (princ "* Fetal Survey\n")
-	  (single-line-org-entries
-	   `(("Presentation" . ,survey-presentation)
-	     ("Placenta" . ,survey-placenta)
-	     ("Liquor" . ,survey-liquor)
-	     ("Umbilical cord" . ,survey-umbilical-cord)
-	     ("Fetal activity" . ,survey-fetal-activity)
-	     ("Cardiac activity" . ,survey-cardiac-activity)))
+	  (seq-do 'single-line-org-entry
+                  `(("Presentation" . ,survey-presentation)
+                    ("Placenta" . ,survey-placenta)
+                    ("Liquor" . ,survey-liquor)
+                    ("Umbilical cord" . ,survey-umbilical-cord)
+                    ("Fetal activity" . ,survey-fetal-activity)
+                    ("Cardiac activity" . ,survey-cardiac-activity)))
 	  (princ "* Fetal Biometry\n")
 	  (insert-biometry
 	   `(("BPD" ,biometry-bpd ,biometry-bpd-age ,biometry-bpd-percentile)
@@ -147,31 +146,30 @@
 	     ("AC" ,biometry-ac ,biometry-ac-age ,biometry-ac-percentile)
 	     ("FL" ,biometry-fl ,biometry-fl-age ,biometry-fl-percentile)))
 	  (princ "* Extended Biometry\n")
-	  (single-line-org-entries
-	   `(("Foot Length" . ,extended-foot-length)
-	     ("TCD" . ,extended-tcd)))
+	  (seq-do 'single-line-org-entry
+                  `(("Foot Length" . ,extended-foot-length)
+                    ("TCD" . ,extended-tcd)))
 	  (princ "* Fetal Anatomy\n")
-	  (single-line-org-entries
-	   `(("Intracranial structures" . ,anatomy-intracranial)
-	     ("Neck" . ,anatomy-neck)
-	     ("Spine" . ,anatomy-spine)
-	     ("Fetal face" . ,anatomy-face)
-	     ("Both lungs" . ,anatomy-lungs)
-	     ("Heart" . ,anatomy-heart)
-	     ("Abdominal situs" . ,anatomy-abdominal-situs)
-	     ("Both kidneys and bladder" . ,anatomy-kidneys-bladder)
-	     ("All long bones" . ,anatomy-long-bones)))
+	  (seq-do 'single-line-org-entry
+                  `(("Intracranial structures" . ,anatomy-intracranial)
+                    ("Neck" . ,anatomy-neck)
+                    ("Spine" . ,anatomy-spine)
+                    ("Fetal face" . ,anatomy-face)
+                    ("Both lungs" . ,anatomy-lungs)
+                    ("Heart" . ,anatomy-heart)
+                    ("Abdominal situs" . ,anatomy-abdominal-situs)
+                    ("Both kidneys and bladder" . ,anatomy-kidneys-bladder)
+                    ("All long bones" . ,anatomy-long-bones)))
 	  (princ "* Impression\n")
 	  (princ (format "%s corresponding to a gestational age of %s\n\n"
 			 (get-field scan) (get-field impression-gestational-age)))
 	  (princ "Gestational age assigned as per biometry (CRL)\n\n")
-	  (single-line-org-entries
-	   `(("Menstrual age" . ,impression-menstrual-age)
-	     ("Corrected EDD" . ,impression-corrected-edd)
-	     ("Placenta" . ,survey-placenta)
-	     ("Presentation" . ,survey-presentation)
-	     ("Liquor" . ,survey-liquor)
-	     ("Estimated fetal weight according to BPD, HC, AC, FL" . ,biometry-fetal-weight)))
+	  (seq-do 'single-line-org-entry
+                  `(("Menstrual age" . ,impression-menstrual-age)
+                    ("Corrected EDD" . ,impression-corrected-edd)
+                    ("Placenta" . ,survey-placenta)
+                    ("Presentation" . ,survey-presentation)
+                    ("Liquor" . ,survey-liquor)
+                    ("Estimated fetal weight according to BPD, HC, AC, FL" . ,biometry-fetal-weight)))
 	  (text-if-non-blank (get-field impression-notes))
-	  (multi-line-org-entries
-	   `(("Sonologist" . ,sonologist))))))
+          (multi-line-org-entry '("Sonologist" . ,sonologist)))))
diff --git a/ksh-scan3.el b/ksh-scan3.el
index 83018c5..ac50f36 100644
--- a/ksh-scan3.el
+++ b/ksh-scan3.el
@@ -37,94 +37,93 @@
 (setq forms-format-list
       (append
        (list "Trimester 3 - Scan Report\n\n")
-       (form-entries
-	'(("IP/OP No" . ip-op-no)
-	  ("Patient Name" . patient-name)
-	  ("Age" . age)
-	  ("Sex" . sex)
-	  ("Visit Date" . visit-date)
-	  ("LMP Date" . lmp-date)
-	  ("LMP EDD" . lmp-edd)))
+       (seq-mapcat 'form-entry
+                   '(("IP/OP No" . ip-op-no)
+                     ("Patient Name" . patient-name)
+                     ("Age" . age)
+                     ("Sex" . sex)
+                     ("Visit Date" . visit-date)
+                     ("LMP Date" . lmp-date)
+                     ("LMP EDD" . lmp-edd)))
        (list "Indications\n" "Growth Scan\n"
-	     "Real time B-mode ultrasonography of gravid uterus done.\n"
-	     "Route: Transabdominal\n" scan "\n\n")
+             "Real time B-mode ultrasonography of gravid uterus done.\n"
+             "Route: Transabdominal\n" scan "\n\n")
        (list "Fetal Survey\n")
-       (form-entries
-	'(("Presentation" . survey-presentation)
-	  ("Placenta" . survey-placenta)
-	  ("Liquor" . survey-liquor)
-	  ("Amniotic fluid index" . survey-amniotic-fluid-index)
-	  ("Umbilical cord" . survey-umbilical-cord)
-	  ("Fetal activity" . survey-fetal-activity)
-	  ("Cardiac activity" . survey-cardiac-activity)
-	  ("Fetal heart rate" . survey-fetal-heart-rate)))
+       (seq-mapcat 'form-entry
+                   '(("Presentation" . survey-presentation)
+                     ("Placenta" . survey-placenta)
+                     ("Liquor" . survey-liquor)
+                     ("Amniotic fluid index" . survey-amniotic-fluid-index)
+                     ("Umbilical cord" . survey-umbilical-cord)
+                     ("Fetal activity" . survey-fetal-activity)
+                     ("Cardiac activity" . survey-cardiac-activity)
+                     ("Fetal heart rate" . survey-fetal-heart-rate)))
        (list "Fetal Biometry\n")
-       (form-entries
-	'(("BPD" . biometry-bpd)
-	  ("BPD-Age" . biometry-bpd-age)
-	  ("BPD-Percentile" . biometry-bpd-percentile)
-	  ("HC" . biometry-hc)
-	  ("HC-Age" . biometry-hc-age)
-	  ("HC-Percentile" . biometry-hc-percentile)
-	  ("AC" . biometry-ac)
-	  ("AC-Age" . biometry-ac-age)
-	  ("AC-Percentile" . biometry-ac-percentile)
-	  ("FL" . biometry-fl)
-	  ("FL-Age" . biometry-fl-age)
-	  ("FL-Percentile" . biometry-fl-percentile)
-	  ("Estimated fetal weight according to BPD, HC, AC, FL" . biometry-fetal-weight)))
+       (seq-mapcat 'form-entry
+                   '(("BPD" . biometry-bpd)
+                     ("BPD-Age" . biometry-bpd-age)
+                     ("BPD-Percentile" . biometry-bpd-percentile)
+                     ("HC" . biometry-hc)
+                     ("HC-Age" . biometry-hc-age)
+                     ("HC-Percentile" . biometry-hc-percentile)
+                     ("AC" . biometry-ac)
+                     ("AC-Age" . biometry-ac-age)
+                     ("AC-Percentile" . biometry-ac-percentile)
+                     ("FL" . biometry-fl)
+                     ("FL-Age" . biometry-fl-age)
+                     ("FL-Percentile" . biometry-fl-percentile)
+                     ("Estimated fetal weight according to BPD, HC, AC, FL" . biometry-fetal-weight)))
        (list "Impression\n")
-       (form-entries
-	'(("Gestational age" . impression-gestational-age)
-	  ("Menstrual age" . impression-menstrual-age)
-	  ("Corrected EDD" . impression-corrected-edd)
-	  ("Notes" . impression-notes)
-	  ("Sonologist" . sonologist)))))
+       (seq-mapcat 'form-entry
+                   '(("Gestational age" . impression-gestational-age)
+                     ("Menstrual age" . impression-menstrual-age)
+                     ("Corrected EDD" . impression-corrected-edd)
+                     ("Notes" . impression-notes)
+                     ("Sonologist" . sonologist)))))
 
 (setq form-to-org
       (lambda ()
-	(with-output-to-string
-	  (make-report-header "OB - 3/3 TRIMESTER SCAN REPORT")
-	  (single-line-org-entries
-	   `(("IP/OP No" . ,ip-op-no)
-	     ("Age" . ,age)
-	     ("Sex" . ,sex)
-	     ("Name of Patient" . ,patient-name)
-	     ("Visit Date" . ,visit-date)
-	     ("LMP Date" . ,lmp-date)
-	     ("LMP EDD" . ,lmp-edd)))
-	  (mapc 'princ `("* Indications\n" "** Growth Scan\n"
-			 "Real time B-mode ultrasonography of gravid uterus done.\n\n"))
-	  (single-line-org-entries
-	   `(("Route" . "Transabdominal")))
-	  (text-if-non-blank (get-field scan))
-	  (princ "* Fetal Survey\n")
-	  (single-line-org-entries
-	   `(("Presentation" . ,survey-presentation)
-	     ("Placenta" . ,survey-placenta)
-	     ("Liquor" . ,survey-liquor)
-	     ("Amniotic fluid index" . ,survey-amniotic-fluid-index)
-	     ("Umbilical cord" . ,survey-umbilical-cord)
-	     ("Fetal activity" . ,survey-fetal-activity)
-	     ("Cardiac activity" . ,survey-cardiac-activity)
-	     ("Fetal heart rate" . ,survey-fetal-heart-rate)))
-	  (princ "* Fetal Biometry\n")
-	  (insert-biometry
-	   `(("BPD" ,biometry-bpd ,biometry-bpd-age ,biometry-bpd-percentile)
-	     ("HC" ,biometry-hc ,biometry-hc-age ,biometry-hc-percentile)
-	     ("AC" ,biometry-ac ,biometry-ac-age ,biometry-ac-percentile)
-	     ("FL" ,biometry-fl ,biometry-fl-age ,biometry-fl-percentile)))
-	  (princ "* Impression\n")
-	  (princ (format "%s corresponding to a gestational age of %s\n\n"
-			 (get-field scan) (get-field impression-gestational-age)))
-	  (princ "Gestational age assigned as per biometry (CRL)\n\n")
-	  (single-line-org-entries
-	   `(("Menstrual age" . ,impression-menstrual-age)
-	     ("Corrected EDD" . ,impression-corrected-edd)
-	     ("Placenta" . ,survey-placenta)
-	     ("Presentation" . ,survey-presentation)
-	     ("Liquor" . ,survey-liquor)
-	     ("Estimated fetal weight according to BPD, HC, AC, FL" . ,biometry-fetal-weight)))
-	  (text-if-non-blank (get-field impression-notes))
-	  (multi-line-org-entries
-	   `(("Sonologist" . ,sonologist))))))
+        (with-output-to-string
+          (make-report-header "OB - 3/3 TRIMESTER SCAN REPORT")
+          (seq-do 'single-line-org-entry
+                  `(("IP/OP No" . ,ip-op-no)
+                    ("Age" . ,age)
+                    ("Sex" . ,sex)
+                    ("Name of Patient" . ,patient-name)
+                    ("Visit Date" . ,visit-date)
+                    ("LMP Date" . ,lmp-date)
+                    ("LMP EDD" . ,lmp-edd)))
+          (mapc 'princ `("* Indications\n" "** Growth Scan\n"
+                         "Real time B-mode ultrasonography of gravid uterus done.\n\n"))
+          (seq-do 'single-line-org-entry
+                  `(("Route" . "Transabdominal")))
+          (text-if-non-blank (get-field scan))
+          (princ "* Fetal Survey\n")
+          (seq-do 'single-line-org-entry
+                  `(("Presentation" . ,survey-presentation)
+                    ("Placenta" . ,survey-placenta)
+                    ("Liquor" . ,survey-liquor)
+                    ("Amniotic fluid index" . ,survey-amniotic-fluid-index)
+                    ("Umbilical cord" . ,survey-umbilical-cord)
+                    ("Fetal activity" . ,survey-fetal-activity)
+                    ("Cardiac activity" . ,survey-cardiac-activity)
+                    ("Fetal heart rate" . ,survey-fetal-heart-rate)))
+          (princ "* Fetal Biometry\n")
+          (insert-biometry
+           `(("BPD" ,biometry-bpd ,biometry-bpd-age ,biometry-bpd-percentile)
+             ("HC" ,biometry-hc ,biometry-hc-age ,biometry-hc-percentile)
+             ("AC" ,biometry-ac ,biometry-ac-age ,biometry-ac-percentile)
+             ("FL" ,biometry-fl ,biometry-fl-age ,biometry-fl-percentile)))
+          (princ "* Impression\n")
+          (princ (format "%s corresponding to a gestational age of %s\n\n"
+                         (get-field scan) (get-field impression-gestational-age)))
+          (princ "Gestational age assigned as per biometry (CRL)\n\n")
+          (seq-do 'single-line-org-entry
+                  `(("Menstrual age" . ,impression-menstrual-age)
+                    ("Corrected EDD" . ,impression-corrected-edd)
+                    ("Placenta" . ,survey-placenta)
+                    ("Presentation" . ,survey-presentation)
+                    ("Liquor" . ,survey-liquor)
+                    ("Estimated fetal weight according to BPD, HC, AC, FL" . ,biometry-fetal-weight)))
+          (text-if-non-blank (get-field impression-notes))
+          (multi-line-org-entry '("Sonologist" . ,sonologist)))))