http://inscripdprofam.minsa.gob.pe/

*Muestra repetidos validando el DNI, APP, AAA y AMS*/Visual Fox Pro


SELECT COD_2000,ANO,MES,DIA,FICHAFAM,COD_DPTO,COD_PROV,COD_DIST,EDAD,TIP_EDAD,SEXO,ESTABLEC,SERVICIO,DIAGNOST1,LABCONF1,CODIGO1,DIAGNOST2,LABCONF2,CODIGO2,DIAGNOST3,LABCONF3,CODIGO3,DIAGNOST4,LABCONF4,CODIGO4,DIAGNOST5,LABCONF5,CODIGO5,DIAGNOST6,LABCONF6,CODIGO6,MT,DNI,FI,ET from essalud;
 where (COD_2000+STR(ANO)+STR(MES)+STR(DIA)+FICHAFAM+COD_DPTO+COD_PROV+COD_DIST+STR(EDAD)+TIP_EDAD+SEXO+ESTABLEC+SERVICIO+DIAGNOST1+LABCONF1+CODIGO1+DIAGNOST2+LABCONF2+CODIGO2+DIAGNOST3+LABCONF3+CODIGO3+DIAGNOST4+LABCONF4+CODIGO4+DIAGNOST5+LABCONF5+CODIGO5+DIAGNOST6+LABCONF6+CODIGO6+MT+DNI+FI+ET);
  in (SELECT(COD_2000+STR(ANO)+STR(MES)+STR(DIA)+FICHAFAM+COD_DPTO+COD_PROV+COD_DIST+STR(EDAD)+TIP_EDAD+SEXO+ESTABLEC+SERVICIO+DIAGNOST1+LABCONF1+CODIGO1+DIAGNOST2+LABCONF2+CODIGO2+DIAGNOST3+LABCONF3+CODIGO3+DIAGNOST4+LABCONF4+CODIGO4+DIAGNOST5+LABCONF5+CODIGO5+DIAGNOST6+LABCONF6+CODIGO6+MT+DNI+FI+ET) grupo FROM essalud;
WHERE left(LTRIM(RTRIM(UPPER(fichafam))),3) NOT in ("AAA","AMS","APP") AND ;
substr(dni,5,8)<>"00000000".and.substr(dni,5,8)<>"99999999".and.substr(dni,5,8)<>"11111111".and.dni<>" ".and.substr(dni,5)<>" ".and.substr(dni,6)<>" ".and.substr(dni,7)<>" ".and.substr(dni,8)<>" ".and.substr(dni,9)<>" ".and.substr(dni,10)<>" ".and.substr(dni,11)<>" ".and.substr(dni,5)<>" ".and.substr(dni,1,4)="PER1";
 group by grupo having COUNT(COD_2000+STR(ANO)+STR(MES)+STR(DIA)+FICHAFAM+COD_DPTO+COD_PROV+COD_DIST+STR(EDAD)+TIP_EDAD+SEXO+ESTABLEC+SERVICIO+DIAGNOST1+LABCONF1+CODIGO1+DIAGNOST2+LABCONF2+CODIGO2+DIAGNOST3+LABCONF3+CODIGO3+DIAGNOST4+LABCONF4+CODIGO4+DIAGNOST5+LABCONF5+CODIGO5+DIAGNOST6+LABCONF6+CODIGO6+MT+DNI+FI+ET)>1);
order by COD_2000,ANO,MES,DIA,FICHAFAM,COD_DPTO,COD_PROV,COD_DIST,EDAD,TIP_EDAD,SEXO,ESTABLEC,SERVICIO,DIAGNOST1,LABCONF1,CODIGO1,DIAGNOST2,LABCONF2,CODIGO2,DIAGNOST3,LABCONF3,CODIGO3,DIAGNOST4,LABCONF4,CODIGO4,DIAGNOST5,LABCONF5,CODIGO5,DIAGNOST6,LABCONF6,CODIGO6,MT,DNI,FI,ET



/*Muestra repetidos considerando APP, AAA y AMS, y DNI en blanco*/Visual Fox Pro 

