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 FROM #Request.prefix_db_agency#.pSchedules, #Request.prefix_db_agency#.pAssessments WHERE pSchedules.Schedule_ID IN (#Form.Schedule_ID#) AND pAssessments.Assmt_ID = pSchedules.Assmt_ID AND pSchedules.Status = 0 AND pAssessments.Status = 0 SELECT * FROM #Request.prefix_db_agency#.pRevenue_Code WHERE Rev_CodeID = '#Rev_ID#' Insert Into #Request.prefix_db_lookup#.Claim (Agency_Id, Schedule_ID, Visit_Date, Rev_Code, HCPCS, Total_EClaim, Total_Units, Assmt_ID, Payer_ID, Ticket) VALUES ('#session.AgencyId#', #Schedule_ID#, '#Visit_Date#', '#GetRevenue.Rev_Code#', '#HIPPS_Code#', #NumberFormat(Request.Total_Price,'_____.__')#, #Total_Units#, #Assmt_ID#, #PAYER_ID#, 1) UPDATE IGNORE #Request.prefix_db_agency#.pSchedules SET Total_Eclaim = #NumberFormat(Request.Total_Price,'_____.__')# WHERE Schedule_ID = #Schedule_ID# SELECT Claim.Schedule_ID, Claim.Claim_ID, Claim.Total_Units, Claim.Visit_Date, pAssessments.F300 AS HIPPS_Code FROM #Request.prefix_db_lookup#.Claim, #Request.prefix_db_agency#.pAssessments WHERE Claim.Agency_Id = '#session.AgencyId#' AND Claim.Ticket = 1 AND Claim.Assmt_ID = pAssessments.Assmt_ID ORDER BY Patient_ID, Visit_Date Limit 1 SELECT pAssessments.Assmt_ID, pPatients.patient_id, SUM(Claim.Total_EClaim) AS invAmt FROM #Request.prefix_db_agency#.pAssessments, #Request.prefix_db_agency#.pPatients, #Request.prefix_db_lookup#.Agency, #Request.prefix_db_agency#.pPayer, #Request.prefix_db_lookup#.Claim WHERE Claim.Agency_Id = '#session.AgencyId#' AND Claim.Ticket = 1 AND Claim.Assmt_ID = pAssessments.Assmt_ID AND pAssessments.Patient_ID = pPatients.Patient_ID AND Claim.Payer_ID = pPayer.Pay_ID GROUP BY pAssessments.Assmt_ID, pPatients.patient_id ORDER BY pPatients.patient_id ArrayAppend(patients, #PrefetchData.patient_id#); RAPCalc = CreateObject("component", "MC_RAP_Calc"); rap = RAPCalc.getRAP(PrefetchData.Assmt_ID); ArrayAppend(invAmts, #Replace(rap, ",", "", "All")#); SELECT Claim.Schedule_ID, Claim.Claim_ID, Claim.Total_EClaim, Claim.Visit_Date as RAP_Date, Claim.Rev_Code, Claim.HCPCS, Claim.Total_Units ,pAssessments.F179 AS Start_of_Care_M0030, pAssessments.F177 Certification_Start, pAssessments.Assmt_ID, pAssessments.F26 AS Assessment_Reason_M0100 ,pAssessments.F178 AS Certification_End, '' AS Source_of_Admission, pAssessments.F300 AS HIPPS_Code ,"" AS Claim_Key, "" AS Information_Release, "" AS Homebound_Status ,"" AS HHRG_175_Score, "" AS HHRG_230_Score,"" AS HHRG_250_Score ,"" AS HHRG_390_Score, "" AS HHRG_420_Score, "" AS HHRG_440_Score,"" AS HHRG_450_Score ,pAssessments.F176 AS Assessment_Completed_M0090,pAssessments.Assmt_ID ,pPatients.Patient_ID, pAssessments.F25 AS Admission_Status, pPatients.Pt_Agy_ID AS HI_Claim_Number ,pPatients.Pt_Last AS Last_Name_M0040, pPatients.Patient_ID,pPatients.Pt_First AS First_Name_M0040, pPatients.Pt_Middle AS Middle_Initial_M0040, pPatients.Pt_Street AS Street_Address ,pPatients.Pt_Gender AS Gender_M0069, pPatients.Pt_City AS City, pPatients.Pt_State AS State_M0050, pPatients.Pt_Zip AS Zip_M0060, pPatients.Pt_DOB AS DOB_M0066,"" AS MSA_Code, "" AS FIPS_Code, pPatients.Pt_Agy_ID AS Agency_Assigned_ID,"" AS Lives_With_M0340, pPatients.Pt_Race AS Race_M0140_NA ,Agency.Agency_Name, Agency.Agency_Medicare_ID, Agency.Agency_Address1, Agency.Agency_City, 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, Agency.Wage_Index, Agency.Rural, "" AS NPI ,pEmployee.Emp_Last as LastName, pEmployee.Emp_First as FirstName ,pPayer.Pay_ID AS Payer_ID, pPayer.Submitter_ID, pPayer.Receiver_ID, pPayer.Pay_Name, pPayer.Payer_No AS Payer_Number, pPayer.Pay_Street AS PayAdd1,"" AS PayAdd2, pPayer.Pay_City AS PayCity, pPayer.Pay_State AS PayState, pPayer.Pay_State AS PayZip , 0 AS TurboClaim, (SELECT MIN(Visit_Date) FROM #Request.prefix_db_lookup#.Claim WHERE Agency_Id = '#session.AgencyId#' AND Assmt_ID = pAssessments.Assmt_ID ) AS FirstVisitDate FROM #Request.prefix_db_agency#.pAssessments, #Request.prefix_db_agency#.pSchedules, #Request.prefix_db_agency#.pPatients, #Request.prefix_db_lookup#.Agency, #Request.prefix_db_lookup#.pEmployee, #Request.prefix_db_agency#.pPayer, #Request.prefix_db_lookup#.Claim WHERE Claim.Agency_Id = '#session.AgencyId#' AND Claim.Ticket = 1 AND Claim.Assmt_ID = pAssessments.Assmt_ID AND pAssessments.Patient_Id = pPatients.Patient_Id AND pPatients.Loc_ID = Agency.Agency_ID AND pSchedules.Assmt_ID = pAssessments.Assmt_ID AND Claim.Payer_Id = pPayer.Pay_Id AND pSchedules.Emp_Id = pEmployee.Emp_Id AND (Claim.Visit_Date >= pAssessments.F177 or Claim.Visit_Date is null) AND pSchedules.status = 0 AND pAssessments.status = 0 AND pPatients.status < 2 ORDER BY Patient_Id, Claim_Id ArrayAppend(agencyIds, #GetData.Agency_ID#); ArrayAppend(assessmentTrackerIds, #GetData.Assmt_ID#); ArrayAppend(patientIds, #GetData.Patient_ID#); ArrayAppend(invoiceAmounts, #GetData.Total_EClaim#); #Trim(GetData.HCPCS)#*#Trim(NumberFormat(GetData.Total_EClaim,'_____.__'))#*UN*1.00~"& chr(13)& chr(10) & "DTP*472*D8*#DateFormat(GetData.FirstVisitDate,"yyyymmdd")#~"& chr(13)& chr(10)> ~" & chr(13)& chr(10) & "GS*HC*#GetData.Submitter_ID#*#GetData.Receiver_ID#*#DateFormat(Now(), "YYYYMMDD")#*#DateFormat(Now(), "HHMM")#*#ISA13#*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) & "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.Pay_Name)#*****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#~"> *****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(REReplace(GetData.Street_Address,"[^0-9A-Za-z ]","","all"))#~"& chr(13)& chr(10) & "N4*#UCase(GetData.City)#*#UCase(GetData.State_M0050)#*#Left(GetData.Zip_M0060,5)#~" & chr(13)& chr(10) & "DMG*D8*#DateFormat(GetData.DOB_M0066,"yyyymmdd")#*#LEFT(GetData.Gender_M0069,1)#~"& chr(13)& chr(10) & "NM1*PR*2*#UCase(GetData.Pay_Name)#*****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#***32>A>2**A*Y*Y*********~"& chr(13)& chr(10) & "DTP*434*RD8*#DateFormat(RAP_Date,"yyyymmdd")#-#DateFormat(RAP_Date,"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#*30~"& chr(13)& chr(10) > SELECT pProblem.*,vetted_190924.ICD FROM #Request.prefix_db_agency#.pProblem JOIN #Request.prefix_db_lookup#.vetted_190924 ON vetted_190924.Diagnosis = pProblem.Description WHERE pProblem.Assmt_ID IN () AND pProblem.status = AND (M0_No like 'M1021%' OR M0_No like 'M1023%') ORDER BY dx_order,RIGHT(M0_No, 1) ASC #Replace(M0230Diagnosis.ICD, ".", "", "ALL")#~"& chr(13)& chr(10) > #Replace(M0230Diagnosis.ICD, ".", "", "ALL")#*" > 61>>>#GetData.MSA_Code#~"& chr(13)& chr(10) & "HI*BE>85>>>#GetData.FIPS_Code#~"& chr(13)& chr(10) & "NM1*71*1*#UCase(GetData.LastName)#*#UCase(GetData.FirstName)#****XX*#GetData.NPI#~"& chr(13)& chr(10)> Select s.Schedule_ID, s.Invoice_Id,s.Patient_ID, s.Assmt_ID, #url.ID# AS Payer_ID, #session.agencyid# AS Agency_ID, "" AS Homebound_Status, a.F26 AS Assessment_Reason_M0100, "" as Paid, "" as PaymentDate, "" AS PayerBalance from #Request.prefix_db_agency#.pSchedules s, #Request.prefix_db_agency#.pAssessments a WHERE s.Schedule_ID in (#FORM.Schedule_ID#) and s.Assmt_ID = a.Assmt_ID select distinct(Schedule_ID) from GetData INSERT INTO #Request.prefix_db_agency#.Invoices ( PatientPayer_ID ,Agency_ID ,Patient_ID ,Assmt_ID ,Output ,DateSent ,MethodSent ,InvoiceTotal ,PayerBalance ,Internal_control_number ,WhereTreated ,Assessment_Completed_M0090 ,No_Days ,Record_Created_By ,Record_Created_Date ,Record_Modified_By ,Record_Modified_Date ) VALUES ( '#Payer_ID#' ,'#Agency_ID#' ,'#Patient_ID#' ,'#Assmt_ID#' ,'RAP' ,NOW() ,'Electronic' ,#NumberFormat(InvoiceTotal,'_____.__')# ,#NumberFormat(InvoiceTotal,'_____.__')# ,'#CONTROL#' ,'' ,'#Assessment_Completed#' ,#total_Days# ,'#Session.EmployeeId#' ,#now()# ,'#Session.EmployeeId#' ,#now()# ) SELECT LAST_INSERT_ID() as LastInsertID INSERT INTO #Request.prefix_db_agency#.Payments ( Invoice_ID ,PatientPayer_ID ,PaymentDate ,Amount ,PaymentMethod ,WriteOffAmount ,WriteOffType ,Internal_control_number ,Record_Created_By ,Record_Created_Date ,Record_Modified_By ,Record_Modified_Date ) VALUES ( '#Last_Invoice_ID.LastInsertID#', '#Payer_ID#', #CreateODBCDateTime(Now())#, #CreateODBCDateTime(Now())#, 0.00, 'Electronic', '0.00', '0.00' ,'#CONTROL#' ,'#Session.EmployeeId#' ,#now()# ,'#Session.EmployeeId#' ,#now()# ) Update #Request.prefix_db_agency#.Invoices SET Updated_by = 'Automatic', claim_status = 'Waiting'claim_status = 'Rejected' ,Record_Modified_By = '#Session.EmployeeId#' ,Record_Modified_Date = #now()# WHERE Invoice_ID = #Last_Invoice_ID.LastInsertID# SELECT * FROM #Request.prefix_db_agency#.pSchedules WHERE Schedule_ID IN (#thelist#) UPDATE #Request.prefix_db_agency#.pSchedules SET Invoice_ID = #Last_Invoice_ID.LastInsertID# WHERE Schedule_ID IN (#thelist#) AND pSchedules.Assmt_ID = #Assmt_ID# ANd pSchedules.status = 0 Select * from #Request.prefix_db_agency#.Invoices where Invoice_ID in ('#get_invoice_ID#')
NOAs Ready for Export to PC-ACE

Your NOAs have been prepared for export. Right click on the hyperlink
below and click Save Target As...

Save as NOA.dat in c://winpcace/impub92

This claims just moved into Rejectec Claims


Agency: #Session.AgencyName#

5-Digit ID: #Session.AgencyLogin# 3-Digit ID: #Session.AgencyID#

Name: #session.Display#

Cell: #Session.Phone#  Agency Phone: #Session.Agency_Phone#
Bill NOA

Your NOA Claims Moved to Rejected Now.

So Please check that Claim in REJECTED

select distinct(Schedule_ID) from GetData UPDATE #Request.prefix_db_agency#.Supply_Sched SET Ticket = 9 WHERE Ticket = 1 AND Schedule_ID IN (#thelist#) DELETE FROM #Request.prefix_db_lookup#.Claim WHERE Agency_Id = '#session.AgencyId#' AND Schedule_ID IN (#thelist#)

NOAs Ready for Export to PC-ACE

No NOA Visits Selected