Health Organizer Code

+ Added the TfrmNavigationPersonsToContact and TfrmEditPersonsToContact masks to list and add/edit the persons to contact
+ TfrmEditPersons: added the FPersonsToContact member variable
+ TfrmMain: added the actPersonsToContactList and actPersonsToContactAdd actions
+ TfrmMain: added the new list and add persons to contact menu items
+ "tPatients" table: added the "NeedExport" field
* Renamed the "tPersonsContactsCategoriesPerson" table into "tPatientsContactsCategoriesPerson"
* hor_components: fixed the path of the THorDBDateTimePicker sources
+ I have delayed too much this, then its time to go for it: creating the THorDBLookupComboBox that is the lookup combobox with text search on used data + default data. Just started it.
It is built also using TfrmSearchResults and THorDefaultData, new classes still on the way

+ TfrmEditPersons: added the tab with the patient's persons to contact in the case of emergency
+ TfrmEditPersons.FormCreate: hides also the patient's times and contact persons
+ TfrmEditPersons.UpdateStatus: shows also the patient's persons to contact in the case of emergency
+ TfrmEditPersons: added the FLastActiveTab variable
+ added procedure TfrmEditPersons.pcDataChanging(Sender: TObject; var AllowChange: Boolean) to store the last active tab
+ added function TfrmEditPersons.MayIopenSubTables: boolean:
// Checks if I can open sub tables.
// For sub tables we mean tables that refer to this person (i.e. the
// contacts) and we can't open them if we are on a new person not yet saved
+ TfrmEditPersons.tsContactsShow: goes back to the previous tab if we are on a not saved new record and the user doesn't want to save it
+ added procedure TfrmEditPersons.tsPatientContactsPersonsShow(Sender: TObject)
+ created the HORMSG_CHANGE_TAB message
+ added procedure TfrmEditPersons.MsgEvents_ChangeTabSheet(var Msg: TLMessage): Sets as active tab sheet the one with index provided inside the wparam
- Removed unused TfrmEditPersons.tsContactsEnter
- Removed unused TfrmEditPersons.FormActivate
+ added procedure TfrmEditStandard.EditKeepingCurrentTabSheet:
// Edit the current record but without changing the current selected tab
// (The classic Edit procedure is selecting the Main tab)

- Removed a double pregnant field from the tPatients table
+ added the tContactsCategoriesPerson table
+ hor_database: added aContactsCategoriesPerson
+ Renamed constDB_ContactCategory_Familiar into constDB_ContactCategoryPerson_Familiar
+ Renamed constDB_ContactCategory_HusbandWifePartner into constDB_ContactCategoryPerson_HusbandWifePartner
+ Renamed constDB_ContactCategory_Neighbor into constDB_ContactCategoryPerson_Neighbor
+ Renamed constDB_ContactCategory_Friend into constDB_ContactCategoryPerson_Friend
+ Renamed constDB_ContactCategory_Acquaintance into constDB_ContactCategoryPerson_Acquaintance
+ Renamed rsUS_CC_Acquaintance into rsUS_CCP_Acquaintance
+ Renamed rsUS_CC_Familiar into rsUS_CCP_Familiar
+ Renamed rsUS_CC_Friend into rsUS_CCP_Friend
+ Renamed rsUS_CC_HusbandWifePartner into rsUS_CCP_HusbandWifePartner
+ Added rsUS_CCP_Neighbor
+ hor_database: added function Array_ContactsCategoriesPerson: TArray;
+ hor_database: TCodeToDescr: added ctdContactsCategoriesPerson
+ hor_database: DecodeCodeOrDescription: handles ctdContactsCategoriesPerson
+ hor_database: added function CheckContactCategoriesPerson(): boolean;
+ hor_database: DB_CheckSystemData: calls CheckContactCategoriesPerson
+ added the tPersonsContactsCategoriesPerson table
- Fixed the execution of the ftrSettingsNeedExportSet by the triggers: not "for each statement"
+ Added the TfrmNavigationContactsCategoriesPerson mask
+ Added the TfrmEditContacts_Categories_Person mask
+ TfrmMain: added the menu entries to list and add the categories of the persons to contact

- Removed a double pregnant field from the tPatients table
+ Added the following translations:
rsColumnPregnantSince
rsTitleFamilyDoctor
rsTitleFather
rsTitleMother
rsAge_JustMonths
+ TExportMedicalData.Execute: writes the pregnant date, if within the last 10 months, the family doctor, the father and mother if still alive
- TDE_ContactsPerson.GetSortedContacts: The sort has still problems...
- FUNC_Age: avoid to writes "0 years"

