Procedure

TfrmGraphProfiles.AllItemsAfter

Module

fGraphProfiles

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public

Owner

TfrmGraphProfiles

Declaration

procedure AllItemsAfter(var filetype, typedata: string);

Calls Hierarchy


TfrmGraphProfiles.AllItemsAfter
 └TfrmGraphProfiles.cboAllItemsChange

Called-By Hierarchy


          TfrmGraphProfiles.AllItemsAfter
     TfrmGraphProfiles.lstSourcesChange┤ 
  TfrmGraphProfiles.radSourceAllClick┤ │ 
          TfrmGraphProfiles.IDProfile┘ │ 
   TfrmGraphProfiles.btnRenameClick┤   │ 
     TfrmGraphProfiles.btnSaveClick┘   │ 
TfrmGraphProfiles.lstOtherSourcesChange┘ 
  TfrmGraphProfiles.radSourceAllClick┘   

Calls

Name Declaration Comments
TfrmGraphProfiles.cboAllItemsChange procedure cboAllItemsChange(Sender: TObject); -

Called-By

Name Declaration Comments
TfrmGraphProfiles.lstOtherSourcesChange procedure lstOtherSourcesChange(Sender: TObject); -
TfrmGraphProfiles.lstSourcesChange procedure lstSourcesChange(Sender: TObject); -


Source

1137  procedure TfrmGraphProfiles.AllItemsAfter(var filetype, typedata: string);
1138  var
1139    i: integer;
1140    itemdata: string;
1141  begin
1142    with lstItemsSelection.Items do
1143    begin
1144      Clear;
1145      lstItemsSelection.Sorted := true;
1146      //typedata := '0^' + Piece(typedata, '^', 1) + '^ ' + Piece(typedata, '^', 2) + ' <any>';
1147      typedata := '0^' + Piece(typedata, '^', 1) + '^ ' + Piece(typedata, '^', 3);
1148      Insert(0, typedata);
1149      Insert(1, '^' + LLS_LINE);
1150      if filetype = '63AP' then                         // finish subitems ***********
1151      begin
1152        lstItemsSelection.Sorted := false;
1153        for i := 0 to lstSources.Items.Count - 1 do
1154        if copy(lstSources.Items[i], 1, 5) = '63AP;' then
1155        begin
1156          typedata := lstSources.Items[i];
1157          typedata := '0^' + Piece(typedata, '^', 1) + '^ ' + Piece(typedata, '^', 2) + ' <any>';
1158          Add(typedata);
1159        end;
1160      end
1161      else if filetype ='63MI' then
1162      begin
1163        lstItemsSelection.Sorted := false;
1164        for i := 0 to lstSources.Items.Count - 1 do
1165        if copy(lstSources.Items[i], 1, 5) = '63MI;' then
1166        begin
1167          typedata := lstSources.Items[i];
1168          typedata := '0^' + Piece(typedata, '^', 1) + '^ ' + Piece(typedata, '^', 2) + ' <any>';
1169          Add(typedata);
1170        end;
1171      end
1172      else if filetype = '50.605' then
1173      for i := 0 to lstDrugClass.Items.Count - 1 do
1174      begin
1175        itemdata := lstDrugClass.Items[i];
1176        if filetype = Piece(itemdata, '^', 1) then
1177          Add(itemdata);
1178      end
1179      else if copy(filetype, 1, 5) = '63AP;' then
1180      begin
1181        filetype := copy(filetype, 1, 4) + '^A;' + copy(filetype, 6, 1) + ';';
1182        for i := 0 to lstTests.Items.Count - 1 do
1183        begin
1184          itemdata := lstTests.Items[i];
1185          if filetype = UpperCase(copy(itemdata, 1, 9)) then
1186            Add(itemdata);
1187        end;
1188      end
1189      else if copy(filetype, 1, 5) = '63MI;' then
1190      begin
1191        filetype := copy(filetype, 1, 4) + '^M;' + copy(filetype, 6, 1) + ';';
1192        for i := 0 to lstTests.Items.Count - 1 do
1193        begin
1194          itemdata := lstTests.Items[i];
1195          if filetype = UpperCase(copy(itemdata, 1, 9)) then
1196            Add(itemdata);
1197        end;
1198      end
1199      else if filetype <> '405' then
1200      for i := 0 to lstTests.Items.Count - 1 do
1201      begin
1202        itemdata := lstTests.Items[i];
1203        if filetype = UpperCase(Piece(itemdata, '^', 1)) then
1204          Add(itemdata);
1205      end;
1206      cboAllItemsChange(lstItemsSelection);
1207    end;
1208  end;