Context Navigation

fODMedIV.dfm@ 1797

Last change on this file since 1797 was 1679, checked in by healthsevak, 10 years ago
Updating the working copy to CPRS version 28
File size: 15.0 KB

Rev	Line
[456]	1	inherited frmODMedIV: TfrmODMedIV
[829]	2	Left = 246
	3	Top = 256
	4	Width = 668
	5	Height = 465
[456]	6	Caption = 'Infusion Order'
[1679]	7	Constraints.MinHeight = 360
[829]	8	Constraints.MinWidth = 500
	9	ExplicitWidth = 668
	10	ExplicitHeight = 465
[456]	11	PixelsPerInch = 96
	12	TextHeight = 13
	13	object lblInfusionRate: TLabel [0]
[829]	14	Left = 486
	15	Top = 197
	16	Width = 100
[456]	17	Height = 13
[829]	18	Caption = 'Infusion Rate (ml/hr)*'
[456]	19	end
	20	object lblPriority: TLabel [1]
[829]	21	Left = 8
	22	Top = 238
	23	Width = 35
[456]	24	Height = 13
[829]	25	Caption = 'Priority*'
[456]	26	end
	27	object lblComponent: TLabel [2]
	28	Left = 214
[1679]	29	Top = 6
[829]	30	Width = 85
[456]	31	Height = 13
[829]	32	Caption = 'Solution/Additive*'
[456]	33	end
	34	object lblAmount: TLabel [3]
	35	Left = 328
[1679]	36	Top = 6
[829]	37	Width = 84
[456]	38	Height = 13
[829]	39	Caption = 'Volume/Strength*'
[456]	40	WordWrap = True
	41	end
	42	object lblComments: TLabel [4]
	43	Left = 214
[829]	44	Top = 107
[456]	45	Width = 49
	46	Height = 13
	47	Caption = 'Comments'
	48	end
	49	object lblLimit: TLabel [5]
[829]	50	Left = 185
	51	Top = 238
	52	Width = 165
[456]	53	Height = 13
[829]	54	Caption = 'Duration or Total Volume (Optional)'
[456]	55	end
[829]	56	object Label1: TLabel [6]
[1679]	57	Left = 10
	58	Top = 345
	59	Width = 44
[829]	60	Height = 13
[1679]	61	Caption = 'Order Sig'
[829]	62	end
	63	object lblRoute: TLabel [7]
	64	Left = 8
	65	Top = 197
	66	Width = 33
	67	Height = 13
	68	Caption = 'Route*'
	69	end
	70	object lblSchedule: TLabel [8]
	71	Left = 304
	72	Top = 197
	73	Width = 52
	74	Height = 13
	75	Caption = 'Schedule *'
	76	end
	77	object lblType: TLabel [9]
	78	Left = 184
	79	Top = 197
	80	Width = 28
	81	Height = 13
	82	Caption = 'Type*'
	83	ParentShowHint = False
	84	ShowHint = True
	85	end
	86	object txtNSS: TLabel [10]
	87	Left = 361
	88	Top = 197
	89	Width = 69
	90	Height = 13
	91	Caption = '(Day-of-Week)'
	92	Color = clBtnFace
	93	Font.Charset = DEFAULT_CHARSET
	94	Font.Color = clBlue
	95	Font.Height = -11
	96	Font.Name = 'MS Sans Serif'
	97	Font.Style = []
	98	ParentColor = False
	99	ParentFont = False
	100	OnClick = txtNSSClick
	101	end
	102	object txtAllIVRoutes: TLabel [11]
	103	Left = 47
	104	Top = 197
	105	Width = 129
	106	Height = 13
	107	Caption = '(Expanded Med Route List)'
	108	Font.Charset = DEFAULT_CHARSET
	109	Font.Color = clBlue
	110	Font.Height = -11
	111	Font.Name = 'MS Sans Serif'
	112	Font.Style = []
	113	ParentFont = False
	114	Visible = False
	115	OnClick = txtAllIVRoutesClick
	116	end
	117	object lblTypeHelp: TLabel [12]
	118	Left = 219
	119	Top = 197
	120	Width = 68
	121	Height = 13
	122	Caption = '(IV Type Help)'
	123	Font.Charset = DEFAULT_CHARSET
	124	Font.Color = clBlue
	125	Font.Height = -11
	126	Font.Name = 'MS Sans Serif'
	127	Font.Style = []
	128	ParentFont = False
	129	ParentShowHint = False
	130	ShowHint = False
	131	OnClick = lblTypeHelpClick
	132	end
