This will undo the Discharge for a patient and put them back into 'Today's List' (Admissions)

  1. Select the Patient

    If the patient does not have a Surgery record (has not been Admitted/Discharged) you will exit immediately - without any prompts

  2. Select the operation


  3.  Type UNDISCHARGE to confirm the process


  4.  Choose their new Admission status.


Code process when enabling UnDischarge

UnDischarge (NZ):

                ASK        Patient

                ASK        Discharge which operation?       

                                                exit if no surgery records

                                                skip if only one surgery record

                test        "No surgery record specified."                                                   INTERNAL

                test        "Unable to read surgery record(xxx)."                                   INTERNAL

                test        "Damaged data - no patient record."                                      INTERNAL

                test        "Surgery record has been deleted."                                        INTERNAL

                TEST       "Patient has not been admitted."

                TEST       "Patient has not been discharged."

                TEST       "Config - there is no 'admitted' status configured."

                test        "Damaged data - no Admission/Discharge (ADT) record."              INTERNAL

                LOCK     "Locked by ..."

                CONFIRM            "Type UNDISCHARGE to confirm."

                ASK        New status from 'admitted' statuses.

                DO          Alter records, unlock