04 ISC 051 MANUAL TECNICO
Contents
1. CRPSEX CRTFEA CRCOD CRPAFI CRTESP CRDES CRPCAT CRTTKT CRCATA CRPSCA CRTEDA CRCOD1 CRTPA1 CRSERVICIOSG CRCODSER CRDESSER CRPPRR CRPPAR CRPFNA CRECAUP CRENHC PATOLOGIAS CRETKT CRXCOD CREVLT CRXNOM NOTA Para el correcto funcionamiento del sistema las tablas deben tener los nombres que se mencionan y contener los campos indicados caso contrario dar error VISTAS DE BASE DE DATOS QUE UTILIZA EL SISTEMA A parte de las tablas mencionadas anteriormente se deben tener dentro de la base de datos las siguientes Vistas VISTA VISTACRTRANP Es una vista de suma importancia para el sistema es la vista que mayormente se accesa por el sistema su utilidad radica en que aqu se obtiene informaci n acomodada para obtener los resultados transformados para el sistema principalmente es donde se obtiene el campo CRTRAN donde se almacena el rango de edad a la cual pertenece el paciente el momento que se ha efectuado la atenci n otro campo es CRTESP1 donde se calcula el servicio al que pertenece cada especialidad que atiende el sexo del paciente tambi n de almacena en el campo CRTSEX El c digo de la vista es el siguiente CREATE VIEW VISTACRTRANP CRTNHC CRTFEA CRTESP CRTSEX CRPSCA CRTESP1 CRTRAN AS SELECT CRTNHC CRTFEA CRTESP CRPSEX CRPSCA ROUND CRTESP 10000 1 0 132. end procedure TFATerapias1 BitBtniClick Sender TObject begin DecisionQuery1 Close DecisionQuery2 Close Query1 Close Query2 Close Close end procedure TFATerapias1 BitBtn2Click Sender TObject begin if DateTimePicker1 Date lt DateTimePicker2 Date then begin Animatel1 Active True StatusBar1 SimpleText Buscando Informaci n Decodedate DateTimePicker1 Date anio mes dia Decodedate DateTimePicker2 Date anio1 mes1 dial anioc inttostr anio anio1c inttostr anio1 diac transfecha dia mesc transfecha mes dia1c transfecha dial mesic transfecha mes1 fechai anioc mesc diac fechaf anio1c mes1c dialc DecisionCube1 DataSet nil DecisionCube2 DataSet nil DecisionQuery1 Close DecisionQuery1 SQL Clear DecisionQuery2 Close DecisionQuery2 SQL Clear if op1 Checked True then begin condicion WHERE CRTFEA gt fechai AND CRTFEA lt fechaf AND CRTESP gt codigoser AND CRTESP lt codigoser1 DecisionQuery1 SQL Add SELECT CRTESP COUNT CRTESP FROM CRTRANP condicion GROUP BY CRTESP ORDER BY CRTESP DecisionQuery1 Open num DecisionQuery1 RecordCount if num gt 1 then begin DecisionCube1 DataSet DecisionQueryl DecisionGrid1 DecisionSource DecisionSourcel 39 Sistema de Informaci n Gerencial CRMs Manual T cnico DecisionGraphl1 DecisionSource DecisionSourcel DecisionGraph1 Title Text Text Numero de Atencion
3. cont cont 1 conty conty 1 num1 num1 1 end if 12 else conty 0 if 3 if numl 3 then begin DecisionCube1 DataSet DecisionQueryl 0 j 0 for k 1 to DecisionGrid1 ColCount 2 do begin StringGrid1 Cells cont 1 j 1 DecisionGrid1 Cells j i j j 1 end for cont cont 1 conty conty 1 num1 numi 1 end num1 3 end if num gt 0 else conty 0 until conty 0 if cont gt 1 then begin BDatosR Enabled False BProy2 Enabled True 25 Sistema de Informaci n Gerencial CRMs Manual T cnico Animatel Active False Edit1 Text Datos Cargados de los dos ltimos a os hasta la fecha actual end else begin Animatel Active False showmessage No existen suficientes datos para hacer las proyecciones por lo menos cargue datos de dos a os anteriores end except MessageBeep 0 MessageDlg No se puede acceder a la base de Datos mtError mbok 0 end del try end procedure TFProyecciones media Sender TObject z word var a b med integer aum word begin for aum 1 to 12 do V aum 0 for aum 1 to 12 do begin a strtoint StringGrid1 Cells z aum b strtoint StringGrid1 Cells z 1 aum med round a b 2 V aum med end end function potencia base real n word real var cont word salida real begin salida 1 for cont 1 to n do salida salida base potencia salida end procedure TFProyecciones Proyeccion Sender TObjec
4. fechaf anio1c mes1c dialc DecisionCube1 DataSet nil DecisionCube2 DataSet nil DecisionQuery1 Close DecisionQuery1 SQL Clear DecisionQuery2 Close DecisionQuery2 SQL Clear if op1 Checked True then begin condicion WHERE CRTNHC seleccion AND CRTFEA gt fechai AND CRTFEA lt fechaf DecisionQuery1 SQL Add SELECT CRTESP COUNT CRTESP FROM CRTRANP condicion GROUP BY CRTESP ORDER BY CRTESP DecisionQuery1 Active True Sistema de Informaci n Gerencial CRMs 28 Manual T cnico num DecisionQuery1 RecordCount if num gt 1 then begin DecisionCube1 DataSet DecisionQueryl DecisionGrid1 DecisionSource DecisionSourcel DecisionGraphi1 DecisionSource DecisionSourcel Label1 caption En el Peri do datetostr DateTimePicker1 Date a datetostr DateTimePicker2 Date No de Atenciones al Paciente con NHC seleccion Animatel1 Active False Query2 Close Query2 SQL Clear Query2 Sql Add SELECT DISTINCT CRTESP AS CODIGO CRDESC AS ESPECIALIDAD FROM CRTRANP CRSERVICIOS WHERE CRTNHC seleccion AND CRTESP CRCOD AND CRTFEA gt fechai AND CRTFEA lt fechaf ORDER BY CRTESP Query2 Open DBGrid2 DataSource DataSource3 end else begin Animatel Active False Query2 Close label1 caption showmessage No Hay Datos Que Mostrar end end del if select if op2 Checked True then begin condicion WHERE
5. de Datos 00 ul Tabla de abila Predictiva Tabla de Datos nformaci n C lculo de C lculo de Proyecciones Proyecciones de cinco a os de cinco a os por meses trimestrales Gr ficos de Barras Informaci n Predictiva Sistema de Informaci n Gerencial CRMs Manual T cnico Detalle de procesos de intercambio de datos Medio F sico de transmisi n de datos El medio f sico para la transmisi n de datos es la red basada en TCP IP b Modelo de comunicaci n El modelo de comunicaci n utilizado es una conexi n Client Access basada en ODBC C Procesos de extracci n de datos La extracci n de datos se realiza mediante consultas SQL que se automatizaron mediante el motor de base de datos con paquetes de SQL Server Operaci n de los Datos de la base del SIG Limpieza de los datos En algunas columnas de las tablas a transferir se encontraron inconsistencias tales como fechas de nacimiento con un valor num rico igual a 0 campos de caracteres espec ficos conten an blancos columnas con datos fecha que eran de tipo num rico Estas inconsistencias fueron resueltas con la utilizaci n de filtros implementados con c digo SQL que permitieron que los datos se transfirieran adecuadamente para su uso en el SIG Clasificaci n de los datos La mayor a de consultas SQL multidimensionales necesarias para la obtenci n de resultados visuales del sistema no se pod an llevar a cabo con las col
6. end end procedure TFProyecciones BProy2Click Sender TObject var numpy tot word c fi ff trim word para proy trimestrales begin for numpy 1 to 3 do begin media StringGrid1 numpy Proyeccion StringGrid1 numpy 2 numpy end for tot 1 to 5 do StringGridi Cells tot 13 Total StringGrid1 tot 1 12 BProy5 Enabled True for c 1 to StringGrid1 ColCount 1 do 27 Sistema de Informaci n Gerencial CRMs Manual T cnico begin fi 1 ff 3 for trim 1 to 4 do begin StringGrid2 cells c trim total StringGrid1 c fi ff fi ff 1 ff ff 3 end StringGrid2 cells c 5 total StringGrid2 c 1 4 end BAnio Enabled true BTrim Enabled true Edit1 text Se ha calculado las proyecciones de dos a os futuros end FORMA FAExoneradosi1 var FAExonerados1 TFAExoneradosl fechai fechaf string dia mes anio dia1 mes1 anio1 word diac mesc anioc dia1c mes1c anio1c string condicion string num integer seleccion string implementation Uses Ulmpresion R DFM procedure TFAExoneradosl1 BitBtn3Click Sender TObject begin if DateTimePicker1 Date lt Date TimePicker2 Date then begin Animatel1 Active True Decodedate DateTimePicker1 Date anio mes dia Decodedate DateTimePicker2 Date anio1 mes1 dial anioc inttostr anio anio1c inttostr anio1 diac transfecha dia mesc transfecha mes dia1c transfecha dia1 mesic transfecha mes1 fechai anioc mesc diac
7. BDDCRM4 implementada en SQL Server 2000 Edici n Personal La base de datos BDDCRM4 debe contener las siguientes tablas y vistas de datos TABLAS CRPACIP Datos del Paciente CRPFAP Fecha de apertura de la historia cl nica CRPPAR Parroquia de Procedencia urbano rural En esta tabla los datos se obtendr n de las bases de datos del sistema m dico que se encuentra en el AS 400 mediante una subconsulta utilizando una instrucci n SELECT SELECT CASE WHEN CRPAFI lt gt S AND CRPAFI lt gt N THEN NO APLICABLE ELSE CRPAFI END AS CRPAFI CRPNHC CRPNOM CRPSEX CRPCAT CRPSCA CRPPRR CRPFAP CRPPAR FROM CRPACIP Este SELECT se ejecuta mediante un paquete creado en el manejador de base de datos autom ticamente desde el Sistema Gerencial al usar el men Archivo Cargar Datos Por facilidad de dise o se ha tomado como nombre de los campos los mismos nombres de la Sistema de Informaci n Gerencial CRMs Manual T cnico tabla CRPACIP del sistema m dico pero haciendo una modificaci n en el campo CRPAFI para eliminar la inconsistencia encontrada como es algunos registros en blanco en este capo sustituyendo estos registros mediante la X en los dem s casos se copiar la informaci n del mismo modo como se encuentra en la tabla origen CRPACIP CRTRANP Informaci n de atenciones a los pacientes CRTRANP CAMPO DESCRIPCI N CRTNHC N mero de historia cl nica del paciente CRTFEA Fecha de atenci n al paciente
8. Close servicioi strtoint codigo 10000 servicioil strtoint codigo 1 10000 codigoser inttostr servicioi codigoserl1 inttostr servicioil BitBtn2 Enabled True end FORMA FaActualizarbdd var FActualizarbdd TFActualizarbdd anio mes dia word anioc mesc diac fechac string implementation uses Ulmpresion fmxutils R DFM procedure TFActualizarbdd BitBtn1Click Sender TObject begin if op1 Checked True then begin if DateTimePicker1 Date lt Date then begin Decodedate DateTimePicker1 Date anio mes dia anioc inttostr anio diac transfecha dia mesc transfecha mes Sistema de Informaci n Gerencial CRMs 41 Manual T cnico fechac anioc mesc diac Tablel Active True with Tablei do begin Table1 Edit DBEdit1 text fechac Table1 Post end del with Table1 Close Showmessage Se ha actualizado la fecha pulse Aceptar para proceder a la Transferencia ExecuteFile dtsrun exe SDIRECCION USA PSA NBTABLAS MSA C AAMSSQLABINNV SW_SHOW ExecuteFile dtsrun exe SDIRECCION USA PSA NTCRTRANP MSA C AMSSQLABINNV SW_SHOW Showmessage Tabla CRTRANP TTransferida ExecuteFile dtsrun exe SDIRECCION USA PSA NTCRECAUP MSA C AMSSQLABINNV SW_SHOW Showmessage Tabla CRECAUP TTransferida ExecuteFile dtsrun exe SDIRECCION USA PSA NTCRPACIP MSA C AMSSQLABINNV SW_SHOW Showmessage Tabla CRPACIP TTransferida
9. ExecuteFile dtsrun exe SDIRECCION USA PSA NPRED MSA C MSSQLABINNV SW_SHOW Showmessage Transferencia Ejecutada end else Showmessage Verifique la Fecha end if op2 checked True then begin ExecuteFile dtsrun exe SDIRECCION USA PSA NBTABLAS MSA C AMSSQLABINNV SW_SHOW ExecuteFile dtsrun exe SDIRECCION USA PSA NTCRTRANPT MSA C AMSSQLABINNV SW_SHOW Showmessage Tabla CRTRANP TTransferida ExecuteFile dtsrun exe SDIRECCION USA PSA NTCRECAUPT MSA C AMSSQLABINNV SW_SHOW Showmessage Tabla CRECAUP TTransferida ExecuteFile dtsrun exe SDIRECCION USA PSA NTCRPACIP MSA C AMSSQLABINNV SW_SHOW Showmessage Tabla CRPACIP TTransferida ExecuteFile dtsrun exe SDIRECCION USA PSA NPRED MSA C MSSQLABINNV SW_SHOW Showmessage Transferencia Ejecutada end end procedure TFActualizarbdd op2Click Sender TObject begin DateTimePicker1 Enabled False end procedure TFActualizarbdd op1Click Sender TObject begin DateTimePicker1 Enabled True end FORMA FPSEXOEDAD var FPSexoEdad TFPSexoEdad 42 Sistema de Informaci n Gerencial CRMs Manual T cnico fechai fechaf string dia mes anio dia1 mes1 anio1 word diac mesc anioc dia1c mes1c anio1c string condicion string num integer implementation R DFM Uses Ulmpresion Unit37 procedure TFPSexoEdad BitBtn2Click Sender TObject begin if DateTimePicke
10. SISTEMAGERENCIALCRMISQLV SW_SHOW ExecuteFile dtsrun exe S DBEdit2 EditText USA PSA NTCRTRANP MSA C SISTEMAGERENCIALCRMISQLV SW_SHOW Showmessage Tabla CRTRANP Transferida ExecuteFile dtsrun exe S DBEdit2 EditText USA PSA NTCRECAUP MSA C SISTEMAGERENCIALCRMISQLV SW_SHOW Showmessage Tabla CRECAUP Transferida ExecuteFile dtsrun exe S DBEdit2 EditText USA PSA NTCRPACIP MSA C SISTEMAGERENCIALCRMISQLV SW_SHOW Showmessage Tabla CRPACIP Transferida ExecuteFile dtsrun exe S DBEdit2 EditText USA PSA NTCRTSERP MSA C SISTEMAGERENCIALCRMISQLV SW_SHOW Showmessage Tabla CRTSERP Transferida ExecuteFile dtsrun exe S DBEdit2 EditText USA PSA NPRED MSA C SISTEMAGERENCIALCRMISQLV SW_SHOW ExecuteFile dtsrun exe S DBEdit2 EditText USA PSA NPREDSER MSA C SISTEMAGERENCIALCRMISQLV SW_SHOW 16 Sistema de Informaci n Gerencial CRMs Manual T cnico Showmessage Transferencia Ejecutada end else Showmessage Verifique la Fecha end if op2 checked True then begin ExecuteFile dtsrun exe S DBEdit2 EditText USA PSA NBTABLAS MSA C SISTEMAGERENCIALCRMISQLV SW_SHOW ExecuteFile dtsrun exe S DBEdit2 EditText USA PSA NTCRTRANPT MSA C SISTEMAGERENCIALCRMISQLV SW_SHOW Showmessage Tabla CRTRANP Transferida ExecuteFile dtsrun exe S DBEdit2 EditText USA PSA NTCRECAUPT MSA C SISTEMAGERENCIALCRMISQ
11. VF VA 1 i Que se define como e VF Valor futuro o final e VA Valor Actual e j tasa de rentabilidad exigida e n es el n mero de per odos En esta formula todos estos par metros se los toma como entes financieros pero para el c lculo de las proyecciones de atenciones del centro son necesarias las siguientes adecuaciones de las variables de esta f rmula e VF Valor de la proyecci n de n mero de atenciones futuras e VA Valor de atenciones ya efectuadas e j tasa de aumento de atenciones en los ltimos tres a os e n n mero de a os a proyectar La aplicaci n de la f rmula en este caso necesita los siguientes valores esto para la obtenci n del valor futuro de cada mes de cada a o que se desee proyectar e VA representa la media de los valores de las atenciones de cada mes de los dos ltimos a os e i es la tasa de aumento de crecimiento de atenciones se tomo como 0 07 de acuerdo a la observaci n de los datos pasados Ejemplo Si las atenciones del mes de enero de los a os 2002 2003 fueran 3939 4274 entonces la proyecci n en el mismo mes en el a o siguiente tendr el siguiente valor VF VA 1 i VF media 3939 4274 1 0 07 Sistema de Informaci n Gerencial CRMs Manual T cnico VF 4701 El valor VF 4701 es el valor aproximado de atenciones en Enero del 2004 METADATA Para el funcionamiento del Sistema Gerencial es necesario contar con una base de datos que lleve por nombre
12. ingresar como par metro y sustituir al signo de interrogaci n El par metro se obtendr mediante el Sistema Gerencial en la opci n Cargar Datos Parte de los Datos donde se pide al usuario la fecha inicial desde la cual se desea cargar los datos Nota Ya que la operaci n que se realiza para obtener la edad retorna un campo decimal luego de transferir la tabla se procede a redondear al inmediato inferior el campo CRTEDA mediante un paquete que se ejecuta mediante el SIG en la forma Cargar Datos autom ticamente con la siguiente instrucci n USE BDDCRM4 UPDATE CRTRANP SET CRTEDA ROUND CRTEDA 0 1 CRECAUP Informaci n de las recaudaciones de las atenciones a los pacientes CREFET Fecha de emisi n de ticket CREESP Especialidad que se requiere CREVLT Costo de la atenci n SELECT CRENHC CRETKT CREFET CREESP CREVLT FROM CRECAUP WHERE CREFET gt Este SELECT igualmente se ejecuta mediante un paquete creado en el manejador de base de datos autom ticamente desde el Sistema Gerencial al usar el men Archivo Cargar Datos Por facilidad de dise o se ha tomado como nombre de los campos los mismos nombres de la tabla CRECAUP del sistema m dico 10 Sistema de Informaci n Gerencial CRMs Manual T cnico La instrucci n WHERE puede llevar igualmente un par metro como en el caso de la tabla CRTRANP donde la subconsulta retornar solo los registros que el usuario desee Se utilizar la misma informaci n
13. la funci n para convertir a tipo DATE sufr a un desbordamiento con los ocho caracteres de la fecha original CREATE VIEW VISTAPROY1 CRTKTV CRTFEAV AS SELECT CRTKTV SUBSTRING CRTFEAV 3 6 FROM VISTAPROY VISTAPROYECCION Se utiliza la funci n CONVERT del SQL Transact para transformar la fecha de atenci n a tipo DATE CREATE VIEW VISTAPROYECCION CRTKTV CRTFEAV AS SELECT CRTKTV CONVERT DATETIME CRTFEAV FROM VISTAPROY1 15 Sistema de Informaci n Gerencial CRMs Manual T cnico C DIGO FUENTE DEL SISTEMA GERENCIAL La herramienta que se utiliz para la implementaci n del Sistema Gerencial es Borland Delphi 3 1 Cliente Servidor FORMA ACTUALIZAR BASE DE DATOS var FActualizarbdd TFActualizarbdd anio mes dia word anioc mesc diac fechac string implementation uses Ulmpresion fmxutils unitl R DFM procedure TFActualizarbdd BitBtn1Click Sender TObject begin if op1 Checked True then begin if DateTimePicker1 Date lt Date then begin Decodedate DateTimePicker1 Date anio mes dia anioc inttostr anio diac transfecha dia mesc transfecha mes fechac anioc mesc diac Table1 Active True with Tablei do begin Table1 Edit DBEdit1 text fechac Table1 Post end del with Table1 Close Showmessage Se ha actualizado la fecha pulse Aceptar para proceder a la Transferencia ExecuteFile dtsrun exe S DBEdit2 EditText USA PSA NBTABLAS MSA C
14. label5 caption fechamax end end procedure TFActualizarbdd op2Click Sender TObject begin DateTimePicker1 Enabled False end procedure TFActualizarbdd op1Click Sender TObject begin DateTimePicker1 Enabled True end FORMA FASexoEdad var FASexoEdad TFASexoEdad fechai fechaf string dia mes anio dia1 mes1 anio1 word diac mesc anioc dia1c mes1c anio1c string condicion string num integer implementation uses Ulmpresion Unit23 R DFM procedure TFASexoEdad FormActivate Sender TObject begin Decodedate Date anio mes dia DatetimePicker3 Date strtodate 01 inttostr mes inttostr anio 1 DatetimePicker4 Date Date label1 caption end procedure TFASexoEdad BitBtn2Click Sender TObject begin if DateTimePicker3 Date lt Date TimePicker4 Date then begin Animatel1 Active True StatusBar1 SimpleText Buscando Informaci n Decodedate DateTimePicker3 Date anio mes dia Decodedate DateTimePicker4 Date anio1 mes1 dial anioc inttostr anio anio1c inttostr anio1 diac transfecha dia mesc transfecha mes dia1c transfecha dial mesic transfecha mes1 fechai anioc mesc diac fechaf anio1c mes1c dialc condicion WHERE CRTFEA gt fechai AND CRTFEA lt fechaf DecisionCube1 DataSet nil DecisionQuery1 Close 18 Sistema de Informaci n Gerencial CRMs Manual T cnico DecisionQuery1 SQL Clear DecisionQuery1 SQL A
15. BitBtn2 Enabled True BitBtn4 Enabled True end else begin label1 caption Animatel Active False StatusBar1 SimpleText Atenciones Generales por Meses showmessage No Hay Datos Que Mostrar end end else if de arriba showmessage El Periodo Para La Consulta Es Inadecuado end FORMA FAExonerados var FAExonerados TFAExonerados fechai fechaf string dia mes anio dia1 mes1 anio1 word diac mesc anioc dia1c mes1c anio1c string condicion string num integer implementation R DFM Uses UImpresion Unit4 procedure TFAExonerados BitBtn3Click Sender TObject begin if DateTimePicker1 Date lt DateTimePicker2 Date then 37 Sistema de Informaci n Gerencial CRMs Manual T cnico begin Animatel1 Active True StatusBar1 SimpleText Buscando Informacion Decodedate DateTimePicker1 Date anio mes dia Decodedate DateTimePicker2 Date anio1 mes1 dial anioc inttostr anio anio1c inttostr anio1 diac transfecha dia mesc transfecha mes dia1c transfecha dial mesic transfecha mes1 fechai anioc mesc diac fechaf anio1c mes1c dialc DecisionCube1 DataSet nil DecisionQuery1 Close DecisionQuery1 SQL Clear condicion WHERE CRTNHC IN SELECT DISTINCT CRTNHC FROM VISTACRTRANP VEXONERADOS WHERE CRTNHC CRPNHC AND CRTFEA gt fechai AND CRTFEA lt fechaf AND CRTFEA gt fechai AND CRTFEA lt fechaf Deci
16. CRTESP Especialidad que atendi CRTTKT N mero de ticket CRTPA1 Patolog a del paciente CRTEDA Edad del paciente En esta tabla los datos se obtendr n de la base de datos del sistema m dico que se encuentra en el AS 400 mediante una subconsulta utilizando una instrucci n SELECT SELECT CASE WHEN CRPFNA lt gt 0 THEN CRTFEA CRPFNA 10000 ELSE 200 END AS CRTEDA CRTNHC CRTFEA CRTESP CRTTKT CRTPA1 FROM CRPACIP CRTRANP WHERE CRTNHC CRPNHC Este SELECT igualmente se ejecuta mediante un paquete creado en el manejador de base de datos autom ticamente desde el Sistema Gerencial al usar el men Archivo Cargar Datos Por facilidad de dise o se ha tomado como nombre de los campos los mismos nombres de la tabla CRTRAP del sistema m dico a excepci n del campo CRTEDA que es un campo calculado de acuerdo a la instrucci n CRTFEA CRPFNA 10000 donde CRTFEA es la fecha de atenci n al paciente CRPFNA es la fecha de nacimiento del paciente se ha divido para 10000 ya que los dos campos son num ricos en los dem s casos se copiar la informaci n del mismo modo como se encuentra en la tabla origen CRTRANP Sistema de Informaci n Gerencial CRMs Manual T cnico La instrucci n SELECT puede tener una instrucci n WHERE como la siguiente WHERE CRTNHC CRPNHC AND CRTFEA gt La cual indica que la subconsulta obtendr solamente los registros donde CRTFEA fecha de atenci n sean iguales o mayores a la fecha que
17. CRTNHC seleccion AND CRTFEA gt fechai AND CRTFEA lt fechaf AND CRTESP CRCOD DecisionQuery2 SQL Add SELECT CRTESP SUM CRCATA FROM CRTRANP CRSERVICIOS condicion GROUP BY CRTESP ORDER BY CRTESP gt DecisionQuery2 Open num DecisionQuery2 RecordCount if num gt 1 then begin DecisionCube2 DataSet DecisionQuery2 DecisionGrid1 DecisionSource DecisionSource2 DecisionGraphl1 DecisionSource DecisionSource2 Label1 caption En el Peri do datetostr DateTimePicker1 Date a datetostr DateTimePicker2 Date Recaudaci n si fuera Clase A al Paciente con NHC seleccion Animatel1 Active False Query2 Close Query2 SQL Clear Query2 Sql Add SELECT DISTINCT CRTESP AS CODIGO CRDESC AS ESPECIALIDAD FROM CRTRANP CRSERVICIOS WHERE CRTNHC seleccion AND CRTESP CRCOD AND CRTFEA gt fechai AND CRTFEA lt fechaf ORDER BY CRTESP Query2 Open DBGrid2 DataSource DataSource3 end else begin Animatel1 Active False Query2 Close 29 Sistema de Informaci n Gerencial CRMs Manual T cnico label1 caption showmessage No Hay Datos Que Mostrar end end if select end else if de todo el bloque showmessage El Periodo Para La Consulta Es Inadecuado end procedure TFAExonerados1 BitBtn2Click Sender TObject begin Impresion DecisionGraph1 PrinterSetupDialogl end procedure TFAExonerados1 DBGridiCellClick Column TC
18. LV SW_SHOW Showmessage Tabla CRECAUP Transferida ExecuteFile dtsrun exe S DBEdit2 EditText USA PSA NTCRPACIP MSA C SISTEMAGERENCIALCRMISQLV SW_SHOW Showmessage Tabla CRPACIP Transferida ExecuteFile dtsrun exe S DBEdit2 EditText USA PSA NTCRTSERP MSA C SISTEMAGERENCIALCRMISQLV SW_SHOW Showmessage Tabla CRTSERP Transferida ExecuteFile dtsrun exe S DBEdit2 EditText USA PSA NPRED MSA C SISTEMAGERENCIALCRMISQLV SW_SHOW ExecuteFile dtsrun exe S DBEdit2 EditText USA PSA NPREDSER MSA C SISTEMAGERENCIALCRMISQLV SW_SHOW Showmessage Transferencia Ejecutada end end procedure TFActualizarbdd BitBtn2Click Sender TObject begin Query2 Close close end procedure TFActualizarbdd FormActivate Sender TObject begin FActualizarbdd Height 400 FActualizarbdd Left 177 FActualizarbdd Top 67 FActualizarbdd Width 520 DateTimePicker1 Enabled True Decodedate Date anio mes dia if mes lt gt 1 then DatetimePicker1 Date strtodate 01 inttostr mes 1 inttostr anio else DatetimePicker1 Date strtodate 01 12 inttostr anio 1 Query2 Active True if FPrincipal DBEdit1 EditText then begin label1 visible False label2 visible False Label4 visible True Label4 caption Base de Datos Vac a end else 17 Sistema de Informaci n Gerencial CRMs Manual T cnico begin label6 caption fechamin
19. Manual T cnico MANUAL T CNICO DEL SISTEMA DE INFORMACI N GERENCIAL DE LOS CENTROS DE REHABILITACI N MEDICA DEL INNFA DISE O L GICO Construcci n del dep sito de datos del SIG y determinaci n de los m dulos del sistema Tomando en cuenta los servicios con los que cuenta los CRM y los datos almacenados en la base de datos mediante el sistema de procesamiento de esta instituci n podemos distinguir los siguientes objetos tiles para el sistema gerencial Pacientes Atenciones Recaudaciones Servicios Patolog as A estos objetos se los podr a relacionar de la siguiente manera ZN PATOLOGIA Dise o de la estructura de objetos Tablas de la base de datos Las tablas que contiene la base de datos BCRM4 son Paciente Atenci n Recaudaci n Patolog a Servicios que se detallar n mas adelante en la secci n Metadata Diagrama de Flujo de Datos Simbolog a Para la representaci n de los diagramas de contexto se ha utilizado los siguientes simbolos Sistema de Informaci n Gerencial CRMs Manual T cnico S MBOLO DESCRIPCI N T Datos almacenados Representa el deposito donde se encuentran almacenados los datos Proceso Representa los procesos de transformaci n Pantalla Representa los reportes presentados por pantalla DA esti Representa los reportes enviados a la impresora Representa el destino de los datos Su punta se ala el destino de los datos Diagrama d
20. RIMESTRE StringGrid2 Cells 0 5 TOTALES poner los titulos a cada columna la cuadricula de datos en pagina Trimestres StringGrid2 Cells 1 0 inttostr aniohoy 2 StringGrid2 Cells 2 0 inttostr aniohoy 1 StringGrid2 Cells 3 0 inttostr aniohoy StringGrid2 Cells 4 0 inttostr aniohoy 1 StringGrid2 Cells 5 0 inttostr aniohoy 2 Editi Text Hola Se or Director end Sistema de Informaci n Gerencial CRMs 24 Manual T cnico procedure TFProyecciones BDatosRClick Sender TObject var cargar los datos num numi cont i j k conty col word Condicion String anio1 anio2 string begin Animatel1 Active True Edit1 Text Espere un momento por favor hasta ver los datos cont 0 conty 3 num1 0 try Repeat DecisionCube1 DataSet nil anio1 inttostr aniohoy conty 2 anio2 inttostr aniohoy conty 1 Condicion WHERE CRTFEAV lt 01 01 anio1 AND CRTFEAV gt 01 01 anio2 DecisionQuery1 Close DecisionQuery1 SQL Clear DecisionQuery1 SQL Add SELECT CRTFEAV COUNT CRTFEAV FROM VPROYECCION Condicion GROUP BY CRTFEAV DecisionQuery1 Open num DecisionQuery1 RecordCount if num gt 0 then begin DecisionCube1 DataSet DecisionQueryl if numi lt 3 then if DecisionGrid1 ColCount 14 then begin 0 j 0 for k 1 to DecisionGrid1 ColCount 2 do begin StringGridi Cells cont 1 j 1 DecisionGrid1 Cells j i J 3 1 end for
21. SELECT CRTESP1 COUNT CRTESP1 FROM VISTACRTRANP condicion GROUP BY CRTESP1 ORDER BY CRTESP1 DecisionQuery1 Open num DecisionQuery1 RecordCount if num gt 0 then begin DecisionCube1 DataSet DecisionQueryl DecisionGrid1 DecisionSource DecisionSourcel DecisionGraphl1 DecisionSource DecisionSourcel DecisionGraph1 Title Text Text No de Atenciones de Exonerados Label1 caption En el Peri do datetostr DateTimePicker1 Date a datetostr DateTimePicker2 Date 32 Sistema de Informaci n Gerencial CRMs Manual T cnico Animatel Active False StatusBar1 SimpleText Atenciones Generales a Exonerados BitBtn2 Enabled True BitBtn4 Enabled True Query1 Close Query1 SQL Clear Query1 Sql Add SELECT DISTINCT CRTESP1 AS CODIGO CRDESSER AS SERVICIO FROM VISTACRTRANP CRSERVICIOSG WHERE CRTESP1 CRCODSER AND CRTFEA gt fechai AND CRTFEA lt fechaf ORDER BY CRTESP15 Query1 Open DBGrid1 DataSource DataSourcel end else begin Animatel Active False label1 caption Query1 Close StatusBar1 SimpleText Atenciones Generales a Exonerados showmessage No Hay Datos Que Mostrar end end del if select if op2 Checked True then begin condicion WHERE CRTNHC IN SELECT DISTINCT CRTNHC FROM VISTACRTRANP VEXONERADOS WHERE CRTNHC CRPNHC AND CRTFEA gt fechai AND CRTFEA lt fechaf Y AND CRTFEA gt fechai AND CRTFEA lt f
22. Sexo fechai fechaf string dia mes anio dia1 mes1 anio1 word diac mesc anioc dia1c mes1c anio1c string condicion string num integer implementation Uses Ulmpresion Unit39 Unit3 R DFM procedure TFAEspecialidadSexo BitBtn2Click Sender TObject begin if DateTimePicker1 Date lt Date TimePicker2 Date then begin Animatel1 Active True StatusBar1 SimpleText Buscando Informaci n Decodedate DateTimePicker1 Date anio mes dia Decodedate DateTimePicker2 Date anio1 mes1 dial anioc inttostr anio anio1c inttostr anio1 diac transfecha dia mesc transfecha mes dia1c transfecha dia1 mesic transfecha mes1 fechai anioc mesc diac fechaf anio1c mes1c dialc DecisionCube1 DataSet nil DecisionQuery1 Close DecisionQuery1 SQL Clear condicion WHERE CRTFEA gt fechai AND CRTFEA lt fechaf DecisionQuery1 SQL Add SELECT CRTESP1 COUNT CRTESP1 CRTSEX FROM VISTACRTRANP condicion GROUP BY CRTESP1 CRTSEX ORDER BY CRTESP1 CRTSEX DecisionQuery1 Open num DecisionQuery1 RecordCount if num gt 0 then begin DecisionCube1 DataSet DecisionQueryl label1 caption En el Periodo datetostr DateTimePicker1 Date a datetostr DateTimePicker2 Date Animatel Active False StatusBar1 SimpleText Atenciones Generales por Especialidad y Sexo BitBtn3 Enabled True BitBtn4 Enabled True Query1 Close Query1 SQL Clear 34 Sistema de In
23. Sistema de Informaci n Gerencial CRMs Manual T cnico CASE WHEN CRTEDA gt 0 AND CRTEDA lt 6 THEN R1 0 6 WHEN CRTEDA gt 6 AND CRTEDA lt 12 THEN R2 6 12 WHEN CRTEDA gt 12 AND CRTEDA lt 18 THEN R3 12 18 WHEN CRTEDA gt 18 THEN R4 gt 18 ELSE R5 SE END AS CRTRAN FROM CRTRANP CRPACIP WHERE CRTNHC CRPNHC VISTA EXONERADOS Es una vista que sirve para obtener todos los paciente exonerados del centro para poder obtener la informaci n en el sistema referente a este grupo de pacientes del centro Su c digo de creaci n es el siguiente CREATE VIEW VEXONERADOS CRPNHC CRPNOM AS SELECT CRPNHC CRPNOM FROM CRPACIP WHERE CRPCAT E Las siguientes tres vistas son necesarias para el calculo de las proyecciones dentro del sistema su funci n radica principalmente en que el campo fecha de atenci n dentro de la tabla CRTRANP es de tipo num rico y para hacer la clasificaci n del n mero de atenciones por meses es necesario que se tenga el campo de la fecha de atenci n de tipo DATE fecha para obtener los resultados requeridos VISTA PROY Es necesario al campo fecha de atenci n CRTFEA transformarla a tipo car cter CREATE VIEW VISTAPROY CRTKTV CRTFEAV AS SELECT CRTTKT CONVERT CHAR 8 CRTFEA FROM CRTRANP 14 Sistema de Informaci n Gerencial CRMs Manual T cnico VISTA PROYi Una vez transformado este campo a car cter s e debe obtener solo los seis caracteres de la derecha de campo CRTFEAV ya que
24. age El Periodo Para La Consulta Es Inadecuado end procedure TFATerapias2 DBGrid2CellClick Column TColumn var servicio string begin servicio DBGrid2 SelectedField Text Table2 Active True with Table2 do begin IndexFieldNames crdesc SetKey FieldByName crdesc AsString servicio Gotokey codesp Table2 FieldByName crcod AsString end Table2 Close if codesp lt gt then Bitbtn2 Enabled True end FORMA FRecaudaciones var FRecaudaciones TFRecaudaciones fechai fechaf string dia mes anio dia1 mes1 anio1 word diac mesc anioc dia1c mes1c anio1c string condicion condicioni string num integer a b real implementation uses Ulmpresion Sistema de Informaci n Gerencial CRMs 22 Manual T cnico R DFM procedure TFRecaudaciones BitBtn1Click Sender TObject begin if DateTimePicker1 Date lt DateTimePicker2 Date then begin Decodedate DateTimePicker1 Date anio mes dia Decodedate DateTimePicker2 Date anio1 mes1 dial anioc inttostr anio anio1c inttostr anio1 diac transfecha dia mesc transfecha mes dia1c transfecha dia1 mesic transfecha mes1 fechai anioc mesc diac fechaf anio1c mes1c dialc DecisionQuery1 Close DecisionQuery1 SQL Clear DecisionQuery2 Close DecisionQuery2 SQL Clear condicion WHERE CRETKT IN SELECT CRTTKT FROM CRTRANP WHERE CRTFEA gt fechai AND CRTFEA lt fechaf D
25. asificados por Sexo Edad showmessage No Hay Datos Que Mostrar end end 43 Sistema de Informaci n Gerencial CRMs Manual T cnico else if de arriba showmessage El Periodo Para La Consulta Es Inadecuado end Sistema de Informaci n Gerencial CRMs 44
26. atologias m s Frecuentes showmessage No Hay datos que mostrar Query1 close end end else if de arriba 31 Sistema de Informaci n Gerencial CRMs Manual T cnico showmessage El periodo para la consulta es inadecuado end FORMA FAExonerados2 var FAExonerados2 TFAExonerados2 fechai fechaf string dia mes anio dia1 mes1 anio1 word diac mesc anioc dia1c mes1c anio1c string condicion string num integer implementation R DFM Uses UImpresion Unit36 procedure TFAExonerados2 BitBtn1Click Sender TObject begin if DateTimePicker1 Date lt DateTimePicker2 Date then begin Animate1 Active True StatusBar1 SimpleText Buscando Informacion Decodedate DateTimePicker1 Date anio mes dia Decodedate DateTimePicker2 Date anio1 mes1 dial anioc inttostr anio anio1c inttostr anio1 diac transfecha dia mesc transfecha mes dia1c transfecha dia1 mesic transfecha mes1 fechai anioc mesc diac fechaf anio1c mes1c dialc DecisionCube1 DataSet nil DecisionCube2 DataSet nil DecisionQuery1 Close DecisionQuery1 SQL Clear DecisionQuery2 Close DecisionQuery2 SQL Clear if op1 Checked True then begin condicion WHERE CRTNHC IN SELECT DISTINCT CRTNHC FROM VISTACRTRANP VEXONERADOS WHERE CRTNHC CRPNHC AND CRTFEA gt fechai AND CRTFEA lt fechaf AND CRTFEA gt fechai AND CRTFEA lt fechaf DecisionQuery1 SQL Add
27. c condicion WHERE CRTPA1 IN SELECT TOP 10 CRTPA1 FROM CRTRANP WHERE CRTFEA gt fechai AND CRTFEA lt fechaf AND CRTPA1 lt gt O GROUP BY CRTPA1 ORDER BY COUNT CRTPA1 DESC DecisionCube1 DataSet nil DecisionQuery1 Close DecisionQuery1 SQL Clear DecisionQuery1 SQL Add SELECT CRTPA1 CRPSEX COUNT CRPSEX FROM CRTRANP CRPACIP condicion AND CRTNHC CRPNHC AND CRTFEA gt fechai AND CRTFEA lt fechaf GROUP BY CRTPA1 CRPSEX ORDER BY CRTPA1 gt DecisionQuery1 Open num DecisionQuery1 RecordCount if num gt 0 then begin DecisionCube1 DataSet DecisionQueryl Labeli caption En el Periodo datetostr DateTimePicker1 Date a datetostr DateTimePicker2 Date Animatel Active False StatusBar1 SimpleText Atenciones de las patologias m s Frecuentes BitBtn3 Enabled True BitBtn4 Enabled True Query1 Close Query1 SQL Clear Query1 Sql Add SELECT CRTPA1 AS CODIGO CRTPDE AS DESCRIPCION FROM CRTRANP CRPACIP CRTPATP WHERE CRTPA1 IN SELECT TOP 10 CRTPA1 FROM CRTRANP WHERE CRTFEA gt fechai AND CRTFEA lt fechaf AND CRTPA1 lt gt 0 GROUP BY CRTPA1 ORDER BY COUNT CRTPA1 DESC AND CRTNHC CRPNHC AND CRTFEA gt fechai AND CRTFEA lt fechaf AND CRTPCO CRTPA1 GROUP BY CRTPA1 CRTPDE ORDER BY CRTPA15 Query1 Open DBGrid1 DataSource DataSourcel end else begin label1 caption Animatel Active False StatusBar1 SimpleText Atenciones de las p
28. d y Rangos de Edad showmessage No Hay Datos Que Mostrar end end else if de arriba showmessage El Periodo Para La Consulta Es Inadecuado end FORMA FAMensuales var FAMensuales TFAMensuales fechai fechaf string dia mes anio word dia1l mes1 anio1 word condicion string num integer implementation uses Ulmpresion Unit44 R DFM procedure TFAMensuales FormActivate Sender TObject begin Decodedate Date anio mes dia 36 Sistema de Informaci n Gerencial CRMs Manual T cnico DatetimePicker1 Date strtodate 01 inttostr mes inttostr anio 1 DatetimePicker2 Date Date end procedure TFAMensuales BitBtn1Click Sender TObject begin if DateTimePicker1 Date lt Date TimePicker2 Date then begin Animatel1 Active True StatusBar1 SimpleText Buscando Informaci n fechai Datetostr DateTimePicker1 Date fechaf Datetostr Date TimePicker2 Date DecisionQuery1 Close DecisionQuery1 SQL Clear condicion WHERE CRTFEAV lt fechaf AND CRTFEAV gt fechai DecisionQuery1 SQL Add SELECT CRTFEAV COUNT CRTFEAV FROM VPROYECCION condicion GROUP BY CRTFEAV gt DecisionQuery1 Open num DecisionQuery1 RecordCount if num gt 0 then begin label1 caption En el Periodo datetostr DateTimePicker1 Date a datetostr DateTimePicker2 Date Animatel Active False StatusBar1 SimpleText Atenciones Generales por Meses
29. dField Text Label3 caption Recaudaci n Monetaria de DBGrid1 SelectedField Text Label1 caption En el Peri do datetostr DateTimePicker1 Date a datetostr DateTimePicker2 Date Animatel Active False StatusBar1 SimpleText Atenciones y Recaudaci n DBGrid1 SelectedField Text Query2 Close Query2 SQL Clear Query2 Sql Add SELECT CRCOD AS CODIGO CRDESC AS ESPECIALIDAD FROM CRSERVICIOS WHERE CRCOD gt codigoser AND CRCOD lt codigoserl Query2 Open DBGrid2 DataSource DataSource3 BitBtn3 Enabled True BitBtn4 Enabled True end else begin Query2 Close label1 caption Animatel Active False 40 Sistema de Informaci n Gerencial CRMs Manual T cnico StatusBar1 SimpleText Atenciones y Recaudaci n de DBGrid1 SelectedField Text showmessage No Hay Datos Que Mostrar end end if select end else if de arriba showmessage El Periodo Para La Consulta Es Inadecuado end procedure TFATerapias1 BitBtn3Click Sender TObject begin Impresion DecisionGraph1 PrinterSetupDialogl end procedure TFATerapias1 DBGrid1CellClick Column TColumn var servicio codigo string servicioi servicioil integer begin servicio DBGrid1 SelectedField Text Table1 Active True with Table1 do begin IndexFieldNames crdesser SetKey FieldByName crdesser AsString servicio Gotokey codigo Table1 FieldByName crcodser AsString end Table1
30. dd SELECT CRTRAN CRTSEX COUNT CRTRAN COUNT CRTSEX FROM VISTACRTRANP condicion GROUP BY CRTRAN CRTSEX DecisionQuery1 Open num DecisionQuery1 RecordCount if num gt 0 then begin DecisionCubel DataSet DecisionQueryl label1 caption En el Periodo datetostr DateTimePicker3 Date a datetostr DateTimePicker4 Date Animatel Active False StatusBar1 SimpleText Atenciones Generales por Sexo y Edades BitBtn3 Enabled True BitBtn4 Enabled True end else begin label1 caption Animatel Active False StatusBar1 SimpleText Atenciones Generales por Sexo y Edades showmessage No Hay Datos Que Mostrar end end else if de arriba showmessage El Periodo Para La Consulta Es Inadecuado end procedure TFASexoEdad BitBtn3Click Sender TObject begin Impresion Decisiongraphi1 PrinterSetupDialogl end procedure TFASexoEdad BitBtn4Click Sender TObject begin RASexoEdad QuickRep1 Preview end FORMA FPServicios var FPServicios TFPServicios fechai fechaf string dia mes anio dia1 mes1 anio1 word diac mesc anioc dia1c mes1c anio1c string condicion string num integer seleccion string implementation uses Ulmpresion Unit5 R DFM procedure TFPServicios BitBtn2Click Sender TObject begin if DateTimePicker1 Date lt DateTimePicker2 Date then begin Animate1 Active True Sistema de Informaci n Gerencial CRMs 19 Manual T c
31. e Contexto DEPOSITO datos Informaci n nformaci n REPORTE IMPRESORA estad stica estad stica Sistema de Informaci n Gerencial CRMs Manual T cnico Diagrama de nivel 0 Datos M dicos Ejecuci n de Informaci n Consulta Estructurada DEPOSITO Reporte Datos cuantificados Calculo de Informaci n Proyecciones Predictiva Informaci n de Existencia de datos Actualizaci n del dep sito Mandato de carga de datos Diagrama de nivel 1 Instrucci n de DEPOSITO j Cargar datos E filtrado de parcialmente Informaci n Cargar todos Instrucci n los datos transferencia de existentes en datos origen de datos actuales Sistema de Informaci n Gerencial CRMs Manual T cnico Diagrama de nivel 1 2 EJECUCI N DE CONSULTA DEPOSITO Validaci n de intervalo de tiempo a consultar Mensajes Datos periodo validado Ingreso de Par metros de Consulta Consulta SQL Env o de Inform Consulta ci n Estructurada Reporte Sistema de Informaci n Gerencial CRMs Manual T cnico Diagrama de nivel 1 3 CALCULO DE PROYECCIONES cuantificados Cuantificaci n de datos por meses de tres Salicitud Gr ficos de Barras Tabla de Datos C lculos C lculo de C lculo de Matem ticos Proyecciones Proyecciones para la formula de dos a os de dos a os Vf VA 1 i por meses trimestrales Datos w 09
32. ePage ProyMensuales fasigna el numero de columnas y filas a la cuadricula pagina Mensuales for af 1 to StringGrid1 RowCount 1 do for bc 1 to StringGrid1 ColCount 1 do StringGrid1 Cells bc af for af 1 to StringGrid2 RowCount 1 do for bc 1 to StringGrid2 ColCount 1 do StringGrid2 Cells bc af StringGrid1 ColCount 6 StringGrid2 ColCount 6 StringGrid1 RowCount 14 StringGrid2 RowCount 6 Decodedate Date aniohoy meshoy diahoy StringGrid1 Cells 0 0 MESES ANOS StringGrid1 Cells O 1 ENERO StringGrid1 Cells 0 2 FEBRERO StringGrid1 Cells 0 3 MARZO StringGrid1 Cells 0 4 ABRIL StringGrid1 Cells 0 5 MAYO StringGridi Cells 0 6 JUNIO StringGrid1 Cells 0 7 JULIO StringGridi Cells 0 8 AGOSTO StringGrid1 Cells 0 9 SEPTIEMBRE StringGrid1 Cells O 10 OCTUBRE StringGrid1 Cells 0 11 NOVIEMBRE StringGrid1 Cells 0 12 DICIEMBRE StringGridi Cells 0 13 TOTALES poner los titulos a cada columna de la cuadricula de datos StringGridi Cells 1 0 inttostr aniohoy 2 StringGrid1 Cells 2 0 inttostr aniohoy 1 StringGrid1 Cells 3 0 inttostr aniohoy StringGrid1 Cells 4 0 inttostr aniohoy 1 StringGrid1 Cells 5 0 inttostr aniohoy 2 poner los titulos a cada fila la cuadricula de datos en pagina Trimestres StringGrid2 Cells 0 1 I1 TRIMESTRE StringGrid2 Cells 0 2 I1 TRIMESTRE StringGrid2 Cells 0 3 T11 TRIMESTRE StringGrid2 Cells 0 4 IV T
33. echaf AND CRTESP CRCOD DecisionQuery2 SQL Add SELECT CRTESP1 SUM CRCATA FROM VISTACRTRANP CRSERVICIOS condicion GROUP BY CRTESP1 ORDER BY CRTESP1 DecisionQuery2 Open num DecisionQuery2 RecordCount if num gt 0 then begin DecisionCube2 DataSet DecisionQuery2 DecisionGrid1 DecisionSource DecisionSource2 DecisionGraphi1 DecisionSource DecisionSource2 DecisionGraph1 Title Text Text Representacion de Recaudaci n de Exonerados con costo A Label1 caption En el Peri do datetostr DateTimePicker1 Date a datetostr DateTimePicker2 Date Animatel Active False StatusBar1 SimpleText Atenciones Generales a Exonerados BitBtn2 Enabled True BitBtn4 Enabled False Query1 Close Query1 SQL Clear Query1 Sql Add SELECT DISTINCT CRTESP1 AS CODIGO CRDESSER AS SERVICIO FROM VISTACRTRANP CRSERVICIOSG WHERE CRTESP1 CRCODSER AND CRTFEA gt fechai AND CRTFEA lt fechaf ORDER BY CRTESP1 gt Query1 Open DBGrid1 DataSource DataSourcel end else begin label1 caption Query1 Close 33 Sistema de Informaci n Gerencial CRMs Manual T cnico Animatel Active False StatusBar1 SimpleText Atenciones Generales a Exonerados showmessage No Hay Datos Que Mostrar end end if select end else if de arriba showmessage El periodo para la consulta es inadecuado end FORMA FAEspecialidadSexo var FAEspecialidadSexo TFAEspecialidad
34. ecisionQuery1 SQL Add SELECT SUM CREVLT AS RECAUDACION_TOTAL_ATENCIONES FROM CRECAUP condicion DecisionQuery1 Open DBGrid1 DataSource DataSourcel condicion1 WHERE CREESP 4010101 OR CREESP 4010102 AND CREFET gt fechai AND CREFET lt fechaf DecisionQuery2 SQL Add SELECT SUM CREVLT AS RECAUDACION_ADMISION FROM CRECALUP condicioni DecisionQuery2 Open DBGrid2 DataSource DataSource2 Labeli Caption En el Periodo datetostr DateTimePicker1 Date a datetostr DateTimePicker2 Date a strtofloat DBGrid1 Columns Items 0 Field Text b strtofloat DBGrid2 Columns Items 0 Field Text Label4 Caption floattostrF a b ffGeneral 8 1 end else showmessage El Periodo Para La Consulta Es Inadecuado end FORMA FProyecciones var FProyecciones TFProyecciones diahoy meshoy aniohoy word V array 1 12 of integer vector para guardar la media T array 1 6 of integer totales C array 1 6 of Tcolor colores L array 1 6 of TLabel labels M array 1 24 of TLabel E array 1 4 of TLabel LE array 1 6 of TLabel implementation R DFM 23 Sistema de Informaci n Gerencial CRMs Manual T cnico procedure TFProyecciones FormActivate Sender TObject var af bc word begin FProyecciones WindowState wsMaximized BDatosR Enabled True BAnio Enabled False BTrim Enabled False BProy2 Enabled False BProy5 Enabled False PageControl1 Activ
35. en el centro El c digo que se ha dado a cada servicio corresponde a los primeros tres d gitos que se encuentran a la izquierda de los c digos de las especialidades que incluya el servicio por ejemplo si todas las especialidades de medicina general contienen un c digo que empiece en 402 entonces al servicio CRDESSER medicina general se le ingresar un CRCODSER igual a 402 Los c digos de especialidad se pueden mirar en la tabla CRSERVICIOS en el campo CRCOD1 PROVINCIAS Informaci n de Provincias CRSERVICIOSG CAMPO DESCRIPCI N CRTOPR C digo de provincia CRTODE Descripci n de provincia Esta tabla se transfiere desde el sistema AS 400 y corresponde a la denominaci n de las provincias del pa s en el sistema m dico FECHA Almacena fecha inicial de subconsulta de datos de CRTRANP Y CRECAUP CRSERVICIOSG CAMPO DESCRIPCI N FECHAI FECHA INICIAL DE CONSULTA NAMECENTRO NOMBRE DEL CENTRO MEDICO Tabla donde se almacenan la fecha inicial que sirve como par metro en las subconsultas de las tablas CRTRANP y CRECAUP La informaci n se obtiene del SIG en la Opci n Cargar datos Fecha Inicial Adem s en esta tabla se ha almacenado un campo que contiene el nombre del centro de rehabilitaci n donde funcionar el Sistema Gerencial 12 Sistema de Informaci n Gerencial CRMs Manual T cnico Diagrama Entidad Relaci n CRPACIP CRPNHC CRTRANP CRSERVICIOS CRPNOM 4 CRTNHC
36. es de DBGrid1 SelectedField Text Label3 caption Numero de Atenciones de DBGrid1 SelectedField Text Label1 caption En el Peri do datetostr DateTimePicker1 Date a datetostr DateTimePicker2 Date Animatel Active False BitBtn3 Enabled True BitBtn4 Enabled True StatusBar1 SimpleText Atenciones y Recaudaci n DBGrid1 SelectedField Text Query2 Close Query2 SQL Clear Query2 Sql Add SELECT CRCOD AS CODIGO CRDESC AS ESPECIALIDAD FROM CRSERVICIOS WHERE CRCOD gt codigoser AND CRCOD lt codigoserl Query2 Open DBGrid2 DataSource DataSource3 end else begin Query2 Close label1 caption Animatel Active False StatusBar1 SimpleText Atenciones y Recaudaci n DBGrid1 SelectedField Text showmessage No Hay Datos Que Mostrar end end del if select if op2 Checked True then begin condicion WHERE CRETKT IN SELECT CRTTKT FROM CRTRANP WHERE CRTFEA gt fechai AND CRTFEA lt fechaf AND CRTESP gt codigoser AND CRTESP lt codigoser1 DecisionQuery2 SQL Add SELECT CREESP SUM CREVLT FROM CRECAUP condicion GROUP BY CREESP ORDER BY CREESP DecisionQuery2 Open num DecisionQuery2 RecordCount if num gt 1 then begin DecisionCube2 DataSet DecisionQuery2 DecisionGrid1 DecisionSource DecisionSource2 DecisionGraphi1 DecisionSource DecisionSource2 DecisionGraph1 Title Text Text Recaudaci n Monetaria de DBGrid1 Selecte
37. formaci n Gerencial CRMs Manual T cnico Query1 Sql Add SELECT DISTINCT CRTESP1 AS CODIGO CRDESSER AS SERVICIO FROM VISTACRTRANP CRSERVICIOSG WHERE CRTESP1 CRCODSER AND CRTFEA gt fechai AND CRTFEA lt fechaf ORDER BY CRTESP1 gt Query1 Open DBGrid1 DataSource DataSourcel end else begin label1 caption Animatel Active False StatusBar1 SimpleText Atenciones Generales por Especialidad y Sexo Query1 Close showmessage No Hay Datos Que Mostrar end end else if de arriba showmessage El Periodo Para La Consulta Es Inadecuado end FORMA FAEspecialidadEdades var FAEspecialidadEdades TFAEspecialidadEdades fechai fechaf string dia mes anio dia1 mes1 anio1 word diac mesc anioc dia1c mes1c anio1c string condicion string num integer implementation uses Unit41 Ulmpresion Unit3 R DFM procedure TFAEspecialidadEdades FormActivate Sender TObject begin Decodedate Date anio mes dia DatetimePicker1 Date strtodate 01 inttostr mes inttostr anio 1 DatetimePicker2 Date Date label1 caption FAEspecialidadEdades Left 61 FAEspecialidadEdades Top 86 FAEspecialidadEdades Height 470 FAEspecialidadEdades Width 696 end procedure TFAEspecialidadEdades BitBtn2Click Sender TObject begin if DateTimePicker1 Date lt DateTimePicker2 Date then begin Animatel1 Active True StatusBar1 SimpleText Buscando Informac
38. i n Decodedate DateTimePicker1 Date anio mes dia Decodedate DateTimePicker2 Date anio1 mes1 dial anioc inttostr anio anio1c inttostr anio1 diac transfecha dia mesc transfecha mes 35 Sistema de Informaci n Gerencial CRMs Manual T cnico dia1c transfecha dial mesic transfecha mes1 fechai anioc mesc diac fechaf anio1c mes1c dialc DecisionCube1 DataSet nil DecisionQuery1 Close DecisionQuery1 SQL Clear condicion WHERE CRTFEA gt fechai AND CRTFEA lt fechaf DecisionQuery1 SQL Add SELECT CRTESP1 COUNT CRTESP1 CRTRAN FROM VISTACRTRANP condicion GROUP BY CRTESP1 CRTRAN ORDER BY CRTESP1 CRTRAN DecisionQuery1 Open num DecisionQuery1 RecordCount if num gt 0 then begin DecisionCube1 DataSet DecisionQueryl label1 caption En el Periodo datetostr DateTimePicker1 Date a datetostr DateTimePicker2 Date Animatel Active False StatusBar1 SimpleText Atenciones por Especialidad y Rangos de Edad BitBtn4 Enabled True Query1 Close Query1 SQL Clear Query1 Sql Add SELECT DISTINCT CRTESP1 AS CODIGO CRDESSER AS SERVICIO FROM VISTACRTRANP CRSERVICIOSG WHERE CRTESP1 CRCODSER AND CRTFEA gt fechai AND CRTFEA lt fechaf ORDER BY CRTESP1 gt Query1 Open DBGrid1 DataSource DataSourcel end else begin label1 caption Query1 Close Animate1 Active False StatusBar1 SimpleText Atenciones por Especialida
39. ive False StatusBar1 SimpleText Terapias y Servicios Brindados a los Pacientes showmessage No Hay Datos Que Mostrar end end else if de arriba showmessage El Periodo Para La Consulta Es Inadecuado end FORMA FATerapias2 var FATerapias2 TFATerapias2 fechai fechaf string dia mes anio dia1 mes1 anio1 word diac mesc anioc dia1c mes1c anio1c string 20 Sistema de Informaci n Gerencial CRMs Manual T cnico condicion string num integer codser codser1 codesp string implementation uses Ulmpresion R DFM procedure TFATerapias2 DBGrid1CellClick Column TColumn var servicio string servicioi servicioil integer begin servicio DBGrid1 SelectedField Text Table1 Active True with Tablei do begin IndexFieldNames crdesser SetKey FieldByName crdesser AsString servicio Gotokey codser Table1 FieldByName crcodser AsString end Table1 Close servicioi strtoint codser 10000 servicioi1 strtoint codser 1 10000 codser inttostr servicioi codser1 inttostr servicioil Query2 Close Query2 SQL Clear Query2 Sql Add SELECT CRDESC AS ESPECIALIDAD FROM CRSERVICIOS WHERE CRCOD gt codser AND CRCOD lt codserl Query2 Open DBGrid2 DataSource DataSource2 end procedure TFATerapias2 BitBtn2Click Sender TObject begin if DateTimePicker1 Date lt DateTimePicker2 Date then begin Animatel1 Active True StatusBar1 Simp
40. leText Buscando Informaci n Decodedate DateTimePicker1 Date anio mes dia Decodedate DateTimePicker2 Date anio1 mes1 dial anioc inttostr anio anio1c inttostr anio1 diac transfecha dia mesc transfecha mes dia1c transfecha dia1 mesic transfecha mes1 fechai anioc mesc diac fechaf anio1c mes1c dialc DecisionCube1 DataSet nil DecisionQuery1 Close DecisionQuery1 SQL Clear condicion WHERE CRTFEA gt fechai AND CRTFEA lt fechaf AND CRTESP codesp DecisionQuery1 SQL Add SELECT CRTRAN COUNT CRTRAN FROM VISTACRTRANP condicion GROUP BY CRTRAN ORDER BY CRTRAN 21 Sistema de Informaci n Gerencial CRMs Manual T cnico DecisionQuery1 Open num DecisionQuery1 RecordCount if num gt 0 then begin DecisionCube1 DataSet DecisionQueryl DecisionGrid1 DecisionSource DecisionSourcel DecisionGraph1 DecisionSource DecisionSourcel label3 Caption ATENCIONES POR RANGOS DE EDAD DE DBGrid2 SelectedField Text Label1 caption En el Peri do datetostr DateTimePicker1 Date a datetostr DateTimePicker2 Date Animatel Active False StatusBar1 SimpleText Atenciones por Rangos de Edad y Servicios Bitbtn3 Enabled True end else begin label1 caption Animatel Active False StatusBar1 SimpleText Atenciones por Rangos de Edad y Servicios showmessage No Hay Datos Que Mostrar end end else if de arriba showmess
41. nico label3 caption SERVICIOS BRINDADOS StatusBar1 SimpleText Buscando Informaci n Decodedate DateTimePicker1 Date anio mes dia Decodedate DateTimePicker2 Date anio1 mes1 dial anioc inttostr anio anio1c inttostr anio1 diac transfecha dia mesc transfecha mes dia1c transfecha dia1 mesic transfecha mes1 fechai anioc mesc diac fechaf anio1c mes1c dialc seleccion InttoStr SpinEditi Value DecisionCube1 DataSet nil DecisionQuery1 Close DecisionQuery1 SQL Clear condicion WHERE CRTNHC seleccion AND CRTFEA gt fechai AND CRTFEA lt fechaf DecisionQuery1 SQL Add SELECT CRTESP1 COUNT CRTESP1 FROM VISTACRTRANP condicion GROUP BY CRTESP1 ORDER BY CRTESP1 DecisionQuery1 Open num DecisionQuery1 RecordCount if num gt 1 then begin DecisionCube1 DataSet DecisionQueryl label1 caption En el Peri do datetostr DateTimePicker1 Date a datetostr DateTimePicker2 Date Al Paciente seleccion Animatel Active False StatusBar1 SimpleText Terapias y Servicios Brindados a los Pacientes Query1 Close Query1 SQL Clear Query1 Sql Add SELECT DISTINCT CRTESP1 AS CODIGO CRDESSER AS DESCRIPCION FROM VISTACRTRANP CRSERVICIOSG condicion AND CRTESP1 CRCODSER Query1 Open DBGrid1 DataSource DataSourcel BitBtn3 Enabled True BitBtn4 Enabled True end else begin label1 caption Query1 close Animatel Act
42. obtenida en la carga de datos del sistema CRTPATP Informaci n de las patolog as existentes CRTPATP CAMPO DESCRIPCI N CRTPCO C digo de la patolog a CRTPDE Descripci n de la patolog a Esta tabla igualmente se transfiere del sistema AS 400 completamente CRSERVICIOS Informaci n de los servicios existentes en el centro m dico CRSERVICIOS CAMPO DESCRIPCI N CRCOD C digo de la especialidad CRCATA Valor de la atenci n con categor a A CRDESC Descripci n de la especialidad CRCOD1 Agrupaci n por servicio La tabla se transfiere del sistema AS 400 y se adiciona un campo nuevo CRCOD1 calculado a partir de la divisi n de CRCOD para 10000 Esto se realiza para obtener un c digo de agrupaci n de servicio luego de transferir los datos con el campo calculado se debe redondear el valor ya que la divisi n entre CRCOD para 10000 retorna un real y as poder obtener un n mero de c digo aceptable O sea el campo CRCOD1 contendr los tres primeros d gitos desde la izquierda del numero que se encuentre en el campo CRCOD CRSERVICIOSG Informaci n de los c digos de agrupaci n de servicios CRSERVICIOSG CAMPO DESCRIPCI N CRCODSER C digo del servicio CRDESSER Descripci n del servicio 11 Sistema de Informaci n Gerencial CRMs Manual T cnico Esta tabla ha sido creada no corresponde a ninguna del sistema AS 400 Los campos que contiene es denominaci n que se ha hecho a cada servicio existente
43. olumn var nombre string begin if DBGrid1 SelectedIndex 0 then seleccion DBGrid1 SelectedField Text if DBGrid1 SelectedIndex 1 then begin nombre DBGrid1 SelectedField Text Tablel1 Active True with Tablei do begin IndexFieldNames crpnom SetKey FieldByName crpnom AsString nombre Gotokey seleccion Tablel FieldByName crpnhc AsString end end end FORMA FAPatologia var FAPatologia TFAPatologia fechai fechaf string dia mes anio dia1 mes1 anio1 word diac mesc anioc dia1c mes1c anio1c string condicion string num integer implementation uses Ulmpresion Unit42 Unit23 R DFM procedure TFAPatologia FormActivate Sender TObject begin Decodedate Date anio mes dia DatetimePicker1 Date strtodate 01 inttostr mes inttostr anio 1 DatetimePicker2 Date Date label1 caption end procedure TFAPatologia BitBtn2Click Sender TObject Sistema de Informaci n Gerencial CRMs 30 Manual T cnico begin if DateTimePicker1 Date lt DateTimePicker2 Date then if arriba begin Animatel1 Active True StatusBar1 SimpleText Buscando Informaci n Decodedate DateTimePicker1 Date anio mes dia Decodedate DateTimePicker2 Date anio1 mes1 dial anioc inttostr anio anio1c inttostr anio1 diac transfecha dia mesc transfecha mes dia1c transfecha dial mesic transfecha mes1 fechai anioc mesc diac fechaf anio1c mes1c dial
44. r1 Date lt Date TimePicker2 Date then begin Animate1 Active True StatusBar1 SimpleText Buscando Informaci n Decodedate DateTimePicker1 Date anio mes dia Decodedate DateTimePicker2 Date anio1 mes1 dial anioc inttostr anio anio1c inttostr anio1 diac transfecha dia mesc transfecha mes dia1c transfecha dial mesic transfecha mes1 fechai anioc mesc diac fechaf anio1c mes1c dialc DecisionCube1 DataSet nil DecisionCube2 DataSet nil DecisionQuery1 Close DecisionQuery1 SQL Clear DecisionQuery2 Close DecisionQuery2 SQL Clear condicion SELECT DISTINCT CRTNHC CRTRAN CRTSEX FROM VISTACRTRANP WHERE CRTFEA gt fechai AND CRTFEA lt fechaf 5AS P DecisionQuery1 SQL Add SELECT CRTRAN COUNT CRTRAN CRTSEX COUNT CRTSEX FROM condicion GROUP BY P CRTRAN P CRTSEX ORDER BY P CRTRAN P CRTSEX gt DecisionQuery1 Open num DecisionQuery1 RecordCount if num gt 1 then begin DecisionCube1 DataSet DecisionQueryl DecisionGrid1 DecisionSource DecisionSourcel DecisionGraphl1 DecisionSource DecisionSourcel Label1 caption En el Peri do datetostr DateTimePicker1 Date a datetostr DateTimePicker2 Date Animatel Active False StatusBar1 SimpleText Pacientes Clasificados por Sexo Edad BitBtn3 Enabled True BitBtn4 Enabled True end else begin label1 caption Animatel Active False StatusBar1 SimpleText Pacientes Cl
45. sionQuery1 SQL Add SELECT CRPSCA COUNT CRPSCA FROM VISTACRTRANP condicion GROUP BY CRPSCA ORDER BY CRPSCA DecisionQuery1 Active True num DecisionQuery1 RecordCount if num gt 1 then begin DecisionCube1 DataSet DecisionQueryl DecisionGrid1 DecisionSource DecisionSourcel DecisionGraphl1 DecisionSource DecisionSourcel Label1 caption En el Peri do datetostr DateTimePicker1 Date a datetostr DateTimePicker2 Date Animatel1 Active False StatusBar1 SimpleText Atenciones por Exonerados BitBtn2 Enabled True BitBtn4 Enabled True ListBox1 Visible True end else begin Animatel Active False StatusBar1 SimpleText Numero de Atenciones a Pacientes Exonerados Agrupados por Categorias label1 caption ListBoxl1 Visible False showmessage No Hay Datos Que Mostrar end end end FORMA FATERAPIASI var FATerapias1 TFATerapias1 fechai fechaf string dia mes anio dia1 mes1 anio1 word diac mesc anioc dia1c mes1c anio1c string condicion codigoser codigoser1 string num integer 38 Sistema de Informaci n Gerencial CRMs Manual T cnico implementation uses Ulmpresion Unit3 R DFM procedure TFATerapias1 FormActivate Sender TObject begin Decodedate Date anio mes dia DatetimePicker1 Date strtodate 01 inttostr mes inttostr anio 1 DatetimePicker2 Date Date label1 caption label3 caption Query1 Active True
46. t c word n word var f word tasa real p integer begin tasa 0 07 for f 1 to 12 do if StringGrid1 Cells c f then begin p round V f potencia 1 tasa n StringGrid1 Cells c f floattostr p end end function TFProyecciones Total StringG TStringGrid c word fi word ff word string Sistema de Informaci n Gerencial CRMs 26 Manual T cnico var suma integer t word begin suma 0 for t fi to ff do suma suma strtoint StringG Cells c t Total inttostr suma end procedure TFProyecciones BProy5Click Sender TObject var numpy tot word c fi ff trim word para proy trimestrales begin StringGrid1 ColCount 9 StringGrid2 ColCount 9 StringGrid1 Cells 6 0 inttostr aniohoy 3 StringGrid1 Cells 7 0 inttostr aniohoy 4 StringGrid1 Cells 8 0 inttostr aniohoy 5 StringGrid2 Cells 6 0 inttostr aniohoy 3 StringGrid2 Cells 7 0 inttostr aniohoy 4 StringGrid2 Cells 8 0 inttostr aniohoy 5 for numpy 4 to 7 do begin media StringGrid1 numpy Proyeccion StringGrid1 numpy 2 numpy end for tot 6 to 8 do StringGrid1 Cells tot 13 Total StringGridi tot 1 12 Edit1 text Se ha calculado las proyecciones de cinco a os futuros for c 1 to StringGrid1 ColCount 1 do begin fi 1 ff 3 for trim 1 to 4 do begin StringGrid2 cells c trim total StringGridi c fi fF fi ff 1 ff ff 3 end StringGrid2 cells c 5 total StringGrid2 c 1 4
47. umnas obtenidas en la transferencia Para lograr buenos resultados fue necesario la creaci n de columnas calculadas bas ndose en mas de una columna original La manera t cnica de lograr este requisito para el funcionamiento del sistema se denomina vistas de SQL Procesos de mantenimiento y automatizaci n Para la actualizaci n permanente de la base de datos se automatiz los procesos de transferencia de datos mediante herramientas del manejador de base de datos con tareas programadas llamadas paquetes y adem s se implement en el SIG la ejecuci n de las tareas en el momento que se requieran M todos utilizados en la Implementaci n M todo utilizado para las proyecciones del sistema El m todo elegido para utilizarse en l c lculo de datos futuros a partir de datos tomados de la experiencia del CRM4 se fundamenta en la evaluaci n e interpretaci n de los mismos mediante m todos cronol gicos y de promedios m viles Sistema de Informaci n Gerencial CRMs Manual T cnico Al hacer el an lisis de los datos primeramente como cambian en el tiempo es decir si las atenciones del centro de rehabilitaci n aumentan sistem ticamente conforme con el paso de los meses de cada a o o cambiaban en otras formas se determina que el mejor m todo cuantitativo para las proyecciones es un m todo usado en la evaluaci n de proyectos econ micos denominado M todo de Entrada Salida basado en la formula de c lculo siguiente
Download Pdf Manuals
Related Search