FORUM PER UTENTI MILLEWIN
Attenzione !
Per intervenire sul forum è necessario essere registrati e connessi.

L'Amministratore

****************************************************
“Se tu hai una mela ed io ho una mela, e ce la scambiamo, alla fine tu ed io avremo sempre una mela ciascuno.
Ma se tu hai un’idea ed io ho un’idea, e ce la scambiamo, allora avremo entrambi due idee”.

George Bernard Shaw
****************************************************

professione

Andare in basso

professione

Messaggio  LucaLeF il Lun 10 Ago 2015 - 16:47

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

LucaLeF
Membro Esperto
Membro Esperto

Messaggi : 444
Punti : 3577
Voti per importanza dei messaggi : 11
Data d'iscrizione : 21.02.11

Visualizza il profilo

Torna in alto Andare in basso

Re: professione

Messaggio  Cervino il Gio 27 Ago 2015 - 0:24

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
Non ho mai usato l' item Professione del Catalogo Accertamenti ; inoltre sorprendemente ed inspiegabilmente il campo a testo libero rimane sempre vuoto ;
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
Membro Junior

Messaggi : 219
Punti : 2964
Voti per importanza dei messaggi : 16
Data d'iscrizione : 03.03.11
Età : 63
Località : Orzivecchi (BS)

Visualizza il profilo

Torna in alto Andare in basso

Re: professione

Messaggio  LucaLeF il Mar 1 Set 2015 - 19:56

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

LucaLeF
Membro Esperto
Membro Esperto

Messaggi : 444
Punti : 3577
Voti per importanza dei messaggi : 11
Data d'iscrizione : 21.02.11

Visualizza il profilo

Torna in alto Andare in basso

Re: professione

Messaggio  Lucio Mignone il Mer 2 Set 2015 - 15:31

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.
avatar
Lucio Mignone
Membro Senior
Membro Senior

Messaggi : 626
Punti : 3527
Voti per importanza dei messaggi : 34
Data d'iscrizione : 20.02.11
Età : 54
Località : CAVRIGLIA (AR)

Visualizza il profilo http://comeva.altervista.org/

Torna in alto Andare in basso

Re: professione

Messaggio  Admin il Mer 2 Set 2015 - 20:56

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

_________________
L'Amministratore
Giuseppe Blasio
avatar
Admin
Admin
Admin

Messaggi : 521
Punti : 3387
Voti per importanza dei messaggi : 85
Data d'iscrizione : 20.02.11
Località : CASERTA

Visualizza il profilo http://utentimillewin.forumattivo.it

Torna in alto Andare in basso

Re: professione

Messaggio  pvelona il Gio 3 Set 2015 - 8:54

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
Sinceramente, pur essendo abbastanza pignolo nella registrazione dati, non registro né professione né titolo di studio.

pvelona
Membro Esperto
Membro Esperto

Messaggi : 440
Punti : 3279
Voti per importanza dei messaggi : 28
Data d'iscrizione : 20.02.11
Località : Bologna

Visualizza il profilo

Torna in alto Andare in basso

Re: professione

Messaggio  Lucio Mignone il Gio 3 Set 2015 - 11:45

pvelona ha scritto:
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
Sinceramente, pur essendo abbastanza pignolo nella registrazione dati, non registro né professione né titolo di studio.
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...
avatar
Lucio Mignone
Membro Senior
Membro Senior

Messaggi : 626
Punti : 3527
Voti per importanza dei messaggi : 34
Data d'iscrizione : 20.02.11
Età : 54
Località : CAVRIGLIA (AR)

Visualizza il profilo http://comeva.altervista.org/

Torna in alto Andare in basso

Re: professione

Messaggio  Cervino il Sab 5 Set 2015 - 0:49

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

Cervino
Membro Junior
Membro Junior

Messaggi : 219
Punti : 2964
Voti per importanza dei messaggi : 16
Data d'iscrizione : 03.03.11
Età : 63
Località : Orzivecchi (BS)

Visualizza il profilo

Torna in alto Andare in basso

Re: professione

Messaggio  Contenuto sponsorizzato


Contenuto sponsorizzato


Torna in alto Andare in basso

Torna in alto

- Argomenti simili

 
Permessi di questa sezione del forum:
Non puoi rispondere agli argomenti in questo forum