Procedure

TfrmEncVitals.btnEnterVitalsClick

Module

fEncVitals

Last Modified

7/15/2014 3:26:36 PM

Comments

Vitals lite

Visibility

Public/Published

Owner

TfrmEncVitals

Declaration

procedure btnEnterVitalsClick(Sender: TObject); //vitals lite

Calls Hierarchy


TfrmEncVitals.btnEnterVitalsClick
 └TfrmEncVitals.LoadVitalsList
   └TfrmEncVitals.LoadVitalView

Calls

Name Declaration Comments
TfrmEncVitals.LoadVitalsList procedure LoadVitalsList; -


Source

573   procedure TfrmEncVitals.btnEnterVitalsClick(Sender: TObject);
574   var
575     VLPtVitals : TGMV_VitalsEnterDLG;
576     GMV_FName : String;
577   begin
578     inherited;
579     if VitalsDLLHandle = 0 then Exit;//The DLL was initialized on Create, but just in case....
580     GMV_FName := 'GMV_VitalsEnterDLG';
581     @VLPtVitals := GetProcAddress(VitalsDLLHandle,PChar(GMV_FName));
582     if assigned(VLPtVitals) then
583     begin
584       VLPtVitals(
585         RPCBrokerV,
586         Patient.DFN,
587         FloatToStr(uEncPCEData.Location),
588         GMV_DEFAULT_TEMPLATE,
589         GMV_APP_SIGNATURE,
590         FMDateTimeToDateTime(uEncPCEData.DateTime),
591         Patient.Name,
592         frmFrame.lblPtSSN.Caption + '    ' + frmFrame.lblPtAge.Caption
593       );
594     end
595     else
596       MessageDLG('Unable to find function "'+GMV_FName+'".',mtError,[mbok],0);
597     @VLPtVitals := nil;
598     LoadVitalsList;
599   end;