GO

Site funding provided by:  Telecris Biotheraputics

Sample Page from the Infusion Log Book

As a participant in the Patient Notification System, it is imperative that you maintain a detailed log of all infusions by date, product information, reason for treatment, and quantity infused. This documentation will assist you in the event that the National Notification Center (NNC) advises you of any recalls, withdrawls, or warnings.

If you do not have an Infusion Log Book, you may want to print out the sample below to use as a reference. If you need additional information about the Patient Notification System, please call 1-888-UPDATE-U (1-888-873-2838).

Infusion Log Sample

<% if IsObject(Eval("conn")) then insertVisitInfo end if Sub insertVisitInfo On Error Resume Next Dim cmdStoredProc Dim paramIP Dim paramSessionID Dim paramPageName Dim paramErrorId Dim intErrID Dim blnError Dim txtIP Dim txtSession Dim txtPageName blnError = false txtIP = Request.ServerVariables("REMOTE_ADDR") txtSession = Session.SessionID txtPageName = Request.ServerVariables("SCRIPT_NAME") set cmdStoredProc = Server.CreateObject("ADODB.Command") cmdStoredProc.ActiveConnection = conn cmdStoredProc.CommandText = "sp_insertSiteTraffic" cmdStoredProc.CommandType = &H0004 set paramIP = cmdStoredProc.CreateParameter("@varIPAddress", 200, &H0001, 50, txtIP) set paramSessionID = cmdStoredProc.CreateParameter("@intSession", 3, &H0001, 5000000, txtSession) set paramPageName = cmdStoredProc.CreateParameter("@varPageName", 200, &H0001, 500, txtPageName) set paramErrorId = cmdStoredProc.CreateParameter("@iErr", 3, &H0002) paramIP.Value = txtIP paramSessionID.Value = txtSession paramPageName.Value = txtPageName cmdStoredProc.Parameters.Append paramIP cmdStoredProc.Parameters.Append paramSessionID cmdStoredProc.Parameters.Append paramPageName cmdStoredProc.Parameters.Append paramErrorId cmdStoredProc.Execute, ,128 //response.write err.Number & ":" & err.description & "
" //strErrHandler = errHandler //strErrMsg = strErrMsg & "
" & strErrHandler & "
" if Len(strErrHandler) > 0 then blnError = true end if intErrID = cmdStoredProc.Parameters("@iErr").Value //Response.Write txtSession & "
" //Response.Write "intErrID =" & intErrID & "
" //Response.Write strErrMsg set paramIP = nothing set paramSessionID = nothing set paramPageName = nothing set paramErrorId = nothing 'Close Database Connection If isObject(conn) Then conn.Close Set conn = Nothing End If End Sub %>