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

63.1 Files compared

# Location File Last Modified
1 C:\AraxisMergeCompare\Pri_un\CPRS_32_P2_PCE\OR_30_405V60_SRC\Womens Health oWVPatient.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 oWVPatient.pas Fri Apr 12 13:47:16 2019 UTC

63.2 Comparison summary

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

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

63.4 Active regular expressions

No regular expressions were active.

63.5 Comparison detail

  1   unit oWVPa tient;
  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:  Object  that is c reated via  the WVCon troller to  maintain
  10     *                       valid  WH data du ring the u pdate proc ess in
  11     *                       frmWHP regLacStat usUpdate.  Only acces sible as
  12     *                       IWVPat ient inter face.
  13     *
  14     *        Notes:
  15     *
  16     ======== ========== ========== ========== ========== ========== ========== ========== ==
  17   }
  18  
  19   interface
  20  
  21   uses
  22     System.C lasses,
  23     System.S ysUtils,
  24     iWVInter face;
  25  
  26   type
  27     TWVPatie nt = class (TInterfac edObject,  IWVPatient )
  28     private
  29       fAbleT oConceive:  TWVAbleTo Conceive;
  30       fAskFo rLactation Data: bool ean;
  31       fAskFo rPregnancy Data: bool ean;
  32       fDFN:  string;
  33       fHyste rectomy: b oolean;
  34       fLacta tionStatus : TWVLacta tionStatus ;
  35       fLastM enstrualPe riod: TDat eTime;
  36       fMenop ause: bool ean;
  37       fPregn ancyStatus : TWVPregn ancyStatus ;
  38     public
  39       constr uctor Crea te(aDFN: s tring);
  40       destru ctor Destr oy; overri de;
  41  
  42       functi on getAble ToConceive : TWVAbleT oConceive;
  43       functi on getAble ToConceive AsStr: str ing;
  44       functi on getAskF orLactatio nData: boo lean;
  45       functi on getAskF orPregnanc yData: boo lean;
  46       functi on getDFN:  string;
  47       functi on getHyst erectomy:  boolean;
  48       functi on getLact ationStatu s: TWVLact ationStatu s;
  49       functi on getLact ationStatu sAsStr: st ring;
  50       functi on getLast MenstrualP eriod: TDa teTime;
  51       functi on getLast MenstrualP eriodAsStr : string;
  52       functi on getMeno pause: boo lean;
  53       functi on getPreg nancyStatu s: TWVPreg nancyStatu s;
  54       functi on getPreg nancyStatu sAsStr: st ring;
  55       functi on getUnab leToConcei veReason:  string;
  56  
  57       proced ure setAbl eToConceiv e(const aV alue: TWVA bleToConce ive);
  58       proced ure setAsk ForLactati onData(con st aValue:  boolean);
  59       proced ure setAsk ForPregnan cyData(con st aValue:  boolean);
  60       proced ure setDFN (const aVa lue: strin g);
  61       proced ure setHys terectomy( const aVal ue: boolea n);
  62       proced ure setLac tationStat us(const a Value: TWV LactationS tatus);
  63       proced ure setLas tMenstrual Period(con st aValue:  TDateTime );
  64       proced ure setMen opause(con st aValue:  boolean);
  65       proced ure setPre gnancyStat us(const a Value: TWV PregnancyS tatus);
  66     end;
  67  
  68   implementa tion
  69  
  70   { TWVPatie nt }
  71  
  72   constructo r TWVPatie nt.Create( aDFN: stri ng);
  73   begin
  74     inherite d Create;
  75     fDFN :=  aDFN;
  76     fAbleToC onceive :=  atcUnknow n;
  77     fPregnan cyStatus : = psUnknow n;
  78     fLactati onStatus : = lsUnknow n;
  79     fHystere ctomy := F alse;
  80     fMenopau se := Fals e;
  81     fLastMen strualPeri od := 0;
  82   end;
  83  
  84   destructor  TWVPatien t.Destroy;
  85   begin
  86     inherite d;
  87   end;
  88  
  89   function T WVPatient. getAbleToC onceive: T WVAbleToCo nceive;
  90   begin
  91     Result : = fAbleToC onceive;
  92   end;
  93  
  94   function T WVPatient. getAbleToC onceiveAsS tr: string ;
  95   begin
  96     Result : = WV_ABLE_ TO_CONCEIV E[fAbleToC onceive];
  97   end;
  98  
  99   function T WVPatient. getAskForL actationDa ta: boolea n;
  100   begin
  101     Result : = fAskForL actationDa ta;
  102   end;
  103  
  104   function T WVPatient. getAskForP regnancyDa ta: boolea n;
  105   begin
  106     Result : = fAskForP regnancyDa ta;
  107   end;
  108  
  109   function T WVPatient. getDFN: st ring;
  110   begin
  111     Result : = fDFN;
  112   end;
  113  
  114   function T WVPatient. getHystere ctomy: boo lean;
  115   begin
  116     Result : = fHystere ctomy;
  117   end;
  118  
  119   function T WVPatient. getLactati onStatus:  TWVLactati onStatus;
  120   begin
  121     Result : = fLactati onStatus;
  122   end;
  123  
  124   function T WVPatient. getLactati onStatusAs Str: strin g;
  125   begin
  126     Result : = WV_LACTA TION_STATU S[fLactati onStatus];
  127   end;
  128  
  129   function T WVPatient. getLastMen strualPeri od: TDateT ime;
  130   begin
  131     Result : = fLastMen strualPeri od;
  132   end;
  133  
  134   function T WVPatient. getLastMen strualPeri odAsStr: s tring;
  135   var
  136     y, m, d:  Word;
  137   begin
  138     if fLast MenstrualP eriod > 0  then
  139       begin
  140         Deco deDate(fLa stMenstrua lPeriod, y , m, d);
  141         Resu lt := Form at('%3d%.2 d%.2d', [y  - 1700, m , d]);
  142       end
  143     else
  144       Result  := '';
  145   end;
  146  
  147   function T WVPatient. getMenopau se: boolea n;
  148   begin
  149     Result : = fMenopau se;
  150   end;
  151  
  152   function T WVPatient. getPregnan cyStatus:  TWVPregnan cyStatus;
  153   begin
  154     Result : = fPregnan cyStatus;
  155   end;
  156  
  157   function T WVPatient. getPregnan cyStatusAs Str: strin g;
  158   begin
  159     Result : = WV_PREGN ANCY_STATU S[fPregnan cyStatus];
  160   end;
  161  
  162   function T WVPatient. getUnableT oConceiveR eason: str ing;
  163   begin
  164     if fHyst erectomy a nd fMenopa use then
  165       Result  := 'Hyste rectomy an d Menopaus e'
  166     else if  fHysterect omy then
  167       Result  := 'Hyste rectomy'
  168     else if  fMenopause  then
  169       Result  := 'Menop ause'
  170     else
  171       Result  := '';
  172   end;
  173  
  174   procedure  TWVPatient .setAbleTo Conceive(c onst aValu e: TWVAble ToConceive );
  175   begin
  176     fAbleToC onceive :=  aValue;
  177   end;
  178  
  179   procedure  TWVPatient .setAskFor LactationD ata(const  aValue: bo olean);
  180   begin
  181     fAskForL actationDa ta := aVal ue;
  182   end;
  183  
  184   procedure  TWVPatient .setAskFor PregnancyD ata(const  aValue: bo olean);
  185   begin
  186     fAskForP regnancyDa ta := aVal ue;
  187   end;
  188  
  189   procedure  TWVPatient .setDFN(co nst aValue : string);
  190   begin
  191     fDFN :=  aValue;
  192   end;
  193  
  194   procedure  TWVPatient .setHyster ectomy(con st aValue:  boolean);
  195   begin
  196     fHystere ctomy := a Value;
  197   end;
  198  
  199   procedure  TWVPatient .setLactat ionStatus( const aVal ue: TWVLac tationStat us);
  200   begin
  201     fLactati onStatus : = aValue;
  202   end;
  203  
  204   procedure  TWVPatient .setLastMe nstrualPer iod(const  aValue: TD ateTime);
  205   begin
  206     fLastMen strualPeri od := aVal ue;
  207   end;
  208  
  209   procedure  TWVPatient .setMenopa use(const  aValue: bo olean);
  210   begin
  211     fMenopau se := aVal ue;
  212   end;
  213  
  214   procedure  TWVPatient .setPregna ncyStatus( const aVal ue: TWVPre gnancyStat us);
  215   begin
  216     fPregnan cyStatus : = aValue;
  217   end;
  218  
  219   end.