Health Organizer Code

+ hor_components: TfrmSearchResults: added the lblMaxReached to warn the user when the maximum number of records was reached
+ hor_components: THorDBLookupComboBox.TransferTheValues: chooses if to show or not TfrmSearchResults.lblMaxReached
+ hor_components: THorDBLookupComboBox.Create: the Style is forced to csDropDownList
+ hor_components: added procedure THorDataModule.HorWhereAdd(var _Where: string; const _Condition: string):
// Sets/appends inside the _Where a SQL "Where" statement with the given
// condition (if somethig else is already present inside the _Where, the
// condition will be appendend in AND)
+ hor_components: added function THorDataModule.HorCreateSqlConditionDate(const _FieldName, _Operator: string; const _Value: TDateTime): string;:
// Returns a sql condition for the given fieldname, compare operator and
// value like Birth_Day>to_date('2024-02-18','yyyy-mm-dd')
+ hor_components: added THorDBLookupComboBoxPerson: ready to use DB Lookup ComboBox to look for a person with dedicated custom filters
+ hor_components: added the IHorEditForm interface:
// The essential methods I need to know to be able to create a new record of
// data via the THorDBLookupComboBox* components
+ hor_components: added procedure THorDBLookupComboBox.HorHideProperties;
+ hor_components: added procedure THorDBLookupComboBox.HorUnlistPublishedProperty(ComponentClass: TPersistentClass; const PropertyName: String);
+ hor_components: THorDBLookupComboBox.Create: calls HorHideProperties if we are in design
+ hor_components: THorDBLookupComboBox: hides the Style property
+ hor_components: THorDBLookupComboBox.Create: initializes FHorMaxEntries and FHorTimeoutStartSearch
+ hor_components: THorDefaultData.Create: initializes FMaxEntries
+ hor_components: THorDBLookupComboBox.Create: sets the timer event
+ hor_components: added procedure THorDBLookupComboBox.HorOpenListQuery;
- hor_components: THorDBLookupComboBox.PrepareQueryData: it was not assigning the calculated SQL to the query
- hor_components: THorDBLookupComboBox.PrepareQueryDataDefault: fixed the limit on the records to extract and also the variable containig that limit
- hor_components: THorDBLookupComboBox.PrepareQueryData: fixed the limit on the records to extract
+ hor_components: added function THorDBLookupComboBox.HorDoubleQuoteIfNecessary(const _Text: string ): string;
+ hor_components: THorDBLookupComboBox.PrepareQueryDataDefault: uses HorDoubleQuoteIfNecessary for the field names
+ hor_components: THorDBLookupComboBox.PrepareQueryData: uses HorDoubleQuoteIfNecessary for the field names
+ hor_components: added procedure TfrmSearchResults.FrameExit(Sender: TObject); to hide the form
- hor_components: THorDBLookupComboBox.ShowTheValues: fixed the parent of the results
+ hor_components: THorDBLookupComboBox.ShowTheValues: selects the first item when it appears
+ hor_components: THorDBLookupComboBoxPerson.OnHorAddPerson: hides the results, not the lookup
+ hor_components: added procedure TfrmSearchResults.dbllbSearchDblClick(Sender: TObject);
+ hor_components: TfrmSearchResults: it is hidden at the beginning
+ hor_components: TfrmSearchResults: added a frame to get a border all around
* hor_components: renamed horfrmsearchresults.pas unit into hor_frmsearchresults.pas
+ added TFrmEditPersonsInterface derived from IHorEditForm interface
+ added function TfrmEditBase.getLastID: integer;
+ added procedure TfrmDataBase.HorAskOurLookupComboboxesToOpenListQuery( const _DataSource: TDataSource; _This: TControl);
+ added procedure TfrmDataBase.dsDataStateChange(Sender: TObject): calls HorAskOurLookupComboboxesToOpenListQuery when the dataset is browsing, editing or inserting
- TfrmEditBase.ChangeTransaction: removed
+ TfrmDataBase.ChangeTransaction: changes the transaction on all the queries using tData
+ TfrmEditStandard.bbCancelClick: due to the fact the transaction could be replaced, it uses the qData.Transaction instead of tData
+ TfrmEditStandard.Save: due to the fact the transaction could be replaced, it uses the qData.Transaction instead of tData

+ hor_components: THorDBLookupComboBox.PrepareQueryDataDefault: implemented
+ hor_components: added function THorDBLookupComboBox.GetAlteredQueryWhenInsertingNewRecord( const _Sql: String): string;
+ hor_components: THorDBLookupComboBox.PrepareQueryData: calls GetAlteredQueryWhenInsertingNewRecord
+ hor_components: added procedure THorDBLookupComboBox.OpenQueries;
* hor_components: THorDBLookupComboBox.PrepareQueryData: looks for the text only if there is a text
* hor_components: THorDBLookupComboBox.PrepareQueryDataDefault: looks for the text only if there is a text
+ hor_components: THorDBLookupComboBox: added the FHorFormSearchResults member variables
+ hor_components: THorDBLookupComboBox.Create: creates FHorFormSearchResults
+ hor_components: THorDBLookupComboBox.Destroy: destroies FHorFormSearchResults
+ hor_components: added procedure THorDBLookupComboBox.CreateMemoryTableFields;
+ hor_components: added procedure THorDBLookupComboBox.TransferTheValues(out _MaxWidth: integer);
+ hor_components: added procedure THorDBLookupComboBox.CloseQueries;
+ hor_components: added procedure THorDBLookupComboBox.ShowTheValues(const _MaxWidth: integer);
+ hor_components: TfrmSearchResults: added mdData, dsData
+ hor_components: added procedure TfrmSearchResults.btnCancelClick(Sender: TObject);
+ hor_components: added the THorImportNotifyEvent type:
// Method called when we need to import a default data record inside the
// official database.
// _Data is the memory dataset where the current record is the one to import.
// _Imported is an output parameter that will inform if the record was
// imported or not
// _ID is an output parameter with the value to set (ID of the imported record)
+ hor_components: THorDefaultData: added the OnImport property event
+ hor_components: added procedure TfrmSearchResults.btnCancelClick(Sender: TObject);
+ hor_components: added procedure TfrmSearchResults.btnOkClick(Sender: TObject);
+ hor_components: added procedure TfrmSearchResults.GoBackToTheOwner();
+ hor_components: added THorDataModule with queries to get persons, males, females, patients and doctors

+ 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