39. EPMO Open Source Coordination Office Redaction File Detail Report

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

39.1 Files compared

#	Location	File	Last Modified
1	C:\AraxisMergeCompare\Pri_un\MPDU\Code\EPCS-master-20181214\EPCS-master	fMain.dfm	Wed Nov 28 18:08:18 2018 UTC
2	C:\AraxisMergeCompare\Pri_re\MPDU\MPDU\Code\EPCS-master-20181214\EPCS-master	fMain.dfm	Tue May 7 18:12:32 2019 UTC

39.2 Comparison summary

Description	Between Files 1 and 2
Description	Text Blocks	Lines
Unchanged	2	2452
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	object frm Main: Tfrm Main
	2	Left = 6 17
	3	Top = 30 9
	4	Caption = 'Data En try for e- Prescribin g Controll ed Substan ces'
	5	ClientHe ight = 538
	6	ClientWi dth = 904
	7	Color = clBtnFace
	8	Constrai nts.MinHei ght = 560
	9	Constrai nts.MinWid th = 800
	10	Font.Cha rset = ANS I_CHARSET
	11	Font.Col or = clWin dowText
	12	Font.Hei ght = -13
	13	Font.Nam e = 'Calib ri'
	14	Font.Sty le = []
	15	Menu = m mMain
	16	OldCreat eOrder = F alse
	17	Position = poScree nCenter
	18	ShowHint = True
	19	OnCloseQ uery = For mCloseQuer y
	20	OnCreate = FormCre ate
	21	PixelsPe rInch = 96
	22	TextHeig ht = 15
	23	object L abel1: TLa bel
	24	Left = 744
	25	Top = 90
	26	Width = 21
	27	Height = 15
	28	Margin s.Left = 4
	29	Margin s.Top = 4
	30	Margin s.Right = 4
	31	Margin s.Bottom = 4
	32	Captio n = 'DOJ'
	33	end
	34	object p nlTop: TPa nel
	35	Left = 0
	36	Top = 0
	37	Width = 904
	38	Height = 70
	39	Margin s.Left = 4
	40	Margin s.Top = 4
	41	Margin s.Right = 4
	42	Margin s.Bottom = 4
	43	Align = alTop
	44	BevelO uter = bvN one
	45	TabOrd er = 0
	46	Design Size = (
	47	904
	48	70)
	49	object lblServer : TLabel
	50	Left = 30
	51	Top = 10
	52	Widt h = 77
	53	Heig ht = 15
	54	Marg ins.Left = 4
	55	Marg ins.Top = 4
	56	Marg ins.Right = 4
	57	Marg ins.Bottom = 4
	58	Capt ion = '&Se rver Adres s:'
	59	Focu sControl = edtServer
	60	end
	61	object lblPortNu mber: TLab el
	62	Left = 217
	63	Top = 10
	64	Widt h = 72
	65	Heig ht = 15
	66	Marg ins.Left = 4
	67	Marg ins.Top = 4
	68	Marg ins.Right = 4
	69	Marg ins.Bottom = 4
	70	Capt ion = '&Po rt Number: '
	71	Focu sControl = edtPort
	72	end
	73	object edtServer : TEdit
	74	Left = 30
	75	Top = 30
	76	Widt h = 184
	77	Heig ht = 23
	78	Hint = 'Enter URL or IP address fo r server'
	79	Marg ins.Left = 4
	80	Marg ins.Top = 4
	81	Marg ins.Right = 4
	82	Marg ins.Bottom = 4
	83	TabO rder = 0
	84	end
	85	object edtPort: TEdit
	86	Left = 217
	87	Top = 30
	88	Widt h = 100
	89	Heig ht = 23
	90	Hint = 'Enter port numbe r for sele cted serve r'
	91	Marg ins.Left = 4
	92	Marg ins.Top = 4
	93	Marg ins.Right = 4
	94	Marg ins.Bottom = 4
	95	Alig nment = ta RightJusti fy
	96	TabO rder = 1
	97	end
	98	object btnGetSer verInfo: T Button
	99	Left = 327
	100	Top = 29
	101	Widt h = 135
	102	Heig ht = 25
	103	Curs or = crHan dPoint
	104	Hint = 'Select a VistA M UMPs serve r for conn ection'
	105	Marg ins.Left = 4
	106	Marg ins.Top = 4
	107	Marg ins.Right = 4
	108	Marg ins.Bottom = 4
	109	Acti on = acGet ServerInfo
	110	TabO rder = 2
	111	end
	112	object btnConnec t: TButton
	113	Left = 467
	114	Top = 29
	115	Widt h = 135
	116	Heig ht = 25
	117	Curs or = crHan dPoint
	118	Hint = 'Connec t to the s elected Vi stA MUMPs server'
	119	Marg ins.Left = 4
	120	Marg ins.Top = 4
	121	Marg ins.Right = 4
	122	Marg ins.Bottom = 4
	123	Acti on = acCon nectDiscon nect
	124	Pare ntShowHint = False
	125	Show Hint = Tru e
	126	TabO rder = 3
	127	end
	128	object btnExit: TButton
	129	Left = 752
	130	Top = 29
	131	Widt h = 135
	132	Heig ht = 25
	133	Curs or = crHan dPoint
	134	Hint = 'Exit t he ePCS ap plication'
	135	Marg ins.Left = 4
	136	Marg ins.Top = 4
	137	Marg ins.Right = 4
	138	Marg ins.Bottom = 4
	139	Acti on = acExi t
	140	Anch ors = [akT op, akRigh t]
	141	TabO rder = 4
	142	TabS top = Fals e
	143	end
	144	end
	145	object p nlMain: TP anel
	146	Left = 0
	147	Top = 70
	148	Width = 904
	149	Height = 468
	150	Margin s.Left = 4
	151	Margin s.Top = 4
	152	Margin s.Right = 4
	153	Margin s.Bottom = 4
	154	Align = alClient
	155	BevelO uter = bvN one
	156	Color = clWindow
	157	Parent Background = False
	158	Parent ShowHint = False
	159	ShowHi nt = True
	160	TabOrd er = 1
	161	Design Size = (
	162	904
	163	468)
	164	object bvlSchedu les: TBeve l
	165	Left = 591
	166	Top = 78
	167	Widt h = 224
	168	Heig ht = 6
	169	Shap e = bsTopL ine
	170	end
	171	object lblDeaExp irationDat e: TLabel
	172	Left = 6
	173	Top = 410
	174	Widt h = 168
	175	Heig ht = 15
	176	Marg ins.Left = 4
	177	Marg ins.Top = 4
	178	Marg ins.Right = 4
	179	Marg ins.Bottom = 4
	180	Capt ion = 'Pre scriber DE A Expirati on Date'
	181	end
	182	object lblDEANum ber: TLabe l
	183	Left = 6
	184	Top = 169
	185	Widt h = 90
	186	Heig ht = 15
	187	Marg ins.Left = 4
	188	Marg ins.Top = 4
	189	Marg ins.Right = 4
	190	Marg ins.Bottom = 4
	191	Capt ion = 'Pre scriber DE A #'
	192	end
	193	object lblDetoxM aintNumber : TLabel
	194	Left = 6
	195	Top = 371
	196	Widt h = 138
	197	Heig ht = 15
	198	Marg ins.Left = 4
	199	Marg ins.Top = 4
	200	Marg ins.Right = 4
	201	Marg ins.Bottom = 4
	202	Capt ion = 'Pre scriber De tox/Maint #'
	203	Focu sControl = fmedtDeto xMaintNumb er
	204	end
	205	object lblVANumb er: TLabel
	206	Left = 6
	207	Top = 332
	208	Widt h = 82
	209	Heig ht = 15
	210	Marg ins.Left = 4
	211	Marg ins.Top = 4
	212	Marg ins.Right = 4
	213	Marg ins.Bottom = 4
	214	Capt ion = 'Pre scriber VA #'
	215	Focu sControl = fmedtVANu mber
	216	end
	217	object fmlblSubj ectAlterna tiveName: TFMLabel
	218	Left = 6
	219	Top = 122
	220	Widt h = 139
	221	Heig ht = 15
	222	Hint =
	223	'T his is the user'#39' s exchange mail addr ess (for e xample - f irstnam' +
	224	'e period la stname at va dot gov ) all in l ower case'
	225	Marg ins.Left = 4
	226	Marg ins.Top = 4
	227	Marg ins.Right = 4
	228	Marg ins.Bottom = 4
	229	Capt ion = 'Sub ject Alter native Nam e '
	230	Focu sControl = fmedtAltN ame
	231	end
	232	object lblSANExa mple: TLab el
	233	Left = 30
	234	Top = 146
	235	Widt h = 145
	236	Heig ht = 15
	237	Marg ins.Left = 4
	238	Marg ins.Top = 4
	239	Marg ins.Right = 4
	240	Marg ins.Bottom = 4
	241	Caption = ' - (e.g., f irst.lastn @ DOMAIN )'
	242	Enab led = Fals e
	243	end
	244	object lblFacili tyDEANumbe r: TLabel
	245	Left = 6
	246	Top = 293
	247	Widt h = 74
	248	Heig ht = 15
	249	Marg ins.Left = 4
	250	Marg ins.Top = 4
	251	Marg ins.Right = 4
	252	Marg ins.Bottom = 4
	253	Capt ion = 'Fac ility DEA #'
	254	end
	255	object lblAccess Code: TLab el
	256	Left = 30
	257	Top = 581
	258	Widt h = 67
	259	Heig ht = 15
	260	Capt ion = 'Acc ess Code'
	261	Visi ble = Fals e
	262	end
	263	object lblVerify Code: TLab el
	264	Left = 30
	265	Top = 615
	266	Widt h = 61
	267	Heig ht = 15
	268	Capt ion = 'Ver ify Code'
	269	Visi ble = Fals e
	270	end
	271	object lblDisUse red: TLabe l
	272	Left = 30
	273	Top = 649
	274	Widt h = 56
	275	Heig ht = 15
	276	Capt ion = 'Dis Usered'
	277	Visi ble = Fals e
	278	end
	279	object lblTermin ationDate: TLabel
	280	Left = 30
	281	Top = 683
	282	Widt h = 93
	283	Heig ht = 15
	284	Capt ion = 'Ter mination D ate'
	285	Visi ble = Fals e
	286	end
	287	object bvlContro lPanel: TB evel
	288	Left = 0
	289	Top = 0
	290	Widt h = 904
	291	Heig ht = 5
	292	Alig n = alTop
	293	Shap e = bsTopL ine
	294	Expl icitWidth = 901
	295	end
	296	object lblSchedu les: TLabe l
	297	Left = 598
	298	Top = 69
	299	Widt h = 148
	300	Heig ht = 15
	301	Capt ion = ' A uthorized for schedu les '
	302	Tran sparent = False
	303	end
	304	object lblCurren DEA: TLabe l
	305	Left = 6
	306	Top = 192
	307	Widt h = 102
	308	Heig ht = 15
	309	Marg ins.Left = 4
	310	Marg ins.Top = 4
	311	Marg ins.Right = 4
	312	Marg ins.Bottom = 4
	313	Capt ion = 'Cur rent/New D EA #'
	314	end
	315	object lblInpati entWarning : TLabel
	316	Left = 6
	317	Top = 451
	318	Widt h = 726
	319	Heig ht = 15
	320	Anch ors = [akL eft, akBot tom]
	321	Capt ion =
	322	'C urrent pro vider does not have a DEA# wit h a '#39'U se for Inp atient ' +
	323	'O rders'#39' . Select a DEA # and then chec k the '#39 'Use for I npatient O r' +
	324	'd ers'#39'.'
	325	Colo r = clWind ow
	326	Font .Charset = ANSI_CHAR SET
	327	Font .Color = c lRed
	328	Font .Height = -13
	329	Font .Name = 'C alibri'
	330	Font .Style = [ fsBold, fs Underline]
	331	Pare ntColor = False
	332	Pare ntFont = F alse
	333	Visi ble = Fals e
	334	Expl icitTop = 415
	335	end
	336	object lblDEASuf fix: TLabe l
	337	Left = 6
	338	Top = 225
	339	Widt h = 108
	340	Heig ht = 15
	341	Marg ins.Left = 4
	342	Marg ins.Top = 4
	343	Marg ins.Right = 4
	344	Marg ins.Bottom = 4
	345	Capt ion = 'Suf fix for Ne w DEA #'
	346	end
	347	object fmlblProv iderType: TFMLabel
	348	Left = 6
	349	Top = 72
	350	Widt h = 83
	351	Heig ht = 15
	352	Hint = 'Provid er Type'
	353	Capt ion = '<Pr ovider Typ e>'
	354	Font .Charset = ANSI_CHAR SET
	355	Font .Color = c lWindowTex t
	356	Font .Height = -13
	357	Font .Name = 'C alibri'
	358	Font .Style = [ fsItalic]
	359	Pare ntFont = F alse
	360	FMFi le = '200'
	361	FMFi eld = '53. 6'
	362	FMGe ts = fmGet sPrescribe r
	363	end
	364	object btnRemove : TButton
	365	Left = 610
	366	Top = 423
	367	Widt h = 90
	368	Heig ht = 25
	369	Curs or = crHan dPoint
	370	Hint = 'Delete the curre nt DEA #'
	371	Marg ins.Left = 4
	372	Marg ins.Top = 4
	373	Marg ins.Right = 4
	374	Marg ins.Bottom = 4
	375	Anch ors = [akR ight, akBo ttom]
	376	Capt ion = '&De lete'
	377	Imag eIndex = 5
	378	TabO rder = 18
	379	OnCl ick = btnR emoveClick
	380	end
	381	object btnUpdate : TButton
	382	Left = 797
	383	Top = 423
	384	Widt h = 90
	385	Heig ht = 25
	386	Curs or = crHan dPoint
	387	Hint = 'Update VistA MUM Ps with th e current modificati ons'
	388	Marg ins.Left = 4
	389	Marg ins.Top = 4
	390	Marg ins.Right = 4
	391	Marg ins.Bottom = 4
	392	Acti on = acUpd ate
	393	Anch ors = [akR ight, akBo ttom]
	394	TabO rder = 20
	395	end
	396	object fmedtVANu mber: TFME dit
	397	Left = 211
	398	Top = 329
	399	Widt h = 100
	400	Heig ht = 23
	401	Hint =
	402	'E nter the p rovider'#3 9's indivi dual DEA r egistratio n number. Leave ' +
	403	'b lank if pr ovider has only a VA #'
	404	Marg ins.Left = 4
	405	Marg ins.Top = 4
	406	Marg ins.Right = 4
	407	Marg ins.Bottom = 4
	408	TabO rder = 8
	409	FMFi le = '200'
	410	FMFi eld = '53. 3'
	411	FMGe ts = fmGet sPrescribe r
	412	FMFi ler = fmFi ler
	413	FMVa lidator = fmValidato r
	414	FMCt rlOptions = [coValOn Exit]
	415	end
	416	object fmedtProv iderName: TFMEdit
	417	Left = 6
	418	Top = 50
	419	Widt h = 355
	420	Heig ht = 23
	421	Hint = 'Name o f the sele cted presc riber (Not editable) '
	422	Marg ins.Left = 4
	423	Marg ins.Top = 4
	424	Marg ins.Right = 4
	425	Marg ins.Bottom = 4
	426	TabS top = Fals e
	427	Colo r = cl3DLi ght
	428	Enab led = Fals e
	429	Read Only = Tru e
	430	TabO rder = 1
	431	FMFi le = '200'
	432	FMFi eld = '.01 '
	433	FMGe ts = fmGet sPrescribe r
	434	FMDi splayName = 'Prescri ber Name'
	435	FMCt rlOptions = []
	436	end
	437	object fmedtDeto xMaintNumb er: TFMEdi t
	438	Left = 211
	439	Top = 368
	440	Widt h = 150
	441	Heig ht = 23
	442	Marg ins.Left = 4
	443	Marg ins.Top = 4
	444	Marg ins.Right = 4
	445	Marg ins.Bottom = 4
	446	TabO rder = 10
	447	OnKe yUp = Chec kDetoxNumb er
	448	FMFi le = '8991 .9'
	449	FMFi eld = '.03 '
	450	FMGe ts = fmGet sPrescribe r8991
	451	FMFi ler = fmFi ler8991
	452	FMVa lidator = fmValidato r8991
	453	FMCt rlOptions = [coValOn Exit]
	454	end
	455	object fmedtDeaE xpirationD ate: TFMEd it
	456	Left = 211
	457	Top = 407
	458	Widt h = 150
	459	Heig ht = 23
	460	Marg ins.Left = 4
	461	Marg ins.Top = 4
	462	Marg ins.Right = 4
	463	Marg ins.Bottom = 4
	464	TabO rder = 11
	465	FMFi le = '8991 .9'
	466	FMFi eld = '.04 '
	467	FMGe ts = fmGet sPrescribe r8991
	468	FMFi ler = fmFi ler8991
	469	FMVa lidator = fmValidato r8991
	470	FMCt rlOptions = [coValOn Exit]
	471	end
	472	object fmcbxSche duleV: TFM CheckBox
	473	Left = 602
	474	Top = 339
	475	Widt h = 212
	476	Heig ht = 21
	477	Marg ins.Left = 4
	478	Marg ins.Top = 4
	479	Marg ins.Right = 4
	480	Marg ins.Bottom = 4
	481	Alig nment = ta LeftJustif y
	482	Capt ion = 'Sch edule V'
	483	TabO rder = 17
	484	OnCl ick = fmcb xScheduleC lick
	485	FMFi le = '8991 .9'
	486	FMFi eld = '2.6 '
	487	FMGe ts = fmGet sPrescribe r8991
	488	FMFi ler = fmFi ler8991
	489	FMVa lidator = fmValidato r8991
	490	FMCt rlOptions = [coValOn Exit]
	491	FMVa lueChecked = '1'
	492	FMVa lueUncheck ed = '0'
	493	end
	494	object fmcbxSche duleIV: TF MCheckBox
	495	Left = 602
	496	Top = 302
	497	Widt h = 212
	498	Heig ht = 21
	499	Marg ins.Left = 4
	500	Marg ins.Top = 4
	501	Marg ins.Right = 4
	502	Marg ins.Bottom = 4
	503	Alig nment = ta LeftJustif y
	504	Capt ion = 'Sch edule IV'
	505	TabO rder = 16
	506	OnCl ick = fmcb xScheduleC lick
	507	FMFi le = '8991 .9'
	508	FMFi eld = '2.5 '
	509	FMGe ts = fmGet sPrescribe r8991
	510	FMFi ler = fmFi ler8991
	511	FMVa lidator = fmValidato r8991
	512	FMCt rlOptions = [coValOn Exit]
	513	FMVa lueChecked = '1'
	514	FMVa lueUncheck ed = '0'
	515	end
	516	object fmcbxSche duleIINonN arcotic: T FMCheckBox
	517	Left = 602
	518	Top = 185
	519	Widt h = 212
	520	Heig ht = 21
	521	Marg ins.Left = 4
	522	Marg ins.Top = 4
	523	Marg ins.Right = 4
	524	Marg ins.Bottom = 4
	525	Alig nment = ta LeftJustif y
	526	Capt ion = 'Sch edule II N on Narcoti c'
	527	TabO rder = 13
	528	OnCl ick = fmcb xScheduleC lick
	529	FMFi le = '8991 .9'
	530	FMFi eld = '2.2 '
	531	FMGe ts = fmGet sPrescribe r8991
	532	FMFi ler = fmFi ler8991
	533	FMVa lidator = fmValidato r8991
	534	FMCt rlOptions = [coValOn Exit]
	535	FMVa lueChecked = '1'
	536	FMVa lueUncheck ed = '0'
	537	end
	538	object fmcbxSche duleIINarc otic: TFMC heckBox
	539	Left = 602
	540	Top = 146
	541	Widt h = 212
	542	Heig ht = 21
	543	Marg ins.Left = 4
	544	Marg ins.Top = 4
	545	Marg ins.Right = 4
	546	Marg ins.Bottom = 4
	547	Alig nment = ta LeftJustif y
	548	Capt ion = 'Sch edule II N arcotic'
	549	TabO rder = 12
	550	OnCl ick = fmcb xScheduleC lick
	551	FMFi le = '8991 .9'
	552	FMFi eld = '2.1 '
	553	FMGe ts = fmGet sPrescribe r8991
	554	FMFi ler = fmFi ler8991
	555	FMVa lidator = fmValidato r8991
	556	FMCt rlOptions = [coValOn Exit]
	557	FMVa lueChecked = '1'
	558	FMVa lueUncheck ed = '0'
	559	end
	560	object fmcbxSche duleIIINon Narcotic: TFMCheckBo x
	561	Left = 602
	562	Top = 263
	563	Widt h = 212
	564	Heig ht = 21
	565	Marg ins.Left = 4
	566	Marg ins.Top = 4
	567	Marg ins.Right = 4
	568	Marg ins.Bottom = 4
	569	Alig nment = ta LeftJustif y
	570	Capt ion = 'Sch edule III Non Narcot ic'
	571	TabO rder = 15
	572	OnCl ick = fmcb xScheduleC lick
	573	FMFi le = '8991 .9'
	574	FMFi eld = '2.4 '
	575	FMGe ts = fmGet sPrescribe r8991
	576	FMFi ler = fmFi ler8991
	577	FMVa lidator = fmValidato r8991
	578	FMCt rlOptions = [coValOn Exit]
	579	FMVa lueChecked = '1'
	580	FMVa lueUncheck ed = '0'
	581	end
	582	object fmcbxSche duleIIINar cotic: TFM CheckBox
	583	Left = 602
	584	Top = 224
	585	Widt h = 212
	586	Heig ht = 21
	587	Marg ins.Left = 4
	588	Marg ins.Top = 4
	589	Marg ins.Right = 4
	590	Marg ins.Bottom = 4
	591	Alig nment = ta LeftJustif y
	592	Capt ion = 'Sch edule III Narcotic'
	593	TabO rder = 14
	594	OnCl ick = fmcb xScheduleC lick
	595	FMFi le = '8991 .9'
	596	FMFi eld = '2.3 '
	597	FMGe ts = fmGet sPrescribe r8991
	598	FMFi ler = fmFi ler8991
	599	FMVa lidator = fmValidato r8991
	600	FMCt rlOptions = [coValOn Exit]
	601	FMVa lueChecked = '1'
	602	FMVa lueUncheck ed = '0'
	603	end
	604	object fmcbxAuth orizedToWr iteOrders: TFMCheckB ox
	605	Left = 6
	606	Top = 91
	607	Widt h = 218
	608	Heig ht = 21
	609	Marg ins.Left = 4
	610	Marg ins.Top = 4
	611	Marg ins.Right = 4
	612	Marg ins.Bottom = 4
	613	Alig nment = ta LeftJustif y
	614	Capt ion = 'Aut horized To Write Med Orders?'
	615	TabO rder = 2
	616	FMFi le = '200'
	617	FMFi eld = '53. 1'
	618	FMGe ts = fmGet sPrescribe r
	619	FMFi ler = fmFi ler
	620	FMVa lidator = fmValidato r
	621	FMCt rlOptions = [coValOn Exit]
	622	FMVa lueChecked = '1'
	623	end
	624	object btnSelect Prescriber : TButton
	625	Left = 6
	626	Top = 12
	627	Widt h = 135
	628	Heig ht = 25
	629	Hint = 'Select a prescri ber in ord er modify data'
	630	Marg ins.Left = 4
	631	Marg ins.Top = 4
	632	Marg ins.Right = 4
	633	Marg ins.Bottom = 4
	634	Acti on = acSel ectPrescri ber
	635	TabO rder = 0
	636	end
	637	object fmedtAltN ame: TFMEd it
	638	Left = 211
	639	Top = 127
	640	Widt h = 150
	641	Heig ht = 23
	642	Hint =
	643	'T his is the user'#39' s exchange mail addr ess (for e xample - f irstnam' +
	644	'e period la stname at va dot gov ) all in l ower case'
	645	Marg ins.Left = 4
	646	Marg ins.Top = 4
	647	Marg ins.Right = 4
	648	Marg ins.Bottom = 4
	649	TabO rder = 3
	650	OnEx it = fmedt AltNameExi t
	651	FMFi le = '200'
	652	FMFi eld = '501 .2'
	653	FMGe ts = fmGet sPrescribe r
	654	FMFi ler = fmFi ler
	655	FMVa lidator = fmValidato r
	656	FMCt rlOptions = [coValOn Exit]
	657	end
	658	object fmedtAcce ssCode: TF MEdit
	659	Left = 235
	660	Top = 578
	661	Widt h = 149
	662	Heig ht = 23
	663	Marg ins.Left = 4
	664	Marg ins.Top = 4
	665	Marg ins.Right = 4
	666	Marg ins.Bottom = 4
	667	TabO rder = 21
	668	Visi ble = Fals e
	669	FMFi le = '200'
	670	FMFi eld = '2'
	671	FMGe ts = fmGet sActiveUse r
	672	FMCt rlOptions = []
	673	end
	674	object fmedtVeri fyCode: TF MEdit
	675	Left = 235
	676	Top = 612
	677	Widt h = 149
	678	Heig ht = 23
	679	Marg ins.Left = 4
	680	Marg ins.Top = 4
	681	Marg ins.Right = 4
	682	Marg ins.Bottom = 4
	683	TabO rder = 22
	684	Visi ble = Fals e
	685	FMFi le = '200'
	686	FMFi eld = '11'
	687	FMGe ts = fmGet sActiveUse r
	688	FMCt rlOptions = []
	689	end
	690	object fmedtDISU SERed: TFM Edit
	691	Left = 235
	692	Top = 646
	693	Widt h = 149
	694	Heig ht = 23
	695	Marg ins.Left = 4
	696	Marg ins.Top = 4
	697	Marg ins.Right = 4
	698	Marg ins.Bottom = 4
	699	TabO rder = 23
	700	Visi ble = Fals e
	701	FMFi le = '200'
	702	FMFi eld = '7'
	703	FMGe ts = fmGet sActiveUse r
	704	FMCt rlOptions = []
	705	end
	706	object fmedtTerm inationDat e: TFMEdit
	707	Left = 235
	708	Top = 680
	709	Widt h = 149
	710	Heig ht = 23
	711	Marg ins.Left = 4
	712	Marg ins.Top = 4
	713	Marg ins.Right = 4
	714	Marg ins.Bottom = 4
	715	TabO rder = 24
	716	Visi ble = Fals e
	717	FMFi le = '200'
	718	FMFi eld = '9.2 '
	719	FMGe ts = fmGet sActiveUse r
	720	FMCt rlOptions = []
	721	end
	722	object memUtilit y: TMemo
	723	Left = 403
	724	Top = 578
	725	Widt h = 238
	726	Heig ht = 123
	727	Marg ins.Left = 4
	728	Marg ins.Top = 4
	729	Marg ins.Right = 4
	730	Marg ins.Bottom = 4
	731	Line s.Strings = (
	732	'm moUtility' )
	733	TabO rder = 25
	734	Visi ble = Fals e
	735	Word Wrap = Fal se
	736	end
	737	object edtFacili tyDEANum: TEdit
	738	Left = 211
	739	Top = 290
	740	Widt h = 100
	741	Heig ht = 23
	742	Marg ins.Left = 4
	743	Marg ins.Top = 4
	744	Marg ins.Right = 4
	745	Marg ins.Bottom = 4
	746	TabO rder = 26
	747	end
	748	object cbxAllSch edules: TC heckBox
	749	Left = 602
	750	Top = 109
	751	Widt h = 212
	752	Heig ht = 17
	753	Acti on = acAll Schedules
	754	Alig nment = ta LeftJustif y
	755	Ctl3 D = True
	756	Doub leBuffered = False
	757	Pare ntCtl3D = False
	758	Pare ntDoubleBu ffered = F alse
	759	TabO rder = 27
	760	end
	761	object cboDeaNum ber: TComb oBox
	762	Left = 211
	763	Top = 166
	764	Widt h = 198
	765	Heig ht = 23
	766	Curs or = crHan dPoint
	767	Styl e = csDrop DownList
	768	TabO rder = 4
	769	OnCh ange = cbo DeaNumberC hange
	770	end
	771	object fmcbxUseI npatient: TFMCheckBo x
	772	Left = 6
	773	Top = 254
	774	Widt h = 218
	775	Heig ht = 21
	776	Marg ins.Left = 4
	777	Marg ins.Top = 4
	778	Marg ins.Right = 4
	779	Marg ins.Bottom = 4
	780	Alig nment = ta LeftJustif y
	781	Capt ion = 'Use for Inpat ient Order s?'
	782	TabO rder = 7
	783	OnCl ick = fmcb xUseInpati entClick
	784	FMFi le = '8991 .9'
	785	FMFi eld = '.06 '
	786	FMGe ts = fmGet sPrescribe r8991
	787	FMFi ler = fmFi ler8991
	788	FMVa lidator = fmValidato r8991
	789	FMCt rlOptions = [coValOn Exit]
	790	FMVa lueChecked = '1'
	791	FMVa lueUncheck ed = '0'
	792	end
	793	object fmedtDeaN umber: TFM Edit
	794	Left = 211
	795	Top = 192
	796	Widt h = 150
	797	Heig ht = 23
	798	Hint =
	799	'E nter the p rovider'#3 9's indivi dual DEA r egistratio n number. Leave ' +
	800	'b lank if pr ovider has only a VA #'
	801	Marg ins.Left = 4
	802	Marg ins.Top = 4
	803	Marg ins.Right = 4
	804	Marg ins.Bottom = 4
	805	TabO rder = 6
	806	OnCh ange = Upp erCaseChan ge
	807	FMFi le = '8991 .9'
	808	FMFi eld = '.01 '
	809	FMGe ts = fmGet sPrescribe r8991
	810	FMFi ler = fmFi ler8991
	811	FMVa lidator = fmValidato r8991
	812	FMCt rlOptions = []
	813	end
	814	object pnlDOJ1: TPanel
	815	Left = 415
	816	Top = 20
	817	Widt h = 162
	818	Heig ht = 413
	819	Colo r = clGrad ientInacti veCaption
	820	Pare ntBackgrou nd = False
	821	TabO rder = 28
	822	Desi gnSize = (
	823	16 2
	824	41 3)
	825	obje ct lblDOJ1 : TLabel
	826	Le ft = 7
	827	To p = 9
	828	Wi dth = 21
	829	He ight = 15
	830	Ma rgins.Left = 4
	831	Ma rgins.Top = 4
	832	Ma rgins.Righ t = 4
	833	Ma rgins.Bott om = 4
	834	Ca ption = 'D OJ'
	835	Fo nt.Charset = ANSI_CH ARSET
	836	Fo nt.Color = clWindowT ext
	837	Fo nt.Height = -13
	838	Fo nt.Name = 'Calibri'
	839	Fo nt.Style = [fsItalic , fsUnderl ine]
	840	Pa rentFont = False
	841	end
	842	obje ct lblDeto xMaintNumb erDOJ: TLa bel
	843	Le ft = 11
	844	To p = 346
	845	Wi dth = 90
	846	He ight = 15
	847	Ma rgins.Left = 4
	848	Ma rgins.Top = 4
	849	Ma rgins.Righ t = 4
	850	Ma rgins.Bott om = 4
	851	An chors = [a kLeft, akB ottom]
	852	Au toSize = F alse
	853	Ca ption = 'D etox/Maint #'
	854	Fo nt.Charset = ANSI_CH ARSET
	855	Fo nt.Color = clWindowT ext
	856	Fo nt.Height = -13
	857	Fo nt.Name = 'Calibri'
	858	Fo nt.Style = [fsItalic ]
	859	Pa rentFont = False
	860	Ex plicitTop = 274
	861	end
	862	obje ct lblDeaE xpirationD ateDOJ: TL abel
	863	Le ft = 11
	864	To p = 385
	865	Wi dth = 90
	866	He ight = 15
	867	Ma rgins.Left = 4
	868	Ma rgins.Top = 4
	869	Ma rgins.Righ t = 4
	870	Ma rgins.Bott om = 4
	871	An chors = [a kLeft, akB ottom]
	872	Au toSize = F alse
	873	Ca ption = 'E xpiration Date'
	874	Fo nt.Charset = ANSI_CH ARSET
	875	Fo nt.Color = clWindowT ext
	876	Fo nt.Height = -13
	877	Fo nt.Name = 'Calibri'
	878	Fo nt.Style = [fsItalic ]
	879	Pa rentFont = False
	880	Ex plicitTop = 313
	881	end
	882	obje ct lblProv iderNameDO J: TLabel
	883	Le ft = 11
	884	To p = 33
	885	Wi dth = 142
	886	He ight = 222
	887	Ma rgins.Left = 4
	888	Ma rgins.Top = 4
	889	Ma rgins.Righ t = 4
	890	Ma rgins.Bott om = 4
	891	Au toSize = F alse
	892	Ca ption = 'P rovider'
	893	Fo nt.Charset = ANSI_CH ARSET
	894	Fo nt.Color = clWindowT ext
	895	Fo nt.Height = -13
	896	Fo nt.Name = 'Calibri'
	897	Fo nt.Style = [fsItalic ]
	898	Pa rentFont = False
	899	Wo rdWrap = T rue
	900	end
	901	end
	902	object Panel1: T Panel
	903	Left = 820
	904	Top = 26
	905	Widt h = 67
	906	Heig ht = 348
	907	Colo r = clGrad ientInacti veCaption
	908	Pare ntBackgrou nd = False
	909	TabO rder = 29
	910	Desi gnSize = (
	911	67
	912	34 8)
	913	obje ct lblDOJ2 : TLabel
	914	Le ft = 20
	915	To p = 9
	916	Wi dth = 21
	917	He ight = 15
	918	Ma rgins.Left = 4
	919	Ma rgins.Top = 4
	920	Ma rgins.Righ t = 4
	921	Ma rgins.Bott om = 4
	922	Ca ption = 'D OJ'
	923	Fo nt.Charset = ANSI_CH ARSET
	924	Fo nt.Color = clWindowT ext
	925	Fo nt.Height = -13
	926	Fo nt.Name = 'Calibri'
	927	Fo nt.Style = [fsItalic , fsUnderl ine]
	928	Pa rentFont = False
	929	end
	930	obje ct chkSche duleIINarc oticDOJ: T CheckBox
	931	Le ft = 20
	932	To p = 122
	933	Wi dth = 30
	934	He ight = 17
	935	Ta bStop = Fa lse
	936	An chors = [a kLeft, akB ottom]
	937	En abled = Fa lse
	938	Ta bOrder = 0
	939	end
	940	obje ct chkSche duleIINonN arcoticDOJ : TCheckBo x
	941	Le ft = 20
	942	To p = 161
	943	Wi dth = 30
	944	He ight = 17
	945	Ta bStop = Fa lse
	946	An chors = [a kLeft, akB ottom]
	947	En abled = Fa lse
	948	Ta bOrder = 1
	949	end
	950	obje ct chkSche duleIIINar coticDOJ: TCheckBox
	951	Le ft = 20
	952	To p = 200
	953	Wi dth = 30
	954	He ight = 17
	955	Ta bStop = Fa lse
	956	An chors = [a kLeft, akB ottom]
	957	En abled = Fa lse
	958	Ta bOrder = 2
	959	end
	960	obje ct chkSche duleIIINon NarcoticDO J: TCheckB ox
	961	Le ft = 20
	962	To p = 239
	963	Wi dth = 30
	964	He ight = 17
	965	Ta bStop = Fa lse
	966	An chors = [a kLeft, akB ottom]
	967	En abled = Fa lse
	968	Ta bOrder = 3
	969	end
	970	obje ct chkSche duleIVDOJ: TCheckBox
	971	Le ft = 20
	972	To p = 278
	973	Wi dth = 30
	974	He ight = 17
	975	Ta bStop = Fa lse
	976	An chors = [a kLeft, akB ottom]
	977	En abled = Fa lse
	978	Ta bOrder = 4
	979	end
	980	obje ct chkSche duleVDOJ: TCheckBox
	981	Le ft = 20
	982	To p = 315
	983	Wi dth = 30
	984	He ight = 17
	985	Ta bStop = Fa lse
	986	An chors = [a kLeft, akB ottom]
	987	En abled = Fa lse
	988	Ta bOrder = 5
	989	end
	990	end
	991	object btnCopy: TButton
	992	Left = 370
	993	Top = 192
	994	Widt h = 39
	995	Heig ht = 25
	996	Curs or = crHan dPoint
	997	Hint = 'Copy f rom DOJ we b server t o the loca l data'
	998	Capt ion = 'Cop y'
	999	TabO rder = 30
	1000	OnCl ick = btnC opyClick
	1001	end
	1002	object btnAdd: T Button
	1003	Left = 703
	1004	Top = 423
	1005	Widt h = 90
	1006	Heig ht = 25
	1007	Curs or = crHan dPoint
	1008	Hint = 'Add a new DEA #'
	1009	Marg ins.Left = 4
	1010	Marg ins.Top = 4
	1011	Marg ins.Right = 4
	1012	Marg ins.Bottom = 4
	1013	Anch ors = [akR ight, akBo ttom]
	1014	Capt ion = 'Add '
	1015	Imag eIndex = 5
	1016	TabO rder = 19
	1017	OnCl ick = btnA ddClick
	1018	end
	1019	object edtDEASuf fix: TEdit
	1020	Left = 211
	1021	Top = 224
	1022	Widt h = 121
	1023	Heig ht = 23
	1024	TabO rder = 5
	1025	OnCh ange = Upp erCaseChan ge
	1026	end
	1027	object btnEdit: TButton
	1028	Left = 318
	1029	Top = 328
	1030	Widt h = 66
	1031	Heig ht = 25
	1032	Curs or = crHan dPoint
	1033	Hint = 'Edit t he File 20 0 data for Prescribe r VA #'
	1034	Capt ion = 'Edi t VA #'
	1035	TabO rder = 9
	1036	OnCl ick = btnE ditClick
	1037	end
	1038	end
	1039	object f mFinderPre scriber: T FMFinder
	1040	RPCBro ker = RPCB roker
	1041	FieldN umbers.Str ings = (
	1042	'.01 ')
	1043	Displa yFields.St rings = (
	1044	'.01 ')
	1045	Finder Flags = []
	1046	Number = '200'
	1047	FileNu mber = '20 0'
	1048	Finder Options = []
	1049	Left = 184
	1050	Top = 586
	1051	end
	1052	object f mListerNew PersonDivi sion: TFML ister
	1053	RPCBro ker = RPCB roker
	1054	FieldN umbers.Str ings = (
	1055	'.01 '
	1056	'1')
	1057	Displa yFields.St rings = (
	1058	'.01 '
	1059	'1')
	1060	Lister Flags = [l fInternal]
	1061	Delimi ter = #0
	1062	Number = '200'
	1063	FileNu mber = '20 0.02'
	1064	Lister Options = []
	1065	Left = 241
	1066	Top = 586
	1067	end
	1068	object R PCBroker: TRPCBroker
	1069	ClearP arameters = True
	1070	ClearR esults = T rue
	1071	Connec ted = Fals e
	1072	Listen erPort = 9 200
	1073	RpcVer sion = '0'
	1074	Server = 'localh ost,19000'
	1075	Kernel LogIn = Tr ue
	1076	ShowEr rorMsgs = semQuiet
	1077	LogIn. Mode = lmA VCodes
	1078	LogIn. PromptDivi sion = Fal se
	1079	UseSec ureConnect ion = secu reNone
	1080	SSHHid e = False
	1081	Left = 299
	1082	Top = 586
	1083	end
	1084	object m mMain: TMa inMenu
	1085	Left = 642
	1086	Top = 586
	1087	object mmMainFil e: TMenuIt em
	1088	Capt ion = '&Fi le'
	1089	obje ct mmMainF ileExit: T MenuItem
	1090	Ac tion = acE xit
	1091	end
	1092	end
	1093	object mmMainHel p: TMenuIt em
	1094	Capt ion = '&He lp'
	1095	obje ct mmMainH elpAbout: TMenuItem
	1096	Ac tion = acA bout
	1097	end
	1098	end
	1099	end
	1100	object f mGetsPresc riber: TFM Gets
	1101	RPCBro ker = RPCB roker
	1102	FieldN umbers.Str ings = (
	1103	'501 .2')
	1104	FileNu mber = '20 0'
	1105	GetsFl ags = [gfE xternal, g fInternal]
	1106	GetsOp tions = []
	1107	Left = 356
	1108	Top = 586
	1109	end
	1110	object f mGetsPresc riber8991: TFMGets
	1111	RPCBro ker = RPCB roker
	1112	FieldN umbers.Str ings = (
	1113	'.01 ')
	1114	FileNu mber = '89 91.9'
	1115	GetsFl ags = [gfE xternal, g fInternal]
	1116	GetsOp tions = []
	1117	Left = 608
	1118	Top = 65534
	1119	end
	1120	object f mFiler: TF MFiler
	1121	RPCBro ker = RPCB roker
	1122	FilerF lags = []
	1123	FilerO ptions = [ ]
	1124	Left = 470
	1125	Top = 586
	1126	end
	1127	object f mFiler8991 : TFMFiler
	1128	RPCBro ker = RPCB roker
	1129	FilerF lags = []
	1130	FilerO ptions = [ ]
	1131	Left = 712
	1132	Top = 6
	1133	end
	1134	object a cList: TAc tionList
	1135	Left = 528
	1136	Top = 586
	1137	object acConnect Disconnect : TAction
	1138	Capt ion = '&Co nnect'
	1139	OnEx ecute = ac ConnectDis connectExe cute
	1140	end
	1141	object acAbout: TAction
	1142	Capt ion = '&Ab out'
	1143	OnEx ecute = ac AboutExecu te
	1144	end
	1145	object acGetServ erInfo: TA ction
	1146	Capt ion = '&Ge t Server I nfo ...'
	1147	OnEx ecute = ac GetServerI nfoExecute
	1148	end
	1149	object acExit: T Action
	1150	Capt ion = '&Ex it'
	1151	OnEx ecute = ac ExitExecut e
	1152	end
	1153	object acSelectP rescriber: TAction
	1154	Capt ion = '&Se lect Presc riber ...'
	1155	OnEx ecute = ac SelectPres criberExec ute
	1156	end
	1157	object acClearMa inPanel: T Action
	1158	Capt ion = 'acC learMainPa nel'
	1159	OnEx ecute = ac ClearMainP anelExecut e
	1160	end
	1161	object acUpdate: TAction
	1162	Capt ion = '&Up date'
	1163	OnEx ecute = ac UpdateExec ute
	1164	end
	1165	object acAllSche dules: TAc tion
	1166	Capt ion = 'All schedules '
	1167	OnEx ecute = ac AllSchedul esExecute
	1168	end
	1169	object EditDelet e1: TEditD elete
	1170	Cate gory = 'Ed it'
	1171	Capt ion = '&De lete'
	1172	Hint = 'Delete \|Erases th e selectio n'
	1173	Imag eIndex = 5
	1174	Shor tCut = 46
	1175	end
	1176	end
	1177	object f mGetsActiv eUser: TFM Gets
	1178	RPCBro ker = RPCB roker
	1179	FieldN umbers.Str ings = (
	1180	'2'
	1181	'11'
	1182	'7'
	1183	'9.2 '
	1184	'')
	1185	FileNu mber = '20 0'
	1186	GetsFl ags = [gfI nternal]
	1187	GetsOp tions = []
	1188	Left = 413
	1189	Top = 586
	1190	end
	1191	object f mValidator : TFMValid ator
	1192	RPCBro ker = RPCB roker
	1193	FileNu mber = '20 0'
	1194	FieldN umber = '5 01.2'
	1195	Left = 70
	1196	Top = 586
	1197	end
	1198	object f mValidator 8991: TFMV alidator
	1199	RPCBro ker = RPCB roker
	1200	FileNu mber = '89 91.9'
	1201	FieldN umber = '. 01'
	1202	Left = 656
	1203	Top = 65534
	1204	end
	1205	object f mListerNew Person: TF MLister
	1206	RPCBro ker = RPCB roker
	1207	FieldN umbers.Str ings = (
	1208	'.01 '
	1209	'8'
	1210	'13'
	1211	'28'
	1212	'29'
	1213	'1'
	1214	'53. 9')
	1215	Displa yFields.St rings = (
	1216	'.01 '
	1217	'8'
	1218	'13' )
	1219	Lister Flags = []
	1220	Delimi ter = #0
	1221	Number = '200'
	1222	FileNu mber = '20 0'
	1223	Lister Options = []
	1224	Left = 585
	1225	Top = 586
	1226	end
	1227	end