Определение возраста / FoxPro, Visual FoxPro

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Определение возраста

25 сообщений из 187, страница 4 из 8

все

Определение возраста

#38023160

Дима1991

Гость

Для случая тоже самое кстати. А мне нужно чтобы выводились только те случаи или услуги в которых код МКБ соответствует возрасту.

...

Рейтинг:

0 / 0

02.11.2012, 12:30

| Ответить | Цитировать | Написать

Определение возраста

#38023165

Дима1991

Гость

для услуг точнее то же самое

...

Рейтинг:

0 / 0

02.11.2012, 12:31

| Ответить | Цитировать | Написать

Определение возраста

#38023202

Дима1991

Гость

вот тут он же как я понимаю вычисляет поле compr равно ли ">=" если да то получается он возраст тоже пациента увеличивает? так что ли?

Код: sql

icase(alltrim(hediag.compr)=='>',pacient.agep>hediag.age

так же не должно быть

...

Рейтинг:

0 / 0

02.11.2012, 12:48

| Ответить | Цитировать | Написать

Определение возраста

#38023276

Дима1991

Гость

Если можно помогите проверить соответствие кода МКБ таким образом,а то что-то он все коды МКБ выводит: Сначала проверять эти условия, а потом уже вычислять возраст пациентов и проверять соответствие кода МКБ, я тут набросал код но он не выводит ничего

Код: sql

1.
2.
3.
4.
5.

IF hediag.compr='>='
    IF pacient.agep>=hediag.age
        *******
    endif
endif

вот мой код для того случая когда поле compr >=

Код: sql

1.
2.
3.
4.
5.
6.
7.
8.

*!*	IF hediag.compr='>='
*!*	   IF pacient.agep>=hediag.age
*!*	      SELECT pacient.fam,sluch.ds0,sluch.ds1,sluch.ds2 ;
*!*	      FROM sluch ;
*!*	      join pacient  on pacient.spolis=sluch.spolis AND pacient.npolis=sluch.npolis;
*!*	      left join hediag h on CHRTRAN(ALLTRIM(sluch.ds1),'.','')==ALLTRIM(h.code)
*!*	      ENDIF 
*!*	ENDIF

...

Рейтинг:

0 / 0

02.11.2012, 13:23

| Ответить | Цитировать | Написать

Определение возраста

#38023282

Jonny540

Участник

Сообщения: 725

Рейтинг: 0 / 0

Дима1991,

UDF включаешь в .prg-файл, который подключаешь командой SET PROCEDURE.
а в селекте просто вызов: Full_years(<дата_рождения>,<дата_обслед.>).
Результат обрабатываешь с помощью IIF() в том же селекте.

...

Рейтинг:

0 / 0

02.11.2012, 13:26

| Ответить | Цитировать | Написать

Определение возраста

#38023298

Дима1991

Гость

Jonny540, в селекте во-первых, я не понял как где его писать, а во-вторых, тот код, который мне тут написали кажется выдает все случаи, хотя нужно выводить только те случаи для которых код МКБ соответствует возрасту пациента.

я так понимаю icase Вычисляет выражение и выводит результат.
так вот если писать

Код: sql

icase(alltrim(hediag.compr)=='>=',pacient.agep>hediag.age)

он проверит является ли поле compr равным ">=" если равен то pacient.age сделает большим или равным hediag.age. Или он не так делает? но в хелпе читал работа этой функции описана так

...

Рейтинг:

0 / 0

02.11.2012, 13:37

| Ответить | Цитировать | Написать

Определение возраста

#38023326

IgorNG

Участник

Откуда: Москва

Сообщения: 956

Рейтинг: 0 / 0

Дима1991,

плохо читал. Селект ничего не делает, он отбирает записи согласно заданным условиям

...

Рейтинг:

0 / 0

02.11.2012, 13:54

| Ответить | Цитировать | Написать

Определение возраста

#38023339

Дима1991

Гость

я знаю что он выбирает согласно условию. но в том коде который мне тут написали есть icase(alltrim(hediag.compr)=='>',pacient.agep>hediag.age

мне интересно что тут он делает? если поле compr='>' pacient.agep>hediag.age. Вот тут разве он не увеличивает возраст пациента?

...

Рейтинг:

0 / 0

02.11.2012, 14:00

| Ответить | Цитировать | Написать

Определение возраста

#38023345

Дима1991

Гость

прошу объяснить этот кусок:

Код: sql

1.
2.
3.
4.

cast(icase(alltrim(hediag.compr)=='>',pacient.agep>hediag.age;
   ,.null.;
  ) as logical;
 ) as CheckMKB;

...

Рейтинг:

0 / 0

02.11.2012, 14:03

| Ответить | Цитировать | Написать

Определение возраста

#38023360

IgorNG

Участник

Откуда: Москва

Сообщения: 956

Рейтинг: 0 / 0

Дима1991,

И что ты из этого кода до сих пор не понял?

Выбрать записи, где hediag.compr равно '>' и pacient.agep больше hediag.age

...

Рейтинг:

0 / 0

02.11.2012, 14:09

| Ответить | Цитировать | Написать

Определение возраста

#38023380

Дима1991

Гость

IgorNG, запутался я.. если так делает. то почему выводится тот случай у которого возраст пациента меньше чем возраст в hediag.age. Я в поле hediag.age прописал 45 для кода Z000, в случаях есть такой случай у которого код равен Z000 и возраст пациента 43. В код, который мне тут выложили и этот случай выводит в результатах. для услуг также

...

Рейтинг:

0 / 0

02.11.2012, 14:19

| Ответить | Цитировать | Написать

Определение возраста

#38023686

tanglir

Участник

Сообщения: 30 379

Рейтинг: 0 / 0

IgorNGВыбрать записи, где hediag.compr равно '>' и pacient.agep больше hediag.ageНет, выберутся все записи. Но там, где pacient.agep больше hediag.age, в последнем поле будет true, а где меньше - false.

...

Рейтинг:

0 / 0

02.11.2012, 16:48

| Ответить | Цитировать | Написать

Определение возраста

#38023687

tanglir

Участник

Сообщения: 30 379

Рейтинг: 0 / 0

Дима1991то почему выводится тот случай у которого возраст пациента меньше чем возраст в hediag.ageсм. предыдущий пост.

...

Рейтинг:

0 / 0

02.11.2012, 16:49

| Ответить | Цитировать | Написать

Определение возраста

#38024045

Дима1991

Гость

tanglir, А как сделать так чтобы выводились только те записи которые соответствуют возрасту пациента? мне не нужно все выводить.. т.к. эти данные я потом буду выводить в отчет. и нужно вывести только те которые соответствуют возрасту

...

Рейтинг:

0 / 0

02.11.2012, 21:05

| Ответить | Цитировать | Написать

Определение возраста

#38024271

Станислав С...кий

Гость

Дима1991tanglir, А как сделать так чтобы выводились только те записи которые соответствуют возрасту пациента? мне не нужно все выводить.. т.к. эти данные я потом буду выводить в отчет. и нужно вывести только те которые соответствуют возрасту
Написать запрос, который использует данный запрос в качестве источника исходных данных.
Будет что-то типа:

Код: sql

Select ... from (select ....) as a where a.logical = .T.

А в Where указать, что надо отбирать только те записи, где CheckMKB.logical = true

...

Рейтинг:

0 / 0

03.11.2012, 03:47

| Ответить | Цитировать | Написать

Определение возраста

#38024490

Дима1991

Гость

Станислав С...кий, т.е написать такой код?

Код: sql

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.

Select sluch.ds0,ds1,ds2
from (;
SELECT distinct p.fam,p.im,p.agep as vozrast,sl.ds0 as MKB,sl.ds1 as MKB, sl.ds2 as MKB;
 ,cast(icase(alltrim(hediag.compr)=='>',pacient.agep>hediag.age;
   ,alltrim(hediag.compr)=='<=',pacient.agep<=hediag.age;
   ,alltrim(hediag.compr)=='<',pacient.agep<hediag.age;
   ,alltrim(hediag.compr)=='>=',pacient.agep>=hediag.age;
   ,.null.;
  ) as logical;
 ) as CheckMKB;
from pacient p ;
join sluch sl on p.spolis=sl.spolis and p.npolis=sl.npolis;
left join hediag h on chrtran(alltrim(sl.ds0),'.','')==alltrim(h.code) OR  chrtran(alltrim(sl.ds1),'.','')==alltrim(h.code) OR chrtran(alltrim(sl.ds2),'.','')==alltrim(h.code)
)
as a where a.logical = .T.

и он мне будет выводить только те случаи где код МКБ (поля ds0,ds1,ds2) соответствует возрасту пациента?

...

Рейтинг:

0 / 0

03.11.2012, 15:52

| Ответить | Цитировать | Написать

Определение возраста

#38024503

tanglir

Участник

Сообщения: 30 379

Рейтинг: 0 / 0

Дима1991, ёшкин кот, ну вникните уже в смысл джойнов, в конце-то концов.

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

Код: sql

1.
2.

Select sluch.ds0,ds1,ds2
from (подзапрос) as a where a.logical = .T.

Алиас подзапроса - "а", никаких других таблиц/курсоров во внешнем запросе нет. Откуда прикажете фоксу брать поле sluch.ds0?
Да и в самом подзапросе нет поля с именем "logical", а вы пытаетесь по нему фильтровать...

...

Рейтинг:

0 / 0

03.11.2012, 16:22

| Ответить | Цитировать | Написать

Определение возраста

#38024865

Дима1991

Гость

tanglir, я же с самого начала попросил помочь в запросе, потому что не понял до конца смысл задачи, потом написали тут код с джойнами, но оказалось что он выводит все случаи, но мне нужно чтобы выводились только те для которых код мкб совпадает с возрастом. я бы сам изменил код, но не понял ваш код с джойнами, logical и checkmkb. поэтому прошу подсказать как сделать так чтобы выводились не все случаи а именно те у которых совпадает

...

Рейтинг:

0 / 0

04.11.2012, 09:48

| Ответить | Цитировать | Написать

Определение возраста

#38025054

reware

Участник

Откуда: Хабаровск

Сообщения: 591

Рейтинг: 0 / 0

Да фигнёй вы тут, коллеги, занимаетесь. Если ты прогаммёр, а не тот, кто пишет "я фокс только изучаю", то эту "проблему" немного напрягшись можно решить. Хреново, друзья, что башкой чё то стали мало работать. А стали просить готовые коды, что есть бездарно и неэстетично. Ну ты посиди час-другой, сам сообразишь, как этот алгоритм оформить. Некрасиво программёру такие вещи назойливо просить.

...

Рейтинг:

0 / 0

04.11.2012, 16:31

| Ответить | Цитировать | Написать

Определение возраста

#38025224

Дима1991

Гость

tanglir, это не я предложил брать, а Станиславский, который выше написал как сделать. я лишь написал так как он сказал.

...

Рейтинг:

0 / 0

04.11.2012, 22:15

| Ответить | Цитировать | Написать

Определение возраста

#38025231

Дима1991

Гость

сейчас фокса нету под рукой. скажите такой код будет работать как мне надо (т.е выдавать только те случаи для которых код мкб совпадает с возрастом пациента. считается что возраст уже определен на момент выполнения этого куска кода) ??? Это только для случая когда поле compr='>'

Код: sql

1.
2.
3.
4.
5.
6.

if hediag.compr=">"
   if pacient.agep>hediag.age
      select sluch.ds0,sluch.ds1,sluch.ds2 ;
      from sluch sl ;
      join pacient p on p.spolis=sl.spolis and p.npolis=sl.npolis ;
      left join hediag h on chrtran(alltrim(sl.ds0),'.','')==alltrim(h.code) ;

...

Рейтинг:

0 / 0

04.11.2012, 22:24

| Ответить | Цитировать | Написать

Определение возраста

#38026136

tanglir

Участник

Сообщения: 30 379

Рейтинг: 0 / 0

Дима1991скажите такой код будет работать как мне надонет.

...

Рейтинг:

0 / 0

06.11.2012, 05:22

| Ответить | Цитировать | Написать

Определение возраста

#38026215

Дима1991

Гость

tanglir, Почему нет? представленный тут код, все услуги или случаи выводит. Мне так не нужно чтобы выводилось. Как переделать мне этот код, чтобы выводить только те услуги, в которых соответствует возрасту код мкб

Код: sql

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.

SELECT distinct u.ds as MKB;
 ,cast(icase(alltrim(hediag.compr)=='>',pacient.agep>hediag.age;
   ,alltrim(hediag.compr)=='<=',pacient.agep<=hediag.age;
   ,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)

или вот я пишу чертов код, но ничего не делает этот код. Уважаемые программисты, почему ничего не делает мой код? и как переделать его?

Код: sql

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.

IF hediag.compr='>'
   IF pacient.agep>hediag.age
      SELECT usl.ds 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)
   ENDIF 
ELSE
IF hediag.compr='>='
   IF pacient.agep>=hediag.age
      SELECT usl.ds 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)
   ENDIF 
ELSE
IF hediag.compr='<'
   IF pacient.agep<hediag.age
      SELECT usl.ds 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)
   ENDIF 