[1679]	133	object lblAddFreq: TLabel [13]
	134	Left = 488
	135	Top = 6
	136	Width = 95
	137	Height = 13
	138	Caption = 'Additive Frequency*'
	139	end
	140	object lblPrevAddFreq: TLabel [14]
	141	Left = 557
	142	Top = 6
	143	Width = 77
	144	Height = 13
	145	Caption = 'Prev. Add. Freq.'
	146	end
	147	object txtRate: TCaptionEdit [15]
[829]	148	Left = 486
	149	Top = 211
[456]	150	Width = 91
	151	Height = 21
	152	AutoSelect = False
[1679]	153	TabOrder = 10
[829]	154	OnChange = txtRateChange
[456]	155	Caption = 'Infusion Rate'
	156	end
[1679]	157	object cboPriority: TORComboBox [16]
[829]	158	Left = 8
	159	Top = 252
[456]	160	Width = 72
	161	Height = 21
	162	Style = orcsDropDown
	163	AutoSelect = True
	164	Caption = 'Priority'
	165	Color = clWindow
	166	DropDownCount = 8
	167	ItemHeight = 13
	168	ItemTipColor = clWindow
	169	ItemTipEnable = True
	170	ListItemsOnly = False
	171	LongList = False
	172	LookupPiece = 0
	173	MaxLength = 0
	174	Pieces = '2'
	175	Sorted = False
	176	SynonymChars = '<>'
[1679]	177	TabOrder = 12
[829]	178	OnChange = cboPriorityChange
	179	OnExit = cboPriorityExit
[1679]	180	OnKeyUp = cboPriorityKeyUp
[456]	181	CharsNeedMatch = 1
	182	end
[1679]	183	object grdSelected: TCaptionStringGrid [17]
	184	Left = 215
	185	Top = 18
[829]	186	Width = 437
[456]	187	Height = 76
	188	DefaultColWidth = 100
	189	DefaultRowHeight = 19
[1679]	190	DefaultDrawing = False
[456]	191	FixedCols = 0
	192	RowCount = 1
	193	FixedRows = 0
	194	Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected]
	195	ScrollBars = ssVertical
[1679]	196	TabOrder = 2
[456]	197	OnDrawCell = grdSelectedDrawCell
	198	OnKeyPress = grdSelectedKeyPress
	199	OnMouseDown = grdSelectedMouseDown
	200	end
[1679]	201	object cmdRemove: TButton [18]
[456]	202	Left = 443
[829]	203	Top = 100
[456]	204	Width = 72
	205	Height = 18
	206	Caption = 'Remove'
[1679]	207	TabOrder = 3
[456]	208	OnClick = cmdRemoveClick
	209	end
[1679]	210	object memComments: TCaptionMemo [19]
[456]	211	Left = 214
[829]	212	Top = 121
	213	Width = 437
[456]	214	Height = 66
	215	Lines.Strings = (
	216	'memComments')
	217	ScrollBars = ssVertical
[1679]	218	TabOrder = 4
[456]	219	OnChange = ControlChange
	220	Caption = 'Comments'
	221	end
[1679]	222	object txtSelected: TCaptionEdit [20]
[456]	223	Tag = -1
	224	Left = 416
[829]	225	Top = 45
[456]	226	Width = 45
	227	Height = 19
	228	Ctl3D = False
	229	ParentCtl3D = False
	230	TabOrder = 0
	231	Text = 'meq.'
	232	Visible = False
	233	OnChange = txtSelectedChange
	234	OnExit = txtSelectedExit
[1679]	235	OnKeyDown = txtSelectedKeyDown
[456]	236	Caption = 'Volume'
	237	end
[1679]	238	object cboSelected: TCaptionComboBox [21]
[456]	239	Tag = -1
[1679]	240	Left = 462
[829]	241	Top = 45
[456]	242	Width = 53
	243	Height = 21
	244	Style = csDropDownList
	245	Ctl3D = False
	246	ItemHeight = 13
	247	ParentCtl3D = False
[1679]	248	TabOrder = 6
[456]	249	Visible = False
[1679]	250	OnCloseUp = cboSelectedCloseUp
	251	OnKeyDown = cboSelectedKeyDown
[456]	252	Caption = 'Volume/Strength'
	253	end
	254	inherited memOrder: TCaptionMemo
[1679]	255	Top = 364
[456]	256	Width = 475
[1679]	257	TabOrder = 17
	258	ExplicitTop = 364
[829]	259	ExplicitWidth = 475
[456]	260	end
[1679]	261	object pnlXDuration: TPanel [23]
[829]	262	Left = 184
	263	Top = 252
	264	Width = 150
