diff options
| -rw-r--r-- | ksh-discharge.el | 2 | ||||
| -rw-r--r-- | ksh-emacs-init.el | 3 | ||||
| -rw-r--r-- | ksh-scan2.el | 2 | ||||
| -rw-r--r-- | ksh-scan3.el | 2 |
4 files changed, 3 insertions, 6 deletions
diff --git a/ksh-discharge.el b/ksh-discharge.el index 80c382b..07d32fc 100644 --- a/ksh-discharge.el +++ b/ksh-discharge.el @@ -3,7 +3,7 @@ (require 'ksh-forms) ;; Datafile path and fields -(setq forms-file (expand-file-name "discharge.dat" ksh-data-path)) +(setq forms-file (expand-file-name "data/discharge.dat" ksh-path)) (setq forms-number-of-fields (forms-enumerate '(ip-op-no patient-name age sex address admission-date diff --git a/ksh-emacs-init.el b/ksh-emacs-init.el index 1bd14ab..e9b933e 100644 --- a/ksh-emacs-init.el +++ b/ksh-emacs-init.el @@ -1,6 +1,3 @@ -;; Path to data files -(setq ksh-data-path (expand-file-name "data" ksh-path)) - ;; Printing settings (setq printer-name "HP_P2055DN_CPL") (setq lpr-switches diff --git a/ksh-scan2.el b/ksh-scan2.el index 22d8cb9..9bc34f9 100644 --- a/ksh-scan2.el +++ b/ksh-scan2.el @@ -4,7 +4,7 @@ (require 'ksh-report) ;; Datafile path and fields -(setq forms-file (expand-file-name "scan2.dat" ksh-data-path)) +(setq forms-file (expand-file-name "data/scan2.dat" ksh-path)) (setq forms-number-of-fields (forms-enumerate '(ip-op-no patient-name age sex visit-date lmp-date lmp-edd diff --git a/ksh-scan3.el b/ksh-scan3.el index 75389ff..537386e 100644 --- a/ksh-scan3.el +++ b/ksh-scan3.el @@ -4,7 +4,7 @@ (require 'ksh-report) ;; Datafile path and fields -(setq forms-file (expand-file-name "scan3.dat" ksh-data-path)) +(setq forms-file (expand-file-name "data/scan3.dat" ksh-path)) (setq forms-number-of-fields (forms-enumerate '(ip-op-no patient-name age sex visit-date lmp-date lmp-edd |