SELECT COD_2000,ANO,MES,DIA,FICHAFAM,COD_DPTO,COD_PROV,COD_DIST,EDAD,TIP_EDAD,SEXO,ESTABLEC,SERVICIO,DIAGNOST1,LABCONF1,CODIGO1,DIAGNOST2,LABCONF2,CODIGO2,DIAGNOST3,LABCONF3,CODIGO3,DIAGNOST4,LABCONF4,CODIGO4,DIAGNOST5,LABCONF5,CODIGO5,DIAGNOST6,LABCONF6,CODIGO6,MT,DNI,FI,ET from essalud;
 where (COD_2000+STR(ANO)+STR(MES)+STR(DIA)+FICHAFAM+COD_DPTO+COD_PROV+COD_DIST+STR(EDAD)+TIP_EDAD+SEXO+ESTABLEC+SERVICIO+DIAGNOST1+LABCONF1+CODIGO1+DIAGNOST2+LABCONF2+CODIGO2+DIAGNOST3+LABCONF3+CODIGO3+DIAGNOST4+LABCONF4+CODIGO4+DIAGNOST5+LABCONF5+CODIGO5+DIAGNOST6+LABCONF6+CODIGO6+MT+DNI+FI+ET);
  in (SELECT(COD_2000+STR(ANO)+STR(MES)+STR(DIA)+FICHAFAM+COD_DPTO+COD_PROV+COD_DIST+STR(EDAD)+TIP_EDAD+SEXO+ESTABLEC+SERVICIO+DIAGNOST1+LABCONF1+CODIGO1+DIAGNOST2+LABCONF2+CODIGO2+DIAGNOST3+LABCONF3+CODIGO3+DIAGNOST4+LABCONF4+CODIGO4+DIAGNOST5+LABCONF5+CODIGO5+DIAGNOST6+LABCONF6+CODIGO6+MT+DNI+FI+ET) grupo FROM essalud;
 group by grupo having COUNT(COD_2000+STR(ANO)+STR(MES)+STR(DIA)+FICHAFAM+COD_DPTO+COD_PROV+COD_DIST+STR(EDAD)+TIP_EDAD+SEXO+ESTABLEC+SERVICIO+DIAGNOST1+LABCONF1+CODIGO1+DIAGNOST2+LABCONF2+CODIGO2+DIAGNOST3+LABCONF3+CODIGO3+DIAGNOST4+LABCONF4+CODIGO4+DIAGNOST5+LABCONF5+CODIGO5+DIAGNOST6+LABCONF6+CODIGO6+MT+DNI+FI+ET)>1);
order by COD_2000,ANO,MES,DIA,FICHAFAM,COD_DPTO,COD_PROV,COD_DIST,EDAD,TIP_EDAD,SEXO,ESTABLEC,SERVICIO,DIAGNOST1,LABCONF1,CODIGO1,DIAGNOST2,LABCONF2,CODIGO2,DIAGNOST3,LABCONF3,CODIGO3,DIAGNOST4,LABCONF4,CODIGO4,DIAGNOST5,LABCONF5,CODIGO5,DIAGNOST6,LABCONF6,CODIGO6,MT,DNI,FI,ET



