Dima T, Я опишу весь код где создаются курсоры и вычисляется возраст. Поля не все описываю только нужные. И еще мне тут на форуме помогли вывести данные из xml В курсор поэтому там доя пациентов, случаев и услуг по два курсора но все рабочее. А по поводу hediag такое дело в hediag поле код МКБ хранится в виде Z000 а в полученных курсорах в виде Z00.0 поэтому из hediag в curs1 вывел данные сделав значения в поле code такими Z00.0. Если так делать необязательно можно вместо curs1 сразу hediag использовать.

USE "C:\hediag.dbf" // тут путь так указал чтобы не возиться..а так пути у меня в таблице хранятся отдельно

USE IN SELECT('qweasd')
USE IN SELECT('pacient')
USE IN SELECT('usl1')
USE IN SELECT('usl')
USE IN SELECT('sluch1')
USE IN SELECT('sluch')

loXML = Createobject("msxml2.DomDocument.3.0")
loXML.Async=.F.
loXML.Load("D:\2.XML")
loXML1 = Createobject("msxml2.DomDocument.3.0")
loXML1.Async=.F.
loXML1.Load("D:\2.XML")
loXML2 = Createobject("msxml2.DomDocument.3.0")
loXML2.Async=.F.
loXML2.Load("D:\2.XML")

create cursor pacient ( ;
spolis C(3), ;
npolis C(16), ;
dr t)

create cursor qweasd ( ;
spolis C(3), ;
npolis C(16), ;
dr t)

create cursor usl1 ( ;
spolis C(3), ;
npolis C(16), ;
date_in t, ;
ds C(6))

create cursor usl ( ;
spolis C(3), ;
npolis C(16), ;
date_in t, ;
ds C(6))

CREATE CURSOR sluch ( ;
spolis C(3), ;
npolis C(16), ;
ds0 C(6), ;
ds1 C(6), ;
ds2 C(6))

CREATE CURSOR sluch1 ( ;
spolis C(3), ;
npolis C(16), ;
ds0 C(6), ;
ds1 C(6), ;
ds2 C(6))

loXMLNodes=loXML.getElementsByTagName("zap")
loNodes = loXMLNodes.nextNode
For i1=1 To loXMLNodes.Length
loXMLNodes2=loNodes.getElementsByTagName("pacient")
For i2=1 To loXMLNodes2.Length
m.xmldata='<?xml version = "1.0" encoding="Windows-1251" standalone="yes"?><vfpdata>';
+loXMLNodes2.Item(i2-1).xml;
+'</vfpdata>'
Xmltocursor(m.xmldata,'qweasd',8192)
Insert Into pacient SELECT * FROM qweasd
ZAP IN qweasd
loNodes2 = loXMLNodes2.nextNode
Endf
loNodes = loXMLNodes.nextNode
Endf
Release loXML

loXMLNodes=loXML1.getElementsByTagName("zap/sluch")
loNodes = loXMLNodes.nextNode
For i1=1 To loXMLNodes.Length
loXMLNodes2=loNodes.getElementsByTagName("usl")
For i2=1 To loXMLNodes2.Length
m.xmldata='<?xml version = "1.0" encoding="Windows-1251" standalone="yes"?><vfpdata>';
+loXMLNodes2.Item(i2-1).xml;
+'</vfpdata>'
Xmltocursor(m.xmldata,'usl1',8192)
Insert Into usl SELECT * FROM usl1
ZAP IN usl1
loNodes2 = loXMLNodes2.nextNode
Endf
loNodes = loXMLNodes.nextNode
Endf
Release loXML1

loXMLNodes=loXML2.getElementsByTagName("zap")
loNodes = loXMLNodes.nextNode
For i1=1 To loXMLNodes.Length
loXMLNodes2=loNodes.getElementsByTagName("sluch")
For i2=1 To loXMLNodes2.Length
m.xmldata='<?xml version = "1.0" encoding="Windows-1251" standalone="yes"?><vfpdata>';
+loXMLNodes2.Item(i2-1).xml;
+'</vfpdata>'
Xmltocursor(m.xmldata,'sluch1',8192)
Insert Into sluch SELECT * FROM sluch1
ZAP IN sluch1
loNodes2 = loXMLNodes2.nextNode
Endf
loNodes = loXMLNodes.nextNode
Endf
Release loXML2

SELECT pacient
SCAN
REPLACE pacient.agep WITH year(usl.date_in)-year(pacient.dr)
LOOP
ENDSCAN

tanglir, я думал ты для случаев делаешь поэтому не понял откуда usl.. и вместо "u.что-то" надо поля из курсора usl брать значит

tanglir, смущает, но это потом разберу.. главное с кодом МКБ разобраться.

написал так выдается ошибка: command is missing required clause

Dima T, все равно ошибка осталась я делал так

я написал такие поля и вы дал такой результат( на скриншоте): теперь хотел бы разобрать что именно она тут выдала, а то я ваш код вставил надо же еще и понять как работает

Ваш код проверяет соответствие кода МКБ возрасту пациента для услуг? и как я понимаю этот код связан с тем кодом, который выше описал DimaT? т.е. в CheckMKB.prg есть шаблон по которому проверяет а тут уже с реальными данными. Но мне интересно делает ли она то что мне нужно и как делает.. в хелпе Не Нашел функций case, icase

Dima T, оба ваших кода,которые сейчас описали выдают ошибку field checkMKB does not accept null values . в предыдущем коде три поля таблицу вывели с тремя полями и тоже не понял что именно она вывела. Exp1 возраст наверное хотя я не понял почему везде 0.

tanglir, у меня тоже заработал проставил точки запятые. можете объяснить ваш код почему она 0 выводит в поле Expr1 и вообще работу вашего кода опишите пожалуйста

Reese, у меня 9-я версия стоит

Dima T, Вот этот код проверяет соответствие кода МКБ возрасту пациента? у меня в результате выдает "Неизвестное условие" раз 6-7. я сам запутался уже.

Dima T, как я понимаю твой код проверяет только возраст пациента.. но мне нужно код МКБ проверять. я сам не до конца понимаю логику. случай или услуга соответствует пациенту ведь. нужно в общем проверить соответствие кода МКБ если для услуги это поле usl.ds возрасту этого пациента. А в hediag описано какой код МКБ в какому возрасту соответствует