Health Organizer Code

- Fixed compilation settings

* hor_usb_stick_medicaldata: moved TSaveThread inside the new hor_export_medicaldata as TExportMedicalData
* hor_export_medicaldata: renamed TKeyList into TExportKeyList
* hor_export_medicaldata: renamed TThreadError into TExportError
+ hor_export_medicaldata: added TExportProgressBarMax
+ TExportMedicalData: added fOnProgressBarStep, fOnProgressBarMax, FPath variables
+ TExportMedicalData: added OnProgressBarMax property
+ TExportMedicalData: added OnProgressBarStep property
* TExportMedicalData.PB_SetMaxSize: calls OnProgressBarMax if set
* TExportMedicalData.PB_StepIt: calls OnProgressBarStep if set
+ Added procedure TfrmUsbStick_MedicalData.ThreadProgressBarMax(Sender: TObject; const Max: integer)
+ Added procedure TfrmUsbStick_MedicalData.ThreadProgressBarStep(Sender: TObject);
+ TfrmUsbStick_MedicalData.bbtnOkClick: sets also the OnProgressBarMax and OnProgressBarStep
+ TExportMedicalData.Create: added the Path parameter
- TfrmUsbStick_MedicalData.bbtnOkClick: Fixed compilation warning
* TFrmMain: Changed the type of FilesToDeleteOnClose and of FoldersToDeleteOnClose into TStringList
- Removed TfrmMain.DeleteThisFileOnClose
- Removed TfrmMain.DeleteThisFolderOnClose
+ TDocuments: added FFilesToDeleteOnClose and FFoldersToDeleteOnClose variables
+ TDocuments.Create: added the FilesToDeleteOnClose and FoldersToDeleteOnClose parameters
+ Added TDE_Monitors_Intervals:
// Extract the available intervals of date to be used for a
// patient+measurement
+ Added TDE_Monitors_Preparation:
// Calls a function that creates a temporary table with
// the monitor data
+ Added TDE_Monitors_ColumnsCheck:
// Analize the temporary table to show the monitor data
+ Added TDE_Monitors_Data:
// The monitor data
* TfrmMonMeasurementsDrugs: qIntervals is now a local variable of TDE_Monitors_Intervals type
* TfrmMonMeasurementsDrugs: qDataPreparation is now a local variable of TDE_Monitors_Preparation type
* TfrmMonMeasurementsDrugs: qDataColumnsCheck is now a local variable of TDE_Monitors_ColumnsCheck type
+ Added constructor TfrmMonMeasurementsDrugs.Create(TheOwner: TComponent): initializes qIntervals, qDataPreparation, qDataColumnsCheck and sets qData sql from the TDE_Monitors_Data class
+ Added destructor TfrmMonMeasurementsDrugs.Destroy: destroyes qIntervals, qDataPreparation, qDataColumnsCheck
+ TExportMedicalData.Execute: added the qMonitorDataIntervals, qMonitorDataPreparation, qMonitorDataColumnsCheck, qMonitorDataData variables
* TExportMedicalData.Execute: no more access TfrmMonMeasurementsDrugs
+ Added the following messages:
rsMsgMissingMandatoryParameters
rsParExportDatabase
rsParExportDoNotResetFlagToExport
rsParExportForce
rsParExportHost
rsParExportPassword
rsParExportPatient
rsParExportPort
rsParExportUsername
rsParHelp
rsStatusConnectingToDatabase
rsStatusOk
rsStatusError
rsMsgErrorConnectingToTheDatabaseDetails
rsStatusCheckingIfExportNeeded
rsMsgNoSettingsFound
rsQMsgDidYouRunProgramOnce
rsStatusYes
rsStatusNo
rsStatusResettingExportFlag
rsStatusLookingForThePatient
rsStatusOkDetails
rsMsgPatientDetailsNotFound
rsStatusExporting
rsStatusExceptionDetails
rsMsgMissingExportPath
rsMsgLogErrorOf
rsMsgDoneWithErrors
rsStatusLongOperation
rsMsgSelectTheFileToRestoreOrTheFolderWithBackupFiles
rsQMsgAreYouSureWasFolderWithBackupFiles
+ tSettings: added the "NeedExport" field
+ TExportMedicalData.Execute: disables the Synchronize on Console compilation because it is not working neither raising errors
+ TExportMedicalData.ProblemsFilter: handles not assigned fProblems
+ TExportMedicalData.PathologiesFilter: handles not assigned fPathologies
- TDocuments.SaveAttachmentsIntoFolder: avoid to change the mouse cursor when running from console application
+ TUpdateThread.GetStatus: the line 51 of 6th script can be very long (conversion of the files into large objects). Now it reports it as a long operation.
- hor_database: DB_Update: was reporting a failed update as a success
- hor_database: DB_Connect: was reporting a failed user's data database update as a success if the default data database update was fine
+ TFrmBackup: imglImages: added a X icon in the case of failure
+ TFrmBackup: TNotifyDataActions: added ndaErrorStep and ndaFinalizationWithErrors
+ Added procedure TExecuteBackupThread.ErrorStep(const _Step: TNotifyDataSteps);
+ TExecuteBackupThread.AccessMainForm: handles ndaErrorStep and ndaFinalizationWithErrors
+ TExecuteBackupThread.CreateDatabaseDump: calls ErrorStep during an exception
+ TExecuteBackupThread.CompressFiles: calls ErrorStep during an exception
+ TExecuteBackupThread.CreateInformationFile: calls ErrorStep during an exception
+ TExecuteBackupThread.Execute: notified ndaFinalizationWithErrors in the case of errors in the latest steps
- TfrmBackup.FormCreate: no more initializes the lblDone.Caption because it is done inside TExecuteBackupThread.AccessMainForm
* TfrmdpbDatabaseUpdate: lblLongOperation uses the rsStatusLongOperation message
+ TfrmBackup: added lblLongOperation
+ TfrmBackup.FormCreate: initializes lblLongOperation
+ TExecuteBackupThread.AccessMainForm: shows/hides the lblLongOperation label
+ TfrmDbConnect: added the possibility to restore from a folder where you have manually extracted the backup files (I'm having troubles with zip/unzip around 5Gb)
* TfrmRestore.Create: renamed the _FileName into _Name
+ TfrmRestore.Create: added the _IsFileName parameter
* TfrmRestore: renamed FFile into FName
+ TfrmRestore: added FIsFile
* TRestoreJob: renamed FFile into FName
+ TRestoreJob: added FIsFile
+ TRestoreJob.Create: added FIsFile
+ TRestoreJob.UpdateForm: shows/hides the decompress according if we have a file or a directory to work with
+ TRestoreJob.Execute: if we have selected a folder, no decompress step and we don't clean up that folder

It is hard... I'm out of topic, I know, with export program, but I need it.
Then I had troubles (and I still have) with my huge db (around 5Gb of dump) where the zip/unzip don't work. Then I have created a restore from folder so you can manually zip/unzip, but now TSQLScript is not able to work because it tries to load on memory the complete script without success....
I will need to implement a new component like TSQLStreamScript to work reading, when necessary, from a file, but... other work on work...

+ "tPlaces" table: added the "Expired" field
+ Added a new TODO reminder
- TfrmEditHospitals.FormClose: fixed comments
- TfrmEditHospitals.dbeNameChange: fixed compilation warning
+ Added TfrmEditPlaces class
+ Added TfrmNavigationPlaces class
+ Added procedure TfrmMain.actPlacesListExecute(Sender: TObject);
+ Added procedure TfrmMain.actPlacesAddExecute(Sender: TObject);
+ Added the Places: you can define general indoor/outdoor places like bars, restourants, gyms, lakes
+ "tPatients": add "Pregnant_Since" field
+ Added procedure TfrmEditPersons.SetupPatientComponents: setups the visibility/settings of the components after the patient query was opened
+ TfrmEditPersons.qPatientBeforePost: if more than 9 months were elapsed since the pregnant day, asks to clear it
+ TfrmEditPersons: qDoctors: it is not filtering by category (not available yet) and it is opened by SetupPatientComponents
+ Added function FUNC_PregnantAge( const PregnantDate : TDateTime): string:
// Calculates the pregnant age strings
// i.e. '13 days'
// '2 weeks'
// 'one month, 2 weeks, 4 days'
+ Added the following messages:
rsMsgTitleDataImprovement
rsQMsgMayIclearFieldDetails
rsPregnant_TooMuchTime
rsPregnant_DayOne
rsPregnant_Days
rsPregnant_WeekOne
rsPregnant_Weeks
rsPregnant_MonthOne
rsPregnant_Months
rsDateFormat_SqlShort
rsHintWheelMouseClickOpenIt
+ Added procedure TfrmEditPersons.HideShowSexRelatedFields;
+ Added procedure TfrmEditPersons.qPatientPregnant_SinceChange(Sender: TField) to recalculate the pregnant age
+ TfrmEditPersons.dbcbSexChange: calls HideShowSexRelatedFields
+ TfrmEditPersons: added qFathers, qMothers, dsFathers, dsMothers
+ TfrmEditPersons.qDataAfterOpen: opens qFathers, qMothers
+ Patients: you can define who is the family doctor and the pregnant date
+ Persons: you can define the biological mother and father

* TframeContacts.Create: removed the _Parent parameter and changed the _Owner into _OwnerAndParent
+ Added hor_messages_windows with all the messages sent between our windows/components
+ Added procedure TfrmNavigationStandard.MsgEvents_RefreshData(var Msg: TLMessage) to refresh data on HORMSG_REFRESH message
+ TfrmEditStandard: added the FNotifyWindow variable
+ Added constructor TfrmEditStandard.Create(TheOwner: TComponent; const _NotifyChangesTo: HWND);
+ TfrmEditStandard.Save: posts the HORMSG_REFRESH message to the notify window if available
+ TfrmEditMdlStandard: added the FNotifyWindow variable
+ Added constructor TfrmEditMdlStandard.Create(TheOwner: TComponent; const _NotifyChangesTo: HWND);
+ TfrmEditMdlStandard.Save: posts the HORMSG_REFRESH message to the notify window if available
+ TfrmGenericEditContacts.Create: added the _NotifyChangesTo parameter
+ TfrmGenericNavigationContacts.qListBeforeEdit: provides the _NotifyChangesTo parameter value to be notified when the list needs to be refreshed
+ TfrmGenericNavigationContacts.qListBeforeI: provides the _NotifyChangesTo parameter value to be notified when the list needs to be refreshed
- TfrmGenericNavigationContacts.qList: Fixed the delete sql (not working due to wrong ID parameter)
- hor_navigation_allergies: added the Copyright statement
+ TfrmNavigationStandard: added FSystemField variable
+ TfrmNavigationStandard.qListAfterOpen: initializes FSystemField
+ TfrmNavigationStandard.qListBeforeDelete: stops the operation if acting on a system record
+ TfrmNavigationStandard.qListBeforeEdit: stops the operation if acting on a system record
- TfrmNavigationPathologies.qListBeforeDelete: removed. Now more necessary because it is handled inside TfrmNavigationStandard
+ TfrmNavigationPathologies.qListBeforeEdit: calls the inherited method
+ TfrmNavigationDocuments.qListBeforeDelete: calls the inherited method
+ TfrmNavigationDocuments.qListBeforeEdit: calls the inherited method
- TfrmNavigationAllergiesReactions.qListBeforeDelete: removed. Now more necessary because it is handled inside TfrmNavigationStandard
+ TfrmNavigationAllergiesReactions.qListBeforeEdit: calls the inherited method
+ TfrmNavigationCountries.qListBeforeEdit: calls the inherited method
+ TfrmNavigationPersons.qListBeforeEdit: calls the inherited method
+ TfrmNavigationMeasurements.qListBeforeEdit: calls the inherited method
+ TfrmNavigationProblems.qListBeforeEdit: calls the inherited method
+ TfrmNavigationPathologies.qListBeforeEdit: calls the inherited method
+ TfrmNavigationHospitals.qListBeforeEdit: calls the inherited method
+ TfrmNavigationExaminations_Names.qListBeforeEdit: calls the inherited method
+ TfrmNavigationExaminations.qListBeforeEdit: calls the inherited method
+ TfrmNavigationExaminations_Names_Categories.qListBeforeEdit: calls the inherited method
+ TfrmNavigationPrescriptions.qListBeforeEdit: calls the inherited method
+ TfrmNavigationHospitalsWards.qListBeforeEdit: calls the inherited method
+ TfrmNavigationDrugs_Companies.qListBeforeEdit: calls the inherited method
+ TfrmNavigationDrugs_Names.qListBeforeEdit: calls the inherited method
+ TfrmNavigationDrugs_Prescriptions.qListBeforeEdit: calls the inherited method
+ TfrmNavigationExemptionsAndMore.qListBeforeEdit: calls the inherited method
+ TfrmNavigationDrugs.qListBeforeEdit: calls the inherited method
+ TfrmNavigationDiary.qListBeforeEdit: calls the inherited method
+ TfrmNavigationHospitalizations.qListBeforeEdit: calls the inherited method
+ TfrmNavigationAllergies.qListBeforeEdit: calls the inherited method
+ TfrmNavigationExaminationsPeriodical.qListBeforeEdit: calls the inherited method
+ TfrmNavigationContactsTypes.qListBeforeEdit: calls the inherited method
+ TfrmGenericNavigationContacts.qListBeforeEdit: calls the inherited method
- TfrmEditHospitals.tsContactsEnter: moved into TfrmEditHospitals.tsContactsShow to avoid refresh problems
- TfrmEditPersons.tsContactsEnter: moved into TfrmEditPersons.tsContactsShow to avoid refresh problems
+ TfrmGenericNavigationContacts: added the FNotifyWindow variable
+ TfrmGenericNavigationContacts:Create: added the _NotifyChangesTo parameter
+ Added procedure TfrmGenericNavigationContacts.MsgEvents_RefreshData(var Msg: TLMessage ): notify to refresh the data also to the calling window
+ Added procedure TframeContacts.MsgEvents_RefreshData(var Msg: TLMessage)
+ TframeContacts.btnContactsEditClick: provides the handle to get the HORMSG_REFRESH message when the grid need to be refreshed
+ Added procedure TfrmGenericNavigationContacts.qListAfterDelete(DataSet: TDataSet): notify to refresh the data also to the calling window
+ Added the rsQMsgNoHospitalExistsCreateOne and rsMsgNoHospital messages
+ Added TfrmComboBoxHospital to select/create a hospital
+ Added function TfrmMain.SelectHospital(var ID: LongInt; var Name: string): boolean
+ TfrmEditHospitals: added the OpenedToCreateAnewHospital variable
+ TfrmEditHospitals.FormCreate: initializes OpenedToCreateAnewHospital
+ Added procedure TfrmEditHospitals.FormClose(Sender: TObject; var CloseAction: TCloseAction): hides the form when used to create a new hospital

+ hor_database: added the aContactsTypes variable
+ hor_database: DB_ClearDynamicCodeDescriptionArrays: clears also aContactsTypes
+ hor_database: added function Array_ContactsTypes: TArray;
+ hor_database: TCodeToDescr: added ctdContactsTypes
+ hor_database: DecodeCodeOrDescription: handles also ctdContactsTypes
+ hor_usb_stick_vital: TSaveThread.Execute: added qContacts
+ hor_messages_usb: added the following messages:
rsUS_Country
rsUS_Contacts
rsUS_CountryInternationPhoneCode
+ hor_messages: added the following messages:
rsTitleContactsOf
rsMsgErrorUnhandledValue
+ hor_usb_stick_vital: TSaveThread.Execute: writes the country and the contacts
+ Added hor_generic_contacts: defines the available contacts and the relative database information
+ Added the TfrmGenericEditContacts form able to edit the contacts of a Hospital, Person or Place
+ Added the TfrmGenericNavigationContacts form able to list the contacts of a Hospital, Person or Place
+ Added the TframeContacts frame able to list the contacts of a Hospital, Person or Place
+ TfrmEditPersons: added the FContactsFrame variable
+ Added TfrmEditPersons.FormDestroy to destroy, if necessary, the FContactsFrame variable
+ TfrmEditPersons.tsContacts: uses TframeContacts as content of the tab using the FContactsFrame variable
+ TfrmEditHospitals: added the FContactsFrame variable
+ Added TfrmEditHospitals.FormDestroy to destroy, if necessary, the FContactsFrame variable
+ TfrmEditHospitals: added the tsContacts tab that uses TframeContacts as content of the tab using the FContactsFrame variable
+ Added tPlacesContacts table
+ New reminders about next steps...

+ Added the missing TfrmEditPersonsContacts and TfrmNavigationPersonsContacts (sorry...)

+ hor_database: added constDB_ContactType_Web
* "tContactsTypes": Extended the "Name" field to 15 characters
+ "tContactsTypes": added the "Url" field
+ Added the rsUS_CT_Web and rsHintDoubleClickToActivateContact messages
+ hor_database: CheckContactTypes: Added the "web page" contact type
+ hor_database: CheckContactTypes: Adds and updates also the "Url" field
+ Added TfrmNavigationPersonsContacts
+ Added TfrmEditPersonsContacts
+ TfrmEditPersons: added the Contact tab with a button to open the contacts of the current person
* DB_CheckSystemData: commit pending transactions before to start
* DB_Connect: commit the transaction only when still open
+ Added the following messages:
rsMsgCheckFailed
rsUS_Height
rsUS_HeightData
- TfrmEditExaminations: Fixed compilation warnings
- TfrmEditPrescriptions: Fixed compilation warnings
- TfrmNavigationExaminations: Fixed compilation warnings
- TfrmNavigationPersons: Fixed compilation warnings
+ TSaveThread.Execute: added the height
- Removed the unused TfrmEditExemptionsAndMore.qDataAfterPost
- Removed the unused TfrmEditExemptionsAndMore.qDataAfterInsert
- TfrmEditExemptionsAndMore: Fixed compilation warnings

- TfrmAbout: fixed the copyright year
+ hor_database: CheckContactTypes: added "Skype" following the instructions described at https://secure.skypeassets.com/content/dam/scom/pdf/skype_brand_guidelines.pdf
+ TfrmMain: added the Skype icon
+ hor_components: added THorDBComboBoxIcons: a combo box connected to an interger field that shows, as values, the images of a list
+ Added TfrmEditContacts_Types
+ Added TTfrmNavigationContactsTypes
+ You can handle the types of the contacts like Phone, Mobile, E-mail, etc.
+ Added procedure TfrmBase.Unused(const _GridDrawState: TGridDrawState);

+ hor_database: CheckMeasurementsUnits: Added "Bottle", "Vial" and "Drops" units of measurement
+ Added the following messages:
rsUS_MT_Bottle
rsUS_MT_Vial
rsUS_MT_Drops
rsUS_CT_Email
rsUS_CT_Mobile
rsUS_CT_Phone
rsUS_CT_Fax
rsUS_CT_PhoneInternal
rsUS_CT_RadioChannel
- hor_database: CheckDoctorsTypesCategories: no more commits the transaction because it is handled by DB_CheckSystemData
- hor_database: CheckMeasurementsUnits: no more commits the transaction because it is handled by DB_CheckSystemData
- hor_database: CheckMeasurementsTypes: no more commits the transaction because it is handled by DB_CheckSystemData
- hor_database: CheckPathologies: no more commits the transaction because it is handled by DB_CheckSystemData
- hor_database: CheckAllergiesReactions: no more commits the transaction because it is handled by DB_CheckSystemData
- hor_database: DB_CheckSystemData: if one of the checks fail, continue with the others instead to stop
+ hor_database: added function CheckContactTypes(): boolean: It checkes that the system's contact types exist
+ TfrmMain: added imgListIcons image list with the icons for the contact's types
* hor_messages_usb: updated copyright year
- TfrmEditHospitalizations.qDataAfterInsert: fixed compilation hint
- TfrmNavigationHospitalizations.qListBeforeInsert: fixed compilation hint
- TfrmEditHospitalizations.tsMainContextPopup: removed because it is not used and raises compilation hints
- TfrmNavigationHospitalizations.qListAfterEdit: removed because it is not used and raises compilation hints
- TfrmNavigationHospitalizations.qListAfterInsert: removed because it is not used and raises compilation hints

* tPersons table: improoved the fk_tPersons_tCountriesCitiesAddresses and fk_tPersons_tCountriesCities_Birth constraints
+ tPersons table: added the link to the father and mother
+ new tPersonsGroups and tPersonsGroupsPersons tables to be able to define groups of people like "Friends","Family","Sport team", etc.
+ new tPlaces table
+ New tHumanContacts, tHumanContactsPersons and tHumanContactsPlaces tables to keep track of contacts between people
+ tSettings table: added the DeleteHumanContactsAfterDays field
+ tPatients table: added the PregnantSince field