Procedure

ListPatientCodes

Module

rPCE

Last Modified

10/7/2014 12:48:38 PM

Comments

Return PatientEds within section in format: procedure <TAB> CPT code <TAB><TAB> CPT code

Scope

Interfaced

Declaration

procedure ListPatientCodes(Dest: TStrings; SectionIndex: Integer);

Called-By Hierarchy


          ListPatientCodes
TfrmPatientEd.FormCreate┘ 

Called-By

Name Declaration Comments
TfrmPatientEd.FormCreate procedure FormCreate(Sender: TObject); -


Source

959   procedure ListPatientCodes(Dest: TStrings; SectionIndex: Integer);
960   { return PatientEds within section in format: procedure <TAB> CPT code <TAB><TAB> CPT code}
961   var
962     i: Integer;
963   begin
964     Dest.Clear;
965     i := SectionIndex + 1;           // first line after the section name
966     while (i < uPatientEds.Count) and (CharAt(uPatientEds[i], 1) <> U) do
967     begin
968       Dest.Add(Pieces(uPatientEds[i], U, 1, 2));
969       Inc(i);
970     end;
971   end;