SELECT cb.*, i.Invoice_ID, i.Patient_ID, ps.Assmt_ID AS Group_Assmt_ID, Claim.Schedule_ID, Claim.Claim_ID, Claim.Total_EClaim, Claim.Total_Contract, Claim.Visit_Date, Claim.Rev_Code, Claim.HCPCS, Claim.Total_Units, Claim.Min_Visitdate, Claim.Max_Visitdate, pAssessments.F300 AS HIPPS_Code, pAssessments.F26 AS Assessment_Reason_M0100, pAssessments.F176 AS Assessment_Completed_M0090, pAssessments.F30, pAssessments.F181 AS dischargedate, pPtPayer.Policy_Group_Name, pAuths.Auth_No AS AUTHNO, pPayer.Output AS POUT, pPayer.Qcode_req, pPayer.Revenue_0023, pPayer.Value_Codes, pPayer.PayerSource AS PAYSRC, pPatients.FIPS_Code, pPhysicians.Phys_Last AS LastName, pPhysicians.Phys_First AS FirstName, pPhysicians.Phys_NPI AS PNPI, Agency.Agency_Contact, Agency.Hospice_Medicare_NPI AS HNPI, (SELECT MIN(c.Visit_Date) FROM #Request.prefix_db_lookup#.Claim c WHERE c.Agency_Id = AND c.Schedule_ID IN ()) AS FirstVisitDate FROM #Request.prefix_db_agency#.claim_bill cb INNER JOIN #Request.prefix_db_agency#.Invoices i ON cb.Invoice_ID = i.Invoice_ID INNER JOIN #Request.prefix_db_agency#.pSchedules ps ON ps.Invoice_ID = i.Invoice_ID AND ps.Status = 0 INNER JOIN #Request.prefix_db_lookup#.Claim ON Claim.Schedule_ID = ps.Schedule_ID AND Claim.Agency_Id = AND Claim.Ticket = 1 INNER JOIN #Request.prefix_db_agency#.pAssessments ON ps.Assmt_ID = pAssessments.Assmt_ID AND pAssessments.Status = 0 INNER JOIN #Request.prefix_db_agency#.pAdmit ON pAssessments.Admit_ID = pAdmit.Admit_ID AND pAdmit.Status = 0 INNER JOIN #Request.prefix_db_agency#.pPatients ON i.Patient_ID = pPatients.Patient_ID INNER JOIN #Request.prefix_db_lookup#.Agency ON Agency.Agency_ID = i.Agency_ID INNER JOIN #Request.prefix_db_agency#.pPayer ON i.PatientPayer_ID = pPayer.Pay_ID AND pPayer.Status = 0 LEFT JOIN #Request.prefix_db_agency#.pPtPayer ON pPtPayer.Patient_ID = pPatients.Patient_ID AND pPayer.Pay_ID = pPtPayer.Payer_ID AND pPtPayer.Status = 0 LEFT JOIN #Request.prefix_db_agency#.pAuths ON Claim.Auth_ID = pAuths.Auth_ID AND pAuths.Status = 0 LEFT JOIN #Request.prefix_db_lookup#.pPhysicians ON pAdmit.Render_Phys_ID = pPhysicians.Phys_ID WHERE cb.Invoice_ID = AND Claim.Total_EClaim > 0 ORDER BY Claim.Visit_Date, Claim.Claim_ID A>" & Right(GetData.Type_of_Bill, 1) /> SELECT r.* FROM #Request.prefix_db_agency#.pSchedules s JOIN #Request.prefix_db_agency#.pRevenue_Code r ON s.Rev_ID = r.Rev_CodeID WHERE s.Schedule_ID = " & Trim(GetData.HCPCS) & "*" & Trim(NumberFormat(GetData.Total_EClaim, "_____.__")) & "*UN*" & TotalUnits & "***1>2>3>4~" & Chr(13) & Chr(10) & "DTP*472*D8*" & DateFormat(GetData.Visit_Date, "yyyymmdd") & "~" & Chr(13) & Chr(10) /> " & Trim(GetData.HCPCS) /> " & get_revenue.Modifier /> " & Trim(QCode) & "*0.01*UN*1***1>2>3>4~" & Chr(13) & Chr(10) & "DTP*472*D8*" & DateFormat(FirstVisit, "yyyymmdd") & "~" & Chr(13) & Chr(10) /> " & Trim(QCode) & "*.01*UN*1~" & Chr(13) & Chr(10) & "DTP*472*D8*" & DateFormat(FirstVisit, "yyyymmdd") & "~" & Chr(13) & Chr(10) /> ~" & Chr(13) & Chr(10) & "GS*HC*" & GetData.Submitter_ID & "*" & GetData.Receiver_ID & "*" & DateFormat(Now(), "yyyymmdd") & "*" & TimeFormat(Now(), "HHMM") & "*" & GS06 & "*X*" & stVersion & "~" & Chr(13) & Chr(10) & "ST*837*" & ST02 & "*" & stVersion & "~" & Chr(13) & Chr(10) & "BHT*0019*00*00000" & YB & "*" & DateFormat(Now(), "yyyymmdd") & "*" & TimeFormat(Now(), "HHMM") & "*CH~" & 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*" & GetData.Payer_Number & "~" & Chr(13) & Chr(10) & "HL*1**20*1~" & Chr(13) & Chr(10) & "PRV*BI*PXC*" & TAX & "~" & Chr(13) & Chr(10) & "NM1*85*2*" & UCase(GetData.Agency_Name) & "*****XX*" & NPI & "~" & Chr(13) & Chr(10) & "N3*" & UCase(GetData.Agency_Address1) & "~" & Chr(13) & Chr(10) & "N4*" & UCase(GetData.Agency_City) & "*" & UCase(GetData.Agency_State) & "*" & Agency_Zip & "~" & Chr(13) & Chr(10) & "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**" & sbrGroupName & "*****" & Trim(GetData.PAYSRC) & "~" & Chr(13) & Chr(10) & "NM1*IL*1*" & UCase(GetData.Last_Name_M0040) & "*" & UCase(GetData.First_Name_M0040) & "****MI*" & claim & "~" & Chr(13) & Chr(10) & "N3*" & UCase(GetData.Street_Address) & "~" & Chr(13) & Chr(10) & "N4*" & UCase(GetData.City) & "*" & GetData.State_M0050 & "*" & Left(GetData.Zip_M0060, 5) & "~" & 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 & "*" & PayZip & "~" & Chr(13) & Chr(10) /> B>1*Y*A*Y*Y~" & Chr(13) & Chr(10) & "REF*G1*" & Trim(authorization_number) & "~" & Chr(13) & Chr(10) /> " & Replace(GetData.HHRG_175_Score, ".", "", "ALL") & "~" & Chr(13) & Chr(10) /> " & Replace(GetData.HHRG_230_Score, ".", "", "ALL") & "*" /> " & Replace(GetData.HHRG_250_Score, ".", "", "ALL") & "*" /> " & Replace(GetData.HHRG_390_Score, ".", "", "ALL") & "*" /> " & Replace(GetData.HHRG_420_Score, ".", "", "ALL") & "*" /> " & Replace(GetData.HHRG_440_Score, ".", "", "ALL") & "~" & Chr(13) & Chr(10) /> 61>>>" & GetData.MSA_Code & "~" & Chr(13) & Chr(10) /> 85>>>" & GetData.FIPS_Code & "~" & Chr(13) & Chr(10) /> " & Trim(HIPPS2) & "*0*UN*1~" & Chr(13) & Chr(10) & "DTP*472*D8*" & DateFormat(Date, "yyyymmdd") & "~" & Chr(13) & Chr(10) />