51. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 1/31/2019 1:51:42 PM Central Standard 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.

51.1 Files compared

#	Location	File	Last Modified
1	CPRS v31b Phase 2 T257 CiF Submission..zip\CPRS v31b Phase 2 T257 CiF Submission\OR_30_377V257_src\Womens Health	oWVPatient.pas	Thu Nov 15 18:27:52 2018 UTC
2	CPRS v31b Phase 2 T257 CiF Submission.zip\CPRS v31b Phase 2 T257 CiF Submission\OR_30_377V257_src\Womens Health	oWVPatient.pas	Tue Jan 29 15:32:44 2019 UTC

51.2 Comparison summary

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

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

51.4 Active regular expressions

No regular expressions were active.

51.5 Comparison detail

	1	unit oWVPa tient;
	2	{
	3	======== ========== ========== ========== ========== ========== ========== ========== ==
	4	*
	5	* Applicatio n: TDrugs Patch OR* 3377 and WV1*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.