<!---<cfquery name="ClearStatus" datasource="#Application.DataSrc#">
	UPDATE  #Request.prefix_db_agency#.Invoices SET  Deleted = 1  where invoice_id='#url.inv#'
</cfquery>

<cfquery name="Delete_Payment" datasource="#Application.DataSrc#">
	UPDATE  #Request.prefix_db_agency#.Payments  SET  Deleted = 1 where Invoice_ID ='#url.inv#'
</cfquery>--->

<cfquery name="GET" datasource="#Application.DataSrc#">
 SELECT DISTINCT
 si.Rev_Code,si.Visit_Type,si.HCPCS,si.Visit_Date,si.Total_Units,si.Total_Eclaim ,si.ScheduleItems_ID
 FROM   #Request.prefix_db_agency#.ScheduleItems si
 WHERE si.invoice_id = '#url.inv#'
 AND  si.Agency_ID = '#session.agencyid#'
 AND  si.deleted = 0
</cfquery>

<cfset invoiceTotal=0>
<cfset invoicetot=0>
<cfset invoicePayerId=0>
<cfset user = Session.EmployeeID>
<cfset Form.ScheduleItems_ID = 0>

<cfset Form.ScheduleItems_ID  = #ValueList(GET.ScheduleItems_ID,",")# />


<cfform name="file" enctype="multipart/form-data">
<cfif #parameterexists(Form.ScheduleItems_ID)#>

  <!--- Page specific code, such as queries and variable settings should go here --->
  <cfset invoiceTotal=0>
  <cfset invoicePayerId=0>

 <cfquery  name="GetTurbo" datasource="#Application.DataSrc#">
 select   p.TurboClaim,p.Payer_ID  from  #Request.prefix_db_agency#.Payer p
 JOIN #Request.prefix_db_agency#.Invoices i on i.PatientPayer_ID = p.Payer_ID
 where  i.invoice_id = '#url.inv#'
</cfquery>

  <!--- Get the visits that are checked off --->
  <cfquery name="GetVisits" datasource="#Application.DataSrc#">
<cfsetting requesttimeout="30">
 SELECT ScheduleItems.ScheduleItems_ID, ScheduleItems.Rev_Code, ScheduleItems.HCPCS, ScheduleItems.Visit_Date,
 ScheduleItems.Total_Units, ScheduleItems.Total_EClaim, ScheduleItems.Payer_ID, ScheduleItems.Assessment_Tracker_ID
 FROM #Request.prefix_db_agency#.ScheduleItems WHERE ScheduleItems.ScheduleItems_ID IN  (<cfqueryparam value="#Form.ScheduleItems_ID#" cfsqltype="CF_SQL_INTEGER" list="yes"/>)
