Procedure

TfrmLabs.FillGrid

Module

fLabs

Last Modified

7/15/2014 3:26:38 PM

Visibility

Private

Owner

TfrmLabs

Declaration

procedure FillGrid(agrid: TStringGrid; aitems: TStrings);

Called-By Hierarchy


                                        TfrmLabs.FillGrid
                                TfrmLabs.GetInterimGrid┘ 
                                TfrmLabs.cmdNextClick┤   
                                TfrmLabs.cmdPrevClick┤   
                              TfrmLabs.cmdRecentClick┤   
                            TfrmLabs.tvReportsClick┘ │   
                             TfrmLabs.DisplayPage┤   │   
                            TfrmLabs.LoadTreeView┤   │   
                           TfrmLabs.DisplayPage┤ │   │   
         TfrmOptionsReportsCustom.btnApplyClick┘ │   │   
          TfrmOptionsReportsCustom.btnOKClick┘   │   │   
                      TfrmLabs.cmdOtherTestsClick┤   │   
                         TfrmLabs.chkMaxFreqClick┤   │   
                    TfrmLabs.ProcessNotifications┤   │   
                           TfrmLabs.DisplayPage┘ │   │   
                                        ..(rec)..┤   │   
                        TfrmLabs.tvReportsKeyDown┤   │   
                  TfrmFrame.lstCIRNLocationsClick┘   │   
                            TfrmFrame.SetUpCIRN┘     │   
                       TfrmFrame.SetupPatient┘       │   
                  UpdatePatientInfoForAlert┤         │   
               TfrmFrame.mnuFileNextClick┘ │         │   
             TfrmFrame.mnuFileOpenClick┤   │         │   
                 TfrmFrame.UMInitiate┤ │   │         │   
        TfrmFrame.mnuFileNextClick...┤ │   │         │   
        TfrmFrame.mnuFileRefreshClick┤ │   │         │   
        TfrmOrders.CheckOrderStatus┤ │ │   │         │   
    TfrmOrders.mnuActChgEvntClick┤ │ │ │   │         │   
       TfrmOrders.mnuActHoldClick┤ │ │ │   │         │   
     TfrmOrders.mnuActUnholdClick┤ │ │ │   │         │   
      TfrmOrders.mnuActRenewClick┤ │ │ │   │         │   
     TfrmOrders.mnuActChangeClick┤ │ │ │   │         │   
       TfrmOrders.mnuActCopyClick┘ │ │ │   │         │   
             TfrmMeds.mnuActDCClick┤ │ │   │         │   
            TfrmMeds.CheckMedStatus┘ │ │   │         │   
         TfrmMeds.mnuActHoldClick┤   │ │   │         │   
        TfrmMeds.mnuActRenewClick┤   │ │   │         │   
       TfrmMeds.mnuActUnholdClick┤   │ │   │         │   
       TfrmMeds.mnuActChangeClick┤   │ │   │         │   
         TfrmMeds.mnuActCopyClick┤   │ │   │         │   
       TfrmMeds.mnuActRefillClick┘   │ │   │         │   
                   TfrmFrame.ViewInfo┘ │   │         │   
                TfrmDCSumm.ViewInfo┤   │   │         │   
              TfrmConsults.ViewInfo┤   │   │         │   
      TfrmFrame.pnlRemindersMouseUp┤   │   │         │   
       TfrmFrame.RemindersChanged┘ │   │   │         │   
           TfrmFrame.FormCreate┘   │   │   │         │   
             TfrmFrame.pnlCIRNClick┤   │   │         │   
       TfrmFrame.pnlVistaWebClick┤ │   │   │         │   
            TfrmFrame.FormKeyDown┘ │   │   │         │   
          TfrmFrame.pnlPatientClick┤   │   │         │   
            TfrmFrame.pnlVisitClick┤   │   │         │   
      TfrmFrame.pnlPrimaryCareClick┤   │   │         │   
        TfrmFrame.pnlRemindersClick┤   │   │         │   
         TfrmFrame.pnlPostingsClick┤   │   │         │   
             TfrmFrame.pnlFlagClick┤   │   │         │   
               TfrmFrame.laMHVClick┤   │   │         │   
              TfrmFrame.laVAA2Click┤   │   │         │   
                TfrmOrders.ViewInfo┤   │   │         │   
                  TfrmMeds.ViewInfo┤   │   │         │   
               TfrmSurgery.ViewInfo┤   │   │         │   
                 TfrmNotes.ViewInfo┤   │   │         │   
              TfrmProblems.ViewInfo┘   │   │         │   
      TfrmFrame.mnuFileNotifRemoveClick┤   │         │   
              TfrmFrame.NextButtonClick┘   │         │   
            TfrmFrame.SetUpNextButton┘     │         │   
      TfrmFrame.mnuFileOpenClick...┤       │         │   
               TfrmFrame.FormResize┘       │         │   
             TfrmFrame.ChangeFont┘         │         │   
     TfrmFrame.LoadSizesForUser┤           │         │   
