func CheckMKB
lpara tnAgep, tcUsl, tnAgeUsl
local llRet
tcUsl = alltrim(tcUsl)
do case
   case tcUsl == '>'
      llRet = (tnAgep > tnAgeUsl)
   case tcUsl == '<='
      llRet = (tnAgep <= tnAgeUsl)
   otherwise
      MessageBox('Неизвестное условие ' + tcUsl)
      llRet = .NULL.
endcase
return llRet

select p.что_нибудь,u.что_нибудь
 ,icase(h.compr=='>',p.age>h.age
       ,h.compr=='<=',p.age<=h.age
       ,.null.) as CheckMKB
from pacient p 
join usl u on p.spolis=u.spolis and p.npolis=u.npolis
left join hediag h on u.ds==chrtran(h.code,'.','')

select p.что_нибудь,u.что_нибудь
 ,cast(icase(h.compr=='>',p.age>h.age
       ,h.compr=='<=',p.age<=h.age
       ,.null.) as logical) as CheckMKB
from pacient p 
join usl u on p.spolis=u.spolis and p.npolis=u.npolis
left join hediag h on u.ds==chrtran(h.code,'.','')

? '> ' == '>'

create cursor hediag (code c(5), Diag c(10), Age n(3))
insert into hediag ('Z000', 'Общий', 14)
insert into hediag ('Z001', 'Текущий', 19)

select pacient.fam,usl.ds
 ,cast(icase(alltrim(hediag.compr)=='>',pacient.agep>hediag.age
   ,alltrim(hediag.compr)=='<=',pacient.agep<=hediag.age
   ,.null.
  ) as logical
 ) as CheckMKB
from pacient p 
join usl u on p.spolis=u.spolis and p.npolis=u.npolis
left join hediag h on chrtran(alltrim(u.ds),'.','')==alltrim(h.code)

select pacient.fam,usl.ds;
 ,cast(icase(alltrim(hediag.compr)=='>',pacient.agep>hediag.age;
   ,alltrim(hediag.compr)=='<=',pacient.agep<=hediag.age;
   ,.null.;
  ) as logical;
 ) as CheckMKB;
from pacient p ;
join usl u on p.spolis=u.spolis and p.npolis=u.npolis;
left join hediag h on chrtran(alltrim(u.ds),'.','')==alltrim(h.code)

select pacient.agep,usl.ds;
 ,cast(CheckMKB(pacient.agep, hediag.compr, hediag.age) as logical;
 ) as CheckMKB;
from pacient p ;
join usl u on p.spolis=u.spolis and p.npolis=u.npolis;
left join hediag h on chrtran(alltrim(u.ds),'.','')==alltrim(h.code)

create cursor result (agep I, compr C(3), age I, CheckMKB L)
sele pacient 
scan
   sele usl
   scan for pacient.spolis=usl.spolis and pacient.npolis=usl.npolis
       sele hediag
       llInsert = .F.
       scan for chrtran(alltrim(usl.ds),'.','')==alltrim(hediag.code)
            insert into result values (pacient.agep, hediag.compr, hediag.age, CheckMKB(pacient.agep, hediag.compr, hediag.age))
            llInsert = .T.
       endscan
       if !llInsert
            insert into result values (pacient.agep, hediag.compr, hediag.age, .NULL.)
       endif
   endscan
endscan

select pacient.agep,usl.ds;
 ,cast(CheckMKB(pacient.agep, hediag.compr, hediag.age) as logical;
 ) as CheckMKB;
from pacient p ;
join usl u on p.spolis=u.spolis and p.npolis=u.npolis;
left join hediag h on chrtran(alltrim(u.ds),'.','')==alltrim(h.code)

create cursor result (agep I, ds C(5), CheckMKB L null)
sele pacient 
scan
   sele usl
   scan for pacient.spolis=usl.spolis and pacient.npolis=usl.npolis
       sele hediag
       llInsert = .F.
       scan for chrtran(alltrim(usl.ds),'.','')==alltrim(hediag.code)
            insert into result values (pacient.agep, usl.ds, CheckMKB(pacient.agep, hediag.compr, hediag.age))
            llInsert = .T.
       endscan
       if !llInsert
            insert into result values (pacient.agep, usl.ds, .NULL.)
       endif
   endscan
endscan

create cursor result (agep I, ds C(5), CheckMKB L null)