28. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 3/31/2017 10:45:42 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.

28.1 Files compared

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

28.2 Comparison summary

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

28.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

28.4 Active regular expressions

No regular expressions were active.

28.5 Comparison detail

  1   unit fGMV_ EnteredInE rror;
  2   {
  3   ========== ========== ========== ========== ========== ========== ========== ==========
  4   *
  5   *       Ap plication:   Vitals
  6   *       Re vision:      $Revisio n: 1 $  $M odtime: 12 /20/07 12: 43p $
  7   *       De veloper:      PII                                             
  8   *       Si te:          Hines OI FO
  9   *
  10   *       De scription:   Utility  for markin g vitals i n error.
  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 SCOMMON/fG MV_Entered InError.pa s $
  16   *
  17   * $History : fGMV_Ent eredInErro r.pas $
  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/VITALSCO MMON
  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/VITALSCO MMON
  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/VITALSCO MMON
  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 LSCOMMON
  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 alsCommon
  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 /VitalsCom mon
  44    * 
  45    * ******* **********   Version  1  ******* **********
  46    * User: V haishandri a Date: 5/ 24/05    T ime: 3:33p
  47    * 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/ VitalsComm on
  48    * 
  49    * ******* **********   Version  1  ******* **********
  50    * User: V haishandri a Date: 4/ 16/04    T ime: 4:17p
  51    * Created  in $/Vita ls/Vitals  GUI Versio n 5.0.3 (C COW, CPRS,  Delphi 7) /VITALSCOM MON
  52    * 
  53    * ******* **********   Version  1  ******* **********
  54    * User: V haishandri a Date: 1/ 26/04    T ime: 1:08p
  55    * Created  in $/Vita ls/Vitals  GUI Versio n 5.0.3 (C COW, Delph i7)/V5031- D7/VitalsU ser
  56    * 
  57    * ******* **********   Version  1  ******* **********
  58    * User: V haishandri a Date: 10 /29/03   T ime: 4:15p
  59    * Created  in $/Vita ls503/Vita ls User
  60    * Version  5.0.3
  61    * 
  62    * ******* **********   Version  3  ******* **********
  63    * User: V haishandri a Date: 5/ 22/03    T ime: 10:16 a
  64    * Updated  in $/Vita ls GUI Ver sion 5.0/V italsUserN oCCOW
  65    * Prepara tion to CC OW
  66    * Message DLG change d to Messa geDLGS
  67    * 
  68    * ******* **********   Version  2  ******* **********
  69    * User: V haishandri a Date: 5/ 21/03    T ime: 1:46p
  70    * Updated  in $/Vita ls GUI Ver sion 5.0/V italsUserN oCCOW
  71    * Version  5.0.1.5
  72    * 
  73    * ******* **********   Version  1  ******* **********
  74    * User: V haishandri a Date: 5/ 21/03    T ime: 1:18p
  75    * Created  in $/Vita ls GUI Ver sion 5.0/V italsUserN oCCOW
  76    * Pre CCO W Version  of Vitals  User
  77    * 
  78    * ******* **********   Version  5  ******* **********
  79    * User: V haishandri a Date: 12 /20/02   T ime: 3:02p
  80    * Updated  in $/Vita ls GUI Ver sion 5.0/V itals User
  81    * 
  82    * ******* **********   Version  4  ******* **********
  83    * User: V haishandri a Date: 10 /11/02   T ime: 6:21p
  84    * Updated  in $/Vita ls GUI Ver sion 5.0/V itals User
  85    * Version  vT32_1
  86    * 
  87    * ******* **********   Version  3  ******* **********
  88    * User: V haishpetit d Date: 6/ 20/02    T ime: 9:33a
  89    * Updated  in $/Vita ls GUI Ver sion 5.0/V itals User
  90    * t27 Bui ld
  91    *
  92    * ******* **********   Version  2  ******* **********
  93    * User: V haishpetit d Date: 6/ 06/02    T ime: 11:14 a
  94    * Updated  in $/Vita ls GUI Ver sion 5.0/V itals User
  95    * Roll-up  to 5.0.0. 27
  96    *
  97    * ******* **********   Version  1  ******* **********
  98    * User: V haishpetit d Date: 4/ 04/02    T ime: 11:58 a
  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     ExtCtrls ,
  116     StdCtrls ,
  117     Buttons,
  118     CheckLst ,
  119     Trpcb,
  120     MFunStr,
  121     uGMV_Com mon,
  122     ComCtrls ;
  123  
  124   type
  125     TfrmGMV_ EnteredInE rror = cla ss(TForm)
  126       GroupB ox1: TGrou pBox;
  127       rgReas on: TRadio Group;
  128       dtpDat e: TDateTi mePicker;
  129       pnlBut tons: TPan el;
  130       btnCan cel: TButt on;
  131       btnOK:  TButton;
  132       lvVita ls: TListV iew;
  133       proced ure DateCh ange(Sende r: TObject );
  134       proced ure OkButt onClick(Se nder: TObj ect);
  135       proced ure FormCr eate(Sende r: TObject );
  136       proced ure OkToPr oceed(Send er: TObjec t);
  137       proced ure ClearL ist;
  138       proced ure FormCl ose(Sender : TObject;  var Actio n: TCloseA ction);
  139       proced ure lvVita lsChange(S ender: TOb ject; Item : TListIte m;
  140         Chan ge: TItemC hange);
  141       proced ure FormRe size(Sende r: TObject );
  142     private
  143       FPatie ntIEN: str ing;
  144       { Priv ate declar ations }
  145     public
  146       { Publ ic declara tions }
  147     end;
  148  
  149   procedure  EnterVital sInError(D FN: string );
  150  
  151   implementa tion
  152  
  153   {$R *.DFM}
  154  
  155   procedure  EnterVital sInError(D FN: string );
  156   begin
  157     with Tfr mGMV_Enter edInError. Create(App lication)  do
  158       try
  159         FPat ientIEN :=  DFN;
  160         dtpD ate.Date : = Now;
  161         Date Change(nil );
  162         Show Modal;
  163       finall y
  164         free ;
  165       end;
  166   end;
  167  
  168   procedure  TfrmGMV_En teredInErr or.FormCre ate(Sender : TObject) ;
  169   begin
  170     ClearLis t;
  171     dtpDate. Date := No w;
  172   end;
  173  
  174   procedure  TfrmGMV_En teredInErr or.DateCha nge(Sender : TObject) ;
  175   var
  176     s: Strin g;
  177     dt: Doub le;
  178     i: integ er;
  179   begin
  180     ClearLis t;
  181     dt := Wi ndowsDateT oFMDate(dt pDate.Date );
  182     CallServ er(
  183       GMVBro ker,
  184       'GMV E XTRACT REC ',
  185       [FPati entIEN + ' ^' + Float ToStr(dt)  + '^^' + F loatToStr( dt)],
  186       nil, R etList);
  187  
  188     if Piece (RetList[0 ], '^', 1)  <> '0' th en
  189       for i  := 0 to Re tList.Coun t - 1 do
  190         if C opy(RetLis t[i], 1, 1 ) <> ' ' t hen
  191           wi th lvVital s.Items.Ad d do
  192              begin
  193                s := Ret List[i];
  194                Caption  := Piece(P iece(RetLi st[i], '^' , 2), ' ',  1);
  195   //             SubIte ms.Add(tri m(Copy(Ret List[i], P os(' ', Re tList[i]),  255)));
  196                s := tri m(Copy(Ret List[i], P os(' ', Re tList[i]),  255));
  197   {
  198                s := pie ce(s,'_',1 ) + ' ' +  piece(s,'_ ',2);
  199                SubItems .Add(s);
  200   }
  201                SubItems .Add(piece (s,'_',1)) ;
  202                SubItems .Add(piece (s,'_',2)) ;
  203                Data :=  TGMV_FileE ntry.Creat eFromRPC(' 120.51;' +  RetList[i ]);
  204              end;
  205   end;
  206  
  207   procedure  TfrmGMV_En teredInErr or.ClearLi st;
  208   begin
  209     lvVitals .Items.Beg inUpdate;
  210     while lv Vitals.Ite ms.Count >  0 do
  211       begin
  212         if l vVitals.It ems[0].Dat a <> nil t hen
  213           TG MV_FileEnt ry(lvVital s.Items[0] .Data).Fre e;
  214         lvVi tals.Items .Delete(0) ;
  215       end;
  216     lvVitals .Items.End Update;
  217     btnOK.En abled := F alse;
  218     rgReason .Enabled : = False;
  219     rgReason .ItemIndex  := -1;
  220   end;
  221  
  222   procedure  TfrmGMV_En teredInErr or.OkButto nClick(Sen der: TObje ct);
  223   var
  224     i: integ er;
  225     s: Strin g;
  226   begin
  227     if rgRea son.ItemIn dex < 0 th en
  228       Messag eDlgS('No  reason has  been sele cted.', mt Error, [mb ok], 0)
  229     else
  230       begin
  231         S :=  '';
  232         for  i := 0 to  lvVitals.I tems.Count  - 1 do
  233           if  lvVitals. Items[i].S elected th en
  234              S := S + l vVitals.It ems[i].Cap tion +'  ' + lvVitals .Items[i]. SubItems[0 ]//Adding  spaces //A AN 05/21/2 003
  235                + #13;
  236         if M essageDlgS ('Are you  sure you w ant to mar k vitals'+ #13+#13+s+ #13+       //CCOW pre paration
  237           'a s ' + rgRe ason.Items [rgReason. ItemIndex] +'?',
  238           mt Confirmati on, [mbYes , mbNo], 0 ) <> mrYes  then
  239            b egin
  240               Exit;
  241            e nd;
  242  
  243         for  i := 0 to  lvVitals.I tems.Count  - 1 do
  244           if  lvVitals. Items[i].S elected th en
  245              with TGMV_ FileEntry( lvVitals.I tems[i].Da ta) do
  246                CallServ er(
  247                  GMVBro ker,
  248                  'GMV M ARK ERROR' ,
  249                  [IEN +  '^' + GMV User.DUZ +  '^' + Int ToStr(rgRe ason.ItemI ndex + 1)] ,
  250                  nil, R etList);
  251         Mess ageDlgS('V itals mark ed as ' +  rgReason.I tems[rgRea son.ItemIn dex]);
  252         Moda lResult :=  mrOK;
  253       end;
  254   end;
  255  
  256   procedure  TfrmGMV_En teredInErr or.OkToPro ceed(Sende r: TObject );
  257   begin
  258     btnOK.En abled := ( rgReason.I temIndex >  -1) and ( lvVitals.S elCount >  0) and
  259        (rgRe ason.ItemI ndex >= 0) ;
  260   end;
  261  
  262   procedure  TfrmGMV_En teredInErr or.FormClo se(Sender:  TObject;  var Action : TCloseAc tion);
  263   begin
  264     ClearLis t;
  265   end;
  266  
  267   procedure  TfrmGMV_En teredInErr or.lvVital sChange(Se nder: TObj ect;
  268     Item: TL istItem; C hange: TIt emChange);
  269   begin
  270     rgReason .Enabled : = (lvVital s.ItemFocu sed <> nil ) or (lvVi tals.SelCo unt > 0);
  271   end;
  272  
  273   procedure  TfrmGMV_En teredInErr or.FormRes ize(Sender : TObject) ;
  274   begin
  275     lvVitals .Columns[1 ].Width :=  lvVitals. Width - lv Vitals.Col umns[0].Wi dth - lvVi tals.Colum ns[2].Widt h- 4;
  276   end;
  277  
  278   end.
  279