Procedure

TfrmPtSelOptns.cboListNeedData

Module

fPtSelOptns

Last Modified

7/15/2014 3:26:38 PM

Comments

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.

Visibility

Public/Published

Owner

TfrmPtSelOptns

Declaration

procedure cboListNeedData(Sender: TObject; const StartFrom: String;
  Direction, InsertAt: Integer);

Calls Hierarchy


TfrmPtSelOptns.cboListNeedData
 ├SubSetOfProviders
 └SubSetOfClinics

Calls

Name Declaration Comments
SubSetOfClinics function SubSetOfClinics(const StartFrom: string; Direction: Integer): TStrings; -
SubSetOfProviders function SubSetOfProviders(const StartFrom: string; Direction: Integer): TStrings; -


Source

221   procedure TfrmPtSelOptns.cboListNeedData(Sender: TObject; const StartFrom: String; Direction, InsertAt: Integer);
222   {CQ6363 Notes: This procedure was altered for CQ6363, but then changed back to its original form, as it is now.
223   
224   The problem is that in LOM1T, there are numerous entries in the HOSPITAL LOCATION file (44) that are lower-case,
225   resulting in a "B" xref that looks like this:
226   
227   ^SC("B","module 1x",2897) = 
228   ^SC("B","pt",3420) = 
229   ^SC("B","read",3146) = 
230   ^SC("B","zz GIM/WONG NEW",2902) = 
231   ^SC("B","zz bhost/arm",3076) = 
232   ^SC("B","zz bhost/day",2698) = 
233   ^SC("B","zz bhost/eve/ornelas",2885) = 
234   ^SC("B","zz bhost/resident",2710) = 
235   ^SC("B","zz bhost/sws",2946) = 
236   ^SC("B","zz c&P ortho/patel",3292) = 
237   ^SC("B","zz mhc md/kelley",320) = 
238   ^SC("B","zz/mhc/p",1076) = 
239   ^SC("B","zzMHC MD/THRASHER",1018) = 
240   ^SC("B","zztest clinic",3090) = 
241   ^SC("B","zzz-hbpc-phone-jung",1830) = 
242   ^SC("B","zzz-hbpcphone cocohran",1825) = 
243   ^SC("B","zzz-home service",1428) = 
244   ^SC("B","zzz-phone-deloye",1834) = 
245   ^SC("B","zzz/gmonti impotence",2193) =
246   
247   ASCII sort mode puts those entries at the end of the "B" xref, but when retrieved by CPRS and upper-cased, it
248   messes up the logic of the combo box.  This problem has been around since there was a CPRS GUI, and the best
249   possible fix is to require those entries to either be in all uppercase or be removed.  If that's cleaned up,
250   the logic below will work correctly.
251   }
252   begin
253     case frmPtSelOptns.SrcType of
254     TAG_SRC_PROV: cboList.ForDataUse(SubSetOfProviders(StartFrom, Direction));
255     TAG_SRC_CLIN: cboList.ForDataUse(SubSetOfClinics(StartFrom, Direction));
256     end;
257   end;