Function

GetCWADInfo

Module

rODAllergy

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Declaration

function GetCWADInfo(const DFN: string): string;

Called-By Hierarchy


                    GetCWADInfo
         TfrmFrame.UMNewOrder┤ 
TfrmCover.UpdateAllergiesList┘ 
      TfrmCover.NotifyOrder┤   
     TfrmFrame.UMNewOrder┘ │   
      TfrmCover.popNKAClick┤   
 TfrmARTAllergy.FormDestroy┘   

Called-By

Name Declaration Comments
TfrmFrame.UMNewOrder procedure UMNewOrder(var Message: TMessage); message UM_NEWORDER; -
TfrmCover.UpdateAllergiesList procedure UpdateAllergiesList; -


Source

103   function GetCWADInfo(const DFN: string): string;
104   begin
105     Result := sCallV('ORWPT CWAD',[DFN]);
106   end;