IF SQLEXEC(gnConnHandle,[exec dbo.lu_surgeon],"curAssist") < 1 *************************************************************** * No records for lookup, load a default blank value *************************************************************** PUBLIC ARRAY laAssists[1,3] laAssists[1,1]=[] laAssists[1,2]="" laAssists[1,3]=0 ELSE PUBLIC ARRAY laAssists[1,3] SELECT ALLTRIM(lastname)+[, ]+ALLTRIM(firstName),specdesc,coperid from curassist INTO ARRAY laAssists ********************************************************************** * Redimension the array to have an extra record for a zero/blank value ********************************************************************** DIMENSION laAssist[RECCOUNT("curassist")+1,3] ********************************************************************** * Insert the blank/zero value into the array ********************************************************************** AINS(laAssists,1) laAssists[1,1]=[] && Last,First Name laAssists[1,2]="" && Speciality laAssists[1,3]=0 && Personnel ID ENDIF