 ©
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
%>
|
|
|
Volver Ficha Paciente
|
LLAMADAS |
|
Esta
función permite gestionar las llamadas a los pacientes (para controles,
felicitaciones, etc..). En la ficha paciente se puede memorizar día y
motivo de la llamada que hay que hacer al paciente. En el caso haya
uno o mas llamadas memorizadas en la ficha la escrita del botón ("Llam.")
se pondrá en negrita avisándonos que hay algo registrado en la ficha.
Después
a través de la función Imprimir llamadas (en el menú de citas, ver
párrafo “Citas”) se pueden imprimir todas las llamadas por hacer en
un determinado periodo. Serán imprimidos los nombres de los pacientes,
los motivos de las llamadas y los números de teléfonos de manera que la
secretaria pueda realizar las llamadas para concertar las citas..
Volver Ficha Paciente
|
|
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
|
