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

Timestamp:

Jul 7, 2010, 4:31:10 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Upgrade to version 27

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;
 
 implementation
@@ -73 +74 @@
 begin
   Result := sCallV('ORWDRA32 LOCTYPE',[Location]);
+end;    
+
+function ReasonForStudyCarryOn: Boolean;
+begin
+  Result := sCallV('ORWDXM1 SVRPC',['']) = '1';
 end;