From edddfdcf2febcfbb46edae6d5e6db8ff6d179ab8 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Tue, 4 Oct 2022 01:06:35 +0530
Subject: Default to single intrauterine gestation.

Single intrauterine gestation is the most common.

* ksh-scan2.el (default-field-values): Default to single intrauterine
gestation.
* ksh-scan3.el (default-field-values): Default to single intrauterine
gestation.
---
 ksh-scan2.el | 1 +
 ksh-scan3.el | 1 +
 2 files changed, 2 insertions(+)

diff --git a/ksh-scan2.el b/ksh-scan2.el
index 3fbd391..6cb9fc0 100644
--- a/ksh-scan2.el
+++ b/ksh-scan2.el
@@ -30,6 +30,7 @@
 ;; Default values for fields
 (setq default-field-values
       `((,ksh-scan2-sex . "F")
+        (,ksh-scan2-scan . "Single intrauterine gestation")
 	(,ksh-scan2-survey-presentation . "cephalic")
 	(,ksh-scan2-survey-placenta . "posterior")
 	(,ksh-scan2-survey-liquor . "normal")
diff --git a/ksh-scan3.el b/ksh-scan3.el
index 5868c92..93a9592 100644
--- a/ksh-scan3.el
+++ b/ksh-scan3.el
@@ -26,6 +26,7 @@
 ;; Default values for fields
 (setq default-field-values
       `((,ksh-scan3-sex . "F")
+        (,ksh-scan3-scan . "Single intrauterine gestation")
 	(,ksh-scan3-survey-presentation . "cephalic")
 	(,ksh-scan3-survey-placenta . "posterior")
 	(,ksh-scan3-survey-liquor . "normal")
-- 
cgit v1.2.3