ELSE
IF hediag.compr='<='
   IF pacient.agep<=hediag.age
      SELECT usl.ds 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)
   ENDIF 
ENDIF
ENDIF
ENDIF 
ENDIF

...

Рейтинг:

0 / 0

06.11.2012, 08:59

| Ответить | Цитировать | Написать

Определение возраста

#38026232

Dima T

Участник

Сообщения: 15 530

Рейтинг: 0 / 0

Дима1991tanglir, Почему нет? представленный тут код, все услуги или случаи выводит. Мне так не нужно чтобы выводилось. Как переделать мне этот код, чтобы выводить только те услуги, в которых соответствует возрасту код мкб

Код: sql

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.

SELECT distinct u.ds as MKB;
 ,cast(icase(alltrim(hediag.compr)=='>',pacient.agep>hediag.age;
   ,alltrim(hediag.compr)=='<=',pacient.agep<=hediag.age;
   ,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)

Тут написано выбрать все, вот и выбирается все. В поле CheckMKB ты получаешь три значения:
.T. - возраст подходит под условие
.F. - возраст не подходит под условие
.NULL. - неизвестное условие, надо дописать в запрос проверку этого условия
Если тебе надо только где возраст подходит под условие, то выбирай только те записи где CheckMKB = .T.

Дима1991или вот я пишу чертов код, но ничего не делает этот код. Уважаемые программисты, почему ничего не делает мой код? и как переделать его?

Код: sql

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.

IF hediag.compr='>'
   IF pacient.agep>hediag.age
      SELECT usl.ds 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)
   ENDIF 
