Changeset 460 for cprs/branches/foia-cprs/CPRS-Chart/Orders/fODLab.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/fODLab.pas (modified) (6 diffs)

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

@@ -181 +181 @@
 
 uses rODBase, rODLab, uCore, rCore, fODLabOthCollSamp, fODLabOthSpec, fODLabImmedColl, fLabCollTimes,
- rOrders, uODBase, fRptBox;
+ rOrders, uODBase, fRptBox, fFrame;
 
 
@@ -208 +208 @@
   AList: TStringList;
 begin
+  frmFrame.pnlVisit.Enabled := false;
   AutoSizeDisabled := True;
   inherited;
@@ -417 +418 @@
       TestID := StrToInt(LabTestIEN);
       TestName := Piece(ExtractDefault(LoadData, 'Test Name'),U,1);
-      LabSubscript := Piece(ExtractDefault(LoadData, 'Test Name'),U,2);
+      LabSubscript := Piece(ExtractDefault(LoadData, 'Item ID'),U,2);
       TestReqComment := ExtractDefault(LoadData, 'ReqCom');
       if Length(ExtractDefault(LoadData, 'Unique CollSamp')) > 0 then UniqueCollSamp := True;
@@ -826 +827 @@
 
 procedure TfrmODLab.ControlChange(Sender: TObject);
+var
+  AResponse: TResponse;
+  AVisitStr: string;
 begin
   inherited;
   if Changing or (ALabTest = nil) then Exit;
+  AResponse := Responses.FindResponseByName('VISITSTR', 1);
+  if AResponse <> nil then
+    AVisitStr := AResponse.EValue;
   Responses.Clear;
   with ALabTest do
@@ -877 +884 @@
   with txtDays do if Enabled then Responses.Update('DAYS', 1, Text, Text);
   { worry about stop date later }
+  if AVisitStr <> '' then Responses.Update('VISITSTR', 1, AVisitStr, AVisitStr);
   memOrder.Text := Responses.OrderText;
 end;
@@ -1527 +1535 @@
   inherited;
   if FCmtTypes <> nil then FCmtTypes.Free;
+  frmFrame.pnlVisit.Enabled := true;
 end;