Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.
string ls_Emp_Input lds_client.dataobject = 'ds_dnd_client' lds_client.SetTransObject(SQLCA) ll_rowcount = lds_client.Retrieve() lb_exists = FileExists(ls_emp_path) IF lb_exists THEN FileDelete(ls_emp_path) END IF //Hrehman 10/22/2008 if lds_client.SaveAsFormattedText(ls_emp_path,EncodingANSI!,",","'")= -1 then MessageBox("ARCS Error","Error occurred saving the Employee file.") end if ll_FLength = FileLength64(ls_emp_path) li_FileNum = FileOpen(ls_emp_path,textmode!) ll_fileread = FileReadEx(li_FileNum, ls_Emp_Input) ls_Emp_Input = "F1,F2,F3,F4,F5~r~n" + ls_Emp_Input FileClose(li_FileNum) li_FileNum = FileOpen(ls_emp_path, textmode!, Write!, LockWrite!, replace!) ll_filewrite = FileWriteEx(li_FileNum, ls_Emp_Input) FileClose(li_FileNum)
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.