Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.
DataFields = "general.txtEmployerTaxID|general.txt3digitplannumber|plan.plantype" OutputFileName = "extract.csv" PlanID = "abcX" fieldArray = Split(DataFields,"|") Set ds = createobject("dsextract.clsdsextract") Set fso = CreateObject("scripting.filesystemobject") Set fsfile = fso.createtextfile(OutputFileName,true) For n=lbound(FieldArray) to ubound(FieldArray) Output = Output & FieldArray(n) & "," Next fsfile.writeline("PlanIdent," & Output) Output="" ds.PlanIdent = PlanID For n=lbound(FieldArray) to ubound(FieldArray) Result = ds.getdata(FieldArray(n)& "") If n=0 Then 'precede first field with plan ident Output= Chr(34) & ds.planident & Chr(34) & "," End if Output = Output & chr(34) & Trim(Result & "") & chr(34) & "," Next fsfile.writeline(Output) fsfile.close Set ds=nothing Set fsfile=nothing Set fso=nothing
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.