Health Organizer Code

+ Added the TfrmEditMdlExaminationsNamesRename mask
+ frmMain: added the actExaminationsNamesRenamesList and actExaminationsNamesRenamesAdd actions
+ frmMain: added the miGeneralDataExaminationsNamesRenames, miExaminationsNamesRenamesList and miExaminationsNamesRenamesAdd menu entries
+ hor_messages: added the following translations:
rsMsgSubstituteExaminationNameStepRenamed
rsMsgSubstituteExaminationNameStepRenamedDelete
+ TfrmSubstituteExaminationName: added the qSubExaminationsRenamed and qSubExaminationsRenamedDel queries
+ TfrmSubstituteExaminationName.bbtnOkClick: updates also the "tExaminationsNamesRenamedNames" table
- The matfanjol@... no more works, then replaced it with matfanjol@... (https://sourceforge.net/p/forge/documentation/User%20Email%20Alias/)

- hor_components: TfrmComboBoxPatient: fixed the components resize
- hor_components: THorDataModule.HorCreateSqlConditionDate: Fixed the missing ) and quoted part
* hor_components: TfrmSearchResults: lblMaxReached: better message
+ added the tExaminationsNamesRenamed and tExaminationsNamesRenamedNames tables that will let you rename the examination names during the export of the data
+ hor_database: Added the following constants:
constDB_ContactCategoryPerson_Father
constDB_ContactCategoryPerson_Mother
constDB_ContactCategoryPerson_BrotherSister
constDB_ContactCategoryPerson_DaughterSon
+ hor_messages_usb: Added the following translations:
rsUS_CCP_BrotherSister
rsUS_CCP_Father
rsUS_CCP_Mother
rsUS_CCP_DaughterSon
+ hor_database: Array_ContactsCategoriesPerson: adds also the father, mother, brother/sister
+ TfrmEditPersonsToContact: added the missing fields
+ added procedure TfrmNavigationPersonsToContact.qListBeforeOpen(DataSet: TDataSet); to open the query with the provided PatientID
- TfrmNavigationPersonsToContact: only the first 150 characters are taken from the note field
- Remove the unused TfrmEditPersonsToContact.HideShowCheckbox
- Remove the unused TfrmEditPersonsToContact.qDataBeforePost
- Remove the unused TfrmEditPersonsToContact.qDataAfterOpen
- Remove the unused TfrmEditPersonsToContact.qDataAfterEdit
- Remove the unused TfrmEditPersonsToContact.qDataAfterInsert
+ TfrmNavigationPersonsToContact.qListBeforeInsert: when adding the first new record, sets the order to 1 and select the person
+ added procedure TfrmEditPersonsToContact.qDataCOD_PersonChange(Sender: TField) to update the title
+ TfrmEditStandard.Save: added the Sender parameter
+ TfrmEditStandard: added FHorOnBeforeCommit member variable and HorOnBeforeCommit property
+ TfrmEditStandard.Save: calls FHorOnBeforeCommit before the commit
+ TfrmEditPersonsToContact.FormCreate: sets HorOnBeforeCommit
+ added procedure TfrmEditPersonsToContact.UpdateTheOtherOrders(const _CurrentOrder, _CurrentPerson: integer);
+ added procedure TfrmEditPersonsToContact.OnBeforeCommit(Sender: TObject); to call UpdateTheOtherOrders

