Function

TfrmODMedNVA.ValueOfResponse

Module

fODMedNVA

Last Modified

7/15/2014 3:26:42 PM

Visibility

Private

Owner

TfrmODMedNVA

Declaration

function ValueOfResponse(FieldID: Integer; AnInstance: Integer = 1): string;

Calls Hierarchy


TfrmODMedNVA.ValueOfResponse
 └TResponses.IValueFor

Called-By Hierarchy


        TfrmODMedNVA.ValueOfResponse
                  ValidateSchedule┤ 
      TfrmODMedNVA.SetOnQuickOrder┤ 
        TfrmODMedNVA.SetupDialog┤ │ 
     TfrmODMedNVA.btnSelectClick┘ │ 
     TfrmODMedNVA.UMDelayClick┘   │ 
 TfrmODMedNVA.timCheckChangesTimer┘ 
      TfrmODMedNVA.UpdateRelated┘   
      TfrmODMedNVA.SetupDialog┤     
TfrmODMedNVA.btnSelectClick...┤     
   TfrmODMedNVA.cboDosageClick┤     
  TfrmODMedNVA.cboDosageExit┘ │     
  TfrmODMedNVA.cboDosageChange┤     
 TfrmODMedNVA.cboScheduleClick┤     
TfrmODMedNVA.cboScheduleChange┤     
     TfrmODMedNVA.grdDosesExit┘     

Calls

Name Declaration Comments
TResponses.IValueFor function IValueFor(const APromptID: string; AnInstance: Integer): string; -

Called-By

Name Declaration Comments
TfrmODMedNVA.SetOnQuickOrder procedure SetOnQuickOrder; -
TfrmODMedNVA.timCheckChangesTimer procedure timCheckChangesTimer(Sender: TObject); -
ValidateSchedule procedure ValidateSchedule(const x: string; AnInstance: Integer); -


Source

1864  function TfrmODMedNVA.ValueOfResponse(FieldID: Integer; AnInstance: Integer = 1): string;
1865  var
1866    x: string;
1867  begin
1868    case FieldID of
1869    FLD_SCHEDULE  : Result := Responses.IValueFor('SCHEDULE', AnInstance);
1870    FLD_UNITNOUN  : begin
1871                      x := Responses.IValueFor('DOSE',   AnInstance);
1872                      Result := Piece(x, '&', 3) + ' ' + Piece(x, '&', 4);
1873                    end;
1874    FLD_DOSEUNIT  : begin
1875                      x := Responses.IValueFor('DOSE',   AnInstance);
1876                      Result := Piece(x, '&', 3);
1877                    end;
1878    FLD_DRUG_ID   : Result := Responses.IValueFor('DRUG',     AnInstance);
1879    FLD_INSTRUCT  : Result := Responses.IValueFor('INSTR',    AnInstance);
1880    FLD_SUPPLY    : Result := Responses.IValueFor('SUPPLY',   AnInstance);
1881    FLD_QUANTITY  : Result := Responses.IValueFor('QTY',      AnInstance);
1882    FLD_ROUTE_ID  : Result := Responses.IValueFor('ROUTE',    AnInstance);
1883    FLD_EXPIRE    : Result := Responses.IValueFor('DAYS',     AnInstance);
1884    FLD_ANDTHEN   : Result := Responses.IValueFor('CONJ',     AnInstance);
1885    end;
1886  end;