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 37 38 39 40 41 42 43 44
| INSERT INTO VueQuestionsReponsesDxCare
( NIPATIENT, NOM, PRENOM, PATRONYME, NISEJOUR, DATENAIS, Date_Examen, PAT_ExternalId, Visite_Id, NIQ, NIR, LIBELLE, LIBABR, NIQSUP, NIRSUP, REPONSE )
SELECT DISTINCT p.NIPATIENT,
p.NOM,
p.PRENOM,
p.PATRONYME,
sj.NISEJOUR,
UCase(Left(r5.REPONSE,10)) AS Expr1,
UCase(Left(r6.REPONSE,10)) AS Expr2,
Left(p.NOM,3) & Mid(UCase(Left(r5.REPONSE,10)),1,2) & Mid(UCase(Left(r5.REPONSE,10)),4,2) & Mid(UCase(Left(r5.REPONSE,10)),7,4) & Left(p.PRENOM,3) AS Expr3, sj.NISEJOUR & UCase(Left(r6.REPONSE,10)) AS Expr4, l
ib3.NIQ,
lib3.NILIB,
q3.LIBELLE,
q3.LIBABR,
lib3.NIQSUP,
lib3.NILIBSUP,
r3.REPONSE
FROM PENSOINS_BM_LIB_S AS lib3,
PENSOINS_C_QUESTION AS q3,
PENSOINS_BM_LIB_S AS lib5,
PENSOINS_C_QUESTION AS q5,
PENSOINS_BM_REP_S AS r5,
PENSOINS_BM_LIB_S AS lib6,
PENSOINS_C_QUESTION AS q6,
PENSOINS_BM_REP_S AS r6,
PENSOINS_BM_TH_S AS th3,
PENSOINS_SEJOUR AS sj,
PENSOINS_PATIENT AS p,
PENSOINS_C_UNITE INNER JOIN PENSOINS_BM_REP_S AS r3 ON PENSOINS_C_UNITE.NI = r3.NIUNITE
WHERE (((p.NIPATIENT)=[sj].[NIPATIENT])
AND ((p.NOM) Not Like 'ZZZ%')
AND ((sj.NISEJOUR)=[th3].[NISEJOUR])
AND ((lib3.NIQ)=[q3].[NIQ])
AND ((lib3.NILIB)=[r3].[NILIB])
AND ((lib3.PARENTE) Like '674,%')
AND ((lib5.NIQ)=[q5].[NIQ])
AND ((lib5.NILIB)=[r5].[NILIB])
AND ((q5.LIBABR) Like 'Date de nai%')
AND ((lib6.NIQ)=[q6].[NIQ])
AND ((lib6.NILIB)=[r6].[NILIB])
AND ((q6.LIBABR) Like 'Date de l%')
AND ((lib3.NITH)=[lib6].[NITH]
And (lib3.NITH)=[lib5].[NITH]
And (lib3.NITH)=[th3].[NITH])); |
Partager