%
Dim SQLtxt
Dim rs
Dim rsRechArt
Dim ArztID
Dim RechNr
Dim BelegNr
%>
<%
Sub CheckLogin()
Dim SQLtxt
ArztID = 0
If len(Request.Form("txtRechNr"))>0 Then
RechNr=Request.Form("txtRechNr")
else
RechNr=0
End If
If Session("login")="OK" Then
' Response.Write("Login ist OK")
If len(Session("ArztID")) Then
ArztID=Session("ArztID")
Else
Response.Write("Kundennr. fehlt trotz Anmeldung OK")
Response.End()
End If
Else
Response.Write("Bitte geben Sie erst Ihre Zugangsdaten ein")
Response.End()
End If
set rsRechArt=Nothing
SQLtxt="SELECT * FROM KZ_Rechnungsart"
' Response.Write(SQLtxt)
Call dbConnect(C_CONNECTIONSTRING)
Set rsRechArt = dbExecuteSQL(SQLtxt)
If rsREchArt.EOF then
Response.Write("Keine Rechnungsarten vorhanden")
Response.end()
End If
End Sub
%>
BIPAS - Arztabrechnungen
Die folgende Anleitung
erklärt Schritt für Schritt den Gebrauch der
BIPAS online-Auskunft.
Sie benötigen zum Betrachten
den Adobe Acrobat Reader. Sollten Sie diesen noch nicht
installiert haben, können Sie ihn unter beigefügtem
Link erhalten