ลองแบบนี้ครับ
get_hospname := Getpickuplist('select name from hospcode where chwpart =76 and hospital_type_id in (7,18) ');
get_hospcode := GetSQLStringData('select hospcode from hospcode where chwpart =76 and name = "'+get_hospname+'" ');
ปล.ถ้าชื่อโรงพยาบาลไม่มีซ้ำกันก็ไม่มีปัญหาครับ