1. EPMO Open Source Coordination Office Redaction File Detail Report

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

1.1 Files compared

#	Location	File	Last Modified
1	V32.zip\V32\OR_30_405V28_SRC\Cover Sheet	fCoverSheet.pas	Wed May 10 17:35:46 2017 UTC
2	V32.zip\V32\OR_30_405V28_SRC\Cover Sheet	fCoverSheet.pas	Thu Aug 3 16:07:10 2017 UTC

1.2 Comparison summary

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

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

1.4 Active regular expressions

No regular expressions were active.

1.5 Comparison detail

	1	unit fCove rSheet;
	2	{
	3	======== ========== ========== ========== ========== ========== ========== ========== ==
	4	*
	5	* Applicatio n: CPRS - Covershee t
	6	* Developer: PII
	7	* Site: Salt L ake City I SC
	8	* Date: 2015-1 2-21
	9	*
	10	* Descriptio n: Main f orm for ot her covers heet compo nents.
	11	*
	12	* Notes:
	13	*
	14	======== ========== ========== ========== ========== ========== ========== ========== ==
	15	}
	16
	17	interface
	18
	19	uses
	20	Winapi.W indows,
	21	Winapi.M essages,
	22	System.S ysUtils,
	23	System.U ITypes,
	24	System.V ariants,
	25	System.C lasses,
	26	Vcl.Grap hics,
	27	Vcl.Cont rols,
	28	Vcl.Form s,
	29	Vcl.Dial ogs,
	30	Vcl.StdC trls,
	31	Vcl.ExtC trls,
	32	VA508Acc essibility Router,
	33	iCoverSh eetIntf;
	34
	35	type
	36	TfrmCove rSheet = c lass(TForm , ICPRSTab )
	37	gpMain : TGridPan el;
	38	private
	39	fDispl ayCount: I nteger;
	40	fPatie ntCount: I nteger;
	41	fCalli ngContext: Integer;
	42
	43	{ Prev ents auto free when RefCount = 0 needed for interf aces}
	44	functi on _AddRef : Integer; stdcall;
	45	functi on _Releas e: Integer ; stdcall;
	46	protecte d
	47	{ ICPR STab }
	48	proced ure OnClea rPtData(Se nder: TObj ect); virt ual;
	49	proced ure OnDisp layPage(Se nder: TObj ect; aCall ingContext : Integer) ; virtual;
	50	proced ure OnLoad ed(Sender: TObject); virtual;
	51
	52	{ ICPR S508 }
	53	proced ure OnFocu sFirstCont rol(Sender : TObject) ; virtual;
	54	proced ure OnSetF ontSize(Se nder: TObj ect; aNewS ize: Integ er); virtu al;
	55	proced ure OnSetS creenReade rStatus(Se nder: TObj ect; aActi ve: boolea n);
	56	public
	57	{ Publ ic declara tions }
	58	constr uctor Crea te(aOwner: TComponen t); overri de;
	59	end;
	60
	61	var
	62	frmCover Sheet: Tfr mCoverShee t;
	63
	64	implementa tion
	65
	66	uses
	67	uConst,
	68	uCore;
	69
	70	{$R *.dfm}
	71
	72	{ TfrmCove rSheet }
	73
	74	constructo r TfrmCove rSheet.Cre ate(aOwner : TCompone nt);
	75	begin
	76	inherite d;
	77	fPatient Count := 0 ;
	78	fDisplay Count := 0 ;
	79	fCalling Context := 0;
	80	end;
	81
	82	procedure TfrmCoverS heet.OnFoc usFirstCon trol(Sende r: TObject );
	83	var
	84	aCPRS508 : ICPRS508 ;
	85	begin
	86	if Suppo rts(CoverS heet, ICPR S508, aCPR S508) then
	87	aCPRS5 08.OnFocus FirstContr ol(Sender) ;
	88	end;
	89
	90	procedure TfrmCoverS heet.OnLoa ded(Sender : TObject) ;
	91	begin
	92	inherite d Loaded;
	93	Visible := False;
	94	Position := poDefa ult;
	95	BorderIc ons := [];
	96	BorderSt yle := bsN one;
	97	HandleNe eded;
	98	SetBound s(0, 0, Wi dth, Heigh t);
	99	end;
	100
	101	procedure TfrmCoverS heet.OnSet FontSize(S ender: TOb ject; aNew Size: Inte ger);
	102	begin
	103	Font.Siz e := aNewS ize;
	104	end;
	105
	106	procedure TfrmCoverS heet.OnSet ScreenRead erStatus(S ender: TOb ject; aAct ive: boole an);
	107	begin
	108	// Nothi ng to do h ere, ICove rSheet is an entry p oint.
	109	end;
	110
	111	procedure TfrmCoverS heet.OnCle arPtData(S ender: TOb ject);
	112	begin
	113	CoverShe et.OnClear PtData(Sen der);
	114	fPatient Count := 0 ;
	115	end;
	116
	117	procedure TfrmCoverS heet.OnDis playPage(S ender: TOb ject; aCal lingContex t: Integer );
	118	{ cause th e page to be display ed and upd ate the di splay coun ters }
	119	begin
	120	BringToF ront;
	121
	122	Inc(fDis playCount) ;
	123	Inc(fPat ientCount) ;
	124
	125	if (aCal lingContex t = CC_CLI CK) and (f PatientCou nt = 1) th en
	126	fCalli ngContext := CC_INIT _PATIENT
	127	else
	128	fCalli ngContext := aCallin gContext;
	129
	130	if fDisp layCount = 1 then
	131	begin
	132	Cove rSheet.OnI nitCoverSh eet(Self);
	133	Cove rSheet.OnD isplay(Sel f, gpMain) ;
	134	end;
	135
	136	if fPati entCount = 1 then
	137	CoverS heet.OnSwi tchToPatie nt(Self, P atient.DFN );
	138
	139	if Activ eControl < > nil then
	140	FocusC ontrol(Act iveControl )
	141	else
	142	OnFocu sFirstCont rol(Sender );
	143	end;
	144
	145	function T frmCoverSh eet._AddRe f: Integer ;
	146	begin
	147	Result : = -1;
	148	end;
	149
	150	function T frmCoverSh eet._Relea se: Intege r;
	151	begin
	152	Result : = -1;
	153	end;
	154
	155	initializa tion
	156
	157	SpecifyFor mIsNotADia log(TfrmCo verSheet);
	158
	159	end.