professione
5 partecipanti
Pagina 1 di 1
professione
Come estrarre i pazienti che hanno nel campo accertamenti PROFESSIONE Il campo a testo libero referto note compilato? esempio "pizzaiolo" "impiegato banca" etc ect
grazie
Luca Le Foche
grazie
Luca Le Foche
LucaLeF- Membro Esperto
- Messaggi : 473
Punti : 5702
Voti per importanza dei messaggi : 11
Data d'iscrizione : 21.02.11
Re: professione
Non ho mai usato l' item Professione del Catalogo Accertamenti ; inoltre sorprendemente ed inspiegabilmente il campo a testo libero rimane sempre vuoto ;LucaLeF ha scritto:Come estrarre i pazienti che hanno nel campo accertamenti PROFESSIONE Il campo a testo libero referto note compilato? esempio "pizzaiolo" "impiegato banca" etc ect
grazie
Luca Le Foche
comunque si potrebbe provare con :
Select Distinct Cast( u.codice_regionale As Char(5)) As mmg_code ,
Cast( p.cognome ||' '|| p.nome As Char(36)) As paziente , p.nascita ,
Days( p.nascita , Today() )*24/8766 As eta , p.sesso ,
( Select Cast( DateFormat( a.data_open , 'yyyymmdd' ) As Int ) From cart_accert a Where a.codice = p.codice And ( a.ac_des Like 'Professione' And a.data_open <= Today() And a.ac_val Is Not Null ) And Not Exists ( Select a1.codice From cart_accert a1 Where a1.codice = a.codice And a1.ac_des Like 'Professione' And (a1.data_open > a.data_open Or (a1.data_open = a.data_open And a1.rowid > a.rowid)) And a1.ac_val Is Not Null ))
_Professione_d_ ,
( Select Case SubString( ac_val, 3, 1) When '0' Then ''
When '1' Then 'Professione : Occupato'
When '2' Then 'Professione : Studente Lavoratore'
When '3' Then 'Professione : Pensionato Lavoratore'
When '4' Then 'Professione : Studente'
When '5' Then 'Professione : Casalinga'
When '6' Then 'Professione : Pensionato'
When '7' Then 'Professione : in cerca di prima Occupazione'
When '8' Then 'Professione : Disoccupato'
When '9' Then 'Professione : Clochard' End
||' - '|| Case SubString( ac_val, 4, 1) When '0' Then ''
When '1' Then 'Posizione : Libero Professionista'
When '2' Then 'Posizione : Insegnante'
When '3' Then 'Posizione : Imprenditore'
When '4' Then 'Posizione : Dirigente'
When '5' Then 'Posizione : Impiegato'
When '6' Then 'Posizione : Operaio'
When '7' Then 'Posizione : Apprendista'
When '8' Then 'Posizione : Militare'
When '9' Then 'Posizione : Clero'
When 'A' Then 'Posizione : Altro' End
||' - '|| Case SubString( ac_val, 5, 1) When '0' Then ''
When '1' Then 'Rapporto : Dipendente'
When '2' Then 'Rapporto : Autonomo'
When '3' Then 'Rapporto : Coadiuvante'
When '4' Then 'Rapporto : Interinale' End
||' - '|| Case SubString( ac_val, 6, 1) When '0' Then ''
When '1' Then 'Settore : Agricoltura'
When '2' Then 'Settore : Industria-Artigianato'
When '3' Then 'Settore : Terziario' End
||' - '|| Case SubString( ac_val, 7, 1) When '0' Then ''
When '1' Then 'Attività Fisica nel Lavoro : Assente'
When '2' Then 'Attività Fisica nel Lavoro : Media'
When '3' Then 'Attività Fisica nel Lavoro : Pesante' End
||' - '|| Case SubString( ac_val, 8, 1) When '0' Then ''
When '1' Then 'Responsabilità : Bassa'
When '2' Then 'Responsabilità : Media'
When '3' Then 'Responsabilità : Alta' End
||' - '|| Case SubString( ac_val, 9, 1) When '0' Then ''
When '1' Then 'Contratto : Tempo Pieno'
When '2' Then 'Contratto : Part-Time'
When '3' Then 'Lavoro a Domicilio' End
From cart_accert a Where a.codice = p.codice And ( a.ac_des Like 'Professione' And a.data_open <= Today() And a.ac_val Is Not Null )
And Not Exists ( Select a1.codice From cart_accert a1 Where a1.codice = a.codice And a1.ac_des Like 'Professione'
And (a1.data_open > a.data_open Or (a1.data_open = a.data_open And a1.rowid > a.rowid)) And a1.ac_val Is Not Null ))
_Professione_v_ ,
( Select Case SubString( ac_val, 3, 1) When '0' Then ''
When '1' Then ' Occupato'
When '2' Then ' Studente Lavoratore'
When '3' Then ' Pensionato Lavoratore'
When '4' Then ' Studente'
When '5' Then ' Casalinga'
When '6' Then ' Pensionato'
When '7' Then ' in cerca di prima Occupazione'
When '8' Then ' Disoccupato'
When '9' Then ' Clochard' End
From cart_accert a Where a.codice = p.codice And ( a.ac_des Like 'Professione' And a.data_open <= Today() And a.ac_val Is Not Null )
And Not Exists ( Select a1.codice From cart_accert a1 Where a1.codice = a.codice And a1.ac_des Like 'Professione'
And (a1.data_open > a.data_open Or (a1.data_open = a.data_open And a1.rowid > a.rowid)) And a1.ac_val Is Not Null ))
_Professione_ ,
( Select Case SubString( ac_val, 4, 1) When '0' Then ''
When '1' Then ' Libero Professionista'
When '2' Then ' Insegnante'
When '3' Then ' Imprenditore'
When '4' Then ' Dirigente'
When '5' Then ' Impiegato'
When '6' Then ' Operaio'
When '7' Then ' Apprendista'
When '8' Then ' Militare'
When '9' Then ' Clero'
When 'A' Then ' Altro' End
From cart_accert a Where a.codice = p.codice And ( a.ac_des Like 'Professione' And a.data_open <= Today() And a.ac_val Is Not Null )
And Not Exists ( Select a1.codice From cart_accert a1 Where a1.codice = a.codice And a1.ac_des Like 'Professione'
And (a1.data_open > a.data_open Or (a1.data_open = a.data_open And a1.rowid > a.rowid)) And a1.ac_val Is Not Null ))
_Posizione_ ,
( Select Case SubString( ac_val, 5, 1) When '0' Then ''
When '1' Then ' Dipendente'
When '2' Then ' Autonomo'
When '3' Then ' Coadiuvante'
When '4' Then ' Interinale' End
From cart_accert a Where a.codice = p.codice And ( a.ac_des Like 'Professione' And a.data_open <= Today() And a.ac_val Is Not Null )
And Not Exists ( Select a1.codice From cart_accert a1 Where a1.codice = a.codice And a1.ac_des Like 'Professione'
And (a1.data_open > a.data_open Or (a1.data_open = a.data_open And a1.rowid > a.rowid)) And a1.ac_val Is Not Null ))
_Rapporto_ ,
( Select Case SubString( ac_val, 6, 1) When '0' Then ''
When '1' Then ' Agricoltura'
When '2' Then ' Industria-Artigianato'
When '3' Then ' Terziario' End
From cart_accert a Where a.codice = p.codice And ( a.ac_des Like 'Professione' And a.data_open <= Today() And a.ac_val Is Not Null )
And Not Exists ( Select a1.codice From cart_accert a1 Where a1.codice = a.codice And a1.ac_des Like 'Professione'
And (a1.data_open > a.data_open Or (a1.data_open = a.data_open And a1.rowid > a.rowid)) And a1.ac_val Is Not Null ))
_Settore_ ,
( Select Case SubString( ac_val, 7, 1) When '0' Then ''
When '1' Then ' Assente'
When '2' Then ' Media'
When '3' Then ' Pesante' End
From cart_accert a Where a.codice = p.codice And ( a.ac_des Like 'Professione' And a.data_open <= Today() And a.ac_val Is Not Null )
And Not Exists ( Select a1.codice From cart_accert a1 Where a1.codice = a.codice And a1.ac_des Like 'Professione'
And (a1.data_open > a.data_open Or (a1.data_open = a.data_open And a1.rowid > a.rowid)) And a1.ac_val Is Not Null ))
_Att_Fis_Lavoro_ ,
( Select Case SubString( ac_val, 8, 1) When '0' Then ''
When '1' Then ' Bassa'
When '2' Then ' Media'
When '3' Then ' Alta' End
From cart_accert a Where a.codice = p.codice And ( a.ac_des Like 'Professione' And a.data_open <= Today() And a.ac_val Is Not Null )
And Not Exists ( Select a1.codice From cart_accert a1 Where a1.codice = a.codice And a1.ac_des Like 'Professione'
And (a1.data_open > a.data_open Or (a1.data_open = a.data_open And a1.rowid > a.rowid)) And a1.ac_val Is Not Null ))
_Responsabilita_ ,
( Select Case SubString( ac_val, 9, 1) When '0' Then ''
When '1' Then ' Tempo Pieno'
When '2' Then ' Part-Time'
When '3' Then ' Lavoro a Domicilio' End
From cart_accert a Where a.codice = p.codice And ( a.ac_des Like 'Professione' And a.data_open <= Today() And a.ac_val Is Not Null )
And Not Exists ( Select a1.codice From cart_accert a1 Where a1.codice = a.codice And a1.ac_des Like 'Professione'
And (a1.data_open > a.data_open Or (a1.data_open = a.data_open And a1.rowid > a.rowid)) And a1.ac_val Is Not Null ))
_Contratto_ ,
Cast( DateFormat( Today() , 'yyyymmdd' ) As Int) As query_d
FROM (( pazienti p LEFT Outer JOIN nos_002 n ON p.codice = n.codice )
LEFT Outer JOIN v_utenti u ON n.pa_medi = u.userid )
LEFT Outer JOIN cart_accert a ON p.codice = a.codice
WHERE u.codice_regionale Like '%' AND u.nome Like '%'
AND p.pa_convenzione = 'S' AND Year( nascita) Between 1910 And 2016
AND ( n.pa_drevoca Is Null Or n.pa_drevoca > Today() Or ( n.pa_drevoca Between Date( Today())-365 And Today() And motivo_revoca = 'S')) AND p.decesso Is Null
AND ac_des Like 'Professione%'
ORDER BY 2 , 3
Funzionerà ? Ti saluto , Sergio , Orzivecchi (BS)
Cervino- Membro Junior
- Messaggi : 245
Punti : 5064
Voti per importanza dei messaggi : 22
Data d'iscrizione : 03.03.11
Età : 69
Località : Orzivecchi (BS)
Re: professione
Intanto grazie,
confermo il campo a testo libero rimane vuoto. Niente "pizzaiolo" con SQL . bisogna ricorrere alla ... memoria
Perchè, se posso chiederti, non registri la professione dei tuoi pazienti?
Altri lo fanno ? Non lo fanno?
Qualcuno vuole intervenire?
Ciao
Luca
confermo il campo a testo libero rimane vuoto. Niente "pizzaiolo" con SQL . bisogna ricorrere alla ... memoria
Perchè, se posso chiederti, non registri la professione dei tuoi pazienti?
Altri lo fanno ? Non lo fanno?
Qualcuno vuole intervenire?
Ciao
Luca
LucaLeF- Membro Esperto
- Messaggi : 473
Punti : 5702
Voti per importanza dei messaggi : 11
Data d'iscrizione : 21.02.11
Re: professione
LucaLeF ha scritto:Intanto grazie,
confermo il campo a testo libero rimane vuoto. Niente "pizzaiolo" con SQL . bisogna ricorrere alla ... memoria
Perchè, se posso chiederti, non registri la professione dei tuoi pazienti?
Altri lo fanno ? Non lo fanno?
Qualcuno vuole intervenire?
Ciao
Luca
Io sinceramente non la registro.
Re: professione
Mi par di capire che interessa solo il contenuto a testo libero di "Note e Valutazione".
Select Distinct Cast( u.codice_regionale As Char(5)) As mmg_code ,
Cast( p.cognome ||' '|| p.nome As Char(36)) As paziente , p.nascita ,
Days( p.nascita , Today() )*24/8766 As eta , p.sesso , a. Ac_Mem Note_Valutazione
FROM (( pazienti p LEFT Outer JOIN nos_002 n ON p.codice = n.codice )
LEFT Outer JOIN v_utenti u ON n.pa_medi = u.userid )
LEFT Outer JOIN cart_accert a ON p.codice = a.codice
WHERE u.codice_regionale Like '%' AND u.nome Like '%'
AND p.pa_convenzione = 'S' AND Year( nascita) Between 1910 And 2016
AND ( n.pa_drevoca Is Null Or n.pa_drevoca > Today() Or ( n.pa_drevoca Between Date( Today())-365 And Today() And motivo_revoca = 'S')) AND p.decesso Is Null
AND ac_des Like 'Professione%'
ORDER BY 2,3
Select Distinct Cast( u.codice_regionale As Char(5)) As mmg_code ,
Cast( p.cognome ||' '|| p.nome As Char(36)) As paziente , p.nascita ,
Days( p.nascita , Today() )*24/8766 As eta , p.sesso , a. Ac_Mem Note_Valutazione
FROM (( pazienti p LEFT Outer JOIN nos_002 n ON p.codice = n.codice )
LEFT Outer JOIN v_utenti u ON n.pa_medi = u.userid )
LEFT Outer JOIN cart_accert a ON p.codice = a.codice
WHERE u.codice_regionale Like '%' AND u.nome Like '%'
AND p.pa_convenzione = 'S' AND Year( nascita) Between 1910 And 2016
AND ( n.pa_drevoca Is Null Or n.pa_drevoca > Today() Or ( n.pa_drevoca Between Date( Today())-365 And Today() And motivo_revoca = 'S')) AND p.decesso Is Null
AND ac_des Like 'Professione%'
ORDER BY 2,3
Re: professione
Sinceramente, pur essendo abbastanza pignolo nella registrazione dati, non registro né professione né titolo di studio.LucaLeF ha scritto:Intanto grazie,
confermo il campo a testo libero rimane vuoto. Niente "pizzaiolo" con SQL . bisogna ricorrere alla ... memoria
Perchè, se posso chiederti, non registri la professione dei tuoi pazienti?
Altri lo fanno ? Non lo fanno?
Qualcuno vuole intervenire?
Ciao
Luca
pvelona- Membro Esperto
- Messaggi : 449
Punti : 5361
Voti per importanza dei messaggi : 31
Data d'iscrizione : 20.02.11
Località : Bologna
Re: professione
In effetti il motivo della mancata registrazione credo sia nella relativa difficoltà nell'andare a rileggersi il dato, quando serve si fa prima a chiedere al pz di ricordarci che lavoro fa e che studi ha fatto...pvelona ha scritto:Sinceramente, pur essendo abbastanza pignolo nella registrazione dati, non registro né professione né titolo di studio.LucaLeF ha scritto:Intanto grazie,
confermo il campo a testo libero rimane vuoto. Niente "pizzaiolo" con SQL . bisogna ricorrere alla ... memoria
Perchè, se posso chiederti, non registri la professione dei tuoi pazienti?
Altri lo fanno ? Non lo fanno?
Qualcuno vuole intervenire?
Ciao
Luca
Re: professione
Mi scuso ma ho dimenticato la subquery relativa al campo Note (peraltro già suggerita dal nostro valente Admin) :
Select Distinct Cast( u.codice_regionale As Char(5)) As mmg_code ,
Cast( p.cognome ||' '|| p.nome As Char(36)) As paziente , p.nascita ,
Days( p.nascita , Today() )*24/8766 As eta , p.sesso ,
( Select Cast( DateFormat( a.data_open , 'yyyymmdd' ) As Int ) From cart_accert a Where a.codice = p.codice And ( a.ac_des ILike 'Professione' And a.data_open <= Today() And a.ac_val Is Not Null ) And Not Exists ( Select a1.codice From cart_accert a1 Where a1.codice = a.codice And a1.ac_des ILike 'Professione'
And (a1.data_open > a.data_open Or (a1.data_open = a.data_open And a1.rowid > a.rowid)) And a1.ac_val Is Not Null ))
_Professione_d_ ,
( Select Case SubString( ac_val , 3 , 1 ) When '0' Then ''
When '1' Then 'Professione : Occupato'
When '2' Then 'Professione : Studente Lavoratore'
When '3' Then 'Professione : Pensionato Lavoratore'
When '4' Then 'Professione : Studente'
When '5' Then 'Professione : Casalinga'
When '6' Then 'Professione : Pensionato'
When '7' Then 'Professione : in cerca di prima Occupazione'
When '8' Then 'Professione : Disoccupato'
When '9' Then 'Professione : Clochard' End
|| Case SubString( ac_val , 4 , 1 ) When '0' Then ''
When '1' Then Left( ' - ', 3) || 'Posizione : Libero Professionista'
When '2' Then Left( ' - ', 3) || 'Posizione : Insegnante'
When '3' Then Left( ' - ', 3) || 'Posizione : Imprenditore'
When '4' Then Left( ' - ', 3) || 'Posizione : Dirigente'
When '5' Then Left( ' - ', 3) || 'Posizione : Impiegato'
When '6' Then Left( ' - ', 3) || 'Posizione : Operaio'
When '7' Then Left( ' - ', 3) || 'Posizione : Apprendista'
When '8' Then Left( ' - ', 3) || 'Posizione : Militare'
When '9' Then Left( ' - ', 3) || 'Posizione : Clero'
When 'A' Then Left( ' - ', 3) || 'Posizione : Altro' End
|| Case SubString( ac_val , 5 , 1 ) When '0' Then ''
When '1' Then Left( ' - ', 3) || 'Rapporto : Dipendente'
When '2' Then Left( ' - ', 3) || 'Rapporto : Autonomo'
When '3' Then Left( ' - ', 3) || 'Rapporto : Coadiuvante'
When '4' Then Left( ' - ', 3) || 'Rapporto : Interinale' End
|| Case SubString( ac_val , 6 , 1 ) When '0' Then ''
When '1' Then Left( ' - ', 3) || 'Settore : Agricoltura'
When '2' Then Left( ' - ', 3) || 'Settore : Industria-Artigianato'
When '3' Then Left( ' - ', 3) || 'Settore : Terziario' End
|| Case SubString( ac_val , 7 , 1 ) When '0' Then ''
When '1' Then Left( ' - ', 3) || 'Attività Fisica nel Lavoro : Assente'
When '2' Then Left( ' - ', 3) || 'Attività Fisica nel Lavoro : Media'
When '3' Then Left( ' - ', 3) || 'Attività Fisica nel Lavoro : Pesante' End
|| Case SubString( ac_val , 8 , 1 ) When '0' Then ''
When '1' Then Left( ' - ', 3) || 'Responsabilità : Bassa'
When '2' Then Left( ' - ', 3) || 'Responsabilità : Media'
When '3' Then Left( ' - ', 3) || 'Responsabilità : Alta' End
|| Case SubString( ac_val , 9 , 1 ) When '0' Then ''
When '1' Then Left( ' - ', 3) || 'Contratto : Tempo Pieno'
When '2' Then Left( ' - ', 3) || 'Contratto : Part-Time'
When '3' Then Left( ' - ', 3) || 'Lavoro a Domicilio' End
||Case When a.ac_mem > '' Then Left( ' - Note : ', 10) || a.ac_mem Else '' End
From cart_accert a Where a.codice = p.codice And ( a.ac_des ILike 'Professione' And a.data_open <= Today() And a.ac_val Is Not Null )
And Not Exists ( Select a1.codice From cart_accert a1 Where a1.codice = a.codice And a1.ac_des ILike 'Professione'
And (a1.data_open > a.data_open Or (a1.data_open = a.data_open And a1.rowid > a.rowid)) And a1.ac_val Is Not Null ))
_Professione_v_ ,
( Select Case SubString( ac_val , 3 , 1 ) When '0' Then ''
When '1' Then ' Occupato'
When '2' Then ' Studente Lavoratore'
When '3' Then ' Pensionato Lavoratore'
When '4' Then ' Studente'
When '5' Then ' Casalinga'
When '6' Then ' Pensionato'
When '7' Then ' in cerca di prima Occupazione'
When '8' Then ' Disoccupato'
When '9' Then ' Clochard' End
From cart_accert a Where a.codice = p.codice And ( a.ac_des ILike 'Professione' And a.data_open <= Today() And a.ac_val Is Not Null )
And Not Exists ( Select a1.codice From cart_accert a1 Where a1.codice = a.codice And a1.ac_des ILike 'Professione'
And (a1.data_open > a.data_open Or (a1.data_open = a.data_open And a1.rowid > a.rowid)) And a1.ac_val Is Not Null ))
_Professione_ ,
( Select Case SubString( ac_val , 4 , 1 ) When '0' Then ''
When '1' Then ' Libero Professionista'
When '2' Then ' Insegnante'
When '3' Then ' Imprenditore'
When '4' Then ' Dirigente'
When '5' Then ' Impiegato'
When '6' Then ' Operaio'
When '7' Then ' Apprendista'
When '8' Then ' Militare'
When '9' Then ' Clero'
When 'A' Then ' Altro' End
From cart_accert a Where a.codice = p.codice And ( a.ac_des ILike 'Professione' And a.data_open <= Today() And a.ac_val Is Not Null )
And Not Exists ( Select a1.codice From cart_accert a1 Where a1.codice = a.codice And a1.ac_des ILike 'Professione'
And (a1.data_open > a.data_open Or (a1.data_open = a.data_open And a1.rowid > a.rowid)) And a1.ac_val Is Not Null ))
_Posizione_ ,
( Select Case SubString( ac_val , 5 , 1 ) When '0' Then ''
When '1' Then ' Dipendente'
When '2' Then ' Autonomo'
When '3' Then ' Coadiuvante'
When '4' Then ' Interinale' End
From cart_accert a Where a.codice = p.codice And ( a.ac_des ILike 'Professione' And a.data_open <= Today() And a.ac_val Is Not Null )
And Not Exists ( Select a1.codice From cart_accert a1 Where a1.codice = a.codice And a1.ac_des ILike 'Professione'
And (a1.data_open > a.data_open Or (a1.data_open = a.data_open And a1.rowid > a.rowid)) And a1.ac_val Is Not Null ))
_Rapporto_ ,
( Select Case SubString( ac_val , 6 , 1 ) When '0' Then ''
When '1' Then ' Agricoltura'
When '2' Then ' Industria-Artigianato'
When '3' Then ' Terziario' End
From cart_accert a Where a.codice = p.codice And ( a.ac_des ILike 'Professione' And a.data_open <= Today() And a.ac_val Is Not Null )
And Not Exists ( Select a1.codice From cart_accert a1 Where a1.codice = a.codice And a1.ac_des ILike 'Professione'
And (a1.data_open > a.data_open Or (a1.data_open = a.data_open And a1.rowid > a.rowid)) And a1.ac_val Is Not Null ))
_Settore_ ,
( Select Case SubString( ac_val , 7 , 1 ) When '0' Then ''
When '1' Then ' Assente'
When '2' Then ' Media'
When '3' Then ' Pesante' End
From cart_accert a Where a.codice = p.codice And ( a.ac_des ILike 'Professione' And a.data_open <= Today() And a.ac_val Is Not Null )
And Not Exists ( Select a1.codice From cart_accert a1 Where a1.codice = a.codice And a1.ac_des ILike 'Professione'
And (a1.data_open > a.data_open Or (a1.data_open = a.data_open And a1.rowid > a.rowid)) And a1.ac_val Is Not Null ))
_Att_Fis_Lavoro_ ,
( Select Case SubString( ac_val , 8 , 1 ) When '0' Then ''
When '1' Then ' Bassa'
When '2' Then ' Media'
When '3' Then ' Alta' End
From cart_accert a Where a.codice = p.codice And ( a.ac_des ILike 'Professione' And a.data_open <= Today() And a.ac_val Is Not Null )
And Not Exists ( Select a1.codice From cart_accert a1 Where a1.codice = a.codice And a1.ac_des ILike 'Professione'
And (a1.data_open > a.data_open Or (a1.data_open = a.data_open And a1.rowid > a.rowid)) And a1.ac_val Is Not Null ))
_Responsabilita_ ,
( Select Case SubString( ac_val , 9 , 1 ) When '0' Then ''
When '1' Then ' Tempo Pieno'
When '2' Then ' Part-Time'
When '3' Then ' Lavoro a Domicilio' End
From cart_accert a Where a.codice = p.codice And ( a.ac_des ILike 'Professione' And a.data_open <= Today() And a.ac_val Is Not Null )
And Not Exists ( Select a1.codice From cart_accert a1 Where a1.codice = a.codice And a1.ac_des ILike 'Professione'
And (a1.data_open > a.data_open Or (a1.data_open = a.data_open And a1.rowid > a.rowid)) And a1.ac_val Is Not Null ))
_Contratto_ ,
( Select a.ac_mem From cart_accert a Where a.codice = p.codice And ( a.ac_des ILike 'Professione' And a.data_open <= Today() And a.ac_val Is Not Null )
And Not Exists ( Select a1.codice From cart_accert a1 Where a1.codice = a.codice And a1.ac_des ILike 'Professione'
And (a1.data_open > a.data_open Or (a1.data_open = a.data_open And a1.rowid > a.rowid)) And a1.ac_val Is Not Null ))
_Note_ ,
Cast( DateFormat( Today() , 'yyyymmdd' ) As Int) As query_d
FROM (( pazienti p LEFT Outer JOIN nos_002 n ON p.codice = n.codice )
LEFT Outer JOIN v_utenti u ON n.pa_medi = u.userid )
LEFT Outer JOIN cart_accert a ON p.codice = a.codice
WHERE u.codice_regionale ILIKE '%' AND u.nome ILIKE '%'
AND ac_des ILIKE 'Profes%'
AND p.pa_convenzione = 'S' AND Year( nascita) Between 1910 And 1925
AND ( n.pa_drevoca Is Null Or n.pa_drevoca > Today() Or ( n.pa_drevoca Between Date( Today())-365 And Today() And motivo_revoca = 'S')) And p.decesso Is Null
ORDER BY 10 , 3 Limit 1500 OffSet 0
Comunque concordo con i Colleghi : l' item Professione ben articolato in teoria, si rivela di scarsa Utilità pratica e piu' adatto a monitorare l' andamento del Mercato del Lavoro in un centro x l' impiego o a fini ISTAT che x il MdMG .
Ultima ma non meno importante considerazione : forse non è una eccessiva invasione nella Privacy dell' Assistito ? Io sarei evasivo nel rispondere verbalmente a simili quesiti
Saluti , Sergio
Select Distinct Cast( u.codice_regionale As Char(5)) As mmg_code ,
Cast( p.cognome ||' '|| p.nome As Char(36)) As paziente , p.nascita ,
Days( p.nascita , Today() )*24/8766 As eta , p.sesso ,
( Select Cast( DateFormat( a.data_open , 'yyyymmdd' ) As Int ) From cart_accert a Where a.codice = p.codice And ( a.ac_des ILike 'Professione' And a.data_open <= Today() And a.ac_val Is Not Null ) And Not Exists ( Select a1.codice From cart_accert a1 Where a1.codice = a.codice And a1.ac_des ILike 'Professione'
And (a1.data_open > a.data_open Or (a1.data_open = a.data_open And a1.rowid > a.rowid)) And a1.ac_val Is Not Null ))
_Professione_d_ ,
( Select Case SubString( ac_val , 3 , 1 ) When '0' Then ''
When '1' Then 'Professione : Occupato'
When '2' Then 'Professione : Studente Lavoratore'
When '3' Then 'Professione : Pensionato Lavoratore'
When '4' Then 'Professione : Studente'
When '5' Then 'Professione : Casalinga'
When '6' Then 'Professione : Pensionato'
When '7' Then 'Professione : in cerca di prima Occupazione'
When '8' Then 'Professione : Disoccupato'
When '9' Then 'Professione : Clochard' End
|| Case SubString( ac_val , 4 , 1 ) When '0' Then ''
When '1' Then Left( ' - ', 3) || 'Posizione : Libero Professionista'
When '2' Then Left( ' - ', 3) || 'Posizione : Insegnante'
When '3' Then Left( ' - ', 3) || 'Posizione : Imprenditore'
When '4' Then Left( ' - ', 3) || 'Posizione : Dirigente'
When '5' Then Left( ' - ', 3) || 'Posizione : Impiegato'
When '6' Then Left( ' - ', 3) || 'Posizione : Operaio'
When '7' Then Left( ' - ', 3) || 'Posizione : Apprendista'
When '8' Then Left( ' - ', 3) || 'Posizione : Militare'
When '9' Then Left( ' - ', 3) || 'Posizione : Clero'
When 'A' Then Left( ' - ', 3) || 'Posizione : Altro' End
|| Case SubString( ac_val , 5 , 1 ) When '0' Then ''
When '1' Then Left( ' - ', 3) || 'Rapporto : Dipendente'
When '2' Then Left( ' - ', 3) || 'Rapporto : Autonomo'
When '3' Then Left( ' - ', 3) || 'Rapporto : Coadiuvante'
When '4' Then Left( ' - ', 3) || 'Rapporto : Interinale' End
|| Case SubString( ac_val , 6 , 1 ) When '0' Then ''
When '1' Then Left( ' - ', 3) || 'Settore : Agricoltura'
When '2' Then Left( ' - ', 3) || 'Settore : Industria-Artigianato'
When '3' Then Left( ' - ', 3) || 'Settore : Terziario' End
|| Case SubString( ac_val , 7 , 1 ) When '0' Then ''
When '1' Then Left( ' - ', 3) || 'Attività Fisica nel Lavoro : Assente'
When '2' Then Left( ' - ', 3) || 'Attività Fisica nel Lavoro : Media'
When '3' Then Left( ' - ', 3) || 'Attività Fisica nel Lavoro : Pesante' End
|| Case SubString( ac_val , 8 , 1 ) When '0' Then ''
When '1' Then Left( ' - ', 3) || 'Responsabilità : Bassa'
When '2' Then Left( ' - ', 3) || 'Responsabilità : Media'
When '3' Then Left( ' - ', 3) || 'Responsabilità : Alta' End
|| Case SubString( ac_val , 9 , 1 ) When '0' Then ''
When '1' Then Left( ' - ', 3) || 'Contratto : Tempo Pieno'
When '2' Then Left( ' - ', 3) || 'Contratto : Part-Time'
When '3' Then Left( ' - ', 3) || 'Lavoro a Domicilio' End
||Case When a.ac_mem > '' Then Left( ' - Note : ', 10) || a.ac_mem Else '' End
From cart_accert a Where a.codice = p.codice And ( a.ac_des ILike 'Professione' And a.data_open <= Today() And a.ac_val Is Not Null )
And Not Exists ( Select a1.codice From cart_accert a1 Where a1.codice = a.codice And a1.ac_des ILike 'Professione'
And (a1.data_open > a.data_open Or (a1.data_open = a.data_open And a1.rowid > a.rowid)) And a1.ac_val Is Not Null ))
_Professione_v_ ,
( Select Case SubString( ac_val , 3 , 1 ) When '0' Then ''
When '1' Then ' Occupato'
When '2' Then ' Studente Lavoratore'
When '3' Then ' Pensionato Lavoratore'
When '4' Then ' Studente'
When '5' Then ' Casalinga'
When '6' Then ' Pensionato'
When '7' Then ' in cerca di prima Occupazione'
When '8' Then ' Disoccupato'
When '9' Then ' Clochard' End
From cart_accert a Where a.codice = p.codice And ( a.ac_des ILike 'Professione' And a.data_open <= Today() And a.ac_val Is Not Null )
And Not Exists ( Select a1.codice From cart_accert a1 Where a1.codice = a.codice And a1.ac_des ILike 'Professione'
And (a1.data_open > a.data_open Or (a1.data_open = a.data_open And a1.rowid > a.rowid)) And a1.ac_val Is Not Null ))
_Professione_ ,
( Select Case SubString( ac_val , 4 , 1 ) When '0' Then ''
When '1' Then ' Libero Professionista'
When '2' Then ' Insegnante'
When '3' Then ' Imprenditore'
When '4' Then ' Dirigente'
When '5' Then ' Impiegato'
When '6' Then ' Operaio'
When '7' Then ' Apprendista'
When '8' Then ' Militare'
When '9' Then ' Clero'
When 'A' Then ' Altro' End
From cart_accert a Where a.codice = p.codice And ( a.ac_des ILike 'Professione' And a.data_open <= Today() And a.ac_val Is Not Null )
And Not Exists ( Select a1.codice From cart_accert a1 Where a1.codice = a.codice And a1.ac_des ILike 'Professione'
And (a1.data_open > a.data_open Or (a1.data_open = a.data_open And a1.rowid > a.rowid)) And a1.ac_val Is Not Null ))
_Posizione_ ,
( Select Case SubString( ac_val , 5 , 1 ) When '0' Then ''
When '1' Then ' Dipendente'
When '2' Then ' Autonomo'
When '3' Then ' Coadiuvante'
When '4' Then ' Interinale' End
From cart_accert a Where a.codice = p.codice And ( a.ac_des ILike 'Professione' And a.data_open <= Today() And a.ac_val Is Not Null )
And Not Exists ( Select a1.codice From cart_accert a1 Where a1.codice = a.codice And a1.ac_des ILike 'Professione'
And (a1.data_open > a.data_open Or (a1.data_open = a.data_open And a1.rowid > a.rowid)) And a1.ac_val Is Not Null ))
_Rapporto_ ,
( Select Case SubString( ac_val , 6 , 1 ) When '0' Then ''
When '1' Then ' Agricoltura'
When '2' Then ' Industria-Artigianato'
When '3' Then ' Terziario' End
From cart_accert a Where a.codice = p.codice And ( a.ac_des ILike 'Professione' And a.data_open <= Today() And a.ac_val Is Not Null )
And Not Exists ( Select a1.codice From cart_accert a1 Where a1.codice = a.codice And a1.ac_des ILike 'Professione'
And (a1.data_open > a.data_open Or (a1.data_open = a.data_open And a1.rowid > a.rowid)) And a1.ac_val Is Not Null ))
_Settore_ ,
( Select Case SubString( ac_val , 7 , 1 ) When '0' Then ''
When '1' Then ' Assente'
When '2' Then ' Media'
When '3' Then ' Pesante' End
From cart_accert a Where a.codice = p.codice And ( a.ac_des ILike 'Professione' And a.data_open <= Today() And a.ac_val Is Not Null )
And Not Exists ( Select a1.codice From cart_accert a1 Where a1.codice = a.codice And a1.ac_des ILike 'Professione'
And (a1.data_open > a.data_open Or (a1.data_open = a.data_open And a1.rowid > a.rowid)) And a1.ac_val Is Not Null ))
_Att_Fis_Lavoro_ ,
( Select Case SubString( ac_val , 8 , 1 ) When '0' Then ''
When '1' Then ' Bassa'
When '2' Then ' Media'
When '3' Then ' Alta' End
From cart_accert a Where a.codice = p.codice And ( a.ac_des ILike 'Professione' And a.data_open <= Today() And a.ac_val Is Not Null )
And Not Exists ( Select a1.codice From cart_accert a1 Where a1.codice = a.codice And a1.ac_des ILike 'Professione'
And (a1.data_open > a.data_open Or (a1.data_open = a.data_open And a1.rowid > a.rowid)) And a1.ac_val Is Not Null ))
_Responsabilita_ ,
( Select Case SubString( ac_val , 9 , 1 ) When '0' Then ''
When '1' Then ' Tempo Pieno'
When '2' Then ' Part-Time'
When '3' Then ' Lavoro a Domicilio' End
From cart_accert a Where a.codice = p.codice And ( a.ac_des ILike 'Professione' And a.data_open <= Today() And a.ac_val Is Not Null )
And Not Exists ( Select a1.codice From cart_accert a1 Where a1.codice = a.codice And a1.ac_des ILike 'Professione'
And (a1.data_open > a.data_open Or (a1.data_open = a.data_open And a1.rowid > a.rowid)) And a1.ac_val Is Not Null ))
_Contratto_ ,
( Select a.ac_mem From cart_accert a Where a.codice = p.codice And ( a.ac_des ILike 'Professione' And a.data_open <= Today() And a.ac_val Is Not Null )
And Not Exists ( Select a1.codice From cart_accert a1 Where a1.codice = a.codice And a1.ac_des ILike 'Professione'
And (a1.data_open > a.data_open Or (a1.data_open = a.data_open And a1.rowid > a.rowid)) And a1.ac_val Is Not Null ))
_Note_ ,
Cast( DateFormat( Today() , 'yyyymmdd' ) As Int) As query_d
FROM (( pazienti p LEFT Outer JOIN nos_002 n ON p.codice = n.codice )
LEFT Outer JOIN v_utenti u ON n.pa_medi = u.userid )
LEFT Outer JOIN cart_accert a ON p.codice = a.codice
WHERE u.codice_regionale ILIKE '%' AND u.nome ILIKE '%'
AND ac_des ILIKE 'Profes%'
AND p.pa_convenzione = 'S' AND Year( nascita) Between 1910 And 1925
AND ( n.pa_drevoca Is Null Or n.pa_drevoca > Today() Or ( n.pa_drevoca Between Date( Today())-365 And Today() And motivo_revoca = 'S')) And p.decesso Is Null
ORDER BY 10 , 3 Limit 1500 OffSet 0
Comunque concordo con i Colleghi : l' item Professione ben articolato in teoria, si rivela di scarsa Utilità pratica e piu' adatto a monitorare l' andamento del Mercato del Lavoro in un centro x l' impiego o a fini ISTAT che x il MdMG .
Ultima ma non meno importante considerazione : forse non è una eccessiva invasione nella Privacy dell' Assistito ? Io sarei evasivo nel rispondere verbalmente a simili quesiti
Saluti , Sergio
Cervino- Membro Junior
- Messaggi : 245
Punti : 5064
Voti per importanza dei messaggi : 22
Data d'iscrizione : 03.03.11
Età : 69
Località : Orzivecchi (BS)
Pagina 1 di 1
Permessi in questa sezione del forum:
Non puoi rispondere agli argomenti in questo forum.