<!---
This file is Copyright © 1998-2009 by Home Care Business Services. This work may not be reproduced, in whole or in part, 
using any medium, including, but not limited to, electronic transmission, CD-ROM or published in print, without the express 
permission of Home Care Business Services.

$Revision: 1.9 $
$Id: bill_UB92_action.cfm,v 1.9 2010/05/24 13:29:02 arlen Exp $
$Date: 2010/05/24 13:29:02 $
--->

<cfif isdefined('Form.ScheduleItems_ID')>
  <cfset invoiceTotal=0 />
  <cfset invoicePayerId=0 />
  <cfset get_invoice_ID =''>
  
  <cfset user = Session.EmployeeID />
  <cfif #parameterexists(Form.ScheduleItems_ID)#>
    <!--- Page specific code, such as queries and variable settings should go here ---> 
    
    <!---<cfset agencyIds = ArrayNew(1) />
<cfset assessmentTrackerIds = ArrayNew(1) />
<cfset patientIds = ArrayNew(1) />
<cfset invoiceAmounts = ArrayNew(1) />
<cfset scheduleItemsIds = ArrayNew(1) />--->
    
    <cfquery  name="GetVisits" datasource="#Application.DataSrc#">
 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,
 ScheduleItems.Agency_ID, ScheduleItems.Patient_ID, ScheduleItems.Auth_ID 
 FROM #Request.prefix_db_agency#.ScheduleItems WHERE ScheduleItems_ID IN (#Form.ScheduleItems_ID#)
</cfquery>
    
    <!---<cfoutput query="GetVisits">