TfrmFrame.LoadUserPreferences┘ │           │         │   
       TfrmFrame.UMInitiate┘   │           │         │   
     TfrmFrame.mnuFontSizeClick┘           │         │   
              TfrmFrame.mnuFileOpenClick...┤         │   
           TfrmFrame.AllowCCOWContextChange┤         │   
            TfrmFrame.mnuFileNextClick...┤ │         │   
            TfrmFrame.mnuFileOpenClick...┤ │         │   
   TfrmFrame.mnuFileResumeContextSetClick┘ │         │   
                TfrmFrame.UpdateCCOWContext┤         │   
            TfrmFrame.mnuFileOpenClick...┤ │         │   
          TfrmFrame.ctxContextorCommitted┤ │         │   
           TfrmFrame.StartCCOWContextor┘ │ │         │   
                 TfrmFrame.FormCreate┘   │ │         │   
   TfrmFrame.mnuFileResumeContextGetClick┘ │         │   
     TfrmFrame.mnuFileResumeContextSetClick┘         │   
                                 TfrmLabs.cmdOldClick┘   

Called-By

Name Declaration Comments
TfrmLabs.GetInterimGrid procedure GetInterimGrid(adatetime: TFMDateTime; direction: integer); -


Source

1968  procedure TfrmLabs.FillGrid(agrid: TStringGrid; aitems: TStrings);
1969  var
1970    testcnt, x, y, i: integer;
1971  begin
1972    testcnt := strtoint(Piece(aitems[0], '^', 1));
1973    with agrid do
1974    begin
1975      if testcnt = 0 then RowCount := 3 else RowCount := testcnt + 1;
1976      ColCount := 6;
1977      DefaultColWidth := agrid.Width div ColCount - 2;
1978      ColWidths[0] := 120;               //agrid.Width div 6;
1979      ColWidths[1] := agrid.Width div 4; //5
1980      ColWidths[5] := agrid.Width div 7; //5
1981      ColWidths[3] := agrid.Width div 14;//12
1982      ColWidths[4] := agrid.Width div 12;//9
1983      ColWidths[2] := agrid.Width div 5; //agrid.Width - ColWidths[0] - ColWidths[1] - ColWidths[3] - ColWidths[4] - 8;
1984      FixedCols := 0;
1985      FixedRows := 1;
1986      for y := 0 to RowCount - 1 do
1987        for x := 0 to ColCount - 1 do
1988          Cells[x, y] := '';
1989      Cells[0, 0] := 'Collection Date/Time';
1990      Cells[1, 0] := 'Test';
1991      Cells[2, 0] := 'Result / Status';
1992      Cells[3, 0] := 'Flag';
1993      Cells[4, 0] := 'Units';
1994      Cells[5, 0] := 'Ref Range';
1995      for i := 1 to testcnt do
1996      begin
1997        if i = 1 then Cells[0, i] := lblDate.Caption
1998        else Cells[0, i] := '';
1999        Cells[1, i] := Piece(aitems[i], '^', 2);
2000        Cells[2, i] := Piece(aitems[i], '^', 3);
2001        Cells[3, i] := Piece(aitems[i], '^', 4);
2002        Cells[4, i] := Piece(aitems[i], '^', 5);
2003        Cells[5, i] := Piece(aitems[i], '^', 6);
2004      end;
2005    end;
2006  end;