[456]	265	Height = 21
	266	BevelOuter = bvNone
[1679]	267	TabOrder = 13
[456]	268	OnEnter = pnlXDurationEnter
	269	object txtXDuration: TCaptionEdit
	270	Left = 0
	271	Top = 0
	272	Width = 68
	273	Height = 21
	274	TabOrder = 0
	275	OnChange = txtXDurationChange
	276	OnExit = txtXDurationExit
	277	end
[829]	278	object cboDuration: TComboBox
	279	Left = 70
	280	Top = 0
	281	Width = 75
	282	Height = 21
	283	ItemHeight = 13
[1679]	284	TabOrder = 1
[829]	285	OnChange = cboDurationChange
	286	OnEnter = cboDurationEnter
	287	end
[456]	288	end
[1679]	289	object pnlCombo: TPanel [24]
[456]	290	Left = 8
[829]	291	Top = 2
[456]	292	Width = 200
	293	Height = 185
	294	BevelOuter = bvNone
[1679]	295	TabOrder = 26
[456]	296	object cboAdditive: TORComboBox
	297	Left = 0
	298	Top = 20
	299	Width = 200
	300	Height = 165
	301	Style = orcsSimple
	302	Align = alClient
	303	AutoSelect = True
	304	Caption = 'Additives'
	305	Color = clWindow
	306	DropDownCount = 11
	307	ItemHeight = 13
	308	ItemTipColor = clWindow
	309	ItemTipEnable = True
	310	ListItemsOnly = True
	311	LongList = True
	312	LookupPiece = 0
	313	MaxLength = 0
	314	Pieces = '2'
	315	Sorted = False
	316	SynonymChars = '<>'
	317	TabPositions = '20'
[1679]	318	TabOrder = 1
[456]	319	OnExit = cboAdditiveExit
	320	OnMouseClick = cboAdditiveMouseClick
	321	OnNeedData = cboAdditiveNeedData
	322	CharsNeedMatch = 1
	323	end
	324	object tabFluid: TTabControl
	325	Left = 0
	326	Top = 0
	327	Width = 200
	328	Height = 20
	329	Align = alTop
	330	TabHeight = 15
[829]	331	TabOrder = 2
[456]	332	Tabs.Strings = (
	333	' Solutions '
	334	' Additives ')
	335	TabIndex = 0
	336	OnChange = tabFluidChange
	337	end
	338	object cboSolution: TORComboBox
	339	Left = 0
	340	Top = 20
	341	Width = 200
	342	Height = 165
	343	Style = orcsSimple
	344	Align = alClient
	345	AutoSelect = True
	346	Caption = 'Solutions'
	347	Color = clWindow
	348	DropDownCount = 11
	349	ItemHeight = 13
	350	ItemTipColor = clWindow
	351	ItemTipEnable = True
	352	ListItemsOnly = True
	353	LongList = True
	354	LookupPiece = 0
	355	MaxLength = 0
	356	Pieces = '2'
	357	Sorted = False
	358	SynonymChars = '<>'
	359	TabPositions = '20'
[1679]	360	TabOrder = 0
[456]	361	OnExit = cboSolutionExit
	362	OnMouseClick = cboSolutionMouseClick
	363	OnNeedData = cboSolutionNeedData
	364	CharsNeedMatch = 1
	365	end
	366	end
[1679]	367	object cboRoute: TORComboBox [25]
[829]	368	Left = 8
	369	Top = 211
	370	Width = 168
	371	Height = 21
	372	Style = orcsDropDown
	373	AutoSelect = True
	374	Color = clWindow
	375	DropDownCount = 8
	376	ItemHeight = 13
	377	ItemTipColor = clWindow
	378	ItemTipEnable = True
	379	ListItemsOnly = False
	380	LongList = False
	381	LookupPiece = 0
	382	MaxLength = 0
	383	Pieces = '2'
	384	Sorted = False
	385	SynonymChars = '<>'
[1679]	386	TabOrder = 5
[829]	387	OnChange = cboRouteChange
	388	OnClick = cboRouteClick
	389	OnExit = cboRouteExit
[1679]	390	OnKeyDown = cboRouteKeyDown
	391	OnKeyUp = cboRouteKeyUp
[829]	392	CharsNeedMatch = 1
	393	UniqueAutoComplete = True
