43. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 2/17/2017 12:43:23 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.

43.1 Files compared

#	Location	File	Last Modified
1	CPRS_V32_T20_cif.zip\OR_30_405V20_SRC.zip\CPRS-chart\Womens Health	iWVInterface.pas	Thu Dec 15 14:28:36 2016 UTC
2	CPRS_V32_T20_cif.zip\OR_30_405V20_SRC.zip\CPRS-chart\Womens Health	iWVInterface.pas	Fri Feb 17 17:22:07 2017 UTC

43.2 Comparison summary

Description	Between Files 1 and 2
Description	Text Blocks	Lines
Unchanged	2	182
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 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	proper ty WebSite [aIndex: i nteger]: I WVWebSite read getWe bSite;
	46	proper ty WebSite Count: int eger read getWebSite Count;
	47	proper ty WebSite ListName: string rea d getWebSi teListName ;
	48	end;
	49
	50	IWVPatie nt = inter face(IInte rface)
	51	['{B99 012A3-5DE8 -4AEF-9D78 -E15C11BF8 017}']
	52	functi on getDFN: string;
	53
	54	proced ure setDFN (const aVa lue: strin g);
	55
	56	proper ty DFN: st ring read getDFN wri te setDFN;
	57	end;
	58
	59	IWVWebSi te = inter face(IInte rface)
	60	['{FB8 01C45-686F -4994-9326 -10A32E84C C45}']
	61	functi on GetName : string;
	62	functi on GetURL: string;
	63
	64	proper ty Name: s tring read GetName;
	65	proper ty URL: st ring read GetURL;
	66	end;
	67
	68	const
	69	WV_ABLE_ TO_CONCEIV E: array [ TWVAbleToC onceive] o f string = ('Unknown ', 'Yes', 'No');
	70	WV_LACTA TION_STATU S: array [ TWVLactati onStatus] of string = ('Unknow n', 'Yes', 'No');
	71	WV_PREGN ANCY_STATU S: array [ TWVPregnan cyStatus] of string = ('Unknow n', 'Yes', 'No', 'Un sure');
	72
	73	function W omensHealt h: IWVCont roller;
	74
	75	implementa tion
	76
	77	uses
	78	oWVContr oller;
	79
	80	var
	81	fWVContr oller: IWV Controller ;
	82
	83	function W omensHealt h: IWVCont roller;
	84	begin
	85	fWVContr oller.Quer yInterface (IWVContro ller, Resu lt);
	86	end;
	87
	88	initializa tion
	89
	90	TWVControl ler.Create .GetInterf ace(IWVCon troller, f WVControll er);
	91
	92	end.