</cfquery>

  <!--- Insert them into claim --->
  <cfloop query="GetVisits">
 <cfquery name="InsertVisits" datasource="#Application.DataSrc#">
  <cfsetting requesttimeout="30">
   Insert Into #Request.prefix_db_lookup#.Claim (Agency_Id, ScheduleItems_ID, Rev_Code, HCPCS, Total_Units, Visit_Date, Total_EClaim, Assessment_Tracker_ID, Payer_ID, Ticket)
   values ('#session.AgencyId#', '#ScheduleItems_Id#', '#Rev_Code#', '#HCPCS#', #decimalformat(Total_Units)#, #Visit_Date#, #NumberFormat(Total_EClaim,'_____.__')#, #Assessment_Tracker_ID#, #Payer_ID#, 1)
  </cfquery>
  </cfloop>

    <cfloop query="GetVisits">
    <cfquery name="InsertVisits" datasource="#Application.DataSrc#">
  <cfsetting requesttimeout="30">
   Insert Into #Request.prefix_db_lookup#.ClaimII (Agency_Id, ScheduleItems_ID)
   values ('#session.AgencyId#', '#ScheduleItems_Id#')
  </cfquery>
  </cfloop>

   <cfquery name="GetSupplies" datasource="#Application.DataSrc#">
<cfsetting requesttimeout="30">
 SELECT s.ScheduleItems_ID, s.Revenue_Code, s.HCPCS, s.Total_Units, s.Visit_Date, s.Assessment_Tracker_ID, s.Payer_ID, s.Total_Price, s.Ticket
 FROM #Request.prefix_db_lookup#.Supply_Sched s, #Request.prefix_db_lookup#.ClaimII c WHERE s.ScheduleItems_ID = c.ScheduleItems_ID
 and s.Deleted = 0
</cfquery>

 <cfloop query="GetSupplies">
    <cfquery name="InsertSupplies" datasource="#Application.DataSrc#">
  <cfsetting requesttimeout="30">
   Insert Into #Request.prefix_db_lookup#.ClaimII (ScheduleItems_ID, Rev_Code, HCPCS, Total_Units,  Total_EClaim, Assessment_Tracker_ID, Payer_ID, Ticket)
   values ('#ScheduleItems_Id#', '#Revenue_Code#', '#HCPCS#', #decimalformat(Total_Units)#,#NumberFormat(Total_Price,'_____.__')#, #Assessment_Tracker_ID#, #Payer_ID#, 1)
  </cfquery>
  </cfloop>

 <!--- Insert them into claim --->
  <cfquery name="InsertSupplies" datasource="#Application.DataSrc#">
<cfsetting requesttimeout="30">
 Insert Into #Request.prefix_db_lookup#.Claim (Agency_Id, ScheduleItems_ID, Rev_Code, HCPCS, Total_Units,  Assessment_Tracker_ID, Payer_ID, Total_EClaim, Ticket)
 SELECT '#session.AgencyId#', ScheduleItems_ID, Rev_Code, HCPCS, Total_Units,  Assessment_Tracker_ID, Payer_ID, Total_EClaim, 1
 From #Request.prefix_db_lookup#.ClaimII
 Where Assessment_Tracker_ID != 0
</cfquery>

 <cfquery datasource="#Application.DataSrc#" name="Update_Flags">
 <cfsetting requesttimeout="30">
  DELETE FROM ClaimII
 </cfquery>


<!--- Get all the data from claim, assessment, patient, etc to put on claim, within cert period --->
<cfquery name="Getdata" datasource="#Application.DataSrc#">
<cfsetting requesttimeout="30">
SELECT DISTINCT  Claim.ScheduleItems_ID,
	i.Invoice_ID,i.InvoiceTotal, i.PayerBalance,i.assessment_tracker_id ,i.errors,i.TOB,i.Internal_control_number,
    i.claim_status,i.Error_description,i.PatientPayer_ID,
    i.patient_id,
	ID,claim_bill.Type_of_Bill , Assignment_Accept ,Submitter_ID , Receiver_ID , Agency_Name ,Agent_FEIN , Agency_Contact ,Agency_Contact_Phone , PayName ,
  ANPI,Agency_Address1 ,Agency_City , Agency_State ,Agency_Zip , Last_Name_M0040 ,First_Name_M0040 , HI_Claim_Number ,Street_Address ,City ,
  State_M0050 ,Zip_M0060 ,DOB_M0066 ,Gender_M0069 ,Payer_Number ,PayAdd1 ,PayCity ,PayState ,PayZip ,Certification_start ,claim_bill.Certification_end ,
  Start_of_Care_M0030 ,Source_of_Admission ,Admission_Status ,Claim_Key ,HHRG_175_Score ,HHRG_230_Score ,HHRG_250_Score ,HHRG_390_Score ,
  HHRG_420_Score ,HHRG_440_Score ,MSA_Code ,Referring_LastName as LastName,Referring_FirstName as FirstName ,Referring_PNPI as PNPI ,Certifying_LastName ,
  Certifying_FirstName ,
  Certifying_PNPI,Agency_Assigned_ID,Telephone, Assessment_Reason_M0100
  ,(SELECT MIN(Visit_Date)
    FROM   #Request.prefix_db_lookup#.Claim
	WHERE  Agency_Id = '#session.AgencyId#'
	AND    Assessment_Tracker_Id = i.Assessment_Tracker_Id
   ) AS FirstVisitDate
    ,(SELECT MIN(Total_Units)
    FROM   #Request.prefix_db_lookup#.Claim
	WHERE  Agency_Id = '#session.AgencyId#'
	AND    Assessment_Tracker_Id = i.Assessment_Tracker_Id
   ) AS Units,Claim.*
   
    FROM  #Request.prefix_db_agency#.claim_bill  
	JOIN #Request.prefix_db_agency#.Invoices i ON claim_bill.Invoice_ID = i.Invoice_ID
	JOIN #Request.prefix_db_lookup#.Claim  ON  Claim.Assessment_Tracker_Id = i.Assessment_Tracker_ID
	WHERE i.invoice_id = '#url.inv#'
    AND  i.Agency_ID = '#Session.AgencyId#'
	AND   i.Deleted <> 1
    AND   i.InvoiceTotal > 0
	AND  Claim.Total_EClaim > '0.0000'
    <!---GROUP BY i.invoice_id--->
</cfquery>



  <!--- Initialize variables --->
  <cfset Paydate =''>
  <cfset Pad = 0 />
  <cfset invoiceTotal=0>
  <cfset c = 0 />
  <cfset finaldata = "">
 <!--- <cfset agencyIds = ArrayNew(1) />
  <cfset assessmentTrackerIds = ArrayNew(1) />
  <cfset patientIds = ArrayNew(1) />
  <cfset invoiceAmounts = ArrayNew(1) />
  <cfset patients = ArrayNew(1) />
  <cfset invAmts  = ArrayNew(1) /> --->

  <cfset finaldata = "">
  <!--- GetData Value: <cfdump var="#GetData#"><br> --->
  <cfset invoicetot = arraynew(1) />
  <cfset ctr = 0 />
  <cfoutput query="GetData" group="Assessment_Tracker_ID">
  
  <cfquery name="GetAssessments" datasource="#Application.DataSrc#">
SELECT * FROM  #Request.prefix_db_agency#.Assessment_New  
WHERE Assessment_Tracker_ID = #Getdata.Assessment_Tracker_ID#
 </cfquery>
 
  <cfquery name="GetPayer" datasource="#Application.DataSrc#">
SELECT * FROM  #Request.prefix_db_agency#.Payer
WHERE Payer_ID = #Getdata.PatientPayer_ID#
 </cfquery>
 
 

    <!--- Used for counting the number of 329 iterations --->
    <cfset ctr_329 = 2>
    <!--- Used for counting the number of 322 iterations --->
    <!--- Used for counting the number of Diagnoses --->
    <cfset GetData.Gender_M0069 = #Mid(GetData.Gender_M0069,5,1)#>
    <cfset YB = '4'>
    <!--- Get first character from Source_of_Admission field value --->
    <cfset GetData.Source_of_Admission = #Left(GetData.Source_of_Admission,1)#>
    <cfset GetData.Admission_Status = #Left(GetData.Admission_Status,2)#>
    <cfif len(GetData.Agency_Zip) GT 5>
    	<cfset GetData.Agency_Zip = #Replace(GetData.Agency_Zip,"-","","ALL" )#>
			<cfelse>
		<cfset GetData.Agency_Zip = #Left(GetData.Agency_Zip,5)# & '1901'>
    </cfif>
    <cfif GetAssessments.Admission_Description does not contain 'Q' or GetAssessments.Admission_Description eq ''>
    	<cfset QCode = 'Q5001'>
			<cfelse>
		<cfset QCode = #Trim(GetAssessments.Admission_Description)#>
    </cfif>
    <cfset GetData.PayZip = #Left(GetData.PayZip,5)# & '9999'>
    <!--- Create ISA Header --->
    <!--- Matches up with IEA Trailer | after data    --->

    <cfset var1 = "">

    <cfset ISA = #DateFormat(Now(),"MMDDHHMMSS")#>
    <cfset ISA13 = #Right(ISA,9)#>
    <cfset GS06 = #DateFormat(Now(), "MMSS")#>
    <cfset ST02 = #DateFormat(Now(), "hmmss")#>
    <cfif c eq 0>
    </cfif>
    <cfset c = c + 1>

    <!--- JDB: Move the cfset below back inside the c eq 0 above when the time comes --->
    <cfset finaldata = finaldata &
		"ISA*00*          *00*          *ZZ*00             *ZZ*               *#DateFormat(Now(), "YYMMDD")#*#DateFormat(Now(), "HHMM")#*U*00501*#ISA13#*0*P*>~" & chr(13)& chr(10) &
		"GS*HC*#GetData.Submitter_ID#*#GetData.Receiver_ID#*#DateFormat(Now(), "YYYYMMDD")#*#DateFormat(Now(), "HHMM")#*#GS06#*X*005010X223A2~" & chr(13)& chr(10) &
		"ST*837*#ST02#*005010X223A2~" & chr(13)& chr(10) &
		"BHT*0019*00*00000#YB#*#DateFormat(Now(), "YYYYMMDD")#*#DateFormat(Now(), "HHMM")#*CH~" & chr(13)& chr(10) &
		<!--- "REF*87*005010X223A2~"  & chr(13)& chr(10) & --->
		"NM1*41*2*#UCase(GetData.Agency_Name)#*****46*#GetData.Agent_FEIN#~"  & chr(13)& chr(10) &
		"PER*IC*#UCase(GetData.Agency_Contact)#*TE*#Left(GetData.Agency_Contact_Phone,3)##Mid(GetData.Agency_Contact_Phone,5,3)##Mid(GetData.Agency_Contact_Phone,9,4)#~" & chr(13)& chr(10) &
		"NM1*40*2*#UCase(GetData.PayName)#*****46~"& chr(13)& chr(10) &
		"HL*1**20*1~" & chr(13)& chr(10) &
		"PRV*BI*PXC*251E00000X~" & chr(13)& chr(10) &
		"NM1*85*2*#UCase(GetData.Agency_Name)#*****XX*#GetData.ANPI#~"  & chr(13)& chr(10) &
		"N3*#UCase(GetData.Agency_Address1)#~"  & chr(13)& chr(10) &
		"N4*#UCase(GetData.Agency_City)#*#UCase(GetData.Agency_State)#*#GetData.Agency_Zip#~" & chr(13)& chr(10)>

    <cfoutput group="Claim_ID">
	  <cfif GetData.Total_EClaim neq ''>
      <cfset invoiceTotal=invoiceTotal+GetData.Total_EClaim>
      <cfset  arrayappend(invoicetot,#invoiceTotal#) >
	  <!---<cfset CONTRO = #DateFormat(Now(),"YYMMDDHHMMSS")#>
      <cfset CONTROL = #session.AgencyId#&'-'&#CONTRO# />--->
	  <cfset CONTROL = GetData.Internal_control_number />
	  </cfif>
	  <cfif GetData.Total_EClaim eq ''>
	  <cfset invoiceTotal=invoiceTotal>
	  </cfif>
      <cfset invoicePayerId=#Payer_ID#>
    </cfoutput>
    <cfset finaldata = finaldata &
		"REF*EI*#GetData.Agent_FEIN#~"  & chr(13)& chr(10) &
		"PER*IC*#UCase(GetData.Agency_Contact)#*TE*#Left(GetData.Agency_Contact_Phone,3)##Mid(GetData.Agency_Contact_Phone,5,3)##Mid(GetData.Agency_Contact_Phone,9,4)#~" & chr(13)& chr(10) &
		"HL*2*1*22*0~" & chr(13)& chr(10) &
		"SBR*P*18**#UCase(GetData.PayName)#*****MA~" & chr(13)& chr(10) &
		"NM1*IL*1*#UCase(GetData.Last_Name_M0040)#*#UCase(GetData.First_Name_M0040)#****MI*#GetData.HI_Claim_Number#~"& chr(13)& chr(10) &
		"N3*#UCase(GetData.Street_Address)#~"& chr(13)& chr(10) &
		"N4*#UCase(GetData.City)#*#GetData.State_M0050#*#GetData.Zip_M0060#~"  & chr(13)& chr(10) &
		"DMG*D8*#DateFormat(GetData.DOB_M0066,"yyyymmdd")#*#GetData.Gender_M0069#~"& chr(13)& chr(10) &
		"NM1*PR*2*#UCase(GetData.PayName)#*****PI*#GetData.Payer_Number#~"& chr(13)& chr(10) &
		"N3*#UCase(GetData.PayAdd1)#~"& chr(13)& chr(10) &
		"N4*#UCase(GetData.PayCity)#*#GetData.PayState#*#GetData.PayZip#~"& chr(13)& chr(10) &
		"CLM*#CONTROL#*#invoiceTotal#***#Left(GetData.Type_of_Bill,2)#>A>#Right(GetData.Type_of_Bill,1)#**A*Y*Y*********~"& chr(13)& chr(10) & 	"DTP*434*RD8*#DateFormat(GetData.Certification_start,"yyyymmdd")#-#DateFormat(GetData.Certification_end,"yyyymmdd")#~"& chr(13)& chr(10) &
		"DTP*435*DT*#DateFormat(GetData.Start_of_Care_M0030,"yyyymmdd")#0001~"& chr(13)& chr(10) &
		"CL1*9*#GetData.Source_of_Admission#*#GetData.Admission_Status#~"& chr(13)& chr(10) &
		"REF*G1*#GetData.Claim_Key#~"& chr(13)& chr(10) &
		<!---"HI*ABK>#Replace(GetData.HHRG_175_Score, ".", "", "ALL")#~"& chr(13)& chr(10) &
		"HI*ABF>#Replace(GetData.HHRG_230_Score, ".", "", "ALL")#*ABF>#Replace(GetData.HHRG_250_Score, ".", "", "ALL")#*ABF>#Replace(GetData.HHRG_390_Score, ".", "", "ALL")#*ABF>#Replace(GetData.HHRG_420_Score, ".", "", "ALL")#*ABF>#Replace(GetData.HHRG_440_Score, ".", "", "ALL")#~"& chr(13)& chr(10) &--->
		"HI*ABK>#Replace(GetData.HHRG_175_Score, ".", "", "ALL")#~"& chr(13)& chr(10) >
		<cfif GetData.HHRG_230_Score neq '' OR  GetData.HHRG_250_Score neq '' OR  GetData.HHRG_390_Score neq '' OR  GetData.HHRG_420_Score neq '' OR  GetData.HHRG_440_Score neq ''>
		<cfset  finaldata = finaldata & "HI*" >
		<cfif GetData.HHRG_230_Score neq '' >
		<cfset  finaldata = finaldata & "ABF>#Replace(GetData.HHRG_230_Score, ".", "", "ALL")#*" >
		</cfif>
		<cfif GetData.HHRG_250_Score neq '' >
		<cfset  finaldata = finaldata & "ABF>#Replace(GetData.HHRG_250_Score, ".", "", "ALL")#*" >
		</cfif>
		<cfif GetData.HHRG_390_Score neq '' >
		<cfset  finaldata = finaldata & "ABF>#Replace(GetData.HHRG_390_Score, ".", "", "ALL")#*" >
		</cfif>
		<cfif GetData.HHRG_420_Score neq '' >
		<cfset  finaldata = finaldata & "ABF>#Replace(GetData.HHRG_420_Score, ".", "", "ALL")#*" >
		</cfif>
		<cfif GetData.HHRG_440_Score neq '' >
		<cfset  finaldata = finaldata & "ABF>#Replace(GetData.HHRG_440_Score, ".", "", "ALL")#~" & chr(13)& chr(10) >
		<cfelse>
		<cfset finaldata = Left(finaldata, len(finaldata)-1) />
		<cfset finaldata = finaldata &"~"& chr(13)& chr(10) />
		</cfif>
		</cfif>
		<cfset  finaldata = finaldata & "HI*BE>61>>>#GetData.MSA_Code#~"& chr(13)& chr(10) &
		"NM1*71*1*#UCase(GetData.LastName)#*#UCase(GetData.FirstName)#****XX*#GetData.PNPI#~"& chr(13)& chr(10) &
		<!---"REF*EI*#GetData.Agent_FEIN#~" & chr(13)& chr(10) & --->
		"LX*1~"& chr(13)& chr(10) &
		"SV2*0023*HP>#Trim(GetAssessments.HIPPS_Code)#*0*UN*#Trim(GetData.Units)#~"& chr(13)& chr(10)  &
		"DTP*472*D8*#DateFormat(GetData.FirstVisitDate,"yyyymmdd")#~"& chr(13)& chr(10) >
		<cfif GetPayer.Output_type eq 'Medicare'>
		<cfset  finaldata = finaldata &"LX*2~"& chr(13)& chr(10) &
		"SV2*0551*HC>#Trim(QCode)#*.01*UN*1~"& chr(13)& chr(10)  &
		"DTP*472*D8*#DateFormat(GetData.FirstVisitDate,"yyyymmdd")#~"	& chr(13)& chr(10) >
		 <cfelse>
		 <cfset ctr_329 = ctr_329 - 1>
		</cfif>
		<!---"LX*2~"& chr(13)& chr(10) >
		<cfif GetPayer.Output_type eq 'Medicare'>
		<cfset  finaldata = finaldata & "SV2*0551*HC>#Trim(QCode)#*.01*UN*1~"& chr(13)& chr(10) >
		</cfif>
		<cfset  finaldata = finaldata & "DTP*472*D8*#DateFormat(GetData.FirstVisitDate,"yyyymmdd")#~"& chr(13)& chr(10) >--->
        <cfoutput group="Claim_ID">
		 <cfquery name="get_revenue"  datasource="#Application.DataSrc#">
		 SELECT * FROM #Request.prefix_db_agency#.ScheduleItems s 
		 JOIN  #Request.prefix_db_agency#.Revenue_Code r
		  WHERE s.Rev_CodeID = r.Rev_CodeID
		   AND  s.ScheduleItems_ID = #GetData.ScheduleItems_ID#
		 </cfquery>
	    <cfif get_revenue.Measure eq '1'><cfset TotalUnits = GetData.Total_Units / 4 >
		<cfelseif get_revenue.Measure eq '.25'><cfset TotalUnits = #GetData.Total_Units# />
		<cfelse><cfset TotalUnits = 1 >
		</cfif>
	<cfif GetData.Rev_Code eq '0270' and GetData.Total_Units eq 0>
        <!--- JDB: Do not print 0 Unit Supply Line Items --->
        <cfelse>
        <cfset ctr_329 = ctr_329 + 1>
        <cfset finaldata = finaldata & var1 &
		"LX*#ctr_329#~"& chr(13)& chr(10) &
		"SV2*#Trim(GetData.Rev_Code)#*HC>#Trim(GetData.HCPCS)#*#Trim(NumberFormat(GetData.Total_EClaim,'_____.__'))#*UN*#NumberFormat(TotalUnits)#~"& chr(13)& chr(10) &
		"DTP*472*D8*#DateFormat(GetData.Visit_Date,"yyyymmdd")#~"& chr(13)& chr(10)>
      </cfif>
    </cfoutput>
    <cfset TS = (ctr_329 * 3) + 32>
    <cfset finaldata = finaldata & var1>
    <cfset finaldata = finaldata & "SE*#TS#*#ST02#~"& chr(13)& chr(10) &"GE*1*#GS06#~"& chr(13)& chr(10)&"IEA*1*#ISA13#~">
    <cfset finaldata = finaldata & chr(13)& chr(10)>
    <cfset ctr = ctr + 1 />
<cfquery name="Get_Inv" datasource="#Application.DataSrc#">
		Select
		s.ScheduleItems_ID,
		s.Invoice_Id,s.Patient_ID,
		s.Assessment_Tracker_ID,
		s.Payer_ID,
		s.Agency_ID,
		(Select Amount from #Request.prefix_db_agency#.Payments where Invoice_ID = s.Invoice_ID limit 1) as Paid,
		(Select PaymentDate from #Request.prefix_db_agency#.Payments where Invoice_ID = s.Invoice_ID limit 1) as PaymentDate,
		(select PayerBalance from #Request.prefix_db_agency#.Invoices where Invoice_ID = s.Invoice_ID limit 1) AS PayerBalance
		from #Request.prefix_db_agency#.ScheduleItems s where s.ScheduleItems_ID in(#Form.ScheduleItems_ID#)
		order by Patient_ID asc
</cfquery>

<cfset Paydate = #Get_Inv.PaymentDate# />
<cfset Pad= #Get_Inv.Paid# />
<cfquery name="dblist" dbtype="query">
 select distinct(scheduleitems_id) from GetData
</cfquery>

<cfset thelist=#ValueList(dblist.scheduleitems_id,",")#>
 <cfset getsucess= generalCFC.AddInvoiceHistory(Invoice_ID) />
<cfquery datasource="#Application.DataSrc#"  name="Insert_Invoice">
UPDATE #Request.prefix_db_agency#.Invoices SET
	 DateSent = NOW(),
	 MethodSent = 'Electronic',
	 InvoiceTotal = #invoiceTotal#,
	 PayerBalance = 0.00,
	 Internal_control_number = '#CONTROL#'
  ,Record_Modified_By = '#Session.EmployeeId#'
  ,Record_Modified_Date = #now()#

 WHERE Invoice_ID = #Invoice_ID#
</cfquery>  
<cfquery name='getPaymentId' datasource='#Application.DataSrc#'>
  SELECT * FROM #Request.prefix_db_agency#.Payments
  WHERE Invoice_ID = '#Invoice_ID#'
</cfquery>
<cfset getsucess= generalCFC.AddPaymentHistory(valueList(getPaymentId.Payment_ID)) />
<cfquery datasource="#Application.DataSrc#"  name="Insert_Payments">
	 UPDATE #Request.prefix_db_agency#.Payments  SET 
	 PaymentDate = <cfif Paydate neq ''> #CreateODBCDateTime(Now())#,<cfelse>#CreateODBCDateTime(Now())#,</cfif>
	 Amount = <cfif Pad neq ''>#Pad#,<cfelse> 0.00,</cfif>
	 PaymentMethod =  'Electronic',
	 WriteOffAmount = '0.00',
	 WriteOffType = '0.00',
	 Internal_control_number = '#CONTROL#'
  ,Record_Modified_By = '#Session.EmployeeId#'
  ,Record_Modified_Date = #now()#
     WHERE Invoice_ID = #Invoice_ID#
</cfquery>

<cfset Turbo_Claim = #GetTurbo.TurboClaim# /> 

<cfif Turbo_Claim eq 1 and #Session.TurboClaim# eq 1 >
 <cfset getsucess= generalCFC.AddInvoiceHistory(Invoice_ID) />

<cfquery datasource="#Application.DataSrc#" name="Insert_Status">
Update #Request.prefix_db_agency#.Invoices SET 
<!---claim_status = 'Accepted',
User_Defined_Status = 'Processing'--->
claim_status = 'Waiting'
  ,Record_Modified_By = '#Session.EmployeeId#'
  ,Record_Modified_Date = #now()#
WHERE Invoice_ID = #Invoice_ID#
</cfquery>
</cfif>
<cfquery datasource="#Application.DataSrc#" name="Update_Flags">
  <cfsetting requesttimeout="30">
  	UPDATE #Request.prefix_db_agency#.ScheduleItems SET
	  EClaimed = 1
  	 ,EClaimed_Final = 1
    ,Invoice_ID = #Invoice_ID#
	 ,Export_Date = #CreateODBCDateTime(Now())#
	 <!---,Output_Type = 'Final'--->
   WHERE ScheduleItems_ID IN (#thelist#)
  AND Assessment_Tracker_ID = #Assessment_Tracker_ID#
</cfquery>
<cfset invoiceTotal = 0>
<cfset Paydate =''>
<cfset Pad =0 >
 </cfoutput>

  

  <!--- Write entire text string to file --->
 <cfset invoice= 'UB'&#Getdata.Invoice_ID#&'.CLI' />

<cfset strFilePath = "/var/www/Zirmed_Upload_files_Backup/" >
<cffile
    action="write"
    file="#strFilePath##invoice#"
    output="#finaldata#"
	/>		
		<cfset objFTPProperties = {
                Server = "sshftp.zirmed.com",
                Port = "22",
                Username = "124641",
                Password = "demriz41",
				fingerprint = "c3:a3:24:d4:50:75:d2:0f:b9:a4:34:d8:94:11:17:36",
                Secure = true
                } />
				
				
		<!---		
			<cfftp action = "open" username = "XP_LG14" connection = "objConnection" password = "p5gNM7Kx" port="22" timeout="300" server = "sftp.quadax.com" secure = "yes">--->
				<cfftp 
                action="open"
                connection="objConnection"
                attributeCollection="#objFTPProperties#"
				/>


<cfftp action="putfile"  localfile="#strFilePath##invoice#" remotefile="/Upload/#invoice#" connection="objConnection" />
<cfftp action="close" connection="objConnection" />




   <cfquery name="dblist" dbtype="query">
<cfsetting requesttimeout="30">
 select distinct(scheduleitems_id) from GetData
</cfquery>
  <cfset thelist=#ValueList(dblist.scheduleitems_id,",")#>
  <cfif thelist neq ''>
    <cfquery datasource="#Application.DataSrc#" name="Update_Flags">
 <cfsetting requesttimeout="30">
	UPDATE #Request.prefix_db_agency#.ScheduleItems SET
	EClaimed = 1,
    EClaimed_Final = 1,
	Nonbillable = 0,
	Export_Date = #CreateODBCDateTime(Now())#
	WHERE ScheduleItems_ID IN (#thelist#)
 </cfquery>
<cfquery datasource="#Application.DataSrc#" name="Update_Flags">
<cfsetting requesttimeout="30">
  DELETE FROM #Request.prefix_db_lookup#.Claim WHERE Claim.Agency_Id = '#session.AgencyId#'<!--- AND ScheduleItems_ID IN (#thelist#) --->
 </cfquery>
  </cfif>
  <cfif #parameterexists(Form.ScheduleItems_Id)#>
  </cfif>
  
  <div class="portlet box blue">
        <div class="portlet-title">
          <div class="caption"> <i class="fa fa-report"></i>Turbo Claims  Export </div>
          <div class="tools"> <a href="" class="collapse"> </a> </div>
          <div class="actions">
            <input class="btn btn-default" type="button" title="Back" onClick="window.location.href='index.cfm?page=agency&cat=BillingReports&rpt=form_edit&inv=<cfoutput>#url.inv#</cfoutput>'"  id="back" value="Back" name="back">
          </div>
        </div>
        <div class="portlet-body">
          <p>Once again Files Submitted by TurboClaim!!</p>
        </div>
      </div>
	  
  <!---<table width='100%'>
<tr><td>
  <h1>Once again Files Submitted by TurboClaim!!</h1>
</td>
<td align='left'>
<input type="button" title="Back" class="btn blue" align="middle" onClick="window.location.href='index.cfm?page=agency&cat=BillingReports&rpt=form_edit&inv=<cfoutput>#url.inv#</cfoutput>'"id="back" value="Back" name="back">
</td>
</tr>
</table>--->

 <cfelse>
  <h1>Final Claim Visits Ready for Export to PC-ACE</h1>
  <p>No Final Claim visits ready</p>
  <cfinput type="button" name="back" id="back" title="Back" value="Back" onClick="javacsript:history.back();" />
</cfif>

</cfform>