[456]	394	end
[1679]	395	object cboSchedule: TORComboBox [26]
[829]	396	Left = 304
	397	Top = 211
	398	Width = 129
	399	Height = 21
	400	Style = orcsDropDown
	401	AutoSelect = True
	402	Color = clWindow
	403	DropDownCount = 8
	404	ItemHeight = 13
	405	ItemTipColor = clWindow
	406	ItemTipEnable = True
	407	ListItemsOnly = False
	408	LongList = False
	409	LookupPiece = 1
	410	MaxLength = 0
	411	Pieces = '1'
	412	Sorted = True
	413	SynonymChars = '<>'
[1679]	414	TabOrder = 8
[829]	415	OnChange = cboScheduleChange
	416	OnClick = cboScheduleClick
	417	OnExit = cboScheduleExit
[1679]	418	OnKeyDown = cboScheduleKeyDown
	419	OnKeyUp = cboScheduleKeyUp
[829]	420	CharsNeedMatch = 1
	421	UniqueAutoComplete = True
	422	end
[1679]	423	object cboType: TComboBox [27]
[829]	424	Left = 184
	425	Top = 211
	426	Width = 114
	427	Height = 21
	428	ItemHeight = 13
	429	ParentShowHint = False
	430	ShowHint = True
[1679]	431	TabOrder = 7
[829]	432	OnChange = cboTypeChange
[1679]	433	OnKeyDown = cboTypeKeyDown
[829]	434	end
[1679]	435	object chkPRN: TCheckBox [28]
[829]	436	Left = 436
	437	Top = 213
	438	Width = 45
	439	Height = 21
	440	Caption = 'PRN'
[1679]	441	TabOrder = 9
[829]	442	OnClick = chkPRNClick
	443	end
[1679]	444	object chkDoseNow: TCheckBox [29]
[829]	445	Left = 8
	446	Top = 279
	447	Width = 147
	448	Height = 17
	449	Anchors = [akLeft]
	450	Caption = 'Give Additional Dose Now'
	451	Constraints.MinWidth = 147
[1679]	452	TabOrder = 14
[829]	453	OnClick = chkDoseNowClick
	454	end
[1679]	455	object cboInfusionTime: TComboBox [30]
[829]	456	Left = 576
	457	Top = 211
	458	Width = 74
	459	Height = 21
	460	ItemHeight = 13
[1679]	461	TabOrder = 11
[829]	462	OnChange = cboInfusionTimeChange
	463	OnEnter = cboInfusionTimeEnter
	464	end
[1679]	465	object lblAdminTime: TVA508StaticText [31]
[829]	466	Name = 'lblAdminTime'
	467	Left = 8
	468	Top = 308
	469	Width = 4
	470	Height = 4
	471	Alignment = taLeftJustify
	472	ParentShowHint = False
	473	ShowHint = True
[1679]	474	TabOrder = 15
[829]	475	TabStop = True
	476	Visible = False
	477	ShowAccelChar = True
	478	end
[1679]	479	object lblFirstDose: TVA508StaticText [32]
[829]	480	Name = 'lblFirstDose'
	481	Left = 8
	482	Top = 323
	483	Width = 4
	484	Height = 4
	485	Alignment = taLeftJustify
[1679]	486	TabOrder = 16
[829]	487	TabStop = True
	488	Visible = False
	489	ShowAccelChar = True
	490	end
[1679]	491	object cboAddFreq: TCaptionComboBox [33]
	492	Left = 488
	493	Top = 72
	494	Width = 145
	495	Height = 21
	496	ItemHeight = 13
	497	TabOrder = 25
	498	Visible = False
	499	OnCloseUp = cboAddFreqCloseUp
	500	OnKeyDown = cboAddFreqKeyDown
	501	end
[829]	502	inherited cmdAccept: TButton
	503	Left = 495
[1679]	504	Top = 364
	505	TabOrder = 18
[829]	506	ExplicitLeft = 495
[1679]	507	ExplicitTop = 364
[829]	508	end
	509	inherited cmdQuit: TButton
	510	Left = 495
[1679]	511	Top = 391
	512	TabOrder = 19
[829]	513	ExplicitLeft = 495
[1679]	514	ExplicitTop = 391
[829]	515	end
	516	inherited pnlMessage: TPanel
	517	Left = 56
[1679]	518	Top = 341
	519	TabOrder = 20
[829]	520	ExplicitLeft = 56
[1679]	521	ExplicitTop = 341
[829]	522	end
[1679]	523	object lbl508Required: TVA508StaticText [37]
	524	Name = 'lbl508Required'
	525	Left = 6
	526	Top = 318
	527	Width = 135
	528	Height = 15
	529	Alignment = taLeftJustify
	530	Caption = ' * Indicates a Required Field'
	531	TabOrder = 1
	532	ShowAccelChar = True
	533	end
