From 9266878ce8f1b45e773ec341180ea95608cb8d58 Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Tue, 4 Oct 2022 01:02:14 +0530 Subject: Report both gestational age and indications under Impression. * ksh-scan2.el (form-to-org): Report both gestational age and indications under Impression. * ksh-scan3.el (form-to-org): Report both gestational age and indications under Impression. --- ksh-scan2.el | 3 +-- 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) -- cgit v1.2.3