23. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 5/13/2019 2:40:11 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.

23.1 Files compared

#	Location	File	Last Modified
1	C:\AraxisMergeCompare\Pri_un\MPDU\Code\BCMA-master-20181214\BCMA-master\BCMApar	Instructor.pas	Wed Nov 21 17:43:20 2018 UTC
2	C:\AraxisMergeCompare\Pri_re\MPDU\MPDU\Code\BCMA-master-20181214\BCMA-master\BCMApar	Instructor.pas	Tue May 7 12:05:12 2019 UTC

23.2 Comparison summary

Description	Between Files 1 and 2
Description	Text Blocks	Lines
Unchanged	7	294
Changed	6	12
Inserted	0	0
Removed	0	0

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

23.4 Active regular expressions

No regular expressions were active.

23.5 Comparison detail

	1	unit Instr uctor;
	2	{
	3	========== ========== ========== ========== ========== ========== ========== ==========
	4	* Fi le: Instr uctor.PAS
	5	*
	6	* Ap plication: Bar Code Medicatio n Administ ration
	7	* Re vision: $Revisio n: 7 $ $M odtime: 7/ 20/99 3:42 p $
	8	* De veloper: PII
	9	* Si te: VHA Dall as CIO FO
	10	*
	11	* De scription: This is the form f or validat ing an Ins tructor wh en the Use r is a
	12	* studen t.
	13	*
	14	* No tes:
	15	*
	16	*
	17	========== ========== ========== ========== ========== ========== ========== ==========
	18	* $A rchive: /B CMA/BCMA A pplication /Instructo r.pas $
	19	*
	20	* $History : Instruct or.pas $
	21	*
	22	* ***** ****** Version 7 *** ********
	23	* User: DNS kurtzw Dat e: 7/20/99 Time: 5:23 p
	24	* Updated in $/BCMA /BCMA Appl ication
	25	* Added a nd edited HelpContex t ID's.
	26	*
	27	* ***** ****** Version 4 *** ********
	28	* User: DNS kurtzw Dat e: 5/17/99 Time: 7:24 p
	29	* Updated in $/BCMA /BCMA Appl ication
	30	* Changed Uses from BCMA_Obje cts and BC MA_Common to BCMA_St artup. Ad ded
	31	* a save of the Ins tructor's name to gl obal var I nstructorN ame in
	32	* BCMA_St artup.
	33	*
	34	* ***** ****** Version 3 *** ********
	35	* User: DNS petitd Dat e: 4/20/99 Time: 3:26 p
	36	* Updated in $/BCMA /BCMA Appl ication
	37	* Set the edit boxe s to null for initia l displayi ng of the forms.
	38	*
	39	* ***** ****** Version 2 *** ********
	40	* User: DNS petitd Dat e: 3/30/99 Time: 11:0 6a
	41	* Updated in $/BCMA /BCMA Appl ication
	42	* Finishe d Reports Menu Items , Fixed Mi ssing Dose Window No t Closing,
	43	* Checked and corre cted as ne eded the t ab order o n the Repo rts Reques t
	44	* Form.
	45	*
	46	* ***** ****** Version 1 *** ********
	47	* User: DNS kurtzw Dat e: 3/27/99 Time: 4:00 p
	48	* Created in $/BCMA /BCMA Appl ication
	49	* Instruc tor Valida tion from used whene ver the Us er is a st udent.
	50	*
	51	*
	52	========== ========== ========== ========== ========== ========== ========== ==========
	53	}
	54
	55	interface
	56
	57	uses
	58	Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dia logs,
	59	BCMA_Sta rtup,
	60	// BC MA_Objects ,
	61	// BC MA_Common,
	62	StdCtrls , TRPCB;
	63	// MFunSt r;
	64
	65	type
	66	TfrmInst ructor = c lass(TForm )
	67	edtAcc ess: TEdit ;
	68	edtVer ify: TEdit ;
	69	btnCan cel: TButt on;
	70	btnSig nOn: TButt on;
	71	Label1 : TLabel;
	72	Label2 : TLabel;
	73	proced ure btnSig nOnClick(S ender: TOb ject);
	74	(*
	75	Uses RPC 'PSB INSTRUCTOR ' to valid ate an Ins tructor. If the Ins tructor
	76	is v alidated, ModalResul t is set t o mrOK oth erwise, Mo dalResult is set
	77	to m rCancel. In either case the f orm is clo sed.
	78	*)
	79
	80	proced ure btnCan celClick(S ender: TOb ject);
	81	proced ure edtAcc essChange( Sender: TO bject);
	82	(*
	83	Moda lResult is set to mr Cancel and the form is closed.
	84	*)
	85
	86	private
	87	{ Priv ate declar ations }
	88	public
	89	{ Publ ic declara tions }
	90	end;
	91
	92	var
	93	frmInstr uctor: Tfr mInstructo r;
	94
	95	implementa tion
	96
	97	{$R *.DFM}
	98	uses
	99	BCMA_Uti l, XWBHash // 2FA
	100	, System .UITypes
	101	;
	102
	103	procedure TfrmInstru ctor.btnSi gnOnClick( Sender: TO bject);
	104	var
	105	dPos: in teger;
	106	ss,
	107	Access Code,
	108	Verify Code: stri ng;
	109	begin
	110	with BCM A_Broker d o
	111	begin
	112	ss := edtAccess. Text + '$' ;
	113	edtAcc ess.Text : = '';
	114	dPos : = pos('$', ss);
	115	Access Code := co py(ss, 1, dPos - 1);
	116
	117	Verify Code := ed tVerify.Te xt;
	118	edtVer ify.Text : = '';
	119	if Ver ifyCode = '' then
	120	Veri fyCode := copy(ss, d Pos + 1, 9 99);
	121
	122	CallSe rver('PSB INSTRUCTOR ', [encryp t(AccessCo de), encry pt(VerifyC ode)],
	123	nil) ;
	124	if Str ToIntDef(p iece(Resul ts[0], '^' , 1), -1) > 0 then
	125	begin
	126	Inst ructorName := piece( Results[0] , '^', 2);
	127	writ eLogMessag eProc(piec e(Results[ 0], '^', 2 ) +
	128	' Signed on as Instruc tor for ' +
	129	BC MA_User.Us erName, ni l);
	130	// Me ssageDlg(p iece(Resul ts[0],'^', 2) + ' Sig ned on as Instructor for ' +
	131	// BCMA _User.User Name, mtIn formation, [mbok], 0 );
	132	Moda lResult := mrOk;
	133	end
	134	else
	135	begin
	136	Mess ageDlg(pie ce(Results [0], '^', 2), mtErro r, [mbok], 0);
	137	Moda lResult := mrCancel;
	138	end;
	139	end;
	140	end;
	141
	142	procedure TfrmInstru ctor.btnCa ncelClick( Sender: TO bject);
	143	begin
	144	ModalRes ult := mrC ancel;
	145	end;
	146
	147	procedure TfrmInstru ctor.edtAc cessChange (Sender: T Object);
	148	begin
	149	with sen der as TEd it do
	150	btnSig nOn.Enable d := (text <> '');
	151	end;
	152
	153	end.