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

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

@@ -60 +60 @@
     btnSevHelp: TORAlignButton;
     procedure btnAgentClick(Sender: TObject);
-    procedure FormCreate(Sender: TObject);
+    procedure FormCreate(Sender: TObject); 
     procedure cboOriginatorNeedData(Sender: TObject; const StartFrom: String;
       Direction, InsertAt: Integer);
@@ -160 +160 @@
                    'HISTORICAL: reported by the patient as occurring in the past;' + CRLF +
                    'no longer requires intervention' ;
+
  NEW_ALLERGY = True;
  ENTERED_IN_ERROR = True;
@@ -190 +191 @@
   Result := False;
   frmARTAllergy := TfrmARTAllergy.Create(Application);
+  if frmARTAllergy.AbortAction then exit;
   with frmARTAllergy do
     try
@@ -286 +288 @@
   ExtractItems(cboSymptoms.Items, Defaults, 'Top Ten');
   cboSymptoms.InsertSeparator;
+  cboSymptoms.InitLongList('');
   cboOriginator.InitLongList(User.Name) ;
   cboOriginator.SelectByIEN(User.DUZ);
@@ -301 +304 @@
 var
   Allergy: string;
-begin
-  inherited;
+  //ErrMsg: string;
+begin
+  inherited;
+  // since this only allows entry of new allergies, key check is irrelevant, eff. v26.12
+(*  if not IsARTClinicalUser(ErrMsg) then
+  begin
+    InfoBox(ErrMsg, 'No Authorization', MB_ICONWARNING or MB_OK);
+    AbortAction := True;
+    Close;
+    Exit;
+  end;*)
   Changing := True;
   FOldHintPause := Application.HintHidePause;
@@ -441 +453 @@
         begin
           if (lstSelectedSymptoms.Items.Count = 0)   then SetError(TX_NO_SYMPTOMS);
-          if (grpObsHist.Enabled) and RequireOriginatorComments and (memComments.Text = '')  then
+          if (grpObsHist.Enabled) and RequireOriginatorComments and (not ContainsVisibleChar(memComments.Text))  then
             SetError(TX_ORIG_CMTS_REQD);
           if (grpObsHist.Enabled) and (calObservedDate.Text = '')  then
@@ -627 +639 @@
               if tmpDate > 0 then ReactionDate := tmpDate;*)
               with cboSeverity do
-                if ItemID <> '' then
-                  Severity := ItemID;
+                if (ItemID <> '') and (Text <> '') then
+                  Severity := ItemID
+                else
+                  Severity := '';
               with memComments do
                 if GetTextLen > 0 then
@@ -886 +900 @@
 
 procedure TfrmARTAllergy.cboSymptomsMouseClick(Sender: TObject);
+const
+  TC_SS_MAX = 'Too many signs/symptoms';
+  TX_SS_MAX = 'A maximum of 38 signs/symptoms may be selected.';
 var
   x: string;
 begin
   inherited;
-  if (cboSymptoms.ItemIndex < 0) and (cboSymptoms.Text = '') then exit;
-  Changing := True;
+  with cboSymptoms do if (ItemIndex < 0) or (Text = '') or (ItemID = '') then exit;
   if (lstSelectedSymptoms.SelectByID(cboSymptoms.ItemID) > -1) or
      (lstSelectedSymptoms.Items.IndexOf(cboSymptoms.Text) > -1) then exit;
+  if (lstSelectedSymptoms.Count + 1) > 38 then
+  begin
+    InfoBox(TX_SS_MAX, TC_SS_MAX, MB_ICONERROR or MB_OK);
+    exit;
+  end;
+  Changing := True;
   if cboSymptoms.ItemIndex > -1 then
     begin
@@ -906 +928 @@
           SelectByID(cboSymptoms.ItemID);
         end;
-    end
-  else
+    end ;
+(*  else                             Free-text entries no longer allowed.
     with lstSelectedSymptoms do
       begin
         Items.Add('FT' + U + cboSymptoms.Text);
         ItemIndex := Items.Count - 1;
-      end;
+      end;*)
   Changing := False;
   ControlChange(Self)