Changeset 1679 for cprs/trunk/CPRS-Chart/Orders/fODBase.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/fODBase.pas (modified) (12 diffs)

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

@@ -44 +44 @@
   private
     FDialog: string;
+    FDialogDisplayName: string;
     FResponseList: TList;
     FPrompts: TList;
@@ -99 +100 @@
       const AnIValue, AnEValue: string);
     property Dialog: string            read FDialog         write SetDialog;
+    property DialogDisplayName: string read FDialogDisplayName write FDialogDisplayName;
     property DisplayGroup: Integer     read FDisplayGroup   write FDisplayGroup;
     property CopyOrder:    string      read FCopyOrder      write SetCopyOrder;
@@ -645 +647 @@
   if CopyOrder <> '' then DupORIFN := CopyOrder;
   //if {(CopyOrder <> '') or} (EditOrder <> '') then Exit;  // only check new orders
-  with FResponseList do for i := 0 to Count - 1 do with TResponse(Items[i]) do
-    if (PromptID = 'ORDERABLE') or (PromptID = 'ADDITIVE') then
-    begin
-      OrderableIEN := IValue;
-      TheInstance := Instance;
-      PkgPart := '';
-      if AFillerID = 'LR' then PkgPart := '^LR^' + IValueFor('SPECIMEN', TheInstance);
-      if (AFillerID = 'PSI') or (AFillerID = 'PSO') or (AFillerID = 'PSH')
-        then PkgPart := U + AFillerID + U + IValueFor('DRUG', TheInstance);
-        // was -- then PkgPart := '^PS^' + IValueFor('DRUG', TheInstance);
-      if AFillerID = 'PSIV' then
+  with FResponseList do
+    for i := 0 to FResponseList.Count - 1 do
       begin
-        if PromptID = 'ORDERABLE' then PkgPart := '^PSIV^B;' + IValueFor('VOLUME', TheInstance);
-        if PromptID = 'ADDITIVE'  then PkgPart := '^PSIV^A';
+        with TResponse(Items[i]) do
+          begin
+            if (PromptID = 'ORDERABLE') or (PromptID = 'ADDITIVE') then
+              begin
+                OrderableIEN := IValue;
+                TheInstance := Instance;
+                PkgPart := '';
+                if AFillerID = 'LR' then PkgPart := '^LR^' + IValueFor('SPECIMEN', TheInstance);
+                if (AFillerID = 'PSI') or (AFillerID = 'PSO') or (AFillerID = 'PSH') or (AFillerID = 'PSNV')
+                  then PkgPart := U + AFillerID + U + IValueFor('DRUG', TheInstance);
+                // was -- then PkgPart := '^PS^' + IValueFor('DRUG', TheInstance);
+                if AFillerID = 'PSIV' then
+                  begin
+                    if PromptID = 'ORDERABLE' then PkgPart := '^PSIV^B;' + IValueFor('VOLUME', TheInstance);
+                    if PromptID = 'ADDITIVE'  then PkgPart := '^PSIV^A';
+                  end;
+                AList.Add(OrderableIEN + PkgPart);
+              end;
+            //AGP IV CHANGES
+            if (AFillerID = 'PSI') or (AFillerID = 'PSO') or (AFillerID = 'PSH') or (AFillerID = 'PSIV') or (AFillerID = 'PSNV') then
+              begin
+                IF PromptID = 'COMMENT' then continue;
+                Alist.Add(AFillerID + U + PromptID + U + InttoStr(Instance) + U + IValueFor(PromptID, Instance) + U + EValueFor(PromptID, Instance));
+              end;
       end;
-      AList.Add(OrderableIEN + PkgPart);
-    end;
+  end;
   AStartDtTm := IValueFor('START', 1);
 end;
@@ -1138 +1152 @@
     ExpandOrderObjects(tmp, HasObjects);
     FOrderContainsObjects := FOrderContainsObjects or HasObjects;
+    
+    if frmODBase.FAbortOrder then
+    begin
+      SetTemplateDialogCanceled(FALSE);
+      Exit;
+    end;
+
     if IEN <> 0 then
       begin
@@ -1155 +1176 @@
       CheckBoilerplate4Fields(tmp, cptn);
     List.Text := tmp;
+    if WasTemplateDialogCanceled then frmODBase.FAbortOrder := True;
+
   end;
 
@@ -1301 +1324 @@
 {Caller needs to set pnlMessage.TabOrder}
 begin
+  //TDP - Added pnlMessage.Caption for screen reader readability
+  pnlMessage.Caption := 'Informational Message.';
   memMessage.Lines.SetText(PChar(AMessage));
   //begin CQ: 2640
@@ -1323 +1348 @@
   FOrderAction := OrderAction;
   FAbortOrder := False;
+  SetTemplateDialogCanceled(False);   //wat/jh CQ 20061
   case OrderAction of
   ORDER_NEW:   {nothing};
@@ -1468 +1494 @@
     StatusText('Order Checking...');
     Responses.BuildOCItems(OIList, StartDtTm, FillerID);
-    OrderChecksOnAccept(Responses.OrderChecks, FillerID, StartDtTm, OIList, DupORIFN);
+    OrderChecksOnAccept(Responses.OrderChecks, FillerID, StartDtTm, OIList, DupORIFN,'0');
     DupORIFN := '';
     StatusText('');
@@ -1490 +1516 @@
 begin
   Result := True;
+  IsDelayOrder := False;
   Validate(ErrMsg);
-  IsDelayOrder := False;
   if Length(ErrMsg) > 0 then
   begin
@@ -1500 +1526 @@
   if not AcceptOrderChecks then
   begin
+    //added code to shut CPRS down without access violations if the fOCAccept is open when timing out.
+    if frmFrame.TimedOut then
+      begin
+         Result := False;
+         Exit;
+      end;
     if AskAnotherOrder(DialogIEN) then
         InitDialog           // ClearDialogControls is in InitDialog
@@ -1541 +1573 @@
         else CanSign := CH_SIGN_NA;
       if NewOrder.Signature = OSS_NOT_REQUIRE then CanSign := CH_SIGN_NA;
-      if NewOrder.EventPtr <> '' then IsDelayOrder := True;
-      Changes.Add(CH_ORD, NewOrder.ID, NewOrder.Text, Responses.FViewName, CanSign,'',0, NewOrder.DGroupName, False,IsDelayOrder);
+      if (NewOrder.EventPtr <> '') and (GetEventDefaultDlg(responses.FEventIFN) <> InttoStr(Responses.QuickOrder)) then
+          IsDelayOrder := True;
+      Changes.Add(CH_ORD, NewOrder.ID, NewOrder.Text, Responses.FViewName, CanSign,'',0, NewOrder.DGroupName, False, IsDelayOrder);
 
     UBAGlobals.TargetOrderID := NewOrder.ID;
@@ -1711 +1744 @@
   //self.Responses.Cancel := False;
   if User.NoOrdering then Exit;
-  if FAbortOrder then exit;
+  if FAbortOrder then
+  begin
+    SetTemplateDialogCanceled(FALSE);
+    exit;
+  end;
   if FOrderAction in [ORDER_EDIT, ORDER_COPY] then Exit;  // don't invoke verify dialog
   if FOrderAction = ORDER_QUICK then Exit;                // should this be here??