10/1/12

Can Anybody Help Me?

Want a checkbox to write this sentence (a very small portion of a much larger project) and it's not working... Any ideas??? Much longer (non-functioning) version here: MvtDscROUGH

Does anyone reading know PAXScript?



var FOXTROT,NOTES:String;
function LowerFirst( InStr: String ): String;
begin result := LowerCase( Copy(Instr,1,1) ) + Copy(Instr,2,1000);
end;
begin IF SF.GetFieldText('ExamMeasurement','ZZTRNSTYPE')='' THEN
   FOXTROT:='' ELSE
   FOXTROT:='Patient is able to perform ' +
   LowerFirst(SF.GetFieldText('ExamMeasurement','ZZTRNSTYPE'));

SF.AssignFieldText('ExamMeasurement','ZZTRNSNOTE',FOXTROT+NOTES); END; END;

No comments:

Post a Comment