>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 >