A>' & RIGHT(form.TOB,1) > #Trim(HCPCSs)#*#TTE#*UN*#TTU#~"& chr(13)& chr(10) & "DTP*472*D8*#DateFormat(VD,"yyyymmdd")#~" & chr(13)& chr(10) /> #Trim(HCPCSs)#*#TTE#*UN*#TTU#~"& chr(13)& chr(10) & "DTP*472*D8*#DateFormat(VD,"yyyymmdd")#~" & chr(13)& chr(10) /> SELECT * FROM #Request.prefix_db_agency#.pSchedules s JOIN #Request.prefix_db_agency#.pRevenue_Code r WHERE s.Rev_ID = r.Rev_CodeID AND s.Schedule_ID = #GetData.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) > ~" & chr(13)& chr(10) & "GS*HC*#GetData.Submitter_ID#*#GetData.Receiver_ID#*#DateFormat(Now(), "YYYYMMDD")#*#DateFormat(Now(), "HHMM")#*#GS06#*X*005010X222A1~" & chr(13)& chr(10) & "ST*837*#ST02#*005010X222A1~" & 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*#GetData.Payer_Number#~"& chr(13)& chr(10) & "HL*1**20*1~" & 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**UNKNOWN*****#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.Pay_Name)#*****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) & "CLM*#CONTROL#*#invoice_Total#***12>B>1*Y*A*Y*Y~"& chr(13)& chr(10) & "REF*G1*#Trim(authorization_number)#~"& 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")#" > #Replace(M0230Diagnosis.ICD, ".", "", "ALL")#" > "NM1*DN*1*#UCase(GetData.LastName)#*#UCase(GetData.FirstName)#****XX*#GetData.PNPI#~"& chr(13)& chr(10) & "NM1*77*2*HOME*****XX*~" & 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) > 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 ,ContractTotal ,Internal_control_number ,WhereTreated ,Record_Created_By ,Record_Created_Date ,Record_Modified_By ,Record_Modified_Date ) VALUES ( #Payer_ID# ,'#Agency_ID#' ,'#Patient_ID#' ,'#Assmt_ID#' ,'#POUT#' ,NOW() ,"Electronic" ,#invoice_Total# ,0 ,#invoice_Total# ,#NumberFormat(Request.Invoice_ContractTotal,'_____.__')# ,'#CONTROL#' ,"" ,'#Session.EmployeeId#' ,#now()# ,'#Session.EmployeeId#' ,#now()# ) SELECT LAST_INSERT_ID() as LastInsertID 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#','','#Getpayer.Submitter_ID#','#Getpayer.Receiver_ID#','#Agency_Name#','#Agent_FEIN#','#Agency_Contact#','#Agency_Contact_Phone#','#Getpayer.Pay_Name#', '#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#','#DATEFORMAT(DOB_M0066,'yyyy-mm-dd')#'null,'#Gender_M0069#','#Payer_Number#','#PayAdd1#','#PayCity#','#PayState#','#PayZip#', '#DATEFORMAT(Certification_Start,'yyyy-mm-dd')#'null, '#DATEFORMAT(Certification_End,'yyyy-mm-dd')#'null, '#Start_of_Care_M0030#','#Source_of_Admission#','#F17#','#Claim_Key#','#F66#','#F67a#','#F67b#','#F67c#', '#F67d#','#F67e#','#MSA_Code#','#LastName#','#FirstName#' ,'#PNPI#' ,'','','',#Last_Invoice_ID.LastInsertID#,'','#Assessment_Reason_M0100#','#Agency_Assigned_ID#') 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# UPDATE #Request.prefix_db_lookup#.UB04review SET Invoice_ID = '#Last_Invoice_ID.LastInsertID#' WHERE Schedule_ID IN (#thelist#) UPDATE #Request.prefix_db_agency#.pSchedules SET EClaimed = '1' ,Invoice_ID = '#Last_Invoice_ID.LastInsertID#' ,Export_Date = #CreateODBCDateTime(Now())# WHERE Schedule_ID IN (#thelist#) AND Assmt_ID = '#Assmt_ID#' ANd Status = 0 SELECT * FROM #Request.prefix_db_agency#.Invoices where Invoice_ID in ('#get_invoice_ID#')

1500 Visits

Your 1500 visits have been prepared for export. Click on the hyperlink
below and click Save Target As...

select distinct(Schedule_ID) from GetData UPDATE #Request.prefix_db_agency#.Supply_Sched SET Ticket = 9 WHERE Ticket = 1 AND Schedule_ID IN (#thelist#) Update Flags Error
UPDATE #Request.prefix_db_agency#.pSchedules SET EClaimed = 1, Nonbillable = 0, Export_Date = #CreateODBCDateTime(Now())# WHERE Schedule_ID IN (#thelist#) AND Status = 0