Health Organizer Code

{

    Health Organizer (http://sourceforge.net/projects/hor/,
                      http://hor.sourceforge.net/)
    Copyright (C) 2014-2023  Andrea Urbani ( matfanjol@users.sf.net )

    This program is free software: you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation, either version 3 of the License, or
    (at your option) any later version.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with this program.  If not, see <http://www.gnu.org/licenses/>.

}
unit hor_messages;

{$mode objfpc}{$H+}

interface

resourcestring
  // ***************************************************************************
  // **** A T T E N T I O N ******
  //      =================
  // Please, make attention TO NOT INSERT here messages or texts that will be
  // used during the write of the USB stick data, because the following messages
  // ARE NOT correctly TRANSLATED during the creation of the USB stick.
  // Only the messages inside the hor_messages_usb will be translated during the
  // creation of the USB stick and this is done to avoid to translate a lot of
  // not necessary texts.
  // So, if your message has to be used / may be used also during the write of
  // the USB stick, please, do not add it here, but inside   hor_messages_usb
  // T h a n k   Y o u !
  // ***************************************************************************


  // ======= Database entries ===============================
  // -- Categories of Types of Doctors --
  rsDC_Family = 'Family';

  // ========================================================

  rsMsgNightlyBuild='ATTENTION: this is an untested version build automatically!' + #13#10 + 'DO NOT USE it with your data, because your data could be damaged and lost!!!' + #13#10 + 'Use this version only with test data.';
  rsQMsgMayIclearFieldDetails='May I clear the "%s" field (%s)?';
  rsQMsgNightlyBuildContinueTheDatabaseConnection='Are you really sure you want to connect to the database?';
  rsAboutNightlyBuild='*** NIGHTLY BUILD ***';
  rsMsgConnectionDetails='CONNECTED: %0:s:%1:s database %2:s user %3:s';
  rsMsgDatabaseUsedWithAnewerVersion='Probably the database was used with a ' +
    'newer version of HealthOrganizer.';
  rsMsgDatabaseVersionHigherThanMine='The version of the database (%0:d) is ' +
    'higher than the version I know (%1:d)';
  rsMsgError='Error';
  rsMsgFileDoesntExist='The "%s" file doesn''t exist!';
  rsMsgPatientDetailsNotFound='Patient "%s" not found';
  rsMsgPleaseContactAuthor='Please, contact the author of the program telling: "%s"';
  rsMsgTheDatabaseAlreadyExists='The database "%s" already exists!';
  rsMsgTheFieldNeedsAvalue='The "%s" field needs a value';
  rsMsgThePasswordsAreDifferent='The passwords are different!';
  rsMsgTheRoleAlreadyExists='The role "%s" already exists!';
  rsMsgTipTryToReinstall='Tip: try to reinstall the program.';
  rsMsgUnknownDatabaseVersion='Unknown database version';
  rsQMsgAreYouSureWasBackupFile='Have you selected a file generated by the backup function?';
  rsQMsgAreYouSureWasFolderWithBackupFiles='Have you selected a folder containing the files generated by the backup function?';
  rsQMsgUseItInReadOnlyMode='Would you like to try to use it anyway in ' +
    '"read-only" mode?';
  rsMsgYouHaveToSave='You have to save';
  rsMsgUnknown='Unknown';
  rsMsgErrorCheckingSystemData='Error checking the system data: %s';
  rsMsgErrorConnectingToTheDatabaseDetails='Error connecting to the database: %s';
  rsMsgErrorDatabaseOffline='The database connection is not available';
  rsMsgDone='Done';
  rsMsgDoneWithErrors='Done with errors';
  rsMsgCheckSuccess='Check successfully done';
  rsMsgCheckFailed='Check failed';
  rsMsgSelectTheFileToRestoreOrTheFolderWithBackupFiles='Please, select the file to restore or the folder with the backup files to restore';
  rsMsgSelectThePatient = 'Please, select the patient';
  rsQMsgNoHospitalExistsCreateOne = 'No hospital exists. Would you like to ' +
    'create a new one?';
  rsQMsgNoPatientExistsCreateOne = 'No patient exists. Would you like to ' +
    'create a new one?';
  rsQMsgNoPersonExistsCreateOne = 'No person exists. Would you like to ' +
    'create a new one?';
  rsMsgNoHospital='No hospital';
  rsMsgNoPatient='No patient';
  rsMsgNoPerson='No person';
  rsMsgSelectAvalue='Please, select a value';
  rsMsgFirstConnection1='This seems to be the first time you run the program.';
  rsMsgFirstConnection2='The absolute first time you run the program you ' +
    'have to create a Health Organizer database';
  rsMsgFirstConnectionTitle='First run';
  rsMsgSystemRecord_CantEdit='This record is an internal record and can''t be changed.';
  rsMsgSystemRecord_IfWrongTranslation1='If you see a wrong name/translation try the following:';
  rsMsgSystemRecord_IfWrongTranslation2='1) run, from the main menu, %s';
  rsMsgSystemRecord_IfWrongTranslation3='2) close this window and open it again';
  rsMsgSystemRecord_IfWrongTranslation4='If it is still wrong, please, open a ticket at %s.';
  rsMsgSystemRecord_CantDelete='This record is an internal record and can''t be deleted.';
  rsMsgSystenRecord='Internal record';
  rsQMsgNoPathologyExistsCreateOne = 'No pathology exists. Would you like to ' +
    'create a new one?';
  rsMsgNoPathology='No pathology';
  rsQMsgTitleDelete='Delete?';
  rsQMsgDeletePathologyFromPatient='Are you sure to delete the "%s" pathology from this patient?';
  rsMsgErrorLoadingAttachment='Error loading the %d attachment (%s, %d): %s';
  rsMsgRenameTitle='Rename';
  rsMsgEnterTheNewName='Please, enter the new name';
  rsMsgValueTooLongMakeItShorter='The "%s" value is too long. Please, make it shorter of %d characters.';
  rsQMsgDeleteAttachment='Are you sure to delete the "%s" attachment?';
  rsQMsgDidYouRunProgramOnce='Did you run the program at least once?';
  rsMsgErrorCreatingDirectory='The creation of the "%s" folder failed.';
  rsMsgErrorCreatingFile='The creation of the "%s" file failed.';
  rsHintDoubleClickEmpties='Double click me to empty this field';
  rsHintDoubleClickToActivateContact='Double click on the contact to activate it';
  rsHintTypeApartToSearch='You can type here a part of the record you are looking for';
  rsHintCreatesAnewDocument='Creates a new document';
  rsHintOpenTheSelectedDocument='Opens the select document';
  rsHintCreatesAnewPrescription='Creates a new prescription';
  rsHintOpenTheSelectedPrescription='Opens the select prescription';
  rsHintDrugPictureOrInformation='Tip: attach the picture and the technical information of the drug';
  rsOther='Other...';
  rsPregnant_TooMuchTime='Too much time... wrong data?';
  rsPregnant_DayOne='one day';
  rsPregnant_Days='%s days';
  rsPregnant_WeekOne='one week';
  rsPregnant_Weeks='%s weeks';
  rsPregnant_MonthOne='one month';
  rsPregnant_Months='%s months';
  rsQMsgWouldYouLikeToSupportUs='Would you like to support us?';
  rsMsgWeHaveNoDataAboutCountry='We actually have no data regarding ''%s''.';
  rsQMsgYouCouldHelpUsInFinding='Would you like to contribute to our project ' +
      'providing the data of your country?';
  rsEmpty='(empty)';
  rsMsgSelectWhereToSaveData='Please, select where to save the data';
  rsMsgErrorPatientDoesNotExist='The patient does not exist!';
  rsAge_JustDays='%d days';
  rsAge_JustYear='%d years';
  rsAge_YearMonth='%d years and %d months';
  rsAge_MinusDays='%d days to the birthday';
  rsAge_TodayIsBirthday='Today is the birthday';
  rsMsgImprooveTheSoftware='You can help us to improove our software!';
  rsMsgLetUsKnowWhatOther='Please, write to us which kind of information you are saving, in particular which "type" should be used instead of the actual "%s".';
  rsMsgThankYou='Thank you';
  rsMsgWithoutProblemLink='(the ones without any reference to a problem)';
  rsMsgWithoutPathologyLink='(the ones without any reference to a pathology)';
  rsMsgSpecifyWhenAfterBeforeType='Please, specify the type of the after/before';
  rsMsgSpecifyWhenAfterBeforeQuantity='Please, specify the after/before''s quantity';
  rsMsgSelectTheDataToExport='Please, select the data to export.';
  rsMsgYes='Yes';
  rsMsgNo='No';
  rsMsgDataRelativeTo='Data relative to %s';
  rsStatusCheckingIfExportNeeded='Checking if I have to export data...';
  rsStatusConnectingToDatabase='Connecting to the database...';
  rsStatusError='ERROR';
  rsStatusExceptionDetails='Exception: %s';
  rsStatusExporting='Exporting...';
  rsStatusLongOperation='This operation could take a lot of time... Please, wait...';
  rsStatusLookingForThePatient='Looking for the patient...';
  rsStatusNo='NO';
  rsStatusOk='OK';
  rsStatusOkDetails='OK: %s';
  rsStatusResettingExportFlag='Resetting export flag...';
  rsStatusYes='YES';
  rsTitleContactsOf='Contacts of "%s"';
  rsTitleDrugs='Taken drugs';
  rsTitleDrugsByType='Taken drugs by type';
  rsTitleDiary='Diary';
  rsTitleExaminations='Examinations';
  rsTitleExaminationsByType='Examinations by type';
  rsTitleExaminationsToDo='Examinations to do';
  rsTitlePrescriptedDrugs='Prescripted drugs';
  rsTitlePatientData='Patient data';
  rsTitlePathologiesAndProblems='Pathologies and problems';
  rsTitleMeasurements='Measurements';
  rsTitleMeasurementsSuggestions='Suggestions about measurements';
  rsTitleHospitalizations='Hospitalizations';
  rsTitleAllergiesToDrugs='Allergies to drugs';
  rsTitleMonitors='Monitors';
  rsTitleMonitorsExtended='Monitors to control the dosages of the drugs';
  rsTitleMonitorsValues='Monitor of %s (%s) to control the dosages of the drugs';
  rsColumnDate='Date';
  rsColumnContacts='Contacts';
  rsColumnContactsCategory='Category';
  rsColumnContactsContact='Contact';
  rsColumnContactsNote='Note';
  rsColumnContactsType='Type';
  rsColumnName='Name';
  rsColumnHospital='Hospital/Clinic';
  rsColumnDoctor='Doctor';
  rsColumnFamilyDoctor='Family doctor';
  rsColumnProblem='Problem';
  rsColumnPathology='Pathology';
  rsColumnPatientSurname='Surname';
  rsColumnPatientName='Name';
  rsColumnSex='Sex';
  rsColumnBirthDay='Day of birth';
  rsColumnBloodGroup='Blood group';
  rsColumnHeight='Height';
  rsColumnWeight='Weight';
  rsColumnResolved='Resolved';
  rsColumnNeedsChecks='Needs regular checks';
  rsColumnNote='Note';
  rsColumnBooked='Booked';
  rsColumnCompany='Company';
  rsColumnFileSize='Size';
  rsColumnWhen='When';
  rsColumnQuantity='Quantity';
  rsColumnInterval='Interval';
  rsColumnEnd='End';
  rsColumnStart='Start';
  rsColumnType='Type';
  rsColumnWard='Ward';
  rsColumnReaction='Reaction';
  rsColumnDrugsThatHelps='Drugs that helps';
  rsColumnValue='Value';
  rsColumnValueMin='Value (min)';
  rsColumnValueMax='Value (max)';
  rsColumnTypeOfMeasurement='Type of measurement';
  rsColumnMeasurementUnit='Unit of measurement';
  rsQMsgTheDirectoryExistsDeleteIt='The "%s" folder already exists. May I ' +
    'delete it?';
  rsMsgErrorDeletingDirectory='The deletion of the "%s" folder failed.';
  rsMsgErrorDeletingFile='The deletion of the "%s" file failed.';
  rsMsgPatients='Patients';
  rsMsgDoctors='Doctors';
  rsMsgPrivacyInformation='Privacy information';
  rsMsgPrivacySupportEmail='The support via e-mail is the easier and faster way to get support, but, make attention, your mail will be archived and will be available to the public on Internet.';
  rsQMsgContinue='Continue?';
  rsMsgInformation='Information';
  rsMsgWarning='Warning';
  rsMsgStartupLanguage='The startup language is "%s", recognised via %s.';
  rsMsgFollowingFileExists='The following file exists: %s';
  rsMsgFollowingFileDoesNotExist='The following file does not exist: %s';
  rsMsgPrgShouldStartWithLanguage='The program should start with the "%s" language.';
  rsMsgPrgShouldStartWithDefaultLanguage='The program should start with the default English language.';
  rsMsgTheUserSettingFileIsCalled='The file that contains the settings of the current user is called "%s"';
  rsMsgUserSettingsResetted='The settings of the current user have being deleted';
  rsMsgSupportedCommandLineParameters='The program supports the following command line parameters:';
  rsMsgCommandLine_Lang='Starts the program with the given language ID (i.e. --lang fr_FR will start the program in French)';
  rsMsgCommandLine_Reset='Deletes the user settings (position and size of the windows, etc.)';
  rsMsgNoSettingsFound='No settings found!!!';
  rsMsgNoUserSettingsFound='There are no settings for the current user to delete';
  rsMsgSpecifyPrescription='Please, specify the prescription.';
  rsMsgSpecifyDate='Please, specify the date.';
  rsMsgTitleDataImprovement='Data improvement';
  rsMsgTitleGeneralDocuments='General documents';
  rsMsgSuggestions='Suggestions regarding the %s = %s';
  rsMsgCtrlFshouldSearch='Usually pressing CTRL+F on the keyboard you can search text';
  rsColumnSuggestionsTheDay='The date time';
  rsColumnSuggestionsQuantity='the measurement quantity was';
  rsColumnSuggestionsDrugName='taking (name of the drug)';
  rsColumnSuggestionsDrugUnit='taking (unit of measurement of the drug)';
  rsColumnSuggestionsDrugQuantity='taking (quantity of the drug)';
  rsColumnSuggestionsNextMeasurementDateTime='Next measurement was (date time)';
  rsColumnSuggestionsNextMeasurementQuantity='Next measurement was (quantity)';
  rsColumnSuggestionsHits='The same result happened the following number of times';
  rsQMsgRemoveDetail='Are you sure you want to remove "%s"?';
  rsQMsgTitleRemove='Remove?';
  rsMsgMissingExportPath='Missing the path where to export the data';
  rsMsgMissingMandatoryParameters='The following parameters are required but were not provided:';
  rsMsgMonitorInstructions='To be able to monitor the measurements and the drug''s dosages you need:'#13#10+
                           '1) to have at least one drug that controls one type of measurement (check it inside the "%0:s" menu)'#13#10+
                           '2) to have taken that drug at least one time (check it inside the "%1:s" menu)'#13#10+
                           '3) to have saved at least one measurement of the same type (check it inside the "%2:s" menu)';
  rsMsgNoDataFound='No data found';
  rsMsgAscending='ascending';
  rsMsgDescending='descending';
  rsDateFormat_Short='mm/dd/yyyy';
  rsDateFormat_SqlShort='mm/dd/yyyy';
  rsDateFormat_Medium='ddd d mmm yyyy';
  rsDateTimeFormat_Medium='ddd d mmm yyyy hh:nn:ss';
  rsDateTimeFormat_Navigation_Examinations='ddd mm/dd/yyyy hh:nn';
  rsMsgFileXofY='File %s of %s';
  rsMsgFileNameSize='%s ( %s )';
  rsDateTimeFormat_Long='dddd d mmmm yyyy hh:nn:ss';
  rsTimeFormat='hh:nn:ss';
  rsHintExpiredHidesTheRecord='When it is checked, this record will not be shown inside other masks during the creation of new data';
  rsMsgToDoExaminationsAtTheEnd='At the end of the page you will find the next examinations still to be done.';
  rsMsgDoneExaminationButResultsAvailableFrom='This examination was done, but the results will be available from %s.';
  rsMsgErrorGettingFileData='Error getting the details of the "%s" file';
  rsMsgSelectAvalueFor='Please, select a value for "%s"';
  rsMsgSubstituteExaminationNameContinue='You are going to substiture the "%0:s" name of examination with "%1:s", then to delete the "%0:s" (that will be no more used). Continue?';
  rsMsgSubstituteExaminationNameStepExaminations='Substituting inside the examinations: %s';
  rsMsgSubstituteExaminationNameStepPrescriptions='Substituting inside the prescriptions: %s';
  rsMsgSubstituteExaminationNameStepProsthesis='Substituting inside the prosthesis: %s';
  rsMsgSubstituteExaminationNameStepDelete='Deleting the examination name: %s';
  rsMsgTakingAlogDetails='Taking a log: %s';
  rsMsgSubstituteExaminationNameLogMessage='Examination name: "%0:s" into "%1:s"';
  rsMsgSubstituteExaminationNameLogDetails='The "%0:s" user substituted the "%1:s" name of examination with "%2:s"';
  rsMsgErrorDocumentNotFound='The document with %s ID was not found';
  rsMsgSubstituteExaminationNameStepPeriodical='Substituting inside the periodical examinations: %s';
  rsMsgRunningScriptXoutOfY='Running script %0:s of %1:s';
  rsMsgRunningScript='Running "%0:s" script: line %1:s of %2:s';
  rsMsgStoppedByTheUser='Stopped by the user';
  rsFileWithAllFiles_Filename='_AllFiles';
  rsFileWithAllFiles_Description='File with all the following zipped (%s)';
  rsHintYouCanUseToExpandExportPath='You can use the %s word that will be expanded with the export path';
  rsHintWheelMouseClickOpenIt='Wheel mouse click opens it';
  rsVarExportPath='%EP%';
  rsMsgErrorIneedProgramToContinue='To continue the %s program is necessary!';
  rsMsgPgDumpInfo='pg_dump is a tool part of the PostgreSQL database server.';
  rsFileFilterApplications='Executable';
  rsFileFilterAll='All the files';
  rsFileFilterCompressed='Compressed files';
  rsMsgLogStartOf='Start of "%s"';
  rsMsgLogEndOf='End of "%s"';
  rsMsgLogErrorOf='*** ERROR *** of "%s"';
  rsMsgItemAskWhatToDo='ask what to do';
  rsMsgItemDontDeleteContent='don''t delete the content';
  rsMsgItemDeleteContent='delete the content';
  rsMsgErrorCalling='Error calling "%s"';
  rsMsgErrorCallingWithDetails='Error calling "%s": %s';
  rsTitleSelectPostgresqlProgram='Please select the %s program of PostgreSQL to use for the backup';
  rsTitleProvideDestinationBackupFile='Please provide a file name where to save the backup data';
  rsTitleProvideDestinationBackupFolder='Please provide a folder where to save the backup data';
  rsTitleSelectFileToRestore='Please select the file to restore';
  rsMsgStatusInitialization='initialization';
  rsMsgErrorDetails='Error: %s';
  rsMsgStatusDecompressionOf='decompression of "%s"';
  rsMsgStatusCheckOfData='check of data';
  rsMsgErrorUnhandledValue='Unhandled value';
  rsMsgErrorUnsupportedBackupVersion='The version of the backup file (%s) is not supported';
  rsMsgTryWithNewerVersion='Try to look if a newer version of this program exists. If it does, install it and try again.';
  rsMsgCurrentProgramVersion='The version of this program is %s';
  rsMsgBackuGeneratedByNewerVersion='The backup file was generated with a higher version (%s) of this program.';
  rsTitleQCancel='Cancel?';
  rsQMsgCancelRestoreOperation='Are you sure you want to cancel the restore?';
  rsMsgNoCheckInformationExist='No check information exists';
  rsMsgNumberOfRecordsDifferentFromExpected='The number of the records of the "%s" table (%s) is not like the expected one (%s)';
  rsMsgErrorExpectingTHorPQConnection='Excpeting a THorPQConnection database connection';
  rsParExportDatabase='The database name';
  rsParExportDoNotResetFlagToExport='Asks to not clear the current value of the flag field that contains the indication if a data export is required';
  rsParExportForce='Exports the data also when the flag field says it is not necessary';
  rsParExportHost='The name or IP address of the PostgreSQL server';
  rsParExportPassword='The password of the connecting user';
  rsParExportPatient='Numeric ID or full name (surname + lastname) of the patient to export';
  rsParExportPort='The TCP port of the PostgreSQL server';
  rsParExportUsername='The name of the user to use to connect to the PostgreSQL server';
  rsParHelp='Shows this help text';
  rsQMsgTitleManualCompress='Manual compress?';
  rsMsgErrorCompressingGoManual='The compression of the files failed.' + #13#10 + 'Would you like to manually compress the files?';

{$IFDEF _HOR_CONSOLE_}
  // In console programs we will never use messageDlg and, most important,
  // the hor_main unit
{$ELSE}
  procedure Msg_InternalRecord_CantEdit;
  procedure Msg_InternalRecord_CantDelete;
{$ENDIF}

implementation

{$IFDEF _HOR_CONSOLE_}
  // In console programs we will never use messageDlg and, most important,
  // the hor_main unit
{$ELSE}
Uses SysUtils, Dialogs, hor_main, hor_functions;

const
  constURL_Ticket='http://sourceforge.net/p/hor/tickets/';

procedure Msg_InternalRecord_CantEdit;
begin
  MessageDlg( rsMsgSystenRecord,
              rsMsgSystemRecord_CantEdit + LineEnding +
              rsMsgSystemRecord_IfWrongTranslation1 + LineEnding +
              Format( rsMsgSystemRecord_IfWrongTranslation2, [
                FUNC_MenuPath( frmMain.miDbCheckST ) ] ) + LineEnding +
              rsMsgSystemRecord_IfWrongTranslation3 + LineEnding +
              Format( rsMsgSystemRecord_IfWrongTranslation4, [constURL_Ticket]),
              mtError, [mbOk], 0 );
end;

procedure Msg_InternalRecord_CantDelete;
begin
  MessageDlg( rsMsgSystenRecord,
              rsMsgSystemRecord_CantDelete,
              mtError, [mbOk], 0 );
end;
{$ENDIF}

end.