diff options
| author | Arun Isaac | 2022-10-04 01:02:14 +0530 |
|---|---|---|
| committer | Arun Isaac | 2022-10-04 01:02:14 +0530 |
| commit | 9266878ce8f1b45e773ec341180ea95608cb8d58 (patch) | |
| tree | 05467f37d7ecd3c3ef297a953c14370a82279261 | |
| parent | 6fe3852f1ca9a3e44293b6942b81d97fec990e1f (diff) | |
| download | ksh-reports-9266878ce8f1b45e773ec341180ea95608cb8d58.tar.gz ksh-reports-9266878ce8f1b45e773ec341180ea95608cb8d58.tar.lz ksh-reports-9266878ce8f1b45e773ec341180ea95608cb8d58.zip | |
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.
| -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) |