1AA11*0.00*UN*1.00~"& chr(13)& chr(10) & "DTP*472*D8*#DateFormat(GetData.Start_of_Care_M0030,"yyyymmdd")#~"& chr(13)& chr(10)> ~" & chr(13)& chr(10) & "GS*HC*#GetData.Submitter_ID#*#GetData.Receiver_ID#*#DateFormat(Now(), "yyyymmdd")#*#TimeFormat(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*#GetData.Pay_Name#*****46*#GetData.Receiver_ID#~"& 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(REReplace(GetData.Agency_Address1,"[^0-9A-Za-z ]","","all"))# ~" & chr(13)& chr(10) & "N4*#UCase(GetData.Agency_City)#*#UCase(GetData.Agency_State)#*#GetData.Agency_Zip#~" & chr(13)& chr(10)> A>#tobRight#**A*Y*Y*********~"& chr(13)& chr(10) & "DTP*434*RD8*#DateFormat(GetData.F6a,"yyyymmdd")#-#DateFormat(GetData.F6b,"yyyymmdd")#~"& chr(13)& chr(10) & "DTP*435*DT*#DateFormat(GetData.Start_of_Care_M0030,"yyyymmdd")#0000~"& chr(13)& chr(10) & "CL1*9*#LEFT(GetData.Admission_Source,1)#*30~"& chr(13)& chr(10) > #GetData.F66#~"& chr(13)& chr(10) > #GetData.F66#~"& chr(13)& chr(10) > #GetData.F67a#*" > #GetData.F67b#*" > #GetData.F67c#*" > #GetData.F67d#*" > #GetData.F67e#*" > #GetData.F67f#*" > #GetData.F67g#*" > #GetData.F67h#*" > 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 ,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(invoice_Total,'_____.__')# ,#NumberFormat(invoice_Total,'_____.__')# ,'#CONTROL#' ,'' ,#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#.pSchedules SET NOA = #Last_Invoice_ID.LastInsertID# , Export_Date = #CreateODBCDateTime(Now())# WHERE Schedule_ID IN (#thelist#) AND pSchedules.Assmt_ID = #Assmt_ID# ANd pSchedules.status = 0