Procedure

TBAGlobals.AddBAPCEDiag

Module

UBAGlobals

Last Modified

7/15/2014 3:26:34 PM

Comments

This procedure is called from uPCE.pas only --  do not delete.....

Visibility

Published

Owner

TBAGlobals

Declaration

procedure AddBAPCEDiag(DiagStr:string);


Source

987   procedure TBAGlobals.AddBAPCEDiag(DiagStr:string);
988   begin
989     if (BAPCEDiagList.Count <= 0) then
990       BAPCEDiagList.Add('^Encounter Diagnoses');
991   
992     BAPCEDiagList.Add(DiagStr);
993   end;