Changeset 1679 for cprs/trunk/CPRS-Chart/Orders/rODRad.pas

Timestamp:

May 7, 2015, 12:34:29 PM (10 years ago)

Author:

healthsevak

Message:

Updating the working copy to CPRS version 28

File:

• cprs/trunk/CPRS-Chart/Orders/rODRad.pas (modified) (2 diffs)

cprs/trunk/CPRS-Chart/Orders/rODRad.pas

@@ -13 +13 @@
 function SubsetOfImagingTypes: TStrings;
 function SubsetOfRadSources(SrcType: string): TStrings;
-function LocationType(Location: integer): string;  
+function LocationType(Location: integer): string;
 function ReasonForStudyCarryOn: Boolean;
 
@@ -74 +74 @@
 begin
   Result := sCallV('ORWDRA32 LOCTYPE',[Location]);
-end;    
+end;
 
 function ReasonForStudyCarryOn: Boolean;