/*Muestra repetidos considerando DNI en blanco, excluyendo APP AAA y AMS, muestra Lote, numero de pagina y registro */Visual Fox Pro
SELECT COD_2000,ANO,MES,DIA, FICHAFAM,COD_DPTO,COD_PROV,COD_DIST,EDAD,TIP_EDAD,SEXO,ESTABLEC,SERVICIO,DIAGNOST1,LABCONF1,CODIGO1,DIAGNOST2,LABCONF2,CODIGO2,DIAGNOST3,LABCONF3,CODIGO3,DIAGNOST4,LABCONF4,CODIGO4,DIAGNOST5,LABCONF5,CODIGO5,DIAGNOST6,LABCONF6,CODIGO6,MT,DNI,FI,ET, NOM_LOTE, NUM_PAG, NUM_REG from HISA0818;
 where (COD_2000+STR(ANO)+STR(MES)+STR(DIA)+FICHAFAM+COD_DPTO+COD_PROV+COD_DIST+STR(EDAD)+TIP_EDAD+SEXO+ESTABLEC+SERVICIO+DIAGNOST1+LABCONF1+CODIGO1+DIAGNOST2+LABCONF2+CODIGO2+DIAGNOST3+LABCONF3+CODIGO3+DIAGNOST4+LABCONF4+CODIGO4+DIAGNOST5+LABCONF5+CODIGO5+DIAGNOST6+LABCONF6+CODIGO6+MT+DNI+FI+ET);
  in (SELECT(COD_2000+STR(ANO)+STR(MES)+STR(DIA)+FICHAFAM+COD_DPTO+COD_PROV+COD_DIST+STR(EDAD)+TIP_EDAD+SEXO+ESTABLEC+SERVICIO+DIAGNOST1+LABCONF1+CODIGO1+DIAGNOST2+LABCONF2+CODIGO2+DIAGNOST3+LABCONF3+CODIGO3+DIAGNOST4+LABCONF4+CODIGO4+DIAGNOST5+LABCONF5+CODIGO5+DIAGNOST6+LABCONF6+CODIGO6+MT+DNI+FI+ET) grupo FROM HISA0818;
WHERE left(LTRIM(RTRIM(UPPER(fichafam))),3) NOT in ;
("AAA","AMS","APP")  group by grupo having COUNT(COD_2000+STR(ANO)+STR(MES)+STR(DIA)+FICHAFAM+COD_DPTO+COD_PROV+COD_DIST+STR(EDAD)+TIP_EDAD+SEXO+ESTABLEC+SERVICIO+DIAGNOST1+LABCONF1+CODIGO1+DIAGNOST2+LABCONF2+CODIGO2+DIAGNOST3+LABCONF3+CODIGO3+DIAGNOST4+LABCONF4+CODIGO4+DIAGNOST5+LABCONF5+CODIGO5+DIAGNOST6+LABCONF6+CODIGO6+MT+DNI+FI+ET)>1);
order by COD_2000,ANO,MES,DIA,FICHAFAM,COD_DPTO,COD_PROV,COD_DIST,EDAD,TIP_EDAD,SEXO,ESTABLEC,SERVICIO,DIAGNOST1,LABCONF1,CODIGO1,DIAGNOST2,LABCONF2,CODIGO2,DIAGNOST3,LABCONF3,CODIGO3,DIAGNOST4,LABCONF4,CODIGO4,DIAGNOST5,LABCONF5,CODIGO5,DIAGNOST6,LABCONF6,CODIGO6,MT,DNI,FI,ET, NOM_LOTE, NUM_PAG, NUM_REG



