 ©
Programa
para la gestión de clínicas dentales |
|
|
<%
dim accion
dim cn
dim cn4
dim rsAcceso
dim rsControl
dim rsParam
dim sSql
dim sSql2
dim sSql4
dim cadena
dim Err
accion=Request.QueryString("acc")
if accion = "d" then
Set cn4 = Server.CreateObject("ADODB.Connection")
cn4.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.MapPath("/db/drtooth.mdb")
set rsParam = server.CreateObject("ADODB.RecordSet")
cadena = session("Log") & session("id") & date & session("Hora")
sSql4="SELECT * FROM Control where id = '" & cadena & "'"
rsParam.Open sSql4,cn4,2,3
if not rsParam.eof and not rsParam.bof then
rsParam.MoveFirst
rsParam.Fields("Fin") = time
rsParam.Update
rsParam.Close
end if
cn4.close
session("Log")=""
session("Pass")=""
session("Hora") = ""
session("id") = ""
if session("Conect") <> 1 then
session.abandon
end if
elseif accion="c" then
response.expires = -1500
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.MapPath("/db/drtooth.mdb")
set rsAcceso = server.CreateObject("ADODB.RecordSet")
sSql = "SELECT * FROM acceso where user='" & request("txtLog") &"'"
rsAcceso.Open sSql,cn,3
if rsAcceso.eof and rsAcceso.bof then
Err = "Usuario no Valido"
elseif rtrim(request("txtPass"))<> rtrim(rsAcceso("Pass")) then
Err = "PassWord Incorrecta"
else
session("Log")=rtrim(rsAcceso("User"))
session("Pass")=rtrim(rsAcceso("Pass"))
session("Hora") = time
session("id") = session.sessionid
set rsControl = server.CreateObject("ADODB.RecordSet")
sSql2 = "SELECT * FROM control"
rsControl.Open sSql2,cn,2,3
rsControl.AddNew
rsControl.fields("Log") = session("Log")
rsControl.fields("IP") = Request.ServerVariables("HTTP_CLIENT_IP")
rsControl.fields("Fecha") = date
rsControl.fields("Inicio") = time
rsControl.fields("sesion") = session("id")
rsControl.fields("id") = session("Log") & session("id") & date & session("Hora")
rsControl.Update
rsControl.Close
end if
rsAcceso.Close
cn.close
end if
%>
|
|
|
|
| Agenda
Citas |
|
Es
la gestión de la agenda. Cada doctor tiene una agenda
y previamente se memoriza la disponibilidad de cada doctor
(es decir el horario de trabajo - ver
parrafo "Datos - Doctores") y los horarios de
apertura de la clínica. Esto para que después
cada agenda refleje los horarios disponibles.
Estas
son las funciones:
Gestión
Esta
función permite la gestión de la agenda. Se
puede visualizar de dos formas: semanal y diaria. Cada hora
esta dividida en cuartos de hora. Semanalmente será
visualizada la semana donde serán indicados con un
“punto” los cuartos de horas disponibles, con una “x” lo que
están ocupados y “vacío” los que no están
disponibles (o que el doctor no está o que la clínica
esta cerrada).
En
la parte inferior hay un espacio donde se pueden memorizar notas libres
por cada día. Cada vez que se selecciona un día será
visualizada la nota correspondiente.
Una
función muy importante es la búsqueda automática
de disponibilidad en la agenda. Indicando unos parámetros
(días de la semana, franja horaria, duración de la
cita y periodo) el programa encontrará el primer horario disponible
con estas características. |
|
Impresiones
Esta
función permite realizar las siguientes impresiones:
|
Citas por pacientes |
Imprime
todas las citas de un paciente.
|
|
Citas por doctor |
Imprime
todas las citas de un doctor.
|
|
Imprimir síntesis/detalle |
Imprime
la agenda con vista semanal o diaria.
|
| Imprimir LLamadas |
Imprime
los pacientes que hay que llamar. ( ver el
párrafo Ficha Paciente - Llamadas)
|
|
Fichas pacientes con cita |
Imprime
las fichas de los pacientes que tienen cita en el día.
|
| Citas
nulas |
Imprime
todas las citas nulas (es decir los paciente que han fallado)
de un periodo seleccionado. |
Otra
función destacable es la de las CITAS NULAS.
Se pueden marcar las citas nulas de los pacientes (es decir
cuando el paciente no ha venido sin avisar con tiempo). Es
suficiente posicionarse en la cita y presionar la tecla F8,
será requerida la confirmación (mísma
operación para quitar el estado de cita nula). La cita
(el nombre del paciente) será evidenciada en color
rojo (cita nula). Cuando se quiera memorizar una cita con
un paciente que a fallado una o más citas será
visualizado un mensaje avisando del numero de citas nulas
que ha tenido el paciente.
Volver
|
|
DrTooth
es un programa especifico para la gestión de clínicas dentales,
consultorio y gabinetes odontológicos desarrollado por Celdas. Este software
odontológico realiza todas las funciones para la gestión de un
gabinete odontológico: gestión ficha pacientes, odontograma, ficha
periodontal, anamnesis, presupuestos, sesiones, extractos de cuentas, listados
pacientes, agenda de citas, correspondencia, contabilidad etc.
©
2002 drtooth.net
|
