Hi All,
I have been working with the OnKeyPress Demo, and trying to modify it so that I can use 2 fields (lastname and frstname) to narrow down the patient selection. For some reason, I am getting an I/O error when I drop the temporary table and then recreate the table....but other than showing the error message, the EEP seems to work. I did not notice this problem when I used the OnKeyPressDemo as it was given to me, only when I added the second field. What can I do to track this down? It does happen even when I trace the file. The exact error messag is...
-ERROR- I/O problems - Check for a full disk. (2009)
The code in the EEP is (red lines are causing the problem)
SET VAR vlastkey TEXT = (LASTKEY(0))
PROPERTY idnomatch visible 'FALSE'
GETPROPERTY idkey_stroke3 textvalue 'vkey_stroke4'
SET VAR vlike2 TEXT = (.vkey_stroke4 +'%')
SET VAR vtest = NULL
SET ERROR MESSAGE 2059 OFF
--sel LName into vTEST INDI isNULL from customer +
--WHERE lname LIKE .vlike and COUNT = 1
SELECT lastname INTO vtest i1 FROM patinfo +
WHERE lastname LIKE .vlike AND frstname LIKE .vlike2 AND COUNT =1
SET ERROR MESSAGE 2059 ON
IF vtest IS NULL THEN
PROPERTY idnomatch visible 'TRUE'
--DELETE FROM patinfo_tmp
--PROPERTY table patinfo_tmp 'refresh'
GOTO bypass
ENDIF
SELECT COUNT patnumbr INTO vcount FROM patinfo WHERE +
lastname LIKE .vlike and frstname like .vlike2
IF vcount = 1 THEN
SET V vpnum = patnumbr, vlastname = lastname, vfrstname = frstname +
IN patinfo WHERE lastname LIKE .vlike and frstname like .vlike2
SET V vpnumtxt = (CTXT(INT(.vpnum)))
PROPERTY id_pnumtxt textvalue .vpnumtxt
SET V vkey_stroke = .vlastname
PROPERTY idkey_stroke textvalue .vlastname
SET V vkey_stroke3 = .vfrstname
PROPERTY idkey_stroke3 textvalue .vfrstname
PROPERTY id_doctype set_focus 'TRUE'
ENDIF
DROP TABLE patinfo_tmp
PROJECT TEMP patinfo_tmp FROM patinfo +
USING patnumbr lastname frstname midlname birthday +
WHERE lastname LIKE .vlike and frstname like .vlike2 +
ORDER BY lastname frstname midlname birthday
--DELETE FROM patinfo_tmp
--APPEND patinfo TO patinfo_tmp WHERE lastname LIKE .vlike
PROPERTY table patinfo_tmp 'refresh'
LABEL bypass
RETURN
My hard drive is not full.
I can use the Delete from table and the APPEND commands that follow but are commented out, but I lose the nice alphabetized list. Is there a way to make the APPEND produce an alphabetized list??
TIA!
Mike
