diff options
| -rw-r--r-- | ksh-scan2.el | 3 | ||||
| -rw-r--r-- | ksh-scan3.el | 4 |
2 files changed, 3 insertions, 4 deletions
diff --git a/ksh-scan2.el b/ksh-scan2.el index 0292c28..3fbd391 100644 --- a/ksh-scan2.el +++ b/ksh-scan2.el @@ -161,9 +161,8 @@ ("Both kidneys and bladder" . ,ksh-scan2-anatomy-kidneys-bladder) ("All long bones" . ,ksh-scan2-anatomy-long-bones))) (princ "* Impression\n") - (princ (format "%s corresponding to a gestational age of %s\n\n" + (princ (format "%s corresponding to a gestational age of %s assigned as per biometry (CRL)\n\n" (get-field ksh-scan2-scan) (get-field ksh-scan2-impression-gestational-age))) - (princ "Gestational age assigned as per biometry (CRL)\n\n") (seq-do 'single-line-org-entry `(("Menstrual age" . ,ksh-scan2-impression-menstrual-age) ("Corrected EDD" . ,ksh-scan2-impression-corrected-edd) diff --git a/ksh-scan3.el b/ksh-scan3.el index 68adb29..5868c92 100644 --- a/ksh-scan3.el +++ b/ksh-scan3.el @@ -115,8 +115,8 @@ ("AC" ,ksh-scan3-biometry-ac ,ksh-scan3-biometry-ac-age ,ksh-scan3-biometry-ac-percentile) ("FL" ,ksh-scan3-biometry-fl ,ksh-scan3-biometry-fl-age ,ksh-scan3-biometry-fl-percentile))) (princ "* Impression\n") - (princ (format "%s gestational age assigned as per biometry (CRL)\n\n" - (get-field ksh-scan3-impression-gestational-age))) + (princ (format "%s corresponding to a gestational age of %s as per biometry (CRL)\n\n" + (get-field ksh-scan3-scan) (get-field ksh-scan3-impression-gestational-age))) (seq-do 'single-line-org-entry `(("Menstrual age" . ,ksh-scan3-impression-menstrual-age) ("Corrected EDD" . ,ksh-scan3-impression-corrected-edd) |