iSharkFly-Open
/
VistA-cprs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Upgrading to version 27

This commit is contained in:
kdtop3 2010-07-07 20:51:54 +00:00
parent ad6be8316c
commit 97da8f3c53
283 changed files with 101491 additions and 90132 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

286
CPRS-Chart/Accessibility_TLB.pas
View File

@ -1,286 +0,0 @@
unit Accessibility_TLB;
// ************************************************************************ //
// WARNING
// -------
// The types declared in this file were generated from data read from a
// Type Library. If this type library is explicitly or indirectly (via
// another type library referring to this type library) re-imported, or the
// 'Refresh' command of the Type Library Editor activated while editing the
// Type Library, the contents of this file will be regenerated and all
// manual modifications will be lost.
// ************************************************************************ //
// PASTLWTR : 1.2
// File generated on 2/4/2008 6:51:03 PM from Type Library described below.
// ************************************************************************ //
// Type Lib: C:\WINDOWS\system32\oleacc.dll (1)
// LIBID: {1EA4DBF0-3C3B-11CF-810C-00AA00389B71}
// LCID: 0
// Helpfile:
// HelpString:
// DepndLst:
// (1) v2.0 stdole, (C:\WINDOWS\system32\stdole2.tlb)
// Parent TypeLibrary:
// (0) v1.0 CPRSChart, (C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Chart\CPRSChart.tlb)
// Errors:
// Hint: Parameter 'var' of IAccPropServices.SetPropValue changed to 'var_'
// Hint: Parameter 'var' of IAccPropServices.SetHwndProp changed to 'var_'
// Hint: Parameter 'var' of IAccPropServices.SetHmenuProp changed to 'var_'
// ************************************************************************ //
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}
{$VARPROPSETTER ON}
interface
uses Windows, ActiveX, Classes, Graphics, StdVCL, Variants;
// *********************************************************************//
// GUIDS declared in the TypeLibrary. Following prefixes are used:
// Type Libraries : LIBID_xxxx
// CoClasses : CLASS_xxxx
// DISPInterfaces : DIID_xxxx
// Non-DISP interfaces: IID_xxxx
// *********************************************************************//
const
// TypeLibrary Major and minor versions
AccessibilityMajorVersion = 1;
AccessibilityMinorVersion = 1;
LIBID_Accessibility: TGUID = '{1EA4DBF0-3C3B-11CF-810C-00AA00389B71}';
IID_IAccessible: TGUID = '{618736E0-3C3D-11CF-810C-00AA00389B71}';
IID_IAccessibleHandler: TGUID = '{03022430-ABC4-11D0-BDE2-00AA001A1953}';
IID_IAccIdentity: TGUID = '{7852B78D-1CFD-41C1-A615-9C0C85960B5F}';
IID_IAccPropServer: TGUID = '{76C0DBBB-15E0-4E7B-B61B-20EEEA2001E0}';
IID_IAccPropServices: TGUID = '{6E26E776-04F0-495D-80E4-3330352E3169}';
CLASS_CAccPropServices: TGUID = '{B5F8350B-0548-48B1-A6EE-88BD00B4A5E7}';
// *********************************************************************//
// Declaration of Enumerations defined in Type Library
// *********************************************************************//
// Constants for enum AnnoScope
type
AnnoScope = TOleEnum;
const
ANNO_THIS = $00000000;
ANNO_CONTAINER = $00000001;
type
// *********************************************************************//
// Forward declaration of types defined in TypeLibrary
// *********************************************************************//
IAccessible = interface;
IAccessibleDisp = dispinterface;
IAccessibleHandler = interface;
IAccIdentity = interface;
IAccPropServer = interface;
IAccPropServices = interface;
// *********************************************************************//
// Declaration of CoClasses defined in Type Library
// (NOTE: Here we map each CoClass to its Default Interface)
// *********************************************************************//
CAccPropServices = IAccPropServices;
// *********************************************************************//
// Declaration of structures, unions and aliases.
// *********************************************************************//
wireHWND = ^_RemotableHandle;
wireHMENU = ^_RemotableHandle;
PByte1 = ^Byte; {*}
PUserType1 = ^TGUID; {*}
__MIDL_IWinTypes_0009 = record
case Integer of
0: (hInproc: Integer);
1: (hRemote: Integer);
end;
_RemotableHandle = packed record
fContext: Integer;
u: __MIDL_IWinTypes_0009;
end;
// *********************************************************************//
// Interface: IAccessible
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {618736E0-3C3D-11CF-810C-00AA00389B71}
// *********************************************************************//
IAccessible = interface(IDispatch)
['{618736E0-3C3D-11CF-810C-00AA00389B71}']
function Get_accParent: IDispatch; safecall;
function Get_accChildCount: Integer; safecall;
function Get_accChild(varChild: OleVariant): IDispatch; safecall;
function Get_accName(varChild: OleVariant): WideString; safecall;
function Get_accValue(varChild: OleVariant): WideString; safecall;
function Get_accDescription(varChild: OleVariant): WideString; safecall;
function Get_accRole(varChild: OleVariant): OleVariant; safecall;
function Get_accState(varChild: OleVariant): OleVariant; safecall;
function Get_accHelp(varChild: OleVariant): WideString; safecall;
function Get_accHelpTopic(out pszHelpFile: WideString; varChild: OleVariant): Integer; safecall;
function Get_accKeyboardShortcut(varChild: OleVariant): WideString; safecall;
function Get_accFocus: OleVariant; safecall;
function Get_accSelection: OleVariant; safecall;
function Get_accDefaultAction(varChild: OleVariant): WideString; safecall;
procedure accSelect(flagsSelect: Integer; varChild: OleVariant); safecall;
procedure accLocation(out pxLeft: Integer; out pyTop: Integer; out pcxWidth: Integer;
out pcyHeight: Integer; varChild: OleVariant); safecall;
function accNavigate(navDir: Integer; varStart: OleVariant): OleVariant; safecall;
function accHitTest(xLeft: Integer; yTop: Integer): OleVariant; safecall;
procedure accDoDefaultAction(varChild: OleVariant); safecall;
procedure Set_accName(varChild: OleVariant; const pszName: WideString); safecall;
procedure Set_accValue(varChild: OleVariant; const pszValue: WideString); safecall;
property accParent: IDispatch read Get_accParent;
property accChildCount: Integer read Get_accChildCount;
property accChild[varChild: OleVariant]: IDispatch read Get_accChild;
property accName[varChild: OleVariant]: WideString read Get_accName write Set_accName;
property accValue[varChild: OleVariant]: WideString read Get_accValue write Set_accValue;
property accDescription[varChild: OleVariant]: WideString read Get_accDescription;
property accRole[varChild: OleVariant]: OleVariant read Get_accRole;
property accState[varChild: OleVariant]: OleVariant read Get_accState;
property accHelp[varChild: OleVariant]: WideString read Get_accHelp;
property accHelpTopic[out pszHelpFile: WideString; varChild: OleVariant]: Integer read Get_accHelpTopic;
property accKeyboardShortcut[varChild: OleVariant]: WideString read Get_accKeyboardShortcut;
property accFocus: OleVariant read Get_accFocus;
property accSelection: OleVariant read Get_accSelection;
property accDefaultAction[varChild: OleVariant]: WideString read Get_accDefaultAction;
end;
// *********************************************************************//
// DispIntf: IAccessibleDisp
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {618736E0-3C3D-11CF-810C-00AA00389B71}
// *********************************************************************//
IAccessibleDisp = dispinterface
['{618736E0-3C3D-11CF-810C-00AA00389B71}']
property accParent: IDispatch readonly dispid -5000;
property accChildCount: Integer readonly dispid -5001;
property accChild[varChild: OleVariant]: IDispatch readonly dispid -5002;
property accName[varChild: OleVariant]: WideString dispid -5003;
property accValue[varChild: OleVariant]: WideString dispid -5004;
property accDescription[varChild: OleVariant]: WideString readonly dispid -5005;
property accRole[varChild: OleVariant]: OleVariant readonly dispid -5006;
property accState[varChild: OleVariant]: OleVariant readonly dispid -5007;
property accHelp[varChild: OleVariant]: WideString readonly dispid -5008;
property accHelpTopic[out pszHelpFile: WideString; varChild: OleVariant]: Integer readonly dispid -5009;
property accKeyboardShortcut[varChild: OleVariant]: WideString readonly dispid -5010;
property accFocus: OleVariant readonly dispid -5011;
property accSelection: OleVariant readonly dispid -5012;
property accDefaultAction[varChild: OleVariant]: WideString readonly dispid -5013;
procedure accSelect(flagsSelect: Integer; varChild: OleVariant); dispid -5014;
procedure accLocation(out pxLeft: Integer; out pyTop: Integer; out pcxWidth: Integer;
out pcyHeight: Integer; varChild: OleVariant); dispid -5015;
function accNavigate(navDir: Integer; varStart: OleVariant): OleVariant; dispid -5016;
function accHitTest(xLeft: Integer; yTop: Integer): OleVariant; dispid -5017;
procedure accDoDefaultAction(varChild: OleVariant); dispid -5018;
end;
// *********************************************************************//
// Interface: IAccessibleHandler
// Flags: (272) Hidden OleAutomation
// GUID: {03022430-ABC4-11D0-BDE2-00AA001A1953}
// *********************************************************************//
IAccessibleHandler = interface(IUnknown)
['{03022430-ABC4-11D0-BDE2-00AA001A1953}']
function AccessibleObjectFromID(hwnd: Integer; lObjectID: Integer; out pIAccessible: IAccessible): HResult; stdcall;
end;
// *********************************************************************//
// Interface: IAccIdentity
// Flags: (0)
// GUID: {7852B78D-1CFD-41C1-A615-9C0C85960B5F}
// *********************************************************************//
IAccIdentity = interface(IUnknown)
['{7852B78D-1CFD-41C1-A615-9C0C85960B5F}']
function GetIdentityString(dwIDChild: LongWord; out ppIDString: PByte1;
out pdwIDStringLen: LongWord): HResult; stdcall;
end;
// *********************************************************************//
// Interface: IAccPropServer
// Flags: (0)
// GUID: {76C0DBBB-15E0-4E7B-B61B-20EEEA2001E0}
// *********************************************************************//
IAccPropServer = interface(IUnknown)
['{76C0DBBB-15E0-4E7B-B61B-20EEEA2001E0}']
function GetPropValue(var pIDString: Byte; dwIDStringLen: LongWord; idProp: TGUID;
out pvarValue: OleVariant; out pfHasProp: Integer): HResult; stdcall;
end;
// *********************************************************************//
// Interface: IAccPropServices
// Flags: (0)
// GUID: {6E26E776-04F0-495D-80E4-3330352E3169}
// *********************************************************************//
IAccPropServices = interface(IUnknown)
['{6E26E776-04F0-495D-80E4-3330352E3169}']
function SetPropValue(var pIDString: Byte; dwIDStringLen: LongWord; idProp: TGUID;
var_: OleVariant): HResult; stdcall;
function SetPropServer(var pIDString: Byte; dwIDStringLen: LongWord; var paProps: TGUID;
cProps: SYSINT; const pServer: IAccPropServer; AnnoScope: AnnoScope): HResult; stdcall;
function ClearProps(var pIDString: Byte; dwIDStringLen: LongWord; var paProps: TGUID;
cProps: SYSINT): HResult; stdcall;
function SetHwndProp(var hwnd: _RemotableHandle; idObject: LongWord; idChild: LongWord;
idProp: TGUID; var_: OleVariant): HResult; stdcall;
function SetHwndPropStr(var hwnd: _RemotableHandle; idObject: LongWord; idChild: LongWord;
idProp: TGUID; str: PWideChar): HResult; stdcall;
function SetHwndPropServer(var hwnd: _RemotableHandle; idObject: LongWord; idChild: LongWord;
var paProps: TGUID; cProps: SYSINT; const pServer: IAccPropServer;
AnnoScope: AnnoScope): HResult; stdcall;
function ClearHwndProps(var hwnd: _RemotableHandle; idObject: LongWord; idChild: LongWord;
var paProps: TGUID; cProps: SYSINT): HResult; stdcall;
function ComposeHwndIdentityString(var hwnd: _RemotableHandle; idObject: LongWord;
idChild: LongWord; out ppIDString: PByte1;
out pdwIDStringLen: LongWord): HResult; stdcall;
function DecomposeHwndIdentityString(var pIDString: Byte; dwIDStringLen: LongWord;
out phwnd: wireHWND; out pidObject: LongWord;
out pidChild: LongWord): HResult; stdcall;
function SetHmenuProp(var hmenu: _RemotableHandle; idChild: LongWord; idProp: TGUID;
var_: OleVariant): HResult; stdcall;
function SetHmenuPropStr(var hmenu: _RemotableHandle; idChild: LongWord; idProp: TGUID;
str: PWideChar): HResult; stdcall;
function SetHmenuPropServer(var hmenu: _RemotableHandle; idChild: LongWord; var paProps: TGUID;
cProps: SYSINT; const pServer: IAccPropServer; AnnoScope: AnnoScope): HResult; stdcall;
function ClearHmenuProps(var hmenu: _RemotableHandle; idChild: LongWord; var paProps: TGUID;
cProps: SYSINT): HResult; stdcall;
function ComposeHmenuIdentityString(var hmenu: _RemotableHandle; idChild: LongWord;
out ppIDString: PByte1; out pdwIDStringLen: LongWord): HResult; stdcall;
function DecomposeHmenuIdentityString(var pIDString: Byte; dwIDStringLen: LongWord;
out phmenu: wireHMENU; out pidChild: LongWord): HResult; stdcall;
end;
// *********************************************************************//
// The Class CoCAccPropServices provides a Create and CreateRemote method to
// create instances of the default interface IAccPropServices exposed by
// the CoClass CAccPropServices. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoCAccPropServices = class
class function Create: IAccPropServices;
class function CreateRemote(const MachineName: string): IAccPropServices;
end;
implementation
uses ComObj;
class function CoCAccPropServices.Create: IAccPropServices;
begin
Result := CreateComObject(CLASS_CAccPropServices) as IAccPropServices;
end;
class function CoCAccPropServices.CreateRemote(const MachineName: string): IAccPropServices;
begin
Result := CreateRemoteComObject(MachineName, CLASS_CAccPropServices) as IAccPropServices;
end;
end.

177
CPRS-Chart/CPRSChart.bdsproj Normal file
View File

@ -0,0 +1,177 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<PersonalityInfo>
<Option>
<Option Name="Personality">Delphi.Personality</Option>
<Option Name="ProjectType">VCLApplication</Option>
<Option Name="Version">1.0</Option>
<Option Name="GUID">{B0A908D8-813B-4A01-B1DE-D0C343E41F8B}</Option>
</Option>
</PersonalityInfo>
<Delphi.Personality>
<Source>
<Source Name="MainSource">CPRSChart.dpr</Source>
</Source>
<FileVersion>
<FileVersion Name="Version">7.0</FileVersion>
</FileVersion>
<Compiler>
<Compiler Name="A">8</Compiler>
<Compiler Name="B">0</Compiler>
<Compiler Name="C">1</Compiler>
<Compiler Name="D">1</Compiler>
<Compiler Name="E">0</Compiler>
<Compiler Name="F">0</Compiler>
<Compiler Name="G">1</Compiler>
<Compiler Name="H">1</Compiler>
<Compiler Name="I">1</Compiler>
<Compiler Name="J">1</Compiler>
<Compiler Name="K">0</Compiler>
<Compiler Name="L">1</Compiler>
<Compiler Name="M">0</Compiler>
<Compiler Name="N">1</Compiler>
<Compiler Name="O">1</Compiler>
<Compiler Name="P">1</Compiler>
<Compiler Name="Q">0</Compiler>
<Compiler Name="R">0</Compiler>
<Compiler Name="S">0</Compiler>
<Compiler Name="T">0</Compiler>
<Compiler Name="U">0</Compiler>
<Compiler Name="V">1</Compiler>
<Compiler Name="W">0</Compiler>
<Compiler Name="X">1</Compiler>
<Compiler Name="Y">1</Compiler>
<Compiler Name="Z">1</Compiler>
<Compiler Name="ShowHints">True</Compiler>
<Compiler Name="ShowWarnings">True</Compiler>
<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
<Compiler Name="NamespacePrefix"></Compiler>
<Compiler Name="GenerateDocumentation">False</Compiler>
<Compiler Name="DefaultNamespace"></Compiler>
<Compiler Name="SymbolDeprecated">True</Compiler>
<Compiler Name="SymbolLibrary">True</Compiler>
<Compiler Name="SymbolPlatform">True</Compiler>
<Compiler Name="SymbolExperimental">True</Compiler>
<Compiler Name="UnitLibrary">True</Compiler>
<Compiler Name="UnitPlatform">True</Compiler>
<Compiler Name="UnitDeprecated">True</Compiler>
<Compiler Name="UnitExperimental">True</Compiler>
<Compiler Name="HResultCompat">True</Compiler>
<Compiler Name="HidingMember">True</Compiler>
<Compiler Name="HiddenVirtual">True</Compiler>
<Compiler Name="Garbage">True</Compiler>
<Compiler Name="BoundsError">True</Compiler>
<Compiler Name="ZeroNilCompat">True</Compiler>
<Compiler Name="StringConstTruncated">True</Compiler>
<Compiler Name="ForLoopVarVarPar">True</Compiler>
<Compiler Name="TypedConstVarPar">True</Compiler>
<Compiler Name="AsgToTypedConst">True</Compiler>
<Compiler Name="CaseLabelRange">True</Compiler>
<Compiler Name="ForVariable">True</Compiler>
<Compiler Name="ConstructingAbstract">True</Compiler>
<Compiler Name="ComparisonFalse">True</Compiler>
<Compiler Name="ComparisonTrue">True</Compiler>
<Compiler Name="ComparingSignedUnsigned">True</Compiler>
<Compiler Name="CombiningSignedUnsigned">True</Compiler>
<Compiler Name="UnsupportedConstruct">True</Compiler>
<Compiler Name="FileOpen">True</Compiler>
<Compiler Name="FileOpenUnitSrc">True</Compiler>
<Compiler Name="BadGlobalSymbol">True</Compiler>
<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
<Compiler Name="InvalidDirective">True</Compiler>
<Compiler Name="PackageNoLink">True</Compiler>
<Compiler Name="PackageThreadVar">True</Compiler>
<Compiler Name="ImplicitImport">True</Compiler>
<Compiler Name="HPPEMITIgnored">True</Compiler>
<Compiler Name="NoRetVal">True</Compiler>
<Compiler Name="UseBeforeDef">True</Compiler>
<Compiler Name="ForLoopVarUndef">True</Compiler>
<Compiler Name="UnitNameMismatch">True</Compiler>
<Compiler Name="NoCFGFileFound">True</Compiler>
<Compiler Name="ImplicitVariants">True</Compiler>
<Compiler Name="UnicodeToLocale">True</Compiler>
<Compiler Name="LocaleToUnicode">True</Compiler>
<Compiler Name="ImagebaseMultiple">True</Compiler>
<Compiler Name="SuspiciousTypecast">True</Compiler>
<Compiler Name="PrivatePropAccessor">True</Compiler>
<Compiler Name="UnsafeType">False</Compiler>
<Compiler Name="UnsafeCode">False</Compiler>
<Compiler Name="UnsafeCast">False</Compiler>
<Compiler Name="OptionTruncated">True</Compiler>
<Compiler Name="WideCharReduced">True</Compiler>
<Compiler Name="DuplicatesIgnored">True</Compiler>
<Compiler Name="UnitInitSeq">True</Compiler>
<Compiler Name="LocalPInvoke">True</Compiler>
<Compiler Name="MessageDirective">True</Compiler>
<Compiler Name="CodePage"></Compiler>
</Compiler>
<Linker>
<Linker Name="MapFile">3</Linker>
<Linker Name="OutputObjs">0</Linker>
<Linker Name="GenerateHpps">False</Linker>
<Linker Name="ConsoleApp">1</Linker>
<Linker Name="DebugInfo">False</Linker>
<Linker Name="RemoteSymbols">False</Linker>
<Linker Name="GenerateDRC">False</Linker>
<Linker Name="MinStackSize">32768</Linker>
<Linker Name="MaxStackSize">1048576</Linker>
<Linker Name="AutoRegisterTLB">False</Linker>
<Linker Name="AutoGenImportAssembly">False</Linker>
<Linker Name="ImageBase">4194304</Linker>
<Linker Name="ExeDescription"></Linker>
</Linker>
<Directories>
<Directories Name="OutputDir"></Directories>
<Directories Name="UnitOutputDir">P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\DCU</Directories>
<Directories Name="PackageDLLOutputDir">P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\Packages</Directories>
<Directories Name="PackageDCPOutputDir">P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\Packages</Directories>
<Directories Name="SearchPath">P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\CPRS-chart;P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\CPRS-Lib;P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\WVEHR-Lib;P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\DCU;P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\BDK32\Source</Directories>
<Directories Name="Packages">vcl;vclx;dbrtl;Rave65VCL;bdertl;rtl;vcldb;adortl;dbxcds;dbexpress;vclib;ibxpress;xmlrtl;vclactnband;inet;IntrawebDB_80_100;Intraweb_80_100;vclie;inetdbbde;inetdbxpress;IndyCore;IndySystem;dclOfficeXP;VclSmp;soaprtl;dsnap;IndyProtocols;teeui;teedb;tee;vcldbx</Directories>
<Directories Name="Conditionals"></Directories>
<Directories Name="DebugSourceDirs"></Directories>
<Directories Name="UsePackages">False</Directories>
</Directories>
<Parameters>
<Parameters Name="RunParams"></Parameters>
<Parameters Name="HostApplication"></Parameters>
<Parameters Name="Launcher"></Parameters>
<Parameters Name="UseLauncher">False</Parameters>
<Parameters Name="DebugCWD"></Parameters>
<Parameters Name="Debug Symbols Search Path"></Parameters>
<Parameters Name="LoadAllSymbols">True</Parameters>
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
</Parameters>
<Language>
<Language Name="ActiveLang"></Language>
<Language Name="ProjectLang">$00000000</Language>
<Language Name="RootDir"></Language>
</Language>
<VersionInfo>
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">1</VersionInfo>
<VersionInfo Name="MinorVer">0</VersionInfo>
<VersionInfo Name="Release">27</VersionInfo>
<VersionInfo Name="Build">83</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo>
<VersionInfo Name="Special">False</VersionInfo>
<VersionInfo Name="Private">False</VersionInfo>
<VersionInfo Name="DLL">False</VersionInfo>
<VersionInfo Name="Locale">1033</VersionInfo>
<VersionInfo Name="CodePage">1252</VersionInfo>
</VersionInfo>
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName">Department of Veterans Affairs</VersionInfoKeys>
<VersionInfoKeys Name="FileDescription">11/04/2008</VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">1.0.27.83</VersionInfoKeys>
<VersionInfoKeys Name="InternalName">1.0.27.83 server required</VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright">Unauthorized access or misuse of this system and/or its data is a federal crime. Use of all data shall be in accordance with VA policy on security and privacy.</VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename">Patch 304</VersionInfoKeys>
<VersionInfoKeys Name="ProductName">Computerized Patient Record System</VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments">Version 1.0.27.83</VersionInfoKeys>
</VersionInfoKeys>
</Delphi.Personality>
</BorlandProject>

2
CPRS-Chart/CPRSChart.bdsproj.local Normal file
View File

@ -0,0 +1,2 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject/>

18
CPRS-Chart/CPRSChart.cfg
View File

@ -32,11 +32,13 @@
-M
-$M32768,1048576
-K$00400000
-E"C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Chart"
-N"C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Chart"
-LE"C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\Packages"
-LN"C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\Packages"
-U"c:\program files\borland\delphi7\Lib\Debug;C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Lib"
-O"c:\program files\borland\delphi7\Lib\Debug;C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Lib"
-I"c:\program files\borland\delphi7\Lib\Debug;C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Lib"
-R"c:\program files\borland\delphi7\Lib\Debug;C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Lib"
-N0"P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\DCU"
-LE"P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\Packages"
-LN"P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\Packages"
-U"P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\CPRS-chart;P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\CPRS-Lib;P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\WVEHR-Lib;P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\DCU;P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\BDK32\Source"
-O"P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\CPRS-chart;P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\CPRS-Lib;P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\WVEHR-Lib;P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\DCU;P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\BDK32\Source"
-I"P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\CPRS-chart;P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\CPRS-Lib;P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\WVEHR-Lib;P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\DCU;P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\BDK32\Source"
-R"P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\CPRS-chart;P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\CPRS-Lib;P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\WVEHR-Lib;P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\DCU;P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\BDK32\Source"
-w-UNSAFE_TYPE
-w-UNSAFE_CODE
-w-UNSAFE_CAST

170
CPRS-Chart/CPRSChart.dof
View File

@ -1,170 +0,0 @@
[FileVersion]
Version=7.0
[Compiler]
A=8
B=0
C=1
D=1
E=0
F=0
G=1
H=1
I=1
J=1
K=0
L=1
M=0
N=1
O=1
P=1
Q=0
R=0
S=0
T=0
U=0
V=1
W=0
X=1
Y=1
Z=1
ShowHints=1
ShowWarnings=1
UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
NamespacePrefix=
SymbolDeprecated=1
SymbolLibrary=1
SymbolPlatform=1
UnitLibrary=1
UnitPlatform=1
UnitDeprecated=1
HResultCompat=1
HidingMember=1
HiddenVirtual=1
Garbage=1
BoundsError=1
ZeroNilCompat=1
StringConstTruncated=1
ForLoopVarVarPar=1
TypedConstVarPar=1
AsgToTypedConst=1
CaseLabelRange=1
ForVariable=1
ConstructingAbstract=1
ComparisonFalse=1
ComparisonTrue=1
ComparingSignedUnsigned=1
CombiningSignedUnsigned=1
UnsupportedConstruct=1
FileOpen=1
FileOpenUnitSrc=1
BadGlobalSymbol=1
DuplicateConstructorDestructor=1
InvalidDirective=1
PackageNoLink=1
PackageThreadVar=1
ImplicitImport=1
HPPEMITIgnored=1
NoRetVal=1
UseBeforeDef=1
ForLoopVarUndef=1
UnitNameMismatch=1
NoCFGFileFound=1
MessageDirective=1
ImplicitVariants=1
UnicodeToLocale=1
LocaleToUnicode=1
ImagebaseMultiple=1
SuspiciousTypecast=1
PrivatePropAccessor=1
UnsafeType=1
UnsafeCode=1
UnsafeCast=1
[Linker]
MapFile=3
OutputObjs=0
ConsoleApp=1
DebugInfo=0
RemoteSymbols=0
MinStackSize=32768
MaxStackSize=1048576
ImageBase=4194304
ExeDescription=
[Directories]
OutputDir=C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Chart
UnitOutputDir=C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Chart
PackageDLLOutputDir=C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\Packages
PackageDCPOutputDir=C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\Packages
SearchPath=$(DELPHI)\Lib\Debug;C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Lib
Packages=vcl;rtl;vclx;VclSmp;vclshlctrls;dbrtl;adortl;vcldb;qrpt;bdertl;vcldbx;dsnap;cds;bdecds;teeui;teedb;tee;teeqr;ibxpress;visualclx;visualdbclx;vclie;xmlrtl;inet;inetdbbde;inetdbxpress;inetdb;nmfast;dbexpress;dbxcds;indy;dclOffice2k;soaprtl;XWB_R60
Conditionals=
DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=s=127.0.0.1 p=9211 CCOW=disable
HostApplication=
Launcher=
UseLauncher=0
DebugCWD=
[Language]
ActiveLang=
ProjectLang=
RootDir=C:\Program Files\Borland\Delphi6\Bin\
[Version Info]
IncludeVerInfo=1
AutoIncBuild=0
MajorVer=1
MinorVer=0
Release=26
Build=76
Debug=0
PreRelease=0
Special=0
Private=0
DLL=0
Locale=1033
CodePage=1252
[Version Info Keys]
CompanyName=Department of Veterans Affairs
FileDescription=1/21/2006
FileVersion=1.0.26.76
InternalName=1.0.26.76 server required
LegalCopyright=Unauthorized access or misuse of this system and/or its data is a federal crime. Use of all data shall be in accordance with VA policy on security and privacy.
LegalTrademarks=
OriginalFilename=Patch 215
ProductName=Computerized Patient Record System
ProductVersion=1.0.0.0
Comments=Version 1.0.26.76
[HistoryLists\hlUnitAliases]
Count=1
Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
[HistoryLists\hlSearchPath]
Count=5
Item0=$(DELPHI)\Lib\Debug;C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Lib
Item1=$(DELPHI)\Lib\Debug;C:\Vista\cprs\OR_3_270V26_69\CPRS-Lib;C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_OR_SRC_CREATION\CPRS-Lib
Item2=$(DELPHI)\Lib\Debug;C:\Vista\cprs\OR_3_270V26_69\CPRS-Lib;C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\OR_SRC_CREATION\CPRS-Lib
Item3=$(DELPHI)\Lib\Debug;C:\Vista\cprs\OR_3_270V26_69\CPRS-Lib
Item4=C:\Vista\cprs\OR_3_215V26_69\CPRS-Lib
[HistoryLists\hlUnitOutputDirectory]
Count=4
Item0=C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Chart
Item1=C:\Vista\cprs\WV_OR_3_270V26_69\CPRS-Chart\DCU
Item2=C:\Vista\cprs\OR_3_270V26_69\CPRS-Chart\DCU
Item3=C:\Vista\cprs\OR_3_215V26_69\CPRS-Chart\DCU
[HistoryLists\hlOutputDirectorry]
Count=4
Item0=C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Chart
Item1=C:\Vista\cprs\WV_OR_3_270V26_69\CPRS-Chart
Item2=C:\Vista\cprs\OR_3_270V26_69\CPRS-Chart
Item3=C:\Vista\cprs\OR_3_215V26_69\CPRS-Chart
[HistoryLists\hlBPLOutput]
Count=4
Item0=C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\Packages
Item1=C:\Vista\cprs\WV_OR_3_270V26_69\Packages
Item2=C:\Vista\cprs\OR_3_270V26_69\Packages
Item3=C:\Vista\cprs\OR_3_215V26_69\Packages
[HistoryLists\hlDCPOutput]
Count=4
Item0=C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\Packages
Item1=C:\Vista\cprs\WV_OR_3_270V26_69\Packages
Item2=C:\Vista\cprs\OR_3_270V26_69\Packages
Item3=C:\Vista\cprs\OR_3_215V26_69\Packages

61
CPRS-Chart/CPRSChart.dpr
View File

@ -1,5 +1,9 @@
program CPRSChart;
uses
ShareMem,
Forms,
@ -43,7 +47,7 @@ uses
fVitals in 'fVitals.pas' {frmVitals},
uProbs in 'uProbs.pas',
fProbEdt in 'fProbEdt.pas' {frmdlgProb},
fProbflt in 'fProbFlt.pas' {frmPlVuFilt},
fProbFlt in 'fProbFlt.pas' {frmPlVuFilt},
fProbCmt in 'fProbCmt.pas' {frmProbCmt},
fNoteCslt in 'fNoteCslt.pas' {frmNoteConsult},
fNotePrt in 'fNotePrt.pas' {frmNotePrint},
@ -117,21 +121,8 @@ uses
fDCSummProps in 'fDCSummProps.pas' {frmDCSummProperties},
fHFSearch in 'Encounter\fHFSearch.pas' {frmHFSearch},
fConsMedRslt in 'Consults\fConsMedRslt.pas' {frmConsMedRslt},
mVitMetric in 'Vitals\mVitMetric.pas' {fraVitMetric: TFrame},
mVitAll in 'Vitals\mVitAll.pas' {fraVitAll: TFrame},
mVitBase in 'Vitals\mVitBase.pas' {fraVitBase: TFrame},
uVitals in 'Vitals\uVitals.pas',
rVitals in 'Vitals\rVitals.pas',
mVitPulse in 'Vitals\mVitPulse.pas' {fraVitPulse: TFrame},
mVitResp in 'Vitals\mVitResp.pas' {fraVitResp: TFrame},
mVitBP in 'Vitals\mVitBP.pas' {fraVitPB: TFrame},
mVitTemp in 'Vitals\mVitTemp.pas' {fraVitTemp: TFrame},
mVitHeight in 'Vitals\mVitHeight.pas' {fraVitHeight: TFrame},
mVitWeight in 'Vitals\mVitWeight.pas' {fraVitWeight: TFrame},
mVitPain in 'Vitals\mVitPain.pas' {fraVitPain: TFrame},
mVitPO2 in 'Vitals\mVitPO2.pas' {fraVitPO2: TFrame},
mVitCVP in 'Vitals\mVitCVP.pas' {fraVitCVP: TFrame},
mVitCirGirth in 'Vitals\mVitCirGirth.pas' {fraVitCircum: TFrame},
uDCSumm in 'uDCSumm.pas',
uDocTree in 'uDocTree.pas',
fVitalsDate in 'Vitals\fVitalsDate.pas' {frmVitalsDate},
@ -262,11 +253,6 @@ uses
fODChangeEvtDisp in 'Orders\fODChangeEvtDisp.pas' {frmChangeEventDisp},
fODValidateAction in 'Orders\fODValidateAction.pas' {frmInvalidActionList},
fODChild in 'Orders\fODChild.pas' {frmODChild},
uAccessibleStringGrid in 'uAccessibleStringGrid.pas' {AccessibleStringGrid: CoClass},
Accessibility_TLB in 'Accessibility_TLB.pas',
uAccessibleListBox in 'uAccessibleListBox.pas' {AccessibleListBox: CoClass},
uAccessibleTreeNode in 'uAccessibleTreeNode.pas' {IAccessibleTreeNode: CoClass},
uAccessibleTreeView in 'uAccessibleTreeView.pas' {AccessibleTreeView: CoClass},
fDupPts in 'fDupPts.pas' {frmDupPts},
VERGENCECONTEXTORLib_TLB in 'VERGENCECONTEXTORLib_TLB.pas',
uOrPtf in 'uOrPtf.pas',
@ -274,7 +260,6 @@ uses
fFrame in 'fFrame.pas' {frmFrame},
fAlertForward in 'fAlertForward.pas' {frmAlertForward},
fODMedNVA in 'Orders\fODMedNVA.pas' {frmODMedNVA},
uAccessibleRichEdit in 'uAccessibleRichEdit.pas' {AccessibleRichEdit: CoClass},
fPrintList in 'fPrintList.pas' {frmPrintList},
fODChangeUnreleasedRenew in 'Orders\fODChangeUnreleasedRenew.pas' {frmODChangeUnreleasedRenew},
UBAMessages in 'BA\UBAMessages.pas',
@ -298,7 +283,38 @@ uses
uGraphs in 'uGraphs.pas',
fClinicWardMeds in 'fClinicWardMeds.pas' {frmClinicWardMeds},
fActivateDeactivate in 'fActivateDeactivate.pas' {frmActivateDeactive},
uFormMonitor in 'uFormMonitor.pas';
uFormMonitor in 'uFormMonitor.pas',
fAResize in 'fAResize.pas' {frmAutoResize},
fODAllgy in 'Orders\fODAllgy.pas' {frmODAllergy},
fDeviceSelect in 'fDeviceSelect.pas' {frmDeviceSelect},
fLabCollTimes in 'fLabCollTimes.pas' {frmLabCollectTimes},
fPostings in 'fPostings.pas' {frmPostings},
fProbLex in 'fProbLex.pas' {frmPLLex},
fTIUView in 'fTIUView.pas' {frmTIUView},
ORClasses in '..\CPRS-Lib\ORClasses.pas',
ORCtrls in '..\CPRS-Lib\ORCtrls.pas',
ORDtTm in '..\CPRS-Lib\ORDtTm.pas' {ORfrmDtTm},
ORDtTmCal in '..\CPRS-Lib\ORDtTmCal.pas',
ORDtTmRng in '..\CPRS-Lib\ORDtTmRng.pas' {ORfrmDateRange},
ORFn in '..\CPRS-Lib\ORFn.pas',
ORNet in '..\CPRS-Lib\ORNet.pas',
Vawrgrid in '..\CPRS-Lib\Vawrgrid.pas',
XMLUtils in '..\CPRS-Lib\XMLUtils.pas',
fBase508Form in 'fBase508Form.pas' {frmBase508Form},
VAUtils in '..\VA\VAUtils.pas',
VA2006Utils in '..\VA\VA2006Utils.pas',
VAClasses in '..\VA\VAClasses.pas',
fPrintLocation in 'fPrintLocation.pas' {frmPrintLocation},
uVA508CPRSCompatibility in 'uVA508CPRSCompatibility.pas',
VA508AccessibilityManager in '..\VA\VA508Accessibility\VA508AccessibilityManager.pas',
ORCtrlsVA508Compatibility in '..\CPRS-Lib\ORCtrlsVA508Compatibility.pas',
VA508DelphiCompatibility in '..\VA\VA508Accessibility\VA508DelphiCompatibility.pas',
uDlgComponents in 'uDlgComponents.pas',
fGraphData in 'fGraphData.pas' {frmGraphData},
fGraphOthers in 'fGraphOthers.pas' {frmGraphOthers},
VA508AccessibilityRouter in '..\VA\VA508Accessibility\VA508AccessibilityRouter.pas',
fIVRoutes in 'Orders\fIVRoutes.pas' {frmIVRoutes},
fFindingTemplates in 'Templates\fFindingTemplates.pas' {frmFindingTemplates};
{$R *.TLB}
@ -307,6 +323,7 @@ uses
begin
if not UpdateSelf then // only start if not copying new version
begin
if not BorlandDLLVersionOK then exit; // Exit immediately if old or missing BORLNDMM.DLL
RegisterCPRSTypeLibrary; // will halt program if /regserver or /unregserver param
Application.Initialize;
frmSplash := nil;
@ -324,4 +341,4 @@ begin
frmSplash.Free; // close & free splash screen
Application.Run;
end;
end.
end.

877
CPRS-Chart/CPRSChart.dproj Normal file
View File

@ -0,0 +1,877 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{b0a908d8-813b-4a01-b1de-d0c343e41f8b}</ProjectGuid>
<MainSource>CPRSChart.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>CPRSChart.exe</DCC_DependencyCheckOutputName>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_WriteableConstants>True</DCC_WriteableConstants>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile>
<DCC_StackSize>32768,1048576</DCC_StackSize>
<DCC_ExeOutput>C:\Vista\cprs\OR_3_243V27\CPRS-chart</DCC_ExeOutput>
<DCC_DcuOutput>C:\Vista\cprs\OR_3_243V27\CPRS-chart\DCU</DCC_DcuOutput>
<DCC_ObjOutput>C:\Vista\cprs\OR_3_243V27\CPRS-chart\DCU</DCC_ObjOutput>
<DCC_HppOutput>C:\Vista\cprs\OR_3_243V27\CPRS-chart\DCU</DCC_HppOutput>
<DCC_BplOutput>C:\Vista\cprs\OR_3_243V27\Packages</DCC_BplOutput>
<DCC_DcpOutput>C:\Vista\cprs\OR_3_243V27\Packages</DCC_DcpOutput>
<DCC_UnitSearchPath>C:\Vista\cprs\OR_3_243V27\CPRS-chart;C:\Vista\cprs\OR_3_243V27\CPRS-Lib;C:\Vista\cprs\OR_3_243V27\VA;C:\Vista\cprs\OR_3_243V27\VA\VA508Accessibility</DCC_UnitSearchPath>
<DCC_ResourcePath>C:\Vista\cprs\OR_3_243V27\CPRS-chart;C:\Vista\cprs\OR_3_243V27\CPRS-Lib;C:\Vista\cprs\OR_3_243V27\VA;C:\Vista\cprs\OR_3_243V27\VA\VA508Accessibility</DCC_ResourcePath>
<DCC_ObjPath>C:\Vista\cprs\OR_3_243V27\CPRS-chart;C:\Vista\cprs\OR_3_243V27\CPRS-Lib;C:\Vista\cprs\OR_3_243V27\VA;C:\Vista\cprs\OR_3_243V27\VA\VA508Accessibility</DCC_ObjPath>
<DCC_IncludePath>C:\Vista\cprs\OR_3_243V27\CPRS-chart;C:\Vista\cprs\OR_3_243V27\CPRS-Lib;C:\Vista\cprs\OR_3_243V27\VA;C:\Vista\cprs\OR_3_243V27\VA\VA508Accessibility</DCC_IncludePath>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_WriteableConstants>True</DCC_WriteableConstants>
<DCC_MapFile>3</DCC_MapFile>
<DCC_StackSize>32768,1048576</DCC_StackSize>
<DCC_ExeOutput>C:\Vista\cprs\OR_3_243V27\CPRS-chart</DCC_ExeOutput>
<DCC_DcuOutput>C:\Vista\cprs\OR_3_243V27\CPRS-chart\DCU</DCC_DcuOutput>
<DCC_ObjOutput>C:\Vista\cprs\OR_3_243V27\CPRS-chart\DCU</DCC_ObjOutput>
<DCC_HppOutput>C:\Vista\cprs\OR_3_243V27\CPRS-chart\DCU</DCC_HppOutput>
<DCC_BplOutput>C:\Vista\cprs\OR_3_243V27\Packages</DCC_BplOutput>
<DCC_DcpOutput>C:\Vista\cprs\OR_3_243V27\Packages</DCC_DcpOutput>
<DCC_UnitSearchPath>C:\Vista\cprs\OR_3_243V27\CPRS-chart;C:\Vista\cprs\OR_3_243V27\CPRS-Lib;C:\Vista\cprs\OR_3_243V27\VA;C:\Vista\cprs\OR_3_243V27\VA\VA508Accessibility</DCC_UnitSearchPath>
<DCC_ResourcePath>C:\Vista\cprs\OR_3_243V27\CPRS-chart;C:\Vista\cprs\OR_3_243V27\CPRS-Lib;C:\Vista\cprs\OR_3_243V27\VA;C:\Vista\cprs\OR_3_243V27\VA\VA508Accessibility</DCC_ResourcePath>
<DCC_ObjPath>C:\Vista\cprs\OR_3_243V27\CPRS-chart;C:\Vista\cprs\OR_3_243V27\CPRS-Lib;C:\Vista\cprs\OR_3_243V27\VA;C:\Vista\cprs\OR_3_243V27\VA\VA508Accessibility</DCC_ObjPath>
<DCC_IncludePath>C:\Vista\cprs\OR_3_243V27\CPRS-chart;C:\Vista\cprs\OR_3_243V27\CPRS-Lib;C:\Vista\cprs\OR_3_243V27\VA;C:\Vista\cprs\OR_3_243V27\VA\VA508Accessibility</DCC_IncludePath>
<DCC_Define>DEBUG</DCC_Define>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject>
<BorlandProject xmlns=""> <Delphi.Personality> <Parameters>
<Parameters Name="UseLauncher">False</Parameters>
<Parameters Name="LoadAllSymbols">True</Parameters>
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
</Parameters>
<VersionInfo>
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">1</VersionInfo>
<VersionInfo Name="MinorVer">0</VersionInfo>
<VersionInfo Name="Release">27</VersionInfo>
<VersionInfo Name="Build">77</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo>
<VersionInfo Name="Special">False</VersionInfo>
<VersionInfo Name="Private">False</VersionInfo>
<VersionInfo Name="DLL">False</VersionInfo>
<VersionInfo Name="Locale">1033</VersionInfo>
<VersionInfo Name="CodePage">1252</VersionInfo>
</VersionInfo>
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName">Department of Veterans Affairs</VersionInfoKeys>
<VersionInfoKeys Name="FileDescription">6/26/2007</VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">1.0.27.77</VersionInfoKeys>
<VersionInfoKeys Name="InternalName">1.0.27.77 server required</VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright">Unauthorized access or misuse of this system and/or its data is a federal crime. Use of all data shall be in accordance with VA policy on security and privacy.</VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename">Patch 243</VersionInfoKeys>
<VersionInfoKeys Name="ProductName">Computerized Patient Record System</VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments">Version 1.0.27.77</VersionInfoKeys>
</VersionInfoKeys>
<Excluded_Packages>
<Excluded_Packages Name="C:\Vista\cprs\ShiftChangeHandOff\ORCtrlLib60.bpl">CPRS Custom Controls</Excluded_Packages>
</Excluded_Packages>
<Source>
<Source Name="MainSource">CPRSChart.dpr</Source>
</Source>
</Delphi.Personality> </BorlandProject></BorlandProject>
</ProjectExtensions>
<ItemGroup />
<ItemGroup>
<DelphiCompile Include="CPRSChart.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\CPRS-Lib\ORClasses.pas" />
<DCCReference Include="..\CPRS-Lib\ORCtrls.pas" />
<DCCReference Include="..\CPRS-Lib\ORCtrlsVA508Compatibility.pas" />
<DCCReference Include="..\CPRS-Lib\ORDtTm.pas">
<Form>ORfrmDtTm</Form>
</DCCReference>
<DCCReference Include="..\CPRS-Lib\ORDtTmCal.pas" />
<DCCReference Include="..\CPRS-Lib\ORDtTmRng.pas">
<Form>ORfrmDateRange</Form>
</DCCReference>
<DCCReference Include="..\CPRS-Lib\ORFn.pas" />
<DCCReference Include="..\CPRS-Lib\ORNet.pas" />
<DCCReference Include="..\CPRS-Lib\Vawrgrid.pas" />
<DCCReference Include="..\CPRS-Lib\XMLUtils.pas" />
<DCCReference Include="..\VA\VA2006Utils.pas" />
<DCCReference Include="..\VA\VA508Accessibility\VA508AccessibilityManager.pas" />
<DCCReference Include="..\VA\VA508Accessibility\VA508AccessibilityRouter.pas" />
<DCCReference Include="..\VA\VA508Accessibility\VA508DelphiCompatibility.pas" />
<DCCReference Include="..\VA\VAClasses.pas" />
<DCCReference Include="..\VA\VAUtils.pas" />
<DCCReference Include="BA\fBALocalDiagnoses.pas">
<Form>frmBALocalDiagnoses</Form>
</DCCReference>
<DCCReference Include="BA\fBAOptionsDiagnoses.pas">
<Form>frmBAOptionsDiagnoses</Form>
</DCCReference>
<DCCReference Include="BA\UBAConst.pas" />
<DCCReference Include="BA\UBACore.pas" />
<DCCReference Include="BA\UBAGlobals.pas" />
<DCCReference Include="BA\UBAMessages.pas" />
<DCCReference Include="Consults\fConsMedRslt.pas">
<Form>frmConsMedRslt</Form>
</DCCReference>
<DCCReference Include="Consults\fConsult513Prt.pas">
<Form>frm513Print</Form>
</DCCReference>
<DCCReference Include="Consults\fConsultAct.pas">
<Form>frmConsultAction</Form>
</DCCReference>
<DCCReference Include="Consults\fConsultAlertTo.pas">
<Form>frmConsultAlertsTo</Form>
</DCCReference>
<DCCReference Include="Consults\fConsultBD.pas">
<Form>frmConsultsByDate</Form>
</DCCReference>
<DCCReference Include="Consults\fConsultBS.pas">
<Form>frmConsultsByService</Form>
</DCCReference>
<DCCReference Include="Consults\fConsultBSt.pas">
<Form>frmConsultsByStatus</Form>
</DCCReference>
<DCCReference Include="Consults\fConsults.pas">
<Form>frmConsults</Form>
</DCCReference>
<DCCReference Include="Consults\fConsultsView.pas">
<Form>frmConsultsView</Form>
</DCCReference>
<DCCReference Include="Consults\fCsltNote.pas">
<Form>frmCsltNote</Form>
</DCCReference>
<DCCReference Include="Consults\fEditConsult.pas">
<Form>frmEditCslt</Form>
</DCCReference>
<DCCReference Include="Consults\fEditProc.pas">
<Form>frmEditProc</Form>
</DCCReference>
<DCCReference Include="Consults\fODConsult.pas">
<Form>frmODCslt</Form>
</DCCReference>
<DCCReference Include="Consults\fODProc.pas">
<Form>frmODProc</Form>
</DCCReference>
<DCCReference Include="Consults\fPreReq.pas">
<Form>frmPrerequisites</Form>
</DCCReference>
<DCCReference Include="Consults\rConsults.pas" />
<DCCReference Include="Consults\uConsults.pas" />
<DCCReference Include="CPRSChart_TLB.pas" />
<DCCReference Include="dShared.pas">
<Form>dmodShared</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="Encounter\fDiagnoses.pas">
<Form>frmDiagnoses</Form>
</DCCReference>
<DCCReference Include="Encounter\fEncounterFrame.pas">
<Form>frmEncounterFrame</Form>
</DCCReference>
<DCCReference Include="Encounter\fEncVitals.pas">
<Form>frmEncVitals</Form>
</DCCReference>
<DCCReference Include="Encounter\fExam.pas">
<Form>frmExams</Form>
</DCCReference>
<DCCReference Include="Encounter\fGAF.pas">
<Form>frmGAF</Form>
</DCCReference>
<DCCReference Include="Encounter\fHealthFactor.pas">
<Form>frmHealthFactors</Form>
</DCCReference>
<DCCReference Include="Encounter\fHFSearch.pas">
<Form>frmHFSearch</Form>
</DCCReference>
<DCCReference Include="Encounter\fImmunization.pas">
<Form>frmImmunizations</Form>
</DCCReference>
<DCCReference Include="Encounter\fPatientEd.pas">
<Form>frmPatientEd</Form>
</DCCReference>
<DCCReference Include="Encounter\fPCEBase.pas">
<Form>frmPCEBase</Form>
</DCCReference>
<DCCReference Include="Encounter\fPCEBaseGrid.pas">
<Form>frmPCEBaseGrid</Form>
</DCCReference>
<DCCReference Include="Encounter\fPCEBaseMain.pas">
<Form>frmPCEBaseMain</Form>
</DCCReference>
<DCCReference Include="Encounter\fPCEEdit.pas">
<Form>frmPCEEdit</Form>
</DCCReference>
<DCCReference Include="Encounter\fPCELex.pas">
<Form>frmPCELex</Form>
</DCCReference>
<DCCReference Include="Encounter\fPCEOther.pas">
<Form>frmPCEOther</Form>
</DCCReference>
<DCCReference Include="Encounter\fPCEProvider.pas">
<Form>frmPCEProvider</Form>
</DCCReference>
<DCCReference Include="Encounter\fProcedure.pas">
<Form>frmProcedures</Form>
</DCCReference>
<DCCReference Include="Encounter\fSkinTest.pas">
<Form>frmSkinTests</Form>
</DCCReference>
<DCCReference Include="Encounter\fVisitType.pas">
<Form>frmVisitType</Form>
</DCCReference>
<DCCReference Include="Encounter\mVisitRelated.pas">
<Form>fraVisitRelated</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Encounter\rPCE.pas" />
<DCCReference Include="Encounter\uPCE.pas" />
<DCCReference Include="fAbout.pas">
<Form>frmAbout</Form>
</DCCReference>
<DCCReference Include="fActivateDeactivate.pas">
<Form>frmActivateDeactive</Form>
</DCCReference>
<DCCReference Include="fAddlSigners.pas">
<Form>frmAddlSigners</Form>
</DCCReference>
<DCCReference Include="fAlertForward.pas">
<Form>frmAlertForward</Form>
</DCCReference>
<DCCReference Include="fAllgyBox.pas">
<Form>frmAllgyBox</Form>
</DCCReference>
<DCCReference Include="fAllgyFind.pas">
<Form>frmAllgyFind</Form>
</DCCReference>
<DCCReference Include="fAResize.pas">
<Form>frmAutoResize</Form>
</DCCReference>
<DCCReference Include="fARTAllgy.pas">
<Form>frmARTAllergy</Form>
</DCCReference>
<DCCReference Include="fARTFreeTextMsg.pas">
<Form>frmARTFreeTextMsg</Form>
</DCCReference>
<DCCReference Include="fAutoSz.pas">
<Form>frmAutoSz</Form>
</DCCReference>
<DCCReference Include="fBase508Form.pas">
<Form>frmBase508Form</Form>
</DCCReference>
<DCCReference Include="fClinicWardMeds.pas">
<Form>frmClinicWardMeds</Form>
</DCCReference>
<DCCReference Include="fCover.pas">
<Form>frmCover</Form>
</DCCReference>
<DCCReference Include="fDateRange.pas">
<Form>frmDateRange</Form>
</DCCReference>
<DCCReference Include="fDCSumm.pas">
<Form>frmDCSumm</Form>
</DCCReference>
<DCCReference Include="fDCSummProps.pas">
<Form>frmDCSummProperties</Form>
</DCCReference>
<DCCReference Include="fDefaultEvent.pas">
<Form>frmDefaultEvent</Form>
</DCCReference>
<DCCReference Include="fDeviceSelect.pas">
<Form>frmDeviceSelect</Form>
</DCCReference>
<DCCReference Include="fDrawers.pas">
<Form>frmDrawers</Form>
</DCCReference>
<DCCReference Include="fDupPts.pas">
<Form>frmDupPts</Form>
</DCCReference>
<DCCReference Include="fEffectDate.pas">
<Form>frmEffectDate</Form>
</DCCReference>
<DCCReference Include="fEncnt.pas">
<Form>frmEncounter</Form>
</DCCReference>
<DCCReference Include="fFrame.pas">
<Form>frmFrame</Form>
</DCCReference>
<DCCReference Include="fGraphData.pas">
<Form>frmGraphData</Form>
</DCCReference>
<DCCReference Include="fGraphOthers.pas">
<Form>frmGraphOthers</Form>
</DCCReference>
<DCCReference Include="fGraphProfiles.pas">
<Form>frmGraphProfiles</Form>
</DCCReference>
<DCCReference Include="fGraphs.pas">
<Form>frmGraphs</Form>
</DCCReference>
<DCCReference Include="fGraphSettings.pas">
<Form>frmGraphSettings</Form>
</DCCReference>
<DCCReference Include="fHP.pas">
<Form>frmHP</Form>
</DCCReference>
<DCCReference Include="fHSplit.pas">
<Form>frmHSplit</Form>
</DCCReference>
<DCCReference Include="fIconLegend.pas">
<Form>frmIconLegend</Form>
</DCCReference>
<DCCReference Include="fLabCollTimes.pas">
<Form>frmLabCollectTimes</Form>
</DCCReference>
<DCCReference Include="fLabInfo.pas">
<Form>frmLabInfo</Form>
</DCCReference>
<DCCReference Include="fLabPrint.pas">
<Form>frmLabPrint</Form>
</DCCReference>
<DCCReference Include="fLabs.pas">
<Form>frmLabs</Form>
</DCCReference>
<DCCReference Include="fLabTest.pas">
<Form>frmLabTest</Form>
</DCCReference>
<DCCReference Include="fLabTestGroups.pas">
<Form>frmLabTestGroups</Form>
</DCCReference>
<DCCReference Include="fLabTests.pas">
<Form>frmLabTests</Form>
</DCCReference>
<DCCReference Include="fLkUpLocation.pas">
<Form>frmLkUpLocation</Form>
</DCCReference>
<DCCReference Include="fMedCopy.pas">
<Form>frmMedCopy</Form>
</DCCReference>
<DCCReference Include="fMeds.pas">
<Form>frmMeds</Form>
</DCCReference>
<DCCReference Include="fMHTest.pas">
<Form>frmMHTest</Form>
</DCCReference>
<DCCReference Include="fNoteBA.pas">
<Form>frmNotesByAuthor</Form>
</DCCReference>
<DCCReference Include="fNoteBD.pas">
<Form>frmNotesByDate</Form>
</DCCReference>
<DCCReference Include="fNoteCPFields.pas">
<Form>frmNoteCPFields</Form>
</DCCReference>
<DCCReference Include="fNoteCslt.pas">
<Form>frmNoteConsult</Form>
</DCCReference>
<DCCReference Include="fNoteDR.pas">
<Form>frmNoteDelReason</Form>
</DCCReference>
<DCCReference Include="fNoteIDParents.pas">
<Form>frmNoteIDParents</Form>
</DCCReference>
<DCCReference Include="fNoteProps.pas">
<Form>frmNoteProperties</Form>
</DCCReference>
<DCCReference Include="fNotePrt.pas">
<Form>frmNotePrint</Form>
</DCCReference>
<DCCReference Include="fNotes.pas">
<Form>frmNotes</Form>
</DCCReference>
<DCCReference Include="fNotesBP.pas">
<Form>frmNotesBP</Form>
</DCCReference>
<DCCReference Include="fNoteST.pas">
<Form>frmNotesSearchText</Form>
</DCCReference>
<DCCReference Include="fNoteSTStop.pas">
<Form>frmSearchStop</Form>
</DCCReference>
<DCCReference Include="fPage.pas">
<Form>frmPage</Form>
</DCCReference>
<DCCReference Include="fPatientFlagMulti.pas">
<Form>frmFlags</Form>
</DCCReference>
<DCCReference Include="fPostings.pas">
<Form>frmPostings</Form>
</DCCReference>
<DCCReference Include="fPrintList.pas">
<Form>frmPrintList</Form>
</DCCReference>
<DCCReference Include="fPrintLocation.pas">
<Form>frmPrintLocation</Form>
</DCCReference>
<DCCReference Include="fProbCmt.pas">
<Form>frmProbCmt</Form>
</DCCReference>
<DCCReference Include="fProbEdt.pas">
<Form>frmdlgProb</Form>
</DCCReference>
<DCCReference Include="fProbFlt.pas">
<Form>frmPlVuFilt</Form>
</DCCReference>
<DCCReference Include="fProbLex.pas">
<Form>frmPLLex</Form>
</DCCReference>
<DCCReference Include="fProbs.pas">
<Form>frmProblems</Form>
</DCCReference>
<DCCReference Include="fPtCWAD.pas">
<Form>frmPtCWAD</Form>
</DCCReference>
<DCCReference Include="fPtDemo.pas">
<Form>frmPtDemo</Form>
</DCCReference>
<DCCReference Include="fPtSel.pas">
<Form>frmPtSel</Form>
</DCCReference>
<DCCReference Include="fPtSelDemog.pas">
<Form>frmPtSelDemog</Form>
</DCCReference>
<DCCReference Include="fPtSelMsg.pas">
<Form>frmPtSelMsg</Form>
</DCCReference>
<DCCReference Include="fPtSelOptns.pas">
<Form>frmPtSelOptns</Form>
</DCCReference>
<DCCReference Include="fPtSelOptSave.pas">
<Form>frmPtSelOptSave</Form>
</DCCReference>
<DCCReference Include="fPtSens.pas">
<Form>frmPtSens</Form>
</DCCReference>
<DCCReference Include="fRemCoverPreview.pas">
<Form>frmRemCoverPreview</Form>
</DCCReference>
<DCCReference Include="fRemCoverSheet.pas">
<Form>frmRemCoverSheet</Form>
</DCCReference>
<DCCReference Include="fReminderDialog.pas">
<Form>frmRemDlg</Form>
</DCCReference>
<DCCReference Include="fReminderTree.pas">
<Form>frmReminderTree</Form>
</DCCReference>
<DCCReference Include="fRemVisitInfo.pas">
<Form>frmRemVisitInfo</Form>
</DCCReference>
<DCCReference Include="fRename.pas">
<Form>frmRename</Form>
</DCCReference>
<DCCReference Include="fRenewOutMed.pas">
<Form>frmRenewOutMed</Form>
</DCCReference>
<DCCReference Include="fReports.pas">
<Form>frmReports</Form>
</DCCReference>
<DCCReference Include="fReportsAdhocComponent1.pas">
<Form>frmReportsAdhocComponent1</Form>
</DCCReference>
<DCCReference Include="fReportsAdhocSubItem1.pas">
<Form>frmReportsAdhocSubItem1</Form>
</DCCReference>
<DCCReference Include="fReportsPrint.pas">
<Form>frmReportPrt</Form>
</DCCReference>
<DCCReference Include="fReview.pas">
<Form>frmReview</Form>
</DCCReference>
<DCCReference Include="fRptBox.pas">
<Form>frmReportBox</Form>
</DCCReference>
<DCCReference Include="fSignItem.pas">
<Form>frmSignItem</Form>
</DCCReference>
<DCCReference Include="fSplash.pas">
<Form>frmSplash</Form>
</DCCReference>
<DCCReference Include="fSurgery.pas">
<Form>frmSurgery</Form>
</DCCReference>
<DCCReference Include="fSurgeryView.pas">
<Form>frmSurgeryView</Form>
</DCCReference>
<DCCReference Include="fTimeout.pas">
<Form>frmTimeout</Form>
</DCCReference>
<DCCReference Include="fTIUView.pas">
<Form>frmTIUView</Form>
</DCCReference>
<DCCReference Include="fVisit.pas">
<Form>frmVisit</Form>
</DCCReference>
<DCCReference Include="fvit.pas">
<Form>frmVit</Form>
</DCCReference>
<DCCReference Include="fVitals.pas">
<Form>frmVitals</Form>
</DCCReference>
<DCCReference Include="fxBroker.pas">
<Form>frmBroker</Form>
</DCCReference>
<DCCReference Include="fxLists.pas">
<Form>frmDbgList</Form>
</DCCReference>
<DCCReference Include="fxServer.pas">
<Form>frmDbgServer</Form>
</DCCReference>
<DCCReference Include="mCoPayDesc.pas">
<Form>fraCoPayDesc</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="mEvntDelay.pas">
<Form>fraEvntDelayList</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="mImgText.pas">
<Form>fraImgText</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Options\fOptions.pas">
<Form>frmOptions</Form>
</DCCReference>
<DCCReference Include="Options\fOptionsCombinations.pas">
<Form>frmOptionsCombinations</Form>
</DCCReference>
<DCCReference Include="Options\fOptionsDays.pas">
<Form>frmOptionsDays</Form>
</DCCReference>
<DCCReference Include="Options\fOptionsLists.pas">
<Form>frmOptionsLists</Form>
</DCCReference>
<DCCReference Include="Options\fOptionsNewList.pas">
<Form>frmOptionsNewList</Form>
</DCCReference>
<DCCReference Include="Options\fOptionsNotes.pas">
<Form>frmOptionsNotes</Form>
</DCCReference>
<DCCReference Include="Options\fOptionsOther.pas">
<Form>frmOptionsOther</Form>
</DCCReference>
<DCCReference Include="Options\fOptionsPatientSelection.pas">
<Form>frmOptionsPatientSelection</Form>
</DCCReference>
<DCCReference Include="Options\fOptionsPrimaryList.pas">
<Form>frmOptionsPrimaryList</Form>
</DCCReference>
<DCCReference Include="Options\fOptionsReminders.pas">
<Form>frmOptionsReminders</Form>
</DCCReference>
<DCCReference Include="Options\fOptionsReportsCustom.pas">
<Form>frmOptionsReportsCustom</Form>
</DCCReference>
<DCCReference Include="Options\fOptionsReportsDefault.pas">
<Form>frmOptionsReportsDefault</Form>
</DCCReference>
<DCCReference Include="Options\fOptionsSubscribe.pas">
<Form>frmOptionsSubscribe</Form>
</DCCReference>
<DCCReference Include="Options\fOptionsSurrogate.pas">
<Form>frmOptionsSurrogate</Form>
</DCCReference>
<DCCReference Include="Options\fOptionsTeams.pas">
<Form>frmOptionsTeams</Form>
</DCCReference>
<DCCReference Include="Options\fOptionsTitles.pas">
<Form>frmOptionsTitles</Form>
</DCCReference>
<DCCReference Include="Options\rOptions.pas" />
<DCCReference Include="Options\uOptions.pas" />
<DCCReference Include="Orders\fIVRoutes.pas">
<Form>frmIVRoutes</Form>
</DCCReference>
<DCCReference Include="Orders\fOCAccept.pas">
<Form>frmOCAccept</Form>
</DCCReference>
<DCCReference Include="Orders\fOCSession.pas">
<Form>frmOCSession</Form>
</DCCReference>
<DCCReference Include="Orders\fODActive.pas">
<Form>frmODActive</Form>
</DCCReference>
<DCCReference Include="Orders\fODAllgy.pas">
<Form>frmODAllergy</Form>
</DCCReference>
<DCCReference Include="Orders\fODAuto.pas" />
<DCCReference Include="Orders\fODBase.pas">
<Form>frmODBase</Form>
</DCCReference>
<DCCReference Include="Orders\fODBBank.pas">
<Form>frmODBBank</Form>
</DCCReference>
<DCCReference Include="Orders\fODChangeEvtDisp.pas">
<Form>frmChangeEventDisp</Form>
</DCCReference>
<DCCReference Include="Orders\fODChangeUnreleasedRenew.pas">
<Form>frmODChangeUnreleasedRenew</Form>
</DCCReference>
<DCCReference Include="Orders\fODChild.pas">
<Form>frmODChild</Form>
</DCCReference>
<DCCReference Include="Orders\fODDiet.pas">
<Form>frmODDiet</Form>
</DCCReference>
<DCCReference Include="Orders\fODDietLT.pas">
<Form>frmODDietLT</Form>
</DCCReference>
<DCCReference Include="Orders\fODGen.pas">
<Form>frmODGen</Form>
</DCCReference>
<DCCReference Include="Orders\fODLab.pas">
<Form>frmODLab</Form>
</DCCReference>
<DCCReference Include="Orders\fODLabImmedColl.pas">
<Form>frmODLabImmedColl</Form>
</DCCReference>
<DCCReference Include="Orders\fODLabOthCollSamp.pas">
<Form>frmODLabOthCollSamp</Form>
</DCCReference>
<DCCReference Include="Orders\fODLabOthSpec.pas">
<Form>frmODLabOthSpec</Form>
</DCCReference>
<DCCReference Include="Orders\fODMedComplex.pas">
<Form>frmODMedComplex</Form>
</DCCReference>
<DCCReference Include="Orders\fODMedFA.pas">
<Form>frmODMedFA</Form>
</DCCReference>
<DCCReference Include="Orders\fODMedIn.pas">
<Form>frmODMedIn</Form>
</DCCReference>
<DCCReference Include="Orders\fODMedIV.pas">
<Form>frmODMedIV</Form>
</DCCReference>
<DCCReference Include="Orders\fODMedNVA.pas">
<Form>frmODMedNVA</Form>
</DCCReference>
<DCCReference Include="Orders\fODMedOIFA.pas">
<Form>frmODMedOIFA</Form>
</DCCReference>
<DCCReference Include="Orders\fODMedOut.pas">
<Form>frmODMedOut</Form>
</DCCReference>
<DCCReference Include="Orders\fODMeds.pas">
<Form>frmODMeds</Form>
</DCCReference>
<DCCReference Include="Orders\fODMessage.pas">
<Form>frmODMessage</Form>
</DCCReference>
<DCCReference Include="Orders\fODMisc.pas">
<Form>frmODMisc</Form>
</DCCReference>
<DCCReference Include="Orders\fODRad.pas">
<Form>frmODRad</Form>
</DCCReference>
<DCCReference Include="Orders\fODRadApproval.pas">
<Form>frmODRadApproval</Form>
</DCCReference>
<DCCReference Include="Orders\fODRadConShRes.pas">
<Form>frmODRadConShRes</Form>
</DCCReference>
<DCCReference Include="Orders\fODRadImType.pas">
<Form>frmODRadImType</Form>
</DCCReference>
<DCCReference Include="Orders\fODReleaseEvent.pas">
<Form>frmOrdersReleaseEvent</Form>
</DCCReference>
<DCCReference Include="Orders\fODSaveQuick.pas">
<Form>frmODQuick</Form>
</DCCReference>
<DCCReference Include="Orders\fODText.pas">
<Form>frmODText</Form>
</DCCReference>
<DCCReference Include="Orders\fODValidateAction.pas">
<Form>frmInvalidActionList</Form>
</DCCReference>
<DCCReference Include="Orders\fODVitals.pas">
<Form>frmODVitals</Form>
</DCCReference>
<DCCReference Include="Orders\fOMAction.pas">
<Form>frmOMAction</Form>
</DCCReference>
<DCCReference Include="Orders\fOMHTML.pas">
<Form>frmOMHTML</Form>
</DCCReference>
<DCCReference Include="Orders\fOMNavA.pas">
<Form>frmOMNavA</Form>
</DCCReference>
<DCCReference Include="Orders\fOMProgress.pas">
<Form>frmOMProgress</Form>
</DCCReference>
<DCCReference Include="Orders\fOMSet.pas">
<Form>frmOMSet</Form>
</DCCReference>
<DCCReference Include="Orders\fOMVerify.pas">
<Form>frmOMVerify</Form>
</DCCReference>
<DCCReference Include="Orders\fOrderComment.pas">
<Form>frmWardComments</Form>
</DCCReference>
<DCCReference Include="Orders\fOrderFlag.pas">
<Form>frmFlagOrder</Form>
</DCCReference>
<DCCReference Include="Orders\fOrders.pas">
<Form>frmOrders</Form>
</DCCReference>
<DCCReference Include="Orders\fOrdersAlert.pas">
<Form>frmAlertOrders</Form>
</DCCReference>
<DCCReference Include="Orders\fOrderSaveQuick.pas">
<Form>frmSaveQuickOrder</Form>
</DCCReference>
<DCCReference Include="Orders\fOrdersComplete.pas">
<Form>frmCompleteOrders</Form>
</DCCReference>
<DCCReference Include="Orders\fOrdersCopy.pas">
<Form>frmCopyOrders</Form>
</DCCReference>
<DCCReference Include="Orders\fOrdersCV.pas">
<Form>frmChgEvent</Form>
</DCCReference>
<DCCReference Include="Orders\fOrdersDC.pas">
<Form>frmDCOrders</Form>
</DCCReference>
<DCCReference Include="Orders\fOrdersEvntRelease.pas">
<Form>frmOrdersEvntRelease</Form>
</DCCReference>
<DCCReference Include="Orders\fOrdersHold.pas">
<Form>frmHoldOrders</Form>
</DCCReference>
<DCCReference Include="Orders\fOrdersOnChart.pas">
<Form>frmOnChartOrders</Form>
</DCCReference>
<DCCReference Include="Orders\fOrdersPrint.pas">
<Form>frmOrdersPrint</Form>
</DCCReference>
<DCCReference Include="Orders\fOrdersRefill.pas">
<Form>frmRefillOrders</Form>
</DCCReference>
<DCCReference Include="Orders\fOrdersRelease.pas">
<Form>frmReleaseOrders</Form>
</DCCReference>
<DCCReference Include="Orders\fOrdersRenew.pas">
<Form>frmRenewOrders</Form>
</DCCReference>
<DCCReference Include="Orders\fOrdersSign.pas">
<Form>frmSignOrders</Form>
</DCCReference>
<DCCReference Include="Orders\fOrdersTS.pas">
<Form>frmOrdersTS</Form>
</DCCReference>
<DCCReference Include="Orders\fOrdersUnhold.pas">
<Form>frmUnholdOrders</Form>
</DCCReference>
<DCCReference Include="Orders\fOrdersVerify.pas">
<Form>frmVerifyOrders</Form>
</DCCReference>
<DCCReference Include="Orders\fOrderUnflag.pas">
<Form>frmUnflagOrder</Form>
</DCCReference>
<DCCReference Include="Orders\fOrderVw.pas">
<Form>frmOrderView</Form>
</DCCReference>
<DCCReference Include="Orders\fOtherSchedule.pas">
<Form>frmOtherSchedule</Form>
</DCCReference>
<DCCReference Include="Orders\rODAllergy.pas" />
<DCCReference Include="Orders\rODBase.pas" />
<DCCReference Include="Orders\rODDiet.pas" />
<DCCReference Include="Orders\rODLab.pas" />
<DCCReference Include="Orders\rODMeds.pas" />
<DCCReference Include="Orders\rODRad.pas" />
<DCCReference Include="Orders\rOrders.pas" />
<DCCReference Include="Orders\uODBase.pas" />
<DCCReference Include="Orders\uOrders.pas" />
<DCCReference Include="rCore.pas" />
<DCCReference Include="rCover.pas" />
<DCCReference Include="rDCSumm.pas" />
<DCCReference Include="rECS.pas" />
<DCCReference Include="rEventHooks.pas" />
<DCCReference Include="rGraphs.pas" />
<DCCReference Include="rLabs.pas" />
<DCCReference Include="rMeds.pas" />
<DCCReference Include="rMisc.pas" />
<DCCReference Include="rProbs.pas" />
<DCCReference Include="rReminders.pas" />
<DCCReference Include="rReports.pas" />
<DCCReference Include="rSurgery.pas" />
<DCCReference Include="rTIU.pas" />
<DCCReference Include="Templates\fFindingTemplates.pas">
<Form>frmFindingTemplates</Form>
</DCCReference>
<DCCReference Include="Templates\fTemplateAutoGen.pas">
<Form>frmTemplateAutoGen</Form>
</DCCReference>
<DCCReference Include="Templates\fTemplateDialog.pas">
<Form>frmTemplateDialog</Form>
</DCCReference>
<DCCReference Include="Templates\fTemplateEditor.pas">
<Form>frmTemplateEditor</Form>
</DCCReference>
<DCCReference Include="Templates\fTemplateFieldEditor.pas">
<Form>frmTemplateFieldEditor</Form>
</DCCReference>
<DCCReference Include="Templates\fTemplateFields.pas">
<Form>frmTemplateFields</Form>
</DCCReference>
<DCCReference Include="Templates\fTemplateImport.pas">
<Form>frmTemplateImport</Form>
</DCCReference>
<DCCReference Include="Templates\fTemplateObjects.pas">
<Form>frmTemplateObjects</Form>
</DCCReference>
<DCCReference Include="Templates\fTemplateView.pas">
<Form>frmTemplateView</Form>
</DCCReference>
<DCCReference Include="Templates\mTemplateFieldButton.pas">
<Form>fraTemplateFieldButton</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Templates\rTemplates.pas" />
<DCCReference Include="Templates\uTemplateFields.pas" />
<DCCReference Include="Templates\uTemplates.pas" />
<DCCReference Include="uCaseTree.pas" />
<DCCReference Include="uConst.pas" />
<DCCReference Include="uCore.pas" />
<DCCReference Include="uDCSumm.pas" />
<DCCReference Include="uDlgComponents.pas" />
<DCCReference Include="uDocTree.pas" />
<DCCReference Include="uEventHooks.pas" />
<DCCReference Include="uFormMonitor.pas" />
<DCCReference Include="uGraphs.pas" />
<DCCReference Include="uInit.pas" />
<DCCReference Include="uOrPtf.pas" />
<DCCReference Include="uProbs.pas" />
<DCCReference Include="uReminders.pas" />
<DCCReference Include="uReports.pas" />
<DCCReference Include="uSignItems.pas" />
<DCCReference Include="uSpell.pas" />
<DCCReference Include="uSurgery.pas" />
<DCCReference Include="uTIU.pas" />
<DCCReference Include="uVA508CPRSCompatibility.pas" />
<DCCReference Include="VERGENCECONTEXTORLib_TLB.pas" />
<DCCReference Include="Vitals\fVitalsDate.pas">
<Form>frmVitalsDate</Form>
</DCCReference>
<DCCReference Include="Vitals\rVitals.pas" />
<DCCReference Include="Vitals\uVitals.pas" />
<DCCReference Include="XuDigSigSC_TLB.pas" />
</ItemGroup>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
</Project>

2
CPRS-Chart/CPRSChart.dproj.local Normal file
View File

@ -0,0 +1,2 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject/>

858
CPRS-Chart/CPRSChart.drc
View File

@ -1,4 +1,4 @@
/* VER150
/* VER180
Generated by the Borland Delphi Pascal Compiler
because -GD or --drc was supplied to the compiler.
@ -8,343 +8,251 @@
resources were bound to the produced executable.
*/
#define IdResourceStrings_RSStackHOST_NOT_FOUND 65040
#define IdResourceStrings_RSStackENETUNREACH 65056
#define IdResourceStrings_RSStackENETRESET 65057
#define IdResourceStrings_RSStackECONNABORTED 65058
#define IdResourceStrings_RSStackECONNRESET 65059
#define IdResourceStrings_RSStackENOBUFS 65060
#define IdResourceStrings_RSStackEISCONN 65061
#define IdResourceStrings_RSStackENOTCONN 65062
#define IdResourceStrings_RSStackESHUTDOWN 65063
#define IdResourceStrings_RSStackETOOMANYREFS 65064
#define IdResourceStrings_RSStackETIMEDOUT 65065
#define IdResourceStrings_RSStackECONNREFUSED 65066
#define IdResourceStrings_RSStackELOOP 65067
#define IdResourceStrings_RSStackENAMETOOLONG 65068
#define IdResourceStrings_RSStackEHOSTDOWN 65069
#define IdResourceStrings_RSStackEHOSTUNREACH 65070
#define IdResourceStrings_RSStackENOTEMPTY 65071
#define IdResourceStrings_RSStackEWOULDBLOCK 65072
#define IdResourceStrings_RSStackEINPROGRESS 65073
#define IdResourceStrings_RSStackEALREADY 65074
#define IdResourceStrings_RSStackENOTSOCK 65075
#define IdResourceStrings_RSStackEDESTADDRREQ 65076
#define IdResourceStrings_RSStackEMSGSIZE 65077
#define IdResourceStrings_RSStackEPROTOTYPE 65078
#define IdResourceStrings_RSStackENOPROTOOPT 65079
#define IdResourceStrings_RSStackEPROTONOSUPPORT 65080
#define IdResourceStrings_RSStackESOCKTNOSUPPORT 65081
#define IdResourceStrings_RSStackEOPNOTSUPP 65082
#define IdResourceStrings_RSStackEPFNOSUPPORT 65083
#define IdResourceStrings_RSStackEAFNOSUPPORT 65084
#define IdResourceStrings_RSStackEADDRINUSE 65085
#define IdResourceStrings_RSStackEADDRNOTAVAIL 65086
#define IdResourceStrings_RSStackENETDOWN 65087
#define VDBConsts_SPostEdit 65088
#define VDBConsts_SCancelEdit 65089
#define VDBConsts_SRefreshRecord 65090
#define VDBConsts_SRemoteLogin 65091
#define IdResourceStrings_RSWinsockInitializationError 65092
#define IdResourceStrings_RSSetSizeExceeded 65093
#define IdResourceStrings_RSWS2CallError 65094
#define IdResourceStrings_RSWS2LoadError 65095
#define IdResourceStrings_RSInvalidServiceName 65096
#define IdResourceStrings_RSStackError 65097
#define IdResourceStrings_RSStackEINTR 65098
#define IdResourceStrings_RSStackEBADF 65099
#define IdResourceStrings_RSStackEACCES 65100
#define IdResourceStrings_RSStackEFAULT 65101
#define IdResourceStrings_RSStackEINVAL 65102
#define IdResourceStrings_RSStackEMFILE 65103
#define OleConst_SCannotActivate 65104
#define OleConst_SNoWindowHandle 65105
#define OleConst_SInvalidLicense 65106
#define OleConst_SNotLicensed 65107
#define OleConst_sNoRunningObject 65108
#define DBConsts_SBcdOverflow 65109
#define DBConsts_SInvalidBcdValue 65110
#define DBConsts_SCouldNotParseTimeStamp 65111
#define DBConsts_SInvalidSqlTimeStamp 65112
#define VDBConsts_SFirstRecord 65113
#define VDBConsts_SPriorRecord 65114
#define VDBConsts_SNextRecord 65115
#define VDBConsts_SLastRecord 65116
#define VDBConsts_SInsertRecord 65117
#define VDBConsts_SDeleteRecord 65118
#define VDBConsts_SEditRecord 65119
#define TeeConst_TeeMsg_ValuesArrowEndX 65120
#define TeeConst_TeeMsg_ValuesArrowEndY 65121
#define ComConst_SCreateRegKeyError 65122
#define ComConst_SOleError 65123
#define ComConst_SObjectFactoryMissing 65124
#define ComConst_STypeInfoMissing 65125
#define ComConst_SBadTypeInfo 65126
#define ComConst_SDispIntfMissing 65127
#define ComConst_SNoMethod 65128
#define ComConst_SVarNotObject 65129
#define ComConst_STooManyParams 65130
#define ComConst_SDCOMNotInstalled 65131
#define ComConst_SDAXError 65132
#define ComConst_SAutomationWarning 65133
#define ComConst_SNoCloseActiveServer1 65134
#define ComConst_SNoCloseActiveServer2 65135
#define TeeConst_TeeMsg_FunctionDivide 65136
#define TeeConst_TeeMsg_FunctionHigh 65137
#define TeeConst_TeeMsg_FunctionLow 65138
#define TeeConst_TeeMsg_FunctionAverage 65139
#define TeeConst_TeeMsg_DefaultFontName 65140
#define TeeConst_TeeMsg_CheckPointerSize 65141
#define TeeConst_TeeMsg_FunctionPeriod 65142
#define TeeConst_TeeMsg_PieOther 65143
#define TeeConst_TeeMsg_ValuesX 65144
#define TeeConst_TeeMsg_ValuesY 65145
#define TeeConst_TeeMsg_ValuesPie 65146
#define TeeConst_TeeMsg_ValuesBar 65147
#define TeeConst_TeeMsg_ValuesAngle 65148
#define TeeConst_TeeMsg_ValuesGanttStart 65149
#define TeeConst_TeeMsg_ValuesGanttEnd 65150
#define TeeConst_TeeMsg_ValuesGanttNextTask 65151
#define TeeConst_TeeMsg_GalleryArrow 65152
#define TeeConst_TeeMsg_GalleryGantt 65153
#define TeeConst_TeeMsg_GanttSample1 65154
#define TeeConst_TeeMsg_GanttSample2 65155
#define TeeConst_TeeMsg_GanttSample3 65156
#define TeeConst_TeeMsg_GanttSample4 65157
#define TeeConst_TeeMsg_GanttSample5 65158
#define TeeConst_TeeMsg_GanttSample6 65159
#define TeeConst_TeeMsg_GanttSample7 65160
#define TeeConst_TeeMsg_GanttSample8 65161
#define TeeConst_TeeMsg_GanttSample9 65162
#define TeeConst_TeeMsg_GanttSample10 65163
#define TeeConst_TeeMsg_DefaultFontSize 65164
#define TeeConst_TeeMsg_FunctionAdd 65165
#define TeeConst_TeeMsg_FunctionSubtract 65166
#define TeeConst_TeeMsg_FunctionMultiply 65167
#define TeeConst_TeeMsg_GalleryArea 65168
#define TeeConst_TeeMsg_GalleryBar 65169
#define TeeConst_TeeMsg_GalleryHorizBar 65170
#define TeeConst_TeeMsg_GalleryPie 65171
#define TeeConst_TeeMsg_GalleryFastLine 65172
#define TeeConst_TeeMsg_Rotation 65173
#define TeeConst_TeeMsg_PieSample1 65174
#define TeeConst_TeeMsg_PieSample2 65175
#define TeeConst_TeeMsg_PieSample3 65176
#define TeeConst_TeeMsg_PieSample4 65177
#define TeeConst_TeeMsg_PieSample5 65178
#define TeeConst_TeeMsg_PieSample6 65179
#define TeeConst_TeeMsg_PieSample7 65180
#define TeeConst_TeeMsg_PieSample8 65181
#define TeeConst_TeeMsg_GalleryStandard 65182
#define TeeConst_TeeMsg_GalleryFunctions 65183
#define TeeConst_TeeMsg_AxisIncrementNeg 65184
#define TeeConst_TeeMsg_AxisMinMax 65185
#define TeeConst_TeeMsg_AxisMaxMin 65186
#define TeeConst_TeeMsg_AxisLogBase 65187
#define TeeConst_TeeMsg_MaxPointsPerPage 65188
#define TeeConst_TeeMsg_3dPercent 65189
#define TeeConst_TeeMsg_CircularSeries 65190
#define TeeConst_TeeMsg_BarWidthPercent 65191
#define TeeConst_TeeMsg_BarOffsetPercent 65192
#define TeeConst_TeeMsg_DefaultPercentOf 65193
#define TeeConst_TeeMsg_DefPercentFormat 65194
#define TeeConst_TeeMsg_DefValueFormat 65195
#define TeeConst_TeeMsg_AxisTitle 65196
#define TeeConst_TeeMsg_AxisLabels 65197
#define TeeConst_TeeMsg_GalleryLine 65198
#define TeeConst_TeeMsg_GalleryPoint 65199
#define ComStrs_sDateTimeMin 65200
#define ComStrs_sFailSetCalDateTime 65201
#define ComStrs_sFailSetCalMaxSelRange 65202
#define ComStrs_sFailSetCalMinMaxRange 65203
#define ComStrs_sFailsetCalSelRange 65204
#define WinHelpViewer_hNoKeyword 65205
#define TeeConst_TeeMsg_LegendTopPos 65206
#define TeeConst_TeeMsg_LegendFirstValue 65207
#define TeeConst_TeeMsg_LegendColorWidth 65208
#define TeeConst_TeeMsg_SeriesSetDataSource 65209
#define TeeConst_TeeMsg_SeriesInvDataSource 65210
#define TeeConst_TeeMsg_FillSample 65211
#define TeeConst_TeeMsg_Angle 65212
#define TeeConst_TeeMsg_AxisLogDateTime 65213
#define TeeConst_TeeMsg_AxisLogNotPositive 65214
#define TeeConst_TeeMsg_AxisLabelSep 65215
#define ComStrs_sTabFailDelete 65216
#define ComStrs_sTabFailRetrieve 65217
#define ComStrs_sTabFailGetObject 65218
#define ComStrs_sTabFailSet 65219
#define ComStrs_sTabFailSetObject 65220
#define ComStrs_sTabMustBeMultiLine 65221
#define ComStrs_sInvalidIndex 65222
#define ComStrs_sInsertError 65223
#define ComStrs_sInvalidOwner 65224
#define ComStrs_sRichEditInsertError 65225
#define ComStrs_sRichEditLoadFail 65226
#define ComStrs_sRichEditSaveFail 65227
#define ComStrs_sUDAssociated 65228
#define ComStrs_sPageIndexError 65229
#define ComStrs_sInvalidComCtl32 65230
#define ComStrs_sDateTimeMax 65231
#define ExtCtrls_clNameHighlightText 65232
#define ExtCtrls_clNameInactiveBorder 65233
#define ExtCtrls_clNameInactiveCaption 65234
#define ExtCtrls_clNameInactiveCaptionText 65235
#define ExtCtrls_clNameInfoBk 65236
#define ExtCtrls_clNameInfoText 65237
#define ExtCtrls_clNameMenu 65238
#define ExtCtrls_clNameMenuText 65239
#define ExtCtrls_clNameNone 65240
#define ExtCtrls_clNameScrollBar 65241
#define ExtCtrls_clName3DDkShadow 65242
#define ExtCtrls_clName3DLight 65243
#define ExtCtrls_clNameWindow 65244
#define ExtCtrls_clNameWindowFrame 65245
#define ExtCtrls_clNameWindowText 65246
#define ComStrs_sTabFailClear 65247
#define ExtCtrls_clNameMoneyGreen 65248
#define ExtCtrls_clNameSkyBlue 65249
#define ExtCtrls_clNameCream 65250
#define ExtCtrls_clNameMedGray 65251
#define ExtCtrls_clNameActiveBorder 65252
#define ExtCtrls_clNameActiveCaption 65253
#define ExtCtrls_clNameAppWorkSpace 65254
#define ExtCtrls_clNameBackground 65255
#define ExtCtrls_clNameBtnFace 65256
#define ExtCtrls_clNameBtnHighlight 65257
#define ExtCtrls_clNameBtnShadow 65258
#define ExtCtrls_clNameBtnText 65259
#define ExtCtrls_clNameCaptionText 65260
#define ExtCtrls_clNameDefault 65261
#define ExtCtrls_clNameGrayText 65262
#define ExtCtrls_clNameHighlight 65263
#define ExtCtrls_clNameBlack 65264
#define ExtCtrls_clNameMaroon 65265
#define ExtCtrls_clNameGreen 65266
#define ExtCtrls_clNameOlive 65267
#define ExtCtrls_clNameNavy 65268
#define ExtCtrls_clNamePurple 65269
#define ExtCtrls_clNameTeal 65270
#define ExtCtrls_clNameGray 65271
#define ExtCtrls_clNameSilver 65272
#define ExtCtrls_clNameRed 65273
#define ExtCtrls_clNameLime 65274
#define ExtCtrls_clNameYellow 65275
#define ExtCtrls_clNameBlue 65276
#define ExtCtrls_clNameFuchsia 65277
#define ExtCtrls_clNameAqua 65278
#define ExtCtrls_clNameWhite 65279
#define Consts_SNoDefaultPrinter 65280
#define Consts_SDuplicateMenus 65281
#define Consts_SCannotOpenAVI 65282
#define Consts_SDockedCtlNeedsName 65283
#define Consts_SDockTreeRemoveError 65284
#define Consts_SDockZoneNotFound 65285
#define Consts_SDockZoneHasNoCtl 65286
#define Consts_SMultiSelectRequired 65287
#define Consts_SSeparator 65288
#define Consts_SErrorSettingCount 65289
#define Consts_SListBoxMustBeVirtual 65290
#define Consts_SNoGetItemEventHandler 65291
#define HelpIntfs_hNoTableOfContents 65292
#define HelpIntfs_hNothingFound 65293
#define HelpIntfs_hNoContext 65294
#define HelpIntfs_hNoTopics 65295
#define Consts_SmkcLeft 65296
#define Consts_SmkcUp 65297
#define Consts_SmkcRight 65298
#define Consts_SmkcDown 65299
#define Consts_SmkcIns 65300
#define Consts_SmkcDel 65301
#define Consts_SmkcShift 65302
#define Consts_SmkcCtrl 65303
#define Consts_SmkcAlt 65304
#define Consts_SOutOfRange 65305
#define Consts_SInsertLineError 65306
#define Consts_SInvalidClipFmt 65307
#define Consts_SIconToClipboard 65308
#define Consts_SCannotOpenClipboard 65309
#define Consts_SInvalidMemoSize 65310
#define Consts_SInvalidPrinterOp 65311
#define Consts_SMsgDlgHelp 65312
#define Consts_SMsgDlgAbort 65313
#define Consts_SMsgDlgRetry 65314
#define Consts_SMsgDlgIgnore 65315
#define Consts_SMsgDlgAll 65316
#define Consts_SMsgDlgNoToAll 65317
#define Consts_SMsgDlgYesToAll 65318
#define Consts_SmkcBkSp 65319
#define Consts_SmkcTab 65320
#define Consts_SmkcEsc 65321
#define Consts_SmkcEnter 65322
#define Consts_SmkcSpace 65323
#define Consts_SmkcPgUp 65324
#define Consts_SmkcPgDn 65325
#define Consts_SmkcEnd 65326
#define Consts_SmkcHome 65327
#define Consts_SAllButton 65328
#define Consts_SCannotDragForm 65329
#define Consts_SVMetafiles 65330
#define Consts_SVEnhMetafiles 65331
#define Consts_SVIcons 65332
#define Consts_SVBitmaps 65333
#define Consts_SMaskErr 65334
#define Consts_SMaskEditErr 65335
#define Consts_SMsgDlgWarning 65336
#define Consts_SMsgDlgError 65337
#define Consts_SMsgDlgInformation 65338
#define Consts_SMsgDlgConfirm 65339
#define Consts_SMsgDlgYes 65340
#define Consts_SMsgDlgNo 65341
#define Consts_SMsgDlgOK 65342
#define Consts_SMsgDlgCancel 65343
#define Consts_SNotPrinting 65344
#define Consts_SPrinting 65345
#define Consts_SInvalidPrinter 65346
#define Consts_SDeviceOnPort 65347
#define Consts_SGroupIndexTooLow 65348
#define Consts_SNoMDIForm 65349
#define Consts_SControlParentSetToSelf 65350
#define Consts_SOKButton 65351
#define Consts_SCancelButton 65352
#define Consts_SYesButton 65353
#define Consts_SNoButton 65354
#define Consts_SHelpButton 65355
#define Consts_SCloseButton 65356
#define Consts_SIgnoreButton 65357
#define Consts_SRetryButton 65358
#define Consts_SAbortButton 65359
#define Consts_SImageReadFail 65360
#define Consts_SImageWriteFail 65361
#define Consts_SWindowDCError 65362
#define Consts_SWindowClass 65363
#define Consts_SCannotFocus 65364
#define Consts_SParentRequired 65365
#define Consts_SParentGivenNotAParent 65366
#define Consts_SMDIChildNotVisible 65367
#define Consts_SVisibleChanged 65368
#define Consts_SCannotShowModal 65369
#define Consts_SScrollBarRange 65370
#define Consts_SPropertyOutOfRange 65371
#define Consts_SMenuIndexError 65372
#define Consts_SMenuReinserted 65373
#define Consts_SMenuNotFound 65374
#define Consts_SNoTimers 65375
#define VDBConsts_SPostEdit 65136
#define VDBConsts_SCancelEdit 65137
#define VDBConsts_SRefreshRecord 65138
#define VDBConsts_SRemoteLogin 65139
#define fPtSel_StrFPtSel_lstvAlerts_Co 65140
#define OleConst_SCannotActivate 65152
#define OleConst_SNoWindowHandle 65153
#define OleConst_SInvalidLicense 65154
#define OleConst_SNotLicensed 65155
#define OleConst_sNoRunningObject 65156
#define DBConsts_SBcdOverflow 65157
#define DBConsts_SInvalidBcdValue 65158
#define DBConsts_SCouldNotParseTimeStamp 65159
#define DBConsts_SInvalidSqlTimeStamp 65160
#define VDBConsts_SFirstRecord 65161
#define VDBConsts_SPriorRecord 65162
#define VDBConsts_SNextRecord 65163
#define VDBConsts_SLastRecord 65164
#define VDBConsts_SInsertRecord 65165
#define VDBConsts_SDeleteRecord 65166
#define VDBConsts_SEditRecord 65167
#define TeeConst_TeeMsg_PieOther 65168
#define TeeConst_TeeMsg_ValuesX 65169
#define TeeConst_TeeMsg_ValuesY 65170
#define TeeConst_TeeMsg_ValuesPie 65171
#define TeeConst_TeeMsg_ValuesBar 65172
#define TeeConst_TeeMsg_ValuesAngle 65173
#define TeeConst_TeeMsg_ValuesGanttStart 65174
#define TeeConst_TeeMsg_ValuesGanttEnd 65175
#define TeeConst_TeeMsg_ValuesGanttNextTask 65176
#define TeeConst_TeeMsg_ValuesArrowEndX 65177
#define TeeConst_TeeMsg_ValuesArrowEndY 65178
#define ComConst_SOleError 65179
#define ComConst_SNoMethod 65180
#define ComConst_SVarNotObject 65181
#define ComConst_STooManyParams 65182
#define ComConst_SDCOMNotInstalled 65183
#define TeeConst_TeeMsg_GanttSample6 65184
#define TeeConst_TeeMsg_GanttSample7 65185
#define TeeConst_TeeMsg_GanttSample8 65186
#define TeeConst_TeeMsg_GanttSample9 65187
#define TeeConst_TeeMsg_GanttSample10 65188
#define TeeConst_TeeMsg_DefaultFontSize 65189
#define TeeConst_TeeMsg_FunctionAdd 65190
#define TeeConst_TeeMsg_FunctionSubtract 65191
#define TeeConst_TeeMsg_FunctionMultiply 65192
#define TeeConst_TeeMsg_FunctionDivide 65193
#define TeeConst_TeeMsg_FunctionHigh 65194
#define TeeConst_TeeMsg_FunctionLow 65195
#define TeeConst_TeeMsg_FunctionAverage 65196
#define TeeConst_TeeMsg_DefaultFontName 65197
#define TeeConst_TeeMsg_CheckPointerSize 65198
#define TeeConst_TeeMsg_FunctionPeriod 65199
#define TeeConst_TeeMsg_PieSample2 65200
#define TeeConst_TeeMsg_PieSample3 65201
#define TeeConst_TeeMsg_PieSample4 65202
#define TeeConst_TeeMsg_PieSample5 65203
#define TeeConst_TeeMsg_PieSample6 65204
#define TeeConst_TeeMsg_PieSample7 65205
#define TeeConst_TeeMsg_PieSample8 65206
#define TeeConst_TeeMsg_GalleryStandard 65207
#define TeeConst_TeeMsg_GalleryFunctions 65208
#define TeeConst_TeeMsg_GalleryArrow 65209
#define TeeConst_TeeMsg_GalleryGantt 65210
#define TeeConst_TeeMsg_GanttSample1 65211
#define TeeConst_TeeMsg_GanttSample2 65212
#define TeeConst_TeeMsg_GanttSample3 65213
#define TeeConst_TeeMsg_GanttSample4 65214
#define TeeConst_TeeMsg_GanttSample5 65215
#define TeeConst_TeeMsg_BarWidthPercent 65216
#define TeeConst_TeeMsg_BarOffsetPercent 65217
#define TeeConst_TeeMsg_DefaultPercentOf 65218
#define TeeConst_TeeMsg_DefPercentFormat 65219
#define TeeConst_TeeMsg_DefValueFormat 65220
#define TeeConst_TeeMsg_AxisTitle 65221
#define TeeConst_TeeMsg_AxisLabels 65222
#define TeeConst_TeeMsg_GalleryLine 65223
#define TeeConst_TeeMsg_GalleryPoint 65224
#define TeeConst_TeeMsg_GalleryArea 65225
#define TeeConst_TeeMsg_GalleryBar 65226
#define TeeConst_TeeMsg_GalleryHorizBar 65227
#define TeeConst_TeeMsg_GalleryPie 65228
#define TeeConst_TeeMsg_GalleryFastLine 65229
#define TeeConst_TeeMsg_Rotation 65230
#define TeeConst_TeeMsg_PieSample1 65231
#define TeeConst_TeeMsg_LegendFirstValue 65232
#define TeeConst_TeeMsg_LegendColorWidth 65233
#define TeeConst_TeeMsg_SeriesSetDataSource 65234
#define TeeConst_TeeMsg_SeriesInvDataSource 65235
#define TeeConst_TeeMsg_FillSample 65236
#define TeeConst_TeeMsg_Angle 65237
#define TeeConst_TeeMsg_AxisLogDateTime 65238
#define TeeConst_TeeMsg_AxisLogNotPositive 65239
#define TeeConst_TeeMsg_AxisLabelSep 65240
#define TeeConst_TeeMsg_AxisIncrementNeg 65241
#define TeeConst_TeeMsg_AxisMinMax 65242
#define TeeConst_TeeMsg_AxisMaxMin 65243
#define TeeConst_TeeMsg_AxisLogBase 65244
#define TeeConst_TeeMsg_MaxPointsPerPage 65245
#define TeeConst_TeeMsg_3dPercent 65246
#define TeeConst_TeeMsg_CircularSeries 65247
#define ComStrs_sInvalidIndex 65248
#define ComStrs_sInsertError 65249
#define ComStrs_sInvalidOwner 65250
#define ComStrs_sRichEditInsertError 65251
#define ComStrs_sRichEditLoadFail 65252
#define ComStrs_sRichEditSaveFail 65253
#define ComStrs_sUDAssociated 65254
#define ComStrs_sPageIndexError 65255
#define ComStrs_sInvalidComCtl32 65256
#define ComStrs_sDateTimeMax 65257
#define ComStrs_sDateTimeMin 65258
#define ComStrs_sFailSetCalDateTime 65259
#define ComStrs_sFailSetCalMaxSelRange 65260
#define ComStrs_sFailSetCalMinMaxRange 65261
#define ComStrs_sFailsetCalSelRange 65262
#define TeeConst_TeeMsg_LegendTopPos 65263
#define Consts_SListBoxMustBeVirtual 65264
#define Consts_SNoGetItemEventHandler 65265
#define Consts_SANSIEncoding 65266
#define Consts_SASCIIEncoding 65267
#define Consts_SUnicodeEncoding 65268
#define Consts_SBigEndianEncoding 65269
#define Consts_SUTF8Encoding 65270
#define Consts_SUTF7Encoding 65271
#define Consts_SPageControlNotSet 65272
#define ComStrs_sTabFailClear 65273
#define ComStrs_sTabFailDelete 65274
#define ComStrs_sTabFailRetrieve 65275
#define ComStrs_sTabFailGetObject 65276
#define ComStrs_sTabFailSet 65277
#define ComStrs_sTabFailSetObject 65278
#define ComStrs_sTabMustBeMultiLine 65279
#define Consts_SInvalidClipFmt 65280
#define Consts_SIconToClipboard 65281
#define Consts_SCannotOpenClipboard 65282
#define Consts_SInvalidMemoSize 65283
#define Consts_SInvalidPrinterOp 65284
#define Consts_SNoDefaultPrinter 65285
#define Consts_SDuplicateMenus 65286
#define Consts_SCannotOpenAVI 65287
#define Consts_SDockedCtlNeedsName 65288
#define Consts_SDockTreeRemoveError 65289
#define Consts_SDockZoneNotFound 65290
#define Consts_SDockZoneHasNoCtl 65291
#define Consts_SDockZoneVersionConflict 65292
#define Consts_SMultiSelectRequired 65293
#define Consts_SSeparator 65294
#define Consts_SErrorSettingCount 65295
#define Consts_SmkcSpace 65296
#define Consts_SmkcPgUp 65297
#define Consts_SmkcPgDn 65298
#define Consts_SmkcEnd 65299
#define Consts_SmkcHome 65300
#define Consts_SmkcLeft 65301
#define Consts_SmkcUp 65302
#define Consts_SmkcRight 65303
#define Consts_SmkcDown 65304
#define Consts_SmkcIns 65305
#define Consts_SmkcDel 65306
#define Consts_SmkcShift 65307
#define Consts_SmkcCtrl 65308
#define Consts_SmkcAlt 65309
#define Consts_SOutOfRange 65310
#define Consts_SInsertLineError 65311
#define Consts_SMsgDlgConfirm 65312
#define Consts_SMsgDlgYes 65313
#define Consts_SMsgDlgNo 65314
#define Consts_SMsgDlgOK 65315
#define Consts_SMsgDlgCancel 65316
#define Consts_SMsgDlgHelp 65317
#define Consts_SMsgDlgAbort 65318
#define Consts_SMsgDlgRetry 65319
#define Consts_SMsgDlgIgnore 65320
#define Consts_SMsgDlgAll 65321
#define Consts_SMsgDlgNoToAll 65322
#define Consts_SMsgDlgYesToAll 65323
#define Consts_SmkcBkSp 65324
#define Consts_SmkcTab 65325
#define Consts_SmkcEsc 65326
#define Consts_SmkcEnter 65327
#define Consts_SHelpButton 65328
#define Consts_SCloseButton 65329
#define Consts_SIgnoreButton 65330
#define Consts_SRetryButton 65331
#define Consts_SAbortButton 65332
#define Consts_SAllButton 65333
#define Consts_SCannotDragForm 65334
#define Consts_SVMetafiles 65335
#define Consts_SVEnhMetafiles 65336
#define Consts_SVIcons 65337
#define Consts_SVBitmaps 65338
#define Consts_SMaskErr 65339
#define Consts_SMaskEditErr 65340
#define Consts_SMsgDlgWarning 65341
#define Consts_SMsgDlgError 65342
#define Consts_SMsgDlgInformation 65343
#define Consts_SPropertyOutOfRange 65344
#define Consts_SMenuIndexError 65345
#define Consts_SMenuReinserted 65346
#define Consts_SMenuNotFound 65347
#define Consts_SNoTimers 65348
#define Consts_SNotPrinting 65349
#define Consts_SPrinting 65350
#define Consts_SInvalidPrinter 65351
#define Consts_SDeviceOnPort 65352
#define Consts_SGroupIndexTooLow 65353
#define Consts_SNoMDIForm 65354
#define Consts_SControlParentSetToSelf 65355
#define Consts_SOKButton 65356
#define Consts_SCancelButton 65357
#define Consts_SYesButton 65358
#define Consts_SNoButton 65359
#define Consts_SNoCanvasHandle 65360
#define Consts_SInvalidImageSize 65361
#define Consts_SInvalidImageList 65362
#define Consts_SReplaceImage 65363
#define Consts_SImageIndexError 65364
#define Consts_SImageReadFail 65365
#define Consts_SImageWriteFail 65366
#define Consts_SWindowDCError 65367
#define Consts_SWindowClass 65368
#define Consts_SCannotFocus 65369
#define Consts_SParentRequired 65370
#define Consts_SParentGivenNotAParent 65371
#define Consts_SMDIChildNotVisible 65372
#define Consts_SVisibleChanged 65373
#define Consts_SCannotShowModal 65374
#define Consts_SScrollBarRange 65375
#define RTLConsts_SThreadCreateError 65376
#define RTLConsts_SThreadError 65377
#define Consts_SInvalidTabPosition 65378
#define Consts_SInvalidTabStyle 65379
#define Consts_SInvalidBitmap 65380
#define Consts_SInvalidIcon 65381
#define Consts_SInvalidMetafile 65382
#define Consts_SChangeIconSize 65383
#define Consts_SOleGraphic 65384
#define Consts_SUnknownClipboardFormat 65385
#define Consts_SOutOfResources 65386
#define Consts_SNoCanvasHandle 65387
#define Consts_SInvalidImageSize 65388
#define Consts_SInvalidImageList 65389
#define Consts_SReplaceImage 65390
#define Consts_SImageIndexError 65391
#define HelpIntfs_hNoTableOfContents 65378
#define HelpIntfs_hNothingFound 65379
#define HelpIntfs_hNoContext 65380
#define HelpIntfs_hNoContextFound 65381
#define HelpIntfs_hNoTopics 65382
#define Consts_SInvalidTabPosition 65383
#define Consts_SInvalidTabStyle 65384
#define Consts_SInvalidBitmap 65385
#define Consts_SInvalidIcon 65386
#define Consts_SInvalidMetafile 65387
#define Consts_SChangeIconSize 65388
#define Consts_SOleGraphic 65389
#define Consts_SUnknownClipboardFormat 65390
#define Consts_SOutOfResources 65391
#define RTLConsts_SListCapacityError 65392
#define RTLConsts_SListCountError 65393
#define RTLConsts_SListIndexError 65394
@ -491,55 +399,11 @@
#define SysConst_SDivByZero 65535
STRINGTABLE
BEGIN
IdResourceStrings_RSStackHOST_NOT_FOUND, "Host not found."
IdResourceStrings_RSStackENETUNREACH, "Network is unreachable."
IdResourceStrings_RSStackENETRESET, "Net dropped connection or reset."
IdResourceStrings_RSStackECONNABORTED, "Software caused connection abort."
IdResourceStrings_RSStackECONNRESET, "Connection reset by peer."
IdResourceStrings_RSStackENOBUFS, "No buffer space available."
IdResourceStrings_RSStackEISCONN, "Socket is already connected."
IdResourceStrings_RSStackENOTCONN, "Socket is not connected."
IdResourceStrings_RSStackESHUTDOWN, "Cannot send or receive after socket is closed."
IdResourceStrings_RSStackETOOMANYREFS, "Too many references, cannot splice."
IdResourceStrings_RSStackETIMEDOUT, "Connection timed out."
IdResourceStrings_RSStackECONNREFUSED, "Connection refused."
IdResourceStrings_RSStackELOOP, "Too many levels of symbolic links."
IdResourceStrings_RSStackENAMETOOLONG, "File name too long."
IdResourceStrings_RSStackEHOSTDOWN, "Host is down."
IdResourceStrings_RSStackEHOSTUNREACH, "No route to host."
IdResourceStrings_RSStackENOTEMPTY, "Directory not empty"
IdResourceStrings_RSStackEWOULDBLOCK, "Operation would block. "
IdResourceStrings_RSStackEINPROGRESS, "Operation now in progress."
IdResourceStrings_RSStackEALREADY, "Operation already in progress."
IdResourceStrings_RSStackENOTSOCK, "Socket operation on non-socket."
IdResourceStrings_RSStackEDESTADDRREQ, "Destination address required."
IdResourceStrings_RSStackEMSGSIZE, "Message too long."
IdResourceStrings_RSStackEPROTOTYPE, "Protocol wrong type for socket."
IdResourceStrings_RSStackENOPROTOOPT, "Bad protocol option."
IdResourceStrings_RSStackEPROTONOSUPPORT, "Protocol not supported."
IdResourceStrings_RSStackESOCKTNOSUPPORT, "Socket type not supported."
IdResourceStrings_RSStackEOPNOTSUPP, "Operation not supported on socket."
IdResourceStrings_RSStackEPFNOSUPPORT, "Protocol family not supported."
IdResourceStrings_RSStackEAFNOSUPPORT, "Address family not supported by protocol family."
IdResourceStrings_RSStackEADDRINUSE, "Address already in use."
IdResourceStrings_RSStackEADDRNOTAVAIL, "Cannot assign requested address."
IdResourceStrings_RSStackENETDOWN, "Network is down."
VDBConsts_SPostEdit, "Post edit"
VDBConsts_SCancelEdit, "Cancel edit"
VDBConsts_SRefreshRecord, "Refresh data"
VDBConsts_SRemoteLogin, "Remote Login"
IdResourceStrings_RSWinsockInitializationError, "Winsock Initialization Error."
IdResourceStrings_RSSetSizeExceeded, "Set Size Exceeded."
IdResourceStrings_RSWS2CallError, "Error on call Winsock2 library function %s"
IdResourceStrings_RSWS2LoadError, "Error on loading Winsock2 library (%s)"
IdResourceStrings_RSInvalidServiceName, "%s is not a valid service."
IdResourceStrings_RSStackError, "Socket Error # %d\r\n%s"
IdResourceStrings_RSStackEINTR, "Interrupted system call."
IdResourceStrings_RSStackEBADF, "Bad file number."
IdResourceStrings_RSStackEACCES, "Access denied."
IdResourceStrings_RSStackEFAULT, "Bad address."
IdResourceStrings_RSStackEINVAL, "Invalid argument."
IdResourceStrings_RSStackEMFILE, "Too many open files."
fPtSel_StrFPtSel_lstvAlerts_Co, "C^fPtSel.lstvAlerts.Cols"
OleConst_SCannotActivate, "OLE control activation failed"
OleConst_SNoWindowHandle, "Could not obtain OLE control window handle"
OleConst_SInvalidLicense, "License information for %s is invalid"
@ -556,29 +420,6 @@ BEGIN
VDBConsts_SInsertRecord, "Insert record"
VDBConsts_SDeleteRecord, "Delete record"
VDBConsts_SEditRecord, "Edit record"
TeeConst_TeeMsg_ValuesArrowEndX, "EndX"
TeeConst_TeeMsg_ValuesArrowEndY, "EndY"
ComConst_SCreateRegKeyError, "Error creating system registry entry"
ComConst_SOleError, "OLE error %.8x"
ComConst_SObjectFactoryMissing, "Object factory for class %s missing"
ComConst_STypeInfoMissing, "Type information missing for class %s"
ComConst_SBadTypeInfo, "Incorrect type information for class %s"
ComConst_SDispIntfMissing, "Dispatch interface missing from class %s"
ComConst_SNoMethod, "Method '%s' not supported by automation object"
ComConst_SVarNotObject, "Variant does not reference an automation object"
ComConst_STooManyParams, "Dispatch methods do not support more than 64 parameters"
ComConst_SDCOMNotInstalled, "DCOM not installed"
ComConst_SDAXError, "DAX Error"
ComConst_SAutomationWarning, "COM Server Warning"
ComConst_SNoCloseActiveServer1, "There are still active COM objects in this application. One or more clients may have references to these objects, so manually closing "
ComConst_SNoCloseActiveServer2, "this application may cause those client application(s) to fail.\r\n\r\nAre you sure you want to close this application?"
TeeConst_TeeMsg_FunctionDivide, "Divide"
TeeConst_TeeMsg_FunctionHigh, "High"
TeeConst_TeeMsg_FunctionLow, "Low"
TeeConst_TeeMsg_FunctionAverage, "Average"
TeeConst_TeeMsg_DefaultFontName, "Arial"
TeeConst_TeeMsg_CheckPointerSize, "Pointer size must be greater than zero"
TeeConst_TeeMsg_FunctionPeriod, "Function Period should be >= 0"
TeeConst_TeeMsg_PieOther, "Other"
TeeConst_TeeMsg_ValuesX, "X"
TeeConst_TeeMsg_ValuesY, "Y"
@ -588,13 +429,13 @@ BEGIN
TeeConst_TeeMsg_ValuesGanttStart, "Start"
TeeConst_TeeMsg_ValuesGanttEnd, "End"
TeeConst_TeeMsg_ValuesGanttNextTask, "NextTask"
TeeConst_TeeMsg_GalleryArrow, "Arrow"
TeeConst_TeeMsg_GalleryGantt, "Gantt"
TeeConst_TeeMsg_GanttSample1, "Design"
TeeConst_TeeMsg_GanttSample2, "Prototyping"
TeeConst_TeeMsg_GanttSample3, "Development"
TeeConst_TeeMsg_GanttSample4, "Sales"
TeeConst_TeeMsg_GanttSample5, "Marketing"
TeeConst_TeeMsg_ValuesArrowEndX, "EndX"
TeeConst_TeeMsg_ValuesArrowEndY, "EndY"
ComConst_SOleError, "OLE error %.8x"
ComConst_SNoMethod, "Method '%s' not supported by automation object"
ComConst_SVarNotObject, "Variant does not reference an automation object"
ComConst_STooManyParams, "Dispatch methods do not support more than 64 parameters"
ComConst_SDCOMNotInstalled, "DCOM not installed"
TeeConst_TeeMsg_GanttSample6, "Testing"
TeeConst_TeeMsg_GanttSample7, "Manufac."
TeeConst_TeeMsg_GanttSample8, "Debugging"
@ -604,13 +445,13 @@ BEGIN
TeeConst_TeeMsg_FunctionAdd, "Add"
TeeConst_TeeMsg_FunctionSubtract, "Subtract"
TeeConst_TeeMsg_FunctionMultiply, "Multiply"
TeeConst_TeeMsg_GalleryArea, "Area"
TeeConst_TeeMsg_GalleryBar, "Bar"
TeeConst_TeeMsg_GalleryHorizBar, "Horiz. Bar"
TeeConst_TeeMsg_GalleryPie, "Pie"
TeeConst_TeeMsg_GalleryFastLine, "Fast Line"
TeeConst_TeeMsg_Rotation, "Rotation"
TeeConst_TeeMsg_PieSample1, "Cars"
TeeConst_TeeMsg_FunctionDivide, "Divide"
TeeConst_TeeMsg_FunctionHigh, "High"
TeeConst_TeeMsg_FunctionLow, "Low"
TeeConst_TeeMsg_FunctionAverage, "Average"
TeeConst_TeeMsg_DefaultFontName, "Arial"
TeeConst_TeeMsg_CheckPointerSize, "Pointer size must be greater than zero"
TeeConst_TeeMsg_FunctionPeriod, "Function Period should be >= 0"
TeeConst_TeeMsg_PieSample2, "Phones"
TeeConst_TeeMsg_PieSample3, "Tables"
TeeConst_TeeMsg_PieSample4, "Monitors"
@ -620,13 +461,13 @@ BEGIN
TeeConst_TeeMsg_PieSample8, "Chairs"
TeeConst_TeeMsg_GalleryStandard, "Standard"
TeeConst_TeeMsg_GalleryFunctions, "Functions"
TeeConst_TeeMsg_AxisIncrementNeg, "Axis increment must be >= 0"
TeeConst_TeeMsg_AxisMinMax, "Axis Minimum Value must be <= Maximum"
TeeConst_TeeMsg_AxisMaxMin, "Axis Maximum Value must be >= Minimum"
TeeConst_TeeMsg_AxisLogBase, "Axis Logarithmic Base should be >= 2"
TeeConst_TeeMsg_MaxPointsPerPage, "MaxPointsPerPage must be >= 0"
TeeConst_TeeMsg_3dPercent, "3D effect percent must be between %d and %d"
TeeConst_TeeMsg_CircularSeries, "Circular Series dependences are not allowed"
TeeConst_TeeMsg_GalleryArrow, "Arrow"
TeeConst_TeeMsg_GalleryGantt, "Gantt"
TeeConst_TeeMsg_GanttSample1, "Design"
TeeConst_TeeMsg_GanttSample2, "Prototyping"
TeeConst_TeeMsg_GanttSample3, "Development"
TeeConst_TeeMsg_GanttSample4, "Sales"
TeeConst_TeeMsg_GanttSample5, "Marketing"
TeeConst_TeeMsg_BarWidthPercent, "Bar Width Percent must be between 1 and 100"
TeeConst_TeeMsg_BarOffsetPercent, "Bar Offset Percent must be between -100% and 100%"
TeeConst_TeeMsg_DefaultPercentOf, "%s of %s"
@ -636,13 +477,13 @@ BEGIN
TeeConst_TeeMsg_AxisLabels, "Axis Labels"
TeeConst_TeeMsg_GalleryLine, "Line"
TeeConst_TeeMsg_GalleryPoint, "Point"
ComStrs_sDateTimeMin, "Date is less than minimum of %s"
ComStrs_sFailSetCalDateTime, "Failed to set calendar date or time"
ComStrs_sFailSetCalMaxSelRange, "Failed to set maximum selection range"
ComStrs_sFailSetCalMinMaxRange, "Failed to set calendar min/max range"
ComStrs_sFailsetCalSelRange, "Failed to set calendar selected range"
WinHelpViewer_hNoKeyword, "No help keyword specified."
TeeConst_TeeMsg_LegendTopPos, "Top Legend Position must be between 0 and 100 %"
TeeConst_TeeMsg_GalleryArea, "Area"
TeeConst_TeeMsg_GalleryBar, "Bar"
TeeConst_TeeMsg_GalleryHorizBar, "Horiz. Bar"
TeeConst_TeeMsg_GalleryPie, "Pie"
TeeConst_TeeMsg_GalleryFastLine, "Fast Line"
TeeConst_TeeMsg_Rotation, "Rotation"
TeeConst_TeeMsg_PieSample1, "Cars"
TeeConst_TeeMsg_LegendFirstValue, "First Legend Value must be > 0"
TeeConst_TeeMsg_LegendColorWidth, "Legend Color Width must be between 0 and 100 %"
TeeConst_TeeMsg_SeriesSetDataSource, "No ParentChart to validate DataSource"
@ -652,12 +493,13 @@ BEGIN
TeeConst_TeeMsg_AxisLogDateTime, "DateTime Axis cannot be Logarithmic"
TeeConst_TeeMsg_AxisLogNotPositive, "Logarithmic Axis Min and Max values should be >= 0"
TeeConst_TeeMsg_AxisLabelSep, "Labels Separation % must be greater than 0"
ComStrs_sTabFailDelete, "Failed to delete tab at index %d"
ComStrs_sTabFailRetrieve, "Failed to retrieve tab at index %d"
ComStrs_sTabFailGetObject, "Failed to get object at index %d"
ComStrs_sTabFailSet, "Failed to set tab \"%s\" at index %d"
ComStrs_sTabFailSetObject, "Failed to set object at index %d"
ComStrs_sTabMustBeMultiLine, "MultiLine must be True when TabPosition is tpLeft or tpRight"
TeeConst_TeeMsg_AxisIncrementNeg, "Axis increment must be >= 0"
TeeConst_TeeMsg_AxisMinMax, "Axis Minimum Value must be <= Maximum"
TeeConst_TeeMsg_AxisMaxMin, "Axis Maximum Value must be >= Minimum"
TeeConst_TeeMsg_AxisLogBase, "Axis Logarithmic Base should be >= 2"
TeeConst_TeeMsg_MaxPointsPerPage, "MaxPointsPerPage must be >= 0"
TeeConst_TeeMsg_3dPercent, "3D effect percent must be between %d and %d"
TeeConst_TeeMsg_CircularSeries, "Circular Series dependences are not allowed"
ComStrs_sInvalidIndex, "Invalid index"
ComStrs_sInsertError, "Unable to insert an item"
ComStrs_sInvalidOwner, "Invalid owner"
@ -668,54 +510,33 @@ BEGIN
ComStrs_sPageIndexError, "%d is an invalid PageIndex value. PageIndex must be between 0 and %d"
ComStrs_sInvalidComCtl32, "This control requires version 4.70 or greater of COMCTL32.DLL"
ComStrs_sDateTimeMax, "Date exceeds maximum of %s"
ExtCtrls_clNameHighlightText, "Highlight Text"
ExtCtrls_clNameInactiveBorder, "Inactive Border"
ExtCtrls_clNameInactiveCaption, "Inactive Caption"
ExtCtrls_clNameInactiveCaptionText, "Inactive Caption Text"
ExtCtrls_clNameInfoBk, "Info Background"
ExtCtrls_clNameInfoText, "Info Text"
ExtCtrls_clNameMenu, "Menu Background"
ExtCtrls_clNameMenuText, "Menu Text"
ExtCtrls_clNameNone, "None"
ExtCtrls_clNameScrollBar, "Scroll Bar"
ExtCtrls_clName3DDkShadow, "3D Dark Shadow"
ExtCtrls_clName3DLight, "3D Light"
ExtCtrls_clNameWindow, "Window Background"
ExtCtrls_clNameWindowFrame, "Window Frame"
ExtCtrls_clNameWindowText, "Window Text"
ComStrs_sDateTimeMin, "Date is less than minimum of %s"
ComStrs_sFailSetCalDateTime, "Failed to set calendar date or time"
ComStrs_sFailSetCalMaxSelRange, "Failed to set maximum selection range"
ComStrs_sFailSetCalMinMaxRange, "Failed to set calendar min/max range"
ComStrs_sFailsetCalSelRange, "Failed to set calendar selected range"
TeeConst_TeeMsg_LegendTopPos, "Top Legend Position must be between 0 and 100 %"
Consts_SListBoxMustBeVirtual, "Listbox (%s) style must be virtual in order to set Count"
Consts_SNoGetItemEventHandler, "No OnGetItem event handler assigned"
Consts_SANSIEncoding, "ANSI"
Consts_SASCIIEncoding, "ASCII"
Consts_SUnicodeEncoding, "Unicode"
Consts_SBigEndianEncoding, "Big Endian Unicode"
Consts_SUTF8Encoding, "UTF-8"
Consts_SUTF7Encoding, "UTF-7"
Consts_SPageControlNotSet, "PageControl must first be assigned"
ComStrs_sTabFailClear, "Failed to clear tab control"
ExtCtrls_clNameMoneyGreen, "Money Green"
ExtCtrls_clNameSkyBlue, "Sky Blue"
ExtCtrls_clNameCream, "Cream"
ExtCtrls_clNameMedGray, "Medium Gray"
ExtCtrls_clNameActiveBorder, "Active Border"
ExtCtrls_clNameActiveCaption, "Active Caption"
ExtCtrls_clNameAppWorkSpace, "Application Workspace"
ExtCtrls_clNameBackground, "Background"
ExtCtrls_clNameBtnFace, "Button Face"
ExtCtrls_clNameBtnHighlight, "Button Highlight"
ExtCtrls_clNameBtnShadow, "Button Shadow"
ExtCtrls_clNameBtnText, "Button Text"
ExtCtrls_clNameCaptionText, "Caption Text"
ExtCtrls_clNameDefault, "Default"
ExtCtrls_clNameGrayText, "Gray Text"
ExtCtrls_clNameHighlight, "Highlight Background"
ExtCtrls_clNameBlack, "Black"
ExtCtrls_clNameMaroon, "Maroon"
ExtCtrls_clNameGreen, "Green"
ExtCtrls_clNameOlive, "Olive"
ExtCtrls_clNameNavy, "Navy"
ExtCtrls_clNamePurple, "Purple"
ExtCtrls_clNameTeal, "Teal"
ExtCtrls_clNameGray, "Gray"
ExtCtrls_clNameSilver, "Silver"
ExtCtrls_clNameRed, "Red"
ExtCtrls_clNameLime, "Lime"
ExtCtrls_clNameYellow, "Yellow"
ExtCtrls_clNameBlue, "Blue"
ExtCtrls_clNameFuchsia, "Fuchsia"
ExtCtrls_clNameAqua, "Aqua"
ExtCtrls_clNameWhite, "White"
ComStrs_sTabFailDelete, "Failed to delete tab at index %d"
ComStrs_sTabFailRetrieve, "Failed to retrieve tab at index %d"
ComStrs_sTabFailGetObject, "Failed to get object at index %d"
ComStrs_sTabFailSet, "Failed to set tab \"%s\" at index %d"
ComStrs_sTabFailSetObject, "Failed to set object at index %d"
ComStrs_sTabMustBeMultiLine, "MultiLine must be True when TabPosition is tpLeft or tpRight"
Consts_SInvalidClipFmt, "Invalid clipboard format"
Consts_SIconToClipboard, "Clipboard does not support Icons"
Consts_SCannotOpenClipboard, "Cannot open clipboard"
Consts_SInvalidMemoSize, "Text exceeds memo capacity"
Consts_SInvalidPrinterOp, "Operation not supported on selected printer"
Consts_SNoDefaultPrinter, "There is no default printer currently selected"
Consts_SDuplicateMenus, "Menu '%s' is already being used by another form"
Consts_SCannotOpenAVI, "Cannot open AVI"
@ -723,15 +544,15 @@ BEGIN
Consts_SDockTreeRemoveError, "Error removing control from dock tree"
Consts_SDockZoneNotFound, " - Dock zone not found"
Consts_SDockZoneHasNoCtl, " - Dock zone has no control"
Consts_SDockZoneVersionConflict, "Error loading dock zone from the stream. Expecting version %d, but found %d."
Consts_SMultiSelectRequired, "Multiselect mode must be on for this feature"
Consts_SSeparator, "Separator"
Consts_SErrorSettingCount, "Error setting %s.Count"
Consts_SListBoxMustBeVirtual, "Listbox (%s) style must be virtual in order to set Count"
Consts_SNoGetItemEventHandler, "No OnGetItem event handler assigned"
HelpIntfs_hNoTableOfContents, "Unable to find a Table of Contents"
HelpIntfs_hNothingFound, "No help found for %s"
HelpIntfs_hNoContext, "No context-sensitive help installed"
HelpIntfs_hNoTopics, "No topic-based help system installed"
Consts_SmkcSpace, "Space"
Consts_SmkcPgUp, "PgUp"
Consts_SmkcPgDn, "PgDn"
Consts_SmkcEnd, "End"
Consts_SmkcHome, "Home"
Consts_SmkcLeft, "Left"
Consts_SmkcUp, "Up"
Consts_SmkcRight, "Right"
@ -743,11 +564,11 @@ BEGIN
Consts_SmkcAlt, "Alt+"
Consts_SOutOfRange, "Value must be between %d and %d"
Consts_SInsertLineError, "Unable to insert a line"
Consts_SInvalidClipFmt, "Invalid clipboard format"
Consts_SIconToClipboard, "Clipboard does not support Icons"
Consts_SCannotOpenClipboard, "Cannot open clipboard"
Consts_SInvalidMemoSize, "Text exceeds memo capacity"
Consts_SInvalidPrinterOp, "Operation not supported on selected printer"
Consts_SMsgDlgConfirm, "Confirm"
Consts_SMsgDlgYes, "&Yes"
Consts_SMsgDlgNo, "&No"
Consts_SMsgDlgOK, "OK"
Consts_SMsgDlgCancel, "Cancel"
Consts_SMsgDlgHelp, "&Help"
Consts_SMsgDlgAbort, "&Abort"
Consts_SMsgDlgRetry, "&Retry"
@ -759,11 +580,11 @@ BEGIN
Consts_SmkcTab, "Tab"
Consts_SmkcEsc, "Esc"
Consts_SmkcEnter, "Enter"
Consts_SmkcSpace, "Space"
Consts_SmkcPgUp, "PgUp"
Consts_SmkcPgDn, "PgDn"
Consts_SmkcEnd, "End"
Consts_SmkcHome, "Home"
Consts_SHelpButton, "&Help"
Consts_SCloseButton, "&Close"
Consts_SIgnoreButton, "&Ignore"
Consts_SRetryButton, "&Retry"
Consts_SAbortButton, "Abort"
Consts_SAllButton, "&All"
Consts_SCannotDragForm, "Cannot drag a form"
Consts_SVMetafiles, "Metafiles"
@ -775,11 +596,11 @@ BEGIN
Consts_SMsgDlgWarning, "Warning"
Consts_SMsgDlgError, "Error"
Consts_SMsgDlgInformation, "Information"
Consts_SMsgDlgConfirm, "Confirm"
Consts_SMsgDlgYes, "&Yes"
Consts_SMsgDlgNo, "&No"
Consts_SMsgDlgOK, "OK"
Consts_SMsgDlgCancel, "Cancel"
Consts_SPropertyOutOfRange, "%s property out of range"
Consts_SMenuIndexError, "Menu index out of range"
Consts_SMenuReinserted, "Menu inserted twice"
Consts_SMenuNotFound, "Sub-menu is not in menu"
Consts_SNoTimers, "Not enough timers available"
Consts_SNotPrinting, "Printer is not currently printing"
Consts_SPrinting, "Printing in progress"
Consts_SInvalidPrinter, "Printer selected is not valid"
@ -791,11 +612,11 @@ BEGIN
Consts_SCancelButton, "Cancel"
Consts_SYesButton, "&Yes"
Consts_SNoButton, "&No"
Consts_SHelpButton, "&Help"
Consts_SCloseButton, "&Close"
Consts_SIgnoreButton, "&Ignore"
Consts_SRetryButton, "&Retry"
Consts_SAbortButton, "Abort"
Consts_SNoCanvasHandle, "Canvas does not allow drawing"
Consts_SInvalidImageSize, "Invalid image size"
Consts_SInvalidImageList, "Invalid ImageList"
Consts_SReplaceImage, "Unable to Replace Image"
Consts_SImageIndexError, "Invalid ImageList Index"
Consts_SImageReadFail, "Failed to read ImageList data from stream"
Consts_SImageWriteFail, "Failed to write ImageList data to stream"
Consts_SWindowDCError, "Error creating window device context"
@ -807,13 +628,13 @@ BEGIN
Consts_SVisibleChanged, "Cannot change Visible in OnShow or OnHide"
Consts_SCannotShowModal, "Cannot make a visible window modal"
Consts_SScrollBarRange, "Scrollbar property out of range"
Consts_SPropertyOutOfRange, "%s property out of range"
Consts_SMenuIndexError, "Menu index out of range"
Consts_SMenuReinserted, "Menu inserted twice"
Consts_SMenuNotFound, "Sub-menu is not in menu"
Consts_SNoTimers, "Not enough timers available"
RTLConsts_SThreadCreateError, "Thread creation error: %s"
RTLConsts_SThreadError, "Thread Error: %s (%d)"
HelpIntfs_hNoTableOfContents, "Unable to find a Table of Contents"
HelpIntfs_hNothingFound, "No help found for %s"
HelpIntfs_hNoContext, "No context-sensitive help installed"
HelpIntfs_hNoContextFound, "No help found for context"
HelpIntfs_hNoTopics, "No topic-based help system installed"
Consts_SInvalidTabPosition, "Tab position incompatible with current tab style"
Consts_SInvalidTabStyle, "Tab style incompatible with current tab position"
Consts_SInvalidBitmap, "Bitmap image is not valid"
@ -823,11 +644,6 @@ BEGIN
Consts_SOleGraphic, "Invalid operation on TOleGraphic"
Consts_SUnknownClipboardFormat, "Unsupported clipboard format"
Consts_SOutOfResources, "Out of system resources"
Consts_SNoCanvasHandle, "Canvas does not allow drawing"
Consts_SInvalidImageSize, "Invalid image size"
Consts_SInvalidImageList, "Invalid ImageList"
Consts_SReplaceImage, "Unable to Replace Image"
Consts_SImageIndexError, "Invalid ImageList Index"
RTLConsts_SListCapacityError, "List capacity out of bounds (%d)"
RTLConsts_SListCountError, "List count out of bounds (%d)"
RTLConsts_SListIndexError, "List index out of bounds (%d)"

803
CPRS-Chart/CPRSChart.dsk
View File

@ -1,290 +1,440 @@
[Closed Files]
File_0=SourceModule,'C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Lib\ORSystem.pas',0,1,1,1,332,0,0
File_1=SourceModule,'C:\Shared\CPRSfromGeorgeWelch\OR_30_270_SRC_VOE_MODIFIED\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\OR_SRC_CREATION\CPRS-Chart\CPRSChart.dpr',0,1,1,1,1,0,0
File_2=SourceModule,'C:\Shared\CPRSfromGeorgeWelch\OR_30_270_SRC_VOE_MODIFIED\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\OR_SRC_CREATION\CPRS-Chart\fLabs.pas',0,1,1116,59,1127,0,0
File_3=SourceModule,'C:\Shared\CPRSfromGeorgeWelch\OR_30_270_SRC_VOE_MODIFIED\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\OR_SRC_CREATION\CPRS-Chart\fReview.pas',0,1,928,47,939,0,0
File_4=SourceModule,'C:\Shared\CPRSfromGeorgeWelch\OR_30_270_SRC_VOE_MODIFIED\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\OR_SRC_CREATION\CPRS-Chart\rTIU.pas',0,1,1033,28,1044,0,0
File_5=SourceModule,'C:\Shared\CPRSfromGeorgeWelch\OR_30_270_SRC_VOE_MODIFIED\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\OR_SRC_CREATION\CPRS-Chart\fAbout.pas',0,35,56,105,67,0,0
File_6=SourceModule,'C:\Shared\CPRSfromGeorgeWelch\OR_30_270_SRC_VOE_MODIFIED\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\OR_SRC_CREATION\CPRS-Chart\rMisc.pas',0,1,114,26,125,0,0
File_7=SourceModule,'C:\Shared\CPRSfromGeorgeWelch\OR_30_270_SRC_VOE_MODIFIED\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\OR_SRC_CREATION\CPRS-Chart\uSpell.pas',0,1,103,48,114,0,0
File_8=SourceModule,'C:\Shared\CPRSfromGeorgeWelch\OR_30_270_SRC_VOE_MODIFIED\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\OR_SRC_CREATION\CPRS-Chart\uSignItems.pas',0,1,645,37,664,0,0
File_0=TSourceModule,'C:\Vista\cprs\OR_3_243V27\CPRS-chart\fFrame.pas',0,1,3475,6,3476,0,0,,
File_1=TSourceModule,'C:\Program Files\vista\BDK32\Source\wsockc.pas',0,1,1464,1,1485,0,0,,
File_2=TSourceModule,'C:\Vista\cprs\OR_3_243V27\VA\VAUtils.pas',0,1,1390,1,1407,0,0,,
File_3=TSourceModule,'C:\Vista\cprs\OR_3_243V27\CPRS-chart\fReports.pas',0,1,245,1,266,0,0,,
File_4=TSourceModule,'C:\Vista\cprs\OR_3_243V27\VA\VA508Accessibility\VA508AccessibilityManager.pas',0,1,1163,1,1184,0,0,,
File_5=TSourceModule,'C:\Vista\cprs\OR_3_243V27\CPRS-chart\uGraphs.pas',0,1,199,1,220,0,0,,
File_6=TSourceModule,'C:\Vista\cprs\OR_3_243V27\CPRS-chart\VERGENCECONTEXTORLib_TLB.pas',0,1,1104,47,1117,0,0,,
File_7=TSourceModule,'C:\Vista\cprs\OR_3_243V27\CPRS-chart\Orders\fOrdersDC.pas',0,1,98,51,121,0,0,,
File_8=TSourceModule,'c:\program files\borland\bds\4.0\source\Win32\rtl\common\ComObj.pas',0,1,1249,1,1270,0,0,,
File_9=TSourceModule,'C:\Vista\cprs\main\CPRS-Chart\fAutoSz.pas',0,1,1,1,1,0,0,,
[Modules]
Module0=C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Chart\fPtSelOptns.pas
Module1=C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Chart\fPtSel.pas
Module2=C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Chart\fFrame.pas
Module3=C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Chart\VERGENCECONTEXTORLib_TLB.pas
Module4=C:\PROGRA~1\BORLAND\DELPHI7\LIB\BDK32\Source\wsockc.pas
Module5=c:\program files\borland\delphi7\source\rtl\Sys\system.pas
Count=6
Module0=default.htm
Count=1
EditWindowCount=1
TypeLibWindowCount=1
[C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Chart\fPtSelOptns.pas]
ModuleType=SourceModule
FormState=1
FormOnTop=1
[C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Chart\fPtSel.pas]
ModuleType=SourceModule
FormState=1
FormOnTop=1
[C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Chart\fFrame.pas]
ModuleType=SourceModule
FormState=0
FormOnTop=0
[C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Chart\VERGENCECONTEXTORLib_TLB.pas]
ModuleType=SourceModule
FormState=0
FormOnTop=0
[C:\PROGRA~1\BORLAND\DELPHI7\LIB\BDK32\Source\wsockc.pas]
ModuleType=SourceModule
FormState=0
FormOnTop=0
[c:\program files\borland\delphi7\source\rtl\Sys\system.pas]
ModuleType=SourceModule
FormState=0
FormOnTop=0
[C:\Program Files\Borland\Delphi7\Projects\ProjectGroup1.bpg]
FormState=0
FormOnTop=0
[C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Chart\CPRSChart.dpr]
FormState=0
FormOnTop=0
SymbolFile=C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Chart\CPRSChart.dsm
ModSinceCompile=1
[C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Chart\CPRSChart.tlb]
FormState=0
FormOnTop=0
[default.htm]
ModuleType=TURLModule
[EditWindow0]
ViewCount=6
CurrentView=3
ViewCount=1
CurrentView=0
View0=0
View1=1
View2=2
View3=3
View4=4
View5=5
CodeExplorer=CodeExplorer@EditWindow0
MessageView=MessageView@EditWindow0
PercentageSizes=1
Create=1
Visible=1
Docked=0
State=0
Left=35
Top=116
Width=957
Height=594
MaxLeft=-1
MaxTop=-1
ClientWidth=949
ClientHeight=560
Left=3154
Top=1192
Width=6797
Height=8767
MaxLeft=0
MaxTop=0
ClientWidth=6719
ClientHeight=8306
DockedToMainForm=0
MessageView=MessageView@EditWindow0
BorlandEditorCodeExplorer=BorlandEditorCodeExplorer@EditWindow0
TopPanelSize=0
LeftPanelSize=0
LeftPanelClients=BorlandEditorCodeExplorer@EditWindow0
LeftPanelData=0000080001000100000019000000426F726C616E64456469746F72436F64654578706C6F726572B70C00000000000000E201000000000000FFFFFFFF
RightPanelSize=0
BottomPanelSize=0
BottomPanelClients=MessageView@EditWindow0
BottomPanelData=000008000100010000000B0000004D657373616765566965770000000000000000000000000000000000FFFFFFFF
BottomMiddlePanelSize=0
BottomMiddlePanelClients=DockSite1
BottomMiddelPanelData=0000080001000100000009000000446F636B53697465310000000000000000000000000000000000FFFFFFFF
[View0]
Module=c:\program files\borland\delphi7\source\rtl\Sys\system.pas
CursorX=1
CursorY=11674
TopLine=11660
LeftCol=1
[View1]
Module=C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Chart\fPtSel.pas
CursorX=80
CursorY=1310
TopLine=1291
LeftCol=1
[View2]
Module=C:\PROGRA~1\BORLAND\DELPHI7\LIB\BDK32\Source\wsockc.pas
CursorX=1
CursorY=1479
TopLine=1465
LeftCol=1
[View3]
Module=C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Chart\fPtSelOptns.pas
CursorX=1
CursorY=202
TopLine=185
LeftCol=1
[View4]
Module=C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Chart\VERGENCECONTEXTORLib_TLB.pas
CursorX=1
CursorY=1145
TopLine=1134
LeftCol=1
[View5]
Module=C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Chart\fFrame.pas
CursorX=10
CursorY=624
TopLine=610
LeftCol=1
CustomEditViewType=TWelcomePageView
WelcomePageURL=bds:/default.htm
[TypeLibEditWindow0]
Create=1
Visible=0
State=0
Left=200
Top=110
Width=639
Height=453
MaxLeft=-1
MaxTop=-1
ClientWidth=631
ClientHeight=419
Module=C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Chart\CPRSChart.tlb
Module=P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\CPRS-chart\CPRSChart.tlb
[Watches]
Count=1
Watch0='paramstr(2)',256,0,18,1,1,'Watches'
Count=0
[WatchWindow]
WatchColumnWidth=100
WatchColumnWidth=120
WatchShowColumnHeaders=1
PercentageSizes=1
Create=1
Visible=0
Docked=0
State=0
Left=4
Top=410
Width=739
Height=172
MaxLeft=-1
MaxTop=-1
ClientWidth=731
ClientHeight=146
TBDockHeight=146
LRDockWidth=426
Left=1738
Top=1423
Width=2627
Height=2344
MaxLeft=-10
MaxTop=-14
ClientWidth=2549
ClientHeight=1992
TBDockHeight=163
LRDockWidth=2549
Dockable=1
StayOnTop=0
[Breakpoints]
Count=0
Count=1
Breakpoint0='C:\Vista\cprs\OR_3_243V27\CPRS-chart\fGraphs.pas',462,'',0,1,'',1,0,0,'',1,'','','',0
[AddressBreakpoints]
Count=0
[Main Window]
PercentageSizes=1
Create=1
Visible=1
Docked=0
State=0
Left=0
Top=0
Width=1024
Height=112
MaxLeft=-1
MaxTop=-1
ClientWidth=1016
ClientHeight=78
Width=10000
Height=1165
MaxLeft=-10
MaxTop=-14
ClientWidth=9922
ClientHeight=705
BottomPanelSize=0
[ProjectManager]
Create=1
Visible=0
State=0
Left=-43
Top=189
Width=1036
Height=462
MaxLeft=-1
MaxTop=-1
ClientWidth=1028
ClientHeight=436
TBDockHeight=489
LRDockWidth=719
Dockable=1
[Components]
Left=240
Top=237
Width=183
Height=235
Create=1
Visible=0
State=0
MaxLeft=-1
MaxTop=-1
ClientWidth=175
ClientHeight=209
TBDockHeight=235
LRDockWidth=183
Dockable=1
[CPUWindow]
Create=1
Visible=0
State=0
Left=166
Top=114
Width=634
Height=565
MaxLeft=-1
MaxTop=-1
ClientWidth=626
ClientHeight=531
DumpPane=79
DisassemblyPane=187
RegisterPane=231
FlagPane=64
[AlignmentPalette]
Create=1
Visible=0
State=0
Left=200
Top=114
Width=156
Height=84
MaxLeft=-1
MaxTop=-1
ClientWidth=150
ClientHeight=60
[PropertyInspector]
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=394
Width=246
Height=335
Top=0
Width=1289
Height=2358
MaxLeft=-1
MaxTop=-1
ClientWidth=238
ClientHeight=309
TBDockHeight=367
LRDockWidth=190
ClientWidth=1289
ClientHeight=2358
TBDockHeight=271
LRDockWidth=3730
Dockable=1
SplitPos=85
ArrangeBy=Name
SelectedItem=Visible
ExpandedItems=
HiddenCategories=
StayOnTop=0
[BreakpointWindow]
[ToolForm]
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=2920
Height=7696
MaxLeft=-1
MaxTop=-1
ClientWidth=2920
ClientHeight=7696
TBDockHeight=5813
LRDockWidth=1406
Dockable=1
StayOnTop=0
[DebugLogView]
PercentageSizes=1
Create=1
Visible=0
Docked=0
State=0
Left=143
Top=285
Width=737
Height=197
Left=68
Top=8198
Width=3623
Height=3360
MaxLeft=-10
MaxTop=-14
ClientWidth=3545
ClientHeight=3008
TBDockHeight=298
LRDockWidth=3623
Dockable=1
StayOnTop=0
[ThreadStatusWindow]
PercentageSizes=1
Create=1
Visible=0
Docked=0
State=0
Left=68
Top=8198
Width=5420
Height=1762
MaxLeft=-10
MaxTop=-14
ClientWidth=5342
ClientHeight=1409
TBDockHeight=149
LRDockWidth=5420
Dockable=1
StayOnTop=0
Column0Width=145
Column1Width=100
Column2Width=115
Column3Width=250
[LocalVarsWindow]
PercentageSizes=1
Create=1
Visible=0
Docked=0
State=0
Left=1738
Top=1423
Width=2627
Height=2412
MaxLeft=-10
MaxTop=-14
ClientWidth=2549
ClientHeight=2060
TBDockHeight=203
LRDockWidth=2549
Dockable=1
StayOnTop=0
[CallStackWindow]
PercentageSizes=1
Create=1
Visible=0
Docked=0
State=0
Left=117
Top=1558
Width=2627
Height=2344
MaxLeft=-10
MaxTop=-14
ClientWidth=2549
ClientHeight=1992
TBDockHeight=163
LRDockWidth=2549
Dockable=1
StayOnTop=0
[FindReferencsForm]
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=4307
Height=1396
MaxLeft=-1
MaxTop=-1
ClientWidth=729
ClientHeight=171
TBDockHeight=197
LRDockWidth=737
ClientWidth=4307
ClientHeight=1396
TBDockHeight=5081
LRDockWidth=5303
Dockable=1
StayOnTop=0
[RefactoringForm]
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=4307
Height=1396
MaxLeft=-1
MaxTop=-1
ClientWidth=4307
ClientHeight=1396
TBDockHeight=3835
LRDockWidth=5303
Dockable=1
StayOnTop=0
[TemplateView]
PercentageSizes=1
Create=1
Visible=0
Docked=0
State=0
Left=0
Top=0
Width=4297
Height=5827
MaxLeft=-10
MaxTop=-14
ClientWidth=4219
ClientHeight=5474
TBDockHeight=5827
LRDockWidth=4297
Dockable=1
StayOnTop=0
Name=60
Description=308
filter=1
[DataExplorer]
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=1289
Height=2358
MaxLeft=-1
MaxTop=-1
ClientWidth=1289
ClientHeight=2358
TBDockHeight=4878
LRDockWidth=7148
Dockable=1
StayOnTop=0
[MetricsView]
PercentageSizes=1
Create=1
Visible=0
Docked=1
State=0
Left=-183
Top=-748
Width=5303
Height=3835
MaxLeft=-1
MaxTop=-1
ClientWidth=5303
ClientHeight=3835
TBDockHeight=3835
LRDockWidth=5303
Dockable=1
StayOnTop=0
[QAView]
PercentageSizes=1
Create=1
Visible=0
Docked=1
State=0
Left=-183
Top=-748
Width=5303
Height=3835
MaxLeft=-1
MaxTop=-1
ClientWidth=5303
ClientHeight=3835
TBDockHeight=3835
LRDockWidth=5303
Dockable=1
StayOnTop=0
[RefactoringsView]
PercentageSizes=1
Create=1
Visible=0
Docked=1
State=0
Left=-183
Top=-748
Width=5303
Height=3835
MaxLeft=-1
MaxTop=-1
ClientWidth=5303
ClientHeight=3835
TBDockHeight=3835
LRDockWidth=5303
Dockable=1
StayOnTop=0
[UsagesView]
PercentageSizes=1
Create=1
Visible=0
Docked=1
State=0
Left=-183
Top=-748
Width=5303
Height=3835
MaxLeft=-1
MaxTop=-1
ClientWidth=5303
ClientHeight=3835
TBDockHeight=3835
LRDockWidth=5303
Dockable=1
StayOnTop=0
[ModelViewTool]
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=1289
Height=2358
MaxLeft=-1
MaxTop=-1
ClientWidth=1289
ClientHeight=2358
TBDockHeight=4878
LRDockWidth=5303
Dockable=1
StayOnTop=0
[PropertyInspector]
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=2920
Height=7696
MaxLeft=-1
MaxTop=-1
ClientWidth=2920
ClientHeight=7696
TBDockHeight=5813
LRDockWidth=1543
Dockable=1
StayOnTop=0
SplitPos=73
[BreakpointWindow]
PercentageSizes=1
Create=1
Visible=0
Docked=0
State=0
Left=88
Top=7453
Width=6396
Height=2276
MaxLeft=-10
MaxTop=-14
ClientWidth=6318
ClientHeight=1924
TBDockHeight=203
LRDockWidth=6396
Dockable=1
StayOnTop=0
Column0Width=100
Column1Width=75
Column2Width=200
@ -292,106 +442,151 @@ Column3Width=200
Column4Width=75
Column5Width=75
[CallStackWindow]
[StructureView]
PercentageSizes=1
Create=1
Visible=0
State=0
Left=282
Top=543
Width=469
Height=294
MaxLeft=-1
MaxTop=-1
ClientWidth=461
ClientHeight=268
TBDockHeight=294
LRDockWidth=469
Dockable=1
[ObjectTree]
Create=1
Visible=1
Docked=0
State=0
Left=0
Top=114
Width=250
Height=274
MaxLeft=-1
MaxTop=-1
ClientWidth=242
ClientHeight=248
TBDockHeight=248
LRDockWidth=190
Top=1192
Width=1670
Height=3469
MaxLeft=-10
MaxTop=-14
ClientWidth=1592
ClientHeight=3117
TBDockHeight=3469
LRDockWidth=1670
Dockable=1
StayOnTop=0
[DebugLogView]
[frmCaliberMain]
PercentageSizes=1
Create=1
Visible=0
Docked=0
State=0
Left=431
Top=254
Width=417
Height=291
MaxLeft=-1
MaxTop=-1
ClientWidth=409
ClientHeight=265
TBDockHeight=291
LRDockWidth=417
Dockable=1
[CodeExplorer@EditWindow0]
Create=1
Visible=1
State=0
Left=0
Top=0
Width=1008
Height=419
MaxLeft=-1
MaxTop=-1
ClientWidth=1008
ClientHeight=419
TBDockHeight=305
LRDockWidth=140
Left=78
Top=7656
Width=9863
Height=2209
MaxLeft=-10
MaxTop=-14
ClientWidth=9785
ClientHeight=1856
TBDockHeight=1098
LRDockWidth=1504
Dockable=1
StayOnTop=0
[MessageView@EditWindow0]
PercentageSizes=1
Create=1
Visible=0
Docked=1
State=0
Left=0
Top=0
Width=1008
Height=419
Left=-179
Top=-726
Width=2773
Height=1152
MaxLeft=-1
MaxTop=-1
ClientWidth=1008
ClientHeight=419
TBDockHeight=85
LRDockWidth=443
ClientWidth=2773
ClientHeight=1152
TBDockHeight=1152
LRDockWidth=2773
Dockable=1
StayOnTop=0
[BorlandEditorCodeExplorer@EditWindow0]
PercentageSizes=1
Create=1
Visible=0
Docked=1
State=0
Left=-179
Top=-113
Width=1465
Height=8266
MaxLeft=-1
MaxTop=-1
ClientWidth=1465
ClientHeight=8266
TBDockHeight=8266
LRDockWidth=1465
Dockable=1
StayOnTop=0
[DockHosts]
DockHostCount=1
DockHostCount=3
[DockSite0]
DockSiteType=1
PercentageSizes=1
Create=1
Visible=1
Docked=0
State=0
Left=-10
Top=1369
Width=3076
Height=8523
MaxLeft=-10
MaxTop=-14
ClientWidth=2998
ClientHeight=8171
TBDockHeight=8523
LRDockWidth=3076
Dockable=1
StayOnTop=0
TabPosition=0
ActiveTabID=ToolForm
TabDockClients=PropertyInspector,ToolForm
[DockSite1]
DockSiteType=1
PercentageSizes=1
Create=1
Visible=0
Docked=1
State=0
Left=4
Top=195
Width=1024
Height=474
Left=-179
Top=-726
Width=4385
Height=1870
MaxLeft=-1
MaxTop=-1
ClientWidth=1016
ClientHeight=448
TBDockHeight=474
LRDockWidth=283
ClientWidth=4385
ClientHeight=1870
TBDockHeight=1870
LRDockWidth=4385
Dockable=1
TabPosition=0
ActiveTab=Exploring fPtSelOptns.pas
TabDockClients=CodeExplorer@EditWindow0,MessageView@EditWindow0
StayOnTop=0
TabPosition=1
ActiveTabID=RefactoringForm
TabDockClients=RefactoringForm,FindReferencsForm,UsagesView,RefactoringsView,QAView,MetricsView
[DockSite2]
DockSiteType=1
PercentageSizes=1
Create=1
Visible=0
Docked=0
State=0
Left=8516
Top=1125
Width=1445
Height=3184
MaxLeft=-10
MaxTop=-14
ClientWidth=1367
ClientHeight=2832
TBDockHeight=3184
LRDockWidth=1445
Dockable=1
StayOnTop=0
TabPosition=1
ActiveTabID=ProjectManager
TabDockClients=ProjectManager,ModelViewTool,DataExplorer

BIN
CPRS-Chart/CPRSChart.exe
View File

Binary file not shown.

BIN
CPRS-Chart/CPRSChart.identcache Normal file
View File

Binary file not shown.

144939
CPRS-Chart/CPRSChart.map
View File

File diff suppressed because it is too large Load Diff

BIN
CPRS-Chart/CPRSChart.res
View File

Binary file not shown.

BIN
CPRS-Chart/CPRSChart.tlb
View File

Binary file not shown.

679
CPRS-Chart/CPRSChart.~dsk Normal file
View File

@ -0,0 +1,679 @@
[Closed Files]
File_0=TSourceModule,'C:\Vista\cprs\OR_3_243V27\CPRS-chart\fFrame.pas',0,1,3475,6,3476,0,0,,
File_1=TSourceModule,'C:\Program Files\vista\BDK32\Source\wsockc.pas',0,1,1464,1,1485,0,0,,
File_2=TSourceModule,'C:\Vista\cprs\OR_3_243V27\VA\VAUtils.pas',0,1,1390,1,1407,0,0,,
File_3=TSourceModule,'C:\Vista\cprs\OR_3_243V27\CPRS-chart\fReports.pas',0,1,245,1,266,0,0,,
File_4=TSourceModule,'C:\Vista\cprs\OR_3_243V27\VA\VA508Accessibility\VA508AccessibilityManager.pas',0,1,1163,1,1184,0,0,,
File_5=TSourceModule,'C:\Vista\cprs\OR_3_243V27\CPRS-chart\uGraphs.pas',0,1,199,1,220,0,0,,
File_6=TSourceModule,'C:\Vista\cprs\OR_3_243V27\CPRS-chart\VERGENCECONTEXTORLib_TLB.pas',0,1,1104,47,1117,0,0,,
File_7=TSourceModule,'C:\Vista\cprs\OR_3_243V27\CPRS-chart\Orders\fOrdersDC.pas',0,1,98,51,121,0,0,,
File_8=TSourceModule,'c:\program files\borland\bds\4.0\source\Win32\rtl\common\ComObj.pas',0,1,1249,1,1270,0,0,,
File_9=TSourceModule,'C:\Vista\cprs\main\CPRS-Chart\fAutoSz.pas',0,1,1,1,1,0,0,,
[Modules]
Module0=C:\Vista\cprs\OR_3_243V27\VA\VAClasses.pas
Module1=default.htm
Module2=C:\Vista\cprs\OR_3_243V27\CPRS-chart\CPRSChart.bdsproj
Module3=C:\Vista\cprs\OR_3_243V27\CPRS-chart\uInit.pas
Module4=C:\Vista\cprs\OR_3_243V27\CPRS-Lib\ORNet.pas
Module5=C:\Vista\cprs\OR_3_243V27\CPRS-chart\Templates\fFindingTemplates.pas
Module6=C:\Vista\cprs\OR_3_243V27\CPRS-chart\fGraphs.pas
Count=7
EditWindowCount=1
TypeLibWindowCount=1
[C:\Vista\cprs\OR_3_243V27\VA\VAClasses.pas]
ModuleType=TSourceModule
FormState=0
FormOnTop=0
[default.htm]
ModuleType=TURLModule
[C:\Vista\cprs\OR_3_243V27\CPRS-chart\CPRSChart.bdsproj]
ModuleType=TBaseProject
[C:\Vista\cprs\OR_3_243V27\CPRS-chart\uInit.pas]
ModuleType=TSourceModule
FormState=0
FormOnTop=0
[C:\Vista\cprs\OR_3_243V27\CPRS-Lib\ORNet.pas]
ModuleType=TSourceModule
FormState=0
FormOnTop=0
[C:\Vista\cprs\OR_3_243V27\CPRS-chart\Templates\fFindingTemplates.pas]
ModuleType=TSourceModule
FormState=0
FormOnTop=0
[C:\Vista\cprs\OR_3_243V27\CPRS-chart\fGraphs.pas]
ModuleType=TSourceModule
FormState=0
FormOnTop=0
[C:\Vista\cprs\OR_3_243V27\CPRS-chart\fBase508Form.pas]
FormState=0
FormOnTop=0
[EditWindow0]
ViewCount=7
CurrentEditView=C:\Vista\cprs\OR_3_243V27\VA\VAClasses.pas
View0=0
View1=1
View2=2
View3=3
View4=4
View5=5
View6=6
PercentageSizes=1
Create=1
Visible=1
Docked=0
State=0
Left=1709
Top=1131
Width=6797
Height=8760
MaxLeft=0
MaxTop=0
ClientWidth=6719
ClientHeight=8297
DockedToMainForm=0
MessageView=MessageView@EditWindow0
BorlandEditorCodeExplorer=BorlandEditorCodeExplorer@EditWindow0
TopPanelSize=0
LeftPanelSize=0
LeftPanelClients=BorlandEditorCodeExplorer@EditWindow0
LeftPanelData=0000080001000100000019000000426F726C616E64456469746F72436F64654578706C6F726572B70C00000000000000E201000000000000FFFFFFFF
RightPanelSize=0
BottomPanelSize=2552
BottomPanelClients=MessageView@EditWindow0
BottomPanelData=0000080001000000000000000000000000000000000000000000000100000000000000000B0000004D65737361676556696577FFFFFFFF
BottomMiddlePanelSize=0
BottomMiddlePanelClients=DockSite0
BottomMiddelPanelData=0000080001000100000009000000446F636B53697465300000000000000000000000000000000000FFFFFFFF
[View0]
CustomEditViewType=TWelcomePageView
WelcomePageURL=bds:/default.htm
[View1]
CustomEditViewType=TEditView
Module=C:\Vista\cprs\OR_3_243V27\CPRS-chart\uInit.pas
CursorX=27
CursorY=23
TopLine=11
LeftCol=1
Elisions=
Bookmarks=
EditViewName=C:\Vista\cprs\OR_3_243V27\CPRS-chart\uInit.pas
[View2]
CustomEditViewType=TEditView
Module=C:\Vista\cprs\OR_3_243V27\CPRS-chart\CPRSChart.dpr
CursorX=6
CursorY=322
TopLine=298
LeftCol=1
Elisions=
Bookmarks=
EditViewName=C:\Vista\cprs\OR_3_243V27\CPRS-chart\CPRSChart.dpr
[View3]
CustomEditViewType=TEditView
Module=C:\Vista\cprs\OR_3_243V27\CPRS-chart\fGraphs.pas
CursorX=1
CursorY=1661
TopLine=1640
LeftCol=1
Elisions=
Bookmarks=
EditViewName=C:\Vista\cprs\OR_3_243V27\CPRS-chart\fGraphs.pas
[View4]
CustomEditViewType=TEditView
Module=C:\Vista\cprs\OR_3_243V27\VA\VAClasses.pas
CursorX=1
CursorY=314
TopLine=297
LeftCol=1
Elisions=
Bookmarks=
EditViewName=C:\Vista\cprs\OR_3_243V27\VA\VAClasses.pas
[View5]
CustomEditViewType=TEditView
Module=C:\Vista\cprs\OR_3_243V27\CPRS-chart\Templates\fFindingTemplates.pas
CursorX=27
CursorY=133
TopLine=119
LeftCol=1
Elisions=
Bookmarks=
EditViewName=C:\Vista\cprs\OR_3_243V27\CPRS-chart\Templates\fFindingTemplates.pas
[View6]
CustomEditViewType=TEditView
Module=C:\Vista\cprs\OR_3_243V27\CPRS-Lib\ORNet.pas
CursorX=51
CursorY=377
TopLine=367
LeftCol=1
Elisions=
Bookmarks=
EditViewName=C:\Vista\cprs\OR_3_243V27\CPRS-Lib\ORNet.pas
[TypeLibEditWindow0]
Module=C:\Vista\cprs\OR_3_243V27\CPRS-chart\CPRSChart.tlb
[Watches]
Count=0
[WatchWindow]
WatchColumnWidth=120
WatchShowColumnHeaders=1
PercentageSizes=1
Create=1
Visible=0
Docked=0
State=0
Left=1738
Top=1417
Width=2627
Height=2343
MaxLeft=-10
MaxTop=-14
ClientWidth=2549
ClientHeight=1989
TBDockHeight=163
LRDockWidth=2549
Dockable=1
StayOnTop=0
[Breakpoints]
Count=1
Breakpoint0='C:\Vista\cprs\OR_3_243V27\CPRS-chart\fGraphs.pas',462,'',0,1,'',1,0,0,'',1,'','','',0
[AddressBreakpoints]
Count=0
[Main Window]
PercentageSizes=1
Create=1
Visible=1
Docked=0
State=0
Left=0
Top=0
Width=10000
Height=1172
MaxLeft=-10
MaxTop=-14
ClientWidth=9922
ClientHeight=708
BottomPanelSize=0
[ProjectManager]
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=1289
Height=2357
MaxLeft=-1
MaxTop=-1
ClientWidth=1289
ClientHeight=2357
TBDockHeight=272
LRDockWidth=3730
Dockable=1
StayOnTop=0
[ToolForm]
PercentageSizes=1
Create=1
Visible=1
Docked=0
State=0
Left=8506
Top=4292
Width=1475
Height=5613
MaxLeft=-10
MaxTop=-14
ClientWidth=1396
ClientHeight=5259
TBDockHeight=5817
LRDockWidth=1406
Dockable=1
StayOnTop=0
[DebugLogView]
PercentageSizes=1
Create=1
Visible=0
Docked=0
State=0
Left=68
Top=8202
Width=3623
Height=3365
MaxLeft=-10
MaxTop=-14
ClientWidth=3545
ClientHeight=3011
TBDockHeight=300
LRDockWidth=3623
Dockable=1
StayOnTop=0
[ThreadStatusWindow]
PercentageSizes=1
Create=1
Visible=0
Docked=0
State=0
Left=68
Top=8202
Width=5420
Height=1757
MaxLeft=-10
MaxTop=-14
ClientWidth=5342
ClientHeight=1403
TBDockHeight=150
LRDockWidth=5420
Dockable=1
StayOnTop=0
Column0Width=145
Column1Width=100
Column2Width=115
Column3Width=250
[LocalVarsWindow]
PercentageSizes=1
Create=1
Visible=0
Docked=0
State=0
Left=1738
Top=1417
Width=2627
Height=2411
MaxLeft=-10
MaxTop=-14
ClientWidth=2549
ClientHeight=2057
TBDockHeight=204
LRDockWidth=2549
Dockable=1
StayOnTop=0
[CallStackWindow]
PercentageSizes=1
Create=1
Visible=0
Docked=0
State=0
Left=117
Top=1553
Width=2627
Height=2343
MaxLeft=-10
MaxTop=-14
ClientWidth=2549
ClientHeight=1989
TBDockHeight=163
LRDockWidth=2549
Dockable=1
StayOnTop=0
[FindReferencsForm]
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=4307
Height=1390
MaxLeft=-1
MaxTop=-1
ClientWidth=4307
ClientHeight=1390
TBDockHeight=5082
LRDockWidth=5303
Dockable=1
StayOnTop=0
[RefactoringForm]
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=4307
Height=1390
MaxLeft=-1
MaxTop=-1
ClientWidth=4307
ClientHeight=1390
TBDockHeight=3828
LRDockWidth=5303
Dockable=1
StayOnTop=0
[TemplateView]
PercentageSizes=1
Create=1
Visible=0
Docked=0
State=0
Left=0
Top=0
Width=4297
Height=5858
MaxLeft=-10
MaxTop=-14
ClientWidth=4219
ClientHeight=5504
TBDockHeight=5858
LRDockWidth=4297
Dockable=1
StayOnTop=0
Name=60
Description=308
filter=1
[DataExplorer]
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=1289
Height=2357
MaxLeft=-1
MaxTop=-1
ClientWidth=1289
ClientHeight=2357
TBDockHeight=4877
LRDockWidth=7148
Dockable=1
StayOnTop=0
[PropertyInspector]
PercentageSizes=1
Create=1
Visible=1
Docked=0
State=0
Left=0
Top=4687
Width=1689
Height=5204
MaxLeft=-10
MaxTop=-14
ClientWidth=1611
ClientHeight=4850
TBDockHeight=5817
LRDockWidth=1543
Dockable=1
StayOnTop=0
SplitPos=73
[MetricsView]
PercentageSizes=1
Create=1
Visible=0
Docked=1
State=0
Left=-899
Top=-3234
Width=5303
Height=3828
MaxLeft=-1
MaxTop=-1
ClientWidth=5303
ClientHeight=3828
TBDockHeight=3828
LRDockWidth=5303
Dockable=1
StayOnTop=0
[QAView]
PercentageSizes=1
Create=1
Visible=0
Docked=1
State=0
Left=-899
Top=-3234
Width=5303
Height=3828
MaxLeft=-1
MaxTop=-1
ClientWidth=5303
ClientHeight=3828
TBDockHeight=3828
LRDockWidth=5303
Dockable=1
StayOnTop=0
[RefactoringsView]
PercentageSizes=1
Create=1
Visible=0
Docked=1
State=0
Left=-899
Top=-3234
Width=5303
Height=3828
MaxLeft=-1
MaxTop=-1
ClientWidth=5303
ClientHeight=3828
TBDockHeight=3828
LRDockWidth=5303
Dockable=1
StayOnTop=0
[UsagesView]
PercentageSizes=1
Create=1
Visible=0
Docked=1
State=0
Left=-899
Top=-3234
Width=5303
Height=3828
MaxLeft=-1
MaxTop=-1
ClientWidth=5303
ClientHeight=3828
TBDockHeight=3828
LRDockWidth=5303
Dockable=1
StayOnTop=0
[ModelViewTool]
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=1289
Height=2357
MaxLeft=-1
MaxTop=-1
ClientWidth=1289
ClientHeight=2357
TBDockHeight=4877
LRDockWidth=5303
Dockable=1
StayOnTop=0
[BreakpointWindow]
PercentageSizes=1
Create=1
Visible=0
Docked=0
State=0
Left=88
Top=7452
Width=6396
Height=2275
MaxLeft=-10
MaxTop=-14
ClientWidth=6318
ClientHeight=1921
TBDockHeight=204
LRDockWidth=6396
Dockable=1
StayOnTop=0
Column0Width=100
Column1Width=75
Column2Width=200
Column3Width=200
Column4Width=75
Column5Width=75
[StructureView]
PercentageSizes=1
Create=1
Visible=1
Docked=0
State=0
Left=0
Top=1185
Width=1670
Height=3474
MaxLeft=-10
MaxTop=-14
ClientWidth=1592
ClientHeight=3120
TBDockHeight=3474
LRDockWidth=1670
Dockable=1
StayOnTop=0
[frmCaliberMain]
PercentageSizes=1
Create=1
Visible=0
Docked=0
State=0
Left=78
Top=7657
Width=9863
Height=2207
MaxLeft=-10
MaxTop=-14
ClientWidth=9785
ClientHeight=1853
TBDockHeight=1104
LRDockWidth=1504
Dockable=1
StayOnTop=0
[MessageView@EditWindow0]
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=23
Width=6719
Height=2357
MaxLeft=-1
MaxTop=-1
ClientWidth=6719
ClientHeight=2357
TBDockHeight=2357
LRDockWidth=2773
Dockable=1
StayOnTop=0
[BorlandEditorCodeExplorer@EditWindow0]
PercentageSizes=1
Create=1
Visible=0
Docked=1
State=0
Left=-179
Top=-113
Width=1465
Height=8270
MaxLeft=-1
MaxTop=-1
ClientWidth=1465
ClientHeight=8270
TBDockHeight=8270
LRDockWidth=1465
Dockable=1
StayOnTop=0
[DockHosts]
DockHostCount=2
[DockSite0]
DockSiteType=1
PercentageSizes=1
Create=1
Visible=0
Docked=1
State=0
Left=693
Top=-440
Width=4385
Height=1866
MaxLeft=-1
MaxTop=-1
ClientWidth=4385
ClientHeight=1866
TBDockHeight=1866
LRDockWidth=4385
Dockable=1
StayOnTop=0
TabPosition=1
ActiveTabID=RefactoringForm
TabDockClients=RefactoringForm,FindReferencsForm,UsagesView,RefactoringsView,QAView,MetricsView
[DockSite1]
DockSiteType=1
PercentageSizes=1
Create=1
Visible=1
Docked=0
State=0
Left=8516
Top=1131
Width=1445
Height=3188
MaxLeft=-10
MaxTop=-14
ClientWidth=1367
ClientHeight=2834
TBDockHeight=3188
LRDockWidth=1445
Dockable=1
StayOnTop=0
TabPosition=1
ActiveTabID=ProjectManager
TabDockClients=ProjectManager,ModelViewTool,DataExplorer

238
CPRS-Chart/CPRSChart_TLB.pas
View File

@ -12,17 +12,16 @@ unit CPRSChart_TLB;
// ************************************************************************ //
// PASTLWTR : 1.2
// File generated on 2/4/2008 6:51:03 PM from Type Library described below.
// File generated on 6/26/2010 8:43:12 PM from Type Library described below.
// ************************************************************************ //
// Type Lib: C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Chart\CPRSChart.tlb (1)
// Type Lib: P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\CPRS-chart\CPRSChart.tlb (1)
// LIBID: {0A4A6086-6504-11D5-82DE-00C04F72C274}
// LCID: 0
// Helpfile:
// HelpString: CPRSChart Library
// DepndLst:
// (1) v2.0 stdole, (C:\WINDOWS\system32\stdole2.tlb)
// (2) v1.1 Accessibility, (C:\WINDOWS\system32\oleacc.dll)
// ************************************************************************ //
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
{$WARN SYMBOL_PLATFORM OFF}
@ -30,7 +29,7 @@ unit CPRSChart_TLB;
{$VARPROPSETTER ON}
interface
uses Windows, Accessibility_TLB, ActiveX, Classes, Graphics, StdVCL, Variants;
uses Windows, ActiveX, Classes, Graphics, StdVCL, Variants;
// *********************************************************************//
@ -50,16 +49,6 @@ const
IID_ICPRSBroker: TGUID = '{63DC619B-6BE0-11D5-82E6-00C04F72C274}';
IID_ICPRSState: TGUID = '{63DC619E-6BE0-11D5-82E6-00C04F72C274}';
IID_ICPRSExtension: TGUID = '{63DC61C4-6BE0-11D5-82E6-00C04F72C274}';
IID_IAccessibleStringGrid: TGUID = '{EFD768F7-59C0-48D9-889E-49EDF75488A6}';
CLASS_AccessibleStringGrid: TGUID = '{25CDBD92-C72E-47B0-9E75-9457B603000C}';
IID_IAccessibleListBox: TGUID = '{4B6A88F7-DCFE-4992-B5FC-565FDCB3829B}';
CLASS_AccessibleListBox: TGUID = '{758002E7-7012-4FAB-BD84-40D372694719}';
IID_IAccessibleTreeNode: TGUID = '{5974D1D8-0F49-45E5-AEFE-674A61F8771A}';
CLASS_AccessibleTreeNode: TGUID = '{3AD21DCA-2298-487A-8197-59B8D586C244}';
IID_IAccessibleTreeView: TGUID = '{06AA97AB-6D67-425C-B794-15FB8C62F870}';
CLASS_AccessibleTreeView: TGUID = '{507AD9F0-9ED6-4BCD-A3AB-DBA72153F14D}';
IID_IAccessibleRichEdit: TGUID = '{F2C380A5-C3DD-4AE8-81ED-C08C59E92962}';
CLASS_AccessibleRichEdit: TGUID = '{DC61493C-51FE-49A4-8749-8464A00D5CFC}';
// *********************************************************************//
// Declaration of Enumerations defined in Type Library
@ -84,27 +73,6 @@ type
ICPRSStateDisp = dispinterface;
ICPRSExtension = interface;
ICPRSExtensionDisp = dispinterface;
IAccessibleStringGrid = interface;
IAccessibleStringGridDisp = dispinterface;
IAccessibleListBox = interface;
IAccessibleListBoxDisp = dispinterface;
IAccessibleTreeNode = interface;
IAccessibleTreeNodeDisp = dispinterface;
IAccessibleTreeView = interface;
IAccessibleTreeViewDisp = dispinterface;
IAccessibleRichEdit = interface;
IAccessibleRichEditDisp = dispinterface;
// *********************************************************************//
// Declaration of CoClasses defined in Type Library
// (NOTE: Here we map each CoClass to its Default Interface)
// *********************************************************************//
AccessibleStringGrid = IAccessibleStringGrid;
AccessibleListBox = IAccessibleListBox;
AccessibleTreeNode = IAccessibleTreeNode;
AccessibleTreeView = IAccessibleTreeView;
AccessibleRichEdit = IAccessibleRichEdit;
// *********************************************************************//
// Interface: ICPRSBroker
@ -226,208 +194,8 @@ type
var Data1: WideString; var Data2: WideString): WordBool; dispid 1;
end;
// *********************************************************************//
// Interface: IAccessibleStringGrid
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {EFD768F7-59C0-48D9-889E-49EDF75488A6}
// *********************************************************************//
IAccessibleStringGrid = interface(IDispatch)
['{EFD768F7-59C0-48D9-889E-49EDF75488A6}']
end;
// *********************************************************************//
// DispIntf: IAccessibleStringGridDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {EFD768F7-59C0-48D9-889E-49EDF75488A6}
// *********************************************************************//
IAccessibleStringGridDisp = dispinterface
['{EFD768F7-59C0-48D9-889E-49EDF75488A6}']
end;
// *********************************************************************//
// Interface: IAccessibleListBox
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {4B6A88F7-DCFE-4992-B5FC-565FDCB3829B}
// *********************************************************************//
IAccessibleListBox = interface(IDispatch)
['{4B6A88F7-DCFE-4992-B5FC-565FDCB3829B}']
end;
// *********************************************************************//
// DispIntf: IAccessibleListBoxDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {4B6A88F7-DCFE-4992-B5FC-565FDCB3829B}
// *********************************************************************//
IAccessibleListBoxDisp = dispinterface
['{4B6A88F7-DCFE-4992-B5FC-565FDCB3829B}']
end;
// *********************************************************************//
// Interface: IAccessibleTreeNode
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {5974D1D8-0F49-45E5-AEFE-674A61F8771A}
// *********************************************************************//
IAccessibleTreeNode = interface(IDispatch)
['{5974D1D8-0F49-45E5-AEFE-674A61F8771A}']
end;
// *********************************************************************//
// DispIntf: IAccessibleTreeNodeDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {5974D1D8-0F49-45E5-AEFE-674A61F8771A}
// *********************************************************************//
IAccessibleTreeNodeDisp = dispinterface
['{5974D1D8-0F49-45E5-AEFE-674A61F8771A}']
end;
// *********************************************************************//
// Interface: IAccessibleTreeView
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {06AA97AB-6D67-425C-B794-15FB8C62F870}
// *********************************************************************//
IAccessibleTreeView = interface(IDispatch)
['{06AA97AB-6D67-425C-B794-15FB8C62F870}']
end;
// *********************************************************************//
// DispIntf: IAccessibleTreeViewDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {06AA97AB-6D67-425C-B794-15FB8C62F870}
// *********************************************************************//
IAccessibleTreeViewDisp = dispinterface
['{06AA97AB-6D67-425C-B794-15FB8C62F870}']
end;
// *********************************************************************//
// Interface: IAccessibleRichEdit
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {F2C380A5-C3DD-4AE8-81ED-C08C59E92962}
// *********************************************************************//
IAccessibleRichEdit = interface(IDispatch)
['{F2C380A5-C3DD-4AE8-81ED-C08C59E92962}']
end;
// *********************************************************************//
// DispIntf: IAccessibleRichEditDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {F2C380A5-C3DD-4AE8-81ED-C08C59E92962}
// *********************************************************************//
IAccessibleRichEditDisp = dispinterface
['{F2C380A5-C3DD-4AE8-81ED-C08C59E92962}']
end;
// *********************************************************************//
// The Class CoAccessibleStringGrid provides a Create and CreateRemote method to
// create instances of the default interface IAccessibleStringGrid exposed by
// the CoClass AccessibleStringGrid. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoAccessibleStringGrid = class
class function Create: IAccessibleStringGrid;
class function CreateRemote(const MachineName: string): IAccessibleStringGrid;
end;
// *********************************************************************//
// The Class CoAccessibleListBox provides a Create and CreateRemote method to
// create instances of the default interface IAccessibleListBox exposed by
// the CoClass AccessibleListBox. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoAccessibleListBox = class
class function Create: IAccessibleListBox;
class function CreateRemote(const MachineName: string): IAccessibleListBox;
end;
// *********************************************************************//
// The Class CoAccessibleTreeNode provides a Create and CreateRemote method to
// create instances of the default interface IAccessibleTreeNode exposed by
// the CoClass AccessibleTreeNode. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoAccessibleTreeNode = class
class function Create: IAccessibleTreeNode;
class function CreateRemote(const MachineName: string): IAccessibleTreeNode;
end;
// *********************************************************************//
// The Class CoAccessibleTreeView provides a Create and CreateRemote method to
// create instances of the default interface IAccessibleTreeView exposed by
// the CoClass AccessibleTreeView. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoAccessibleTreeView = class
class function Create: IAccessibleTreeView;
class function CreateRemote(const MachineName: string): IAccessibleTreeView;
end;
// *********************************************************************//
// The Class CoAccessibleRichEdit provides a Create and CreateRemote method to
// create instances of the default interface IAccessibleRichEdit exposed by
// the CoClass AccessibleRichEdit. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoAccessibleRichEdit = class
class function Create: IAccessibleRichEdit;
class function CreateRemote(const MachineName: string): IAccessibleRichEdit;
end;
implementation
uses ComObj;
class function CoAccessibleStringGrid.Create: IAccessibleStringGrid;
begin
Result := CreateComObject(CLASS_AccessibleStringGrid) as IAccessibleStringGrid;
end;
class function CoAccessibleStringGrid.CreateRemote(const MachineName: string): IAccessibleStringGrid;
begin
Result := CreateRemoteComObject(MachineName, CLASS_AccessibleStringGrid) as IAccessibleStringGrid;
end;
class function CoAccessibleListBox.Create: IAccessibleListBox;
begin
Result := CreateComObject(CLASS_AccessibleListBox) as IAccessibleListBox;
end;
class function CoAccessibleListBox.CreateRemote(const MachineName: string): IAccessibleListBox;
begin
Result := CreateRemoteComObject(MachineName, CLASS_AccessibleListBox) as IAccessibleListBox;
end;
class function CoAccessibleTreeNode.Create: IAccessibleTreeNode;
begin
Result := CreateComObject(CLASS_AccessibleTreeNode) as IAccessibleTreeNode;
end;
class function CoAccessibleTreeNode.CreateRemote(const MachineName: string): IAccessibleTreeNode;
begin
Result := CreateRemoteComObject(MachineName, CLASS_AccessibleTreeNode) as IAccessibleTreeNode;
end;
class function CoAccessibleTreeView.Create: IAccessibleTreeView;
begin
Result := CreateComObject(CLASS_AccessibleTreeView) as IAccessibleTreeView;
end;
class function CoAccessibleTreeView.CreateRemote(const MachineName: string): IAccessibleTreeView;
begin
Result := CreateRemoteComObject(MachineName, CLASS_AccessibleTreeView) as IAccessibleTreeView;
end;
class function CoAccessibleRichEdit.Create: IAccessibleRichEdit;
begin
Result := CreateComObject(CLASS_AccessibleRichEdit) as IAccessibleRichEdit;
end;
class function CoAccessibleRichEdit.CreateRemote(const MachineName: string): IAccessibleRichEdit;
begin
Result := CreateRemoteComObject(MachineName, CLASS_AccessibleRichEdit) as IAccessibleRichEdit;
end;
end.

BIN
CPRS-Chart/Copy of fPtSelOptns.ddp
View File

Binary file not shown.

BIN
CPRS-Chart/JAWS Support Files/JAWSUpdate.exe Normal file
View File

Binary file not shown.

21
CPRS-Chart/JAWS Support Files/VA508APP.JKM Normal file
View File

@ -0,0 +1,21 @@
[Common Keys]
F2=f2editTreeNode
Control+Alt+NumPadSlash=ltLeftClickCell
Control+Alt+NumPadStar=ltRightClickCell
Control+Shift+Alt+NumPadSlash=ltLeftClickHeader
Control+Shift+Alt+NumPadStar=ltRightClickHeader
[Classic Laptop Keys]
Control+Alt+8=ltLeftClickCell
Control+Alt+9=ltRightClickCell
Control+Shift+Alt+8=ltLeftClickHeader
Control+Shift+Alt+9=ltRightClickHeader
[Laptop Keys]
Control+Alt+8=ltLeftClickCell
Control+Alt+9=ltRightClickCell
Control+Shift+Alt+8=ltLeftClickHeader
Control+Shift+Alt+9=ltRightClickHeader
[Kinesis keys]
Control+Alt+I=ltLeftClickCell
Control+Alt+O=ltRightClickCell
Control+Shift+Alt+I=ltLeftClickHeader
Control+Shift+Alt+O=ltRightClickHeader

6
CPRS-Chart/JAWS Support Files/VA508APP.JSS Normal file
View File

@ -0,0 +1,6 @@
use "VA508JAWS.jsb"
void Function _Filler()
; function needed here to force JAWS to load VA508JAWS script
EndFunction
; Add Custom Scripts Here

56
CPRS-Chart/JAWS Support Files/VA508APP.jcf Normal file
View File

@ -0,0 +1,56 @@
;The below classes are defined in the default.jcf for JAWS 8 and 7.1 and thus are not defined below
;TBitBtn=Button
;TEdit=Edit
;TRichEdit=Edit
;TListbox=ListBox
;TCombobox=ComboBox
;TCheckbox=CheckBox
;TRadioButton=RadioButton
;TMemo=Edit
;TRadioGroup=GroupBox
;TGroupBox=GroupBox
;TListView=ListView
;TToolBar=ToolBar
;TTreeView=TreeView
;TButton=Button
;TPageControl=TabControl
;TGroupButton=RadioButton
[WindowClasses]
TfrmSplash=Dialog
TValueListEditor=ListBox
TPanel=GroupBox
TFlowPanel=GroupBox
TGridPanel=GroupBox
TFrame=GroupBox
TInplaceEditList=Edit
TMaskEdit=Edit
TLabeledEdit=Edit
TPageControl=TabControl
TTabControl=TabControl
TTrackBar=Slider
TCheckListBox=ListBox
TListBox=ListBox
TToolbar=Toolbar
TStatusBar=StatusBar
TComboBoxEx=ComboBox
TColorListBox=ListBox
TColorBox=ComboBox
TStaticText=StaticText
TLabel=TStaticText
[Options]
SayNumericDates=0
[OSM]
IncludeGraphics=0
[Braille translations]
ControlType|State Check Box|checked=||<x>
ControlType|State Check Box|not checked=||< >
ControlType|State Three State Check Box|checked=||<x>
ControlType|State Three State Check Box|not checked=||< >
ControlType|State Three State Check Box|Question mark=||<?>
ControlType|State Three State Check Box|Partially Checked=||<->
ControlType|State Check List Box|Checked=|lbx|<x>
ControlType|State Check List Box|Not Checked=|lbx|< >
[ControlTypes]
[BrailleClasses]
Grid = 54

293
CPRS-Chart/JAWS Support Files/VA508JAWS.jsd Normal file
View File

@ -0,0 +1,293 @@
:function VA508Cast
:Returns variant No Return Description
:Synopsis Conversion functionality (cast of any type to any other type within reason)
:Param variant/value No Description
:function getListType
:Returns string
:Synopsis returns the type of list such as extended selection, multi-selection, listview, or listbox
:Param int
:function isSpecialFocus
:Returns int
:Synopsis returns true if we are in a menu, the jaws cursor, invisible cursor, or user cursor is active or if we are in an hj dialog
:Param int
:function watchCount
:Synopsis Used in Debugging
:Param string
:function VA508SendMessage
:Returns int success or failure
:Synopsis Send message wrapper with common message id for communicating with dll
:Param handle/Window handle of dll window
:Param int/wParam wParam
:Param int/lParam lParam
:function Get4KName
:Returns string No Return Description
:Synopsis Returns the window name up to 4k of the data window
:Param handle/hWnd handle of the data window
:function VA508GetStringValue
:Returns string Returns the data for a given var property such as a caption
:Synopsis Returns the data for a given var property such as caption, usually called after getApplicationData has set the data
:Param string/VarName the var to get
:function VA508GetApplicationData
:Synopsis tell framework to set contents of data window so we can get that info using getStringValue
:Param handle/hwnd Handle of window to query for
:Param int/iQueryCode Query code
:function VA508ResetGlobals
:Synopsis Clears out some global variables
:function VA508EnsureInitialized
:Synopsis Makes sure the Script is working with the VA App
:Description Before the script file tries to communicate with the VA application, it needs to make sure the VA application wants to try and communicate with it.
:function VA508cacheGetVal
:Returns int No Return Description
:Synopsis Get a property value from the cache.
:Param int/iQueryCode No Description
:Param string/byRef No Description
:function VA508CacheUpdate
:Synopsis Update the property cache. Called only by VA508getComponentProp() and VA508 ResetGlobals
:Param handle/hwnd Handle of the window to cache for, or 0 to clear the cache
:function VA508FieldNameFromQueryCode
:Returns string No Return Description
:Synopsis Return the framework field name corresponding to the given query code.
:Param int/iQueryCode No Description
:function VA508QueryCodeFromFieldName
:Returns int No Return Description
:Synopsis Return the query code corresponding to the given framework field name.
:Param string/sFieldName No Description
:function VA508GetComponentProp
:Returns int 1 on success, 0 if the property is not found, -1 on error
:Synopsis returns the requested property of a given window if one is available through the framework
:Param handle/hWnd handle of control
:Param string/sProp Name of property
:Param int/iCacheHandling Whether to update cache, skip the cache, or just use the cache
:Param string/byRef sVal The property value if found
:function VA508CacheSetVals
:Synopsis Update the property cache when the framework sends an event indicating property changes.
:Param handle/hwnd No Description
:Param int/iDataStatus No Description
:Param string/sCaption No Description
:Param string/sValue No Description
:Param string/sControlType No Description
:Param string/sState No Description
:Param string/sInstructions No Description
:Param string/sItemInstructions No Description
:function VA508GetGridData
:Returns int No Return Description
:Synopsis Fills the VA508cacheGrid* globals.
:Param variant/fromWhere No Description
:Param int/dontCheck No Description
:function VA508SayData
:Returns int No Return Description
:Synopsis function for actually speaking data for control when needed
:Param handle/hwnd handle of window
:function tvGetFocusItemExpandStateString
:Returns string No Return Description
:Synopsis Returns a string with open or closed representing the state of the currently focused tree view node
:Param handle/hwnd No Description
:function bxTestNum
:Synopsis used for debugging purposes
:Param int/n No Description
:function autoCloseIfOpenCombo
:Synopsis Automatically close a combo box if one is open when tab or shift+tab is pressed
:function VA508TranslateProps
:Returns int No Return Description
:Synopsis Handles custom translations of types and states for output.
:Param string/sTable No Description
:Param int/iQueryCode No Description
:Param string/byRef No Description
:Param string/byRef No Description
:function controlpropGet
:Returns int No Return Description
:Synopsis Handles all control property requests.
:Param string/sOrigin No Description
:Param string/whichProp No Description
:Param string/byRef sVal
:Param string
:function BraillePropHelper
:Returns int No Return Description
:Synopsis Logic for BrailleAddObject* functions to use.
:Param string/whichProp No Description
:Param int/nSubtype No Description
:function BrailleClassFound
:Returns int
:Synopsis returns true if there was a custom braille class reclass found in the jcf for a custom framework control type
:Param string
:Param int
:script f2editTreeNode
:Synopsis Edits the current tree node's name if applicable
:Description This command simulates a left click on the currently selected node of a Delphi treeView control, which can open the current node's name for editing. On any other control, the key pressed is passed through to the application.
:function VA508ChangeEvent
:Synopsis called by framework dll to tell scripts when an event occurs that changes the property of the currently focused control
:Param handle/hwnd No Description
:Param int/iDataStatus No Description
:Param string/sCaption, No Description
:Param string/sValue, No Description
:Param string/sControlType No Description
:Param string/sState No Description
:Param string/sInstructions No Description
:Param string/sItemInstructions No Description
:function AnnounceProp
:Synopsis announce a property if one was set by the changeEvent and it hasn't already been canceled
:Param int
:Param int
:Param int
:function AnnounceEvent
:Synopsis helper function that is scheduled from changeEvent for speaking changes in framework properties
:function ChangeDocumentWindow
:Synopsis allows control tab to announce the correct tab when focus in on page tab control and style is set to button or flat button
:Description allows control tab when pressed on a child object of a page tab to announce the change in page
:Param int/direction No Description
:function getSelectedTab
:Returns string No Return Description
:Synopsis gets the selected tab from a TTabControl when a child control is in focus
:function SelectTab
:Synopsis Used for TTabControl to activate a new tab using MSAA
:Param int/direction No Description
:function ClearSuppressFocusChange
:Synopsis resets the global variable that suppress focus changes from being announced
:function isSpinBox
:Returns int No Return Description
:Synopsis returns true if window with handle is a spinbox
:Param handle/hwnd No Description
:function getValue
:Returns string No Return Description
:Synopsis get value for element from framework, falls back on getObjectValue()
:function SpeakCellUnit
:Returns int No Return Description
:Synopsis Speaks the aspects of a cell that are different from the last cell visited
:Param string/str the direction we just moved
:function getCurrentCellHeadersData
:Returns string No Return Description
:Synopsis returns the full string of col number, row number, column name, row name, and cell data for the current table cell
:function UpdateBrailleClasses
:Synopsis Called from autoStartEvent to load jcf settings into memory for braille reclassing
:Returns int
:function UpdateControlTypes
:Synopsis Called from autoStartEvent to load jcf settings into memory for custom control type reclassing
:Returns int
:function ControlTypeFound
:Returns int
:Synopsis returns true of a new control type string is found in the jcf file to be spoken instead of the custom framework control type
:Param string
:Param string
:function ToggleGridSpeechMode
:Returns string
:Synopsis toggles whether table headers are announced or not
:Param int
:function ToggleGridBrailleMode
:Returns string
:Synopsis toggles whether table headers are shown in Braille or not
:Param int
:function getAccName
:Returns string Returns an msaa directly using msaa rather than getObjectName()
:Synopsis returns an accessible name depending on context
:function getAccValue
:Returns string No Return Description
:Synopsis returns an accessible value depending on context
:function getAccState
:Returns string Returns an msaa state string that can be spoken via msaa directly rather than getObjectState()
:Synopsis returns an accessible state depending on context
:function lt_stringCast
:Returns string
:Param variant
:function lt_stringSegmentWithMultiCharDelim
:Returns string
:Param string
:Param string
:Param int
:function lt_canTryLVCalls
:Returns int
:function lt_getMSAARect
:Returns int
:Param object
:Param int
:Param int
:Param int
:Param int
:Param int
:function lt_move
:Returns int
:Param string
:function lt_clearSuppressHighlight
:script moveToTopOfColumn
:Returns undef
:script moveToBottomOfColumn
:Returns undef
:script moveToStartOfRow
:Returns undef
:script moveToEndOfRow
:Returns undef
:script ltLeftClickCell
:Synopsis Clicks the current cell with the left mouse button
:Description This command simulates a left mouse click on the current cell
:script ltRightClickCell
:Synopsis Clicks the current cell with the right mouse button
:Description This command simulates a right mouse click on the current cell
:script ltLeftClickHeader
:Synopsis Clicks the current cell's column header with the left mouse button
:Description This command simulates a right mouse click on the current cell's column header
:script ltRightClickHeader
:Synopsis Clicks the current cell's column header with the right mouse button
:Description This command simulates a right mouse click on the current cell's column header
:script VA508SendCustomCommand
:Synopsis Custom command for this application
:Description This is a custom command for this application, implemented directly by the accessibility framework

3758
CPRS-Chart/JAWS Support Files/VA508JAWS.jss Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
CPRS-Chart/JAWS Support Files/VA508JAWSDispatcher.exe Normal file
View File

Binary file not shown.

BIN
CPRS-Chart/JAWS Support Files/jaws.SR Normal file
View File

Binary file not shown.

BIN
CPRS-Chart/JAWS Support Files/vcredist_x86.exe Normal file
View File

Binary file not shown.

99
CPRS-Chart/Orders/fIVRoutes.dfm Normal file
View File

@ -0,0 +1,99 @@
inherited frmIVRoutes: TfrmIVRoutes
Left = 0
Top = 0
Caption = 'Expanded Med Route List'
ClientHeight = 339
ClientWidth = 222
Constraints.MinHeight = 360
Constraints.MinWidth = 220
Font.Name = 'Tahoma'
OldCreateOrder = False
OnCreate = FormCreate
ExplicitWidth = 230
ExplicitHeight = 366
DesignSize = (
222
339)
PixelsPerInch = 96
TextHeight = 13
object pnlTop: TPanel [0]
Left = 0
Top = 0
Width = 220
Height = 249
Anchors = [akLeft, akTop, akRight, akBottom]
BevelOuter = bvNone
TabOrder = 0
object cboAllIVRoutes: TORComboBox
Left = 24
Top = 16
Width = 161
Height = 217
Style = orcsSimple
AutoSelect = True
Color = clWindow
DropDownCount = 8
ItemHeight = 13
ItemTipColor = clWindow
ItemTipEnable = True
ListItemsOnly = False
LongList = False
LookupPiece = 0
MaxLength = 0
Pieces = '2'
Sorted = False
SynonymChars = '<>'
TabOrder = 0
CharsNeedMatch = 1
UniqueAutoComplete = True
end
end
object pnlBottom: TORAutoPanel [1]
Left = 0
Top = 255
Width = 218
Height = 82
BevelOuter = bvNone
TabOrder = 1
object BtnOK: TButton
Left = 110
Top = 24
Width = 75
Height = 25
Caption = '&OK'
Default = True
TabOrder = 0
OnClick = BtnOKClick
end
object btnCancel: TButton
Left = 29
Top = 24
Width = 75
Height = 25
Caption = '&Cancel'
TabOrder = 1
OnClick = btnCancelClick
end
end
inherited amgrMain: TVA508AccessibilityManager
Data = (
(
'Component = pnlTop'
'Status = stsDefault')
(
'Component = cboAllIVRoutes'
'Status = stsDefault')
(
'Component = pnlBottom'
'Status = stsDefault')
(
'Component = BtnOK'
'Status = stsDefault')
(
'Component = btnCancel'
'Status = stsDefault')
(
'Component = frmIVRoutes'
'Status = stsDefault'))
end
end

88
CPRS-Chart/Orders/fIVRoutes.pas Normal file
View File

@ -0,0 +1,88 @@
unit fIVRoutes;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ORCtrls, ExtCtrls, ORFn, rMisc, rODMeds, VA508AccessibilityManager, VAUtils, fAutoSz;
type
TfrmIVRoutes = class(TfrmAutoSz)
pnlTop: TPanel;
cboAllIVRoutes: TORComboBox;
pnlBottom: TORAutoPanel;
BtnOK: TButton;
btnCancel: TButton;
procedure BtnOKClick(Sender: TObject);
procedure btnCancelClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
function ShowOtherRoutes(var Route: string): boolean;
var
frmIVRoutes: TfrmIVRoutes;
implementation
{$R *.dfm}
function ShowOtherRoutes(var Route: string): boolean;
var
idx: integer;
begin
Result := false;
frmIVRoutes := TfrmIVRoutes.Create(Application);
ResizeFormToFont(TForm(frmIVRoutes));
SetFormPosition(frmIVRoutes);
//LoadAllIVRoutes(frmIVRoutes.cboAllIVRoutes.Items);
if frmIVRoutes.ShowModal = mrOK then
begin
idx := frmIVRoutes.cboAllIVRoutes.ItemIndex;
if idx > -1 then
begin
Route := frmIVRoutes.cboAllIVRoutes.Items.Strings[idx];
setPiece(Route,U,5,'1');
end
else Route := '';
Result := True;
end;
frmIVRoutes.Free;
end;
{ TfrmIVRoutes }
procedure TfrmIVRoutes.btnCancelClick(Sender: TObject);
begin
frmIVRoutes.cboAllIVRoutes.ItemIndex := -1;
modalResult := mrOK;
end;
procedure TfrmIVRoutes.BtnOKClick(Sender: TObject);
begin
if frmIVRoutes.cboAllIVRoutes.ItemIndex = -1 then
begin
infoBox('A route from the list must be selected','Warning', MB_OK);
Exit;
end;
modalResult := mrOK;
end;
procedure TfrmIVRoutes.FormCreate(Sender: TObject);
begin
frmIVRoutes := nil;
LoadAllIVRoutes(cboAllIVRoutes.Items);
end;
procedure TfrmIVRoutes.FormDestroy(Sender: TObject);
begin
inherited;
frmIVRoutes := nil;
end;
end.

4
CPRS-Chart/SizeListColumns.txt Normal file
View File

@ -0,0 +1,4 @@
frmMeds.hdrMedsIn=42,320,80,80,80
frmMeds.hdrMedsNonVA=42,320,80,80
frmMeds.hdrMedsOut=42,320,80,80,80,40
frmOrders.hdrOrders=0,62,375,124,124,34,16,16,16,25

569
CPRS-Chart/dShared.dfm
View File

@ -2,10 +2,10 @@ object dmodShared: TdmodShared
OldCreateOrder = False
OnCreate = dmodSharedCreate
OnDestroy = dmodSharedDestroy
Left = 285
Top = 161
Left = 50
Top = 159
Height = 479
Width = 741
Width = 439
object imgTemplates: TImageList
BkColor = clWhite
AllocBy = 6
@ -1211,8 +1211,8 @@ object dmodShared: TdmodShared
BkColor = clWhite
AllocBy = 6
Width = 20
Left = 100
Top = 16
Left = 28
Top = 80
Bitmap = {
494C010108000900040014001000FFFFFF00FF10FFFFFFFFFFFFFFFF424D3600
000000000000360000002800000050000000300000000100200000000000003C
@ -1720,8 +1720,8 @@ object dmodShared: TdmodShared
000000000000}
end
object imgNotes: TImageList
Left = 174
Top = 16
Left = 22
Top = 144
Bitmap = {
494C01010F001300040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
0000000000003600000028000000400000005000000001002000000000000050
@ -2391,8 +2391,8 @@ object dmodShared: TdmodShared
000000000000}
end
object imgImages: TImageList
Left = 240
Top = 18
Left = 24
Top = 202
Bitmap = {
494C010106000900040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
0000000000003600000028000000400000003000000001002000000000000030
@ -2799,8 +2799,8 @@ object dmodShared: TdmodShared
end
object imgReminders2: TImageList
Width = 32
Left = 104
Top = 72
Left = 200
Top = 80
Bitmap = {
494C01010A000E00040020001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
0000000000003600000028000000800000004000000001002000000000000080
@ -3866,8 +3866,8 @@ object dmodShared: TdmodShared
000000000000}
end
object imgConsults: TImageList
Left = 320
Top = 18
Left = 24
Top = 266
Bitmap = {
494C010109000E00040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
0000000000003600000028000000400000004000000001002000000000000040
@ -4405,8 +4405,8 @@ object dmodShared: TdmodShared
000000000000}
end
object imgSurgery: TImageList
Left = 389
Top = 17
Left = 29
Top = 329
Bitmap = {
494C01010D000E00040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
0000000000003600000028000000400000004000000001002000000000000040
@ -4943,4 +4943,543 @@ object dmodShared: TdmodShared
FFFF07FFF803F803FFFF9FFFFC03FC0300000000000000000000000000000000
000000000000}
end
object imgLblReminders: TVA508ImageListLabeler
Components = <>
ImageList = imgReminders
Labels = <
item
Caption = 'Reminder Category'
ImageIndex = 0
OverlayIndex = -1
end
item
Caption = 'Reminder Category'
ImageIndex = 1
OverlayIndex = -1
end
item
Caption = 'Due Reminder'
ImageIndex = 2
OverlayIndex = -1
end
item
Caption = 'Applicable Reminder'
ImageIndex = 3
OverlayIndex = -1
end
item
Caption = 'Not Applicable Reminder'
ImageIndex = 4
OverlayIndex = -1
end
item
Caption = 'Unevaluated Reminder'
ImageIndex = 5
OverlayIndex = -1
end
item
Caption = 'With Dialog'
ImageIndex = 6
OverlayIndex = 0
end
item
Caption = 'With Processed Dialog'
ImageIndex = 7
OverlayIndex = 1
end>
Left = 112
Top = 80
end
object imgLblHealthFactorLabels: TVA508ImageListLabeler
Components = <>
ImageList = imgTemplates
Labels = <
item
Caption = 'Template Root'
ImageIndex = 0
OverlayIndex = -1
end
item
Caption = 'Template Root'
ImageIndex = 1
OverlayIndex = -1
end
item
Caption = 'Category'
ImageIndex = 2
OverlayIndex = -1
end
item
Caption = 'Category'
ImageIndex = 3
OverlayIndex = -1
end
item
Caption = 'Personal Template'
ImageIndex = 4
OverlayIndex = -1
end
item
Caption = 'Group Template'
ImageIndex = 5
OverlayIndex = -1
end
item
Caption = 'Group Template'
ImageIndex = 6
OverlayIndex = -1
end
item
Caption = 'Personal Template *'
ImageIndex = 7
OverlayIndex = -1
end
item
Caption = 'Group Template *'
ImageIndex = 8
OverlayIndex = -1
end
item
Caption = 'Group Template *'
ImageIndex = 9
OverlayIndex = -1
end
item
Caption = 'Shared Template'
ImageIndex = 10
OverlayIndex = -1
end
item
Caption = 'Group Template'
ImageIndex = 11
OverlayIndex = -1
end
item
Caption = 'Group Template'
ImageIndex = 12
OverlayIndex = -1
end
item
Caption = 'Shared Template *'
ImageIndex = 13
OverlayIndex = -1
end
item
Caption = 'Group Template *'
ImageIndex = 14
OverlayIndex = -1
end
item
Caption = 'Group Template *'
ImageIndex = 15
OverlayIndex = -1
end
item
Caption = 'Template Folder'
ImageIndex = 16
OverlayIndex = -1
end
item
Caption = 'Template Folder'
ImageIndex = 17
OverlayIndex = -1
end
item
Caption = 'Template Dialog'
ImageIndex = 18
OverlayIndex = -1
end
item
Caption = 'Template Dialog'
ImageIndex = 19
OverlayIndex = -1
end
item
Caption = 'Template Dialog *'
ImageIndex = 20
OverlayIndex = -1
end
item
Caption = 'Template Dialog *'
ImageIndex = 21
OverlayIndex = -1
end
item
Caption = 'Template Dialog'
ImageIndex = 22
OverlayIndex = -1
end
item
Caption = 'Template Dialog'
ImageIndex = 23
OverlayIndex = -1
end
item
Caption = 'Template Dialog *'
ImageIndex = 24
OverlayIndex = -1
end
item
Caption = 'Template Dialog *'
ImageIndex = 25
OverlayIndex = -1
end
item
Caption = 'Reminder Dialog'
ImageIndex = 26
OverlayIndex = -1
end
item
Caption = 'Reminder Dialog'
ImageIndex = 27
OverlayIndex = -1
end
item
Caption = 'COM Object Template'
ImageIndex = 28
OverlayIndex = -1
end
item
Caption = 'COM Object Template not installed'
ImageIndex = 29
OverlayIndex = -1
end>
Left = 136
Top = 16
end
object imgLblNotes: TVA508ImageListLabeler
Components = <>
ImageList = imgNotes
Labels = <
item
Caption = 'Top Grouping'
ImageIndex = 0
OverlayIndex = -1
end
item
Caption = 'Subgrouping'
ImageIndex = 1
OverlayIndex = -1
end
item
Caption = 'Subgrouping'
ImageIndex = 2
OverlayIndex = -1
end
item
Caption = 'Note'
ImageIndex = 3
OverlayIndex = -1
end
item
Caption = 'Note with Addenda'
ImageIndex = 4
OverlayIndex = -1
end
item
Caption = 'Interdisciplanary Note'
ImageIndex = 5
OverlayIndex = -1
end
item
Caption = 'Interdisciplanary Note'
ImageIndex = 6
OverlayIndex = -1
end
item
Caption = 'Interdisciplanary Note with Addenda'
ImageIndex = 7
OverlayIndex = -1
end
item
Caption = 'Interdisciplanary Note with Addenda'
ImageIndex = 8
OverlayIndex = -1
end
item
Caption = 'Interdisciplanary entry'
ImageIndex = 9
OverlayIndex = -1
end
item
Caption = 'Interdisciplanary entry with addenda'
ImageIndex = 10
OverlayIndex = -1
end
item
Caption = 'Addendum'
ImageIndex = 11
OverlayIndex = -1
end
item
ImageIndex = 12
OverlayIndex = -1
end
item
ImageIndex = 13
OverlayIndex = -1
end
item
ImageIndex = 14
OverlayIndex = -1
end>
Left = 120
Top = 144
end
object imgLblImages: TVA508ImageListLabeler
Components = <>
ImageList = imgNotes
Labels = <
item
Caption = 'Top Grouping'
ImageIndex = 0
OverlayIndex = -1
end
item
Caption = 'Subgrouping'
ImageIndex = 1
OverlayIndex = -1
end
item
Caption = 'Subgrouping'
ImageIndex = 2
OverlayIndex = -1
end
item
Caption = 'Document'
ImageIndex = 3
OverlayIndex = -1
end
item
Caption = 'Document with Addenda'
ImageIndex = 4
OverlayIndex = -1
end
item
Caption = 'Folder'
ImageIndex = 5
OverlayIndex = -1
end
item
Caption = 'Folder'
ImageIndex = 6
OverlayIndex = -1
end
item
Caption = 'Folder Plus'
ImageIndex = 7
OverlayIndex = -1
end
item
Caption = 'Folder Plus'
ImageIndex = 8
OverlayIndex = -1
end
item
Caption = 'Entry'
ImageIndex = 9
OverlayIndex = -1
end
item
Caption = 'Entry with Addenda'
ImageIndex = 10
OverlayIndex = -1
end
item
Caption = 'Addendum'
ImageIndex = 11
OverlayIndex = -1
end
item
ImageIndex = 12
OverlayIndex = -1
end
item
ImageIndex = 13
OverlayIndex = -1
end
item
ImageIndex = 14
OverlayIndex = -1
end>
Left = 112
Top = 208
end
object imgLblConsults: TVA508ImageListLabeler
Components = <>
ImageList = imgConsults
Labels = <
item
Caption = 'Top Grouping'
ImageIndex = 0
OverlayIndex = -1
end
item
Caption = 'Subgrouping'
ImageIndex = 1
OverlayIndex = -1
end
item
Caption = 'Subgrouping'
ImageIndex = 2
OverlayIndex = -1
end
item
Caption = 'Consult request'
ImageIndex = 3
OverlayIndex = -1
end
item
ImageIndex = 4
OverlayIndex = -1
end
item
ImageIndex = 5
OverlayIndex = -1
end
item
Caption = 'Procedure Request'
ImageIndex = 6
OverlayIndex = -1
end
item
Caption = 'Interfacility Consult Request'
ImageIndex = 7
OverlayIndex = -1
end
item
Caption = 'Interfacility Procedure'
ImageIndex = 8
OverlayIndex = -1
end>
Left = 128
Top = 272
end
object imgLblSurgery: TVA508ImageListLabeler
Components = <>
ImageList = imgSurgery
Labels = <
item
ImageIndex = 0
OverlayIndex = -1
end
item
Caption = 'Top Grouping'
ImageIndex = 1
OverlayIndex = -1
end
item
Caption = 'Subgrouping'
ImageIndex = 2
OverlayIndex = -1
end
item
Caption = 'Subgrouping'
ImageIndex = 3
OverlayIndex = -1
end
item
Caption = 'OR Case no attached reports'
ImageIndex = 4
OverlayIndex = -1
end
item
Caption = 'OR case attached reports'
ImageIndex = 5
OverlayIndex = -1
end
item
Caption = 'OR case attached reports'
ImageIndex = 6
OverlayIndex = -1
end
item
Caption = 'Report'
ImageIndex = 7
OverlayIndex = -1
end
item
Caption = 'Report with Addenda'
ImageIndex = 8
OverlayIndex = -1
end
item
Caption = 'Addendum'
ImageIndex = 9
OverlayIndex = -1
end
item
Caption = 'Non-OR case without attached reports'
ImageIndex = 10
OverlayIndex = -1
end
item
Caption = 'Non-OR case with attached report'
ImageIndex = 11
OverlayIndex = -1
end
item
Caption = 'Non-OR case with attached report'
ImageIndex = 12
OverlayIndex = -1
end>
Left = 120
Top = 328
end
object imgLblReminders2: TVA508ImageListLabeler
Components = <>
ImageList = imgReminders2
Labels = <
item
Caption = 'Reminder Due'
ImageIndex = 0
OverlayIndex = -1
end
item
Caption = 'Reminder Due Check'
ImageIndex = 1
OverlayIndex = -1
end
item
Caption = 'Reminder Applicable'
ImageIndex = 2
OverlayIndex = -1
end
item
Caption = 'Reminder Applicable Check'
ImageIndex = 3
OverlayIndex = -1
end
item
Caption = 'Reminder Not Applicable'
ImageIndex = 4
OverlayIndex = -1
end
item
Caption = 'Reminder Not Applicable Check'
ImageIndex = 5
OverlayIndex = -1
end
item
ImageIndex = 6
OverlayIndex = -1
end
item
Caption = 'Check'
ImageIndex = 7
OverlayIndex = -1
end
item
Caption = 'Reminder Category'
ImageIndex = 8
OverlayIndex = -1
end
item
Caption = 'Reminder Category Check'
ImageIndex = 9
OverlayIndex = -1
end>
Left = 288
Top = 80
end
end

15
CPRS-Chart/dShared.pas
View File

@ -3,7 +3,8 @@ interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, ImgList, uTemplates, ORFn, ORNet, ExtCtrls, ORCtrls, Richedit;
ComCtrls, ImgList, uTemplates, ORFn, ORNet, ExtCtrls, ORCtrls, Richedit,
VA508ImageListLabeler;
type
TdmodShared = class(TDataModule)
@ -14,6 +15,13 @@ type
imgReminders2: TImageList;
imgConsults: TImageList;
imgSurgery: TImageList;
imgLblReminders: TVA508ImageListLabeler;
imgLblHealthFactorLabels: TVA508ImageListLabeler;
imgLblNotes: TVA508ImageListLabeler;
imgLblImages: TVA508ImageListLabeler;
imgLblConsults: TVA508ImageListLabeler;
imgLblSurgery: TVA508ImageListLabeler;
imgLblReminders2: TVA508ImageListLabeler;
procedure dmodSharedCreate(Sender: TObject);
procedure dmodSharedDestroy(Sender: TObject);
private
@ -66,7 +74,7 @@ const
implementation
uses fDrawers, rTemplates, uCore, uTemplateFields, uEventHooks;
uses fDrawers, rTemplates, uCore, uTemplateFields, uEventHooks, VA508AccessibilityRouter;
{$R *.DFM}
@ -876,6 +884,9 @@ begin
FindRichEditText(AReplaceDialog, ARichEdit);
end;
initialization
SpecifyFormIsNotADialog(TdmodShared);
end.

157
CPRS-Chart/fARTAllgy.dfm
View File

@ -2,16 +2,18 @@ inherited frmARTAllergy: TfrmARTAllergy
Tag = 1105
Left = 339
Top = 266
Width = 561
Height = 465
Caption = 'Enter Allergy or Adverse Reaction'
ClientHeight = 438
ClientWidth = 553
Position = poScreenCenter
OnClose = FormClose
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
ExplicitWidth = 561
ExplicitHeight = 472
PixelsPerInch = 96
TextHeight = 13
object pnlBase: TORAutoPanel
object pnlBase: TORAutoPanel [0]
Left = 0
Top = 0
Width = 553
@ -36,7 +38,7 @@ inherited frmARTAllergy: TfrmARTAllergy
Top = 403
Width = 72
Height = 21
Caption = 'OK'
Caption = '&OK'
TabOrder = 1
OnClick = cmdOKClick
end
@ -46,7 +48,7 @@ inherited frmARTAllergy: TfrmARTAllergy
Width = 72
Height = 21
Cancel = True
Caption = 'Cancel'
Caption = '&Cancel'
TabOrder = 2
OnClick = cmdCancelClick
end
@ -57,10 +59,9 @@ inherited frmARTAllergy: TfrmARTAllergy
Height = 371
ActivePage = tabGeneral
MultiLine = True
TabIndex = 0
TabOrder = 0
object tabGeneral: TTabSheet
Caption = '&General'
Caption = 'General'
object lblAgent: TOROffsetLabel
Left = 7
Top = 44
@ -185,7 +186,7 @@ inherited frmARTAllergy: TfrmARTAllergy
Top = 3
Width = 119
Height = 17
Caption = 'No Known Allergies'
Caption = '&No Known Allergies'
TabOrder = 0
OnClick = ckNoKnownAllergiesClick
end
@ -194,7 +195,7 @@ inherited frmARTAllergy: TfrmARTAllergy
Top = 24
Width = 114
Height = 21
Caption = 'Active Allergies'
Caption = '&Active Allergies'
TabOrder = 1
OnClick = btnCurrentClick
end
@ -222,8 +223,14 @@ inherited frmARTAllergy: TfrmARTAllergy
Height = 21
Style = orcsDropDown
AutoSelect = True
Color = clWindow
Color = clBtnFace
DropDownCount = 8
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clInactiveCaption
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ItemTipColor = clWindow
ItemTipEnable = True
@ -231,6 +238,7 @@ inherited frmARTAllergy: TfrmARTAllergy
LongList = True
LookupPiece = 2
MaxLength = 0
ParentFont = False
ParentShowHint = False
Pieces = '2,3'
ShowHint = False
@ -258,7 +266,7 @@ inherited frmARTAllergy: TfrmARTAllergy
Top = 307
Width = 113
Height = 17
Caption = 'Marked On Chart'
Caption = '&Marked On Chart'
Checked = True
State = cbChecked
TabOrder = 18
@ -270,7 +278,7 @@ inherited frmARTAllergy: TfrmARTAllergy
Top = 307
Width = 97
Height = 17
Caption = 'ID Band Marked'
Caption = '&ID Band Marked'
TabOrder = 17
OnClick = ControlChange
end
@ -319,7 +327,7 @@ inherited frmARTAllergy: TfrmARTAllergy
Top = 270
Width = 62
Height = 21
Caption = 'Date/Time'
Caption = '&Date/Time'
TabOrder = 13
OnClick = btnDateTimeClick
end
@ -328,7 +336,7 @@ inherited frmARTAllergy: TfrmARTAllergy
Top = 270
Width = 57
Height = 21
Caption = 'Remove'
Caption = '&Remove'
TabOrder = 14
OnClick = btnRemoveClick
end
@ -340,8 +348,8 @@ inherited frmARTAllergy: TfrmARTAllergy
Columns = 2
Ctl3D = True
Items.Strings = (
'Observed'
'Historical')
'O&bserved'
'&Historical')
ParentCtl3D = False
ParentShowHint = False
ShowHint = True
@ -387,7 +395,7 @@ inherited frmARTAllergy: TfrmARTAllergy
Top = 96
Width = 140
Height = 21
Caption = 'View Previous Observations'
Caption = 'View &Previous Observations'
TabOrder = 6
OnClick = cmdPrevObsClick
end
@ -411,7 +419,7 @@ inherited frmARTAllergy: TfrmARTAllergy
Top = 270
Width = 157
Height = 21
Caption = 'View Previous Comments'
Caption = '&View Previous Comments'
TabOrder = 16
OnClick = cmdPrevCmtsClick
end
@ -443,7 +451,7 @@ inherited frmARTAllergy: TfrmARTAllergy
Top = 96
Width = 21
Height = 21
Caption = '?'
Caption = '&?'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
@ -455,7 +463,7 @@ inherited frmARTAllergy: TfrmARTAllergy
end
end
object tabVerify: TTabSheet
Caption = '&Verify'
Caption = 'Verify'
ImageIndex = 3
object lblVerifier: TOROffsetLabel
Left = 99
@ -484,7 +492,7 @@ inherited frmARTAllergy: TfrmARTAllergy
Top = 18
Width = 69
Height = 17
Caption = 'Verified'
Caption = '&Verified'
TabOrder = 0
OnClick = ControlChange
end
@ -547,13 +555,14 @@ inherited frmARTAllergy: TfrmARTAllergy
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ExplicitWidth = 83
end
object ckEnteredInError: TCheckBox
Left = 286
Top = 5
Width = 203
Height = 17
Caption = 'Mark this allergy as "Entered In Error"'
Caption = '&Mark this allergy as "Entered In Error"'
TabOrder = 0
Visible = False
OnClick = ControlChange
@ -601,8 +610,110 @@ inherited frmARTAllergy: TfrmARTAllergy
CharsNeedMatch = 1
end
end
inherited amgrMain: TVA508AccessibilityManager
Data = (
(
'Component = pnlBase'
'Status = stsDefault')
(
'Component = cmdOK'
'Status = stsDefault')
(
'Component = cmdCancel'
'Status = stsDefault')
(
'Component = pgAllergy'
'Status = stsDefault')
(
'Component = tabGeneral'
'Status = stsDefault')
(
'Component = ckNoKnownAllergies'
'Status = stsDefault')
(
'Component = btnCurrent'
'Status = stsDefault')
(
'Component = lstAllergy'
'Status = stsDefault')
(
'Component = cboOriginator'
'Status = stsDefault')
(
'Component = calOriginated'
'Status = stsDefault')
(
'Component = ckChartMarked'
'Status = stsDefault')
(
'Component = ckIDBand'
'Status = stsDefault')
(
'Component = cboSymptoms'
'Status = stsDefault')
(
'Component = lstSelectedSymptoms'
'Status = stsDefault')
(
'Component = btnDateTime'
'Status = stsDefault')
(
'Component = btnRemove'
'Status = stsDefault')
(
'Component = grpObsHist'
'Status = stsDefault')
(
'Component = cboSeverity'
'Status = stsDefault')
(
'Component = calObservedDate'
'Status = stsDefault')
(
'Component = cmdPrevObs'
'Status = stsDefault')
(
'Component = memComments'
'Status = stsDefault')
(
'Component = cmdPrevCmts'
'Status = stsDefault')
(
'Component = cboNatureOfReaction'
'Status = stsDefault')
(
'Component = btnSevHelp'
'Status = stsDefault')
(
'Component = tabVerify'
'Status = stsDefault')
(
'Component = ckVerified'
'Status = stsDefault')
(
'Component = cboVerifier'
'Status = stsDefault')
(
'Component = calVerifyDate'
'Status = stsDefault')
(
'Component = tabEnteredInError'
'Status = stsDefault')
(
'Component = ckEnteredInError'
'Status = stsDefault')
(
'Component = memErrCmts'
'Status = stsDefault')
(
'Component = cboAllergyType'
'Status = stsDefault')
(
'Component = frmARTAllergy'
'Status = stsDefault'))
end
object dlgReactionDateTime: TORDateTimeDlg
FMDateTime = 2981202
FMDateTime = 2981202.000000000000000000
DateOnly = False
RequireTime = False
Left = 5

34
CPRS-Chart/fARTAllgy.pas
View File

@ -5,7 +5,8 @@ interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, ORCtrls, ORfn, ExtCtrls, ComCtrls, uConst,
Menus, ORDtTm, Buttons, fODBase, fAutoSz, fOMAction, rODAllergy;
Menus, ORDtTm, Buttons, fODBase, fAutoSz, fOMAction, rODAllergy,
VA508AccessibilityManager;
type
TfrmARTAllergy = class(TfrmOMAction)
@ -136,6 +137,7 @@ const
TX_NO_FUTURE_DATES = 'Reaction dates in the future are not allowed.';
TX_BAD_OBS_DATE = 'Observation date must be in the format m/d/y or m/y or y, or T-d.';
TX_MISSING_OBS_DATE = 'Observation date is required for observed reactions.';
TX_MISSING_OBS_HIST = 'You must select either OBSERVED or HISTORICAL for this reaction.';
TX_BAD_VER_DATE = 'Verify date must be in the format m/d/y or m/y or y, or T-d.';
TX_BAD_ORIG_DATE = 'Origination date must be in the format m/d/y or m/y or y, or T-d.';
TX_NO_FUTURE_ORIG_DATES = 'An origination date in the future is not allowed.';
@ -283,7 +285,7 @@ begin
Defaults := TStringList.Create;
StatusText('Loading Default Values');
uUserCanVerify := FALSE; //HasSecurityKey('GMRA-ALLERGY VERIFY');
Defaults.Assign(ODForAllergies);
FastAssign(ODForAllergies, Defaults);
StatusText('Initializing Long List');
ExtractItems(cboSymptoms.Items, Defaults, 'Top Ten');
cboSymptoms.InsertSeparator;
@ -321,9 +323,14 @@ begin
ExtractItems(cboSeverity.Items, Defaults, 'Severity');
ExtractItems(cboNatureOfReaction.Items, Defaults, 'Nature of Reaction');
lstAllergy.Items.Add('-1^Click button to search ---->');
grpObsHist.ItemIndex := 1;
grpObsHist.ItemIndex := -1; // CQ 11775 - v27.10 - RV (was '1')
calObservedDate.Text := '';
cboSeverity.ItemIndex := -1;
cboSeverity.Visible := False;
lblSeverity.Visible := False;
btnSevHelp.Visible := False;
calObservedDate.Visible := False;
lblObservedDate.Visible := False;
cboSymptoms.ItemIndex := -1;
memComments.Clear;
cmdPrevCmts.Visible := (uEditing and (OldRec.Comments <> nil) and (OldRec.Comments.Text <> ''));
@ -400,7 +407,7 @@ begin
lstAllergySelect(Self);
cboAllergyType.SelectByID(Piece(AllergyType, U, 1));
cboNatureOfReaction.SelectByID(Piece(NatureOfReaction, U, 1));
lstSelectedSymptoms.Items.Assign(SignsSymptoms);
FastAssign(SignsSymptoms, lstSelectedSymptoms.Items);
calOriginated.FMDateTime := Originated;
cboOriginator.InitLongList(OriginatorName);
cboOriginator.SelectByIEN(Originator);
@ -449,6 +456,8 @@ begin
if lstAllergy.Items.Count = 0 then SetError(TX_NO_ALLERGY)
else if (Length(lstAllergy.DisplayText[0]) = 0) or
(Piece(lstAllergy.Items[0], U, 1) = '-1') then SetError(TX_NO_ALLERGY);
if (grpObsHist.ItemIndex = -1) then
SetError(TX_MISSING_OBS_HIST);
if (grpObsHist.ItemIndex = 0) then
begin
if (lstSelectedSymptoms.Items.Count = 0) then SetError(TX_NO_SYMPTOMS);
@ -558,7 +567,7 @@ procedure TfrmARTAllergy.ControlChange(Sender: TObject);
var
MyFMNow: TFMDateTime;
i: integer;
SourceGlobalRoot: string;
SourceGlobalRoot, x: string;
begin
inherited;
if Changing then Exit;
@ -582,7 +591,7 @@ begin
begin
DateEnteredInError := MyFMNow; {***}
UserEnteringInError := User.DUZ;
with memErrCmts do if GetTextLen > 0 then ErrorComments.Assign(Lines);
with memErrCmts do if GetTextLen > 0 then QuickCopy(memErrCmts, ErrorComments);
end;
end
else
@ -592,7 +601,12 @@ begin
SourceGlobalRoot := Piece(Piece(Items[0], U, 3), ',', 1) + ',';
if Pos('PSDRUG', SourceGlobalRoot) > 0 then
SourceGlobalRoot := Piece(SourceGlobalRoot, '"', 1);
CausativeAgent := Trim(Piece(DisplayText[0], '<', 1)) + U + Piece(Items[0], U, 1) + ';' + SourceGlobalRoot;
x := Piece(Items[0], U, 2);
if ((Pos('GMRD', SourceGlobalRoot) > 0) or (Pos('PSDRUG', SourceGlobalRoot) > 0))
and (Pos('<', x) > 0) then
x := Copy(x, 1, Length(Piece(x, '<', 1)) - 1);
//x := Trim(Piece(x, '<', 1));
CausativeAgent := x + U + Piece(Items[0], U, 1) + ';' + SourceGlobalRoot;
with cboAllergyType do
if ItemID <> '' then
AllergyType := ItemID + U + Text;
@ -644,7 +658,7 @@ begin
Severity := '';
with memComments do
if GetTextLen > 0 then
NewComments.Assign(Lines);
QuickCopy(memComments, NewComments);
end;
end;
end;
@ -676,9 +690,9 @@ begin
inherited;
AStringList := TStringList.Create;
try
AStringList.Assign(memComments.Lines);
QuickCopy(memComments, AStringList);
LimitStringLength(AStringList, 74);
memComments.Lines.Assign(AstringList);
QuickCopy(AstringList, memComments);
ControlChange(Self);
finally
AStringList.Free;

32
CPRS-Chart/fARTFreeTextMsg.dfm
View File

@ -1,15 +1,17 @@
inherited frmARTFreeTextMsg: TfrmARTFreeTextMsg
Left = 426
Top = 266
Width = 394
Height = 359
Caption = 'Enter Optional Comments'
ClientHeight = 332
ClientWidth = 386
Constraints.MinHeight = 180
Constraints.MinWidth = 394
Position = poMainFormCenter
ExplicitWidth = 394
ExplicitHeight = 366
PixelsPerInch = 96
TextHeight = 13
object pnlText: TORAutoPanel
object pnlText: TORAutoPanel [0]
Left = 0
Top = 0
Width = 386
@ -36,7 +38,7 @@ inherited frmARTFreeTextMsg: TfrmARTFreeTextMsg
WordWrap = False
end
end
object pnlButton: TORAutoPanel
object pnlButton: TORAutoPanel [1]
Left = 0
Top = 294
Width = 386
@ -50,13 +52,13 @@ inherited frmARTFreeTextMsg: TfrmARTFreeTextMsg
Top = 9
Width = 75
Height = 21
Caption = 'Continue'
Caption = '&Continue'
Constraints.MinHeight = 21
TabOrder = 0
OnClick = cmdContinueClick
end
end
object memFreeText: TCaptionRichEdit
object memFreeText: TCaptionRichEdit [2]
Left = 0
Top = 133
Width = 386
@ -72,4 +74,22 @@ inherited frmARTFreeTextMsg: TfrmARTFreeTextMsg
TabOrder = 1
Caption = 'Additional comments:'
end
inherited amgrMain: TVA508AccessibilityManager
Data = (
(
'Component = pnlText'
'Status = stsDefault')
(
'Component = pnlButton'
'Status = stsDefault')
(
'Component = cmdContinue'
'Status = stsDefault')
(
'Component = memFreeText'
'Status = stsDefault')
(
'Component = frmARTFreeTextMsg'
'Status = stsDefault'))
end
end

5
CPRS-Chart/fARTFreeTextMsg.pas
View File

@ -4,7 +4,8 @@ interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, fAutoSz, StdCtrls, ComCtrls, ORFn, ExtCtrls, ORCtrls;
Dialogs, fAutoSz, StdCtrls, ComCtrls, ORFn, ExtCtrls, ORCtrls,
VA508AccessibilityManager;
type
TfrmARTFreeTextMsg = class(TfrmAutoSz)
@ -55,7 +56,7 @@ begin
ActiveControl := memFreeText;
frmARTFreeTextMsg.ShowModal;
OKtoContinue := FContinue;
AFreeTextComment.Assign(tmpList);
FastAssign(tmpList, AFreeTextComment);
end;
finally
tmpList.Free;

6
CPRS-Chart/fAResize.dfm
View File

@ -6,4 +6,10 @@ inherited frmAutoResize: TfrmAutoResize
OnResize = FormResize
PixelsPerInch = 96
TextHeight = 13
inherited amgrMain: TVA508AccessibilityManager
Data = (
(
'Component = frmAutoResize'
'Status = stsDefault'))
end
end

9
CPRS-Chart/fAResize.pas
View File

@ -4,7 +4,7 @@ interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
fPage, ExtCtrls;
fPage, ExtCtrls, VA508AccessibilityManager;
type
TfrmAutoResize = class(TfrmPage)
@ -21,6 +21,8 @@ var
implementation
uses VA508AccessibilityRouter;
{$R *.DFM}
type
@ -93,4 +95,9 @@ begin
FSizes.Free;
end;
initialization
SpecifyFormIsNotADialog(TfrmAutoResize);
end.

BIN
CPRS-Chart/fAbout.ddp
View File

Binary file not shown.

127
CPRS-Chart/fAbout.dfm
View File

@ -1,28 +1,32 @@
inherited frmAbout: TfrmAbout
Left = 311
Top = 55
Left = 61
Top = 137
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'About CPRS'
ClientHeight = 472
ClientHeight = 487
ClientWidth = 337
Position = poScreenCenter
OnCreate = FormCreate
ExplicitLeft = 61
ExplicitTop = 137
ExplicitWidth = 345
ExplicitHeight = 521
PixelsPerInch = 96
TextHeight = 13
object bvlBottom: TBevel
object bvlBottom: TBevel [0]
Left = 6
Top = 285
Width = 326
Height = 42
Top = 288
Width = 328
Height = 47
end
object bvl508Disclaimer: TBevel
object bvl508Disclaimer: TBevel [1]
Left = 6
Top = 337
Top = 338
Width = 326
Height = 101
Height = 121
end
object lblProductName: TStaticText
object lblProductName: TStaticText [2]
Left = 6
Top = 197
Width = 79
@ -31,7 +35,7 @@ inherited frmAbout: TfrmAbout
TabOrder = 1
TabStop = True
end
object lblFileVersion: TStaticText
object lblFileVersion: TStaticText [3]
Left = 193
Top = 197
Width = 65
@ -40,7 +44,7 @@ inherited frmAbout: TfrmAbout
TabOrder = 2
TabStop = True
end
object lblCompanyName: TStaticText
object lblCompanyName: TStaticText [4]
Left = 6
Top = 214
Width = 86
@ -49,7 +53,7 @@ inherited frmAbout: TfrmAbout
TabOrder = 3
TabStop = True
end
object lblComments: TStaticText
object lblComments: TStaticText [5]
Left = 193
Top = 232
Width = 63
@ -58,7 +62,7 @@ inherited frmAbout: TfrmAbout
TabOrder = 5
TabStop = True
end
object lblCRC: TStaticText
object lblCRC: TStaticText [6]
Left = 6
Top = 266
Width = 36
@ -67,19 +71,20 @@ inherited frmAbout: TfrmAbout
TabOrder = 8
TabStop = True
end
object lblLegalCopyright: TMemo
object lblLegalCopyright: TMemo [7]
Left = 8
Top = 288
Top = 289
Width = 322
Height = 38
Height = 44
BorderStyle = bsNone
Color = clBtnFace
Lines.Strings = (
'lblLegalCopyright')
ReadOnly = True
ScrollBars = ssVertical
TabOrder = 9
end
object lblFileDescription: TStaticText
object lblFileDescription: TStaticText [8]
Left = 6
Top = 249
Width = 83
@ -88,7 +93,7 @@ inherited frmAbout: TfrmAbout
TabOrder = 6
TabStop = True
end
object lblInternalName: TStaticText
object lblInternalName: TStaticText [9]
Left = 193
Top = 249
Width = 77
@ -97,7 +102,7 @@ inherited frmAbout: TfrmAbout
TabOrder = 7
TabStop = True
end
object lblOriginalFileName: TStaticText
object lblOriginalFileName: TStaticText [10]
Left = 6
Top = 232
Width = 93
@ -106,7 +111,7 @@ inherited frmAbout: TfrmAbout
TabOrder = 4
TabStop = True
end
object Panel1: TPanel
object Panel1: TPanel [11]
Left = 6
Top = 6
Width = 325
@ -1649,9 +1654,9 @@ inherited frmAbout: TfrmAbout
929293939393D4CF86CFD49392D1858A7C7B7B7B7B7B}
end
end
object cmdOK: TButton
Left = 259
Top = 447
object cmdOK: TButton [12]
Left = 261
Top = 466
Width = 72
Height = 21
Anchors = [akRight, akBottom]
@ -1661,30 +1666,68 @@ inherited frmAbout: TfrmAbout
ModalResult = 1
TabOrder = 11
end
object lbl508Notice: TMemo
object lbl508Notice: TMemo [13]
Left = 8
Top = 340
Width = 322
Height = 97
Top = 341
Width = 327
Height = 118
BorderStyle = bsNone
Color = clBtnFace
Lines.Strings = (
'VHA'#39's Office of Information, System Design & Development staff '
'have made every effort during the design, development and '
'have made every effort during the design, development and testin' +
'g '
'of this application to ensure full accessibility to all users in' +
' '
'compliance with Section 508 of the Rehabilitation Act of 1973, a' +
's '
'amended. Please send any comments, questions or concerns '
'regarding the accessibility of this application to EMAIL ADDRESS' +
': '
'vhaoisddhdscprs508@med.va.gov')
'testing of this application to ensure full accessibility to all ' +
'users in '
'compliance with Section 508 of the Rehabilitation Act of 1973, '
'as amended. Please send any comments, questions or concerns '
'regarding the accessibility of this application to '
'EMAIL ADDRESS:vhaoihdisection508@va.gov')
ReadOnly = True
ScrollBars = ssVertical
TabOrder = 10
WantReturns = False
end
inherited amgrMain: TVA508AccessibilityManager
Data = (
(
'Component = lblProductName'
'Status = stsDefault')
(
'Component = lblFileVersion'
'Status = stsDefault')
(
'Component = lblCompanyName'
'Status = stsDefault')
(
'Component = lblComments'
'Status = stsDefault')
(
'Component = lblCRC'
'Status = stsDefault')
(
'Component = lblLegalCopyright'
'Status = stsDefault')
(
'Component = lblFileDescription'
'Status = stsDefault')
(
'Component = lblInternalName'
'Status = stsDefault')
(
'Component = lblOriginalFileName'
'Status = stsDefault')
(
'Component = Panel1'
'Status = stsDefault')
(
'Component = cmdOK'
'Status = stsDefault')
(
'Component = lbl508Notice'
'Status = stsDefault')
(
'Component = frmAbout'
'Status = stsDefault'))
end
end

4
CPRS-Chart/fAbout.pas
View File

@ -4,7 +4,7 @@ interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
fAutoSz, StdCtrls, ExtCtrls;
fAutoSz, StdCtrls, ExtCtrls, VA508AccessibilityManager;
type
TfrmAbout = class(TfrmAutoSz)
@ -36,7 +36,7 @@ implementation
{$R *.DFM}
uses ORSystem, ORFn;
uses VAUtils, ORFn;
procedure ShowAbout;
var

71
CPRS-Chart/fActivateDeactivate.dfm
View File

@ -1,46 +1,41 @@
object frmActivateDeactive: TfrmActivateDeactive
Left = 491
Top = 376
AutoScroll = False
inherited frmActivateDeactive: TfrmActivateDeactive
Left = 293
Top = 317
BorderIcons = []
Caption = 'Renew Order'
ClientHeight = 185
ClientWidth = 353
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ClientWidth = 569
OldCreateOrder = False
ExplicitWidth = 320
ExplicitHeight = 240
DesignSize = (
353
569
185)
PixelsPerInch = 96
TextHeight = 13
object TActivate: TButton
Left = 143
Top = 160
Width = 56
object TActivate: TButton [0]
Left = 206
Top = 157
Width = 106
Height = 25
Anchors = [akLeft, akTop, akRight, akBottom]
Caption = 'No'
Caption = 'DC Pending Order'
TabOrder = 2
OnClick = TActivateClick
end
object TDeactive: TButton
Left = 63
Top = 160
Width = 56
object TDeactive: TButton [1]
Left = 132
Top = 157
Width = 63
Height = 25
Caption = 'Yes'
Caption = 'DC BOTH'
TabOrder = 1
OnClick = TDeactiveClick
end
object Memo1: TMemo
object Memo1: TMemo [2]
Left = 0
Top = 0
Width = 345
Width = 569
Height = 145
BorderStyle = bsNone
Color = clBtnFace
@ -50,13 +45,31 @@ object frmActivateDeactive: TfrmActivateDeactive
ScrollBars = ssVertical
TabOrder = 0
end
object TCancel: TButton
Left = 225
Top = 160
Width = 56
object TCancel: TButton [3]
Left = 324
Top = 157
Width = 137
Height = 25
Caption = 'Cancel'
Caption = 'Cancel-No Action Taken'
TabOrder = 3
OnClick = TCancelClick
end
inherited amgrMain: TVA508AccessibilityManager
Data = (
(
'Component = TActivate'
'Status = stsDefault')
(
'Component = TDeactive'
'Status = stsDefault')
(
'Component = Memo1'
'Status = stsDefault')
(
'Component = TCancel'
'Status = stsDefault')
(
'Component = frmActivateDeactive'
'Status = stsDefault'))
end
end

63
CPRS-Chart/fActivateDeactivate.pas
View File

@ -5,7 +5,7 @@ interface
uses
Windows, Messages, SysUtils, StrUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, fAutoSz, StdCtrls, ExtCtrls, ORCtrls,ORFn, rCore, uCore, oRNet, Math, fOrders, ORClasses, rOrders,
fMeds, rMeds;
fMeds, rMeds, VA508AccessibilityManager;
type
TfrmActivateDeactive = class(TfrmAutoSz)
@ -19,6 +19,7 @@ type
private
{ Private declarations }
procedure GetOriginalOrders(OrderID: TStringList; var OriginalOrder: TORStringList);
procedure DCOriginalOrder(OrderID: string);
procedure BuildForm(Str1: String);
function PromptForm(Text: String): String;
public
@ -46,12 +47,12 @@ var
begin
with frmActivateDeactive do
begin
str := 'This order ' + str1 +' is currently in a pending status. ';
str := str + CRLF + 'If this order is discontinued, the original order status will be changed to active, unless it is discontinued.';
str := 'This order is in a pending status. If this pending order is discontinued, the original order will still be active.';
str := str + CRLF + CRLF + str1;
str := str + CRLF + CRLF + 'Click:';
str := str + CRLF + ' "Yes" to discontinue the original order';
str := str + CRLF + ' "No" to change the status to active';
str := str + CRLF + ' "Cancel" to stop the discontinue process for this order';
str := str + CRLF + ' "DC BOTH" to discontinue both orders ';
str := str + CRLF + ' "DC Pending Order" to discontinue only the pending order and return the original order back to an active status ';
str := str + CRLF + ' "Cancel - No Action Taken" to stop the discontinue process ';
Memo1.ReadOnly := False;
Memo1.Text := str;
Memo1.ReadOnly := True;
@ -63,10 +64,10 @@ end;
procedure TfrmActivateDeactive.fActivateDeactive(OrderID: TStringList);
var
i,j,Pos: integer;
i,Pos: integer;
tmpArr: TORStringList;
ActDeact: string;
AnOrder,AnOrder1: TOrder;
AnOrder: TOrder;
begin
//called from order tab
tmpArr := TORStringList.Create;
@ -78,15 +79,8 @@ begin
if Pos > -1 then
begin
ActDeact := PromptForm(AnOrder.Text);
if ActDeact = 'D' then
begin
for j := 0 to forders.frmOrders.lstOrders.Items.Count-1 do
begin
AnOrder1 := TOrder(forders.frmOrders.lstOrders.Items.Objects[j]);
if AnOrder1.ID = Piece(tmpArr.Strings[Pos],U,2) then
forders.frmOrders.lstOrders.Selected[j] := True;
end;
end;
if ActDeact = 'D' then AnOrder.DCOriginalOrder := True;
if ActDeact = 'A' then AnOrder.DCOriginalOrder := False;
if ActDeact = 'C' then Selected[i] := False;
end;
end;
@ -94,41 +88,31 @@ end;
procedure TfrmActivateDeactive.fActivateDeactive(OrderID: TStringList; AList: TListBox);
var
i,j,Pos: integer;
i,Pos: integer;
tmpArr: TORStringList;
ActDeact: String;
AMed,AMed1: TMedListRec;
AMed: TMedListRec;
AnOrder: TOrder;
begin
//called from Med tab
tmpArr := TORStringList.Create;
GetOriginalOrders(OrderID,tmpArr);
with AList do for i := 0 to items.Count-1 do if Selected[i] then
AnOrder := TOrder.Create;
with AList do for i := 0 to items.Count-1 do if Selected[i] then
begin
AMed := TMedListRec(Items.Objects[i]);
if AMed = nil then Continue;
Pos := tmpArr.IndexOfPiece(AMed.OrderID,U,1);
if Pos > -1 then
begin
ActDeact := PromptForm(Alist.Items.Strings[i]);
if ActDeact = 'D' then
begin
for j := 0 to Alist.Items.Count-1 do
begin
AMed1 := TMedListRec(Alist.Items.Objects[j]);
if AMed1.OrderID = Piece(tmpArr.Strings[Pos],U,2) then
begin
Alist.Selected[j] := True;
break;
end;
//some med orders may not have an action defined tends to be renew order of orders that were renew from another
//order and outpatient orders
if (AMed1.OrderID = Piece(Piece(tmpArr.Strings[Pos],U,2),';',1)) then
begin
Alist.Selected[j] := True;
break;
end;
end;
AnOrder := GetOrderByIFN(Piece(tmpArr.Strings[Pos],U,1));
DCOriginalOrder(AnOrder.ID);
//AnOrder.DCOriginalOrder := True;
end;
if ActDeact = 'A' then AnOrder.DCOriginalOrder := False;
if ActDeact = 'C' then Selected[i] := False;
end;
end;
@ -179,4 +163,9 @@ begin
frmActivateDeactive.Close;
end;
procedure TfrmActivateDeactive.DCOriginalOrder(OrderID: string);
begin
CallV('ORWDX1 DCORIG', [OrderID]);
end;
end.

140
CPRS-Chart/fAddlSigners.dfm
View File

@ -1,34 +1,30 @@
object frmAddlSigners: TfrmAddlSigners
inherited frmAddlSigners: TfrmAddlSigners
Left = 275
Top = 164
BorderStyle = bsDialog
Caption = 'Identify Additional Signers'
ClientHeight = 362
ClientWidth = 403
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ClientHeight = 364
ClientWidth = 443
OldCreateOrder = True
Position = poScreenCenter
OnCreate = FormCreate
OnDestroy = FormDestroy
ExplicitWidth = 449
ExplicitHeight = 396
PixelsPerInch = 96
TextHeight = 13
object pnlBase: TPanel
object pnlBase: TPanel [0]
Left = 0
Top = 0
Width = 403
Height = 362
Width = 443
Height = 364
Align = alClient
BevelOuter = bvNone
TabOrder = 0
object pnlButtons: TORAutoPanel
Left = 0
Top = 309
Width = 403
Top = 311
Width = 443
Height = 53
Align = alBottom
BevelOuter = bvNone
@ -38,7 +34,7 @@ object frmAddlSigners: TfrmAddlSigners
Top = 14
Width = 75
Height = 25
Caption = 'OK'
Caption = '&OK'
TabOrder = 0
OnClick = cmdOKClick
end
@ -48,7 +44,7 @@ object frmAddlSigners: TfrmAddlSigners
Width = 75
Height = 25
Cancel = True
Caption = 'Cancel'
Caption = '&Cancel'
TabOrder = 1
OnClick = cmdCancelClick
end
@ -56,8 +52,8 @@ object frmAddlSigners: TfrmAddlSigners
object pnlAdditional: TORAutoPanel
Left = 0
Top = 70
Width = 403
Height = 239
Width = 443
Height = 241
Align = alClient
TabOrder = 1
object SrcLabel: TLabel
@ -69,8 +65,8 @@ object frmAddlSigners: TfrmAddlSigners
Caption = 'Select or enter additional signers'
end
object DstLabel: TLabel
Left = 214
Top = 16
Left = 266
Top = 15
Width = 145
Height = 16
AutoSize = False
@ -98,6 +94,7 @@ object frmAddlSigners: TfrmAddlSigners
SynonymChars = '<>'
TabOrder = 0
TabStop = True
OnChange = cboSrcListChange
OnClick = cboSrcListClick
OnKeyDown = cboSrcListKeyDown
OnMouseClick = cboSrcListMouseClick
@ -105,36 +102,58 @@ object frmAddlSigners: TfrmAddlSigners
CharsNeedMatch = 1
end
object DstList: TORListBox
Left = 213
Top = 33
Width = 174
Left = 266
Top = 37
Width = 170
Height = 185
ItemHeight = 13
MultiSelect = True
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnClick = DstListClick
Sorted = True
TabOrder = 2
OnClick = DstListChange
Caption = 'Current additional signers'
ItemTipColor = clWindow
LongList = False
Pieces = '2'
OnChange = DstListChange
end
object cmdRemove: TButton
Left = 264
Top = 221
Width = 75
object btnRemoveSigners: TButton
Left = 189
Top = 108
Width = 71
Height = 25
Caption = 'Remove'
TabOrder = 2
Visible = False
OnClick = cmdRemoveClick
Caption = '&Remove'
Enabled = False
TabOrder = 3
OnClick = btnRemoveSignersClick
end
object btnAddSigners: TButton
Left = 189
Top = 77
Width = 71
Height = 25
Caption = '&Add'
Enabled = False
TabOrder = 1
OnClick = btnAddSignersClick
end
object btnRemoveAllSigners: TButton
Left = 189
Top = 139
Width = 71
Height = 25
Caption = 'R&emove All'
Enabled = False
TabOrder = 4
OnClick = btnRemoveAllSignersClick
end
end
object pnlTop: TORAutoPanel
Left = 0
Top = 0
Width = 403
Width = 443
Height = 70
Align = alTop
BevelOuter = bvNone
@ -151,8 +170,8 @@ object frmAddlSigners: TfrmAddlSigners
WordWrap = False
end
object lblCosigner: TOROffsetLabel
Left = 213
Top = 10
Left = 246
Top = 6
Width = 155
Height = 15
Caption = 'Expected Cosigner (not editable)'
@ -162,8 +181,8 @@ object frmAddlSigners: TfrmAddlSigners
WordWrap = False
end
object cboCosigner: TORComboBox
Left = 214
Top = 26
Left = 246
Top = 27
Width = 174
Height = 21
Style = orcsDropDown
@ -203,4 +222,49 @@ object frmAddlSigners: TfrmAddlSigners
end
end
end
inherited amgrMain: TVA508AccessibilityManager
Data = (
(
'Component = pnlBase'
'Status = stsDefault')
(
'Component = pnlButtons'
'Status = stsDefault')
(
'Component = cmdOK'
'Status = stsDefault')
(
'Component = cmdCancel'
'Status = stsDefault')
(
'Component = pnlAdditional'
'Status = stsDefault')
(
'Component = cboSrcList'
'Status = stsDefault')
(
'Component = DstList'
'Status = stsDefault')
(
'Component = btnRemoveSigners'
'Status = stsDefault')
(
'Component = btnAddSigners'
'Status = stsDefault')
(
'Component = pnlTop'
'Status = stsDefault')
(
'Component = cboCosigner'
'Status = stsDefault')
(
'Component = txtAuthor'
'Status = stsDefault')
(
'Component = frmAddlSigners'
'Status = stsDefault')
(
'Component = btnRemoveAllSigners'
'Status = stsDefault'))
end
end

98
CPRS-Chart/fAddlSigners.pas
View File

@ -3,10 +3,11 @@ unit fAddlSigners;
interface
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons, ORCtrls, ORfn, ExtCtrls, FNoteProps,Dialogs;
Buttons, ORCtrls, ORfn, ExtCtrls, FNoteProps, Dialogs, fBase508Form,
VA508AccessibilityManager;
type
TfrmAddlSigners = class(TForm)
TfrmAddlSigners = class(TfrmBase508Form)
cmdOK: TButton;
cmdCancel: TButton;
cboSrcList: TORComboBox;
@ -14,7 +15,7 @@ type
SrcLabel: TLabel;
DstLabel: TLabel;
pnlBase: TPanel;
cmdRemove: TButton;
btnRemoveSigners: TButton;
lblAuthor: TOROffsetLabel;
cboCosigner: TORComboBox;
lblCosigner: TOROffsetLabel;
@ -22,22 +23,27 @@ type
pnlAdditional: TORAutoPanel;
pnlButtons: TORAutoPanel;
pnlTop: TORAutoPanel;
btnAddSigners: TButton;
btnRemoveAllSigners: TButton;
procedure btnAddSignersClick(Sender: TObject);
procedure NewPersonNeedData(Sender: TObject; const StartFrom: String;
Direction, InsertAt: Integer);
procedure cmdOKClick(Sender: TObject);
procedure cmdCancelClick(Sender: TObject);
procedure cboSrcListMouseClick(Sender: TObject);
procedure cmdRemoveClick(Sender: TObject);
procedure btnRemoveSignersClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure cboCosignerChange(Sender: TObject);
procedure DstListClick(Sender: TObject);
procedure cboSrcListKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure cboCosignerNeedData(Sender: TObject; const StartFrom: String;
Direction, InsertAt: Integer);
procedure cboCosignerExit(Sender: TObject);
procedure cboSrcListClick(Sender: TObject);
procedure DstListChange(Sender: TObject);
procedure btnRemoveAllSignersClick(Sender: TObject);
procedure cboSrcListChange(Sender: TObject);
private
FSigners: TStringList ;
FCosigner: int64;
@ -49,6 +55,7 @@ type
FToday: string;
FTabID: integer;
function CosignerOK: Boolean;
end;
TSignerList = record
@ -70,7 +77,7 @@ implementation
{$R *.DFM}
uses
rCore, uCore, rTIU, uConst, rPCE;
rCore, uCore, rTIU, uConst, rPCE, fDCSumm;
const
TX_SIGNER_CAP = 'Error adding signers';
@ -98,7 +105,7 @@ begin
FSigAction := SigAction;
FNoteIEN := NoteIEN;
FRefDate := ARefDate;
FExclusions.Assign(Exclusions);
FastAssign(Exclusions, FExclusions);
FToday := FloatToStr(FMToday);
if FSigAction = SG_COSIGNER then
begin
@ -120,7 +127,10 @@ begin
cboCosigner.ItemIndex := 0;
end
else
begin
DstList.Items.Add(Strings[i]);
btnRemoveAllSigners.Enabled := DstList.Items.Count > 0;
end;
end;
if (SigAction = SG_COSIGNER) or (SigAction = SG_BOTH) then
@ -138,7 +148,7 @@ begin
with SignerList do
begin
Signers := TStringList.Create;
Signers.Assign(FSigners);
FastAssign(FSigners, Signers);
Cosigner := FCosigner;
Changed := FChanged ;
end ;
@ -196,10 +206,19 @@ begin
Exit;
end;
DstList.Items.Add(cboSrcList.Items[cboSrcList.Itemindex]) ;
cboSrcList.SelectByID(cboSrcList.ItemID);
btnRemoveSigners.Enabled := DstList.SelCount > 0;
btnRemoveAllSigners.Enabled := DstList.Items.Count > 0;
end;
procedure TfrmAddlSigners.cmdRemoveClick(Sender: TObject);
procedure TfrmAddlSigners.btnRemoveAllSignersClick(Sender: TObject);
begin
inherited;
DstList.SelectAll;
btnRemoveSignersClick(self);
end;
procedure TfrmAddlSigners.btnRemoveSignersClick(Sender: TObject);
var
i,j: integer;
begin
@ -217,25 +236,35 @@ begin
end;
end;
procedure TfrmAddlSigners.btnAddSignersClick(Sender: TObject);
begin
inherited;
cboSrcListMouseClick(btnAddSigners);
end;
procedure TfrmAddlSigners.cboCosignerChange(Sender: TObject);
var
i: integer;
begin
if UserInactive(cboCosigner.ItemID) then
if (InfoBox(fNoteProps.TX_USER_INACTIVE, TC_INACTIVE_USER, MB_OKCANCEL)= IDCANCEL) then exit;
if not CosignerOK then Exit;
i := DstList.SelectByID(cboCosigner.ItemID);
if i > -1 then
with cboCosigner do
begin
if UserInactive(ItemID) then
if (InfoBox(fNoteProps.TX_USER_INACTIVE, TC_INACTIVE_USER, MB_OKCANCEL)= IDCANCEL) then exit;
if not CosignerOK then Exit;
i := DstList.SelectByID(ItemID);
if i > -1 then
begin
DstList.Items.Delete(i);
FSigners.Add(ORFn.Pieces(cboCosigner.Items[cboCosigner.ItemIndex], U, 1, 2) + '^REMOVE');
FSigners.Add(ORFn.Pieces(Items[ItemIndex], U, 1, 2) + '^REMOVE');
end;
for i := 0 to FExclusions.Count - 1 do
if (Piece(FExclusions.Strings[i],U,3) = 'Expected Cosigner') then
FExclusions.Strings[i] := ORFn.Pieces(Items[ItemIndex], U, 1, 2) + '^Expected Cosigner';
end;
end;
procedure TfrmAddlSigners.FormCreate(Sender: TObject);
begin
cboCosigner.Color := ReadOnlyColor;
txtAuthor.Color := ReadOnlyColor;
FSigners := TStringList.Create;
FExclusions := TStringList.Create;
end;
@ -246,9 +275,18 @@ begin
FExclusions.Free;
end;
procedure TfrmAddlSigners.DstListClick(Sender: TObject);
procedure TfrmAddlSigners.DstListChange(Sender: TObject);
begin
if DstList.ItemIndex > -1 then cmdRemoveClick(Self);
inherited;
if DstList.SelCount = 1 then
if Piece(DstList.Items[0], '^', 1) = '' then
begin
btnRemoveSigners.Enabled := false;
btnRemoveAllSigners.Enabled := false;
exit;
end;
btnRemoveSigners.Enabled := DstList.SelCount > 0;
btnRemoveAllSigners.Enabled := DstList.Items.Count > 0;
end;
procedure TfrmAddlSigners.cboSrcListKeyDown(Sender: TObject; var Key: Word;
@ -293,7 +331,11 @@ begin
case FTabID of
CT_NOTES: TORComboBox(Sender).ForDataUse(SubSetOfUsersWithClass(StartFrom, Direction, FToday));
CT_CONSULTS: TORComboBox(Sender).ForDataUse(SubSetOfUsersWithClass(StartFrom, Direction, FToday));
CT_DCSUMM: TORComboBox(Sender).ForDataUse(SubSetOfProviders(StartFrom, Direction));
//CQ #17218 - Updated to properly filter co-signers - JCS
//CT_DCSUMM: TORComboBox(Sender).ForDataUse(SubSetOfProviders(StartFrom, Direction));
CT_DCSUMM: (Sender as TORComboBox).ForDataUse(SubSetOfCosigners(StartFrom, Direction,
FMToday, 0, frmDCSumm.lstSumms.ItemIEN));
end;
end;
@ -302,12 +344,16 @@ begin
with cboCosigner do if Text = '' then ItemIndex := -1;
end;
procedure TfrmAddlSigners.cboSrcListClick(Sender: TObject);
var UserEIN:string;
procedure TfrmAddlSigners.cboSrcListChange(Sender: TObject);
begin
UserEIN := Piece(cboSrcList.Items[cboSrcList.Itemindex],U,1);
if UserInactive(UserEIN) then
if (InfoBox(fNoteProps.TX_USER_INACTIVE, TC_INACTIVE_USER, MB_OKCANCEL)= IDCANCEL) then exit;
inherited;
btnAddSigners.Enabled := CboSrcList.ItemIndex > -1;
end;
procedure TfrmAddlSigners.cboSrcListClick(Sender: TObject);
begin
if UserInactive(cboSrcList.ItemID) then
if (InfoBox(fNoteProps.TX_USER_INACTIVE, TC_INACTIVE_USER, MB_OKCANCEL)= IDCANCEL) then exit;
end;

145
CPRS-Chart/fAlertForward.dfm
View File

@ -1,25 +1,21 @@
object frmAlertForward: TfrmAlertForward
inherited frmAlertForward: TfrmAlertForward
Left = 297
Top = 206
BorderStyle = bsDialog
Caption = 'Forward Alert'
ClientHeight = 381
ClientWidth = 354
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ClientWidth = 387
OldCreateOrder = True
Position = poScreenCenter
OnCreate = FormCreate
ExplicitWidth = 393
ExplicitHeight = 406
PixelsPerInch = 96
TextHeight = 13
object pnlBase: TORAutoPanel
object pnlBase: TORAutoPanel [0]
Left = 0
Top = 0
Width = 354
Width = 387
Height = 381
Align = alClient
BevelOuter = bvNone
@ -27,57 +23,53 @@ object frmAlertForward: TfrmAlertForward
object SrcLabel: TLabel
Left = 12
Top = 120
Width = 133
Width = 144
Height = 30
AutoSize = False
Caption = 'Select one or more names to receive forwarded alert'
WordWrap = True
end
object DstLabel: TLabel
Left = 196
Top = 134
Left = 231
Top = 133
Width = 145
Height = 16
AutoSize = False
Caption = 'Currently selected recipients'
end
object Label1: TLabel
Left = 8
Top = 48
Left = 12
Top = 47
Width = 44
Height = 13
Caption = 'Comment'
end
object cmdOK: TButton
Left = 185
Top = 346
Left = 105
Top = 349
Width = 75
Height = 25
Caption = 'OK'
Default = True
ModalResult = 1
TabOrder = 4
Caption = '&OK'
TabOrder = 7
OnClick = cmdOKClick
end
object cmdCancel: TButton
Left = 265
Top = 346
Left = 193
Top = 349
Width = 75
Height = 25
Cancel = True
Caption = 'Cancel'
ModalResult = 2
TabOrder = 5
Caption = '&Cancel'
TabOrder = 8
OnClick = cmdCancelClick
end
object cboSrcList: TORComboBox
Left = 12
Top = 150
Top = 156
Width = 144
Height = 185
Style = orcsSimple
AutoSelect = True
Caption = 'Select or enter name'
Color = clWindow
DropDownCount = 8
ItemHeight = 13
@ -85,53 +77,124 @@ object frmAlertForward: TfrmAlertForward
ItemTipEnable = True
ListItemsOnly = True
LongList = True
LookupPiece = 0
MaxLength = 0
Pieces = '2,3'
Sorted = False
SynonymChars = '<>'
TabOrder = 2
OnChange = cboSrcListChange
OnKeyDown = cboSrcListKeyDown
OnMouseClick = cboSrcListMouseClick
OnNeedData = cboSrcListNeedData
CharsNeedMatch = 1
end
object DstList: TORListBox
Left = 196
Top = 150
Left = 231
Top = 155
Width = 144
Height = 185
ItemHeight = 13
MultiSelect = True
ParentShowHint = False
ShowHint = True
TabOrder = 3
OnClick = DstListClick
OnKeyDown = DstListKeyDown
TabOrder = 4
OnClick = DstListChange
Caption = 'Currently selected recipients'
ItemTipColor = clWindow
LongList = False
Pieces = '2'
OnChange = DstListChange
end
object memAlert: TMemo
Left = 8
Top = 16
Width = 337
Height = 25
Left = 12
Top = 8
Width = 363
Height = 33
TabStop = False
Color = clBtnFace
Lines.Strings = (
'memAlert')
ReadOnly = True
TabOrder = 1
TabOrder = 0
WantReturns = False
end
object memComment: TMemo
Left = 8
Left = 12
Top = 64
Width = 337
Width = 363
Height = 49
MaxLength = 180
ScrollBars = ssVertical
TabOrder = 0
TabOrder = 1
end
object btnAddAlert: TButton
Left = 162
Top = 200
Width = 63
Height = 25
Caption = '&Add'
TabOrder = 3
OnClick = btnAddAlertClick
end
object btnRemoveAlertFwrd: TButton
Left = 162
Top = 231
Width = 63
Height = 25
Caption = '&Remove'
Enabled = False
TabOrder = 5
OnClick = btnRemoveAlertFwrdClick
end
object btnRemoveAllAlertFwrd: TButton
Left = 162
Top = 262
Width = 63
Height = 25
Caption = 'R&emove All'
Enabled = False
TabOrder = 6
OnClick = btnRemoveAllAlertFwrdClick
end
end
inherited amgrMain: TVA508AccessibilityManager
Left = 56
Top = 72
Data = (
(
'Component = pnlBase'
'Status = stsDefault')
(
'Component = cmdOK'
'Status = stsDefault')
(
'Component = cmdCancel'
'Status = stsDefault')
(
'Component = cboSrcList'
'Label = SrcLabel'
'Status = stsOK')
(
'Component = DstList'
'Status = stsDefault')
(
'Component = memAlert'
'Status = stsDefault')
(
'Component = memComment'
'Status = stsDefault')
(
'Component = btnAddAlert'
'Status = stsDefault')
(
'Component = btnRemoveAlertFwrd'
'Status = stsDefault')
(
'Component = frmAlertForward'
'Status = stsDefault')
(
'Component = btnRemoveAllAlertFwrd'
'Status = stsDefault'))
end
end

124
CPRS-Chart/fAlertForward.pas
View File

@ -3,10 +3,11 @@ unit fAlertForward;
interface
uses Windows, Messages, SysUtils, Classes, Graphics, Forms, Controls,
Dialogs, StdCtrls, Buttons, ORCtrls, ORfn, ExtCtrls, fAutoSz, ComCtrls;
Dialogs, StdCtrls, Buttons, ORCtrls, ORfn, ExtCtrls, fAutoSz, ComCtrls, fBase508Form,
VA508AccessibilityManager;
type
TfrmAlertForward = class(TForm)
TfrmAlertForward = class(TfrmBase508Form)
cmdOK: TButton;
cmdCancel: TButton;
cboSrcList: TORComboBox;
@ -17,25 +18,37 @@ type
memAlert: TMemo;
Label1: TLabel;
memComment: TMemo;
btnAddAlert: TButton;
btnRemoveAlertFwrd: TButton;
btnRemoveAllAlertFwrd: TButton;
procedure btnRemoveAlertFwrdClick(Sender: TObject);
procedure btnAddAlertClick(Sender: TObject);
procedure cboSrcListNeedData(Sender: TObject; const StartFrom: String;
Direction, InsertAt: Integer);
procedure cmdOKClick(Sender: TObject);
procedure cmdCancelClick(Sender: TObject);
procedure cboSrcListKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure DstListClick(Sender: TObject);
procedure cboSrcListMouseClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure DstListKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
end;
procedure cboSrcListChange(Sender: TObject);
procedure DstListChange(Sender: TObject);
procedure btnRemoveAllAlertFwrdClick(Sender: TObject);
private
RemovingAll: boolean;
end;
function ForwardAlertTo(Alert: String): Boolean;
implementation
{$R *.DFM}
uses rCore, uCore;
uses rCore, uCore, VA508AccessibilityRouter;
const
TX_DUP_RECIP = 'You have already selected that recipient.';
TX_RECIP_CAP = 'Error adding recipient';
var XQAID: string;
@ -61,7 +74,9 @@ end;
procedure TfrmAlertForward.FormCreate(Sender: TObject);
begin
inherited;
cboSrcList.InitLongList('');
if ScreenReaderSystemActive then
memAlert.TabStop := TRUE;
cboSrcList.InitLongList('');
end;
procedure TfrmAlertForward.cboSrcListNeedData(Sender: TObject;
@ -80,7 +95,7 @@ var
i: integer ;
Recip: string;
begin
if DstList.Items.Count = 0 then Exit;
for i := 0 to DstList.Items.Count-1 do
begin
Recip := Piece(DstList.Items[i], U, 1);
@ -90,29 +105,94 @@ begin
Close;
end;
procedure TfrmAlertForward.DstListClick(Sender: TObject);
procedure TfrmAlertForward.DstListChange(Sender: TObject);
var
HasFocus: boolean;
begin
if DstList.ItemIndex = -1 then Exit;
DstList.Items.Delete(DstList.ItemIndex);
inherited;
if DstList.SelCount = 1 then
if Piece(DstList.Items[0], '^', 1) = '' then
begin
btnRemoveAlertFwrd.Enabled := false;
btnRemoveAllAlertFwrd.Enabled := false;
exit;
end;
HasFocus := btnRemoveAlertFwrd.Focused;
if Not HasFocus then
HasFocus := btnRemoveAllAlertFwrd.Focused;
btnRemoveAlertFwrd.Enabled := DstList.SelCount > 0;
btnRemoveAllAlertFwrd.Enabled := DstList.Items.Count > 0;
if HasFocus and (DstList.SelCount = 0) then
btnAddAlert.SetFocus;
end;
procedure TfrmAlertForward.btnAddAlertClick(Sender: TObject);
begin
inherited;
cboSrcListMouseClick(btnAddAlert);
end;
procedure TfrmAlertForward.btnRemoveAlertFwrdClick(Sender: TObject);
var
i: integer;
begin
with DstList do
begin
if ItemIndex = -1 then exit ;
for i := Items.Count-1 downto 0 do
if Selected[i] then
begin
if ScreenReaderSystemActive and (not RemovingAll) then
GetScreenReader.Speak(Piece(DstList.Items[i],U,2) +
' Removed from ' + DstLabel.Caption);
Items.Delete(i) ;
end;
end;
end;
procedure TfrmAlertForward.btnRemoveAllAlertFwrdClick(Sender: TObject);
begin
inherited;
DstList.SelectAll;
RemovingAll := TRUE;
try
btnRemoveAlertFwrdClick(self);
if ScreenReaderSystemActive then
GetScreenReader.Speak(DstLabel.Caption + ' Cleared');
finally
RemovingAll := FALSE;
end;
end;
procedure TfrmAlertForward.cboSrcListChange(Sender: TObject);
begin
inherited;
btnAddAlert.Enabled := CboSrcList.ItemIndex > -1;
end;
procedure TfrmAlertForward.cboSrcListKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_SPACE then cboSrcListMouseClick(Self);
if Key = VK_RETURN then
begin
cboSrcListMouseClick(Self);
end;
end;
procedure TfrmAlertForward.cboSrcListMouseClick(Sender: TObject);
begin
if cboSrcList.ItemIndex = -1 then Exit;
if DstList.SelectByID(cboSrcList.ItemID) = -1 then
DstList.Items.Add(cboSrcList.Items[cboSrcList.Itemindex]);
end;
procedure TfrmAlertForward.DstListKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_SPACE then DstListClick(Self);
if cboSrcList.ItemIndex = -1 then exit;
if (DstList.SelectByID(cboSrcList.ItemID) <> -1) then
begin
InfoBox(TX_DUP_RECIP, TX_RECIP_CAP, MB_OK or MB_ICONWARNING);
Exit;
end;
DstList.Items.Add(cboSrcList.Items[cboSrcList.Itemindex]);
if ScreenReaderSystemActive then
GetScreenReader.Speak(Piece(cboSrcList.Items[cboSrcList.Itemindex],U,2) +
' Added to ' + DstLabel.Caption);
btnRemoveAlertFwrd.Enabled := DstList.SelCount > 0;
btnRemoveAllAlertFwrd.Enabled := DstList.Items.Count > 0;
end;
end.

56
CPRS-Chart/fAllgyBox.dfm
View File

@ -1,57 +1,89 @@
inherited frmAllgyBox: TfrmAllgyBox
Left = 487
Top = 242
Width = 457
Caption = 'frmAllgyBox'
ClientWidth = 449
Constraints.MinWidth = 457
Position = poMainFormCenter
ExplicitWidth = 457
ExplicitHeight = 355
PixelsPerInch = 96
TextHeight = 13
inherited memReport: TRichEdit
Width = 449
ExplicitWidth = 449
end
inherited pnlButton: TPanel
Width = 449
ExplicitWidth = 449
inherited cmdPrint: TButton
Left = 293
Top = 3
Anchors = [akTop, akRight]
Caption = '&Print'
TabOrder = 3
ExplicitLeft = 293
end
inherited cmdClose: TButton
Left = 373
Top = 3
Anchors = [akTop, akRight]
Caption = '&Close'
TabOrder = 4
ExplicitLeft = 373
end
object cmdEdit: TButton
Left = 98
Top = 3
Top = 0
Width = 90
Height = 21
Anchors = [akTop, akRight]
Caption = 'Edit'
Caption = 'E&dit'
TabOrder = 1
Visible = False
OnClick = cmdEditClick
end
object cmdAdd: TButton
Left = 2
Top = 3
Top = 0
Width = 90
Height = 21
Anchors = [akTop, akRight]
Caption = 'Add New'
Caption = '&Add New'
TabOrder = 0
OnClick = cmdAddClick
end
object cmdInError: TButton
Left = 195
Top = 3
Top = 0
Width = 90
Height = 21
Anchors = [akTop, akRight]
Caption = 'Entered in Error'
Caption = '&Entered in Error'
TabOrder = 2
OnClick = cmdInErrorClick
end
end
inherited amgrMain: TVA508AccessibilityManager
Data = (
(
'Component = cmdEdit'
'Status = stsDefault')
(
'Component = cmdAdd'
'Status = stsDefault')
(
'Component = cmdInError'
'Status = stsDefault')
(
'Component = memReport'
'Status = stsDefault')
(
'Component = pnlButton'
'Status = stsDefault')
(
'Component = cmdPrint'
'Status = stsDefault')
(
'Component = cmdClose'
'Status = stsDefault')
(
'Component = frmAllgyBox'
'Status = stsDefault'))
end
end

19
CPRS-Chart/fAllgyBox.pas
View File

@ -4,7 +4,8 @@ interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, fRptBox, StdCtrls, ExtCtrls, ComCtrls, fARTAllgy, ORFn;
Dialogs, fRptBox, StdCtrls, ExtCtrls, ComCtrls, fARTAllgy, ORFn,
VA508AccessibilityManager;
type
TfrmAllgyBox = class(TfrmReportBox)
@ -79,10 +80,22 @@ begin
ForceInsideWorkArea(Rect);
BoundsRect := Rect;
ResizeAnchoredFormToFont(Result);
//CQ6889 - force Print & Close buttons to bottom right of form regardless of selected font size
cmdClose.Left := (pnlButton.Left+pnlButton.Width)-cmdClose.Width;
cmdPrint.Left := (cmdClose.Left-cmdPrint.Width) - 1;
//end CQ6889
Constraints.MinWidth := cmdAdd.Width + cmdEdit.Width + cmdInError.Width + cmdPrint.Width + cmdClose.Width + 20;
Constraints.MinHeight := 2*pnlButton.Height + memReport.Height;
cmdAdd.Left := 1;
cmdEdit.Left := (cmdAdd.Left + cmdAdd.Width) + 1;
cmdInError.Left := (cmdEdit.Left + cmdEdit.Width) + 1;
SetLength(BtnLeft, k);
for j := 0 to k - 1 do
BtnLeft[j] := pnlButton.Width - BtnArray[j].Width - BtnRight[j];
memReport.Lines.Assign(ReportText);
QuickCopy(ReportText, memReport);
for i := 1 to Length(ReportTitle) do if ReportTitle[i] = #9 then ReportTitle[i] := ' ';
Caption := ReportTitle;
memReport.SelStart := 0;
@ -157,7 +170,7 @@ end;
procedure TfrmAllgyBox.RefreshText;
begin
memReport.Clear;
memReport.Lines.Assign(DetailAllergy(FAllergyIEN));
QuickCopy(DetailAllergy(FAllergyIEN), memReport);
end;
end.

85
CPRS-Chart/fAllgyFind.dfm
View File

@ -8,9 +8,13 @@ inherited frmAllgyFind: TfrmAllgyFind
ClientWidth = 445
Position = poScreenCenter
OnCreate = FormCreate
ExplicitLeft = 408
ExplicitTop = 234
ExplicitWidth = 453
ExplicitHeight = 506
PixelsPerInch = 96
TextHeight = 13
object lblSearch: TLabel
object lblSearch: TLabel [0]
Left = 0
Top = 0
Width = 445
@ -26,7 +30,7 @@ inherited frmAllgyFind: TfrmAllgyFind
ParentFont = False
Layout = tlBottom
end
object lblSelect: TLabel
object lblSelect: TLabel [1]
Left = 5
Top = 124
Width = 152
@ -34,7 +38,7 @@ inherited frmAllgyFind: TfrmAllgyFind
Caption = 'Select one of the following items'
Visible = False
end
object lblDetail: TLabel
object lblDetail: TLabel [2]
Left = 0
Top = 25
Width = 445
@ -48,14 +52,14 @@ inherited frmAllgyFind: TfrmAllgyFind
Layout = tlBottom
WordWrap = True
end
object lblSearchCaption: TLabel
object lblSearchCaption: TLabel [3]
Left = 6
Top = 73
Width = 52
Height = 13
Caption = 'Search for:'
end
object txtSearch: TCaptionEdit
object txtSearch: TCaptionEdit [4]
Left = 4
Top = 88
Width = 331
@ -66,36 +70,36 @@ inherited frmAllgyFind: TfrmAllgyFind
'Enter causative agent for Allergy or Adverse Drug Reaction (Ente' +
'r at least 3 characters)'
end
object cmdSearch: TButton
object cmdSearch: TButton [5]
Left = 362
Top = 88
Width = 75
Height = 21
Caption = 'Search'
Caption = '&Search'
Default = True
TabOrder = 1
OnClick = cmdSearchClick
end
object cmdOK: TButton
object cmdOK: TButton [6]
Left = 263
Top = 422
Width = 75
Height = 22
Caption = 'OK'
Caption = '&OK'
TabOrder = 4
OnClick = cmdOKClick
end
object cmdCancel: TButton
object cmdCancel: TButton [7]
Left = 345
Top = 422
Width = 75
Height = 22
Cancel = True
Caption = 'Cancel'
Caption = '&Cancel'
TabOrder = 5
OnClick = cmdCancelClick
end
object stsFound: TStatusBar
object stsFound: TStatusBar [8]
Left = 0
Top = 453
Width = 445
@ -103,16 +107,16 @@ inherited frmAllgyFind: TfrmAllgyFind
Panels = <>
SimplePanel = True
end
object ckNoKnownAllergies: TCheckBox
object ckNoKnownAllergies: TCheckBox [9]
Left = 320
Top = 118
Width = 119
Height = 17
Caption = 'No Known Allergies'
Caption = '&No Known Allergies'
TabOrder = 3
OnClick = ckNoKnownAllergiesClick
end
object tvAgent: TORTreeView
object tvAgent: TORTreeView [10]
Left = 2
Top = 138
Width = 437
@ -126,6 +130,33 @@ inherited frmAllgyFind: TfrmAllgyFind
Caption = 'Select from one of the following items'
NodePiece = 0
end
inherited amgrMain: TVA508AccessibilityManager
Data = (
(
'Component = txtSearch'
'Status = stsDefault')
(
'Component = cmdSearch'
'Status = stsDefault')
(
'Component = cmdOK'
'Status = stsDefault')
(
'Component = cmdCancel'
'Status = stsDefault')
(
'Component = stsFound'
'Status = stsDefault')
(
'Component = ckNoKnownAllergies'
'Status = stsDefault')
(
'Component = tvAgent'
'Status = stsDefault')
(
'Component = frmAllgyFind'
'Status = stsDefault'))
end
object imTree: TImageList
Left = 396
Top = 150
@ -269,4 +300,28 @@ inherited frmAllgyFind: TfrmAllgyFind
FFFFFFF8FFFF0000FFFFFFFFFFFF000000000000000000000000000000000000
000000000000}
end
object imgLblAllgyFindTree: TVA508ImageListLabeler
Components = <
item
Component = tvAgent
end>
ImageList = imTree
Labels = <
item
ImageIndex = 0
OverlayIndex = -1
end
item
Caption = 'Check'
ImageIndex = 1
OverlayIndex = -1
end
item
Caption = 'Greyed X and Exclaimation'
ImageIndex = 2
OverlayIndex = -1
end>
Left = 400
Top = 192
end
end

13
CPRS-Chart/fAllgyFind.pas
View File

@ -4,7 +4,8 @@ interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
fAutoSz, StdCtrls, ORFn, ORCtrls, ComCtrls, ImgList;
fAutoSz, StdCtrls, ORFn, ORCtrls, ComCtrls, ImgList, VA508AccessibilityManager,
VA508ImageListLabeler;
type
TfrmAllgyFind = class(TfrmAutoSz)
@ -20,6 +21,7 @@ type
imTree: TImageList;
lblDetail: TLabel;
lblSearchCaption: TLabel;
imgLblAllgyFindTree: TVA508ImageListLabeler;
procedure cmdSearchClick(Sender: TObject);
procedure cmdCancelClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
@ -132,7 +134,7 @@ begin
AList := TStringList.Create;
try
if tvAgent.Items <> nil then tvAgent.Items.Clear;
AList.Assign(SearchForAllergies(UpperCase(txtSearch.Text)));
FastAssign(SearchForAllergies(UpperCase(txtSearch.Text)), AList);
uFileCount := 0;
for i := 0 to AList.Count - 1 do
if Piece(AList[i], U, 5) = 'TOP' then uFileCount := uFileCount + 1;
@ -203,7 +205,7 @@ end;
procedure TfrmAllgyFind.cmdOKClick(Sender: TObject);
var
x: string;
x, AGlobal: string;
tmpList: TStringList;
OKtoContinue: boolean ;
begin
@ -271,7 +273,10 @@ begin
begin
FAllergy := TORTreeNode(tvAgent.Selected).StringData;
x := Piece(FAllergy, U, 2);
x := Trim(Piece(x, '<', 1));
AGlobal := Piece(FAllergy, U, 3);
if ((Pos('GMRD', AGlobal) > 0) or (Pos('PSDRUG', AGlobal) > 0)) and (Pos('<', x) > 0) then
//x := Trim(Piece(x, '<', 1));
x := Copy(x, 1, Length(Piece(x, '<', 1)) - 1);
SetPiece(FAllergy, U, 2, x);
Close;
end;

BIN
CPRS-Chart/fAutoSz.ddp
View File

Binary file not shown.

22
CPRS-Chart/fAutoSz.dfm
View File

@ -1,20 +1,22 @@
object frmAutoSz: TfrmAutoSz
Left = 182
inherited frmAutoSz: TfrmAutoSz
Left = 226
Top = 373
Width = 435
Height = 300
HorzScrollBar.Visible = False
VertScrollBar.Visible = False
Caption = 'frmAutoSz'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ClientHeight = 273
ClientWidth = 427
OldCreateOrder = True
OnDestroy = FormDestroy
OnResize = FormResize
ExplicitWidth = 435
ExplicitHeight = 300
PixelsPerInch = 96
TextHeight = 13
inherited amgrMain: TVA508AccessibilityManager
Data = (
(
'Component = frmAutoSz'
'Status = stsDefault'))
end
end

13
CPRS-Chart/fAutoSz.pas
View File

@ -6,19 +6,20 @@ unit fAutoSz;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, fBase508Form,
VA508AccessibilityManager;
type
TfrmAutoSz = class(TForm)
TfrmAutoSz = class(TfrmBase508Form)
procedure FormResize(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
FSizes: TList;
FAutoSizeDisabled: Boolean;
protected
procedure Loaded; override;
property AutoSizeDisabled: Boolean read FAutoSizeDisabled write FAutoSizeDisabled;
public
procedure Loaded; override;
end;
var
@ -29,7 +30,7 @@ implementation
{$R *.DFM}
uses
ORfn;
ORfn, VA508AccessibilityRouter;
type
TSizeRatio = class // records relative sizes and positions for resizing logic
FControl: TControl;
@ -121,4 +122,8 @@ begin
FSizes.Free;
end;
initialization
SpecifyFormIsNotADialog(TfrmAutoSz);
end.

24
CPRS-Chart/fBase508Form.dfm Normal file
View File

@ -0,0 +1,24 @@
object frmBase508Form: TfrmBase508Form
Left = 194
Top = 109
Caption = 'frmBase508Form'
ClientHeight = 135
ClientWidth = 197
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
KeyPreview = True
OldCreateOrder = False
OnKeyDown = FormKeyDown
PixelsPerInch = 96
TextHeight = 13
object amgrMain: TVA508AccessibilityManager
Data = (
(
'Component = frmBase508Form'
'Status = stsDefault'))
end
end

283
CPRS-Chart/fBase508Form.pas Normal file
View File

@ -0,0 +1,283 @@
unit fBase508Form;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, VA508AccessibilityManager, OR2006Compatibility, uConst;
type
TAccessibilityAction = (aaColorConversion, aaTitleBarHeightAdjustment,
aaFixTabStopArrowNavigationBug);
TAccessibilityActions = set of TAccessibilityAction;
TfrmBase508Form = class(Tfrm2006Compatibility)
amgrMain: TVA508AccessibilityManager;
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
FLoadedCalled: boolean;
FDefaultButton: TButton;
FActions: TAccessibilityActions;
FUnfocusableControlPtr: TMethod;
procedure AdjustForTitleBarHeightChanges;
function GetDefaultButton(OwnerComponent: TComponent) : TButton;
procedure ClickDefaultButton;
procedure SetDefaultButton(const Value: TButton);
procedure ModifyUnfocusableControl(Control: TWinControl; Attach: boolean);
procedure UM508(var Message: TMessage); message UM_508;
protected
procedure Activate; override;
procedure Loaded; override;
procedure SetParent(AParent: TWinControl); override;
procedure Notification(AComponent: TComponent;
Operation: TOperation); override;
procedure UpdateAccessabilityActions(var Actions: TAccessibilityActions); virtual;
public
constructor Create(AOwner: TComponent); override;
property DefaultButton : TButton read FDefaultButton write SetDefaultButton;
end;
var
Last508KeyCode: LongInt = 0;
procedure UnfocusableControlEnter(Self, Sender: TObject);
implementation
uses ORFn, VA508AccessibilityRouter, VAUtils;
{$R *.dfm}
const
MSG_508_CODE_TITLE_BAR = 1;
type
TFriendWinControl = class(TWinControl);
procedure UnfocusableControlEnter(Self, Sender: TObject);
var
ctrl: TWinControl;
begin
if (Last508KeyCode = VK_UP) or (Last508KeyCode = VK_LEFT) then
begin
ctrl := TWinControl(Sender);
ctrl := TFriendWinControl(ctrl.Parent).FindNextControl(ctrl, FALSE, TRUE, FALSE);
if assigned(ctrl) and (ctrl <> Sender) then
ctrl.SetFocus;
Last508KeyCode := 0;
end
else
if (Last508KeyCode = VK_DOWN) or (Last508KeyCode = VK_RIGHT) then
begin
keybd_event(VK_TAB,0,0,0);
keybd_event(VK_TAB,0,KEYEVENTF_KEYUP,0);
Last508KeyCode := 0;
end;
end;
{ TfrmBase508Form }
// All forms in CPRS should be a descendant of this form, even those that are programatically
// made children of other forms.
procedure TfrmBase508Form.Activate;
begin
Last508KeyCode := 0;
inherited;
end;
procedure TfrmBase508Form.AdjustForTitleBarHeightChanges;
var
OldResize: TNotifyEvent;
begin
if parent <> nil then exit;
OldResize := OnResize;
try
OnResize := nil;
AdjustForWindowsXPStyleTitleBar(Self);
finally
OnResize := OldResize;
end;
end;
procedure TfrmBase508Form.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key = VK_RETURN) and (ssCtrl in Shift) then begin
ClickDefaultButton;
Key := 0;
end;
end;
procedure TfrmBase508Form.Notification(AComponent: TComponent;
Operation: TOperation);
begin
inherited Notification(AComponent, Operation);
if FLoadedCalled and (aaFixTabStopArrowNavigationBug in FActions) and (AComponent is TWinControl) then
begin
ModifyUnfocusableControl(TWinControl(AComponent), Operation = opInsert);
end;
end;
function TfrmBase508Form.GetDefaultButton(ownerComponent: TComponent): TButton;
var
i : integer;
begin
Result := nil;
with ownerComponent do begin
for i := 0 to ComponentCount - 1 do begin
if Components[i] is TButton then begin
if TButton(Components[i]).Default then
Result := TButton(Components[i]);
end
else if Components[i] is TFrame then
Result := GetDefaultButton(Components[i]);
if Assigned(Result) then
Break;
end;
end;
end;
procedure TfrmBase508Form.Loaded;
begin
inherited Loaded;
FLoadedCalled := TRUE;
end;
procedure TfrmBase508Form.ModifyUnfocusableControl(Control: TWinControl; Attach: boolean);
var
wc: TFriendWinControl;
begin
if (Control is TPanel) or (Control is TCustomGroupBox) then
begin
wc := TFriendWinControl(Control);
if not wc.TabStop then
begin
if not assigned(wc.OnEnter) then
begin
if Attach then
wc.OnEnter := TNotifyEvent(FUnfocusableControlPtr);
end
else
begin
if (not Attach) and (TMethod(wc.OnEnter).Code = FUnfocusableControlPtr.Code) then
wc.OnEnter := nil;
end;
end;
end;
end;
procedure TfrmBase508Form.SetDefaultButton(const Value: TButton);
begin
FDefaultButton := Value;
end;
procedure TfrmBase508Form.SetParent(AParent: TWinControl);
begin
inherited SetParent(AParent);
if assigned(AParent) then
AutoScroll := False;
end;
// to prevent a 508 feature from taking place, remove that feature's flag form the Actions set
// in an override of the UpdateAccessabilityActions proc.
procedure TfrmBase508Form.UM508(var Message: TMessage);
begin
case Message.WParam of
MSG_508_CODE_TITLE_BAR: AdjustForTitleBarHeightChanges;
end;
end;
procedure TfrmBase508Form.UpdateAccessabilityActions(var Actions: TAccessibilityActions);
begin
end;
type
TExposedBtn = class(TButton);
procedure TfrmBase508Form.ClickDefaultButton;
var
tempDefaultBtn: TButton;
begin
if Assigned(DefaultButton) then
tempDefaultBtn := DefaultButton
else
tempDefaultBtn := GetDefaultButton(Self);
if Assigned(tempDefaultBtn) then
if tempDefaultBtn.Visible then
TExposedBtn(tempDefaultBtn).Click;
end;
constructor TfrmBase508Form.Create(AOwner: TComponent);
procedure AdjustControls(Control: TWinControl);
var
i: integer;
wc: TWinControl;
begin
for I := 0 to Control.ControlCount-1 do
begin
if Control.Controls[i] is TWinControl then
begin
wc := TWinControl(Control.Controls[i]);
if not wc.TabStop then
ModifyUnfocusableControl(wc, TRUE);
AdjustControls(wc);
end;
end;
end;
begin
inherited Create(AOwner);
if not assigned(Parent) then
AutoScroll := True;
FActions := [aaColorConversion, aaTitleBarHeightAdjustment, aaFixTabStopArrowNavigationBug];
UpdateAccessabilityActions(FActions);
if aaColorConversion in FActions then
UpdateColorsFor508Compliance(Self);
if aaTitleBarHeightAdjustment in FActions then
PostMessage(Handle, UM_508, MSG_508_CODE_TITLE_BAR, 0);
if aaFixTabStopArrowNavigationBug in FActions then
begin
FUnfocusableControlPtr.Code := @UnfocusableControlEnter;
FUnfocusableControlPtr.Data := nil;
AdjustControls(Self);
end;
Last508KeyCode := 0;
end;
const
KEY_MASK = $20000000; // ignore Alt keys
var
KeyMonitorHook: HHOOK;
MouseMonitorHook: HHOOK;
function KeyMonitorProc(Code: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; StdCall;
begin
if (code = HC_ACTION) and ((lParam and KEY_MASK) = 0) then
Last508KeyCode := wParam;
Result := CallNextHookEx(KeyMonitorHook, Code, wParam, lParam);
end;
// if mouse click clear last key code
function MouseMonitorProc(Code: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; StdCall;
begin
if (Code = HC_ACTION) and (wParam > WM_MOUSEFIRST) and (wParam <= WM_MOUSELAST) then
Last508KeyCode := 0;
Result := CallNextHookEx(MouseMonitorHook, Code, wParam, lParam);
end;
initialization
KeyMonitorHook := SetWindowsHookEx(WH_KEYBOARD, KeyMonitorProc, 0, GetCurrentThreadID);
MouseMonitorHook := SetWindowsHookEx(WH_MOUSE, MouseMonitorProc, 0, GetCurrentThreadID);
SpecifyFormIsNotADialog(TfrmBase508Form);
SpecifyFormIsNotADialog(Tfrm2006Compatibility);
finalization
UnhookWindowsHookEx(KeyMonitorHook);
UnhookWindowsHookEx(MouseMonitorHook);
end.

37
CPRS-Chart/fClinicWardMeds.dfm
View File

@ -1,13 +1,15 @@
inherited frmClinicWardMeds: TfrmClinicWardMeds
Left = 523
Top = 389
Width = 306
Height = 122
BorderIcons = []
Caption = 'Patient Location'
ClientHeight = 95
ClientWidth = 298
ExplicitWidth = 306
ExplicitHeight = 122
PixelsPerInch = 96
TextHeight = 13
object stxtLine3: TStaticText
object stxtLine3: TStaticText [0]
Left = 16
Top = 35
Width = 29
@ -15,7 +17,7 @@ inherited frmClinicWardMeds: TfrmClinicWardMeds
Caption = 'line 3'
TabOrder = 0
end
object stxtLine2: TStaticText
object stxtLine2: TStaticText [1]
Left = 16
Top = 20
Width = 29
@ -23,7 +25,7 @@ inherited frmClinicWardMeds: TfrmClinicWardMeds
Caption = 'line 2'
TabOrder = 1
end
object stxtLine1: TStaticText
object stxtLine1: TStaticText [2]
Left = 16
Top = 5
Width = 29
@ -31,7 +33,7 @@ inherited frmClinicWardMeds: TfrmClinicWardMeds
Caption = 'line 1'
TabOrder = 2
end
object btnClinic: TButton
object btnClinic: TButton [3]
Left = 31
Top = 62
Width = 58
@ -42,7 +44,7 @@ inherited frmClinicWardMeds: TfrmClinicWardMeds
TabOrder = 3
OnClick = btnClinicClick
end
object btnWard: TButton
object btnWard: TButton [4]
Left = 159
Top = 62
Width = 58
@ -51,4 +53,25 @@ inherited frmClinicWardMeds: TfrmClinicWardMeds
TabOrder = 4
OnClick = btnWardClick
end
inherited amgrMain: TVA508AccessibilityManager
Data = (
(
'Component = stxtLine3'
'Status = stsDefault')
(
'Component = stxtLine2'
'Status = stsDefault')
(
'Component = stxtLine1'
'Status = stsDefault')
(
'Component = btnClinic'
'Status = stsDefault')
(
'Component = btnWard'
'Status = stsDefault')
(
'Component = frmClinicWardMeds'
'Status = stsDefault'))
end
end

8
CPRS-Chart/fClinicWardMeds.pas
View File

@ -4,7 +4,8 @@ interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, fAutoSz, StdCtrls, ExtCtrls, ORCtrls,ORFn, rCore, uCore, oRNet, Math;
Dialogs, fAutoSz, StdCtrls, ExtCtrls, ORCtrls,ORFn, rCore, uCore, oRNet, Math,
VA508AccessibilityManager;
type
TfrmClinicWardMeds = class(TfrmAutoSz)
@ -176,9 +177,10 @@ end;
procedure TfrmClinicWardMeds.rpcChangeOrderLocation(pOrderList:TStringList);
begin
// OrderIEN^Location -- used to alter location if ward is selected.
// OrderIEN^Location^1 -- used to alter location if ward is selected RPC expected third value to determine if
//order is an IMO order. If it is being called from here assumed IMO order.
CallV('ORWDX CHANGE',[pOrderList, Patient.DFN]);
CallV('ORWDX CHANGE',[pOrderList, Patient.DFN, '1']);
end;
function TfrmClinicWardMeds.rpcIsPatientOnWard(Patient: string): boolean;

BIN
CPRS-Chart/fCover.ddp
View File

Binary file not shown.

105
CPRS-Chart/fCover.dfm
View File

@ -1,5 +1,5 @@
inherited frmCover: TfrmCover
Left = 206
Left = 256
Top = 280
HelpContext = 1000
BorderIcons = []
@ -8,18 +8,18 @@ inherited frmCover: TfrmCover
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 13
object pnlBase: TPanel
object pnlBase: TPanel [1]
Left = 0
Top = 0
Width = 640
Height = 349
Height = 356
Align = alClient
BevelOuter = bvNone
Constraints.MinHeight = 10
TabOrder = 0
object sptBottom: TSplitter
Left = 0
Top = 230
Top = 237
Width = 640
Height = 5
Cursor = crVSplit
@ -31,7 +31,7 @@ inherited frmCover: TfrmCover
Left = 0
Top = 0
Width = 640
Height = 230
Height = 237
Align = alClient
BevelOuter = bvNone
TabOrder = 0
@ -267,7 +267,7 @@ inherited frmCover: TfrmCover
Left = 0
Top = 125
Width = 640
Height = 105
Height = 112
Align = alClient
BevelOuter = bvNone
TabOrder = 1
@ -275,7 +275,7 @@ inherited frmCover: TfrmCover
Left = 318
Top = 0
Width = 5
Height = 105
Height = 112
Constraints.MinWidth = 5
OnCanResize = spt_3CanResize
end
@ -283,7 +283,7 @@ inherited frmCover: TfrmCover
Left = 0
Top = 0
Width = 318
Height = 105
Height = 112
Align = alLeft
BevelOuter = bvNone
TabOrder = 0
@ -305,7 +305,7 @@ inherited frmCover: TfrmCover
Left = 0
Top = 13
Width = 318
Height = 92
Height = 99
Align = alClient
Ctl3D = True
ItemHeight = 13
@ -324,7 +324,7 @@ inherited frmCover: TfrmCover
Left = 323
Top = 0
Width = 317
Height = 105
Height = 112
Align = alClient
BevelOuter = bvNone
TabOrder = 1
@ -346,7 +346,7 @@ inherited frmCover: TfrmCover
Left = 0
Top = 13
Width = 317
Height = 92
Height = 99
Align = alClient
Ctl3D = True
ItemHeight = 13
@ -365,7 +365,7 @@ inherited frmCover: TfrmCover
end
object pnlBottom: TPanel
Left = 0
Top = 235
Top = 242
Width = 640
Height = 114
Align = alBottom
@ -520,6 +520,87 @@ inherited frmCover: TfrmCover
end
end
end
inherited amgrMain: TVA508AccessibilityManager
Data = (
(
'Component = pnlBase'
'Status = stsDefault')
(
'Component = pnlNotTheBottom'
'Status = stsDefault')
(
'Component = pnlTop'
'Status = stsDefault')
(
'Component = pnl_not3'
'Status = stsDefault')
(
'Component = pnl_1'
'Status = stsDefault')
(
'Component = lst_1'
'Status = stsDefault')
(
'Component = pnl_2'
'Status = stsDefault')
(
'Component = lst_2'
'Status = stsDefault')
(
'Component = pnl_3'
'Status = stsDefault')
(
'Component = pnlFlag'
'Status = stsDefault')
(
'Component = lstFlag'
'Status = stsDefault')
(
'Component = lst_3'
'Status = stsDefault')
(
'Component = pnlMiddle'
'Status = stsDefault')
(
'Component = pnl_4'
'Status = stsDefault')
(
'Component = lst_4'
'Status = stsDefault')
(
'Component = pnl_5'
'Status = stsDefault')
(
'Component = lst_5'
'Status = stsDefault')
(
'Component = pnlBottom'
'Status = stsDefault')
(
'Component = pnl_not8'
'Status = stsDefault')
(
'Component = pnl_6'
'Status = stsDefault')
(
'Component = lst_6'
'Status = stsDefault')
(
'Component = pnl_7'
'Status = stsDefault')
(
'Component = lst_7'
'Status = stsDefault')
(
'Component = pnl_8'
'Status = stsDefault')
(
'Component = lst_8'
'Status = stsDefault')
(
'Component = frmCover'
'Status = stsDefault'))
end
object timPoll: TTimer
Enabled = False
Interval = 2600

53
CPRS-Chart/fCover.pas
View File

@ -4,7 +4,8 @@ interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
fPage, StdCtrls, ORCtrls, ExtCtrls, rOrders, ORClasses, Menus, rCover, fAllgyBox; {REV}
fPage, StdCtrls, ORCtrls, ExtCtrls, rOrders, ORClasses, Menus, rCover, fAllgyBox,
VA508AccessibilityManager, fBase508Form; {REV}
type
TfrmCover = class(TfrmPage)
@ -120,7 +121,8 @@ implementation
{$R *.DFM}
uses ORNet, ORFn, fRptBox, fVitals, fvit, fFrame, uCore, TRPCB, uConst, uInit,
uReminders, rReminders, fARTAllgy, uOrPtf, fPatientFlagMulti, rODAllergy, rMisc;
uReminders, rReminders, fARTAllgy, uOrPtf, fPatientFlagMulti, rODAllergy, rMisc,
VA508AccessibilityRouter;
const
TAG_PROB = 10;
@ -279,7 +281,8 @@ begin
FCoverList.CVlbl(i).Caption := aName;
FCoverList.CVlst(i).Caption := aName;
if Length(aTabPos) > 0 then FCoverList.CVlst(i).TabPositions := aTabPos;
if Length(aTextColor) > 0 then FCoverList.CVlst(i).Font.Color := StringToColor(aTextColor);
if Length(aTextColor) > 0 then FCoverList.CVlst(i).Font.Color :=
Get508CompliantColor(StringToColor(aTextColor));
if Length(aPiece) > 0 then FCoverList.CVlst(i).Pieces := aPiece;
FCoverList.CVlst(i).Tag := StrToInt(aID);
if(aID <> RemID) then
@ -441,9 +444,9 @@ begin
TAG_VITL:
if ItemID <> '' then
begin
frmFrame.VitalsDLLActive := True;
// frmFrame.DLLActive := True;
SelectVitals(Piece(DisplayText[ItemIndex],Char(9),1)); //Char(9) = Tab Character
frmFrame.VitalsDLLActive := False;
// frmFrame.DLLActive := False;
ClearPtData;
DisplayPage;
end;
@ -516,12 +519,12 @@ begin
try
ReminderSL.Add(RemUnchanged);
ListAllBackGround(Done, ProbSL, PostSL, MedsSL, ReminderSL, LabsSL, VitSL, VisitSL, uIPAddress, frmFrame.Handle);
if (iProb > -1) and (ProbSL.Count > 0) then (Components[iProb] as TORListBox).Items.Assign(ProbSL);
if (iPost > -1) and (PostSL.Count > 0) then (Components[iPost] as TORListBox).Items.Assign(PostSL);
if (iMeds > -1) and (MedsSL.Count > 0) then (Components[iMeds] as TORListBox).Items.Assign(MedsSL);
if (iLabs > -1) and (LabsSL.Count > 0) then (Components[iLabs] as TORListBox).Items.Assign(LabsSL);
if (iVit > -1) and (VitSL.Count > 0) then (Components[iVit] as TORListBox).Items.Assign(VitSL);
if (iVisit > -1) and (VisitSL.Count > 0) then (Components[iVisit] as TORListBox).Items.Assign(VisitSL);
if (iProb > -1) and (ProbSL.Count > 0) then FastAssign(ProbSL, (Components[iProb] as TORListBox).Items);
if (iPost > -1) and (PostSL.Count > 0) then FastAssign(PostSL, (Components[iPost] as TORListBox).Items);
if (iMeds > -1) and (MedsSL.Count > 0) then FastAssign(MedsSL, (Components[iMeds] as TORListBox).Items);
if (iLabs > -1) and (LabsSL.Count > 0) then FastAssign(LabsSL, (Components[iLabs] as TORListBox).Items);
if (iVit > -1) and (VitSL.Count > 0) then FastAssign(VitSL, (Components[iVit] as TORListBox).Items);
if (iVisit > -1) and (VisitSL.Count > 0) then FastAssign(VisitSL, (Components[iVisit] as TORListBox).Items);
// since this RPC is connected to a timer, clear the results each time to make sure that
// the results aren't passed to another RPC in the case that there is an error
RPCBrokerV.ClearResults := True;
@ -545,13 +548,13 @@ begin
else
begin
ListAllBackGround(Done, ProbSL, PostSL, MedsSL, RemSL, LabsSL, VitSL, VisitSL, uIPAddress, frmFrame.Handle);
if (iProb > -1) and (ProbSL.Count > 0) then (Components[iProb] as TORListBox).Items.Assign(ProbSL);
if (iPost > -1) and (PostSL.Count > 0) then (Components[iPost] as TORListBox).Items.Assign(PostSL);
if (iMeds > -1) and (MedsSL.Count > 0) then (Components[iMeds] as TORListBox).Items.Assign(MedsSL);
if (iRem > -1) and (RemSL.Count > 0) then (Components[iRem] as TORListBox).Items.Assign(RemSL);
if (iLabs > -1) and (LabsSL.Count > 0) then (Components[iLabs] as TORListBox).Items.Assign(LabsSL);
if (iVit > -1) and (VitSL.Count > 0) then (Components[iVit] as TORListBox).Items.Assign(VitSL);
if (iVisit > -1) and (VisitSL.Count > 0) then (Components[iVisit] as TORListBox).Items.Assign(VisitSL);
if (iProb > -1) and (ProbSL.Count > 0) then FastAssign(ProbSL, (Components[iProb] as TORListBox).Items);
if (iPost > -1) and (PostSL.Count > 0) then FastAssign(PostSL, (Components[iPost] as TORListBox).Items);
if (iMeds > -1) and (MedsSL.Count > 0) then FastAssign(MedsSL, (Components[iMeds] as TORListBox).Items);
if (iRem > -1) and (RemSL.Count > 0) then FastAssign(RemSL, (Components[iRem] as TORListBox).Items);
if (iLabs > -1) and (LabsSL.Count > 0) then FastAssign(LabsSL, (Components[iLabs] as TORListBox).Items);
if (iVit > -1) and (VitSL.Count > 0) then FastAssign(VitSL, (Components[iVit] as TORListBox).Items);
if (iVisit > -1) and (VisitSL.Count > 0) then FastAssign(VisitSL, (Components[iVisit] as TORListBox).Items);
// since this RPC is connected to a timer, clear the results each time to make sure that
// the results aren't passed to another RPC in the case that there is an error
RPCBrokerV.ClearResults := True;
@ -689,8 +692,6 @@ begin
FCoverList.Add(pnl_6, lbl_6, lst_6);
FCoverList.Add(pnl_7, lbl_7, lst_7);
FCoverList.Add(pnl_8, lbl_8, lst_8);
if ColorToRGB(clWindowText) <> ColorToRGB(clBlack) then
lst_3.Font.Color := clWindowText;
end;
procedure TfrmCover.FormDestroy(Sender: TObject);
@ -843,7 +844,8 @@ begin
if Length(aTextColor) > 0 then aTextColor := 'cl' + aTextColor;
// Assign properties to components
if Length(aTabPos) > 0 then (popMenuAllergies.PopupComponent as TORListBox).TabPositions := aTabPos;
if Length(aTextColor) > 0 then (popMenuAllergies.PopupComponent as TORListBox).Font.Color := StringToColor(aTextColor);
if Length(aTextColor) > 0 then (popMenuAllergies.PopupComponent as TORListBox).Font.Color :=
Get508CompliantColor(StringToColor(aTextColor));
if Length(aPiece) > 0 then (popMenuAllergies.PopupComponent as TORListBox).Pieces := aPiece;
(popMenuAllergies.PopupComponent as TORListBox).Tag := StrToInt(aID);
LoadList(aStatus, (popMenuAllergies.PopupComponent as TORListBox), aRpc, bCase, bInvert, iDatePiece, aDateFormat, aParam1, aID, aDetail);
@ -868,13 +870,14 @@ procedure TfrmCover.GetPatientFlag;
begin
pnlFlag.Visible := HasFlag;
sptFlag.Visible := HasFlag;
lstFlag.Items.Assign(FlagList);
FastAssign(FlagList, lstFlag.Items);
end;
procedure TfrmCover.lstFlagClick(Sender: TObject);
begin
if lstFlag.ItemIndex >= 0 then
ShowFlags(lstFlag.ItemID);
lstFlag.ItemIndex := -1;
end;
procedure TfrmCover.lstFlagKeyDown(Sender: TObject; var Key: Word;
@ -892,7 +895,6 @@ const
//var
// PtIsVAA: boolean;
// PtIsMHV: boolean;
begin
//VAA & MHV
PtIsVAA := false;
@ -903,14 +905,13 @@ begin
VAA_DFN := Patient.DFN;
tCallV(VAAFlag, 'ORVAA VAA', [VAA_DFN]);
tCallV(MHVFlag, 'ORWMHV MHV', [VAA_DFN]);
if VAAFlag[0] <> '0' then
begin
PtIsVAA := true;
with frmFrame do
begin
laVAA2.Caption := Piece(VAAFlag[0], '^', 0);
laVAA2.Caption := Piece(VAAFlag[0], '^', 1);
laVAA2.Hint := Piece(VAAFlag[0], '^', 2); //CQ7626 was piece '6'
end;
end
@ -982,6 +983,7 @@ begin
laVAA2.Top := paVAA.Top;
paVAA.Height := pnlPrimaryCare.Height-2;
laVAA2.Height := paVAA.ClientHeight - 1;
laVAA2.Width := paVAA.Width - 1;
laVAA2.Visible := true;
laMHV.Visible := false;
@ -992,6 +994,7 @@ begin
end;
initialization
SpecifyFormIsNotADialog(TfrmCover);
finalization
if Assigned(fCover.VAAFlag) then fCover.VAAFlag.Free; //VAA

160
CPRS-Chart/fDCSumm.dfm
View File

@ -1,28 +1,37 @@
inherited frmDCSumm: TfrmDCSumm
Left = 488
Top = 83
Width = 687
Height = 409
Left = 1291
Top = 197
HelpContext = 7000
Caption = 'Discharge Summary Page'
ClientHeight = 382
ClientWidth = 679
HelpFile = 'overvw'
Menu = mnuSumms
OnDestroy = FormDestroy
ExplicitWidth = 687
ExplicitHeight = 428
PixelsPerInch = 96
TextHeight = 13
inherited shpPageBottom: TShape
Top = 358
Top = 377
Width = 679
ExplicitTop = 358
ExplicitWidth = 679
end
inherited sptHorz: TSplitter
Left = 64
Width = 3
Height = 358
Height = 377
OnCanResize = sptHorzCanResize
ExplicitLeft = 64
ExplicitWidth = 3
ExplicitHeight = 358
end
inherited pnlLeft: TPanel
Width = 64
Height = 358
Height = 377
ExplicitWidth = 64
ExplicitHeight = 377
object lblSumms: TOROffsetLabel
Left = 0
Top = 0
@ -39,49 +48,51 @@ inherited frmDCSumm: TfrmDCSumm
end
object lblSpace1: TLabel
Left = 0
Top = 334
Top = 353
Width = 64
Height = 3
Align = alBottom
AutoSize = False
Caption = ' '
ExplicitTop = 334
end
object cmdNewSumm: TORAlignButton
Left = 0
Top = 313
Top = 332
Width = 64
Height = 21
Align = alBottom
Caption = 'New Summary'
TabOrder = 1
OnClick = cmdNewSummClick
Align = alBottom
end
object cmdPCE: TORAlignButton
Left = 0
Top = 337
Top = 356
Width = 64
Height = 21
Align = alBottom
Caption = 'Encounter'
TabOrder = 2
Visible = False
OnClick = cmdPCEClick
Align = alBottom
end
object pnlDrawers: TPanel
Left = 0
Top = 19
Width = 64
Height = 294
Height = 313
Align = alClient
BevelOuter = bvNone
TabOrder = 0
object splDrawers: TSplitter
Left = 0
Top = 291
Top = 310
Width = 64
Height = 3
Cursor = crVSplit
Align = alBottom
ExplicitTop = 291
end
object lstSumms: TORListBox
Left = 0
@ -107,19 +118,19 @@ inherited frmDCSumm: TfrmDCSumm
Left = 0
Top = 0
Width = 64
Height = 291
Height = 310
Align = alClient
Constraints.MinWidth = 30
HideSelection = False
Images = dmodShared.imgNotes
Indent = 19
PopupMenu = popSummList
ReadOnly = True
StateImages = dmodShared.imgImages
TabOrder = 1
OnAddition = tvSummsAddition
OnChange = tvSummsChange
OnClick = tvSummsClick
OnCollapsed = tvSummsCollapsed
OnDeletion = tvSummsDeletion
OnDragDrop = tvSummsDragDrop
OnDragOver = tvSummsDragOver
OnExpanded = tvSummsExpanded
@ -133,18 +144,22 @@ inherited frmDCSumm: TfrmDCSumm
inherited pnlRight: TPanel
Left = 67
Width = 612
Height = 358
Height = 377
ExplicitLeft = 67
ExplicitWidth = 612
ExplicitHeight = 377
object sptVert: TSplitter
Left = 0
Top = 309
Top = 328
Width = 612
Height = 4
Cursor = crVSplit
Align = alBottom
ExplicitTop = 309
end
object memPCEShow: TRichEdit
Left = 0
Top = 313
Top = 332
Width = 612
Height = 45
Align = alBottom
@ -162,7 +177,7 @@ inherited frmDCSumm: TfrmDCSumm
Left = 0
Top = 0
Width = 612
Height = 309
Height = 328
Align = alClient
BevelOuter = bvNone
TabOrder = 1
@ -172,7 +187,7 @@ inherited frmDCSumm: TfrmDCSumm
Left = 0
Top = 52
Width = 612
Height = 257
Height = 276
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -301,7 +316,7 @@ inherited frmDCSumm: TfrmDCSumm
Left = 0
Top = 0
Width = 612
Height = 309
Height = 328
Align = alClient
BevelOuter = bvNone
TabOrder = 0
@ -338,7 +353,7 @@ inherited frmDCSumm: TfrmDCSumm
Left = 0
Top = 116
Width = 612
Height = 193
Height = 212
Align = alClient
Color = clCream
Ctl3D = True
@ -400,6 +415,8 @@ inherited frmDCSumm: TfrmDCSumm
HideSelection = False
ReadOnly = True
RowSelect = True
SmallImages = dmodShared.imgNotes
StateImages = dmodShared.imgImages
TabOrder = 1
ViewStyle = vsReport
Visible = False
@ -411,6 +428,75 @@ inherited frmDCSumm: TfrmDCSumm
end
end
end
inherited amgrMain: TVA508AccessibilityManager
Data = (
(
'Component = cmdNewSumm'
'Status = stsDefault')
(
'Component = cmdPCE'
'Status = stsDefault')
(
'Component = pnlDrawers'
'Status = stsDefault')
(
'Component = lstSumms'
'Status = stsDefault')
(
'Component = tvSumms'
'Status = stsDefault')
(
'Component = memPCEShow'
'Status = stsDefault')
(
'Component = pnlWrite'
'Status = stsDefault')
(
'Component = memNewSumm'
'Status = stsDefault')
(
'Component = pnlFields'
'Status = stsDefault')
(
'Component = lblNewTitle'
'Status = stsDefault')
(
'Component = lblVisit'
'Status = stsDefault')
(
'Component = lblRefDate'
'Status = stsDefault')
(
'Component = lblCosigner'
'Status = stsDefault')
(
'Component = lblDictator'
'Status = stsDefault')
(
'Component = lblDischarge'
'Status = stsDefault')
(
'Component = cmdChange'
'Status = stsDefault')
(
'Component = pnlRead'
'Status = stsDefault')
(
'Component = memSumm'
'Status = stsDefault')
(
'Component = lvSumms'
'Status = stsDefault')
(
'Component = pnlLeft'
'Status = stsDefault')
(
'Component = pnlRight'
'Status = stsDefault')
(
'Component = frmDCSumm'
'Status = stsDefault'))
end
object mnuSumms: TMainMenu
Left = 596
Top = 305
@ -899,4 +985,30 @@ inherited frmDCSumm: TfrmDCSumm
Left = 409
Top = 313
end
object imgLblNotes: TVA508ImageListLabeler
Components = <
item
Component = lvSumms
end
item
Component = tvSumms
end>
Labels = <>
RemoteLabeler = dmodShared.imgLblNotes
Left = 16
Top = 171
end
object imgLblImages: TVA508ImageListLabeler
Components = <
item
Component = lvSumms
end
item
Component = tvSumms
end>
Labels = <>
RemoteLabeler = dmodShared.imgLblImages
Left = 16
Top = 203
end
end

79
CPRS-Chart/fDCSumm.pas
View File

@ -6,7 +6,8 @@ interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
fHSplit, StdCtrls, ExtCtrls, Menus, ComCtrls, ORCtrls, ORFn, uConst, ORDtTm,
uPCE, ORClasses, fDrawers, rDCSumm, uDocTree, uDCSumm, uTIU, fPrintList;
uPCE, ORClasses, fDrawers, rDCSumm, uDocTree, uDCSumm, uTIU, fPrintList,
VA508AccessibilityManager, fBase508Form, VA508ImageListLabeler;
type
TfrmDCSumm = class(TfrmHSplit)
@ -143,6 +144,8 @@ type
mnuViewReminders: TMenuItem;
mnuViewRemoteData: TMenuItem;
mnuViewPostings: TMenuItem;
imgLblNotes: TVA508ImageListLabeler;
imgLblImages: TVA508ImageListLabeler;
procedure mnuChartTabClick(Sender: TObject);
procedure lstSummsClick(Sender: TObject);
procedure pnlRightResize(Sender: TObject);
@ -218,8 +221,6 @@ type
procedure sptHorzCanResize(Sender: TObject; var NewSize: Integer; var Accept: Boolean);
procedure popSummMemoPreviewClick(Sender: TObject);
procedure popSummMemoInsTemplateClick(Sender: TObject);
procedure tvSummsAddition(Sender: TObject; Node: TTreeNode);
procedure tvSummsDeletion(Sender: TObject; Node: TTreeNode);
procedure ViewInfo(Sender: TObject);
procedure mnuViewInformationClick(Sender: TObject);
private
@ -272,7 +273,7 @@ type
procedure ClearPtData; override;
procedure DisplayPage; override;
procedure RequestPrint; override;
procedure RequestMultiplePrint(AForm: TfrmPrintList);
procedure RequestMultiplePrint(AForm: TfrmPrintList);
procedure SetFontSize(NewFontSize: Integer); override;
procedure SaveSignItem(const ItemID, ESCode: string);
procedure LstSummsToPrint;
@ -291,7 +292,7 @@ uses fFrame, fVisit, fEncnt, rCore, uCore, fNoteBA, fNoteBD, fSignItem, fEncount
rPCE, Clipbrd, fNotePrt, fAddlSigners, fNoteDR, uSpell, rVitals, fTIUView,
fTemplateEditor, rTIU, fDCSummProps, fNotesBP, fTemplateFieldEditor, uTemplates,
fReminderDialog, dShared, rTemplates, fIconLegend, fNoteIDParents,
uAccessibleTreeView, uAccessibleTreeNode, fTemplateDialog;
fTemplateDialog, uVA508CPRSCompatibility, VA508AccessibilityRouter;
const
NA_CREATE = 0; // New Summ action - create new Summ
@ -538,26 +539,21 @@ begin
end;
end;
{for printing multiple notes}
procedure TfrmDCSumm.RequestMultiplePrint(AForm: TfrmPrintList);
var
NoteIEN: int64;
i: integer;
begin
with AForm.lbIDParents do
for i := 0 to Items.Count - 1 do
if Selected[i] then
begin
for i := 0 to Items.Count - 1 do
begin
if Selected[i] then
begin
NoteIEN := StrToInt64def(Piece(TStringList(Items.Objects[i])[0],U,1),0);
if NoteIEN > 0 then PrintNote(NoteIEN, MakeDCSummDisplayText(TStringList(Items.Objects[i])[0]), TRUE) else
begin
if ItemIEN = 0 then InfoBox(TX_NO_NOTE, TX_NOSUMM_CAP, MB_OK);
if ItemIEN < 0 then InfoBox(TX_NOPRT_NEW, TX_NOPRT_NEW_CAP, MB_OK);
end;
end; {if selected}
end; {for}
end {with}
NoteIEN := StrToInt64def(Piece(Items[i], U, 1), 0);
if NoteIEN > 0 then PrintNote(NoteIEN, DisplayText[i], TRUE)
else if NoteIEN = 0 then InfoBox(TX_NO_NOTE, TX_NOSUMM_CAP, MB_OK)
else InfoBox(TX_NOPRT_NEW, TX_NOPRT_NEW_CAP, MB_OK);
end;
end;
procedure TfrmDCSumm.SetFontSize(NewFontSize: Integer);
@ -841,7 +837,7 @@ begin
begin
DocInfo := MakeXMLParamTIU(IntToStr(CreatedSumm.IEN), FEditDCSumm);
ExecuteTemplateOrBoilerPlate(TmpBoilerPlate, FEditDCSumm.Title, ltTitle, Self, 'Title: ' + FEditDCSumm.TitleName, DocInfo);
memNewSumm.Lines.Assign(TmpBoilerPlate);
QuickCopyWith508Msg(TmpBoilerPlate, memNewSumm);
TmpBoilerPlate.Free;
end;
if EnableAutosave then // Don't enable autosave until after dialog fields have been resolved
@ -1110,6 +1106,8 @@ end;
procedure TfrmDCSumm.lstSummsClick(Sender: TObject);
{ loads the text for the selected Summ or displays the editing panel for the selected Summ }
var
x: string;
begin
inherited;
with lstSumms do if ItemIndex = -1 then Exit
@ -1143,7 +1141,9 @@ begin
pnlRight.Refresh;
memNewSumm.Repaint;
memSumm.Repaint;
NotifyOtherApps(NAE_REPORT, 'TIU^' + lstSumms.ItemID);
x := 'TIU^' + lstSumms.ItemID;
SetPiece(x, U, 10, Piece(lstSumms.Items[lstSumms.ItemIndex], U, 11));
NotifyOtherApps(NAE_REPORT, x);
end;
procedure TfrmDCSumm.cmdNewSummClick(Sender: TObject);
@ -1968,9 +1968,6 @@ procedure TfrmDCSumm.FormCreate(Sender: TObject);
begin
inherited;
PageID := CT_DCSUMM;
memSumm.Color := ReadOnlyColor;
memPCEShow.Color := ReadOnlyColor;
lblNewTitle.Color := ReadOnlyColor;
FDischargeDate := FMNow;
EditingIndex := -1;
FEditDCSumm.LastCosigner := 0;
@ -1981,13 +1978,8 @@ begin
frmDrawers.RichEditControl := memNewSumm;
frmDrawers.Splitter := splDrawers;
frmDrawers.DefTempPiece := 3;
tvSumms.Images := dmodShared.imgNotes;
tvSumms.StateImages := dmodShared.imgImages;
lvSumms.StateImages := dmodShared.imgImages;
lvSumms.SmallImages := dmodShared.imgNotes;
FImageFlag := TBitmap.Create;
FDocList := TStringList.Create;
TAccessibleTreeView.WrapControl(tvSumms);
end;
procedure TfrmDCSumm.mnuViewDetailClick(Sender: TObject);
@ -2314,7 +2306,6 @@ end;
procedure TfrmDCSumm.FormDestroy(Sender: TObject);
begin
TAccessibleTreeView.UnwrapControl(tvSumms);
FImageFlag.Free;
FDocList.Free;
KillDocTreeObjects(tvSumms);
@ -2353,16 +2344,16 @@ begin
if Title <= 0 then Result := True;
if Dictator <= 0 then Result := True;
if AdmitDateTime <= 0 then Result := True;
if DischargeDateTime > 0 then
ADateTime := DischargeDateTime
else
ADateTime := DictDateTime;
if (DocType = TYP_ADDENDUM) then
begin
if AskCosignerForDocument(Addend, Dictator) and (Cosigner <= 0) then Result := True;
if AskCosignerForDocument(Addend, Dictator, ADateTime) and (Cosigner <= 0) then Result := True;
end else
begin
if Title > 0 then CurTitle := Title else CurTitle := DocType;
if DischargeDateTime > 0 then
ADateTime := DischargeDateTime
else
ADateTime := DictDateTime;
if AskCosignerForTitle(CurTitle, Dictator, ADateTime) and (Cosigner <= 0) then Result := True;
end;
end;
@ -2403,6 +2394,7 @@ procedure TfrmDCSumm.DoAutoSave(Suppress: integer = 1);
var
ErrMsg: string;
begin
if fFrame.frmFrame.DLLActive = True then Exit;
if (EditingIndex > -1) and FChanged then
begin
StatusText('Autosaving note...');
@ -2500,7 +2492,7 @@ var
procedure AssignBoilerText;
begin
ExecuteTemplateOrBoilerPlate(BoilerText, FEditDCSumm.Title, ltTitle, Self, 'Title: ' + FEditDCSumm.TitleName, DocInfo);
memNewSumm.Lines.Assign(BoilerText);
QuickCopyWith508Msg(BoilerText, memNewSumm);
FChanged := False;
end;
@ -2522,7 +2514,7 @@ begin
0: { do nothing } ; // ignore
1: begin
ExecuteTemplateOrBoilerPlate(BoilerText, FEditDCSumm.Title, ltTitle, Self, 'Title: ' + FEditDCSumm.TitleName, DocInfo);
memNewSumm.Lines.AddStrings(BoilerText); // append
QuickAddWith508Msg(BoilerText, memNewSumm); // append
end;
2: AssignBoilerText // replace
end;
@ -2681,7 +2673,7 @@ begin
begin
uChanging := True;
Items.BeginUpdate;
lstSumms.Items.AddStrings(DocList);
FastAddStrings(DocList, lstSumms.Items);
BuildDocumentTree(DocList, '0', Tree, nil, FCurrentContext, CT_DCSUMM);
Items.EndUpdate;
uChanging := False;
@ -3232,18 +3224,6 @@ begin
frmDrawers.mnuInsertTemplateClick(Sender);
end;
procedure TfrmDCSumm.tvSummsAddition(Sender: TObject; Node: TTreeNode);
begin
inherited;
TAccessibleTreeNode.WrapControl(Node as TORTreeNode);
end;
procedure TfrmDCSumm.tvSummsDeletion(Sender: TObject; Node: TTreeNode);
begin
TAccessibleTreeNode.UnwrapControl(Node as TORTreeNode);
inherited;
end;
{Returns True & Displays a Message if Currently No D/C Summary is Selected,
Otherwise returns false and does not display a message.}
@ -3279,6 +3259,7 @@ begin
end;
initialization
SpecifyFormIsNotADialog(TfrmDCSumm);
uPCEEdit := TPCEData.Create;
uPCEShow := TPCEData.Create;

74
CPRS-Chart/fDCSummProps.dfm
View File

@ -1,31 +1,25 @@
object frmDCSummProperties: TfrmDCSummProperties
inherited frmDCSummProperties: TfrmDCSummProperties
Left = 298
Top = 186
AutoScroll = False
BorderIcons = []
Caption = 'Discharge Summary Properties'
ClientHeight = 437
ClientWidth = 498
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnShow = FormShow
ExplicitWidth = 506
ExplicitHeight = 471
PixelsPerInch = 96
TextHeight = 13
object bvlConsult: TBevel
object bvlConsult: TBevel [0]
Tag = 1
Left = 6
Top = 119
Width = 483
Height = 2
end
object pnlFields: TORAutoPanel
object pnlFields: TORAutoPanel [1]
Left = 0
Top = 0
Width = 498
@ -88,6 +82,7 @@ object frmDCSummProperties: TfrmDCSummProperties
Sorted = False
SynonymChars = '<>'
TabOrder = 0
OnChange = cboNewTitleChange
OnDblClick = cboNewTitleDblClick
OnDropDownClose = cboNewTitleDropDownClose
OnEnter = cboNewTitleEnter
@ -183,7 +178,7 @@ object frmDCSummProperties: TfrmDCSummProperties
OnClick = cmdCancelClick
end
end
object pnlTranscription: TORAutoPanel
object pnlTranscription: TORAutoPanel [2]
Left = 0
Top = 218
Width = 498
@ -258,7 +253,7 @@ object frmDCSummProperties: TfrmDCSummProperties
CharsNeedMatch = 1
end
end
object pnlAdmissions: TORAutoPanel
object pnlAdmissions: TORAutoPanel [3]
Left = 0
Top = 327
Width = 498
@ -286,7 +281,7 @@ object frmDCSummProperties: TfrmDCSummProperties
OnChange = lstAdmissionsChange
end
end
object pnlLabels: TORAutoPanel
object pnlLabels: TORAutoPanel [4]
Left = 0
Top = 281
Width = 498
@ -354,4 +349,55 @@ object frmDCSummProperties: TfrmDCSummProperties
TabOrder = 1
end
end
inherited amgrMain: TVA508AccessibilityManager
Data = (
(
'Component = pnlFields'
'Status = stsDefault')
(
'Component = cboNewTitle'
'Status = stsDefault')
(
'Component = calSumm'
'Status = stsDefault')
(
'Component = cboAuthor'
'Status = stsDefault')
(
'Component = cboAttending'
'Status = stsDefault')
(
'Component = cmdOK'
'Status = stsDefault')
(
'Component = cmdCancel'
'Status = stsDefault')
(
'Component = pnlTranscription'
'Status = stsDefault')
(
'Component = cboTranscriptionist'
'Status = stsDefault')
(
'Component = cboUrgency'
'Status = stsDefault')
(
'Component = pnlAdmissions'
'Status = stsDefault')
(
'Component = lstAdmissions'
'Status = stsDefault')
(
'Component = pnlLabels'
'Status = stsDefault')
(
'Component = lblDCSumm1'
'Status = stsDefault')
(
'Component = lblDCSumm2'
'Status = stsDefault')
(
'Component = frmDCSummProperties'
'Status = stsDefault'))
end
end

86
CPRS-Chart/fDCSummProps.pas
View File

@ -4,10 +4,11 @@ interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ORDtTm, ORCtrls, ExtCtrls, uConst, rTIU, rDCSumm, uDocTree, uDCSumm, uTIU;
StdCtrls, ORDtTm, ORCtrls, ExtCtrls, uConst, rTIU, rDCSumm, uDocTree, uDCSumm,
uTIU, fBase508Form, VA508AccessibilityManager;
type
TfrmDCSummProperties = class(TForm)
TfrmDCSummProperties = class(TfrmBase508Form)
bvlConsult: TBevel;
pnlFields: TORAutoPanel;
lblNewTitle: TLabel;
@ -54,6 +55,7 @@ type
procedure lstAdmissionsChange(Sender: TObject);
procedure cboNewTitleDblClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure cboNewTitleChange(Sender: TObject);
private
FCosignIEN: Int64; // store cosigner that was passed in
FCosignName: string; // store cosigner that was passed in
@ -135,7 +137,7 @@ begin
Height := Height - pnlTranscription.Height;
Top := Top - pnlTranscription.Height;
end;
Height := Height - pnlAdmissions.Height - pnlLabels.Height;
// Height := Height - pnlAdmissions.Height - pnlLabels.Height;
if ASumm.DocType <> TYP_ADDENDUM then
begin
cboNewTitle.InitLongList('');
@ -148,15 +150,13 @@ begin
then cboNewTitle.SetExactByIEN(ASumm.Title, ASumm.TitleName);
cboAuthor.InitLongList(ASumm.DictatorName);
if ASumm.Dictator > 0 then cboAuthor.SelectByIEN(ASumm.Dictator);
cboUrgency.Items.Assign(LoadDCUrgencies);
FastAssign(LoadDCUrgencies, cboUrgency.Items);
cboUrgency.SelectByID('R');
if Asumm.Attending = 0 then
begin
ASumm.Attending := FLastCosigner;
ASumm.AttendingName := FLastCosignerName;
end;
cboAttending.InitLongList(ASumm.AttendingName);
if ASumm.Attending > 0 then cboAttending.SelectByIEN(ASumm.Attending);
calSumm.FMDateTime := ASumm.DictDateTime;
if FShowAdmissions then ShowAdmissionList;
FAddend := ASumm.Addend;
@ -164,6 +164,8 @@ begin
FLastCosigner := ASumm.LastCosigner;
FLastCosignerName := ASumm.LastCosignerName;
FEditIEN := 0;
cboAttending.InitLongList(ASumm.AttendingName);
if ASumm.Attending > 0 then cboAttending.SelectByIEN(ASumm.Attending);
// restrict edit of title if addendum
if FDocType = TYP_ADDENDUM then
begin
@ -211,7 +213,7 @@ begin
x := GetTIUListItem(FEditIEN);
ListBoxItem := x;
if Lines = nil then Lines := TStringList.Create;
Lines.Assign(EditLines);
FastAssign(EditLines, Lines);
end
else
begin
@ -319,7 +321,7 @@ begin
SetCosignerRequired;
if FShowAdmissions and (not pnlAdmissions.Visible) then
begin
Height := Height + pnlAdmissions.Height + pnlLabels.Height;
// Height := Height + pnlAdmissions.Height + pnlLabels.Height;
pnlAdmissions.Visible := True;
pnlLabels.Visible := True;
end;
@ -341,9 +343,20 @@ end;
procedure TfrmDCSummProperties.cboAttendingNeedData(Sender: TObject; const StartFrom: String;
Direction, InsertAt: Integer);
begin // changed in v15.2, per BRX-1100-10981
var TitleIEN: Int64;
begin
// (Sender as TORComboBox).ForDataUse(SubSetOfPersons(StartFrom, Direction));
(Sender as TORComboBox).ForDataUse(SubSetOfProviders(StartFrom, Direction));
// CQ#11666
// (Sender as TORComboBox).ForDataUse(SubSetOfCosigners(StartFrom, Direction,
// FMToday, cboNewTitle.ItemIEN, FDocType));
// CQ #17218 - Updated to properly filter co-signers - JCS
TitleIEN := cboNewTitle.ItemIEN;
if TitleIEN = 0 then TitleIEN := FDocType;
(Sender as TORComboBox).ForDataUse(SubSetOfCosigners(StartFrom, Direction,
FMToday, TitleIEN, 0));
end;
procedure TfrmDCSummProperties.cboAuthorEnter(Sender: TObject);
@ -366,8 +379,16 @@ procedure TfrmDCSummProperties.cboAttendingExit(Sender: TObject);
{ make sure FCosign fields stay up to date in case SetCosigner gets called again }
begin
with cboAttending do if Text = '' then ItemIndex := -1;
FCosignIEN := cboAttending.ItemIEN;
FCosignName := Piece(cboAttending.Items[cboAttending.ItemIndex], U, 2);
if cboAttending.ItemIndex < 0 then
begin
FCosignIEN := 0;
FCosignName := '';
end
else
begin
FCosignIEN := cboAttending.ItemIEN;
FCosignName := Piece(cboAttending.Items[cboAttending.ItemIndex], U, 2);
end;
end;
{ Command Button events }
@ -389,9 +410,18 @@ begin
if calSumm.IsValid and (calSumm.FMDateTime > FMNow) then ErrMsg := ErrMsg + TX_NO_FUTURE;
if cboAttending.Visible and (cboAttending.ItemIEN = 0) then ErrMsg := ErrMsg + TX_REQ_COSIGNER;
//if cboAttending.ItemIEN = User.DUZ then ErrMsg := TX_COS_SELF;
if (cboAttending.ItemIEN > 0) and not IsUserAProvider(cboAttending.ItemIEN, FMNow) then
//if (cboAttending.ItemIEN > 0) and not CanCosign(cboNewTitle.ItemIEN, FDocType, cboAttending.ItemIEN) then
ErrMsg := cboAttending.Text + TX_COS_AUTH;
// --------------------------------- REPLACED THIS BLOCK IN V27.37-----------------------------------------------
/// if (cboAttending.ItemIEN > 0) and not IsUserAProvider(cboAttending.ItemIEN, FMNow) then
// //if (cboAttending.ItemIEN > 0) and not CanCosign(cboNewTitle.ItemIEN, FDocType, cboAttending.ItemIEN) then
// ErrMsg := cboAttending.Text + TX_COS_AUTH;
// ------------------------------------ NEW CODE FOLLOWS --------------------------------------------------------
if (cboAttending.ItemIEN > 0) then
if ((not IsUserAUSRProvider(cboAttending.ItemIEN, FMNow)) or
(not CanCosign(cboNewTitle.ItemIEN, FDocType, cboAttending.ItemIEN, calSumm.FMDateTime))) then
ErrMsg := cboAttending.Text + TX_COS_AUTH;
// -----------------------------------END OF NEW REPLACEMENT CODE -----------------------------------------------
if pnlAdmissions.Visible then
with lstAdmissions do
begin
@ -472,7 +502,7 @@ begin
if AnEditSumm.Title > 0 then cboNewTitle.SelectByIEN(AnEditSumm.Title);
cboAuthor.InitLongList(AnEditSumm.DictatorName);
if AnEditSumm.Dictator > 0 then cboAuthor.SelectByIEN(AnEditSumm.Dictator);
cboUrgency.Items.Assign(LoadDCUrgencies);
FastAssign(LoadDCUrgencies, cboUrgency.Items);
cboUrgency.SelectByID('R');
cboAttending.InitLongList(AnEditSumm.AttendingName);
if AnEditSumm.Attending > 0 then cboAttending.SelectByIEN(AnEditSumm.Attending);
@ -508,6 +538,30 @@ begin
end;
end;
procedure TfrmDCSummProperties.cboNewTitleChange(Sender: TObject);
var
IEN: Int64;
name: string;
Index: Integer;
begin
inherited;
index := cboAttending.ItemIndex;
if index >= 0 then
begin
IEN := cboAttending.ItemIEN;
name := cboAttending.DisplayText[index];
end
else
begin
name := '';
IEN := 0;
end;
cboAttending.InitLongList(name);
if index >= 0 then
cboAttending.SelectByIEN(IEN);
end;
procedure TfrmDCSummProperties.cboNewTitleDblClick(Sender: TObject);
begin
cmdOKClick(Self);

38
CPRS-Chart/fDateRange.dfm
View File

@ -1,28 +1,30 @@
inherited frmDateRange: TfrmDateRange
Left = 460
Top = 262
Width = 282
Height = 159
Caption = 'Date Range'
ClientHeight = 132
ClientWidth = 274
Position = poScreenCenter
OnCreate = FormCreate
ExplicitWidth = 282
ExplicitHeight = 159
PixelsPerInch = 96
TextHeight = 13
object lblStart: TLabel
object lblStart: TLabel [0]
Left = 8
Top = 44
Width = 53
Height = 13
Caption = 'Begin Date'
end
object lblStop: TLabel
object lblStop: TLabel [1]
Left = 145
Top = 44
Width = 45
Height = 13
Caption = 'End Date'
end
object lblInstruct: TOROffsetLabel
object lblInstruct: TOROffsetLabel [2]
Left = 0
Top = 0
Width = 274
@ -34,7 +36,7 @@ inherited frmDateRange: TfrmDateRange
VertOffset = 8
WordWrap = True
end
object txtStart: TORDateBox
object txtStart: TORDateBox [3]
Left = 8
Top = 58
Width = 121
@ -44,7 +46,7 @@ inherited frmDateRange: TfrmDateRange
RequireTime = False
Caption = 'Begin Date'
end
object txtStop: TORDateBox
object txtStop: TORDateBox [4]
Left = 145
Top = 58
Width = 121
@ -54,7 +56,7 @@ inherited frmDateRange: TfrmDateRange
RequireTime = False
Caption = 'End Date'
end
object cmdOK: TButton
object cmdOK: TButton [5]
Left = 114
Top = 103
Width = 72
@ -64,7 +66,7 @@ inherited frmDateRange: TfrmDateRange
TabOrder = 2
OnClick = cmdOKClick
end
object cmdCancel: TButton
object cmdCancel: TButton [6]
Left = 194
Top = 103
Width = 72
@ -74,4 +76,22 @@ inherited frmDateRange: TfrmDateRange
TabOrder = 3
OnClick = cmdCancelClick
end
inherited amgrMain: TVA508AccessibilityManager
Data = (
(
'Component = txtStart'
'Status = stsDefault')
(
'Component = txtStop'
'Status = stsDefault')
(
'Component = cmdOK'
'Status = stsDefault')
(
'Component = cmdCancel'
'Status = stsDefault')
(
'Component = frmDateRange'
'Status = stsDefault'))
end
end

2
CPRS-Chart/fDateRange.pas
View File

@ -4,7 +4,7 @@ interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
fAutoSz, ORCtrls, StdCtrls, ORFn, ORDtTm;
fAutoSz, ORCtrls, StdCtrls, ORFn, ORDtTm, VA508AccessibilityManager;
type
TfrmDateRange = class(TfrmAutoSz)

42
CPRS-Chart/fDefaultEvent.dfm
View File

@ -1,21 +1,14 @@
object frmDefaultEvent: TfrmDefaultEvent
inherited frmDefaultEvent: TfrmDefaultEvent
Left = 311
Top = 193
BorderStyle = bsSingle
Caption = 'Set/Change Default Release Event'
ClientHeight = 317
ClientWidth = 394
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object pnlTop: TPanel
object pnlTop: TPanel [0]
Left = 0
Top = 0
Width = 394
@ -25,8 +18,8 @@ object frmDefaultEvent: TfrmDefaultEvent
object lblCaption: TLabel
Left = 1
Top = 1
Width = 392
Height = 23
Width = 363
Height = 13
Align = alClient
Caption =
' Select an event from the following list as your personal defaul' +
@ -34,7 +27,7 @@ object frmDefaultEvent: TfrmDefaultEvent
WordWrap = True
end
end
object cboEvents: TORComboBox
object cboEvents: TORComboBox [1]
Left = 0
Top = 25
Width = 394
@ -52,6 +45,7 @@ object frmDefaultEvent: TfrmDefaultEvent
ItemTipEnable = True
ListItemsOnly = True
LongList = False
LookupPiece = 0
MaxLength = 0
ParentShowHint = False
Pieces = '9'
@ -60,8 +54,9 @@ object frmDefaultEvent: TfrmDefaultEvent
SynonymChars = '<>'
TabOrder = 1
CheckEntireLine = True
CharsNeedMatch = 1
end
object pnlBottom: TPanel
object pnlBottom: TPanel [2]
Left = 0
Top = 286
Width = 394
@ -88,4 +83,25 @@ object frmDefaultEvent: TfrmDefaultEvent
OnClick = btnCancelClick
end
end
inherited amgrMain: TVA508AccessibilityManager
Data = (
(
'Component = pnlTop'
'Status = stsDefault')
(
'Component = cboEvents'
'Status = stsDefault')
(
'Component = pnlBottom'
'Status = stsDefault')
(
'Component = btnOK'
'Status = stsDefault')
(
'Component = btnCancel'
'Status = stsDefault')
(
'Component = frmDefaultEvent'
'Status = stsDefault'))
end
end

17
CPRS-Chart/fDefaultEvent.pas
View File

@ -4,10 +4,11 @@ interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ORCtrls, ExtCtrls, rOrders, ORFn, uCore;
StdCtrls, ORCtrls, ExtCtrls, rOrders, ORFn, uCore, fBase508Form,
VA508AccessibilityManager;
type
TfrmDefaultEvent = class(TForm)
TfrmDefaultEvent = class(TfrmBase508Form)
pnlTop: TPanel;
lblCaption: TLabel;
cboEvents: TORComboBox;
@ -33,6 +34,8 @@ var
implementation
uses VAUtils;
{$R *.DFM}
function ExcueteDefaultEvntSetting: string;
@ -90,7 +93,7 @@ var
begin
if cboEvents.ItemIndex < 0 then
begin
ShowMessage('You have to select an event first!');
ShowMsg('You have to select an event first!');
Exit;
end;
if (Piece(cboEvents.Items[cboEvents.ItemIndex],'^',1) <> FPreDefaultEvtID) and ( Length(FPreDefaultEvtID)>0 )then
@ -100,9 +103,9 @@ begin
errMsg := '';
SetDefaultEvent(errMsg, Piece(cboEvents.Items[cboEvents.ItemIndex],'^',1));
if length(errMsg)>0 then
ShowMessage(errMsg)
ShowMsg(errMsg)
else
ShowMessage('The default release event "' + cboEvents.Text + '" has been set successfully!');
ShowMsg('The default release event "' + cboEvents.Text + '" has been set successfully!');
FDefaultEvtName := cboEvents.Text;
OKPressed := True;
Close;
@ -115,9 +118,9 @@ begin
errMsg := '';
SetDefaultEvent(errMsg, Piece(cboEvents.Items[cboEvents.ItemIndex],'^',1));
if length(errMsg)>0 then
ShowMessage(errMsg)
ShowMsg(errMsg)
else
ShowMessage('The default release event "' + cboEvents.Text + '" has been set successfully!');
ShowMsg('The default release event "' + cboEvents.Text + '" has been set successfully!');
FDefaultEvtName := cboEvents.Text;
OKPressed := True;
Close;

58
CPRS-Chart/fDeviceSelect.dfm
View File

@ -1,29 +1,17 @@
object frmDeviceSelect: TfrmDeviceSelect
inherited frmDeviceSelect: TfrmDeviceSelect
Left = 378
Top = 340
AutoScroll = False
Caption = 'Orders Print Device Selection'
ClientHeight = 235
ClientWidth = 415
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = True
Position = poScreenCenter
OnClose = FormClose
OnShow = FormShow
OnCreate = FormCreate
ExplicitWidth = 423
ExplicitHeight = 262
PixelsPerInch = 96
TextHeight = 13
object lblPrintTo: TLabel
Left = 8
Top = 276
Width = 3
Height = 13
end
object grpDevice: TGroupBox
object grpDevice: TGroupBox [0]
Left = 0
Top = 0
Width = 415
@ -58,6 +46,7 @@ object frmDeviceSelect: TfrmDeviceSelect
TabOrder = 0
OnChange = cboDeviceChange
OnNeedData = cboDeviceNeedData
CharsNeedMatch = 1
end
object pnlGBBottom: TPanel
Left = 2
@ -103,7 +92,7 @@ object frmDeviceSelect: TfrmDeviceSelect
end
end
end
object pnlBottom: TPanel
object pnlBottom: TPanel [1]
Left = 0
Top = 194
Width = 415
@ -140,4 +129,37 @@ object frmDeviceSelect: TfrmDeviceSelect
TabOrder = 2
end
end
inherited amgrMain: TVA508AccessibilityManager
Data = (
(
'Component = grpDevice'
'Status = stsDefault')
(
'Component = cboDevice'
'Status = stsDefault')
(
'Component = pnlGBBottom'
'Status = stsDefault')
(
'Component = txtRightMargin'
'Status = stsDefault')
(
'Component = txtPageLength'
'Status = stsDefault')
(
'Component = pnlBottom'
'Status = stsDefault')
(
'Component = cmdOK'
'Status = stsDefault')
(
'Component = cmdCancel'
'Status = stsDefault')
(
'Component = chkDefault'
'Status = stsDefault')
(
'Component = frmDeviceSelect'
'Status = stsDefault'))
end
end

18
CPRS-Chart/fDeviceSelect.pas
View File

@ -4,7 +4,7 @@ interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, fAutoSz, ORCtrls, ORNet, Mask, ExtCtrls;
StdCtrls, fAutoSz, ORCtrls, ORNet, Mask, ExtCtrls, VA508AccessibilityManager;
type
TfrmDeviceSelect = class(TfrmAutoSz)
@ -24,8 +24,8 @@ type
procedure cmdCancelClick(Sender: TObject);
procedure cboDeviceNeedData(Sender: TObject; const StartFrom: String;
Direction, InsertAt: Integer);
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
private
FWinPrint: Boolean;
end;
@ -55,7 +55,6 @@ var
begin
frmDeviceSelect := TfrmDeviceSelect.Create(Application);
try
ResizeFormToFont(TForm(frmDeviceSelect));
with frmDeviceSelect do
begin
FWinPrint := AllowWindowsPrinter;
@ -146,12 +145,6 @@ begin
cboDevice.ForDataUse(SubsetOfDevices(StartFrom, Direction));
end;
procedure TfrmDeviceSelect.FormShow(Sender: TObject);
begin
SetFormPosition(Self);
inherited;
end;
procedure TfrmDeviceSelect.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
@ -159,4 +152,11 @@ begin
SaveUserBounds(Self);
end;
procedure TfrmDeviceSelect.FormCreate(Sender: TObject);
begin
inherited;
ResizeFormToFont(Self);
SetFormPosition(Self);
end;
end.

BIN
CPRS-Chart/fDrawers.ddp
View File

Binary file not shown.

131
CPRS-Chart/fDrawers.dfm
View File

@ -1,25 +1,21 @@
object frmDrawers: TfrmDrawers
Left = 634
Top = 437
inherited frmDrawers: TfrmDrawers
Left = 285
Top = 335
BorderStyle = bsNone
Caption = 'frmDrawers'
ClientHeight = 365
ClientWidth = 189
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
KeyPreview = True
OldCreateOrder = False
OnCanResize = FormCanResize
OnCreate = FormCreate
OnDestroy = FormDestroy
OnResize = FormResize
ExplicitLeft = 285
ExplicitTop = 335
ExplicitWidth = 197
ExplicitHeight = 399
PixelsPerInch = 96
TextHeight = 13
object pnlRemindersButton: TKeyClickPanel
object pnlRemindersButton: TKeyClickPanel [0]
Left = 0
Top = 193
Width = 189
@ -37,6 +33,7 @@ object frmDrawers: TfrmDrawers
Top = 0
Width = 189
Height = 22
Align = alClient
AllowAllUp = True
GroupIndex = 1
Caption = 'Reminders'
@ -56,11 +53,10 @@ object frmDrawers: TfrmDrawers
NumGlyphs = 4
Spacing = 2
OnClick = sbRemindersClick
Align = alClient
OnResize = sbResize
end
end
object pnlEncounterButton: TKeyClickPanel
object pnlEncounterButton: TKeyClickPanel [1]
Left = 0
Top = 107
Width = 189
@ -78,6 +74,7 @@ object frmDrawers: TfrmDrawers
Top = 0
Width = 189
Height = 22
Align = alClient
AllowAllUp = True
GroupIndex = 1
Caption = 'Encounter'
@ -97,11 +94,10 @@ object frmDrawers: TfrmDrawers
NumGlyphs = 4
Spacing = 2
OnClick = sbEncounterClick
Align = alClient
OnResize = sbResize
end
end
object pnlTemplatesButton: TKeyClickPanel
object pnlTemplatesButton: TKeyClickPanel [2]
Left = 0
Top = 0
Width = 189
@ -119,6 +115,7 @@ object frmDrawers: TfrmDrawers
Top = 0
Width = 189
Height = 22
Align = alClient
AllowAllUp = True
GroupIndex = 1
Caption = 'Templates'
@ -139,11 +136,11 @@ object frmDrawers: TfrmDrawers
PopupMenu = popTemplates
Spacing = 2
OnClick = sbTemplatesClick
Align = alClient
OnResize = sbResize
ExplicitTop = -6
end
end
object pnlOrdersButton: TKeyClickPanel
object pnlOrdersButton: TKeyClickPanel [3]
Left = 0
Top = 279
Width = 189
@ -161,6 +158,7 @@ object frmDrawers: TfrmDrawers
Top = 0
Width = 189
Height = 22
Align = alClient
AllowAllUp = True
GroupIndex = 1
Caption = 'Orders'
@ -180,11 +178,10 @@ object frmDrawers: TfrmDrawers
NumGlyphs = 4
Spacing = 11
OnClick = sbOrdersClick
Align = alClient
OnResize = sbResize
end
end
object lbOrders: TORListBox
object lbOrders: TORListBox [4]
Left = 0
Top = 301
Width = 189
@ -201,7 +198,7 @@ object frmDrawers: TfrmDrawers
ItemTipColor = clWindow
LongList = False
end
object lbEncounter: TORListBox
object lbEncounter: TORListBox [5]
Left = 0
Top = 129
Width = 189
@ -218,7 +215,7 @@ object frmDrawers: TfrmDrawers
ItemTipColor = clWindow
LongList = False
end
object pnlTemplates: TPanel
object pnlTemplates: TPanel [6]
Left = 0
Top = 22
Width = 189
@ -313,7 +310,7 @@ object frmDrawers: TfrmDrawers
end
end
end
object tvReminders: TORTreeView
object tvReminders: TORTreeView [7]
Left = 0
Top = 215
Width = 189
@ -327,9 +324,7 @@ object frmDrawers: TfrmDrawers
RightClickSelect = True
StateImages = dmodShared.imgReminders
TabOrder = 5
OnAddition = tvRemindersAddition
OnCollapsed = tvRemindersCurListChanged
OnDeletion = tvRemindersDeletion
OnExpanded = tvRemindersCurListChanged
OnKeyDown = tvRemindersKeyDown
OnMouseUp = tvRemindersMouseUp
@ -337,6 +332,56 @@ object frmDrawers: TfrmDrawers
NodePiece = 0
OnNodeCaptioning = tvRemindersNodeCaptioning
end
inherited amgrMain: TVA508AccessibilityManager
Left = 72
Top = 72
Data = (
(
'Component = pnlRemindersButton'
'Status = stsDefault')
(
'Component = pnlEncounterButton'
'Status = stsDefault')
(
'Component = pnlTemplatesButton'
'Status = stsDefault')
(
'Component = pnlOrdersButton'
'Status = stsDefault')
(
'Component = lbOrders'
'Status = stsDefault')
(
'Component = lbEncounter'
'Status = stsDefault')
(
'Component = pnlTemplates'
'Status = stsDefault')
(
'Component = tvTemplates'
'Status = stsDefault')
(
'Component = pnlTemplateSearch'
'Status = stsDefault')
(
'Component = btnFind'
'Status = stsDefault')
(
'Component = edtSearch'
'Status = stsDefault')
(
'Component = cbMatchCase'
'Status = stsDefault')
(
'Component = cbWholeWords'
'Status = stsDefault')
(
'Component = tvReminders'
'Status = stsDefault')
(
'Component = frmDrawers'
'Status = stsDefault'))
end
object popTemplates: TPopupMenu
OnPopup = popTemplatesPopup
Left = 8
@ -408,4 +453,40 @@ object frmDrawers: TfrmDrawers
OnClick = mnuViewTemplateIconLegendClick
end
end
object fldAccessTemplates: TVA508ComponentAccessibility
Component = pnlTemplatesButton
OnStateQuery = fldAccessTemplatesStateQuery
OnInstructionsQuery = fldAccessTemplatesInstructionsQuery
ComponentName = 'Drawer'
Left = 104
Top = 72
end
object fldAccessReminders: TVA508ComponentAccessibility
Component = pnlRemindersButton
OnStateQuery = fldAccessRemindersStateQuery
OnInstructionsQuery = fldAccessRemindersInstructionsQuery
ComponentName = 'Drawer'
Left = 128
Top = 232
end
object imgLblReminders: TVA508ImageListLabeler
Components = <
item
Component = tvReminders
end>
Labels = <>
RemoteLabeler = dmodShared.imgLblReminders
Left = 96
Top = 232
end
object imgLblTemplates: TVA508ImageListLabeler
Components = <
item
Component = tvTemplates
end>
Labels = <>
RemoteLabeler = dmodShared.imgLblHealthFactorLabels
Left = 136
Top = 72
end
end

170
CPRS-Chart/fDrawers.pas
View File

@ -9,13 +9,14 @@ interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls, Buttons, ORCtrls, ComCtrls, ImgList, uTemplates,
Menus, ORClasses, ORFn;
Menus, ORClasses, ORFn, fBase508Form, VA508AccessibilityManager,
VA508ImageListLabeler;
type
TDrawer = (odNone, odTemplates, odEncounter, odReminders, odOrders);
TDrawers = set of TDrawer;
TfrmDrawers = class(TForm)
TfrmDrawers = class(TfrmBase508Form)
lbOrders: TORListBox;
sbOrders: TORAlignSpeedButton;
sbReminders: TORAlignSpeedButton;
@ -51,6 +52,10 @@ type
mnuCopyTemplate: TMenuItem;
N5: TMenuItem;
mnuViewTemplateIconLegend: TMenuItem;
fldAccessTemplates: TVA508ComponentAccessibility;
fldAccessReminders: TVA508ComponentAccessibility;
imgLblReminders: TVA508ImageListLabeler;
imgLblTemplates: TVA508ImageListLabeler;
procedure FormCanResize(Sender: TObject; var NewWidth,
NewHeight: Integer; var Resize: Boolean);
procedure FormResize(Sender: TObject);
@ -104,8 +109,12 @@ type
Shift: TShiftState);
procedure tvRemindersNodeCaptioning(Sender: TObject;
var Caption: String);
procedure tvRemindersAddition(Sender: TObject; Node: TTreeNode);
procedure tvRemindersDeletion(Sender: TObject; Node: TTreeNode);
procedure fldAccessTemplatesStateQuery(Sender: TObject; var Text: string);
procedure fldAccessTemplatesInstructionsQuery(Sender: TObject;
var Text: string);
procedure fldAccessRemindersInstructionsQuery(Sender: TObject;
var Text: string);
procedure fldAccessRemindersStateQuery(Sender: TObject; var Text: string);
private
FOpenToNode: string;
FOldMouseUp: TMouseEvent;
@ -210,7 +219,7 @@ implementation
uses fTemplateView, uCore, rTemplates, fTemplateEditor, dShared, uReminders,
fReminderDialog, RichEdit, fRptBox, Clipbrd, fTemplateDialog, fIconLegend,
uAccessibleTreeView, uAccessibleTreeNode;
VA508AccessibilityRouter, uVA508CPRSCompatibility, VAUtils, fFindingTemplates;
{$R *.DFM}
@ -533,6 +542,8 @@ begin
pnlTemplateSearch.Visible := mnuFindTemplates.Checked;
end;
ToggleDrawer(odTemplates);
if ScreenReaderActive then
pnlTemplatesButton.SetFocus;
end;
procedure TfrmDrawers.sbEncounterClick(Sender: TObject);
@ -558,6 +569,8 @@ begin
else
ToggleDrawer(odReminders)
end;
if ScreenReaderActive then
pnlRemindersButton.SetFocus;
end;
procedure TfrmDrawers.sbOrdersClick(Sender: TObject);
@ -883,12 +896,16 @@ begin
if(txt <> '') then
begin
CheckBoilerplate4Fields(txt, 'Template: ' + Template.PrintName);
BeforeLine := SendMessage(FRichEditControl.Handle, EM_EXLINEFROMCHAR, 0, FRichEditControl.SelStart);
FRichEditControl.SelText := txt;
FRichEditControl.SetFocus;
SendMessage(FRichEditControl.Handle, EM_SCROLLCARET, 0, 0);
AfterTop := SendMessage(FRichEditControl.Handle, EM_GETFIRSTVISIBLELINE, 0, 0);
SendMessage(FRichEditControl.Handle, EM_LINESCROLL, 0, -1 * (AfterTop - BeforeLine));
if txt <> '' then
begin
BeforeLine := SendMessage(FRichEditControl.Handle, EM_EXLINEFROMCHAR, 0, FRichEditControl.SelStart);
FRichEditControl.SelText := txt;
FRichEditControl.SetFocus;
SendMessage(FRichEditControl.Handle, EM_SCROLLCARET, 0, 0);
AfterTop := SendMessage(FRichEditControl.Handle, EM_GETFIRSTVISIBLELINE, 0, 0);
SendMessage(FRichEditControl.Handle, EM_LINESCROLL, 0, -1 * (AfterTop - BeforeLine));
SpeakTextInserted;
end;
end;
end;
end;
@ -959,7 +976,6 @@ end;
procedure TfrmDrawers.FormDestroy(Sender: TObject);
begin
TAccessibleTreeView.UnwrapControl(tvReminders);
dmodShared.RemoveDrawerTree(Self);
KillObj(@FRemNotifyList);
end;
@ -972,6 +988,7 @@ end;
procedure TfrmDrawers.ReloadTemplates;
begin
SetFindNext(FALSE);
LoadTemplateData;
if(UserTemplateAccessLevel <> taNone) and (assigned(MyTemplate)) and
(MyTemplate.Children in [tcActive, tcBoth]) then
@ -985,68 +1002,37 @@ end;
procedure TfrmDrawers.btnFindClick(Sender: TObject);
var
TmpNode: TTreeNode;
Found: boolean;
S1,S2: string;
Found, TmpNode: TTreeNode;
IsNext: boolean;
begin
if(edtSearch.text <> '') then
begin
if(FEmptyNodeCount > 0) then
begin
FInternalExpand := TRUE;
FInternalHiddenExpand := TRUE;
try
TmpNode := tvTemplates.Items.GetFirstNode;
while(assigned(TmpNode)) do
begin
TmpNode.Expand(TRUE);
TmpNode := TmpNode.GetNextSibling;
end;
finally
FInternalExpand := FALSE;
FInternalHiddenExpand := FALSE;
end;
end;
if((FFindNext) and assigned (FLastFoundNode)) then
TmpNode := FLastFoundNode.GetNext
IsNext := ((FFindNext) and assigned (FLastFoundNode));
if IsNext then
TmpNode := FLastFoundNode
else
TmpNode := tvTemplates.Items.GetFirstNode;
Found := FALSE;
if(assigned(TmpNode)) then
begin
S1 := edtSearch.Text;
if(not cbMatchCase.Checked) then
S1 := UpperCase(S1);
while (assigned(TmpNode) and (not Found)) do
begin
S2 := TmpNode.Text;
if(not cbMatchCase.Checked) then
S2 := UpperCase(S2);
Found := SearchMatch(S1, S2, cbWholeWords.Checked);
if(not Found) then
TmpNode := TmpNode.GetNext;
end;
FInternalExpand := TRUE;
FInternalHiddenExpand := TRUE;
try
Found := FindTemplate(edtSearch.Text, tvTemplates, Application.MainForm, TmpNode,
IsNext, not cbMatchCase.Checked, cbWholeWords.Checked);
finally
FInternalExpand := FALSE;
FInternalHiddenExpand := FALSE;
end;
if(Found) then
if assigned(Found) then
begin
FLastFoundNode := TmpNode;
FLastFoundNode := Found;
SetFindNext(TRUE);
FInternalExpand := TRUE;
try
tvTemplates.Selected := TmpNode;
tvTemplates.Selected := Found;
finally
FInternalExpand := FALSE;
end;
end
else
begin
if(FFindNext) then
S1 := ''
else
S1 := ' "' + edtSearch.Text + '" was not Found.';
SetFindNext(FALSE);
InfoBox('Search Complete.' + S1, 'Information', MB_OK or MB_ICONINFORMATION);
end;
end;
edtSearch.SetFocus;
@ -1131,7 +1117,6 @@ procedure TfrmDrawers.FormCreate(Sender: TObject);
begin
dmodShared.AddDrawerTree(Self);
FHasPersonalTemplates := FALSE;
TAccessibleTreeView.WrapControl(tvReminders);
end;
procedure TfrmDrawers.ExternalReloadTemplates;
@ -1144,6 +1129,47 @@ begin
ReloadTemplates;
end;
procedure TfrmDrawers.fldAccessRemindersInstructionsQuery(Sender: TObject;
var Text: string);
begin
inherited;
if FOpenDrawer = odReminders then
Text := 'to close'
else
Text := 'to open';
Text := Text + ' drawer press space bar';
end;
procedure TfrmDrawers.fldAccessRemindersStateQuery(Sender: TObject;
var Text: string);
begin
inherited;
if FOpenDrawer = odReminders then
Text := ', Drawer Open'
else
Text := ', Drawer Closed';
end;
procedure TfrmDrawers.fldAccessTemplatesInstructionsQuery(Sender: TObject;
var Text: string);
begin
inherited;
if FOpenDrawer = odTemplates then
Text := 'to close'
else
Text := 'to open';
Text := Text + ' drawer press space bar';
end;
procedure TfrmDrawers.fldAccessTemplatesStateQuery(Sender: TObject;
var Text: string);
begin
if FOpenDrawer = odTemplates then
Text := ', Drawer Open'
else
Text := ', Drawer Closed';
end;
procedure TfrmDrawers.DisplayDrawers(Show: Boolean);
begin
DisplayDrawers(Show, [], []);
@ -1389,7 +1415,7 @@ end;
procedure TfrmDrawers.OpenToNode(Path: string = '');
var
OldInternalHE, OldInternalEX: boolean;
begin
if(Path <> '') then
FOpenToNode := PATH;
@ -1424,7 +1450,7 @@ begin
begin
tmpl := TTemplate(tvTemplates.Selected.Data);
if(tmpl.Description = '') then
ShowMessage('No notes found for ' + tmpl.PrintName)
ShowMsg('No notes found for ' + tmpl.PrintName)
else
begin
tmpSL := TStringList.Create;
@ -1453,7 +1479,10 @@ begin
txt := Template.Text;
CheckBoilerplate4Fields(txt, 'Template: ' + Template.PrintName);
if txt <> '' then
begin
Clipboard.SetTextBuf(PChar(txt));
GetScreenReader.Speak('Text Copied to Clip board');
end;
end;
if txt <> '' then
StatusText('Templated Text copied to clipboard.');
@ -1530,18 +1559,6 @@ begin
end;
end;
procedure TfrmDrawers.tvRemindersAddition(Sender: TObject;
Node: TTreeNode);
begin
TAccessibleTreeNode.WrapControl(Node as TORTreeNode);
end;
procedure TfrmDrawers.tvRemindersDeletion(Sender: TObject;
Node: TTreeNode);
begin
TAccessibleTreeNode.UnwrapControl(Node as TORTreeNode);
end;
procedure TfrmDrawers.DisableArrowKeyMove(Sender: TObject);
var
CurrPanel : TKeyClickPanel;
@ -1560,5 +1577,8 @@ begin
end;
end;
initialization
SpecifyFormIsNotADialog(TfrmDrawers);
end.

42
CPRS-Chart/fDupPts.dfm
View File

@ -1,34 +1,25 @@
object frmDupPts: TfrmDupPts
inherited frmDupPts: TfrmDupPts
Left = 160
Top = 190
Width = 471
Height = 214
HorzScrollBar.Visible = False
VertScrollBar.Visible = False
Caption = 'Similar Patients'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
KeyPreview = True
OldCreateOrder = False
ClientHeight = 187
ClientWidth = 463
Position = poScreenCenter
OnCreate = FormCreate
OnKeyDown = FormKeyDown
PixelsPerInch = 96
TextHeight = 13
object pnlDupPts: TPanel
object pnlDupPts: TPanel [0]
Left = 0
Top = 0
Width = 463
Height = 184
Height = 187
Align = alClient
TabOrder = 0
DesignSize = (
463
184)
187)
object lblSelDupPts: TLabel
Left = 6
Top = 3
@ -94,4 +85,25 @@ object frmDupPts: TfrmDupPts
end
end
end
inherited amgrMain: TVA508AccessibilityManager
Data = (
(
'Component = pnlDupPts'
'Status = stsDefault')
(
'Component = btnOK'
'Status = stsDefault')
(
'Component = btnCancel'
'Status = stsDefault')
(
'Component = pnlSelDupPt'
'Status = stsDefault')
(
'Component = lboSelPt'
'Status = stsDefault')
(
'Component = frmDupPts'
'Status = stsDefault'))
end
end

17
CPRS-Chart/fDupPts.pas
View File

@ -4,10 +4,11 @@ interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls, ORCtrls, ExtCtrls, OrFn;
Controls, Forms, Dialogs, StdCtrls, ORCtrls, ExtCtrls, OrFn, fBase508Form,
VA508AccessibilityManager;
type
TfrmDupPts = class(TForm)
TfrmDupPts = class(TfrmBase508Form)
pnlDupPts: TPanel;
btnOK: TButton;
btnCancel: TButton;
@ -49,8 +50,8 @@ var
begin
fPtSel.DupDFN := 'Cancel'; // Pre-set as default.
theDups := tStringList.create;
theDups.assign(fPtSel.PtStrs);
lboSelPt.items.assign(theDups);
FastAssign(fPtSel.PtStrs, theDups);
FastAssign(theDups, lboSelPt.Items);
ResizeAnchoredFormToFont(self);
end;
@ -71,11 +72,9 @@ end;
procedure TfrmDupPts.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
// Check for "Esc" keypress:
if (key = 27) then // ESC key.
btnCancel.click;
inherited;
if (key = VK_ESCAPE) then
btnCancel.click;
end;
procedure TfrmDupPts.lboSelPtDblClick(Sender: TObject);

35
CPRS-Chart/fEffectDate.dfm
View File

@ -8,16 +8,18 @@ inherited frmEffectDate: TfrmEffectDate
ClientWidth = 254
Position = poScreenCenter
OnCreate = FormCreate
ExplicitWidth = 320
ExplicitHeight = 240
PixelsPerInch = 96
TextHeight = 13
object Label2: TLabel
object Label2: TLabel [0]
Left = 68
Top = 48
Width = 68
Height = 13
Caption = 'Effective Date'
end
object Label3: TStaticText
object Label3: TStaticText [1]
Left = 8
Top = 8
Width = 244
@ -25,7 +27,7 @@ inherited frmEffectDate: TfrmEffectDate
Caption = 'Enter the date this discharge will become effective.'
TabOrder = 3
end
object Label4: TStaticText
object Label4: TStaticText [2]
Left = 8
Top = 22
Width = 224
@ -33,7 +35,7 @@ inherited frmEffectDate: TfrmEffectDate
Caption = '(This aids pharmacy in preparing prescriptions.)'
TabOrder = 4
end
object calEffective: TORDateBox
object calEffective: TORDateBox [3]
Left = 68
Top = 62
Width = 120
@ -44,7 +46,7 @@ inherited frmEffectDate: TfrmEffectDate
RequireTime = False
Caption = 'Effective Date'
end
object cmdOK: TButton
object cmdOK: TButton [4]
Left = 51
Top = 95
Width = 72
@ -54,7 +56,7 @@ inherited frmEffectDate: TfrmEffectDate
TabOrder = 1
OnClick = cmdOKClick
end
object cmdCancel: TButton
object cmdCancel: TButton [5]
Left = 133
Top = 95
Width = 72
@ -64,4 +66,25 @@ inherited frmEffectDate: TfrmEffectDate
TabOrder = 2
OnClick = cmdCancelClick
end
inherited amgrMain: TVA508AccessibilityManager
Data = (
(
'Component = Label3'
'Status = stsDefault')
(
'Component = Label4'
'Status = stsDefault')
(
'Component = calEffective'
'Status = stsDefault')
(
'Component = cmdOK'
'Status = stsDefault')
(
'Component = cmdCancel'
'Status = stsDefault')
(
'Component = frmEffectDate'
'Status = stsDefault'))
end
end

3
CPRS-Chart/fEffectDate.pas
View File

@ -4,7 +4,8 @@ interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
fAutoSz, Grids, Calendar, ORDtTmCal, StdCtrls, ORDtTm, ORFn;
fAutoSz, Grids, Calendar, ORDtTmCal, StdCtrls, ORDtTm, ORFn,
VA508AccessibilityManager;
type
TfrmEffectDate = class(TfrmAutoSz)

BIN
CPRS-Chart/fEncnt.ddp
View File

Binary file not shown.

104
CPRS-Chart/fEncnt.dfm
View File

@ -1,18 +1,12 @@
object frmEncounter: TfrmEncounter
inherited frmEncounter: TfrmEncounter
Left = 481
Top = 242
Width = 470
Height = 450
Anchors = [akTop]
BorderIcons = [biSystemMenu]
Caption = 'Provider & Location for Current Activities'
Color = clBtnFace
ClientHeight = 423
ClientWidth = 462
Constraints.MinWidth = 470
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = True
Position = poScreenCenter
Scaled = False
@ -21,12 +15,14 @@ object frmEncounter: TfrmEncounter
OnDestroy = FormDestroy
OnResize = FormResize
OnShow = FormShow
ExplicitWidth = 470
ExplicitHeight = 450
DesignSize = (
462
416)
423)
PixelsPerInch = 96
TextHeight = 13
object lblInstruct: TLabel
object lblInstruct: TLabel [0]
Left = 6
Top = 6
Width = 253
@ -38,7 +34,7 @@ object frmEncounter: TfrmEncounter
Visible = False
WordWrap = True
end
object lblLocation: TLabel
object lblLocation: TLabel [1]
Tag = 9
Left = 6
Top = 140
@ -48,14 +44,14 @@ object frmEncounter: TfrmEncounter
Caption = 'Encounter Location'
Constraints.MinHeight = 12
end
object lblProvider: TLabel
object lblProvider: TLabel [2]
Left = 6
Top = 6
Width = 91
Height = 13
Caption = 'Encounter Provider'
end
object cboPtProvider: TORComboBox
object cboPtProvider: TORComboBox [3]
Left = 6
Top = 20
Width = 331
@ -81,7 +77,7 @@ object frmEncounter: TfrmEncounter
OnNeedData = cboPtProviderNeedData
CharsNeedMatch = 1
end
object cmdDateRange: TButton
object cmdDateRange: TButton [4]
Tag = 9
Left = 266
Top = 153
@ -94,7 +90,7 @@ object frmEncounter: TfrmEncounter
TabOrder = 2
OnClick = cmdDateRangeClick
end
object txtLocation: TCaptionEdit
object txtLocation: TCaptionEdit [5]
Tag = 9
Left = 6
Top = 154
@ -109,7 +105,7 @@ object frmEncounter: TfrmEncounter
Text = '< Select a location from the tabs below.... >'
Caption = 'Encounter Location'
end
object cmdCancel: TButton
object cmdCancel: TButton [6]
Left = 341
Top = 45
Width = 84
@ -122,7 +118,7 @@ object frmEncounter: TfrmEncounter
TabOrder = 4
OnClick = cmdCancelClick
end
object cmdOK: TButton
object cmdOK: TButton [7]
Left = 340
Top = 20
Width = 84
@ -135,7 +131,7 @@ object frmEncounter: TfrmEncounter
TabOrder = 3
OnClick = cmdOKClick
end
object Panel1: TPanel
object Panel1: TPanel [8]
Left = 0
Top = 179
Width = 460
@ -157,8 +153,13 @@ object frmEncounter: TfrmEncounter
RaggedRight = True
TabOrder = 0
OnChange = pgeVisitChange
OnMouseDown = pgeVisitMouseDown
object tabClinic: TTabSheet
Caption = 'Clinic Appointments'
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object lstClinic: TORListBox
Left = 0
Top = 20
@ -204,6 +205,10 @@ object frmEncounter: TfrmEncounter
end
object tabAdmit: TTabSheet
Caption = 'Hospital Admissions'
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object lstAdmit: TORListBox
Left = 0
Top = 17
@ -240,6 +245,10 @@ object frmEncounter: TfrmEncounter
end
object tabNewVisit: TTabSheet
Caption = 'New Visit'
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object lblVisitDate: TLabel
Left = 220
Top = 4
@ -312,6 +321,63 @@ object frmEncounter: TfrmEncounter
end
end
end
inherited amgrMain: TVA508AccessibilityManager
Data = (
(
'Component = cboPtProvider'
'Status = stsDefault')
(
'Component = cmdDateRange'
'Status = stsDefault')
(
'Component = txtLocation'
'Status = stsDefault')
(
'Component = cmdCancel'
'Status = stsDefault')
(
'Component = cmdOK'
'Status = stsDefault')
(
'Component = Panel1'
'Status = stsDefault')
(
'Component = pgeVisit'
'Status = stsDefault')
(
'Component = tabClinic'
'Status = stsDefault')
(
'Component = lstClinic'
'Status = stsDefault')
(
'Component = Panel2'
'Status = stsDefault')
(
'Component = tabAdmit'
'Status = stsDefault')
(
'Component = lstAdmit'
'Status = stsDefault')
(
'Component = Panel3'
'Status = stsDefault')
(
'Component = tabNewVisit'
'Status = stsDefault')
(
'Component = calVisitDate'
'Status = stsDefault')
(
'Component = ckbHistorical'
'Status = stsDefault')
(
'Component = cboNewVisit'
'Status = stsDefault')
(
'Component = frmEncounter'
'Status = stsDefault'))
end
object dlgDateRange: TORDateRangeDlg
DateOnly = True
Instruction = 'Show appointments / visits in the date range:'

53
CPRS-Chart/fEncnt.pas
View File

@ -12,10 +12,11 @@ interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ORCtrls, ORDtTm, ORFn, ExtCtrls, ComCtrls, ORDtTmRng, fAutoSz, rOptions;
StdCtrls, ORCtrls, ORDtTm, ORFn, ExtCtrls, ComCtrls, ORDtTmRng, fAutoSz, rOptions, fBase508Form,
VA508AccessibilityManager, fFrame;
type
TfrmEncounter = class(TForm)
TfrmEncounter = class(TfrmBase508Form)
cboPtProvider: TORComboBox;
lblProvider: TLabel;
cmdOK: TButton;
@ -61,6 +62,8 @@ type
procedure lstClinicChange(Sender: TObject);
procedure FormResize(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure pgeVisitMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
CLINIC_TXT : String;
FFilter: Int64;
@ -81,6 +84,7 @@ type
procedure AppShowHint(var HintStr: string; var CanShow: Boolean;
var HintInfo: THintInfo);
procedure SetVisitCat;
function AllowAutoFocusChange: Boolean;
public
{ Public declarations }
end;
@ -93,7 +97,8 @@ implementation
{$R *.DFM}
uses rCore, uCore, uConst, fReview, uPCE, rPCE;
uses rCore, uCore, uConst, fReview, uPCE, rPCE, VA508AccessibilityRouter,
VAUtils;
const
TC_MISSING = 'Incomplete Encounter Information';
@ -154,6 +159,8 @@ begin
if OKPressed then
begin
CanChange := True;
// if (fframe.frmFrame.DoNotChangeEncWindow = true) and (encounter.Location <> frmEncounter.FLocation) then
// fframe.frmFrame.DoNotChangeEncWindow := false;
if (PersonFilter <> NPF_SUPPRESS) and
(((Encounter.Provider = User.DUZ) and (FProvider <> User.DUZ)) or
((Encounter.Provider <> User.DUZ) and (FProvider = User.DUZ)))
@ -248,12 +255,14 @@ begin
if (pgeVisit.ActivePage = tabClinic) and (lstClinic.Items.Count = 0) then
begin
ListApptAll(lstClinic.Items, Patient.DFN, FFromDate, FThruDate);
ActiveControl := lstClinic;
if AllowAutoFocusChange then
ActiveControl := lstClinic;
end;
if (pgeVisit.ActivePage = tabAdmit) and (lstAdmit.Items.Count = 0) then
begin
ListAdmitAll(lstAdmit.Items, Patient.DFN);
ActiveControl := lstAdmit;
if AllowAutoFocusChange then
ActiveControl := lstAdmit;
end;
if pgeVisit.ActivePage = tabNewVisit then
begin
@ -275,22 +284,32 @@ begin
FFromSelf := True;
with calVisitDate do if FDateTime <> 0 then FMDateTime := FDateTime else Text := 'NOW';
FFromSelf := False;
ActiveControl := cboNewVisit;
if AllowAutoFocusChange then
ActiveControl := cboNewVisit;
end
else if FVisitCategory = 'E' then
begin
ckbHistorical.Checked := True;
ActiveControl := cboNewVisit;
if AllowAutoFocusChange then
ActiveControl := cboNewVisit;
end
else
begin
cboNewVisit.InitLongList('');
//ActiveControl := cboPtProvider;
end;
//ckbHistorical.Checked := FVisitCategory = 'E';
//ActiveControl := cboNewVisit;
end; {if cboNewVisit}
end; {if pgeVisit.ActivePage}
if ScreenReaderSystemActive then
ActiveControl := pgeVisit;
end;
procedure TfrmEncounter.pgeVisitMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
inherited;
if pgeVisit.ActivePage = tabNewVisit then
if cboNewVisit.CanFocus then
cboNewVisit.SetFocus;
end;
procedure TfrmEncounter.cboNewVisitNeedData(Sender: TObject; const StartFrom: string;
@ -456,6 +475,17 @@ begin
FStandAlone := (FVisitCategory = 'A');
end;
function TfrmEncounter.AllowAutoFocusChange: Boolean;
begin
if ScreenReaderSystemActive or
Boolean(Hi(GetKeyState(VK_TAB))) or
Boolean(Hi(GetKeyState(VK_LEFT))) or
Boolean(Hi(GetKeyState(VK_RIGHT))) then
Result := FALSE
else
Result := TRUE;
end;
procedure TfrmEncounter.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
@ -535,6 +565,9 @@ begin
cmdOK.Top := cmdCancel.Top - cmdOK.Height - 1;
cmdCancel.Top := cmdOK.Top + cmdOK.Height + 1;
//end CQ7118
if Not User.IsProvider then
if cboPtProvider.CanFocus then
cboPtProvider.SetFocus;
end;
end.

4
CPRS-Chart/fEncntKEEP.pas
View File

@ -12,10 +12,10 @@ interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ORCtrls, ORDtTm, ORFn, ExtCtrls, ComCtrls, ORDtTmRng, fAutoSz, rOptions;
StdCtrls, ORCtrls, ORDtTm, ORFn, ExtCtrls, ComCtrls, ORDtTmRng, fAutoSz, rOptions, fBase508Form;
type
TfrmEncounter = class(TForm)
TfrmEncounter = class(TfrmBase508Form)
cboPtProvider: TORComboBox;
lblProvider: TLabel;
cmdOK: TButton;

BIN
CPRS-Chart/fFrame.ddp
View File

Binary file not shown.

392
CPRS-Chart/fFrame.dfm
View File

@ -1,17 +1,10 @@
object frmFrame: TfrmFrame
Left = 380
Top = 292
Width = 684
Height = 487
inherited frmFrame: TfrmFrame
Left = 196
Top = 119
Caption = 'p'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ClientHeight = 574
ClientWidth = 687
FormStyle = fsMDIForm
KeyPreview = True
Menu = mnuFrame
OldCreateOrder = True
Visible = True
@ -21,15 +14,18 @@ object frmFrame: TfrmFrame
OnCreate = FormCreate
OnDestroy = FormDestroy
OnHelp = FormHelp
OnKeyDown = FormKeyDown
OnResize = FormResize
ExplicitLeft = 196
ExplicitTop = 119
ExplicitWidth = 695
ExplicitHeight = 620
PixelsPerInch = 96
TextHeight = 13
object pnlNoPatientSelected: TPanel
object pnlNoPatientSelected: TPanel [0]
Left = 0
Top = 0
Width = 676
Height = 433
Width = 687
Height = 574
Align = alClient
Caption = 'No patient is currently selected'
Font.Charset = DEFAULT_CHARSET
@ -41,35 +37,38 @@ object frmFrame: TfrmFrame
TabOrder = 1
Visible = False
end
object pnlPatientSelected: TPanel
object pnlPatientSelected: TPanel [1]
Left = 0
Top = 0
Width = 676
Height = 433
Width = 687
Height = 574
Align = alClient
TabOrder = 0
object bvlPageTop: TBevel
Left = 1
Top = 41
Width = 674
Width = 685
Height = 1
Align = alTop
ExplicitWidth = 674
end
object pnlToolbar: TPanel
Left = 1
Top = 1
Width = 674
Width = 685
Height = 40
Align = alTop
BevelOuter = bvNone
Caption = 'object pnlRemoteData: TKeyClickPanel'
TabOrder = 0
object bvlToolTop: TBevel
Left = 0
Top = 0
Width = 674
Width = 685
Height = 1
Align = alTop
Style = bsRaised
ExplicitWidth = 674
end
object pnlCCOW: TPanel
Left = 0
@ -129,7 +128,7 @@ object frmFrame: TfrmFrame
Color = clInfoBk
Font.Charset = DEFAULT_CHARSET
Font.Color = clInfoBk
Font.Height = -8
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
@ -164,8 +163,8 @@ object frmFrame: TfrmFrame
object lblPtSSN: TStaticText
Left = 6
Top = 19
Width = 64
Height = 17
Width = 4
Height = 4
Font.Charset = DEFAULT_CHARSET
Font.Color = clInfoText
Font.Height = -11
@ -180,10 +179,10 @@ object frmFrame: TfrmFrame
OnMouseUp = pnlPatientMouseUp
end
object lblPtAge: TStaticText
Left = 176
Left = 175
Top = 19
Width = 3
Height = 6
Width = 4
Height = 4
Alignment = taRightJustify
Font.Charset = DEFAULT_CHARSET
Font.Color = clInfoText
@ -202,7 +201,7 @@ object frmFrame: TfrmFrame
object pnlVisit: TKeyClickPanel
Left = 226
Top = 1
Width = 168
Width = 119
Height = 39
Hint = 'Click to change provider/location.'
Align = alLeft
@ -220,8 +219,6 @@ object frmFrame: TfrmFrame
OnClick = pnlVisitClick
OnEnter = pnlPrimaryCareEnter
OnExit = pnlPrimaryCareExit
OnMouseDown = pnlVisitMouseDown
OnMouseUp = pnlVisitMouseUp
object lblPtLocation: TStaticText
Left = 6
Top = 4
@ -238,8 +235,6 @@ object frmFrame: TfrmFrame
ShowHint = False
TabOrder = 0
OnClick = pnlVisitClick
OnMouseDown = pnlVisitMouseDown
OnMouseUp = pnlVisitMouseUp
end
object lblPtProvider: TStaticText
Left = 6
@ -256,14 +251,12 @@ object frmFrame: TfrmFrame
ShowHint = False
TabOrder = 1
OnClick = pnlVisitClick
OnMouseDown = pnlVisitMouseDown
OnMouseUp = pnlVisitMouseUp
end
end
object pnlPrimaryCare: TKeyClickPanel
Left = 394
Left = 345
Top = 1
Width = 31
Width = 67
Height = 39
Hint = 'Primary Care Team / Primary Care Provider'
Align = alClient
@ -320,80 +313,8 @@ object frmFrame: TfrmFrame
OnMouseUp = pnlPrimaryCareMouseUp
end
end
object pnlCIRN: TKeyClickPanel
Left = 520
Top = 1
Width = 49
Height = 39
Align = alRight
BevelWidth = 2
Caption = 'Remote Data'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBtnFace
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 5
OnClick = pnlCIRNClick
OnEnter = pnlPrimaryCareEnter
OnExit = pnlPrimaryCareExit
OnMouseDown = pnlCIRNMouseDown
OnMouseUp = pnlCIRNMouseUp
object lblCIRN: TLabel
Left = 2
Top = 2
Width = 45
Height = 13
Align = alTop
Alignment = taCenter
Caption = 'Remote'
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clBtnFace
Font.Height = -8
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
OnClick = pnlCIRNClick
end
object lblCIRNData: TLabel
Left = 2
Top = 15
Width = 45
Height = 13
Align = alTop
Alignment = taCenter
Caption = 'Data'
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clBtnFace
Font.Height = -8
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
OnClick = pnlCIRNClick
end
object lblCIRNAvail: TLabel
Left = 2
Top = 28
Width = 45
Height = 9
Align = alClient
Alignment = taCenter
Font.Charset = DEFAULT_CHARSET
Font.Color = clBtnFace
Font.Height = -8
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
OnClick = pnlCIRNClick
end
end
object pnlReminders: TKeyClickPanel
Left = 569
Left = 580
Top = 1
Width = 35
Height = 39
@ -435,7 +356,7 @@ object frmFrame: TfrmFrame
end
end
object pnlFlag: TKeyClickPanel
Left = 485
Left = 472
Top = 1
Width = 35
Height = 39
@ -472,10 +393,12 @@ object frmFrame: TfrmFrame
OnClick = pnlFlagClick
OnMouseDown = pnlFlagMouseDown
OnMouseUp = pnlFlagMouseUp
ExplicitWidth = 25
ExplicitHeight = 13
end
end
object pnlPostings: TKeyClickPanel
Left = 604
Left = 615
Top = 1
Width = 70
Height = 39
@ -540,7 +463,7 @@ object frmFrame: TfrmFrame
end
end
object paVAA: TKeyClickPanel
Left = 425
Left = 412
Top = 1
Width = 60
Height = 39
@ -574,7 +497,7 @@ object frmFrame: TfrmFrame
end
object laMHV: TButton
Left = 0
Top = 1
Top = 0
Width = 59
Height = 18
Hint = 'Click to display MHV data'
@ -586,11 +509,122 @@ object frmFrame: TfrmFrame
OnClick = laMHVClick
end
end
object pnlRemoteData: TKeyClickPanel
Left = 507
Top = 1
Width = 73
Height = 39
Align = alRight
BevelWidth = 2
Caption = 'Remote Data'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBtnFace
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 5
TabStop = True
OnClick = pnlCIRNClick
OnEnter = pnlPrimaryCareEnter
OnExit = pnlPrimaryCareExit
OnMouseDown = pnlCIRNMouseDown
OnMouseUp = pnlCIRNMouseUp
object pnlVistaWeb: TKeyClickPanel
Left = 2
Top = 2
Width = 69
Height = 18
Hint = 'Click to open VistaWeb'
Align = alTop
BevelWidth = 2
Caption = 'VistaWeb'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBtnFace
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 0
TabStop = True
OnClick = pnlVistaWebClick
OnEnter = pnlPrimaryCareEnter
OnExit = pnlPrimaryCareExit
OnMouseDown = pnlVistaWebMouseDown
OnMouseUp = pnlVistaWebMouseUp
object lblVistaWeb: TLabel
Left = 2
Top = 2
Width = 65
Height = 14
Align = alClient
Alignment = taCenter
Caption = 'VistaWeb'
Font.Charset = DEFAULT_CHARSET
Font.Color = clInfoText
Font.Height = -8
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Layout = tlCenter
OnClick = pnlVistaWebClick
ExplicitWidth = 46
ExplicitHeight = 13
end
end
object pnlCIRN: TKeyClickPanel
Left = 2
Top = 20
Width = 69
Height = 17
Align = alClient
BevelWidth = 2
Caption = 'Remote Data'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBtnFace
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 1
TabStop = True
OnClick = pnlCIRNClick
OnEnter = pnlPrimaryCareEnter
OnExit = pnlPrimaryCareExit
OnMouseDown = pnlCIRNMouseDown
OnMouseUp = pnlCIRNMouseUp
object lblCIRN: TLabel
Left = 2
Top = 2
Width = 65
Height = 13
Align = alClient
Alignment = taCenter
Caption = 'Remote Data'
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clBtnFace
Font.Height = -8
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Layout = tlCenter
OnClick = pnlCIRNClick
ExplicitWidth = 63
end
end
end
end
object stsArea: TStatusBar
Left = 1
Top = 411
Width = 674
Top = 552
Width = 685
Height = 21
Panels = <
item
@ -614,14 +648,11 @@ object frmFrame: TfrmFrame
end>
PopupMenu = popAlerts
SizeGrip = False
OnMouseDown = stsAreaMouseDown
OnMouseUp = stsAreaMouseUp
OnDrawPanel = stsAreaDrawPanel
end
object tabPage: TTabControl
Left = 1
Top = 389
Width = 674
Top = 530
Width = 685
Height = 22
Align = alBottom
Font.Charset = DEFAULT_CHARSET
@ -638,8 +669,8 @@ object frmFrame: TfrmFrame
object pnlPage: TPanel
Left = 1
Top = 42
Width = 674
Height = 347
Width = 685
Height = 488
Align = alClient
BevelOuter = bvNone
Font.Charset = DEFAULT_CHARSET
@ -682,6 +713,106 @@ object frmFrame: TfrmFrame
end
end
end
inherited amgrMain: TVA508AccessibilityManager
Left = 8
Top = 48
Data = (
(
'Component = pnlNoPatientSelected'
'Status = stsDefault')
(
'Component = pnlPatientSelected'
'Status = stsDefault')
(
'Component = pnlToolbar'
'Status = stsDefault')
(
'Component = pnlCCOW'
'Status = stsDefault')
(
'Component = pnlPatient'
'Status = stsDefault')
(
'Component = lblPtName'
'Status = stsDefault')
(
'Component = lblPtSSN'
'Status = stsDefault')
(
'Component = lblPtAge'
'Status = stsDefault')
(
'Component = pnlVisit'
'Status = stsDefault')
(
'Component = lblPtLocation'
'Status = stsDefault')
(
'Component = lblPtProvider'
'Status = stsDefault')
(
'Component = pnlPrimaryCare'
'Status = stsDefault')
(
'Component = lblPtCare'
'Status = stsDefault')
(
'Component = lblPtAttending'
'Status = stsDefault')
(
'Component = pnlReminders'
'Status = stsDefault')
(
'Component = anmtRemSearch'
'Status = stsDefault')
(
'Component = pnlFlag'
'Status = stsDefault')
(
'Component = pnlPostings'
'Status = stsDefault')
(
'Component = lblPtPostings'
'Status = stsDefault')
(
'Component = lblPtCWAD'
'Status = stsDefault')
(
'Component = paVAA'
'Status = stsDefault')
(
'Component = laVAA2'
'Property = Hint'
'Status = stsOK')
(
'Component = laMHV'
'Property = Hint'
'Status = stsOK')
(
'Component = stsArea'
'Status = stsDefault')
(
'Component = tabPage'
'Status = stsDefault')
(
'Component = pnlPage'
'Status = stsDefault')
(
'Component = lstCIRNLocations'
'Status = stsDefault')
(
'Component = frmFrame'
'Status = stsDefault')
(
'Component = pnlRemoteData'
'Status = stsDefault')
(
'Component = pnlVistaWeb'
'Status = stsDefault')
(
'Component = pnlCIRN'
'Status = stsDefault'))
end
object mnuFrame: TMainMenu
Left = 180
Top = 128
@ -818,12 +949,6 @@ object frmFrame: TfrmFrame
RadioItem = True
OnClick = mnuFontSizeClick
end
object mnu24pt1: TMenuItem
Tag = 24
Caption = '24 pt'
RadioItem = True
OnClick = mnuFontSizeClick
end
end
end
end
@ -1028,14 +1153,17 @@ object frmFrame: TfrmFrame
Top = 200
object mnuAlertContinue: TMenuItem
Caption = 'Continue'
ShortCut = 16451
OnClick = mnuFileNextClick
end
object mnuAlertForward: TMenuItem
Caption = 'Forward'
ShortCut = 16454
OnClick = mnuAlertForwardClick
end
object mnuAlertRenew: TMenuItem
Caption = 'Renew'
ShortCut = 16466
OnClick = mnuAlertRenewClick
end
end
@ -1045,4 +1173,10 @@ object frmFrame: TfrmFrame
Left = 336
Top = 256
end
object compAccessTabPage: TVA508ComponentAccessibility
Component = tabPage
OnCaptionQuery = compAccessTabPageCaptionQuery
Left = 56
Top = 48
end
end

927
CPRS-Chart/fFrame.pas
View File

File diff suppressed because it is too large Load Diff

142
CPRS-Chart/fGraphData.dfm Normal file
View File

@ -0,0 +1,142 @@
inherited frmGraphData: TfrmGraphData
Left = 0
Top = 0
Caption = 'GraphData - displayed only for testing'
ClientHeight = 582
ClientWidth = 782
Font.Name = 'Tahoma'
WindowState = wsMaximized
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = btnRefreshClick
ExplicitWidth = 790
ExplicitHeight = 609
PixelsPerInch = 96
TextHeight = 13
object pnlData: TPanel [0]
Left = 0
Top = 0
Width = 782
Height = 504
Align = alClient
TabOrder = 0
end
object pnlInfo: TPanel [1]
Left = 0
Top = 504
Width = 782
Height = 78
Align = alBottom
TabOrder = 1
object lblInfo: TLabel
Left = 14
Top = 5
Width = 162
Height = 13
Caption = 'Resize form before clicking button'
end
object lblInfoPersonal: TLabel
Left = 184
Top = 19
Width = 41
Height = 13
Alignment = taRightJustify
Caption = 'Personal'
end
object lblInfoPublic: TLabel
Left = 198
Top = 33
Width = 27
Height = 13
Alignment = taRightJustify
Caption = 'Public'
end
object lblPublic: TLabel
Left = 232
Top = 33
Width = 3
Height = 13
end
object lblPersonal: TLabel
Left = 231
Top = 19
Width = 3
Height = 13
end
object lblCurrent: TLabel
Left = 232
Top = 5
Width = 3
Height = 13
end
object lblInfoCurrent: TLabel
Left = 188
Top = 5
Width = 37
Height = 13
Alignment = taRightJustify
Caption = 'Current'
end
object btnData: TButton
Left = 14
Top = 22
Width = 75
Height = 25
Caption = 'TStringLists'
TabOrder = 0
OnClick = btnDataClick
end
object btnRefresh: TButton
Left = 102
Top = 22
Width = 75
Height = 25
Caption = 'Refresh'
Enabled = False
TabOrder = 1
OnClick = btnRefreshClick
end
object btnTesting: TButton
Left = 14
Top = 50
Width = 75
Height = 25
Caption = 'Testing'
TabOrder = 2
OnClick = btnTestingClick
end
object memTesting: TMemo
Left = 120
Top = 48
Width = 649
Height = 27
ScrollBars = ssVertical
TabOrder = 3
end
end
inherited amgrMain: TVA508AccessibilityManager
Data = (
(
'Component = pnlData'
'Status = stsDefault')
(
'Component = pnlInfo'
'Status = stsDefault')
(
'Component = btnData'
'Status = stsDefault')
(
'Component = btnRefresh'
'Status = stsDefault')
(
'Component = frmGraphData'
'Status = stsDefault')
(
'Component = btnTesting'
'Status = stsDefault')
(
'Component = memTesting'
'Status = stsDefault'))
end
end

737
CPRS-Chart/fGraphData.pas Normal file
View File

@ -0,0 +1,737 @@
unit fGraphData;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ORFn, fBase508Form, VA508AccessibilityManager;
type
TfrmGraphData = class(TfrmBase508Form)
lblCurrent: TLabel;
lblInfo: TLabel;
lblInfoCurrent: TLabel;
lblInfoPersonal: TLabel;
lblInfoPublic: TLabel;
lblPersonal: TLabel;
lblPublic: TLabel;
pnlData: TPanel;
pnlInfo: TPanel;
btnData: TButton;
btnRefresh: TButton;
btnTesting: TButton;
memTesting: TMemo;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject);
procedure btnDataClick(Sender: TObject);
procedure btnRefreshClick(Sender: TObject);
procedure btnTestingClick(Sender: TObject);
private
procedure ClearMemos;
procedure FillMemos;
procedure MakeMemos(aName: string; aList: TStrings; aTag, left, top, width, height: integer);
public
procedure ClearGtsl;
procedure ClearPtData;
procedure FreeGtsl;
procedure MakeGtsl;
procedure MakeUserSettings;
procedure MakeGraphActivity;
function AllowContextChange(var WhyNot: string): Boolean;
end;
var
frmGraphData: TfrmGraphData;
GtslData: TStringList;
GtslItems: TStringList;
GtslTypes: TStringList;
GtslAllTypes: TStringList;
GtslAllViews: TStringList;
GtslTestSpec: TStringList;
GtslDrugClass: TStringList;
GtslViews: TStringList;
GtslCheck: TStringList;
GtslNonNum: TStringList;
GtslNonNumDates: TStringList;
GtslScratchSwap: TStringList;
GtslScratchTemp: TStringList;
GtslScratchLab: TStringList;
GtslSpec1: TStringList;
GtslSpec2: TStringList;
GtslSpec3: TStringList;
GtslSpec4: TStringList;
GtslMultiSpec: TStringList;
GtslTempCheck: TStringList;
GtslTemp: TStringList;
GtslSelCopyTop: TStringList;
GtslSelCopyBottom: TStringList;
GtslZoomHistoryFloat: TStringList;
GtslZoomHistoryReport: TStringList;
GtslSelPrevTopFloat: TStringList;
GtslSelPrevTopReport: TStringList;
GtslSelPrevBottomFloat: TStringList;
GtslSelPrevBottomReport: TStringList;
GtslViewPersonal: TStringList;
GtslViewPublic: TStringList;
GtslLabGroup: TStringList;
//procedure GraphDataForm; // perhaps use this to create only when displayed??
procedure GraphDataOnUser;
procedure GraphDataOnPatient(var allitems, alldata: boolean);
function GetATestGroup(testgroup: Integer; userx: int64): TStrings;
function GetCurrentSetting: string;
function GetDefaultInpatientDate: string;
function GetDefaultOutpatientDate: string;
function GetGraphProfiles(profiles, permission: string; ext: integer; userx: int64): TStrings;
function GetGraphStatus: string;
function GetOldDFN: string;
function GetPersonalSetting: string;
function GetPublicSetting: string;
function GraphPublicEditor: boolean;
function GraphTurboOn: boolean;
procedure SetCurrentSetting(aString: string);
procedure SetDefaultInpatientDate(aString: string);
procedure SetDefaultOutpatientDate(aString: string);
procedure SetGraphStatus(aString: string);
procedure SetOldDFN(aString: string);
procedure SetPersonalSetting(aString: string);
procedure SetPublicSetting(aString: string);
implementation
{$R *.dfm}
uses
uCore, rGraphs, uGraphs;
var
FGraphActivity: TGraphActivity;
{procedure GraphDataForm; // not used - perhaps with separate object for data
var
frmGraphData: TfrmGraphData;
begin
frmGraphData := TfrmGraphData.Create(Application);
try
with frmGraphData do
begin
ResizeAnchoredFormToFont(frmGraphData);
ShowModal;
end;
finally
frmGraphData.Release;
end;
end;}
procedure TfrmGraphData.FormCreate(Sender: TObject);
begin // called from fFrame after user signon
if GtslData <> nil then
exit; // only create one time
MakeGraphActivity;
MakeUserSettings;
MakeGtsl;
end;
procedure TfrmGraphData.MakeGraphActivity;
begin
FGraphActivity := TGraphActivity.Create;
with FGraphActivity do
begin
CurrentSetting := '';
DefaultInpatientDate := '';
DefaultOutpatientDate := '';
OldDFN := '';
PublicSetting := '';
PersonalSetting := '';
PublicEditor := false;
Status := '';
TurboOn := true;
Cache := true;
end;
end;
procedure TfrmGraphData.MakeUserSettings;
var
setting, turbo: string;
aList: TStrings;
begin
aList := TStringList.Create;
FastAssign(rpcGetGraphSettings, aList);
if aList.Count > 0 then
begin
setting := aList[0];
FGraphActivity.PublicSetting := aList[1];
FGraphActivity.Cache := not (Piece(aList[2], '^', 1) = '-1');
if length(setting) > 0 then
begin // maxselectmax - system max selection limit
SetPiece(setting, '|', 8, Piece(FGraphActivity.PublicSetting, '|', 8));
turbo := Piece(FGraphActivity.PublicSetting, '|', 6);
if (turbo = '0') or (not FGraphActivity.Cache) then // deactivate users if public turbo (6th piece) is off
begin
SetPiece(setting, '|', 6, '0');
FGraphActivity.TurboOn := false;
end
else
FGraphActivity.TurboOn := true;
FGraphActivity.PersonalSetting := setting;
end
else
FGraphActivity.PersonalSetting := FGraphActivity.PublicSetting;
FGraphActivity.CurrentSetting := FGraphActivity.PersonalSetting;
FGraphActivity.DefaultInpatientDate := Piece(FGraphActivity.PersonalSetting, '|', 10);
FGraphActivity.DefaultOutpatientDate := Piece(FGraphActivity.PersonalSetting, '|', 9);
FGraphActivity.PublicEditor := rpcPublicEdit; // use this as PublicEdit permission for user
end;
FreeAndNil(aList);
end;
procedure GraphDataOnUser;
var // called from fFrame after this form is created
i: integer; // gets static info
dfntype, listline: string;
begin
if GtslData = nil then
exit; // do not setup if graphing is off
FastAssign(rpcGetTypes('0', false), GtslAllTypes);
for i := 0 to GtslAllTypes.Count - 1 do // uppercase all filetypes
begin
listline := GtslAllTypes[i];
dfntype := UpperCase(Piece(listline, '^', 1));
SetPiece(listline, '^', 1, dfntype);
GtslAllTypes[i] := listline;
end;
FastAssign(rpcGetTestSpec, GtslTestSpec);
FastAssign(rpcGetViews(VIEW_PUBLIC, 0), GtslAllViews);
FastAddStrings(rpcGetViews(VIEW_PERSONAL, User.DUZ), GtslAllViews);
FastAddStrings(rpcGetViews(VIEW_LABS, User.DUZ), GtslAllViews);
end;
procedure TfrmGraphData.ClearPtData;
var // called when patient is selected
oldDFN, faststatus: string;
begin
inherited;
if FGraphActivity.CurrentSetting = '' then
exit; // if graphing is turned off, don't process
ClearMemos;
ClearGtsl;
oldDFN := FGraphActivity.OldDFN; // cleanup any previous patient cache
FastAssign(rpcGetTypes(Patient.DFN, false), GtslTypes);
faststatus := rpcFastTask(Patient.DFN, oldDFN);
FGraphActivity.Cache := (faststatus = '1');
FGraphActivity.OldDFN := Patient.DFN;
end;
procedure GraphDataOnPatient(var allitems, alldata: boolean);
begin
// need to call this when patient is selected
end;
function TfrmGraphData.AllowContextChange(var WhyNot: string): Boolean;
begin
Result := true; // perhaps add logic in the future
end;
//----------------------------- Gtsl* are tstringlists used to hold data - global in scope
procedure TfrmGraphData.MakeGtsl;
begin
GtslData := TStringList.Create;
GtslItems := TStringList.Create;
GtslTypes := TStringList.Create;
GtslAllTypes := TStringList.Create;
GtslAllViews := TStringList.Create;
GtslTestSpec := TStringList.Create;
GtslDrugClass := TStringList.Create;
GtslViews := TStringList.Create;
GtslCheck := TStringList.Create;
GtslNonNum := TStringList.Create;
GtslNonNumDates := TStringList.Create;
GtslScratchSwap := TStringList.Create;
GtslScratchTemp := TStringList.Create;
GtslScratchLab := TStringList.Create;
GtslSpec1 := TStringList.Create;
GtslSpec2 := TStringList.Create;
GtslSpec3 := TStringList.Create;
GtslSpec4 := TStringList.Create;
GtslMultiSpec := TStringList.Create;
GtslTempCheck := TStringList.Create;
GtslTemp := TStringList.Create;
GtslSelCopyTop := TStringList.Create;
GtslSelCopyBottom := TStringList.Create;
GtslZoomHistoryFloat := TStringList.Create;
GtslZoomHistoryReport := TStringList.Create;
GtslSelPrevTopFloat := TStringList.Create;
GtslSelPrevTopReport := TStringList.Create;
GtslSelPrevBottomFloat := TStringList.Create;
GtslSelPrevBottomReport := TStringList.Create;
GtslViewPersonal := TStringList.Create;
GtslViewPublic := TStringList.Create;
GtslLabGroup := TStringList.Create;
end;
procedure TfrmGraphData.ClearGtsl;
begin
if GtslData = nil then exit;
//GtslAllTypes.Clear; // these types are not patient specific
//GtslTestSpec.Clear;
//GtslAllViews.Clear;
GtslData.Clear;
GtslItems.Clear;
GtslTypes.Clear;
GtslDrugClass.Clear;
GtslViews.Clear;
GtslCheck.Clear;
GtslNonNum.Clear;
GtslNonNumDates.Clear;
GtslScratchSwap.Clear;
GtslScratchTemp.Clear;
GtslScratchLab.Clear;
GtslSpec1.Clear;
GtslSpec2.Clear;
GtslSpec3.Clear;
GtslSpec4.Clear;
GtslMultiSpec.Clear;
GtslTempCheck.Clear;
GtslTemp.Clear;
GtslSelCopyTop.Clear;
GtslSelCopyBottom.Clear;
GtslZoomHistoryFloat.Clear;
GtslZoomHistoryReport.Clear;
GtslSelPrevTopFloat.Clear;
GtslSelPrevTopReport.Clear;
GtslSelPrevBottomFloat.Clear;
GtslSelPrevBottomReport.Clear;
GtslViewPersonal.Clear;
GtslViewPublic.Clear;
GtslLabGroup.Clear;
end;
procedure TfrmGraphData.FreeGtsl;
begin
FreeAndNil(GtslData);
FreeAndNil(GtslItems);
FreeAndNil(GtslTypes);
FreeAndNil(GtslAllTypes);
FreeAndNil(GtslAllViews);
FreeAndNil(GtslTestSpec);
FreeAndNil(GtslDrugClass);
FreeAndNil(GtslNonNum);
FreeAndNil(GtslNonNumDates);
FreeAndNil(GtslScratchSwap);
FreeAndNil(GtslScratchTemp);
FreeAndNil(GtslScratchLab);
FreeAndNil(GtslSpec1);
FreeAndNil(GtslSpec2);
FreeAndNil(GtslSpec3);
FreeAndNil(GtslSpec4);
FreeAndNil(GtslMultiSpec);
FreeAndNil(GtslTempCheck);
FreeAndNil(GtslSelCopyTop);
FreeAndNil(GtslSelCopyBottom);
FreeAndNil(GtslZoomHistoryFloat);
FreeAndNil(GtslZoomHistoryReport);
FreeAndNil(GtslSelPrevTopFloat);
FreeAndNil(GtslSelPrevTopReport);
FreeAndNil(GtslSelPrevBottomFloat);
FreeAndNil(GtslSelPrevBottomReport);
FreeAndNil(GtslViewPersonal);
FreeAndNil(GtslViewPublic);
FreeAndNil(GtslLabGroup);
end;
//----------------------------- displays when testing
procedure TfrmGraphData.btnDataClick(Sender: TObject);
var
left, top, width, height: integer;
begin
height := pnlData.Height div 8;
height := height - lblInfo.Height;
top := lblInfo.Height;
left := 1;
width := pnlData.Width - 2;
MakeMemos('GtslData', GtslData, 1, left, top, width, height);
top := top + height + lblInfo.Height;
MakeMemos('GtslItems', GtslItems, 2, left, top, width, height);
top := top + height + lblInfo.Height;
MakeMemos('GtslTypes', GtslTypes, 3, left, top, width, height);
width := width div 6;
top := top + height + lblInfo.Height;
left := 1;
MakeMemos('GtslAllTypes', GtslAllTypes, 4, left, top, width, height);
left := left + width;
MakeMemos('GtslTestSpec', GtslTestSpec, 5, left, top, width, height);
left := left + width;
MakeMemos('GtslDrugClass', GtslDrugClass, 6, left, top, width, height);
left := left + width;
MakeMemos('GtslViews', GtslViews, 7, left, top, width, height);
left := left + width;
MakeMemos('GtslCheck', GtslCheck, 8, left, top, width, height);
left := left + width;
MakeMemos('GtslNonNum', GtslNonNum, 9, left, top, width, height);
top := top + height + lblInfo.Height;
left := 1;
MakeMemos('GtslNonNumDates', GtslNonNumDates, 10, left, top, width, height);
left := left + width;
MakeMemos('GtslScratchSwap', GtslScratchSwap, 11, left, top, width, height);
left := left + width;
MakeMemos('GtslScratchTemp', GtslScratchTemp, 12, left, top, width, height);
left := left + width;
MakeMemos('GtslScratchLab', GtslScratchLab, 13, left, top, width, height);
left := left + width;
MakeMemos('GtslSpec1', GtslSpec1, 14, left, top, width, height);
left := left + width;
MakeMemos('GtslSpec2', GtslSpec2, 15, left, top, width, height);
top := top + height + lblInfo.Height;
left := 1;
MakeMemos('GtslSpec3', GtslSpec3, 16, left, top, width, height);
left := left + width;
MakeMemos('GtslSpec4', GtslSpec4, 17, left, top, width, height);
left := left + width;
MakeMemos('GtslMultiSpec', GtslMultiSpec, 18, left, top, width, height);
left := left + width;
MakeMemos('GtslTempCheck', GtslTempCheck, 19, left, top, width, height);
left := left + width;
MakeMemos('GtslTemp', GtslTemp, 20, left, top, width, height);
left := left + width;
MakeMemos('GtslSelCopyTop', GtslSelCopyTop, 21, left, top, width, height);
top := top + height + lblInfo.Height;
left := 1;
MakeMemos('GtslSelCopyBottom', GtslSelCopyBottom, 22, left, top, width, height);
left := left + width;
MakeMemos('GtslZoomHistoryFloat', GtslZoomHistoryFloat, 23, left, top, width, height);
left := left + width;
MakeMemos('GtslZoomHistoryReport', GtslZoomHistoryReport, 24, left, top, width, height);
left := left + width;
MakeMemos('GtslSelPrevTopFloat', GtslSelPrevTopFloat, 25, left, top, width, height);
left := left + width;
MakeMemos('GtslSelPrevTopReport', GtslSelPrevTopReport, 26, left, top, width, height);
left := left + width;
MakeMemos('GtslSelPrevBottomFloat', GtslSelPrevBottomFloat, 27, left, top, width, height);
top := top + height + lblInfo.Height;
left := 1;
MakeMemos('GtslSelPrevBottomReport', GtslSelPrevBottomReport, 28, left, top, width, height);
left := left + width;
MakeMemos('GtslViewPersonal', GtslViewPersonal, 29, left, top, width, height);
left := left + width;
MakeMemos('GtslViewPublic', GtslViewPublic, 30, left, top, width, height);
left := left + width;
MakeMemos('GtslLabGroup', GtslLabGroup, 31, left, top, width, height);
left := left + width;
MakeMemos('GtslAllViews', GtslAllViews, 32, left, top, width, height);
btnData.Enabled := false;
btnRefresh.Enabled := true;
lblCurrent.Caption := FGraphActivity.CurrentSetting;
lblPersonal.Caption := FGraphActivity.PersonalSetting;
lblPublic.Caption := FGraphActivity.PublicSetting;
end;
procedure TfrmGraphData.btnRefreshClick(Sender: TObject);
begin
ClearMemos;
FillMemos;
end;
procedure TfrmGraphData.btnTestingClick(Sender: TObject);
begin
FastAssign(rpcTesting, memTesting.Lines);
end;
procedure TfrmGraphData.MakeMemos(aName: string; aList: TStrings; aTag, left, top, width, height: integer);
var
aMemo: TMemo;
aLabel: TLabel;
begin
aMemo := TMemo.Create(self);
aMemo.Parent := pnlData;
aMemo.Name := 'mem' + aName;
aMemo.Tag := aTag;
aMemo.Left := left; aMemo.Top := top; aMemo.Width := width; aMemo.Height := height;
aMemo.ScrollBars := ssVertical;
aMemo.WordWrap := false;
FastAssign(aList, aMemo.Lines);
aLabel := TLabel.Create(self);
aLabel.Parent := pnlData;
aLabel.Caption := aName + ' (' + inttostr(aList.Count) + ')';
aLabel.Left := left; aLabel.Top := top - lblInfo.Height; aLabel.Width := width; aLabel.Height := lblInfo.height;
end;
procedure TfrmGraphData.ClearMemos;
var
i: integer;
ChildControl: TControl;
begin
for i := 0 to pnlData.ControlCount - 1 do
begin
ChildControl := pnlData.Controls[i];
if ChildControl is TMemo then
(ChildControl as TMemo).Clear;
end;
end;
procedure TfrmGraphData.FillMemos;
var
i: integer;
aMemo: TMemo;
ChildControl: TControl;
begin
for i := 0 to pnlData.ControlCount - 1 do
begin
ChildControl := pnlData.Controls[i];
if ChildControl is TMemo then
begin
aMemo := (ChildControl as TMemo);
case aMemo.Tag of
1: FastAssign(GtslData, aMemo.Lines);
2: FastAssign(GtslItems, aMemo.Lines);
3: FastAssign(GtslTypes, aMemo.Lines);
4: FastAssign(GtslAllTypes, aMemo.Lines);
5: FastAssign(GtslTestSpec, aMemo.Lines);
6: FastAssign(GtslDrugClass, aMemo.Lines);
7: FastAssign(GtslViews, aMemo.Lines);
8: FastAssign(GtslCheck, aMemo.Lines);
9: FastAssign(GtslNonNum, aMemo.Lines);
10: FastAssign(GtslNonNumDates, aMemo.Lines);
11: FastAssign(GtslScratchSwap, aMemo.Lines);
12: FastAssign(GtslScratchTemp, aMemo.Lines);
13: FastAssign(GtslScratchLab, aMemo.Lines);
14: FastAssign(GtslSpec1, aMemo.Lines);
15: FastAssign(GtslSpec2, aMemo.Lines);
16: FastAssign(GtslSpec3, aMemo.Lines);
17: FastAssign(GtslSpec4, aMemo.Lines);
18: FastAssign(GtslMultiSpec, aMemo.Lines);
19: FastAssign(GtslTempCheck, aMemo.Lines);
20: FastAssign(GtslTemp, aMemo.Lines);
21: FastAssign(GtslSelCopyTop, aMemo.Lines);
22: FastAssign(GtslSelCopyBottom, aMemo.Lines);
23: FastAssign(GtslZoomHistoryFloat, aMemo.Lines);
24: FastAssign(GtslZoomHistoryReport, aMemo.Lines);
25: FastAssign(GtslSelPrevTopFloat, aMemo.Lines);
26: FastAssign(GtslSelPrevTopReport, aMemo.Lines);
27: FastAssign(GtslSelPrevBottomFloat, aMemo.Lines);
28: FastAssign(GtslSelPrevBottomReport, aMemo.Lines);
29: FastAssign(GtslViewPersonal, aMemo.Lines);
30: FastAssign(GtslViewPublic, aMemo.Lines);
31: FastAssign(GtslLabGroup, aMemo.Lines);
32: FastAssign(GtslAllViews, aMemo.Lines);
end;
end;
end;
end;
//---------------------------------------------------
function GetCurrentSetting: string;
begin
Result := FGraphActivity.CurrentSetting;
end;
function GetDefaultInpatientDate: string;
begin
Result := FGraphActivity.DefaultInpatientDate;
end;
function GetDefaultOutpatientDate: string;
begin
Result := FGraphActivity.DefaultOutpatientDate;
end;
function GetGraphProfiles(profiles, permission: string; ext: integer; userx: int64): TStrings;
var // temporary fix - converting definitions in GtslAllViews to rpc format
allviews, fulltext: boolean;
i: integer;
vtype, aline, avtype, avc, avnum, aname, atype, aitem, partsnum, bigline: string;
//auser: string;
begin
if (userx > 0) and (userx <> User.DUZ) then
Result := rpcGetGraphProfiles(profiles, permission, ext, userx)
else
begin
profiles := UpperCase(profiles);
if permission = '1' then vtype := '-2'
else vtype := '-1';
allviews := (profiles = '1');
fulltext := (ext = 1);
partsnum := '0';
bigline := '';
GtslScratchTemp.Clear;
for i := 0 to GtslAllViews.Count - 1 do
begin
aline := GtslAllViews[i];
avtype := Piece(aline, '^', 1);
avc := Piece(aline, '^', 2);
avnum := Piece(aline, '^', 3);
aname := UpperCase(Piece(aline, '^', 4));
atype := UpperCase(Piece(aline, '^', 5));
aitem := Piece(aline, '^', 6);
//auser := Piece(aline, '^', 7);
if partsnum <> '0' then
begin //AddLine(ext, aname, atype, aitem);
if (avc = 'C') and (partsnum = avnum) then
begin
if ext <> 1 then
begin
if aitem = '0' then bigline := bigline + '0~' + atype + '~|'
else bigline := bigline + atype + '~' + aitem + '~|'
end
else
begin
if aitem = '0' then
GtslScratchTemp.Add('0^' + atype + '^' + aname)
else
GtslScratchTemp.Add(atype + '^' + aitem + '^' + aname)
end;
end
else
begin
break;
end;
end
else
if avtype = vtype then
begin
if allviews and (avc = 'V') then
begin
GtslScratchTemp.Add(aname);
end
else if (avc = 'V') and (aname = profiles) then
partsnum := avnum;
end;
end;
if length(bigline) > 0 then
GtslScratchTemp.Add(bigline);
if allviews or fulltext then
MixedCaseList(GtslScratchTemp);
Result := GtslScratchTemp;
end;
end;
function GetATestGroup(testgroup: Integer; userx: int64): TStrings;
var // temporary fix - converting definitions in GtslAllViews to rpc format
i: integer;
aline, avtype, avc, avnum, aname, aitem, partsnum: string;
//atype, auser: string;
begin
if (userx > 0) and (userx <> User.DUZ) then
Result := rpcATestGroup(testgroup, userx)
else
begin
partsnum := '0';
GtslScratchTemp.Clear;
for i := 0 to GtslAllViews.Count - 1 do
begin
aline := GtslAllViews[i];
avtype := Piece(aline, '^', 1);
avc := Piece(aline, '^', 2);
avnum := Piece(aline, '^', 3);
aname := Piece(aline, '^', 4);
//atype := UpperCase(Piece(aline, '^', 5));
aitem := Piece(aline, '^', 6);
//auser := Piece(aline, '^', 7);
if avtype = VIEW_LABS then
begin
if (avc = 'V') and (partsnum <> '0') then
break;
if (avc = 'C') and (partsnum = avnum) then
GtslScratchTemp.Add(aitem + '^' + aname)
else if (avc = 'V')
and (testgroup = strtointdef(Piece(aname, ')', 1), BIG_NUMBER)) then
partsnum := avnum;
end;
end;
//MixedCaseList(GtslScratchTemp);
Result := GtslScratchTemp;
end;
end;
function GetGraphStatus: string;
begin
Result := FGraphActivity.Status;
end;
function GetOldDFN: string;
begin
Result := FGraphActivity.OldDFN;
end;
function GetPersonalSetting: string;
begin
Result := FGraphActivity.PersonalSetting;
end;
function GetPublicSetting: string;
begin
Result := FGraphActivity.PublicSetting;
end;
function GraphPublicEditor: boolean;
begin
Result := FGraphActivity.PublicEditor;
end;
function GraphTurboOn: boolean;
begin
Result := (FGraphActivity.TurboOn and FGraphActivity.Cache);
end;
procedure SetCurrentSetting(aString: string);
begin
FGraphActivity.CurrentSetting := aString;
end;
procedure SetDefaultInpatientDate(aString: string);
begin
FGraphActivity.DefaultInpatientDate := aString;
end;
procedure SetDefaultOutpatientDate(aString: string);
begin
FGraphActivity.DefaultOutpatientDate := aString;
end;
procedure SetGraphStatus(aString: string);
begin
FGraphActivity.Status := aString;
end;
procedure SetOldDFN(aString: string);
begin
FGraphActivity.OldDFN := aString;
end;
procedure SetPersonalSetting(aString: string);
begin
FGraphActivity.PersonalSetting := aString;
end;
procedure SetPublicSetting(aString: string);
begin
FGraphActivity.PublicSetting := aString;
end;
//---------------------------------------------------
procedure TfrmGraphData.FormClose(Sender: TObject; var Action: TCloseAction);
var
faststatus: string;
begin
if FGraphActivity.Cache then
begin
faststatus := rpcFastTask('0', Patient.DFN); // cleanup patient cache
if faststatus = '-1' then
FGraphActivity.Cache := false;
end;
end;
procedure TfrmGraphData.FormDestroy(Sender: TObject);
begin
FreeGtsl;
end;
end.

245
CPRS-Chart/fGraphOthers.dfm Normal file
View File

@ -0,0 +1,245 @@
inherited frmGraphOthers: TfrmGraphOthers
Left = 0
Top = 0
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'Select Other Views and Lab Groups'
ClientHeight = 384
ClientWidth = 335
Position = poScreenCenter
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object pnlMain: TORAutoPanel [0]
Left = 0
Top = 0
Width = 335
Height = 241
Align = alTop
BevelOuter = bvNone
TabOrder = 0
DesignSize = (
335
241)
object lblOthers: TLabel
Left = 12
Top = 29
Width = 101
Height = 13
Caption = 'Select or enter name:'
end
object lblViews: TLabel
Left = 179
Top = 29
Width = 110
Height = 13
Caption = 'Views and Lab Groups:'
end
object lblInfo: TLabel
Left = 12
Top = 10
Width = 313
Height = 13
Caption =
'You can copy other user'#39's views and lab groups for your own use.' +
' '
end
object lblDefinitions: TLabel
Left = 12
Top = 224
Width = 52
Height = 13
Caption = 'Definitions:'
end
object cboOthers: TORComboBox
Left = 12
Top = 48
Width = 144
Height = 170
Style = orcsSimple
AutoSelect = True
Caption = 'Select or enter name'
Color = clWindow
DropDownCount = 8
ItemHeight = 13
ItemTipColor = clWindow
ItemTipEnable = True
ListItemsOnly = True
LongList = True
LookupPiece = 2
MaxLength = 0
Pieces = '2,3'
Sorted = False
SynonymChars = '<>'
TabOrder = 0
OnClick = cboOthersClick
OnNeedData = cboOthersNeedData
CharsNeedMatch = 1
end
object lstViews: TORListBox
Left = 179
Top = 48
Width = 144
Height = 137
Anchors = [akLeft, akTop, akRight]
ItemHeight = 13
MultiSelect = True
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnClick = lstViewsClick
Caption = 'Currently selected recipients'
ItemTipColor = clWindow
LongList = False
Pieces = '2'
end
object btnCopy: TButton
Left = 179
Top = 193
Width = 144
Height = 25
Anchors = [akLeft, akTop, akRight]
Caption = 'Copy'
TabOrder = 3
end
object pnlTempData: TPanel
Left = -90
Top = 96
Width = 425
Height = 49
TabOrder = 4
Visible = False
object lblSave: TLabel
Left = 184
Top = 16
Width = 3
Height = 13
Visible = False
end
object lblClose: TLabel
Left = 192
Top = 0
Width = 3
Height = 13
Visible = False
end
object lstActualItems: TORListBox
Left = 8
Top = 5
Width = 97
Height = 41
ItemHeight = 13
ParentShowHint = False
ShowHint = True
TabOrder = 0
ItemTipColor = clWindow
LongList = False
end
object lstDrugClass: TListBox
Left = 112
Top = 5
Width = 97
Height = 41
ItemHeight = 13
TabOrder = 1
end
object lstScratch: TListBox
Left = 216
Top = 5
Width = 97
Height = 41
ItemHeight = 13
TabOrder = 2
end
object lstTests: TListBox
Left = 320
Top = 5
Width = 97
Height = 41
ItemHeight = 13
TabOrder = 3
end
end
end
object memReport: TRichEdit [1]
Left = 0
Top = 241
Width = 335
Height = 102
Align = alClient
BevelInner = bvNone
Color = clCream
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Courier New'
Font.Style = []
Lines.Strings = (
'')
ParentFont = False
ReadOnly = True
ScrollBars = ssBoth
TabOrder = 1
WantReturns = False
WordWrap = False
end
object pnlBottom: TPanel [2]
Left = 0
Top = 343
Width = 335
Height = 41
Align = alBottom
BevelOuter = bvNone
TabOrder = 2
object btnClose: TButton
Left = 250
Top = 6
Width = 75
Height = 25
Caption = 'Close'
TabOrder = 0
end
end
inherited amgrMain: TVA508AccessibilityManager
Data = (
(
'Component = pnlMain'
'Status = stsDefault')
(
'Component = cboOthers'
'Status = stsDefault')
(
'Component = lstViews'
'Status = stsDefault')
(
'Component = btnCopy'
'Status = stsDefault')
(
'Component = pnlTempData'
'Status = stsDefault')
(
'Component = lstActualItems'
'Status = stsDefault')
(
'Component = lstDrugClass'
'Status = stsDefault')
(
'Component = lstScratch'
'Status = stsDefault')
(
'Component = lstTests'
'Status = stsDefault')
(
'Component = memReport'
'Status = stsDefault')
(
'Component = pnlBottom'
'Status = stsDefault')
(
'Component = btnClose'
'Status = stsDefault')
(
'Component = frmGraphOthers'
'Status = stsDefault'))
end
end

116
CPRS-Chart/fGraphOthers.pas Normal file
View File

@ -0,0 +1,116 @@
unit fGraphOthers;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, ORCtrls, ExtCtrls, ORFn, uGraphs, rCore, uCore,
fBase508Form, VA508AccessibilityManager;
type
TfrmGraphOthers = class(TfrmBase508Form)
pnlMain: TORAutoPanel;
lblOthers: TLabel;
cboOthers: TORComboBox;
lstViews: TORListBox;
memReport: TRichEdit;
pnlBottom: TPanel;
lblViews: TLabel;
lblInfo: TLabel;
lblDefinitions: TLabel;
btnClose: TButton;
btnCopy: TButton;
pnlTempData: TPanel;
lblSave: TLabel;
lblClose: TLabel;
lstActualItems: TORListBox;
lstDrugClass: TListBox;
lstScratch: TListBox;
lstTests: TListBox;
procedure cboOthersNeedData(Sender: TObject; const StartFrom: string;
Direction, InsertAt: Integer);
procedure FormShow(Sender: TObject);
procedure cboOthersClick(Sender: TObject);
procedure lstViewsClick(Sender: TObject);
private
procedure AddTests(tests: TStrings);
public
{ Public declarations }
end;
var
frmGraphOthers: TfrmGraphOthers;
procedure DialogGraphOthers(size: integer);
implementation
{$R *.dfm}
uses
rGraphs, fGraphData, rLabs;
procedure DialogGraphOthers(size: integer);
var
aList: TStrings;
frmGraphOthers: TfrmGraphOthers;
begin
aList := TStringList.Create;
frmGraphOthers := TfrmGraphOthers.Create(Application);
try
with frmGraphOthers do
begin
ResizeAnchoredFormToFont(frmGraphOthers);
ShowModal;
end;
finally
frmGraphOthers.Release;
aList.Free;
end;
end;
procedure TfrmGraphOthers.cboOthersClick(Sender: TObject);
begin
FastAssign(TestGroups(cboOthers.ItemIEN), lstViews.Items);
end;
procedure TfrmGraphOthers.cboOthersNeedData(Sender: TObject;
const StartFrom: string; Direction, InsertAt: Integer);
begin
//cboOthers.ForDataUse(SubSetOfPersons(StartFrom, Direction));
cboOthers.ForDataUse(Users(StartFrom, Direction));
end;
procedure TfrmGraphOthers.FormShow(Sender: TObject);
begin
cboOthers.InitLongList(User.Name);
cboOthers.SelectByIEN(User.DUZ);
cboOthersClick(self);
end;
procedure TfrmGraphOthers.lstViewsClick(Sender: TObject);
begin
AddTests(ATestGroup(lstViews.ItemIEN, cboOthers.ItemIEN));
end;
procedure TfrmGraphOthers.AddTests(tests: TStrings);
var
i, j: integer;
ok: boolean;
begin
for i := 0 to tests.Count - 1 do
begin
ok := true;
for j := 0 to memReport.Lines.Count - 1 do
if memReport.Lines[j] = tests[i] then
begin
ok := false;
end;
if ok then
begin
memReport.Lines.Add(tests[i]);
end;
end;
end;
end.

708
CPRS-Chart/fGraphProfiles.dfm
View File

@ -1,35 +1,22 @@
object frmGraphProfiles: TfrmGraphProfiles
inherited frmGraphProfiles: TfrmGraphProfiles
Left = 721
Top = 528
HorzScrollBar.Visible = False
VertScrollBar.Visible = False
BorderIcons = [biSystemMenu, biHelp]
BorderStyle = bsDialog
Caption = 'Select Items and Define Views'
ClientHeight = 379
ClientWidth = 477
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poMainFormCenter
OnClose = FormClose
OnCreate = FormCreate
OnShow = FormShow
ExplicitWidth = 483
ExplicitHeight = 404
PixelsPerInch = 96
TextHeight = 13
object lblSource: TLabel
Left = 8
Top = 29
Width = 37
Height = 13
Hint = 'These are the different types of data for graphing.'
Caption = 'Source:'
ParentShowHint = False
ShowHint = False
end
object lblSelection: TLabel
object lblSelection: TLabel [0]
Left = 142
Top = 29
Width = 28
@ -39,7 +26,7 @@ object frmGraphProfiles: TfrmGraphProfiles
ParentShowHint = False
ShowHint = False
end
object lblDisplay: TLabel
object lblDisplay: TLabel [1]
Left = 312
Top = 29
Width = 89
@ -51,21 +38,21 @@ object frmGraphProfiles: TfrmGraphProfiles
ParentShowHint = False
ShowHint = False
end
object bvlBase: TBevel
object bvlBase: TBevel [2]
Left = 8
Top = 339
Width = 457
Height = 2
end
object lblEditInfo: TLabel
Left = 132
object lblEditInfo: TLabel [3]
Left = 142
Top = 278
Width = 202
Height = 13
Caption = 'Items for Graphing can be saved as Views.'
end
object lblSelectionInfo: TLabel
Left = 42
object lblSelectionInfo: TLabel [4]
Left = 142
Top = 8
Width = 89
Height = 13
@ -73,7 +60,7 @@ object frmGraphProfiles: TfrmGraphProfiles
ParentShowHint = False
ShowHint = False
end
object lblSelectandDefine: TLabel
object lblSelectandDefine: TLabel [5]
Left = 8
Top = 350
Width = 359
@ -83,14 +70,24 @@ object frmGraphProfiles: TfrmGraphProfiles
's for display.'
WordWrap = True
end
object lblEditInfo1: TLabel
Left = 132
object lblEditInfo1: TLabel [6]
Left = 142
Top = 294
Width = 187
Height = 13
Caption = 'Edit Views by saving to the same name.'
end
object btnClear: TButton
object lblUser: TLabel [7]
Left = 8
Top = 236
Width = 36
Height = 13
Caption = 'Person:'
ParentShowHint = False
ShowHint = False
WordWrap = True
end
object btnClear: TButton [8]
Left = 8
Top = 312
Width = 85
@ -99,10 +96,10 @@ object frmGraphProfiles: TfrmGraphProfiles
Enabled = False
ParentShowHint = False
ShowHint = False
TabOrder = 8
TabOrder = 7
OnClick = btnClearClick
end
object btnSave: TButton
object btnSave: TButton [9]
Left = 286
Top = 312
Width = 85
@ -111,22 +108,22 @@ object frmGraphProfiles: TfrmGraphProfiles
Enabled = False
ParentShowHint = False
ShowHint = False
TabOrder = 12
TabOrder = 11
OnClick = btnSaveClick
end
object btnDelete: TButton
object btnDelete: TButton [10]
Left = 100
Top = 312
Top = 313
Width = 85
Height = 21
Height = 20
Caption = 'Delete...'
Enabled = False
ParentShowHint = False
ShowHint = False
TabOrder = 9
TabOrder = 8
OnClick = btnDeleteClick
end
object btnRemoveOne: TButton
object btnRemoveOne: TButton [11]
Left = 280
Top = 173
Width = 21
@ -135,10 +132,10 @@ object frmGraphProfiles: TfrmGraphProfiles
Enabled = False
ParentShowHint = False
ShowHint = False
TabOrder = 6
TabOrder = 5
OnClick = btnRemoveOneClick
end
object btnRemoveAll: TButton
object btnRemoveAll: TButton [12]
Left = 280
Top = 205
Width = 21
@ -147,50 +144,35 @@ object frmGraphProfiles: TfrmGraphProfiles
Enabled = False
ParentShowHint = False
ShowHint = False
TabOrder = 7
TabOrder = 6
OnClick = btnRemoveAllClick
end
object lstSource: TORListBox
Left = 8
Top = 44
Width = 120
Height = 225
ItemHeight = 13
ParentShowHint = False
ShowHint = False
TabOrder = 0
OnDblClick = lstSourceDblClick
ItemTipColor = clWindow
LongList = False
Pieces = '2'
OnChange = lstSourceChange
end
object lstItemsDisplayed: TORListBox
Left = 312
object lstItemsDisplayed: TORListBox [13]
Left = 319
Top = 44
Width = 150
Height = 225
Height = 228
ItemHeight = 13
ParentShowHint = False
ShowHint = False
Sorted = True
TabOrder = 3
TabOrder = 2
OnDblClick = lstItemsDisplayedDblClick
ItemTipColor = clWindow
LongList = False
Pieces = '3'
OnChange = lstItemsDisplayedChange
end
object pnlSource: TPanel
Left = 147
Top = 1
object pnlSource: TPanel [14]
Left = 247
Top = -2
Width = 190
Height = 25
BevelOuter = bvNone
TabOrder = 11
TabOrder = 10
object radSourcePat: TRadioButton
Left = 87
Top = 6
Left = 106
Top = 5
Width = 82
Height = 17
Hint =
@ -202,7 +184,7 @@ object frmGraphProfiles: TfrmGraphProfiles
end
object radSourceAll: TRadioButton
Left = 0
Top = 6
Top = 5
Width = 60
Height = 17
Hint = 'Use this for defining views. It shows every possible item.'
@ -213,16 +195,16 @@ object frmGraphProfiles: TfrmGraphProfiles
OnClick = radSourceAllClick
end
end
object lstItemsTopSelection: TORListBox
object lstItemsSelection: TORListBox [15]
Left = 142
Top = 44
Width = 120
Width = 124
Height = 225
ItemHeight = 13
ParentShowHint = False
ShowHint = False
Sorted = True
TabOrder = 2
TabOrder = 1
Visible = False
OnDblClick = cboAllItemsClick
ItemTipColor = clWindow
@ -230,12 +212,334 @@ object frmGraphProfiles: TfrmGraphProfiles
Pieces = '3'
OnChange = cboAllItemsChange
end
object pnlTempData: TPanel
Left = 16
Top = 230
object pnlApply: TPanel [16]
Left = 0
Top = 344
Width = 377
Height = 36
BevelOuter = bvNone
ParentShowHint = False
ShowHint = False
TabOrder = 14
object lblApply: TLabel
Left = 8
Top = 2
Width = 138
Height = 13
Caption = 'Display Items for Graphing to:'
end
object radTop: TRadioButton
Left = 8
Top = 17
Width = 57
Height = 17
Caption = 'Top'
Checked = True
TabOrder = 0
TabStop = True
end
object radBottom: TRadioButton
Left = 74
Top = 17
Width = 57
Height = 17
Caption = 'Bottom'
TabOrder = 1
end
object radBoth: TRadioButton
Left = 141
Top = 17
Width = 57
Height = 17
Caption = 'Both'
TabOrder = 2
end
object radNeither: TRadioButton
Left = 208
Top = 17
Width = 81
Height = 17
Caption = 'No Change'
TabOrder = 3
end
end
object btnAdd: TButton [17]
Left = 280
Top = 125
Width = 21
Height = 21
Caption = '>'
Enabled = False
ParentShowHint = False
ShowHint = False
TabOrder = 4
OnClick = cboAllItemsClick
end
object btnAddAll: TButton [18]
Left = 280
Top = 93
Width = 21
Height = 21
Caption = '>>'
Enabled = False
ParentShowHint = False
ShowHint = False
TabOrder = 3
OnClick = btnAddAllClick
end
object btnRename: TButton [19]
Left = 195
Top = 312
Width = 85
Height = 21
Caption = 'Rename...'
Enabled = False
ParentShowHint = False
ShowHint = False
TabOrder = 9
OnClick = btnRenameClick
end
object btnSavePublic: TButton [20]
Left = 379
Top = 312
Width = 85
Height = 21
Caption = 'Save Public...'
Enabled = False
ParentShowHint = False
ShowHint = False
TabOrder = 12
OnClick = btnSaveClick
end
object cboAllItems: TORComboBox [21]
Left = 142
Top = 44
Width = 124
Height = 228
Style = orcsSimple
AutoSelect = True
Color = clWindow
DropDownCount = 8
ItemHeight = 13
ItemTipColor = clWindow
ItemTipEnable = True
ListItemsOnly = True
LongList = True
LookupPiece = 0
MaxLength = 0
ParentShowHint = False
Pieces = '3'
ShowHint = False
Sorted = False
SynonymChars = '<>'
TabOrder = 0
OnChange = cboAllItemsChange
OnDblClick = cboAllItemsClick
OnNeedData = cboAllItemsNeedData
CharsNeedMatch = 1
end
object btnClose: TButton [22]
Left = 371
Top = 353
Width = 97
Height = 21
Cancel = True
Caption = 'Close'
ParentShowHint = False
ShowHint = False
TabOrder = 15
OnClick = btnCloseClick
end
object pnlAllSources: TPanel [23]
Left = 8
Top = 30
Width = 128
Height = 245
BevelOuter = bvNone
ParentShowHint = False
ShowHint = True
TabOrder = 16
object splViews: TSplitter
Left = 0
Top = 122
Width = 128
Height = 3
Cursor = crVSplit
Align = alBottom
ExplicitTop = 0
ExplicitWidth = 125
end
object pnlSources: TPanel
Left = 0
Top = 0
Width = 128
Height = 122
Align = alClient
BevelOuter = bvNone
TabOrder = 0
object lblSource: TLabel
Left = 0
Top = 0
Width = 128
Height = 13
Hint = 'These are the different types of data for graphing.'
Align = alTop
Caption = 'Sources:'
ParentShowHint = False
ShowHint = False
ExplicitWidth = 42
end
object lstSources: TORListBox
Left = 0
Top = 13
Width = 128
Height = 109
Align = alClient
ItemHeight = 13
ParentShowHint = False
ShowHint = False
TabOrder = 0
OnDblClick = lstSourcesDblClick
OnEnter = lstSourcesEnter
OnExit = lstSourcesExit
ItemTipColor = clWindow
LongList = False
Pieces = '2'
OnChange = lstSourcesChange
end
end
object pnlOtherSources: TPanel
Left = 0
Top = 125
Width = 128
Height = 120
Align = alBottom
BevelInner = bvRaised
BevelOuter = bvLowered
BorderWidth = 1
TabOrder = 1
object pnlOtherSourcesUser: TPanel
Left = 3
Top = 76
Width = 122
Height = 41
Align = alBottom
BevelOuter = bvNone
TabOrder = 0
object lblOtherPersons: TLabel
Left = 0
Top = 7
Width = 122
Height = 13
Align = alBottom
Caption = 'Select Person:'
ExplicitWidth = 69
end
object cboUser: TORComboBox
Left = 0
Top = 20
Width = 122
Height = 21
Style = orcsDropDown
Align = alBottom
AutoSelect = True
Color = clWindow
DropDownCount = 6
Items.Strings = (
'')
ItemHeight = 13
ItemTipColor = clWindow
ItemTipEnable = True
ListItemsOnly = False
LongList = True
LookupPiece = 0
MaxLength = 0
Pieces = '2'
Sorted = False
SynonymChars = '<>'
TabOrder = 0
TabStop = True
OnClick = cboUserClick
OnNeedData = cboUserNeedData
CharsNeedMatch = 1
end
end
object pnlOtherSourcesBottom: TPanel
Left = 3
Top = 3
Width = 122
Height = 73
Align = alClient
BevelOuter = bvNone
TabOrder = 1
object lstOtherSources: TORListBox
Left = 0
Top = 30
Width = 122
Height = 43
Align = alClient
BevelInner = bvNone
BevelOuter = bvNone
ItemHeight = 13
ParentShowHint = False
ShowHint = False
TabOrder = 0
OnDblClick = lstSourcesDblClick
OnEnter = lstSourcesEnter
OnExit = lstSourcesExit
ItemTipColor = clWindow
LongList = False
Pieces = '2'
OnChange = lstSourcesChange
end
object pnlOtherViews: TPanel
Left = 0
Top = 0
Width = 122
Height = 30
Align = alTop
BevelOuter = bvNone
TabOrder = 1
object lblOtherViews: TLabel
Left = 0
Top = 17
Width = 122
Height = 13
Align = alBottom
Caption = 'Other Views:'
ExplicitWidth = 60
end
object lblSelectOthers: TLabel
Left = 0
Top = 0
Width = 122
Height = 13
Align = alTop
Caption = 'Select Views from others'
ExplicitWidth = 116
end
end
end
end
end
object btnViews: TButton [24]
Left = 8
Top = 5
Width = 120
Height = 21
Caption = 'Show Other Views'
ParentShowHint = False
ShowHint = False
TabOrder = 17
Visible = False
OnClick = btnViewsClick
end
object pnlTempData: TPanel [25]
Left = 264
Top = 232
Width = 425
Height = 49
TabOrder = 14
TabOrder = 13
Visible = False
object lblSave: TLabel
Left = 184
@ -288,142 +592,134 @@ object frmGraphProfiles: TfrmGraphProfiles
TabOrder = 3
end
end
object pnlApply: TPanel
Left = 0
Top = 344
Width = 377
Height = 36
BevelOuter = bvNone
ParentShowHint = False
ShowHint = False
TabOrder = 15
object lblApply: TLabel
Left = 8
Top = 2
Width = 138
Height = 13
Caption = 'Display Items for Graphing to:'
end
object radTop: TRadioButton
Left = 8
Top = 17
Width = 57
Height = 17
Caption = 'Top'
Checked = True
TabOrder = 0
TabStop = True
end
object radBottom: TRadioButton
Left = 74
Top = 17
Width = 57
Height = 17
Caption = 'Bottom'
TabOrder = 1
end
object radBoth: TRadioButton
Left = 141
Top = 17
Width = 57
Height = 17
Caption = 'Both'
TabOrder = 2
end
object radNeither: TRadioButton
Left = 208
Top = 17
Width = 81
Height = 17
Caption = 'No Change'
TabOrder = 3
end
end
object btnAdd: TButton
Left = 280
Top = 125
Width = 21
object btnDefinitions: TButton [26]
Left = 8
Top = 281
Width = 120
Height = 21
Caption = '>'
Enabled = False
Caption = 'View Definitions...'
ParentShowHint = False
ShowHint = False
TabOrder = 5
OnClick = cboAllItemsClick
TabOrder = 18
OnClick = btnDefinitionsClick
end
object btnAddAll: TButton
Left = 280
Top = 93
Width = 21
Height = 21
Caption = '>>'
Enabled = False
ParentShowHint = False
ShowHint = False
TabOrder = 4
OnClick = cboAllItemsClick
end
object btnRename: TButton
Left = 193
Top = 312
Width = 85
Height = 21
Caption = 'Rename...'
Enabled = False
ParentShowHint = False
ShowHint = False
TabOrder = 10
OnClick = btnRenameClick
end
object btnSavePublic: TButton
Left = 379
Top = 312
Width = 85
Height = 21
Caption = 'Save Public...'
Enabled = False
ParentShowHint = False
ShowHint = False
TabOrder = 13
OnClick = btnSaveClick
end
object cboAllItems: TORComboBox
Left = 142
Top = 44
Width = 123
Height = 225
Style = orcsSimple
AutoSelect = True
Color = clWindow
DropDownCount = 8
ItemHeight = 13
ItemTipColor = clWindow
ItemTipEnable = True
ListItemsOnly = True
LongList = True
LookupPiece = 0
MaxLength = 0
ParentShowHint = False
Pieces = '3'
ShowHint = False
Sorted = False
SynonymChars = '<>'
TabOrder = 1
OnChange = cboAllItemsChange
OnDblClick = cboAllItemsClick
OnNeedData = cboAllItemsNeedData
CharsNeedMatch = 1
end
object btnClose: TButton
Left = 371
Top = 353
Width = 97
Height = 21
Cancel = True
Caption = 'Close'
ParentShowHint = False
ShowHint = False
TabOrder = 16
OnClick = btnCloseClick
inherited amgrMain: TVA508AccessibilityManager
Left = 448
Top = 280
Data = (
(
'Component = btnClear'
'Status = stsDefault')
(
'Component = btnSave'
'Status = stsDefault')
(
'Component = btnDelete'
'Status = stsDefault')
(
'Component = btnRemoveOne'
'Status = stsDefault')
(
'Component = btnRemoveAll'
'Status = stsDefault')
(
'Component = lstItemsDisplayed'
'Status = stsDefault')
(
'Component = pnlSource'
'Status = stsDefault')
(
'Component = radSourcePat'
'Status = stsDefault')
(
'Component = radSourceAll'
'Status = stsDefault')
(
'Component = lstItemsSelection'
'Status = stsDefault')
(
'Component = pnlTempData'
'Status = stsDefault')
(
'Component = lstActualItems'
'Status = stsDefault')
(
'Component = lstDrugClass'
'Status = stsDefault')
(
'Component = lstScratch'
'Status = stsDefault')
(
'Component = lstTests'
'Status = stsDefault')
(
'Component = pnlApply'
'Status = stsDefault')
(
'Component = radTop'
'Status = stsDefault')
(
'Component = radBottom'
'Status = stsDefault')
(
'Component = radBoth'
'Status = stsDefault')
(
'Component = radNeither'
'Status = stsDefault')
(
'Component = btnAdd'
'Status = stsDefault')
(
'Component = btnAddAll'
'Status = stsDefault')
(
'Component = btnRename'
'Status = stsDefault')
(
'Component = btnSavePublic'
'Status = stsDefault')
(
'Component = cboAllItems'
'Status = stsDefault')
(
'Component = btnClose'
'Status = stsDefault')
(
'Component = frmGraphProfiles'
'Status = stsDefault')
(
'Component = pnlAllSources'
'Status = stsDefault')
(
'Component = pnlSources'
'Status = stsDefault')
(
'Component = lstSources'
'Status = stsDefault')
(
'Component = pnlOtherSources'
'Status = stsDefault')
(
'Component = pnlOtherSourcesUser'
'Status = stsDefault')
(
'Component = cboUser'
'Status = stsDefault')
(
'Component = pnlOtherSourcesBottom'
'Status = stsDefault')
(
'Component = lstOtherSources'
'Status = stsDefault')
(
'Component = btnViews'
'Status = stsDefault')
(
'Component = btnDefinitions'
'Status = stsDefault')
(
'Component = pnlOtherViews'
'Status = stsDefault'))
end
end

1400
CPRS-Chart/fGraphProfiles.pas
View File

File diff suppressed because it is too large Load Diff

307
CPRS-Chart/fGraphSettings.dfm
View File

@ -1,46 +1,41 @@
object frmGraphSettings: TfrmGraphSettings
inherited frmGraphSettings: TfrmGraphSettings
Left = 109
Top = 60
BorderIcons = [biSystemMenu, biHelp]
BorderStyle = bsDialog
Caption = 'Graph Settings'
ClientHeight = 304
ClientHeight = 318
ClientWidth = 438
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poMainFormCenter
OnClose = FormClose
OnCreate = FormCreate
OnShow = FormShow
ExplicitWidth = 444
ExplicitHeight = 343
DesignSize = (
438
304)
318)
PixelsPerInch = 96
TextHeight = 13
object lblMinGraphHeight: TLabel
object lblMinGraphHeight: TLabel [0]
Left = 311
Top = 60
Top = 51
Width = 110
Height = 13
Caption = 'Minimum Graph Height:'
ParentShowHint = False
ShowHint = False
end
object lblMaxGraphs: TLabel
object lblMaxGraphs: TLabel [1]
Left = 311
Top = 4
Top = 7
Width = 108
Height = 13
Caption = 'Max Graphs in Display:'
ParentShowHint = False
ShowHint = False
end
object lblOptions: TLabel
object lblOptions: TLabel [2]
Left = 179
Top = 4
Width = 39
@ -49,13 +44,13 @@ object frmGraphSettings: TfrmGraphSettings
ParentShowHint = False
ShowHint = False
end
object bvlBase: TBevel
object bvlBase: TBevel [3]
Left = 13
Top = 271
Top = 287
Width = 412
Height = 2
end
object lblSources: TLabel
object lblSources: TLabel [4]
Left = 16
Top = 4
Width = 91
@ -64,18 +59,19 @@ object frmGraphSettings: TfrmGraphSettings
ParentShowHint = False
ShowHint = False
end
object lblConversions: TLabel
Left = 311
Top = 162
object lblConversions: TLabel [5]
Left = 215
Top = 284
Width = 46
Height = 13
Caption = 'Functions'
ParentShowHint = False
ShowHint = False
Visible = False
end
object lblMaxSelect: TLabel
object lblMaxSelect: TLabel [6]
Left = 311
Top = 115
Top = 93
Width = 96
Height = 13
Caption = 'Max Items to Select:'
@ -83,9 +79,9 @@ object frmGraphSettings: TfrmGraphSettings
ShowHint = False
WordWrap = True
end
object lblShow: TLabel
object lblShow: TLabel [7]
Left = 196
Top = 217
Top = 233
Width = 72
Height = 13
Alignment = taRightJustify
@ -93,9 +89,9 @@ object frmGraphSettings: TfrmGraphSettings
ParentShowHint = False
ShowHint = False
end
object lblSave: TLabel
object lblSave: TLabel [8]
Left = 189
Top = 249
Top = 265
Width = 79
Height = 13
Alignment = taRightJustify
@ -103,15 +99,15 @@ object frmGraphSettings: TfrmGraphSettings
ParentShowHint = False
ShowHint = False
end
object bvlDefaults: TBevel
object bvlDefaults: TBevel [9]
Left = 176
Top = 205
Top = 221
Width = 248
Height = 2
end
object lblOptionsInfo: TLabel
object lblOptionsInfo: TLabel [10]
Left = 13
Top = 281
Top = 297
Width = 275
Height = 13
Caption = 'Settings saved as your defaults are applied to new graphs.'
@ -119,40 +115,60 @@ object frmGraphSettings: TfrmGraphSettings
ShowHint = False
WordWrap = True
end
object lblMaxGraphsRef: TLabel
object lblMaxGraphsRef: TLabel [11]
Left = 374
Top = 20
Top = 23
Width = 57
Height = 17
AutoSize = False
ParentShowHint = False
ShowHint = False
end
object lblMinGraphHeightRef: TLabel
object lblMinGraphHeightRef: TLabel [12]
Left = 374
Top = 80
Top = 69
Width = 57
Height = 17
AutoSize = False
ParentShowHint = False
ShowHint = False
end
object lblMaxSelectRef: TLabel
object lblMaxSelectRef: TLabel [13]
Left = 374
Top = 133
Top = 114
Width = 57
Height = 17
AutoSize = False
ParentShowHint = False
ShowHint = False
end
object bvlMid: TBevel
object bvlMid: TBevel [14]
Left = 176
Top = 239
Top = 255
Width = 248
Height = 2
end
object lstATypes: TListBox
object lblOutpatient: TLabel [15]
Left = 311
Top = 135
Width = 115
Height = 13
Caption = 'Outpatient Date Default:'
ParentShowHint = False
ShowHint = False
WordWrap = True
end
object lblInpatient: TLabel [16]
Left = 311
Top = 178
Width = 107
Height = 13
Caption = 'Inpatient Date Default:'
ParentShowHint = False
ShowHint = False
WordWrap = True
end
object lstATypes: TListBox [17]
Left = 253
Top = 3
Width = 45
@ -162,7 +178,7 @@ object frmGraphSettings: TfrmGraphSettings
TabOrder = 17
Visible = False
end
object lstSourcesCopy: TListBox
object lstSourcesCopy: TListBox [18]
Left = 123
Top = 4
Width = 45
@ -172,11 +188,11 @@ object frmGraphSettings: TfrmGraphSettings
TabOrder = 16
Visible = False
end
object chklstOptions: TCheckListBox
Left = 179
Top = 20
object chklstOptions: TCheckListBox [19]
Left = 174
Top = 23
Width = 120
Height = 179
Height = 192
OnClickCheck = chklstOptionsClickCheck
ItemHeight = 13
ParentShowHint = False
@ -184,9 +200,9 @@ object frmGraphSettings: TfrmGraphSettings
Sorted = True
TabOrder = 1
end
object txtMinGraphHeight: TEdit
object txtMinGraphHeight: TEdit [20]
Left = 311
Top = 78
Top = 67
Width = 41
Height = 21
ParentShowHint = False
@ -197,9 +213,9 @@ object frmGraphSettings: TfrmGraphSettings
OnExit = txtMinGraphHeightExit
OnKeyPress = txtMinGraphHeightKeyPress
end
object txtMaxGraphs: TEdit
object txtMaxGraphs: TEdit [21]
Left = 311
Top = 20
Top = 23
Width = 41
Height = 21
ParentShowHint = False
@ -210,9 +226,9 @@ object frmGraphSettings: TfrmGraphSettings
OnExit = txtMaxGraphsExit
OnKeyPress = txtMaxGraphsKeyPress
end
object spnMinGraphHeight: TUpDown
object spnMinGraphHeight: TUpDown [22]
Left = 352
Top = 78
Top = 67
Width = 15
Height = 21
Associate = txtMinGraphHeight
@ -222,12 +238,11 @@ object frmGraphSettings: TfrmGraphSettings
Position = 90
ShowHint = False
TabOrder = 5
Wrap = False
OnClick = spnMinGraphHeightClick
end
object spnMaxGraphs: TUpDown
object spnMaxGraphs: TUpDown [23]
Left = 352
Top = 20
Top = 23
Width = 15
Height = 21
Associate = txtMaxGraphs
@ -237,12 +252,11 @@ object frmGraphSettings: TfrmGraphSettings
Position = 5
ShowHint = False
TabOrder = 3
Wrap = False
OnClick = spnMaxGraphsClick
end
object btnClose: TButton
object btnClose: TButton [24]
Left = 350
Top = 279
Top = 295
Width = 75
Height = 21
Cancel = True
@ -252,20 +266,20 @@ object frmGraphSettings: TfrmGraphSettings
TabOrder = 15
OnClick = btnCloseClick
end
object lstSources: TCheckListBox
Left = 16
Top = 20
object lstSources: TCheckListBox [25]
Left = 17
Top = 23
Width = 153
Height = 216
Height = 229
ItemHeight = 13
ParentShowHint = False
ShowHint = False
Sorted = True
TabOrder = 0
end
object btnAll: TButton
object btnAll: TButton [26]
Left = 18
Top = 245
Top = 261
Width = 65
Height = 21
Caption = 'All'
@ -274,9 +288,9 @@ object frmGraphSettings: TfrmGraphSettings
TabOrder = 9
OnClick = btnAllClick
end
object brnClear: TButton
object brnClear: TButton [27]
Left = 103
Top = 245
Top = 261
Width = 65
Height = 21
Cancel = True
@ -286,9 +300,9 @@ object frmGraphSettings: TfrmGraphSettings
TabOrder = 10
OnClick = btnAllClick
end
object btnPersonal: TButton
object btnPersonal: TButton [28]
Left = 277
Top = 213
Top = 229
Width = 65
Height = 21
Cancel = True
@ -296,9 +310,9 @@ object frmGraphSettings: TfrmGraphSettings
TabOrder = 11
OnClick = btnPublicClick
end
object cboConversions: TORComboBox
Left = 311
Top = 178
object cboConversions: TORComboBox [29]
Left = 228
Top = 295
Width = 116
Height = 21
Style = orcsDropDown
@ -321,11 +335,12 @@ object frmGraphSettings: TfrmGraphSettings
Sorted = False
SynonymChars = '<>'
TabOrder = 8
Visible = False
CharsNeedMatch = 1
end
object txtMaxSelect: TEdit
object txtMaxSelect: TEdit [30]
Left = 311
Top = 131
Top = 108
Width = 41
Height = 21
ParentShowHint = False
@ -336,9 +351,9 @@ object frmGraphSettings: TfrmGraphSettings
OnExit = txtMaxSelectExit
OnKeyPress = txtMaxSelectKeyPress
end
object spnMaxSelect: TUpDown
object spnMaxSelect: TUpDown [31]
Left = 352
Top = 131
Top = 108
Width = 15
Height = 21
Associate = txtMaxSelect
@ -348,12 +363,11 @@ object frmGraphSettings: TfrmGraphSettings
Position = 100
ShowHint = False
TabOrder = 7
Wrap = False
OnClick = spnMaxSelectClick
end
object btnPublic: TButton
object btnPublic: TButton [32]
Left = 360
Top = 213
Top = 229
Width = 65
Height = 21
Cancel = True
@ -363,9 +377,9 @@ object frmGraphSettings: TfrmGraphSettings
TabOrder = 12
OnClick = btnPublicClick
end
object btnPersonalSave: TButton
object btnPersonalSave: TButton [33]
Left = 277
Top = 245
Top = 261
Width = 65
Height = 21
Cancel = True
@ -375,9 +389,9 @@ object frmGraphSettings: TfrmGraphSettings
TabOrder = 13
OnClick = SaveClick
end
object btnPublicSave: TButton
object btnPublicSave: TButton [34]
Left = 360
Top = 245
Top = 261
Width = 65
Height = 21
Cancel = True
@ -387,9 +401,9 @@ object frmGraphSettings: TfrmGraphSettings
TabOrder = 14
OnClick = SaveClick
end
object lstOptions: TListBox
Left = 368
Top = 160
object lstOptions: TListBox [35]
Left = 287
Top = 295
Width = 57
Height = 17
ItemHeight = 13
@ -411,4 +425,129 @@ object frmGraphSettings: TfrmGraphSettings
TabOrder = 18
Visible = False
end
object cboDateRangeOutpatient: TORComboBox [36]
Left = 311
Top = 149
Width = 115
Height = 21
Style = orcsDropDown
AutoSelect = True
Color = clWindow
DropDownCount = 9
ItemHeight = 13
ItemTipColor = clWindow
ItemTipEnable = True
ListItemsOnly = False
LongList = False
LookupPiece = 0
MaxLength = 0
Pieces = '2'
Sorted = False
SynonymChars = '<>'
TabOrder = 19
TabStop = True
CharsNeedMatch = 1
end
object cboDateRangeInpatient: TORComboBox [37]
Left = 311
Top = 194
Width = 115
Height = 21
Style = orcsDropDown
AutoSelect = True
Color = clWindow
DropDownCount = 9
Items.Strings = (
'S^Date Range...'
'1^Today'
'2^One Week'
'3^Two Weeks'
'4^One Month'
'5^Six Months'
'6^One Year'
'7^Two Years'
'8^All Results')
ItemHeight = 13
ItemTipColor = clWindow
ItemTipEnable = True
ListItemsOnly = False
LongList = False
LookupPiece = 0
MaxLength = 0
Pieces = '2'
Sorted = False
SynonymChars = '<>'
TabOrder = 20
TabStop = True
CharsNeedMatch = 1
end
inherited amgrMain: TVA508AccessibilityManager
Data = (
(
'Component = lstATypes'
'Status = stsDefault')
(
'Component = lstSourcesCopy'
'Status = stsDefault')
(
'Component = chklstOptions'
'Status = stsDefault')
(
'Component = txtMinGraphHeight'
'Status = stsDefault')
(
'Component = txtMaxGraphs'
'Status = stsDefault')
(
'Component = spnMinGraphHeight'
'Status = stsDefault')
(
'Component = spnMaxGraphs'
'Status = stsDefault')
(
'Component = btnClose'
'Status = stsDefault')
(
'Component = lstSources'
'Status = stsDefault')
(
'Component = btnAll'
'Status = stsDefault')
(
'Component = brnClear'
'Status = stsDefault')
(
'Component = btnPersonal'
'Status = stsDefault')
(
'Component = cboConversions'
'Status = stsDefault')
(
'Component = txtMaxSelect'
'Status = stsDefault')
(
'Component = spnMaxSelect'
'Status = stsDefault')
(
'Component = btnPublic'
'Status = stsDefault')
(
'Component = btnPersonalSave'
'Status = stsDefault')
(
'Component = btnPublicSave'
'Status = stsDefault')
(
'Component = lstOptions'
'Status = stsDefault')
(
'Component = frmGraphSettings'
'Status = stsDefault')
(
'Component = cboDateRangeOutpatient'
'Status = stsDefault')
(
'Component = cboDateRangeInpatient'
'Status = stsDefault'))
end
end

468
CPRS-Chart/fGraphSettings.pas
View File

@ -4,10 +4,11 @@ interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, StdCtrls, ExtCtrls, CheckLst, Math, ORCtrls, ORFn, uGraphs;
ComCtrls, StdCtrls, ExtCtrls, CheckLst, Math, ORCtrls, ORFn, uCore, uGraphs, fBase508Form,
VA508AccessibilityManager;
type
TfrmGraphSettings = class(TForm)
TfrmGraphSettings = class(TfrmBase508Form)
brnClear: TButton;
btnAll: TButton;
btnClose: TButton;
@ -42,6 +43,10 @@ type
txtMinGraphHeight: TEdit;
bvlMid: TBevel;
lstOptions: TListBox;
cboDateRangeOutpatient: TORComboBox;
cboDateRangeInpatient: TORComboBox;
lblOutpatient: TLabel;
lblInpatient: TLabel;
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure btnAllClick(Sender: TObject);
@ -67,15 +72,20 @@ type
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
FHintPauseTime: integer;
public
{ Public declarations }
procedure wmNCLButtonDown(var Msg: TWMNCLButtonDown); message WM_NCLBUTTONDOWN;
procedure ChangeSettings(aGraphSetting: TGraphSetting);
procedure ChangeSources(DisplaySource: TStrings);
procedure Conversion(conv: integer);
procedure SetSettings(aGraphSetting: TGraphSetting);
procedure SetSources(aList, DisplaySource: TStrings);
procedure GetTypeList(aList: TStrings);
end;
var
frmGraphSettings: TfrmGraphSettings;
procedure DialogOptionsGraphSettings(topvalue, leftvalue, fontsize: integer;
var actiontype: boolean);
procedure DialogGraphSettings(fontsize: integer; var okbutton: boolean;
@ -87,31 +97,26 @@ implementation
{$R *.DFM}
uses
rGraphs;
rGraphs, fGraphData, VAUtils;
procedure DialogOptionsGraphSettings(topvalue, leftvalue, fontsize: integer;
var actiontype: boolean);
var
FGraphSetting: TGraphSetting;
aList, FSources, AllTypes: TStrings;
FSources, AllTypes: TStrings;
i, conv: integer;
aSettings, dfntype, listline, settings, settings1, t1, t2: string;
aSettings, dfntype, listline, settings, settings1: string;
begin
aList := TStringList.Create;
FastAssign(rpcGetGraphSettings, aList);
if aList.Count < 1 then
settings := GetCurrentSetting;
settings1 := GetPublicSetting;
if settings1 = '' then
begin
showmessage('CPRS is not configured for graphing.');
aList.Free;
ShowMsg(TXT_NOGRAPHING);
exit;
end;
t1 := aList[0]; t2 := aList[1]; // t1 are personal, t2 public settings
if length(t1) > 0 then settings := t1
else settings := t2;
SetPiece(settings, '|', 8, Piece(t2, '|', 8));
settings1 := Piece(settings, '|', 1);
Alltypes := TStringList.Create;
FastAssign(rpcGetTypes('0', false), AllTypes);
FastAssign(GtslAllTypes, AllTypes);
for i := 0 to AllTypes.Count - 1 do
begin
listline := AllTypes[i];
@ -131,16 +136,13 @@ begin
conv := BIG_NUMBER; // indicates being called from Options
DialogGraphSettings(fontsize, actiontype, FGraphSetting, FSources, conv, aSettings);
FGraphSetting.Free;
aList.Free;
FSources.Free;
AllTypes.Free;
end;
procedure DialogGraphSettings(fontsize: integer; var okbutton: boolean;
aGraphSetting: TGraphSetting; DisplaySource: TStrings; var conv: integer; var aSettings: string);
var
needtoadd, turnon: boolean;
i, j: integer;
dfntype, dsdisplay, dsitem, dsnum, filename, filenum, listitem, listline, t1, t2, value: string;
aList: TStrings;
frmGraphSettings: TfrmGraphSettings;
begin
@ -151,122 +153,24 @@ begin
try
with frmGraphSettings do
begin
if displaysource.Count > 99999 then exit;
FastAssign(rpcGetGraphDateRange('OR_GRAPHS'), cboDateRangeOutpatient.Items);
if cboDateRangeOutpatient.Items.Count > 0 then
cboDateRangeOutpatient.Items.Delete(0);
FastAssign(cboDateRangeOutpatient.Items, cboDateRangeInpatient.Items);
FastAssign(rpcGetGraphSettings, aList);
t1 := aList[0]; t2 := aList[1]; // t1 are personal, t2 public settings
if length(t1) = 0 then t1 := t2;
SetPiece(t1, '|', 8, Piece(t2,'|', 8));
btnPersonal.Hint := t1;
btnPublic.Hint := t2;
aList.Clear;
FastAssign(rpcGetTypes('0', false), aList);
for i := 0 to aList.Count -1 do
begin
listline := aList[i];
dfntype := UpperCase(Piece(listline, '^', 1));
SetPiece(listline, '^', 1, dfntype);
aList[i] := listline;
end;
with lstSources.Items do
begin
Clear;
lstSourcesCopy.Items.Clear;
for i := 0 to aList.Count - 1 do
begin
listitem := aList[i];
filenum := Piece(listitem, '^', 1);
filename := Piece(listitem, '^', 2);
Add(filename);
lstSourcesCopy.Items.Add(filename + '^' + filenum);
end;
with lstSourcesCopy do
for i := 0 to Items.Count - 1 do
begin
listitem := Items[i];
filenum := Piece(listitem, '^', 2);
for j := 0 to DisplaySource.Count - 1 do
begin
dsitem := DisplaySource[j];
dsnum := Piece(dsitem, '^', 1);
dsdisplay := Piece(dsitem, '^', 3);
if filenum = dsnum then
begin
if dsdisplay = '1' then
lstSources.Checked[i] := true;
break;
end;
end;
end;
end;
with aGraphSetting do
begin
OptionSettings := '';
if Values then OptionSettings := OptionSettings + SETTING_VALUES;
if VerticalZoom then OptionSettings := OptionSettings + SETTING_VZOOM;
if HorizontalZoom then OptionSettings := OptionSettings + SETTING_HZOOM;
if View3D then OptionSettings := OptionSettings + SETTING_3D;
if Legend then OptionSettings := OptionSettings + SETTING_LEGEND;
if Lines then OptionSettings := OptionSettings + SETTING_LINES;
if Dates then OptionSettings := OptionSettings + SETTING_DATES;
if SortByType then OptionSettings := OptionSettings + SETTING_SORT;
if ClearBackground then OptionSettings := OptionSettings + SETTING_CLEAR;
if Gradient then OptionSettings := OptionSettings + SETTING_GRADIENT;
if Hints then OptionSettings := OptionSettings + SETTING_HINTS;
if StayOnTop then OptionSettings := OptionSettings + SETTING_TOP;
if FixedDateRange then OptionSettings := OptionSettings + SETTING_FIXED;
spnMaxGraphs.Position := MaxGraphs;
spnMinGraphHeight.Position := MinGraphHeight;
MaxSelect := Min(MaxSelectMax, MaxSelect);
if MaxSelect < MaxSelectMin then
MaxSelect := MaxSelectMin;
spnMaxSelect.Position := MaxSelect;
spnMaxSelect.Min := MaxSelectMin;
spnMaxSelect.Max := MaxSelectMax;
if SortByType then SortColumn := 1 else SortColumn := 0;
lstOptions.Tag := SortColumn;
if (SortColumn > 0) then
if Pos(SETTING_SORT, OptionSettings) = 0 then
OptionSettings := OptionSettings + SETTING_SORT;
for i := 0 to lstOptions.Items.Count - 1 do
begin
value := Piece(lstOptions.Items[i], '^', 2);
chklstOptions.Checked[i] := Pos(value, OptionSettings) > 0;
end;
end;
btnPersonal.Hint := GetPersonalSetting;
btnPublic.Hint := GetPublicSetting;
GetTypeList(aList);
SetSources(aList, DisplaySource);
SetSettings(aGraphSetting);
with spnMaxGraphs do
lblMaxGraphsRef.Caption := inttostr(Min) + ' to ' + inttostr(Max);
with spnMinGraphHeight do
lblMinGraphHeightRef.Caption := inttostr(Min) + ' to ' + inttostr(Max);
with spnMaxSelect do
lblMaxSelectRef.Caption := inttostr(Min) + ' to ' + inttostr(Max);
if conv = BIG_NUMBER then
begin
lblOptionsInfo.Visible := true;
frmGraphSettings.Caption := 'Graph Settings - Defaults Only';
lblConversions.Enabled := false;
cboConversions.Enabled := false;
cboConversions.ItemIndex := 0;
cboConversions.Text := '';
end
else
with cboConversions do
begin
lblOptionsInfo.Visible := false;
frmGraphSettings.Caption := 'Graph Settings';
if btnPublicSave.Enabled = true then
begin
lblConversions.Enabled := true;
Enabled := true;
ItemIndex := conv;
Text := Items[ItemIndex];
end
else
begin
lblConversions.Enabled := false;
cboConversions.Enabled := false;
cboConversions.ItemIndex := 0;
cboConversions.Text := '';
end;
end;
Conversion(conv);
ResizeAnchoredFormToFont(frmGraphSettings);
ShowModal;
okbutton := (btnClose.Tag = 1);
@ -274,62 +178,8 @@ begin
begin
aSettings := btnClose.Hint;
conv := cboConversions.ItemIndex;
with lstSources do
begin
for i := 0 to Items.Count - 1 do
begin
needtoadd := false;
if Checked[i] then
needtoadd := true;
filename := Piece(lstSourcesCopy.Items[i], '^', 1);
filenum := Piece(lstSourcesCopy.Items[i], '^', 2);
for j := 0 to DisplaySource.Count - 1 do
begin
dsitem := DisplaySource[j];
dsnum := Piece(dsitem, '^', 1);
if filenum = dsnum then
begin
needtoadd := false;
if Checked[i] then
DisplaySource[j] := filenum + '^' + filename + '^1'
else
DisplaySource[j] := filenum + '^' + filename + '^0';
break;
end;
end;
if needtoadd then
DisplaySource.Add('*^' + filenum + '^' + filename + '^1');
end;
end;
with aGraphSetting do
begin
MaxGraphs := spnMaxGraphs.Position;
MinGraphHeight := spnMinGraphHeight.Position;
MaxSelect := spnMaxSelect.Position;
MaxSelectMin := 1;
OptionSettings := '';
with chklstOptions do
for i := 0 to Items.Count - 1 do
begin
value := Piece(lstOptions.Items[i], '^', 2);
turnon := Checked[i];
if turnon then OptionSettings := OptionSettings + value;
if value = SETTING_VALUES then Values := turnon
else if value = SETTING_VZOOM then VerticalZoom := turnon
else if value = SETTING_HZOOM then HorizontalZoom := turnon
else if value = SETTING_3D then View3D := turnon
else if value = SETTING_LEGEND then Legend := turnon
else if value = SETTING_LINES then Lines := turnon
else if value = SETTING_DATES then Dates := turnon
else if value = SETTING_SORT then SortByType := turnon
else if value = SETTING_CLEAR then ClearBackground := turnon
else if value = SETTING_GRADIENT then Gradient := turnon
else if value = SETTING_HINTS then Hints := turnon
else if value = SETTING_FIXED then FixedDateRange := turnon
else if value = SETTING_TOP then StayOnTop := turnon;
end;
if SortByType then SortColumn := 1 else SortColumn := 0;
end;
ChangeSources(DisplaySource);
ChangeSettings(aGraphSetting);
end;
end;
finally
@ -338,6 +188,217 @@ begin
end;
end;
procedure TfrmGraphSettings.ChangeSettings(aGraphSetting: TGraphSetting);
var
turnon: boolean;
i : integer;
value: string;
begin
with aGraphSetting do
begin
MaxGraphs := spnMaxGraphs.Position;
MinGraphHeight := spnMinGraphHeight.Position;
MaxSelect := spnMaxSelect.Position;
MaxSelectMin := 1;
OptionSettings := '';
with chklstOptions do
for i := 0 to Items.Count - 1 do
begin
value := Piece(lstOptions.Items[i], '^', 2);
turnon := Checked[i];
if turnon then OptionSettings := OptionSettings + value;
if value = SETTING_VALUES then Values := turnon
else if value = SETTING_VZOOM then VerticalZoom := turnon
else if value = SETTING_HZOOM then HorizontalZoom := turnon
else if value = SETTING_3D then View3D := turnon
else if value = SETTING_LEGEND then Legend := turnon
else if value = SETTING_LINES then Lines := turnon
else if value = SETTING_DATES then Dates := turnon
else if value = SETTING_SORT then SortByType := turnon
else if value = SETTING_CLEAR then ClearBackground := turnon
else if value = SETTING_GRADIENT then Gradient := turnon
else if value = SETTING_HINTS then Hints := turnon
else if value = SETTING_FIXED then FixedDateRange := turnon
else if value = SETTING_TURBO then Turbo := turnon
else if value = SETTING_TOP then StayOnTop := turnon;
end;
if SortByType then SortColumn := 1 else SortColumn := 0;
DateRangeOutpatient := cboDateRangeOutpatient.ItemID;
DateRangeInpatient := cboDateRangeInpatient.ItemID;
end;
end;
procedure TfrmGraphSettings.ChangeSources(DisplaySource: TStrings);
var
needtoadd: boolean;
i, j : integer;
filename, filenum, dsitem, dsnum: string;
begin
with lstSources do
begin
for i := 0 to Items.Count - 1 do
begin
needtoadd := false;
if Checked[i] then
needtoadd := true;
filename := Piece(lstSourcesCopy.Items[i], '^', 1);
filenum := Piece(lstSourcesCopy.Items[i], '^', 2);
for j := 0 to DisplaySource.Count - 1 do
begin
dsitem := DisplaySource[j];
dsnum := Piece(dsitem, '^', 1);
if filenum = dsnum then
begin
needtoadd := false;
if Checked[i] then
DisplaySource[j] := filenum + '^' + filename + '^1'
else
DisplaySource[j] := filenum + '^' + filename + '^0';
break;
end;
end;
if needtoadd then
DisplaySource.Add('*^' + filenum + '^' + filename + '^1');
end;
end;
end;
procedure TfrmGraphSettings.Conversion(conv: integer);
begin
if conv = BIG_NUMBER then
begin
lblOptionsInfo.Visible := true;
frmGraphSettings.Caption := 'Graph Settings - Defaults Only';
lblConversions.Enabled := false;
cboConversions.Enabled := false;
cboConversions.ItemIndex := 0;
cboConversions.Text := '';
end
else
with cboConversions do
begin
lblOptionsInfo.Visible := false;
frmGraphSettings.Caption := 'Graph Settings';
if btnPublicSave.Enabled = true then
begin
lblConversions.Enabled := true;
Enabled := true;
ItemIndex := conv;
Text := Items[ItemIndex];
end
else
begin
lblConversions.Enabled := false;
cboConversions.Enabled := false;
cboConversions.ItemIndex := 0;
cboConversions.Text := '';
end;
end;
end;
procedure TfrmGraphSettings.SetSettings(aGraphSetting: TGraphSetting);
var
i : integer;
value: string;
begin
with aGraphSetting do
begin
OptionSettings := '';
if Values then OptionSettings := OptionSettings + SETTING_VALUES;
if VerticalZoom then OptionSettings := OptionSettings + SETTING_VZOOM;
if HorizontalZoom then OptionSettings := OptionSettings + SETTING_HZOOM;
if View3D then OptionSettings := OptionSettings + SETTING_3D;
if Legend then OptionSettings := OptionSettings + SETTING_LEGEND;
if Lines then OptionSettings := OptionSettings + SETTING_LINES;
if Dates then OptionSettings := OptionSettings + SETTING_DATES;
if SortByType then OptionSettings := OptionSettings + SETTING_SORT;
if ClearBackground then OptionSettings := OptionSettings + SETTING_CLEAR;
if Gradient then OptionSettings := OptionSettings + SETTING_GRADIENT;
if Hints then OptionSettings := OptionSettings + SETTING_HINTS;
if StayOnTop then OptionSettings := OptionSettings + SETTING_TOP;
if FixedDateRange then OptionSettings := OptionSettings + SETTING_FIXED;
spnMaxGraphs.Position := MaxGraphs;
spnMinGraphHeight.Position := MinGraphHeight;
MaxSelect := Min(MaxSelectMax, MaxSelect);
if MaxSelect < MaxSelectMin then
MaxSelect := MaxSelectMin;
spnMaxSelect.Position := MaxSelect;
spnMaxSelect.Min := MaxSelectMin;
spnMaxSelect.Max := MaxSelectMax;
cboDateRangeOutpatient.SelectByID(GetDefaultOutpatientDate);
cboDateRangeInpatient.SelectByID(GetDefaultInpatientDate);
if SortByType then SortColumn := 1 else SortColumn := 0;
lstOptions.Tag := SortColumn;
if (SortColumn > 0) then
if Pos(SETTING_SORT, OptionSettings) = 0 then
OptionSettings := OptionSettings + SETTING_SORT;
if Turbo then OptionSettings := OptionSettings + SETTING_TURBO;
if GraphPublicEditor or GraphTurboOn then
begin
lstOptions.Items.Add('Turbo^N');
chklstOptions.Items.Add('Turbo');
end;
for i := 0 to lstOptions.Items.Count - 1 do
begin
value := Piece(lstOptions.Items[i], '^', 2);
chklstOptions.Checked[i] := Pos(value, OptionSettings) > 0;
end;
end;
end;
procedure TfrmGraphSettings.SetSources(aList, DisplaySource: TStrings);
var
i, j : integer;
listitem, filenum, filename, dsitem, dsnum, dsdisplay: string;
begin
with lstSources.Items do
begin
Clear;
lstSourcesCopy.Items.Clear;
for i := 0 to aList.Count - 1 do
begin
listitem := aList[i];
filenum := Piece(listitem, '^', 1);
filename := Piece(listitem, '^', 2);
Add(filename);
lstSourcesCopy.Items.Add(filename + '^' + filenum);
end;
with lstSourcesCopy do
for i := 0 to Items.Count - 1 do
begin
listitem := Items[i];
filenum := Piece(listitem, '^', 2);
for j := 0 to DisplaySource.Count - 1 do
begin
dsitem := DisplaySource[j];
dsnum := Piece(dsitem, '^', 1);
dsdisplay := Piece(dsitem, '^', 3);
if filenum = dsnum then
begin
if dsdisplay = '1' then
lstSources.Checked[i] := true;
break;
end;
end;
end;
end;
end;
procedure TfrmGraphSettings.GetTypeList(aList: TStrings);
var
i : integer;
dfntype, listline : string;
begin
FastAssign(GtslAllTypes, aList);
for i := 0 to aList.Count -1 do
begin
listline := aList[i];
dfntype := UpperCase(Piece(listline, '^', 1));
SetPiece(listline, '^', 1, dfntype);
aList[i] := listline;
end;
end;
function FileNameX(filenum: string): string;
var
i: integer;
@ -367,13 +428,14 @@ begin
end;
end;
end;
Alltypes.Free;
end;
procedure TfrmGraphSettings.FormCreate(Sender: TObject);
var
i: integer;
begin
btnPublicSave.Enabled := rpcPublicEdit;
btnPublicSave.Enabled := GraphPublicEditor;
lblConversions.Enabled := btnPublicSave.Enabled;
cboConversions.Enabled := btnPublicSave.Enabled;
for i := 0 to lstOptions.Items.Count - 1 do
@ -423,6 +485,8 @@ begin
settings := settings + '|'; // not used
settings := settings + txtMaxSelect.Text + '|';
settings := settings + Piece(btnPublic.Hint, '|', 8) + '|';
settings := settings + cboDateRangeOutpatient.ItemID + '|';
settings := settings + cboDateRangeInpatient.ItemID + '|';
Result := settings;
end;
@ -444,6 +508,8 @@ begin
spnMaxGraphs.Tag := spnMaxGraphs.Position;
spnMinGraphHeight.Tag := spnMinGraphHeight.Position;
spnMaxSelect.Tag := spnMaxSelect.Position;
cboDateRangeOutpatient.SelectByID(Piece(settings, '|', 9));
cboDateRangeInpatient.SelectByID(Piece(settings, '|', 10));
for i := 0 to lstOptions.Items.Count - 1 do
begin
value := Piece(lstOptions.Items[i], '^', 2);
@ -517,7 +583,7 @@ begin
info := info + #13 + 'Is this what you want to do?';
if MessageDlg(info, mtConfirmation, [mbYes, mbNo], 0) <> mrYes then
begin
showmessage('No changes were made.');
ShowMsg('No changes were made.');
exit;
end;
settings := DisplaySettings;
@ -531,12 +597,22 @@ begin
rpcSetGraphSettings(settings, '1');
btnPublic.Hint := settings;
end;
if length(btnPersonal.Hint) > 0 then
begin
SetDefaultInpatientDate(Piece(btnPersonal.Hint, '|', 10));
SetDefaultOutpatientDate(Piece(btnPersonal.Hint, '|', 9));
end
else
begin
SetDefaultInpatientDate(Piece(btnPublic.Hint, '|', 10));
SetDefaultOutpatientDate(Piece(btnPublic.Hint, '|', 9));
end;
end;
procedure TfrmGraphSettings.spnMaxGraphsClick(Sender: TObject;
Button: TUDBtnType);
begin
txtMaxGraphs.SetFocus;
//txtMaxGraphs.SetFocus;
txtMaxGraphs.Tag := strtointdef(txtMaxGraphs.Text, spnMaxGraphs.Min);
end;
@ -598,14 +674,14 @@ end;
procedure TfrmGraphSettings.spnMinGraphHeightClick(Sender: TObject;
Button: TUDBtnType);
begin
txtMinGraphHeight.SetFocus;
//txtMinGraphHeight.SetFocus;
txtMinGraphHeight.Tag := strtointdef(txtMinGraphHeight.Text, spnMinGraphHeight.Min);
end;
procedure TfrmGraphSettings.spnMaxSelectClick(Sender: TObject;
Button: TUDBtnType);
begin
txtMaxSelect.SetFocus;
//txtMaxSelect.SetFocus;
txtMaxSelect.Tag := strtointdef(txtMaxSelect.Text, spnMaxSelect.Min);
end;
@ -741,8 +817,8 @@ end;
procedure TfrmGraphSettings.FormShow(Sender: TObject);
begin
if Caption = 'Graph Settings - Defaults Only' then
btnPersonal.SetFocus;
//if Caption = 'Graph Settings - Defaults Only' then
// btnPersonal.SetFocus;
FHintPauseTime := Application.HintHidePause;
Application.HintHidePause := 9000; // uses a longer hint pause time
end;
@ -779,6 +855,10 @@ begin // text defined in uGraphs
txtMaxSelect.Hint := SHINT_MAX_ITEMS;
spnMaxSelect.Hint := SHINT_MAX_ITEMS;
lblMaxSelectRef.Hint := SHINT_MAX_ITEMS;
lblOutpatient.Hint := SHINT_OUTPT;
cboDateRangeOutpatient.Hint := SHINT_OUTPT;
lblInpatient.Hint := SHINT_INPT;
cboDateRangeInpatient.Hint := SHINT_INPT;
lblConversions.Hint := SHINT_FUNCTIONS;
cboConversions.Hint := SHINT_FUNCTIONS;
end;
@ -789,7 +869,7 @@ begin // clicking the ? button will have controls show hints
begin
Msg.Result := 0; // ignore biHelp border icon
AssignHints;
ShowMessage('Help is now available.' + #13 +
ShowMsg('Help is now available.' + #13 +
'By pausing over a list or control, hints will appear.');
end
else

1067
CPRS-Chart/fGraphs.dfm
View File

File diff suppressed because it is too large Load Diff

5727
CPRS-Chart/fGraphs.pas
View File

File diff suppressed because it is too large Load Diff

9
CPRS-Chart/fHP.dfm
View File

@ -2,7 +2,7 @@ inherited frmHP: TfrmHP
Caption = 'History and Physical Exam Page'
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
object Label1: TLabel [1]
Left = 0
Top = 0
Width = 640
@ -10,5 +10,12 @@ inherited frmHP: TfrmHP
Align = alTop
Alignment = taCenter
Caption = 'History and Physical Exam (inherit directly from fPage)'
ExplicitWidth = 251
end
inherited amgrMain: TVA508AccessibilityManager
Data = (
(
'Component = frmHP'
'Status = stsDefault'))
end
end

2
CPRS-Chart/fHP.pas
View File

@ -4,7 +4,7 @@ interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
fPage, StdCtrls, ExtCtrls;
fPage, StdCtrls, ExtCtrls, VA508AccessibilityManager;
type
TfrmHP = class(TfrmPage)

BIN
CPRS-Chart/fHSplit.ddp
View File

Binary file not shown.

26
CPRS-Chart/fHSplit.dfm
View File

@ -1,33 +1,45 @@
inherited frmHSplit: TfrmHSplit
Left = 276
Left = 344
Top = 228
Caption = 'Basic Splitter Page'
PixelsPerInch = 96
TextHeight = 13
object sptHorz: TSplitter
object sptHorz: TSplitter [1]
Left = 97
Top = 0
Width = 4
Height = 349
Height = 356
end
object pnlLeft: TPanel
object pnlLeft: TPanel [2]
Left = 0
Top = 0
Width = 97
Height = 349
Height = 356
Align = alLeft
BevelOuter = bvNone
Constraints.MinWidth = 30
TabOrder = 0
end
object pnlRight: TPanel
object pnlRight: TPanel [3]
Left = 101
Top = 0
Width = 539
Height = 349
Height = 356
Align = alClient
BevelOuter = bvNone
Constraints.MinWidth = 24
TabOrder = 1
end
inherited amgrMain: TVA508AccessibilityManager
Data = (
(
'Component = pnlLeft'
'Status = stsDefault')
(
'Component = pnlRight'
'Status = stsDefault')
(
'Component = frmHSplit'
'Status = stsDefault'))
end
end

2
CPRS-Chart/fHSplit.pas
View File

@ -4,7 +4,7 @@ interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
fPage, ExtCtrls;
fPage, ExtCtrls, VA508AccessibilityManager;
type
TfrmHSplit = class(TfrmPage)

Some files were not shown because too many files have changed in this diff Show More