Function

AddProviderPatientDaysDx

Module

UBACore

Last Modified

7/15/2014 3:26:34 PM

Scope

Interfaced

Declaration

function  AddProviderPatientDaysDx(Dest: TStringList; ProviderIEN: string;PatientIEN: string) : TStringList;


Source

722   function AddProviderPatientDaysDx(Dest: TStringList; ProviderIEN: string;PatientIEN: string) : TStringList;
723   var i:integer;
724       x: string;
725       tmplst: TStringList;
726   begin
727       tmplst := TStringList.Create;
728       tmplst.clear;
729       tCallV(tmplst, 'ORWDBA2 GETDUDC', [ProviderIEN, PatientIEN]);
730   
731     try
732       for i := 0 to tmplst.count-1 do
733          x := tmplst.Strings[i];
734     except
735        on EListError do
736           begin
737           {$ifdef debug}Show508Message('EListError in UBACore.AddProviderPatientDaysDx()');{$endif}
738           raise;
739           end;
740     end;
741   
742       Result := tmplst;
743   end;