ELSE
IF hediag.compr='>='
   IF pacient.agep>=hediag.age
      SELECT usl.ds 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)
   ENDIF 
ELSE
IF hediag.compr='<'
   IF pacient.agep<hediag.age
      SELECT usl.ds 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)
   ENDIF 
ELSE
IF hediag.compr='<='
   IF pacient.agep<=hediag.age
      SELECT usl.ds 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)
   ENDIF 
ENDIF
ENDIF
ENDIF 
ENDIF

Ты сам-то пробовал осмыслить что написал? Ты проверяешь ОДНУ запись, а потом выбираешь ВСЕ или не выбираешь ни одной.
IF работает с текущей записью таблицы, а SELECT со всей таблицей.

Допиливай первый вариант. Он уже почти рабочий у тебя.

...

Рейтинг:

0 / 0

06.11.2012, 09:19

| Ответить | Цитировать | Написать

Определение возраста

#38026246

Дима1991

Гость

Dima T, Если я правильно вас понял, то получается нужно первый вариант использовать как подзапрос в другом запросе который будет делать выборку по условию where checkmkb=.t. ? и должен быть код типа:

select u.ds from (описанный подзапрос) where checkmkb=.t. ?

...

Рейтинг:

0 / 0

06.11.2012, 09:43

| Ответить | Цитировать | Написать

25 сообщений из 187, страница 4 из 8

все

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Определение возраста

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=41&msg=38023160&tid=1583157]:	0ms
get settings:	11ms
get forum list:	16ms
check forum access:	4ms
check topic access:	4ms
track hit:	43ms
get topic data:	12ms
get forum data:	3ms
get page messages:	63ms
get tp. blocked users:	2ms
others:	18ms

total:	176ms