/*Muestra repetidos considerando APP, AAA y AMS, y DNI en blanco*/SQL SERVER 2008           SALE ERROR
select COD_2000,ANO,MES,DIA,FICHAFAM,COD_DPTO,COD_PROV,COD_DIST,EDAD,TIP_EDAD,SEXO,ESTABLEC,SERVICIO,DIAGNOST1,LABCONF1,CODIGO1,DIAGNOST2,LABCONF2,CODIGO2,DIAGNOST3,LABCONF3,CODIGO3,DIAGNOST4,LABCONF4,CODIGO4,DIAGNOST5,LABCONF5,CODIGO5,DIAGNOST6,LABCONF6,CODIGO6,MT,DNI,FI,ET from essalud;
 where (COD_2000+STR(ANO)+STR(MES)+STR(DIA)+FICHAFAM+COD_DPTO+COD_PROV+COD_DIST+STR(EDAD)+TIP_EDAD+SEXO+ESTABLEC+SERVICIO+DIAGNOST1+LABCONF1+CODIGO1+DIAGNOST2+LABCONF2+CODIGO2+DIAGNOST3+LABCONF3+CODIGO3+DIAGNOST4+LABCONF4+CODIGO4+DIAGNOST5+LABCONF5+CODIGO5+DIAGNOST6+LABCONF6+CODIGO6+MT+DNI+FI+ET)
  in (select COD_2000+STR(ANO)+STR(MES)+STR(DIA)+FICHAFAM+COD_DPTO+COD_PROV+COD_DIST+STR(EDAD)+TIP_EDAD+SEXO+ESTABLEC+SERVICIO+DIAGNOST1+LABCONF1+CODIGO1+DIAGNOST2+LABCONF2+CODIGO2+DIAGNOST3+LABCONF3+CODIGO3+DIAGNOST4+LABCONF4+CODIGO4+DIAGNOST5+LABCONF5+CODIGO5+DIAGNOST6+LABCONF6+CODIGO6+MT+DNI+FI+ET FROM essalud;
group by COD_2000+STR(ANO)+STR(MES)+STR(DIA)+FICHAFAM+COD_DPTO+COD_PROV+COD_DIST+STR(EDAD)+TIP_EDAD+SEXO+ESTABLEC+SERVICIO+DIAGNOST1+LABCONF1+CODIGO1+DIAGNOST2+LABCONF2+CODIGO2+DIAGNOST3+LABCONF3+CODIGO3+DIAGNOST4+LABCONF4+CODIGO4+DIAGNOST5+LABCONF5+CODIGO5+DIAGNOST6+LABCONF6+CODIGO6+MT+DNI+FI+ET
having COUNT(COD_2000+STR(ANO)+STR(MES)+STR(DIA)+FICHAFAM+COD_DPTO+COD_PROV+COD_DIST+STR(EDAD)+TIP_EDAD+SEXO+ESTABLEC+SERVICIO+DIAGNOST1+LABCONF1+CODIGO1+DIAGNOST2+LABCONF2+CODIGO2+DIAGNOST3+LABCONF3+CODIGO3+DIAGNOST4+LABCONF4+CODIGO4+DIAGNOST5+LABCONF5+CODIGO5+DIAGNOST6+LABCONF6+CODIGO6+MT+DNI+FI+ET)>1);
order by COD_2000,ANO,MES,DIA,FICHAFAM,COD_DPTO,COD_PROV,COD_DIST,EDAD,TIP_EDAD,SEXO,ESTABLEC,SERVICIO,DIAGNOST1,LABCONF1,CODIGO1,DIAGNOST2,LABCONF2,CODIGO2,DIAGNOST3,LABCONF3,CODIGO3,DIAGNOST4,LABCONF4,CODIGO4,DIAGNOST5,LABCONF5,CODIGO5,DIAGNOST6,LABCONF6,CODIGO6,MT,DNI,FI,ET



/*Muestra numero de veces que se repiten registros > a 1 vez*/

SELECT COD_2000,ANO,MES,DIA,FICHAFAM,COD_DPTO,COD_PROV,COD_DIST,EDAD,TIP_EDAD,SEXO,ESTABLEC,SERVICIO,DIAGNOST1,LABCONF1,CODIGO1,DIAGNOST2,LABCONF2,CODIGO2,DIAGNOST3,LABCONF3,CODIGO3,DIAGNOST4,LABCONF4,CODIGO4,DIAGNOST5,LABCONF5,CODIGO5,DIAGNOST6,LABCONF6,CODIGO6,MT,DNI,FI,ET,COUNT(COD_2000+STR(ANO)+STR(MES)+STR(DIA)+FICHAFAM+COD_DPTO+COD_PROV+COD_DIST+STR(EDAD)+TIP_EDAD+SEXO+ESTABLEC+SERVICIO+DIAGNOST1+LABCONF1+CODIGO1+DIAGNOST2+LABCONF2+CODIGO2+DIAGNOST3+LABCONF3+CODIGO3+DIAGNOST4+LABCONF4+CODIGO4+DIAGNOST5+LABCONF5+CODIGO5+DIAGNOST6+LABCONF6+CODIGO6+MT+DNI+FI+ET) N_VECES FROM essalud;
WHERE left(LTRIM(RTRIM(UPPER(fichafam))),3) NOT in ("AAA","AMS","APP") AND substr(dni,5,8)<>"00000000".and.substr(dni,5,8)<>"99999999".and.substr(dni,5,8)<>"11111111".and.dni<>" ".and.substr(dni,5)<>" ".and.substr(dni,6)<>" ".and.substr(dni,7)<>" ".and.substr(dni,8)<>" ".and.substr(dni,9)<>" ".and.substr(dni,10)<>" ".and.substr(dni,11)<>" ".and.substr(dni,5)<>" ".and.substr(dni,1,4)="PER1"; 
HAVING ;
N_VECES >1;  
GROUP BY COD_2000, ANO, MES, DIA, FICHAFAM, COD_DPTO, COD_PROV, COD_DIST, EDAD, TIP_EDAD, SEXO, ESTABLEC, SERVICIO, DIAGNOST1, LABCONF1, CODIGO1, DIAGNOST2, LABCONF2, CODIGO2, DIAGNOST3, LABCONF3, CODIGO3, DIAGNOST4, LABCONF4, CODIGO4, DIAGNOST5, LABCONF5, CODIGO5, DIAGNOST6, LABCONF6, CODIGO6, MT, DNI, FI, ET



