Procedure

ListImmunizCodes

Module

rPCE

Last Modified

10/7/2014 12:48:38 PM

Comments

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

Scope

Interfaced

Declaration

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

Called-By Hierarchy


              ListImmunizCodes
TfrmImmunizations.FormCreate┘ 

Called-By

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


Source

585   procedure ListImmunizCodes(Dest: TStrings; SectionIndex: Integer);
586   { return procedures within section in format: procedure <TAB> CPT code <TAB><TAB> CPT code}
587   var
588     i: Integer;
589   begin
590     Dest.Clear;
591     i := SectionIndex + 1;           // first line after the section name
592     while (i < uImmunizations.Count) and (CharAt(uImmunizations[i], 1) <> U) do
593     begin
594       Dest.Add(Pieces(uImmunizations[i], U, 1, 2));
595       Inc(i);
596     end;
597   end;