Discussion :

[Noiram94]

Bonjour à tous,
J'ai une base avec des consultations médicales donc il peut y avoir plusieurs fois le même identifiant.
J'aimerai retrouver les identifiants pour lesquels la date de naissance ou le sexe sont différents d'une ligne à l'autre (c'est à dire d'une consultation à l'autre par patient).
Sauriez-vous comment faire ?
Merci d'avance...

[JeromeMATHIAS]

Bonjour,

Un truc un peu compliqué et qui ne marchera pas en SAS inférieur à 9.2 et sur les tables "hénaurmes" (>1 Go).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
32
33
34
35
36
 
data table;
id=1;sexe=1;date=2001;output;
id=1;sexe=1;date=2001;output;
id=2;sexe=2;date=2001;output;
id=3;sexe=1;date=2001;output;
id=3;sexe=1;date=2010;output;
id=4;sexe=1;date=2001;output;
id=4;sexe=2;date=2010;output;
id=4;sexe=2;date=2010;output;
id=5;sexe=1;date=2001;output;
id=5;sexe=1;date=2001;output;
run;
 
proc sort DATA=TABLE; BY id ;run;
 
 
DATA _null_ ;
 
if _n_=1 then   do;
declare hash ligne ();
ligne= _new_ hash(dataset: "table (obs=0)",multidata: "YES");
ligne.defineKey('id');
ligne.defineData(all:'yes');
ligne.defineDone();
				end;
 
SET TABLE end=eof;
retain s d ctrle;
BY id ;
if first.id=1 then do;ctrle=0;s=sexe;d=date;end;
if s^=sexe or d^=date then ctrle=1;
rc=ligne.add();
if last.id and ctrle=0 then do; rc=ligne.remove();do while(rc^=0);rc=ligne.remove();end;end;
if eof  then rc=ligne.output(dataset:"lignes_doubles");
run;

[olivier.decourt]

Bonjour.
Une solution alternative, en 2 proc Sort.
La 1e, avec l'option NODUPKEY et un BY id dateNaissance sexe, et tu récupères dans une table OUT les combinaisons uniques de ces 3 variables. Normalement il n'y a qu'une ligne par ID, sauf quand les infos de sexe de de date de naissance ont changé au fil des consultations.
La 2e, avec l'option NODUPKEY et un BY id, sur le résultat de la 1e ; tu récupères dans une table DUPOUT les identifiants qui n'étaient pas sur une seule ligne après le 1er dédoublonnage.
Je suis clair, là ? Pas sûr. Faut tester.
Bon courage.
Olivier

[Noiram94]

Bonjour,
J'avais essayé avec l'option Nodupkey mais ça ne me sortait pas ce que je voulais

Puis j'ai essayé ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
proc sort data=table; by identifiant sexe date;run;
data table_double;
set table;
by identifiant sexe date;
if (first.sexe*last.sexe=0) or (first.date*last.date=0);
run;

Ça ne marche uniquement dans les cas où les patients ont 2 consultations...

Le programme qui marche dans mon cas est celui de Jérôme.
Je ne comprend pas tout mais après vérification, ça marche ! Merci beaucoup!
Je vais me pencher dessus pour essayer de comprendre tout le programme.

PS : je n'ai pas créé mon propre sujet car je trouvais ça un peu redondant avec celui sur lequel j'ai posté, mais la prochaine fois je le ferai alors.
Merci encore.

[JeromeMATHIAS]

Le programme qui marche dans mon cas est celui de Jérôme.
Je ne comprend pas tout mais après vérification, ça marche ! Merci beaucoup!
Je vais me pencher dessus pour essayer de comprendre tout le programme.

C'est une ré-écriture en une seule étape data par l'utilisation d'un objet hash servant à stocker les résultats intermédiaires (et permettre de sélectionner toutes les lignes voulue en permettant une sorte de retour en arrière dans les lignes d'un même id une fois toutes celles-ci lues) du programme suivant composé d'une étape data suivie d'une SQL

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
data id_dbl;
SET TABLE ;
retain s d ctrle;
BY id ;
IF first.id=1 then do;ctrle=0;s=sexe;d=date;end;
IF s^=sexe OR d^=date then ctrle=1;
keep id ctrle;
run;
 
proc sql;
create table lignes_doubles2
as select tab1.*
from table as tab1
where tab1.id in (select id from id_dbl where ctrle=1);
quit;