Changeset 460 for cprs/branches/foia-cprs/CPRS-Chart/Orders/fODAuto.pas

Timestamp:

Jul 6, 2008, 8:20:14 PM (16 years ago)

Author:

Kevin Toppenberg

Message:

Uploading from OR_30_258

File:

• cprs/branches/foia-cprs/CPRS-Chart/Orders/fODAuto.pas (modified) (4 diffs)

cprs/branches/foia-cprs/CPRS-Chart/Orders/fODAuto.pas

@@ -24 +24 @@
 
 uses rODBase, rOrders, fTemplateDialog, uTemplateFields, rTemplates, uConst, uTemplates,
-     rConsults;
+     rConsults, uCore, uODBase;
 
 procedure TfrmODAuto.InitDialog;
@@ -38 +38 @@
   LType: TTemplateLinkType;
   IEN: integer;
+  HasObjects: boolean;
 
 begin
@@ -44 +45 @@
   LType := DisplayGroupToLinkType(Responses.DisplayGroup);
   tmp := Responses.EValueFor('COMMENT', 1);
+  ExpandOrderObjects(tmp, HasObjects);
+  Responses.OrderContainsObjects := Responses.OrderContainsObjects or HasObjects;
   if (LType <> ltNone) or HasTemplateField(tmp) then
   begin
@@ -56 +59 @@
     else
       CheckBoilerplate4Fields(tmp, cptn);
-      
+
     if tmp <> '' then
       Responses.Update('COMMENT', 1, TX_WPTYPE, tmp)