<cfscript>
	 ArrayAppend(agencyIds, #GetVisits.Agency_ID#);
	 ArrayAppend(assessmentTrackerIds, #GetVisits.Assessment_Tracker_ID#);
	 ArrayAppend(patientIds, #GetVisits.Patient_ID#);
	 ArrayAppend(invoiceAmounts, #GetVisits.Total_EClaim#);
	 ArrayAppend(scheduleItemsIds, #GetVisits.ScheduleItems_ID#);
  </cfscript>
</cfoutput>--->
    
    <cfloop query="GetVisits">
      <cfquery  name="InsertVisits" datasource="#Application.DataSrc#">
   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, Auth_ID, Ticket
   ) VALUES (
	  '#session.AgencyId#', #ScheduleItems_ID#, '#Rev_Code#', '#HCPCS#', #Total_Units#, '#Visit_Date#', #Total_EClaim#, #Assessment_Tracker_ID#, #Payer_ID#, #Auth_ID#, 1
   )
  </cfquery>
    </cfloop>
    <cfoutput query="GetVisits">
      <cfquery  datasource="#Application.DataSrc#" name="UpdateTicket">
   UPDATE #Request.prefix_db_lookup#.Supply_Sched SET Ticket = 1, Visit_Date =#GetVisits.Visit_Date# WHERE ScheduleItems_ID =#GetVisits.ScheduleItems_ID#
  </cfquery>
    </cfoutput>
	
	
	<cfquery  name="Getpayer" datasource="#Application.DataSrc#">
    SELECT * FROM #Request.prefix_db_agency#.Payer WHERE Payer_ID  =  #GetVisits.Payer_ID#
  </cfquery>
	
	
<cfif Getpayer.Supplies eq 1>
    <cfquery  name="InsertSupplies" datasource="#Application.DataSrc#">
 Insert Into #Request.prefix_db_lookup#.Claim (
  Agency_Id, ScheduleItems_ID, Rev_Code, HCPCS, Total_Units, Visit_Date, Assessment_Tracker_ID, Payer_ID, Total_EClaim, Ticket
 ) SELECT '#session.AgencyId#', ScheduleItems_ID, Revenue_Code, HCPCS, Total_Units, Visit_Date, Assessment_Tracker_ID, Payer_ID, Total_Price, 1 From #Request.prefix_db_lookup#.Supply_Sched Where Ticket = 1
</cfquery>
</cfif>

    <cfquery  name="GetFirstVisit" datasource="#Application.DataSrc#">
 SELECT Claim.ScheduleItems_ID, Claim.Claim_ID, Claim.Total_Units, Claim.Visit_Date, Assessment_New.HIPPS_Code
 FROM #Request.prefix_db_lookup#.Claim, #Request.prefix_db_agency#.Assessment_New
 WHERE Claim.Agency_Id = '#session.AgencyId#'
 AND   Claim.Ticket = 1 
 AND   Claim.Assessment_Tracker_ID = Assessment_New.Assessment_Tracker_ID 
 ORDER BY Patient_ID, Visit_Date
 Limit 1
</cfquery>
    <cfquery  name="Getdata" datasource="#Application.DataSrc#">
 SELECT 
  Claim.ScheduleItems_ID, Claim.Claim_ID, Claim.Rev_Code, Claim.HCPCS, Claim.Total_Units, Claim.Total_EClaim, Claim.Visit_Date, 
  Assessment_New.Assessment_Reason_M0100,Assessment_New.Start_of_Care_M0030, Assessment_New.Certification_Start, 
  Assessment_New.Certification_End, Assessment_New.Source_of_Admission, patient.Admission_Status, Assessment_New.HIPPS_Code,
  Assessment_New.Assessment_Tracker_ID, patient.Medicaid_Number_M0065, authorizations.Authorization_Number AS Claim_Key, authorizations.Authorization_Number AS Claim_Key, 
  Assessment_New.Information_Release, Assessment_New.HHRG_175_Score, Assessment_New.HHRG_230_Score, 
  Assessment_New.HHRG_250_Score, Assessment_New.HHRG_390_Score, Assessment_New.HHRG_420_Score, Assessment_New.HHRG_440_Score, patient.Patient_ID,
  patient.Last_Name_M0040, patient.Agency_Assigned_ID, patient.First_Name_M0040, patient.Middle_Initial_M0040, patient.Street_Address,
  patient.Gender_M0069, patient.City, patient.State_M0050, patient.Zip_M0060, patient.DOB_M0066, patient.MSA_Code,
  patient.Admission_Status, Agency.Agency_Name, Agency.Agency_Medicare_ID, Agency.Agency_Address1, Agency.Agency_City,
  patient.Medicare_Number_M0063, patient.HI_Claim_Number,
  Agency.Agent_FEIN, Agency.Agency_State, Agency.Agency_Zip, Agency.Agency_Contact, Agency.Agency_Contact_Phone, Agency.Natl_Provider_ID AS ANPI, 
  Agency.Agency_ID,
  Physician.Natl_Provider_ID AS NPI, ScheduleItems.Output_Type,
  Employee.Last_Name as LastName, Employee.First_Name as FirstName, 
  Payer.Payer_ID, Payer.PayName, Payer.Payer_Number, Payer.Address1 AS PayAdd1, 
  Payer.Address2 AS PayAdd2, Payer.City AS PayCity, Payer.State AS PayState, Payer.Zip AS PayZip, Payer.Submitter_ID,Payer.Receiver_ID, Payer.TurboClaim,
  Payer.PayerSource AS PAYSRC, Payer.PayerType, authorizations.Authorization_Number as AUTHNO
 FROM 
  #Request.prefix_db_lookup#.Claim, #Request.prefix_db_agency#.Assessment_New, #Request.prefix_db_agency#.patient, #Request.prefix_db_lookup#.Agency, #Request.prefix_db_lookup#.Physician, 
  #Request.prefix_db_lookup#.Employee, #Request.prefix_db_agency#.authorizations, #Request.prefix_db_agency#.ScheduleItems, #Request.prefix_db_agency#.Payer
 WHERE Claim.Agency_Id = '#session.AgencyId#'
  AND  Claim.Ticket = 1 
  AND  Claim.Assessment_Tracker_ID = Assessment_New.Assessment_Tracker_ID 
  and Claim.ScheduleItems_ID = ScheduleItems.ScheduleItems_ID
   and Claim.Auth_ID = authorizations.Auth_ID
  and ScheduleItems.Auth_ID = authorizations.Auth_ID
  AND  Assessment_New.Patient_ID = patient.Patient_ID
  AND  Assessment_New.Agency_Number = Agency.Agency_ID 
  AND  patient.Primary_ReferringPhys_ID_M0072 = Physician.Physician_ID
  AND  Claim.Payer_ID = Payer.Payer_ID
  AND  Employee.Employee_ID = Physician.Employee_ID
  <!---  AND  Payer.Payer_ID = patientpayer.Payer_ID
  AND  patientpayer.Patient_ID = patient.Patient_ID
 ---> 
 ORDER BY Assessment_Tracker_ID, Claim_ID
</cfquery>
    
    <!--- Initialize variables --->
    
    <cfset c = 0 />
    <cfset finaldata = "" />
    <cfset patients = ArrayNew(1) />
    <cfset invAmts  = ArrayNew(1) />
    <cfset agencyIds = ArrayNew(1) />
    <cfset assessmentTrackerIds = ArrayNew(1) />
    <cfset patientIds = ArrayNew(1) />
    <cfset invoiceAmounts = ArrayNew(1) />
    <cfset scheduleItemsIds = ArrayNew(1) />
    <cfquery  name="PrefetchData" datasource="#Application.DataSrc#">
 SELECT patient.patient_id, SUM(Claim.Total_EClaim) AS invAmt, COUNT(Claim_ID) as NOITEMS
 FROM #Request.prefix_db_agency#.Assessment_New, #Request.prefix_db_agency#.patient, #Request.prefix_db_lookup#.Agency, #Request.prefix_db_lookup#.Physician, #Request.prefix_db_agency#.Payer, #Request.prefix_db_lookup#.Claim, #Request.prefix_db_lookup#.Employee
 WHERE  Claim.Agency_Id = '#session.AgencyId#'
 AND    Claim.Ticket = 1 
 AND    Claim.Assessment_Tracker_ID = Assessment_New.Assessment_Tracker_ID 
 AND    Assessment_New.Patient_ID = patient.Patient_ID
 AND    Assessment_New.Agency_Number = Agency.Agency_ID 
 AND    patient.Primary_ReferringPhys_ID_M0072 = Physician.Physician_ID
 AND    Claim.Payer_ID = Payer.Payer_ID 
 AND    Employee.Employee_ID = Physician.Employee_ID 
 <!---GROUP BY patient.patient_id--->
 ORDER BY patient.patient_id
</cfquery>
    <cfoutput query="PrefetchData">
      <cfscript>
  ArrayAppend(patients, #PrefetchData.patient_id#);
  ArrayAppend(invAmts, #PrefetchData.invAmt#);
 </cfscript>
    </cfoutput> <cfoutput query="GetData" group="Assessment_Tracker_ID">
      <cfif #mid(Getdata.Assessment_Reason_M0100,1,1)# eq "4">
        <!---		<cfset HIPPS = #GetFirstVisit.HIPPS_Code# /> --->
        <cfset Date = #GetFirstVisit.Visit_Date# />
        <cfset Units = #GetFirstVisit.Total_Units# />
        <cfelse>
        <!---		<cfset HIPPS = #GetData.HIPPS_Code# /> --->
        <cfset Date = #GetData.Start_of_Care_M0030# />
        <cfset Units = #GetData.Total_Units# />
      </cfif>
      
      <!---   <cfif #Getdata.PayerType# eq "Hospice">
		<cfset TOB = '82 />A>3'>
        <cfset YB = '3' />
        <cfset OC = '27' />
        <cfset ctr_329 = 2 />
        <cfset claim = #GetData.Medicare_Number_M0063# />
        <cfset HIPPS2 = 'Q5001' />
        <cfset REV2 = '0651' />
        <cfset DESC = 'RTN' />
	<cfelse>
		<cfset TOB = '33 />A>3'>
        <cfset YB = '4' />
        <cfset ctr_329 = 2 />
        <cfset OC = '' />
        <cfset claim = #GetData.HI_Claim_Number# />
        <cfset HIPPS2 = #GetData.HIPPS_Code# />
        <cfset REV2 = '0023' />
        <cfset DESC = 'HOME HEALTH SERVICES' />

	</cfif>
 --->
     <cfif Getdata.Output_Type eq '1500'>
	 <cfset TOB = '12>B>1' >
	 <cfelse>
     <cfset TOB = '32 />B>1'>
	 </cfif>
      <cfset YB = '4' />
      <cfset OC = '' />
      <cfset claim = #GetData.Medicare_Number_M0063# />
      <cfset claimID = #GetData.Patient_ID# & #GetData.Payer_ID# />
      <cfset HIPPS2 = #GetData.HIPPS_Code# />
      <cfset REV2 = '0023' />
      <cfset DESC = 'HOME HEALTH SERVICES' />
      <cfset ISA = #DateFormat(Now(),"MMDDHHMMSS")#>
      <cfset ISA13 = #Right(ISA,9)#>
      <cfset GS06 = #DateFormat(Now(), "MMSS")#>
      <cfset ST02 = #DateFormat(Now(), "hmmss")#>
      <cfscript>
	 ArrayAppend(agencyIds, #GetData.Agency_ID#);
	 ArrayAppend(assessmentTrackerIds, #GetData.Assessment_Tracker_ID#);
	 ArrayAppend(patientIds, #GetData.Patient_ID#);
	 ArrayAppend(invoiceAmounts, #GetData.Total_EClaim#);
  </cfscript>
      
      <!--- Used for counting the number of 329 iterations --->
      <cfset ctr_329 = 1 />
      <!--- 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)# />
      <!--- 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>
      <cfset var1 = "" />
        <cfset Turbo_Claim = 0 />
		<cfset authorization_number = "" />
		<cfset CONTRO = #DateFormat(Now(),"YYMMDDHHMMSS")#>
		<cfset CONTROL = #session.AgencyId#&'-'&#CONTRO# />
		<cfset ISA = #DateFormat(Now(),"MMDDHHMMSS")#>
      <cfoutput group="Claim_ID">
	 
	   <!--- <cfquery name="get_revenue"  datasource="#Application.DataSrc#">
		 SELECT * FROM #Request.prefix_db_agency#.Revenue_Code rc  WHERE  rc.Rev_Code = '#GetData.Rev_Code#'
		 </cfquery>
	 --->
	  <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>
	
        <cfset var1 = var1 & "LX*#ctr_329#~"& chr(13)& chr(10) &
		"SV1*HC>#Trim(GetData.HCPCS)#*#NumberFormat(GetData.Total_EClaim,'_____.__')#*UN*#TotalUnits#*12**1**N~"& chr(13)& chr(10) &
		"DTP*472*D8*#DateFormat(GetData.Visit_Date,"yyyymmdd")#~"& chr(13)& chr(10) &
		"REF*6R*00#ctr_329#H0000000010#DateFormat(Now(),"yyyymmdd")#~"& chr(13)& chr(10)>
        <cfset ctr_329 = ctr_329 + 1 />
        <cfset  TS = (ctr_329 * 4) + 33>
        <cfif GetData.Total_EClaim neq '' and GetData.Total_EClaim gt 0>
          <cfset invoiceTotal = invoiceTotal + GetData.Total_EClaim />
        </cfif>
        <cfset invoicePayerId=#Payer_ID# />
		<cfif authorization_number eq ''><cfset authorization_number  = #GetData.AUTHNO# />
		<cfelseif authorization_number does not contain #GetData.AUTHNO# >
		<cfset authorization_number  = authorization_number&','&#GetData.AUTHNO# />
		</cfif>
      </cfoutput>
      <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*#GetData.Agent_FEIN#*0*P*>~" & chr(13)& chr(10) & 
   	<!---NEW<cfset finaldata = finaldata & "ISA*00*          *00*          *ZZ*#GetData.Agent_FEIN#      *ZZ**#GetData.Payer_Number#*#DateFormat(Now(), "YYMMDD")#*#DateFormat(Now(), "HHMM")#*U*00501*123456789*0*P* />~" & chr(13)& chr(10) &--->
		"GS*HC*#GetData.Submitter_ID#*#GetData.Payer_Number#*#DateFormat(Now(), "YYYYMMDD")#*#DateFormat(Now(), "HHMM")#*#YB#001*X*005010X222A1~" & chr(13)& chr(10) & 
	<!---LN1 --->	"ST*837*#ST02#*005010X222A1~" & chr(13)& chr(10) & 
	<!---LN2 --->	"BHT*0019*00*00000#YB#*#DateFormat(Now(), "YYYYMMDD")#*#DateFormat(Now(), "HHMM")#*CH~" & chr(13)& chr(10) & 
	<!---"REF*87*004010X096A1~"  & chr(13)& chr(10) &  ---> 
	<!---LN3 --->"NM1*41*2*#UCase(GetData.Agency_Name)#*****46*#GetData.Submitter_ID#~"  & chr(13)& chr(10) & 		
	<!---LN3 --->"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) & 
	<!---LN4 --->"NM1*40*2*#UCase(GetData.PayName)#*****46*#GetData.Payer_Number#~"& chr(13)& chr(10) & 
	<!---LN5 --->"HL*1**20*1~" & chr(13)& chr(10) &
	<!---LN5 --->"PRV*BI*PXC*251E00000X~" & chr(13)& chr(10) & 
	<!---LN6 --->"NM1*85*1*#UCase(GetData.Agency_Name)#*****XX*#GetData.ANPI#~"  & chr(13)& chr(10) & 
	<!---LN6 --->"N3*#UCase(GetData.Agency_Address1)#~"  & chr(13)& chr(10) & 
	<!---LN6 --->"N4*#UCase(GetData.Agency_City)#*#UCase(GetData.Agency_State)#*#Agency_Zip#~" & chr(13)& chr(10)>
      <cfset finaldata = finaldata & 
	<!---LN7 --->"REF*EI*#GetData.Agent_FEIN#~"  & chr(13)& chr(10) & 
	<!---LN7 --->"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)#*FX*#Left(GetData.Agency_Contact_Phone,3)##Mid(GetData.Agency_Contact_Phone,5,3)##Mid(GetData.Agency_Contact_Phone,9,4)#~" & chr(13)& chr(10) & 
	<!---LN8 --->"HL*2*1*22*0~"  & chr(13)& chr(10) & 
	<!---LN9 --->"SBR*P*18**UNKNOWN*****#Trim(GetData.PAYSRC)#~" & chr(13)& chr(10) & 
	<!---LOOP2010 --->"NM1*IL*1*#UCase(GetData.Last_Name_M0040)#*#UCase(GetData.First_Name_M0040)#****MI*#GetData.HI_Claim_Number#~"& chr(13)& chr(10) & 
	<!---LOOP2010 --->"N3*#UCase(GetData.Street_Address)#~"& chr(13)& chr(10) & 
	<!---LOOP2010 --->"N4*#UCase(GetData.City)#*#GetData.State_M0050#*#GetData.Zip_M0060#~"  & chr(13)& chr(10) & 
	<!---LOOP2010 --->"DMG*D8*#DateFormat(GetData.DOB_M0066,"yyyymmdd")#*#GetData.Gender_M0069#~"& chr(13)& chr(10) &
	<!---L14 --->"NM1*PR*2*#UCase(GetData.PayName)#*****PI*#GetData.Payer_Number#~"& chr(13)& chr(10) &
	<!---L14 --->"N3*#UCase(GetData.PayAdd1)#~"& chr(13)& chr(10) &
	<!---L14 --->"N4*#UCase(GetData.PayCity)#*#GetData.PayState#*#PayZip#~"& chr(13)& chr(10) & 
	<!---L15 --->"CLM*#CONTROL#*#invoiceTotal#***#TOB#*Y*<!---A--->*Y*Y~"& chr(13)& chr(10) & 
	<!---L20 --->"REF*G1*#authorization_number#~"& chr(13)& chr(10) >  
	<!---L17 "DTP*434*RD8*#DateFormat(GetData.Certification_start,"yyyymmdd")#-#DateFormat(GetData.Certification_end,"yyyymmdd")#~"& chr(13)& chr(10) & 
	<!---L18 --->"DTP*435*DT*#DateFormat(GetData.Start_of_Care_M0030,"yyyymmdd")#0001~"& chr(13)& chr(10) & 
	<!---L19 --->"CL1*9*#Trim(GetData.Source_of_Admission)#*#Trim(GetData.Admission_Status)#~"& chr(13)& chr(10) &---> 
	
	 <!---"HI*ABK>#Replace(GetData.HHRG_175_Score, ".", "", "ALL")#*">--->
	 <cfif GetData.HHRG_175_Score neq ''  and GetData.Assessment_Reason_M0100 neq 'NO ASSESSMENT'>
		 <cfset  finaldata = finaldata & "HI*ABK>#GetData.HHRG_175_Score#~*">
		 <cfelse>
		 <cfset  finaldata = finaldata & "HI*ABK>#Replace(GetData.HHRG_175_Score, ".", "", "ALL")#~*"& chr(13)& chr(10) >
		 </cfif>
		 
		<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 ''>
		<cfif GetData.HHRG_230_Score neq ''  and GetData.Assessment_Reason_M0100 eq 'NO ASSESSMENT'>
		<cfset  finaldata = finaldata & "ABF>#Replace(GetData.HHRG_230_Score, ".", "", "ALL")#*" >
		<cfelse>
		<cfset  finaldata = finaldata & "ABF>#GetData.HHRG_230_Score#*" >
		</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 &
	 <!---L21 "HI*ABK>#Replace(GetData.HHRG_175_Score, ".", "", "ALL")#*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) &--->
	<!---L25 --->"NM1*82*1*#UCase(GetData.Agency_Contact)#****XX*#GetData.ANPI#~"& chr(13)& chr(10) &
	<!---L25 --->"NM1*77*1*#UCase(GetData.Agency_Name)#*****XX*#GetData.ANPI#~"& chr(13)& chr(10) &
	<!---LN6 --->"N3*#UCase(GetData.Agency_Address1)#~"  & chr(13)& chr(10) & 
	<!---LN6 --->"N4*#UCase(GetData.Agency_City)#*#UCase(GetData.Agency_State)#*#Agency_Zip#~" & chr(13)& chr(10) &
    <!---L22 "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) &
	<!---L23 --->"HI*BH>#OC#>D8>~"& chr(13)& chr(10) &
	<!---L24 --->"HI*BE>61>>>#GetData.MSA_Code#~"& chr(13)& chr(10) & --->
	<!---L25 --->"NM1*DN*1*#UCase(GetData.LastName)#*#UCase(GetData.FirstName)#****XX*#GetData.NPI#~"& chr(13)& chr(10) >
	<!---"REF*EI*111222333~" & chr(13)& chr(10) &
		"LX*#1#~"& chr(13)& chr(10) &
		"SV1*#REV2#*ZZ>#Trim(HIPPS2)#*0*UN*#NumberFormat(Units)#~"& chr(13)& chr(10)  &
		"DTP*472*D8*#DateFormat(Date,"yyyymmdd")#~"	& chr(13)& chr(10)--->
      
      <cfset finaldata = finaldata & var1 />
      <cfset finaldata = finaldata & "SE*#TS#*#ST02#~"& chr(13)& chr(10) &"GE*1*#YB#001~"& chr(13)& chr(10)&"IEA*1*#GetData.Agent_FEIN#~" />
      <!--- Add Newline/CR to string --->
      <cfset finaldata = finaldata & chr(13)& chr(10) />
      
      <!--- Write entire text string to file --->
      <cffile action="write" file="#application.datapath##user##application.datatype#" output="#finaldata#">
      <cfquery  name="dblist" dbtype="query">
 select distinct(scheduleitems_id) from GetData
</cfquery>
      <cfset thelist=#ValueList(dblist.scheduleitems_id,",")# />
      <cfloop index="i" from="1" to="#ArrayLen(assessmentTrackerIds)#">
        <cfset invPatientTotal = 0 />
        <cfloop index="p" from="1" to="#ArrayLen(patients)#">
          <cfif patients[p] eq patientIds[i]>
            <cfset invPatientTotal = invAmts[p] />
            <cfif invPatientTotal eq ''>
              <cfset invPatientTotal = 0 />
            </cfif>
          </cfif>
        </cfloop>
      </cfloop>
      <cfquery  datasource="#Application.DataSrc#" name="Insert_Invoice">
  INSERT INTO #Request.prefix_db_agency#.Invoices (
	  patientpayer_ID
	 ,Agency_ID
	 ,Patient_ID
	 ,Assessment_Tracker_ID
     ,Output
	 ,DateSent
	 ,MethodSent
	 ,InvoiceTotal
	 ,PayerBalance
	  ,Internal_control_number
	 ,WhereTreated
   ,Record_Created_By
   ,Record_Created_Date
   ,Record_Modified_By
   ,Record_Modified_Date
  ) VALUES (
	   #Payer_ID#
	  ,'#Agency_ID#'
	  ,'#Patient_ID#'
	  ,'#Assessment_Tracker_ID#'
      ,'1500'
		,NOW()
		,"Electronic"
		,#invoiceTotal# <cfif invoiceTotal eq ''>
		 ,0
		 <cfelse>
		,#invoiceTotal#
		</cfif>
		,'#CONTROL#'
		,""
    ,'#Session.EmployeeId#'
    ,#now()#
    ,'#Session.EmployeeId#'
    ,#now()#
  )
 </cfquery>
      <cfquery  datasource="#Application.DataSrc#" name="Last_Invoice_ID">
	SELECT LAST_INSERT_ID() as LastInsertID
 </cfquery>
 
  
	 <!--- Insert ALL claimdat into claim_bill table --->
  <cfquery name="Insert_claim_bill" datasource="#Application.DataSrc#"> 
INSERT IGNORE  INTO  #Request.prefix_db_agency#.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 ,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 ,Referring_FirstName ,Referring_PNPI ,Certifying_LastName ,Certifying_FirstName ,
  Certifying_PNPI,Invoice_ID,Telephone,Assessment_Reason_M0100,Agency_Assigned_ID)
  VALUES
  ('#TOB#','','#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#',<cfif DOB_M0066 neq ''>'#DATEFORMAT(DOB_M0066,'yyyy-mm-dd')#'<cfelse>null</cfif>,'#Gender_M0069#','#Payer_Number#','#PayAdd1#','#PayCity#','#PayState#','#PayZip#',
<cfif Certification_Start neq ''>'#DATEFORMAT(Certification_Start,'yyyy-mm-dd')#'<cfelse>null</cfif>,
<cfif Certification_End neq ''>'#DATEFORMAT(Certification_End,'yyyy-mm-dd')#'<cfelse>null</cfif>,
#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#','#LastName#','#FirstName#' ,'#NPI#' ,'','','',#Last_Invoice_ID.LastInsertID#,'','#Assessment_Reason_M0100#','#Agency_Assigned_ID#')
	</cfquery>  
 
 <cfset Turbo_Claim = #GetData.TurboClaim# /> 
<cfif Turbo_Claim eq 1 and #Session.TurboClaim# eq 1 >
<cfset getsucess= generalCFC.AddInvoiceHistory(Last_Invoice_ID.LastInsertID) />
<cfquery datasource="#Application.DataSrc#" name="Insert_Status">
Update #Request.prefix_db_agency#.Invoices SET 
Updated_by = 'Automatic',
<cfif #form.rejected# neq 1>claim_status = 'Waiting'<cfelse>claim_status = 'Rejected'</cfif>
,Record_Modified_By = '#Session.EmployeeId#'
,Record_Modified_Date = #now()#
WHERE Invoice_ID = #Last_Invoice_ID.LastInsertID#
</cfquery>
</cfif>

 <cfquery  datasource="#Application.DataSrc#" name="Update_Flags">
	UPDATE #Request.prefix_db_agency#.ScheduleItems SET 
	  EClaimed = '1'
   ,Invoice_ID = '#Last_Invoice_ID.LastInsertID#'
   ,Agency_ID = '#Agency_ID#'
   ,Patient_ID = '#Patient_ID#'
   ,Assessment_Tracker_ID = '#Assessment_Tracker_ID#'
	 ,Export_Date = #CreateODBCDateTime(Now())#
  WHERE ScheduleItems_ID IN (#thelist#)
  AND   Assessment_Tracker_ID = '#Assessment_Tracker_ID#'
 </cfquery>
      <cfset invoiceTotal = 0 />
	  
	    <cfif get_invoice_ID eq ''>
	 <cfset get_invoice_ID = #Last_Invoice_ID.LastInsertID# />
	 <cfelse>
	 <cfset get_invoice_ID = get_invoice_ID&','&#Last_Invoice_ID.LastInsertID# />
	 </cfif>
	 
    </cfoutput>
	
	<cfquery datasource="#Application.DataSrc#" name="Get_claim"> Select * from  #Request.prefix_db_agency#.Invoices  where Invoice_ID in ('#get_invoice_ID#')
</cfquery>
	
	<cfset Turbo_Claim = #GetData.TurboClaim# /> 
<cfif #form.rejected# neq 1>
   <cfif Turbo_Claim eq 1 and #Session.TurboClaim# eq 1 >
								 
								   <cfset invoice= 'UB'&#Getdata.ScheduleItems_ID#&'.CLP' />
								   <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"
												connection="objConnection"
												attributeCollection="#objFTPProperties#"
												/>
								<cfftp action="putfile"  localfile="#strFilePath##invoice#" remotefile="/Upload/#invoice#" connection="objConnection" />
								<cfftp action="close" connection="objConnection" />
						
							<cfmail from="ticket@myhomecarebiz.com" 
							   to="velmurugan@myhomecarebiz.com"  bcc="velmurugan@myhomecarebiz.com"
							 subject="1500 visits just submitted via TurboClaim" 
							 type="html">
								<cfoutput> <font face="Verdana, Arial, Helvetica, sans-serif" size="2">
								  <p>Agency: <b>#Session.AgencyName#</b></p>
								  <p>5-Digit ID: <b>#Session.AgencyLogin#</b> <b>3-Digit ID: #Session.AgencyID#</b></p>
								  <p>Name: <b>#session.Display#</b></p>
								  <p>Cell: <b>#Session.Phone#</b>&nbsp;&nbsp;Agency Phone: #Session.Agency_Phone#</p>
								  </font> </cfoutput>
							  </cfmail>
							<div class="portlet box blue">
							<div class="portlet-title">
								<div class="caption">
									<i class="fa fa-report"></i>1500 Visits exported by TurboClaim
								</div>
								<div class="tools">
									<a href="" class="collapse">
									</a>
								</div>
								<div class="actions">
								<input class="btn btn-default" type="button" title="Back" onclick="javacsript:history.back();" id="back" value="Back" name="back">
								</div>
							</div>
							  <div class="portlet-body">
								<p><cfoutput>#GetData.PayName#</cfoutput> Files Submitted by TurboClaim!!!</p>
							   </div>
							</div>

    <cfelse>
						<div class="portlet box blue">
							<div class="portlet-title">
								<div class="caption">
									<i class="fa fa-report"></i>1500 Visits exported by TurboClaim
								</div>
								<div class="tools">
									<a href="" class="collapse">
									</a>
								</div>
								<div class="actions">
								<input class="btn btn-default" type="button" title="Back" onclick="javacsript:history.back();" id="back" value="Back" name="back">
								</div>
							</div>
							  <div class="portlet-body">
								<p> Your 1500 visits have been prepared for export. Right click on the hyperlink <br />
								  below and click Save Target As... </p>
								<p><cfoutput>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#application.webdatapath##user##application.datatype#" 
						  target='export'>Save as 1500_claim.dat</a></cfoutput> </p>
							  </div>
							</div>
    </cfif>
	
	<cfelse>
	<cfmail from="ticket@myhomecarebiz.com" 
						   to="melissa@myhomecarebiz.com"  bcc="velmurugan@myhomecarebiz.com"
						 subject="1500 Visits  just Moved  to REJECTED" 
						 type="html">
						 <p>This claims just moved into Rejectec Claims</p><br />
        <cfoutput> <font face="Verdana, Arial, Helvetica, sans-serif" size="2">
          <p>Agency: <b>#Session.AgencyName#</b></p>
          <p>5-Digit ID: <b>#Session.AgencyLogin#</b> <b>3-Digit ID: #Session.AgencyID#</b></p>
          <p>Name: <b>#session.Display#</b></p>
          <p>Cell: <b>#Session.Phone#</b>&nbsp;&nbsp;Agency Phone: #Session.Agency_Phone#</p>
          </font> </cfoutput>
      </cfmail>
	         <cfif Get_claim.Recordcount gt 1>
						<div class="portlet box blue">
										<div class="portlet-title">
												<div class="caption">
													<i class="fa fa-report"></i>Bill 1500
												</div>
												<div class="tools">
													<a href="" class="collapse">
													</a>
												</div>
												<div class="actions">
												<input class="btn btn-default" type="button" title="Back" onclick="javacsript:history.back();" id="back" value="Back" name="back">
												</div>
											</div>
											<div class="portlet-body">
														   <p>Your 1500 Claims Moved to Rejected Now.So Please check that Claim in REJECTED</p>
															<p>You have created <cfoutput>#Get_claim.Recordcount#</cfoutput> Invoices. If you need to Edit/update Claim please click that Invoices</p><br/>
															<cfoutput query="Get_claim">
															 <a href="index.cfm?page=agency&cat=BillingReports&rpt=CMS1500&inv=#invoice_id#" target="_blank">Fix/Edit Claims</a><br/>
															</cfoutput>
					
										</div>
						   </div>
					 <cfelse>
										   <cflocation addtoken="no" url="index.cfm?page=agency&cat=BillingReports&rpt=CMS1500&inv=#Get_claim.invoice_id#" />
					</cfif>
				
	</cfif>
	
	  <cftry>
      <cfquery  datasource="#Application.DataSrc#" name="Update_Flags">
  UPDATE #Request.prefix_db_lookup#.Supply_Sched SET Ticket = 9 WHERE Ticket = 1 AND ScheduleItems_ID IN (#thelist#)
 </cfquery>
      <cfcatch type='any'>
        Info Message 1<br/>
      </cfcatch>
    </cftry>
    <cftry>
      <cfquery  datasource="#Application.DataSrc#" name="Update_Flags">
	DELETE FROM #Request.prefix_db_lookup#.Claim 
	WHERE  Agency_Id = '#session.AgencyId#' 
	AND    ScheduleItems_ID IN (#thelist#)
</cfquery>
<cfcatch type='any'>
        Info Message 2<br/>
      </cfcatch>
    </cftry>
 <cfelse>
 <p>No 1500 Claim visits </p>
  <cfinput type="button" name="back" id="back" title="Back" value="Back" onClick="javacsript:history.back();" />
</cfif>
</cfif>