39. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 6/4/2018 8:25:11 PM Eastern 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.

39.1 Files compared

#	Location	File	Last Modified
1	CPRS_v32_P2_Build48.zip\OR_30_405V48_SRC.zip\Cover Sheet	mCoverSheetDisplayPanel_CPRS_Postings.pas	Wed May 9 15:19:00 2018 UTC
2	CPRS_v32_P2_Build48.zip\OR_30_405V48_SRC.zip\Cover Sheet	mCoverSheetDisplayPanel_CPRS_Postings.pas	Fri Jun 1 20:06:37 2018 UTC

39.2 Comparison summary

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

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

39.4 Active regular expressions

No regular expressions were active.

39.5 Comparison detail

	1	unit mCove rSheetDisp layPanel_C PRS_Postin gs;
	2	{
	3	======== ========== ========== ========== ========== ========== ========== ========== ==
	4	*
	5	* Applicatio n: Demo
	6	* Developer: PII
	7	* Site: Salt L ake City I SC
	8	* Date: 2015-1 2-21
	9	*
	10	* Descriptio n: Panel for Postin gs Display on CPRS C oversheet.
	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.V ariants,
	24	System.C lasses,
	25	System.I mageList,
	26	Vcl.Grap hics,
	27	Vcl.Cont rols,
	28	Vcl.Form s,
	29	Vcl.Dial ogs,
	30	Vcl.ExtC trls,
	31	Vcl.Menu s,
	32	Vcl.ImgL ist,
	33	Vcl.ComC trls,
	34	Vcl.StdC trls,
	35	Vcl.Butt ons,
	36	mCoverSh eetDisplay Panel_CPRS ,
	37	oDelimit edString;
	38
	39	type
	40	TfraCove rSheetDisp layPanel_C PRS_Postin gs = class (TfraCover SheetDispl ayPanel_CP RS)
	41	private
	42	{ Priv ate declar ations }
	43	protecte d
	44	{ Over ridden eve nts - Tfra CoverSheet DisplayPan el_CPRS }
	45	proced ure OnAddI tems(aList : TStrings ); overrid e;
	46	proced ure OnGetD etail(aRec : TDelimit edString; aResult: T Strings); override;
	47	proced ure OnBegi nUpdate(Se nder: TObj ect); over ride;
	48	public
	49	constr uctor Crea te(aOwner: TComponen t); overri de;
	50	end;
	51
	52	var
	53	fraCover SheetDispl ayPanel_CP RS_Posting s: TfraCov erSheetDis playPanel_ CPRS_Posti ngs;
	54
	55	implementa tion
	56
	57	{$R *.dfm}
	58
	59	{ TfraCove rSheetDisp layPanel_C PRS_Postin gs }
	60
	61	uses
	62	uCore,
	63	ORFn,
	64	ORNet,
	65	VAUtils;
	66
	67	constructo r TfraCove rSheetDisp layPanel_C PRS_Postin gs.Create( aOwner: TC omponent);
	68	begin
	69	inherite d;
	70	AddColum n(0, 'Post ing');
	71	Collapse Columns;
	72	end;
	73
	74	procedure TfraCoverS heetDispla yPanel_CPR S_Postings .OnAddItem s(aList: T Strings);
	75	var
	76	aListIte m: TListIt em;
	77	begin
	78	inherite d;
	79	{ Update the ALLER GIES item to have an identifie r of 'A' i f it exist s }
	80	for aLis tItem in l vData.Item s do
	81	if aLi stItem.Dat a <> nil t hen
	82	if T DelimitedS tring(aLis tItem.Data ).GetPiece Equals(2, 'ALLERGIES ') then
	83	TD elimitedSt ring(aList Item.Data) .SetPiece( 1, 'A');
	84	end;
	85
	86	procedure TfraCoverS heetDispla yPanel_CPR S_Postings .OnGetDeta il(aRec: T DelimitedS tring; aRe sult: TStr ings);
	87	begin
	88	if aRec. GetPieceEq uals(1, 'A ') then
	89	CallVi stA('ORQQA L LIST REP ORT', [Pat ient.DFN], aResult)
	90	else if aRec.GetPi eceEquals( 1, 'WH') t hen
	91	CallVi stA('WVRPC OR POSTREP ', [Patien t.DFN, aRe c.GetPiece (3), Scree nReaderAct ive], aRes ult)
	92	else if aRec.GetPi eceIsNotNu ll(1) then
	93	CallVi stA('TIU G ET RECORD TEXT', [aR ec.GetPiec e(1)], aRe sult)
	94	else
	95	aResul t.Text := 'Invalid D etail Item ';
	96	end;
	97
	98	procedure TfraCoverS heetDispla yPanel_CPR S_Postings .OnBeginUp date(Sende r: TObject );
	99	begin
	100	if Scree nReaderAct ive then
	101	begin
	102	CPRSPa rams.Param 1 := '1';
	103	end;
	104	end;
	105
	106	end.