SELECT * FROM #Request.prefix_db_agency#.claim_schedules JOIN #Request.prefix_db_agency#.pSchedules ON pSchedules.Schedule_ID = claim_schedules.Schedule_ID AND pSchedules.Status = 0 JOIN #Request.prefix_db_agency#.pAssessments ON pAssessments.Assmt_ID = pSchedules.Assmt_ID AND pAssessments.Status = 0 WHERE Claim_ID IN (#Form.Claim_ID#) AND claim_schedules.Status = 0 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#, '#bill_visitdate#', '#bill_rev_code#', '#bill_HCPCS#', #NumberFormat(bill_totalcharges,'_____.__')#, #bill_units#, #Assmt_ID#, #PAYER_ID#, 1) UPDATE IGNORE #Request.prefix_db_agency#.pSchedules SET Total_Eclaim = #NumberFormat(bill_totalcharges,'_____.__')# 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,Claim.Agency_Id, pAssessments.Patient_Id, "" AS HHRG_450_SCORE, claim_bill.ANPI AS NPI, pAssessments.F300 AS HIPPS_Code, pAssessments.F176 AS Assessment_Completed_M0090,pAssessments.Assmt_ID, "" AS MSA_Code, "" AS FIPS_Code, "" AS Lives_With_M0340, "" AS Race_M0140_NA, 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, claim_bill.* FROM #Request.prefix_db_agency#.claim_schedules JOIN #Request.prefix_db_agency#.claim_bill ON claim_schedules.Claim_ID = claim_bill.ID JOIN #Request.prefix_db_agency#.pSchedules ON pSchedules.Schedule_ID = claim_schedules.Schedule_ID JOIN #Request.prefix_db_agency#.pAssessments ON pAssessments.Assmt_ID = pSchedules.Assmt_ID JOIN #Request.prefix_db_lookup#.Claim ON Claim.Assmt_ID = pSchedules.Assmt_ID JOIN #Request.prefix_db_agency#.pPayer ON Claim.Payer_Id = pPayer.Pay_Id WHERE Claim.Agency_Id = '#session.AgencyId#' AND Claim.Ticket = 1 AND (Claim.Visit_Date >= Certification_Start or Claim.Visit_Date is null) ORDER BY pAssessments.Patient_Id, Claim.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(GetData.Street_Address)#~"& chr(13)& chr(10) & "N4*#UCase(GetData.City)#*#UCase(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.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.Referring_LastName)#*#UCase(GetData.Referring_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 ) VALUES ( '#Payer_ID#' ,'#Agency_ID#' ,'#Patient_ID#' ,'#Assmt_ID#' ,'RAP' ,NOW() ,'Electronic' ,#NumberFormat(InvoiceTotal,'_____.__')# ,#NumberFormat(InvoiceTotal,'_____.__')# ,'#CONTROL#' ,'' ,'#Assessment_Completed#' ,#total_Days# ,#Session.EmployeeId# ) 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 ) VALUES ( '#Last_Invoice_ID.LastInsertID#', '#Payer_ID#', #CreateODBCDateTime(Now())#, #CreateODBCDateTime(Now())#, 0.00, 'Electronic', '0.00', '0.00' ,'#CONTROL#' ) Update #Request.prefix_db_agency#.Invoices SET Updated_by = 'Automatic', claim_status = 'Waiting'claim_status = 'Rejected' 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