Changeset 829 for cprs/trunk/CPRS-Chart/Orders/rODAllergy.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/rODAllergy.pas (modified) (6 diffs)

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

@@ -5 +5 @@
 interface
 
-uses SysUtils, Classes, ORNet, ORFn, rCore, uCore, TRPCB, dialogs, rMisc ;
+uses SysUtils, Classes, ORNet, ORFn, rCore, uCore, TRPCB, dialogs, rMisc,fNotes ;
 
 type
@@ -71 +71 @@
 function EnableErrorComments: boolean;
 function IsARTClinicalUser(var AMessage: string): boolean;
+function GetAllergyTitleText: string;
 
 implementation
@@ -169 +170 @@
   i: integer;
 begin
+
   with RPCBrokerV, EditRec do
     begin
@@ -215 +217 @@
                     Mult['"GMRAERRCMTS",' + IntToStr(i+1)] := Strings[i];
                 end;
+
             end ;
           with ChartMarked do if Count > 0 then
@@ -241 +244 @@
             end;
         end;
-      CallBroker;
-      Result := Results[0];
-    end;
+        CallBroker;
+        Result := Results[0];
+        // Include "Allergy Entered in Error" items require signature list.
+        //cq-8002  -piece 2 is Allergy Entered in Error (IEN)
+       // code added allowing v27 GUI changes to continue if M change is not released prior.
+       //cq-14842 -  add observed/drug allergies to the fReview/fSignOrders forms for signature.
+       if Length(Piece(Result,'^',2))> 0 then
+         Changes.Add(10, Piece(Result,'^',2), GetAllergyTitleText, '', 1)
+       else
+          exit;
+        end;
 end;
 
@@ -363 +374 @@
 end;
 
+function GetAllergyTitleText: string;
+begin
+    Result := FormatFMDateTime('mmm dd,yy', MakeFMDateTime(floatToStr(FMToday))) +
+              '  ' + 'Adverse React/Allergy' + ', ' + Encounter.LocationName + ', ' + User.Name;
+end;
+
 end.