/*Muestra registros duplicados, incluyendo lote, pagina y registro*/
SELECT COD_2000,ANO,MES,DIA, FICHAFAM,COD_DPTO,COD_PROV,COD_DIST,EDAD,TIP_EDAD,SEXO,ESTABLEC,SERVICIO,DIAGNOST1,LABCONF1,CODIGO1,DIAGNOST2,LABCONF2,CODIGO2,DIAGNOST3,LABCONF3,CODIGO3,DIAGNOST4,LABCONF4,CODIGO4,DIAGNOST5,LABCONF5,CODIGO5,DIAGNOST6,LABCONF6,CODIGO6,MT,DNI,FI,ET, NOM_LOTE, NUM_PAG, NUM_REG from essalud;
 where (COD_2000+STR(ANO)+STR(MES)+STR(DIA)+FICHAFAM+COD_DPTO+COD_PROV+COD_DIST+STR(EDAD)+TIP_EDAD+SEXO+ESTABLEC+SERVICIO+DIAGNOST1+LABCONF1+CODIGO1+DIAGNOST2+LABCONF2+CODIGO2+DIAGNOST3+LABCONF3+CODIGO3+DIAGNOST4+LABCONF4+CODIGO4+DIAGNOST5+LABCONF5+CODIGO5+DIAGNOST6+LABCONF6+CODIGO6+MT+DNI+FI+ET+NOM_LOTE+STR(NUM_PAG)+STR(NUM_REG));
  in ;
(SELECT(COD_2000+STR(ANO)+STR(MES)+STR(DIA)+FICHAFAM+COD_DPTO+COD_PROV+COD_DIST+STR(EDAD)+TIP_EDAD+SEXO+ESTABLEC+SERVICIO+DIAGNOST1+LABCONF1+CODIGO1+DIAGNOST2+LABCONF2+CODIGO2+DIAGNOST3+LABCONF3+CODIGO3+DIAGNOST4+LABCONF4+CODIGO4+DIAGNOST5+LABCONF5+CODIGO5+DIAGNOST6+LABCONF6+CODIGO6+MT+DNI+FI+ET+NOM_LOTE+STR(NUM_PAG)+STR(NUM_REG)) ;
grupo;
FROM essalud;
WHERE left(LTRIM(RTRIM(UPPER(fichafam))),3) NOT in ("AAA","AMS","APP");
group by grupo having COUNT(COD_2000+STR(ANO)+STR(MES)+STR(DIA)+FICHAFAM+COD_DPTO+COD_PROV+COD_DIST+STR(EDAD)+TIP_EDAD+SEXO+ESTABLEC+SERVICIO+DIAGNOST1+LABCONF1+CODIGO1+DIAGNOST2+LABCONF2+CODIGO2+DIAGNOST3+LABCONF3+CODIGO3+DIAGNOST4+LABCONF4+CODIGO4+DIAGNOST5+LABCONF5+CODIGO5+DIAGNOST6+LABCONF6+CODIGO6+MT+DNI+FI+ET)>1);
order by COD_2000,ANO,MES,DIA, FICHAFAM,COD_DPTO,COD_PROV,COD_DIST,EDAD,TIP_EDAD,SEXO,ESTABLEC,SERVICIO,DIAGNOST1,LABCONF1,CODIGO1,DIAGNOST2,LABCONF2,CODIGO2,DIAGNOST3,LABCONF3,CODIGO3,DIAGNOST4,LABCONF4,CODIGO4,DIAGNOST5,LABCONF5,CODIGO5,;
DIAGNOST6,LABCONF6,CODIGO6,MT,DNI,FI,ET, NOM_LOTE, NUM_PAG, NUM_REG



