43. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 8/3/2017 2:38:22 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.

43.1 Files compared

#	Location	File	Last Modified
1	V32.zip\V32\OR_30_405V28_SRC\Womens Health	iWVInterface.pas	Wed May 10 17:35:58 2017 UTC
2	V32.zip\V32\OR_30_405V28_SRC\Womens Health	iWVInterface.pas	Thu Aug 3 16:09:52 2017 UTC

43.2 Comparison summary

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

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

43.4 Active regular expressions

No regular expressions were active.

43.5 Comparison detail

	1	unit iWVIn terface;
	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: 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 getEDDM ethod: str ing;
	33	functi on getWebS ite(aIndex : integer) : IWVWebSi te;
	34	functi on getWebS iteCount: integer;
	35	functi on getWebS iteListNam e: string;
	36
	37	functi on EditPre gLacData(a DFN: strin g): boolea n;
	38	functi on SavePre gnancyAndL actationDa ta(aList: TStrings): boolean;
	39	functi on MarkAsE nteredInEr ror(aItemI D: string) : boolean;
	40	functi on InitCon troller(aF orceInit: boolean = False): bo olean;
	41	functi on IsValid WVPatient( aDFN: stri ng): boole an;
	42	functi on GetReco rdIDType(a RecordID: string; va r aType: s tring): bo olean;
	43	functi on GetLast Error: str ing;
	44	functi on GetWebS iteURL(aWe bSiteName: string): string;
	45	functi on OpenExt ernalWebsi te(aWebSit e: IWVWebS ite): bool ean;
	46
	47	proper ty EDDMeth od: string read getE DDMethod;
	48	proper ty WebSite [aIndex: i nteger]: I WVWebSite read getWe bSite;
	49	proper ty WebSite Count: int eger read getWebSite Count;
	50	proper ty WebSite ListName: string rea d getWebSi teListName ;
	51	end;
	52
	53	IWVPatie nt = inter face(IInte rface)
	54	['{B99 012A3-5DE8 -4AEF-9D78 -E15C11BF8 017}']
	55	functi on getDFN: string;
	56
	57	proced ure setDFN (const aVa lue: strin g);
	58
	59	proper ty DFN: st ring read getDFN wri te setDFN;
	60	end;
	61
	62	IWVWebSi te = inter face(IInte rface)
	63	['{FB8 01C45-686F -4994-9326 -10A32E84C C45}']
	64	functi on GetName : string;
	65	functi on GetURL: string;
	66
	67	proper ty Name: s tring read GetName;
	68	proper ty URL: st ring read GetURL;
	69	end;
	70
	71	const
	72	WV_ABLE_ TO_CONCEIV E: array [ TWVAbleToC onceive] o f string = ('Unknown ', 'Yes', 'No');
	73	WV_LACTA TION_STATU S: array [ TWVLactati onStatus] of string = ('Unknow n', 'Yes', 'No');
	74	WV_PREGN ANCY_STATU S: array [ TWVPregnan cyStatus] of string = ('Unknow n', 'Yes', 'No', 'Un sure');
	75
	76	function W omensHealt h: IWVCont roller;
	77
	78	implementa tion
	79
	80	uses
	81	oWVContr oller;
	82
	83	var
	84	fWVContr oller: IWV Controller ;
	85
	86	function W omensHealt h: IWVCont roller;
	87	begin
	88	fWVContr oller.Quer yInterface (IWVContro ller, Resu lt);
	89	end;
	90
	91	initializa tion
	92
	93	TWVControl ler.Create .GetInterf ace(IWVCon troller, f WVControll er);
	94
	95	end.