+ hor_data_export: added TDE_ContactsPerson: All the contacts of a person
* TExportMedicalData.Execute.WriteFooterForPage: https link instead of http
+ Added procedure TExportMedicalData.ProgressBar_StepIt;
+ Added procedure TExportMedicalData.ProgressBar_SetMaxSize;
+ Added the following messages:
rsColumnContacts
rsColumnFamilyDoctor
rsUS_CC_Home
rsUS_CC_Office
rsUS_CC_ContactCenter
rsUS_CC_Private
rsUS_CC_Familiar
rsUS_CC_HusbandWifePartner
rsUS_CC_Friend
rsUS_CC_Emergencies
rsUS_CC_Acquaintance
rsColumnContactsCategory
rsColumnContactsContact
rsColumnContactsNote
rsColumnContactsType
+ hor_database: Array_ContactsTypes: adds also the skype
- hor_database: fixed the constants
+ added TDE_ContactData: The user's type, the value and the ready to use link of a contact
+ added TDE_ContactDatas: An array of contact's data
+ added the tContactsCategories table
+ Added the possibility to define the contact type to the tHospitalsContacts, tHospitalsWardsContacts and tPersonsContacts tables
+ Added the following constants:
constDB_ContactCategory_Home
constDB_ContactCategory_Office
constDB_ContactCategory_ContactCenter
constDB_ContactCategory_Private
constDB_ContactCategory_Familiar
constDB_ContactCategory_HusbandWifePartner
constDB_ContactCategory_Neighbor
constDB_ContactCategory_Friend
constDB_ContactCategory_Emergencies
constDB_ContactCategory_Acquaintance
+ hor_database: added aContactsCategories
+ hor_database: added function Array_ContactsCategories: TArray;
+ hor_database: DB_ClearDynamicCodeDescriptionArrays: clears also Array_ContactsCategories
+ hor_database: Added function CheckContactCategories(): boolean: It checkes that the system's contact categories exist
+ hor_database: DB_CheckSystemData: calls also CheckContactCategories()
+ Added the TfrmNavigationContactsCategories form
+ Added the TfrmEditContacts_Categories form
+ TfrmMain: added the menu items and actions to list and add/edit the categories of the contacts
+ hor_database: TCodeToDescr: added ctdContactsTypes, ctdContactsCategories
+ hor_database: DecodeCodeOrDescription: handles also ctdContactsTypes, ctdContactsCategories
+ hor_database: DecodeCodeOrDescription: added the _Found output parameter
+ hor_database: function DB_CodeToDescription(const _Type: TCodeToDescr; const _Code: string; out _Description: string): boolean: Checks and loads the description of a code
+ hor_database: function DB_DescriptionToCode(const _Type: TCodeToDescr; const _Description: string; out _Code: string): boolean: Checks and loads the code of a description
- hor_database: DB_Update: updates the TheDatabaseWasUpdated parameter variable

+ added procedure TfrmEditPersons.OpenParents(_Query: TSQLQuery):
// Opens the given parent query excluding who is born before me and the
// current record: I can't be born by myself! :)
+ TfrmEditPersons.qDataAfterOpen: calls OpenParents

- Fixed the copyright year in the version information
- TfrmUsbStick_MedicalData.SaveConfigurations: does not export the configurations if there is nothing to export.

+ Added the "Quantity" field to the "tAgendaDrugs" table
+ Added the "SafeLife" field to the "tDocuments" table
+ Added the "SafeLife" field to the "tDocumentsFiles" table
+ "tDrugsPrescriptions": The EveryType field could be also set to N for "when necessary"
+ Added the rsUS_DRUGS_EVERY_WhenNecessary, rsDateTimeFormat_Navigation_Examinations translations
+ TfrmEditDrugs_Prescriptions.FillEvery: adds also rsUS_DRUGS_EVERY_WhenNecessary
+ Added the constDB_Every_WhenNecessary constant
+ Array_DrugsEvery: handles the "when necessary"
+ TfrmEditDrugs_Prescriptions.qDataEveryTypeChange: hides and blank the every quantity when "when necessary" is used
+ added the "tDrugsNamesConflicts" table: here you will say that, i.e, the A drug can't be taken together with the B drug because they are in conflict and you have to wait at least X hours between them
+ tContactsTypes table: extended the Name field to 20 characters
+ TfrmNavigationContactsTypes: extended the Name field to 20 characters
+ TfrmEditContacts_Types: extended the Name field to 20 characters
+ added procedure TfrmNavigationExaminations.FormCreate(Sender: TObject) to setup the date time format for the date of the examination within the list
+ TfrmEditExaminations: added the lblDayOfWeek label
+ Added procedure TfrmEditExaminations.UpdateDayOfWeek(const _Date: TDateTime);
+ TfrmEditExaminations.qDataDateChange: calls UpdateDayOfWeek to sets inside lblDayOfWeek label the day of the week of the selected date
+ Added the THorDBDateTimePicker component, derived from TDBDateTimePicker, to get the OnHorDateTimeChange event
+ TfrmEditExaminations.qDataAfterEdit: calls UpdateDayOfWeek

* Updated *.po files
- TfrmEditBase.SetColorForRequiredFieldsInside: checks that the requested field exists to avoid errors
- TfrmEditAllergies.pcData: hides the tabs names because there is only one tab
- TfrmEditAllergies.sbDTHAddClick: I really don't know why, but if the page is changed after the append, the dataset goes back to browse.... Then first I change tab, then I append.
+ New reminder

+ TfrmRestore: added the FStartTime member variable
+ TfrmRestore: added the tmrDuration timer
+ Added procedure TfrmRestore.StartTimerDuration
+ Added procedure TfrmRestore.StopTimerDuration;
+ Added procedure TfrmRestore.tmrDurationTimer(Sender: TObject);
+ TRestoreJob.UpdateForm: calls StartTimerDuration on sContinueAfterUserConfirmation
+ TRestoreSteps: added sStopTimer
+ TRestoreJob.UpdateForm: handles sStopTimer
+ TRestoreJob.Execute: asks to stop the timer of the duration when necessary
+ hor_restore: added the _ProgressBarMax_RestoringScript_ constant
* TRestoreJob.Restore: uses the _ProgressBarMax_RestoringScript_ constant
+ TfrmBackup.tmrDurationTimer: shows also the hours in the duration also if it should never happen (my 5,6 Gb backup takes 12 minutes)