SELECT CODEMED,NOINTERNE,NAM,NOM,DATENAISS,CODEDIAG,HONOTOTAL,DATEMAJ; from factcur; WHERE ((FACTCUR.STATUSFACT = "F") .AND.; (AT("B",FACTCUR.CONSSPECIA)<>0) .AND.; !EMPTY(FACTCUR.DATEMAJ) .AND.; BETWEEN(FACTCUR.DATEMAJ,M_DATDEB,M_DATFIN)) .AND.; BETWEEN(FACTCUR.CODEMED, M_MEDDEB, M_MEDFIN); union ; select CODEMED,NOINTERNE,NAM,NOM,DATENAISS,CODEDIAG,HONOTOTAL,DATEMAJ; from facthisto ; WHERE ((FACTHISTO.STATUSFACT = "F") .AND.; (AT("B",FACTHISTO.CONSSPECIA)<>0) .AND.; !EMPTY(FACTHISTO.DATEMAJ) .AND.; BETWEEN(FACTHISTO.DATEMAJ,M_DATDEB,M_DATFIN)) .AND.; BETWEEN(FACTHISTO.CODEMED, M_MEDDEB, M_MEDFIN) ; order by codemed,DTOCdatemaj ; INTO CURSOR facttmp