

<cfparam name="url.inv" default="0">
<cfquery name="GetTable" datasource="#Application.DataSrc#">
        SELECT TABLE_SCHEMA  FROM INFORMATION_SCHEMA.COLUMNS  WHERE TABLE_SCHEMA like '%agency_%'
        group by  TABLE_SCHEMA
</cfquery>
<cfset database=arraynew(1)>

<cfloop query="GetTable">
    <cfset database[CurrentRow]= TABLE_SCHEMA>
</cfloop>
<cfset Request.patient_status = '0,1,4'>
    
<cfloop from=1 to=#ArrayLen(database)# index=ind>
    <cfset Request.prefix_db_agency = #database[ind]# />
    <cfset agencynumber  =ListToArray(#Request.prefix_db_agency#,'_')/> 
    <cfset agency_id = agencynumber[2] />
    <cfif Request.prefix_db_agency NEQ '1150'>
        <cfquery  name="GetI" datasource="#Application.DataSrc#">
            SELECT Invoice_ID FROM #Request.prefix_db_agency#.Invoices i 
            WHERE i.Deleted <> 1 
            Group by i.Invoice_Id
        </cfquery>
        <cfoutput query="GetI"> 
            <cfquery name="Update_paymet_seq" datasource="#Application.DataSrc#"> 
                UPDATE #Request.prefix_db_agency#.Payments AS p
                JOIN #Request.prefix_db_agency#.Invoices AS i ON i.Invoice_ID = p.Invoice_ID
                JOIN (
                    SELECT MAX(PaymentDate) AS LatestPaymentDate
                    FROM #Request.prefix_db_agency#.Payments
                    WHERE Invoice_ID = #Invoice_ID# AND Deleted <> 1
                ) AS latest ON p.PaymentDate = latest.LatestPaymentDate
                SET p.Pay_Seq_Amount = i.Seq_Amount,
                    p.Pay_outlier = i.outlier,
                    p.Pay_Seq_code = i.Seq_code
                WHERE p.Deleted <> 1
                  AND i.Deleted <> 1
                  AND p.Invoice_ID = #Invoice_ID#
                  AND (IFNULL(p.Payment_Lock,0) <> 1)
            </cfquery> 
        </cfoutput>
    </cfif>
</cfloop>






    
    