Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
IF (NOT((isblank(thisform.txt_lname.value)) AND ;
(isblank(thisform.txt_fname.value)) AND ;
(isblank(thisform.txt_mname.value)) ))
select lname, fname, mname, account, address1, ;
address2, city, state, zipcode , ;
homephone, workphone, social, ;
birthdate, sex from patfile ;
where trim(lname) = ;
trim(thisform.txt_lname.value) ;
into CURSOR csrtemp
ELSE
IF ( NOT (isblank(thisform.txt_dob.value)))
select lname, fname, mname, account, address1, ;
address2, city, state, zipcode , ;
homephone, workphone, social, ;
birthdate, sex from patfile ;
where trim(dob) = ;
trim(thisform.txt_dob.value) ;
into CURSOR csrtemp
ELSE
IF ( NOT (isblank(thisform.txt_chart.value)))
select lname, fname, mname, account, address1, ;
address2, city, state, zipcode , ;
homephone, workphone, social, ;
birthdate, sex from patfile ;
where trim(chart) = ;
trim(thisform.txt_chart.value) ;
into CURSOR csrtemp
ELSE
MESSAGEBOX("Nothing to query", 6, "Parameters don't qualify")
ENDIF
ENDIF
ENDIF
DO CASE
CASE (NOT((isblank(thisform.txt_lname.value)) AND ;
(isblank(thisform.txt_fname.value)) AND ;
(isblank(thisform.txt_mname.value)) ))
select lname, fname, mname, account, address1, ;
address2, city, state, zipcode , ;
homephone, workphone, social, ;
birthdate, sex from patfile ;
where trim(lname) = ;
trim(thisform.txt_lname.value) ;
into CURSOR csrtemp
CASE ( NOT (isblank(thisform.txt_dob.value)))
select lname, fname, mname, account, address1, ;
address2, city, state, zipcode , ;
homephone, workphone, social, ;
birthdate, sex from patfile ;
where trim(dob) = ;
trim(thisform.txt_dob.value) ;
into CURSOR csrtemp
CASE ( NOT (isblank(thisform.txt_chart.value)))
select lname, fname, mname, account, address1, ;
address2, city, state, zipcode , ;
homephone, workphone, social, ;
birthdate, sex from patfile ;
where trim(chart) = ;
trim(thisform.txt_chart.value) ;
into CURSOR csrtemp
OTHERWISE
MESSAGEBOX("Nothing to query", 6, "Parameters don't qualify")
ENDCASE