BUSCAR CODIGO1="C0010" Y CODIGO2="U0012"
       LABCONF1=NO DEBE PASAR DE 15 Y LABCONF2="1" O "2" 

VISTA FAMILIAR CON FICHAFAN= DEBE DE TENER - CODIGO1=Z762 LAB EN BLANCO CODIGO2=99401 LAB 1 Y CODIGO3 99344 LABCONF3=1 Y LABCONF4 "PAN"

EXAMEN DE MAMA Z0143 DEBE SER CON "N" O "A" NO "PV"NI "PC"

BUSCAR EL CODIGO =U402 SOLO DEBE ESTAR CON LAB1="1"

BUSCAR U233 DEBE ESTAR CON APP98 Y APP108 CON LAB Nš TOTAL Y CODIGO2="U0089" Y CON LAB3 SOLO="1,2,3"

BUSCAR CODIGO1="U801" DEBE TENER NUMERO EN LAB1 Y SOLO CON APP98 Y APP121

BUSCAR codigo1="R456" OR codigo1="Z720" OR codigo1="Z721" OR codigo1="Z722" OR codigo1="Z133" EN PRIMER RENGLON SOLO DEBE HABER REPETITIVOS 

BUSCAR codigo1="R456" OR codigo1="Z720" OR codigo1="Z721" OR codigo1="Z722" OR codigo1="Z133" DEBEN TENER U140 EN EL PRIMER RENGLON SI LOS CODIGO SON "D"

BUSCAR codigo2="R456" OR codigo2="Z720" OR codigo2="Z721" OR codigo2="Z722" OR codigo2="Z133" DEBEN TENER LAB EN BLANCO SOLO CUANDO ES GESTANTE VA LA "G"

BUSCAR CODIGO2="90806" DEBE TENER LAB 1,2,3,4,5,SI ES EL "6", CAMBIAR POR "TA"

BUSCAR 99411 SOLO DEBE EXISTIR EN JEPELACIO Y HOSPITAL


SET FILTER TO PLAZA="14615083006"

BUSCAR "Z349"

CORREGIR Z006 SI ENTAN NORMAL EN LOS 3 SOLO COLOCAR Z006 EN BLANCO UNA SOLA VEZ

REPLACE ALL ESTA_LOTE WITH "LZ" FOR ALLTRIM (ESTA_LOTE)="LC"

REPLACE ALL ST WITH "1" FOR ALLTRIM (ST)=""

REPLACE ALL LABCONF2 WITH "OTR" FOR ALLTRIM (CODIGO1)="90657" AND LABCONF2=""

SELECT * FROM hisa0318 ORDER BY COD_2000,nom_lote,num_pag,num_reg,dia asc

SELECT * from HISA0618 where (COD_2000+STR(ANO)+STR(MES)+NOM_LOTE+STR(NUM_PAG)+STR(NUM_REG)) in (SELECT(COD_2000+STR(ANO)+STR(MES)+NOM_LOTE+STR(NUM_PAG)+STR(NUM_REG));
grupo FROM HISA0318 group by grupo having COUNT(COD_2000+STR(ANO)+STR(MES)+NOM_LOTE+STR(NUM_PAG)+STR(NUM_REG))>1)order by COD_2000,ANO,MES,NOM_LOTE,NUM_PAG,NUM_REG