Procedure

TfrmGraphProfiles.AddToList

Module

fGraphProfiles

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public/Published

Owner

TfrmGraphProfiles

Declaration

procedure AddToList(aItem: string; aListBox: TORListBox);

Calls Hierarchy


TfrmGraphProfiles.AddToList
 └TfrmGraphProfiles.ArrangeList

Called-By Hierarchy


               TfrmGraphProfiles.AddToList
          TfrmGraphProfiles.ListBoxSetup┤ 
    TfrmGraphProfiles.cboAllItemsClick┘ │ 
TfrmGraphProfiles.lstSourcesDblClick┘   │ 
  TfrmGraphProfiles.btnRenameClick┘     │ 
         TfrmGraphProfiles.ComboBoxSetup┤ 
 TfrmGraphProfiles.cboAllItemsClick...┘ │ 
                TfrmGraphProfiles.Report┘ 

Calls

Name Declaration Comments
TfrmGraphProfiles.ArrangeList procedure ArrangeList(aCheckFile, aCheckItem, aItem: string; aListBox: TORListBox; var addtolist: boolean); -

Called-By

Name Declaration Comments
TfrmGraphProfiles.ComboBoxSetup procedure ComboBoxSetup(Sender: TObject); -
TfrmGraphProfiles.ListBoxSetup procedure ListBoxSetup(Sender: TObject); -
TfrmGraphProfiles.Report procedure Report(aListBox: TORListBox); -


Source

1210  procedure TfrmGraphProfiles.AddToList(aItem: string; aListBox: TORListBox);
1211  var
1212    addtolist: boolean;
1213    checkfile, checkitem: string;
1214  begin
1215    aItem := UpperCase(Pieces(aItem, '^', 1, 2)) + '^' + Piece(aItem, '^', 3);
1216    checkfile := Piece(aItem, '^', 1);
1217    checkitem := Piece(aItem, '^', 2);
1218    if checkfile = '0' then
1219    begin
1220      checkfile := checkitem;       // if drug class any - 52,0;55,0
1221      checkitem := '0';           // if drug class item - go thru meds
1222    end;
1223    ArrangeList(checkfile, checkitem, aItem, aListBox, addtolist);
1224    if addtolist then aListBox.Items.Add(aItem);
1225    if (checkfile = '50.605') and (checkitem = '0') then
1226    begin
1227      checkfile := '52';
1228      aItem := '0^52^ Medication,Outpatitent <any>';
1229      ArrangeList(checkfile, checkitem, aItem, aListBox, addtolist);
1230      if addtolist then aListBox.Items.Add(aItem);
1231      checkfile := '55';
1232      aItem := '0^55^ Medication,Inpatitent <any>';
1233      ArrangeList(checkfile, checkitem, aItem, aListBox, addtolist);
1234      if addtolist then aListBox.Items.Add(aItem);
1235      checkfile := '53.79';
1236      aItem := '0^53.79^ Medication,BCMA <any>';
1237      ArrangeList(checkfile, checkitem, aItem, aListBox, addtolist);
1238      if addtolist then aListBox.Items.Add(aItem);
1239      {checkfile := '55NVAE';               // nonvameds as events is not used
1240      aItem := '0^55NVAE^ Medication,Non-VA-Event <any>';
1241      ArrangeList(checkfile, checkitem, aItem, aListBox, addtolist);
1242      if addtolist then aListBox.Items.Add(aItem);}
1243      checkfile := '55NVA';
1244      aItem := '0^55NVA^ Medication,Non-VA <any>';
1245      ArrangeList(checkfile, checkitem, aItem, aListBox, addtolist);
1246      if addtolist then aListBox.Items.Add(aItem);
1247    end;
1248  end;