Changeset 830 for cprs/trunk/CPRS-Chart/fProbs.pas

Timestamp:

Jul 7, 2010, 4:51:54 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Upgrading to version 27

File:

• cprs/trunk/CPRS-Chart/fProbs.pas (modified) (18 diffs)

cprs/trunk/CPRS-Chart/fProbs.pas

@@ -6 +6 @@
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
   fHSplit, StdCtrls, ExtCtrls, Menus, ORCtrls, Buttons, uProbs,
-  Grids, Vawrgrid, ORfn, uCore, fProbEdt, uConst, ComCtrls ;
+  Grids, Vawrgrid, ORfn, uCore, fProbEdt, uConst, ComCtrls,
+  VA508AccessibilityManager, fBase508Form;
 
 type
@@ -216 +217 @@
 
 uses fFrame, fProbFlt, fProbLex, rProbs, rcover, fCover, fRptBox,
-     fProbCmt, fEncnt, fReportsPrint, fReports, rPCE, DateUtils;
+     fProbCmt, fEncnt, fReportsPrint, fReports, rPCE, DateUtils, VA2006Utils,
+     VA508AccessibilityRouter;
 
 {$R *.DFM}
@@ -556 +558 @@
             AList := TStringList.Create;
             ProblemIFN := Piece(MString(wgProbData.ItemIndex), U, 1);
-            AList.Assign(EditLoad(ProblemIFN, pProviderID, PLPt.ptVAMC)) ;
+            FastAssign(EditLoad(ProblemIFN, pProviderID, PLPt.ptVAMC), AList) ;
             if Alist.count = 0 then
               begin
@@ -582 +584 @@
                   ut := '';
                   If PLUser.usPrimeUser then ut := '1';
-                  AList.Assign(EditSave(ProblemIFN,pProviderID,PLPt.ptVAMC,ut,ProbRec.FilerObject)) ;
+                  FastAssign(EditSave(ProblemIFN,pProviderID,PLPt.ptVAMC,ut,ProbRec.FilerObject), AList) ;
                   LoadPatientProblems(AList,PlUser.usViewAct[1],true);
                 end ;
@@ -934 +936 @@
 begin
   inherited;
+  FixHeaderControlDelphi2006Bug(HeaderControl);
   FAllProblems := TStringList.Create;
   FProblemsVisible := TStringList.Create;
   FItemData := TStringList.Create;
   PageID := CT_PROBLEMS;
-  wgProbData.Color := ReadOnlyColor;
   GetFontInfo(Canvas.Handle, gFontWidth, gFontHeight);
 end;
@@ -946 +948 @@
   i: integer;
 begin
-  AList.Assign(InitUser(User.DUZ)) ;
-  //AList.Assign(InitUser(Encounter.Provider)) ;
+  FastAssign(InitUser(User.DUZ), AList) ;
+  //FastAssign(InitUser(Encounter.Provider), AList) ;
   PLUser := TPLUserParams.create(Alist);
   FContextString := PLUser.usDefaultContext;
@@ -970 +972 @@
 procedure TfrmProblems.LoadPatientParams(AList:TstringList);
 begin
-  AList.Assign(InitPt(Patient.DFN)) ;
+  FastAssign(InitPt(Patient.DFN), AList) ;
   PLPt := TPLPt.create(Alist);
 end;
@@ -1029 +1031 @@
         st:=status;
         if st= '' then st := 'A'; {default to active list}
-        AList.Assign(ProblemList(Patient.DFN,St)) ;
+        FastAssign(ProblemList(Patient.DFN,St), AList) ;
       end;
     if Status = 'R' then
@@ -1073 +1075 @@
       if Piece(x, U, 15) = '1' then  //problem has comments
         begin
-          CmtList.Assign(GetProblemComments(Piece(x, U, 1)));
+          FastAssign(GetProblemComments(Piece(x, U, 1)), CmtList);
           if FAllProblems.Objects[i] = nil then FAllProblems.Objects[i]:= TStringList.Create;
-          TStringList(FAllProblems.Objects[i]).Assign(CmtList);
+          FastAssign(CmtList, TStringList(FAllProblems.Objects[i]));
         end;
 
@@ -1140 +1142 @@
   if not PLUser.usUseLexicon then exit; {Bail out if not to use lexicon}
   Alist.clear;
-  AList.Assign(UserProblemCategories(Encounter.Provider,Encounter.Location)) ;
+  FastAssign(UserProblemCategories(Encounter.Provider,Encounter.Location), AList) ;
   if Alist.count = 0 then
     begin
@@ -1148 +1150 @@
       exit ;
     end ;
-  lstCatPick.Items.assign(AList);
+  FastAssign(AList, lstCatPick.Items);
   lstCatPick.itemindex := 0;
   lstCatPickClick(frmProblems);
@@ -1161 +1163 @@
   Alist.clear;
   catien := IntToStr(lstCatPick.itemIEN);
-  AList.Assign(UserProblemList(catien)) ;
+  FastAssign(UserProblemList(catien), AList) ;
   {File 125.12, Each line contains: PROBLEM^DISPLAY TEXT^CODE^CODE IFN }
   {code ifn is derived}
-  lstProbPick.Items.assign(Alist);
+  FastAssign(Alist, lstProbPick.Items);
 end;
 
@@ -1388 +1390 @@
     problemIFN := Piece(Line, U, 1);
     {get the basic info - could shortcut, but try this for now}
-    AList.Assign(EditLoad(ProblemIFN,pProviderID,PLPt.ptVAMC)) ;
+    FastAssign(EditLoad(ProblemIFN, pProviderID, PLPt.ptVAMC), AList) ;
     probRec := TProbrec.create(Alist);
     probRec.PIFN := problemIFN;
@@ -1399 +1401 @@
              ProbRec.DateResStr := 'T';
              Probrec.DateModStr := 'T';
-             AList.Assign(ProblemUpdate(ProbRec.AltFilerObject)) ;
+             FastAssign(ProblemUpdate(ProbRec.AltFilerObject), AList) ;
            end;
       'V': begin
@@ -1409 +1411 @@
              Probrec.condition := 'P';
              Probrec.DateModStr := 'T';
-             AList.Assign(ProblemVerify(ProbRec.PIFN)) ;
+             FastAssign(ProblemVerify(ProbRec.PIFN), AList) ;
            end;
     end;
@@ -1467 +1469 @@
   Alist := TStringList.create;
   ProblemIFN := Piece(MString(wgProbData.ItemIndex), U, 1);
-  AList.Assign(EditLoad(ProblemIFN, pProviderID, PLPt.ptVAMC)) ;
+  FastAssign(EditLoad(ProblemIFN, pProviderID, PLPt.ptVAMC), AList) ;
   AProbRec:=TProbRec.Create(Alist); {create a problem object}
   try
@@ -1482 +1484 @@
     else
       begin
-        Alist.Assign(ProblemReplace(ProblemIFN)) ;
+        FastAssign(ProblemReplace(ProblemIFN), Alist) ;
         if Alist[0] <> '1' then
           InfoBox('Unable to restore the problem record: ' + #13#10 + ' (' + AProbrec.PIFN + ')',
@@ -2073 +2075 @@
 end;
 
+initialization
+  SpecifyFormIsNotADialog(TfrmProblems);
+
 end.