[829]	534	inherited amgrMain: TVA508AccessibilityManager
	535	Data = (
	536	(
	537	'Component = txtRate'
[1679]	538	'Label = lblInfusionRate'
	539	'Status = stsOK')
[829]	540	(
	541	'Component = cboPriority'
[1679]	542	'Label = lblPriority'
	543	'Status = stsOK')
[829]	544	(
	545	'Component = grdSelected'
	546	'Status = stsDefault')
	547	(
	548	'Component = cmdRemove'
	549	'Status = stsDefault')
	550	(
	551	'Component = memComments'
	552	'Status = stsDefault')
	553	(
	554	'Component = txtSelected'
	555	'Status = stsDefault')
	556	(
	557	'Component = cboSelected'
	558	'Status = stsDefault')
	559	(
	560	'Component = pnlXDuration'
	561	'Status = stsDefault')
	562	(
	563	'Component = txtXDuration'
[1679]	564	'Label = lblLimit'
	565	'Status = stsOK')
[829]	566	(
	567	'Component = pnlCombo'
	568	'Status = stsDefault')
	569	(
	570	'Component = cboAdditive'
	571	'Status = stsDefault')
	572	(
	573	'Component = tabFluid'
	574	'Status = stsDefault')
	575	(
	576	'Component = cboSolution'
	577	'Status = stsDefault')
	578	(
	579	'Component = cboRoute'
[1679]	580	'Label = lblRoute'
	581	'Status = stsOK')
[829]	582	(
	583	'Component = cboSchedule'
[1679]	584	'Label = lblSchedule'
	585	'Status = stsOK')
[829]	586	(
	587	'Component = cboType'
[1679]	588	'Label = lblType'
	589	'Status = stsOK')
[829]	590	(
	591	'Component = chkPRN'
	592	'Status = stsDefault')
	593	(
	594	'Component = chkDoseNow'
	595	'Status = stsDefault')
	596	(
	597	'Component = memOrder'
[1679]	598	'Label = Label1'
	599	'Status = stsOK')
[829]	600	(
	601	'Component = cmdAccept'
	602	'Status = stsDefault')
	603	(
	604	'Component = cmdQuit'
	605	'Status = stsDefault')
	606	(
	607	'Component = pnlMessage'
	608	'Status = stsDefault')
	609	(
	610	'Component = memMessage'
	611	'Status = stsDefault')
	612	(
	613	'Component = frmODMedIV'
	614	'Status = stsDefault')
	615	(
	616	'Component = cboInfusionTime'
[1679]	617	'Text = Infusion Rate Time'
	618	'Status = stsOK')
[829]	619	(
	620	'Component = cboDuration'
[1679]	621	'Text = Duration/Volume Units'
	622	'Status = stsOK')
[829]	623	(
	624	'Component = lblAdminTime'
	625	'Status = stsDefault')
	626	(
	627	'Component = lblFirstDose'
[1679]	628	'Status = stsDefault')
	629	(
	630	'Component = cboAddFreq'
	631	'Status = stsDefault')
	632	(
	633	'Component = lbl508Required'
[829]	634	'Status = stsDefault'))
	635	end
[1679]	636	object VA508CompOrderSig: TVA508ComponentAccessibility
	637	Component = memOrder
	638	OnStateQuery = VA508CompOrderSigStateQuery
	639	Left = 24
	640	Top = 368
	641	end
	642	object VA508CompRoute: TVA508ComponentAccessibility
	643	Component = cboRoute
	644	OnInstructionsQuery = VA508CompRouteInstructionsQuery
	645	Left = 104
	646	Top = 240
	647	end
	648	object VA508CompType: TVA508ComponentAccessibility
	649	Component = cboType
	650	OnInstructionsQuery = VA508CompTypeInstructionsQuery
	651	Left = 224
	652	Top = 280
	653	end
	654	object VA508CompSchedule: TVA508ComponentAccessibility
	655	Component = cboSchedule
	656	OnInstructionsQuery = VA508CompScheduleInstructionsQuery
	657	Left = 384
	658	Top = 240
	659	end
	660	object VA508CompGrdSelected: TVA508ComponentAccessibility
	661	Component = grdSelected
	662	OnCaptionQuery = VA508CompGrdSelectedCaptionQuery
	663	Left = 288
	664	Top = 64
	665	end
[456]	666	end

Note: See TracBrowser for help on using the repository browser.

Download in other formats:

Original Format