Judgment Fund Reports

<%@ Language=VBScript %> Judgment Fund Reports <% ' VI 6.0 Scripting Object Model Enabled %> <% if StartPageProcessing() Then Response.End() %> <% Dim path, TransferFldr,fil Dim objFSO Dim dtmLastUpdated Dim conObj,rstObj Dim OldGroupName Set objFSO = Server.CreateObject("Scripting.FileSystemObject") 'path = "\\fmssql02\Judgement" path = "D:\FMSAdmins\JudgementFunds" Set TransferFldr = objFSO.GetFolder(path) Set fil = TransferFldr.Files.Item("Judgment.txt") dtmLastUpdated = fil.DateLastModified 'dtmLastUpdated = "9/27/01" OldGroupName = "" 'create and open connection object set conObj = Server.CreateObject("ADODB.Connection") conObj.Mode = adModeRead conObj.CursorLocation = adUseClient conObj.Open Application("judgment_ConnectionString"), Application("Judgment_RuntimeUserName"), Application("Judgment_RuntimePassword") %>

Search Judgment Fund Transactions by Agency

Records updated <%= dtmLastUpdated %>.
Retrieves records up to 3 years old.

Claims can be searched by Underlying Agency (required) and agency reference number, the received date, ID number or payment amount.

For Federal Program Agencies only: The information displayed on this website is for the purpose of tracking the status of submitted Judgment Fund claims only. It should not be used for accounting and auditing purposes. The Judgment Fund Aurthorized User Website contains more complete information that is helpful for these purposes. Agencies that require information for accounting and/or auditing purposes should contact the Judgment Fund Branch of FMS in order to gain access to the Judgment Fund Authorized User Website.

Agency: (Required)

Single
Group

Agency Reference Number:

Date:

Received Paid

From: (mm/dd/yyyy)

To: (mm/dd/yyyy)

Payment Amount:

Equal Less Greater

(Type 10000, NOT 10,000)

ID Number:

Some reports may be quite large and may take time to load.

The reports will be generated in appropriation report order, 20x1740, 20x1741, 20x1742 and 20x1743.

<% ' VI 6.0 Scripting Object Model Enabled %> <% EndPageProcessing() %>

<% Sub CreateGrpDDBox(ByVal GrpID, GrpName, AgName, ByRef OldGrpID) If OldGrpID = GrpID Then Response.Write "" Else Response.Write "" OldGrpID = GrpID Response.Write "" End If End Sub %>