Function

TfrmEncVitals.AssignVitals

Module

fEncVitals

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public/Published

Owner

TfrmEncVitals

Declaration

function AssignVitals: boolean;

Calls Hierarchy


TfrmEncVitals.AssignVitals
 ├ValidVitalsDate
 │ ├FMNow
 │ └TfrmBase508Form.Create
 │   ├TfrmBase508Form.UpdateAccessibilityActions
 │   ├UnfocusableControlEnter
 │   └AdjustControls
 │     ├TfrmBase508Form.ModifyUnfocusableControl
 │     └..(rec)..
 ├AssignVitals2List
 │ ├GetVitalUser
 │ └AddVital
 │   └GetVitalStr
 │     └ConvertVital
 ├PCERPCEncLocation
 └TfrmEncVitals.GetVitHTRate
   └ConvertHeight2Inches

Called-By Hierarchy


           TfrmEncVitals.AssignVitals
        TfrmEncounterFrame.SendData┘ 
TfrmEncounterFrame.FormCloseQuery┘   

Calls

Name Declaration Comments
AssignVitals2List procedure AssignVitals2List(List: TStrings; ADateTime: TFMDateTime; ALocation, ABP, ATemp, ATempUnits, AResp, APulse, AHeight, AHeightUnits, AWeight, AWeightUnits, APain: string); -
TfrmEncVitals.GetVitHTRate function GetVitHTRate: String; -
PCERPCEncLocation function PCERPCEncLocation: integer; -
ValidVitalsDate function ValidVitalsDate(var ADate: TFMDateTime; SkipFirst: boolean = FALSE; Show: boolean = true): boolean; -

Called-By

Name Declaration Comments
TfrmEncounterFrame.SendData procedure SendData; -


Source

253   function TfrmEncVitals.AssignVitals: boolean;
254   var
255     TmpDate: TFMDateTime;
256   
257   begin
258     TmpDate := txtMeasDate.FMDateTime;
259     Result := ValidVitalsDate(TmpDate);
260     if Result then
261       AssignVitals2List(uVitalNew, TmpDate, FloatToStr(PCERPCEncLocation),
262                          txtMeasBP.text, txtMeasTemp.text, cboTemp.text,
263                          txtMeasResp.text, txtMeasPulse.text, GetVitHTRate, cboHeight.text,
264                          txtMeasWT.text, cboWeight.text, cboPain.ItemID);
265   end;