
<cfquery name="GetTable" datasource="#Application.DataSrc#">
		SELECT TABLE_SCHEMA  FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_SCHEMA like '%agency_1150%' group by  TABLE_SCHEMA
</cfquery>
<cfset database=arraynew(1)>

<cfloop query="GetTable">
	<cfset database[CurrentRow]= TABLE_SCHEMA>
</cfloop>


<cfloop from=1 to=#ArrayLen(database)# index=ind>
	<cfset Request.prefix_db_agency = #database[ind]# />
	<cfquery name="GetVisits" datasource="#Application.DataSrc#">
			<cfsetting requesttimeout="5000">
			  SELECT pSchedules.* , pSchedules.Schedule_ID, pSchedules.Total_Units, pSchedules.Visit_Date, pSchedules.Rev_ID,
				pAssessments.F300  AS HIPPS_Code,pAssessments.Assmt_ID,pAssessments.F26 AS  Assessment_Reason_M0100,
				pAssessments.F177 Certification_Start,pAssessments.F178 Certification_End,pAssessments.Patient_ID ,
				pRevenue_Code.Measure, pRevenue_Code.EClaim_Price,pRevenue_Code.Contract_Rate,
				pRevenue_Code.Contract_Rate_Effective_Date, pRevenue_Code.Contract_Rate_End_Date,
				pRevenue_Code.Payer_ID, pRevenue_Code.Visit_Type
      	FROM  #Request.prefix_db_agency#.pSchedules,
      	 #Request.prefix_db_agency#.pAssessments, #Request.prefix_db_agency#.pRevenue_Code
      	WHERE   pAssessments.Assmt_ID = pSchedules.Assmt_ID
      	AND pRevenue_Code.Rev_CodeID =  pSchedules.Rev_ID
        AND pSchedules.Status = 0
        AND  pSchedules.Invoice_ID > 0 
        AND pRevenue_Code.Contract_Rate > 0
        AND pSchedules.Total_Contract = '0.00'
         AND pAssessments.Status = 0
	</cfquery>


	<cfoutput query="GetVisits"> 
        <cfif GetVisits.Measure EQ 'visit'>
          	<cfset totalUnits = 1>
        <cfelse>
          <cfset totalUnits = GetVisits.Total_Units>
        </cfif>
        
        <!--- Check if the contract rate is valid for the visit date --->
        <cfset useContractRate = true>
        <cfif isDefined("GetVisits.Contract_Rate_Effective_Date") AND GetVisits.Contract_Rate_Effective_Date NEQ "">
        	<cfif GetVisits.Visit_Date LT GetVisits.Contract_Rate_Effective_Date>
        		<cfset useContractRate = false>
        	</cfif>
        </cfif>
        <cfif isDefined("GetVisits.Contract_Rate_End_Date") AND GetVisits.Contract_Rate_End_Date NEQ "">
        	<cfif GetVisits.Visit_Date GT GetVisits.Contract_Rate_End_Date>
        		<cfset useContractRate = false>
        	</cfif>
        </cfif>
        
        <cfif useContractRate>
      		<!--- <cfset Request.Total_Price = totalUnits * GetVisits.EClaim_Price /> --->
      		<cfset Request.Total_Contract = totalUnits * GetVisits.Contract_Rate  />
      	<cfelse>
      		<!--- No valid contract rate for this date, set to 0 --->
      		<cfset Request.Total_Contract = 0>
      	</cfif>
      	
      	<cfquery name="Update_VisitsEclaims" datasource="#Application.DataSrc#"> 
        		UPDATE #Request.prefix_db_agency#.pSchedules SET 
            <!--- Total_Eclaim = #NumberFormat(Request.Total_Price,'_____.__')#, --->
            Total_Contract = #NumberFormat(Request.Total_Contract,'_____.__')#
        		WHERE Schedule_ID = #Schedule_ID#
  		</cfquery> 
    </cfoutput>


</cfloop>



