Health Organizer Code

+ 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