diff options
Diffstat (limited to 'ksh-discharge.el')
| -rw-r--r-- | ksh-discharge.el | 72 |
1 files changed, 36 insertions, 36 deletions
diff --git a/ksh-discharge.el b/ksh-discharge.el index 9bd0e6d..4aa382d 100644 --- a/ksh-discharge.el +++ b/ksh-discharge.el @@ -20,44 +20,44 @@ (setq forms-format-list (append (list "Discharge Summary\n\n") - (form-entries - '(("IP/OP No" . ip-op-no) - ("Age" . age) - ("Sex" . sex) - ("Name of Patient" . patient-name) - ("Address" . address) - ("Date of Admission" . admission-date) - ("Date of Discharge" . discharge-date) - ("Diagnosis" . diagnosis) - ("Surgical Procedure" . surgical-procedure) - ("History" . history) - ("Clinical Examination" . clinical-examination) - ("Course in Hospital" . course-in-hospital) - ("Investigation" . investigation) - ("Treatment" . treatment) - ("Condition on Discharge" . condition-on-discharge) - ("Advice" . advice))))) + (seq-mapcat 'form-entry + '(("IP/OP No" . ip-op-no) + ("Age" . age) + ("Sex" . sex) + ("Name of Patient" . patient-name) + ("Address" . address) + ("Date of Admission" . admission-date) + ("Date of Discharge" . discharge-date) + ("Diagnosis" . diagnosis) + ("Surgical Procedure" . surgical-procedure) + ("History" . history) + ("Clinical Examination" . clinical-examination) + ("Course in Hospital" . course-in-hospital) + ("Investigation" . investigation) + ("Treatment" . treatment) + ("Condition on Discharge" . condition-on-discharge) + ("Advice" . advice))))) (setq form-to-org (lambda () (with-output-to-string (make-report-header "DISCHARGE SUMMARY") - (single-line-org-entries - `(("IP/OP No" . ,ip-op-no) - ("Age" . ,age) - ("Sex" . ,sex) - ("Name of Patient" . ,patient-name) - ("Date of Admission" . ,admission-date) - ("Date of Discharge" . ,discharge-date))) - (multi-line-org-entries - `(("Address" . ,address) - ("Diagnosis" . ,diagnosis) - ("Surgical Procedure" . ,surgical-procedure) - ("History" . ,history) - ("Clinical Examination" . ,clinical-examination) - ("Course in Hospital" . ,course-in-hospital) - ("Investigation" . ,investigation) - ("Treatment" . ,treatment) - ("Condition on Discharge" . ,condition-on-discharge) - ("Advice" . ,advice) - ("Signature of the Medical Officer" . "")))))) + (seq-do 'single-line-org-entry + `(("IP/OP No" . ,ip-op-no) + ("Age" . ,age) + ("Sex" . ,sex) + ("Name of Patient" . ,patient-name) + ("Date of Admission" . ,admission-date) + ("Date of Discharge" . ,discharge-date))) + (seq-do 'multi-line-org-entry + `(("Address" . ,address) + ("Diagnosis" . ,diagnosis) + ("Surgical Procedure" . ,surgical-procedure) + ("History" . ,history) + ("Clinical Examination" . ,clinical-examination) + ("Course in Hospital" . ,course-in-hospital) + ("Investigation" . ,investigation) + ("Treatment" . ,treatment) + ("Condition on Discharge" . ,condition-on-discharge) + ("Advice" . ,advice) + ("Signature of the Medical Officer" . "")))))) |