- hor_components: THorDataModule: removed qPersonsFemale and qPersonsMale
+ hor_components: THorDataModule.qDoctors: added the %WHERE% to the SQL
+ hor_components: THorDataModule.qPatients: added the %WHERE% to the SQL
- hor_components: THorDataModule.qDoctors: fixed the "order by"
- hor_components: THorDataModule.qPatients: fixed the "order by"
- hor_components: THorDataModule.qPersons: fixed the "order by"
+ hor_components: added function THorDBLookupComboBoxPerson.HorGetInitialSql(): string;
+ hor_components: THorDBLookupComboBoxPerson.HorBuildSql: uses HorGetInitialSql
+ hor_components: added function THorDBLookupComboBoxDoctor.HorGetInitialSql(): string;
+ hor_components: THorDBLookupComboBox.PrepareQueryData: sorts the results
+ hor_components: THorDBLookupComboBox.PrepareQueryDataDefault: sorts the results
* hor_components: THorDBLookupComboBox: the default max entries are 50
+ hor_components: IHorEditForm: added function CreateToShow( const _ID: integer ): boolean;
+ hor_components: added procedure THorDBLookupComboBoxPerson.onHorDbLookupComboBoxDblClick(Sender: TObject);
+ hor_components: THorDBLookupComboBoxPerson.Create: let you double click the text to get the person open in edit
+ hor_components: added function THorDBLookupComboBoxPatient.HorGetInitialSql(): string;
+ hor_components: added constructor THorDBLookupComboBoxPatient.Create(AOwner: TComponent);
- hor_components: THorDBLookupComboBoxPersonFemale: removed because you can have it setting HorFilterMale=false
- hor_components: THorDBLookupComboBoxPersonMale: removed because you can have it setting HorFilterFemale=false
+ hor_components: THorDBLookupComboBox.Create: do not create the FHorFormSearchResults otherwise appears inside the IDE...
+ hor_components: THorDBLookupComboBox.Destroy: destroies FHorFormSearchResults only if necessary
+ hor_components: THorDBLookupComboBox.onHorTimerSeach: creates FHorFormSearchResults if necessary
- TfrmEditExaminations: removed qDoctors, dsDoctors
+ TfrmEditExaminations.dblcDoctor: it is the first to use the new THorDBLookupComboBoxDoctor component! :)
- TfrmEditExaminations.btnAddClick: no more handles the doctors
- TfrmEditExaminations.qDataAfterOpen: no more opens qdoctors
+ TfrmEditExaminations.qDataDateChange: sets the filter by age for a worked day of the doctor
+ added function TFrmEditPersonsInterface.CreateToShow(const _ID: integer): boolean;

+ hor_components: IHorEditForm.CreateShowAndReturn: renamed into CreateToAddShowAndReturn
+ hor_components: added THorAddPersonReasons:Defines the reasons you are adding a new person: to create a...
+ hor_components: IHorEditForm.CreateToAddShowAndReturn: removed the transaction and used insted the _Reason.
I will not keep the transaction of the calling window because:
a) I have troubles with it
b) if the user enters a lot of information (i.e. contacts) then cancel on the main window, nothing is saved about the new person and this could be frustrating
+ hor_components: THorDBLookupComboBoxPerson: added the FHorNewReasons member variable
+ hor_components: THorDBLookupComboBoxPerson.Create: initializes FHorNewReasons
+ hor_components: added constructor THorDBLookupComboBoxDoctor.Create(AOwner: TComponent) to initialize FHorNewReason
+ hor_components: added THorAddPersonReasonsSet
* hor_components: TfrmSearchResults: is now derived from TForm to show it also outside the current window
+ hor_components: added procedure TfrmSearchResults.CreateParams(var Params: TCreateParams);
+ hor_components: added procedure TfrmSearchResults.FormDeactivate(Sender: TObject);
- hor_components: TfrmSearchResults.FrameExit: removed
+ hor_components: THorDBLookupComboBoxPerson.SetHorFilterFemale: updates FHorNewReasons
+ hor_components: THorDBLookupComboBoxPerson.SetHorFilterMale: updates FHorNewReasons
+ hor_components: THorDBLookupComboBoxPerson.Create: initializes HorFilterFemale and HorFilterMale, instead of FHorFilterFemale and FHorFilterMale, to get FHorNewReasons updated
+ hor_components: TfrmSearchResults.btnCancelClick: clears the entered text
+ hor_components: THorDBLookupComboBox.ShowTheValues: handles FHorFormSearchResults as a standalone window (no more as a part of the current window)
+ TFrmEditPersonsInterface.CreateToAddShowAndReturn: handles the new _Reason parameter initializing OpenedToCreateAnewDoctor, OpenedToCreateAnewPatient and the sex, when possible

+ 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"