Search options (Page 6 of 6)

My project is in a pendrive. MVD is installed in both my home desktop and clinic laptop. I work at either location whenever I get time, by inserting the pendrive in the USB port. The incident happened  while working in the laptop. Nothing is stored in laptop hard disk. A backup of the project folder is present in the desktop PC, which is about a month old. Can it be problem with the pen drive? Can the forms be recovered?  Will make double backup for sure in future.

I am using version 5.2. The project was getting saved, while the Windows10 Pro (version 1709) restarted for scheduled update. Now after  the restart, forms are missing. I am working on this project since November last year. It was almost complete, just adding data in look-up tables.

Hello Derek,
I am trying to build a doctor's appointment calendar based on your example. However, double-clicking the date in calendar produces an error message and fails to open the desired search result. The button2 does not seem to work. How to correct the error?

Hello Dmitry!
I am a medical professional needing an EMR software,(for my small clinic) that can be easily customized to my needs. It is your software, MVD, and the Forum that inspired me to try and build something on my own. Through many trial and errors for the last 3 months, I have got this far. I need help to complete the project. Specifically, the error is appearing in the script after I added the doctor’s schedule and webcam features. Please suggest a correction.

Hello!
This is the feature I dearly need for my project. How do I customise the table?
I need to remove/rename group names, add doctors' names, add Investigation names for which patient needs an appointment.
An hour needs to be divided into 4 time slots of 15 minutes. In each slot a maximum of 2 patients may be given appointment.
How can these be done? Also, I need to understand the script. How can I learn scripting? Please suggest some resources.

Hi everybody! Happy new year!
I have progressed somewhat in my project. Is it possible to create an action button to duplicate data fields, when more information needs to be added?  In my forms, there are many data fields ( eg. in Clinical Features page). A patient may have clinical findings in 1 or 2 fields only. Maybe as in Tabsheet2, I create 1 or 2 lines of data fields, and have an option to add more lines of data fields at the click of a button? Similar changes can be made in Chief complaint and History pages also. In that way, the form will look simpler and easily manageable. There is a screenshot of a similar programme attached. Something like that may simplify data entry. Please guide.

Hi! Merry Christmas to all.
I have got stuck in my project. Could not generate auto-incremental PID or OPD ID. Must have done some scripting error. I need help here. Also, there are too many databases in my project. I tried to aggregate dropdown objects in FORM2_OPD_REGISTRATION  in a new database SUBFORM2_OPD_REGISTRATION for reducing the number of forms. However, now the drop-down shows many empty spaces. How do I avoid them? In the FORM3_OPD_VISIT_RECORD I created a field called Name which is to be formed by the combination of First Name, Middle Name and Last Name registered in FORM2_OPD_REGISTRATION. How can it be done? How the Time Out field can be auto-generated? Is it possible to add new first name/ middle name/ last name automatically as the same is typed in the corresponding field? I also need that field namely, PID, OPDID, Name, Age, gender in the FORM3_OPD_VISIT_RECORD auto-populate when "Add New Visit" button is clicked in FORM2_OPD_REGISTRATION. Please Help.

Thank you for the program. I have created an invisible EditCounter in OPD_Regidstration form and modified the script according to my Form name. However, PID number is not auto-generated when "Add New Patient" is clicked. Must have done some mistakes. Please see the script and help.
var
  sHello: string;

procedure OPD_Registration_Ed_PID_OnChange (Sender: TObject);
begin

end;

procedure HelloWorld (s: string);
begin
  ShowMessage(s);
end;

begin
  // just for example
  sHello := 'For The Joy Of Vision!';
  HelloWorld(sHello);
end.

procedure OPD_Registration _OnShow (Sender: string; Action: string);
var
    id : integer;
begin
    if Action='NewRecord' then
    begin
        id := StrToInt(OPD_Registration.EditCounter1.Text);
        OPD_Registration.Ed_PID.Text:= Format('SL-%.4d', [id]);
    end;
end;

begin

end.

Hello Derek,
Thank you so much. Now I can proceed ahead with my first project.