61. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 4/16/2019 12:20:47 PM 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.

61.1 Files compared

# Location File Last Modified
1 C:\AraxisMergeCompare\Pri_un\CPRS_32_P2_PCE\OR_30_405V60_SRC\Womens Health iWVInterface.pas Wed Dec 12 14:04:42 2018 UTC
2 C:\AraxisMergeCompare\Pri_re\CPRS v32 P2 PCE Standardization-redacted\CPRS_32_P2_PCE\OR_30_405V60_SRC\Womens Health iWVInterface.pas Fri Apr 12 13:47:14 2019 UTC

61.2 Comparison summary

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

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

61.4 Active regular expressions

No regular expressions were active.

61.5 Comparison detail

  1   unit iWVIn terface;
  2   {
  3     ======== ========== ========== ========== ========== ========== ========== ========== ==
  4     *
  5     *        Applicatio n:  TDrugs  Patch OR* 3*377 and  WV*1*24
  6              Developer:       PII                   
  7     *        Site:          Salt L ake City I SC
  8     *
  9     *        Descriptio n:  Main i nterface u nit for ot her applic ations to  use.
  10     *
  11     *        Notes:
  12     *
  13     ======== ========== ========== ========== ========== ========== ========== ========== ==
  14   }
  15  
  16   interface
  17  
  18   uses
  19     System.C lasses;
  20  
  21   type
  22     TWVAbleT oConceive  = (atcUnkn own, atcYe s, atcNo);
  23     TWVLacta tionStatus  = (lsUnkn own, lsYes , lsNo);
  24     TWVPregn ancyStatus  = (psUnkn own, psYes , psNo, ps Unsure);
  25  
  26     IWVContr oller = in terface;
  27     IWVPatie nt = inter face;
  28     IWVWebSi te = inter face;
  29  
  30     IWVContr oller = in terface(II nterface)
  31       ['{46C CE409-CE72 -4157-8876 -BF169BEE3 15F}']
  32       functi on getWebS ite(aIndex : integer) : IWVWebSi te;
  33       functi on getWebS iteCount:  integer;
  34       functi on getWebS iteListNam e: string;
  35  
  36       functi on EditPre gLacData(a DFN: strin g): boolea n;
  37       functi on SavePre gnancyAndL actationDa ta(aList:  TStrings):  boolean;
  38       functi on MarkAsE nteredInEr ror(aItemI D: string) : boolean;
  39       functi on InitCon troller(aF orceInit:  boolean =  False): bo olean;
  40       functi on IsValid WVPatient( aDFN: stri ng): boole an;
  41       functi on GetReco rdIDType(a RecordID:  string; va r aType: s tring): bo olean;
  42       functi on GetLast Error: str ing;
  43       functi on GetWebS iteURL(aWe bSiteName:  string):  string;
  44       functi on OpenExt ernalWebsi te(aWebSit e: IWVWebS ite): bool ean;
  45  
  46       proper ty WebSite [aIndex: i nteger]: I WVWebSite  read getWe bSite;
  47       proper ty WebSite Count: int eger read  getWebSite Count;
  48       proper ty WebSite ListName:  string rea d getWebSi teListName ;
  49     end;
  50  
  51     IWVPatie nt = inter face(IInte rface)
  52       ['{B99 012A3-5DE8 -4AEF-9D78 -E15C11BF8 017}']
  53       functi on getDFN:  string;
  54  
  55       proced ure setDFN (const aVa lue: strin g);
  56  
  57       proper ty DFN: st ring read  getDFN wri te setDFN;
  58     end;
  59  
  60     IWVWebSi te = inter face(IInte rface)
  61       ['{FB8 01C45-686F -4994-9326 -10A32E84C C45}']
  62       functi on GetName : string;
  63       functi on GetURL:  string;
  64  
  65       proper ty Name: s tring read  GetName;
  66       proper ty URL: st ring read  GetURL;
  67     end;
  68  
  69   const
  70     WV_ABLE_ TO_CONCEIV E: array [ TWVAbleToC onceive] o f string =  ('Unknown ', 'Yes',  'No');
  71     WV_LACTA TION_STATU S: array [ TWVLactati onStatus]  of string  = ('Unknow n', 'Yes',  'No');
  72     WV_PREGN ANCY_STATU S: array [ TWVPregnan cyStatus]  of string  = ('Unknow n', 'Yes',  'No', 'Un sure');
  73  
  74   function W omensHealt h: IWVCont roller;
  75  
  76   implementa tion
  77  
  78   uses
  79     oWVContr oller;
  80  
  81   var
  82     fWVContr oller: IWV Controller ;
  83  
  84   function W omensHealt h: IWVCont roller;
  85   begin
  86     fWVContr oller.Quer yInterface (IWVContro ller, Resu lt);
  87   end;
  88  
  89   initializa tion
  90  
  91   TWVControl ler.Create .GetInterf ace(IWVCon troller, f WVControll er);
  92  
  93   end.