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

cprs/branches/foia-cprs/CPRS-Chart/fAllgyFind.pas

@@ -19 +19 @@
     tvAgent: TORTreeView;
     imTree: TImageList;
-    Label1: TLabel;
+    lblDetail: TLabel;
+    lblSearchCaption: TLabel;
     procedure cmdSearchClick(Sender: TObject);
     procedure cmdCancelClick(Sender: TObject);
@@ -49 +50 @@
   ST_FOUND      = 'Select from the matching entries on the list, or search again.';
   ST_NONE_FOUND = 'No matching items were found.';
-  TC_FREE_TEXT  = 'Causative Agent Not On File';
-  TX_FREE_TEXT  = 'Would you like to request that this term be added to' + #13#10 +
+  TC_FREE_TEXT  = 'Causative Agent Not On File - No Matches for ';
+(*  TX_FREE_TEXT  = 'Would you like to request that this term be added to' + #13#10 +
                   'the list of available allergies?' + #13#10 + #13#10 +
                   '"YES" will send a bulletin to request addition of your' + #13#10 +
@@ -58 +59 @@
                   'check your spelling, try alternate spellings or a trade name,' + #13#10 +
                   'or contact your allergy coordinator for assistance.' + #13#10 + #13#10 +
-                  '"CANCEL" will abort this entry process completely.';
-  TX_BULLETIN   = 'Bulletin has been sent.';
+                  '"CANCEL" will abort this entry process completely.';*)
+  // NEW TEXT SUBSTITUTED IN V26.50 - RV
+  TX_FREE_TEXT  = 'The agent you typed was not found in the database.'  + CRLF +
+                  'Consider the common causes of search failure:'       + CRLF +
+                  '      Misspellings'                                  + CRLF +
+                  '      Typing more than one agent in a single entry ' + CRLF +
+                  '      Typing "No known allergies"'                   + CRLF +
+                   CRLF +
+                   'Select "NO" to attempt the search again.  Carefully check your spelling,'+ CRLF +
+                   'try an alternate spelling, a trade name, a generic name or just entering' + CRLF +
+                   'the first few characters (minimum of 3).  Enter only one allergy at a time.' + CRLF +
+                   'Use the "No Known Allergies" check box to mark a patient as NKA.' + CRLF +
+                   CRLF +
+                   'Select "YES" to send a bulletin to the allergy coordinator to request assistance.'  + CRLF +
+                   'Only do this if you''ve tried alternate methods of finding the causative agent'  + CRLF +
+                   'and have been unsuccessful.'  + CRLF +
+                   CRLF +
+                  'Select "CANCEL" to abort this entry process.';
+
+  TX_BULLETIN   = 'Bulletin has been sent.' + CRLF +
+                  'NOTE: This reactant was NOT added for this patient.';
   TC_BULLETIN_ERROR = 'Unable to Send Bulletin';
   TX_BULLETIN_ERROR = 'Free text entries are no longer allowed.' + #13#10 +
@@ -186 +206 @@
   x: string;
   tmpList: TStringList;
-  OKtoContinue: boolean;
+  OKtoContinue: boolean ;
 begin
   inherited;
@@ -206 +226 @@
     begin
       FAllergy := '';
-      case InfoBox(TX_FREE_TEXT, TC_FREE_TEXT, MB_YESNOCANCEL or MB_DEFBUTTON2 or MB_ICONQUESTION)of
+      case InfoBox(TX_FREE_TEXT, TC_FREE_TEXT + UpperCase(txtSearch.Text), MB_YESNOCANCEL or MB_DEFBUTTON2 or MB_ICONQUESTION)of
         ID_YES   :  // send bulletin and abort free-text entry
                     begin