35. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 3/31/2017 10:45:43 AM Central Daylight Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.

35.1 Files compared

# Location File Last Modified
1 CPRS v31A.zip\CPRS v31A\VITL5_P34_src.zip\Source\VITALSDATAENTRY fGMV_Qualifiers.pas Tue Dec 13 18:25:52 2016 UTC
2 CPRS v31A.zip\CPRS v31A\VITL5_P34_src.zip\Source\VITALSDATAENTRY fGMV_Qualifiers.pas Fri Mar 31 15:01:33 2017 UTC

35.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 2 724
Changed 1 2
Inserted 0 0
Removed 0 0

35.3 Comparison options

Whitespace
Character case Differences in character case are significant
Line endings Differences in line endings (CR and LF characters) are ignored
CR/LF characters Not shown in the comparison detail

35.4 Active regular expressions

No regular expressions were active.

35.5 Comparison detail

  1   unit fGMV_ Qualifiers ;
  2   {
  3   ========== ========== ========== ========== ========== ========== ========== ==========
  4   *
  5   *       Ap plication:   Vitals
  6   *       Re vision:      $Revisio n: 1 $  $M odtime: 2/ 26/09 12:5 0p $
  7   *       De veloper:      PII                                             
  8   *       Si te:          Hines OI FO
  9   *
  10   *       De scription:   Pop-up f orm for qu alifiers w hen enteri ng vitals.
  11   *
  12   *       No tes:
  13   *
  14   ========== ========== ========== ========== ========== ========== ========== ==========
  15   *       $A rchive: /V itals/5.0  (Version 5 .0)/5.0.23  (Patch 23 )/VITALS_5 _0_23_8/So urce/VITAL SDATAENTRY /fGMV_Qual ifiers.pas  $
  16   *
  17   * $History : fGMV_Qua lifiers.pa s $
  18    * 
  19    * ******* **********   Version  1  ******* **********
  20    * User: V haishandri a Date: 8/ 12/09    T ime: 8:29a
  21    * Created  in $/Vita ls/5.0 (Ve rsion 5.0) /5.0.23 (P atch 23)/V ITALS_5_0_ 23_8/Sourc e/VITALSDA TAENTRY
  22    * 
  23    * ******* **********   Version  1  ******* **********
  24    * User: V haishandri a Date: 3/ 09/09    T ime: 3:38p
  25    * Created  in $/Vita ls/5.0 (Ve rsion 5.0) /5.0.23 (P atch 23)/V ITALS_5_0_ 23_6/Sourc e/VITALSDA TAENTRY
  26    * 
  27    * ******* **********   Version  1  ******* **********
  28    * User: V haishandri a Date: 1/ 13/09    T ime: 1:26p
  29    * Created  in $/Vita ls/5.0 (Ve rsion 5.0) /5.0.23 (P atch 23)/V ITALS_5_0_ 23_4/Sourc e/VITALSDA TAENTRY
  30    * 
  31    * ******* **********   Version  1  ******* **********
  32    * User: V haishandri a Date: 5/ 14/07    T ime: 10:29 a
  33    * Created  in $/Vita ls GUI 200 7/Vitals-5 -0-18/VITA LSDATAENTR Y
  34    * 
  35    * ******* **********   Version  1  ******* **********
  36    * User: V haishandri a Date: 5/ 16/06    T ime: 5:43p
  37    * Created  in $/Vita ls/VITALS- 5-0-18/Vit alsDataEnt ry
  38    * GUI v.  5.0.18 upd ates the d efault vit al type IE Ns with th e local
  39    * values.
  40    * 
  41    * ******* **********   Version  1  ******* **********
  42    * User: V haishandri a Date: 5/ 16/06    T ime: 5:33p
  43    * Created  in $/Vita ls/Vitals- 5-0-18/VIT ALS-5-0-18 /VitalsDat aEntry
  44    * 
  45    * ******* **********   Version  2  ******* **********
  46    * User: V haishandri a Date: 7/ 22/05    T ime: 3:51p
  47    * Updated  in $/Vita ls/Vitals  GUI  v 5.0 .2.1 -5.0. 3.1 - Patc h GMVR-5-7  (CASMed,  CCOW) - De lphi 6/Vit alsDataEnt ry
  48    * 
  49    * ******* **********   Version  1  ******* **********
  50    * User: V haishandri a Date: 5/ 24/05    T ime: 3:35p
  51    * Created  in $/Vita ls/Vitals  GUI  v 5.0 .2.1 -5.0. 3.1 - Patc h GMVR-5-7  (CASMed,  No CCOW) -  Delphi 6/ VitalsData Entry
  52    * 
  53    * ******* **********   Version  1  ******* **********
  54    * User: V haishandri a Date: 4/ 16/04    T ime: 4:20p
  55    * Created  in $/Vita ls/Vitals  GUI Versio n 5.0.3 (C COW, CPRS,  Delphi 7) /VITALSDAT AENTRY
  56    * 
  57    * ******* **********   Version  2  ******* **********
  58    * User: V haishandri a Date: 1/ 30/04    T ime: 4:32p
  59    * Updated  in $/Vita lsLite/Vit alsLiteDLL
  60    * 
  61    * ******* **********   Version  1  ******* **********
  62    * User: V haishandri a Date: 1/ 15/04    T ime: 3:06p
  63    * Created  in $/Vita lsLite/Vit alsLiteDLL
  64    * Vitals  Lite DLL
  65    * 
  66    * ******* **********   Version  1  ******* **********
  67    * User: V haishandri a Date: 10 /29/03   T ime: 4:15p
  68    * Created  in $/Vita ls503/Vita ls User
  69    * Version  5.0.3
  70    * 
  71    * ******* **********   Version  3  ******* **********
  72    * User: V haishandri a Date: 7/ 16/03    T ime: 5:40p
  73    * Updated  in $/Vita ls GUI Ver sion 5.0/V italsUserN oCCOW
  74    *
  75    * ******* **********   Version  2  ******* **********
  76    * User: V haishandri a Date: 6/ 05/03    T ime: 2:01p
  77    * Updated  in $/Vita ls GUI Ver sion 5.0/V italsUserN oCCOW
  78    * 
  79    * ******* **********   Version  1  ******* **********
  80    * User: V haishandri a Date: 5/ 21/03    T ime: 1:18p
  81    * Created  in $/Vita ls GUI Ver sion 5.0/V italsUserN oCCOW
  82    * Pre CCO W Version  of Vitals  User
  83    * 
  84    * ******* **********   Version  4  ******* **********
  85    * User: V haishandri a Date: 7/ 18/02    T ime: 5:57p
  86    * Updated  in $/Vita ls GUI Ver sion 5.0/V itals User
  87    * 
  88    * ******* **********   Version  3  ******* **********
  89    * User: V haishandri a Date: 7/ 12/02    T ime: 5:00p
  90    * Updated  in $/Vita ls GUI Ver sion 5.0/V itals User
  91    * GUI Ver sion T28
  92    * 
  93    * ******* **********   Version  2  ******* **********
  94    * User: V haishandri a Date: 7/ 01/02    T ime: 5:14p
  95    * Updated  in $/Vita ls GUI Ver sion 5.0/V itals User
  96    *
  97    * ******* **********   Version  1  ******* **********
  98    * User: V haishpetit d Date: 4/ 04/02    T ime: 12:04 p
  99    * Created  in $/Vita ls GUI Ver sion 5.0/V itals User
  100    *
  101   *
  102   ========== ========== ========== ========== ========== ========== ========== ==========
  103   }
  104   interface
  105  
  106   uses
  107     Windows,
  108     Messages ,
  109     SysUtils ,
  110     Classes,
  111     Graphics ,
  112     Controls ,
  113     Forms,
  114     Dialogs,
  115     StdCtrls ,
  116     CheckLst ,
  117     ExtCtrls
  118     , uGMV_F ileEntry
  119     , uGMV_C onst
  120     , uGMV_G lobalVars
  121   , uGMV_Vit alTypes
  122     ;
  123  
  124   type
  125     TfrmGMV_ Qualifiers  = class(T Form)
  126       pnlMai n: TPanel;
  127       pnlBot tom: TPane l;
  128       edtQua ls: TEdit;
  129       sb: TS crollBox;
  130       Panel1 : TPanel;
  131       btnOK:  TButton;
  132       btnCan cel: TButt on;
  133       Panel2 : TPanel;
  134       Panel4 : TPanel;
  135       Bevel1 : TBevel;
  136       pnlTit le: TPanel ;
  137       Label1 : TLabel;
  138       proced ure FormCr eate(Sende r: TObject );
  139       proced ure FormCl ose(Sender : TObject;  var Actio n: TCloseA ction);
  140       proced ure pnlBot tomResize( Sender: TO bject);
  141       proced ure FormAc tivate(Sen der: TObje ct);// AAN  07/01/200 2
  142     private
  143       FPanel List: TLis t;
  144     protecte d
  145     public
  146       { Publ ic declara tions }
  147       FQIENS : string;
  148       functi on Qualifi erNames: s tring;
  149       functi on Qualifi erIENS: st ring;
  150       proced ure Qualif ierClicked (Sender: T Object);
  151       proced ure SetDef aultQualif ier(aCateg oryIEN,aQu alifierIEN :String;aV Type: TVit alType);
  152     end;
  153  
  154   function S electQuali fiers(VTyp e: TVitalT ype; var Q uals, Qual sDisplay:  string; Ct rl: TContr ol;aValue: String): B oolean;
  155  
  156  
  157   implementa tion
  158  
  159   uses uGMV_ QualifyBox , uGMV_Com mon, uGMV_ Engine
  160     ;
  161  
  162   {$R *.DFM}
  163                                                        / /IDs  //St ring
  164   function S electQuali fiers(VTyp e: TVitalT ype; var Q uals, Qual sDisplay:  string; Ct rl: TContr ol;aValue: String): B oolean;
  165   var
  166     s: Strin g;//AAN 07 /11/02 for  Debugging  only
  167     _QForm:  TfrmGMV_Qu alifiers;
  168     TQB,
  169     QPanel:  TGMV_Templ ateQualifi erBox;
  170     iOrder,
  171     i, j: in teger;
  172     ii: Inte ger;
  173     pt: TPoi nt;
  174     RetList:  TStrings;
  175  
  176   begin
  177     Result : = False;
  178     _QForm : = TfrmGMV_ Qualifiers .Create(Ap plication) ;
  179     with _QF orm do
  180     try
  181       pt :=  Ctrl.Paren t.ClientTo Screen(Poi nt(Ctrl.Le ft, Ctrl.T op));
  182       Left : = pt.x;
  183       Top :=  pt.y + Ct rl.Height;
  184  
  185       RetLis t := getVi talQualifi erList(GMV VitalTypeA bbv[VType] );
  186       _QForm .pnlTitle. Caption :=
  187         piec e(RetList. Text,'^',3 ) + ' Qual ifiers';
  188       for i  := 0 to Re tList.Coun t - 1 do
  189         begi n
  190   //         S := RetLi st[i];
  191           if  Piece(Ret List[i], ' ^', 1) = ' C' then
  192              begin
  193                QPanel : = TGMV_Tem plateQuali fierBox.Cr eateParent ed(
  194   //               _QFo rm.pnlMain ,
  195                  _QForm ,_QForm.sb ,
  196                  GMVVit alTypeIEN[ VType], pi ece(RetLis t[i], '^',  2),'');
  197                FPanelLi st.Add(QPa nel);
  198   //             _QForm .Width :=  FPanelList .Count * 1 00;
  199              end;
  200         end;
  201       RetLis t.Free;
  202  
  203   //    if F PanelList. Count < 2  then
  204   //      _Q Form.Width  := 150;
  205       for i  := 0 to _Q Form.sb.Co ntrolCount  - 1 do
  206         begi n
  207           if  _QForm.sb .Controls[ i] is TGMV _TemplateQ ualifierBo x then
  208              begin
  209                iOrder : = _QForm.s b.ControlC ount - 1 -  i;
  210                TGMV_Tem plateQuali fierBox(_Q Form.sb.Co ntrols[i]) .TabOrder  :=
  211                iOrder;
  212              end;
  213         end;
  214  
  215       for i  := 0 to FP anelList.C ount - 1 d o
  216         with  TGMV_Temp lateQualif ierBox(FPa nelList[i] ) do
  217           be gin
  218   {
  219              Left := i  * (_QForm. Width div  FPanelList .Count);
  220              Width := _ QForm.Widt h div FPan elList.Cou nt;
  221              if i < (FP anelList.C ount - 1)  then
  222                Align :=  alLeft
  223              else
  224                Align :=  alClient;
  225   }
  226              Align := a lTop;
  227              Visible :=  True;
  228              OnClick :=  Qualifier Clicked;
  229              setPopupLa yout;
  230           en d;
  231  
  232       i := 1 ;
  233       for j  := 0 to FP anelList.C ount - 1 d o
  234         begi n
  235           TQ B := TGMV_ TemplateQu alifierBox (FPanelLis t[j]);
  236           s  := TQB.Def aultQualif ierIEN;
  237           ii  := StrToI ntDef(s,0) ;
  238           if  ii < 1 th en
  239              begin
  240                s := pie ce(Quals,  ':', i);//  assigning  qualifier s as DEFAU LT (!?)
  241                try
  242                  if s < > '' then  // changed  on 050708  by vhaish andria
  243                    begi n
  244                      TG MV_Templat eQualifier Box(FPanel List[j]).D efaultQual ifierIEN : = s; // pi ece(Quals,  ':', i);
  245   //                    TGMV_Templ ateQualifi erBox(FPan elList[j]) .OnQualCli ck(TGMV_Te mplateQual ifierBox(F PanelList[ j]).CLB);
  246                      TG MV_Templat eQualifier Box(FPanel List[j]).O nQualClick (nil);
  247                    end
  248                  else
  249   //                 TG MV_Templat eQualifier Box(FPanel List[j]).O nQualClick (TGMV_Temp lateQualif ierBox(FPa nelList[j] ).CLB);
  250                    TGMV _TemplateQ ualifierBo x(FPanelLi st[j]).OnQ ualClick(n il);
  251                except
  252                  on E:  Exception  do
  253                    Show Message('E rror assig ning <'+s+ '> as the  default qu alifier'+# 13#10+
  254                      E. Message);
  255                end;
  256              end;
  257           in c(i);
  258         end;
  259   // ------- ---------- ---------- -----Set D efault Met hod for BP  if value  is like nn n/
  260   //    if ( VType = vt BP) and (p os('/',aVa lue) = Len gth(aValue )) then
  261   //      QF orm.SetDef aultQualif ier('2','4 5',vtBP);
  262  
  263       edtQua ls.Text :=  Qualifier Names;
  264  
  265       Positi onForm(_QF orm);
  266       ShowMo dal;
  267       if Mod alResult =  mrOk then
  268         begi n
  269           Qu als := _QF orm.FQIENS ;
  270           Qu alsDisplay  := _QForm .edtQuals. Text;
  271           Re sult := Tr ue;
  272         end;
  273     finally
  274       free;
  275     end;
  276   end;
  277  
  278   function T frmGMV_Qua lifiers.Qu alifierNam es: string ;
  279   var
  280     i: integ er;
  281   begin
  282     Result : = '';
  283     for i :=  0 to FPan elList.Cou nt - 1 do
  284       with T GMV_Templa teQualifie rBox(FPane lList[i])  do
  285         if S trToIntDef (DefaultQu alifierIEN , 0) > 0 t hen
  286           be gin
  287              if Result  <> '' then
  288                Result : = Result +  ', ';
  289              Result :=  Result + D efaultQual ifierName;
  290           en d;
  291   end;
  292  
  293   function T frmGMV_Qua lifiers.Qu alifierIEN S: string;
  294   var
  295     i: integ er;
  296   begin
  297     Result : = '';
  298     for i :=  0 to FPan elList.Cou nt - 1 do
  299       if TGM V_Template QualifierB ox(FPanelL ist[i]).De faultQuali fierIEN <>  '' then
  300         Resu lt := Resu lt + TGMV_ TemplateQu alifierBox (FPanelLis t[i]).Defa ultQualifi erIEN + ': ' ;
  301     i:= Leng th(Result) ;
  302     if i > 0  then
  303       Result  := copy(R esult,1,i- 1);
  304   {
  305       with T GMV_Templa teQualifie rBox(FPane lList[i])  do
  306           be gin
  307                if Resul t = '' the n
  308                  begin
  309                    if D efaultQual ifierIEN < > '' then  Result :=  DefaultQua lifierIEN;
  310                  end
  311                else
  312                    if D efaultQual ifierIEN < > '' then  Result :=  Result + ' :' +Defaul tQualifier IEN;
  313           en d;
  314   }
  315   end;
  316  
  317   procedure  TfrmGMV_Qu alifiers.Q ualifierCl icked(Send er: TObjec t);
  318   begin
  319     edtQuals .Text := Q ualifierNa mes;
  320     FQIENS : = Qualifie rIENS;
  321   end;
  322  
  323   procedure  TfrmGMV_Qu alifiers.F ormCreate( Sender: TO bject);
  324   begin
  325     FPanelLi st := TLis t.Create;
  326   end;
  327  
  328   procedure  TfrmGMV_Qu alifiers.F ormClose(S ender: TOb ject; var  Action: TC loseAction );
  329   begin
  330     FreeAndN il(FPanelL ist);
  331   end;
  332  
  333   procedure  TfrmGMV_Qu alifiers.p nlBottomRe size(Sende r: TObject );
  334   begin
  335   //  edtQua ls.Width : = pnlBotto m.Width -  (edtQuals. left * 2);
  336   //  btnCan cel.Left : = pnlBotto m.Width -  btnCancel. Width - ed tQuals.Lef t;
  337   //  btnOK. Left := bt nCancel.Le ft - btnOk .Width - e dtQuals.Le ft;
  338   end;
  339  
  340   // AAN 07/ 01/2002 -- ---------- ---------- ---------- ---------- ---------- ---- Begin
  341   procedure  TfrmGMV_Qu alifiers.F ormActivat e(Sender:  TObject);
  342   begin
  343     if (Left  + Width)  > Forms.Sc reen.Width  then
  344       Left : = Forms.Sc reen.Width  - Width;
  345     if (Top  + Height)  > Forms.Sc reen.Heigh t then
  346       Top :=  Forms.Scr een.Height  - Height  - pnlBotto m.Height d iv 2;
  347   end;
  348   // AAN 07/ 01/2002 -- ---------- ---------- ---------- ---------- ---------- ------ End
  349  
  350   procedure  TfrmGMV_Qu alifiers.S etDefaultQ ualifier(a CategoryIE N,aQualifi erIEN:Stri ng;aVType:  TVitalTyp e);
  351   var
  352     TQB: TGM V_Template QualifierB ox;
  353     i: Integ er;
  354   begin
  355     for i :=  0 to FPan elList.Cou nt - 1 do
  356       begin
  357           TQ B := TGMV_ TemplateQu alifierBox (FPanelLis t[i]);
  358           if  TQB.Categ oryIEN = a CategoryIE N then
  359              TQB.Defaul tQualifier IEN := aQu alifierIEN ;
  360       end;
  361   end;
  362  
  363   end.