Changeset 460 for cprs/branches/foia-cprs/CPRS-Chart/fPtSelOptns.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/fPtSelOptns.pas (modified) (1 diff)

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

@@ -218 +218 @@
 end;
 
-procedure TfrmPtSelOptns.cboListNeedData(Sender: TObject;
-  const StartFrom: String; Direction, InsertAt: Integer);
+procedure TfrmPtSelOptns.cboListNeedData(Sender: TObject; const StartFrom: String; Direction, InsertAt: Integer);
+{CQ6363 Notes: This procedure was altered for CQ6363, but then changed back to its original form, as it is now.
+
+The problem is that in LOM1T, there are numerous entries in the HOSPITAL LOCATION file (44) that are lower-case,
+resulting in a "B" xref that looks like this:
+
+^SC("B","module 1x",2897) = 
+^SC("B","pt",3420) = 
+^SC("B","read",3146) = 
+^SC("B","zz GIM/WONG NEW",2902) = 
+^SC("B","zz bhost/arm",3076) = 
+^SC("B","zz bhost/day",2698) = 
+^SC("B","zz bhost/eve/ornelas",2885) = 
+^SC("B","zz bhost/resident",2710) = 
+^SC("B","zz bhost/sws",2946) = 
+^SC("B","zz c&P ortho/patel",3292) = 
+^SC("B","zz mhc md/kelley",320) = 
+^SC("B","zz/mhc/p",1076) = 
+^SC("B","zzMHC MD/THRASHER",1018) = 
+^SC("B","zztest clinic",3090) = 
+^SC("B","zzz-hbpc-phone-jung",1830) = 
+^SC("B","zzz-hbpcphone cocohran",1825) = 
+^SC("B","zzz-home service",1428) = 
+^SC("B","zzz-phone-deloye",1834) = 
+^SC("B","zzz/gmonti impotence",2193) =
+
+ASCII sort mode puts those entries at the end of the "B" xref, but when retrieved by CPRS and upper-cased, it
+messes up the logic of the combo box.  This problem has been around since there was a CPRS GUI, and the best
+possible fix is to require those entries to either be in all uppercase or be removed.  If that's cleaned up,
+the logic below will work correctly.
+}
 begin
   case frmPtSelOptns.SrcType of